PL/SQL-->包的创建与管理

PL/SQL-->包的创建与管理

      包，是一个逻辑集合，是PL/SQL类型、PL/SQL项以及PL/SQL子程序的集合。PL/SQL类型包括table类型，record类型。PL/SQL项则包括游标，游标变量。PL/SQL子程序包括过程，函数等。可以说包可谓是包罗万象。包是所有PL/SQL相关资源的汇总。

      包的使用可以简化应用程序设计，实现信息掩藏，子程序重载等功能。

      包的优点
              1.模块化：将函数，子程序全部融合在一起，使得成为一个有机的整体，封装了相关的结构。
              2.易于维护：整合了子程序，更易于维护。
              3.简化应用程序设计：包的声明与包体内容相分离。
              4.隐藏信息：私有对象不可访问，所有的包体内代码可以实现隐藏。
              5.节省I/O：一次编译，多次使用。


一、包的组成与创建语法

      包头：用于定义包的公共组件，如函数头，过程头，游标以及常量，变量等。包头中定义的公共组件可以在包内引用，也可以被其它子程序引用。

      包体：用于定义包头中定义过的过程和函数。包体内可以单独定义私有组件，包括变量，常量，过程和函数等。私有组件只能在包内使用，而不能被其它子程序所调用。

              一言以蔽之，包头定义包的声明及描述部分，而包体则定义了对应包的具体执行部分。

      创建包的语法：

              CREATE [OR REPLACE] PACKAGE package_name        --定义包头
              {AS|IS}
                      public_variable_declarations |
                      public_type_declarations |
                      public_exception_declarations |  
                      public_cursor_declarations |
                      function_declarations |
                      procedure_specifications
              END [package_name]  
   

              CREATE [OR REPLACE] PACKAGE BODY package_name    --定义包体，包体中的package_name应当与包头中的package_name相同
              {AS|IS}  
                      private_variable_declarations |
                      private_type_declarations |
                      private_exception_declarations |
                      private_cursor_declarations |  
                      function_declarations |
                      procedure_specifications  
              END [package_name]  


二、创建包               

      下面演示包的创建，基于用户scott创建，存储过程，函数等依赖于其下的对象

      1.创建包头

              CREATE OR REPLACE PACKAGE emp_package IS      --创建包头，包的名字为emp_package
                      g_deptno NUMBER(3) := 30;                            --定义一个公共变量g_deptno
                      PROCEDURE add_employee(eno NUMBER, name VARCHAR2, salary NUMBER, dno NUMBER DEFAULT g_deptno); --声明过程
                      PROCEDURE fire_employee(eno NUMBER);                                                                                                                    --声明过程
                      FUNCTION get_sal(eno NUMBER) RETURN NUMBER;                                                                                                      --声明函数
              END emp_package;
              /

      2.创建包体  

              CREATE OR REPLACE PACKAGE BODY emp_package IS      --创建包体，注意，包体中包的名字必须与包头的名字相一致
           
                      FUNCTION validate_deptno(v_deptno NUMBER) RETURN BOOLEAN  --创建一个私有函数,注：此私有函数不能被该包外子程序调用
                      IS
                              v_temp INT;
                      BEGIN
                              SELECT 1 INTO v_temp FROM dept WHERE deptno = v_deptno;
                              RETURN TRUE;
                      EXCEPTION
                              WHEN NO_DATA_FOUND THEN
                                      RETURN FALSE;
                      END;

                      PROCEDURE add_employee    --创建添加雇员的过程
                              (eno NUMBER, name VARCHAR2, salary NUMBER, dno NUMBER DEFAULT g_deptno) IS
                      BEGIN
                              IF validate_deptno(dno) THEN    --该过程调用了包内的一个函数validate_deptno来验证dno的有效性
                                      INSERT INTO emp(empno, ename, sal, deptno) VALUES(eno, name, salary, dno);
                              ELSE
                                      RAISE_APPLICATION_ERROR(-20000, '不存在该部门');
                              END IF;
                      EXCEPTION
                              WHEN DUP_VAL_ON_INDEX THEN
                                      RAISE_APPLICATION_ERROR(-20011, '该雇员已存在');
                      END;

                      PROCEDURE fire_employee(eno NUMBER) IS  --创建解除雇员的过程
                      BEGIN
                              DELETE FROM emp WHERE empno = eno;
                              IF SQL%NOTFOUND THEN
                                      RAISE_APPLICATION_ERROR(-20012, '该雇员不存在');
                              END IF;
                      END;

                      FUNCTION get_sal(eno NUMBER) RETURN NUMBER IS  --创建函数get_sal返回雇员的薪水
                              v_sal emp.sal%TYPE;
                      BEGIN
                              SELECT sal INTO v_sal FROM emp WHERE empno = eno;
                              RETURN v_sal;
                      EXCEPTION
                              WHEN NO_DATA_FOUND THEN
                                      RAISE_APPLICATION_ERROR(-20012, '该雇员不存在');
                      END;
              END emp_package;
              /

      3.创建仅包含包头的包(仅包含包头的包也可以被调用，具体参照后面的包的调用)

              CREATE OR REPLACE PACKAGE global_int
              IS
                  g_positive  CONSTANT NUMBER:=10;
                  g_negative CONSTANT NUMBER:=-10;
              END global_int;


