在Delphi里如何取得SQL Server存储过程的输出参数的值？

Question

最好简单举个例子

Answer 1

前台：
var
   E_Single_No,E_Cust_Nm,E_Code_No:string;
   E_Succ:Integer;  With StoredProc2 do
  begin
    Params[1].AsString := E_Single_No;
    Params[2].AsString := E_Cust_Nm;
    Params[3].AsString := E_Code_No;
    Prepare;
    ExecProc;
    E_Succ := Params[4].AsInteger;
  end;
  if E_Succ=5 then
  begin
    Application.MessageBox('該客戶編碼下的該料品編碼沒有可拷貝的記錄!','',0);
    Abort;
  end；後台：
CREATE PROCEDURE dbo.Proc_CopyCostSta
    @Single_No varchar(50),     --標準成本序號
    @Cust_Nm  varchar(50),      --客戶編碼
    @Code_No  varchar(50),     --料號
    @SuccCopy int output     
 AS。。
  --不成功 set @SuccCopy=5注意參數的順序為第四個參數，所以前台也用Params[4]