重大税收违法案件审理:一个Provider 多个Clientdataset

来源:百度文库 编辑:中财网 时间:2024/04/29 08:52:54
  在ClientDataSet.BeforeApplyUpdates中传入SQL语句
    在Provider.BeforeApplyUpdates中将得到的SQL语句赋值给TQuery.SQL.Text
程序如下:
Client端:
    procedure   xxxx.ClientDataSetBeforeApplyUpdates(Sender:   TObject;   var   OwnerData:   OleVariant);
    begin
        with   Sender   as   TClientDataSet   do
            OwnerData   :=   CommandText;
    end;

Server端:
    procedure   xxxx.ProviderBeforeApplyUpdates(Sender:   TObject;
        var   OwnerData:   OleVariant);
    begin
        qrDataProvider.SQL.Text   :=   OwnerData;
    end;