===========================================================================

TClientDataSet用法


第十一章 TClientDataSet
　　与TTable、TQuery一样，TClientDataSet也是从TDataSet继承下来的，它通常用于多层体系结构的客户端。TClientDataSet最大的特点是它不依赖于BDE(Borland Database Engine)，但它需要一个动态链接库的支持，这个动态链接库叫DBCLIENT.DLL。在客户端，也不需要用TDatabase构件，因为客户端并不直接连接数据库。
　　由于TClientDataSet是从TDataSet继承下来的，所以，它支持诸如编辑、搜索、浏览、纠错、过滤等功能。由于TClientDataSet在内存中建立了数据的本地副本，上述操作的执行速度很快。也正是由于TClientDataSet并不直接连接数据库，因此，客户程序必须提供获取数据的机制。在Delphi 4中，TClientDataSet有三种途径获取数据：
.从文件中存取数据。
.从本地的另一个数据集中获取数据。
.通过IProvider接口从远程数据库服务器获取数据。
　　在一个客户程序中，可以同时运用上述三种机制获取数据。 
11.1 浏览和编辑数据
　　和其他数据集构件一样，可以用标准的数据控件显示由TClientDataSet引入的数据集，当然，这需要借助于TDataSource构件。
　　由于TClientDataSet是从TDataSet继承下来的，所以，凡是其他数据集构件支持的功能，TClientDataSet构件也大致具备。不同的是，TClientDataSet能够在内存中建立数据的副本，因此，TClientDataSet比其他数据集构件增加了一些特殊的功能。
11.1.1 浏览数据
　　可以用标准的数据控件显示由TClientDataSet引入的数据集。在运行期，可以调用诸如First、GotoKey、Last、Next和Prior等函数来浏览数据。
　　TClientDataSet也支持书签功能，可以用书签来标记某条记录，以后就可以方便地找到这条记录。
　　对于TTable、TQuery等数据集构件来说，只能读RecNo属性来判断当前记录的序号。对于TClientDataSet构件来说，还可以写RecNo属性，使某一序号的记录成为当前记录。
11.1.2 CanModify属性
　　TDataSet的CanModify属性用于判断数据集中的数据是否可以修改。CanModify属性本身是只读的，也就是说，数据是否能够修改不取决于应用程序。
　　不过，TClientDataSet构件有其特殊性，因为TClientDataSet已经把数据在内存中建立了副本，因此，应用程序可以决定是否允许修改数据。如果不允许用户修改数据，只要把ReadOnly属性设为True，此时，CanModify属性肯定返回False。
　　与其他数据集构件不同，修改TClientDataSet构件的ReadOnly属性时，不需要事先把Active属性设为True。
11.1.3 取消修改
　　TClientDataSet传输数据的基本单位称为数据包，当前的数据包可以由Data属性来访问。不过，用户对数据的修改并不直接反映到Data属性中，而是临时写到一个日志即Delta属性中，这样做的好处是以后随时可以取消修改。
　　不过，这里要说明一点，尽管用户的修改并没有反映到Data，当用户在数据控件中看到的却是最新修改的数据。如果一条记录被反复修改了多次，用户看到的只是最新的数据，但日志中却记载了多次。
　　要取消上一次的修改，调用UndoLastChange函数。UndoLastChange需要传递一个布尔类型的参数叫FollowChange，如果FollowChange参数设为True，光标就移到被恢复的记录上，如果FollowChange参数设为False，光标仍然在当前记录上。
　　ChangeCount属性返回日志中记载的修改次数。如果一条记录被反复修改了多次，每调用一次UndoLastChange能够逐级取消上一次的修改。
　　UndoLastChange只能取消上一次的修改，如果想一下子取消所有的修改，首先要选择一个记录，然后调用RevertRecord。RevertRecord将从日志中取消所有对当前记录的修改。
　　TClientDataSet还有一个SavePoint属性，它能把当前的编辑状态保存起来，以后随时可以返回当时的状态。例如，可以这样保存当前的状态：
　　BeforeChanges := ClientDataSet1.SavePoint;
　　以后，可以这样来恢复当时的状态：
　　ClientDataSet1.SavePoint := BeforeChanges;
　　应用程序可以保存多处状态，可以恢复其中一个状态，不过，一旦某个状态被恢复，在其之后的状态就无效。
　　如果要一下子取消日志中记载的所有修改，可以调用CancelUpdates函数。CancelUpdates将把日志清空，取消所有的修改。
　　如果LogChanges属性设为False，用户对数据的修改就会直接反映到Data属性中。 
11.1.4 合并修改
　　要把日志中记载的修改合并到Data属性中，有两种方式，具体使用哪一种方式，取决于应用程序获取数据的机制。不过，不管是哪种机制，合并后，日志自动被清空。
　　对于一个从文件中获取数据的程序来说，只要调用MergeChangeLog函数，就把日志中记载的修改合并到Data属性中。不用担心其他用户同时修改了数据。
　　对于一个从应用服务器获取数据的程序来说，就不能调用MergeChangeLog来合并数据，而要调用ApplyUpdates函数，ApplyUpdates会把日志中记载的修改传递给应用服务器，待应用服务器成功地把数据更新了数据库服务器后，才会合并到Data属性中。
11.1.5 纠错
　　TClientDataSet支持纠错功能。一般情况下，需要自己建立纠错规则，以便对用户输入的数据进行纠错。
　　此外，如果获得了IProvider接口的话，还可以从远程服务器引入纠错规则。
　　有时候，客户端可能需要暂时禁止纠错，因为客户端从应用服务器检索数据是分阶段进行的，在所有的数据检索完毕之前，有些纠错规则很可能会报错。 
要暂时禁止纠错，可以调用DisableConstraints，要重新允许纠错，可以调用EnableConstraints函数。DisableConstraints和EnableConstraints实际上都是作用于一个内部的计数。
11.2 索 引
　　使用索引有这么几个好处：
.在数据集中定位记录比较快。
.能够在两个数据集之间建立Lookup或Master/Detail关系。
.可以对记录排序。
　　在多层体系结构中，当客户程序从应用服务器检索数据时，它同时获得了默认的索引。默认的索引叫DEFAULT_ORDER，可以使用这个索引排序，但不能修改或删除这个索引。
　　除了默认的索引外，TClientDataSet还对日志中记载的记录自动建立了一个副索引叫CHANGEINDEX。与DEFAULT_ORDER一样，不能修改或删除这个副索引。
　　另外，还可以使用数据集中已建立的其他索引，或者自己建立索引。
11.2.1 创建一个新的索引
　　要创建一个新的索引，可以调用AddIndex。AddIndex需要传递若干个参数：
　　一是Name参数，用于指定索引名。在运行期切换索引时需要用到索引的名称。
　　二是Fields参数，它是一个字符串，用于指定索引中的字段名，彼此之间用分号隔开。
　　三是Options参数，用于设置索引的选项，包含ixDescending元素表示按降序排列，包含ixCaseInsensitive元素表示大小写不敏感。
　　四是DescFields参数，它也是一个字符串，用于指定若干个字段名，这些字段将按照降序排列。
　　五是CaseInsFields参数，它的作用与DescFields参数类似，包含在CaseInsFields参数中的字段将对大小写不敏感。
　　六是GroupingLevel参数，用于指定分组级别，其值不能超过索引中的字段数。
　 下面的代码创建了一个索引：
If Edit1.Text <> /'/' and ClientDataSet1.Fields.FindField(Edit1.Text) then
Begin
ClientDataSet1.AddIndex(Edit1.Text+/'Index/',Edit1.Text, 　
　 [ixCaseInsensitive],/'/',/'/',0);
ClientDataSet1.IndexName := Edit1.Text + /'Index/';
End;
为了避免创建一个索引，可以临时用IndexFieldNames属性来指定若干个字段，让数据集按这些字段排序。
11.2.2 删除和切换索引
　　要删除一个先前创建的索引，可以调用DeleteIndex并指定要删除的索引名称。注意：DEFAULT_ORDER和CHANGEINDEX不能删除。
　　如果建立了多个索引，可以任意选择其中的一个索引，这就要用到IndexName属性。
11.2.3 用索引把数据分组
　　选择了一个索引后，数据集将自动按其中的字段进行排序。这样，临近的记录往往在关键字段上含有相同的值。例如，假设有一个表是这样的：
SalesRep　Customer　OrderNo　Amount
1　　　　　　1 　　　　5 　　　100
1　　　　　　1　　　　 2　　　 50
1　　　　　　2　　　　 3 　　　200
1 　　　 　　2　　　 　6　　 　75
2　　　　　　1　　　 　1　　 　10
2　　　　　　3　　　 　4　　 　200
　　可以看出，SalesRep字段的值有重复的。对于SalesRep字段的值为1的来说，Customer字段的值也有重复的。这就是说，可以按SalesRep字段分组，进而再按Customer字段分组。显然，这里的分组级别是不同的，按SalesRep字段建立的分组属于第一级，按Customer字段建立的分组属于第二级。实际上，分组级别取决于字段在索引中的顺序。
　　TClientDataSet可以决定是否按照分组级别来显示记录的值。例如，也许想以下面这种形式显示数据：
SalesRep　Customer　OrderNo　Amount
1　　　　　　1　　　　5　　　　100
　　　　　　　　　　　2　　　　50
　　　　　　 2　　　　3　　　　200
　　　　　　　　　　　6　　　　75
2　　　　　　1　　　　1　　　　10
2　　　　　　3　　　　4　　　　200
　　要判断当前记录某一级的什么位置，可以调用GetGroupState函数。GetGroupState函数需要传递一个参数，用于指定分组级别。
11.3 计 算 字 段
　　与其他数据集一样，也可以在TClientDataSet建立的数据集中增加计算字段。计算字段的值是基于同一个记录中的其他字段计算出来的。
　　在其他数据集中，只要用户修改了数据或当前记录发生改变，就会触发OnCalcFields事件，换句话说，计算字段的值就被计算一次。
　　TClientDataSet引入了“内部计算字段”的概念。与一般的计算字段不同的是，内部计算字段的值将随其他字段的值一起存取，这样，只有当用户修改了数据才会触发OnCalcFields事件，如果仅仅改变了当前记录，不会触发OnCalcFields事件。也就是说，内部计算字段的值需要重新计算的机会大大减少。
　　在处理OnCalcFields事件的句柄中，首先要判断State属性。如果State属性返回dsInternalCalc，此时需要计算内部计算字段的值。如果State属性返回dsCalcFields，此时需要计算一般的计算字段的值。
11.4 统 计 值
　　TClientDataSet增加了统计的功能，它可以基于分组自动计算总和、平均、计数、最大、最小值。当用户编辑数据时，这些统计值会自动跟着变化。
11.4.1 指定统计方式
　　要指定怎样进行统计，就要用到Aggregates属性。这个属性是一个TAggregates对象，它用于管理一组TAggregate对象。
　　在设计期，可以单击Aggregates属性边上的省略号按钮打开如图11.1所示
的编辑器。
　　图11.1 管理一组TAggregate对象
　　单击按钮可以增加一个TAggregate对象，单击按钮可以删减一个TAggregate对象，单击按钮可以把TAggregate对象前移，单击按钮可以把TAggregate对象后移。
　　可以用字段编辑器专门创建一个用于表达统计值的字段，该字段的类型必须是“Aggregate”。Delphi 4会自动创建一个TAggregate对象，并加到Aggregates属性中。选择一个TAggregate对象，Object Inpector将显示该对象的属性。
　　其中，Expression属性用于指定统计表达式，例如：
Sum(Field1)
　　也可以是比较复杂的表达式：
Sum(Qty * Price) - Sum(AmountPaid)
　　在表达式中，可以使用下列统计运算符：
.Sum计算一组数据的总和。
.Avg计算一组数据的平均值。
.Count计算一组数据中的非空值的个数。
.Min计算一组数据的最小值。
.Max计算一组数据的最大值。
　　除了上述几个统计运算符外，还可以使用过滤条件中所能使用的运算符，但不能嵌套。在一个表达式中，可以混合出现几个统计值或常量，但不能混合出现统计值和字段。
　　Sum(Qty * Price){合法}
　　Max(Field1) - Max(Field2){合法}
　　Avg(DiscountRate) * 100{合法}
　　Min(Sum(Field1)){非法，不能嵌套}
　　Count(Field1) - Field2{非法，统计值和字段不能混合出现在一个表达式中}
11.4.2 指定分组
　　默认情况下，统计值是基于数据集中所有的记录计算出来的。不过，也可以针对一部分记录计算统计值，这就需要事先建立分组。
　　前面在介绍索引时已经提到分组的概念。可以通过IndexName属性和GroupingLevel属性来选择使用哪个索引以及最大的分组级别。
　　例如，假设有一个表是这样的：
SalesRep　Customer　OrderNo　Amount
1　　　　　　1 　　　　5 　　　100
1　　　　　　1　　　　 2　　　 50
1　　　　　　2　　　　 3 　　　200
1 　　　 　　2　　　 　6　　 　75
2　　　　　　1　　　 　1　　 　10
2　　　　　　3　　　 　4　　 　200
　　如果要按SalesRep字段分组，并且指定其中的第一级，程序代码应当这样写：
Agg.Expression := /'Sum(Amount)/';
Agg.IndexName := /'SalesCust/';
Agg.GroupingLevel := 1;
Agg.AggregateName := /'Total for Rep/';
11.4.3 怎样获取统计值
　　要获取统计值，可以调用TAggregate对象的Value函数。如果统计值是基于数据集中所有的记录计算出来的，随时可以调用Value函数。如果统计值是基于分组计算出来的，必须保证当前记录正好位于该分组内。因此，在调用Value之前，最好先调用GetGroupState函数看看当前记录是否位于该分组内。
　　要在数据控件中显示统计值，必须事先在字段编辑器中创建一个永久字段对象，该字段的类型必须是Aggregate。
11.5 数 据 包
　　通过Data属性可以访问客户程序从应用服务器检索到的数据。程序示例如下：
Procedure TForm1.Button1Click(Sender: TObject);
Begin
ClientDataSet1.Data := ClientDataSet1.Provider.DataRequest(FilterEdit.Text);
End;
11.5.1 直接对Data属性赋值
　　前面讲过，客户程序既可以通过IProvider接口获取数据，也可以从另一个数据集获取数据，后者就是通过Data属性赋值的。程序示例如下：
　　ClientDataSet1.Data := ClientDataSet2.Data;
　　一旦Data被赋值，就可以用标准的数据控件显示这些数据。
　　注意：当从另一个数据集获取数据时，另一个数据集的日志也将被复制过来，但不包括原来的范围和过滤条件。
　　如果要从另一个基于BDE的数据集中获取数据，可以通过数据集构件的Provider属性，程序示例如下：
　　ClientDataSet1.Data := Table1.Provider.Data;
　　如果要从一个自定义的数据集获取数据，首先要创建一个临时的TProvider构件，然后设置其DataSet属性指定这个自定义的数据集。程序示例如下：
TempProvider := TDataSetProvider.Create(Form1);
TempProvider.DataSet := SourceDataSet;
ClientDataSet1.Data := TempProvider.Data;
TempProvider.Free;
11.5.2 在数据包中加入自定义的信息
　　可以把自定义的信息加到数据包中。当把数据保存到文件或流中时，这些自定义的信息也将保存到文件或流中。如果把数据包直接赋值给另一个数据集的话，这些自定义的信息也将被复制。
　　要把自定义的信息加到数据包中，可以调用SetOptionalParam函数。要从数据包中检索自定义的信息，可以调用GetOptionalParam。程序示例如下：
Procedure TAppServer.Provider1UpdateData(Sender: TObject; DataSet: TClientDataSet); 
var
WhenProvided: TDateTime;
Begin
WhenProvided := DataSet.GetOptionalParam(/'TimeProvided/');
...
End;
11.5.3 克隆另一个数据集
　　调用TClientDataSet的CloneCursor函数可以获得一个数据集的完全相同的副本。它与直接通过Data属性赋值是有区别的。
　　区别之一：数据在两个数据集之间是共享的，修改其中一个将同时修改另一个。
　　区别之二：除了数据外，CloneCursor函数还复制了一些属性和事件，这取决于Reset和KeepSettings参数怎样设置。
　　　CloneCursor函数需要传递三个参数，其中，Source参数指定源数据集，Reset参数和KeepSettings参数用于设置除了数据外是否还要复制下列属性和事件：Filter、Filtered、FilterOptions、OnFilterRecord、IndexName、MasterSource、MasterFields、ReadOnly、RemoteServer、ProviderName、Provider。
　　如果Reset和KeepSettings参数都设为False，源数据集的上述属性和事件都将被复制给目标数据集。如果Reset参数设为True，目标数据集的上述属性和事件都将被清空。如果Reset参数设为False，而KeepSettings参数设为True，目标数据集的上述属性和事件不变，不过，必须保证这些属性和事件与克隆后的数据相容。
11.6 与应用服务器通讯
　　在多层体系结构中，客户程序通过IProvider接口与应用服务器交换数据。这一章介绍怎样在客户端获得IProvider接口、怎样向应用服务器传递参数、怎样向应用服务器请求数据、怎样把用户对数据的修改写到数据库中。
11.6.1 怎样在客户端获得IProvider接口
　　在单层应用程序以及工作在“公文包”模式下的多层应用程序中，不需要用到IProvider接口。而在多层体系结构中，客户程序要与应用服务器交换数据，首先必须获得IProvider接口，这就要用到RemoteServer属性和ProviderName属性。
　　RemoteServer属性用于指定客户端的MIDAS连接构件。MIDAS连接构件又称Data Broker，用于建立和维护与应用服务器的连接。
　　在设计期，正确设置了RemoteServer属性后，就可以在对象观察器中为ProviderName属性选择一个值，实际上就是选择应用服务器上的一个TProvider构件。
11.6.2 向应用服务器传递参数
　　客户程序可以向应用服务器传递参数，这些参数实际上是传递给应用服务器上的TQuery构件或TStoredProc构件。既可以在设计期也可以在运行期设置参数。
　　在设计期，可以单击Params属性边上的省略号按钮，打开一个如图11.2所示的编辑器。
　　图11.2 设置参数
　　单击按钮可以增加一个参数，单击按钮可以删减一个参数，单击按钮可以把一个参数前移，单击按钮可以把一个参数后移。
　　选择一个参数，对象观察器将显示该参数(TParam对象)的属性。
　　在运行期可以调用TParams的CreateParam函数来创建一个参数。例如，下面的代码创建了一个参数叫CustNo，它的使用类型是ptInput，数据类型是ftInteger，它的值设为605。
With ClientDataSet1.Params.CreateParam(ftInteger, /'CustNo/', ptInput) Do
AsInteger := 605;
　　设置好参数以后，如果TClientDataset的Active属性是False，只要把Active属性设为True，这些参数将被自动传递给应用服务器。如果Active属性已经为True，就要调用SendParams函数把参数传递给应用服务器。
　　注意：传递给应用服务器的参数必须与TQuery构件或TStoredProc构件的参数匹配，包括名称、数据类型和参数类型。
11.6.3 怎样向应用服务器请求数据
　　TClientDataSet提供了两个属性和三个方法，用于怎样向应用服务器请求数据：
　　一是FetchOnDemand属性。如果这个属性设为True，TClientDataSet会根据需要自动检索附加的数据包，例如BLOB字段的值或者嵌套表的内容。如果这个属性设为False，程序需要显式地调用GetNextPacket才能获得这些附加的数据包。
　　二是PacketRecords属性，用于设置一个数据包中最多可容纳的记录数，设为-1表示一个数据包可以容纳数据集的所有记录。
　　三是GetNextPacket函数，用于向应用服务器检索下一个数据包，并把检索到的数据包添加到前一次检索到的数据包的后面。这个函数返回实际检索到的记录数。
　　四是FetchBlobs过程，用于从应用服务器检索BLOB字段的值。如果FetchOnDemand属性设为True，就没必要调用FetchBlobs函数。
　　五是FetchDetails过程，用于检索嵌套表中的数据。如果FetchOnDemand属性设为True，就没必要调用FetchDetails函数。
11.6.4 更新数据库
　　在多层体系结构中，用户在客户端修改了数据后，需要把最新的数据写到数据库中，这就要调用TClientDataSet的ApplyUpdates函数。
　　ApplyUpdates只需要传递一个参数叫MaxErrors，用于指定一个整数，当遇到无法更新的记录超过这个数时，此次更新就中止。如果MaxErrors参数设为0，表示只要遇到一个错误更新就中止，客户端的日志保持不变。如果MaxErrors参数设为-1，当应用服务器发现有错误的记录，就尝试更新下一个记录，等所有的记录都尝试过以后才返回。
　　ApplyUpdates会自动调用Reconcile函数，进而调用应用服务器上的TProvider构件的ApplyUpdates函数去更新远程的数据库服务器。没有被DBMS服务器认可的记录通过Reconcile返回给客户端，此时将在客户端触发OnReconcileError事件让您更正错误。最后，ApplyUpdates函数返回仍然没有被认可的记录数。
11.7 在文件中存取数据
　　要从文件中读取数据，可以调用LoadFromFile函数。LoadFromFile函数需要传递一个参数，用于指定文件名。文件名应包含完整的路径。如果客户程序总是从一个固定的文件中读取数据，可以设置FileName属性指定一个文件名，以后，当TClientDataSet引入的数据集打开时，就自动从这个文件中读取数据，不需要调用LoadFromFile。
　　要从流中读取数据，可以调用LoadFromStream。LoadFromStream需要传递一个参数，用于指定一个流对象。
　　注意：LoadFromFile(LoadFromStream)只能从先前用SaveToFile(SaveToStream)保存的文件中读取数据。
　　要把数据保存到文件中，可以调用SaveToFile函数。SaveToFile需要传递一个参数，用于指定文件名。如果指定的文件已存在，文件中的数据将被覆盖。如果客户程序总是把数据保存到一个固定的文件中，可以设置FileName属性指定一个文件名，当TClientDataSet引入的数据集关闭时，就自动把数据保存到这个文件中，不需要调用SaveToFile。
　　要把数据保存到流中，可以调用SaveToStream。SaveToStream需要传递一个参数，指定一个流对象。
　　注意：当把数据保存到文件或流中时，日志中记载的修改仍然保留。这样，当下次调用LoadFromFile或LoadFromStream读取数据时，仍然可以恢复原来的数据 


