程序包

1. 程序包的创建与应用
   7.1 程序包简介
   程序包(PACKAGE，简称包)是一组相关过程、函数、变量、常量和游标等PL/SQL程序设计元素的组合，作为一个完整的单元存储在数据库中，用名称来标识包。它具有面向对象程序设计语言的特点，是对这些PL/SQL 程序设计元素的封装。包类似于c#和JAVA语言中的类，其中变量相当于类中的成员变量，过程和函数相当于类方法。把相关的模块归类成为包，可使开发人员利用面向对象的方法进行存储过程的开发，从而提高系统性能。
   与高级语言中的类相同，包中的程序元素也分为公用元素和私用元素两种，这两种元素的区别是他们允许访问的程序范围不同，即它们的作用域不同。公用元素不仅可以被包中的函数、过程所调用，也可以被包外的PL/SQL程序访问，而私有元素只能被包内的函数和过程序所访问。
   当然，对于不包含在程序包中的过程、函数是独立存在的。一般是先编写独立的过程与函数，待其较为完善或经过充分验证无误后，再按逻辑相关性组织为程序包。
   程序包的优点
   简化应用程序设计：程序包的说明部分和包体部分可以分别创建各编译。主要体现在以下三个方面：

2. 可以在设计一个应用程序时，只创建各编译程序包的说明部分，然后再编写引用该 程序包的PL/SQL块。

