| 本月文章推荐 |
一个关于DATEBASE TRIGGER的问题解析发表日期：2008-2-9
|
|
这是我整理最近的测试和笔记后，所记录的一种小写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; |
| 上一篇：回滚段表空间数据文件丢失或损坏处理方法(2)
人气:549 下一篇：oracle9i中Rman的备份使用点滴 人气:772 |
| 浏览全部Oracle教程的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
