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修改Trigger和ProgramUnits
Form Level Trigger: PRE-FORM:
app_window.set_window_position('MYFOLDER', 'FIRST_WINDOW');
Program Units:APP_CUSTOM:
if (wnd = 'MYFOLDER') then app_window.close_first_window;
2.3修改FORM属性设置
注：须要说明的是：设成第一个导航数据块的blockname必须至少一个item处于canvas中，否则会报FRM-40106的错误。
2.4其他的具体步骤同一般的FORM开发一样，就不多说了。
3、添加Folder相关的Objects
3.1文件夹相关的Window、Canvas、Block、Item…等都包含在Oracle Standard Form APPSTAND.FMB。
3.2在同一窗口打开标准的Form和我们自己客制的Form，并且选择APPSTAND.FMB 的Object Groups STANDARD_FOLDER然后用鼠标拖动至我们自己的Form的Object Groups。
将原来已经打开的APPSTAND.fmb中的三个以FOLDER开头的三个窗口选中，按住ctrl键，然后移动到自己建的表单HELPSTZD的Windows节点，在弹出的对话框中选择Subclass。然后利用同样的方法将APPSTAND.fmb中的三个以FOLDER开头的画布Subclass到自己的表单中，还要用同样的方法将APPSTAND.fmb中的两个以FOLDER开头的数据块Subclass到自己的表单中。还要用还要用同样的方法将APPSTAND.fmb中的名称为STANDARD_FOLDER的Object Groups 通过Subclass的方式移植到自己的表单中。
3.3此时会弹出对话框：
选择子类，你会发现Form Builder都会在你的Form里面自动添加很多对象。做完这一步后，请不要关闭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 双击打开Canvas MY_FOLDER，在左侧工具条里面选择Stacked Canvas，然后在Canvas MY_FOLDER里面拖动即可。
5.2设置Stacked Canvas属性
6、更改数据块MY_FOLDER中的Item属性
7、创建控制块MY_FOLDER_PROMPT
7.1设置块的属性 子类信息：block 数据库数据块：否
7.2增加ITEM 注：增加Item，名称必须和Block MY_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_RETURN_ACTION 触发器：
if :global.folder_action = 'CONFIRM-AUTOQUERY' then
:global.folder_action_allowed := 'FALSE';
end if;