Oracle PL/SQL编程详解之七:程序包的创建与应用

Oracle PL/SQL编程详解之七:程序包的创建与应用Oracle PL/SQL编程详解之七:程序包的创建与应用(聪明在于学习,天才在于积累!) 本篇主要内容如下:第七章  程序包的创建和应用7.1  程序包简介7.2  程序包的定义7.3  包的开发步骤7.4  包定义的说明7.5  子程序重载7.6  加密实用程序7.7  删除包7.8  包的管理  7.1  程序包简介    程序

大家好,又见面了,我是你们的朋友全栈君。

Oracle PL/SQL编程详解之七:程序包的创建与应用(聪明在于学习,天才在于积累!)

 


本篇主要内容如下:

第七章  程序包的创建和应用

7.1  程序包简介

7.2  程序包的定义

7.3  包的开发步骤

7.4  包定义的说明

7.5  子程序重载

7.6  加密实用程序

7.7  删除包

7.8  包的管理

 


 7.1  程序包简介

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

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

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

 

程序包的优点

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

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

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

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

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

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

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

 

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

 

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

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

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

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

7.2  程序包的定义

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

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

包体是包的具体实现细节,其实现在包说明中声明的所有公有过程、函数、游标等。当然也可以在包体中声明仅属于自己的私有过程、函数、游标等。创建包体时,有以下几点需要注意:

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

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

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

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

 

创建程序包说明语法格式:

 

CREATE
 
[
OR REPLACE
]
 PACKAGE package_name
  

[
AUTHID {CURRENT_USER | DEFINER}
]

  {

IS
 
|
 
AS
}
  

[
公有数据类型定义[公有数据类型定义
]
…]
  

[
公有游标声明[公有游标声明
]
…]
  

[
公有变量、常量声明[公有变量、常量声明
]
…]
  

[
公有函数声明[公有函数声明
]
…]
  

[
公有过程声明[公有过程声明
]
…]

END
 
[
package_name
]
;

 

 

其中:AUTHID CURRENT_USERAUTHID DEFINER选项说明应用程序在调用函数时所使用的权限模式,它们与CREATE FUNCTION语句中invoker_right_clause子句的作用相同。

 

创建程序包主体语法格式:

CREATE
 
[
OR REPLACE
]
 PACKAGE BODY package_name
  {

IS
 
|
 
AS
}
  

[
私有数据类型定义[私有数据类型定义
]
…]
  

[
私有变量、常量声明[私有变量、常量声明
]
…]
  

[
私有异常错误声明[私有异常错误声明
]
…]
  

[
私有函数声明和定义[私有函数声明和定义
]
…]
  

[
私有函过程声明和定义[私有函过程声明和定义
]
…]
  

[
公有游标定义[公有游标定义
]
…]
  

[
公有函数定义[公有函数定义
]
…]
  

[
公有过程定义[公有过程定义
]
…]

BEGIN

  执行部分(初始化部分)

END
 package_name;

 

 

其中:在包主体定义公有程序时,它们必须与包定义中所声明子程序的格式完全一致。

7.3  包的开发步骤

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

1.   将每个存储过程调式正确;

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

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

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

5.   使用SQLPLUS或开发工具进行调式。

7.4  包定义的说明

例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;

 

 

   对包内共有元素的调用格式为:包名.元素名称

 

 

调用DEMO_PKG包内函数对dept表进行插入、查询和删除操作,并通过DEMO_PKG包中的记录变量DEPTREC显示所查询到的数据库信息:

DECLARE

    

Var
 
NUMBER
;

BEGIN

    

Var
 :
=
 DEMO_PKG.add_dept(
90
,

HKLORB



HAIKOU

);
    

IF
 
var
 
=-
1
 
THEN

        DBMS_OUTPUT.PUT_LINE(SQLCODE

||

—-

||
SQLERRM);
    ELSIF 

var
 
=
0
 
THEN

        DBMS_OUTPUT.PUT_LINE(


温馨提示:该部门记录已经存在!

);
    

