码迷,mamicode.com
首页 > 其他好文 > 详细

Clientdataset 建表

时间:2015-11-13 11:52:36      阅读:234      评论:0      收藏:0      [点我收藏+]

标签:

{ 添加字段 }

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


Clientdataset 建表

标签:

原文地址:http://my.oschina.net/u/582827/blog/529758

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!