把TClientDataSet当作一个内存数据表

最新推荐文章于 2023-06-11 12:13:53 发布

转载最新推荐文章于 2023-06-11 12:13:53 发布 · 1.7k 阅读

文章标签：

#产品

Dephi 技术文章专栏收录该内容

14 篇文章

订阅专栏

本文介绍了一个使用 Delphi 进行数据集同步的例子。通过创建 TClientDataset 并定义字段，然后从 ADO 数据集填充数据。该示例展示了如何在客户端数据集中映射并保存来自服务器的数据。

var   
        F_CData:TClientDataset;   
  begin   
        F_CData   :=   TClientDataset.Create(nil);   
  F_CData.FieldDefs.Add(产品名称,ftString,   30,   False);   
  F_CData.FieldDefs.Add(本月实际,ftString,   20,   False);   
  F_CData.FieldDefs.Add(本季累计,ftString,   20,   False);   
  F_CData.FieldDefs.Add(本年累计,ftString,   20,   False);   
  F_CData.CreateDataSet;   
  F_CData.Open;   
    
            while   not   AdoDatasetOut.Eof   do   begin   
  F_CData.Append;   
  F_CData.Fields[0].AsString   :=   AdoDatasetOut.Fields[0].Value;   
  F_CData.Fields[1].AsString   :=   AdoDatasetOut.Fields[1].Value;   
  F_CData.Fields[2].AsString   :=   AdoDatasetOut.Fields[2].Value;   
  F_CData.Fields[3].AsString   :=   AdoDatasetOut.Fields[3].Value;   
  AdoDatasetOut.Next;   
            end;   
  end;   