三层结构的设计模式

对于集合数据，由于Interface的返回值可以是OLEVarient类型，因此我们可以创建ClientDataSet来进行集合数据的传递。

3．部分源程序

//函数1：创建ClientDataSet

procedure CreateCds(const Ds: TDataSet; var Cds: TClientDataSet);

var

I: Integer;

begin

Cds := TClientDataSet.Create(nil);

for I := 0 to Ds.FieldCount - 1 do

begin

with Cds.FieldDefs.AddFieldDef do

begin

Name := Ds.FieldDefs[I].Name;

DataType := Ds.FieldDefs[I].DataType;

if DataType = ftAutoInc then

DataType := ftInteger;

Size := Ds.FieldDefs[I].Size;

end;

end;

Cds.CreateDataSet;

end;

//函数2：给ClientDataSet负值

procedure TransData(const Ds: TDataSet; var Cds: TClientDataSet);

var

I: Integer;

begin

if Ds.RecordCount > 0 then

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!