伪三层中调用oracle中的存储过程(0分)

中间层用adodataset(不要用adostoreproc)+provider
客户端socketconnection+clientdataset
过程说明：查询某字段值等于输入参的记录。输入一个参数，返回数据集
调用过程如下:
WITH ClientDataSet3do
begin
close ;
ClientDataSet3.RemoteServer := SocketConnection1 ;
ClientDataSet3.ProviderName := 'DataSetProvider3' ;
ClientDataSet3.Params.Clear ;
ClientDataSet3.Params.CreateParam(ftUnknown, 'a', ptInput) ;
ClientDataSet3.Params.ParamByName('a').AsString := 'SALESMAN' ;
//或 ClientDataSet3.Params[0].Value := 'SALESMAN' ;
commandtext := '{call pkg_demo.open_emp_cv_pa)}' ;
OPEN;
END ;