--------------------------------------------------------------------------------
 
--  作者：gzkhrh
--  发布时间：2005-7-29 8:42:46


--  


我们也跟着学学


==============


Delphi做为一个快速应用开发工具，深受程序员的喜爱。其强大的组件功能，让程序员能够轻松、高效地完成常见的界面开发、数据库应用等功能。然而，帮助的相对缺乏，使得许多组件的功能并不为人们正确地使用，究其原因，仍然是认识上的问题。对于MIDAS开发中的核心部件，TClientDataSet和TDataSetProvider，由于资料的缺乏，人们在网上大多谈论的是李维的书籍内容。我有幸在BDN上见到了Cary Jensen的Professional Developer系列文章，详细阐述了DELPHI的数据库开发技术。现节选出其中的ClientDataSet部分，与大家共同分享。 


ClientDataSet是一个功能强大的类，通过在内存中模拟表格，实现了其它数据集组件所不具备的强大功能。以往只在Delphi和C++ Builder企业版中才提供这个组件，如今，Borland的全部产品（包括最新的Kylix）都集成了TClientDataSet组件。 


TClientDataSet从类的继承关系上来看，是TDataSet这个抽象类的子类，所以我们可以在TDataSet这个抽象层次上对其进行我们熟悉的操作，比如导航、排序、过滤、编辑。要注意的是，TClientDataSet使用了一种全新的技术，它将所有的数据均放在内存中，所以TClientDataSet是个只存在内存中的“虚拟表”，因此对数据库的操作是非常快的。在PIII 850，512MB的机器上对十万条记录进行建索引的操作，花费的时间少于半分钟。 


