ORACLE PL/SQL编程之六：把过程与函数说透(穷追

原文: ORACLE PL/SQL编程之六：把过程与函数说透(穷追猛打，把根儿都拔起!)

ORACLE PL/SQL 编程之六：

把过程与函数说透 ( 穷追猛打，把根儿都拔起 !)

继上篇： ORACLE PL/SQL 编程之八：把触发器说透 得到了大家的强力支持，感谢。接下来再下猛药，介绍下一篇，大家一定要支持与推荐呀 ~ ！我也才有动力写后面的。

本篇主要内容如下：

6.1 引言

6.2 创建函数

6.3 存储过程

6.3.1 创建过程

6.3.2 调用存储过程

6.3.3 A UTHID

6.3.4 P RAGMA AUTONOMOUS_TRANSACTION

6.3.5 开发存储过程步骤

6.3.6 删除过程和函数

6.3.7 过程与函数的比较

6.1 引言

过程与函数（另外还有包与触发器）是命名的 PL/SQL 块（也是用户的方案对象），被编译后存储在数据库中，以备执行。因此，其它 PL/SQL 块可以按名称来使用他们。所以，可以将商业逻辑、企业规则写成函数或过程保存到数据库中，以便共享。

过程和函数统称为 PL/SQL 子程序，他们是被命名的 PL/SQL 块，均存储在数据库中，并通过输入、输出参数或输入 / 输出参数与其调用者交换信息。过程和函数的唯一区别是函数总向调用者返回数据，而过程则不返回数据。在本节中，主要介绍：

1．    创建存储过程和函数。

2．    正确使用系统级的异常处理和用户定义的异常处理。

3．    建立和管理存储过程和函数。

6.2 创建函数

1. 创建函数

语法如下：

CREATE [ OR REPLACE ] FUNCTION function_name
(arg1 [ { IN | OUT | IN OUT } ] type1 [ DEFAULT value1 ] ,
[ arg2 [ { IN | OUT | IN OUT } ] type2 [ DEFAULT value1 ] ],
......
[ argn [ { IN | OUT | IN OUT } ] typen [ DEFAULT valuen ] ])
[ AUTHID DEFINER | CURRENT_USER ]
RETURN return_type
IS | AS
     < 类型.变量的声明部分 >
BEGIN
    执行部分
     RETURN expression
EXCEPTION
    异常处理部分
END function_name;

l          IN,OUT,IN OUT 是形参的模式。若省略，则为 IN 模式。 IN 模式的形参只能将实参传递给形参，进入函数内部，但只能读不能写，函数返回时实参的值不变。 OUT 模式的形参会忽略调用时的实参值（或说该形参的初始值总是 NULL ），但在函数内部可以被读或写，函数返回时形参的值会赋予给实参。 IN OUT 具有前两种模式的特性，即调用时，实参的值总是传递给形参，结束时，形参的值传递给实参。调用时，对于 IN 模式的实参可以是常量或变量，但对于 OUT 和 IN OUT 模式的实参必须是变量。

l          一般，只有在确认 function_name 函数是新函数或是要更新的函数时，才使用 OR REPALCE 关键字，否则容易删除有用的函数。

例1.            获取某部门的工资总和：

-- 获取某部门的工资总和
CREATE OR REPLACE
FUNCTION get_salary(
  Dept_no NUMBER ,
  Emp_count OUT NUMBER )
   RETURN NUMBER
IS
  V_sum NUMBER ;
BEGIN
   SELECT SUM (SALARY), count ( * ) INTO V_sum, emp_count
     FROM EMPLOYEES WHERE DEPARTMENT_ID = dept_no;
   RETURN v_sum;
EXCEPTION
    WHEN NO_DATA_FOUND THEN
      DBMS_OUTPUT.PUT_LINE( ' 你需要的数据不存在! ' );
    WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE(SQLCODE || ' --- ' || SQLERRM);
END get_salary;

2. 函数的调用

函数声明时所定义的参数称为形式参数，应用程序调用时为函数传递的参数称为实际参数。应用程序在调用函数时，可以使用以下三种方法向函数传递参数：

第一种参数传递格式：位置表示法。

即在调用时按形参的排列顺序，依次写出实参的名称，而将形参与实参关联起来进行传递。用这种方法进行调用，形参与实参的名称是相互独立，没有关系，强调次序才是重要的。

格式为：

       argument_value1[,argument_value2 …]

例 2 ：计算某部门的工资总和：

DECLARE
  V_num NUMBER ;
  V_sum NUMBER ;
BEGIN
  V_sum : = get_salary( 10 , v_num);
  DBMS_OUTPUT.PUT_LINE( ' 部门号为:10的工资总和： ' || v_sum || ' ，人数为： ' || v_num);
END ;

第二种参数传递格式：名称表示法。

即在调用时按形参的名称与实参的名称，写出实参对应的形参，而将形参与实参关联起来进行传递。这种方法，形参与实参的名称是相互独立的，没有关系，名称的对应关系才是最重要的，次序并不重要。

格式为：

       argument => parameter [,…]

其中： argument 为形式参数，它必须与函数定义时所声明的形式参数名称相同 parameter 为实际参数。

在这种格式中，形势参数与实际参数成对出现，相互间关系唯一确定，所以参数的顺序可以任意排列。

例 3 ：计算某部门的工资总和：

DECLARE
  V_num NUMBER ;
    V_sum NUMBER ;
BEGIN
    V_sum : = get_salary(emp_count => v_num, dept_no => 10 );
    DBMS_OUTPUT.PUT_LINE( ' 部门号为:10的工资总和： ' || v_sum || ' ，人数为： ' || v_num);
END ;

第三种参数传递格式：组合传递。

即在调用一个函数时，同时使用位置表示法和名称表示法为函数传递参数。采用这种参数传递方法时，使用位置表示法所传递的参数必须放在名称表示法所传递的参数前面。也就是说，无论函数具有多少个参数，只要其中有一个参数使用名称表示法，其后所有的参数都必须使用名称表示法。

例 4 ：

CREATE OR REPLACE FUNCTION demo_fun(
  Name VARCHAR2 , -- 注意VARCHAR2不能给精度，如：VARCHAR2(10)，其它类似
  Age INTEGER ,
  Sex VARCHAR2 )
   RETURN VARCHAR2
AS
  V_var VARCHAR2 ( 32 );
BEGIN
  V_var : = name || ' ： ' || TO_CHAR(age) || ' 岁. ' || sex;
   RETURN v_var;
END ;

DECLARE
   Var VARCHAR ( 32 );
BEGIN
   Var : = demo_fun( ' user1 ' , 30 , sex => ' 男 ' );
  DBMS_OUTPUT.PUT_LINE( var );

   Var : = demo_fun( ' user2 ' , age => 40 , sex => ' 男 ' );
  DBMS_OUTPUT.PUT_LINE( var );

   Var : = demo_fun( ' user3 ' , sex => ' 女 ' , age => 20 );
  DBMS_OUTPUT.PUT_LINE( var );
END ;

无论采用哪一种参数传递方法，实际参数和形式参数之间的数据传递只有两种方法：传址法和传值法。所谓传址法是指在调用函数时，将实际参数的地址指针传递给形式参数，使形式参数和实际参数指向内存中的同一区域，从而实现参数数据的传递。这种方法又称作参照法，即形式参数参照实际参数数据。输入参数均采用传址法传递数据。

       传值法是指将实际参数的数据拷贝到形式参数，而不是传递实际参数的地址。默认时，输出参数和输入 / 输出参数均采用传值法。在函数调用时， ORACLE 将实际参数数据拷贝到输入 / 输出参数，而当函数正常运行退出时，又将输出形式参数和输入 / 输出形式参数数据拷贝到实际参数变量中。

3. 参数默认值

在 CREATE OR REPLACE FUNCTION 语句中声明函数参数时可以使用 DEFAULT 关键字为输入参数指定默认值。

例 5 ：

CREATE OR REPLACE FUNCTION demo_fun(
  Name VARCHAR2 ,
  Age INTEGER ,
  Sex VARCHAR2 DEFAULT ' 男 ' )
   RETURN VARCHAR2
AS
  V_var VARCHAR2 ( 32 );
BEGIN
  V_var : = name || ' ： ' || TO_CHAR(age) || ' 岁. ' || sex;
   RETURN v_var;
END ;

具有默认值的函数创建后，在函数调用时，如果没有为具有默认值的参数提供实际参数值，函数将使用该参数的默认值。但当调用者为默认参数提供实际参数时，函数将使用实际参数值。在创建函数时，只能为输入参数设置默认值，而不能为输入 / 输出参数设置默认值。

DECLARE

var VARCHAR ( 32 );

BEGIN

Var := demo_fun( 'user1' , 30 );

DBMS_OUTPUT.PUT_LINE( var );

Var := demo_fun( 'user2' , age => 40 );

DBMS_OUTPUT.PUT_LINE( var );

Var := demo_fun( 'user3' , sex => ' 女 ' , age => 20 );

DBMS_OUTPUT.PUT_LINE( var);

END ;

6.3 存储过程

6.3.1 创建过程

建立存储过程

在 ORACLE SERVER 上建立存储过程 , 可以被多个应用程序调用 , 可以向存储过程传递参数 , 也可以向存储过程传回参数 .

创建过程语法 :

CREATE [ OR REPLACE ] PROCEDURE procedure_name
( [ arg1 [ IN | OUT | IN OUT ] ] type1 [ DEFAULT value1 ] ,
[ arg2 [ IN | OUT | IN OUT ] ] type2 [ DEFAULT value1 ] ],
......
[ argn [ IN | OUT | IN OUT ] ] typen [ DEFAULT valuen ] )
     [ AUTHID DEFINER | CURRENT_USER ]
{ IS | AS }
   < 声明部分 >
