oracle触发器应用

首先给大家推荐两篇我看后的博文，我已经内容转载过来：

1.对触发器的讲解

本篇主要内容如下：

8.1 触发器类型

8.1.1 DML触发器

8.1.2 替代触发器

8.1.3 系统触发器

8.2 创建触发器

8.2.1 触发器触发次序

8.2.2 创建DML触发器

8.2.3 创建替代(INSTEAD OF)触发器

8.2.3 创建系统事件触发器

8.2.4 系统触发器事件属性

8.2.5 使用触发器谓词

8.2.6 重新编译触发器

8.3 删除和使能触发器

8.4 触发器和数据字典

8.5 数据库触发器的应用举例

触发器是许多关系数据库系统都提供的一项技术。在ORACLE系统里，触发器类似过程和函数，都有声明，执行和异常处理过程的PL/SQL块。

8.1 触发器类型

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

8.1.1 DML触发器

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

8.1.2 替代触发器

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

8.1.3 系统触发器

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

触发器组成:

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

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

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

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

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

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

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

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

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

l 触发器不接受参数。

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

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

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

l 在触发器的执行部分只能用DML语句（SELECT、INSERT、UPDATE、DELETE），不能使用DDL语句（CREATE、ALTER、DROP）。

l 触发器中不能包含事务控制语句(COMMIT，ROLLBACK，SAVEPOINT)。因为触发器是触发语句的一部分，触发语句被提交、回退时，触发器也被提交、回退了。

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

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

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

8.2 创建触发器

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

1 CREATE [OR REPLACE] TRIGGER trigger_name
2 {BEFORE | AFTER }
3 {INSERT | DELETE | UPDATE [OF column [, column …]]}
4 [OR {INSERT | DELETE | UPDATE [OF column [, column …]]}...]
5 ON [schema.]table_name | [schema.]view_name 
6 [REFERENCING {OLD [AS] old | NEW [AS] new| PARENT as parent}]
7 [FOR EACH ROW ]
8 [WHEN condition]
9 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 种类型的触发器，它们是:

 1 BEFORE INSERT
 2 
 3 BEFORE INSERT FOR EACH ROW
 4 
 5 AFTER INSERT
 6 
 7 AFTER INSERT FOR EACH ROW
 8 
 9  
10 
11 BEFORE UPDATE
12 
13 BEFORE UPDATE FOR EACH ROW
14 
15 AFTER UPDATE
16 
17 AFTER UPDATE FOR EACH ROW
18 
19  
20 
21 BEFORE DELETE
22 
23 BEFORE DELETE FOR EACH ROW
24 
25 AFTER DELETE
26 
27 AFTER DELETE FOR EACH ROW

8.2.1 触发器触发次序

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

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

l 执行 BEFORE行级触发器

l 执行 DML语句

l 执行 AFTER行级触发器

3. 执行 AFTER语句级触发器

8.2.2 创建DML触发器

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

DML触发器的限制

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

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

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

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

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

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

DML触发器基本要点

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

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

l 条件谓词：当在触发器中包含多个触发事件（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。

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

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

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

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

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

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

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

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

 1 CREATE TABLE emp_his AS SELECT * FROM EMP WHERE 1=2; 
 2 CREATE OR REPLACE TRIGGER tr_del_emp 
 3 BEFORE DELETE --指定触发时机为删除操作前触发
 4 ON scott.emp 
 5 FOR EACH ROW --说明创建的是行级触发器 
 6 BEGIN
 7 --将修改前数据插入到日志记录表 del_emp ,以供监督使用。
 8 INSERT INTO emp_his(deptno , empno, ename , job ,mgr , sal , comm , hiredate )
 9 VALUES( :old.deptno, :old.empno, :old.ename , :old.job,:old.mgr, :old.sal, :old.comm, :old.hiredate );
10 END;
11 DELETE emp WHERE empno=7788;
12 DROP TABLE emp_his;
13 DROP TRIGGER del_emp;

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

1 CREATE OR REPLACE TRIGGER tr_dept_time
2 BEFORE INSERT OR DELETE OR UPDATE 
3 ON departments
4 BEGIN
5 IF (TO_CHAR(sysdate,'DAY') IN ('星期六', '星期日')) OR (TO_CHAR(sysdate, 'HH24:MI') NOT BETWEEN '08:30' AND '18:00') THEN
6 RAISE_APPLICATION_ERROR(-20001, '不是上班时间，不能修改departments表');
7 END IF;
8 END;

例3：限定只对部门号为80的记录进行行触发器操作。

 1 CREATE OR REPLACE TRIGGER tr_emp_sal_comm
 2 BEFORE UPDATE OF salary, commission_pct
 3 OR DELETE
 4 ON HR.employees
 5 FOR EACH ROW
 6 WHEN (old.department_id = 80)
 7 BEGIN
 8 CASE
 9 WHEN UPDATING ('salary') THEN
10 IF :NEW.salary < :old.salary THEN
11 
12 RAISE_APPLICATION_ERROR(-20001, '部门80的人员的工资不能降');
13 END IF;
14 WHEN UPDATING ('commission_pct') THEN
15 
16 IF :NEW.commission_pct < :old.commission_pct THEN
17 RAISE_APPLICATION_ERROR(-20002, '部门80的人员的奖金不能降');
18 END IF;
19 WHEN DELETING THEN
20 RAISE_APPLICATION_ERROR(-20003, '不能删除部门80的人员记录');
21 END CASE;
22 END; 
23 
24 /*
25 实例：
26 UPDATE employees SET salary = 8000 WHERE employee_id = 177;
27 DELETE FROM employees WHERE employee_id in (177,170);
28 */

例4：利用行触发器实现级联更新。在修改了主表regions中的region_id之后（AFTER），级联的、自动的更新子表countries表中原来在该地区的国家的region_id。

 1 CREATE OR REPLACE TRIGGER tr_reg_cou
 2 AFTER update OF region_id
 3 ON regions
 4 FOR EACH ROW
 5 BEGIN
 6 DBMS_OUTPUT.PUT_LINE('旧的region_id值是'||:old.region_id
 7 ||'、新的region_id值是'||:new.region_id);
 8 UPDATE countries SET region_id = :new.region_id
 9 WHERE region_id = :old.region_id;
10 END;

例5：在触发器中调用过程。

 1 CREATE OR REPLACE PROCEDURE add_job_history
 2 ( p_emp_id job_history.employee_id%type
 3 , p_start_date job_history.start_date%type
 4 , p_end_date job_history.end_date%type
 5 , p_job_id job_history.job_id%type
 6 , p_department_id job_history.department_id%type
 7 )
 8 IS
 9 BEGIN
10 INSERT INTO job_history (employee_id, start_date, end_date,
11 job_id, department_id)
12 VALUES(p_emp_id, p_start_date, p_end_date, p_job_id, p_department_id);
13 END add_job_history;
14 
15 --创建触发器调用存储过程...
16 CREATE OR REPLACE TRIGGER update_job_history
17 AFTER UPDATE OF job_id, department_id ON employees
18 FOR EACH ROW
19 BEGIN
20 add_job_history(:old.employee_id, :old.hire_date, sysdate,
21 :old.job_id, :old.department_id);
22 END;

8.2.3 创建替代(INSTEAD OF)触发器

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

1 CREATE [OR REPLACE] TRIGGER trigger_name
2 INSTEAD OF
3 {INSERT | DELETE | UPDATE [OF column [, column …]]}
4 [OR {INSERT | DELETE | UPDATE [OF column [, column …]]}...]
5 ON [schema.] view_name --只能定义在视图上
6 [REFERENCING {OLD [AS] old | NEW [AS] new| PARENT as parent}]
7 [FOR EACH ROW ] --因为INSTEAD OF触发器只能在行级上触发,所以没有必要指定
8 [WHEN condition]
9 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)而成，因而并非是所有的联结都是可更新的。但可以按照所需的方式执行更新，例如下面情况：

例1：

1 CREATE OR REPLACE VIEW emp_view AS 
2 SELECT deptno, count(*) total_employeer, sum(sal) total_salary 
3 FROM emp GROUP BY deptno;

在此视图中直接删除是非法：

1 SQL>DELETE FROM emp_view WHERE deptno=10;
2 DELETE FROM emp_view WHERE deptno=10

ERROR 位于第 1 行:

ORA-01732: 此视图的数据操纵操作非法

但是我们可以创建INSTEAD_OF触发器来为 DELETE 操作执行所需的处理，即删除EMP表中所有基准行：

 1 CREATE OR REPLACE TRIGGER emp_view_delete
 2 INSTEAD OF DELETE ON emp_view FOR EACH ROW
 3 BEGIN
 4 DELETE FROM emp WHERE deptno= :old.deptno;
 5 END emp_view_delete; 
 6 
 7 DELETE FROM emp_view WHERE deptno=10; 
 8 
 9 DROP TRIGGER emp_view_delete;
10 
11 DROP VIEW emp_view;

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

l 创建视图：

1 CREATE OR REPLACE FORCE VIEW "HR"."V_REG_COU" ("R_ID", "R_NAME", "C_ID", "C_NAME")
2 AS
3 SELECT r.region_id,
4 r.region_name,
5 c.country_id,
6 c.country_name
7 FROM regions r,
8 countries c
9 WHERE r.region_id = c.region_id;

