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

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订单表创建用于修改的触发器：

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，非常完美，我们看到了订单的修改的历时信息；无论修改了多少次，都会以流水账的方式保存，只需要在应用中提供一个订单号即可查寻到。

转载请注明出处：/article/8131529.html