zoukankan      html  css  js  c++  java
  • ClientDataSet中动态添加计算字段

    在ClientDataSet中静态添加字段很容易,但是要在ClientDataSet已经获得数据打开了数据集的情况下添加就麻烦了。下图为在已经取得数据的情况下动态添加字图,请看最后列:

    ***************************************************************************************************************************

    具体操作:

    ***************************************************************************************************************************

    DBGrid1.DataSource->DataSource1.DataSet->ClientDataSet1.ProviderName->DataSetProvider1.DataSet->

    SQLDataset1.SQLConnection->SQLConnection1具体数据库(这里连接的是oracle中的PERSONS表);

    SQLDataSet1.CommandText:=SELECT * FROM PERSONS;ClientDataSet1.Active:=true;

    ***************************************************************************************************************************

    主要代码:

    ***************************************************************************************************************************

    procedure TForm3.Button1Click(Sender: TObject);
    var
      I: integer;
      Field: TField;
    begin
      ClientDataSet1.Close;
      SQLDataSet1.Active := true;
      ClientDataSet1.Fields.Clear;
      for I := 0 to SQLDataSet1.FieldCount - 1 do
      begin
        Field := SQLDataSet1.Fields.Fields[I];
        if Field.DataType = ftWideString then
        begin
          with TWideStringField.Create(self) do
          begin
            Name := Field.Name;
            FieldName := Field.FieldName;
            FieldKind := Field.FieldKind;
            DataSet := ClientDataSet1;
          end;
        end
        else if Field.DataType = ftFMTBcd then
        begin
          with TFMTBcdField.Create(self) do
          begin
            Name := Field.Name;
            FieldName := Field.FieldName;
            FieldKind := Field.FieldKind;
            DataSet := ClientDataSet1;
          end;
        end;
      end;
      // 添加计算字段
      with TIntegerField.Create(self) do
      begin
        Name := format('add%d',[Random(1000)]);
        FieldName := format('add%d',[Random(1000)]);
        FieldKind := fkCalculated;
        DataSet := ClientDataSet1;
      end;
      ClientDataSet1.FieldDefs.Update;
      ClientDataSet1.Open;
    
    end;

    以上代码在DELPHI XE5 ,WIN7 X64, ORACLE 11G环境下测试通过。

  • 相关阅读:
    统计学——平均数
    JSON与JAVA的数据转换
    Linux使用笔记
    vim代码折叠命令
    让ubuntu的ssh保持长时间连接
    Ubuntu通过xinput禁用及启用联想笔记本的触摸板
    linux下Oracle 相关命令
    linux机械磁盘服务器分区方案
    centos 6.5搭建LNMP环境
    centos6.5下搭建oracle 11g
  • 原文地址:https://www.cnblogs.com/sun998/p/6512142.html
Copyright © 2011-2022 走看看