本篇主要内容如下：

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

其中：AUTHIDCURRENT_USER和AUTHIDDEFINER选项说明应用程序在调用函数时所使用的权限模式，它们与CREATEFUNCTION语句中invoker_right_clause子句的作用相同。

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

CREATE[OR REPLACE]PACKAGE BODY package_name

{IS|AS}[私有数据类型定义[私有数据类型定义]…][私有变量、常量声明[私有变量、常量声明]…][私有异常错误声明[私有异常错误声明]…][私有函数声明和定义[私有函数声明和定义]…][私有函过程声明和定义[私有函过程声明和定义]…][公有游标定义[公有游标定义]…][公有函数定义[公有函数定义]…][公有过程定义[公有过程定义]…]BEGIN执行部分(初始化部分)ENDpackage_name;

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

7.3包的开发步骤

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

1．将每个存储过程调式正确；

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

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

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

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

7.4包定义的说明

例1:创建的包为DEMO_PKG,该包中包含一个记录变量DEPTREC、两个函数和一个过程。实现对dept表的增加、删除与查询。

CREATEORREPLACEPACKAGE  DEMO_PKGISDEPTREC DEPT%ROWTYPE;--Add dept...FUNCTIONadd_dept(

dept_noNUMBER,

dept_nameVARCHAR2,

locationVARCHAR2)RETURNNUMBER;--delete dept...FUNCTIONdelete_dept(dept_noNUMBER)RETURNNUMBER;--query dept...PROCEDUREquery_dept(dept_noINNUMBER);ENDDEMO_PKG;

包主体的创建方法，它实现上面所声明的包定义，并在包主体中声明一个私有变量flag和一个私有函数check_dept，由于在add_dept和remove_dept等函数中需要调用check_dpet函数，所以，在定义check_dept函数之前首先对该函数进行声明，这种声明方法称作前向声明。

CREATEORREPLACEPACKAGE BODY DEMO_PKGISFUNCTIONadd_dept

(

dept_noNUMBER,

dept_nameVARCHAR2,

locationVARCHAR2)RETURNNUMBERISempno_remaining EXCEPTION;--自定义异常PRAGMA EXCEPTION_INIT(empno_remaining,-1);/*-1 是违反唯一约束条件的错误代码*/BEGININSERTINTOdeptVALUES(dept_no, dept_name, location);IFSQL%FOUNDTHENRETURN1;ENDIF;

EXCEPTIONWHENempno_remainingTHENRETURN0;WHENOTHERSTHENRETURN-1;ENDadd_dept;FUNCTIONdelete_dept(dept_noNUMBER)RETURNNUMBERISBEGINDELETEFROMdeptWHEREdeptno=dept_no;IFSQL%FOUNDTHENRETURN1;ELSERETURN0;ENDIF;

EXCEPTIONWHENOTHERSTHENRETURN-1;ENDdelete_dept;PROCEDUREquery_dept

(dept_noINNUMBER)ISBEGINSELECT*INTODeptRecFROMdeptWHEREdeptno=dept_no;

EXCEPTIONWHENNO_DATA_FOUNDTHENDBMS_OUTPUT.PUT_LINE('温馨提示:数据库中没有编码为'||dept_no||'的部门');WHENTOO_MANY_ROWSTHENDBMS_OUTPUT.PUT_LINE('程序运行错误,请使用游标进行操作!');WHENOTHERSTHENDBMS_OUTPUT.PUT_LINE(SQLCODE||'----'||SQLERRM);ENDquery_dept;BEGINNull;ENDDEMO_PKG;

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

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

DECLAREVarNUMBER;BEGINVar:=DEMO_PKG.add_dept(90,'HKLORB','HAIKOU');IFvar=-1THENDBMS_OUTPUT.PUT_LINE(SQLCODE||'----'||SQLERRM);

ELSIFvar=0THENDBMS_OUTPUT.PUT_LINE('温馨提示:该部门记录已经存在！');ELSEDBMS_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);IFvar=-1THENDBMS_OUTPUT.PUT_LINE(SQLCODE||'----'||SQLERRM);

