oracle中触发器的编写,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包的具体如何实现。