Код на кнопку добавить:
- Код: Выделить всё
- procedure TForm1.BitBtn6Click(Sender: TObject);
 Var dat:Tdatetime;
 begin
 dat:=Now;
 Form1.SQLAdres.Insert;
 Form5.Panel2.Visible:=true;
 Form5.DateEdit1.Date:=dat;
 Form5.ShowModal;
 end;
процедура на кнопку сохранить:
- Код: Выделить всё
- procedure TForm5.BitBtn1Click(Sender: TObject);
 begin
 if DBEdit1.Text<>'' then
 if DBEdit2.Text<>'' then
 if DBEdit3.Text<> '' then
 if DBEdit4.Text<>'' then
 if DBEdit5.Text<>'' then
 if DBEdit6.Text<>''then
 begin
 //ShowMessage(Form1.SQLQuery1.FieldValues['id_code']);
 Form1.SQLAdres.FieldValues['id_code']:=Form1.SQLQuery1.FieldValues['id_code'];
 Form1.SQLAdres.Post;
 Form1.SQLAdres.ApplyUpdates;
 Form5.Close;
 end
 else
 begin
 Memo1.Visible:=true;
 Memo1.Lines.Add('Поле Дом не может быть пустым');
 end
 .......
Если закоменить строчку Form1.SQLAdres.ApplyUpdates; то данные сохраняться и будут отображаться в DBGrid, но в базу не сохраняться.
Убираем комент и на этой строчки вот такая ошибка
Может кто-нибудь знает в чем проблема?


