如何用Delphi向带外键的同结构Postgres表复制数据？

错误原因 #

这个错误是因为Order_History表的orderno字段处于只读状态，常见触发场景：

• 数据库端该字段是自增主键/标识列，Delphi数据组件自动将其标记为不可修改
• Delphi中tblorderhist组件的orderno字段属性里ReadOnly被设为True
• 字段作为主键，数据库层面限制了手动修改权限

解决方案 #

根据你的业务需求选择对应处理方式：

方式1：历史表自动生成orderno（无需从原表复制） #

跳过orderno字段的复制，只同步其他业务字段，同时确保详情表与主表外键关联正确：

var
  i: Integer;
begin
  tblorderhist.Insert;
  // 遍历源表字段，跳过orderno
  for i := 0 to DataModule1.tblorders.FieldCount - 1 do
  begin
    if DataModule1.tblorders.Fields[i].FieldName <> 'orderno' then
      tblorderhist.Fields[i].Assign(DataModule1.tblorders.Fields[i]);
  end;
  // 若需手动生成orderno，在此添加自定义逻辑（比如基于时间戳生成）
  // tblorderhist.FieldByName('orderno').AsString := 'ORD_' + FormatDateTime('YYYYMMDDHHMMSS', Now);
  tblorderhist.Post;

  // 同步详情表并绑定主表订单号
  tbldetailHist.Insert;
  for i := 0 to DataModule1.tblline.FieldCount - 1 do
  begin
    if DataModule1.tblline.Fields[i].FieldName <> 'Link_Ordernumber' then
      tbldetailHist.Fields[i].Assign(DataModule1.tblline.Fields[i]);
  end;
  tbldetailHist.FieldByName('Link_Ordernumber').AsString := tblorderhist.FieldByName('orderno').AsString;
  tbldetailHist.Post;
end;

方式2：需要从原表复制orderno #

1. 调整Delphi组件属性：选中tblorderhist的orderno字段，在属性面板将ReadOnly改为False
2. 调整数据库设置：如果该字段是自增/标识列（比如SQL Server的Identity列），需先开启手动插入权限，示例代码：

begin
  // SQL Server环境下开启标识列手动插入
  DataModule1.ADOConnection1.Execute('SET IDENTITY_INSERT Order_History ON');

  tblorderhist.Insert;
  tblorderhist.CopyFields(DataModule1.tblorders);
  tblorderhist.Post;

  tbldetailHist.Insert;
  tbldetailHist.CopyFields(DataModule1.tblline);
  tbldetailHist.Post;

  // 关闭标识列手动插入
  DataModule1.ADOConnection1.Execute('SET IDENTITY_INSERT Order_History OFF');
end;

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