ELSIFvar=0THENDBMS_OUTPUT.PUT_LINE('温馨提示:该部门记录不存在！');ELSEDBMS_OUTPUT.PUT_LINE('温馨提示:删除记录成功！');ENDIF;ENDIF;END;

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

--创建包说明CREATEORREPLACEPACKAGE EMP_PKGISTYPE emp_table_typeISTABLEOFemp%ROWTYPEINDEXBYBINARY_INTEGER;PROCEDUREread_emp_table (p_emp_table OUT emp_table_type);ENDEMP_PKG;--创建包体CREATEORREPLACEPACKAGE BODY EMP_PKGISPROCEDUREread_emp_table (p_emp_table OUT emp_table_type)ISI BINARY_INTEGER :=0;BEGINFORemp_recordIN(SELECT*FROMemp ) LOOP

P_emp_table(i) :=emp_record;

I :=I+1;ENDLOOP;ENDread_emp_table;ENDEMP_PKG;--执行DECLAREE_table EMP_PKG.emp_table_type;BEGINEMP_PKG.read_emp_table(e_table);FORIINe_table.FIRST ..e_table.LAST LOOP

DBMS_OUTPUT.PUT_LINE(e_table(i).empno||''||e_table(i).ename);ENDLOOP;END;

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

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

STARTWITH100INCREMENTBY1ORDERNOCYCLE;--创建序列从100开始,依次增加10CREATESEQUENCE deptseq

STARTWITH100INCREMENTBY10ORDERNOCYCLE;--*******************************************--创建包说明--包   名：MANAGE_EMP_PKG--功能描述：对员工进行管理(新增员工,新增部门--,删除员工,删除部门,增加工资与奖金等)--创建人员：胡勇--创建日期：2010-05-19--Q     Q: 80368704--E-mail : 80368704@yahoo.com.cn--WebSite: http://www.cnblogs.com/huyong--******************************************CREATEORREPLACEPACKAGE MANAGE_EMP_PKGAS--增加一名员工FUNCTIONhire_emp

(enameVARCHAR2, jobVARCHAR2, mgrNUMBER, salNUMBER, commNUMBER, deptnoNUMBER)RETURNNUMBER;--新增一个部门FUNCTIONadd_dept(dnameVARCHAR2, locVARCHAR2)RETURNNUMBER;--删除指定员工PROCEDUREremove_emp(empnoNUMBER);--删除指定部门PROCEDUREremove_dept(deptnoNUMBER);--增加指定员工的工资PROCEDUREincrease_sal(empnoNUMBER, sal_incrNUMBER);--增加指定员工的奖金PROCEDUREincrease_comm(empnoNUMBER, comm_incrNUMBER);ENDMANAGE_EMP_PKG;--创建包说明结束--*******************************************--创建包体--包   名：MANAGE_EMP_PKG--功能描述：对员工进行管理(新增员工,新增部门--,删除员工,删除部门,增加工资与奖金等)--创建人员：胡勇--创建日期：2010-05-19--Q     Q: 80368704--E-mail : 80368704@yahoo.com.cn--WebSite: http://www.cnblogs.com/huyong--******************************************CREATEORREPLACEPACKAGE BODY MANAGE_EMP_PKGAStotal_empsNUMBER;--员工数total_deptsNUMBER;--部门数no_sal    EXCEPTION;

no_comm   EXCEPTION;--增加一名员工FUNCTIONhire_emp(enameVARCHAR2, jobVARCHAR2, mgrNUMBER,

salNUMBER, commNUMBER, deptnoNUMBER)RETURNNUMBER--返回新增加的员工编号ISnew_empnoNUMBER(4);BEGINSELECTempseq.NEXTVALINTOnew_empnoFROMdual;SELECTCOUNT(*)INTOtotal_empsFROMemp;--当前记录总数INSERTINTOempVALUES(new_empno, ename, job, mgr, sysdate, sal, comm, deptno);

total_emps:=total_emps+1;RETURN(new_empno);

