（精）Oracle包

一、包的概念

PL/SQL为了满足程序模块化的需要，除了块(block)和子程序结构外，还引入了包的构造。

（1）包是一种数据库对象，将逻辑上相关的PL/SQL类型、对象和子程序组合成一个更大的单位，是一组相关过程、函数、变量、常量和游标等PL/SQL程序设计元素的组合，它具有面向对象程序设计语言的特点，是对这些PL/SQL 程序设计元素的封装。

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

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

（4）PL/SQL的包具有信息隐蔽性(information hiding)，仅在算法和数据结构设计有关层可见。可将过程说明和过程体组成一个程序单位。也可将过程说明与它的过程体分开，在这种情况下，将过程放置在一个包中，可隐蔽实现的细节。也可在包中定义过程，而该过程在包说明中没有定义过程说明，这样定义的过程仅在包内使用。

（5）在PL/SQL程序设计中，使用包不仅可以使程序设计模块化，对外隐藏包内所使用的信息（通过使用私用变量），而写可以提高程序的执行效率。因为，当程序首次调用包内函数或过程时，ORACLE将整个包调入内存，当再次访问包内元素时，ORACLE直接从内存中读取，而不需要进行磁盘I/O操作，从而使程序执行效率得到提高。如果ORACLE具有Procedure选件，包可以编译、存贮在ORACLE数据库中，其内容可为许多应用共享。

 

二、包的作用

包可以将任何出现在块声明的语句(过程，函数，游标，游标，类型，变量)放于包中，相当于一个容器。将声明语句放入包中的好处是:用户可以从其他PL/SQL块中对其进行引用，因此包为PL/SQL提供了全程变量。

三、包定义：

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

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

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

---如果在包主体中的游标或子程序没有在包并没有在包头中定义，那么这个游标或子程序是私有的。

（4）包定义和包主体分开编译，并作为两部分分开的对象存放在数据库字典中。

（包定义一定要在包主体前面，包主体可以没有，但包定义一定要有）

包定义格式：
      CREATE [OR REPLACE] PACKAGE package_name
{IS | AS}
                   [公有数据类型定义[公有数据类型定义]…]
                   [公有游标声明[公有游标声明]…]
                   [公有变量、常量声明[公有变量、常量声明]…]
                   [公有子程序声明[公有子程序声明]…]
END [package_name];

包体定义格式：
CREATE [OR REPLACE] PACKAGE BODY package_name
{IS | AS}
                    [私有数据类型定义[私有数据类型定义]…]
                   [私有变量、常量声明[私有变量、常量声明]…]
                   [私有子程序声明和定义[私有子程序声明和定义]…]
                   [公有子程序定义[公有子程序定义]…]
BEGIN
                   PL/SQL 语句
END [package_name];
其中：在包主体定义公有程序时，它们必须与包定义中所声明子程序的格式完全一致。

plsqlDeveloper给出的例子

包头：

create or replace package mypackage is     -- Author  :   -- Created : 2010-6-13 15:06:17   -- Purpose :     -- Public type declarations   type <TypeName> is <Datatype>;     -- Public constant declarations   <ConstantName> constant <Datatype> := <Value>;     -- Public variable declarations   <VariableName> <Datatype>;     -- Public function and procedure declarations   function <FunctionName>(<Parameter> <Datatype>) return <Datatype>;   end mypackage;

 

包体：

create or replace package mypackage is     -- Author  :   -- Created : 2010-6-13 15:06:17   -- Purpose :     -- Public type declarations   type <TypeName> is <Datatype>;     -- Public constant declarations   <ConstantName> constant <Datatype> := <Value>;     -- Public variable declarations   <VariableName> <Datatype>;     -- Public function and procedure declarations   function <FunctionName>(<Parameter> <Datatype>) return <Datatype>;   end mypackage;

 

  定义包头应当遵循以下原则：

  1) 包元素位置可以任意安排。然而在声明部分，对象必须在引用前进行声明。

2) 包头可以不对任何类型的元素进行说明。例如，包头可以只带过程和函数说明语句，而不声明任何异常和类型。

  3) 对过程和函数的任何声明都必须只对子程序和其参数进行描述，不能有任何代码的说明，代码的实现只能在包体中出现。它不同于块声明，在块声明中，过程和函数的代码可同时出现在声明部分。

