问:如何在FORM中同时加入水平与垂直滚动条?
答:首先,必须将画布类型设置为“堆叠式”画布,其它类型的画布不能显示滚动条。将画布类型设置为“堆叠式”之后,该画布属性选项板的“物理属性”子类会出现“显示水平滚动条”与“显示垂直滚动条”两项内容,将其同时设置为“是”,则可以同时显示水平与垂直滚动条。
问:如何在告警框内显示message信息?
答:当使用系统缺省设置,不进行任何设定时,message信息将在FORM窗口的底部以小字显示。如果希望引起用户注意,可以将message信息显示在告警框中。例如,如果用户输入的数据类型错误,则弹出一个告警窗口,并在其中显示message信息:“输入数据类型不符”,这样,可以更加清晰地提醒用户输入有误,并允许用户及时地改正错误。
在告警框中显示message信息,只需要创建一个警告(alert)与一个ON_ERROR触发器,由于引用的是系统错误信息,所以不需要程序员自己编写捕捉错误并弹出相关警告信息的程序,从而提供了极大的便利。
在告警框内显示message信息的过程如下所述:
1. 创建一个只具有一个按钮的警告“general_error_alert”。
2. 在FORM一级创建ON_ERROR触发器,在出现错误时,将错误代码与信息显示在告警框中,程序如下:
declare
v_button number;
v_message varchar2(255);
begin
--将不需要显示的mesage信息屏蔽掉
if error_code in (0,40100,40400,40401,41051,40350)
then null;
else
--将错误代码与错误信息联系起来
v_message:=error_type || '-' || to_char(error_code) || ':' || error_text;
--将错误信息显示为告警信息
set_alert_property('general_error_alert',alert_message_text,v_message);
v_button:=show_alert('general_error_alert');
end if;
raise form_trigger_failure;
end;
问:如何一次退出所有FORM?
答:如果重复调用并打开了多个FORM,希望在点击任何一个FORM选单上的“退出”按钮时同时退出所有的FORM,需要在每一个FORM中设置一个全局变量global.quit_all,同时在选单条上加入一个“退出”按钮,并建立以下触发器:
1.在每一个FORM上建立WHEN_NEW_FORM_INSTANCE触发器:
:global.quit_all := 'N';
2.在每一个FORM上建立WHEN_WINDOW_ACTIVATED触发器:
if :global.quit_all = 'Y'
then exit_form;
end if;
3.在选单条的“退出”按钮上建立WHEN_BUTTON_PRESSED触发器:
:global.quit_all := 'Y';
exit_form;
注意,要么使用OPEN_FORM打开FORM,要么使用CALL_FORM打开FORM,不能两者混合使用,否则容易发生错误,无法一次退出所有的FORM。 问:如何在FORM与REPORT之间传递参数?
答:由于FORM与REPORT是两项独立的产品,不可能使用全局变量传递数据,所以它们之间的数据无法共享。如果希望REPORT继承FORM中的一些数据,可以将FORM中的有关数据作为参数,以参数列表的形式传递给REPORT。
例如,可以根据用户在FORM中的选择,在REPORT中动态生成符合查询条件的数据,方法是将FORM中的查询条件,作为参数传递给REPORT,从而在REPORT中动态生成查询结果。
在FORM与REPORT之间传递参数的程序如下所示:
declare
pl_id ParamList;
begin
―获取tmpdep的参数列表值
pl_id := Get_Parameter_List( 'tmpdep' );
―如果参数列表pl_id已存在,则删除它,然后重建。如果不删除当前pl_id,则无法创建参数列表,并在运行FORM时出现错误提示:参数列表已存在,无法重建
if Not Id_Null( pl_id )
then Destroy_Parameter_List(pl_id);
end if;
--创建参数列表tmpdep
pl_id:=Create_Parameter_List('tmpdep' );
--在参数列表pl_id中加入参数w_clause,同时对w_clause赋值
where deptno=:dept_deptno。
Add_Parameter( pl_id,'w_clause', TEXT_Parameter, 'where deptno=:dept.deptno');
--运行报表,并将现有参数列表pl_id与值传递给报表report1
run_product(reports,'C:\report\report1',synchronous,runtime,filesystem,pl_id);
end ;
问:从FORM调用REPORT时,如何使REPORT以满屏方式显示?
答:当从FORM调用REPORT时,REPORT将按缺省窗口大小(420×360)显示,如果希望REPORT以满屏方式显示,需要加入如下代码:
add_parameter(pl_id,maximize',TEXT_PARAMETER,'yes');
问:如何关闭REPORT运行时的参数窗口?
答:当FORM调用REPORT时,首先会弹出一个参数窗口,显示所有FORM传递给REPORT的参数,待点击该窗口中的“运行”后,才运行REPORT。我们也可以不显示该参数窗口,方法是在FORM中加入如下代码:
Add_Parameter(pl_id,'w_clause',TEXT_Parameter,'NO');