EXCEPTIONWHENOTHERSTHENDBMS_OUTPUT.PUT_LINE('温馨提示:发生系统错误!');ENDhire_emp;--新增一个部门FUNCTIONadd_dept(dnameVARCHAR2, locVARCHAR2)RETURNNUMBERISnew_deptnoNUMBER(4);--部门编号BEGIN--得到一个新的自增的员工编号SELECTdeptseq.NEXTVALINTOnew_deptnoFROMdual;SELECTCOUNT(*)INTOtotal_deptsFROMdept;--当前部门总数INSERTINTOdeptVALUES(new_deptno, dname, loc);

total_depts:=total_depts;RETURN(new_deptno);

EXCEPTIONWHENOTHERSTHENDBMS_OUTPUT.PUT_LINE('温馨提示:发生系统错误!');ENDadd_dept;--删除指定员工PROCEDUREremove_emp(empnoNUMBER)ISno_result EXCEPTION;--自定义异常BEGINDELETEFROMempWHEREemp.empno=remove_emp.empno;IFSQL%NOTFOUNDTHENRAISE no_result;ENDIF;

total_emps:=total_emps-1;--总的员工数减1EXCEPTIONWHENno_resultTHENDBMS_OUTPUT.PUT_LINE('温馨提示:你需要的数据不存在!');WHENOTHERSTHENDBMS_OUTPUT.PUT_LINE('温馨提示:发生系统错误!');ENDremove_emp;--删除指定部门PROCEDUREremove_dept(deptnoNUMBER)ISno_result EXCEPTION;--自定义异常exception_deptno_remaining EXCEPTION;--自定义异常/*-2292 是违反一致性约束的错误代码*/PRAGMA EXCEPTION_INIT(exception_deptno_remaining,-2292);BEGINDELETEFROMdeptWHEREdept.deptno=remove_dept.deptno;IFSQL%NOTFOUNDTHENRAISE no_result;ENDIF;

total_depts:=total_depts-1;--总的部门数减1EXCEPTIONWHENno_resultTHENDBMS_OUTPUT.PUT_LINE('温馨提示:你需要的数据不存在!');WHENexception_deptno_remainingTHENDBMS_OUTPUT.PUT_LINE('温馨提示:违反数据完整性约束!');WHENOTHERSTHENDBMS_OUTPUT.PUT_LINE('温馨提示:发生系统错误!');ENDremove_dept;--给指定员工增加指定数量的工资PROCEDUREincrease_sal(empnoNUMBER, sal_incrNUMBER)IScurr_salNUMBER(7,2);--当前工资BEGIN--得到当前工资SELECTsalINTOcurr_salFROMempWHEREemp.empno=increase_sal.empno;IFcurr_salISNULLTHENRAISE no_sal;ELSEUPDATEempSETsal=sal+increase_sal.sal_incr--当前工资加新增的工资WHEREemp.empno=increase_sal.empno;ENDIF;

EXCEPTIONWHENNO_DATA_FOUNDTHENDBMS_OUTPUT.PUT_LINE('温馨提示:你需要的数据不存在!');WHENno_salTHENDBMS_OUTPUT.PUT_LINE('温馨提示:此员工的工资不存在!');WHENOTHERSTHENDBMS_OUTPUT.PUT_LINE('温馨提示:发生系统错误!');ENDincrease_sal;--给指定员工增加指定数量的奖金PROCEDUREincrease_comm(empnoNUMBER, comm_incrNUMBER)IScurr_commNUMBER(7,2);BEGIN--得到指定员工的当前资金SELECTcommINTOcurr_commFROMempWHEREemp.empno=increase_comm.empno;IFcurr_commISNULLTHENRAISE no_comm;ELSEUPDATEempSETcomm=comm+increase_comm.comm_incrWHEREemp.empno=increase_comm.empno;ENDIF;

