Oracle—包和包体(转)

2024-09-02 00:38
文章标签 oracle 包体

本文主要是介绍Oracle—包和包体(转),希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!


包的概念和组成

包是用来存储相关程序结构的对象,它存储于数据字典中。包由两个分离的部分组成:包头(PACKAGE)和包体(PACKAGE BODY)。 包头是包的说明部分,是对外的操作接口,对应用是可见的包体是包的代码和实现部分,对应用来说是不可见的黑盒

包中可以包含的程序结构如下所示。

过程(PROCUDURE)   带参数的命名的程序模块  
函数(FUNCTION)    带参数、具有返回值的命名的程序模块  
变量(VARIABLE)    存储变化的量的存储单元  
常量(CONSTANT)    存储不变的量的存储单元  
游标(CURSOR)      用户定义的数据操作缓存区,在可执行部分使用  
类型(TYPE)        用户定义的新的结构类型  
异常(EXCEPTION)   在标准包中定义或由用户自定义,用于处理程序错误 
说明部分可以出现在包的三个不同的部分:出现在包头中的称为 公有元素,出现在包体中的称为 私有元素,出现在包体的过程(或函数)中的称为 局部变量。它们的性质有所不同,如下所示。
    公有元素(PUBLIC)    在包头中说明,在包体中具体定义   在包外可见并可以访问,对整个应用的全过程有效  私有元素(PRIVATE)   在包体的说明部分说明             只能被包内部的其他部分访问  局部变量(LOCAL)     在过程或函数的说明部分说明       只能在定义变量的过程或函数中使用  
在包体中出现的过程或函数,如果需要对外公用,就必须在包头中说明,包头中的说明应该和包体中的说明一致。
包有以下优点:
  * 包可以方便地将存储过程和函数组织到一起,每个包又是相互独立的。在不同的包中,过程、函数都可以重名,这解决了在同一个用户环境中命名的冲突问题。
  * 包增强了对存储过程和函数的安全管理,对整个包的访问权只需一次授予。
  * 在同一个会话中,公用变量的值将被保留,直到会话结束。
  * 区分了公有过程和私有过程,包体的私有过程增加了过程和函数的保密性。

  * 包在被首次调用时,就作为一个整体被全部调入内存,减少了多次访问过程或函数的I/O次数。


创建包和包体
包由包头和包体两部分组成, 包的创建应该先创建包头部分,然后创建包体部分。创建、删除和编译包的权限同创建、删除和编译存储过程的权限相同。
创建包头的简要语句如下:
CREATE [OR REPLACE] PACKAGE 包名
{IS|AS}
公有变量定义
公有类型定义
公有游标定义
公有异常定义
函数说明
过程说明
END;
创建包体的简要语法如下:
CREATE [OR REPLACE] PACKAGE BODY 包名
{IS|AS}
私有变量定义
私有类型定义
私有游标定义
私有异常定义
函数定义
过程定义
END;
包的其他操作命令包括:
删除包头
DROP PACKAGE 包头名
删除包体
DROP PACKAGE BODY 包体名
重新编译包头:
ALTER PACKAGE 包名 COMPILE PACKAGE
重新编译包体:
ALTER PACKAGE 包名 COMPILE PACKAGE BODY
在包头中说明的对象可以在包外调用,调用的方法和调用单独的过程或函数的方法基本相同,惟一的区别就是 要在调用的过程或函数名前加上包的名字(中间用“.”分隔)。但要注意,不同的会话将单独对包的公用变量进行初始化,所以不同的会话对包的调用属于不同的应用。
系统包
Oracle预定义了很多标准的系统包,这些包可以在应用中直接使用,比如在训练中我们使用的 DBMS_OUTPUT包,就是系统包。 PUT_LINE是该包的一个函数。常用系统包下所示。
    DBMS_OUTPUT         在SQL*Plus环境下输出信息  DBMS_DDL            编译过程函数和包  DBMS_SESSION        改变用户的会话,初始化包等  DBMS_TRANSACTION    控制数据库事务  DBMS_MAIL           连接Oracle*Mail  DBMS_LOCK           进行复杂的锁机制管理  DBMS_ALERT          识别数据库事件告警  DBMS_PIPE           通过管道在会话间传递信息  DBMS_JOB            管理Oracle的作业  DBMS_LOB            操纵大对象  DBMS_SQL            执行动态SQL语句  
