可以用事务处理方式 来完成:try if not DataModule1.ADOConnection1.InTransaction then DataModule1.ADOConnection1.BeginTrans; ConfirmSP.ExecProc; HeadQuery.Edit; HeadQuery.FieldByName('BILLSTATUS').AsString := '9'; HeadQuery.Post; DataModule1.ADOConnection1.CommitTrans; ShowMessage('单据编号为:'+Edit3.Text+'信息确认成功!'); Except if DataModule1.ADOConnection1.InTransaction then DataModule1.ADOConnection1.RollbackTrans; Exception.Create('单据确认错误,操作被取消!'); end;
if not DataModule1.ADOConnection1.InTransaction then
DataModule1.ADOConnection1.BeginTrans;
ConfirmSP.ExecProc;
HeadQuery.Edit;
HeadQuery.FieldByName('BILLSTATUS').AsString := '9';
HeadQuery.Post;
DataModule1.ADOConnection1.CommitTrans;
ShowMessage('单据编号为:'+Edit3.Text+'信息确认成功!');
Except
if DataModule1.ADOConnection1.InTransaction then
DataModule1.ADOConnection1.RollbackTrans;
Exception.Create('单据确认错误,操作被取消!');
end;
请问您的这个事务放在哪个控件的什么属性中呢?
我使用的是ado连接