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

很久没有去动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');

你可能感兴趣的:(Data)