屏蔽FORM系统提示信息

1.1直接将SYSTEM.MESSAGE_LEVEL 设成25，这样大于25的信息提示就不会提示了。
　　Declare
　　t_l number := :SYSTEM.MESSAGE_LEVEL;
　　Begin :
　　SYSTEM.MESSAGE_LEVEL :=25;
　　…….. :
　　SYSTEM.MESSAGE_LEVEL := t_l;
　　End;

1.2上述方法只适用于小于25的信息提示，无法屏蔽错误提示屏蔽错误提示可以FORM的ON-ERROR或ON-MESSAGE中加入拦截代码(不提倡屏蔽错误提示。)。
　　declare
　　t varchar2(10) := error_type;
　　begin
　　if (error_code=40202 or error_code=40401) or t='FRM' then NULL;
　　end if;
　　end;