包的应用
在SQL*Plus环境下,包和包体可以分别编译,也可以一起编译。如果分别编译,则要先编译包头,后编译包体。如果在一起编译,则包头写在前,包体在后,中间用“/”分隔。
可以将已经存在的存储过程或函数添加到包中,方法是去掉过程或函数创建语句的CREATE OR REPLACE部分,将存储过程或函数复制到包体中 ,然后重新编译即可。
   如果需要将私有过程或函数变成共有过程或函数的话,将过程或函数说明部分复制到包头说明部分,然后重新编译就可以了。
【训练1】  创建管理雇员信息的包EMPLOYE,它具有从EMP表获得雇员信息,修改雇员名称,修改雇员工资和写回EMP表的功能。
步骤1:登录SCOTT账户,输入以下代码并编译:
    CREATE OR REPLACE PACKAGE EMPLOYE --包头部分   IS  PROCEDURE SHOW_DETAIL;   PROCEDURE GET_EMPLOYE(P_EMPNO NUMBER);   PROCEDURE SAVE_EMPLOYE;   PROCEDURE CHANGE_NAME(P_NEWNAME VARCHAR2);   PROCEDURE CHANGE_SAL(P_NEWSAL NUMBER);   END EMPLOYE;  /  --包头和包体分隔符CREATE OR REPLACE PACKAGE BODY EMPLOYE --包体部分   IS  EMPLOYE EMP%ROWTYPE;  ------------------ 显示雇员信息 ---------------  PROCEDURE SHOW_DETAIL  AS  BEGIN  DBMS_OUTPUT.PUT_LINE(‘----- 雇员信息 -----’);     DBMS_OUTPUT.PUT_LINE('雇员编号:'||EMPLOYE.EMPNO);  DBMS_OUTPUT.PUT_LINE('雇员名称:'||EMPLOYE.ENAME);  DBMS_OUTPUT.PUT_LINE('雇员职务:'||EMPLOYE.JOB);  DBMS_OUTPUT.PUT_LINE('雇员工资:'||EMPLOYE.SAL);  DBMS_OUTPUT.PUT_LINE('部门编号:'||EMPLOYE.DEPTNO);  END SHOW_DETAIL;  ----------------- 从EMP表取得一个雇员 --------------------  PROCEDURE GET_EMPLOYE(P_EMPNO NUMBER)  AS  BEGIN  SELECT * INTO EMPLOYE FROM EMP WHERE EMPNO=P_EMPNO;  DBMS_OUTPUT.PUT_LINE('获取雇员'||EMPLOYE.ENAME||'信息成功');  EXCEPTION  WHEN OTHERS THEN  DBMS_OUTPUT.PUT_LINE('获取雇员信息发生错误!');  END GET_EMPLOYE;  ---------------------- 保存雇员到EMP表 --------------------------  PROCEDURE SAVE_EMPLOYE  AS  BEGIN  UPDATE EMP SET ENAME=EMPLOYE.ENAME, SAL=EMPLOYE.SAL WHERE EMPNO=EMPLOYE.EMPNO;  DBMS_OUTPUT.PUT_LINE('雇员信息保存完成!');  END SAVE_EMPLOYE;  ---------------------------- 修改雇员名称 ------------------------------  PROCEDURE CHANGE_NAME(P_NEWNAME VARCHAR2)  AS  BEGIN  EMPLOYE.ENAME:=P_NEWNAME;  DBMS_OUTPUT.PUT_LINE('修改名称完成!');  END CHANGE_NAME;  ---------------------------- 修改雇员工资 --------------------------  PROCEDURE CHANGE_SAL(P_NEWSAL NUMBER)  AS  BEGIN  EMPLOYE.SAL:=P_NEWSAL;  DBMS_OUTPUT.PUT_LINE('修改工资完成!');  END CHANGE_SAL;  END EMPLOYE;  
