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

《王银兵61332111-编写存储过程函数处理数据一(1)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、实验十：存储过程、函数和程序包实验目的：1.能够正确编写存储过程2.能够正确定义和使用存储过程参数3.能够正确调用存储过程实验要求：1.按以下步骤完成如下操作，并对出现的现象进行解释2.将命令和操作过程记录到实验过程记录中实验步骤和方法：1.启动本地Oracle服务器2.以scott用户普通身份连接到PL/SQLdeveloper3.按要求编写PL/SQL存储过程，并用两种方式调用各个存储过程（在查询中尽量思考，找到不一样的解题方案）1)编写给每个员工发放额外补贴500的存储过程。(提示:COMM字段值增加500)2)创建新增部门的存储过

2、程INSERT_DEPT，部门号、部门名称和部门所在位置作为参数。（关于参数存储过程的用法：in参数的使用）1.按要求编写函数，并编写匿名程序块函数进行调用：1)创建一个通过部门编号返回部门名称的存储函数GET_DEPT_NAME。2)创建比较两个数大小的函数，返回较大值。1.按要求编写包：1)创建管理部门信息的包pacdept，具有从dept表获得指定部门信息，修改部门名称，添加部门信息的功能（注：各模块应包含异常处理模块）。(可以参考下一页的案例1)思考：1、在实验中是否懂得了存储过程以及带参数的存储过程的用法？【案例1】创建管理雇员

3、信息的包EMPLOYE，具有从EMP表获得雇员信息，修改雇员名称，修改雇员工资和写回EMP表的功能。步骤1：登录SCOTT账户，输入以下代码，并编译：CREATEORREPLACEPACKAGEEMPLOYE--包头部分ISPROCEDURESHOW_DETAIL;PROCEDUREGET_EMPLOYE(P_EMPNONUMBER);PROCEDURESAVE_EMPLOYE;PROCEDURECHANGE_NAME(P_NEWNAMEVARCHAR2);PROCEDURECHANGE_SAL(P_NEWSALNUMBER);ENDEM

4、PLOYE;/CREATEORREPLACEPACKAGEBODYEMPLOYE--包体部分ISEMPLOYEEMP%ROWTYPE;--------显示雇员信息--------PROCEDURESHOW_DETAILASBEGINDBMS_OUTPUT.PUT_LINE('-----雇员信息-----');DBMS_OUTPUT.PUT_LINE('雇员编号：'

5、

6、EMPLOYE.EMPNO);DBMS_OUTPUT.PUT_LINE('雇员名称：'

7、

8、EMPLOYE.ENAME);DBMS_OUTPUT.PUT_LINE('雇员职务：

9、'

10、

11、EMPLOYE.JOB);DBMS_OUTPUT.PUT_LINE('雇员工资：'

12、

13、EMPLOYE.SAL);DBMS_OUTPUT.PUT_LINE('部门编号：'

14、

15、EMPLOYE.DEPTNO);ENDSHOW_DETAIL;--------从EMP表取得一个雇员---------PROCEDUREGET_EMPLOYE(P_EMPNONUMBER)ASBEGINSELECT*INTOEMPLOYEFROMEMPWHEREEMPNO=P_EMPNO;DBMS_OUTPUT.PUT_LINE('获取雇员'

16、

17、EMPLOYE.E

18、NAME

19、

20、'信息成功');EXCEPTIONWHENOTHERSTHENDBMS_OUTPUT.PUT_LINE('获取雇员信息发生错误！');ENDGET_EMPLOYE;---------保存雇员到EMP表---------PROCEDURESAVE_EMPLOYEASBEGINUPDATEEMPSETENAME=EMPLOYE.ENAME,SAL=EMPLOYE.SALWHEREEMPNO=EMPLOYE.EMPNO;DBMS_OUTPUT.PUT_LINE('雇员信息保存完成！');ENDSAVE_EMPLOYE;-------

21、---修改雇员名称-----------PROCEDURECHANGE_NAME(P_NEWNAMEVARCHAR2)ASBEGINEMPLOYE.ENAME:=P_NEWNAME;DBMS_OUTPUT.PUT_LINE('修改名称完成！');ENDCHANGE_NAME;----------修改雇员工资-----------PROCEDURECHANGE_SAL(P_NEWSALNUMBER)ASBEGINEMPLOYE.SAL:=P_NEWSAL;DBMS_OUTPUT.PUT_LINE('修改工资完成！');ENDCHANGE_S

22、AL;ENDEMPLOYE;步骤2：获取雇员7788的信息。SETSERVEROUTPUTONEXECUTEEMPLOYE.GET_EMPLOYE(7788);获取雇员SCOTT信息成功PL/