Довелось мне давеча писать базу данных на C++ Builder и BDE. Поскольку таким извращением я не страдал никогда, пришлось поштудировать интернет в поисках полезной инфы. Толкового материала я нашел крайне мало и решил написать краткую шпору сам. Вдруг кому пригодится. Как добавлять записи в TTable и TDataSource из BD файла.

Для того чтобы добавить запись в таблицу TTable связанную с базой данных TDataSource. Используем код ниже.


Table1->Append();
Table1->Edit();
Table1->FieldByName("Fam")->AsString = Edit1->Text;
Table1->FieldByName("Name")->AsString = Edit2->Text;
Table1->FieldByName("Otch")->AsString = Edit3->Text;
Table1->FieldByName("Passport")->AsInteger = StrToInt(MaskEdit1->Text);
Table1->FieldByName("INN")->AsInteger = StrToInt(MaskEdit2->Text);
Table1->FieldByName("Address")->AsString = Edit6->Text;
Table1->FieldByName("Workplace")->AsString = Edit7->Text;
Table1->FieldByName("Zarplata")->AsCurrency = (Edit4->Text);
Table1->FieldByName("Summa")->AsCurrency = (Edit9->Text);
Table1->FieldByName("SrokKredita")->AsInteger = StrToInt(Edit10->Text);
DBImage1->Picture->LoadFromFile(FileName);
Table1->Post();

1. Append() — Добавляет новую запись в таблицу;
2. Edit() — Открывает таблицу в режиме редактирования;
3. FieldByName(“Fam”)->AsString = Edit1->Text — Добавляет в поле FAM данные из Edit1 как строку. AsString, AsInteger как число и AsCurrency ка валюту;
4. Post() — Сохраняет введённые в таблицу данные в базу данных.

Не забываем про строку DBImage1->Picture->LoadFromFile(FileName); Здесь мы сохраняем картинку из DBImage1. В какое поле сохранять эту картинку выбираем в настройках этого объекта. Связывая его с таблицей и датасурсом.

if (OpenPictureDialog1->Execute())
{
FileName = OpenPictureDialog1->FileName;
Edit5->Text = FileName;
}