EXCEPTIONWHENNO_DATA_FOUNDTHENDBMS_OUTPUT.PUT_LINE('温馨提示:你需要的数据不存在!');WHENno_commTHENDBMS_OUTPUT.PUT_LINE('温馨提示:此员工的奖金不存在!');WHENOTHERSTHENDBMS_OUTPUT.PUT_LINE('温馨提示:发生系统错误!');ENDincrease_comm;ENDMANAGE_EMP_PKG;--创建包体结束--调用SQL>variable empnonumberSQL>execute:empno:=manage_emp_pkg.hire_emp('HUYONG',PM,1455,5500,14,10)

PL/SQLproceduresuccessfully 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--******************************************CREATEORREPLACEPACKAGE CURROR_VARIBAL_PKGASTYPE DeptCurTypeISREFCURSORRETURNdept%ROWTYPE;--强类型定义TYPE CurTypeISREFCURSOR;--弱类型定义PROCEDUREOpenDeptVar(

CvINOUT DeptCurType,

ChoiceINTEGERDEFAULT0,

Dept_noNUMBERDEFAULT50,

Dept_nameVARCHARDEFAULT'%');END;--*******************************************--创建包体--包   名：CURROR_VARIBAL_PKG--功能描述：在包中引用游标变量--创建人员：胡勇--创建日期：2010-05-19--Q     Q: 80368704--E-mail : 80368704@yahoo.com.cn--WebSite: http://www.cnblogs.com/huyong--******************************************CREATEORREPLACEPACKAGE BODY CURROR_VARIBAL_PKGASPROCEDUREOpenDeptvar(

CvINOUT DeptCurType,

ChoiceINTEGERDEFAULT0,

Dept_noNUMBERDEFAULT50,

Dept_nameVARCHARDEFAULT‘%’)ISBEGINIFchoice=1THENOPENcvFORSELECT*FROMdeptWHEREdeptno<=dept_no;

ELSIF choice=2THENOPENcvFORSELECT*FROMdeptWHEREdnameLIKEdept_name;ELSEOPENcvFORSELECT*FROMdept;ENDIF;ENDOpenDeptvar;ENDCURROR_VARIBAL_PKG;--定义一个过程CREATEORREPLACEPROCEDUREUP_OpenCurType(

CvINOUT CURROR_VARIBAL_PKG.CurType,

FirstCapInTableNameCHAR)ASBEGIN--CURROR_VARIBAL_PKG.CurType采用弱类型定义--所以可以使用它定义的游标变量打开不同类型的查询语句IFFirstCapInTableName='D'THENOPENcvFORSELECT*FROMdept;ELSEOPENcvFORSELECT*FROMemp;ENDIF;ENDUP_OpenCurType;--定义一个应用DECLAREDeptRec Dept%ROWTYPE;

EmpRec Emp%ROWTYPE;

Cv1 CURROR_VARIBAL_PKG.deptcurtype;

Cv2 CURROR_VARIBAL_PKG.curtype;BEGINDBMS_OUTPUT.PUT_LINE('游标变量强类型定义应用');

CURROR_VARIBAL_PKG.OpenDeptVar(cv1,1,30);FETCHcv1INTODeptRec;WHILEcv1%FOUND LOOP

DBMS_OUTPUT.PUT_LINE(DeptRec.deptno||':'||DeptRec.dname);FETCHcv1INTODeptRec;ENDLOOP;CLOSEcv1;

DBMS_OUTPUT.PUT_LINE('游标变量弱类型定义应用');

CURROR_VARIBAL_PKG.OpenDeptvar(cv2,2, dept_name=>'A%');FETCHcv2INTODeptRec;WHILEcv2%FOUND LOOP

DBMS_OUTPUT.PUT_LINE(DeptRec.deptno||':'||DeptRec.dname);FETCHcv2INTODeptRec;ENDLOOP;

DBMS_OUTPUT.PUT_LINE('游标变量弱类型定义应用—dept表');

UP_OpenCurType(cv2,'D');FETCHcv2INTODeptRec;WHILEcv2%FOUND LOOP

DBMS_OUTPUT.PUT_LINE(deptrec.deptno||':'||deptrec.dname);FETCHcv2INTOdeptrec;ENDLOOP;

