多層数据库应用基于DelphiDataSnap方法调用的实现.docVIP

多层数据库应用基于Delphi DataSnap方法调用的实现（二）更新数据集 收藏 传统的数据集的读取和更新，是通过中间层的TDataSetProvider来完成的。TDataSetProvider负责从它上游的数据集读取数据生成Data包，再传给客户端；另一方面，在客户端提交更新时（TClientDataSet.ApplyUpdates），TDataSetProvider还负责解析上传的Delta包，并最终实现数据库的更新。现在在我们当前的方法调用方式下，不能再通过TDataSetProvider.ApplyUpdates来自动完成更新了，但是，我们还可以借用TDataSetProvider解析Delta数据包的功能，手动生成SQL语句来完成数据库的更新。手动更新看似复杂，实际上编码并不多，而且这种方式具有很大的灵活性，同时还解决了在传统方式下，多表联合查询不能完全自动更新的软肋。 下面来看看示例代码： 中间层代码 ... interface uses SysUtils, Classes, DSServer, DBXOracle, FMTBcd, DB, SqlExpr, WideStrings, Provider, CodeSiteLogging, DBClient; type {$METHODINFO ON} TServerMethods1 = class(TDataModule) SQLConnection1: TSQLConnection; SQLDataSet1: TSQLDataSet; DataSetProvider1: TDataSetProvider; procedure DataSetProvider1BeforeUpdateRecord(Sender: TObject; SourceDS: TDataSet; DeltaDS: TCustomClientDataSet; UpdateKind: TUpdateKind; var Applied: Boolean); private { Private declarations } FOnDeltaRecordUpdate: TBeforeUpdateRecordEvent; procedure UpdateEmployeesDelta(Sender: TObject; SourceDS: TDataSet; DeltaDS: TCustomClientDataSet; UpdateKind: TUpdateKind; var Applied: Boolean); public { Public declarations } function GetEmployeeFullName(EmployeeId: Integer): string; function GetEmployees: TDataSet; function UpdateEmployees(EMPDelta: OleVariant): Boolean; end; {$METHODINFO OFF} ... implementation ... procedure TServerMethods1.DataSetProvider1BeforeUpdateRecord(Sender: TObject; SourceDS: TDataSet; DeltaDS: TCustomClientDataSet; UpdateKind: TUpdateKind; var Applied: Boolean); begin if Assigned(FOnDeltaRecordUpdate) then FOnDeltaRecordUpdate(Sender, SourceDS, DeltaDS, UpdateKind, Applied); end; procedure TServerMethods1.UpdateEmployeesDelta(Sender: TObject; SourceDS: TDataSet; DeltaDS: TCustomClientDataSet; UpdateKind: TUpdateKind; var Applied: Boolean); var SQLStr, Clause1, Clause2: string; I: Integer; begin Applied := False; case UpdateKind of {$REGION Process ukModify} ukM