资源描述：
《多层数据库应用基于delphi datasnap方法调用的实现》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、多层数据库应用基于DelphiDataSnap方法调用的实现（二）更新数据集收藏传统的数据集的读取和更新，是通过中间层的TDataSetProvider来完成的。TDataSetProvider负责从它上游的数据集读取数据生成Data包，再传给客户端；另一方面，在客户端提交更新时（TClientDataSet.ApplyUpdates），TDataSetProvider还负责解析上传的Delta包，并最终实现数据库的更新。现在在我们当前的方法调用方式下，不能再通过TDataSetProvider.ApplyUpdates来自动完成更新了，但是，我们还可以借用TDataSetPr
2、ovider解析Delta数据包的功能，手动生成SQL语句来完成数据库的更新。手动更新看似复杂，实际上编码并不多，而且这种方式具有很大的灵活性，同时还解决了在传统方式下，多表联合查询不能完全自动更新的软肋。下面来看看示例代码：中间层代码...interfaceusesSysUtils,Classes,DSServer,DBXOracle,FMTBcd,DB,SqlExpr,WideStrings,Provider,CodeSiteLogging,DBClient;type{$METHODINFOON}TServerMethods1=class(TDataModule)SQLCo
3、nnection1:TSQLConnection;SQLDataSet1:TSQLDataSet;DataSetProvider1:TDataSetProvider;procedureDataSetProvider1BeforeUpdateRecord(Sender:TObject;SourceDS:TDataSet;DeltaDS:TCustomClientDataSet;UpdateKind:TUpdateKind;varApplied:Boolean);private{Privatedeclarations}FOnDeltaRecordUpdate:TBeforeUpda
4、teRecordEvent;procedureUpdateEmployeesDelta(Sender:TObject;SourceDS:TDataSet;DeltaDS:TCustomClientDataSet;UpdateKind:TUpdateKind;varApplied:Boolean);public{Publicdeclarations}functionGetEmployeeFullName(EmployeeId:Integer):string;functionGetEmployees:TDataSet;functionUpdateEmployees(EMPDelta
5、:OleVariant):Boolean;end;{$METHODINFOOFF}...implementation...procedureTServerMethods1.DataSetProvider1BeforeUpdateRecord(Sender:TObject;SourceDS:TDataSet;DeltaDS:TCustomClientDataSet;UpdateKind:TUpdateKind;varApplied:Boolean);beginifAssigned(FOnDeltaRecordUpdate)thenFOnDeltaRecordUpdate(Send
6、er,SourceDS,DeltaDS,UpdateKind,Applied);end;procedureTServerMethods1.UpdateEmployeesDelta(Sender:TObject;SourceDS:TDataSet;DeltaDS:TCustomClientDataSet;UpdateKind:TUpdateKind;varApplied:Boolean);varSQLStr,Clause1,Clause2:string;I:Integer;beginApplied:=False;caseUpdateKindof{$REGION'Processuk
7、Modify'}ukModify:beginwithDeltaDSdobeginforI:=0toFields.Count-1doifnotFields[I].IsNullthenClause1:=Clause1+','+Fields[I].FieldName+'=:'+Fields[I].FieldName;Clause1:=System.Copy(Clause1,2,Length(Clause1)-1);SQLStr:='UPDATEEMPLOYEESSET'+Clause1+'WHER
