zoukankan      html  css  js  c++  java
  • 内存表 ClientDataSet CreateDataSet

    unit Form_Main;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DB, Grids, DBGrids, DBClient;
    
    type
      TForm1 = class(TForm)
        DBGrid1: TDBGrid;
        DataSource1: TDataSource;
        ClientDataSet1: TClientDataSet;
        procedure FormCreate(Sender: TObject);
      private
    
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.FormCreate(Sender: TObject);
    var
      i: Integer;
    begin
      with ClientDataSet1 do
      begin
        FieldDefs.Add('ID', ftInteger, 0, False);
        FieldDefs.Add('Name', ftString, 10, False);
        FieldDefs.Add('Gender', ftInteger, 0, False);
        FieldDefs.Add('Age', ftInteger, 0, False);
        IndexDefs.Add('PK', 'ID', [ixPrimary, ixUnique]);
        CreateDataSet;
        DisableControls;
        for i := 1 to 1000 do
        begin
          Append;
          FieldByName('ID').AsInteger := i;
          FieldByName('Name').AsString := 'User' + IntToStr(i);
          FieldByName('Gender').AsInteger := Random(2);
          FieldByName('Age').AsInteger := Random(100);
          Post;
        end;
        EnableControls;
      end;
    end;
    
    end.
    procedure TFormMain.FormCreate(Sender: TObject);
    begin
      self.ClientDataSet1.FieldDefs.Add('Name',ftString,50);
      self.ClientDataSet1.FieldDefs.Add('Age',ftString,50);
      self.ClientDataSet1.CreateDataSet;

      self.ClientDataSet1.AppendRecord(['100','100']);
      self.ClientDataSet1.AppendRecord(['100','100']);
      self.ClientDataSet1.AppendRecord(['100','100']);
      self.ClientDataSet1.AppendRecord(['100','100']);
      self.ClientDataSet1.AppendRecord(['100','100']);
      self.ClientDataSet1.AppendRecord(['100','100']);
      self.DataSource1.DataSet:=self.ClientDataSet1;
    end;


    procedure TFormMain.BitBtn1Click(Sender: TObject);
    begin
    self.ClientDataSet1.AppendRecord(['1001','100']);//添加新纪录
    self.ClientDataSet2.Data:=self.ClientDataSet1.Delta;
    self.DataSource1.DataSet:=self.ClientDataSet2;
    end;
  • 相关阅读:
    如何消除一个数组里面重复的元素?
    行内元素有哪些?块级元素有哪些? 空(void)元素有那些?
    简述一下src与href的区别
    请说出三种减少页面加载时间的方法
    SQL大全
    11.Hibernate 拦截器
    10.Hibernate 批处理
    9.Hibernate 缓存
    8.Hibernate 原生 SQL
    7.Hibernate 标准查询
  • 原文地址:https://www.cnblogs.com/chenmfly/p/4541379.html
Copyright © 2011-2022 走看看