Oracle数据库之触发器(二)

时间:2022-05-24 05:12:44

DML触发器
是指在进行insert、update或delete操作时触发的程序体。如果你想在用户对数据进行操作时,记录或限制其操作,就可以用DML触发器。
举例来说,我想统计我的网站用户的注册、注销或者更新个人信息等情况,我们就可以写如下一个触发器,每当有用户进行上述操作时,触发器会自动执行,并在log日志表中存储这些信息。


代码:
create or replace trigger user_log
before delete or insert or update
on users
for each row
declare
id number;
begin
select count(*)+1 into id from ts_log_users t;
if inserting then insert into ts_log_users t values (id,sysdate,(select count(*)+1 from ts_log_users t where t.class='create'),'create',:new.username);
elsif deleting then insert into ts_log_users t values (id,sysdate,(select count(*)-1 from ts_log_users where class='create'),'delete',:new.username);
else insert into ts_log_users t values (id,sysdate,(select t.count from ts_log_users t where create_date=(select max(t.create_date) from ts_log_users t)),'update',:new.username);
end if;
end;



第一行定义触发器名字为user_log,create or replace意思是建立或如果存在一样名字的触发器则覆盖。

第二行关键字可以选择before和after,即操作前和操作后。
比如我想查看用户登录的ip情况,这时我们需要在用户成功登录后触发触发器,所以需写after。
而这里要对用户的增删改敏感,所以选择before。后面是操作定义,即什么样的操作会触发触发器。

第三行on后面接表名,即当用户对这个表进行操作时,触发触发器。
另外,操作为update时,可写成before update of 列名 on 表名,来使限制更加具体化。

第四行将触发器定义为行级触发器,即每当一行数据发生变化时,就触发一次触发器。
比如我一下更新了三个用户的信息,那么log日志表中就会生成三条数据。
如果不写这句话,则触发器只会在上述操作时,触发一次,形成一条数据。

第五行声明变量,用于存储和操作一些可用数据。

从begin到end为程序主体,读起来也很容易理解,主要有两个操作,
一是将log日志的数据量+1作为数据id赋值给之前定义的id变量。赋值用into完成。
第二个操作是一个if操作,分别完成了对增删改不同情况的处理。
处理主要为想log日志表插入数据,
如果是新建用户的话,则向log日志表插入数据id(上面得到的)、系统时间、
目前用户数量(即count下log日志中是create操作的数据)、
操作类别(此处为create)以及操作的用户名(:new.的意思就是新修改的数据,对比:old.使用,这两个字段在更新操作时会经常用到。
例如将更新前的数据插入到另一表中,则用:old.表示,新插入的数据则用:new.操作)。后两个是对delete和update的操作,类似上面不在赘述。



替代触发器
这类触发器仅仅应用在视图上。我举个例子就明白这个触发器的用处了。比如说,我提供给初级管理员老张一个视图,只显示用户的基本注册信息,如用户名、性别、民族等,而隐藏了用户密码、身高、体重这些私密信息(这些信息存在表中,老张看不到,因为我没给他看表的权限)。但有一天有个走后门的找老张想把自己的信息加到我数据库中,于是老张就对视图进行插入操作。可是问题来了,当插入一条关系户数据到表中时,我们需要其用户密码、身高体重等(设置了不为空),而老张看不到因此插不进去,因此报错无法操作。所以这时我们就可以写一个替代触发器,即如果老张对视图操作时,后面的表会自动插入一些随机密码等,以完成老张的视图操作。触发器定义格式类似于上面,这里不再赘述(因为我没用视图,所以没写)。



系统触发器
是在进行系统操作如startup、drop、alter、logon等时才会触发的。
下面我写一个,因为我的数据库给了好多人使用,老张、老王等,而他们经常在别的时间和地点登录数据库,我想看看这些登录情况,因此我写一个登录的触发器:

代码:create or replace trigger oracle_user_log
after logon
on database
declare
id number;
begin
select count(*)+1 into id from ts_o_log_users t;
insert into ts_o_log_users values (id,sys.login_user,sysdate,ora_client_ip_address);
end;





另附一些参考代码:

