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;