正文

DataSnap服务器生成的ID自动更新到客户端

IP云
IP云V管理员/1 阅读
09/07
提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

很久没有去动Delphi了，突然兴起做个小程序，一个表的ID，在服务器端的应用服务器上生成，如何刷新到客户端？

查看了TDataSetProvider的Options属性，比以前增加了一个poPropogateChanges，解释如下：

Changes made by the server to updated records as part of the update process are sent back to the client and merged into the client dataset.

代码在服务器端TDataSetProvider的BeforeUpdateRecord事件中，生成ID，如下：

if UpdateKind = ukInsert then
      DeltaDS.FieldByName('DRUG_INFO_ID').AsInteger:= GetPrimaryKey('T_DRUG_INFO','DRUG_INFO_ID');

客户端ApplyUpdates(0) 后，发现ID仍然没有更新，百思不得其解，后来将AsIneger改成NewValue，一切就好了，真是无语....

if UpdateKind = ukInsert then
      DeltaDS.FieldByName('DRUG_INFO_ID').NewValue := GetPrimaryKey('T_DRUG_INFO','DRUG_INFO_ID');