ClientDataSet中动态添加计算字段

最新推荐文章于 2020-04-23 22:33:07 发布

weixin_33691700

最新推荐文章于 2020-04-23 22:33:07 发布

阅读量524

点赞数

文章标签：数据库

原文链接：http://www.cnblogs.com/sun998/p/6512142.html

版权

本文介绍如何在Delphi XE5环境下为已打开并获取数据的ClientDataSet动态添加字段，包括字符串字段和计算字段，并提供了详细的代码实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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