这个存储过程在delphi中如何写?

Question

exec ts_G_PriceHis;1 1, 1, 124, '', '000000'
其中000000,124是变量

Answer 1

With ADOStoredProc1 Do
  Begin
   ADOStoredProc1.Close;
   ProcedureName:='ts_G_PriceHis' ;
   Parameters.Clear;
   Parameters.CreateParameter('Inputdata',ftString,pdInput,1, '000000');--输入参数
   Parameters.CreateParameter('Inputdata1',ftInteger,pdInput,1,124);--输入参数
   ExecProc;
  End;