create or replace trigger testtrigger
 after insert on test1trige
 for each row
 declare v_flag number:=0;
 begin
 select count(0) into v_flag from test2trige where xh_id = :new.xh;
 if v_flag = 0 then
 insert into test2trige(xh_id,xsxm)  values(:new.xh,:new.xm);
 end if;
 end;
 
 
create or replace trigger trig_jzg_RYLX after insert or update
on GXJG_JZGRYLXGX for each row
declare
  v_sqlerrm varchar(4000);
  v_count_n number:=0;
begin
   
   select COUNT(0) into V_COUNT_n from bmryxxb@dblink_zfoa  where yhm=:new.yhm and xydm in ('20140503','20140504','20140505','20140506');
   if V_COUNT_n >0 and :new.yhlx not in('009','001') then
       update bmryxxb@dblink_zfoa set  xydm=decode(:new.yhlx,'2','20140503','006','20140504','008','20140505','004','20140506')--,'009','20140503')
             where yhm=:old.yhm and xydm=decode(:old.yhlx,'2','20140503','006','20140504','008','20140505','004','20140506');   
       update bmryxxb@dblink_zfoa set  xydm=decode(:new.yhlx,'2','20140503','006','20140504','008','20140505','004','20140506')--,'009','20140503')
             where yhm=:new.yhm and xydm=(select xydm from bmryxxb@dblink_zfoa where yhm=:new.yhm and xydm in ('20140503','20140504','20140505','20140506'));   
    
     --else
       -- insert into bmryxxb@dblink_zfoa
               -- --  (xydm, jsdm, yhm, sjlsh)
               -- values
                --  (decode(:new.yhlx,'2','20140503','006','20140504','008','20140505','004','20140506'), '7', :new.yhm, '1');
   end if;
   
   select COUNT(0) into V_COUNT_n from bmryxxb@dblink_zfoa  where yhm=:new.yhm and xydm in ('20140503','20140504','20140505','20140506');
   if V_COUNT_n =0  then
       insert into bmryxxb@dblink_zfoa
                  (xydm, jsdm, yhm, sjlsh)
                values
                  (decode(:new.yhlx,'2','20140503','006','20140504','008','20140505','004','20140506'), '7', :new.yhm, '1');
  end if;

   select COUNT(0) into V_COUNT_n from yhb@dblink_zfoa  where yhm=:new.yhm;
   if  V_COUNT_n >0  then
       update yhb@dblink_zfoa set  zdm=decode(:new.yhlx,'2','02','004','05','006','03','008','04','009','01','001','01') where yhm=:old.yhm;
      
   end if;
   
 --异常处理
Exception
  WHEN OTHERS Then
    v_sqlerrm := (Sqlerrm || chr(10) || dbms_utility.format_error_backtrace);
    Insert Into XT_ERRLOG
    Values
      ('办公系统',
       'bmryxxbrylx',
       'yhm:' || :NEW.yhm,
       v_sqlerrm,
       to_char(sysdate, 'yyyyMMddhh24miss'));
end;

----异常处理表结构

-- Create table
create table XT_ERRLOG
(
  YWXTMC VARCHAR2(100),
  YWXTBM VARCHAR2(100),
  CWZDXX VARCHAR2(500),
  CWSJ   VARCHAR2(1000),
  GXBJ   VARCHAR2(22)
)
tablespace ZFDXC
  pctfree 10
  initrans 1
  maxtrans 255
  storage
  (
    initial 448
    next 1
    minextents 1
    maxextents unlimited
  );
-- Add comments to the table
comment on table XT_ERRLOG
  is '系统错误日志表';
-- Add comments to the columns
comment on column XT_ERRLOG.YWXTMC
  is '业务系统名称(例:数据中心)';
comment on column XT_ERRLOG.YWXTBM
  is '业务系统表名(例:ZYDMB)';
comment on column XT_ERRLOG.CWZDXX
  is '显示会导致报错的字段(例如: XH:200010,BJDM:,ZYDM:5200)';
comment on column XT_ERRLOG.CWSJ
  is '错误时间(例:YYYYMMDDHH24MISS)';
comment on column XT_ERRLOG.GXBJ
  is '更新标记U/I';