如何用delphi 6 的ADOStoredProc 连接使用Sqlserver 中的存储过程？

Question

adostoredproc有一个procedurename属性

Answer 1

if Form1.ADOStoredProc6.Active then
       Form1.ADOStoredProc6.Active:=false;
  Form1.ADOStoredProc6.ProcedureName:='Qc_DutyWrite';  Form1.ADOStoredProc6.Parameters.Clear;  Form1.ADOStoredProc6.Parameters.AddParameter;
  Form1.ADOStoredProc6.Parameters.AddParameter;
 
  Form1.ADOStoredProc6.Parameters.Items[0].Name:='RETURN_VALUE';
  Form1.ADOStoredProc6.Parameters.Items[0].DataType:=ftInteger;
  Form1.ADOStoredProc6.Parameters.Items[0].Direction:=pdReturnValue;  Form1.ADOStoredProc6.Parameters.Items[1].Name:='@Cdate';
  Form1.ADOStoredProc6.Parameters.Items[1].DataType:=ftString;
  Form1.ADOStoredProc6.Parameters.Items[1].Direction:=pdInput;
  Form1.ADOStoredProc6.Parameters.Items[1].Value:=SDate;
 
  Form1.ADOStoredProc6.Prepared:=true;  Form1.AdoStoredProc6.ExecProc;