Delphi DBExpress控制mysql事务

uses

  DBXpress;

 

implementation

  G_TD: TTransactionDesc;//mysql事务

 

procedure Tfrmwage_jijian_Add.BitBtnSaveClick(Sender: TObject);

begin

  G_TD.TransactionID:= 1;  //mysql事务ID
  G_TD.IsolationLevel:= xilREADCOMMITTED; //mysql事务级别

  try
   SQLConnection1.StartTransaction(G_TD);

   //数据库操作

   SQLConnection1.Commit(G_TD);
 
  except
   SQLConnection1.Rollback(G_TD);
  end;

end；