步骤2:获取雇员7788的信息:
    SET SERVEROUTPUT ON  EXECUTE EMPLOYE.GET_EMPLOYE(7788);  
结果为:
    获取雇员SCOTT信息成功  PL/SQL 过程已成功完成。  
步骤3:显示雇员信息:
    EXECUTE EMPLOYE.SHOW_DETAIL;  
结果为:
------------------ 雇员信息 ------------------  雇员编号:7788  雇员名称:SCOTT  雇员职务:ANALYST  雇员工资:3000  部门编号:20  PL/SQL 过程已成功完成。 
步骤4:修改雇员工资:
EXECUTE EMPLOYE.CHANGE_SAL(3800); 
结果为:
    修改工资完成!  PL/SQL 过程已成功完成。  
步骤5:将修改的雇员信息存入EMP表
    EXECUTE EMPLOYE.SAVE_EMPLOYE;  
结果为:
雇员信息保存完成!  PL/SQL 过程已成功完成。 

说明:该包完成将EMP表中的某个雇员的信息取入内存记录变量,在记录变量中进行修改编辑,在确认显示信息正确后写回EMP表的功能。记录变量EMPLOYE用来存储取得的雇员信息,定义为私有变量,只能被包的内部模块访问。


阶段训练
下面的训练通过定义和创建完整的包EMP_PK并综合运用本章的知识,完成对雇员表的插入、删除等功能,包中的主要元素解释如下所示。

