如何检测ApplyUpdates是否会插入或更新数据？

Question

在ClientDataSet的AfterPost事件处理程序中,如果当前记录的ApplyUpdates函数将执行更新或插入,则需要该信息.

AfterPost事件将针对新记录和更新记录执行,我不想声明一个新的Flag变量来指示"更新"或"插入"操作是否正在进行中.

示例代码:

procedure TdmMain.QryTestAfterPost(DataSet: TDataSet);
begin
  if IsInserting(QryTest) then
     // ShowMessage('Inserting')...
  else
     // ShowMessage('Updating');

  QryTest.ApplyUpdates(-1); 
end;

在ApplyUpdate完成后,应用程序将在AfterPost方法中写入日志.所以这个方法是最接近动作的地方,我更喜欢一个完全可以插入这个事件处理程序的解决方案.

如何使用ClientDataSet实例QryTest中的信息实现IsInserting函数？

编辑:我将尝试ClientDataSet.UpdateStatus,这里解释.

Answer 1

ApplyUpdates不会提供该信息 - 因为它可以是插入,更新和删除.

ApplyUpdates应用存储在Delta阵列上的更改信息.例如,该更改信息可以包含不同类型(插入,删除和更新)的任意数量的更改,并且所有这些更改将应用​​于同一调用.

在TDatasetProvider上你有BeforeUpdateRecord事件(或类似的东西,睡眠在内存上做有趣的事情:-)).在将每个Delta记录应用于底层数据库/数据集之前调用该事件,因此获取此类信息的位置......但Showmessage将停止应用过程.

编辑:现在我记得还有另一种选择:您可以将Delta分配给另一个clientdataset数据属性并读取该记录的数据集UpdateStatus.当然,你需要在做applyupdates 之前这样做...

var
  cdsAux: TClientDataset;
begin
  .
  . 
  <creation of cdsAux>
  cdsAUx.Data := cdsUpdated.Delta;
  cdsAux.First;
  case cdsAux.UpdateStatus of
    usModified:
      ShowMessage('Modified');
    usInserted:
      ShowMessage('Inserted');
    usDeleted:
      ShowMessage('Deleted'); // For this to work you have to modify  
                              // TClientDataset.StatusFilter  
  end;
  <cleanup code>
end;