BEGIN
   < 执行部分 >
EXCEPTION
   < 可选的异常错误处理程序 >
END procedure_name;

说明： 相关参数说明参见函数的语法说明。

例 6 ．用户连接登记记录；

CREATE TABLE logtable (userid VARCHAR2 ( 10 ), logdate date);

CREATE OR REPLACE PROCEDURE logexecution
IS
BEGIN
INSERT INTO logtable (userid, logdate) VALUES ( USER , SYSDATE);
END ;

例 7 ．删除指定员工记录；

CREATE OR REPLACE
PROCEDURE DelEmp
(v_empno IN employees.employee_id % TYPE)
AS
No_result EXCEPTION;
BEGIN
    DELETE FROM employees WHERE employee_id = v_empno;
    IF SQL % NOTFOUND THEN
      RAISE no_result;
    END IF ;
   DBMS_OUTPUT.PUT_LINE( ' 编码为 ' || v_empno || ' 的员工已被删除! ' );
EXCEPTION
    WHEN no_result THEN
      DBMS_OUTPUT.PUT_LINE( ' 温馨提示:你需要的数据不存在! ' );
    WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE(SQLCODE || ' --- ' || SQLERRM);
END DelEmp;

例 8 ．插入员工记录 :

CREATE OR REPLACE
PROCEDURE InsertEmp(
   v_empno      in employees.employee_id % TYPE,
   v_firstname in employees.first_name % TYPE,
   v_lastname   in employees.last_name % TYPE,
   v_deptno     in employees.department_id % TYPE
   )
