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);