W
wpy020327
Unregistered / Unconfirmed
GUEST, unregistred user!
应用程序客户端事务处理是三层架构中非常棘手的问题,因为它与中间层的无状态性是矛盾的。QuickBurro V3.05版本将着力解决该问题,让QuickBurro的远程数据库处理的可靠性得到进一步的保证。目前已经基本成功,只要再进行程序优化、健壮化即可。下面是测试程序://// 事务功能测试...procedure TForm1.Button68Click(Sender: TObject);var bsql: string; ok: boolean;begin//// 创建事务... SyncBurro1.TargetDatabase:='TestDB'; SyncBurro1.BeginTrans(qbconnection1.NodeId);//// 提交事务项... SyncBurro1.FileToBlob(qbconnection1.NodeId,'c:/test.dat','Employees','Photo','EmployeeID=1'); // 任务1 SyncBurro1.FileToTable(qbconnection1.NodeId,'d:/synctest1.xml','customers',1); // 任务2 bsql:='DELETE FROM CUSTOMERS WHERE CUSTOMERID=''AABBC'''+#9 +'DELETE FROM Employees WHERE EmployeeID=0'+#9; SyncBurro1.ExecBatchSQL(qbconnection1.NodeId,bsql); // 任务3//// 提交事务... ok:=SyncBurro1.CommitTrans;//// 事务回滚... if not ok then begin SyncBurro1.RollbackTrans; memo1.lines.add('事务提交执行失败啦!所有事务项回滚喽!'); end//// 成功... else memo1.lines.add('事务提交执行成功啦!');end;