AS
   empno_remaining EXCEPTION;
   PRAGMA EXCEPTION_INIT(empno_remaining, - 1 );
    /* -1 是违反唯一约束条件的错误代码 */
BEGIN
    INSERT INTO EMPLOYEES(EMPLOYEE_ID, FIRST_NAME, LAST_NAME, HIRE_DATE,DEPARTMENT_ID)
    VALUES (v_empno, v_firstname,v_lastname, sysdate, v_deptno);
   DBMS_OUTPUT.PUT_LINE( ' 温馨提示:插入数据记录成功! ' );
EXCEPTION
    WHEN empno_remaining THEN
      DBMS_OUTPUT.PUT_LINE( ' 温馨提示:违反数据完整性约束! ' );
    WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE(SQLCODE || ' --- ' || SQLERRM);
END InsertEmp;

例 9 ．使用存储过程向 departments 表中插入数据。

CREATE OR REPLACE
PROCEDURE insert_dept
  (v_dept_id IN departments.department_id % TYPE,
   v_dept_name IN departments.department_name % TYPE,
   v_mgr_id IN departments.manager_id % TYPE,
   v_loc_id IN departments.location_id % TYPE)
IS
   ept_null_error EXCEPTION;
   PRAGMA EXCEPTION_INIT(ept_null_error, - 1400 );
   ept_no_loc_id EXCEPTION;
   PRAGMA EXCEPTION_INIT(ept_no_loc_id, - 2291 );
BEGIN
    INSERT INTO departments
   (department_id, department_name, manager_id, location_id)
    VALUES
   (v_dept_id, v_dept_name, v_mgr_id, v_loc_id);
   DBMS_OUTPUT.PUT_LINE( ' 插入部门 ' || v_dept_id || ' 成功 ' );
