使用TClientDateSet 在内存中创建一个临时表

最新推荐文章于 2016-09-11 12:31:15 发布

原创最新推荐文章于 2016-09-11 12:31:15 发布 · 1.4k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

Delphi 专栏收录该内容

55 篇文章

订阅专栏

本文介绍如何使用TClientDateSet组件在Delphi中创建一个本地内存表，并定义了字符串和整数类型的字段，适用于快速开发小型应用程序的数据管理需求。

//------------------创建本地表-----使用TClientDateSet 在内存中创建一个临时表--------------------------------------

    for i := ACS.FieldDefs.Count -1 downto 0 do
    begin
      ACS.FieldDefs.Delete(i);
    end;
    ACS.Close;

if ACS.Active then ACS.Close;

    with ACS do begin
      with FieldDefs.AddFieldDef do begin
        DataType := ftString;
        Size := 20;
        Name := 'ksbh';
      end;

      with FieldDefs.AddFieldDef do begin
        DataType := ftString;
        Size := 20;
        Name := 'gg';
//        Name := 'jzlgg';
      end;

      for i := 2 to AGrid.Columns.Count -1 do
      begin
        with FieldDefs.AddFieldDef do begin
          DataType := ftInteger;
          Name := AGrid.Columns[i].FieldName;
        end;
      end;

      //合计 06-1-18 adding
      with FieldDefs.AddFieldDef do begin
        DataType := ftInteger;
      end;
      CreateDataSet;
    end;