怎样编写DataSetProvider的DataRequest啊

Question

谁能举个例子给我啊  谢谢

Answer 1

服务器端:
function TForm1.DataSetProvider2DataRequest(Sender: TObject;
  Input: OleVariant): OleVariant;
begin
  AdoDataSet3.CommandText := 'SELECT * FROM BM ' + Input;
  Result := DataSetProvider2.Data;
end;k客户端:
procedure TForm1.Button1Click(Sender: TObject);
begin
  with ClientDataSet3 do
  begin
     Data := DataRequest('WHERE 1 = 1');
  end;
end;