REFERENCING子句:
使用“:new.字段”或者是“:old.字段”标记不清,那么也可以通过REFERENCING子句为这两个标识符设置别名,例如可以将“:new”设置为:emp_new,或者将“:old”设置为:emp_old。
create or replace trigger myempaddsal_trigger before update on myemp REFERENCING OLD AS myemp_old NEW AS myemp_new for each rowdeclare begin IF ABS((:myemp_new.sal - :myemp_old.SAL) / :myemp_old.SAL) > 0.1 THEN raise_application_error(-20005,'工资最大涨幅不能超过10%'); END IF;end myempaddsal_trigger;
使用WHEN子句定义触发条件:
在WHEN子句中也可以用":new"和":old"访问修改前后的数据,在WHEN子句中使用new和old时可以不加前面的":"号
示例一、增加员工中判断员工工资是否存在,如果工资为0则报错
--创建触发器create or replace trigger myemptestadd1 before insert on myemp for each ROW WHEN(new.Sal=0)declarebegin raise_application_error(-20003,:NEW.EMPNO||'的工资为0,不合规定!');end myemptestadd1;--执行添加DECLAREBEGININSERT INTO myemp(empno,ename,job,mgr,sal,deptno)VALUES(9999,'Bdqn','MNAGER',7788,0,10);EXCEPTION WHEN OTHERS THEN dbms_output.put_line(SQLERRM);END;--结果ORA-20003: 9999的工资为0,不合规定!ORA-06512: 在 "TESTS.MYEMPTESTADD1", line 4ORA-04088: 触发器 'TESTS.MYEMPTESTADD1' 执行过程中出错
示例二、要求工资只能涨不能降
--创建触发器create or replace trigger myemptestadd1 before UPDATE on myemp for each ROW WHEN(new.Sal<old.Sal)declarebegin raise_application_error(-20003,:old.EMPNO||'的工资只能涨不能降!');end myemptestadd1;--执行错误的更新DECLAREBEGIN UPDATE myemp SET sal=2000 WHERE empno=7788;EXCEPTION WHEN OTHERS THEN dbms_output.put_line(SQLERRM);END;--结果ORA-20003: 7788的工资只能涨不能降!ORA-06512: 在 "TESTS.MYEMPTESTADD1", line 4ORA-04088: 触发器 'TESTS.MYEMPTESTADD1' 执行过程中出错
触发器谓词:
在触发器定义中专门提供了三个触发器谓词:INSERTING、UPDATING、DELETING
No. | 触发器谓词 | 描述 |
1 | INSERTING | 如果触发语句为INSERT,返回TRUE,否则返回FALSE |
2 | UPDATING | 如果触发语句为UPDATE,返回TRUE,否则返回FALSE |
3 | DELETING | 如果触发语句为DELETE,返回TRUE,否则返回FALSE |
示例三、使用日志表deptlog表记录相关操作dept表
-创建deptlog表CREATE TABLE deptlog( logid NUMBER, TYPE VARCHAR2(20) NOT NULL, deptno NUMBER(2), logdate DATE, dname Varchar2(14) NOT NULL, loc Varchar2(13) NOT NULL, CONSTRAINT pk_logid PRIMARY KEY(logid));--创建序列CREATE SEQUENCE deptlog_seq;--创建触发器create or replace trigger dept_trigger before INSERT OR UPDATE OR DELETE on dept for each rowdeclare BEGIN IF inserting THEN INSERT INTO deptlog(logid,type,deptno,logdate,dname,loc) VALUES(deptlog_seq.nextval,'insert',:new.Deptno,SYSDATE,:NEW.DNAME,:new.Loc); ELSIF updating THEN INSERT INTO deptlog(logid,type,deptno,logdate,dname,loc) VALUES(deptlog_seq.nextval,'update',:new.Deptno,SYSDATE,:NEW.DNAME,:new.Loc); ELSIF deleting THEN INSERT INTO deptlog(logid,type,deptno,logdate,dname,loc) VALUES(deptlog_seq.nextval,'delete',:old.Deptno,SYSDATE,:old.DNAME,:old.Loc); END IF; end dept_trigger;--测试数据INSERT INTO dept(deptno,dname,loc)VALUES(87,'测试','SZ');INSERT INTO dept(deptno,dname,loc)VALUES(43,'公关','SZ');UPDATE dept SET dname='拓展部' WHERE deptno=66;DELETE FROM dept WHERE deptno=87;commit;--查询SELECT * FROM dept;--查询表SELECT * FROM deptlog;
使用FOLLOWS子句
为一个表创建了多个触发器,在触发时,是不会按照用户希望的顺序执行触发的,
在FOR EACH ROW后增加FOLLOWS 触发器1名称,表示在 触发器1后触发
--创建3个相同的触发器--触发器1create or replace trigger dept1 before INSERT OR UPDATE OR DELETE on dept for each rowdeclare begin dbms_output.put_line('执行第1个触发器 dept1');end dept1;--触发器2create or replace trigger dept2 before INSERT OR UPDATE OR DELETE on dept for each ROW follows dept1declare begin dbms_output.put_line('执行第2个触发器 dept2');end dept1;--触发器3create or replace trigger dept3 before INSERT OR UPDATE OR DELETE on dept for each ROW follows dept2declare begin dbms_output.put_line('执行第3个触发器 dept3');end dept1;
执行更新,删除,添加操作
INSERT INTO dept(deptno,dname,loc)VALUES(87,'测试','SZ');INSERT INTO dept(deptno,dname,loc)VALUES(43,'公关','SZ');UPDATE dept SET dname='拓展部' WHERE deptno=66;DELETE FROM dept WHERE deptno=87;
结果:
执行第1个触发器 dept1执行第2个触发器 dept2执行第3个触发器 dept3
按指定顺序触发