delphi - 在运行时向查询添加计算字段

Question

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

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

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

if DefaultFields then
    CreateFields

指定默认字段

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

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

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

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

Answer 1

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

您可以使用“黑客类型”来使用 protected 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;