-
包中的多个子程序可以重载
- 示例1：编写包规范，同时进行子程序重载
|
CREATE OR REPLACE PACKAGE emp_delete_pkg AS -- 删除雇员时所发生的异常 emp_delete_exception EXCEPTION ; -- 根据雇员编号删除雇员信息 PROCEDURE delete_emp_proc(p_empno emp.empno%TYPE) ; -- 根据雇员姓名删除雇员信息 PROCEDURE delete_emp_proc(p_ename emp.ename%TYPE) ; -- 根据雇员所在部门及职位删除雇员信息 PROCEDURE delete_emp_proc(p_deptno emp.deptno%TYPE , p_job emp.job%TYPE) ; END ; / |
- 示例2：定义包体实现具体的包规范
|
CREATE OR REPLACE PACKAGE BODY emp_delete_pkg AS -- 根据雇员编号删除雇员信息，如果没有数据被删除则抛出异常 PROCEDURE delete_emp_proc(p_empno emp.empno%TYPE) AS BEGIN DELETE FROM emp WHERE empno=p_empno ; IF SQL%NOTFOUND THEN RAISE emp_delete_exception ; END IF ; END delete_emp_proc ; -- 根据雇员姓名删除雇员信息，如果没有数据被删除则抛出异常 PROCEDURE delete_emp_proc(p_ename emp.ename%TYPE) AS BEGIN DELETE FROM emp WHERE ename=UPPER(p_ename) ; IF SQL%NOTFOUND THEN RAISE emp_delete_exception ; END IF ; END delete_emp_proc ; -- 根据部门编号和雇员职位删除雇员信息，如果没有数据被删除则抛出异常 PROCEDURE delete_emp_proc(p_deptno emp.deptno%TYPE , p_job emp.job%TYPE) AS BEGIN DELETE FROM emp WHERE deptno=p_deptno AND job=p_job ; IF SQL%NOTFOUND THEN RAISE emp_delete_exception ; END IF ; END delete_emp_proc ; END ; / |
-
此例实现了包规范里所定义的三个删除过程，通过"EXEC"命令调用这些过程：
-
