一個關於DATEBASE TRIGGER的問題解析

這是我整理最近的測試和筆記後，所記錄的一種小寫DB TRIGGER的方法，只供岑考。

要求：一異動表中插入入庫記錄時，將數量加到其庫存表中的入庫總數中；當異動表中插入出庫記錄時，將數量加到其庫存表中的出庫總數中；入庫和出庫都需要計算庫存表中的庫存數。

CREATE OR REPLACE TRIGGER "TRG_CHGE" BEFORE INSERT OR DELETE OR UPDATE ON LY.FY_CHGE REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW  
DECLARE
   V_PROD_NO FY_PROD.PROD_NO%TYPE;
   T_IMARK   NUMBER(1);--入庫加減碼
   T_OMARK   NUMBER(1);
   T_SMARK   NUMBER(1);
BEGIN

   --如不考慮產品編碼及異動類別會改變的情況
   --不考慮庫存出現負數的情況
   --二者均在form中控制
   IF NVL(:NEW.CHGE_TYPE,:OLD.CHGE_TYPE) = 'I' THEN
    T_IMARK := 1;
    T_OMARK := 0;
    T_SMARK := 1;
   ELSE
     T_IMARK:=0;
     T_OMARK:=1;
     T_SMARK:=-1;
   END IF;
     SELECT PROD_NO INTO V_PROD_NO
     FROM FY_STOC
     WHERE PROD_NO=NVL(:NEW.PROD_NO,:OLD.PROD_NO);
  IF SQL%NOTFOUND THEN
     INSERT INTO FY_STOC (PROD_NO,IN_QTY,OUT_QTY,STOC_QTY)
      VALUES(NVL(:NEW.PROD_NO,:OLD.PROD_NO),NVL(:NEW.QTY,:OLD.QTY)*T_IMARK,NVL(:NEW.QTY,:OLD.QTY)*T_OMARK,NVL(:NEW.QTY,:OLD.QTY)*T_SMARK);
     END IF;
   IF SQL%FOUND THEN
     UPDATE FY_STOC SET
     IN_QTY=NVL(IN_QTY,0)+(NVL(:NEW.QTY,0)-NVL(:OLD.QTY,0))*T_IMARK,
     OUT_QTY=NVL(OUT_QTY,0)+(NVL(:NEW.QTY,0)-NVL(:OLD.QTY,0))*T_OMARK,
     STOC_QTY=NVL(STOC_QTY,0)+(NVL(:NEW.QTY,0)-NVL(:OLD.QTY,0))*T_SMARK
     WHERE PROD_NO=NVL(:NEW.PROD_NO,:OLD.PROD_NO);
   END IF;
END;