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 [email protected]_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 [email protected]_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 [email protected]_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 [email protected]_zfoa where yhm=:new.yhm and xydm in (‘20140503‘,‘20140504‘,‘20140505‘,‘20140506‘));
--else
-- insert into [email protected]_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 [email protected]_zfoa where yhm=:new.yhm and xydm in (‘20140503‘,‘20140504‘,‘20140505‘,‘20140506‘);
if V_COUNT_n =0 then
insert into [email protected]_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 [email protected]_zfoa where yhm=:new.yhm;
if V_COUNT_n >0 then
update [email protected]_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‘;