Develop2K 6.0常见问题解答
2024-07-21 02:38:15
供稿：网友
问：如何在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');
