一个Provider 多个Clientdataset

  在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;