Пример работы с отложенными изменениями.

⇐ Предыдущая 1 2 3 456 7 Следующая ⇒

За основу возьмем пример работы с транзакциями.

Добавим компоненты

BatchCB типа TCheckBox

ApplyButton типа TButton

CancelButton типа TButton

Добавим обработчики событий OnClick во все эти три компонента.

Изменим обработчик события OnActivate формы.

procedure TForm1.FormActivate(Sender: TObject); begin fix_controls; ApplyButton.Visible:= BatchCB.State = cbChecked; CancelButton.Visible:= BatchCB.State = cbChecked; end; procedure TForm1.BatchCBClick(Sender: TObject); begin MasterSQL.Close; DetailSQL.Close; if BatchCB.State = cbChecked then begin MasterSQL.LockType:= ltBatchOptimistic; DetailSQL.LockType:= ltBatchOptimistic; end else begin MasterSQL.LockType:= ltOptimistic; DetailSQL.LockType:= ltOptimistic; end; MasterSQL.Open; DetailSQL.Open; ApplyButton.Visible:= BatchCB.State = cbChecked; CancelButton.Visible:= BatchCB.State = cbChecked; end; procedure TForm1.ApplyButtonClick(Sender: TObject); begin MasterSQL.UpdateBatch; DetailSQL.UpdateBatch; end; procedure TForm1.CancelButtonClick(Sender: TObject); begin MasterSQL.CancelBatch; MasterSQL.CancelBatch; end;

События ADO

События ADO предназначены для той же цели, что и события VCL. Многие из них имеют аналогичные события VCL и компоненты вызывают из событий ADO события VCL. В компонентах доступны как события ADO, так и события BDE.

⇐ Предыдущая 1 2 3 456 7 Следующая ⇒

Не нашли, что искали? Воспользуйтесь поиском:

vikidalka.ru - 2015-2024 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных