Develop2K 6.0常见问题解答

　　问：如何在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');