本文实例讲述了Oracle触发器用法。分享给大家供大家参考,具体如下:
一、触发器简介
触发器的定义就是说某个条件成立的时候,触发器里面所定义的语句就会被自动的执行。因此触发器不需要人为的去调用,也不能调用。然后,触发器的触发条件其实在你定义的时候就已经设定好了。这里面需要说明一下,触发器可以分为语句级触发器和行级触发器。详细的介绍可以参考网上的资料,简单的说就是语句级的触发器可以在某些语句执行前或执行后被触发。而行级触发器则是在定义的了触发的表中的行数据改变时就会被触发一次。
具体举例:
1、 在一个表中定义的语句级的触发器,当这个表被删除时,程序就会自动执行触发器里面定义的操作过程。这个就是删除表的操作就是触发器执行的条件了。
2、 在一个表中定义了行级的触发器,那当这个表中一行数据发生变化的时候,比如删除了一行记录,那触发器也会被自动执行了。
二、触发器语法
触发器的语法:
其中:
触发器名:触发器对象的名称。由于触发器是数据库自动执行的,因此该名称只是一个名称,没有实质的用途。
触发时间:指明触发器何时执行,该值可取:
before:表示在数据库动作之前触发器执行;
after:表示在数据库动作之后触发器执行。
触发事件:指明哪些数据库动作会触发此触发器:
insert:数据库插入会触发此触发器;
update:数据库修改会触发此触发器;
delete:数据库删除会触发此触发器。
表 名:数据库触发器所在的表。
for each row:对表的每一行触发器执行一次。如果没有这一选项,则只对整个表执行一次。
触发器能实现如下功能:
功能:
1、 允许/限制对表的修改
2、 自动生成派生列,比如自增字段
3、 强制数据一致性
4、 提供审计和日志记录
5、 防止无效的事务处理
6、 启用复杂的业务逻辑
举例
1)、下面的触发器在更新表tb_emp之前触发,目的是不允许在周末修改表:
or
replace
trigger
auth_secure before
insert
or
update
DELETE
tb_emp
begin
IF(to_char(sysdate,
'DY'
)=
'星期日'
)
THEN
RAISE_APPLICATION_ERROR(-20600,monospace!important; min-height:auto!important; color:blue!important">'不能在周末修改表tb_emp'
);
END
IF;
;
/
2)、使用触发器实现序号自增
创建一个测试表:
table
tab_user(
id number(11)
primary
key
,
username
varchar
(50),
password
varchar
(50)
);
创建一个序列:
创建一个触发器:
OR
REPLACE
TRIGGER
MY_TGR
BEFORE
INSERT
ON
TAB_USER
FOR
EACH ROW
--对表的每一行触发器执行一次
DECLARE
NEXT_ID NUMBER;
BEGIN
SELECT
MY_SEQ.NEXTVAL
INTO
NEXT_ID
FROM
DUAL;
:NEW.ID := NEXT_ID;
--:NEW表示新插入的那条记录
;
向表插入数据:
into
tab_user(username,
password
values
(
'admin'
);
'fgz'
);
'test'
);
--创建测试表
CREATE
TABLE
test(
t_id NUMBER(4),monospace!important; min-height:auto!important">t_name VARCHAR2(20),
t_age NUMBER(2),
t_sex
CHAR
);
--创建记录测试表
test_log(
l_user VARCHAR2(15),
l_type VARCHAR2(15),
l_date VARCHAR2(30)
创建触发器:
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
TEST_TRIGGER
AFTER
DELETE
OR
INSERT
UPDATE
TEST
V_TYPE TEST_LOG.L_TYPE%TYPE;
IF INSERTING
THEN
--INSERT触发
V_TYPE :=
'INSERT'
;
DBMS_OUTPUT.PUT_LINE(
'记录已经成功插入,并已记录到日志'
);
ELSIF UPDATING
THEN
--UPDATE触发
'UPDATE'
;
'记录已经成功更新,并已记录到日志'
);
ELSIF DELETING
THEN
--DELETE触发
'DELETE'
;
'记录已经成功删除,并已记录到日志'
);
IF;
INTO
TEST_LOG
VALUES
;
/
--下面我们来分别执行DML语句
test
VALUES
(101,monospace!important; min-height:auto!important; color:blue!important">'zhao'
'M'
);
UPDATE
SET
t_age = 30
WHERE
t_id = 101;
DELETE
t_id = 101;
--然后查看效果
*
test;
test_log;
运行结果如下:
3)、创建触发器,它将映射emp表中每个部门的总人数和总工资
dept_sal
AS
deptno,
COUNT
(empno) total_emp,147)!important">SUM
(sal) total_sal
scott.emp
GROUP
BY
deptno;
--创建触发器
EMP_INFO
UPDATE
DELETE
scott.EMP
DECLARE
CURSOR
CUR_EMP
IS
DEPTNO,monospace!important; min-height:auto!important">(EMPNO)
AS
TOTAL_EMP,monospace!important; min-height:auto!important">(SAL)
TOTAL_SAL
scott.EMP
DEPTNO;
BEGIN
DEPT_SAL;
--触发时首先删除映射表信息
V_EMP
IN
CUR_EMP LOOP
--DBMS_OUTPUT.PUT_LINE(v_emp.deptno || v_emp.total_emp || v_emp.total_sal);
--插入数据
DEPT_SAL
VALUES
(V_EMP.DEPTNO,V_EMP.TOTAL_EMP,V_EMP.TOTAL_SAL);
LOOP;
;
--对emp表进行DML操作
emp(empno,deptno,sal)
'123'
'10'
sql plain" style="margin:3px auto 0px; padding:0px 0px 0px 5px; border-left-width:3px; border-left-style:solid; border-left-color:rgb(108,10000);
dept_sal;
EMP
empno=123;
dept_sal;
显示结果如下:
4)、创建触发器,用来记录表的删除数据
employee(
id VARCHAR2(4)
NOT
NULL
name
VARCHAR2(15)
age NUMBER(2)
sex
CHAR
NOT
NULL
--插入数据
employee
'e101'
);
'e102'
'jian'
'F'
);
--创建记录表(包含数据记录)
old_employee
AS
SELECT
employee;
--创建触发器
TIG_OLD_EMP
EMPLOYEE
EACH ROW
--语句级触发,即每一行触发一次
BEGIN
OLD_EMPLOYEE
(:OLD.ID,:OLD.
NAME
sql plain" style="margin:3px auto 0px; padding:0px 0px 0px 5px; border-left-width:3px; border-left-style:solid; border-left-color:rgb(108,:OLD.AGE,:OLD.SEX);
--:old代表旧值
;
/
--下面进行测试
employee;
old_employee;
5)、创建触发器,利用视图插入数据
PRIMARY
KEY
sql plain" style="margin:3px auto 0px; padding:0px 0px 0px 5px; border-left-width:3px; border-left-style:solid; border-left-color:rgb(108,tname VARCHAR2(20),tage NUMBER(2));
tab2 (tid NUMBER(4),ttel VARCHAR2(15),tadr VARCHAR2(30));
--插入数据
tab1
sql keyword" style="margin:3px auto 0px; padding:0px 0px 0px 5px; border-left-width:3px; border-left-style:solid; border-left-color:rgb(108,22);
(102,monospace!important; min-height:auto!important; color:blue!important">'yang'
sql plain" style="margin:3px auto 0px; padding:0px 0px 0px 5px; border-left-width:3px; border-left-style:solid; border-left-color:rgb(108,20);
tab2
'13761512841'
'AnHuiSuZhou'
);
'13563258514'
);
--创建视图连接两张表
VIEW
tab_view
tab1.tid,tname,ttel,tadr
tab1,tab2
tab1.tid = tab2.tid;
--创建触发器
TAB_TRIGGER
INSTEAD
OF
INSERT
TAB_VIEW
BEGIN
TAB1 (TID,TNAME)
(:NEW.TID,:NEW.TNAME);
TAB2 (TTEL,TADR)
(:NEW.TTEL,:NEW.TADR);
;
/
--现在就可以利用视图插入数据
(106,monospace!important; min-height:auto!important; color:blue!important">'ljq'
'13886681288'
'beijing'
);
--查询
tab_view;
tab1;
tab2;
6)、创建触发器,比较emp表中更新的工资
serveroutput
;
SAL_EMP
UPDATE
EMP
EACH ROW
IF :OLD.SAL > :NEW.SAL
'工资减少'
);
ELSIF :OLD.SAL < :NEW.SAL
THEN
'工资增加'
ELSE
'工资未作任何变动'
);
IF;
'更新前工资 :'
|| :OLD.SAL);
'更新后工资 :'
|| :NEW.SAL);
;
/
--执行UPDATE查看效果
emp
sal = 3000
empno =
'7788'
7)、创建触发器,将操作CREATE、DROP存储在log_info表
31
32
33
34
35
36
manager_user VARCHAR2(15),monospace!important; min-height:auto!important">manager_date VARCHAR2(15),monospace!important; min-height:auto!important">manager_type VARCHAR2(15),monospace!important; min-height:auto!important">obj_name VARCHAR2(15),
obj_type VARCHAR2(15)
--创建触发器
;
TRIG_LOG_INFO
CREATE
DROP
ON
SCHEMA
BEGIN
LOG_INFO
VALUES
sql spaces" style="margin:3px auto 0px; padding:0px 0px 0px 5px; border-left-width:3px; border-left-style:solid; border-left-color:rgb(108,
SYSDATE,
SYS.DICTIONARY_OBJ_NAME,
SYS.DICTIONARY_OBJ_OWNER,
SYS.DICTIONARY_OBJ_TYPE);
;
/
--测试语句
a(id NUMBER);
CREATE
TYPE aa
OBJECT(id NUMBER);
DROP
a;
DROP
TYPE aa;
--查看效果
log_info;
--相关数据字典-----------------------------------------------------
USER_TRIGGERS;
--必须以DBA身份登陆才能使用此数据字典
ALL_TRIGGERS;
DBA_TRIGGERS;
--启用和禁用
ALTER
trigger_name DISABLE;
trigger_name ENABLE;
希望本文所述对大家Oracle数据库程序设计有所帮助。
原文链接:https://www.f2er.com/oracle/211611.html