0

我在 Delphi 2009 (Firebird 3.0) 中有 TIBQuery-TDataSetProvider-TClientDataSet 链，我执行 MyClientDataSet.ApplyUpdates(0)。在调用 ApplyUpdates(0) 之前，我是否需要在此 CDS 上调用 CheckBrowseMode 或 Post。我几乎可以肯定我需要调用 Post/CheckBrowseMode，并且我认为未发布的更新不会应用于 IBQuery，我没有支持/反对这种想法的文档，但这样想是合乎逻辑的。但有时我可以观察到 MyClientDataSet 在 ApplyUpdates(0) 之前处于 [dsInsert, dsEdit] 状态，并且新值仍被发布并保存在查询中。但也有证据和理由反对这一点。所以 - 我很困惑。

当然，对于 TIBQuery，我不使用 CachedUpdated（因为有 CDS），这不是关于提交事务的问题，我强烈控制它们并且排除了该问题。

我进行了测试：我放入raise Exception了 MyClientDataSet 的 BeforePost 事件，MadException 给出了跟踪：

TMyDM.MyClientDataSetBeforePost
TDataSet.DoBeforePost
TDataSet.Post
TCustomClientDataSet.Post
TDataSet.CheckBrowseMode
TCustomClientDataSet.ApplyUpdates

因此，有经验证据表明 CheckBroseMode 是自动调用的，但它是偶然的（例如，由于 DataSetProvider 或 ClientDataSet 的某些特殊配置）还是我可以在文档中找到的规则？

4

1 回答 1

4

还是我可以在文档中找到的规则？

有一个更简单的规则，应该是不言而喻的，我会想：如果 CDS 的状态是 dsEdit 或 dsInsert，人们可能会认为它处于待更改状态 - 已经进行了更改（例如在 DB-感知控制）但尚未写回 CDS 的记录缓冲区（或缓冲区，如果它有嵌套数据）。Otoh，调用 ApplyUpdates 的目的是通过 DSP 将记录缓冲区中的更改写回源数据集。因此，当 CDS 位于 dsEdit/dsInsert 中时，不应尝试调用 ApplyUpdates，这似乎很简单。在任何情况下，TCustomClientDataSet.ApplyUpdates都会调用 CheckBrowse 模式：

function TCustomClientDataSet.ApplyUpdates(MaxErrors: Integer): Integer;
var
  RootDataset: TCustomClientDataset;
begin
  CheckBrowseMode;
  RootDataset := Self;
  while RootDataset.FParentDataSet <> nil do
    RootDataset := RootDataset.FParentDataset;
  with RootDataset do
    if ChangeCount = 0 then
      Result := 0 else
      Reconcile(DoApplyUpdates(Delta, MaxErrors, Result));
end;

值得注意的是，如果数据集的状态是 dsEdit 或 dsInsert，CheckBrowseMode 会执行以下三种操作之一：

  • 什么都没有，除了调用 CheckActive 然后调用 DataEvent(deCheckBrowseMode, 0)，如果数据集的状态不是 dsEdit、dsInsert 或 dsSetKey
  • 如果当前记录已被修改，则调用 Post
  • 否则调用取消。

过程 TDataSet.CheckBrowseMode; 开始检查活动；DataEvent(deCheckBrowseMode, 0); dsEdit、dsInsert 的 case 状态：开始 UpdateRecord；如果修改则发布否则取消；结尾; dsSetKey：发布；结尾; 结尾;

于 2019-11-21T13:17:21.000 回答