🚀 go-pugleaf

Don't care about OnDataRequest,
In Client you can use SetSQL() to change the Server Query SQL statement,just
like the demo you mentioned.

void __fastcall TForm1::RunButtonClick(TObject *Sender)
{
  ClientDataSet->Close();
  WideString wsql;
//  wsql = Memo1->Lines->Text;
  wsql = "select * from where company = :company"
  IAdHocQueryDemo_BCBDisp srvr;
  srvr.Bind(LPDISPATCH(RemoteServer->AppServer));
  srvr.SetSQL(wsql.Copy());
  // Query SQL in Server tier already changed now
  ClientDataSet->Params->Clear();
  ClientDataSet1->Params->CreateParam(ftString,"company",ptInput);
  ClientDataSet1->Params->ParamByName("company")->AsString = Edit1->Text;
  ClientDataSet1->SendParams();
  ClientDataSet->Open();
}