--============================
-- PL/SQL --> 包的创建与管理
--============================
包，是一个逻辑集合，是由PL/SQL类型以及PL/SQL子程序的集合。PL/SQL类型包括table类型，record类型。PL/SQL项则包括游标，游标
变量。PL/SQL子程序包括过程，函数等。可以说包可谓是包罗万象。是所有PL/SQL相关资源的汇总。
包的使用可以简化应用程序设计，实现信息掩藏，子程序重载等功能。
包的优点
1.模块化：将函数，子程序全部融合在一起，使得成为一个有机的整体，封装了相关的结构。
2.易于维护：整合了子程序，更易于维护。
3.简化应用程序设计：包的声明与包体内容相分离。
4.隐藏信息：私有对象不可访问，所有的包体内代码可以实现隐藏。
5.节省I/O：一次编译，多次使用。
一、包的组成与创建语法
包头：用于定义包的公共组件，如函数头，过程头，游标等以及常量，变量等。包头中定义的公共组件可以在包内引用，也可以被其
它子程序引用。
包体：用于定义包头中定义过的过程和函数。可以单独定义私有组件，包括变量，常量，过程和函数等。私有组件只能在包内使用，而
不能被其它子程序所调用。
一言以蔽之，包头定义包的声明及描述部分，而包体则定义了对应包的具体执行部分。
创建包的语法：
CREATE [OR REPLACE] PACKAGE package_name --定义包头
{AS|IS}
public_variable_declarations |
public_type_declarations |
public_exception_declarations |
public_cursor_declarations |
function_declarations |
procedure_specifications
END [package_name]
CREATE [OR REPLACE] PACKAGE BODY package_name --定义包体，包体中的package_name应当与包头中的package_name相同
{AS|IS}
private_variable_declarations |
private_type_declarations |
private_exception_declarations |
private_cursor_declarations |
function_declarations |
procedure_specifications
END [package_name]
二、创建包
下面演示包的创建，基于用户scott创建，存储过程，函数等依赖于其下的对象
1.创建包头
CREATE OR REPLACE PACKAGE emp_package IS --创建包头，包的名字为emp_package
g_deptno NUMBER(3) := 30; --定义一个公共变量g_deptno
PROCEDURE add_employee(eno NUMBER, name VARCHAR2, salary NUMBER, dno NUMBER DEFAULT g_deptno); --声明过程
PROCEDURE fire_employee(eno NUMBER); --声明过程
FUNCTION get_sal(eno NUMBER) RETURN NUMBER; --声明函数
END emp_package;
/
2.创建包体
CREATE OR REPLACE PACKAGE BODY emp_package IS --创建包体，注意，包体中包的名字必须与包头的名字相一致
FUNCTION validate_deptno(v_deptno NUMBER) RETURN BOOLEAN --创建一个私有函数,注,此私有函数不能该包外子程序调用
IS
v_temp INT;
BEGIN
SELECT 1 INTO v_temp FROM dept WHERE deptno = v_deptno;
RETURN TRUE;
EXCEPTION
WHEN NO_DATA_FOUND THEN
RETURN FALSE;
END;
PROCEDURE add_employee --创建添加雇员的过程
(eno NUMBER, name VARCHAR2, salary NUMBER, dno NUMBER DEFAULT g_deptno) IS
BEGIN
IF validate_deptno(dno) THEN --该过程调用了包内的一个函数validate_deptno来验证dno的有效性
INSERT INTO emp(empno, ename, sal, deptno) VALUES(eno, name, salary, dno);
ELSE
RAISE_APPLICATION_ERROR(-20000, '不存在该部门');
END IF;
EXCEPTION
WHEN DUP_VAL_ON_INDEX THEN
RAISE_APPLICATION_ERROR(-20011, '该雇员已存在');
END;
PROCEDURE fire_employee(eno NUMBER) IS --创建解除雇员的过程
BEGIN
DELETE FROM emp WHERE empno = eno;
IF SQL%NOTFOUND THEN
RAISE_APPLICATION_ERROR(-20012, '该雇员不存在');
END IF;
END;
FUNCTION get_sal(eno NUMBER) RETURN NUMBER IS --创建函数get_sal返回雇员的薪水
v_sal emp.sal%TYPE;
BEGIN
SELECT sal INTO v_sal FROM emp WHERE empno = eno;
RETURN v_sal;
EXCEPTION
WHEN NO_DATA_FOUND THEN
RAISE_APPLICATION_ERROR(-20012, '该雇员不存在');
END;
END emp_package;
/
3.创建仅包含包头的包(仅包含包头的包也可以被调用，具体参照后面的包的调用)
CREATE OR REPLACE PACKAGE global_int
IS
g_positive CONSTANT NUMBER:=10;
g_negative CONSTANT NUMBER:=-10;
END global_int;
三、包的调用
对于包的私有对象只能在包内调用。如上面的例子中对包内私有函数validate_deptno进行了直接调用
对于包的公共对象，既可以在包内调用，也可以由其他应用程序调用。使用其他应用程序调用时的方法：包名.包对象
1.调用包的公共变量
scott@ORCL> exec emp_package.g_deptno:=10;
2.调用包的公共过程
scott@ORCL> exec emp_package.add_employee(2222,'Robinson',3000); --此调用未指定部门号，则使用缺省值,但前面执行了
--exec emp_package.g_deptno:=10;故部门号变为
scott@ORCL> exec emp_package.add_employee(3333,'Jackson',4000,20);
scott@ORCL> select * from emp where empno in(2222,3333);
EMPNO ENAME JOB MGR HIREDATE SAL COMM DEPTNO
---------- ---------- --------- ---------- --------- ---------- ---------- ----------
2222 Robinson 3000 10
3333 Jackson 4000 20
3.调用包的公共函数
scott@ORCL> var sal number
scott@ORCL> exec :sal:=emp_package.get_sal(7788);
PL/SQL procedure successfully completed.
scott@ORCL> print sal
SAL
----------
310
4.以不同用户身份调用包.需要使用schema名字来调用，即：用户名.包名.包对象名
scott@ORCL> conn lion/lion --注意帐户需要具有执行所调用包的权限
lion@ORCL> exec scott.emp_package.fire_employee(2222);
5.调用远程数据库包的公共对象。调用方法:包名.包对象名@数据库链接名
sys@ASMDB> create database link orcl
2 connect to lion identified by lion
3 using 'orcl';