首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

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

Posted on 2011-08-09 14:46  colincode  阅读(512)  评论(0编辑  收藏  举报

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;