oralce 经典习题系列

数据库触发器

The problem

1 创建INSERT事件的触发器。
2 创建UPDATE事件的触发器。
3 创建DELETE事件的触发器。
4 查看触发器。
5 删除触发器。

The answer

以pet表为例

--1 创建INSERT事件的触发器。
--2 创建UPDATE事件的触发器。
--3 创建DELETE事件的触发器。
--4 查看触发器。
--5 删除触发器。

--1 已pet表为例子，插入前如果插入宠物是dog,就输出'小狗旺旺叫',其他输出'这是个啥动物！'
select * from pet;
desc pet;
create or replace trigger i_dog after  insert on pet
for each row 
begin 
    if :new.species ='dog' then dbms_output.put_line('小狗旺旺叫');
    else dbms_output.put_line('这是个啥动物！');
    end if;
end;
-- 测试触发器效果
set serveroutput on ;
insert into pet values('ls','kettly','dog','f','2024-11-01','');
---update 当宠物变更后，输出'请您付出爱心照顾它，谢谢！' 否则：'真爱如初!'
create or replace trigger u_spe after update on pet 
for each row 
begin 
  if :new.species <> :old.species then dbms_output.put_line('请您付出爱心照顾它，谢谢!');
  else dbms_output.put_line('真爱如初!');
  end if;
end;
--测试
set SERVEROUTPUT ON;
update pet 
set species ='cat'
where name ='Fluffy';
--3 删除delete 触发器
create table plog(
id number(10) GENERATED BY DEFAULT AS IDENTITY primary key,
dat date,
logtxt varchar2(100)
);
select * from plog;
create or replace  trigger d_pet after delete on pet 
for each row
begin 
   insert into plog(dat,logtxt) values (sysdate,'delete pet  date');
end;
--测试delete pet d_pet
set SERVEROUTPUT ON;
delete from pet  where name ='zs';
select * from plog;

--4查看触发器
select object_type from SYS.USER_OBJECTS group by object_type;
select * from sys.user_objects where object_type ='TRIGGER';
select * from user_objects where object_type ='TRIGGER' AND OBJECT_NAME ='D_PET';
--5删除触发器d_pet
drop trigger d_pet;