快捷導航

oracle監(jiān)控某表變動觸發(fā)器例子(監(jiān)控增,刪,改)

更新時間：2014年04月24日 08:39:38 作者：

這篇文章主要介紹了oracle監(jiān)控某表變動觸發(fā)器例子(監(jiān)控增,刪,改),用于監(jiān)控某表的變動并生成日志記錄到另一個表,需要的朋友可以參考下

使用oracle觸發(fā)器實現(xiàn)對某個表的增改刪的監(jiān)控操作,并記錄到另一個表中。

代碼：

create or replace trigger test_trigger  
  before insert or update or delete on test_table  
  for each row  
declare  
  v_id        varchar2(30);  
  v_bdlb      varchar2(1);  
  v_jgdm      VARCHAR2(12);  
  v_jgmc      VARCHAR2(60);  
  v_gajgmc    VARCHAR2(60);  
  v_gajgwsmc  VARCHAR2(30);  
  v_jz        VARCHAR2(30);  
  v_ksdwsdwmc VARCHAR2(30);  
begin  
  /*  
    插入時往歷史表中存放的是新插入的數(shù)據(jù).  
    修改時往歷史表中存放的是修改后的數(shù)據(jù).  
    刪除時往歷史表中存放的是刪除之前的數(shù)據(jù).  
  */  
  select org_id_s.nextval into v_id from dual; -- 利用seq生成主鍵  
  v_jgdm     := :new.row_id;  
  v_jgmc     := :new.dept_name;  
  v_gajgmc   := :new.dept_name;  
  v_gajgwsmc := :new.bmjc;  
  v_jz       := substr(v_jgdm, 7, 2);  
  if '2' = :new.depttype then  
    v_ksdwsdwmc := 'shiju';  
  else  
    if '03' = v_jz then  
      v_ksdwsdwmc := 'zhi';  
    elsif '05' = v_jz then  
      v_ksdwsdwmc := 'xing';  
    elsif '51' = v_jz then  
      v_ksdwsdwmc := 'she';  
    else  
      v_ksdwsdwmc := 'qita';  
    end if;  
  end if;  

  if inserting then  
    v_bdlb := '1';  
    insert into test_table_h  
      (id, bdlb, jgdm, jgmc, gajgmc, gajgwsmc, jz, ksdwsdwmc)  
    values  
      (v_id,  
       v_bdlb,  
       v_jgdm,  
       v_jgmc,  
       v_gajgmc,  
       v_gajgwsmc,  
       v_jz,  
       v_ksdwsdwmc);  
  elsif updating then  
    v_bdlb := '2';  
    insert into test_table_h  
      (id, bdlb, jgdm, jgmc, gajgmc, gajgwsmc, jz, ksdwsdwmc)  
    values  
      (v_id,  
       v_bdlb,  
       v_jgdm,  
       v_jgmc,  
       v_gajgmc,  
       v_gajgwsmc,  
       v_jz,  
       v_ksdwsdwmc);  
  else  
    v_bdlb     := '3';  
    v_jgdm     := :old.row_id;  
    v_jgmc     := :old.dept_name;  
    v_gajgmc   := :old.dept_name;  
    v_gajgwsmc := :old.bmjc;  
    v_jz       := substr(v_jgdm, 7, 2);  
    if '2' = :old.depttype then  
      v_ksdwsdwmc := 'shiju';  
    else  
      if '03' = v_jz then  
        v_ksdwsdwmc := 'zhi';  
      elsif '05' = v_jz then  
        v_ksdwsdwmc := 'xing';  
      elsif '51' = v_jz then  
        v_ksdwsdwmc := 'she';  
      else  
        v_ksdwsdwmc := 'qita';  
      end if;  
    end if;  
    insert into test_table_h  
      (id, bdlb, jgdm, jgmc, gajgmc, gajgwsmc, jz, ksdwsdwmc)  
    values  
      (v_id,  
       v_bdlb,  
       v_jgdm,  
       v_jgmc,  
       v_gajgmc,  
       v_gajgwsmc,  
       v_jz,  
       v_ksdwsdwmc);  
  end if;  
end; 