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;