forms开发中folder(文件夹)功能的使用

一、模板制作：YSFOLDER.FMB

打开TEMPLATE.FMB，如果打开的是APPSTAND.FMB，以下步骤省略：

1、FORM级触发器：

1、 在WHEN-NEW-FORM-INSTANCE后面添加以下代码：

--定义文件夹数据块

app_folder.define_folder_block(

object_name => ' DETAILBLOCK _FOLDER' ,

folder_block_name => 'DETAILBLOCK', prompt_block_name => 'DETAILBLOCK_PROMPT', folder_canvas_name => 'DETAILBLOCK_STACKED', folder_window_name => 'BLOCKNAME', disabled_functions => '');

--以上参数均为VARCHAR2,长度不得超过20个字符

2、 增加FORM级触发器：FOLDER_ACTION， PL/SQL代码如下：

app_folder.event(:global.folder_action);

3、 增加FORM级触发器：FOLDER_RETURN_ACTION， PL/SQL代码如下：

null; --

-- action code is in :global.folder_action -- affected field is in :global.folder_field --

2、Attached Libraries：

添加文件：APPFLDR.PLL

来源：ERP安装目录下，AU目录下查找该类文件所在的目录

3、Object Groups

继承一个对象组：STANDARD_FOLDER 做法：复制APPSTAND.FMB中的同名对象，粘贴到模板对象组中，选择“Refence”（继承），路径方式选择“Remove path”（不要路经）。 结果：将会把对象组中的所有对象映射添加到相应的对象节点中。

二、模板例子的制作

1、 修改WHEN-NEW-FORM-INSTANCE中文件夹数据块定义语句中的参数，确定对象

名称（一般为form对象名称）、文件夹数据块名称、标题块名称、堆叠画布名称、窗口名称。

2、 定义窗口（windows），win_main：继承属性WINDOW_NORMAL

3、 定义堆叠画布（stacked canvas-views）, cv_detail_stacked：继承属性类

CANVAS_STACKED

4、 定义文件夹数据块（folder block），blk_detail：继承属性类BLOCK

（1） 触发器：

 KEY-EXEQRY：

app_folder.event('KEY-EXEQRY');

 KEY-NEXT-ITEM app_folder.event('KEY-NEXT-ITEM');  KEY-PREV-ITEM app_folder.event('KEY-PREV-ITEM');  POST-BLOCK app_folder.event('POST-BLOCK');  PRE-BLOCK app_folder.event('PRE-BLOCK');

 WHEN-NEW-BLOCK-INSTANCE App_folder.event('WHEN-NEW-BLOCK-INSTANCE');

 KEY_CLRBLK App_folder.event(' KEY_CLRBLK ');  KEY_ENTQRY App_folder.event(' KEY_ENTQRY ');  KEY_NXTREC App_folder.event(' KEY_NXTREC ');  KEY_PRVREC App_folder.event(' KEY_PRVREC ');  PRE_QUERY App_folder.event(' PRE_QUERY ');

 WHEN-NEW-RECORD-INSTANCE App_folder.event('WHEN-NEW-RECORD-INSTANCE');

（2） 定义数据项，可以是表项，也可以是非基表项，确定哪些项需要放在堆叠画布上，注意只有在堆叠画布上的项才能使用文件夹功能

（3） 注意：数据项的类型不能是：Display Item、List Item等；

可以是：Text Item、Check Box等； 如果打开folder时出现错误：“Set_Item_Property没有这样的

属性”，说明erp标准程序中用到的属性在个别项中不存在，出现几次就有几个缺乏这个属性的Item；是否拥有这个属性，是由Item的类型确定的，因此有些Item类型不能用于folder功能。

（4） 确定各个项在画布中的位置

5、 定义标题数据块（prompt block）, blk_detail_prompt：继承属性类BLOCK_DIALOG

便捷的做法：先复制文件夹数据块blk_detail，改名称，再删去新块下的全部触发器，然后除去不需要的项，修改剩下所有项的属性继承FOLDER_PROMPT_MULTRIROW，最后将各个项的default value属性值写入对应的中文或英文标题

（1） 触发器：无

（2） 标题项，来自文件夹数据块blk_detail，属性继承自

FOLDER_PROMPT_MULTIROW，default value属性值写入相应的中英文标题

标题项必须和参与folder功能的数据项保持一一对应，名称必须一致

（3） 文件夹功能项（6个）：

 FOLDER_OPEN：属性继承FOLDER_OPEN

Canvas: CV_MAIN

 FOLDER_TITLE：属性继承DYNAMIC_TITLE

Canvas: CV_MAIN

 ORDER_BY1、ORDER_BY2、ORDER_BY3：

属性：

继承FOLDER_ORDERBY

触发器：

WHEN-BUTTON-PRESSED:

APP_FOLDER.EVENT('TOGGLE-ORDER-BY'); Canvas: CV_DETAIL_STACKED

FOLDER_OPEN、FOLDER_TITLE可见，放置在堆叠画布的左上位置

（4） 确定各个项在画布上的位置

（5） 注意：在文件夹数据块中，项的初始宽度由同名的标题项的宽度确定，

而且只有存在标题项的文件夹数据项才能使用文件夹功能。设计时，应该将文件夹数据块中项的宽度与标题块中项的宽度保持一致。

（6） 如果文件夹数据块在第一个窗口，可能会出现初次进入窗口标题项没有

显示的现象，需要在form级触发器when-new-form-instance中，在导航到控制块之前，先将导航到标题块，例如：

…

GO_BLOCK(‘BLK_DETAIL_PROMPT’); GO_BLOCK(‘BLOCKCONTROL’);

(7) Q&A

三、基于模板的开发过程 1．模板名：XZ_FOLDER.fmb 2．模板说明：

2.1 APP_FOLDER.DEFINE_FOLDER_BLOCK参数说明

'XZ_FOLDER'MODULE NAME ，表单名称 'BLK_DETAIL'FOLDER数据块名称

'BLK_DETAIL_PROMPT'FOLDER标题块名称 'CAVSTACK'FOLDER数据块所在画布

'WINFOLDER' FOLDER数据块所在画布所属的窗口

2.2数据块

2.2.1 BLK_DETAILFOLDER数据块

2.2.2 BLK_DETAIL_PROMPTFOLDER标题块

其中的：FOLDER_OPEN、FOLDER_TITLE、ORDER_BY1、ORDER_BY2、ORDER_BY3，不用动。 2.3画布

'CAVSTACK'FOLDER数据块所在画布,堆叠类型

'CAVMAIN'content类型， CAVSTACK堆叠在其上边。 2.4窗口

3修改过程 3.1修改form级触发器WHEN-NEW-FORM-INSTANCE：APP_FOLDER.DEFINE_FOLDER_BLOCK('XZ_FOLDER','BLK_DETAIL','BLK_DETAIL_PROMPT','CAVSTACK','WINFOLDER','ENABLED');

在模板xz_folder.fmb基础上开发程序时，把‘XZ_FOLDER’替换为自己的表单名即可。 3.2修改数据块BLK_DETAIL，在模板块的基础上改数据源，增删数据项

3.3修改数据块BLK_DETAIL_ PROMPT在模板块的基础上增删项,与BLK_DETAIL中的项一一对应。

3.4调整画布输出及大小格式