delphi xe7 datasnap客户端更新数据之后重新读取显示的行数不对

2020-05-30 12:34:51 480 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

DataSnap三层架构实战：从核心原理到Delphi分布式应用开发三层架构是分布式系统设计的经典模式，通过将应用逻辑分解为表示层、业务逻辑层和数据访问层，实现了关注点分离与职责解耦。其核心原理在于通过中间件协调各层通信，将业务规则与数据访问集中管理，从而提升系统的可维护性、可扩展性与安全性。这一架构的技术价值在于能够有效支持多用户并发访问，简化客户端部署，并保障业务逻辑的一致性。在应用场景上，它尤其适合需要长期维护、业务复杂的企业级桌面应用，例如进销存、ERP等系统。本文以Delphi生态中的DataSnap框架为例，深入探讨如何利用其TCP、HTTP及REST通信模式构阅读详情

各位高手大佬，请教如下问题
delphi xe7, datasnap 远程服务器端是fdcquery, mysql，
客户端用cliendataset 刚开始联合查询两个表（一个是orderlist, 一个是类似结构的purchaselist表格），显示到stringgrid中，
在stringgrid中修改之后，分别用cdslist, cdspurchase applyupdate到数据库，更新之后，要重新读取最新的数据显示出来，但是问题就在于重新联合查询出来的数据行数不正确，比如4行数据，刷新后有时候是1行，也有可能是6，8行。
实际mysql里面的两个表的数据都是对的。
请各位看看什么原因？是不是cds刚刚applyupdate之后，datasetprovider中还没有刷新？

    if (self.cdsHead.Active=false) or (self.cdsList.Active=false) then

    begin

        showmessage('数据集没有开启不能提交更新。');

        exit;

    end;



        try

            if self.cdsHead.ApplyUpdates(0)=0 then

            if self.cdsList.ApplyUpdates(0)=0 then

            if self.cdsPurchase.ApplyUpdates(0)=0 then

            begin

                application.MessageBox('提交服务器更新成功。','提示');

            end;

        except

        on E: exception do

            showmessage('提交服务器更新出错。'+E.Message);

        end;

    //更新完成后重新读取数据

    cdspurchase.Active:=false;

    cdspurchase.CommandText:='UPDATE tbpurchaselist b, tborderlist a '

        +'SET b.`autoNumber`=a.`AutoNumber` WHERE '

        +'(b.`orderNo`=a.orderno) AND (b.`autono`=a.`AutoNo`)';

    cdspurchase.Execute;



    self.cdsList.Close;

    self.cdsList.CommandText:=

     'SELECT a.`AutoNumber`,a.`AutoNo`,a.`GroupMemo`,a.`itemno`,a.`PartNumber`,'

          +'a.`CDes`,a.`CQuantity`,a.`CUnit`,a.`Price`,a.`Amount`,a.`CRemark`,'

          +'b.`MyCode`,b.`MyDesEN`,b.`MyDesCHN`,b.`MyUnit`,b.`MyQty` ,'

          +'b.`autoNumber`,b.`supplycode`,b.`supplyname`,b.`costprice`,'

          +'b.`costCurrency`,b.`discount`,b.`costSum`,b.`sremark`,b.`orderno`,'

          +'a.`machinetype`,b.`PONo`,b.`Purchased`,b.`Recieved` ,b.`itemno` '

          +'FROM tborderlist a LEFT JOIN tbpurchaselist b'

          +' ON a.`AutoNumber`=b.`autoNumber` '

          +'where a.Orderno="'+ getOrderno + '" order by autono';

    self.cdsList.Active := true;

    //self.cdslist.indexfieldnames:='autono';

    //showmessage('重新读取的记录行数：'+inttostr(self.cdslist.recordcount));

    clearrows(sgList);

    readDataset(self.cdsList); // 把数据库的记录读取到表格中