Delphi FireDAC如何在OnNewRecord时获取数据库默认值？

FireDAC默认不会在OnNewRecord事件触发时自动拉取数据库端的字段默认值——因为此时记录尚未提交到数据库，默认值是数据库引擎在执行插入操作时才会赋值的。不过可以通过以下几种方式实现类似需求：

1. 手动在OnNewRecord事件中填充默认值 #

如果已知字段的固定默认值，直接在事件中给字段赋值即可，简单直接：

procedure TMainForm.FDTable1NewRecord(DataSet: TDataSet);
begin
  // 给Status字段设置默认值为'Active'
  FDTable1.FieldByName('Status').AsString := 'Active';
  // 给CreateTime字段设置默认值为当前时间
  FDTable1.FieldByName('CreateTime').AsDateTime := Now;
end;

缺点：如果数据库端的默认值后续修改，代码需要同步更新。

2. 通过FireDAC元数据自动获取并填充默认值 #

利用FireDAC的元数据功能读取表的字段定义，提取默认值并在OnNewRecord时自动填充：

procedure TMainForm.FDTable1NewRecord(DataSet: TDataSet);
var
  i: Integer;
  FieldDef: TFieldDef;
  Field: TField;
begin
  // 确保字段定义已加载
  FDTable1.FieldDefs.Update;
  for i := 0 to FDTable1.FieldDefs.Count - 1 do
  begin
    FieldDef := FDTable1.FieldDefs[i];
    // 跳过主键字段（通常无默认值）和无默认值的字段
    if (FieldDef.DefaultValue <> '') and not FieldDef.PrimaryKey then
    begin
      Field := FDTable1.FieldByName(FieldDef.Name);
      // 处理表达式类默认值（比如ADS的CURRENT_DATE）
      if Pos('CURRENT_DATE', UpperCase(FieldDef.DefaultValue)) > 0 then
        Field.AsDateTime := Now
      else
        Field.Value := FieldDef.DefaultValue;
    end;
  end;
end;

注意：部分数据库的默认值是表达式（如GETDATE()、CURRENT_TIMESTAMP），需要根据数据库语法解析并计算对应的值。

3. 配置FireDAC自动刷新插入后的记录 #

如果不需要在OnNewRecord时就看到默认值，而是希望Post后自动获取，可以调整FireDAC的更新和获取选项：

• 设置FDTable1.UpdateOptions.RefreshMode := rmAll：Post后刷新所有字段
• 设置FDTable1.FetchOptions.AutoFetchAll := True：自动获取所有字段数据
  这样Post后无需手动调用Refresh，FireDAC会自动拉取包含默认值的最新记录。

4. 使用INSERT...RETURNING语法（针对支持的数据库） #

如果Advantage Database Server支持INSERT...RETURNING语法，可以通过FDQuery执行插入并直接返回带默认值的记录：

procedure TMainForm.InsertRecord;
begin
  FDQuery1.SQL.Text := 'INSERT INTO MyTable (Name) VALUES (:Name) RETURNING ID, Status, CreateTime';
  FDQuery1.ParamByName('Name').AsString := 'Test';
  FDQuery1.ExecSQL;
  // 执行后获取返回的记录
  FDQuery1.Open;
  // 将返回的值同步到数据集（如果需要）
  FDTable1.Append;
  FDTable1.FieldByName('ID').AsInteger := FDQuery1.FieldByName('ID').AsInteger;
  FDTable1.FieldByName('Status').AsString := FDQuery1.FieldByName('Status').AsString;
  FDTable1.Post;
end;

补充说明 #

你之前在XE8的ADS组件中能直接看到默认值，是因为旧组件可能在本地模拟了默认值填充逻辑，或者在Append时就向数据库发起了默认值请求。FireDAC作为通用数据库组件，默认不会做这种数据库特定的操作，以保证跨数据库兼容性。

内容的提问来源于stack exchange，提问作者Mark A.