Компоненты ADO в Delphi 5


         

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


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

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

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;



Содержание  Назад  Вперед





Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий