可以这样解决:
create procedure sum_student
(@Vid int)
AS
DECLARE @sum int
  SELECT @Vsum=sum(成绩) FROM 学生表 WHERE 学号=@Vid
  REURN @Vsum在DELPHI中
begin
     with storeproc1 do
         begin
             parameters.parambyname('@Vid').value:=StrToInt(edit1.text);
             execproc;
         end;
             eidt2.text:=IntToStr(params.parambyname('@Return_Value').value);
end;

解决方案 »

  1.   

    可以这样解决:
    create procedure sum_student
    (@Vid int)
    AS
    DECLARE @sum int
      SELECT @Vsum=sum(成绩) FROM 学生表 WHERE 学号=@Vid
      REURN(@Vsum)在DELPHI中
    begin
         with storeproc1 do
             begin
                 parameters.parambyname('@Vid').value:=StrToInt(edit1.text);
                 execproc;
             end;
                 eidt2.text:=IntToStr(params.parambyname('@Return_Value').value);
    end;
      

  2.   

    直接用query
      sql('declear @sum int')
      sql('exec @sum=存储过程名 参数')
      sql('select sum=@sum')
      ....
      sum=query1.FieldByName('sum').asinteger;