13

我正在使用 Delphi 中的查询获取数据，并希望在查询运行之前将计算字段添加到查询中。计算字段使用代码和查询中的值，所以我不能只在 SQL 中计算它。

我知道我可以附加一个OnCalcFields事件来实际进行计算，但问题是在添加计算字段后，查询中没有其他字段......

我做了一些挖掘，发现所有字段定义都已创建，但实际字段仅创建

if DefaultFields then
    CreateFields

指定了默认字段

procedure TDataSet.DoInternalOpen;
begin
    FDefaultFields := FieldCount = 0;
    ...
end;

这表明如果您添加字段，您只会获得您添加的字段。

我想要查询中的所有字段以及我添加的字段。

这是可能的还是我必须添加我正在使用的所有字段？

4

4 回答 4

15

没有什么可以阻止您首先在代码中创建所有字段，
然后添加计算字段。

您可以使用“黑客类型”来使用受保护的 CreateFields： 

type
  THackQuery = class(TADOQuery)
  end;
[...]
  MyQuery.FieldDefs.Update;
  THackQuery(MyQuery).CreateFields;

或从 CreateFields 借一些代码： 

  MyQuery.FieldDefs.Update;
  // create all defaults fields
  for I := 0 to MyQuery.FieldDefList.Count - 1 do
    with MyQuery.FieldDefList[I] do
      if (DataType <> ftUnknown) and not (DataType in ObjectFieldTypes) and
        not ((faHiddenCol in Attributes) and not MyQuery.FIeldDefs.HiddenFields) then
        CreateField(Self, nil, MyQuery.FieldDefList.Strings[I]);

然后创建您的计算字段：

  MyQueryMyField := TStringField.Create(MyQuery);
  with MyQueryMyField do
  begin
    Name := 'MyQueryMyField';
    FieldKind := fkCalculated;
    FieldName := 'MyField';
    Size := 10;
    DataSet := MyQuery;
  end;
于 2010-03-26T17:55:21.313 回答
4

除了计算字段之外，您还需要添加所有字段。

添加字段后，您必须在数据集中添加所需的所有字段。

Delphi 将此称为持久字段与动态字段。所有字段要么是持久的，要么是动态的。不幸的是，你不能同时拥有两者。

另一件需要注意的事情，从文档是

持久字段组件列表存储在您的应用程序中，即使数据集基础的数据库结构发生更改，也不会更改。

因此，请注意，如果您稍后将其他字段添加到表中，则需要将新字段添加到组件中。删除字段也是如此。

如果您真的不想要持久字段，还有另一种解决方案。在应显示计算字段的任何网格或控件上，您可以自定义绘制它。例如，许多网格控件都有一个 OnCustomDraw 事件。你可以在那里做你的计算。

于 2010-03-26T14:42:49.723 回答
3

Delphi 现在可以选择组合自动生成的字段和计算的字段：Data.DB.TFieldOptions.AutoCreateMode类型为 TFieldsAutoCreationMode的枚举。这样，您可以在运行时添加计算字段。弗朗索瓦在他的回答中写道如何在运行时添加一个字段。

TFieldsAutoCreationMode 的不同模式：

  • ac独家

    当根本没有持久字段时，会创建自动字段。这是默认模式。

  • acCombineComputed

    当数据集没有持久字段或只有计算的持久字段时，将创建自动字段。这是在设计时创建持久计算字段并让数据集创建自动数据字段的便捷方式。

  • acCombineAlways

    当没有持久字段时，将创建数据库字段的自动字段。

于 2017-09-27T08:24:33.487 回答
2

如果您在运行时知道要计算的字段名称，则可以使用类似的东西。

var
 initing:boolean;

procedure TSampleForm.dsSampleAfterOpen(
  DataSet: TDataSet);
var
 i:integer;
 dmp:tfield;
begin
if not initing then
 try
  initing:=true;
  dataset.active:=false;
  dataset.FieldDefs.Update;
  for i:=0 to dataset.FieldDefs.Count-1 do
  begin
   dmp:=DataSet.FieldDefs.Items[i].FieldClass.Create(self);
   dmp.FieldName:=DataSet.FieldDefs.Items[i].DisplayName;
   dmp.DataSet:=dataset;
   if (dmp.fieldname='txtState') or (dmp.FieldName='txtOldState') then
   begin
     dmp.Calculated:=true;
     dmp.DisplayWidth:=255;
     dmp.size:=255;
   end;
  end;
  dataset.active:=true;
 finally
  initing:=false;
 end;
end;

procedure TSampleForm.dsSampleAfterClose(
  DataSet: TDataSet);
var
 i:integer;
 dmp:TField;
begin
if not initing then
begin
 for i:=DataSet.FieldCount-1 downto 0 do
 begin
  dmp:=pointer(DataSet.Fields.Fields[i]);
  DataSet.Fields.Fields[i].DataSet:=nil;
  freeandnil(dmp);
 end;
 DataSet.FieldDefs.Clear;
end;
end;

procedure TSampleForm.dsSampleCalcFields(
  DataSet: TDataSet);
var
 tmpdurum,tmpOldDurum:integer;
begin
  if not initing then
    begin
      tmpDurum := dataset.FieldByName( 'state' ).AsInteger;
      tmpOldDurum:= dataset.FieldByName( 'oldstate' ).AsInteger;
      dataset.FieldByName( 'txtState' ).AsString := State2Text(tmpDurum);
      dataset.FieldByName( 'txtOldState' ).AsString := State2Text(tmpOldDurum);
    end;
end;

procedure TSampleForm.btnOpenClick(Sender: TObject);
begin
 if dsSample.Active then
   dsSample.Close;
 dsSample.SQL.text:='select id,state,oldstate,"" as txtState,"" as txtOldState from states where active=1';
 dsSample.Open;
end;
于 2010-03-26T21:47:40.623 回答