вроде всё правильно сделал, но в бд добавляется пустая запись
Код:
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
DataModule2.ADOTable1.Insert;
DataModule2.ADOTable1.FieldByName('fio').Text:=Edit2.Text;
DataModule2.ADOTable1.FieldByName('tab_nomer').Text:=Edit1.Text;
DataModule2.ADOTable1.FieldByName('dr').Value:=Datetostr(Form4.DateTimePicker2.Date);
DataModule2.ADOTable1.FieldByName('podr').Text:=ComboBox1.Text;
DataModule2.ADOTable1.FieldByName('dolj').Text:=ComboBox2.Text;
DataModule2.ADOTable1.FieldByName('data').Value:=Datetostr(Form4.DateTimePicker1.Date);
if length(Trim(Edit1.text))<1 then
begin
Showmessage ('Не введено значение в поле'); close;
exit
end;
if length(Trim(Edit2.text))<1 then
begin
Showmessage ('Не введено значение в поле');
exit
end;
if DataModule2.ADOTable1.Modified
then DataModule2.ADOTable1.Post;
MessageBox(Handle, 'Добавлена запись!', 'Сообщение', MB_ICONINFORMATION);
close;
end;