Delphi：如何通过 delta 访问客户端数据集

Question

在 TDatasetProvider.OnBeforeUpdateRecord 上，我该怎么做 访问源或原始客户端数据集 发送 DeltaDS 参数？

procedure TdmLoanPayment.dpLoanPaymentBeforeUpdateRecord(Sender: TObject;
    SourceDS: TDataSet; DeltaDS: TCustomClientDataSet; UpdateKind:  TUpdateKind;
    var Applied: Boolean);
var
  sourceCDS: TClientDataset;
begin
  sourceCDS := DeltaDS.???;
  ...
end;

我需要从相应的客户端数据集中访问一些属性。设置是 TSQLDataset/TDatasetProvider/TClientDataset。

编辑： 所有这些麻烦的原因是，我想从 TDatasetProvider 派生一个组件并分配一个默认的 OnBeforeUpdateRecord。

Answer 1

我认为SourceDS 是我们正在寻找的。​​p>

Sender 参数标识正在应用更新的提供者。

SourceDS 参数是数据来源的数据集。 如果没有源数据集，则此值为 nil (Delphi) 或 NULL （C++）。事件发生时源数据集可能未处于活动状态，因此 在尝试访问其数据之前将其 Active 属性设置为 true。

DeltaDS 参数是包含所有更新的客户端数据集 正在应用。当前记录代表更新 即将申请。

UpdateKind 参数指示此更新是否为 修改现有记录（ukModify），插入新记录 (ukInsert)，或要删除的现有记录 (ukDelete)。

Applied 参数控制退出事件后发生的情况 处理程序。如果事件处理程序将 Applied 设置为 true，则提供程序 忽略更新：它既不尝试应用它，也不记录 指示未应用更新的错误。如果事件处理程序 将 Applied 保留为 false，提供程序尝试在之后应用更新 事件处理程序退出。

例如：

procedure TdmLoanPayment.dpLoanPaymentBeforeUpdateRecord(Sender: TObject;
SourceDS: TDataSet; DeltaDS: TCustomClientDataSet; UpdateKind:  TUpdateKind;
var Applied: Boolean);
begin
  ShowMessage(TClientDataSet(SourceDS).Name); // get source name
  ...
end;

编辑

或

  procedure TdmLoanPayment.dpLoanPaymentBeforeUpdateRecord(Sender: TObject;
SourceDS: TDataSet; DeltaDS: TCustomClientDataSet; UpdateKind:  TUpdateKind;
var Applied: Boolean);
begin
  if SourceDS.Name = 'Name1'then
    ...do something ...
  if SourceDS.Name = 'Name2'then
    ...do something ... 
end;

Answer 2

如果您追踪到您的DataSetProvider1BeforeUpdateRecord 的呼叫，您将 看到作为SourceDS参数传递的数据集是Source的数据集 UpdateTree，即 AFAICS，DataSet 属性的数据集 提供者设置为。当然，这 不是 Delta 的 CDS 已经导出（在我的测试用例中它实际上是一个 TAdoQuery）。

查看Provider.Pas中的源代码，我不能立即看到一个 找到 Delta 的源 CDS 身份的方法。我不认为这特别令人惊讶，因为 Provider 的操作是由 CDS 调用的，反之亦然，并且 Provider 需要来自 CDS 的所有数据都是它的 Delta。

另一方面，BeforeUpdateRecord 事件有一个相当公平的赌注 由对您的一个 CDS 上的 ApplyUpdates 的最新、仍待处理的调用触发，因此，如果 您在他们的BeforeApplyUpdates 事件中记下了这一点，这可能会 告诉你你想知道的。我希望这适用于单级更新，但如果 UpdateTree 在嵌套 CDS 上运行，则可能会更加棘手。

如果您的 CDS 都有单独的提供者，但提供者共享一个 BeforeUpdateRecord 事件，您可以使用如下代码识别给定提供者的 CDS：

function TCDSForm.FindCDSForProvider(DataSetProvider: TDataSetProvider):
    TClientDataSet;
var
  i : Integer;
begin
  Result := Nil;
  for i := 0 to ComponentCount - 1 do begin
    if Components[i] is TClientDataSet then
      if TClientDataSet(Components[i]).ProviderName = DataSetProvider.Name then begin
        Result := TClientDataSet(Components[i]);
        Exit;
      end;
  end;
end;