程序结构      类  型      说    明  
V_EMP_COUNT     公有变量    跟踪雇员的总人数变化,插入、删除雇员的同时修改该变量的值  
INIT            公有过程    对包进行初始化,初始化雇员人数和工资修改的上、下限  
LIST_EMP        公有过程    显示雇员列表  
INSERT_EMP      公有过程    通过编号插入新雇员  
DELETE_EMP      公有过程    通过编号删除雇员  
CHANGE_EMP_SAL  公有过程    通过编号修改雇员工资  
V_MESSAGE       私有变量    存放准备输出的信息  
C_MAX_SAL       私有变量    对工资修改的上限  
C_MIN_SAL       私有变量    对工资修改的下限  
SHOW_MESSAGE    私有过程    显示私有变量V_MESSAGE中的信息  
EXIST_EMP       私有函数    判断某个编号的雇员是否存在,该函数被INSERT_EMP、DELETE_EMP和CHANGE_EMP_SAL等过程调用 
【训练1】  完整的雇员包EMP_PK的创建和应用。
步骤1:在SQL*Plus中登录SCOTT账户,输入以下包头和包体部分,按“执行”按钮编译:

        CREATE OR REPLACE PACKAGE EMP_PK   --包头部分   IS  V_EMP_COUNT NUMBER(5);                      --雇员人数  PROCEDURE INIT(P_MAX NUMBER,P_MIN NUMBER);  --初始化  PROCEDURE LIST_EMP;                         --显示雇员列表  PROCEDURE INSERT_EMP(P_EMPNO NUMBER,P_ENAME VARCHAR2,P_JOB VARCHAR2,P_SAL NUMBER);     --插入雇员  PROCEDURE DELETE_EMP(P_EMPNO NUMBER);       --删除雇员  PROCEDURE CHANGE_EMP_SAL(P_EMPNO NUMBER,P_SAL NUMBER);   --修改雇员工资  END EMP_PK;  /CREATE OR REPLACE PACKAGE BODY EMP_PK   --包体部分   IS  V_MESSAGE VARCHAR2(50); --显示信息  V_MAX_SAL NUMBER(7); --工资上限  V_MIN_SAL NUMBER(7); --工资下限  FUNCTION EXIST_EMP(P_EMPNO NUMBER)  RETURN  BOOLEAN; --判断雇员是否存在函数  PROCEDURE SHOW_MESSAGE; --显示信息过程  ------------------------------- 初始化过程 ----------------------------  PROCEDURE INIT(P_MAX NUMBER,P_MIN NUMBER)   IS   BEGIN  SELECT COUNT(*) INTO V_EMP_COUNT FROM EMP;  V_MAX_SAL:=P_MAX;  V_MIN_SAL:=P_MIN;  V_MESSAGE:='初始化过程已经完成!';  SHOW_MESSAGE;   END INIT;  ---------------------------- 显示雇员列表过程 ---------------------  PROCEDURE LIST_EMP   IS   BEGIN  DBMS_OUTPUT.PUT_LINE('姓名       职务      工资');  FOR emp_rec IN (SELECT * FROM EMP)  LOOP  DBMS_OUTPUT.PUT_LINE(RPAD(emp_rec.ename,10,'')||RPAD(emp_rec.job,10,' ')||TO_CHAR(emp_rec.sal));  END LOOP;  DBMS_OUTPUT.PUT_LINE('雇员总人数'||V_EMP_COUNT);  END LIST_EMP;  ----------------------------- 插入雇员过程 -----------------------------  PROCEDUREINSERT_EMP(P_EMPNO     NUMBER,P_ENAMEVARCHAR2,P_JOB    VARCHAR2,P_SAL NUMBER)  IS   BEGIN  IF NOT EXIST_EMP(P_EMPNO) THEN  INSERT INTO EMP(EMPNO,ENAME,JOB,SAL)        VALUES(P_EMPNO,P_ENAME,P_JOB,P_SAL);  COMMIT;   V_EMP_COUNT:=V_EMP_COUNT+1;  V_MESSAGE:='雇员'||P_EMPNO||'已插入!';  ELSE  V_MESSAGE:='雇员'||P_EMPNO||'已存在,不能插入!';  END IF;  SHOW_MESSAGE;   EXCEPTION  WHEN OTHERS THEN  V_MESSAGE:='雇员'||P_EMPNO||'插入失败!';  SHOW_MESSAGE;  END INSERT_EMP;  --------------------------- 删除雇员过程 --------------------  PROCEDURE DELETE_EMP(P_EMPNO NUMBER)   IS   BEGIN   IF EXIST_EMP(P_EMPNO) THEN  DELETE FROM EMP WHERE EMPNO=P_EMPNO;  COMMIT;  V_EMP_COUNT:=V_EMP_COUNT-1;  V_MESSAGE:='雇员'||P_EMPNO||'已删除!';  ELSE  V_MESSAGE:='雇员'||P_EMPNO||'不存在,不能删除!';  END IF;  SHOW_MESSAGE;  EXCEPTION  WHEN OTHERS THEN  V_MESSAGE:='雇员'||P_EMPNO||'删除失败!';  SHOW_MESSAGE;  END DELETE_EMP;  --------------------------------------- 修改雇员工资过程 ------------------------------------  PROCEDURE CHANGE_EMP_SAL(P_EMPNO NUMBER,P_SAL NUMBER)   IS   BEGIN   IF (P_SAL>V_MAX_SAL OR P_SAL<V_MIN_SAL) THEN  V_MESSAGE:='工资超出修改范围!';  ELSIF NOT EXIST_EMP(P_EMPNO) THEN  V_MESSAGE:='雇员'||P_EMPNO||'不存在,不能修改工资!';  ELSE  UPDATE EMP SET SAL=P_SAL WHERE EMPNO=P_EMPNO;  COMMIT;  V_MESSAGE:='雇员'||P_EMPNO||'工资已经修改!';  END IF;  SHOW_MESSAGE;  EXCEPTION  WHEN OTHERS THEN  V_MESSAGE:='雇员'||P_EMPNO||'工资修改失败!';  SHOW_MESSAGE;  END CHANGE_EMP_SAL;  ---------------------------- 显示信息过程 ----------------------------  PROCEDURE SHOW_MESSAGE   IS   BEGIN  DBMS_OUTPUT.PUT_LINE('提示信息:'||V_MESSAGE);  END SHOW_MESSAGE;  ------------------------ 判断雇员是否存在函数 -------------------  FUNCTION EXIST_EMP(P_EMPNO NUMBER)  RETURN BOOLEAN   IS  V_NUM NUMBER; --局部变量  BEGIN  SELECT COUNT(*) INTO V_NUM FROM EMP WHERE EMPNO=P_EMPNO;  IF V_NUM=1 THEN   RETURN TRUE;  ELSE  RETURN FALSE;  END IF;   END EXIST_EMP;  -----------------------------  END EMP_PK; 
