Oracle Forms开发常用技巧(5)

4.6 Block MY_FOLDER增加Item

4.6.1 主Block增加显示Item

这里我们和View 保持一致，增加三个Item:

Property Name Item Type Subclass Information Canvas Column Name Value BRAND_TYPE、BRAND_TYPE_DESC、CATEGORY_SET_ID Text Item Text Item FOLDER_STACK(这个属性不能设错，必须是你的Stacked Canvas) BRAND_TYPE、BRAND_TYPE_DESC、CATEGORY_SET_ID (各自对应View XXIN_BRAND_TYPE_V的栏位) Data Type Maximum Length Prompt

和View一致 和View一致 保持为空 BRAND_TYPE BRAND_TYPE_DESC CATEGORY_SET_ID 4.6.2 设置Item的属性

4.7 创建Block MY_FOLDER_PROMPT

这个Block里面将会设置3.5里面添加的Item的Prompt信息以及Folder的其他的一些相关Item Property Name Subclass Information Number of Records Displayed

4.7.1 增加三个Item BRAND_TYPE、BRAND_TYPE_DESC、CATEGORY_SET_ID 增加这三个Item，Name必须和Block MY_FOLDER中的三个Item保持一致

设置其属性： Property Name Item Type Subclass Information Canvas Initial Value Value BRAND_TYPE、BRAND_TYPE_DESC、CATEGORY_SET_ID Display Item FOLDER_PROMPT_MULTIROW FOLDER_STACK(这个属性不能设错，必须是你的Stacked Canvas) Brand Type、Brand Desc，Category (这个初始值就是在Form上面你将会看到的prompt值) Prompt

21

保持为空 Value MY_FOLDER_PROMPT Block 1 4.7.2 增加其他相关Item

我们还需要增加其他的一些Item，都是和Folder的功能有关的。 Item ORDER_BY1 ORDER_BY2 ORDER_BY3 Property Item Type Subclass Information Canvas X Position Y Position Width Height 备注 Item FOLDER_OPEN Property Item Type Subclass Information Canvas Trigger WHEN-BUTTON_PRESSED Value Push Button FOLDER_OPEN MY_FOLDER copy('OPEN', 'global.folder_action'); execute_trigger('folder_action'); Item FOLDER_TITLE Property Item Type Subclass Information Canvas X Position Y Position Width Height 备注 Item FOLDER_DUMMY Property Item Type Subclass Information Canvas X Position Y Position Width Height Value Text Item FOLDER_DUMMY TOOLBAR 0 0 0 0 Value Display Item DYNAMIC TITLE MY_FOLDER 0 0 0 0 Value Push Button FOLDER_ORDERBY MY_FOLDER 0 0 0 0 后面的四个0是这是这个Item不需要显示出来，是因为目前我们不需要利用几个Button. 后面的四个0是这是这个Item不需要显示出来，是因为目前我们不需要利用这个Item. 22

4.8 增加Trigger Level Form Object Trigger Event app_folder.event(:global.folder_action); app_folder.define_folder_block ( 'MY_FOLDER', --'ObjectName' 'MY_FOLDER', --'folder_block', 'MY_FOLDER_PROMPT', XXPOM400N FOLDER_ACTION WHEN-NEW-FORM-INSTANCE --'prompt_block', Block MY_FOLDER PRE-BLOCK 备注 POST-BLOCK ); 'FOLDER_STACK', --'stacked_canvas', 'MY_FOLDER', --'window', NULL --'disabledfunctions'; app_folder.event('PRE-BLOCK'); app_folder.event('POST-BLOCK'); WHEN-NEW-BLOCK-INSTANCE app_folder.event('WHEN-NEW-BLOCK-INSTANCE'); PRE-QUERY KEY-EXEQRY KEY-NEXT-ITEM KEY-PREV-ITEM app_folder.event('PRE-QUERY'); app_folder.event('KEY-EXEQRY'); app_folder.event('KEY-NEXT-ITEM'); app_folder.event('KEY-PREV-ITEM'); 最简单的方式是直接把标准 Form ‘APPSTAND.fmb’ 中的 Block ‘SAMPLE_FOLDER’ 中的各个 Triger 复制过来

到此，基本的Folder功能已经实现。

上面我们额外的增加了那么多的Button、Text Item等都有自己的用处, 其功能以及更完备的Folder功能需要各位在今后的工作、学习中去继续探索。

5 FlexField的客制

5.1 Item Category

最终实现的效果如下图：

当我们点击你这个Item时，就会弹出和Oracle Standard一样的LOV去实现Category的选择。

23

点击后弹出下面的Object

5.1.1 增加相关Item

设置其相关属性：

Property Name Item Type Subclass Information List Of Values Validate form list

Property Name Item Type Subclass Information

Property Name Item Type Subclass Information

5.1.2 FND_KEY_FLEX.Define

增加在某一个Trigger里面，你可以自己随便放置。

一般情况，我们都放在WHEN-NEW-FORM-INSTANCE或者WHEN-NEW-BLOCK-INSTANCE里面。 该函数的详细参数请参考文档：

24

\\\\hi4-sv11\\Oracle\\PDF\\DEV-PDF\\115devg.pdf

Value CATEGORY_DESC（自己定义） Text Item Text Item Value CATEGORY_ID（自己定义） Text Item Text Item Value CATEGORY（自己定义） Text Item Text Item ENABLE_LIST_LAMP No FND_KEY_FLEX.Define

);

(

BLOCK FIELD ID

=> ' FLEXFIELD_TEST', => ' CATEGORY', => 'CATEGORY_ID', => 'CATEGORY_DESC', => 'INV', => 'MCAT',

=> '50230',--STRUCTURE Number => 'N', =>NULL, => 'FULL', => 'N', => 'Y'

description

APPL_SHORT_NAME CODE NUM

REQUIRED

UPDATEABLE VALIDATE

USEDBFLDS DINSERT

其中红色部分为必选参数，其他的都是可选参数

5.1.3 参数APPL_SHORT_NAME

你的Key Flex Field是在哪个Application下面设置的，这里就需要提供那个Application的Short Name。 可以从:System Administrator->Application->Register 这里得到

5.1.4 参数CODE

指的是Key Flex Field的ID Code。Category是在INV模组设置的。

25