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