PL&SQL触发器学习

最新推荐文章于 2024-06-13 09:00:30 发布

cuimiwan3140

最新推荐文章于 2024-06-13 09:00:30 发布

阅读量148

点赞数

文章标签：数据库操作系统

1.触发器类型

触发器在数据库里以独立的对象存储，它与存储过程和函数不同的是，存储过程与函数需要用户显示调用才执行，而触发器是由一个事件来启动运行。即触发器是当某个事件发生时自动地隐式运行。并且，触发器不能接收参数。所以运行触发器就叫触发或点火（firing）。ORACLE事件指的是对数据库的表进行的INSERT、UPDATE及DELETE操作或对视图进行类似的操作。ORACLE将触发器的功能扩展到了触发ORACLE，如数据库的启动与关闭等。所以触发器常用来完成由数据库的完整性约束难以完成的复杂业务规则的约束，或用来监视对数据库的各种操作，实现审计的功能。

1.1 DML触发器

ORACLE可以在DML语句进行触发，可以在DML操作前或操作后进行触发，并且可以对每个行或语句操作上进行触发。

1.2 替代触发器

由于在ORACLE里，不能直接对由两个以上的表建立的视图进行操作。所以给出了替代触发器。它就是ORACLE 8专门为进行视图操作的一种处理方法。

1.3 系统触发器

ORACLE 8i 提供了第三种类型的触发器叫系统触发器。它可以在ORACLE数据库系统的事件中进行触发，如ORACLE系统的启动与关闭等。

2.触发器组成:

触发事件：引起触发器被触发的事件。例如：DML语句(INSERT, UPDATE, DELETE语句对表或视图执行数据处理操作)、DDL语句（如CREATE、ALTER、DROP语句在数据库中创建、修改、删除模式对象）、数据库系统事件（如系统启动或退出、异常错误）、用户事件（如登录或退出数据库）。

触发时间：即该TRIGGER 是在触发事件发生之前（BEFORE）还是之后(AFTER)触发，也就是触发事件和该TRIGGER 的操作顺序。

触发操作：即该TRIGGER 被触发之后的目的和意图，正是触发器本身要做的事情。例如：PL/SQL 块。

触发对象：包括表、视图、模式、数据库。只有在这些对象上发生了符合触发条件的触发事件，才会执行触发操作。

触发条件：由WHEN子句指定一个逻辑表达式。只有当该表达式的值为TRUE时，遇到触发事件才会自动执行触发器，使其执行触发操作。

触发频率：说明触发器内定义的动作被执行的次数。即语句级(STATEMENT)触发器和行级(ROW)触发器。

语句级(STATEMENT)触发器：是指当某触发事件发生时，该触发器只执行一次；

行级(ROW)触发器：是指当某触发事件发生时，对受到该操作影响的每一行数据，触发器都单独执行一次。

3.编写触发器注意事项

编写触发器时，需要注意以下几点：

1> 触发器不接受参数。

2> 一个表上最多可有12个触发器，但同一时间、同一事件、同一类型的触发器只能有一个。并各触发器之间不能有矛盾。

3> 在一个表上的触发器越多，对在该表上的DML操作的性能影响就越大。

4> 触发器最大为32KB。若确实需要，可以先建立过程，然后在触发器中用CALL语句进行调用。

5> 在触发器的执行部分只能用DML语句（SELECT、INSERT、UPDATE、DELETE），不能使用DDL语句（CREATE、ALTER、DROP）。ddl需要加入 pragma autonomous_transaction; 表示自由事务处理

6> 触发器中不能包含事务控制语句(COMMIT，ROLLBACK，SAVEPOINT)。因为触发器是触发语句的一部分，触发语句被提交、回退时，触发器也被提交、回退了(但是触发的事务和触发器本身不是同一个事务是可以commit、rollback、savepoint的)。

7> 在触发器主体中调用的任何过程、函数，都不能使用事务控制语句。

8> 在触发器主体中不能申明任何Long和blob变量。新值new和旧值old也不能是表中的任何long和blob列。

9> 不同类型的触发器(如DML触发器、INSTEAD OF触发器、系统触发器)的语法格式和作用有较大区别。

4.创建触发器

4.1创建触发器的一般语法

CREATE [OR REPLACE] TRIGGER trigger_name

{BEFORE | AFTER }

{INSERT | DELETE | UPDATE [OF column [, column …]]}

[OR {INSERT | DELETE | UPDATE [OF column [, column …]]}...]

ON [schema.]table_name | [schema.]view_name

[REFERENCING {OLD [AS] old | NEW [AS] new| PARENT as parent}]

[FOR EACH ROW ]

[WHEN condition]

PL/SQL_BLOCK | CALL procedure_name;

其中：

BEFORE 和AFTER指出触发器的触发时序分别为前触发和后触发方式，前触发是在执行触发事件之前触发当前所创建的触发器，后触发是在执行触发事件之后触发当前所创建的触发器。

FOR EACH ROW选项说明触发器为行触发器。行触发器和语句触发器的区别表现在：行触发器要求当一个DML语句操作影响数据库中的多行数据时，对于其中的每个数据行，只要它们符合触发约束条件，均激活一次触发器；而语句触发器将整个语句操作作为触发事件，当它符合约束条件时，激活一次触发器。当省略FOR EACH ROW 选项时，BEFORE 和AFTER 触发器为语句触发器，而INSTEAD OF 触发器则只能为行触发器。

REFERENCING 子句说明相关名称，在行触发器的PL/SQL块和WHEN 子句中可以使用相关名称参照当前的新、旧列值，默认的相关名称分别为OLD和NEW。触发器的PL/SQL块中应用相关名称时，必须在它们之前加冒号(:)，但在WHEN子句中则不能加冒号。

WHEN 子句说明触发约束条件。Condition 为一个逻辑表达时，其中必须包含相关名称，而不能包含查询语句，也不能调用PL/SQL 函数。WHEN 子句指定的触发约束条件只能用在BEFORE 和AFTER 行触发器中，不能用在INSTEAD OF 行触发器和其它类型的触发器中。

当一个基表被修改( INSERT, UPDATE, DELETE)时要执行的存储过程，执行时根据其所依附的基表改动而自动触发，因此与应用程序无关，用数据库触发器可以保证数据的一致性和完整性。

每张表最多可建立12 种类型的触发器，它们是:

BEFORE INSERT

BEFORE INSERT FOR EACH ROW

AFTER INSERT

AFTER INSERT FOR EACH ROW

BEFORE UPDATE

BEFORE UPDATE FOR EACH ROW

AFTER UPDATE

AFTER UPDATE FOR EACH ROW

BEFORE DELETE

BEFORE DELETE FOR EACH ROW

AFTER DELETE

AFTER DELETE FOR EACH ROW

4.2触发器触发次序

1> 执行 BEFORE语句级触发器;

2> 对与受语句影响的每一行：

执行 BEFORE行级触发器

执行 DML语句

执行 AFTER行级触发器

3> 执行 AFTER语句级触发器。

4.3创建DML触发器

触发器名与过程名和包的名字不一样，它是单独的名字空间，因而触发器名可以和表或过程有相同的名字，但在一个模式中触发器名不能相同。

DML触发器的限制

1> CREATE TRIGGER语句文本的字符长度不能超过32KB；

2> 触发器体内的SELECT 语句只能为SELECT … INTO …结构，或者为定义游标所使用的SELECT 语句。

3> 触发器中不能使用数据库事务控制语句 COMMIT; ROLLBACK, SVAEPOINT 语句；

4> 由触发器所调用的过程或函数也不能使用数据库事务控制语句；

5> 触发器中不能使用LONG, LONG RAW 类型；

6> 触发器内可以参照LOB 类型列的列值，但不能通过 :NEW 修改LOB列中的数据；

DML触发器基本要点

