在delphi中取存储过程的返回值

 

在delphi中取存储过程的返回值
   Close;
    SQL.Clear;
    SQL.Text:='declare @ReturnCount int exec Pr_SelStockHead '''+StockNo+''',@ReturnCount output select @ReturnCount';
    open;
    CountNO:=fields[0].value;
    cxtxtdtNameCSHYH.Text:=IntToStr(CountNO);
在sql语句里面 如果有返回值的话,可以是用return 返回,,其他的都是参数返回,如果取参数的话 从 Parameters[1].Value 开始,如果取return 的返回值 要用Parameters[0].Value

调用存储过程的方法，用adodataset控件
function TfrmPower_Cut.HasNewPowerCutInfo: Boolean;
begin
  Result := False;
  with spPower_Cut do //spPower_Cut为Tadostoredproc控件
  begin
    Close;
    ProcedureName := 'p_Has_PowerCut_Info';
    with Parameters do
    begin
      Clear;
      Refresh;
      ParamByName('@BiggestID').Direction := pdInputOutput;
      ParamByName('@BiggestID').Value := FPower_Cut_ID_Refresh;
      ParamByName('@NoProcess').Direction := pdInputOutput;
      ParamByName('@NoProcess').Value := FNoProcess;
      ParamByName('@IsPassTimeAndNoProc').Direction := pdInputOutput;
      ParamByName('@IsPassTimeAndNoProc').Value := FIsPassTimeAndNoProc;
      ParamByName('@IsNearestTime').Direction := pdInputOutput;
      ParamByName('@IsNearestTime').Value := FIsNearestTime;
      ParamByName('@IsDelete').Direction := pdInputOutput;
      ParamByName('@IsDelete').Value := FIsNearestTime;
      ParamByName('@Hour').Value := 3;
    end;
    Prepared;
    try
      ExecProc;
      if Parameters[0].Value <> FPower_Cut_ID_Refresh then
      begin
        FPower_Cut_ID_Refresh := Parameters[1].Value;
        Result := True;
      end;
      if Parameters[2].Value <> FNoProcess then
      begin
        FNoProcess := Parameters[2].Value;
        Result := True;
      end;
      if Parameters[3].Value <> FIsPassTimeAndNoProc then
      begin
        FIsPassTimeAndNoProc := Parameters[3].Value;
        Result := True;
      end;
      if Parameters[4].Value <> FIsNearestTime then
      begin
        FIsNearestTime := Parameters[4].Value;
        Result := True;
      end;
      if Parameters[5].Value <> FIsDelete then
      begin
        FIsDelete := Parameters[5].Value;
        Result := True;
      end;
    except
      on e: Exception do
        ShowMessage(e.Message);
    end;
  end;
end;
存储过程
/*
功能: 判断数据库内是否有新的呼叫中心停电信息
参数: @BiggestID 客户端最大的记录ID,如果小于当前表中的ID,则返回最大的ID,客户端据此判断是否刷新
返回值: 无
*/
ALTER  procedure p_Has_PowerCut_Info @BiggestID bigint=0 output, @NoProcess int=0 output,
  @IsPassTimeAndNoProc int=0 output, @IsNearestTime int=0 output, @IsDelete int=0 output, @Hour int=3 as
begin
  declare @tmp_ID bigint,@tmp_NoProcess int
  select @tmp_ID=Power_Cut_ID from Power_Cut
  if (@@error=0) and (@@rowcount>0)
    if  @tmp_id>@BiggestID
      set @BiggestID=@tmp_ID
  select @tmp_NoProcess=count(*) from Power_Cut where PC_ProcType=0
  if (@@error=0) and (@@rowcount>0)
    set @NoProcess=@tmp_NoProcess
  --超过发送时间未处理
  select @IsPassTimeAndNoProc=count(case when (getdate()>PC_StartTime and PC_ProcType=0) then 1 end) from Power_Cut 
  --距离发送时间还有3小时未处理
  select @IsNearestTime=count(case when (DATEDIFF(minute, getdate(), PC_StartTime)>=0 and DATEDIFF(minute, getdate(), PC_StartTime)<@Hour*60
    and PC_ProcType=0) then 1 end) from Power_Cut
  select @IsDelete=count(*) from Power_Cut where PC_State=2
  return @BiggestID
end
return 返回的是正确或错误的标志,比如 100: 成功 0: 失败(未知原因) 1: 参数错误 2: ....  然后参数里面返回具体需要的数据