第十讲程序包.pptVIP

数据包 主讲：申友访 邮箱： 10bigbull@163.com 数据包概述 ? 数据包是一个数据库对象，它在逻辑上组合了相关的 PL/SQL 类型、对象和子程序。数据包一般有两部分， 即说明和主体。说明是应用程序的界面，它声明了可 用的类型、变量、常量、异常、游标和子程序。主体 则完全的定义了游标和子程序及如何执行说明的内容。 ? 与子程序不同，数据包不能被调用，或作为参数传递 或嵌套。其格式仍与子程序的格式类似。 包说明及主体 ? 格式： Create [ Or Replace] Package 数据包名 AS -- 公共类型和对象声明 -- 子程序说明 End [ 数据包名 ]; Create [or replace] package body 数据包名 as -- 私有类型和对象声明 -- 子程序主体 Begin -- 初始化语句 End [ 数据包名 ] ； 包调用 ? 包名 . 类型名； ? 包名 . 函数名 [ 参数表 ]; ? 包名 . 过程名 [ 参数表 ]; 包调用 ? 显示绑定到引用游标变量上的值 set AutoPrint on; variable tempCur RefCursor; exec StudentPackage.ReturnStudent(:tempCur); -- ：表示 SQLPLUS 中的环境变量 包的删除 ? 包的删除 ? drop package [body] 数据包名 ； ? drop package body studentPackage; 建立包体的注意事项 1. 包体只能在包说明被编译后才进行编译 2. 在包说明中的过程、函数名称必须严格地与包体中实 现部分的过程、函数名称相匹配。 3. 在包体的执行部分可以对包说明中声明的变量进行初 始化，因为包不能传递参数，所以只能通过这种方法 进行初始化。包的初始化只在第一次调用包的时候运 行一次。 4. 在包体中声明的数据类型、变量、常量都是私有的， 只能在包体中使用。但在包体中可以使用在包说明中 声明的数据类型、变量、常量。 在数据包中使用 REFCURSOR 变量 create or replace package dept_data as type deptcurtyp is ref cursor return dept%rowtype; procedure open_dept_cv(dept_cv in out deptcurtyp); end dept_data; create or replace package body dept_data as procedure open_dept_cv(dept_cv in out deptcurtyp) is begin open dept_cv for select * from dept; end open_dept_cv; end dept_data; 使用 refcursor 游标 var a refcursor; set autoprint on; exec dept_data.open_dept_cv(:a); 示 例 create or replace package emp_package is g_deptno number(3):=30; procedure add_employee (eno number,name varchar2,salary number, dno number default g_deptno); procedure fire_employee(eno number); function get_sal(eno number) return number; end emp_package; 示 例 create or replace package body emp_package is function validate_deptno(v_deptno number) return boolean is v_temp int; begin select 1 into v_temp from dept where deptno=v_deptno; return true; exception when no_data_found then return false; end; 示 例 procedure add_employee(eno number,name varchar2,salary number, dno number default g_deptno) is begin if validate_deptno(dno) then insert into emp(empno,ename,sal,deptno