1> 触发时机：指定触发器的触发时间。如果指定为BEFORE，则表示在执行DML操作之前触发，以便防止某些错误操作发生或实现某些业务规则；如果指定为AFTER，则表示在执行DML操作之后触发，以便记录该操作或做某些事后处理。

2> 触发事件：引起触发器被触发的事件，即DML操作（INSERT、UPDATE、DELETE）。既可以是单个触发事件，也可以是多个触发事件的组合（只能使用OR逻辑组合，不能使用AND逻辑组合）。

3> 条件谓词：当在触发器中包含多个触发事件（INSERT、UPDATE、DELETE）的组合时，为了分别针对不同的事件进行不同的处理，需要使用ORACLE提供的如下条件谓词。

1）INSERTING：当触发事件是INSERT时，取值为TRUE，否则为FALSE。

2）UPDATING [（column_1,column_2,…,column_x）]：当触发事件是UPDATE 时，如果修改了column_x列，则取值为TRUE，否则为FALSE。其中column_x是可选的。

3）DELETING：当触发事件是DELETE时，则取值为TRUE，否则为FALSE。

4> 解发对象：指定触发器是创建在哪个表、视图上。

5> 触发类型：是语句级还是行级触发器。

6> 触发条件：由WHEN子句指定一个逻辑表达式，只允许在行级触发器上指定触发条件，指定UPDATING后面的列的列表。

7> 问题：当触发器被触发时，要使用被插入、更新或删除的记录中的列值，有时要使用操作前、后列的值

8> 实现: :NEW 修饰符访问操作完成后列的值

:OLD 修饰符访问操作完成前列的值

特性	INSERT	UPDATE	DELETE
OLD	NULL	实际值	实际值
NEW	实际值	实际值	NULL

5.例题

5.1 例题一：delete触发器

----建立一个触发器, 当职工表 emp 表被删除一条记录时，把被删除记录写到职工表删除日志表中去。

create table scott.emp_his as select * from scott.emp where 1=2;

create or replace trigger tr_del_emp

before delete on scott.emp --指定当表执行delete操作前触发

for each row --说明为行级触发器

begin --将修改前的数据插入到日志记录del_emp中，以供监督使用

insert into scott.emp_his

(deptno, empno, ename, job, mgr, sal, comm, hiredate)

values

(:old.deptno, :old.empno, :old.ename, :old.job, :old.mgr, :old.sal, :old.comm, :old.hiredate);

end;

SQL> select count(*) from emp;

COUNT(*)

----------

SQL> select count(*) from emp_his;

COUNT(*)

----------

SQL> delete emp where empno=7788;

1 row deleted.

SQL> select count(*) from emp_his;

COUNT(*)

----------

SQL> select count(*) from emp;

COUNT(*)

----------

SQL> rollback;

Rollback complete.

SQL> select count(*) from emp;

COUNT(*)

----------

SQL> select count(*) from emp_his;

COUNT(*)

----------

SQL> drop trigger tr_del_emp;

Trigger dropped.

SQL> drop table emp_his;

Table dropped.

5.2 例题二：时间范围限制dml语句

----限制对Departments表修改（包括INSERT,DELETE,UPDATE）的时间范围，即不允许在非工作时间修改departments表。

select to_char(sysdate,'day') from dual;

星期三

SQL> select sysdate from dual;

2016-07-20 20:29:41

SQL> select to_char(sysdate,'dy') from dual;

TO_CHA

------

sat

-------需要注意的地方：

----截取星期几时，触发器中一定用dy截取，如果是用day截取的完整字符会有问题。另外需要考虑客户端使用的中文还是英文日期

create or replace trigger tr_dept_time

before insert or delete or update on dept

begin

if (to_char(sysdate, 'dy') in ('星期六', '星期日')) or

(to_char(sysdate, 'hh24:mi') not between '08:30' and '18:00') or

(to_char(sysdate, 'dy') in ('sat', ' sun')) then

raise_application_error(-20001, '不是上班时间，不能修改dept表！！！');

end if;

end;

----不是上班时间不能修改数据

SQL> select sysdate from dual;

SYSDATE

-------------------

2016-07-20 20:31:51

SQL> delete dept where deptno=10;

delete dept where deptno=10

ERROR at line 1:

ORA-20001: ?dept

ORA-06512: at "SCOTT.TR_DEPT_TIME", line 4

ORA-04088: error during execution of trigger 'SCOTT.TR_DEPT_TIME'

----上班时间可以正常修改数据

[root@xuan1 ~]# date

Wed Jul 20 20:35:24 CST 2016

[root@xuan1 ~]# date -s 9:00:00

Wed Jul 20 09:00:00 CST 2016

SQL> select sysdate from dual;

SYSDATE

-------------------

2016-07-20 09:00:34

SQL> delete dept where deptno=10;

delete dept where deptno=10

ERROR at line 1:

ORA-02292: integrity constraint (SCOTT.FK_DEPTNO) violated - child record found

SQL> insert into dept values(11,'sss','sss');

1 row created.

SQL> commit;

Commit complete.

SQL> delete from dept where deptno=11;

1 row deleted.

SQL> commit;

Commit complete.

----周末不能修改数据

[root@xuan1 ~]# date -s "2016-07-16 9:00:00"

Sat Jul 16 09:00:00 CST 2016

SQL> select sysdate from dual;

SYSDATE

-------------------

2016-07-16 09:00:54

SQL> select to_char(sysdate,'day') from dual;

