oracle 触发器与包

/*

1. 触发器
什么是触发器？
更改表中数据时，自动执行的一组代码。

触发器特征：
触发事件、触发条件、触发操作。
事件（insert、update、delete）
条件（on 表对象）
操作（具体的plsql功能代码）
时机（先后循环；之前执行（before）、之后执行（after））

触发器的分类（级别）：表级别、行级别。

行级别：NEW（新的数据）、:OLD（旧的数据）

表级别示例：before insert on test1 
行级别示例：before insert on test1 for each row


2. 程序包。

*/
-------------------------------------程序包--------------------------------------------
--包（将过程、函数逻辑上存放在一起）
--存储过程、函数

--系统内置包。
dbms_output
dbms_lob

--用户自定义包。

--包（包头(过程、函数的声明)、包体（过程、函数具体实现））

--包头
create or replace package first_package
as
       procedure show99;--99乘法表
       procedure showEmpInfo(eno number);
end first_package;

--包体（具体实现）
create or replace package body first_package
as
       procedure show99
       as
       begin
         for i in 1..9 loop
           for j in 1..i loop
             dbms_output.put(i*j||'  ');
           end loop;
           dbms_output.put_line('');
         end loop;
       end show99;
       
       procedure showEmpInfo(eno number)
       as
       empinfo scott.emp%rowtype;
       begin
         select * into empinfo from scott.emp where empno=eno;
         dbms_output.put_line(empinfo.empno||':'||empinfo.ename);
       exception
          when no_data_found then
          dbms_output.put_line('没有找到该员工的信息');
          when others then
          dbms_output.put_line('others.............');
       end showEmpInfo;
end first_package;

--调用
begin
    first_package.showEmpInfo(&编号);
end;

select first_package.fun from dual;










-------------------------------------触发器操作--------------------------------------------
--将表锁定（判断星期一、星期五表中的数据，可以正常操作；否则不能操作该表数据）

create or replace trigger trig_test_table
before insert or update or delete  on test1
declare
       cweekday varchar2(20);
begin
    select to_char(sysdate,'dy') into cweekday from dual;
    if cweekday='星期六' or cweekday='星期日' then
    dbms_output.put_line('你不能操作这张表哟!');
    raise_application_error(-20005,'今天系统放假了！');--抛异常，阻止用户操作
    end if;
end;

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


create table test1
(
tid int primary key,
tname varchar2(20)
)

insert into test1 values (sequ_test1.nextval,'admin')

create sequence sequ_test1


select * from test1

--能否利用触发器，给test1表添加一个自动增长列。
--drop trigger trigger_test1
create or replace trigger trigger_test1
before insert on test1 for each row
declare
begin
  select sequ_test1.nextval into :NEW.tid from dual;
end;