lab16_PLSL程序设计.docVIP

大型数据库实验报告 学院： 信息技术学院 班级： 软件一班 专业： 软件工程 姓名： 蔡泽鸿 日期： 2013-06-18 16:38:00 学号： 1001030004 实验目的 掌握PL/SQL功能模块的应用 掌握存储过程、函数、包的创建 掌握存储过程、函数、包的维护 实验内容（注意，实验代码和过程中产生的数据要上交，请同学们用spool命令记录下代码和过程） 编写存储过程（使用scott用户的emp表） 1.编写一个名称为P+姓名拼音简称+学号最后两位的存储过程，以员工号为参数，修改该员工的工资。若该员工属于10号部门，则工资增加150；若属于20号部门，则工资增加200；若属于30号部门，则工资增加250；若属于其他部门，则工资增加300. 答：SQL conn scott/tiger Connected. SQL select deptno,empno,sal from emp; create or replace procedure p_czh04(v_empno emp.empno%type) 2 as 3 v_deptno emp.deptno%type; 4 v_sal emp.sal%type; 5 begin 6 select sal, deptno into v_sal, v_deptno from emp 7 where empno=v_empno; 8 if v_deptno=10 then v_sal:= v_sal +150; 9 elsif v_deptno=20 then v_sal:= v_sal +200; 10 elsif v_deptno=30 then v_sal:= v_sal +250; 11 else v_sal:= v_sal +300; 12 end if; 13 update emp set sal=v_sal where empno=v_empno; 14* end p_czh04; 编写一个匿名块调用此过程并验证所写的存储过程是否正确。 答：declare 2 begin 3 p_czh04(7369); 4 end; 5 / select deptno,empno,sal from emp; 编写存储过程（使用scott用户的emp表） 1.编写一个名称为Proc+姓名拼音简称+学号最后两位的存储过程，以部门号为参数，输出入职日期最早的10个员工信息. 答：select ename,deptno,hiredate from emp; set serveroutput on; create or replace procedure proc_czh04(v_deptno emp.deptno%type) 2 as 3 cursor mycursor is 4 select * from emp 5 where rownum10 and deptno=v_deptno order by hiredate; 6 begin 7 for v_czh04 in mycursor 8 loop 9 dbms_output.put_line(v_czh04.ename|| ||v_czh04.deptno|| ||v_czh04.hiredate); 10 end loop; 11* end; 12 / 2. 编写一个匿名块调用此过程并验证所写的存储过程是否正确。 SQL declare 2 begin 3 proc_czh04(20); 4 end; 5 / 编写存储过程（使用scott用户的emp表） 1.创建一个名称为PMng+姓名拼音简称+学号最后两位的存储过程，以员工号为参数，返回该员工的领导姓名和工资。（注意是带返回参数的存储过程） 答：create or replace procedure pming_czh04 2 (v_empno emp.empno%type, 3 v_leader out emp.ename%type, 4 v_sal out emp.sal%type) 5 as 6 begin 7 dbms_output.put_line(员工姓名 员工工资); 8 select e2.ename,e2.sal into v_leader,v_sal from emp e1,emp e2 9 where e1.empno=v_empno and e1.mgr=e2.empno; 10