TO_CHAR(SYSDA

-------------

saturday

SQL> select to_char(sysdate+1,'day') from dual;

TO_CHAR(SYSDA

-------------

sunday

SQL> select to_char(sysdate,'dy') from dual;

TO_CHA

------

sat

----之前触发器用的是to_char(sysdate,'day')，导致一直不能触发，后来改为to_char(sysdate,'dy')后就可以咯

SQL> insert into dept values(11,'sss','sss');

insert into dept values(11,'sss','sss')

ERROR at line 1:

ORA-20001: ?dept

ORA-06512: at "SCOTT.TR_DEPT_TIME", line 5

ORA-04088: error during execution of trigger 'SCOTT.TR_DEPT_TIME'

SQL> drop trigger tr_dept_time;

Trigger dropped.

----注意，在linux中修改时间：date -s "2016-07-12 11:00:00"之后，记得clock -w 将系统时间写入到cmos中

5.3 例题三：限制某条数据修改

----限定只对部门号为10的记录进行行触发器操作。

create or replace trigger tr_emp_sal_comm

before update of sal, comm or delete on scott.emp

for each row

when (old.deptno = 10)

begin

case

when updating('sal') then

if :new.sal < :old.sal then

raise_application_error(-20001, '部门10的人员工资不能降！！');

end if;

when updating('comm') then

if :new.comm < :old.comm then

raise_application_error(-2002, '部门10的人员奖金不能降！！');

end if;

when deleting then

raise_application_error(-2003, '不能删除部门10的人员记录！！');

end case;

end;

----奖金控制：

SQL> select empno,sal,comm,deptno from emp where deptno=10;

EMPNO SAL COMM DEPTNO

---------- ---------- ---------- ----------

7782 2450 10

7839 5000 10

7934 1300 10

SQL> update emp set comm=0.44 where empno=7782;

1 row updated.

SQL> update emp set comm=0.41 where empno=7782;

update emp set comm=0.41 where empno=7782

ERROR at line 1:

ORA-21000: error number argument to raise_application_error of -2002 is out of

range

ORA-06512: at "SCOTT.TR_EMP_SAL_COMM", line 9

ORA-04088: error during execution of trigger 'SCOTT.TR_EMP_SAL_COMM'

----工资控制：

SQL> update emp set sal=1000 where empno=7782;

update emp set sal=1000 where empno=7782

ERROR at line 1:

ORA-20001: 80?

ORA-06512: at "SCOTT.TR_EMP_SAL_COMM", line 5

ORA-04088: error during execution of trigger 'SCOTT.TR_EMP_SAL_COMM'

SQL> update emp set sal=10000 where empno=7782;

1 row updated.

----删除控制：

SQL> delete from emp where deptno=10;

delete from emp where deptno=10

ERROR at line 1:

ORA-21000: error number argument to raise_application_error of -2003 is out of

range

ORA-06512: at "SCOTT.TR_EMP_SAL_COMM", line 12

ORA-04088: error during execution of trigger 'SCOTT.TR_EMP_SAL_COMM'

5.4 例题四：实现级联更新

----利用行触发器实现级联更新。在修改了主表dept中的loc之后（AFTER），级联的、自动的更新子表r_dept表中loc。

----准备：

SQL> create table r_dept as select deptno,loc from dept;

Table created.

create or replace trigger tr_dept_r

after update of loc on dept

for each row

begin

DBMS_OUTPUT.PUT_LINE('旧的loc值是' || :old.loc || '新的loc值是' || :new.loc);

update r_dept set loc = :new.loc where loc = :old.loc;

end;

SQL> set serveroutput on

SQL> update dept set loc='beijing' where deptno=10;

loc?W YORKloc?ijing

1 row updated.

SQL> select * from r_dept;

DEPTNO LOC

---------- -------------

10 beijing

SQL> select * from dept;

DEPTNO DNAME LOC

---------- -------------- -------------

10 ACCOUNTING beijing

5.5 例题五：调用存储过程

----对dept表进行dml监控

----在触发器中调用过程。（记录dept表的dml操作）

----准备：

SQL> create table dept_history as select deptno id,loc from dept where 1=2;

Table created.

SQL> alter table dept_history add (action varchar(10),t_date date);

Table altered.

----创建存储过程

create or replace procedure p_dept_history(p_id dept_history.id%type,

p_loc dept_history.loc%type,

p_action dept_history.action%type,

p_t_date dept_history.t_date%type) is

begin

insert into dept_history

(id, loc, action, t_date)

values

(p_id, p_loc, p_action, p_t_date);

end p_dept_history;

----创建触发器

create or replace trigger tr_dept_history

after insert or delete or update of deptno, loc on dept

for each row

begin

case

when inserting then

p_dept_history(:old.deptno, :old.loc, 'insert', sysdate);

when deleting then

p_dept_history(:old.deptno, :old.loc, 'delete', sysdate);

when updating then

p_dept_history(:old.deptno, :old.loc, 'update', sysdate);

end case;

end;

----测试

------insert触发

SQL> insert into dept values(11,'zhong','zhong');

1 row created.

SQL> select * from dept_history;

ID LOC ACTION T_DATE

---------- ------------- ---------- -------------------

insert 2016-07-16 11:17:52

------update触发

SQL> update dept set loc='shall' where deptno=11;

1 row updated.

SQL> select * from dept_history;

ID LOC ACTION T_DATE

---------- ------------- ---------- -------------------

insert 2016-07-16 11:17:52

11 zhong update 2016-07-16 11:20:27

SQL> update dept set loc='xuan' where deptno=11;

1 row updated.

SQL> select * from dept_history;

ID LOC ACTION T_DATE

---------- ------------- ---------- -------------------

insert 2016-07-16 11:17:52

11 zhong update 2016-07-16 11:20:27

11 shall update 2016-07-16 11:21:41

SQL> rollback;

Rollback complete.

SQL> select * from dept_history;

no rows selected

------delete触发

SQL> insert into dept values(11,'zhong','xuan');

1 row created.

SQL> select * from dept_history;

ID LOC ACTION T_DATE

---------- ------------- ---------- -------------------

insert 2016-07-16 11:22:42

SQL> delete dept where deptno=11;

1 row deleted.

SQL> select * from dept_history;

ID LOC ACTION T_DATE

---------- ------------- ---------- -------------------

insert 2016-07-16 11:22:42

11 xuan delete 2016-07-16 11:23:26

6.创建替代触发器(instead of)

6.1 创建语法

CREATE [OR REPLACE] TRIGGER trigger_name

INSTEAD OF

{INSERT | DELETE | UPDATE [OF column [, column …]]}

[OR {INSERT | DELETE | UPDATE [OF column [, column …]]}...]

ON [schema.] view_name --只能定义在视图上

[REFERENCING {OLD [AS] old | NEW [AS] new| PARENT as parent}]

[FOR EACH ROW ] --因为INSTEAD OF触发器只能在行级上触发,所以没有必要指定

[WHEN condition]

PL/SQL_block | CALL procedure_name;

其中：

INSTEAD OF 选项使ORACLE激活触发器，而不执行触发事件。只能对视图和对象视图建立INSTEAD OF触发器，而不能对表、模式和数据库建立INSTEAD OF 触发器。

FOR EACH ROW选项说明触发器为行触发器。行触发器和语句触发器的区别表现在：行触发器要求当一个DML语句操走影响数据库中的多行数据时，对于其中的每个数据行，只要它们符合触发约束条件，均激活一次触发器；而语句触发器将整个语句操作作为触发事件，当它符合约束条件时，激活一次触发器。当省略FOR EACH ROW 选项时，BEFORE 和AFTER 触发器为语句触发器，而INSTEAD OF 触发器则为行触发器。

INSTEAD_OF 用于对视图的DML触发，由于视图有可能是由多个表进行联结(join)而成，因而并非是所有的联结都是可更新的。但可以按照所需的方式执行更新。

6.2 例题1：delete替代触发器

----先创建一个简单的视图

create or replace view emp_view as

select deptno,count(*) total_emp,sum(sal) total_sal

from emp group by deptno;

----在视图中直接修改数据是非法的：

SQL> update emp_view set total_sal=10000 where deptno=10;

update emp_view set total_sal=10000 where deptno=10

ERROR at line 1:

ORA-01732: data manipulation operation not legal on this view

SQL> delete from emp_view where deptno=10;

delete from emp_view where deptno=10

ERROR at line 1:

ORA-01732: data manipulation operation not legal on this view

----我们可以创建instead of触发器为delete或者update、insert操作执行所需的处理，如：

create or replace trigger tri_emp_view_del

instead of delete on emp_view

for each row

begin

delete from emp where deptno = :old.deptno;

end tri_emp_view_del;

----此时再删除视图中deptno为10的信息时，会自动删除emp表中deptno为10的数据

SQL> delete from emp_view where deptno=10;

1 row deleted

SQL> select deptno,ename from emp where deptno=10;

no rows selected

SQL> rollback;

Rollback complete.

SQL> select deptno,ename from emp where deptno=10;

DEPTNO ENAME

---------- ----------

10 CLARK

10 KING

10 MILLER

SQL> drop trigger tri_emp_view_del;

Trigger dropped.

SQL> drop view emp_view;

View dropped.

6.3 例题2：insert替代触发器

----创建复杂视图，针对INSERT操作创建INSTEAD OF触发器，向复杂视图插入数据。

----创建视图：

create or replace force view hr.v_reg_cou as

select r.region_id r_id,r.region_name r_name,c.country_id c_id,c.country_name c_name

from regions r,countries c

where r.region_id=c.region_id;

----创建替代触发器：

create or replace trigger tri_reg_cou

instead of insert on hr.v_reg_cou

for each row

declare

v_count number;

begin

select count(*) into v_count from regions where region_id = :new.r_id;

if v_count = 0 then

insert into regions

(region_id, region_name)

values

(:new.r_id, :new.r_name);

end if;

select count(*) into v_count from countries where country_id = :new.c_id;

if v_count = 0 then

insert into countries

(country_id, country_name, region_id)

values

(:new.c_id, :new.c_name, :new.r_id);

end if;

end;

----测试：

SQL> insert into hr.v_reg_cou values(100,'yazhou',20,'zhongguo');

1 row created.

SQL> select * from hr.countries where region_id=100;

CO COUNTRY_NAME REGION_ID

-- ---------------------------------------- ----------

20 zhongguo 100

SQL> select * from hr.regions where region_id=100;

REGION_ID REGION_NAME

---------- -------------------------

100 yazhou

6.4 创建替代触发器注意事项

1> 只能被创建在视图上，并且该视图没有指定WITH CHECK OPTION选项。

2> 不能指定BEFORE 或 AFTER选项。

3> FOR EACH ROW子可是可选的，即INSTEAD OF触发器只能在行级上触发、或只能是行级触发器，没有必要指定。

4> 没有必要在针对一个表的视图上创建INSTEAD OF触发器，只要创建DML触发器就可以了。

7.创建系统事件触发器

7.1 创建语法

ORACLE10G提供的系统事件触发器可以在DDL或数据库系统上被触发。DDL指的是数据定义语言，如CREATE 、ALTER及DROP 等。而数据库系统事件包括数据库服务器的启动或关闭，用户的登录与退出、数据库服务错误等。

创建触发器的一般语法是:

CREATE OR REPLACE TRIGGER [sachema.]trigger_name

{BEFORE|AFTER}

{ddl_event_list | database_event_list}

ON { DATABASE | [schema.]SCHEMA }

[WHEN condition]

PL/SQL_block | CALL procedure_name;

其中: ddl_event_list：一个或多个DDL 事件，事件间用 OR 分开；

database_event_list：一个或多个数据库事件，事件间用 OR 分开；

系统事件触发器既可以建立在一个模式上，又可以建立在整个数据库上。当建立在模式(SCHEMA)之上时，只有模式所指定用户的DDL操作和它们所导致的错误才激活触发器, 默认时为当前用户模式。当建立在数据库(DATABASE)之上时，该数据库所有用户的DDL操作和他们所导致的错误，以及数据库的启动和关闭均可激活触发器。要在数据库之上建立触发器时，要求用户具有ADMINISTER DATABASE TRIGGER权限。

7.2 系统触发器种类

----下面给出系统触发器的种类和事件出现的时机（前或后）：

事件	允许的时机	说明
STARTUP	AFTER	启动数据库实例之后触发
SHUTDOWN	BEFORE	关闭数据库实例之前触发（非正常关闭不触发）
SERVERERROR	AFTER	数据库服务器发生错误之后触发
LOGON	AFTER	成功登录连接到数据库后触发
LOGOFF	BEFORE	开始断开数据库连接之前触发
CREATE	BEFORE，AFTER	在执行CREATE语句创建数据库对象之前、之后触发
DROP	BEFORE，AFTER	在执行DROP语句删除数据库对象之前、之后触发
ALTER	BEFORE，AFTER	在执行ALTER语句更新数据库对象之前、之后触发
DDL	BEFORE，AFTER	在执行大多数DDL语句之前、之后触发
GRANT	BEFORE，AFTER	执行GRANT语句授予权限之前、之后触发
REVOKE	BEFORE，AFTER	执行REVOKE语句收权限之前、之后触犯发
RENAME	BEFORE，AFTER	执行RENAME语句更改数据库对象名称之前、之后触犯发
AUDIT / NOAUDIT	BEFORE，AFTER	执行AUDIT或NOAUDIT进行审计或停止审计之前、之后触发

7.3 系统触发器事件属性

事件属性\事件	Startup/Shutdown	Servererror	Logon/Logoff	DDL	DML
事件名称	ü＊	ü＊	ü＊	ü＊	＊
数据库名称	ü＊
数据库实例号	ü＊
错误号		ü＊
用户名			ü＊	＊
模式对象类型				ü＊	＊
模式对象名称				ü＊	＊
列					ü＊

----除DML语句的列属性外，其余事件属性值可通过调用ORACLE定义的事件属性函数来读取。

函数名称	数据类型	说明
Ora_sysevent	VARCHAR2（20）	激活触发器的事件名称
Instance_num	NUMBER	数据库实例名
Ora_database_name	VARCHAR2（50）	数据库名称
Server_error(posi)	NUMBER	错误信息栈中posi指定位置中的错误号
Is_servererror(err_number)	BOOLEAN	检查err_number指定的错误号是否在错误信息栈中，如果在则返回TRUE，否则返回FALSE。在触发器内调用此函数可以判断是否发生指定的错误。
Login_user	VARCHAR2(30)	登陆或注销的用户名称
Dictionary_obj_type	VARCHAR2(20)	DDL语句所操作的数据库对象类型
Dictionary_obj_name	VARCHAR2(30)	DDL语句所操作的数据库对象名称
Dictionary_obj_owner	VARCHAR2(30)	DDL语句所操作的数据库对象所有者名称
Des_encrypted_password	VARCHAR2(2)	正在创建或修改的经过DES算法加密的用户口令

7.4 例题1：记录hr用户ddl操作

----创建触发器，存放有关事件信息。（会记录hr用户ddl的所有操作，包括在其他用户下ddl操作）

conn hr/hr

SQL> desc ora_sysevent

FUNCTION ora_sysevent RETURNS VARCHAR2

SQL> desc ora_login_user

FUNCTION ora_login_user RETURNS VARCHAR2

----创建用于记录事件的表

create table ddl_event(crt_date date primary key,

event_name varchar2(200),

user_name varchar2(20),

obj_type varchar2(200),

obj_name varchar2(200));

----创建触发器

create or replace trigger hr.tr_ddl

after ddl on schema

begin

insert into ddl_event

values

(sysdate,

ora_sysevent,

ora_login_user,

ora_dict_obj_type,

ora_dict_obj_name);

end tr_ddl;

----测试

SQL> create table zhong(zz varchar2(10),id int);

Table created.

SQL> insert into zhong values('dldldd',11);

1 row created.

SQL> commit;

Commit complete.

SQL> drop table zhong;

Table dropped.

SQL> conn / as sysdba

Connected.

SQL> create table hr.ttt as select * from scott.emp;

Table created.

SQL> select * from ddl_event;

CRT_DATE EVENT_NAME USER_NAME OBJ_TYPE OBJ_NAME

--------------------------- ------------- ---------------- ------------------------- ------------------

2016-07-17 09:28:56 CREATE HR TABLE ZHONG

2016-07-17 09:29:10 DROP HR TABLE ZHONG

SQL> create table scott.hrrr as select * from hr.employees;

Table created.

SQL> select count(*) from scott.hrrr;

select count(*) from scott.hrrr

ERROR at line 1:

ORA-01031: insufficient privileges

SQL> grant select on scott.hrrr to hr;

Grant succeeded.

SQL> select count(*) from scott.hrrr;

COUNT(*)

----------

107

SQL> select * from ddl_event;

CRT_DATE EVENT_NAME USER_NAME OBJ_TYPE OBJ_NAME

------------------- ------------------ -------------------- --------------------------------- --------------------

2016-07-17 09:28:56 CREATE HR TABLE ZHONG

2016-07-17 09:29:10 DROP HR TABLE ZHONG

2016-07-17 09:37:15 CREATE HR TABLE HRRR

7.5 例题2：记录所有用户登录、登出

create table login_log

( session_id int not null,

login_on_time date,

login_off_time date,

user_in_db varchar2(30),

machine varchar2(100),

ip_address varchar2(100),

run_program varchar2(100)

) ;

create or replace trigger login_on_info

after logon on database

begin

insert into login_log (session_id,login_on_time,login_off_time,user_in_db,machine, ip_address,run_program)

select audsid,sysdate,null,login_user,machine,sys_context ('USERENV','IP_ADDRESS'), program

from v$session

where audsid=userenv('SESSIONID');

commit;

end;

create or replace trigger login_off_info

before logoff on database

begin

update login_log set login_off_time=sysdate

where session_id=userenv('SESSIONID');

exception

when others then null;

commit;

end;

SELECT * FROM login_log;

ORACLE 提供三个参数INSERTING, UPDATING,DELETING 用于判断触发了哪些操作。

谓词	行为
INSERTING	如果触发语句是 INSERT 语句，则为TRUE,否则为FALSE
UPDATING	如果触发语句是 UPDATE语句，则为TRUE,否则为FALSE
DELETING	如果触发语句是 DELETE 语句，则为TRUE,否则为FALSE

9.触发器的管理与维护

9.1 查看用户的触发器

select TRIGGER_NAME, TABLE_OWNER, STATUS from user_triggers;

select OWNER,TRIGGER_NAME, STATUS from all_triggers;

select OWNER,TRIGGER_NAME, STATUS from dba_triggers;

SELECT TRIGGER_NAME, TRIGGER_TYPE, TRIGGERING_EVENT,

TABLE_OWNER, BASE_OBJECT_TYPE, REFERENCING_NAMES,

STATUS, ACTION_TYPE

FROM user_triggers;

9.2 编译失效触发器

如果在触发器内调用其它函数或过程，当这些函数或过程被删除或修改后，触发器的状态将被标识为无效。当DML语句激活一个无效触发器时，ORACLE将重新编译触发器代码，如果编译时发现错误，这将导致DML语句执行失败。

在PL/SQL程序中可以调用ALTER TRIGGER语句重新编译已经创建的触发器，格式为：

ALTER TRIGGER username.trigger_name COMPILE;

9.3 禁用或启用触发器

数据库TRIGGER 的状态：

有效状态(ENABLE)：当触发事件发生时，处于有效状态的数据库触发器TRIGGER 将被触发。

无效状态(DISABLE)：当触发事件发生时，处于无效状态的数据库触发器TRIGGER 将不会被触发，此时就跟没有这个数据库触发器(TRIGGER) 一样。

数据库TRIGGER的这两种状态可以互相转换。格式为：

ALTER TIGGER trigger_name [DISABLE | ENABLE ];

ALTER TRIGGER语句一次只能改变一个触发器的状态，而ALTER TABLE语句则一次能够改变与指定表相关的所有触发器的使用状态。

----针对某个表

------禁用所有的触发器

ALTER TABLE table_name DISABLE ALL TRIGGERS;

------启用所有

ALTER TABLE table_name ENABLE ALL TRIGGERS；

9.4 删除触发器

DROP TRIGGER trigger_name;

当删除其他用户模式中的触发器名称，需要具有DROP ANY TRIGGER系统权限，当删除建立在数据库上的触发器时，用户需要具有ADMINISTER DATABASE TRIGGER系统权限。

此外，当删除表或视图时，建立在这些对象上的触发器也随之删除。

10.触发器应用示列

10.1 例1:dml语句级触发器

创建一个DML语句级触发器，当对emp表执行INSERT, UPDATE, DELETE 操作时，它自动更新dept_summary 表中的数据。由于在PL/SQL块中不能直接调用DDL语句，所以，利用ORACLE内置包DBMS_UTILITY中的EXEC_DDL_STATEMENT过程，由它执行DDL语句创建触发器。

CREATE TABLE dept_summary(

Deptno NUMBER(2),

Sal_sum NUMBER(9, 2),

Emp_count NUMBER);

INSERT INTO dept_summary(deptno, sal_sum, emp_count)

SELECT deptno, SUM(sal), COUNT(*)

FROM emp

GROUP BY deptno;

commit;

--创建一个PL/SQL过程disp_dept_summary

--在触发器中调用该过程显示dept_summary标中的数据。

CREATE OR REPLACE PROCEDURE disp_dept_summary IS

Rec dept_summary%ROWTYPE;

CURSOR c1 IS

SELECT * FROM dept_summary;

BEGIN

OPEN c1;

FETCH c1

INTO REC;

DBMS_OUTPUT.PUT_LINE('deptno sal_sum emp_count');

DBMS_OUTPUT.PUT_LINE('-------------------------------------');

WHILE c1%FOUND LOOP

DBMS_OUTPUT.PUT_LINE(RPAD(rec.deptno, 6) ||

To_char(rec.sal_sum, '$999,999.99') ||

LPAD(rec.emp_count, 13));

FETCH c1

INTO rec;

END LOOP;

CLOSE c1;

END;

BEGIN

DBMS_OUTPUT.PUT_LINE('插入前');

Disp_dept_summary();

DBMS_UTILITY.EXEC_DDL_STATEMENT('

CREATE OR REPLACE TRIGGER trig1

AFTER INSERT OR DELETE OR UPDATE OF sal ON emp

BEGIN

DBMS_OUTPUT.PUT_LINE(''正在执行trig1 触发器…'');

DELETE FROM dept_summary;

INSERT INTO dept_summary(deptno, sal_sum, emp_count)

SELECT deptno, SUM(sal), COUNT(*)

FROM emp GROUP BY deptno;

END;

');

INSERT INTO dept

(deptno, dname, loc)

VALUES

(90, 'demo_dept', 'none_loc');

INSERT INTO emp

(ename, deptno, empno, sal)

VALUES

(USER, 90, 9999, 3000);

DBMS_OUTPUT.PUT_LINE('插入后');

Disp_dept_summary();

UPDATE emp SET sal = 1000 WHERE empno = 9999;

DBMS_OUTPUT.PUT_LINE('修改后');

Disp_dept_summary();

DELETE FROM emp WHERE empno = 9999;

DELETE FROM dept WHERE deptno = 90;

DBMS_OUTPUT.PUT_LINE('删除后');

Disp_dept_summary();

DBMS_UTILITY.EXEC_DDL_STATEMENT('DROP TRIGGER trig1');

EXCEPTION

WHEN OTHERS THEN

DBMS_OUTPUT.PUT_LINE(SQLCODE || '---' || SQLERRM);

END;

----运行的结果如下：

插入前

deptno sal_sum emp_count

-------------------------------------

30 $9,400.00 6

20 $10,875.00 5

10 $8,750.00 3

正在执行trig1 触发器…

插入后

deptno sal_sum emp_count

-------------------------------------

30 $9,400.00 6

90 $3,000.00 1

20 $10,875.00 5

10 $8,750.00 3

正在执行trig1 触发器…

修改后

deptno sal_sum emp_count

-------------------------------------

30 $9,400.00 6

90 $1,000.00 1

20 $10,875.00 5

10 $8,750.00 3

正在执行trig1 触发器…

删除后

deptno sal_sum emp_count

-------------------------------------

30 $9,400.00 6

20 $10,875.00 5

10 $8,750.00 3

10.2 例2:dml语句行级触发器

创建DML语句行级触发器。当对emp表执行INSERT, UPDATE, DELETE 操作时，它自动更新dept_summary 表中的数据。由于在PL/SQL块中不能直接调用DDL语句，所以，利用ORACLE内置包DBMS_UTILITY中的EXEC_DDL_STATEMENT过程，由它执行DDL语句创建触发器。

BEGIN

DBMS_OUTPUT.PUT_LINE('插入前');

Disp_dept_summary();

DBMS_UTILITY.EXEC_DDL_STATEMENT('CREATE OR REPLACE TRIGGER trig2_update

AFTER UPDATE OF sal ON emp

REFERENCING OLD AS old_emp NEW AS new_emp

FOR EACH ROW

WHEN (old_emp.sal != new_emp.sal)

BEGIN

DBMS_OUTPUT.PUT_LINE(''正在执行trig2_update 触发器…'');

DBMS_OUTPUT.PUT_LINE(''sal 旧值：''|| :old_emp.sal);

DBMS_OUTPUT.PUT_LINE(''sal 新值：''|| :new_emp.sal);

UPDATE dept_summary

SET sal_sum=sal_sum + :new_emp.sal - :old_emp.sal

WHERE deptno = :new_emp.deptno;

END;');

DBMS_UTILITY.EXEC_DDL_STATEMENT('CREATE OR REPLACE TRIGGER trig2_insert

AFTER INSERT ON emp

REFERENCING NEW AS new_emp

FOR EACH ROW

DECLARE

I NUMBER;

BEGIN

DBMS_OUTPUT.PUT_LINE(''正在执行trig2_insert 触发器…'');

SELECT COUNT(*) INTO I

FROM dept_summary WHERE deptno = :new_emp.deptno;

IF I > 0 THEN

UPDATE dept_summary

SET sal_sum=sal_sum+:new_emp.sal,

Emp_count=emp_count+1

WHERE deptno = :new_emp.deptno;

ELSE

INSERT INTO dept_summary

VALUES (:new_emp.deptno, :new_emp.sal, 1);

END IF;

END;');

DBMS_UTILITY.EXEC_DDL_STATEMENT('CREATE OR REPLACE TRIGGER trig2_delete

AFTER DELETE ON emp

REFERENCING OLD AS old_emp

FOR EACH ROW

DECLARE

I NUMBER;

BEGIN

DBMS_OUTPUT.PUT_LINE(''正在执行trig2_delete 触发器…'');

SELECT emp_count INTO I

FROM dept_summary WHERE deptno = :old_emp.deptno;

IF I >1 THEN

UPDATE dept_summary

SET sal_sum=sal_sum - :old_emp.sal,

Emp_count=emp_count - 1

WHERE deptno = :old_emp.deptno;

ELSE

DELETE FROM dept_summary WHERE deptno = :old_emp.deptno;

END IF;

END;');

INSERT INTO dept

(deptno, dname, loc)

VALUES

(90, 'demo_dept', 'none_loc');

INSERT INTO emp

(ename, deptno, empno, sal)

VALUES

(USER, 90, 9999, 3000);

INSERT INTO emp

(ename, deptno, empno, sal)

VALUES

(USER, 90, 9998, 2000);

DBMS_OUTPUT.PUT_LINE('插入后');

Disp_dept_summary();

UPDATE emp SET sal = sal * 1.1 WHERE deptno = 90;

DBMS_OUTPUT.PUT_LINE('修改后');

Disp_dept_summary();

DELETE FROM emp WHERE deptno = 90;

DELETE FROM dept WHERE deptno = 90;

DBMS_OUTPUT.PUT_LINE('删除后');

Disp_dept_summary();

DBMS_UTILITY.EXEC_DDL_STATEMENT('DROP TRIGGER trig2_update');

DBMS_UTILITY.EXEC_DDL_STATEMENT('DROP TRIGGER trig2_insert');

DBMS_UTILITY.EXEC_DDL_STATEMENT('DROP TRIGGER trig2_delete');

EXCEPTION

WHEN OTHERS THEN

DBMS_OUTPUT.PUT_LINE(SQLCODE || '---' || SQLERRM);

END;

----运行结果如下：

插入前

deptno sal_sum emp_count

-------------------------------------

30 $9,400.00 6

20 $10,875.00 5

10 $8,750.00 3

正在执行trig2_insert 触发器…

插入后

deptno sal_sum emp_count

-------------------------------------

30 $9,400.00 6

20 $10,875.00 5

10 $8,750.00 3

90 $5,000.00 2

正在执行trig2_update 触发器…

sal 旧值：3000

sal 新值：3300

正在执行trig2_update 触发器…

sal 旧值：2000

sal 新值：2200

修改后

deptno sal_sum emp_count

-------------------------------------

30 $9,400.00 6

20 $10,875.00 5

10 $8,750.00 3

90 $5,500.00 2

正在执行trig2_delete 触发器…

删除后

deptno sal_sum emp_count

-------------------------------------

30 $9,400.00 6

20 $10,875.00 5

10 $8,750.00 3

10.3 例3:利用谓词创建例2触发器

利用ORACLE提供的条件谓词INSERTING、UPDATING和DELETING创建与例2具有相同功能的触发器。

BEGIN

DBMS_OUTPUT.PUT_LINE('插入前');

Disp_dept_summary();

DBMS_UTILITY.EXEC_DDL_STATEMENT('CREATE OR REPLACE TRIGGER trig2

AFTER INSERT OR DELETE OR UPDATE OF sal

ON emp

REFERENCING OLD AS old_emp NEW AS new_emp

FOR EACH ROW

DECLARE

I NUMBER;

BEGIN

IF UPDATING AND :old_emp.sal != :new_emp.sal THEN

DBMS_OUTPUT.PUT_LINE(''正在执行trig2 触发器…'');

DBMS_OUTPUT.PUT_LINE(''sal 旧值：''|| :old_emp.sal);

DBMS_OUTPUT.PUT_LINE(''sal 新值：''|| :new_emp.sal);

UPDATE dept_summary

SET sal_sum=sal_sum + :new_emp.sal - :old_emp.sal

WHERE deptno = :new_emp.deptno;

ELSIF INSERTING THEN

DBMS_OUTPUT.PUT_LINE(''正在执行trig2触发器…'');

SELECT COUNT(*) INTO I

FROM dept_summary

WHERE deptno = :new_emp.deptno;

IF I > 0 THEN

UPDATE dept_summary

SET sal_sum=sal_sum+:new_emp.sal,

Emp_count=emp_count+1

WHERE deptno = :new_emp.deptno;

ELSE

INSERT INTO dept_summary

VALUES (:new_emp.deptno, :new_emp.sal, 1);

END IF;

ELSE

DBMS_OUTPUT.PUT_LINE(''正在执行trig2触发器…'');

SELECT emp_count INTO I

FROM dept_summary WHERE deptno = :old_emp.deptno;

IF I > 1 THEN

UPDATE dept_summary

SET sal_sum=sal_sum - :old_emp.sal,

Emp_count=emp_count - 1

WHERE deptno = :old_emp.deptno;

ELSE

DELETE FROM dept_summary

WHERE deptno = :old_emp.deptno;

END IF;

END;');

INSERT INTO dept

(deptno, dname, loc)

VALUES

(90, 'demo_dept', 'none_loc');

INSERT INTO emp

(ename, deptno, empno, sal)

VALUES

(USER, 90, 9999, 3000);

INSERT INTO emp

(ename, deptno, empno, sal)

VALUES

(USER, 90, 9998, 2000);

DBMS_OUTPUT.PUT_LINE('插入后');

Disp_dept_summary();

UPDATE emp SET sal = sal * 1.1 WHERE deptno = 90;

DBMS_OUTPUT.PUT_LINE('修改后');

Disp_dept_summary();

DELETE FROM emp WHERE deptno = 90;

DELETE FROM dept WHERE deptno = 90;

DBMS_OUTPUT.PUT_LINE('删除后');

Disp_dept_summary();

DBMS_UTILITY.EXEC_DDL_STATEMENT('DROP TRIGGER trig2');

EXCEPTION

WHEN OTHERS THEN

DBMS_OUTPUT.PUT_LINE(SQLCODE || '---' || SQLERRM);

END;

10.4 例4:创建instead of替代触发器

创建INSTEAD OF 触发器。首先创建一个视图myview, 由于该视图是复合查询所产生的视图，所以不能执行DML语句。根据用户对视图所插入的数据判断需要将数据插入到哪个视图基表中，然后对该基表执行插入操作。

BEGIN

DBMS_UTILITY.EXEC_DDL_STATEMENT('

CREATE OR REPLACE VIEW myview AS

SELECT empno, ename, ''E'' type FROM emp

UNION

SELECT dept.deptno, dname, ''D'' FROM dept

');

end;

begin

-- 创建INSTEAD OF 触发器trigger3;

DBMS_UTILITY.EXEC_DDL_STATEMENT('

CREATE OR REPLACE TRIGGER trig3

INSTEAD OF INSERT ON myview

REFERENCING NEW n

FOR EACH ROW

DECLARE

Rows INTEGER;

BEGIN

DBMS_OUTPUT.PUT_LINE(''正在执行trig3触发器…'');

IF :n.type = ''D'' THEN

SELECT COUNT(*) INTO rows FROM dept WHERE deptno = :n.empno;

IF rows = 0 THEN

DBMS_OUTPUT.PUT_LINE(''向dept表中插入数据…'');

INSERT INTO dept

(deptno, dname, loc)

VALUES

(:n.empno, :n.ename, ''none'');

ELSE

DBMS_OUTPUT.PUT_LINE('' 编号为 '' || :n.empno || '' 的部门已存在，插入操作失败！ '');

END IF;

ELSE

SELECT COUNT(*) INTO rows FROM emp WHERE empno = :n.empno;

IF rows = 0 THEN

DBMS_OUTPUT.PUT_LINE(''向emp表中插入数据…'');

INSERT INTO emp (empno, ename) VALUES (:n.empno, :n.ename);

ELSE

DBMS_OUTPUT.PUT_LINE('' 编号为 '' || :n.empno || '' 的人员已存在，插入操作失败 ! '');

END IF;

END;

');

end;

DECLARE

No NUMBER;

Name VARCHAR2(20);

begin

INSERT INTO myview VALUES (86, ' demo ', 'D');

INSERT INTO myview VALUES (9992, USER, 'E');

SELECT deptno, dname INTO no, name FROM dept WHERE deptno = 86;

DBMS_OUTPUT.PUT_LINE(' 员工编号： ' || TO_CHAR(no) || ' 姓名： ' || name);

SELECT empno, ename INTO no, name FROM emp WHERE empno = 9992;

DBMS_OUTPUT.PUT_LINE(' 部门编号： ' || TO_CHAR(no) || ' 姓名： ' || name);

DELETE FROM emp WHERE empno = 9992;

DELETE FROM dept WHERE deptno = 86;

DBMS_UTILITY.EXEC_DDL_STATEMENT(' DROP TRIGGER trig3 ');

end;

----执行结果如下：

正在执行trig3触发器…

向dept表中插入数据…

正在执行trig3触发器…

向emp表中插入数据…

员工编号： 86 姓名： demo

部门编号： 9992 姓名： SCOTT

10.5 例5:系统事件触发器

利用ORACLE事件属性函数，创建一个系统事件触发器。首先创建一个事件日志表eventlog，由它存储用户在当前数据库中所创建的数据库对象，以及用户的登陆和注销、数据库的启动和关闭等事件，之后创建trig4_ddl、trig4_before和trig4_after触发器，它们调用事件属性函数将各个事件记录到eventlog数据表中。

BEGIN

-- 创建用于记录事件日志的数据表

DBMS_UTILITY.EXEC_DDL_STATEMENT('

CREATE TABLE eventlog(

Eventname VARCHAR2(20) NOT NULL,

Eventdate date default sysdate,

Inst_num NUMBER NULL,

Db_name VARCHAR2(50) NULL,

Srv_error NUMBER NULL,

Username VARCHAR2(30) NULL,

Obj_type VARCHAR2(20) NULL,

Obj_name VARCHAR2(30) NULL,

Obj_owner VARCHAR2(30) NULL

)

');

end;

begin

-- 创建DDL触发器trig4_ddl

DBMS_UTILITY.EXEC_DDL_STATEMENT('

CREATE OR REPLACE TRIGGER trig4_ddl

AFTER CREATE OR ALTER OR DROP

ON DATABASE

DECLARE

Event VARCHAR2(20);

Typ VARCHAR2(20);

Name VARCHAR2(30);

Owner VARCHAR2(30);

BEGIN

-- 读取DDL事件属性

Event := SYSEVENT;

Typ := DICTIONARY_OBJ_TYPE;

Name := DICTIONARY_OBJ_NAME;

Owner := DICTIONARY_OBJ_OWNER;

--将事件属性插入到事件日志表中

INSERT INTO eventlog(eventname, obj_type, obj_name, obj_owner)

VALUES(event, typ, name, owner);

END;

');

end;

begin

-- 创建LOGON、STARTUP和SERVERERROR 事件触发器

DBMS_UTILITY.EXEC_DDL_STATEMENT('

CREATE OR REPLACE TRIGGER trig4_after

AFTER LOGON OR STARTUP OR SERVERERROR

ON DATABASE

DECLARE

Event VARCHAR2(20);

Instance NUMBER;

Err_num NUMBER;

Dbname VARCHAR2(50);

User VARCHAR2(30);

BEGIN

Event := SYSEVENT;

IF event = ''LOGON'' THEN

User := LOGIN_USER;

INSERT INTO eventlog(eventname, username)

VALUES(event, user);

ELSIF event = ''SERVERERROR'' THEN

Err_num := SERVER_ERROR(1);

INSERT INTO eventlog(eventname, srv_error)

VALUES(event, err_num);

ELSE

Instance := INSTANCE_NUM;

Dbname := DATABASE_NAME;

INSERT INTO eventlog(eventname, inst_num, db_name)

VALUES(event, instance, dbname);

commit;

END IF;

END;

');

end;

begin

-- 创建LOGOFF和SHUTDOWN 事件触发器

DBMS_UTILITY.EXEC_DDL_STATEMENT('

CREATE OR REPLACE TRIGGER trig4_before

BEFORE LOGOFF OR SHUTDOWN

ON DATABASE

DECLARE

Event VARCHAR2(20);

Instance NUMBER;

Dbname VARCHAR2(50);

User VARCHAR2(30);

BEGIN

Event := SYSEVENT;

IF event = ''LOGOFF'' THEN

User := LOGIN_USER;

INSERT INTO eventlog(eventname, username)

VALUES(event, user);

ELSE

Instance := INSTANCE_NUM;

Dbname := DATABASE_NAME;

INSERT INTO eventlog(eventname, inst_num, db_name)

VALUES(event, instance, dbname);

END IF;

END;

');

END;

----开始测试：

CREATE TABLE mydata(mydate NUMBER);

CONNECT SCOTT/1111

conn / as sysdba

COL eventname FORMAT A10

COL eventdate FORMAT A12

COL username FORMAT A10

COL obj_type FORMAT A15

COL obj_name FORMAT A15

COL obj_owner FORMAT A10

SELECT eventname, eventdate, obj_type, obj_name, obj_owner, username, Srv_error

FROM eventlog order by eventdate;

EVENTNAME EVENTDATE OBJ_TYPE OBJ_NAME OBJ_OWNER USERNAME SRV_ERROR

---------- ------------ --------------- --------------- ---------- ---------- ----------

CREATE 2016-07-21 0 TABLE MYDATA SCOTT

5:29:12

CREATE 2016-07-21 0 TABLE EVENTLOG SYS

5:37:16

CREATE 2016-07-21 0 TRIGGER TRIG4_DDL SYS

SERVERERRO 2016-07-21 0 25228

R 5:48:51

LOGON 2016-07-21 0 SCOTT

5:48:51

LOGON 2016-07-21 0 SYS

5:48:54

LOGOFF 2016-07-21 0 SCOTT

----最后清理

DROP TRIGGER trig4_ddl;

DROP TRIGGER trig4_before;

DROP TRIGGER trig4_after;

DROP TABLE eventlog;

DROP TABLE mydata;

----清理可能会遇到下面这样的错误：

SQL> DROP TABLE eventlog;

DROP TABLE eventlog

ERROR at line 1:

ORA-00604: error occurred at recursive SQL level 2

ORA-30512: cannot modify SCOTT.EVENTLOG more than once in a transaction

ORA-06512: at line 13

SQL> alter table eventlog rename to ttt;

alter table eventlog rename to ttt

ERROR at line 1:

ORA-04045: errors during recompilation/revalidation of SYS.TRIG4_DDL

ORA-00600: internal error code, arguments: [16221], [83], [EVENTLOG], [], [],

[], [], [], [], [], [], []

----哈哈，不要备600吓到，报错原因是表还在使用，把触发器disable后，就可以删除表咯

SQL> alter trigger SYS.TRIG4_DDL disable;

Trigger altered.

SQL> drop table scott.eventlog;

Table dropped.

SQL> DROP TRIGGER trig4_ddl;

Trigger dropped.

10.6 数据库触发器应用实例续

用户可以使用数据库触发器实现各种功能：

1> 复杂的审计功能；

例：将EMP 表的变化情况记录到AUDIT_TABLE和AUDIT_TABLE_VALUES中。

CREATE TABLE audit_table(

Audit_id NUMBER,

User_name VARCHAR2(20),

Now_time DATE,

Terminal_name VARCHAR2(10),

Table_name VARCHAR2(10),

Action_name VARCHAR2(10),

Emp_id NUMBER(4));

CREATE TABLE audit_table_val(

Audit_id NUMBER,

Column_name VARCHAR2(10),

Old_val NUMBER(7,2),

New_val NUMBER(7,2));

CREATE SEQUENCE audit_seq

START WITH 1000

INCREMENT BY 1

NOMAXVALUE

NOCYCLE NOCACHE;

CREATE OR REPLACE TRIGGER audit_emp

AFTER INSERT OR UPDATE OR DELETE ON emp

FOR EACH ROW

DECLARE

Time_now DATE;

Terminal CHAR(10);

BEGIN

Time_now:=sysdate;

Terminal:=USERENV('TERMINAL');

IF INSERTING THEN

INSERT INTO audit_table

VALUES(audit_seq.NEXTVAL, user, time_now,

terminal, 'EMP', 'INSERT', :new.empno);

ELSIF DELETING THEN

INSERT INTO audit_table

VALUES(audit_seq.NEXTVAL, user, time_now,

terminal, 'EMP', 'DELETE', :old.empno);

ELSE

INSERT INTO audit_table

VALUES(audit_seq.NEXTVAL, user, time_now,

terminal, 'EMP', 'UPDATE', :old.empno);

IF UPDATING('SAL') THEN

INSERT INTO audit_table_val

VALUES(audit_seq.CURRVAL, 'SAL', :old.sal, :new.sal);

ELSE

INSERT INTO audit_table_val

VALUES(audit_seq.CURRVAL, 'DEPTNO', :old.deptno, :new.deptno);

END IF;

END;

----演示

insert into emp (empno,ename,sal)values(56,'zhong',8888);

update emp set empno=99,sal=10000 where empno=56;

commit;

SQL> SELECT * FROM audit_table;

AUDIT_ID USER_NAME NOW_TIME TERMINAL_N TABLE_NAME ACTION_NAM EMP_ID

---------- ---------- ---------- ---------- ---------- ---------- ---------- ----------

1000 SCOTT 2016-07-21 06:42:33 NDBA EMP INSERT 56

1001 SCOTT 2016-07-21 06:44:36 NDBA EMP UPDATE 56

SQL> SELECT * FROM audit_table_val;

AUDIT_ID COLUMN_NAM OLD_VAL NEW_VAL

---------- ---------- ---------- ----------

1001 SAL 8888 10000

----清理

SQL> drop trigger audit_emp;

Trigger dropped.

SQL> drop table audit_table;

Table dropped.

SQL> drop table audit_table_val;

Table dropped.

SQL> drop sequence audit_seq;

Sequence dropped.

2> 增强数据的完整性管理

例：修改DEPT表的DEPTNO列时，同时把EMP表中相应的DEPTNO也作相应的修改；

CREATE SEQUENCE update_sequence

INCREMENT BY 1

START WITH 1000

MAXVALUE 5000 CYCLE;

ALTER TABLE emp

ADD update_id NUMBER;

CREATE OR REPLACE PACKAGE integritypackage AS

Updateseq NUMBER;

END integritypackage;

CREATE OR REPLACE PACKAGE BODY integritypackage AS

END integritypackage;

CREATE OR REPLACE TRIGGER dept_cascade1

BEFORE UPDATE OF deptno ON dept

DECLARE

Dummy NUMBER;

BEGIN

SELECT update_sequence.NEXTVAL INTO dummy FROM dual;

Integritypackage.updateseq:=dummy;

END;

CREATE OR REPLACE TRIGGER dept_cascade2

AFTER DELETE OR UPDATE OF deptno ON dept

FOR EACH ROW

BEGIN

IF UPDATING THEN

UPDATE emp SET deptno=:new.deptno,

update_id=integritypackage.updateseq

WHERE emp.deptno=:old.deptno AND update_id IS NULL;

END IF;

IF DELETING THEN

DELETE FROM emp

WHERE emp.deptno=:old.deptno;

END IF;

END;

CREATE OR REPLACE TRIGGER dept_cascade3

AFTER UPDATE OF deptno ON dept

BEGIN

UPDATE emp SET update_id=NULL

WHERE update_id=integritypackage.updateseq;

END;

----测试

update dept set deptno=11 where deptno=10;

SELECT * FROM emp where deptno in (10,11);

delete dept where deptno=11;

SELECT * FROM emp where deptno in (10,11);

rollback;

3> 帮助实现安全控制

例：保证对EMP表的修改仅在工作日的工作时间；

CREATE TABLE company_holidays(day DATE);

----创建一张公司假期表

INSERT INTO company_holidays

VALUES(sysdate);

INSERT INTO company_holidays

VALUES(TO_DATE('21-10月-01', 'DD-MON-YY'));

CREATE OR REPLACE TRIGGER emp_permit_change

BEFORE INSERT OR DELETE OR UPDATE ON emp

DECLARE

Dummy NUMBER;

Not_on_weekends EXCEPTION;

Not_on_holidays EXCEPTION;

Not_working_hours EXCEPTION;

BEGIN

/* check for weekends */

IF TO_CHAR(SYSDATE, 'DAY') IN ('星期六', '星期日') THEN

RAISE not_on_weekends;

END IF;

/* check for company holidays */

SELECT COUNT(*) INTO dummy FROM company_holidays

WHERE TRUNC(day)=TRUNC(SYSDATE);

IF dummy >0 THEN

RAISE not_on_holidays;

END IF;

/* check for work hours(8:00 AM to 18:00 PM */

IF (TO_CHAR(SYSDATE,'HH24')<8 OR TO_CHAR(SYSDATE, 'HH24')>18) THEN

RAISE not_working_hours;

END IF;

EXCEPTION

WHEN not_on_weekends THEN

RAISE_APPLICATION_ERROR(-20324,

'May not change employee table during the weekends');

WHEN not_on_holidays THEN

RAISE_APPLICATION_ERROR(-20325,

'May not change employee table during a holiday');

WHEN not_working_hours THEN

RAISE_APPLICATION_ERROR(-20326,

'May not change employee table during no_working hours');

END;

reference http://blog.csdn.net/indexman/article/details/8023740

http://www.cnblogs.com/huyong/archive/2011/04/27/2030466.html

http://docs.oracle.com/cd/E11882_01/appdev.112/e25519/triggers.htm#LNPLS020

http://www.cnblogs.com/huyong/archive/2012/07/30/2614563.html#3473114

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/30130773/viewspace-2122781/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/30130773/viewspace-2122781/

cuimiwan3140

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
PL&SQL触发器学习

1.触发器类型触发器在数据库里以独立的对象存储，它与存储过程和函数不同的是，存储过程与函数需要用户显示调用才执行，而触发器是由一个事件来启动运行。即触发器是当某个事件发生时自动地隐式运行。并且，触...
复制链接

扫一扫