在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
oracle 创建,删除存储过程,参数传递,创建,删除存储函数,存储过程和函数的查看,包,系统包 认识存储过程和函数 存储过程和函数也是一种PL/SQL块,是存入数据库的PL/SQL块。但存储过程和函数不同于已经介绍过的PL/SQL程序,我们通常把PL/SQL程序称为无名块,而存储过程和函数是以命名的方式存储于数据库中的。和PL/SQL程序相比,存储过程有很多优点,具体归纳如下: 创建和删除存储过程 创建存储过程,需要有CREATE PROCEDURE或CREATE ANY PROCEDURE的系统权限。该权限可由系统管理员授予。创建一个存储过程的基本语句如下: 其中: DROP PROCEDURE 存储过程名; 如果要重新编译一个存储过程,则只能是过程的创建者或者拥有ALTER ANY PROCEDURE系统权限的人。语法如下: ALTER PROCEDURE 存储过程名 COMPILE; 执行(或调用)存储过程的人是过程的创建者或是拥有EXECUTE ANY PROCEDURE系统权限的人或是被拥有者授予EXECUTE权限的人。执行的方法如下: 【训练1】 创建一个显示雇员总人数的存储过程。 步骤1:登录SCOTT账户(或学生个人账户)。 复制代码 代码如下: CREATE OR REPLACE PROCEDURE EMP_COUNT AS V_TOTAL NUMBER(10); BEGIN SELECT COUNT(*) INTO V_TOTAL FROM EMP; DBMS_OUTPUT.PUT_LINE('雇员总人数为:'||V_TOTAL); END; 步骤3:按“执行”按钮进行编译。 复制代码 代码如下: 过程已创建。 步骤4:调用存储过程,在输入区中输入以下语句并执行: 复制代码 代码如下: EXECUTE EMP_COUNT; 显示结果为: 复制代码 代码如下: 雇员总人数为:14 PL/SQL 过程已成功完成。 说明:在该训练中,V_TOTAL变量是存储过程定义的局部变量,用于接收查询到的雇员总人数。 【训练2】 在PL/SQL程序中调用存储过程。 步骤1:登录SCOTT账户。 复制代码 代码如下: GRANT EXECUTE ON EMP_COUNT TO STUDENT 授权成功。 步骤3:登录STUDENT账户,在SQL*Plus输入区中输入以下程序: 复制代码 代码如下: SET SERVEROUTPUT ON BEGIN SCOTT.EMP_COUNT; END; 步骤4:执行以上程序,结果为: 复制代码 代码如下: 雇员总人数为:14 PL/SQL 过程已成功完成。 说明:在本例中,存储过程是由SCOTT账户创建的,STUDEN账户获得SCOTT账户的授权后,才能调用该存储过程。 【训练3】 编写显示雇员信息的存储过程EMP_LIST,并引用EMP_COUNT存储过程。 步骤1:在SQL*Plus输入区中输入并编译以下存储过程: 复制代码 代码如下: CREATE OR REPLACE PROCEDURE EMP_LIST AS CURSOR emp_cursor IS SELECT empno,ename FROM emp; BEGIN FOR Emp_record IN emp_cursor LOOP DBMS_OUTPUT.PUT_LINE(Emp_record.empno||Emp_record.ename); END LOOP; EMP_COUNT; END; 执行结果: 过程已创建。 步骤2:调用存储过程,在输入区中输入以下语句并执行: 复制代码 代码如下: EXECUTE EMP_LIST 显示结果为: 复制代码 代码如下: 7369SMITH 7499ALLEN 7521WARD 7566JONES 执行结果: 雇员总人数为:14 PL/SQL 过程已成功完成。 说明:以上的EMP_LIST存储过程中定义并使用了游标,用来循环显示所有雇员的信息。然后调用已经成功编译的存储过程EMP_COUNT,用来附加显示雇员总人数。通过EXECUTE命令来执行EMP_LIST存储过程。 【练习1】编写显示部门信息的存储过程DEPT_LIST,要求统计出部门个数。 参数传递 参数的作用是向存储过程传递数据,或从存储过程获得返回结果。正确的使用参数可以大大增加存储过程的灵活性和通用性。 复制代码 代码如下: IN 定义一个输入参数变量,用于传递参数给存储过程 OUT 定义一个输出参数变量,用于从存储过程获取数据 IN OUT 定义一个输入、输出参数变量,兼有以上两者的功能 参数的定义形式和作用如下: 复制代码 代码如下: CREATE OR REPLACE PROCEDURE CHANGE_SALARY(P_EMPNO IN NUMBER DEFAULT 7788,P_RAISE NUMBER DEFAULT 10) AS V_ENAME VARCHAR2(10); V_SAL NUMBER(5); BEGIN SELECT ENAME,SAL INTO V_ENAME,V_SAL FROM EMP WHERE EMPNO=P_EMPNO; UPDATE EMP SET SAL=SAL+P_RAISE WHERE EMPNO=P_EMPNO; DBMS_OUTPUT.PUT_LINE('雇员'||V_ENAME||'的工资被改为'||TO_CHAR(V_SAL+P_RAISE)); COMMIT; EXCEPTION WHEN OTHERS THEN DBMS_OUTPUT.PUT_LINE('发生错误,修改失败!'); ROLLBACK; END; 执行结果为: 过程已创建。 步骤3:调用存储过程,在输入区中输入以下语句并执行: 复制代码 代码如下: EXECUTE CHANGE_SALARY(7788,80) 显示结果为: 雇员SCOTT的工资被改为3080 说明:从执行结果可以看到,雇员SCOTT的工资已由原来的3000改为3080。 复制代码 代码如下: EXECUTE CHANGE_SALARY 显示结果为: 雇员SCOTT的工资被改为3090 说明:在存储过程的调用中没有传递参数,而是采用了默认值7788和10,即默认雇员号为7788,增加的工资为10。 复制代码 代码如下: CREATE OR REPLACE PROCEDURE EMP_COUNT(P_TOTAL OUT NUMBER) AS BEGIN SELECT COUNT(*) INTO P_TOTAL FROM EMP; END; 执行结果为: 1.过程已创建。 步骤3:输入以下程序并执行: 复制代码 代码如下: DECLARE V_EMPCOUNT NUMBER; BEGIN EMP_COUNT(V_EMPCOUNT); DBMS_OUTPUT.PUT_LINE('雇员总人数为:'||V_EMPCOUNT); END; 显示结果为: 复制代码 代码如下: 雇员总人数为:14 PL/SQL 过程已成功完成。 说明:在存储过程中定义了OUT类型的参数P_TOTAL,在主程序调用该存储过程时,传递了参数V_EMPCOUNT。在存储过程中的SELECT...INTO...语句中对P_TOTAL进行赋值,赋值结果由V_EMPCOUNT变量带回给主程序并显示。 复制代码 代码如下: ERROR 位于第 1 行: ORA-00955: 名称已由现有对象使用。 【练习2】创建存储过程,使用OUT类型参数获得雇员经理名。 复制代码 代码如下: CREATE OR REPLACE PROCEDURE ADD_REGION(P_HPONE_NUM IN OUT VARCHAR2) AS BEGIN P_HPONE_NUM:='0755-'||P_HPONE_NUM; END; 执行结果为: 过程已创建。 步骤3:输入以下程序并执行: 复制代码 代码如下: SET SERVEROUTPUT ON DECLARE V_PHONE_NUM VARCHAR2(15); BEGIN V_PHONE_NUM:='26731092'; ADD_REGION(V_PHONE_NUM); DBMS_OUTPUT.PUT_LINE('新的电话号码:'||V_PHONE_NUM); END; 显示结果为: 复制代码 代码如下: 新的电话号码:0755-26731092 PL/SQL 过程已成功完成。 说明:变量V_HPONE_NUM既用来向存储过程传递旧电话号码,也用来向主程序返回新号码。新的号码在原来基础上增加了区号0755和-。 创建和删除存储函数 创建函数,需要有CREATE PROCEDURE或CREATE ANY PROCEDURE的系统权限。该权限可由系统管理员授予。创建存储函数的语法和创建存储过程的类似,即 【训练1】 创建一个通过雇员编号返回雇员名称的函数GET_EMP_NAME。 复制代码 代码如下: CREATE OR REPLACE FUNCTION GET_EMP_NAME(P_EMPNO NUMBER DEFAULT 7788) RETURN VARCHAR2 AS V_ENAME VARCHAR2(10); BEGIN ELECT ENAME INTO V_ENAME FROM EMP WHERE EMPNO=P_EMPNO; RETURN(V_ENAME); EXCEPTION WHEN NO_DATA_FOUND THEN DBMS_OUTPUT.PUT_LINE('没有该编号雇员!'); RETURN (NULL); WHEN TOO_MANY_ROWS THEN DBMS_OUTPUT.PUT_LINE('有重复雇员编号!'); RETURN (NULL); WHEN OTHERS THEN DBMS_OUTPUT.PUT_LINE('发生其他错误!'); RETURN (NULL); END; 步骤3:调用该存储函数,输入并执行以下程序: 复制代码 代码如下: BEGIN DBMS_OUTPUT.PUT_LINE('雇员7369的名称是:'|| GET_EMP_NAME(7369)); DBMS_OUTPUT.PUT_LINE('雇员7839的名称是:'|| GET_EMP_NAME(7839)); END; 显示结果为: 复制代码 代码如下: 雇员7369的名称是:SMITH 雇员7839的名称是:KING PL/SQL 过程已成功完成。 说明:函数的调用直接出现在程序的DBMS_OUTPUT.PUT_LINE语句中,作为字符串表达式的一部分。如果输入了错误的雇员编号,就会在函数的错误处理部分输出错误信息。试修改雇员编号,重新运行调用部分。 复制代码 代码如下: DESCRIBE USER_SOURCE 结果为: 复制代码 代码如下: 名称 是否为空? 类型 ------------------------------------------------------------- ------------- ----------------------- NAME VARCHAR2(30) TYPE VARCHAR2(12) LINE NUMBER TEXT VARCHAR2(4000) 说明:里面按行存放着过程或函数的脚本,NAME是过程或函数名,TYPE 代表类型(PROCEDURE或FUNCTION),LINE是行号,TEXT 为脚本。 复制代码 代码如下: select TEXT from user_source WHERE NAME='EMP_COUNT'; 结果为: 复制代码 代码如下: TEXT -------------------------------------------------------------------------------- PROCEDURE EMP_COUNT(P_TOTAL OUT NUMBER) AS BEGIN SELECT COUNT(*) INTO P_TOTAL FROM EMP; END; 【训练2】 查询过程GET_EMP_NAME的参数。 复制代码 代码如下: DESCRIBE GET_EMP_NAME 结果为: 复制代码 代码如下: FUNCTION GET_EMP_NAME RETURNS VARCHAR2 参数名称 类型 输入/输出默认值? ----------------------------------------- ----------------------------------- ----------------- ------------- P_EMPNO NUMBER(4) IN DEFAULT 【训练3】 在发生编译错误时,显示错误。 复制代码 代码如下: SHOW ERRORS 以下是一段编译错误显示: 复制代码 代码如下: LINE/COL ERROR ------------- ----------------------------------------------------------------- 4/2 PL/SQL: SQL Statement ignored 4/36 PLS-00201: 必须说明标识符 'EMPP' 说明:查询一个存储过程或函数是否是有效状态(即编译成功),可以使用数据字典USER_OBJECTS的STATUS列。 复制代码 代码如下: SELECT STATUS FROM USER_OBJECTS WHERE OBJECT_NAME='EMP_LIST'; 结果为: 复制代码 代码如下: STATUS ------------ VALID 说明:VALID表示该存储过程有效(即通过编译),INVALID表示存储过程无效或需要重新编译。当Oracle调用一个无效的存储过程或函数时,首先试图对其进行编译,如果编译成功则将状态置成VALID并执行,否则给出错误信息。 复制代码 代码如下: DESCRIBE USER_DEPENDENCIES; 结果: 复制代码 代码如下: 名称 是否为空? 类型 -------------------------------------------------------------- ------------- ---------------------------- NAME NOT NULL VARCHAR2(30) TYPE VARCHAR2(12) REFERENCED_OWNER VARCHAR2(30) REFERENCED_NAME VARCHAR2(64) REFERENCED_TYPE VARCHAR2(12) REFERENCED_LINK_NAME VARCHAR2(128) SCHEMAID NUMBER DEPENDENCY_TYPE VARCHAR2(4) 说明:NAME为实体名,TYPE为实体类型,REFERENCED_OWNER为涉及到的实体拥有者账户,REFERENCED_NAME为涉及到的实体名,REFERENCED_TYPE 为涉及到的实体类型。 复制代码 代码如下: SELECT REFERENCED_NAME,REFERENCED_TYPE FROM USER_DEPENDENCIES WHERE NAME='EMP_LIST'; 执行结果: 复制代码 代码如下: REFERENCED_NAME REFERENCED_TYPE ------------------------------------------------------------------------------------------ ---------------------------- STANDARD PACKAGE SYS_STUB_FOR_PURITY_ANALYSIS PACKAGE DBMS_OUTPUT PACKAGE DBMS_OUTPUT SYNONYM DBMS_OUTPUT NON-EXISTENT EMP TABLE EMP_COUNT PROCEDURE 说明:可以看出存储过程EMP_LIST依赖一些系统包、EMP表和EMP_COUNT存储过程。如果删除了EMP表或EMP_COUNT存储过程,EMP_LIST将变成无效。 包 包是用来存储相关程序结构的对象,它存储于数据字典中。包由两个分离的部分组成:包头(PACKAGE)和包体(PACKAGE BODY)。包头是包的说明部分,是对外的操作接口,对应用是可见的;包体是包的代码和实现部分,对应用来说是不可见的黑盒。 复制代码 代码如下: 过程(PROCUDURE) 带参数的命名的程序模块 函数(FUNCTION) 带参数、具有返回值的命名的程序模块 变量(VARIABLE) 存储变化的量的存储单元 常量(CONSTANT) 存储不变的量的存储单元 游标(CURSOR) 用户定义的数据操作缓存区,在可执行部分使用 类型(TYPE) 用户定义的新的结构类型 异常(EXCEPTION) 在标准包中定义或由用户自定义,用于处理程序错误 说明部分可以出现在包的三个不同的部分:出现在包头中的称为公有元素,出现在包体中的称为私有元素,出现在包体的过程(或函数)中的称为局部变量。它们的性质有所不同,如下所示。 复制代码 代码如下: 公有元素(PUBLIC) 在包头中说明,在包体中具体定义 在包外可见并可以访问,对整个应用的全过程有效 私有元素(PRIVATE) 在包体的说明部分说明 只能被包内部的其他部分访问 局部变量(LOCAL) 在过程或函数的说明部分说明 只能在定义变量的过程或函数中使用 在包体中出现的过程或函数,如果需要对外公用,就必须在包头中说明,包头中的说明应该和包体中的说明一致。 复制代码 代码如下: 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语句 包的应用 复制代码 代码如下: 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用来存储取得的雇员信息,定义为私有变量,只能被包的内部模块访问。 阶段训练 复制代码 代码如下: 程序结构 类 型 说 明 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的创建和应用。 复制代码 代码如下: 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_ENAMEVARCHAR2,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; 结果为: 1.程序包已创建。 步骤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:授权其他用户调用包: 复制代码 代码如下: GRANT EXECUTE ON EMP_PK TO 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也是私有过程,也只能在过程体内被其他模块引用。 |
请发表评论