l 创建触发器：

 1 CREATE OR REPLACE TRIGGER "HR"."TR_I_O_REG_COU" INSTEAD OF
 2 INSERT ON v_reg_cou FOR EACH ROW DECLARE v_count NUMBER;
 3 BEGIN
 4 SELECT COUNT(*) INTO v_count FROM regions WHERE region_id = :new.r_id;
 5 IF v_count = 0 THEN
 6 INSERT INTO regions
 7 (region_id, region_name
 8 ) VALUES
 9 (:new.r_id, :new.r_name
10 );
11 END IF;
12 
13 SELECT COUNT(*) INTO v_count FROM countries WHERE country_id = :new.c_id;
14 IF v_count = 0 THEN
15 INSERT
16 INTO countries
17 (
18 country_id,
19 country_name,
20 region_id
21 )
22 VALUES
23 (
24 :new.c_id,
25 :new.c_name,
26 :new.r_id
27 );
28 END IF;
29 END;

创建INSTEAD OF触发器需要注意以下几点：

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

l 不能指定BEFORE 或 AFTER选项。

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

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

8.2.3 创建系统事件触发器

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

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

1 CREATE OR REPLACE TRIGGER [sachema.]trigger_name
2 {BEFORE|AFTER} 
3 {ddl_event_list | database_event_list}
4 ON { DATABASE | [schema.]SCHEMA }
5 [WHEN condition]
6 PL/SQL_block | CALL procedure_name;

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

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

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

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

事件	允许的时机	说明
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进行审计或停止审计之前、之后触发

8.2.4 系统触发器事件属性

事件属性事件	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算法加密的用户口令

例1：创建触发器，存放有关事件信息。

1 DESC ora_sysevent
2 DESC ora_login_user

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

1 CREATE TABLE ddl_event
2 (crt_date timestamp PRIMARY KEY,
3 event_name VARCHAR2(20), 
4 user_name VARCHAR2(10),
5 obj_type VARCHAR2(20),
6 obj_name VARCHAR2(20));

--创建触犯发器

1 CREATE OR REPLACE TRIGGER tr_ddl
2 AFTER DDL ON SCHEMA
3 BEGIN
4 INSERT INTO ddl_event VALUES
5 (systimestamp,ora_sysevent, ora_login_user, 
6 ora_dict_obj_type, ora_dict_obj_name);
7 END tr_ddl;

例2：创建登录、退出触发器。

 1 CREATE TABLE log_event
 2 (user_name VARCHAR2(10),
 3 address VARCHAR2(20), 
 4 logon_date timestamp,
 5 logoff_date timestamp); 
 6 
 7 --创建登录触发器
 8 CREATE OR REPLACE TRIGGER tr_logon
 9 AFTER LOGON ON DATABASE
10 BEGIN
11 INSERT INTO log_event (user_name, address, logon_date)
12 VALUES (ora_login_user, ora_client_ip_address, systimestamp);
13 END tr_logon;
14 --创建退出触发器
15 CREATE OR REPLACE TRIGGER tr_logoff
16 BEFORE LOGOFF ON DATABASE
17 BEGIN
18 INSERT INTO log_event (user_name, address, logoff_date)
19 VALUES (ora_login_user, ora_client_ip_address, systimestamp);
20 END tr_logoff;

8.2.5 使用触发器谓词

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

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

8.2.6 重新编译触发器

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

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

ALTER TRIGGER [schema.] trigger_name COMPILE [ DEBUG]

其中：DEBUG 选项要器编译器生成PL/SQL 程序条使其所使用的调试代码。

8.3 删除和使能触发器

l 删除触发器：

DROP TRIGGER trigger_name;

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

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

l 禁用或启用触发器

数据库TRIGGER 的状态：

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

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

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

ALTER TIGGER trigger_name [DISABLE | ENABLE ];

--例：ALTER TRIGGER emp_view_delete DISABLE;

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

ALTER TABLE [schema.]table_name {ENABLE|DISABLE} ALL TRIGGERS;

--例：使表EMP 上的所有TRIGGER 失效：
ALTER TABLE emp DISABLE ALL TRIGGERS;

8.4 触发器和数据字典

相关数据字典：USER_TRIGGERS、ALL_TRIGGERS、DBA_TRIGGERS

1 SELECT TRIGGER_NAME, TRIGGER_TYPE, TRIGGERING_EVENT,
2 TABLE_OWNER, BASE_OBJECT_TYPE, REFERENCING_NAMES,
3 STATUS, ACTION_TYPE
4 FROM user_triggers;

8.5 数据库触发器的应用举例

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

 1 CREATE TABLE dept_summary(
 2 Deptno NUMBER(2),
 3 Sal_sum NUMBER(9, 2),
 4 Emp_count NUMBER); 
 5 
 6 INSERT INTO dept_summary(deptno, sal_sum, emp_count)
 7 SELECT deptno, SUM(sal), COUNT(*) 
 8 FROM emp 
 9 GROUP BY deptno;
