有二个输入参数,一个输出参数, 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参数,但示提供应该参数~!
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参数,但示提供应该参数~!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货