我有 Delphi 应用程序，它带有TIBQUery-TDataSetProvider-TClientDataSet，或多或少地模拟了CachedUpdates模式（在以前的BDE组件中）。目前没有错误处理代码，因此，根本没有错误消息。我只想启用以下场景：当查询遇到任何来自数据库的错误时，所有的链接都应该停止工作，保持当前值，回滚已经发布的更改并显示消息。我想-所有这些都可以通过实现TDataSetProvider. OnUpdateError来完成。我有2个代码建议。第一个：

procedure TBillDM.BillProvUpdateError(Sender: TObject;
  DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
  var Response: TResolverResponse);
begin
  inherited;
  raise E;
end;

另一种变体：

procedure TBillDM.BillProvUpdateError(Sender: TObject;
  DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
  var Response: TResolverResponse);
begin
  inherited;
  Response:=rrAbort;
  BillQry.Transaction.RollbackRetaining;
  ShowMessage(E.Message);
end;

这些代码模式是相当理智的吗？如果只是想停止执行并报告错误，OnUpdateError的指导方针是什么？我希望应用程序中没有智能-我只能提供更有意义的错误消息，但所有的更正都应该由用户完成。