3. 当完成整个应用程序的整体框架后，再回头来定义包体部分。只要不改变包的说明部分，就可以单独调试、增加或替换包体的内容，这不会影响其他的应用程序。
4. 更新包的说明后必须重新编译引用包的应用程序，但更新包体，则不需重新编译引用包的应用程序，以快速进行进行应用程序的原形开发。
   模块化：可将逻辑相关的PL/SQL块或元素等组织在一起，用名称来唯一标识程序 包。把一个大的功能模块划分人适当个数小的功能模块，分别完成各自的功能。这样组织的程序包都易于编写，易于理解更易于管理。
   信息隐藏：因为包中的元素可以分为公有元素和私有元素。公有元素可被程序包内的过程、函数等的访问，还可以被包外的PL/SQL访问。但对于私有元素只能被包内的过程、函数等访问。对于用户，只需知道包的说明，不用了解包休的具体细节。
   效率高：程序包在应用程序第一次调用程序包中的某个元素时，ORACLE将把整个程序包加载到内存中，当第二次访问程序包中的元素时，ORACLE将直接从内在中读取，而不需要进行磁盘I/O操作而影响速度，同时位于内在中的程序包可被同一会话期间的其它应用程序共享。因此，程序包增加了重用性并改善了多用户、多应用程序环境的效率。
   对程序包的优点可总结如下：在PL/SQL程序设计中，使用包不仅可以使程序设计模块化，对外隐藏包内所使用的信息（通过使用私用变量），而写可以提高程序的执行效率。因为，当程序首次调用包内函数或过程时，ORACLE将整个包调入内存，当再次访问包内元素时，ORACLE直接从内存中读取，而不需要进行磁盘I/O操作，从而使程序执行效率得到提高。
   一个包由两个分开的部分组成：
   包说明（PACKAGE）：包说明部分声明包内数据类型、变量、常量、游标、子程序和异常错误处理等元素，这些元素为包的公有元素。
   包主体（PACKAGE BODY）：包主体则是包定义部分的具体实现，它定义了包定义部分所声明的游标和子程序，在包主体中还可以声明包的私有元素。
   包说明和包主体分开编译，并作为两部分分开的对象存放在数据库字典中，可查看数据字典usersource, all_source, dba_source，分别了解包说明与包主体的详细信息。
   7.2 程序包的定义
   程序包的定义分为程序包说明定义和程序包主体定义两部分组成。
   程序包说明用于声明包的公用组件，如变量、常量、自定义数据类型、异常、过程、函数、游标等。包说明中定义的公有组件不仅可以在包内使用，还可以由包外其他过程、函数。但需要说明与注意的是，我们为了实现信息的隐藏，建议不要将所有组件都放在包说明处声明，只应把公共组件放在包声明部分。包的名称是唯一的，但对于两个包中的公有组件的名称可以相同，这种用“包名.公有组件名“加以区分。
   包体是包的具体实现细节，其实现在包说明中声明的所有公有过程、函数、游标等。当然也可以在包体中声明仅属于自己的私有过程、函数、游标等。创建包体时，有以下几点需要注意：
   包体只能在包说明被创建或编译后才能进行创建或编译。
   在包体中实现的过程、函数、游标的名称必须与包说明中的过程、函数、游标一致，包括名称、参数的名称以及参数的模式（IN、OUT、IN OUT）。并建设按包说明中的次序定义包体中具体的实现。
   在包体中声明的数据类型、变量、常量都是私有的，只能在包体中使用而不能被印刷体外的应用程序访问与使用。
   在包体执行部分，可对包说明，包体中声明的公有或私有变量进行初始化或其它设置。
   创建程序包说明语法格式:
   1 CREATE [OR REPLACE] PACKAGE package_name
   2 [AUTHID {CURRENT_USER | DEFINER}]
   3 {IS | AS}
   4 [公有数据类型定义[公有数据类型定义]…]
   5 [公有游标声明[公有游标声明]…]
   6 [公有变量、常量声明[公有变量、常量声明]…]
   7 [公有函数声明[公有函数声明]…]
   8 [公有过程声明[公有过程声明]…]
   9 END [package_name];
   其中：AUTHID CURRENT_USER和AUTHID DEFINER选项说明应用程序在调用函数时所使用的权限模式，它们与CREATE FUNCTION语句中invoker_right_clause子句的作用相同。
   创建程序包主体语法格式:
   1 CREATE [OR REPLACE] PACKAGE BODY package_name
   2 {IS | AS}
   3 [私有数据类型定义[私有数据类型定义]…]
   4 [私有变量、常量声明[私有变量、常量声明]…]
   5 [私有异常错误声明[私有异常错误声明]…]
   6 [私有函数声明和定义[私有函数声明和定义]…]
   7 [私有函过程声明和定义[私有函过程声明和定义]…]
   8 [公有游标定义[公有游标定义]…]
   9 [公有函数定义[公有函数定义]…]
   10 [公有过程定义[公有过程定义]…]
   11 BEGIN
   12 执行部分(初始化部分)
   13 END package_name;
   其中：在包主体定义公有程序时，它们必须与包定义中所声明子程序的格式完全一致。
   7.3 包的开发步骤
   与开发存储过程类似，包的开发需要几个步骤：
   1．将每个存储过程调式正确；
   2．用文本编辑软件将各个存储过程和函数集成在一起；
   3．按照包的定义要求将集成的文本的前面加上包定义；
   4．按照包的定义要求将集成的文本的前面加上包主体；
   5．使用SQLPLUS或开发工具进行调式。
   7.4 包定义的说明
   例1:创建的包为DEMO_PKG, 该包中包含一个记录变量DEPTREC、两个函数和一个过程。实现对dept表的增加、删除与查询。
   1 CREATE OR REPLACE PACKAGE DEMO_PKG
   2 IS
   3 DEPTREC DEPT%ROWTYPE;
   4 —Add dept…
   5 FUNCTION add_dept(
   6 dept_no NUMBER,
   7 dept_name VARCHAR2,
   8 location VARCHAR2)
   9 RETURN NUMBER;
   10 —delete dept…
   11 FUNCTION delete_dept(dept_no NUMBER)
   12 RETURN NUMBER;
   13 —query dept…
   14 PROCEDURE query_dept(dept_no IN NUMBER);
   15 END DEMO_PKG;
   包主体的创建方法，它实现上面所声明的包定义，并在包主体中声明一个私有变量flag和一个私有函数check_dept，由于在add_dept和remove_dept等函数中需要调用check_dpet函数，所以，在定义check_dept 函数之前首先对该函数进行声明，这种声明方法称作前向声明。
   1 CREATE OR REPLACE PACKAGE BODY DEMO_PKG
   2 IS
   3 FUNCTION add_dept
   4 (
   5 dept_no NUMBER,
   6 dept_name VARCHAR2,
   7 location VARCHAR2
   8 )
   9 RETURN NUMBER
   10 IS
   11 empno_remaining EXCEPTION; —自定义异常
   12 PRAGMA EXCEPTION_INIT(empno_remaining, -1);
   13 / -1 是违反唯一约束条件的错误代码 _/
   14 BEGIN
   15 INSERT INTO dept VALUES(dept_no, dept_name, location);
   16 IF SQL%FOUND THEN
   17 RETURN 1;
   18 END IF;
   19 EXCEPTION
   20 WHEN empno_remaining THEN
   21 RETURN 0;
   22 WHEN OTHERS THEN
   23 RETURN -1;
   24 END add_dept;
   25 FUNCTION delete_dept(dept_no NUMBER)
   26 RETURN NUMBER
   27 IS
   28 BEGIN
   29 DELETE FROM dept WHERE deptno = dept_no;
   30 IF SQL%FOUND THEN
   31 RETURN 1;
   32 ELSE
   33 RETURN 0;
   34 END IF;
   35 EXCEPTION
   36 WHEN OTHERS THEN
   37 RETURN -1;
   38 END delete_dept;
   39 PROCEDURE query_dept
   40 (dept_no IN NUMBER)
   41 IS
   42 BEGIN
   43 SELECT * INTO DeptRec FROM dept WHERE deptno=dept_no;
   44 EXCEPTION
   45 WHEN NO_DATA_FOUND THEN
   46 DBMS_OUTPUT.PUT_LINE(‘温馨提示:数据库中没有编码为’||dept_no||’的部门’);
   47 WHEN TOO_MANY_ROWS THEN
   48 DBMS_OUTPUT.PUT_LINE(‘程序运行错误,请使用游标进行操作!’);
   49 WHEN OTHERS THEN
   50 DBMS_OUTPUT.PUT_LINE(SQLCODE||’——‘||SQLERRM);
   51 END query_dept;
   52 BEGIN
   53 Null;
   54 END DEMO_PKG;
   对包内共有元素的调用格式为：包名.元素名称
   调用DEMO_PKG包内函数对dept表进行插入、查询和删除操作，并通过DEMO_PKG包中的记录变量DEPTREC显示所查询到的数据库信息：
   1 DECLARE
   2 Var NUMBER;
   3 BEGIN
   4 Var := DEMO_PKG.add_dept(90,’HKLORB’, ‘HAIKOU’);
   5 IF var =-1 THEN
   6 DBMS_OUTPUT.PUT_LINE(SQLCODE||’——‘||SQLERRM);
   7 ELSIF var =0 THEN
   8 DBMS_OUTPUT.PUT_LINE(‘温馨提示:该部门记录已经存在！’);
   9 ELSE
   10 DBMS_OUTPUT.PUT_LINE(‘温馨提示:添加记录成功！’);
   11 DEMO_PKG.query_dept(90);
   12 DBMS_OUTPUT.PUT_LINE(DEMO_PKG.DeptRec.deptno||’—-‘||
   13 DEMO_PKG.DeptRec.dname||’—-‘||DEMO_PKG.DeptRec.loc);
   14 var := DEMO_PKG.delete_dept(90);
   15 IF var =-1 THEN
   16 DBMS_OUTPUT.PUT_LINE(SQLCODE||’——‘||SQLERRM);
   17 ELSIF var=0 THEN
   18 DBMS_OUTPUT.PUT_LINE(‘温馨提示:该部门记录不存在！’);
   19 ELSE
   20 DBMS_OUTPUT.PUT_LINE(‘温馨提示:删除记录成功！’);
   21 END IF;
   22 END IF;
   23 END;
   7.5 子程序重载
   PL/SQL 允许对包内子程序和本地子程序进行重载。所谓重载时指两个或多个子程序有相同的名称，但拥有不同的参数变量、参数顺序或参数数据类型。
   例5：
   — 创建包说明
   CREATE OR REPLACE PACKAGE DEMO_PKG1
   IS
   DeptRec dept%ROWTYPE;
   V_sqlcode NUMBER;
   V_sqlerr VARCHAR2(2048);
   —两个子程序名字相同,但参数类型不同
   FUNCTION query_dept(dept_no IN NUMBER)
   RETURN INTEGER;
   FUNCTION query_dept(dept_no IN VARCHAR2)
   RETURN INTEGER;
   END DEMO_PKG1;

