Oracle Forms开发常用技巧(4)

栏位可以拖动

【Example Form】/disk/DEV/devappl/au/11.5.0/forms/US/XXPOM400N.FMB 【Object View】DEV/ XXIN_BRAND_TYPE_V

在这里，我按照完全新建一个Form的步骤来给大家示范:

再一次友情提醒：我们自己新建Form都要从Template.fmb开始，以避免出现未知的异常。

4.1 新建Form XXPOM400N

按照在Form Builder基础开发(Form Builder Basic Development.doc)里面讲的步骤，我们新建一个Form XXPOM400N。

4.1.1 添加Form Objects

包括一个Window，MY_FOLDER 一个Canvas, MY_FOLDER 一个Block，MY_FOLDER 4.1.2 修改Trigger和Program Units Form Level Trigger: PRE-FORM Program Units:APP_CUSTOM

4.1.3 修改其他属性设置

Form的Console Window，MY_FOLDER

Form的First Navigation Data Block，MY_FOLDER Window的Primary Canvas，MY_FOLDER

Block MY_FOLDER的Query Data Source Name,XXIN_BRAND_TYPE_V Block MY_FOLDER的Number of Records Displayed,5 ……

4.2 添加Folder相关的Objects

这些相关的Window、Canvas、Block、Item…等都包含在Oracle Standard Form APPSTAND.FMB，所以我们需要下载并且在同一个Form Builder窗口里面打开这个标准Form。

在这步操作里面，我们需要把APPSTAND.FMB 的Object Groups STANDARD_FOLDER 及其相关的对象移至我们自己客制的Form为我们所用。

16

所以我们的操作是在同一窗口打开标准的Form和我们自己客制的Form，并且选择APPSTAND.FMB 的Object Groups STANDARD_FOLDER

然后用鼠标拖动至我们自己的Form的Object Groups。

标准Form：APPSTAND.fmb 用鼠标选择后拖动 至我们自己的Form 我们客制的Form

此时会弹出对话框：

请选择仅仅是Copy对象还是连带其属性设置一起移动。 如果我们选择Subclass，那么下一步骤(4.3)我们可以直接跳过。 如果我们现在Copy，那么需要再次手动设置一些Folder对象的属性。

无论选择Subclass或者Copy，你会发现，Form Builder都会在你的Form里面自动添加很多对象。

17

做完这一步后，请不要关闭APPSTAND.FMB，否则，步骤4.3会没有办法进行。

4.3 设 FLODER BLOCKS 的属性

在3.2里面如果我们选择的是Copy，那么需要进行这一步设置，否则，可以直接跳过。

4.3.1 设置Block FOLDER_TOOLS的属性

选择 Object 选择Module：STANDARD_OBJECTS 选择Object Name: FOLDER_TOOLS

4.3.2 设置Block FOLDER_CONTROL的属性 类似上图的设置，只不过选择项不同： Module

: STANDARD_OBJECTS

Object Name

: FOLDER_CONTROL

4.4 增加Attached Libraries

做完上面的步骤后，可以看看你的Attached libraries里面有没有

APPFLDR

如果没有，我们需要手工添加进去

18

选中Attached libraries 点击Create

会弹出

选择打开之后再点击 山上图中的 Attach会弹出

19

选择YES即可。

4.5 增加Stacked Canvas FOLDER_STACK

这一步是必须的，而且你期望实现Folder拖动功能的那些Item都是放在这个Canvas里面，这个Stacked Canvas又是放在前面我们建立的Canvas：MY_FOLDER上面的。 4.5.1 增加Stacked Canvas

双击打开Canvas MY_FOLDER，在左侧工具条里面选择Stacked Canvas，然后在Canvas MY_FOLDER里面拖动即可。

1、选择工具：Stacked Canvas 2、在Canvas MY_FOLDER里面拖动

4.5.2 设置Stacked Canvas属性 修改Name为FOLDER_STACK

20