delphi – 在运行时向Query添加计算字段

我在Delphi中使用查询获取数据,并希望在运行之前向查询添加计算字段.计算字段使用代码中的值以及查询,因此我不能仅在SQL中计算它.

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

我做了一些挖掘,发现所有的场定义都是创建的,但实际的字段只是创建的

if DefaultFields then
    CreateFields

指定了默认字段

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

这表示如果添加字段,则只会获得您添加的字段.

我希望查询中的所有字段与我添加的字段一样好.

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

解决方法

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

TFieldsAutoCreationMode的不同模式：

> acExclusive

如果根本没有持久字段,则会创建自动字段.这是默认模式.
> acCombineComputed

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

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