EXCEPTION
    WHEN DUP_VAL_ON_INDEX THEN
      RAISE_APPLICATION_ERROR( - 20000 , ' 部门编码不能重复 ' );
    WHEN ept_null_error THEN
      RAISE_APPLICATION_ERROR( - 20001 , ' 部门编码、部门名称不能为空 ' );
    WHEN ept_no_loc_id THEN
      RAISE_APPLICATION_ERROR( - 20002 , ' 没有该地点 ' );
END insert_dept;

/* 调用实例一:
DECLARE
   ept_20000 EXCEPTION;
   PRAGMA EXCEPTION_INIT(ept_20000, -20000);
   ept_20001 EXCEPTION;
   PRAGMA EXCEPTION_INIT(ept_20001, -20001);
   ept_20002 EXCEPTION;
   PRAGMA EXCEPTION_INIT(ept_20002, -20002);
BEGIN
   insert_dept(300, '部门300', 100, 2400);
   insert_dept(310, NULL, 100, 2400);
   insert_dept(310, '部门310', 100, 900);
EXCEPTION
   WHEN ept_20000 THEN
      DBMS_OUTPUT.PUT_LINE('ept_20000部门编码不能重复');
   WHEN ept_20001 THEN
      DBMS_OUTPUT.PUT_LINE('ept_20001部门编码、部门名称不能为空');
   WHEN ept_20002 THEN
      DBMS_OUTPUT.PUT_LINE('ept_20002没有该地点');
   WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE('others出现了其他异常错误');
END;

调用实例二：
DECLARE
   ept_20000 EXCEPTION;
   PRAGMA EXCEPTION_INIT(ept_20000, -20000);
   ept_20001 EXCEPTION;
   PRAGMA EXCEPTION_INIT(ept_20001, -20001);
   ept_20002 EXCEPTION;
   PRAGMA EXCEPTION_INIT(ept_20002, -20002);
BEGIN
   insert_dept(v_dept_name => '部门310', v_dept_id => 310,
               v_mgr_id => 100, v_loc_id => 2400);
   insert_dept(320, '部门320', v_mgr_id => 100, v_loc_id => 900);
EXCEPTION
   WHEN ept_20000 THEN
      DBMS_OUTPUT.PUT_LINE('ept_20000部门编码不能重复');
   WHEN ept_20001 THEN
      DBMS_OUTPUT.PUT_LINE('ept_20001部门编码、部门名称不能为空');
   WHEN ept_20002 THEN
      DBMS_OUTPUT.PUT_LINE('ept_20002没有该地点');
   WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE('others出现了其他异常错误');
END;
*/

6.3.2 调用存储过程

   存储过程建立完成后，只要通过授权，用户就可以在 SQLPLUS 、 ORACLE 开发工具或第三方开发工具中来调用运行。对于参数的传递也有三种：按位置传递、按名称传递和组合传递，传递方法与函数的一样。 ORACLE 使用 EXECUTE 语句来实现对存储过程的调用：

EXEC [ UTE ] procedure_name( parameter1, parameter2…);

例 10 ：

EXECUTE logexecution;

例 11 ：查询指定员工记录；

CREATE OR REPLACE
PROCEDURE QueryEmp
(v_empno IN   employees.employee_id % TYPE,
v_ename OUT employees.first_name % TYPE,
v_sal   OUT employees.salary % TYPE)
AS
BEGIN
        SELECT last_name || last_name, salary INTO v_ename, v_sal
     FROM employees
     WHERE employee_id = v_empno;
       DBMS_OUTPUT.PUT_LINE( ' 温馨提示:编码为 ' || v_empno || ' 的员工已经查到! ' );
EXCEPTION
        WHEN NO_DATA_FOUND THEN
      DBMS_OUTPUT.PUT_LINE( ' 温馨提示:你需要的数据不存在! ' );
       WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE(SQLCODE || ' --- ' || SQLERRM);
END QueryEmp;
-- 调用
DECLARE
    v1 employees.first_name % TYPE;
    v2 employees.salary % TYPE;
BEGIN
   QueryEmp( 100 , v1, v2);
   DBMS_OUTPUT.PUT_LINE( ' 姓名: ' || v1);
   DBMS_OUTPUT.PUT_LINE( ' 工资: ' || v2);
   QueryEmp( 103 , v1, v2);
   DBMS_OUTPUT.PUT_LINE( ' 姓名: ' || v1);
   DBMS_OUTPUT.PUT_LINE( ' 工资: ' || v2);
   QueryEmp( 104 , v1, v2);
   DBMS_OUTPUT.PUT_LINE( ' 姓名: ' || v1);
   DBMS_OUTPUT.PUT_LINE( ' 工资: ' || v2);
