包用于逻辑组合相关的过程和函数,它由包规范和包体两部分组成,包规范用于定义公用的常量

变量,过程和函数,在SQL*PLUS中建立包规范可以使用CREATE PACKAGE命令。

实例如下:

CREATE OR REPLACE PACKAGE emp_pkg IS

  PROCEDURE update_sal(name VARCHAR2,newsal NUMBER);

  FUNCTION annual_incom(name VARCHAR2) RETURN NUMBER;

  END;

包头值包含了过程和函数的说明,而没有过程和函数的实现代码。包体用于实现包规范中的过程和函数,

在SQL*PLUS中建立包体可以使用CREATE PACKAGE BODY命令。实例如下:

CREATE OR REPLACE PACKAGE BODY EMP_PKG IS

PROCEDURE update_sal(name VARCHAR2,newsal NUMBER)

  IS

 BEGIN

   UPDATE EMP set sal=newsal

   where lower(ename)=lower(name);

   end;

FUNCTION annual_incom(name VARCHAR2) return number

  IS

  annual_salary NUMBER(7,2);

  begin

    select sal*12 + nvl(comm,0) INTO annual_salary

    from emp where lower(ename)=lower(name);

    RETURN annual_salary;

    end;

    end;

当调用包的过程和函数时,在过程和函数名之前必须要带有包名作为前缀(包名.子程序名),

而如果要访问其他方案的包,还必须要加方案名作为前缀(方案名.包名.子程序名).

SQL> set serveroutput on

SQL> exec emp_pkg.update_sal('scott',1500);

PL/SQL procedure successfully completed.

SQL> select emp_pkg.annual_incom('scott') from dual;

EMP_PKG.ANNUAL_INCOM('SCOTT')

-----------------------------

			18000