トランザクションを使用する
トランザクションとはデータの一貫性を保証するための機能です。トランザクションの説明はヘルプを参照して下さい。
トランザクションの機能はすべて TDatabaseのメソッドで提供されています。トランザクションを開始する StartTransactionメソッド、トランザクションを適用する
Commitメソッド、トランザクションを廃棄する Rollbackメソッドです。
また、現在、トランザクション中かどうかを InTransactionプロパティで調べることが可能です。
| ■ トランザクションを使用した例 |
procedure TForm1.Button1Click(Sender: TObject);
begin
if Not Database1.InTransaction then begin
Database1.StartTransaction; //トランザクション開始
end;
//
// なんか更新処理
//
if MessageDlg('適用しちゃう?',mtWarning,[mbYes,mbNo],0) = mrYes then
begin
Database1.Commit; //適用
end else begin
Database1.Rollback; //廃棄
end;
end;
|