clientdataset 遍历字段_Clientdataset 建表

{ 添加字段 }

with DM.cdtPackage.FieldDefs do

begin

Add('Image_ID', ftInteger);

Add('PackageName', ftString, 100);

Add('ImageName', ftString, 100);

Add('TemplateName', ftString, 40);

Add('Rect', ftString, 50);

Add('Scrkew', ftFloat);

Add('Splited', ftInteger);

Add('Pieces', ftMemo);

Add('PageNO', ftInteger);

Add('Type', ftString, 1);

Add('EFields', ftMemo);

Add('CFields', ftMemo);

end;

{ 构建数据集, 不可缺少的一步 }

DM.cdtPackage.CreateDataSet;

DM.cdtPackage.AddIndex('Index_1', 'Image_ID', [ixUnique]);

// ds1.AddIndex('Index_2', 'ACCT_NBR; SYMBOL', [ixDescending]);  { 倒序 }

DM.cdtPackage.IndexName := 'Index_1';

{ 插入数据 }

DM.cdtPackage.InsertRecord([1, 1, 1, 1, 1]);

DM.cdtPackage.InsertRecord([2, 1, 1, 1, 1]);

DM.cdtPackage.InsertRecord([3, 1, 1, 1, 1]);

{ 保存为 cds 或 XML }

ds1.SaveToFile('C:\\TestBinary.cds');

DM.cdtPackage.SaveToFile('C:\history.xml', dfXMLUTF8);