《plsql包的创建和应用.ppt》由会员分享，可在线阅读，更多相关《plsql包的创建和应用.ppt（18页珍藏版）》请在三一办公上搜索。
1、包的创建和应用,包,包是一组相关过程、函数、变量、常量和游标等PL/SQL程序设计元素的组合，它具有面向对象程序设计语言的特点，是对这些PL/SQL 程序设计元素的封装。包类似于C+和JAVA语言中的类，其中变量相当于类中的成员变量，过程和函数相当于类方法。把相关的模块归类成为包，可使开发人员利用面向对象的方法进行存储过程的开发，从而提高系统性能。与类相同，包中的程序元素也分为公用元素和私用元素两种，这两种元素的区别是他们允许访问的程序范围不同，即它们的作用域不同。公用元素不仅可以被包中的函数、过程所调用，也可以被包外的PL/SQL程序访问，而私有元素只能被包内的函数和过程序所访问。在PL/S
2、QL程序设计中，使用包不仅可以使程序设计模块化，对外隐藏包内所使用的信息（通过使用私用变量），而且可以提高程序的执行效率。因为，当程序首次调用包内函数或过程时，ORACLE将整个包调入内存，当再次访问包内元素时，ORACLE直接从内存中读取，而不需要进行磁盘I/O操作，从而使程序执行效率得到提高,包,一个包由两个分开的部分组成：包定义（PACKAGE）：包定义部分声明包内数据类型、变量、常量、游标、子程序和异常错误处理等元素，这些元素为包的公有元素。包主体（PACKAGE BODY）：包主体则是包定义部分的具体实现，它定义了包定义部分所声明的游标和子程序，在包主体中还可以声明包的私有元素。包定
3、义和包主体分开编译，并作为两部分分开的对象存放在数据库字典中。,包的定义,包定义的语法如下：CREATE OR REPLACE PACKAGE package_nameIS|AS公有数据类型定义公有数据类型定义公有游标声明公有游标声明公有变量、常量声明公有变量、常量声明公有子程序声明公有子程序声明END package_name;,包体的定义,包体定义的语法如下：CREATE OR REPLACE PACKAGE BODY package_nameIS|AS私有数据类型定义私有数据类型定义私有变量、常量声明私有变量、常量声明私有子程序声明和定义私有子程序声明和定义公有游标定义公有游标定义公有子
4、程序定义公有子程序定义BEGINPL/SQL 语句END package_name;,其中：在包主体定义公有程序时，它们必须与包定义中所声明子程序的格式完全一致,包的开发步骤,与开发存储过程类似，包的开发需要几个步骤：将每个存储过程调试正确 用文本编辑软件将各个存储过程和函数集成在一起 按照包的定义要求将集成的文本的前面加上包定义 按照包的定义要求将集成的文本的前面加上包主体 使用开发工具进行调式,创建包应用举例,例：CREATE OR REPLACE PACKAGE demo_pack ISDeptRec dept%ROWTYPE;FUNCTION add_dept(dept_no NUMB
5、ER,dept_name VARCHAR2,location VARCHAR2)RETURN NUMBER;FUNCTION remove_dept(dept_no NUMBER)RETURN NUMBER;PROCEDURE query_dept(dept_no IN NUMBER);END demo_pack;,创建包应用举例,例：CREATE OR REPLACE PACKAGE BODY demo_packIS FUNCTION add_dept(dept_no NUMBER,dept_name VARCHAR2,location VARCHAR2)RETURN NUMBER IS e
6、mpno_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 THENRETURN-1;END add_dept;,创建包应用举例,例：FUNCTION remove
7、_dept(dept_no NUMBER)RETURN NUMBERIS BEGINDELETE FROM dept WHERE deptno=dept_no;IF SQL%FOUND THENRETURN 1;ELSERETURN 0;END IF;EXCEPTIONWHEN OTHERS THENRETURN-1;END remove_dept;,创建包应用举例,例：PROCEDURE query_dept(dept_no IN NUMBER)ISBEGINSELECT*INTO DeptRec FROM dept WHERE deptno=dept_no;EXCEPTION WHEN N
8、O_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;END demo_pack;,调用包应用举例,例：DECLARE Var NUMBER;BEGINVar:=demo_pack.add_dept(90,Administration,Beijing);IF var=
9、-1 THENDBMS_OUTPUT.PUT_LINE(SQLCODE|-|SQLERRM);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:=demo_pack.remove_dept(90);IF var=-1 THENDBM
10、S_OUTPUT.PUT_LINE(SQLCODE|-|SQLERRM);ELSIF var=0 THENDBMS_OUTPUT.PUT_LINE(该部门记录不存在！);ELSEDBMS_OUTPUT.PUT_LINE(删除记录成功！);END IF;END IF;END;,创建包应用练习,创建包emp_package，包括一个emp表行记录类型的公有数组，一个用于查询员工信息的过程，将查询的结果保存在数组中调用该过程并输出结果。,子程序重载,PL/SQL 允许对包内子程序和本地子程序进行重载。所谓重载时指两个或多个子程序有相同的名称，但拥有不同的参数变量、参数顺序或参数数据类型,例：CREA
11、TE OR REPLACE PACKAGE demo_pack1 ISDeptRec dept%ROWTYPE;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 query_dept(dept_no IN NUMBER)RETURN INTEGER IS BEGINIF dept
12、_no=10 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 BEGINIF dept_no=10 THEN SELECT*INTO DeptRec FROM dept WHERE deptno=dept_no;RETURN 1;ELSE RETURN 0;END IF;END query_dept;END d
13、emo_pack1;,子程序重载,注意：如果两个子程序的参数只是名称和方式不同时，不能重载他们。例：PROCEDURE OverlodeMe（P_parameter in number）PROCEDURE OverlodeMe（P_parameter out number）不能只根据两个函数的返回类型进行重载 例：FUNCTION Overlodeme RETURN date FUNCTION Overlodeme RETURN boolean 重载函数的参数必须在类型系列方面有所不同，既不能再同一类 型系列上重载 例：PROCEDURE OverlodeMe（P_parameter in char）PROCEDURE OverlodeMe（P_parameter out varchar2),删除包,可以使用 DROP PACKAGE 命令对不需要的包进行删除，语法如下：,DROP PACKAGE BODY user.package_name,例：DROP PACKAGE emp_package;,包所涉及到的数据字典视图：,DBA_SOURCE,USER_SOURCE,USER_ERRORS,DBA_OBJECTS,
