【PL/SQL】匿名块、存储过程、函数、触发器

名词解释

子程序：PL/SQL的过程和函数统称为子程序。

匿名块：以DECLARE或BEGIN开始，每次提交都被编译。匿名块因为没有名称，所以不能在数据库中存储并且不能直接从其他PL/SQL块中调用。

命名块：除匿名块之外的其他块。包括过程、函数、包和触发器。可以在数据库中存储并在适当的使用运行。

子程序的优点：

1）具有扩展性

可以自定义PL/SQL语言以满足实际应用

2）高可用和可维护性

子程序的调用不受调用者数目的影响，只要有效就可被调用。

如果定义被更改以后，只有子程序受到影响，简化了维护、优化过程。

 

匿名块、过程、函数的执行过程基本相似，不同之处在于：匿名块在DECLARE后面声明变量，而过程和函数在IS后面声明。

函数也可以称为过程，特殊之处为：函数总是有一个返回值（RETURN）。

匿名块   [DECLARE]     BEGIN   --statements   [EXCEPTION]   END;

过程   PROCEDURE name IS   BEGIN   --statements   [EXCEPTION]   END;

函数   FUNCTION name RETURN datatype IS BEGIN   --statements   RETURN value; [EXCEPTION]   END;

1、 创建存储过程

1）语法
CREATE [OR REPLACE] PROCEDURE procedure_name

[argument[{IN|OUT|IN OUT}] TYPE]

{IS|AS}

  <类型、变量的说明>

BEGIN

  <执行部分>

EXCEPTION

  <可选的异常错误处理程序>

END;

2）示例
①要求：记录登录数据的userid和logdate。

 

##创建表，用来存储userid和logdate

SQL> create table logtable (userid varchar2(10),logdate date);

 

Table created.

 

##创建存储过程

SQL> create or replace procedure logexecution is

  2  begin

  3    insert into logtable (userid, logdate) values (user, sysdate);

  4  end;

  5  /

 

Procedure created.

 

##执行存储过程

 

SQL>  exec logexecution;    

 

PL/SQL procedure successfully completed.

 

##验证执行结果

 

SQL> select * from logtable;

 

USERID     LOGDATE

---------- -------------------

SYS        2017-03-12 01:18:28

 

② 要求：删除表中记录

##创建过程

SQL> create or replace procedure delemp(v_empno in emp.empno%type) is

  2    no_result exception;

  3  begin

  4    delete from emp where empno = v_empno;

  5    if sql%notfound then

  6      raise no_result;

  7    end if;

  8    dbms_output.put_line('employee number' || v_empno || 'was deleted!');

  9  exception

 10    when no_result then

 11      dbms_output.put_line('no row found!');

 12    when others then

 13      dbms_output.put_line('other error!');

 14  end delemp;

 15  /

 

Procedure created.

 

##执行过程

SQL> exec delemp(999);

no row found!

 

PL/SQL procedure successfully completed.

 

SQL> exec delemp(7499);

employee number7499was deleted!

 

PL/SQL procedure successfully completed.

 

2、 创建函数

1）语法
CREATE [OR REPLACE] FUNCTION function_name

[(argument[{IN|OUT|IN OUT}] TYPE,

...

argument[{IN|OUT|IN OUT}] TYPE)]

RETURN return_type {IS|AS}

function_body

 

2）示例
##创建函数

SQL> create or replace function get_salary(dept_no number, v_num out number)

  2    return number is

  3    v_sum number;

  4  begin

  5    select sum(sal), count(*)

  6      into v_sum, v_num

  7      from emp

  8     where deptno = dept_no;

  9    return v_sum;

 10  exception

 11    when no_data_found then

 12      dbms_output.put_line('你需要的数据不存在！');

 13    when too_many_rows then

 14      dbms_output.put_line('程序运行错误！请使用游标');

 15    when others then

 16      dbms_output.put_line('发生其他错误！');

 17  end get_salary;

 18  /

 