ELSE

        DBMS_OUTPUT.PUT_LINE(


温馨提示:添加记录成功!

);
        DEMO_PKG.query_dept(

90
);
        DBMS_OUTPUT.PUT_LINE(DEMO_PKG.DeptRec.deptno

||



||

         DEMO_PKG.DeptRec.dname

||



||
DEMO_PKG.DeptRec.loc);
        

var
 :
=
 DEMO_PKG.delete_dept(
90
);
        

IF
 
var
 
=-
1
 
THEN

            DBMS_OUTPUT.PUT_LINE(SQLCODE

||

—-

||
SQLERRM);
        ELSIF 

var
=
0
 
THEN

            DBMS_OUTPUT.PUT_LINE(


温馨提示:该部门记录不存在!

);
        

ELSE

            DBMS_OUTPUT.PUT_LINE(


温馨提示:删除记录成功!

);
        

END
 
IF
;
    

END
 
IF
;

END
;

 

 

 

例2: 创建包EMP_PKG,读取emp表中的数据

  


创建包说明


CREATE
 
OR
 
REPLACE
 PACKAGE EMP_PKG 

IS

  TYPE emp_table_type 

IS
 
TABLE
 
OF
 emp
%
ROWTYPE 
  

INDEX
 
BY
 BINARY_INTEGER;
  
  

PROCEDURE
 read_emp_table (p_emp_table OUT emp_table_type);

END
 EMP_PKG;



创建包体


CREATE
 
OR
 
REPLACE
 PACKAGE BODY EMP_PKG 

IS


PROCEDURE
 read_emp_table (p_emp_table OUT emp_table_type) 

IS

I BINARY_INTEGER :

=
 
0
;

BEGIN

   

FOR
 emp_record 
IN
 ( 
SELECT
 
*
 
FROM
 emp ) LOOP
      P_emp_table(i) :

=
 emp_record;
      I :

=
 I 
+
 
1
;
    

END
 LOOP;
  

END
 read_emp_table;

END
 EMP_PKG;



执行


DECLARE
 
  E_table EMP_PKG.emp_table_type;

BEGIN

  EMP_PKG.read_emp_table(e_table);
  

FOR
 I 
IN
 e_table.FIRST ..e_table.LAST LOOP
    DBMS_OUTPUT.PUT_LINE(e_table(i).empno

||

  

||
e_table(i).ename);
  

END
 LOOP;

END
;

 

例3: 创建包MANAGE_EMP_PKG,对员工进行管理(新增员工、新增部门、删除指定员工、删除指定部门、增加指定员工的工资与奖金)

  


创建序列从100开始,依次增加1


CREATE
 SEQUENCE empseq 
START 

WITH
 
100
 
INCREMENT 

BY
 
1
 

ORDER
 NOCYCLE;



创建序列从100开始,依次增加10


CREATE
 SEQUENCE deptseq
START 

WITH
 
100

INCREMENT 

BY
 
10
 

ORDER
 NOCYCLE;



 *******************************************


  

 创建包说明


  

 包   名:MANAGE_EMP_PKG 


  

 功能描述:对员工进行管理(新增员工,新增部门


  

            ,删除员工,删除部门,增加工资与奖金等)


  

 创建人员:胡勇


  

 创建日期:2010-05-19


  

 Q     Q: 80368704


  

 E-mail : 80368704@yahoo.com.cn


  

 WebSite: http://www.cnblogs.com/huyong


 ******************************************


CREATE
 
OR
 
REPLACE
 PACKAGE MANAGE_EMP_PKG 

AS

  


增加一名员工     


  
FUNCTION
 hire_emp
    (ename 

VARCHAR2
, job 
VARCHAR2

    , mgr 

NUMBER
, sal 
NUMBER

    , comm 

NUMBER
, deptno 
NUMBER
)
  

RETURN
 
NUMBER
;

  

新增一个部门


  
FUNCTION
 add_dept(dname 
VARCHAR2
, loc 
VARCHAR2
)
  

RETURN
 
NUMBER
;
  
  


