如何在Delphi FireDac中以编程方式填充重复明细键字段

问题根源分析 #

你遇到的两个报错本质是字段属性设置与手动赋值需求冲突：

• 报错field 'id' cannot be modified：因为明细id字段的AutoGenerateValue属性被设为arAutoInc/arSequence，FireDac将其标记为自动生成字段，禁止手动修改。
• 报错null value in column "id" violates not-null constraint：设为arDefault时，FireDac不会自动填充该字段，而数据库要求字段非空，插入时自然触发约束错误。

具体解决步骤 #

1. 调整明细字段属性 #

打开明细TFDTable的字段编辑器，找到关联字段（比如id）：

• 将AutoGenerateValue设为arNone，允许手动赋值。
• 将ReadOnly属性设为False，确保字段可写。

2. 在插入前自动赋值主表主键 #

使用BeforeInsert事件（比AfterInsert更合适，确保插入前字段已被填充），将主表当前记录的主键值赋值给明细字段：

procedure TForm1.DetailTableBeforeInsert(DataSet: TDataSet);
begin
  // 确保主表处于激活状态且有选中记录
  if not MainTable.Active or MainTable.IsEmpty then
    raise Exception.Create('请先选择主表中的记录');
  
  // 赋值主表主键到明细关联字段
  DetailTable.FieldByName('id').Value := MainTable.FieldByName('id').Value;
end;

3. 验证数据操作 #

现在插入明细记录时，id字段会自动填充主表当前主键值，既满足数据库非空约束，也能实现多条明细记录关联同一个主表主键的需求。

内容的提问来源于stack exchange，提问作者Error In Code