10 
11 --创建一个PL/SQL过程disp_dept_summary
12 --在触发器中调用该过程显示dept_summary标中的数据。
13 CREATE OR REPLACE PROCEDURE disp_dept_summary
14 IS
15 Rec dept_summary%ROWTYPE;
16 CURSOR c1 IS SELECT * FROM dept_summary;
17 BEGIN
18 OPEN c1;
19 FETCH c1 INTO REC;
20 DBMS_OUTPUT.PUT_LINE('deptno sal_sum emp_count');
21 DBMS_OUTPUT.PUT_LINE('-------------------------------------');
22 WHILE c1%FOUND LOOP
23 DBMS_OUTPUT.PUT_LINE(RPAD(rec.deptno, 6)||
24 To_char(rec.sal_sum, '$999,999.99')||
25 LPAD(rec.emp_count, 13));
26 FETCH c1 INTO rec;
27 END LOOP;
28 CLOSE c1;
29 END;
30 BEGIN
31 DBMS_OUTPUT.PUT_LINE('插入前');
32 Disp_dept_summary();
33 DBMS_UTILITY.EXEC_DDL_STATEMENT('
34 CREATE OR REPLACE TRIGGER trig1
35 AFTER INSERT OR DELETE OR UPDATE OF sal ON emp
36 BEGIN
37 DBMS_OUTPUT.PUT_LINE(''正在执行trig1 触发器…'');
38 DELETE FROM dept_summary;
39 INSERT INTO dept_summary(deptno, sal_sum, emp_count)
40 SELECT deptno, SUM(sal), COUNT(*) 
41 FROM emp GROUP BY deptno;
42 END;
43 ');
44 
45 
46 INSERT INTO dept(deptno, dname, loc) 
47 VALUES(90, ‘demo_dept’, ‘none_loc’);
48 INSERT INTO emp(ename, deptno, empno, sal)
49 VALUES(USER, 90, 9999, 3000);
50 
51 DBMS_OUTPUT.PUT_LINE('插入后');
52 Disp_dept_summary();
53 
54 UPDATE emp SET sal=1000 WHERE empno=9999;
55 DBMS_OUTPUT.PUT_LINE('修改后');
56 Disp_dept_summary();
57 
58 DELETE FROM emp WHERE empno=9999;
59 DELETE FROM dept WHERE deptno=90;
60 
61 DBMS_OUTPUT.PUT_LINE('删除后');
62 Disp_dept_summary(); 
63 DBMS_UTILITY.EXEC_DDL_STATEMENT(‘DROP TRIGGER trig1’);
64 EXCEPTION
65 WHEN OTHERS THEN
66 DBMS_OUTPUT.PUT_LINE(SQLCODE||'---'||SQLERRM);
67 
68 END;

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

 1 BEGIN
 2 DBMS_OUTPUT.PUT_LINE('插入前');
 3 Disp_dept_summary();
 4 DBMS_UTILITY.EXEC_DDL_STATEMENT(
 5 'CREATE OR REPLACE TRIGGER trig2_update
 6 AFTER UPDATE OF sal ON emp
 7 REFERENCING OLD AS old_emp NEW AS new_emp
 8 FOR EACH ROW
 9 WHEN (old_emp.sal != new_emp.sal)
10 BEGIN
11 DBMS_OUTPUT.PUT_LINE(''正在执行trig2_update 触发器…'');
12 DBMS_OUTPUT.PUT_LINE(''sal 旧值：''|| :old_emp.sal);
13 DBMS_OUTPUT.PUT_LINE(''sal 新值：''|| :new_emp.sal);
14 UPDATE dept_summary
15 SET sal_sum=sal_sum + :new_emp.sal - :old_emp.sal
16 WHERE deptno = :new_emp.deptno;
17 END;'
18 );
19 
20 DBMS_UTILITY.EXEC_DDL_STATEMENT(
21 'CREATE OR REPLACE TRIGGER trig2_insert
22 AFTER INSERT ON emp
23 REFERENCING NEW AS new_emp
24 FOR EACH ROW
25 DECLARE
26 I NUMBER;
27 BEGIN
28 DBMS_OUTPUT.PUT_LINE(''正在执行trig2_insert 触发器…'');
29 SELECT COUNT(*) INTO I 
30 FROM dept_summary WHERE deptno = :new_emp.deptno;
31 IF I > 0 THEN
32 UPDATE dept_summary 
33 SET sal_sum=sal_sum+:new_emp.sal,
34 Emp_count=emp_count+1
35 WHERE deptno = :new_emp.deptno;
36 ELSE
37 INSERT INTO dept_summary
38 VALUES (:new_emp.deptno, :new_emp.sal, 1);
39 END IF;
40 END;'
41 );
42 
43 DBMS_UTILITY.EXEC_DDL_STATEMENT(
44 'CREATE OR REPLACE TRIGGER trig2_delete
45 AFTER DELETE ON emp
46 REFERENCING OLD AS old_emp
47 FOR EACH ROW
48 DECLARE
49 I NUMBER;
50 BEGIN
51 DBMS_OUTPUT.PUT_LINE(''正在执行trig2_delete 触发器…'');
52 SELECT emp_count INTO I 
53 FROM dept_summary WHERE deptno = :old_emp.deptno;
54 IF I >1 THEN
55 UPDATE dept_summary 
56 SET sal_sum=sal_sum - :old_emp.sal,
57 Emp_count=emp_count - 1
58 WHERE deptno = :old_emp.deptno;
59 ELSE
60 DELETE FROM dept_summary WHERE deptno = :old_emp.deptno;
61 END IF;
62 END;'
63 );
64 
65 INSERT INTO dept(deptno, dname, loc) 
66 VALUES(90, 'demo_dept', 'none_loc');
67 INSERT INTO emp(ename, deptno, empno, sal)
68 VALUES(USER, 90, 9999, 3000);
69 INSERT INTO emp(ename, deptno, empno, sal)
70 VALUES(USER, 90, 9998, 2000);
71 DBMS_OUTPUT.PUT_LINE('插入后');
72 Disp_dept_summary();
73 
74 UPDATE emp SET sal = sal*1.1 WHERE deptno=90;
75 DBMS_OUTPUT.PUT_LINE('修改后');
76 Disp_dept_summary();
77 
78 DELETE FROM emp WHERE deptno=90;
79 DELETE FROM dept WHERE deptno=90;
80 DBMS_OUTPUT.PUT_LINE('删除后');
81 Disp_dept_summary();
82 
83 DBMS_UTILITY.EXEC_DDL_STATEMENT('DROP TRIGGER trig2_update');
84 DBMS_UTILITY.EXEC_DDL_STATEMENT('DROP TRIGGER trig2_insert');
85 DBMS_UTILITY.EXEC_DDL_STATEMENT('DROP TRIGGER trig2_delete');
86 EXCEPTION
87 WHEN OTHERS THEN
88 DBMS_OUTPUT.PUT_LINE(SQLCODE||'---'||SQLERRM);
89 END;

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

 1 BEGIN
 2 DBMS_OUTPUT.PUT_LINE('插入前');
 3 Disp_dept_summary();
 4 DBMS_UTILITY.EXEC_DDL_STATEMENT(
 5 'CREATE OR REPLACE TRIGGER trig2
 6 AFTER INSERT OR DELETE OR UPDATE OF sal
 7 ON emp
 8 REFERENCING OLD AS old_emp NEW AS new_emp
 9 FOR EACH ROW
10 DECLARE
11 I NUMBER;
12 BEGIN
13 IF UPDATING AND :old_emp.sal != :new_emp.sal THEN
14 DBMS_OUTPUT.PUT_LINE(''正在执行trig2 触发器…'');
15 DBMS_OUTPUT.PUT_LINE(''sal 旧值：''|| :old_emp.sal);
16 DBMS_OUTPUT.PUT_LINE(''sal 新值：''|| :new_emp.sal);
17 UPDATE dept_summary
18 SET sal_sum=sal_sum + :new_emp.sal - :old_emp.sal
19 WHERE deptno = :new_emp.deptno;
20 ELSIF INSERTING THEN
21 DBMS_OUTPUT.PUT_LINE(''正在执行trig2触发器…'');
22 SELECT COUNT(*) INTO I 
23 FROM dept_summary 
24 WHERE deptno = :new_emp.deptno;
25 IF I > 0 THEN
26 UPDATE dept_summary 
27 SET sal_sum=sal_sum+:new_emp.sal,
28 Emp_count=emp_count+1
29 WHERE deptno = :new_emp.deptno;
30 ELSE
31 INSERT INTO dept_summary
32 VALUES (:new_emp.deptno, :new_emp.sal, 1);
33 END IF;
34 ELSE
35 DBMS_OUTPUT.PUT_LINE(''正在执行trig2触发器…'');
36 SELECT emp_count INTO I 
37 FROM dept_summary WHERE deptno = :old_emp.deptno;
38 IF I > 1 THEN
39 UPDATE dept_summary 
40 SET sal_sum=sal_sum - :old_emp.sal,
41 Emp_count=emp_count - 1
42 WHERE deptno = :old_emp.deptno;
43 ELSE
44 DELETE FROM dept_summary 
45 WHERE deptno = :old_emp.deptno;
46 END IF;
47 END IF;
48 END;'
49 );
50 
51 INSERT INTO dept(deptno, dname, loc) 
52 VALUES(90, 'demo_dept', 'none_loc');
53 INSERT INTO emp(ename, deptno, empno, sal)
54 VALUES(USER, 90, 9999, 3000);
55 INSERT INTO emp(ename, deptno, empno, sal)
56 VALUES(USER, 90, 9998, 2000);
57 DBMS_OUTPUT.PUT_LINE('插入后');
58 Disp_dept_summary();
59 
60 UPDATE emp SET sal = sal*1.1 WHERE deptno=90;
61 DBMS_OUTPUT.PUT_LINE('修改后');
62 Disp_dept_summary();
63 
64 DELETE FROM emp WHERE deptno=90;
65 DELETE FROM dept WHERE deptno=90;
66 DBMS_OUTPUT.PUT_LINE('删除后');
67 Disp_dept_summary();
68 
69 DBMS_UTILITY.EXEC_DDL_STATEMENT('DROP TRIGGER trig2');
70 EXCEPTION
71 WHEN OTHERS THEN
72 DBMS_OUTPUT.PUT_LINE(SQLCODE||'---'||SQLERRM);
73 END;

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

 1 DECLARE
 2 No NUMBER;
 3 Name VARCHAR2(20);
 4 BEGIN
 5 DBMS_UTILITY.EXEC_DDL_STATEMENT('
 6 CREATE OR REPLACE VIEW myview AS
 7 SELECT empno, ename, ''E'' type FROM emp
 8 UNION
 9 SELECT dept.deptno, dname, ''D'' FROM dept
10 ');
11 -- 创建INSTEAD OF 触发器trigger3;
12 DBMS_UTILITY.EXEC_DDL_STATEMENT('
13 CREATE OR REPLACE TRIGGER trig3
14 INSTEAD OF INSERT ON myview
15 REFERENCING NEW n
16 FOR EACH ROW
17 DECLARE
18 Rows INTEGER;
19 BEGIN
20 DBMS_OUTPUT.PUT_LINE(''正在执行trig3触发器…'');
21 IF :n.type = ''D'' THEN
22 SELECT COUNT(*) INTO rows
23 FROM dept WHERE deptno = :n.empno;
24 IF rows = 0 THEN
25 DBMS_OUTPUT.PUT_LINE(''向dept表中插入数据…'');
26 INSERT INTO dept(deptno, dname, loc)
27 VALUES (:n.empno, :n.ename, ''none’’);
28 ELSE
29 DBMS_OUTPUT.PUT_LINE(''编号为''|| :n.empno||
30 ''的部门已存在，插入操作失败！'');
31 END IF;
32 ELSE
33 SELECT COUNT(*) INTO rows
34 FROM emp WHERE empno = :n.empno;
35 IF rows = 0 THEN
36 DBMS_OUTPUT.PUT_LINE('’向emp表中插入数据…’’);
37 INSERT INTO emp(empno, ename)
38 VALUES(:n.empno, :n.ename);
39 ELSE
40 DBMS_OUTPUT.PUT_LINE(''编号为''|| :n.empno||
41 ''的人员已存在，插入操作失败!'');
42 END IF;
43 END IF;
44 END;
45 ');
46 
47 INSERT INTO myview VALUES (70, 'demo', 'D');
48 INSERT INTO myview VALUES (9999, USER, 'E');
49 SELECT deptno, dname INTO no, name FROM dept WHERE deptno=70;
50 DBMS_OUTPUT.PUT_LINE('员工编号：'||TO_CHAR(no)||'姓名：'||name);
51 SELECT empno, ename INTO no, name FROM emp WHERE empno=9999;
52 DBMS_OUTPUT.PUT_LINE('部门编号：'||TO_CHAR(no)||'姓名：'||name);
53 DELETE FROM emp WHERE empno=9999;
54 DELETE FROM dept WHERE deptno=70;
55 DBMS_UTILITY.EXEC_DDL_STATEMENT('DROP TRIGGER trig3');
56 END;

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

  1 BEGIN
  2 -- 创建用于记录事件日志的数据表
  3 DBMS_UTILITY.EXEC_DDL_STATEMENT('
  4 CREATE TABLE eventlog(
  5 Eventname VARCHAR2(20) NOT NULL,
  6 Eventdate date default sysdate,
  7 Inst_num NUMBER NULL,
  8 Db_name VARCHAR2(50) NULL,
  9 Srv_error NUMBER NULL,
 10 Username VARCHAR2(30) NULL,
 11 Obj_type VARCHAR2(20) NULL,
 12 Obj_name VARCHAR2(30) NULL,
 13 Obj_owner VARCHAR2(30) NULL
 14 )
 15 ');
 16 
 17 -- 创建DDL触发器trig4_ddl
 18 DBMS_UTILITY.EXEC_DDL_STATEMENT('
 19 CREATE OR REPLACE TRIGGER trig4_ddl
 20 AFTER CREATE OR ALTER OR DROP 
 21 ON DATABASE
 22 DECLARE
 23 Event VARCHAR2(20);
 24 Typ VARCHAR2(20);
 25 Name VARCHAR2(30);
 26 Owner VARCHAR2(30);
 27 BEGIN
 28 -- 读取DDL事件属性
 29 Event := SYSEVENT;
 30 Typ := DICTIONARY_OBJ_TYPE;
 31 Name := DICTIONARY_OBJ_NAME;
 32 Owner := DICTIONARY_OBJ_OWNER;
 33 --将事件属性插入到事件日志表中
 34 INSERT INTO scott.eventlog(eventname, obj_type, obj_name, obj_owner)
 35 VALUES(event, typ, name, owner);
 36 END;
 37 ');
 38 
 39 -- 创建LOGON、STARTUP和SERVERERROR 事件触发器
 40 DBMS_UTILITY.EXEC_DDL_STATEMENT('
 41 CREATE OR REPLACE TRIGGER trig4_after
 42 AFTER LOGON OR STARTUP OR SERVERERROR 
 43 ON DATABASE
 44 DECLARE
 45 Event VARCHAR2(20);
 46 Instance NUMBER;
 47 Err_num NUMBER;
 48 Dbname VARCHAR2(50);
 49 User VARCHAR2(30);
 50 BEGIN
 51 Event := SYSEVENT;
 52 IF event = ''LOGON'' THEN
 53 User := LOGIN_USER;
 54 INSERT INTO eventlog(eventname, username)
 55 VALUES(event, user);
 56 ELSIF event = ''SERVERERROR'' THEN
 57 Err_num := SERVER_ERROR(1);
 58 INSERT INTO eventlog(eventname, srv_error)
 59 VALUES(event, err_num);
 60 ELSE
 61 Instance := INSTANCE_NUM;
 62 Dbname := DATABASE_NAME;
 63 INSERT INTO eventlog(eventname, inst_num, db_name)
 64 VALUES(event, instance, dbname);
 65 END IF;
 66 END;
 67 ');
 68 
 69 -- 创建LOGOFF和SHUTDOWN 事件触发器
 70 DBMS_UTILITY.EXEC_DDL_STATEMENT('
 71 CREATE OR REPLACE TRIGGER trig4_before
 72 BEFORE LOGOFF OR SHUTDOWN 
 73 ON DATABASE
 74 DECLARE
 75 Event VARCHAR2(20);
 76 Instance NUMBER;
 77 Dbname VARCHAR2(50);
 78 User VARCHAR2(30);
 79 BEGIN
 80 Event := SYSEVENT;
 81 IF event = ''LOGOFF'' THEN
 82 User := LOGIN_USER;
 83 INSERT INTO eventlog(eventname, username)
 84 VALUES(event, user);
 85 ELSE
 86 Instance := INSTANCE_NUM;
 87 Dbname := DATABASE_NAME;
 88 INSERT INTO eventlog(eventname, inst_num, db_name)
 89 VALUES(event, instance, dbname);
 90 END IF;
 91 END;
 92 ');
 93 END;
 94 
 95 CREATE TABLE mydata(mydate NUMBER);
 96 CONNECT SCOTT/TIGER
 97 
 98 COL eventname FORMAT A10
 99 COL eventdate FORMAT A12
100 COL username FORMAT A10
101 COL obj_type FORMAT A15
102 COL obj_name FORMAT A15
103 COL obj_owner FORMAT A10
104 SELECT eventname, eventdate, obj_type, obj_name, obj_owner, username, Srv_error
105 FROM eventlog;
106 
107 DROP TRIGGER trig4_ddl;
108 DROP TRIGGER trig4_before;
109 DROP TRIGGER trig4_after;
110 DROP TABLE eventlog;
111 DROP TABLE mydata;

8.6 数据库触发器的应用实例

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

l 复杂的审计功能；

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

 1 CREATE TABLE audit_table(
 2 Audit_id NUMBER,
 3 User_name VARCHAR2(20),
 4 Now_time DATE,
 5 Terminal_name VARCHAR2(10),
 6 Table_name VARCHAR2(10),
 7 Action_name VARCHAR2(10),
 8 Emp_id NUMBER(4));
 9 
10 CREATE TABLE audit_table_val(
11 Audit_id NUMBER,
12 Column_name VARCHAR2(10),
13 Old_val NUMBER(7,2),
14 New_val NUMBER(7,2));
15 
16 CREATE SEQUENCE audit_seq
17 START WITH 1000
18 INCREMENT BY 1
19 NOMAXVALUE
20 NOCYCLE NOCACHE;
21 
22 CREATE OR REPLACE TRIGGER audit_emp
23 AFTER INSERT OR UPDATE OR DELETE ON emp
24 FOR EACH ROW
25 DECLARE
26 Time_now DATE;
27 Terminal CHAR(10);
28 BEGIN 
29 Time_now:=sysdate;
30 Terminal:=USERENV('TERMINAL');
31 IF INSERTING THEN
32 INSERT INTO audit_table
33 VALUES(audit_seq.NEXTVAL, user, time_now, 
34 terminal, 'EMP', 'INSERT', :new.empno);
35 ELSIF DELETING THEN
36 INSERT INTO audit_table
37 VALUES(audit_seq.NEXTVAL, user, time_now, 
38 terminal, 'EMP', 'DELETE', :old.empno);
39 ELSE
40 INSERT INTO audit_table
41 VALUES(audit_seq.NEXTVAL, user, time_now, 
42 terminal, 'EMP', 'UPDATE', :old.empno);
43 IF UPDATING('SAL') THEN
44 INSERT INTO audit_table_val
45 VALUES(audit_seq.CURRVAL, 'SAL', :old.sal, :new.sal);
46 ELSE UPDATING('DEPTNO') 
47 INSERT INTO audit_table_val
48 VALUES(audit_seq.CURRVAL, 'DEPTNO', :old.deptno, :new.deptno);
49 END IF;
50 END IF;
51 END;

l 增强数据的完整性管理；

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

 1 CREATE SEQUENCE update_sequence 
 2 INCREMENT BY 1
 3 START WITH 1000
 4 MAXVALUE 5000 CYCLE;
 5 
 6 ALTER TABLE emp
 7 ADD update_id NUMBER;
 8 
 9 CREATE OR REPLACE PACKAGE integritypackage AS
10 Updateseq NUMBER;
11 END integritypackage;
12 
13 CREATE OR REPLACE PACKAGE BODY integritypackage AS
14 END integritypackage;
15 
16 CREATE OR REPLACE TRIGGER dept_cascade1
17 BEFORE UPDATE OF deptno ON dept
18 DECLARE 
19 Dummy NUMBER;
20 BEGIN 
21 SELECT update_sequence.NEXTVAL INTO dummy FROM dual;
22 Integritypackage.updateseq:=dummy;
23 END;
24 
25 CREATE OR REPLACE TRIGGER dept_cascade2
26 AFTER DELETE OR UPDATE OF deptno ON dept
27 FOR EACH ROW
28 BEGIN
29 IF UPDATING THEN
30 UPDATE emp SET deptno=:new.deptno, 
31 update_id=integritypackage.updateseq
32 WHERE emp.deptno=:old.deptno AND update_id IS NULL;
33 END IF;
34 IF DELETING THEN
35 DELETE FROM emp
36 WHERE emp.deptno=:old.deptno;
37 END IF;
38 END;
39 
40 CREATE OR REPLACE TRIGGER dept_cascade3
41 AFTER UPDATE OF deptno ON dept 
42 BEGIN
43 UPDATE emp SET update_id=NULL
44 WHERE update_id=integritypackage.updateseq;
45 END;
46 
47 SELECT * FROM EMP ORDER BY DEPTNO;
48 UPDATE dept SET deptno=25 WHERE deptno=20;

l 帮助实现安全控制；

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

 1 CREATE TABLE company_holidays(day DATE);
 2 
 3 INSERT INTO company_holidays 
 4 VALUES(sysdate);
 5 INSERT INTO company_holidays 
 6 VALUES(TO_DATE('21-10月-01', 'DD-MON-YY'));
 7 
 8 CREATE OR REPLACE TRIGGER emp_permit_change
 9 BEFORE INSERT OR DELETE OR UPDATE ON emp
10 DECLARE
11 Dummy NUMBER;
12 Not_on_weekends EXCEPTION;
13 Not_on_holidays EXCEPTION;
14 Not_working_hours EXCEPTION;
15 BEGIN
16 /* check for weekends */
17 IF TO_CHAR(SYSDATE, 'DAY') IN ('星期六', '星期日') THEN
18 RAISE not_on_weekends;
19 END IF;
20 /* check for company holidays */
21 SELECT COUNT(*) INTO dummy FROM company_holidays
22 WHERE TRUNC(day)=TRUNC(SYSDATE);
23 IF dummy >0 THEN
24 RAISE not_on_holidays;
25 END IF;
26 /* check for work hours(8:00 AM to 18:00 PM */
27 IF (TO_CHAR(SYSDATE,'HH24')<8 OR TO_CHAR(SYSDATE, 'HH24')>18) THEN
28 RAISE not_working_hours;
29 END IF;
30 EXCEPTION
31 WHEN not_on_weekends THEN
32 RAISE_APPLICATION_ERROR(-20324, 
33 'May not change employee table during the weekends'); 
34 WHEN not_on_holidays THEN
35 RAISE_APPLICATION_ERROR(-20325, 
36 'May not change employee table during a holiday'); 
37 WHEN not_working_hours THEN
38 RAISE_APPLICATION_ERROR(-20326, 
39 'May not change employee table during no_working hours'); 
40 END;

2.第二篇是对oracle游标的讲解

  1 -- 声明游标；CURSOR cursor_name IS select_statement
  2 
  3 --For 循环游标
  4 --（1）定义游标
  5 --（2）定义游标变量
  6 --（3）使用for循环来使用这个游标
  7 declare
  8        --类型定义
  9        cursor c_job
 10        is
 11        select empno,ename,job,sal
 12        from emp
 13        where job='MANAGER';
 14        --定义一个游标变量v_cinfo c_emp%ROWTYPE ，该类型为游标c_emp中的一行数据类型
 15        c_row c_job%rowtype;
 16 begin
 17        for c_row in c_job loop
 18          dbms_output.put_line(c_row.empno||'-'||c_row.ename||'-'||c_row.job||'-'||c_row.sal);
 19        end loop;
 20 end;
 21 
 22 
 23       
 24 --Fetch游标
 25 --使用的时候必须要明确的打开和关闭
 26 
 27 declare 
 28        --类型定义
 29        cursor c_job
 30        is
 31        select empno,ename,job,sal
 32        from emp
 33        where job='MANAGER';
 34        --定义一个游标变量
 35        c_row c_job%rowtype;
 36 begin
 37        open c_job;
 38          loop
 39            --提取一行数据到c_row
 40            fetch c_job into c_row;
 41            --判读是否提取到值，没取到值就退出
 42            --取到值c_job%notfound 是false 
 43            --取不到值c_job%notfound 是true
 44            exit when c_job%notfound;
 45             dbms_output.put_line(c_row.empno||'-'||c_row.ename||'-'||c_row.job||'-'||c_row.sal);
 46          end loop;
 47        --关闭游标
 48       close c_job;
 49 end;
 50 
 51 --1：任意执行一个update操作，用隐式游标sql的属性%found,%notfound,%rowcount,%isopen观察update语句的执行情况。
 52        begin
 53          update emp set ENAME='ALEARK' WHERE EMPNO=7469;
 54          if sql%isopen then
 55            dbms_output.put_line('Openging');
 56            else
 57              dbms_output.put_line('closing');
 58              end if;
 59           if sql%found then
 60             dbms_output.put_line('游标指向了有效行');--判断游标是否指向有效行
 61             else
 62               dbms_output.put_line('Sorry');
 63               end if;
 64               if sql%notfound then
 65                 dbms_output.put_line('Also Sorry');
 66                 else
 67                   dbms_output.put_line('Haha');
 68                   end if;
 69                    dbms_output.put_line(sql%rowcount);
 70                    exception 
 71                      when no_data_found then
 72                        dbms_output.put_line('Sorry No data');
 73                        when too_many_rows then
 74                          dbms_output.put_line('Too Many rows');
 75                          end;
 76 declare
 77        empNumber emp.EMPNO%TYPE;
 78        empName emp.ENAME%TYPE;
 79        begin
 80          if sql%isopen then
 81            dbms_output.put_line('Cursor is opinging');
 82            else
 83              dbms_output.put_line('Cursor is Close');
 84              end if;
 85              if sql%notfound then
 86                dbms_output.put_line('No Value');
 87                else
 88                  dbms_output.put_line(empNumber);
 89                  end if;
 90                  dbms_output.put_line(sql%rowcount);
 91                  dbms_output.put_line('-------------');
 92                  
 93                  select EMPNO,ENAME into  empNumber,empName from emp where EMPNO=7499;
 94                  dbms_output.put_line(sql%rowcount);
 95                  
 96                 if sql%isopen then
 97                 dbms_output.put_line('Cursor is opinging');
 98                 else
 99                 dbms_output.put_line('Cursor is Closing');
100                 end if;
101                  if sql%notfound then
102                  dbms_output.put_line('No Value');
103                  else
104                  dbms_output.put_line(empNumber);
105                  end if;
106                  exception 
107                    when no_data_found then
108                      dbms_output.put_line('No Value');
109                      when too_many_rows then
110                        dbms_output.put_line('too many rows');
111                        end;
112                    
113                  
114        
115 --2,使用游标和loop循环来显示所有部门的名称
116 --游标声明
117 declare 
118        cursor csr_dept
119        is
120        --select语句
121        select DNAME
122        from Depth;
123        --指定行指针,这句话应该是指定和csr_dept行类型相同的变量
124        row_dept csr_dept%rowtype;
125 begin
126        --for循环
127        for row_dept in csr_dept loop
128            dbms_output.put_line('部门名称:'||row_dept.DNAME);
129        end loop;
130 end;
131 
132 
133 --3,使用游标和while循环来显示所有部门的的地理位置（用%found属性）
134 declare
135        --游标声明
136        cursor csr_TestWhile
137        is
138        --select语句
139        select  LOC
140        from Depth;
141        --指定行指针
142        row_loc csr_TestWhile%rowtype;
143 begin
144   --打开游标
145        open csr_TestWhile;
146        --给第一行喂数据
147        fetch csr_TestWhile into row_loc;
148        --测试是否有数据，并执行循环
149          while csr_TestWhile%found loop
150            dbms_output.put_line('部门地点：'||row_loc.LOC);
151            --给下一行喂数据
152            fetch csr_TestWhile into row_loc;
153          end loop;
154        close csr_TestWhile;
155 end; 
156 select * from emp
157 
158 
159 
160        
161 --4,接收用户输入的部门编号，用for循环和游标，打印出此部门的所有雇员的所有信息(使用循环游标)
162 --CURSOR cursor_name[(parameter[,parameter],...)] IS select_statement;
163 --定义参数的语法如下:Parameter_name [IN] data_type[{:=|DEFAULT} value]  
164 
165 declare 
166       CURSOR 
167       c_dept(p_deptNo number)
168       is
169       select * from emp where emp.depno=p_deptNo;
170       r_emp emp%rowtype;
171 begin
172         for r_emp in c_dept(20) loop
173             dbms_output.put_line('员工号：'||r_emp.EMPNO||'员工名：'||r_emp.ENAME||'工资：'||r_emp.SAL);
174         end loop;
175 end;
176 select * from emp   
177 --5：向游标传递一个工种，显示此工种的所有雇员的所有信息(使用参数游标)
178 declare 
179        cursor
180        c_job(p_job nvarchar2)
181        is 
182        select * from emp where JOB=p_job;
183        r_job emp%rowtype;
184 begin 
185        for r_job in c_job('CLERK') loop
186            dbms_output.put_line('员工号'||r_job.EMPNO||' '||'员工姓名'||r_job.ENAME);
187         end loop;
188 end;
189 SELECT * FROM EMP
190 
191 --6：用更新游标来为雇员加佣金：(用if实现,创建一个与emp表一摸一样的emp1表，对emp1表进行修改操作),并将更新前后的数据输出出来 
192 --http://zheng12tian.iteye.com/blog/815770 
193         create table emp1 as select * from emp;
194         
195 declare
196         cursor
197         csr_Update
198         is
199         select * from  emp1 for update OF SAL;
200         empInfo csr_Update%rowtype;
201         saleInfo  emp1.SAL%TYPE;
202 begin
203     FOR empInfo IN csr_Update LOOP
204       IF empInfo.SAL<1500 THEN
205         saleInfo:=empInfo.SAL*1.2;
206        elsif empInfo.SAL<2000 THEN
207         saleInfo:=empInfo.SAL*1.5;
208         elsif empInfo.SAL<3000 THEN
209         saleInfo:=empInfo.SAL*2;
210       END IF;
211       UPDATE emp1 SET SAL=saleInfo WHERE CURRENT OF csr_Update;
212      END LOOP;
213 END;
214 
215 --7:编写一个PL/SQL程序块，对名字以‘A’或‘S’开始的所有雇员按他们的基本薪水(sal)的10%给他们加薪(对emp1表进行修改操作)
216 declare 
217      cursor
218       csr_AddSal
219      is
220       select * from emp1 where ENAME LIKE 'A%' OR ENAME LIKE 'S%' for update OF SAL;
221       r_AddSal csr_AddSal%rowtype;
222       saleInfo  emp1.SAL%TYPE;
223 begin
224       for r_AddSal in csr_AddSal loop
225           dbms_output.put_line(r_AddSal.ENAME||'原来的工资:'||r_AddSal.SAL);
226           saleInfo:=r_AddSal.SAL*1.1;
227           UPDATE emp1 SET SAL=saleInfo WHERE CURRENT OF csr_AddSal;
228       end loop;
229 end;
230 --8：编写一个PL/SQL程序块，对所有的salesman增加佣金(comm)500
231 declare
232       cursor
233           csr_AddComm(p_job nvarchar2)
234       is
235           select * from emp1 where   JOB=p_job FOR UPDATE OF COMM;
236       r_AddComm  emp1%rowtype;
237       commInfo emp1.comm%type;
238 begin
239     for r_AddComm in csr_AddComm('SALESMAN') LOOP
240         commInfo:=r_AddComm.COMM+500;
241          UPDATE EMP1 SET COMM=commInfo where CURRENT OF csr_AddComm;
242     END LOOP;
243 END;
244 
245 --9：编写一个PL/SQL程序块，以提升2个资格最老的职员为MANAGER（工作时间越长，资格越老）
246 --（提示：可以定义一个变量作为计数器控制游标只提取两条数据；也可以在声明游标的时候把雇员中资格最老的两个人查出来放到游标中。）
247 declare
248     cursor crs_testComput
249     is
250     select * from emp1 order by HIREDATE asc;
251     --计数器
252     top_two number:=2;
253     r_testComput crs_testComput%rowtype;
254 begin
255     open crs_testComput;
256        FETCH crs_testComput INTO r_testComput;
257           while top_two>0 loop
258              dbms_output.put_line('员工姓名：'||r_testComput.ENAME||' 工作时间：'||r_testComput.HIREDATE);
259              --计速器减一
260              top_two:=top_two-1;
261              FETCH crs_testComput INTO r_testComput;
262            end loop;
263      close crs_testComput;
264 end;
265     
266 
267 --10：编写一个PL/SQL程序块，对所有雇员按他们的基本薪水(sal)的20%为他们加薪，
268 --如果增加的薪水大于300就取消加薪(对emp1表进行修改操作，并将更新前后的数据输出出来) 
269 declare
270     cursor
271         crs_UpadateSal
272     is
273         select * from emp1 for update of SAL;
274         r_UpdateSal crs_UpadateSal%rowtype;
275         salAdd emp1.sal%type;
276         salInfo emp1.sal%type;
277 begin
278         for r_UpdateSal in crs_UpadateSal loop
279            salAdd:= r_UpdateSal.SAL*0.2;
280            if salAdd>300 then
281              salInfo:=r_UpdateSal.SAL;
282               dbms_output.put_line(r_UpdateSal.ENAME||':  加薪失败。'||'薪水维持在：'||r_UpdateSal.SAL);
283              else 
284               salInfo:=r_UpdateSal.SAL+salAdd;
285               dbms_output.put_line(r_UpdateSal.ENAME||':  加薪成功.'||'薪水变为：'||salInfo);
286            end if;
287            update emp1 set SAL=salInfo where current of crs_UpadateSal;
288         end loop;
289 end;
290      
291 --11:将每位员工工作了多少年零多少月零多少天输出出来   
292 --近似
293   --CEIL(n)函数：取大于等于数值n的最小整数
294   --FLOOR(n)函数：取小于等于数值n的最大整数
295   --truc的用法 http://publish.it168.com/2005/1028/20051028034101.shtml
296 declare
297   cursor
298    crs_WorkDay
299    is
300    select ENAME,HIREDATE, trunc(months_between(sysdate, hiredate) / 12) AS SPANDYEARS,
301        trunc(mod(months_between(sysdate, hiredate), 12)) AS months,
302        trunc(mod(mod(sysdate - hiredate, 365), 12)) as days
303    from emp1;
304   r_WorkDay crs_WorkDay%rowtype;
305 begin
306     for   r_WorkDay in crs_WorkDay loop
307     dbms_output.put_line(r_WorkDay.ENAME||'已经工作了'||r_WorkDay.SPANDYEARS||'年,零'||r_WorkDay.months||'月,零'||r_WorkDay.days||'天');
308     end loop;
309 end;
310   
311 --12:输入部门编号，按照下列加薪比例执行(用CASE实现，创建一个emp1表，修改emp1表的数据),并将更新前后的数据输出出来
312 --  deptno  raise(%)
313 --  10      5%
314 --  20      10%
315 --  30      15%
316 --  40      20%
317 --  加薪比例以现有的sal为标准
318 --CASE expr WHEN comparison_expr THEN return_expr
319 --[, WHEN comparison_expr THEN return_expr]... [ELSE else_expr] END
320 declare
321      cursor
322          crs_caseTest
323           is
324           select * from emp1 for update of SAL;
325           r_caseTest crs_caseTest%rowtype;
326           salInfo emp1.sal%type;
327      begin
328          for r_caseTest in crs_caseTest loop
329          case 
330            when r_caseTest.DEPNO=10
331            THEN salInfo:=r_caseTest.SAL*1.05;
332            when r_caseTest.DEPNO=20
333            THEN salInfo:=r_caseTest.SAL*1.1;
334            when r_caseTest.DEPNO=30
335            THEN salInfo:=r_caseTest.SAL*1.15;
336             when r_caseTest.DEPNO=40
337            THEN salInfo:=r_caseTest.SAL*1.2;
338          end case;
339           update emp1 set SAL=salInfo where current of crs_caseTest;
340         end loop;
341 end;
342 
343 --13:对每位员工的薪水进行判断，如果该员工薪水高于其所在部门的平均薪水，则将其薪水减50元，输出更新前后的薪水，员工姓名，所在部门编号。
344 --AVG([distinct|all] expr) over (analytic_clause)
345 ---作用：
346 --按照analytic_clause中的规则求分组平均值。
347   --分析函数语法:
348   --FUNCTION_NAME(<argument>,<argument>...)
349   --OVER
350   --(<Partition-Clause><Order-by-Clause><Windowing Clause>)
351      --PARTITION子句
352      --按照表达式分区(就是分组),如果省略了分区子句,则全部的结果集被看作是一个单一的组
353      select * from emp1
354 DECLARE
355      CURSOR 
356      crs_testAvg
357      IS
358      select EMPNO,ENAME,JOB,SAL,DEPNO,AVG(SAL) OVER (PARTITION BY DEPNO ) AS DEP_AVG
359      FROM EMP1 for update of SAL;
360      r_testAvg crs_testAvg%rowtype;
361      salInfo emp1.sal%type;
362      begin
363      for r_testAvg in crs_testAvg loop
364      if r_testAvg.SAL>r_testAvg.DEP_AVG then
365      salInfo:=r_testAvg.SAL-50;
366      end if;
367      update emp1 set SAL=salInfo where current of crs_testAvg;
368      end loop;
369 end;

这里介绍的这两篇博文，很有用处，对oracle触发器有了很大的了解，在编写触发器的时候要注意一下几点：

1.变量赋值的方式有：

(1)select col1,[col2...] into 变量1,[变量2...] from table_name where col1='条件';

(2)变量1 := sysdate;

这里需要注意的是当使用select into赋值方式时如果确定查出的结果为1条记录则使用是正确的，如果查询出来的是多条记录使用select into方式时就会报错，此时应该采用游标的方式进行赋值，参照第二篇博文。

使用select into为多个变量赋值时只需要一个into即可，如：

1 SELECT J1.ID, J1.AMOUNT, J1.QE, J1.AG, J1.WQ, J1.SGQ, J1.VDAF
2         INTO CUNM2_ID, CUNM2_AMOUNT, CUNM2_QE, CUNM2_AG, CUNM2_WQ, CUNM2_SGQ, CUNM2_VDAF
3         FROM JINMGL J1
4        WHERE J1.MIXUNIT_ID = JINMINFO_ROW.MIXUNIT_ID
5          AND J1.STOREPOSITION = JINMINFO_ROW.STOREPOSITION
6          AND J1.COALTYPE_ID = JINMINFO_ROW.COALTYPE_ID
7          AND J1.OPERTYPE = '2';

2.变量在赋值使用时必须与定义的类型相同

3.对象new和old的使用需注意，在when条件中可以使用new和old，在触发器statement语句块中，即在begin...end;中需加上冒号。

下面是我看过之后写的触发器：

  1 CREATE OR REPLACE TRIGGER TRIGGER_JINM
  2   AFTER DELETE OR UPDATE OF NETWEIGHT, QNET_AR, MT, AAR, VDAF, STA ON FACTORY
  3   FOR EACH ROW
  4   WHEN (NEW.NETWEIGHT > 0 OR NEW.QNET_AR > 0 OR NEW.MT > 0 OR NEW.AAR > 0 OR
  5        NEW.VDAF > 0 OR NEW.STA > 0)
  6 DECLARE
  7 
  8   --燃料系统的进煤ID
  9   FACTORY_ID NUMBER(19);
 10 
 11   --获得该配煤单位、存煤位置、煤种上最新的状态为2的位置存煤信息
 12   CUNM2_ID     NUMBER; --ID 
 13   CUNM2_AMOUNT FLOAT; --煤量
 14   CUNM2_QE     FLOAT; --热值
 15   CUNM2_AG     FLOAT; --灰分
 16   CUNM2_WQ     FLOAT; --水分
 17   CUNM2_SGQ    FLOAT; --硫分
 18   CUNM2_VDAF   FLOAT; --挥发分
 19 
 20   --获得该配煤单位、存煤位置、煤种上最新的状态为3的日存煤记录
 21   CUNM3_ID     NUMBER; --ID
 22   CUNM3_AMOUNT FLOAT; --煤量
 23   CUNM3_QE     FLOAT; --热值
 24   CUNM3_AG     FLOAT; --灰分
 25   CUNM3_WQ     FLOAT; --水分
 26   CUNM3_SGQ    FLOAT; --硫分
 27   CUNM3_VDAF   FLOAT; --挥发分
 28   CUNM3_DATE   DATE; --存煤日期
 29 
 30   --一般煤质信息
 31   YIBMZXX_ID   NUMBER; --ID
 32   YIBMZXX_QE   FLOAT; --热值
 33   YIBMZXX_SGQ  FLOAT; --硫分
 34   YIBMZXX_MT   FLOAT; --水分
 35   YIBMZXX_AG   FLOAT; --灰分
 36   YIBMZXX_VDAF FLOAT; --挥发分
 37   GONGMDW_ID   NUMBER; --供煤单位ID
 38   GONGMDQ_ID   NUMBER; --供煤地区ID
 39 
 40   --临时变量
 41   TOTAL_AMOUNT FLOAT; --煤量
 42   TOTAL_QE     FLOAT; --热值
 43   TOTAL_AG     FLOAT; --灰分
 44   TOTAL_WQ     FLOAT; --水分
 45   TOTAL_SGQ    FLOAT; --硫分
 46   TOTAL_VDAF   FLOAT; --挥发分
 47   COUNT1       NUMBER; --数量
 48   MAXID        NUMBER(19); --自增主键
 49 
 50   --定义游标
 51   CURSOR JINMINFO(F_ID NUMBER) IS
 52     SELECT A.ID,
 53            A.MIXUNIT_ID,
 54            A.STOREPOSITION,
 55            A.COALTYPE_ID,
 56            A.AMOUNT,
 57            A.QE,
 58            A.AG,
 59            A.WQ,
 60            A.SGQ,
 61            A.VDAF,
 62            A.OPERATOR
 63       FROM JINMGL A
 64      WHERE A.JINMID = F_ID; --状态为0的进煤信息
 65   JINMINFO_ROW JINMINFO%ROWTYPE;
 66 
 67 BEGIN
 68   IF UPDATING THEN
 69   
 70     --获得燃料系统的进煤ID
 71     FACTORY_ID := :NEW.ID;
 72   
 73     FOR JINMINFO_ROW IN JINMINFO(FACTORY_ID) LOOP
 74       --循环遍历应用中的每一条进煤信息
 75       --首先获得供煤地区
 76       --判断是否存在该供煤地区
 77       SELECT COUNT(*)
 78         INTO COUNT1
 79         FROM MD_TAB_GONGMDW A
 80        WHERE A.NAME = :NEW.MINENAME;
 81     
 82       --如果不存在供煤地区信息则进行添加
 83       IF COUNT1 = 0 THEN
 84         --获得最大主键ID
 85         SELECT MAX(ID) INTO MAXID FROM MD_TAB_GONGMDQ;
 86         IF MAXID IS NULL THEN
 87           MAXID := 1;
 88         END IF;
 89         --插入一条新的供煤地区信息
 90         INSERT INTO MD_TAB_GONGMDQ D
 91           (ID, VERSION, CRERATEDATE, MODIFYDATE, NAME, OPERATOR, SHORTNAME)
 92         VALUES
 93           ((MAXID + 1),
 94            0,
 95            SYSDATE,
 96            SYSDATE,
 97            :NEW.MINENAME,
 98            JINMINFO_ROW.OPERATOR,
 99            :NEW.MINENAME);
100         --获得新插入的供煤地区的ID
101         SELECT B.ID
102           INTO GONGMDQ_ID
103           FROM MD_TAB_GONGMDQ B
104          WHERE B.NAME = :NEW.MINENAME;
105         COUNT1 := 0;
106       END IF;
107     
108       --判断是否存在该供煤单位
109       SELECT COUNT(*)
110         INTO COUNT1
111         FROM MD_TAB_GONGMDW B
112        WHERE B.NAME = :NEW.AREARNAME;
113       --如果不存在该供煤单位信息进行添加
114       IF COUNT1 = 0 THEN
115         --获得最大主键ID
116         SELECT MAX(ID) INTO MAXID FROM MD_TAB_GONGMDW;
117         IF MAXID IS NULL THEN
118           MAXID := 1;
119         END IF;
120         --插入一条新的供煤单位信息
121         INSERT INTO MD_TAB_GONGMDW W
122           (ID, VERSION, CRERATEDATE, MODIFYDATE, NAME, OPERATOR, AREA_ID)
123         VALUES
124           ((MAXID + 1),
125            0,
126            SYSDATE,
127            SYSDATE,
128            :NEW.AREARNAME,
129            JINMINFO_ROW.OPERATOR,
130            GONGMDQ_ID);
131         --获得新插入的供煤单位的ID
132         SELECT A.ID
133           INTO GONGMDW_ID
134           FROM MD_TAB_GONGMDW A
135          WHERE A.NAME = :NEW.AREARNAME;
136         COUNT1 := 0;
137       END IF;
138     
139       --第一：首先将这条进煤信息的煤质进行更新
140       UPDATE JINMGL J
141          SET J.SUPPLIERAREA = GONGMDQ_ID,
142              J.SUPPLIERDEP  = GONGMDW_ID,
143              J.AMOUNT       = :NEW.NETWEIGHT,
144              J.QE           = :NEW.QNET_AR,
145              J.AG           = :NEW.AAR,
146              J.WQ           = :NEW.MT,
147              J.SGQ          = :NEW.STA,
148              J.VDAF         = :NEW.VDAF,
149              J.OPERATEDATE  = SYSDATE
150        WHERE J.ID = JINMINFO_ROW.ID;
151       --第二：更新这条进煤信息对应的状态的为2的位置存煤记录
152       --1.首先找到匹配这条进煤信息的状态为2的位置存煤记录
153       SELECT J1.ID, J1.AMOUNT, J1.QE, J1.AG, J1.WQ, J1.SGQ, J1.VDAF
154         INTO CUNM2_ID,
155              CUNM2_AMOUNT,
156              CUNM2_QE,
157              CUNM2_AG,
158              CUNM2_WQ,
159              CUNM2_SGQ,
160              CUNM2_VDAF
161         FROM JINMGL J1
162        WHERE J1.MIXUNIT_ID = JINMINFO_ROW.MIXUNIT_ID
163          AND J1.STOREPOSITION = JINMINFO_ROW.STOREPOSITION
164          AND J1.COALTYPE_ID = JINMINFO_ROW.COALTYPE_ID
165          AND J1.OPERTYPE = '2';
166       IF CUNM2_ID IS NOT NULL THEN
167         --2.计算加权煤质信息
168         TOTAL_AMOUNT := CUNM2_AMOUNT;
169         TOTAL_QE     := ROUND(((CUNM2_AMOUNT - JINMINFO_ROW.AMOUNT) *
170                               CUNM2_QE +
171                               JINMINFO_ROW.AMOUNT * :NEW.QNET_AR) /
172                               TOTAL_AMOUNT,
173                               0);
174         TOTAL_AG     := ROUND(((CUNM2_AMOUNT - JINMINFO_ROW.AMOUNT) *
175                               CUNM2_AG + JINMINFO_ROW.AMOUNT * :NEW.AAR) /
176                               TOTAL_AMOUNT,
177                               2);
178         TOTAL_WQ     := ROUND(((CUNM2_AMOUNT - JINMINFO_ROW.AMOUNT) *
179                               CUNM2_WQ + JINMINFO_ROW.AMOUNT * :NEW.MT) /
180                               TOTAL_AMOUNT,
181                               2);
182         TOTAL_SGQ    := ROUND(((CUNM2_AMOUNT - JINMINFO_ROW.AMOUNT) *
183                               CUNM2_SGQ + JINMINFO_ROW.AMOUNT * :NEW.STA) /
184                               TOTAL_AMOUNT,
185                               2);
186         TOTAL_VDAF   := ROUND(((CUNM2_AMOUNT - JINMINFO_ROW.AMOUNT) *
187                               CUNM2_VDAF + JINMINFO_ROW.AMOUNT * :NEW.VDAF) /
188                               TOTAL_AMOUNT,
189                               2);
190         --3.更新状态为2的位置存煤信息
191         UPDATE JINMGL J2
192            SET J2.QE          = TOTAL_QE,
193                J2.AG          = TOTAL_AG,
194                J2.WQ          = TOTAL_WQ,
195                J2.SGQ         = TOTAL_SGQ,
196                J2.VDAF        = TOTAL_VDAF,
197                J2.OPERATEDATE = SYSDATE,
198                J2.OPERATOR    = JINMINFO_ROW.OPERATOR
199          WHERE J2.ID = CUNM2_ID;
200       END IF;
201     
202       --第三：更新这条进煤信息对应的状态的为3的日存煤记录
203       --1.找到匹配这条进煤信息的状态为3的最新的日存煤记录
204       SELECT J3.ID,
205              J3.AMOUNT,
206              J3.QE,
207              J3.AG,
208              J3.WQ,
209              J3.SGQ,
210              J3.VDAF,
211              J3.OPERATEDATE
212         INTO CUNM3_ID,
213              CUNM3_AMOUNT,
214              CUNM3_QE,
215              CUNM3_AG,
216              CUNM3_WQ,
217              CUNM3_SGQ,
218              CUNM3_VDAF,
219              CUNM3_DATE
220         FROM JINMGL J3
221        WHERE J3.MIXUNIT_ID = JINMINFO_ROW.MIXUNIT_ID
222          AND J3.STOREPOSITION = JINMINFO_ROW.STOREPOSITION
223          AND J3.COALTYPE_ID = JINMINFO_ROW.COALTYPE_ID
224          AND J3.OPERTYPE = '3'
225          AND TO_CHAR(J3.OPERATEDATE, 'yyyy-mm-dd') =
226              (SELECT TO_CHAR(MAX(JJ.OPERATEDATE), 'yyyy-mm-dd')
227                 FROM JINMGL JJ
228                WHERE JJ.MIXUNIT_ID = JINMINFO_ROW.MIXUNIT_ID
229                  AND JJ.STOREPOSITION = JINMINFO_ROW.STOREPOSITION
230                  AND JJ.COALTYPE_ID = JINMINFO_ROW.COALTYPE_ID
231                  AND JJ.OPERTYPE = '3');
232     
233       IF CUNM3_ID IS NOT NULL THEN
234       
235         --2.计算加权煤质
236         TOTAL_AMOUNT := CUNM3_AMOUNT;
237         TOTAL_QE     := ROUND(((CUNM3_AMOUNT - JINMINFO_ROW.AMOUNT) *
238                               CUNM3_QE +
239                               JINMINFO_ROW.AMOUNT * :NEW.QNET_AR) /
240                               TOTAL_AMOUNT,
241                               0);
242         TOTAL_AG     := ROUND(((CUNM3_AMOUNT - JINMINFO_ROW.AMOUNT) *
243                               CUNM3_AG + JINMINFO_ROW.AMOUNT * :NEW.AAR) /
244                               TOTAL_AMOUNT,
245                               2);
246         TOTAL_WQ     := ROUND(((CUNM3_AMOUNT - JINMINFO_ROW.AMOUNT) *
247                               CUNM3_WQ + JINMINFO_ROW.AMOUNT * :NEW.MT) /
248                               TOTAL_AMOUNT,
249                               2);
250         TOTAL_SGQ    := ROUND(((CUNM3_AMOUNT - JINMINFO_ROW.AMOUNT) *
251                               CUNM3_SGQ + JINMINFO_ROW.AMOUNT * :NEW.STA) /
252                               TOTAL_AMOUNT,
253                               2);
254         TOTAL_VDAF   := ROUND(((CUNM3_AMOUNT - JINMINFO_ROW.AMOUNT) *
255                               CUNM3_VDAF + JINMINFO_ROW.AMOUNT * :NEW.VDAF) /
256                               TOTAL_AMOUNT,
257                               2);
258       
259         --3.判断这条记录的日期与当前日期的大小
260         IF TO_CHAR(CUNM3_DATE, 'yyyy-mm-dd') =
261            TO_CHAR(SYSDATE, 'yyyy-mm-dd') THEN
262           --执行更新语句
263           UPDATE JINMGL J4
264              SET J4.QE          = TOTAL_QE,
265                  J4.AG          = TOTAL_AG,
266                  J4.WQ          = TOTAL_WQ,
267                  J4.SGQ         = TOTAL_SGQ,
268                  J4.VDAF        = TOTAL_VDAF,
269                  J4.OPERATEDATE = SYSDATE,
270                  J4.OPERATOR    = JINMINFO_ROW.OPERATOR
271            WHERE J4.ID = CUNM3_ID;
272         ELSIF TO_DATE(TO_CHAR(CUNM3_DATE, 'yyyy-mm-dd'), 'yyyy-mm-dd') <
273               TO_DATE(TO_CHAR(SYSDATE, 'yyyy-mm-dd'), 'yyyy-mm-dd') THEN
274           --执行插入语句
275           INSERT INTO JINMGL
276             (MIXUNIT_ID,
277              CRERATEDATE,
278              MODIFYDATE,
279              OPERATOR,
280              OPERTYPE,
281              STOREPOSITION,
282              COALTYPE_ID,
283              AMOUNT,
284              QE,
285              AG,
286              WQ,
287              SGQ,
288              VDAF,
289              OPERATEDATE,
290              COMMENTS,
291              JINMID)
292           VALUES
293             (JINMINFO_ROW.MIXUNIT_ID,
294              SYSDATE,
295              SYSDATE,
296              JINMINFO_ROW.OPERATOR,
297              '3',
298              JINMINFO_ROW.STOREPOSITION,
299              JINMINFO_ROW.COALTYPE_ID,
300              TOTAL_AMOUNT,
301              TOTAL_QE,
302              TOTAL_AG,
303              TOTAL_WQ,
304              TOTAL_SGQ,
305              TOTAL_VDAF,
306              SYSDATE,
307              '',
308              0);
309         END IF;
310       
311       END IF;
312     
313       --第四：更新一般煤质信息
314       --1.查找当前的年份、月份、供煤单位、供煤地区下的一般煤质信息
315       SELECT COUNT(*)
316         INTO COUNT1
317         FROM YIBMZXX Y
318        WHERE Y.MIXUNIT_ID = JINMINFO_ROW.MIXUNIT_ID
319          AND Y.SUPPLIERAREA = GONGMDQ_ID
320          AND Y.SUPPLIERDEP = GONGMDW_ID
321          AND Y.INFOYEAR = TO_NUMBER(TO_CHAR(SYSDATE, 'yyyy'))
322          AND Y.INFOMONTH = TO_NUMBER(TO_CHAR(SYSDATE, 'MM'));
323     
324       IF COUNT1 <> 0 THEN
325         --2.查找一般煤质信息
326         SELECT Y.ID, Y.QNETVAR, Y.MT, Y.AAR, Y.VDAF, Y.STAR
327           INTO YIBMZXX_ID,
328                YIBMZXX_QE,
329                YIBMZXX_MT,
330                YIBMZXX_AG,
331                YIBMZXX_VDAF,
332                YIBMZXX_SGQ
333           FROM YIBMZXX Y
334          WHERE Y.MIXUNIT_ID = JINMINFO_ROW.MIXUNIT_ID
335            AND Y.SUPPLIERAREA = GONGMDQ_ID
336            AND Y.SUPPLIERDEP = GONGMDW_ID
337            AND Y.INFOYEAR = TO_NUMBER(TO_CHAR(SYSDATE, 'yyyy'))
338            AND Y.INFOMONTH = TO_NUMBER(TO_CHAR(SYSDATE, 'MM'));
339       
340         --3.更新一般煤质信息
341         UPDATE YIBMZXX Y1
342            SET Y1.QNETVAR    = ROUND((YIBMZXX_QE + :NEW.QNET_AR) / 2, 0),
343                Y1.AAR        = ROUND((YIBMZXX_AG + :NEW.AAR) / 2, 2),
344                Y1.MT         = ROUND((YIBMZXX_MT + :NEW.MT) / 2, 2),
345                Y1.STAR       = ROUND((YIBMZXX_SGQ + :NEW.STA) / 2, 2),
346                Y1.VDAF       = ROUND((YIBMZXX_VDAF + :NEW.VDAF) / 2, 2),
347                Y1.MODIFYDATE = SYSDATE,
348                Y1.OPERATOR   = JINMINFO_ROW.OPERATOR
349          WHERE Y1.ID = YIBMZXX_ID;
350       ELSIF COUNT1 = 0 THEN
351         --4.获得最大的主键ID
352         SELECT MAX(ID) INTO MAXID FROM YIBMZXX;
353         IF MAXID IS NULL THEN
354           MAXID := 1;
355         END IF;
356         --5.添加一条一般煤质信息
357         INSERT INTO YIBMZXX
358           (ID,
359            VERSION,
360            CRERATEDATE,
361            MODIFYDATE,
362            OPERATOR,
363            INFOYEAR,
364            INFOMONTH,
365            MIXUNIT_ID,
366            SUPPLIERAREA,
367            SUPPLIERDEP,
368            QNETVAR,
369            AAR,
370            MT,
371            STAR,
372            VDAF)
373         VALUES
374           ((MAXID + 1),
375            0,
376            SYSDATE,
377            SYSDATE,
378            JINMINFO_ROW.OPERATOR,
379            TO_NUMBER(TO_CHAR(SYSDATE, 'yyyy')),
380            TO_NUMBER(TO_CHAR(SYSDATE, 'MM')),
381            JINMINFO_ROW.MIXUNIT_ID,
382            GONGMDQ_ID,
383            GONGMDW_ID,
384            :NEW.QNET_AR,
385            :NEW.AAR,
386            :NEW.MT,
387            :NEW.STA,
388            :NEW.VDAF);
389       END IF;
390     
391       --重置临时数据
392       CUNM2_AMOUNT := 0;
393       CUNM2_QE     := 0;
394       CUNM2_AG     := 0;
395       CUNM2_WQ     := 0;
396       CUNM2_SGQ    := 0;
397       CUNM2_VDAF   := 0;
398       CUNM3_AMOUNT := 0;
399       CUNM3_QE     := 0;
400       CUNM3_AG     := 0;
401       CUNM3_WQ     := 0;
402       CUNM3_SGQ    := 0;
403       CUNM3_VDAF   := 0;
404       TOTAL_AMOUNT := 0;
405       TOTAL_QE     := 0;
406       TOTAL_AG     := 0;
407       TOTAL_WQ     := 0;
408       TOTAL_SGQ    := 0;
409       TOTAL_VDAF   := 0;
410       COUNT1       := 0;
411       MAXID        := 0;
412     
413     END LOOP;
414   
415   END IF;
416 END;

上两篇博文的地址：

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

http://www.cnblogs.com/sc-xx/archive/2011/12/03/2275084.html

这里的触发器还没有讲到对数据操作的锁机制，查找相关资料对锁机制进行了解。

下面这篇对锁机制进行了讲解：http://papmp.blog.163.com/blog/static/131716223201181924922612/