王银兵61332111-编写存储过程函数处理数据一(1).doc

实验十：存储过程、函数和程序包实验目的：1. 能够正确编写存储过程2. 能够正确定义和使用存储过程参数3. 能够正确调用存储过程实验要求：1. 按以下步骤完成如下操作，并对出现的现象进行解释2. 将命令和操作过程记录到实验过程记录中实验步骤和方法：1. 启动本地Oracle服务器2. 以scott用户普通身份连接到PL/SQL developer3. 按要求编写PL/SQL存储过程，并用两种方式调用各个存储过程（在查询中尽量思考，找到不一样的解题方案） 1) 编写给每个员工发放额外补贴500的存储过程提示:COMM字段值增加500)2) 创建新增部门的存储过程INSERT_DEPT，部门号、部门名称和部门所在位置作为参数关于参数存储过程的用法：in参数的使用）4. 按要求编写函数，并编写匿名程序块函数进行调用：1) 创建一个通过部门编号返回部门名称的存储函数GET_DEPT_NAME2) 创建比较两个数大小的函数，返回较大值5. 按要求编写包：1) 创建管理部门信息的包pacdept，具有从dept表获得指定部门信息，修改部门名称，添加部门信息的功能（注：各模块应包含异常处理模块）。

可以参考下一页的案例1)思考：1、在实验中是否懂得了存储过程以及带参数的存储过程的用法？ 【案例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 ONEXECUTE EMPLOYE.GET_EMPLOYE(7788);获取雇员SCOTT信息成功PL/SQL 过程已成功完成步骤3：显示雇员信息EXECUTE EMPLOYE.SHOW_DETAIL;----- 雇员信息 -----雇员编号：7788雇员名称：SCOTT雇员职务：ANALYST雇员工资：3000部门编号：20PL/SQL 过程已成功完成步骤4：修改雇员工资EXECUTE EMPLOYE.CHANGE_SAL(3800);修改工资完成！PL/SQL 过程已成功完成步骤5：将修改的雇员信息存入EMP表EXECUTE EMPLOYE.SAVE_EMPLOYE;雇员信息保存完成！PL/SQL 过程已成功完成。