— 创建包体
CREATE OR REPLACE PACKAGE BODY DEMO_PKG1
IS
FUNCTION check_dept(dept_no NUMBER)
RETURN INTEGER
IS
deptCnt INTEGER; —指定部门号的部门数量
BEGIN
SELECT COUNT() INTO deptCnt FROM dept WHERE deptno = dept_no;
IF deptCnt > 0 THEN
RETURN 1;
ELSE
RETURN 0;
END IF;
END check_dept;
FUNCTION check_dept(dept_no VARCHAR2)
RETURN INTEGER
IS
deptCnt INTEGER;
BEGIN
SELECT COUNT() INTO deptCnt FROM dept WHERE deptno=dept_no;
IF deptCnt > 0 THEN
RETURN 1;
ELSE
RETURN 0;
END IF;
END check_dept;
FUNCTION query_dept(dept_no IN NUMBER)
RETURN INTEGER
IS
BEGIN
IF check_dept(dept_no) =1 THEN
SELECT INTO DeptRec FROM dept WHERE deptno=dept_no;
RETURN 1;
ELSE
RETURN 0;
END IF;
END query_dept;
FUNCTION query_dept(dept_no IN VARCHAR2)
RETURN INTEGER
IS
BEGIN
IF check_dept(dept_no) =1 THEN
SELECT INTO DeptRec FROM dept WHERE deptno = dept_no;
RETURN 1;
ELSE
RETURN 0;
END IF;
END query_dept;
END DEMO_PKG1;
7.6 加密实用程序
ORACLE 提供了一个实用工具来加密或者包装用户的PL/SQL，它会将用户的PL/SQL改变为只有ORACLE能够解释的代码版本．
WRAP 实用工具位于$ORACLE_HOME/BIN.
格式为：
WRAP INAME= [ONAME=]
wrap iname=e:\sample.txt
注意：在加密前，请将PL/SQL程序先保存一份，以备后用。
7.7 删除包
可以使用 DROP PACKAGE 命令对不需要的包进行删除，语法如下：

1 DROP PACKAGE [BODY] [user.]package_name;
2 DROP PROCEDURE OpenCurType; —删除存储过程
3 —删除我们实例中创建的各个包
4 DROP PACKAGE demo_pack;
5 DROP PACKAGE demo_pack1;
6 DROP PACKAGE emp_mgmt;
7 DROP PACKAGE emp_package;
7.8 包的管理
包与过程、函数一样，也是存储在数据库中的，可以随时查看其源码。若有需要，在创建包时可以随时查看更详细的编译错误。不需要的包也可以删除。
同样，为了避免调用的失败，在更新表的结构后，一定要记得重新编译依赖于它的程序包。在更新了包说明或包体后，也应该重新编译包说明与包体。
语法如下：
ALTER PACKAGE package_name COMPILE [PACKAGE|BODY|SPECIFICATION];
也可以通过以下数据字典视图查看包的相关。
DBA_SOURCE, USER_SOURCE, USER_ERRORS, DBA-OBJECTS
如，我们可以用：select text from user_source where name = ‘DEMO_PKG1’;来查看我们创建的包的源码。