与一般的数据集组件不同，TClientDataSet使用的技术比较特别，本着高速度、低存储需求的原则，TClientDataSet的内部使用了两个数据存储源。第一个是其Data属性，这是当前内存数据的视图，反映了所有的数据改变。如果用户从数据中删除一条记录，则此记录将从Data中消失，相应地，加入一条新记录后，此记录便存在Data属性中了。 


另一个数据源是Delta属性，故名思义，即增量的意思，这个属性反映了对数据的改变。无论是向Data属性新增还是删除记录，都会在Delta中记录下来，如果是修改了Data中的记录，则会在Delta保存两条相应的记录，一条是原始记录，另一条仅包含修改的字段值。正因为Delta的存在和TClientDataSet在内存中记录数据的特点，所有的改变都没有立即更新加对应的物理存储中，可以根据这些信息在适当的时候恢复，所以TClientDataSet天生具有缓冲更新功能。 


为了使数据更新回数据存储源，我们要调用TClientDataSet中对应的方法。如果ClientDataSet与DataSetProvider关联，那么仅需调用TClientDataSet的ApplyUpdates方法即可保存数据的更新，但如果TClientDataSet没有对应的TDataSetProvider存在，而是直接同文件关联，那么，这种方式是非常有趣的，我们在BriefCase模型中会再次讲解这个问题。此时，如果使用TClientDataSet的SaveToFile和LoadFromFile，都会保留着Delta。调用MergeChangeLog和ClearChanges后，Delta的内容才会被 
清空。只是前者是将Delta的数据同Data结合起来，将改变存储到物理介质上，而ClearChanges则是一股脑儿全部清空，将数据回复到原始状态。大部分的应用都是将TClientDataSet与TDataSetProvider结合使用的。两者联合使用的行为反映了Borland的设计宗旨，就是要提供一个面向分布式环境的思路。我们下面来慢慢解释。 


