[sAVe]

Всем привет!
Глупый вопрос, но просто нужен пример.
Есть запрос на добавление или изменение записи в БД;
Как повесить на кнопку отмену последнего добавления или изменения записи в БД.
Если что БД на firebird'е.

[Uniq!]

Транзакции
UpdateBatch CancelBatch

[sAVe]

Сообщение от Uniq!

Транзакции
UpdateBatch CancelBatch

А можно с примером?
Вот например на кнопке "Добавить" Вот такая конструкция:

Код:

procedure TNew_Office.add_officeClick(Sender: TObject);
begin
try
if Edit1.Text = 'Введите название службы'
  then ShowMessage('некорректные данные')
  else
with DataModule1.IBQuery2 do
   begin
    ParamByName('o_name').AsString:=Edit1.Text;
    Transaction.StartTransaction;
    ExecSQL;
    Transaction.Commit;
    Transaction.Active:=false
   end;
   DataModule1.OFFICE.Close;
   DataModule1.OFFICE.Open;
   
   except
   on E: Exception do
   begin
    if DataModule1.IBQuery2.Active then
      DataModule1.IBQuery2.Transaction.Rollback;
    Application.MessageBox(PChar(E.Message), 'Ошибка', MB_ICONERROR);
   end;
   end;

end;

А на "Отменить" что посоветуете? Я просто ну полный ноль в этом...