var
a:integer;
begin
     with adoquery1 do
          begin//4
                procedureName:='js_zhf ';
                Parameters.Refresh;
                Parameters.ParamByName('@xfrm_n').Value:=G;-------string型
                Parameters.ParamByName('@stdno').Value :=a;;-------int型
                Parameters.ParamByName('@zfrm_n').Value :=GD;;-------string型
                Parameters.ParamByName('@out').Direction :=pdoutput;
                ExecProc;
                zhf:= Parameters.ParamByName('@out').Value;
提示参数不匹配;
存储过程:
create procedure js_zhf---------计算综合评分
(
@zfrm_n varchar(20),----综合成绩表表名
@xfrm_n varchar(20),----学习成绩表表名
@stdno int, -----学生学号
@out int output)
as
declare @str varchar(8000),
@zhcj int
..................
set @out=@zhcj