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;