oracle 文件夹开发,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;