Oracle中用触发器实现自动记录表数据被修改的历史信息

hti

Oracle中用触发器实现自动记录表数据被修改的历史信息。有一些比较重要的表字段每次修改需要做历史记录，以后可以查询这个表中某些字段如何被修改过。由什么改成了什么等。

• 我们先创建一个建议的订单表：
  
  
  
  • CREATE TABLE "TEST"."TB_BILL" ("BILL_ID" NUMBER(10) NOT NULL,   
  •     "BILL_NO" VARCHAR2(64) NOT NULL, "AMOUNT" NUMBER(10, 3) NOT   
  •     NULL, "PRICE" NUMBER(10, 3) NOT NULL, "DESCRIPTION"   
  •     VARCHAR2(1024) NOT NULL, "CREATE_DATE" DATE NOT NULL,   
  •     CONSTRAINT "SYS_TB_BILL_PK_BILL_ID" PRIMARY KEY("BILL_ID"))   
    
  
  为了方便测试，为此表创建用于自增长的序列：
  
  
  
  • CREATE SEQUENCE "TEST"."SQ_TB_BILL" INCREMENT BY 1 START WITH 1   
  •     MAXVALUE 1.0E28 MINVALUE 1 NOCYCLE   
  •     CACHE 20 NOORDER  
    
  
  
• 然后创建一个历史记录信息表，来保存历时信息：
  
  
  
  • CREATE TABLE "TEST"."TB_BILL_HISTORY" ("HIS_ID" NUMBER(10) NOT   
  •     NULL, "BILL_ID" NUMBER(10) NOT NULL, "CONTENT" VARCHAR2(1024)  
  •     NOT NULL, "EVENT_TIME" DATE DEFAULT sysdate NOT NULL,   
  •     "USER_ID" NUMBER(10) NOT NULL,   
  •     CONSTRAINT "SYS_TB_BILL_HISTORY_PK_HIS_ID" PRIMARY   
  •     KEY("HIS_ID"))   
    
  
  同样，为这个表创建序列：
  
  
  
  • CREATE SEQUENCE "TEST"."SQ_TB_BILL_HISTORY" INCREMENT BY 1 START WITH 1   
  •     MAXVALUE 1.0E28 MINVALUE 1 NOCYCLE   
  •     CACHE 20 NOORDER  
    
  
  
• 关键时刻来临，我们为TB_BILL订单表创建用于修改的触发器：
  
  [SQL] 纯文本查看 复制代码

  CREATE OR REPLACE TRIGGER "TEST"."TG_TB_BILL_UPD_FIELDS_HIS"   
      BEFORE  
  UPDATE OF "AMOUNT", "CREATE_DATE", "DESCRIPTION", "PRICE" ON "TEST"."TB_BILL" FOR EACH ROW DECLARE /*记录提单修改过的痕迹*/  
    historyText TB_BILL_HISTORY.CONTENT%TYPE; /*记录日志的主要信息*/   
    
  BEGIN  
    
    if :OLD.AMOUNT <> :NEW.AMOUNT then /*数量*/  
      historyText:=concat(historyText,'数量：');  
      historyText:=concat(historyText,replace(:OLD.AMOUNT,' ',''));  
      historyText:=concat(historyText,'----->');  
      historyText:=concat(historyText,replace(:NEW.AMOUNT,' ',''));  
      historyText:=concat(historyText,'；');  
    end if;  
      
    if :OLD.PRICE <> :NEW.PRICE then /*价格*/  
      historyText:=concat(historyText,'价格：');  
      historyText:=concat(historyText,replace(:OLD.PRICE,' ',''));  
      historyText:=concat(historyText,'----->');  
      historyText:=concat(historyText,replace(:NEW.PRICE,' ',''));  
      historyText:=concat(historyText,'；');  
    end if;  
      
    if (:OLD.DESCRIPTION <> :NEW.DESCRIPTION) or ((:OLD.DESCRIPTION is not null) and (:NEW.DESCRIPTION is null) ) or ((:NEW.DESCRIPTION is not null) and (:OLD.DESCRIPTION is null) ) then /*备注*/  
      historyText:=concat(historyText,'备注：');  
      historyText:=concat(historyText,replace(:OLD.DESCRIPTION,' ',''));  
      historyText:=concat(historyText,'----->');  
      historyText:=concat(historyText,replace(:NEW.DESCRIPTION,' ',''));  
      historyText:=concat(historyText,'；');  
    end if;  
    
    /*将修改后的信息放入历史记录信息表*/  
    if lengthb(historyText) > 1 then  
      insert into TB_BILL_HISTORY(HIS_ID,BILL_ID,CONTENT,EVENT_TIME,USER_ID) values(SQ_TB_BILL_HISTORY.nextval,:OLD.BILL_ID,historyText,sysdate,1);  
    end if;  
  END;  

  
  
  
  
• 接下来我们对订单表插入一条测试数据：
  
  
  
  • insert into TB_BILL(BILL_ID,BILL_NO,AMOUNT,PRICE,DESCRIPTION,CREATE_DATE) values(SQ_TB_BILL.nextval,'No.1',1000,9.9,'Desc1',sysdate);  
    
  
  
  此时我们查询TB_BILL的数据如下：
  
  
  查询历时记录信息表的数据如下：
  
• 然后，我们对订单表的数据进行修改，会触发上边创建的触发器：
  
  
  
  • update TB_BILL set AMOUNT=500,PRICE=9.8,DESCRIPTION='DESC2' where BILL_ID=1  
    
  
  
  此时，查看一下TB_BILL表的数据如下：
  
  
  下面我们来看看历时记录表的信息：
  
  
  OK，非常完美，我们看到了订单的修改的历时信息；无论修改了多少次，都会以流水账的方式保存，只需要在应用中提供一个订单号即可查寻到。
  

njsuntop

只要不下流，我们就是主流!

色魔王子7

不知该说些什么。。。。。。就是谢谢

obeckham

男人与女人,终究也只是欲望的动物吧!真的可以因为爱而结合吗?对不起,我也不知道。。

徐冬丽

有道理。。。

zzl001

路过，支持一下啦

快乐的老鼠

月经不仅仅是女人的痛苦，也是男人的痛苦。