对于新开发的表单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/