Function created.

 

##调用函数（注：函数不能单独调用，只能在语句中调用）

SQL> declare

  2    v_num number;

  3    v_sum number;

  4  begin

  5    v_sum := get_salary(30,v_num);

  6    dbms_output.put_line('30 department sum salary is '||v_sum||' employee: '||v_num);

  7  end;

  8  /

30 department sum salary is 9400 employee: 6

 

PL/SQL procedure successfully completed.

 

3、 触发器

触发器：在数据库中以独立的对象存储，它与存储过程不同的是，存储过程通过其他程序来启动运行或者直接启动运行，而触发器是由一个事件来启动运行。即触发器是当某个事件发生时自动地隐式运行。并且触发器不能接收参数，不能commit。

触发器类型：

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

替代触发器：由于在Oracle里，不能对复杂视图进行操作。所以给出了替代触发器。它就是Oracle专门为进行视图操作的一种处理方法。

系统触发器：它可以在Oracle数据库系统的事件中进行触发，如Oracle系统的启动与关闭等。

触发器组成：

触发事件：即在何种情况下触发TRIGGER。

触发事件：即该TRIGGER是在触发事件发生之前（BEFORE）还是之后（AFTER）触发。

触发器本身：即该TRIGGER被触发之后的目的和意图。

触发类型：说明触发器内定义的动作被执行的次数。即语句级（STATEMENT）触发器和行级（ROW）触发器。

语句级（STATEMENT）触发器：指当某触发事件发生时，该触发器只执行一次。

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

1）示例
①创建DML触发器

要求：当职工表emp被删除一条记录时，把被删除记录写到职工表删除日志表中。

##建立删除日志表

SQL> create table emp_his as select * from emp where 1=2;

 

Table created.

##创建触发器

SQL> create or replace trigger del_emp

  2    before update or delete on scott.emp

  3    for each row

  4  begin

  5    insert into emp_his

  6      (deptno, empno, ename, job, mgr, sal, comm, hiredate)

  7    values

  8      (:old.deptno,

  9       :old.empno,

 10       :old.ename,

 11       :old.job,

 12       :old.mgr,

 13       :old.sal,

 14       :old.comm,

 15       :old.hiredate);

 16  end del_emp;

 17  /

 

Trigger created.

 

##验证触发器

SQL> delete from emp where empno=7844;

 

1 row deleted.

 

SQL> select count(*) from emp_his;

 

  COUNT(*)

----------

         1

 

②创建替代触发器

 

##创建复杂视图

SQL> create or replace view emp_view as

  2  select deptno,count(*) total_employeer,sum(sal) total_salary

  3  from emp group by deptno;

 

View created.

 

##对视图进行DML会报错，因为复杂视图不能直接进行DML操作

SQL> delete from emp_view where deptno=10;

delete from emp_view where deptno=10

            *

ERROR at line 1:

ORA-01732: data manipulation operation not legal on this view

##创建触发器

SQL> create or replace trigger emp_view_delete

  2    instead of delete on emp_view

  3    for each row

  4  begin

  5    delete from emp where deptno = :old.deptno;

  6  end emp_view_delete;

  7  /

 

Trigger created.

##再次删除，发现执行成功

SQL> delete from emp_view where deptno=10;

 

1 row deleted.

 

③ 创建系统事件触发器

注意：系统时间触发器要以sys用户运行

##登录sys用户

SQL> conn / as sysdba

Connected.

##创建表

SQL> create table logtable (name varchar2(20),log_time date);

 

Table created.

##创建触发器

SQL> create or replace trigger login_his

  2    after logon on database

  3  begin

  4    insert into logtable values (user, sysdate);

  5  end;

  6  /

 

Trigger created.

##验证触发器

SQL> select * from logtable;

 

NAME                 LOG_TIME

-------------------- -------------------

SYS                  2017-03-12 00:15:29