Oracle package包头和package body包体例子

本文系转载，原文地址：http://blog.itpub.net/26435490/viewspace-1078212/

一 包的组成

• • 包头(package)：包头部分申明包内数据类型，常量，变量，游标，子程序和异常错误处理，这些元素为包的公有元素。
  • 包主体(package body)：包主体则是包定义部分的具体实现，它负责为包头中所声明子程序提供具体的实现，在包主体中还可以声明包的私有元素。
  • 包头和包主体分开编译，并作为两个分开的对象分别存放在数据库字典中。

二  包的语法规则

包头的语法如下：

create or replace package 包名
As | IS
          procedure 过程名();
          Function 函数名() return 数据类型;
           变量定义;
          异常定义;
          光标定义;
          ...........
          ...........
End 包名;

包体创建 的语法：

create or replace Package Body 包名
As | IS
            Procedure 过程定义;
            Procedure 过程定义;
             Function 函数定义;
            Function 函数定义;
                .........;

end 包名;

三 包的应用与举例

下面是student 和SC表的定义：

CREATE TABLE Student
       (Sno CHAR(9) PRIMARY KEY,
        Sname CHAR(20) NOT NULL, 
        Ssex CHAR(4),
        Sage SMALLINT,
        Sdept CHAR(20)) tablespace starivespace;


CREATE TABLE SC
         (Sno CHAR(9) NOT NULL,
          Cno CHAR(6) NOT NULL, 
          Grade SMALLINT,
          PRIMARY KEY (Sno,Cno),
          constraint f1 FOREIGN KEY (Sno) REFERENCES Student(Sno),
          FOREIGN KEY (Cno) REFERENCES Course(Cno)
      ) tablespace starivespace

实例：定义一个包，实现如果功能： 输入学号，分别返回该学生的所在系和相应的选课成绩（如果有多门成绩，那么就输出多门成绩）。

定义包头：

1. create or replace
     package sdept_or_grade as
      procedure print_sdept(psno char);
      procedure print_grade(psno char);
      end;
      /
   

   
   
   
2. 
   
3. 程序包已创建。

创建包体：

create or replace
package body sdept_or_grade 
as
procedure print_sdept(psno char) as
    psdept student.sdept%type;
begin
     select sdept into psdept
    from student
    where sno=psno;
    dbms_output.put_line(psdept);
    exception
    when no_data_found then
        dbms_output.put_line(\'Invalid student number\');
end;
procedure print_grade(psno char) as
    pgrade SC.grade%type;
cursor printgrade is select grade into pgrade
    from sc
    where sno=psno;

begin
    open printgrade;
   loop
    fetch printgrade into pgrade;
        dbms_output.put_line(pgrade);
exit when printgrade%notfound;
end loop;
close printgrade;
exception
    when no_data_found then
        dbms_output.put_line(\'Invalid student number\');
end;
end;
/

程序包体已创建。

获取结果：

SQL> set serveroutput on;
SQL>
SQL> execute sdept_or_grade.print_sdept(\'0201\');
cs

PL/SQL 过程已成功完成。

SQL>
SQL> execute sdept_or_grade.print_grade(\'0201\');
89
64
50
50

PL/SQL 过程已成功完成。

四  心得体会

从以上例子，和以往在实际应用中额经验，对包的优点总结如下：

第一  包可以简化应用程序设计：程序包的说明部分和包体部分可以分别创建各编译。体现在以下三个方面：

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

2)        当完成整个应用程序的整体框架后，再回头来定义包体部分。只要不改变包的说明部分，就可以单独调试、增加或替换包体的内容，这不会影响其他的应用程序。

3)        更新包的说明后必须重新编译引用包的应用程序，但更新包体，则不需重新编译引用包的应用程序，以快速进行应用程序的原形开发。

第二   模块化：可将逻辑相关的PL/SQL块或元素等组织在一起，用名称来唯一标识程序包。把一个大的功能模块划分人适当个数小的功能模块，分别完成各自的功能。这样组织的程序包都易于编写，易于理解更易于管理。

第三     效率高：程序包在应用程序第一次调用程序包中的某个元素时，ORACLE将把整个程序包加载到内存中，当再次访问程序包中的元素时，将直接从内在中读取，而不需要进行磁盘I/O操作而影响速度，同时位于内在中的程序包可被同一会话期间的其它应用程序共享。因此，程序包增加了重用性并改善了多用户、多应用程序环境的效率。
最后   还有提到一点： 信息隐藏。因为包中的元素可以分为公有元素和私有元素。公有元素可被程序包内的过程、函数等的访问，还可以被包外的PL/SQL访问。但对于私有元素只能被包内的过程、函数等访问。对于用户，只需知道包的说明，不用了解包休的具体细节（由于时间关系，明天继续贴出“信息隐藏”的相关例子）。

补充说明:包头和包体可以以java的接口来理解，包头像java的接口，包体像java接口的实现类。