删除指定员工


  
PROCEDURE
 remove_emp(empno 
NUMBER
);
  


删除指定部门


  
PROCEDURE
 remove_dept(deptno 
NUMBER
);
  


增加指定员工的工资


  
PROCEDURE
 increase_sal(empno 
NUMBER
, sal_incr 
NUMBER
);
  


增加指定员工的奖金


  
PROCEDURE
 increase_comm(empno 
NUMBER
, comm_incr 
NUMBER
);

END
 MANAGE_EMP_PKG;

创建包说明结束





 *******************************************


  

 创建包体


  

 包   名:MANAGE_EMP_PKG 


  

 功能描述:对员工进行管理(新增员工,新增部门


  

            ,删除员工,删除部门,增加工资与奖金等)


  

 创建人员:胡勇


  

 创建日期:2010-05-19


  

 Q     Q: 80368704


  

 E-mail : 80368704@yahoo.com.cn


  

 WebSite: http://www.cnblogs.com/huyong


 ******************************************


CREATE
 
OR
 
REPLACE
 PACKAGE BODY MANAGE_EMP_PKG 

AS

    total_emps  

NUMBER


员工数


    total_depts 
NUMBER


部门数


    no_sal    EXCEPTION;
    no_comm   EXCEPTION;
  


增加一名员工 


  
FUNCTION
 hire_emp(ename 
VARCHAR2
, job 
VARCHAR2
, mgr 
NUMBER
,
                       sal 

NUMBER
, comm 
NUMBER
, deptno 
NUMBER
)
  

RETURN
 
NUMBER
  

返回新增加的员工编号


  
IS

    new_empno 

NUMBER
(
4
);
  

BEGIN


SELECT
 empseq.NEXTVAL 
INTO
 new_empno 
FROM
 dual;

SELECT
 
