Delphi 2007 下面的DBX4事务处理的方式，和以前的版本略有不同
var
TD: TDBXTransaction;
begin
if not SQLConnection.InTransaction then
begin
TD := SQLConnection.BeginTransaction(TDBXIsolations.ReadCommitted);
try
// 你的处理数据的代码
SQLConnection.CommitFreeAndNil(TD);
except
On e:Exception do
begin
SQLConnection.RollBackFreeAndNil(TD);
raise;
end;
end;
end;
end
var TD: TDBXTransaction;begin if not SQLConnection.InTransaction then begin TD := SQLConnection.BeginTransaction(TDBXIsolations.ReadCommitted); try // 你的处理数据的代码 SQLConnection.CommitFreeAndNil(TD); except On e:Exception do begin SQLConnection.RollBackFreeAndNil(TD); raise; end; end; end;end