在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;
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。