包体是与包头相互独立的 ， 包体只能在包头完成编译后才能进行编译。 包体中带有包头中描述的子程序的具体实现的代码段。 除此之外 ， 包体还可以包括具有包体人全句属性的附加声明部分， 但这些附加声明对于包头是不见的。

 

包不能嵌入在PL/SQL块或子程序中，然而使用支持PL/SQL的任何工具可定义包。要使包为全体使用，必须用CREATE命令建立，存贮在一个ORACLE数据库中。可在SQL*PLUS、SQL*DBA或从ORACLE预编译宿主程序中利用CREATE PACKAGE和CREATE PACKAGE BODY 语句建立。

四、包的开发步骤：

与开发存储过程类似，包的开发需要几个步骤：

将每个存储过程调式正确

用文本编辑软件将各个存储过程和函数集成在一起

按照包的定义要求将集成的文本的前面加上包定义

按照包的定义要求将集成的文本的前面加上包主体

使用开发工具进行调式

注意:包的名称和包体的名称要保持一致

五、包举例

（1）定义包：

create or replace package mypackage is   -- 声明全局常量   c_pi constant number := 3.14;   -- 计算圆面积   function getArea(id in number) return number; end mypackage;

（2）定义包体：

create or replace package body mypack is          function getArea(r in number)          return number          is             v_area number;          begin              v_area := r*r* c_pi;                  return v_area;          end; end;

（3）调用包：

A  declare              v_area number; begin               v_area := mypack.getArea(5);               dbms_output.put_line(v_area); end;    B　select mypack.getArea(10) from dual;

 

六、重载 : 包中的函数和过程可以重载

以下条件不能重载:

1.如果两个子程序的参数仅在名称和类型上不同，这两个程序不能重载。

PROCEDURE overloadME(p_theparameter IN number);

PROCEDURE overloadME(p_theparameter OUT number);

IN，OUT为参数类型，number为数据类型。两个过程仅在类型上不同时不能重载。

2.不能根据两个函数的返回类型对其重载

如:

FUNCTION overloadMeETooRETURN DATE;

FUNCTION overloadMeETooRETURN NUMER;

3.重载子程序的参数的类族必须不同，例如，由于CHAR和VARCHAR2属性同一类族，所以不能重载。

PROCEDUREoverloadME(p_theparameter IN char);

PROCEDUREoverloadME(p_theparameter IN varchar2);

4.打包子程序也可以重载

5.包的初始化

当第一次调用打包子程序时，该包将进行初始化。也就是说，将该包从硬盘中读入到内存，并启用调用的子程序的编译代码。这时，系统为该包中定义的所有变量分配内存单元。每个会话都有打其打开包变量的副本，以确保执行同一个包子程序的两个会话使用不同的内存单元。

在大多数情况下，初始化代码要在包第一次初始化时运行。为了实现这一功能，可以在包体中的所有对象之后加入一个初始化代码。

语法格式:

CREATE OR REPLACE PACKAGE BODY package_name

IS|AS

............

BEGIN

Initialization_code;--要运行的初始化代码

 

END;

七、ORACLE内置包

1.DBMS_ALERT包:用于数据库报警，允许会话间通信

2.DBMS_JOB:用于任务调度服务

3.DBMS_LOB:用于处理大对象操作

4.DBMS_PIPE包:用于数据库管道，允许会话间通信

5.DBMS_SQL包:用于执行动态SQL

6.UTL_FILE包:用于文件的输入输出

除了UTL_FILE包存储在服务器和客户端外，其他的包均存储在服务器中。

八、总结

     包可以理解为java中的类，这样在学习的时候更容易理解，包经常和存储过程一起使用，下面附上一个和存储过程一起应用的实例。有关存储过程的文章请参看我近期即将完成的另一篇文章。

create or replace package TestPackage is   type mycursor is ref cursor;   procedure GetRecords(ret_cursor out mycursor); end TestPackage;   create or replace package body TestPackage is   procedure GetRecords(ret_cursor out mycursor) as begin open ret_cursor for select * from emp; end GetRecords; end TestPackage; drop procedure testproc; create procedure testproc(ret_cursor out sys_refcursor) as begin   open ret_cursor for     select * from emp; end testproc;