时间：2021-07-01 10:21:17 帮助过：47人阅读
6.1 引言
6.2 创建函数
6.3 存储过程
6.3.1创建过程
6.3.2调用存储过程
6.3.3 AUTHID
6.3.4 PRAGMA AUTONOMOUS_TRANSACTION
6.3.5开发存储过程步骤
6.3.6删除过程和函数
6.3.7过程与函数的比较
过程与函数（另外还有包与触发器）是命名的PL/SQL块（也是用户的方案对象），被编译后存储在数据库中，以备执行。因此，其它PL/SQL块可以按名称来使用他们。所以，可以将商业逻辑、企业规则写成函数或过程保存到数据库中，以便共享。
过程和函数统称为PL/SQL子程序，他们是被命名的PL/SQL块，均存储在数据库中，并通过输入、输出参数或输入/输出参数与其调用者交换信息。过程和函数的唯一区别是函数总向调用者返回数据，而过程则不返回数据。在本节中，主要介绍：
1． 创建存储过程和函数。
2． 正确使用系统级的异常处理和用户定义的异常处理。
3． 建立和管理存储过程和函数。
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. 获取某部门的工资总和：
--获取某部门的工资总和CREATEORREPLACEFUNCTION get_salary( Dept_no NUMBER, Emp_count OUT NUMBER) RETURNNUMBERIS V_sum NUMBER; BEGIN SELECTSUM(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：
CREATEORREPLACEFUNCTION demo_fun( Name VARCHAR2,--注意VARCHAR2不能给精度，如：VARCHAR2(10)，其它类似 Age INTEGER, Sex VARCHAR2) RETURNVARCHAR2AS V_var VARCHAR2(32); BEGIN V_var := name||‘：‘||TO_CHAR(age)||‘岁.‘||sex; RETURN v_var; END;
无论采用哪一种参数传递方法，实际参数和形式参数之间的数据传递只有两种方法：传址法和传值法。所谓传址法是指在调用函数时，将实际参数的地址指针传递给形式参数，使形式参数和实际参数指向内存中的同一区域，从而实现参数数据的传递。这种方法又称作参照法，即形式参数参照实际参数数据。输入参数均采用传址法传递数据。
传值法是指将实际参数的数据拷贝到形式参数，而不是传递实际参数的地址。默认时，输出参数和输入/输出参数均采用传值法。在函数调用时，ORACLE将实际参数数据拷贝到输入/输出参数，而当函数正常运行退出时，又将输出形式参数和输入/输出形式参数数据拷贝到实际参数变量中。
3. 参数默认值
在CREATE OR REPLACE FUNCTION 语句中声明函数参数时可以使用DEFAULT关键字为输入参数指定默认值。
例5：
CREATEORREPLACEFUNCTION demo_fun( Name VARCHAR2, Age INTEGER, Sex VARCHAR2DEFAULT‘男‘) RETURNVARCHAR2AS V_var VARCHAR2(32); BEGIN V_var := name||‘：‘||TO_CHAR(age)||‘岁.‘||sex; RETURN v_var; END;
具有默认值的函数创建后，在函数调用时，如果没有为具有默认值的参数提供实际参数值，函数将使用该参数的默认值。但当调用者为默认参数提供实际参数时，函数将使用实际参数值。在创建函数时，只能为输入参数设置默认值，而不能为输入/输出参数设置默认值。
DECLARE
varVARCHAR(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;
建立存储过程
在 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．用户连接登记记录；
CREATETABLE logtable (userid VARCHAR2(10), logdate date);
例7．删除指定员工记录；
CREATEORREPLACEPROCEDURE DelEmp (v_empno IN employees.employee_id%TYPE) AS No_result EXCEPTION; BEGIN DELETEFROM employees WHERE employee_id = v_empno; IF SQL%NOTFOUND THEN RAISE no_result; ENDIF; 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．插入员工记录:
CREATEORREPLACEPROCEDURE 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 INSERTINTO 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表中插入数据。
CREATEORREPLACEPROCEDURE 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 INSERTINTO 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;
存储过程建立完成后，只要通过授权，用户就可以在SQLPLUS 、ORACLE开发工具或第三方开发工具中来调用运行。对于参数的传递也有三种：按位置传递、按名称传递和组合传递，传递方法与函数的一样。ORACLE 使用EXECUTE 语句来实现对存储过程的调用：
EXEC[UTE] procedure_name( parameter1, parameter2…);
例10：
EXECUTE logexecution;
例11：查询指定员工记录；
CREATEORREPLACEPROCEDURE QueryEmp (v_empno IN employees.employee_id%TYPE, v_ename OUT employees.first_name%TYPE, v_sal OUT employees.salary%TYPE) ASBEGIN 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．计算指定部门的工资总和，并统计其中的职工数量。
CREATEORREPLACEPROCEDURE proc_demo ( dept_no NUMBERDEFAULT10, sal_sum OUT NUMBER, emp_count OUT NUMBER ) ISBEGIN SELECTSUM(salary), COUNT(*) INTO sal_sum, emp_count FROM employees WHERE department_id = dept_no; EXCEPTION WHEN