DA的存储过程 服务器端返回参数的应用方法

function TTJService.RQ_singleOP(const Rq_singlestru: STRU_RQ_L1): Integer;
var
acon: IDAConnection;
SqlCMD: IDASQLCommand;
SqlDST: IDADataset;
sqltext: string;
it:Integer;
begin
acon :=DAConnectionManager.NewConnection('EmployeeIBO', TRUE);;
result :=0;

try
SqlCMD :=acon.NewCommand('RQOP', stStoredProcedure);
SqlCMD.RefreshParams ;

with SqlCMD do
begin

ParamByName('mycangku').Value := Rq_singlestru.mycangku ;
ParamByName('mytimes').Value :=   Rq_singlestru.mytimes ;
ParamByName('myprovider').Value := Rq_singlestru.myprovider ;
ParamByName('mygoodid').Value := Rq_singlestru.mygoodid ;
ParamByName('myamount').Value := Rq_singlestru.myamount ;
ParamByName('myunit').Value :=   Rq_singlestru.myunit ;
ParamByName('mycost').Value :=   Rq_singlestru.mycost ;
ParamByName('mytotal').Value := Rq_singlestru.mytotal ;
ParamByName('myjijie').Value := Rq_singlestru.myjijie ;
ParamByName('myname').Value :=     Rq_singlestru.myname ;
ParamByName('myoutprice').Value := Rq_singlestru.myoutprice ;
ParamByName('msize').Value :=      Rq_singlestru.msize ;
ParamByName('mycolor').Value :=    Rq_singlestru.mycolor ;
ParamByName('mykuan').Value :=     Rq_singlestru.mykuan ;
ParamByName('mylb').Value :=       Rq_singlestru.mylb ;
ParamByName('mymaxin').Value :=     50;
ParamByName('myminin').Value :=     1;
ParamByName('myagio').Value := Rq_singlestru.myagio ;
ParamByName('myuser').Value:= Rq_singlestru.myuser ;
ParamByName('oldrqid').Value :=Rq_singlestru.oldrqid ;

ParamByName('mytype').Value := Rq_singlestru.mytype ;
end;

SqlCMD.Execute;

result := SqlCMD.ParamByName('ret_id').AsInteger ;   //返回参数的值
except
on e: Exception do
begin
result :=0;
end;
end;

end;