为何BatchMove.Execute执行时OnNewRecord事件始终未被触发？

问题原因 #

FireDAC的BatchMove组件执行批量复制时，不会通过FDDataSet的NewRecord方法创建记录，而是直接以批量写入的方式操作目标表，因此你绑定的OnNewRecord事件不会被触发。

可行解决方案 #

方法1：使用Writer专属的OnWriteRecord事件

这是BatchMove组件专门提供的、用于处理每条记录写入前逻辑的事件，完全适配批量场景：

constructor TDBCopy.Create;
begin
  inherited;
  ... 
  FBatchMove.Writer := FWriter;
  FWriter.Connection := FTargetSQLConnection;
  // 替换为OnWriteRecord事件
  FWriter.OnWriteRecord := OnWriteRecord;
end;

procedure TDBCopy.OnWriteRecord(Sender: TObject; var ARecord: TFDBatchMoveRecord; var AAction: TFDBatchMoveAction);
begin
  // 为非空字段赋值，支持按字段名或索引设置
  ARecord.SetValue('NonNullColumn', '默认值');
  // 示例：按索引设置（假设是第3个字段）
  // ARecord.SetValue(2, 100);
end;

方法2：直接设置数据库表字段默认值

如果非空列可以使用固定默认值，直接在目标数据库的表结构中给对应字段设置默认值，BatchMove写入时会自动套用该值，无需额外代码处理。

方法3：通过BatchMove的字段映射规则赋值

在执行批量复制前，添加字段映射规则为非空字段指定固定值：

// 执行FBatchMove.Execute前添加映射配置
var
  LMap: TFDBatchMoveFieldMap;
begin
  LMap := FBatchMove.Maps.Add;
  LMap.SourceFieldName := ''; // 无来源字段，直接指定固定值
  LMap.DestFieldName := 'NonNullColumn';
  LMap.Value := '默认值';
  
  FWriter.TableName := TableName;
  FBatchMove.Execute;
end;

方法4：绑定FDDataSet的BeforePost事件（DataSetWriter场景）

如果必须依赖DataSet相关事件，可尝试绑定BeforePost，同时确保Writer的模式为追加：

constructor TDBCopy.Create;
begin
  inherited;
  ... 
  FBatchMove.Writer := FWriter;
  FWriter.Connection := FTargetSQLConnection;
  FWriter.FDDataSet.BeforePost := OnBeforePost;
  FWriter.Mode := dmAppend; // 确保设置为追加模式
end;

procedure TDBCopy.OnBeforePost(DataSet: TDataSet);
begin
  // 为非空字段赋值
  DataSet.FieldByName('NonNullColumn').AsString := '默认值';
end;

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