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

发布时间：2020-12-15 04:23:28 所属栏目：大数据来源：网络整理

导读：在ClientDataSet的AfterPost事件处理程序中,如果当前记录的ApplyUpdates函数将执行更新或插入,则需要该信息. AfterPost事件将针对新记录和更新记录执行,我不想声明一个新的Flag变量来指示“更新”或“插入”操作是否正在进行中. 示例代码： procedure TdmMai

在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,其解释为here.

解决方法

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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!