在FORM開發中不管是FORM級還是BLOCK級或者ITEM級的TRIGGER，不要把代碼直接寫到TRIGGER中，要使用PROGRAM UNIT來創建相應的TRIGGER，舉例如下：
FORM級和BLOCK級可以按照下面格式在PROGRAM UNIT中創建PACKAGE：
PACKAGE BODY FORM_NAME/BLOCK_NAME IS
PROCEDURE EVENT_HANDLER( EVENT IN VARCHAR2) IS
BEGIN
IF EVENT = 'WHEN-NEW-FORM-INSTANCE' THEN
XXXXXXXX;
ELSIF EVENT = 'PRE-FORM' THEN
XXXXXXXX;
ELSE
APP_EXCEPTION.INVALID_ARGUMENT('EVENT_HANDLER', 'EVENT', EVENT);
END IF;
END EVENT_HANDLER;
END FORM_NAME/BLOCK_NAME;
ITEM級的可以按照下面的格式：
PACKAGE BODY BLOCK_NAME IS
PROCEDURE ITEM_NAME( EVENT IN VARCHAR2) IS
BEGIN
IF EVENT = 'WHEN-NEW-ITEM-INSTANCE' THEN
XXXXXXXX;
ELSE
APP_EXCEPTION.INVALID_ARGUMENT('ITEM_NAME', 'EVENT', EVENT);
END IF;
END ITEM_NAME;
END BLOCK_NAME;
(轉)CSDN博客http://blog.csdn.net/oracleerp/archive/2008/06/19/2566533.aspx
