Сохранение записи dbgrid

[anabenne]

Всем привет.
Делают таблицу. Использую datamodule, query и datasource.
Все поля в таблице отображаются ,все норм.
Сделал кнопку добавить, вот код

procedure TForm1.Button1Click(Sender: TObject);
begin
Unit2.DataModule2.Query1.SQL.Text:='Insert Into Clients (FirstName, SeconName, LastName, PassportNum, PravaNum, Telefon) Values("'+Edit1.Text+'","'+Edit2.Text+'","'+Edit3.Text+'","'+Edit4.Text+'","'+Edit5.Text+'","'+Edit6.Text+'")';
Unit2.DataModule2.Query1.ExecSQL;
Unit2.DataModule2.Query1.SQL.Text:='Select * From Clients';
Unit2.DataModule2.Query1.Active:=False;
Unit2.DataModule2.Query1.Active:=True;
end;

все работает все хорошо, теперь нужно сохранить эту запись, как сделать?

[Gulik]

Query1.Post ;

[anabenne]

procedure TForm1.Button1Click(Sender: TObject);
begin
Unit2.DataModule2.Query1.Post;
Unit2.DataModule2.Query1.Active:=False;
Unit2.DataModule2.Query1.Active:=True;
end;

так?

[rdama]

Вот скорее так.

procedure TForm1.Button1Click(Sender: TObject);
begin
   with Unit2.DataModule2.Query1 do
   begin
      Close;
      SQL.Clear;
      SQL.Add('Insert Into Clients (FirstName, SeconName, LastName, PassportNum, PravaNum, Telefon) Values(');
      SQL.Add(QuotedStr(Edit1.Text) + ',');
      SQL.Add(QuotedStr(Edit2.Text) + ',');
      SQL.Add(QuotedStr(Edit3.Text) + ',');
      SQL.Add(QuotedStr(Edit4.Text) + ',');
      SQL.Add(QuotedStr(Edit5.Text) + ',');
      SQL.Add(QuotedStr(Edit6.Text) + ')');
      ExecSQL;
      SQL.Clear;
      SQL.Add('Select * From Clients');
      Open
   end;
end;

[Serge_Bliznykov]

rdama, а чем Ваш код принципиально отличается от кода TC из первого поста?!

все работает все хорошо, теперь нужно сохранить эту запись, как сделать?

anabenne, что значит - сохранить? После нажатия на кнопку "Добавить" запись в гриде появляется?!
А после перезагрузки приложения этой записи нет?

если это так, я бы посмотрел в сторону вызова Commit

[rdama]

В принципе ничем за исключением удобства читаемости. Тупанул. А на счет Commit. Надо бы чтоб указал что за СУБД.