Delphi编辑收据时无法更新Firebird数据库问题排查

核心问题 #

从“编辑收据”表单进入时，recipt_details和Products表无更新，本质是编辑模式下的SQL语句条件错误，导致UPDATE操作未命中目标记录，后续的Products表更新也因逻辑依赖问题失效。

具体错误点 #

1. recipt_details更新条件完全错误
   编辑模式（FSourceForm = 1）下，UPDATE语句用PurchaseID = :PurchaseID作为匹配条件，但参数赋值却用了FProductID（产品ID）：

• PurchaseID是收据表（recipt）的主键，关联recipt_details的外键，一个PurchaseID对应多条明细记录，用它做条件会修改该收据下所有产品，而非当前要编辑的单条记录；
• 用产品ID给PurchaseID参数赋值，直接导致WHERE条件找不到匹配记录，ExecSQL执行后无任何行被修改。

2. OldQuantity未正确初始化
   如果OldQuantity没有读取当前编辑产品的原始数量，计算出的NewQuantity会错误，导致Products表的数量更新逻辑失效。

修复方案 #

1. 修正recipt_details的更新语句 #

改为通过recipt_details的主键ID定位要编辑的单条记录：

if FSourceForm = 1 then
begin
  // 需新增FDetailID变量存储当前要编辑的recipt_details记录ID
  MDB.FDQuery1.SQL.Text :=
    'UPDATE "recipt_details" ' +
    'SET "ProductName" = :ProductName, "Price" = :Price, "Barcode" = :Barcode, "Quantity" = :Quantity ' +
    'WHERE "ID" = :DetailID'; // 用明细记录的主键定位

  MDB.FDQuery1.ParamByName('ProductName').AsString := edtProductName.Text;
  MDB.FDQuery1.ParamByName('Price').AsFloat := StrToFloat(edtPrice.Text);
  MDB.FDQuery1.ParamByName('Barcode').AsString := edtBarcode.Text;
  MDB.FDQuery1.ParamByName('Quantity').AsInteger := StrToInt(edtQuantity.Text);
  MDB.FDQuery1.ParamByName('DetailID').AsInteger := FDetailID; // 传入明细记录ID
  MDB.FDQuery1.ExecSQL;

  // 调试用：确认是否命中记录
  if MDB.FDQuery1.RowsAffected = 0 then
    ShowMessage('未找到要更新的收据明细记录');

  NewQuantity := StrToInt(edtQuantity.Text) - OldQuantity;
end

2. 正确初始化OldQuantity #

在编辑模式加载表单时，从数据库读取当前明细记录的原始数量：

procedure TNEProductForm.FormCreate(Sender: TObject);
begin
  if FSourceForm = 1 then
  begin
    // 查询当前明细记录的原始数量
    MDB.FDQuery1.SQL.Text := 'SELECT Quantity FROM recipt_details WHERE ID = :DetailID';
    MDB.FDQuery1.ParamByName('DetailID').AsInteger := FDetailID;
    MDB.FDQuery1.Open;
    try
      OldQuantity := MDB.FDQuery1.FieldByName('Quantity').AsInteger;
    finally
      MDB.FDQuery1.Close;
    end;
    // 同时加载其他编辑字段的值（如产品名称、价格等）
  end;
end;

3. 验证Products表更新逻辑 #

确保FProductID是产品在Products表中的正确ID，添加调试代码确认是否命中记录：

// 在Products表更新语句执行后添加
MDB.FDQuery1.ExecSQL;
if MDB.FDQuery1.RowsAffected = 0 then
  ShowMessage('未找到要更新的产品记录');

额外建议 #

所有SQL操作建议包裹在显式事务中，避免部分操作成功、部分失败的不一致情况：

MDB.FDConnection.StartTransaction;
try
  // 所有recipt_details和Products的ExecSQL操作
  MDB.FDConnection.Commit;
  ModalResult := mrOk;
  Close;
except
  on E: Exception do
  begin
    MDB.FDConnection.Rollback;
    ShowMessage('更新失败：' + E.Message);
  end;
end;

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