|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Отмена последнего действия
Всем привет!
Глупый вопрос, но просто нужен пример. Есть запрос на добавление или изменение записи в БД; Как повесить на кнопку отмену последнего добавления или изменения записи в БД. Если что БД на firebird'е. |
#2
|
||||
|
||||
Транзакции
UpdateBatch CancelBatch |
Этот пользователь сказал Спасибо Uniq! за это полезное сообщение: | ||
sAVe (08.10.2013)
|
#3
|
|||
|
|||
Цитата:
А можно с примером? Вот например на кнопке "Добавить" Вот такая конструкция: Код:
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; А на "Отменить" что посоветуете? Я просто ну полный ноль в этом... |