步骤2:初始化包:
    SET SERVEROUTPUT ON  EXECUTE EMP_PK.INIT(6000,600);  
结果为:
提示信息:初始化过程已经完成! 
步骤3:显示雇员列表:
EXECUTE EMP_PK.LIST_EMP;
结果为:
            姓名          职务          工资  SMITH         CLERK         1560  ALLEN         SALESMAN      1936  WARD          SALESMAN      1830  JONES         MANAGER       2975  ...  雇员总人数:14  PL/SQL 过程已成功完成。  
步骤4:插入一个新记录:
    EXECUTE EMP_PK.INSERT_EMP(8001,'小王','CLERK',1000);  
显示结果为:
    提示信息:雇员8001已插入!  PL/SQL 过程已成功完成。  
步骤5:通过全局变量V_EMP_COUNT查看雇员人数:
    BEGIN  DBMS_OUTPUT.PUT_LINE(EMP_PK.V_EMP_COUNT);  END;  
显示结果为:
15  
PL/SQL 过程已成功完成。
步骤6:删除新插入记录:
EXECUTE EMP_PK.DELETE_EMP(8001); 
显示结果为:
    提示信息:雇员8001已删除!  PL/SQL 过程已成功完成。  
再次删除该雇员:
    EXECUTE EMP_PK.DELETE_EMP(8001);  
结果为:
提示信息:雇员8001不存在,不能删除!  
步骤7:修改雇员工资:
EXECUTE EMP_PK.CHANGE_EMP_SAL(7788,8000); 
显示结果为:
提示信息:工资超出修改范围!  PL/SQL 过程已成功完成。
步骤8:授权其他用户调用包:
如果是另外一个用户要使用该包,必须由包的所有者授权,下面授予STUDEN账户对该包的使用权:
    GRANT EXECUTE ON EMP_PK TO STUDENT;  
每一个新的会话要为包中的公用变量开辟新的存储空间,所以需要重新执行初始化过程。两个会话的进程互不影响。
步骤9:其他用户调用包。
启动另外一个SQL*Plus,登录STUDENT账户,执行以下过程:
    SET SERVEROUTPUT ON  EXECUTE SCOTT.EMP_PK. EMP_PK.INIT(5000,700);  
结果为:
提示信息:初始化过程已经完成!  PL/SQL 过程已成功完成。 
说明:在初始化中设置雇员的总人数和修改工资的上、下限,初始化后V_EMP_COUNT为14人,插入雇员后V_EMP_COUNT为15人。V_EMP_COUNT为公有变量,所以可以在外部程序中使用DBMS_OUTPUT.PUT_LINE输出,引用时用EMP_PK.V_EMP_COUNT的形式,说明所属的包。而私有变量V_MAX_SAL和V_MIN_SAL不能被外部访问,只能通过内部过程来修改。同样,EXIST_EMP和SHOW_MESSAGE也是私有过程,也只能在过程体内被其他模块引用。
注意:在最后一个步骤中,因为STUDENT模式调用了SCOTT模式的包,所以包名前要增加模式名SCOTT。不同的会话对包的调用属于不同的应用,所以需要重新进行初始化。


























