COUNT
(
*

INTO
 total_emps 
FROM
 emp;

当前记录总数



    

INSERT
 
INTO
 emp 
    

VALUES
 (new_empno, ename, job, mgr, sysdate, sal, comm, deptno);
    total_emps:

=
total_emps
+
1
;
  

RETURN
(new_empno);
  EXCEPTION
     

WHEN
 OTHERS 
THEN

        DBMS_OUTPUT.PUT_LINE(


温馨提示:发生系统错误!

);
  

END
 hire_emp;
  
  


新增一个部门


  
FUNCTION
 add_dept(dname 
VARCHAR2
, loc 
VARCHAR2
)
  

RETURN
 
NUMBER
 
  

IS

    new_deptno 

NUMBER
(
4
); 

部门编号


  
BEGIN

    


得到一个新的自增的员工编号


    
SELECT
 deptseq.NEXTVAL 
INTO
 new_deptno 
FROM
 dual;
    

SELECT
 
COUNT
(
*

INTO
 total_depts 
FROM
 dept;

当前部门总数


    
INSERT
 
INTO
 dept 
VALUES
 (new_deptno, dname, loc);
    total_depts:

=
total_depts;
  

RETURN
(new_deptno);
  EXCEPTION
     

WHEN
 OTHERS 
THEN

        DBMS_OUTPUT.PUT_LINE(


温馨提示:发生系统错误!

);
  

END
 add_dept;
  
  


删除指定员工


  
PROCEDURE
 remove_emp(empno 
NUMBER

  

IS

    no_result EXCEPTION; 


自定义异常


  
BEGIN
 
    

DELETE
 
FROM
 emp 
WHERE
 emp.empno
=
remove_emp.empno;
    

IF
 SQL
%
NOTFOUND 
THEN

        RAISE no_result;
    

END
 
IF
;
    total_emps:

=
total_emps 

 
1


总的员工数减1


  EXCEPTION
     

WHEN
 no_result 
THEN
 
        DBMS_OUTPUT.PUT_LINE(


温馨提示:你需要的数据不存在!

);
     

WHEN
 OTHERS 
THEN

        DBMS_OUTPUT.PUT_LINE(


温馨提示:发生系统错误!

);
  

END
 remove_emp;
  
  


删除指定部门


  
PROCEDURE
 remove_dept(deptno 
NUMBER

  

IS

     no_result EXCEPTION; 


自定义异常


     exception_deptno_remaining EXCEPTION; 

自定义异常


     
/*
-2292 是违反一致性约束的错误代码
*/

     PRAGMA EXCEPTION_INIT(exception_deptno_remaining, 


2292
);
  

BEGIN

    

DELETE
 
FROM
 dept 
WHERE
 dept.deptno
=
remove_dept.deptno;
    
    

IF
 SQL
%
NOTFOUND 
THEN

        RAISE no_result;
    

END
 
IF
;
    total_depts:

=
total_depts

1


总的部门数减1


  EXCEPTION
     

WHEN
 no_result 
THEN
 
        DBMS_OUTPUT.PUT_LINE(


温馨提示:你需要的数据不存在!

);
     

WHEN
 exception_deptno_remaining 
THEN
 
        DBMS_OUTPUT.PUT_LINE(


温馨提示:违反数据完整性约束!

);
     

WHEN
 OTHERS 
THEN

        DBMS_OUTPUT.PUT_LINE(


温馨提示:发生系统错误!

);
  

END
 remove_dept;

  

给指定员工增加指定数量的工资


  
PROCEDURE
 increase_sal(empno 
NUMBER
, sal_incr 
NUMBER
)
  

IS

    curr_sal 

NUMBER
(
7

2
); 

当前工资


  
BEGIN

    


得到当前工资


    
SELECT
 sal 
INTO
 curr_sal 
FROM
 emp 
WHERE
 emp.empno
=
increase_sal.empno;
    
    

IF
 curr_sal 
IS
 
NULL
 
THEN
 
       RAISE no_sal;
    

ELSE

       

UPDATE
 emp 
SET
 sal 
=
 sal 
+
 increase_sal.sal_incr 

当前工资加新增的工资 


       
WHERE
 emp.empno 
=
 increase_sal.empno;
    

END
 
IF
;
    EXCEPTION
       

WHEN
 NO_DATA_FOUND 
THEN
 
          DBMS_OUTPUT.PUT_LINE(


温馨提示:你需要的数据不存在!

);
       

WHEN
 no_sal 
THEN
 
          DBMS_OUTPUT.PUT_LINE(


温馨提示:此员工的工资不存在!

);
       

WHEN
 OTHERS 
THEN
 
          DBMS_OUTPUT.PUT_LINE(


温馨提示:发生系统错误!

);
  

END
 increase_sal;
  
  


给指定员工增加指定数量的奖金


  
PROCEDURE
 increase_comm(empno 
NUMBER
, comm_incr 
NUMBER

  

IS

    curr_comm 

NUMBER
(
7
,
2
);
  

BEGIN
 
    


得到指定员工的当前资金


    
SELECT
 comm 
INTO
 curr_comm 
    

FROM
 emp 
WHERE
 emp.empno 
=
 increase_comm.empno;
    
    

IF
 curr_comm 
IS
 
NULL
 
THEN
 
       RAISE no_comm;
    

ELSE

      

UPDATE
 emp 
SET
 comm 
=
 comm 
+
 increase_comm.comm_incr
      

WHERE
 emp.empno
=
increase_comm.empno;
    

END
 
IF
;
  EXCEPTION
     

WHEN
 NO_DATA_FOUND 
THEN
 
        DBMS_OUTPUT.PUT_LINE(


温馨提示:你需要的数据不存在!

);
     

WHEN
 no_comm 
THEN
 
        DBMS_OUTPUT.PUT_LINE(


温馨提示:此员工的奖金不存在!

);
     

WHEN
 OTHERS 
THEN
 
        DBMS_OUTPUT.PUT_LINE(


温馨提示:发生系统错误!

);
  

END
 increase_comm;

END
 MANAGE_EMP_PKG;

创建包体结束





调用


SQL
>
 variable empno 
number

SQL

>
execute
  :empno:
=
 manage_emp_pkg.hire_emp(

HUYONG

,PM,
1455
,
5500
,
14
,
10
)

PL
/
SQL 
procedure
 successfully completed
empno


——-


105

 

例4:利用游标变量创建包 CURROR_VARIBAL_PKG。由于游标变量指是一个指针,其状态是不确定的,因此它不能随同包存储在数据库中,既不能在PL/SQL包中声明游标变量。但在包中可以创建游标变量参照类型,并可向包中的子程序传递游标变量参数。


 *******************************************


  

 创建包体


  

 包   名:CURROR_VARIBAL_PKG 


  

 功能描述:在包中引用游标变量


  

 创建人员:胡勇


  

 创建日期:2010-05-19


  

 Q     Q: 80368704


  

 E-mail : 80368704@yahoo.com.cn


  

 WebSite: http://www.cnblogs.com/huyong


 ******************************************


CREATE
 
OR
 
REPLACE
 PACKAGE CURROR_VARIBAL_PKG 
AS

  TYPE DeptCurType 

IS
 REF 
CURSOR
 
  

RETURN
 dept
%
ROWTYPE; 

强类型定义


  
  TYPE CurType 

IS
 REF 
CURSOR
;

 弱类型定义


  
  

PROCEDURE
 OpenDeptVar(
    Cv 

IN
 OUT DeptCurType,
    Choice 

INTEGER
 
DEFAULT
 
0
,
    Dept_no 

NUMBER
 
DEFAULT
 
50
,
    Dept_name 

VARCHAR
 
DEFAULT
 

%

);

END
;



 *******************************************


  

 创建包体


  

 包   名:CURROR_VARIBAL_PKG 


  

 功能描述:在包中引用游标变量


  

 创建人员:胡勇


  

 创建日期:2010-05-19


  

 Q     Q: 80368704


  

 E-mail : 80368704@yahoo.com.cn


  

 WebSite: http://www.cnblogs.com/huyong


 ******************************************


CREATE
 
OR
 
REPLACE
 PACKAGE BODY CURROR_VARIBAL_PKG

AS

  

PROCEDURE
 OpenDeptvar(
    Cv 

IN
 OUT DeptCurType,
    Choice 

INTEGER
 
DEFAULT
 
0
,
    Dept_no 

NUMBER
 
DEFAULT
 
50
,
    Dept_name 

VARCHAR
 
DEFAULT
 ‘
%
’)
  

IS
 
  

BEGIN

    

IF
 choice 
=
1
 
THEN

      

OPEN
 cv 
FOR
 
SELECT
 
*
 
FROM
 dept 
WHERE
 deptno 
<=
 dept_no;
    ELSIF choice 

=
 
2
 
THEN

      

OPEN
 cv 
FOR
 
SELECT
 
*
 
FROM
 dept 
WHERE
 dname 
LIKE
 dept_name;
    

ELSE

      

OPEN
 cv 
FOR
 
SELECT
 
*
 
FROM
 dept;
    

END
 
IF
;
  

END
 OpenDeptvar;

END
 CURROR_VARIBAL_PKG;



定义一个过程


CREATE
 
OR
 
REPLACE
 
PROCEDURE
 UP_OpenCurType(
  Cv 

IN
 OUT CURROR_VARIBAL_PKG.CurType,
  FirstCapInTableName 

CHAR


AS


BEGIN

  


CURROR_VARIBAL_PKG.CurType采用弱类型定义


  

所以可以使用它定义的游标变量打开不同类型的查询语句


  
IF
 FirstCapInTableName 
=
 

D

 
THEN

    

OPEN
 cv 
FOR
 
SELECT
 
*
 
FROM
 dept;
  

ELSE

    

OPEN
 cv 
FOR
 
SELECT
 
*
 
FROM
 emp;
  

END
 
IF
;

END
 UP_OpenCurType;



定义一个应用


DECLARE
 
  DeptRec Dept

%
ROWTYPE;
  EmpRec Emp

%
ROWTYPE;
  Cv1 CURROR_VARIBAL_PKG.deptcurtype;
  Cv2 CURROR_VARIBAL_PKG.curtype;

BEGIN

  DBMS_OUTPUT.PUT_LINE(


游标变量强类型定义应用

);
  CURROR_VARIBAL_PKG.OpenDeptVar(cv1, 

1

30
);
  

FETCH
 cv1 
INTO
 DeptRec;
  

WHILE
 cv1
%
FOUND LOOP
    DBMS_OUTPUT.PUT_LINE(DeptRec.deptno

||

:

||
DeptRec.dname);
    

FETCH
 cv1 
INTO
 DeptRec;
  

END
 LOOP;
  

CLOSE
 cv1;

  DBMS_OUTPUT.PUT_LINE(

游标变量弱类型定义应用

);
  CURROR_VARIBAL_PKG.OpenDeptvar(cv2, 

2
, dept_name 
=>
 

A%

);
  

FETCH
 cv2 
INTO
 DeptRec;
  

WHILE
 cv2
%
FOUND LOOP
    DBMS_OUTPUT.PUT_LINE(DeptRec.deptno

||

:

||
DeptRec.dname);
    

FETCH
 cv2 
INTO
 DeptRec;
  

END
 LOOP;

  DBMS_OUTPUT.PUT_LINE(

游标变量弱类型定义应用—dept表

);
  UP_OpenCurType(cv2, 


D

);
  

FETCH
 cv2 
INTO
 DeptRec;
  

WHILE
 cv2
%
FOUND LOOP
    DBMS_OUTPUT.PUT_LINE(deptrec.deptno

||

:

||
deptrec.dname);
    

FETCH
 cv2 
INTO
 deptrec;
  

END
 LOOP;

  DBMS_OUTPUT.PUT_LINE(

游标变量弱类型定义应用—emp表

);
  UP_OpenCurType(cv2, 


E

);
  

FETCH
 cv2 
INTO
 EmpRec;
  

WHILE
 cv2
%
FOUND LOOP
    DBMS_OUTPUT.PUT_LINE(emprec.empno

||

:

||
emprec.ename);
    

FETCH
 cv2 
INTO
 emprec;
  

END
 LOOP;
  

CLOSE
 cv2;

END
;


——–运行结果——————-


游标变量强类型定义应用

10
:ACCOUNTING

20
:RESEARCH

30
:SALES
游标变量弱类型定义应用

10
:ACCOUNTING
游标变量弱类型定义应用—dept表

10
:ACCOUNTING

20
:RESEARCH

30
:SALES

40
:OPERATIONS

50
:50abc

60
:Developer
游标变量弱类型定义应用—emp表

7369
:SMITH

7499
:ALLEN

7521
:WARD

7566
:JONES

7654
:MARTIN

7698
:BLAKE

7782
:CLARK

7788
:SCOTT

7839
:KING

7844
:TURNER

7876
:ADAMS

7900
:JAMES

7902
:FORD

7934
:MILLER
 
PL

/
SQL 
procedure
 successfully completed

7.5  子程序重载

PL/SQL 允许对包内子程序和本地子程序进行重载。所谓重载时指两个或多个子程序有相同的名称,但拥有不同的参数变量、参数顺序或参数数据类型。

例5:


 *******************************************


  

 创建包说明


  

 包   名:DEMO_PKG1 


  

 功能描述:创建包对子程序重载进行测试


  

 创建人员:胡勇


  

 创建日期:2010-05-22


  

 Q     Q: 80368704


  

 E-mail : 80368704@yahoo.com.cn


  

 WebSite: http://www.cnblogs.com/huyong


 ******************************************


CREATE
 
OR
 
REPLACE
 PACKAGE DEMO_PKG1

IS

    DeptRec dept

%
ROWTYPE;
    V_sqlcode 

NUMBER
;
    V_sqlerr 

VARCHAR2
(
2048
);
  
  


两个子程序名字相同,但参数类型不同


    
FUNCTION
 query_dept(dept_no 
IN
 
NUMBER
)
    

RETURN
 
INTEGER
;
  
    

FUNCTION
 query_dept(dept_no 
IN
 
VARCHAR2
)
    

RETURN
 
INTEGER
;

END
 DEMO_PKG1;



 *******************************************


  

 创建包体


  

 包   名:DEMO_PKG1 


  

 功能描述:创建包对子程序重载进行测试


  

 创建人员:胡勇


  

 创建日期:2010-05-22


  

 Q     Q: 80368704


  

 E-mail : 80368704@yahoo.com.cn


  

 WebSite: http://www.cnblogs.com/huyong


 ******************************************


CREATE
 
OR
 
REPLACE
 PACKAGE BODY DEMO_PKG1

IS
 
  

FUNCTION
 check_dept(dept_no 
NUMBER
)
  

RETURN
 
INTEGER

  

IS

    deptCnt 

INTEGER


指定部门号的部门数量


  
BEGIN

    

SELECT
 
COUNT
(
*

INTO
 deptCnt 
FROM
 dept 
WHERE
 deptno 
=
 dept_no;
    

IF
 deptCnt 
>
 
0
 
THEN

      

RETURN
 
1
;
    

ELSE

      

RETURN
 
0
;
    

END
 
IF
;
  

END
 check_dept;

  
FUNCTION
 check_dept(dept_no 
VARCHAR2
)
  

RETURN
 
INTEGER

  

IS

    deptCnt 

INTEGER
;
  

BEGIN

    

SELECT
 
COUNT
(
*

INTO
 deptCnt 
FROM
 dept 
WHERE
 deptno
=
dept_no;
    

IF
 deptCnt 
>
 
0
 
THEN

      

RETURN
 
1
;
    

ELSE

      

RETURN
 
0
;
    

END
 
IF
;
  

END
 check_dept;

  
FUNCTION
 query_dept(dept_no 
IN
 
NUMBER
)
  

RETURN
 
INTEGER

  

IS

  

BEGIN

    

IF
 check_dept(dept_no) 
=
1
 
THEN

      

SELECT
 
*
 
INTO
 DeptRec 
FROM
 dept 
WHERE
 deptno
=
dept_no;
      

RETURN
 
1
;
    

ELSE

      

RETURN
 
0
;
    

END
 
IF
;
  

END
 query_dept;

  
FUNCTION
 query_dept(dept_no 
IN
 
VARCHAR2
)
    

RETURN
 
INTEGER

  

IS

  

BEGIN

    

IF
 check_dept(dept_no) 
=
1
 
THEN

      

SELECT
 
*
 
INTO
 DeptRec 
FROM
 dept 
WHERE
 deptno 
=
 dept_no;
      

RETURN
 
1
;
    

ELSE

      

RETURN
 
0
;
    

END
 
IF
;
  

END
 query_dept;


END
 DEMO_PKG1;

7.6  加密实用程序

ORACLE 提供了一个实用工具来加密或者包装用户的PL/SQL,它会将用户的PL/SQL改变为只有ORACLE能够解释的代码版本.

WRAP 实用工具位于$ORACLE_HOME/BIN.

 

格式为:

WRAP INAME=<input_file_name> [ONAME=<output_file_name>]

 

wrap iname=e:/sample.txt

 

注意:在加密前,请将PL/SQL程序先保存一份,以备后用。

7.7  删除包

可以使用 DROP PACKAGE 命令对不需要的包进行删除,语法如下:

DROP
 PACKAGE 
[
BODY
]
 
[
user.
]
package_name;


DROP
 
PROCEDURE
 OpenCurType; 

删除存储过程


删除我们实例中创建的各个包


DROP
 PACKAGE demo_pack;

DROP
 PACKAGE demo_pack1;

DROP
 PACKAGE emp_mgmt;

DROP
 PACKAGE emp_package;

7.8  包的管理

包与过程、函数一样,也是存储在数据库中的,可以随时查看其源码。若有需要,在创建包时可以随时查看更详细的编译错误。不需要的包也可以删除。

同样,为了避免调用的失败,在更新表的结构后,一定要记得重新编译依赖于它的程序包。在更新了包说明或包体后,也应该重新编译包说明与包体。语法如下:

ALTER
 PACKAGE package_name COMPILE 
[
PACKAGE|BODY|SPECIFICATION
]
;

 

 

也可以通过以下数据字典视图查看包的相关。

DBA_SOURCE, USER_SOURCE, USER_ERRORS, DBAOBJECTS  

 

如,我们可以用:select text from user_source where name = ‘DEMO_PKG1’;来查看我们创建的包的源码。

 

 

 

© 2011  EricHu

原创作品,转贴请注明作者和出处,留此信息。

 

————————————————

cnBlobs:http://www.cnblogs.com/huyong/
CSDNhttp://blog.csdn.NET/chinahuyong 

 

作者:EricHuDBC/SB/SWebServiceWCFPM等)
出处:http://www.cnblogs.com/huyong/

Q Q80368704   E-Mail: 80368704@qq.com
本博文欢迎大家浏览和转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,在『参考』的文章中,我会表明参考的文章来源,尊重他人版权。若您发现我侵犯了您的版权,请及时与我联系。
更多文章请看 [置顶]索引贴——(不断更新中)

 

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/149552.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(1)


相关推荐

  • oralce11g 注冊表卸载20140810

    oralce11g 注冊表卸载20140810

  • intellij idea 控制台中文乱码_idea server控制台乱码

    intellij idea 控制台中文乱码_idea server控制台乱码本人下载了一开源工程,该工程采用的是maven进行编译,在导入到itellijidea后,按如下图配置好maven编译环境但是采用配置好的maven进行编译时,在run的控制台输出窗口中出现乱码,导致无法编译,由于工程是utf-8编码,所以按如下方式配置了工程的编码网上run控制台输出乱码的解决思路如下:1)参照上面配置工程编码的方式将GlobalEncoding/Proj…

  • navicat 15激活码生成失败(注册激活)2022.02.03

    (navicat 15激活码生成失败)好多小伙伴总是说激活码老是失效,太麻烦,关注/收藏全栈君太难教程,2021永久激活的方法等着你。IntelliJ2021最新激活注册码,破解教程可免费永久激活,亲测有效,下面是详细链接哦~https://javaforall.cn/100143.htmlCJM5ZJBPHS-eyJsaWNlbnNlSWQi…

  • 前端开发经验总结_前端开发实训总结报告

    前端开发经验总结_前端开发实训总结报告一、前端开发经验总结开发前与产品经理/UI对接需要注意:配色,字体,弹框/消息提示,响应式操作,设备屏幕比例,间距,是否多个主题,icon或者svg图标给出方式,图片大小,表格表单等等组件,页面注释便于理解和记录。最好有设计规范先出来再开始设计。开发前与后端对接需要注意:是否具有需求文档,返回的状态处理,容错处理,接口提交类型(get、post等)能否统一设置,参数类型设置,能否合理安排工期,能否又便捷的接口呈现方式(借用工具还是文档标注)。选择框架要慎重。搭框架包括:状态管理,网络管理,样式处理

  • Dreamweaver8安装方法教程[通俗易懂]

    Dreamweaver8安装方法教程[通俗易懂]打开百度网盘下载http://pan.baidu.com/s/1wIMYi打开下载好的Dreamweaver8,点击下一步选择接受,下一步选择安装路径,点击下一步其它默认勾选的,不

  • BAPI 一些笔记

    BAPI 一些笔记BAPI的结构,BAPI里的代码可以分为这样两部分:1、一部分是数据校核,检查传入的数据是否满足创建相关业务对象的条件,并且把错误消息反馈出来;2、另一部分是更新数据库,即UPDATE/INSERT/DELETEdbtab这样的操作。1BAPI的优点bapi是面向对象的设计;bapi是固定的,一般不能修改;bapi可以被sap内部部件和非sap程序使用;bapi的成功和错误信息始终通过RETURN返回;bapi可以被许多开发平台使用;2何时该考虑使用BAPI设计

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号