oracleFORM创建文件夹FOLDER.docx

创建文件夹 2015年7月29日 12:00 第一步：新建一个FORM（打开模版FORM然后另存为即可） 第二步：打开APPSTAND.fmb,选择其中的对象组STANDARD_FOLDER拖到新建的FORM上，然后选择为子类（可以理解为子类表示不能修改，复制代表能修改） 第三步：创建两个块，一个是文件夹的数据块，一个是文件夹的标题块 ? 第四步： 创建三个画布【一个主画布canvas，一个混合画布CANVAS_FIXED，一个堆叠画布CANVAS_STACKED】 堆叠画布用来放使用folder控制的项目（包括数据块的项和标题块的项），属性Show Horizontal Scroll Bar(水平滚动条)设置为Yes，属性Window设置为主要窗口，canvas画布，设置Viewport ，还有一个值得注意的地方就是其在Canvas节点的顺序要放到先前建立的内容画布MAIN的下面。 混合画布存放打开文件夹的按钮（位于标题块），类型CURRENT_RECORD_INDICATOR的项（用于标识当前是哪条记录），以及块的垂直滚动条 为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-Que