END ;

例 12 ．计算指定部门的工资总和，并统计其中的职工数量。

CREATE OR REPLACE
PROCEDURE proc_demo
(
  dept_no NUMBER DEFAULT 10 ,
    sal_sum OUT NUMBER ,
    emp_count OUT NUMBER
  )
IS
BEGIN
     SELECT SUM (salary), COUNT ( * ) INTO sal_sum, emp_count
   FROM employees WHERE department_id = dept_no;
EXCEPTION
    WHEN NO_DATA_FOUND THEN
      DBMS_OUTPUT.PUT_LINE( ' 温馨提示:你需要的数据不存在! ' );
    WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE(SQLCODE || ' --- ' || SQLERRM);
END proc_demo;

DECLARE
V_num NUMBER ;
V_sum NUMBER ( 8 , 2 );
BEGIN
  Proc_demo( 30 , v_sum, v_num);
DBMS_OUTPUT.PUT_LINE( ' 温馨提示:30号部门工资总和： ' || v_sum || ' ,人数： ' || v_num);
  Proc_demo(sal_sum => v_sum, emp_count => v_num);
DBMS_OUTPUT.PUT_LINE( ' 温馨提示:10号部门工资总和： ' || v_sum || ' ,人数： ' || v_num);
END ;

       在 PL/SQL 程序中还可以在块内建立本地函数和过程，这些函数和过程不存储在数据库中，但可以在创建它们的 PL/SQL 程序中被重复调用。本地函数和过程在 PL/SQL 块的声明部分定义，它们的语法格式与存储函数和过程相同，但不能使用 CREATE OR REPLACE 关键字。

例 13 ：建立本地过程，用于计算指定部门的工资总和，并统计其中的职工数量；

DECLARE
V_num NUMBER ;
V_sum NUMBER ( 8 , 2 );
PROCEDURE proc_demo
  (
    Dept_no NUMBER DEFAULT 10 ,
    Sal_sum OUT NUMBER ,
    Emp_count OUT NUMBER
  )
IS
BEGIN
     SELECT SUM (salary), COUNT ( * ) INTO sal_sum, emp_count
     FROM employees WHERE department_id = dept_no;
EXCEPTION
    WHEN NO_DATA_FOUND THEN
      DBMS_OUTPUT.PUT_LINE( ' 你需要的数据不存在! ' );
    WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE(SQLCODE || ' --- ' || SQLERRM);
END proc_demo;
-- 调用方法：
BEGIN
    Proc_demo( 30 , v_sum, v_num);
DBMS_OUTPUT.PUT_LINE( ' 30号部门工资总和： ' || v_sum || ' ，人数： ' || v_num);
    Proc_demo(sal_sum => v_sum, emp_count => v_num);
DBMS_OUTPUT.PUT_LINE( ' 10号部门工资总和： ' || v_sum || ' ，人数： ' || v_num);
END ;

6.3.3 A UTHID

过程中的 AUTHID 指令可以告诉 ORACLE ，这个过程使用谁的权限运行．默任情况下，存储过程会作为调用者的过程运行，但是具有设计者的特权．这称为设计者权利运行．

例 14 ：建立过程，使用 AUTOID DEFINER ；

Connect HR / qaz
DROP TABLE logtable;
CREATE table logtable (userid VARCHAR2 ( 10 ), logdate date);

CREATE OR REPLACE PROCEDURE logexecution
    AUTHID DEFINER
IS
BEGIN
    INSERT INTO logtable (userid, logdate) VALUES ( USER , SYSDATE);
END ;

GRANT EXECUTE ON logexecution TO PUBLIC ;

CONNECT / AS SYSDBA
GRANT CONNECT TO testuser1 IDENTIFIED BY userpwd1;

CONNECT testuser1 / userpwd1
INSERT INTO HR.LOGTABLE VALUES ( USER , SYSDATE);
EXECUTE HR.logexecution

CONNECT HR / qaz
SELECT * FROM HR.logtable;

例 15 ：建立过程，使用 AUTOID CURRENT_USER ；

CONNECT HR / qaz

CREATE OR REPLACE PROCEDURE logexecution
  AUTHID CURRENT_USER
