三层中事务处理(100分)

服务器有两个adoquery,两个datasetprovider和一个ADO;
客户端有两个clientdateset.
请问在服务器端如何声明两个方法，一个begin
Trans，一个CommitTrans;
然后在客户端调用，此方法。谢谢了。
在好例子，代码参考。
说明我是个新手，不要见笑哦。

服務器端：function TsData.AppSetTran(TranType: Integer;
const Flag: WideString): WideString;
Var
TmpCn:TAdoConnection;
begin
if Flag='0' then
TmpCn := Cn
else
TmpCn := AccCn;
Case TranType of
0 : TmpCn.begin
Trans ;
1 : TmpCn.CommitTrans ;
2 : TmpCn.RollbackTrans ;
end;
end;
然后客戶端按相應參數進調用該函數去開始事務，提交事務，回滾事務。

補充一下：
我這里的AccCn是帳套數據庫的AdoConnection,Cn是普通數據庫的AdoConnection

客户端用的是clientdateset,我有两表同时要更新。该怎么设置，怎么样调用呢？