当我们将TClientDataSet对象的Active属性设为True或者调用其Open方法后，ClientDataSet会向DataSetProvider发送一个取数据包请求。于是DataSetProvider便会打开对应的数据集，将记录指针指向第一条记录，然后从头到尾依次扫描。对于扫描到的每一条记录，都会将其编码成一个variant数组，我们通常将它称之为数据包。完成扫描后，DataSetProvider会关闭指向的数据集，并将所有的这些数据包传递给ClientDataSet。在我提供的演示程序中，你可以清楚地看到这种行为（毕竟眼见为实吗！）。程序主界面右边的DBGrid连接到一个指向数据库表的数据源，DataSetProvider即指向此表。当选择了ClientDataSet | Load菜单项时，你可以看到表格的数据被依次扫描，一旦到达最后一条记录，表格便会被关闭，右边的DBGrid被清空，而左边反映ClientDataSet数据的DBGrid便出显示出内存中的数据来。由于这个过程会在DBGrid上反映出来，所以不到1000条记录的取出时间中，大部分都浪费在屏幕的更新显示上了，你可以选择ClientDataSet | View Table Loading来禁止显示，而达到加速的目的。 


在上面的描述中，我们没有提到一个重要的环节，即数据包是如何还原成表格的。那是因为DataSetProvider会将数据包中的元数据解码出来，根据元数据（我们可以理解为数据表的结构）便可以构造出与物理数据表一模一样的内存虚拟表。但要注意的是，尽管DataSetProvider指向的数据表可能有多个索引，但这些信息是不会放在数据包中的，换句话说，ClientDataSet当中的数据默认情况下是无索引的。但因为ClientDataSet具有与TDataSet一致的行为，所以我们可以在此基础上根据需要重建索引。 


在ClientDataSet中的数据被修改后，可以提交给物理数据表持久化这此改变。这个工作便是由DataSetProvider完成的。内部工作原理是：DataSetProvider创建一个TSQLResolver的实例，这个实例会生成要在底层数据上执行更改的SQL语句。详细地说，就是对修改日志中的每一条被删除、插入、更改记录生成对应的SQL语句。这个语句的生成也可以由用户控制，DataSetProvider的UpdateMode属性和ClientDataSet中的ProviderFlags属性都对SQL语句的生成有影响。 


当然，你也可以换一种方式，即采取同单机或C/S结构一样的数据直接操作机制，绕过SQL语句和缓冲更新机制来修改数据库。只需将ResolveToDataSet属性设为True，那么DataSetProvider在持久化更新时便不会使用TSQLResolve，而是直接修改物理数据源。即定位到要删除的记录，调用删除语句，定位到修改记录，调用修改语句。我们可以对演示程序稍加修改，观察此种行为。请将演示程序中的DataSetProvider的ResolveToDataSet属性由False改为True，运行。在界面中修改数据并且保存，你将会看到右边的导航按钮会在瞬间变得可用。 


更绝妙的是，Borland考虑到了应用的多样性，为我们提供了BeforeUpdateRecord事件，这样，当DataSetProvider对每个修改日志的记录进行操作时，都会触发此事件，我们可以在此事件中加入自己的处理，如“加密操作”、“商业敏感数据处理”等应用，从而极大地方便了程序员，让程序员对于数据具有完全的控制能力。分布式环境的复杂性对数据的存取提出了更高的要求，所以使用事务来保证数据的完整性和一致性是非常必要的，Borland考虑到了这一点，当调用ClientDataSet的ApplyUpdates时，你可以传递一个整数值来指明可以容忍的错误数量。如果你的数据非常严格，则可以传递0值，这样，DataSetProvider在应用修改时便会打开一个事务，如果遇到错误，便会回退此事务，修改日志将保持原样，并且将出错的记录标记出来，最后会触发OnReconcileError事件。如果传递了一个大于0的数，则当出现的错误数量小于此指定值时，事务会被提交，发生错误而导致提交失败的记录会保留在Delta中，而提交成功的记录会从修改日志中删除。若错误数量达到指定值，则事务会回退，结果同整数值为0的情况。如果值为负数，则会交所以可提交的数据都提交，不可提交的数据仍然保存在修改日志中，并将出错记录标记出来。 


