如何将TFDQuery数据集的计算字段默认设为ReadOnly=False？

问题描述 #

使用FireDAC的TFDQuery组件对SQL Server执行包含CONVERT、CAST等函数的SELECT语句时，返回的数据集中，这些SQL计算列对应的TField对象默认被设为ReadOnly=True。希望在数据集返回后通过代码填充这些计算字段，目前已知可以通过以下代码逐个修改字段属性：

Dataset.FieldByName('MyCalcField').ReadOnly := False;

但想知道是否有查询组件内置的设置/选项，能强制让创建的字段默认设为ReadOnly=False？

解决方案 #

FireDAC并没有提供单一的全局属性开关，直接让所有SQL计算列默认处于可写状态，但可以通过以下两种更高效的方式替代逐个修改字段的操作：

• 利用OnFieldCreate事件批量设置
  在TFDQuery的OnFieldCreate事件中，直接对每个创建的字段设置ReadOnly=False，这样所有字段（包括计算列）在创建时就会自动被设为可写状态。示例代码：

  procedure TYourForm.FDQuery1FieldCreate(Sender: TObject; AField: TField);
  begin
    AField.ReadOnly := False;
    // 如果只需要针对计算列，可以添加判断逻辑，比如检查字段是否由SQL函数生成
    // 例如：if Pos('CONVERT', UpperCase(AField.Origin)) > 0 then AField.ReadOnly := False;
  end;
  

• 手动定义字段（设计期/代码动态创建）
  可以在设计期打开TFDQuery的字段编辑器，手动添加所有需要的字段（包括计算列），并直接将这些字段的ReadOnly属性设置为False。这种方式下，运行时FireDAC不会自动覆盖字段的只读属性设置，能精准控制每个字段的状态。如果是动态创建字段，也可以在代码中指定ReadOnly属性：

  var
    CalcField: TStringField;
  begin
    FDQuery1.Close;
    FDQuery1.Fields.Clear;
    CalcField := TStringField.Create(FDQuery1);
    CalcField.FieldName := 'MyCalcField';
    CalcField.ReadOnly := False;
    CalcField.DataSet := FDQuery1;
    // 添加其他字段...
    FDQuery1.SQL.Text := 'SELECT CONVERT(VARCHAR(10), GetDate()) AS MyCalcField FROM YourTable';
    FDQuery1.Open;
  end;
  

内容的提问来源于stack exchange，提问作者Jonathan Wareham