DECLARE YHDL PROCEDURE FOR JULIE.YHDL(:w_yhdl.li_czybm,:w_yhdl.li_bmbm,:w_yhdl.ls_mm);
EXECUTE YHDL;//执行用户登录验证存储过程
// Error handling
if SQLCA.SQLCode < 0 then
MessageBox (gs_title + String (SQLCA.SQLDBCode), SQLCA.SQLErrText)
// Set Action Code to stop processing the update
return 1
end if
FETCH YHDL INTO :w_yhdl.li_jbqx,:w_yhdl.li_result;