Oracle Form开发触发器建立规范

对于新开发的表单TEST，一般在程序单元中建立一个和表单同名的包TEST实现一定的功能，然后在表单级触发器PRE-FORM、WHEN-NEW-FORM-INSTANCE调用。
如：在表单级触发器PRE-FORM中调用TEST.vent_handler('PRE-FORM')、WHEN-NEW-FORM-INSTANCE触发器调用TEST.vent_handler('WHEN-NEW-FORM-INSTANCE')
TEST包中过程vent_handler实现代码：PROCEDURE.event_handler(event IN VARCHAR2) IS
                                                         BEGIN
                                                         IF event = 'WHEN-NEW-FORM-INSTANCE' THEN
                                                              CODE;                                                     
                                                         ELSIF event = 'PRE-FORM' THEN
                                                              CODE;
                                                         END IF;
                                                         END event_handler;
同样，对于数据块级的触发器，一般在程序单元中建立一个以块名命名的包，在包中实现具体功能。举数据块中最常用的ON-UPDTAE、ON-INSERT、ON-LOCK、ON-DELETE为例：
在数据块MAIN中添加触发器ON-UPDTAE、ON-INSERT、ON-LOCK、ON-DELETE，触发器中的代码分别为MAIN.event_handler('ON-UPDATE');MAIN.event_handler('ON-INSERT');MAIN.event_handler('ON-LOCK');MAIN.event_handler('ON-DELETE');
程序单元中MAIN包的实现：PROCEDURE.event_handler(event IN VARCHAR2) IS 
                                        BEGIN
                                            IF event = 'ON-UPDTAE' THEN
                                                 MAIN_PVT.update_row;
                                            ELSIF event = 'ON-INSERT' THEN
                                                 MAIN_PVT.insert_row;          --另一个包的insert_row过程
                                            ELSIF event = 'ON-LOCK' THEN
                                                 MAIN_PVT.lock_row;            --另一个包的lock_row过程
                                            ELSIF event = 'ON_DELETE'
                                                 MAIN_PVT.delete_row;
                                            END IF;
                                        END event_handler;
下一篇：Oracle Form数据块实现同时只有一个人锁定修改数据，将介绍MAIN_PVT包的具体如何实现。

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/26189725/viewspace-1433112/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/26189725/viewspace-1433112/