IS
BEGIN
    INSERT INTO logtable (userid, logdate) VALUES ( USER , SYSDATE);
END ;

GRANT EXECUTE ON logexecution TO PUBLIC ;

CONNECT testuser1 / userpwd1
INSERT INTO HR.LOGTABLE VALUES ( USER , SYSDATE);
EXECUTE HR.logexecution

6.3.4 P RAGMA AUTONOMOUS_TRANSACTION

ORACLE8i 可以支持事务处理中的事务处理的概念．这种子事务处理可以完成它自己的工作，独立于父事务处理进行提交或者回滚．通过使用这种方法，开发者就能够这样的过程，无论父事务处理是提交还是回滚，它都可以成功执行．

例 16 ：建立过程，使用自动事务处理进行日志记录；

DROP TABLE logtable;

CREATE TABLE logtable(
  Username varchar2 ( 20 ),
  Dassate_time date,
  Mege varchar2 ( 60 )
);

CREATE TABLE temp_table( N number );

CREATE OR REPLACE PROCEDURE log_message(p_message varchar2 )
   AS
  PRAGMA AUTONOMOUS_TRANSACTION;
BEGIN
   INSERT INTO logtable VALUES ( user , sysdate, p_message );
   COMMIT ;
END log_message;

BEGIN
  Log_message (‘About to insert into temp_table‘);
   INSERT INTO temp_table VALUES ( 1 );
  Log_message (‘ Rollback to insert into temp_table‘);
   ROLLBACK ;
END ;

SELECT * FROM logtable;
SELECT * FROM temp_table;

例 17 ：建立过程，没有使用自动事务处理进行日志记录；

CREATE OR REPLACE PROCEDURE log_message(p_message varchar2 )
   AS
BEGIN
   INSERT INTO logtable VALUES ( user , sysdate, p_message );
   COMMIT ;
END log_message;

BEGIN
  Log_message ( ' About to insert into temp_table ' );
   INSERT INTO temp_table VALUES ( 1 );
  Log_message ( ' Rollback to insert into temp_table ' );
   ROLLBACK ;
END ;

SELECT * FROM logtable;
SELECT * FROM temp_table;

6.3.5 开发存储过程步骤

    开发存储过程、函数、包及触发器的步骤如下：

6.3.5 .1 使用文字编辑处理软件编辑存储过程源码

    使用文字编辑处理软件编辑存储过程源码，要用类似 WORD 文字处理软件进行编辑时，要将源码存为文本格式。

6.3.5 .2 在 SQLPLUS 或用调试工具将存储过程程序进行解释

    在 SQLPLUS 或用调试工具将存储过程程序进行解释；

    在 SQL> 下调试，可用 START 或 GET 等 ORACLE 命令来启动解释。如：

SQL>START c:\stat1.sql

    如果使用调式工具，可直接编辑和点击相应的按钮即可生成存储过程。

6.3.5 .3 调试源码直到正确

    我们不能保证所写的存储过程达到一次就正确。所以这里的调式是每个程序员必须进行的工作之一。在 SQLPLUS 下来调式主要用的方法是：

l          使用 SHOW ERROR 命令来提示源码的错误位置；

l          使用 user_errors 数据字典来查看各存储过程的错误位置。

6.3.5 .4 授权执行权给相关的用户或角色

如果调式正确的存储过程没有进行授权，那就只有建立者本人才可以运行。所以作为应用系统的一部分的存储过程也必须进行授权才能达到要求。在 SQL*PLUS 下可以用 GRANT 命令来进行存储过程的运行授权。

GRANT 语法：

GRANT system_privilege | role
TO user | role | PUBLIC [ WITH ADMIN OPTION ]

GRANT object_privilege | ALL ON schema .object
TO user | role | PUBLIC [ WITH GRANT OPTION ]

-- 例子：

CREATE OR REPLACE PUBLIC SYNONYM dbms_job FOR dbms_job

GRANT EXECUTE ON dbms_job TO PUBLIC WITH GRANT OPTION

6.3.5 .5 与过程相关数据字典

USER_SOURCE, ALL_SOURCE, DBA_SOURCE, USER_ERRORS,

ALL_PROCEDURES,USER_OBJECTS,ALL_OBJECTS,DBA_OBJECTS

相关的权限 :

CREATE ANY PROCEDURE

DROP ANY PROCEDURE

