有二个输入参数,一个输出参数,   with dmfrm.spJHDSH do
            begin
              Close;
              ProcedureName:='JHDSH';
              Parameters.Refresh;
              Parameters.ParamByName('@JHDBH').Value:=strtoint(label15.Caption);
              Parameters.ParamByName('@SHR').Value:=ry_bh;
              Prepared;
              ExecProc;
            end;
             s:=VarToStr(dmfrm.spJHDSH.Parameters.ParamByName('@ERRORMSG').Value);
             MessageDlg(s,mtWarning,[mbOK],0);
提示:过程JHDSH 需要提供@ERRORMSG参数,但示提供应该参数~!