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;