Oracle Form 6i开发

ganghz

3. Triggers in TEMPLATE
前面已经提过，forms的开发大多由template.fmb修改而成，template窗体本身就预包含了许多标准格式的form-level的trigger，等待开发者修改。在这之中，必须要修改的trigger有：PRE-FORM；可能要修改的trigger有：KEY-CLRFRM，POST-FORM， QUERY_FIND，ACCEPT；在Block或Item Level可以添加的trigger有WHEN-NEW-RECORD-INSTANCE，WHEN-NEW-BLOCK-INSTANCE，WHEN-NEW-ITEM-INSTANCE，KEY-DUPREC，KEY-MENU，KEY-LISTVAL， QUERY_FIND，ACCEPT，ON-ERROR等。

ganghz

4. Coding Triggers
    创建Trigger时要特别注意Trigger的Execution Hierarch属性。一般情况下Block或Item-Level Triggers的Execution Hierarch属性—>Before，但是以下两种情况例外：一是定义用户右键菜单的，Block或Item-Level Triggers的Execution Hierarch属性—>After；二是窗体中某个字段使用了form-level POST-QUERY trigger，那么block-level POST-QUERY trigger的Execution Hierarch属性—>After。
      以下是oracle给出的Block或Item-Level Triggers的Execution Hierarch属性的限定：必须设置为Before的trigger有WHEN-NEW-RECORD-INSTANCE， WHEN-NEW-BLOCK-INSTANCE，WHEN-NEW-ITEM-INSTANCE；可以设置为Override的trigger有KEY-DUPREC，KEY-MENU，KEY-LISTVAL，QUERY_FIND， ACCEPT。

ganghz

. Tab Triggers
    与Tab相关的trigger，一个是form-level的when-tab-page-changed，另一个是block-level的when-new-item-instance。when-new-item-instance trigger处理由于tab键导航引起的tab问题，逻辑相对比较简单。when-tab-page-changed trigger则比较复杂，对着代码我也不很明白。我个人觉得处理逻辑是这样的：先判断current_canvas是不是fixed_stacked_canvas，是的话就将show_view(target_canvas)在go_item，不是的话就将target_canvas设为tab_topmost_page，然后show_view(target_canvas)在go_item。总之，要保证target_canvas一定会show出来。我的理解可能有误，希望知道的同仁能够告诉我正解，实在是复杂。

ganghz

6. 自己的一些感想
说到Trigger，个人觉得就是Oracle Form控制逻辑的精要，后面很多章节的Trigger我就不在这里再单单列出了。我想总结一下使用Trigger要注意的地方：
*Trigger的level　什么样的Trigger放在什么样的level上，什么样的Trigger放在多级level上，注意此时的Execution Hierarch属性该怎么设；
*Trigger该调用什么样的处理代码，有些Trigger调用API函数，有些调用客制化过程，虽然内容很多，但是一类Trigger调用了一类API，应多加熟悉；
*Trigger的执行顺序，这个很多网上都有详尽的说明；
*Trigger中多个处理过程的执行顺序，这个地方在某些时候是需要特别注意的。

ganghz

Lab 21: Naming Standard
当年在用.net 编程就因变量、控件命名不符合规范经常被老师骂，当时还不服气，现在越来越觉得命名规范的重要性，所以在新学习一门开发技术的时候，就要养成良好的命名习惯，以免日后积重难返。
1. Form Objects命名标准
Module应与Form文件名匹配，最好由大写连续的英文字符组成，中间无任何分隔符；
　　Window，canvas，block，item的命名应当简洁而有意义，一般是以对象名称命名。特殊的block 应用特殊的命名，比如TOOLBAR，CONTROL，CONTEXT；
　　Query–Find Canvasses，Windows ，Blocks，LOVs和Related Record Groups
命名如QF_object；
　　　Relations命名如master_detail

2. Subfunction 命名标准
开发人员需预先在系统中为form定义受限的subfunction。
Subfunctions的命名标准为 <form>_<subfunction>
Eg：PO_POXPOMPO_DELETE　AR_FNDRSRUN_LISTING_RPTS
User function的命名标准为 <form name>: <subfunction>
Eg：Purchase Orders: Delete  Run Reports: Listing
这种统一的命名规范使得系统管理员可以在Responsibilities 窗体中利用LOV 的Auto-reduction方便地查到某个 responsibility 下的可用或不可用的functions（我这种理解可能值得商榷）
　　如果对于某个特定的form存在许多受限的subfunction，可以将这些subfunction分类分组。

3. Program Unit命名编码标准
Program Unit中package命名多以对象名为主，常常和Block重名，为每个Block创建一个同名的package也易于管理。
Package中的function和Procedure命名多重用Item的名字，定义一个传入参数event，代码对应多个事件的一一处理分支，调用起来很方便。另外就是以下划线为分隔符命名，可能是某种事件，trigger，某个特定含义。

PACKAGE ORDERS IS
PROCEDURE Insert_Row;
PROCEDURE Update_Row;
PROCEDURE Lock_Row;
PROCEDURE Delete_Row;

PROCEDURE PRE_UPDATE;
PROCEDURE PRE_INSERT;
  
PROCEDURE lines(EVENT VARCHAR2);
PROCEDURE ORDER_ID(EVENT VARCHAR2);
PROCEDURE PAYMENT_TYPE(EVENT VARCHAR2);
PROCEDURE CHECK_NUMBER(EVENT VARCHAR2);
PROCEDURE CREDIT(EVENT VARCHAR2);
PROCEDURE DATE_SHIPPED(EVENT VARCHAR2);
PROCEDURE DESC_FLEX(EVENT VARCHAR2);

PROCEDURE VISA(EVENT VARCHAR2);
END;

L_yongfei

精华。。。
非常适用于初学者
赞一个。。。。。

JOVI_LIFE

不错，感谢分享了..

Bubblekitty

感謝分享~~

michal

确实不错，楼主辛苦