三、包的调用

              包的私有对象只能在包内调用。如上面的例子中对包内私有函数validate_deptno进行了直接调用

              包的公共对象，既可以在包内调用，也可以由其他应用程序调用。使用其他应用程序调用时的方法：包名.包对象

      1.调用包的公共变量

              scott@ORCL> exec emp_package.g_deptno:=10;

             
      2.调用包的公共过程

              scott@ORCL> exec emp_package.add_employee(2222,'Robinson',3000); --此调用未指定部门号，则使用缺省值,但前面执行了
                                                                                                                                                --exec emp_package.g_deptno:=10;故部门号变为10                                         
              scott@ORCL> exec emp_package.add_employee(3333,'Jackson',4000,20);

              scott@ORCL> select * from emp where empno in(2222,3333);

                        EMPNO ENAME          JOB                          MGR HIREDATE                SAL            COMM        DEPTNO
              ---------- ---------- --------- ---------- --------- ---------- ---------- ----------
                          2222 Robinson                                                                              3000                                      10
                          3333 Jackson                                                                                4000                                      20           

                   
      3.调用包的公共函数

              scott@ORCL> var sal number
              scott@ORCL> exec :sal:=emp_package.get_sal(7788);
              PL/SQL procedure successfully completed.

              scott@ORCL> print sal

                            SAL
              ----------
                          310           

                   
      4.以不同用户身份调用包.需要使用schema名字来调用，即：用户名.包名.包对象名

              scott@ORCL> conn lion/lion    --注意帐户需要具有执行所调用包的权限

              lion@ORCL> exec scott.emp_package.fire_employee(2222);         


      5.调用远程数据库包的公共对象。调用方法:包名.包对象名@数据库链接名

              sys@ASMDB> create database link orcl
                  2  connect to lion identified by lion
                  3  using 'orcl';

              Database link created.

              sys@ASMDB> exec scott.emp_package.add_employee@orcl(4444,'Richard',4000);

              BEGIN scott.emp_package.add_employee@orcl(4444,'Richard',4000); END;
                          *
              ERROR at line 1:
              ORA-06550: line 1, column 7:    --注意远程调用时，对于缺省的参数不适用，需要明确指定参数
              PLS-00424: RPC defaults cannot include Package State
              ORA-06550: line 1, column 7:
              PL/SQL: Statement ignored   

              sys@ASMDB> exec scott.emp_package.add_employee@orcl(4444,'Richard',4000,20);  --调用被成功执行

              PL/SQL procedure successfully completed.

           
      6.无包体包的调用(使用前面创建的包global_int)     

              scott@ORCL> BEGIN
                  2  DBMS_OUTPUT.PUT_LINE('Result is : '||2*global_int.g_positive); --使用包DBMS_OUTPUT来调用
                  3  END;
                  4  /

              Result is : 20

              PL/SQL procedure successfully completed.     

           
              scott@ORCL> CREATE OR REPLACE FUNCTION f_negative(m number)    --将包嵌入到函数之中
                  2  RETURN NUMBER
                  3  IS
                  4  BEGIN
                  5      RETURN(m*global_int.g_negative);
                  6  END f_negative;
                  7  /

              Function created.

              scott@ORCL> EXEC DBMS_OUTPUT.PUT_LINE(f_negative(2));
           
              -20

              PL/SQL procedure successfully completed.

           
