【Oracle】程序包的相关问题

目录

程序包简介：

程序包的优点

对程序包的优点可总结如下：

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

程序包的定义：

创建包体时，有以下几点需要注意：

 创建包的语法格式：

  创建包体的语法格式：

包定义的说明

例1:

包主体的创建方法

删除包：

---

程序包简介：

    程序包(PACKAGE，简称包)是一组相关过程、函数、变量、常量和游标等PL/SQL程序设计元素的组合，作为一个完整的单元存储在数据库中，用名称来标识包。它具有面向对象程序设计语言的特点，是对这些PL/SQL 程序设计元素的封装。包类似于c#和JAVA语言中的类，其中变量相当于类中的成员变量，过程和函数相当于类方法。把相关的模块归类成为包，可使开发人员利用面向对象的方法进行存储过程的开发，从而提高系统性能。

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

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

程序包的优点

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

• 可以在设计一个应用程序时，只创建各编译程序包的说明部分，然后再编写引用该程序包的PL/SQL块。
• 当完成整个应用程序的整体框架后，再回头来定义包体部分。只要不改变包的说明部分，就可以单独调试、增加或替换包体的内容，这不会影响其他的应用程序。
• 更新包的说明后必须重新编译引用包的应用程序，但更新包体，则不需重新编译引用包的应用程序，以快速进行进行应用程序的原形开发。

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

信息隐藏：
因为包中的元素可以分为公有元素和私有元素。公有元素可被程序包内的过程、函数等的访问，还可以被包外的PL/SQL访问。但对于私有元素只能被包内的过程、函数等访问。对于用户，只需知道包的说明，不用了解包休的具体细节。

 效率高：
程序包在应用程序第一次调用程序包中的某个元素时，ORACLE将把整个程序包加载到内存中，当第二次访问程序包中的元素时，ORACLE将直接从内在中读取，而不需要进行磁盘I/O操作而影响速度，同时位于内在中的程序包可被同一会话期间的其它应用程序共享。因此，程序包增加了重用性并改善了多用户、多应用程序环境的效率。

对程序包的优点可总结如下：

在PL/SQL程序设计中，使用包不仅可以使程序设计模块化，对外隐藏包内所使用的信息（通过使用私用变量），而写可以提高程序的执行效率。因为，当程序首次调用包内函数或过程时，ORACLE将整个包调入内存，当再次访问包内元素时，ORACLE直接从内存中读取，而不需要进行磁盘I/O操作，从而使程序执行效率得到提高。

 

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

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

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

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

程序包的定义：

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

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

包体是包的具体实现细节，其实现在包说明中声明的所有公有过程、函数、游标等。当然也可以在包体中声明仅属于自己的私有过程、函数、游标等。

创建包体时，有以下几点需要注意：

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

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

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

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

 创建包的语法格式：

CREATE [OR REPLACE] PACKAGE package_name
  [AUTHID {CURRENT_USER | DEFINER}]
  {IS | AS}
  [公有数据类型定义[公有数据类型定义]…]
  [公有游标声明[公有游标声明]…]
  [公有变量、常量声明[公有变量、常量声明]…]
  [公有函数声明[公有函数声明]…]
  [公有过程声明[公有过程声明]…]
END [package_name];

  创建包体的语法格式：

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

包定义的说明

例1:

创建的包为demo_pkg,该包中包含一个记录变量deptrec、两个函数和一个过程。实现对dept表的增加、删除与查询。

create or replace package  demo_pkg
is
  deptrec dept%rowtype;
  
  --add dept...
  function add_dept(
           dept_no    number, 
           dept_name varchar2, 
           location  varchar2)
  return number;
  
  --delete dept...
  function delete_dept(dept_no number)
  return number;
  
  --query dept...
  procedure query_dept(dept_no in number);
end demo_pkg;

包主体的创建方法

它实现上面所声明的包定义，并在包主体中声明一个私有变量flag和一个私有函数check_dept，由于在add_dept和remove_dept等函数中需要调用check_dpet函数，所以，在定义check_dept 函数之前首先对该函数进行声明，这种声明方法称作前向声明。

create or replace package body demo_pkg
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 delete_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 delete_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_pkg;

删除包：

drop package name;