Код на кнопку добавить:
- Код: Выделить всё
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, но в базу не сохраняться.
Убираем комент и на этой строчки вот такая ошибка
Может кто-нибудь знает в чем проблема?