2,507
社区成员




try
if PubData1.Con1.InTransaction then //ADOConnection清除当前事务
PubData1.Con1.RollbackTrans;
PubData1.Con1.BeginTrans; //ADOConnection开始事务
// 开始写你的保存语句
//此时还没有真正提交到数据库
PubData1.Con1.CommitTrans; //这句才表示提交
MessageDlg('保存成功!',mtInformation,[mbOK],0);
except
on E:Exception do
begin
PubData1.Con1.RollbackTrans; //如果提交数据出错就要回滚,这句很重要
MessageDlg('数据保存失败!原因是:'+#13#10+E.Message,mtWarning,[mbOK],0); //报告出错的内容
end;
end;