DBMS_OUTPUT.PUT_LINE('游标变量弱类型定义应用—emp表');

UP_OpenCurType(cv2,'E');FETCHcv2INTOEmpRec;WHILEcv2%FOUND LOOP

DBMS_OUTPUT.PUT_LINE(emprec.empno||':'||emprec.ename);FETCHcv2INTOemprec;ENDLOOP;CLOSEcv2;END;----------运行结果-------------------游标变量强类型定义应用10:ACCOUNTING20:RESEARCH30:SALES

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

游标变量弱类型定义应用—dept表10:ACCOUNTING20:RESEARCH30:SALES40:OPERATIONS50:50abc60:Developer

游标变量弱类型定义应用—emp表7369:SMITH7499:ALLEN7521:WARD7566:JONES7654:MARTIN7698:BLAKE7782:CLARK7788:SCOTT7839:KING7844:TURNER7876:ADAMS7900:JAMES7902:FORD7934:MILLER

PL/SQLproceduresuccessfully 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--******************************************CREATEORREPLACEPACKAGE DEMO_PKG1ISDeptRec dept%ROWTYPE;

V_sqlcodeNUMBER;

V_sqlerrVARCHAR2(2048);--两个子程序名字相同,但参数类型不同FUNCTIONquery_dept(dept_noINNUMBER)RETURNINTEGER;FUNCTIONquery_dept(dept_noINVARCHAR2)RETURNINTEGER;ENDDEMO_PKG1;--*******************************************--创建包体--包   名：DEMO_PKG1--功能描述：创建包对子程序重载进行测试--创建人员：胡勇--创建日期：2010-05-22--Q     Q: 80368704--E-mail : 80368704@yahoo.com.cn--WebSite: http://www.cnblogs.com/huyong--******************************************CREATEORREPLACEPACKAGE BODY DEMO_PKG1ISFUNCTIONcheck_dept(dept_noNUMBER)RETURNINTEGERISdeptCntINTEGER;--指定部门号的部门数量BEGINSELECTCOUNT(*)INTOdeptCntFROMdeptWHEREdeptno=dept_no;IFdeptCnt>0THENRETURN1;ELSERETURN0;ENDIF;ENDcheck_dept;FUNCTIONcheck_dept(dept_noVARCHAR2)RETURNINTEGERISdeptCntINTEGER;BEGINSELECTCOUNT(*)INTOdeptCntFROMdeptWHEREdeptno=dept_no;IFdeptCnt>0THENRETURN1;ELSERETURN0;ENDIF;ENDcheck_dept;FUNCTIONquery_dept(dept_noINNUMBER)RETURNINTEGERISBEGINIFcheck_dept(dept_no)=1THENSELECT*INTODeptRecFROMdeptWHEREdeptno=dept_no;RETURN1;ELSERETURN0;ENDIF;ENDquery_dept;FUNCTIONquery_dept(dept_noINVARCHAR2)RETURNINTEGERISBEGINIFcheck_dept(dept_no)=1THENSELECT*INTODeptRecFROMdeptWHEREdeptno=dept_no;RETURN1;ELSERETURN0;ENDIF;ENDquery_dept;ENDDEMO_PKG1;

7.6加密实用程序

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

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

格式为：

WRAP INAME= [ONAME=]

wrap iname=e:\sample.txt

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

7.7删除包

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

DROPPACKAGE[BODY][user.]package_name;DROPPROCEDUREOpenCurType;--删除存储过程--删除我们实例中创建的各个包DROPPACKAGE demo_pack;DROPPACKAGE demo_pack1;DROPPACKAGE emp_mgmt;DROPPACKAGE emp_package;

7.8包的管理

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

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

ALTERPACKAGE package_name COMPILE[PACKAGE|BODY|SPECIFICATION];

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

DBA_SOURCE,USER_SOURCE,USER_ERRORS,DBA-OBJECTS

如，我们可以用：selecttextfromuser_sourcewherename='DEMO_PKG1';来查看我们创建的包的源码。