四、包的管理

      1.查看包

              scott@ORCL> select line,text from user_source              --查看包头
                  2  where name='EMP_PACKAGE' and type='PACKAGE';

                          LINE TEXT
              ---------- ------------------------------------------------------------
                                1 PACKAGE emp_package IS
                                2    g_deptno NUMBER(3) := 30;
                                3    PROCEDURE add_employee(eno NUMBER, name VARCHAR2, salary NUMBER, dno NUMBER DEFAULT g_deptno);
                                4    PROCEDURE fire_employee(eno NUMBER);
                                5    FUNCTION get_sal(eno NUMBER) RETURN NUMBER;
                                6 END emp_package;


              scott@ORCL> select line,text from user_source        --查看包体
                  2  where name='EMP_PACKAGE' and type='PACKAGE BODY';

                          LINE TEXT
              ---------- --------------------------------------------------------------------------------
                                1 PACKAGE BODY emp_package IS
                                2    FUNCTION validate_deptno(v_deptno NUMBER) RETURN BOOLEAN IS
                                3        v_temp INT;
                                4    BEGIN
                                5        SELECT 1 INTO v_temp FROM dept WHERE deptno = v_deptno;
                                6        RETURN TRUE;
                                                      ......................
                               

      2.查看包的参数

              scott@ORCL> desc emp_package;

              PROCEDURE ADD_EMPLOYEE
                Argument Name                                  Type                                      In/Out Default?
                ------------------------------ ----------------------- ------ --------
                ENO                                                      NUMBER                                  IN
                NAME                                                    VARCHAR2                              IN
                SALARY                                                NUMBER                                  IN
                DNO                                                      NUMBER                                  IN        DEFAULT

              PROCEDURE FIRE_EMPLOYEE
                Argument Name                                  Type                                      In/Out Default?
                ------------------------------ ----------------------- ------ --------
                ENO                                                      NUMBER                                  IN

              FUNCTION GET_SAL RETURNS NUMBER
                Argument Name                                  Type                                      In/Out Default?
                ------------------------------ ----------------------- ------ --------
                ENO                                                      NUMBER                                  IN
 

      3.包的删除

              DROP PACKAGE package_name    --同时删除包体和包头

              scott@ORCL> DROP PACKAGE global_int;

              删除包体，保留包头

                      DROP PACKAGE BODY package_name    --删除包体
                 
              scott@ORCL> drop package body emp_package;
              Package body dropped.


      4.包的编译

                  重新编译包规范和包体：alter package...compile
                  重新编译包规范：alter package...compile specification
                  重新编译包体：alter package...compile body
     

五、总结

      创键包体之前应该先创建包头

      包头应当仅仅包含那些希望作为公共对象的部分

      包头的声明应包含尽可能少的结构信息

      任意包头的变更，需要重新编译该包内的子程序

      在包头内定义的任意公共对象可以被任意内部或外部子程序调用

      包体内的私有对象仅仅能被该包体内的子程序调用

转自：http://blog.csdn.net/robinson_0612/article/details/6084475