提交与回滚事物

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.