unit U_Transaction; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls, DB, IBCustomDataSet, IBTable, IBDatabase; type TFIBTransaction = class(TForm) IBTransaction1: TIBTransaction; DataSource1: TDataSource; IBDatabase1: TIBDatabase; IBTable1: TIBTable; DBNavigator1: TDBNavigator; DBGrid1: TDBGrid; Button1: TButton; Button2: TButton; IBTable1COUNTRY: TIBStringField; IBTable1CURRENCY: TIBStringField; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var FIBTransaction: TFIBTransaction; implementation {$R *.dfm} procedure TFIBTransaction.FormCreate(Sender: TObject); begin IBDatabase1.Open; IBTransaction1.StartTransaction; IBTable1.Open; end; procedure TFIBTransaction.Button1Click(Sender: TObject); begin IBTransaction1.CommitRetaining; IBTable1.Refresh; end; procedure TFIBTransaction.Button2Click(Sender: TObject); begin IBTransaction1.RollbackRetaining; IBTable1.Refresh; end; end.
提交与回滚事物
最新推荐文章于 2023-10-18 21:17:32 发布