大家好,又见面了,我是你们的朋友全栈君。
Oracle PL/SQL编程详解之七:程序包的创建与应用(聪明在于学习,天才在于积累!)
本篇主要内容如下:
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 在包体执行部分,可对包说明,包体中声明的公有或私有变量进行初始化或其它设置。
创建程序包说明语法格式:
[
OR REPLACE
]
PACKAGE package_name
[
AUTHID {CURRENT_USER | DEFINER}
]
{
IS
|
AS
}
[
公有数据类型定义[公有数据类型定义
]
…]
[
公有游标声明[公有游标声明
]
…]
[
公有变量、常量声明[公有变量、常量声明
]
…]
[
公有函数声明[公有函数声明
]
…]
[
公有过程声明[公有过程声明
]
…]
END
[
package_name
]
;
其中:AUTHID CURRENT_USER和AUTHID DEFINER选项说明应用程序在调用函数时所使用的权限模式,它们与CREATE FUNCTION语句中invoker_right_clause子句的作用相同。
创建程序包主体语法格式:
[
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表的增加、删除与查询。
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 函数之前首先对该函数进行声明,这种声明方法称作前向声明。
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显示所查询到的数据库信息:
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
*******************************************
—
创建包体
—
包 名: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;
*******************************************
—
创建包说明
—
包 名: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;
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 包的管理
包与过程、函数一样,也是存储在数据库中的,可以随时查看其源码。若有需要,在创建包时可以随时查看更详细的编译错误。不需要的包也可以删除。
同样,为了避免调用的失败,在更新表的结构后,一定要记得重新编译依赖于它的程序包。在更新了包说明或包体后,也应该重新编译包说明与包体。语法如下:
PACKAGE package_name COMPILE
[
PACKAGE|BODY|SPECIFICATION
]
;
也可以通过以下数据字典视图查看包的相关。
DBA_SOURCE, USER_SOURCE, USER_ERRORS, DBA–OBJECTS
如,我们可以用:select text from user_source where name = ‘DEMO_PKG1’;来查看我们创建的包的源码。
© 2011 EricHu
原创作品,转贴请注明作者和出处,留此信息。
————————————————
cnBlobs:http://www.cnblogs.com/huyong/
CSDN:http://blog.csdn.NET/chinahuyong
作者:EricHu(DB、C/S、B/S、WebService、WCF、PM等)
出处:http://www.cnblogs.com/huyong/
Q Q:80368704 E-Mail: 80368704@qq.com
本博文欢迎大家浏览和转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,在『参考』的文章中,我会表明参考的文章来源,尊重他人版权。若您发现我侵犯了您的版权,请及时与我联系。
更多文章请看 [置顶]索引贴——(不断更新中)
发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/149552.html原文链接:https://javaforall.cn
【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛
【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...