Oracle 中的 程序包

一、程序包介绍

程序包(PACKAGE，简称包)是一组相关过程、函数、变量、常量和游标等PL/SQL程序设计元素的组合，作为一个完整的单元存储在数据库中，用名称来标识包。它具有面向对象程序设计语言的特点，是对这些PL/SQL 程序设计元素的封装。

包类似于c#和JAVA语言中的类，其中变量相当于类中的成员变量，过程和函数相当于类方法。把相关的模块归类成为包，可使开发人员利用面向对象的方法进行存储过程的开发，从而提高系统性能。

与高级语言中的类相同，包中的程序元素也分为公用元素和私用元素两种，这两种元素的区别是他们允许访问的程序范围不同，即它们的作用域不同。公用元素不仅可以被包中的函数、过程所调用，也可以被包外的PL/SQL程序访问，而私有元素只能被包内的函数和过程序所访问。

当然，对于不包含在程序包中的过程、函数是独立存在的。一般是先编写独立的过程与函数，待其较为完善或经过充分验证无误后，再按逻辑相关性组织为程序包。

二、程序包组成

一个包由两个分开的部分组成：

1、包说明（PACKAGE）：包说明部分声明包内数据类型、变量、常量、游标、子程序和异常错误处理等元素，这些元素为包的公有元素。

2、包主体（PACKAGE BODY）：包主体则是包定义部分的具体实现，它定义了包定义部分所声明的游标和子程序，在包主体中还可以声明包的私有元素。

注意：包说明和包主体分开编译，并作为两部分分开的对象存放在数据库字典中，可查看数据字典user_source, all_source, dba_source，分别了解包说明与包主体的详细信息。

三、程序包定义

程序包的定义分为程序包说明定义和程序包主体定义两部分组成。

程序包说明用于声明包的公用组件，如变量、常量、自定义数据类型、异常、过程、函数、游标等。包说明中定义的公有组件不仅可以在包内使用，还可以由包外其他过程、函数。但需要说明与注意的是，我们为了实现信息的隐藏，建议不要将所有组件都放在包说明处声明，只应把公共组件放在包声明部分。包的名称是唯一的，但对于两个包中的公有组件的名称可以相同，这种用“包名.公有组件名“加以区分。

包体是包的具体实现细节，其实现在包说明中声明的所有公有过程、函数、游标等。当然也可以在包体中声明仅属于自己的私有过程、函数、游标等。创建包体时，有以下几点需要注意：

1、包体只能在包说明被创建或编译后才能进行创建或编译。

2、在包体中实现的过程、函数、游标的名称必须与包说明中的过程、函数、游标一致，包括名称、参数的名称以及参数的模式（IN、OUT、IN OUT）。并建设按包说明中的次序定义包体中具体的实现。

3、在包体中声明的数据类型、变量、常量都是私有的，只能在包体中使用而不能被包体外的应用程序访问与使用。

4、在包体执行部分，可对包说明，包体中声明的公有或私有变量进行初始化或其它设置。

3.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子句的作用相同。

3.2、创建程序包主体语法格式:

CREATE   [ OR REPLACE ]  PACKAGE BODY package_name
  { IS   |   AS }
   [ 私有数据类型定义[私有数据类型定义 ] …]
   [ 私有变量、常量声明[私有变量、常量声明 ] …]
   [ 私有异常错误声明[私有异常错误声明 ] …]
   [ 私有函数声明和定义[私有函数声明和定义 ] …]
   [ 私有函过程声明和定义[私有函过程声明和定义 ] …]
   [ 公有游标定义[公有游标定义 ] …]
   [ 公有函数定义[公有函数定义 ] …]
   [ 公有过程定义[公有过程定义 ] …]
BEGIN
  执行部分(初始化部分)
END  package_name;

– 其中：在包主体定义公有程序时，它们必须与包定义中所声明子程序的格式完全一致。

四、案例说明

1、定义

create or replace package TEST_PAKE as
-- 存储过程
procedure test (
   p_arg1 in varchar2 ,
   p_arg2 out varchar2);
-- 函数
function test_func (
    p_arg1 in number )
    return varchar2;

end;

2、包体

create or replace package body TEST_PAKE as

    procedure test (
    p_arg1 in varchar2 ,  -- in输入参数，out输出参数
    p_arg2 out varchar2   ) 
    as
        id number; -- 参数
    begin
        p_arg2 := p_arg1;  -- 把输入参数赋值给输出参数
        dbms_output.put_line('执行存储过程'||p_arg1);
    end;

    function test_func (
    p_arg1 in number )
    return varchar2
    is 
        id number;
    begin
        dbms_output.put_line('执行函数');
        -- 把输出参数返回
        return p_arg1;
    end;

end TEST_PAKE;

3、调用

DECLARE
	name VARCHAR2(20);
    age number;
begin
	TEST_PAKE.test('李', name);
	dbms_output.put_line('姓名'|| name);
    age := TEST_PAKE.test_func(20);
    dbms_output.put_line('名字'|| name);
end;

4、执行结果