oracleform开发之folder文件夹功能开发二

1、oracleform 开发之 folder（ 文件夹 ）功能开发 （二）Oracle Form 开发之 folder（ 文件夹 ）功能开发 （二 ）实现文件夹功能1、在客制的 Form 里面实现 Oracle Folder 的功能， 最终效果如下：2、使用 TEMPLATE.fmb 创建一个 Form（ 名称：FRMSTONE) 。2.1 添加 Form Objects 包括一个 Window ，MY_FOLDER个 Canvas, MY_FOLDER 一个 Block ，MY_FOLDER（ 可以使用向导创建 ），并修改其属性。如下图：注：使用文件夹的数据块，其名称总长不能超过 22 字节!

2、2.2 修改 Trigger 和 ProgramUnitsForm Level Trigger: PRE-FORM: app_window.set_window_position(MYFOLDER,FIRST_WINDOW);Program Units:APP_CUSTOM: if (wnd = MYFOLDER) thenapp_window.close_first_window;2.3 修改 FORM 属性设置注：须要说明的是： 设成第一个导航数据块的 blockname必须至少一个 item处于canvas中，否则会报 FRM-40106 的错误。2.4 其他的具体步骤同一般的 FORM

3、 开发一样，就不多说了。3、添加 Folder 相关的 Objects 3.1文件夹相关的 Window、Canvas、Block、Item等都包含在 Oracle Standard Form APPSTAND.FMB 。3.2在同一窗口打开标准的 Form 和我们自己客制的Form，并且选择 APPSTAND.FMB 的 Object GroupsSTANDARD_FOLDER 然后用鼠标拖动至我们自己的 Form的 Object Groups。将原来已经打开的APPSTAND.fmb 中的三个以FOLDER 开头的三个窗口选中，按住 ctrl 键，然后移动到自 己建的表单 HELPSTZD

4、 的 Windows 节点，在弹出的对话框 中选择Subclass。然后利用同样的方法将 APPSTAND.fmb的三个以FOLDER开头的画布 Subclass到自己的表单中，要用同样的方法将 APPSTAND.fmb 中的两个以 FOLDER头的数据块Subclass到自己的表单中。还要用还要用同样的方法将 APPSTAND.fmb 中的名称为 STANDARD_FOLDER的 ObjectGroups 通过 Subclass 的方式移植到自己的表单中3.3 此时会弹出对话框：选择子类，你会发现 Form Builder 都会在你的 Form 里面自动添加很多对象。做完这一步后，请不要关闭

5、APPSTAND.FMB 。4、增加 Attached Libraries 做完上面的步骤后，检查一下 Attached libraries 里面有没有 APPFLDR 。如果没有，我们需要手工添加。5、增加 Stacked Canvas FOLDER_STACK 这一步是必须的，而且你期望实现 Folder 拖动功能的那些 Item 都是放在这 个 Canvas 里面，这个 Stacked Canvas 又是放在前面我们建立 的 Canvas： MY_FOLDER 上面的。5.1 增加 Stacked Canvas 双击打开 CanvasMY_FOLDER，在左侧工具条里面选择 Stacke

6、d Canvas,然 后在 Canvas MY_FOLDER 里面拖动即可。5.2 设置 Stacked Canvas 属性6、更改数据块 MY_FOLDER中的 Item 属性7、创建控制块 MY_FOLDER_PROMPT7.1 设置块的属性 子类信息： block 数据库数据块：否7.2增加ITEM 注：增加Item，名称必须和 BlockMY_FOLDER中的 Item 保持item（如id）不要显示在canvas上的，那么此类item也无须在MY_FOLDER_PROMPT 创建相应的 item.7.2设置其初始值，也就是显示的标签名及子类信息 7.3 增加其他相关 Item 我们还需要增加其他的一些Item，都是和Folder的功能有关的。8、增加相应的 trigger 9、其他注意事项 9.1 错误：在编译带有文件夹的 FORM 时，经常会出现如下提示。FRM-30085: Unable to adjust form for output这是因为 ITEM 超出的了画布的高度或是宽度造成的。如图：可以通过调整 ITEM 的 X 坐标或 Y 坐标来解决此错误。9.2 错误：无法实现拖动。解决：数据块的 item 与 folder 的 item 与调整一定的距离。在按 FOLDER 按鍵時 ,為了防止系統詢問是否查詢所有數據 需要添加 FOLDER_RETU