这篇关于Oracle—包和包体(转)的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/1128503

相关文章

Oracle type (自定义类型的使用)

oracle - type   type定义: oracle中自定义数据类型 oracle中有基本的数据类型,如number,varchar2,date,numeric,float....但有时候我们需要特殊的格式, 如将name定义为(firstname,lastname)的形式,我们想把这个作为一个表的一列看待,这时候就要我们自己定义一个数据类型 格式 :create or repla

ORACLE 11g 创建数据库时 Enterprise Manager配置失败的解决办法 无法打开OEM的解决办法

在win7 64位系统下安装oracle11g,在使用Database configuration Assistant创建数据库时,在创建到85%的时候报错,错误如下: 解决办法: 在listener.ora中增加对BlueAeri-PC或ip地址的侦听,具体步骤如下: 1.启动Net Manager,在“监听程序”--Listener下添加一个地址,主机名写计

Oracle Start With关键字

Oracle Start With关键字 前言 旨在记录一些Oracle使用中遇到的各种各样的问题. 同时希望能帮到和我遇到同样问题的人. Start With (树查询) 问题描述: 在数据库中, 有一种比较常见得 设计模式, 层级结构 设计模式, 具体到 Oracle table中, 字段特点如下: ID, DSC, PID; 三个字段, 分别表示 当前标识的 ID(主键), DSC 当

oracle分页和mysql分页

mysql 分页 --查前5 数据select * from table_name limit 0,5 select * from table_name limit 5 --limit关键字的用法:LIMIT [offset,] rows--offset指定要返回的第一行的偏移量,rows第二个指定返回行的最大数目。初始行的偏移量是0(不是1)。   oracle 分页 --查前1-9

ORACLE语法-包(package)、存储过程(procedure)、游标(cursor)以及java对Result结果集的处理

陈科肇 示例: 包规范 CREATE OR REPLACE PACKAGE PACK_WMS_YX IS-- Author : CKZ-- Created : 2015/8/28 9:52:29-- Purpose : 同步数据-- Public type declarations,游标 退休订单TYPE retCursor IS REF CURSOR;-- RETURN vi_co_co

Oracle主键和外键详解及实用技巧

在 Oracle 数据库中,主键(Primary Key)和外键(Foreign Key)用于维护数据库表之间的数据完整性。 1. 主键(Primary Key) 主键是一列或多列,能够唯一标识表中的每一行。表中只能有一个主键,并且主键列不能为空(即 NOT NULL)。 特性: 唯一性:主键中的每一个值都是唯一的,不能重复。非空性:主键列不能包含 NULL 值。索引:Oracle 自动为

分享MSSQL、MySql、Oracle的大数据批量导入方法及编程手法细节

1:MSSQL SQL语法篇: BULK INSERT      [ database_name . [ schema_name ] . | schema_name . ] [ table_name | view_name ]         FROM 'data_file'        [ WITH       (      [ [ , ] BATCHSIZE = batch_siz

Oracle start with connect BY 死循环

解决办法 检查start with前有没有where条件, 如果有的话,套一层select,再 Oracle start with connect BY

Java调用Oracle存储过程一

一、通过PL/SQL工具连接上Oracle数据库,创建表zx_test_procedure 二、创建存储过程 ①无返回值的存储过程 存储过程为: create or replace procedure testa (para1 in varchar2,para2 in varchar2) as begin insert into zx_test_procedure(i_id,i_n

PL/SQL工具创建Oracle数据库表,实现id字段的自动递增

通过PL/SQL工具,创建Oracle数据库表,如何实现字段ID自动递增; Oracle的自增需要依靠序列和触发器共同实现 比如:先创建一个表 create table test (id int primary key, name varchar2(10)); 创建一个序列 create sequence test_seq increment by 1 start with 1  min