Delphi三层的事务处理方法

 

写一个远程方法 形式为: procedure trandelta(data1,data2,data3:olevariant); begin adoconnection1.begintran; datasetprovider1.as_applyupdates(data1,...);//可以用ado控件直接完成数据更新 datasetprovider1.as_applyupdates(data2,...); datasetprovider1.as_applyupdates(data3,...); if adoerrors.item.count=0 then adoconnection1.commit else begin adoconnection1.roolback; sysutls.abort; end; end; 注: 若同时更新多条记录,可参考midas的处理方式 逐条处理