PL/SQL 包的创建和应用
一个包由两个分开的部分组成：
包定义（PACKAGE）：包定义部分声明包内数据类型、变量、常量、游标、子程序和异常错误处理等元素，这些元素为包的公有元素。
包主体（PACKAGE BODY）：包主体则是包定义部分的具体实现，它定义了包定义部分所声明的游标和子程序，在包主体中还可以声明包的私有元素。
包定义和包主体分开编译，并作为两部分分开的对象存放在数据库字典中，详见数据字典user_source, all_source, dba_source.
②包的定义
包定义的语法如下：
1.创建包定义:
CREATE[OR REPLACE] PACKAGE package_name
? ? [AUTHID {CURRENT_USER | DEFINER}]
{IS| AS}
? ? [公有数据类型定义[公有数据类型定义]…]
? ? [公有游标声明[公有游标声明]…]
? ? [公有变量、常量声明[公有变量、常量声明]…]
? ? [公有子程序声明[公有子程序声明]…]
END[package_name];
其中：AUTHID CURRENT_USER和AUTHID DEFINER选项说明应用程序在调用函数时所使用的权限模式，
它们与CREATE FUNCTION语句中invoker_right_clause子句的作用相同。
创建包主体:
CREATE[OR REPLACE] PACKAGE BODYpackage_name
{IS| AS}
? ? [私有数据类型定义[私有数据类型定义]…]
? ? [私有变量、常量声明[私有变量、常量声明]…]
? ? [私有子程序声明和定义[私有子程序声明和定义]…]
? ? [公有游标定义[公有游标定义]…]
? ? [公有子程序定义[公有子程序定义]…]
BEGIN
? ? PL/SQL 语句
END[package_name];
其中：在包主体定义公有程序时，它们必须与包定义中所声明子程序的格式完全一致。
对包内共有元素的调用格式为：包名.元素名称
③子程序重载
PL/SQL 允许对包内子程序和本地子程序进行重载。
所谓重载时指两个或多个子程序有相同的名称，但拥有不同的参数变量、参数顺序或参数数据类型。
④删除包
可以使用DROP PACKAGE命令对不需要的包进行删除，语法如下：
DROP PACKAGE [BODY] [user.]package_name;
⑤包的管理
DBA_SOURCE, USER_SOURCE, USER_ERRORS, DBA-OBJECTS
⑥例子：
创建的包为demo_pack, 该包中包含一个记录变量DeptRec、两个函数和一个过程。
CREATE OR REPLACE PACKAGE demo_pack
IS
? ? DeptRec dept%ROWTYPE;
? ? FUNCTION add_dept(dept_no NUMBER, dept_name VARCHAR2, location VARCHAR2)
? ? ? ? RETURN NUMBER;
? ? FUNCTION remove_dept(dept_no NUMBER)
? ? ? ? RETURN NUMBER;
? ? PROCEDURE query_dept(dept_no IN NUMBER);
END demo_pack
包主体的创建方法，它实现上面所声明的包定义
CREATE OR REPLACE PACKAGE BODY demo_pack
IS
? ? --函数定义
? ? FUNCTION add_dept(dept_no NUMBER, dept_name VARCHAR2, location VARCHAR2)
? ? ? ? RETURN NUMBER
? ? IS
? ? ? ? empno_remaining EXCEPTION;
? ? ? ? PRAGMA EXCEPTION_INIT(empno_remaining, -1);
? ? ? ? /* -1 是违反唯一约束条件的错误代码*/
? ? BEGIN
? ? ? ? INSERT INTO dept VALUES(dept_no, dept_name, location);
? ? ? ? IF SQL%FOUND THEN
? ? ? ? ? ? RETURN 1;
? ? ? ? END IF;
? EXCEPTION
? ? ? ? WHEN empno_remaining THEN
? ? ? ? ? ? RETURN 0;
? ? ? ? WHEN OTHERS THEN
? ? ? ? ? ? RETURN -1;
? END add_dept;
? --函数定义
? FUNCTION remove_dept(dept_no NUMBER)
? ? ? RETURN NUMBER
? IS
? BEGIN
? ? ? DELETE FROM dept WHERE deptno=dept_no;
? ? ? IF SQL%FOUND THEN
? ? ? ? ? RETURN 1;
? ? ? ELSE
? ? ? ? ? RETURN 0;
? ? ? END IF;
? EXCEPTION
? ? ? WHEN OTHERS THEN
? ? ? ? ? RETURN -1;
? END remove_dept;
? --过程定义
? PROCEDURE query_dept(dept_no IN NUMBER)
? IS
? BEGIN
? ? ? SELECT * INTO DeptRec FROM dept WHERE deptno=dept_no;
? EXCEPTION
? ? ? WHEN NO_DATA_FOUND THEN?
? ? ? ? ? DBMS_OUTPUT.PUT_LINE('数据库中没有编码为'||dept_no||'的部门');
? ? ? WHEN TOO_MANY_ROWS THEN
? ? ? ? ? DBMS_OUTPUT.PUT_LINE('程序运行错误!请使用游标');
? ? ? WHEN OTHERS THEN
? ? ? ? ? DBMS_OUTPUT.PUT_LINE(SQLCODE||’----‘||SQLERRM);
? END query_dept;
BEGIN
? Null;
END demo_pack;
--------------------------------------分割线 --------------------------------------
--------------------------------------分割线 --------------------------------------