《(21)--4.9包的创建和应用.doc》由会员分享，可在线阅读，更多相关《(21)--4.9包的创建和应用.doc（7页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、4.9 包的创建和应用 本节课我们学习包的使用。 包是一组相关过程、函数、变量、常量和游标等PL/SQL程序设计元素的组合，它具有面向对象程序设计语言的特点，是对这些PL/SQL 程序设计元素的封装。包类似于C+和JAVA语言中的类，其中变量相当于类中的成员变量，过程和函数相当于类方法。把相关的模块归类成为包，可使开发人员利用面向对象的方法进行存储过程的开发，从而提高系统性能。与类相同，包中的程序元素也分为公用元素和私用元素两种，这两种元素的区别是他们允许访问的程序范围不同，即它们的作用域不同。公用元素不仅可以被包中的函数、过程所调用，也可以被包外的PL/SQL程序访问，而私有元素只能被包内的
2、函数和过程序所访问。在PL/SQL程序设计中，使用包不仅可以使程序设计模块化，对外隐藏包内所使用的信息（通过使用私用变量），而写可以提高程序的执行效率。因为，当程序首次调用包内函数或过程时，ORACLE将整个包调入内存，当再次访问包内元素时，ORACLE直接从内存中读取，而不需要进行磁盘I/O操作，从而使程序执行效率得到提高。 一个包由两个分开的部分组成： 包定义（PACKAGE）：包定义部分声明包内数据类型、变量、常量、游标、子程序和异常错误处理等元素，这些元素为包的公有元素。 包主体（PACKAGE BODY）：包主体则是包定义部分的具体实现，它定义了包定义部分所声明的游标和子程序，在包主
3、体中还可以声明包的私有元素。 包定义和包主体分开编译，并作为两部分分开的对象存放在数据库字典中，详见数据字典user_source, all_source, dba_source.包的定义包定义的语法如下：创建包定义:CREATE OR REPLACE PACKAGE package_nameAUTHID CURRENT_USER | DEFINERIS | AS公有数据类型定义公有数据类型定义公有游标声明公有游标声明公有变量、常量声明公有变量、常量声明公有子程序声明公有子程序声明END package_name;其中：AUTHID CURRENT_USER和AUTHID DEFINER选项说
4、明应用程序在调用函数时所使用的权限模式，它们与CREATE FUNCTION语句中invoker_right_clause子句的作用相同。创建包主体:CREATE OR REPLACE PACKAGE BODY package_nameIS | AS私有数据类型定义私有数据类型定义私有变量、常量声明私有变量、常量声明私有子程序声明和定义私有子程序声明和定义公有游标定义公有游标定义公有子程序定义公有子程序定义BEGINPL/SQL 语句END package_name;其中：在包主体定义公有程序时，它们必须与包定义中所声明子程序的格式完全一致。包的开发步骤 与开发存储过程类似，包的开发需要几个步
5、骤：1 将每个存储过程调式正确；2 用文本编辑软件将各个存储过程和函数集成在一起；3 按照包的定义要求将集成的文本的前面加上包定义；4 按照包的定义要求将集成的文本的前面加上包主体；5 使用SQLPLUS或开发工具进行调式。包定义的说明例1:创建的包为demo_pack, 该包中包含一个记录变量DeptRec、两个函数和一个过程。CREATE OR REPLACE PACKAGE demo_packISDeptRec dept%ROWTYPE;V_sqlcode NUMBER;V_sqlerr VARCHAR2(2048);FUNCTION add_dept(dept_no NUMBER, d
6、ept_name VARCHAR2, location VARCHAR2)RETURN NUMBER;FUNCTION remove_dept(dept_no NUMBER)RETURN NUMBER;PROCEDURE query_dept(dept_no IN NUMBER);END demo_pack;包主体的创建方法，它实现上面所声明的包定义，并在包主体中声明一个私有变量flag和一个私有函数check_dept，由于在add_dept和remove_dept等函数中需要调用check_dpet函数，所以，在定义check_dept 函数之前首先对该函数进行声明，这种声明方法称作前向声
7、明。CREATE OR REPLACE PACKAGE BODY demo_packIS Flag INTEGER;FUNCTION check_dept(dept_no NUMBER)RETURN INTEGER;FUNCTION add_dept(dept_no NUMBER, dept_name VARCHAR2, location VARCHAR2)RETURN NUMBERIS BEGINIF check_dept(dept_no)=0 THENINSERT INTO dept VALUES(dept_no, dept_name, location);RETURN 1;ELSERET
8、URN 0;END IF;EXCEPTIONWHEN OTHERS THENV_sqlcode := SQLCODE;V_sqlerr := SQLERRM;RETURN -1;END add_dept;FUNCTION remove_dept(dept_no NUMBER)RETURN NUMBERIS BEGINV_sqlcode := 0;V_sqlerr := NULL;IF check_dept(dept_no) = 1 THENDELETE FROM dept WHERE deptno=dept_no;RETURN 1;ELSERETURN 0;END IF;EXCEPTIONWH
9、EN OTHERS THENV_sqlcode := SQLCODE;V_sqlerr := SQLERRM;RETURN -1;END remove_dept;PROCEDURE query_dept(dept_no IN NUMBER)ISBEGINIF check_dept(dept_no) =1 THENSELECT * INTO DeptRec FROM dept WHERE deptno=dept_no;END IF;END query_dept;FUNCTION check_dept(dept_no NUMBER)RETURN INTEGERISBEGINSELECT COUNT
10、(*) INTO flag FROM dept WHERE deptno=dept_no;IF flag 0 THENFlag := 1;END IF;RETURN flag;END check_dept;BEGIN V_sqlcode := NULL;V_sqlerr := NULL;END demo_pack;对包内共有元素的调用格式为：包名.元素名称调用demo_pack包内函数对dept表进行插入、查询和修改操作，并通过demo_pack包中的记录变量DeptRec 显示所查询到的数据库信息：DECLAREVar NUMBER;BEGINVar := demo_pack.add_dep
11、t(90,Administration, Beijing);IF var =-1 THENDBMS_OUTPUT.PUT_LINE(demo_pack.v_sqlerr);ELSIF var =0 THENDBMS_OUTPUT.PUT_LINE(该部门记录已经存在！);ELSEDBMS_OUTPUT.PUT_LINE(添加记录成功！);Demo_pack.query_dept(90);DBMS_OUTPUT.PUT_LINE(demo_pack.DeptRec.deptno|-|demo_pack.DeptRec.dname|-|demo_pack.DeptRec.loc);var := d
12、emo_pack.remove_dept(90);IF var =-1 THENDBMS_OUTPUT.PUT_LINE(demo_pack.v_sqlerr);ELSEDBMS_OUTPUT.PUT_LINE(删除记录成功！);END IF;END IF;END;例2: 创建包emp_packageCREATE OR REPLACE PACKAGE emp_package ISTYPE emp_table_type IS TABLE OF emp%ROWTYPE INDEX BY BINARY_INTEGER;PROCEDURE read_emp_table (p_emp_table OUT
13、 emp_table_type);END emp_package;CREATE OR REPLACE PACKAGE BODY emp_package ISPROCEDURE read_emp_table (p_emp_table OUT emp_table_type) ISI BINARY_INTEGER := 0;BEGINFOR emp_record IN ( SELECT * FROM emp ) LOOPP_emp_table(i) := emp_record;I := I + 1;END LOOP;END read_emp_table;END emp_package;DECLARE
14、 E_table emp_package.emp_table_type;BEGINEmp_package.read_emp_table(e_table);FOR I IN e_table.FIRST . e_table.LAST LOOPDBMS_OUTPUT.PUT_LINE(e_table(i).empno| |e_table(i).ename);END LOOP;END;子程序重载PL/SQL 允许对包内子程序和本地子程序进行重载。所谓重载时指两个或多个子程序有相同的名称，但拥有不同的参数变量、参数顺序或参数数据类型。例：CREATE OR REPLACE PACKAGE demo_pa
15、ck1ISDeptRec 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_pack1;CREATE OR REPLACE PACKAGE BODY demo_pack1IS FUNCTION check_dept(dept_no NUMBER)RETURN INTEGERISFlag INTEGER;BE
16、GINSELECT COUNT(*) INTO flag FROM dept WHERE deptno=dept_no;IF flag 0 THENRETURN 1;ELSERETURN 0;END IF;END check_dept;FUNCTION check_dept(dept_no VARCHAR2)RETURN INTEGERISFlag INTEGER;BEGINSELECT COUNT(*) INTO flag FROM dept WHERE deptno=dept_no;IF flag 0 THENRETURN 1;ELSERETURN 0;END IF;END check_d
17、ept;FUNCTION query_dept(dept_no IN NUMBER)RETURN INTEGERISBEGINIF check_dept(dept_no) =1 THENSELECT * INTO DeptRec FROM dept WHERE deptno=dept_no;RETURN 1;ELSERETURN 0;END IF;END query_dept;FUNCTION query_dept(dept_no IN VARCHAR2)RETURN INTEGERISBEGINIF check_dept(dept_no) =1 THENSELECT * INTO DeptRec FROM dept WHERE deptno=dept_no;RETURN 1;ELSERETURN 0;END IF;END query_dept;END demo_pack1;本节课我们学习了包的使用，大家通过练习巩固相关知识，学会创建和使用包。