虽然，Borland是为了满足分布式编程的需要而设计了TClientDataSet，但在其它类型的编程环境中使用ClientDataSet也具有积极的意义。首先，我们可以看到，由于数据均在内存中进行操作，而且仅在打开数据库取数据时和将修改持久到回数据库时，才有数据库开销，其它时间数据库为零，这样就极大地增加了数据库的负荷，让数据库服务器能满足更多用户的连接请求。其次，ClientDataSet具有其它数据集所不具备的许多高级功能，这为程序员进行复杂的编程提供了便利，可以不考虑数据库本身是否支持这此功能，而让ClientDataSet去处理这些复杂而繁琐的细节。最后，ClientDataSet在数据存储和应用程序间起到一个抽象层的作用。假如你的程序使用了TClientDataSet，那么如果你以后要更改数据库存储机制。比如说由BDE移植到dbExpress，或者从ADO移植到Interbase Express，你的用户界面和数据控制部分几乎就不用改变，只需要将DataSetProvider指向新的数据存取组件即可。顺便说一句，由于缓冲更新的存在，用户可能非常厌恶调用ApplyUpdates操作，那么你可以将此调用放入AfterPost和AfterDelte中，让用户的操作更方便。


第三章 创建多层应用程序
　　一个多层的Client/Server应用程序在逻辑上划分为几个部分，分别在不同的机器上运行，这些机器既可以在一个局域网内，也可以在Internet上。多层体系结构最大的优势可以概括为两点，一是集中化的商业逻辑，另一个是客户程序可以做得很“瘦”。
　　目前较常见的是三层的体系结构，其中，最关键的是应用服务器，它在三层体系结构中起了承上启下的作用，所以，应用服务器又叫Data Broker。Delphi4可以创建应用服务器，也可以创建“瘦”客户。如果不怕麻烦的话，也可以创建数据库后端。
　　在更复杂的多层体系结构中，“瘦”客户与远程服务器之间可以加入更多的服务中间件，例如，可以加入一个安全服务中间件，或者加入一个转换中间件，专门用来处理不同平台共享数据的问题。一旦您真正理解了三层的体系结构，多层的体系结构就迎刃而解。
3.1 多层体系结构的概述
　　Delphi 4对多层体系结构的支持主要得益于它的MIDAS技术。MIDAS是Multi-tier Distributed Application Services Suite的简称。MIDAS技术与Delphi 4中的另一个关键技术DAX配合起来使用，可以使多层的体系结构分布在Intrenet/Intranet上。
3.1.1 多层体系结构的优势
　　在多层体系结构中，由于服务器集中实现了应用逻辑(又称商业规则)，客户程序可以把重点放在显示数据和与用户交互上，客户程序甚至都不需要知道数据存储在哪儿。
　　具体来说，多层的体系结构具有如下优势：
　　在一个共享的中间层封装了商业规则。不同的客户程序可以共享同一个中间层，而不必由每个客户程序单独实现商业规则。
　　客户程序可以做得很“瘦”。因为很多复杂的工作由应用服务器代劳了，客户程序只需要关注用户界面本身。“瘦”客户程序更容易发布、安装、配置和维护。
　　实现了分布式数据处理。把一个应用程序分布在几个机器上运行，可以提高应用程序的性能，通过冗余配置还可以保证不会因为局部故障导致整个应用程序崩溃。
　　有利于安全。可以把一些敏感的功能放在有严密防护措施的层上，同时又不至于使用户界面变得复杂。Delphi 4中的CORBA或MTS支持较复杂的安全机制。
3.1.2 MIDAS技术
　　MIDAS技术是多层体系结构的关键。无论是应用服务器端还是客户端，MIDAS技术需要有DBCLIENT.DLL的支持，这个动态链接库用于管理数据包。发布MIDAS应用程序时需要购买服务器许可。
　　基于MIDAS的多层应用程序需要用到一些特殊的构件，这些构件分为四大种类：对象库中的远程数据模块。远程数据模块与普通的数据模块有些相似，不同的是，远程数据模块可以作为COM服务器或CORBA服务器让客户程序访问它的接口。
　　TDataSetProvider和TProvider构件。这两个构件用在应用服务器端，主要作用是提供IProvider接口，客户程序通过IProvider接口获得数据和更新数据集。
　　TClientDataSet构件。这是一个从TDataset继承下来的但不需要BDE的构件。MIDAS连接构件。包括TDCOMConnection、TSocketConnection、TCorbaConnection TOLEnterpriseConnection、TMIDASConnection和TRemoteServer。其中，TMIDASConnection和TRemoteServer是为了兼容Delphi3的代码而保留的。MIDAS连接构件的作用是为客户程序定位服务器和IProvider接口。每个MIDAS连接构件都以一种特定的通讯协议工作。
3.1.3 MIDAS应用程序是怎样工作的
　　用户首先要启动客户程序，客户程序将试图连接应用服务器，如果应用服务器还没有运行，客户程序将激活应用服务器，并从中获得IProvider接口。
　　客户程序向应用服务器请求数据。如果TClientDataSet的FetchOnDemand属性设为True，客户程序会根据需要自动检索附加的数据包如BLOB字段的值或嵌套表的内容。否则，客户程序需要显式地调用GetNextPacket才能获得这些附加的数据包。
　　应用服务器收到客户程序的请求后，就从远程数据库服务器那儿检索数据，并打包返回给客户程序
　　客户程序收到数据包后把包打开，然后显示或进行处理。
　　用户对数据进行编辑修改，然后向应用服务器申请更新数据，实际上也要打包。
　　应用服务器收到客户程序的申请后，就向远程数据库服务器申请更新数据。如果出错，应用服务器就把出错的记录返回给客户程序去核对。
　　客户程序核对并修改了数据后，既可以放弃此次更新，也可以继续此次更新。
3.1.4 客户程序的结构
　　对于最终用户来说，多层体系结构中的客户程序与两层体系结构中的应用程序没有什么区别，在结构上，客户程序就好像一个基于文件的单层应用程序一样，仍然通过标准的数据控件与用户交互。但与单层应用程序不同的是，多层体系结构中的客户程序是通过应用服务器提供的IProvider接口获得数据的，也通过IProvider接口申请更新数据。
　　注意：当使用MTS的时候，可以选择不使用IProvider接口。不使用IProvider接口的好处是，可以充分发挥MTS在处理事务方面的特长。
　　在客户程序中，MIDAS连接构件扮演着极其重要的角色。不同的MIDAS连接构件使用不同的通讯协议：
. TDCOMConnection　DCOM
. TSocketConnection　Windows Sockets (TCP/IP)l
. TOLEnterpriseConnection　OLEnterprise (RPCs)
. TCorbaConnection　CORBA (IIOP)
　　TRemoteServer和TMIDASConnection是为了兼容Delphi 3的代码而保留的。
3.1.5 应用服务器的结构
　　应用服务器的关键部件是远程数据模块，它提供了IDataBroker接口。当客户程序与应用服务器建立了连接，就通过IDataBroker接口来获得IProvider接口。
　　Delphi 4支持三种类型的远程数据模块：
　　TremoteDataModule。这是一个支持双重接口的自动化服务器，这种类型的远程数据模块适合于使用DCOM、TCP/IP或OLEnterprise方式。
　　TMTSDataModule。这也是一个支持双重接口的自动化服务器，用这种类型的远程数据模块创建的应用服务器是Active Library即动态链接库，适合于使用DCOM、TCP/IP或OLEnterprise方式。
　　TcorbaDataModule。这是CORBA服务器，适用于与CORBA客户通讯。
　　上述三种远程数据模块都可以作为容器，但只能放置非可视的构件。另外，远程数据模块上一般要放一个或几个TDataSetProvider或TProvider构件来提供IProvider接口 。
　　远程数据模块上也可以放TDatabase构件和TSession构件。
3.1.6 MTS
　　MTS是Microsoft Transaction Server的简称，是Microsoft为分布式环境下进行事务处理所设计的服务接口。使用TMTSDataModule类型的远程数据模块的优势是：
　　MTS为应用服务器提供了基于角色的安全机制。每个客户都扮演着一种角色，决定了他们能否访问远程数据模块的接口。TMTSDataModule有一个函数叫IsCallerInRole，可以用来检查客户的角色，然后有条件地开放该角色所允许的功能。
　　MTS提供了缓冲池的功能，它能把与数据库的连接放到池中，当一个客户不再需要连接时，另一个客户可以继续使用它，这样，应用服务器不必再次登录到远程数据库服务器。可能有的读者会想到，这个功能非常类似于TDatabase构件的KeepConnection属性。不过，要注意的是，如果用了TDatabase构件的话，KeepConnection属性最好设为False。
　　MTS提供了强大的事务处理能力，它的“两阶段提交”技术使得应用程序能够跨服务器处理事务。
　　可以用TMTSDataModule类型的远程数据模块实现一个MTS服务器，这个MTS服务器能够根据需要自动地激活或相反，换句话说，只有当远程数据模块接收到客户的连接请求时才创建模块的一个实例，这样能够最大程度地节省资源。
　　由此可见，MTS服务器可以有两种工作方式，一是单实例方式，一个实例能够处理多个客户的请求，不过，如果客户较多的话，远程数据模块就成了瓶颈，制约着应用服务器的性能。二是多实例方式，每个客户请求连接时都会创建远程数据模块的一个实例，这样，几个客户就可以同时访问数据库而不需要排队。
　　为了发挥MTS的上述优势，远程数据模块的实例必须做到与状态无关，而IProvider接口又依赖于状态信息，这就造成冲突。因此，TMTSDataModule类型的远程数据模块往往不用IProvider接口，而是自己创建一个接口来传递数据和申请更新。
　　注意：使用MTS的时候，在远程数据模块的实例激活之前不能连接数据库。
3.1.7 IDataBroker接口和IProvider接口
　　应用服务器上的远程数据模块支持IDataBroker接口，当客户程序与应用服务器连接以后，客户程序上的MIDAS连接构件就查找IDataBroker接口。
　　IDataBroker接口只实现了一个方法叫GetProviderNames，调用这个方法可以获得一个列表，这个列表列出了应用服务器上的TDataSetProvider和TProvider构件。
　　TClientDataSet的ProviderName属性可以指定其中一个TDataSetProvider或TProvider构件。当客户程序通过IDataBroker接口的GetProviderNames以及TClientDataSet的ProviderName属性指定了应用服务器上的一个TDataSetProvider或TProvider构件后，只要客户还在引用IProvider接口，远程数据模块的状态就应该保持，这与MTS的许多特点是有冲突的，也会与单实例的CORBA服务器发生冲突。
　　客户程序与应用服务器之间通过IProvider接口交换数据，不过，大部分客户程序并不直接使用IProvider接口，而是通过TClientDataSet的属性和方法间接地使用IProvider接口。 不过，也可以通过Provider属性获得IProvider接口，然后直接访问IProvider接口。
　　下面这个表列出了IProvider接口的属性和方法，同时列出了TProvider构件以及TClientDataSet构件中与之对应的属性和方法。
IProviderTProviderTClientDatasetApplyUpdatesApplyUpdatesApplyUpdatesConstraints属性Constraints客户程序只能通过IProvider接口访问这个属性DataDataDataDataRequestDataRequest客户程序只能通过IProvider接口访问这个方法Get_ConstraintsConstraints客户程序只能通过IProvider接口访问这个方法Get_DataGet_Data用于实现Data属性GetMetaDataGetRecords(Count = 0)内部使用GetRecordsGetRecords用于GetNextPacketResetReset内部使用Set_ConstraintsConstraints客户程序只能通过IProvider接口访问这个属性SetParamsSetParams用于Params属性
注意：IProvider接口的许多属性和方法依赖于远程数据模块的状态信息，正因为如此，在使用CORBA或MTS的应用程序中一般不要用IProvider接口。
3.2 选择连接方式
　　在客户程序与应用服务器之间，Delphi 4提供了四种不同类型的连接方式或者说通讯协议，包括DCOM、TCP/IP、OLEnterprise和CORBA。这些不同的连接方式都各有利弊，到底选择哪种连接方式，取决于客户的数量、客户的分布情况以及怎样发布应用程序。
　　DCOM是一种最直接的连接方式，它不需要专门的运行期软件支持。不过，Windows 95 不支持DCOM，除非安装了DCOM95程序。
　　要使用MTS安全服务，最好使用DCOM连接方式。MTS的安全服务是基于角色的，当一个客户通过DCOM访问MTS时，DCOM会告诉MTS有关客户的信息，MTS据此来决定客户的角色。如果用其他连接方式，需要有专门的运行期软件支持，客户的调用首先被传递给这些运行期软件而不是MTS，MTS就不能尽快指派角色。
　　TCP/IP连接方式的适合范围非常广泛，例如，如果客户程序要以ActiveForm的形式分布在Web上，最好采用TCP/IP连接方式，因为您无法肯定下载ActiveForm的计算机是否支持DCOM，而支持TCP/IP的环境是很普遍的。
　　要使用TCP/IP连接方式，应用服务器端必须运行一个专门的运行期软件ScktSrver.exe或ScktSrvc.exe，其中，ScktSrvc.exe只适合于Windows NT，可以作为一个服务在后台运行。与DCOM连接方式不同的是，客户的请求首先传递给ScktSrver.exe或ScktSrvc.exe，然后再创建远程数据模块的实例，而不是由客户的调用直接创建远程数据模块的实例。客户程序上的MIDAS连接构件通过IProvider接口与ScktSrvr.exe or ScktSrvc.exe通讯。
　　不过，客户程序很有可能在没有正常释放对IProvider 接口的引用之前出现异常，而TCP/IP连接方式无法检测到这种情况，更无法通知应用服务器，因此，有可能造成应用服务器上的资源被占用后得不到释放的后果。
　　如果要在应用服务器端使用Business Object Broker，就要使用OLEnterprise连接方式。此时，应用服务器端和客户端都要安装OLEnterprise运行期软件。
　　Delphi 4是目前唯一支持CORBA的开发工具。基于CORBA的客户程序和应用服务器可以与其他基于CORBA的应用程序无缝对接。要使用CORBA连接方式，需要ORB的支持，它提供了类似于Business Object Broker的功能。
3.3 创建应用服务器的一般步骤
　　要创建一个多层Client/Server应用程序，首先要创建应用服务器，然后注册或安装应用服务器，只有应用服务器已注册并且正在运行的情况下，才能创建客户程序。对于客户程序来说，既可以在设计期连接应用服务器，也可以在运行期连接应用服务器。
　　注意：如果客户程序与应用服务器不在同一个系统中，必须在客户计算机上注册或安装应用服务器，这样，在设计期就可以连接应用服务器。
　　创建一个应用服务器与创建一个两层的数据库应用程序有些相似，主要的区别是，应用服务器需要提供IProvider接口，这一般是通过TDataSetProvider或TProvider构件提供的，也可以通过数据集构件如TTable的Provider属性提供。创建应用服务器的一般步骤是：
　　第一步是使用"File"菜单上的"New Application"命令开始一个新项目,然后使用File菜单上的New命令，选取Multi页，如图3.1所示。
　　选择一个远程数据模块。如果要创建一个COM自动化服务器，允许客户通过DCOM、TCP/IP、OLEnterprise等方式访问此服务器，选择RemoteMod。如果要创建一个允许客户通过MTS访问的Active Library，选择MTSData Module。如果要创建一个CORBA服务器，选择Corba Data。
　　第二步是把一个数据集构件如TTable、TQuery或TStoredProc放到远程数据模块上，并进行有关设置，使得它们能访问远程的SQL数据库。尽量不要把TDatabase构件放到远程数据模块上，因为这可能引起名称冲突。如果实在要用TDatabase构件来连接SQL数据库，建议把TDatabase构件放到另一个数据模块上，然后引用这个数据模块的单元文件。
　　第三步是把TDataSetProvider或TProvider构件放到远程数据模块上，有一个数据集构件，就要有一个TDataSetProvider或TProvider构件与之对应。然后，用鼠标右键单击TDataSetProvider或TProvider构件，在弹出的菜单中选择ExportFrom <Name> in Data Module命令，这是为了引出Provider接口，在类型库中注册。
　　第四步是设置TDataSetProvider或TProvider构件的DataSet属性指定要访问的数据库，实际上就是第二步所放的数据集构件。
　　第五步是编写代码，实现商业规则。当然，这一步远远不是几句话所能说清楚的。
　　第六步是保存、编译、注册或安装应用服务器。
　　如果使用DCOM、TCP/IP、OLEnterprise作为通讯协议，应用服务器就好像一个自动化服务器一样，必须像ActiveX或COM服务器那样注册。
　　如果使用MTS，应用服务器是DLL而不是EXE，这时候不需要注册应用服务器，而要把这个DLL作为MTS对象安装到MTS包中。
　　如果使用CORBA，可以不注册但最好注册。如果要使客户程序对服务器接口的调用在运行期是动态确定的，就要在接口库(Interface Repository)中安装服务器的接口。如果要使客户程序能自动激活应用服务器(如果还没有运行的话)，应用服务器就必须用OAD(Object Activation Daemon)注册。
　　第七步是如果应用服务器没有使用DCOM，您必须安装有关的运行期软件，因为其他连接方式需要这些运行期软件的支持。例如，对于TCP/IP来说，需要安装ScktSrvr.exe或ScktSrvc.exe，后者只能运行在Windows NT环境下。对于OLEnterprise来说，需要安装OLEnterprise运行期版本。对于CORBA来说，需要安装VisiBroker ORB。
3.4 远程数据模块
　　应用服务器的关键部件是远程数据模块。Delphi 4支持三种类型的远程数据模块，分别是TRemoteDataModule、TMTSDataModule、TCorbaDataModule。
3.4.1 TRemoteDataModule
　　要加入一个TRemoteDataModule类型的远程数据模块，使用“File”菜单上的“New”命令，选取“Multitier”页，双击“Remote Data Module”图标，弹出“Remote Data Module Wizard”对话框，如图3.2所示。 
　　在“Class Name”框内键入远程数据模块的类名，不必以T打头。Delphi 4将以此名生成一个TRemoteDataModule的派生类，并以此名生成有关接口。例如，假如在“Class Name”框内键入“MyDataServer”， 远程数据模块的类名就是TMyDataServer，它所实现的接口叫IMyDataServer，其祖先接口是IDataBroker。
　　在“Threading Model”框内选择一种线程模式。可以选“Single-threaded”、“Apartment-threaded”、“Free-threaded”或者“Both”。
　　在“Instancing”框内选择是否根据客户的请求生成远程数据模块的多个实例，可以选“Single instance”或“Multiple instance”。
3.4.2 TMTSDataModule
　　要加入一个TMTSDataModule类型的远程数据模块，使用“File”菜单上的“New”命令，选择“Multitier”页，双击“MTS Data Module”图标，弹出“MTSData Module Wizard”对话框，如图3.3所示。
　　图3.3 MTS Data Module对话框
　　在“Class Name”框内键入远程数据模块的类名，不必以T打头。Delphi 4将以此名生成一个TMTSDataModule的派生类，并以此名生成有关接口。例如， 假设在“Class Name”框内键入“MyDataServer”， 远程数据模块的类名就是TMyDataServer，它所实现的接口叫IMyDataServer，其祖先接口是IDataBroker。
　　对于TMTSDataModule类型的远程数据模块来说，必须在“ThreadingModel”框内选择一种线程模式。可以选“Single”、“Apartment”或者“Both”。在“Transaction Attributes”框内选择事务属性：
　　如选择“Requires a transaction”，每当客户访问远程数据模块的接口时，都与当前的事务是相关的。客户不可能在事务中再申请一个新的事务。
　　如选择“Requires a new transaction”，每当客户访问远程数据模块的接口时，都自动开始一个新的事务。如选择“Supports transactions”，远程数据模块可以用在事务的环境中，客户访问远程数据模块的接口时必须申请一个新的事务。
　　如选择“Does not support transactions”，远程数据模块不能用在事务的环境中。
　　注意：MTS对象只能加入到ActiveX项目中，如果试图在一个EXE项目中加入TMTSDataModule类型的远程数据模块，Delphi 4会显示一个提示框，如图3.4所示。
　　图3.4 一个提示框
3.4.3 TCORBADataModule
　　要加入一个TCorbaDataModule类型的远程数据模块，使用“File”菜单上的“New”命令，选取“Multitier”页，双击“CORBA Data Module”图标，弹出“CORBA Data Module Wizard”对话框，如图3.5所示。
　　图3.5 CORBA Data Module对话框
　　在“Class Name”框内键入远程数据模块的类名，不必以T打头。Delphi 4将以此名生成一个TCorbaDataModule的派生类，并以此名生成有关接口。例如，假设在“Class Name”框内键入“MyDataServer”， 远程数据模块的类名就是TMyDataServer，它所实现的接口叫IMyDataServer，其祖先接口是IDataBroker。
　　在“Instancing”框内指定应用服务器怎样创建远程数据模块的实例，可以选“Shared Instance”或者“Instance-Per-Client”。
　　如果选“Shared Instance”，应用服务器只创建远程数据模块的一个实例来处理所有客户的请求，因此，远程数据模块必须与状态无关，换句话说，就是不能使用IProvider接口。
　　如果选“Instance-Per-Client”，每当一个客户试图连接时，远程数据模块都会生成一个实例。只要客户与应用服务器的连接没有断开，远程数据模块的实例就一直存在。这种模式下，允许使用IProvider接口。唯一要考虑的问题是，客户程序有可能意外终止，导致没有正常地断开与应用服务器的连接。应用服务器为了避免不必要的资源浪费，可以定期地检查客户是否正在运行，如没有，就手工把远程数据模块的实例删掉。
　　在“Threading Model”框内选择一种线程模式。可以选“Single-threaded”、“Multi-threaded”。
3.5 Provider
　　远程数据模块上往往要放一个或几个TDataSetProvider或TProvider构件，用于提供IProvider接口。有时候，也可以不显式地使用TDataSetProvider或TProvider构件，而是由数据集构件如TTable、TQuery或TStoredProc的Provider属性间接地提供IProvider接口。
　　显式地使用TDataSetProvider或TProvider构件的好处是，可以直接控制数据包中包含哪些信息、应用服务器怎样响应客户的请求。如果显式地使用了TDataSetProvider或TProvider构件，必须设置他们的DataSet属性指定要访问的数据集。
3.5.1 控制数据包中的字段
　　要控制哪些字段包含到数据包中，首先要创建永久字段。以后，只有永久字段才加入到数据包中。如果不创建永久字段的话，数据集中的所有字段都将加入到数据包中。
　　如果创建的永久字段中包含计算字段，由于计算字段的值是在运行期计算出来的，这些字段虽然也能加入到数据包中，但这些字段传递到客户端后就变成只读的。
　　由于客户程序很有可能要编辑修改数据，并且要把编辑修改后的数据申请更新到应用服务器上，因此，您创建的永久字段的数量不能太少，否则，很有可能出现重复的记录。举例来说，假设有一个学生成绩表，由学号、姓名、语文成绩、数学成绩、历史成绩等字段组成，如果创建的永久字段中只包含语文成绩、数学成绩、历史成绩等字段，很有可能出现两名学生的上述成绩完全一样，也就是说有重复的记录，这是不允许的。
　　如果实在不想使客户程序看到某个字段，而如果没有这个字段的话很有可能出现上述错误，这时候您可以让这个字段(TField对象)的ProviderFlags属性包含pfHidden元素，表示这个字段虽然加入到数据包中，但却是隐含的，客户看不到它。
　　特别要注意的是，如果使用TQuery作为应用服务器上的数据集构件，SQL语句应当选择足够多的字段，即使客户程序并不需要这么多字段，否则，就有可能出现上述错误。
3.5.2 Options属性
　　这个属性是一个集合，用于设置有关打包和传递的选项。
　　如果包含poFetchBlobsOnDemand元素，表示BLOB字段一般不放到包中，除非客户端的TClientDataSet构件的FetchOnDemand属性设为True或者显式地调用FetchBlobs。
　　如果包含poFetchDetailsOnDemand元素，表示嵌套表中的字段不放到包中，除非客户端的TClientDataSet构件的FetchOnDemand属性设为True或者显式地调用FetchDetails。
　　如果包含poIncFieldProps元素，表示把字段的属性也放到包中，包括Alignment、MinValue、DisplayLabel、DisplayWidth、Visible、DisplayFormat、MaxValue、EditFormat、Currency、EditMask、DisplayValues等属性。
　　如果包含poCascadeDeletes元素，当父表中的某条记录被删除时就把子表中的相应记录也删除。
　　如果包含poCascadeUpdates元素，当父表的关键字段的值变化时自动更新子表的记录。
　　如果包含poReadOnly元素，表示不允许“瘦”客户向TDataSetProvider申请更新数据。
3.5.3 在数据包中加入自定义的信息
　　当客户端通过IProvider 接口调用DataRequest函数请求数据时将在应用服务器端触发OnGetDataSetPropertiesevent事件，这样，应用服务器就有机会在数据包中加入一些自定义的信息。客户端可以调用GetOptionalParam来检索这些信息。
　　OnGetDataSetPropertiesevent事件是这样声明的：
　　TGetDSProps = Procedure(Sender: TObject; DataSet: TDataSet; out Properties:OleVariant);
　　其中，Properties参数是一个可变类型的数组，用于指定要加入的信息。Properties参数的每个元素由三部分组成：名称、值和一个布尔数。Delphi 4定义了几个标准的信息名称，它们是UNIQUE_KEY、DEFAULT_ORDER、CHANGE_LOG、SERVER_COL、CONSTRAINTS、DATASET_CONTEXT、DATASET_DELTA、LCID、BDERECORD_X、TABLE_NAME、MD_FIELDLINKS、UPDATEMODE。程序示例如下：
Procedure TAppServer.Provider1GetDataSetProperties(Sender: TObject; DataSet: TDataSet; out Properties:OleVariant);
　Begin
　　Properties := VarArrayCreate([0,1], varVariant);
　　Properties[0] := VarArrayOf([/'TimeProvided/', Now, True]); 
　　Properties[1] := VarArrayOf([/'TableSize/', DataSet.RecordCount, False]);
　End;
　　上面这个程序中，加入了两个自定义的信息，一个叫TimeProvided，它的值是当前的日期和时间，True表示这个信息可以由客户端返回给应用服务器。另一个信息叫TableSize，它的值是数据集的记录数，False表示这个信息不可以由客户端返回给应用服务器。
　　以后，当客户端申请更新数据时，TDataSetProvider的OnUpdateData事件可以读出数据包中的信息。程序示例如下：
Procedure TAppServer.Provider1UpdateData(Sender: TObject; DataSet: TClientDataSet);
　 var　WhenProvided: TDateTime;
　Begin
　 WhenProvided := DataSet.GetOptionalParam(/'TimeProvided/');
　　 ...
　End;
3.5.4 响应客户的数据请求
　　在大多数的多层应用程序中，客户请求数据是自动进行的，应用服务器对客户请求的响应也是自动的，它自动地检索数据、把数据打包，然后把数据包传递给客户。
　　应用服务器在把数据包传递给客户之前，还有机会对其中的数据进行编辑 加工，例如，可以对其中敏感的数据加密，或者基于某种条件删掉一些记录。
　　TDataSetProvider或TProvider构件的OnGetData事件可以让您实现上述功能，程序示例如下：
Procedure TDBClientTest.ProviderGetData(DataSet: TClientDataSet);
Begin
　 With DataSet Do
　　 Begin
　　　 While not EOF Do
　　　　 Begin
　　　　　 Edit;
　　　　　 SensitiveData.AsString := DoEncrypt(SensitiveData.AsString);
　　　　　 Post;
　　　　　 Next;
　　　　 End;
　　 End;
End;
3.5.5 响应客户的更新请求
　　客户程序通过调用ApplyUpdates 向应用服务器申请更新数据。当应用服务
器上的TDataSetProvider或TProvider构件收到客户的更新请求后，就会触发OnUpdateData事件，这样您就有机会编辑数据包(Delta属性)。退出处理OnUpdateData事件的句柄后，TDataSetProvider或TProvider构件就会把数据更新到远程服务器上。
　　更新是一条记录一条记录进行的。每一条记录被更新前的一瞬间将触发BeforeUpdateRecord事件，这样您还有机会对数据进行检查和修改。如果出现错误，就会触发OnUpdateError事件。发生错误的原因通常是数据违反了服务器的纠错规则，或者另一个客户程序也修改了记录，而且正好在前一个客户已经申请更新的时候。
　　上述错误既可以由应用服务器来处理，也可以回传给客户处理。有些错误可能需要用户的介入，这就要客户端在处理。
3.5.6 在更新数据库之前编辑Delta数据包
　　当应用服务器端调用ApplyUpdates向远程服务器申请更新数据时将触发OnUpdateData事件，这样，应用服务器就有机会对将要更新的数据进行检查，也可以对数据进行修改。OnUpdateData事件是这样声明的：
TProviderDataEvent = Procedure(Sender: TObject; DataSet: TClientDataSet) of object;
　　其中，DataSet参数代表客户程序上的TClientDataSet构件，这样就可以访问Delta属性得到当前要更新的数据包。另外还有一个重要的属性需要访问，这就是UpdateStatus属性，这个属性表示Delta数据包的更新类型。程序示例如下：
Procedure TDataModule1.Provider1UpdateData(Sender:TObject;DataSet: TClientDataSet);
Begin
　 With DataSet Do
　 Begin
　　 First;
　　 While not Eof Do
　　　 Begin
　　　 If UpdateStatus = usInserted 　　　 then
　　　　 Begin
　　　　　 Edit;
　　　　　 FieldByName(/'DateCreated/').AsDateTime := Date;
　　　　　 Post;
　　　　 End;
　　　 Next;
　　　 End;
　　End;
End;
3.5.7 怎样定位记录
　　在处理OnUpdateData事件的句柄中，除了可以检查和修改Delta数据包外，还可以设置怎样定位记录或者说把哪些记录更新到服务器上。
　　默认情况下，应用服务器用自动生成的SQL UPDATE、INSERT或DELETE语句来把Delta