在 SQL*PLUS 中，可以用 DESCRIBE 命令查看过程的名字及其参数表。

DESC[RIBE] Procedure_name;

6.3.6 删除过程和函数

1 ．删除过程

可以使用 DROP PROCEDURE 命令对不需要的过程进行删除，语法如下：

DROP PROCEDURE [user.]Procudure_name;

2 ．删除函数

可以使用 DROP FUNCTION 命令对不需要的函数进行删除，语法如下：

DROP FUNCTION [ user. ] Function_name;

-- 删除上面实例创建的存储过程与函数
DROP PROCEDURE logexecution;
DROP PROCEDURE delemp;
DROP PROCEDURE insertemp;
DROP PROCEDURE fireemp;
DROP PROCEDURE queryemp;
DROP PROCEDURE proc_demo;
DROP PROCEDURE log_message;
DROP FUNCTION demo_fun;
DROP FUNCTION get_salary;

6.3.7         过程与函数的比较

使用过程与函数具有如下优点：

1 、共同使用的代码可以只需要被编写和测试一次，而被需要该代码的任何应用程序（如： .NET 、 C++ 、 JAVA 、 VB 程序，也可以是 DLL 库）调用。

2 、这种集中编写、集中维护更新、大家共享（或重用）的方法，简化了应用程序的开发和维护，提高了效率与性能。

3 、这种模块化的方法，使得可以将一个复杂的问题、大的程序逐步简化成几个简单的、小的程序部分，进行分别编写、调试。因此使程序的结构清晰、简单，也容易实现。

4 、可以在各个开发者之间提供处理数据、控制流程、提示信息等方面的一致性。

5 、节省内存空间。它们以一种压缩的形式被存储在外存中，当被调用时才被放入内存进行处理。并且，如果多个用户要执行相同的过程或函数时，就只需要在内存中加载一个该过程或函数。

6 、提高数据的安全性与完整性。通过把一些对数据的操作放到过程或函数中，就可以通过是否授予用户有执行该过程或的权限，来限制某些用户对数据进行这些操作。

过程与函数的相同功能有：

1、都使用 IN 模式的参数传入数据、 OUT 模式的参数返回数据。

2、输入参数都可以接受默认值，都可以传值或传引导。

3、调用时的实际参数都可以使用位置表示法、名称表示法或组合方法。

4、都有声明部分、执行部分和异常处理部分。

5、其管理过程都有创建、编译、授权、删除、显示依赖关系等。

使用过程与函数的原则：

1 、如果需要返回多个值和不返回值，就使用过程；如果只需要返回一个值，就使用函数。

2 、过程一般用于执行一个指定的动作，函数一般用于计算和返回一个值。

3 、可以 SQL 语句内部（如表达式）调用函数来完成复杂的计算问题，但不能调用过程。所以这是函数的特色。

© 2011 EricHu

原创作品，转贴请注明作者和出处，留此信息。

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

cnBlobs: http://www.cnblogs.com/huyong/
CSDN ： http://blog.csdn.net/chinahuyong

作者： EricHu （ DB 、 C\S 、 B\S 、 WebService 、 WCF 、 PM 等）
出处： http://www.cnblogs.com/huyong/

Q Q ： 80368704   E-Mail: 80368704@qq.com
本博文欢迎大家浏览和转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，在『参考』的文章中，我会表明参考的文章来源，尊重他人版权。若您发现我侵犯了您的版权，请及时与我联系。
更多文章请看 [ 置顶 ] 索引贴 —— （不断更新中）

刷新评论刷新页面返回顶部

博客园首页博问新闻闪存程序员招聘知识库

About

www.spiga.com.mx

Copyright ©2014 yonghu86

博客园

ORACLE PL/SQL编程之六：把过程与函数说透(穷追猛打，把根儿都拔起!)

更多文章、技术交流、商务合作、联系博主

微信扫码或搜索：z360901061

微信扫一扫加我为好友

QQ号联系： 360901061

您的支持是博主写作最大的动力，如果您喜欢我的文章，感觉我的文章对您有帮助，请用微信扫描下面二维码支持博主2元、5元、10元、20元等您想捐的金额吧，狠狠点击下面给点支持吧，站长非常感激您！手机微信长按不能支付解决办法：请将微信支付二维码保存到相册，切换到微信，然后点击微信右上角扫一扫功能，选择支付二维码完成支付。

【本文对您有帮助就好】元

2元

5元

10元

20元

自定义