delphi 三层开发经验汇总

delphi很早就已经可以进行三层的开发了. 但一直到现在, 网上这方面的东西太少 了. 要么太老, 甚至不完全正确.  例如:
如何进行多表更新(提交), 很多回复还是说用ADOConnection的事务, (如果要同时更新SQL SERVER和Oracle数据库的表怎么办).
当然也有说用SetComplete, SetAbort的. 但说的很简单, 其中的注意事项又是什么呢. 还有的推荐看李维的那本分布式开发的书. 那本书中是写了很多值得学习和了解的东西. 但有些东西已经过时了或者说的不详细, 例如win2000中已经有COM+了. COM+已经整合了mts及其它一些东西了. 另个, 也有些贴子上有人说, 应用服务器上只用一个TDataSetPrivoder和一个 TDataSet(ADO, Query, DBXQuery之一)就可以了. 但具体怎么用呢?又看不到下文.
另外, 还有一些朋友在用第三方的一些控件. 我看了一下, 大多就像个嵌入到IE中的ActiveX, 感觉也没有什么意思---直接弄个ActiveX到IE中就不行了.
1. 如何只用一个TDataSetPrivoder和一个TADOQuery.
delphi的TRemoteDataModule集成了IAppServer接口.并且实现了IAppServer接口的方法:
view plaincopy to clipboardprint?
{ IAppServer } 
 function AS_GetProviderNames: OleVariant; safecall;  
 function AS_ApplyUpdates(const ProviderName: WideString; Delta: OleVariant;  
   MaxErrors: Integer; out ErrorCount: Integer;  
   var OwnerData: OleVariant): OleVariant; safecall;  
 function AS_GetRecords(const ProviderName: WideString; Count: Integer;  
   out RecsOut: Integer; Options: Integer; const CommandText: WideString;  
   var Params, OwnerData: OleVariant): OleVariant; safecall;  
 function AS_DataRequest(const ProviderName: WideString;  
   Data: OleVariant): OleVariant; safecall;  
 function AS_GetParams(const ProviderName: WideString; var OwnerData: OleVariant): OleVariant; safecall;  
 function AS_RowRequest(const ProviderName: WideString; Row: OleVariant;  
   RequestType: Integer; var OwnerData: OleVariant): OleVariant; safecall;  
&