BDE组件下Query1 AfterPost中用Query2更新同表报错的解决方案咨询

问题详情 #

• 错误提示：无法执行编辑，因为其他用户已更改记录（实际无多用户操作，仅通过两个Query组件操作同一张Customer表）
• 触发场景：在Query1（绑定Customer表）的AfterPost事件中，调用Query2执行同表的UPDATE语句时触发报错
• BDE组件配置：
  • Query1：DataBaseName = MyData，SQL语句为Select * from customer
  • Query2：DataBaseName = MyData
• 报错代码示例：

procedure TForm.Query1AfterPost(DataSet: TDataSet);
begin
  if OK then
  begin
    with Query2 do    
    begin
      close;
      sql.clear;
      sql.add('UPDATE Customer');
      sql.add(format('WHERE name = ''%s'' ', ['Sally']));
      ExecSQL; // 此处报错：无法执行编辑，因为其他用户已更改记录
      close;
    end;
  end; 
end;

原因分析 #

Query1的AfterPost事件触发时，当前数据库事务尚未提交，Customer表的相关记录仍处于BDE的乐观锁锁定状态。此时Query2尝试更新同表记录，BDE的乐观锁冲突检测机制会误判为其他用户修改了数据，从而抛出该错误。另外，原代码中的UPDATE语句缺少SET子句，属于语法错误，需优先修正。

解决方案 #

方案1：调整事务隔离级别，允许脏读并手动控制提交 #

临时将事务隔离级别改为允许脏读，绕过乐观锁检测，操作完成后恢复原级别并提交事务：

procedure TForm.Query1AfterPost(DataSet: TDataSet);
var
  OldTransLevel: TTransIsolation;
begin
  if OK then
  begin
    // 保存原事务隔离级别
    OldTransLevel := DataSet.Database.TransIsolation;
    // 设置为允许脏读，避免锁冲突检测
    DataSet.Database.TransIsolation := tiDirtyRead;
    try
      with Query2 do    
      begin
        Close;
        SQL.Clear;
        // 补上UPDATE必需的SET子句，示例为修改age字段
        SQL.Add('UPDATE Customer SET age = age + 1');
        SQL.Add(Format('WHERE name = ''%s'' ', ['Sally']));
        ExecSQL;
        Close;
      end;
    finally
      // 恢复原事务隔离级别
      DataSet.Database.TransIsolation := OldTransLevel;
      // 提交Query1的事务
      DataSet.Database.Commit;
    end;
  end;
end;

方案2：先提交Query1的修改，再执行Query2更新 #

先完成Query1的事务提交，释放表锁后再执行Query2的更新操作：

procedure TForm.Query1AfterPost(DataSet: TDataSet);
begin
  if OK then
  begin
    // 提交Query1的修改，释放表锁
    DataSet.Database.Commit;
    // 重新加载Query1以获取最新数据
    Query1.Close;
    Query1.Open;

    with Query2 do    
    begin
      Close;
      SQL.Clear;
      SQL.Add('UPDATE Customer SET age = age + 1');
      SQL.Add(Format('WHERE name = ''%s'' ', ['Sally']));
      ExecSQL;
      Close;
    end;

    // 刷新Query1显示最新数据
    Query1.Refresh;
  end;
end;

方案3：调整BDE全局锁配置（谨慎使用） #

通过BDE Administrator修改数据库别名的锁模式，从根源改变锁机制：

1. 打开BDE Administrator，找到目标数据库别名MyData
2. 进入Configuration -> Driver -> [对应数据库驱动，如MSSQL]
3. 将LockMode参数设置为0（悲观锁模式），或调整CacheUpdate相关参数

注意：此修改会影响整个应用的锁行为，需结合业务场景评估后使用

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