Form Builder中Folder文件夹功能的使用

54 阅读 0 评论 36 点赞

我是靠谱客的博主热情帅哥，最近开发中收集的这篇文章主要介绍Form Builder中Folder文件夹功能的使用，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

Folder文件夹功能
可以实现位置在前三项的项目排序，而非特定项目排序。
可以实现拖动列，隐藏列，显示列，拉宽列，拉窄列
加载实现Folder功能的pll
从FTP上的au/11.5.0/resource/ 目录下载APPFLDR.pll到自己电脑上的某个位置，然后加载该pll，操作方法：选中表单的Attached Libraries节点，然后点击左侧的加号工具，也就是Create按钮，会弹出对话框，选择刚才下载的APPFLDR.pll，然后点击Attach按钮，在弹出的警告对话框中选择Yes，添加成功后就会出现APPFLDR。
继承的Window、画布Canvas与块Block的建立

将APPSTAND.fmb中的三个以FOLDER开头窗口【FOLDER_SORT_DATA】、【FOLDER_TOOLS】、【FOLDER_AUTOSIZE】拖动到自己Forms的Windows节点，在弹出的对话框中选择Subclass。
将APPSTAND.fmb中的三个以FOLDER开头画布【FOLDER_SORT_DATA】、【FOLDER_TOOLS】、【FOLDER_AUTOSIZE】拖动到自己Forms的Canvas节点，在弹出的对话框中选择Subclass。
将APPSTAND.fmb中的两个以FOLDER开头块【FOLDER_CONTROL】、【FOLDER_TOOLS】拖动到自己Forms的Block节点，在弹出的对话框中选择Subclass。

Object Groups 移植
将名称为STANDARD_FOLDER的Object Groups 通过Subclass的方式移植到自己的表单中。创建两个画布【一个继承canvas，一个继承CANVAS_STACKED】后者用来放使用folder控制的项目，属性Show Horizontal Scroll Bar设置为Yes，属性Window设置为主要窗口canvas画布，设置Viewport ，还有一个值得注意的地方就是其在Canvas节点的顺序要放到先前建立的内容画布MAIN的下面。为STACKED文件夹块上所有要显示给用户看的项设置相应的属性。

所有的项都应该设置Subclass Information属性(一般设置为TEXT_ITEM或者TEXT_ITEM_DISPLAY_ONLY)
为该文件夹块增加一个项，名称为SWITCHER，Item Type属性值为Text Item，Subclass Information属性值设置为SWITCHER
属性CANVAS要设置为内容画布MAIN，还有就是该项目要是该块的第一个项目，也就是放到项目CURRENT_RECORD_INDICATOR的上面。
还要设置该文件夹块的Show Scroll Bar属性值为Yes，Scroll Bar Orientation属性值为Vertical，Scroll Bar Canvas为内容画布MAIN。

为文件夹块建立列标题块，块一般命名为文件夹块名称后加上_PROMPT，为文件夹块所有要显示的项目增加一个对应的项目，项目名称同文件夹块对应项目的名称，叠放顺序将会是列显示的顺序，其Width属性将会是列显示的宽度，属性Initial Value就是列标题，Item Type属性设置为Display Item，Subclass Information属性设置为FOLDER_PROMPT_MULTIROW，还要为该块增加几个特殊的项目，分别是FOLDER_OPEN (该项目的Item Type为Push Button，Subclass Information属性设置为FOLDER_OPEN，CANVAS属性设置为内容画布MAIN)，FOLDER_TITLE (该项目的Item Type为Text Item，Subclass Information属性设置为DYNAMIC_TITLE FOLDER_DUMMY (该项目的Item Type为Text Item，Subclass Information属性设置为FOLDER_DUMMY，CANVAS属性设置为TOOLBAR)，ORDER_BY1，ORDER_BY2，ORDER_BY3 (这3个ORDER_BY项目的Item Type为Push Button，Subclass Information属性设置为FOLDER_ORDERBY 编写触发器代码。

文件夹块中的项目SWITCHER 增加WHEN-NEW-ITEM-INSTANCE触发器，Execution Hierarchy属性为Override，代码为app_folder_move_cursor('1');
文件夹块中的项目CURRENT_RECORD_INDICATOR 增加WHEN-NEW-ITEM-INSTANCE触发器，Execution Hierarchy属性为Override，代码为app_folder_move_cursor('1');
文件夹块增加触发器WHEN-NEW-BLOCK-INSTANCE，Execution Hierarchy属性为Before，代码为app_folder.event('WHEN-NEW-BLOCK-INSTANCE');
文件夹块增加触发器KEY-NEXT-ITEM，Fire in Enter-Query Mode属性为Yes，代码为app_folder.event('KEY-NEXT-ITEM');
文件夹块增加触发器KEY-PREV-ITEM，Fire in Enter-Query Mode属性为Yes，代码为app_folder.event('KEY-PREV-ITEM');
文件夹块增加触发器PRE-BLOCK，Execution Hierarchy属性为Before，代码为app_folder.event('PRE-BLOCK');
文件夹块增加触发器POST-BLOCK，Execution Hierarchy属性为Before，代码为app_folder.event('POST-BLOCK');
文件夹块增加触发器PRE-QUERY，Execution Hierarchy属性为Before，代码为app_folder.event('PRE-QUERY');
文件夹块增加触发器KEY-EXEQRY，Execution Hierarchy属性为Before，Fire in Enter-Query Mode属性为Yes，代码为app_folder.event('KEY-EXEQRY');
文件夹块增加触发器POST-QUERY，Execution Hierarchy属性为Before，代码为app_folder.event('POST-QUERY');
创建或修改表单级触发器WHEN-WINDOW-RESIZED增加代码
IF :system.event_window IN ('MAIN') THEN
IF (get_window_property(:system.event_window,
                        width) < 5.7) THEN
   set_window_property(:system.event_window,
                        width,
                        5.7);
ELSE
   app_folder.event('WHEN-WINDOW-RESIZED');
END IF;
  END IF;
创建或修改表单级触发器KEY-CLRFRM增加代码app_folder.event('KEY-CLRFRM');
创建或修改表单级触发器WHEN-NEW-FORM-INSTANCE增加代码app_folder.define_folder_block('HELPSTZD',
                           'NOTICE_MAIN',
                           'NOTICE_MAIN_PROMPT',
                           'NOTICE_MAIN_STACKED',
                           'MAIN');
app_folder.event('INSTANTIATE');

过程app_folder.define_folder_block的说明：
app_folder.define_folder_block('',
'',
'',
'',
'',
['']);
参数解释
其中OBJECT NAME 为表单的名称。
FOLDER BLOCK NAME 为文件夹块的名称
PROMPT BLOCK NAME 为文件夹块对应的列标题块的名称
FOLDER STACKED CANVAS NAME 为堆叠画布的名称
FOLDER WINDOW NAME 为表单主窗口的名称
DISABLED FUNCTIONS 用来禁用某些功能。。。
修改表单级触发器FOLDER_ACTION，代码为app_folder.event(:global.folder_action);
修改表单级触发器FOLDER_RETURN_ACTION的代码为null;