Delphi: как получить доступ к клиентскому набору данных через дельту

Я думаю SourceDS это то, что ищите.

Параметр Sender определяет поставщика, применяющего обновления.

Параметр SourceDS - это набор данных, из которого были получены данные. Если исходный набор данных отсутствует, это значение равно нулю (Delphi) или NULL (C ++). Исходный набор данных может быть неактивным при возникновении события, поэтому установите для его свойства Active значение true, прежде чем пытаться получить доступ к его данным.

Параметр DeltaDS - это набор данных клиента, содержащий все применяемые обновления. Текущая запись представляет собой обновление, которое будет применено.

Параметр UpdateKind указывает, является ли это обновление изменением существующей записи (ukModify), новой записи для вставки (ukInsert) или существующей записи для удаления (ukDelete).

Параметр Применено определяет, что происходит после выхода из обработчика событий. Если обработчик событий устанавливает для 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;

Изменить

or

  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;

Если вы отследите вызов до своего DataSetProvider1BeforeUpdateRecord, вы увидите, что набор данных, переданный в качестве параметра SourceDS, является набором данных Source из UpdateTree, то есть AFAICS, набором данных, для которого установлено свойство DataSet провайдера. Конечно, это не CDS, из которого была получена дельта (в моем тестовом примере это на самом деле TAdoQuery).

Глядя на исходный код в Provider.Pas, я не могу сразу найти способ определить идентичность исходного CDS Delta. Я не думаю, что это особенно удивительно, потому что операция провайдера вызывается CDS, а не наоборот, и все данные, которые требуются провайдеру от CDS, являются его дельтой.

С другой стороны, вполне справедливо предположить, что событие BeforeUpdateRecord было инициировано самым последним, все еще ожидающим, вызовом ApplyUpdates на одном из ваших CDS, поэтому, если вы отметите это в их 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;