实验九PLSQL编程技术一.doc

实验九 PL/SQL编程技术一实验前准备：参见书本第20页更改ORALCE 10g数据库服务器网络配置，将服务命名orcl和监听程序LISTENER的主机名w47改为本机名。实验内容： 1、完成书本P2972. 实训题的第（2）小题。2、完成书本P3222. 实训题的第（1）（2）（6）（7）小题，并写出调用所创建存储过程和函数的语句。P297，2.（2）编写一个PL/SQL块，输出所有比本部门平均工资高的员工信息。declarev_emp emp%rowtype;v_empno emp.empno%type;v_ename emp.emp.ename%type;v_sal emp.sal%type;v_deptno emp.deptno%type;beginv_deptno:=&aa;select * into v_emp from emp where (deptno=v_deptno|emp.salavg(sal);dbms_output.put_line(v_empno| |v_ename| |v_sal| |v_deptno);end;P322，2.（1）创建一个存储过程，以员工号为参数，输出该员工的工资。create or replace procedure show_sal(p_empno emp.empno%type)isp_sal emp.sal%type;beginselect sal into p_sal from emp where empno=p_empno;dbms_output.put_line(p_sal);end show_sal;declarev_empno emp.empno%type;beginshow_sal(v_empno);end;（2）创建一个存储过程，以员工号为参数，修改该员工的工资。若该员工属于10号部门，则工资增加150，若属于20号部门，则工资增加200；若属于30号部门，则工资增加250；若属于其他部门，则工资增加300。create or replace procedure add_sal(p_empno emp.empno%type)isp_sal emp.sal%type;p_deptno emp.deptno%type;p_increment number;beginselect deptno into p_deptno from emp where empno=p_empno;if p_deptno=10 then p_increment:=150;elsif p_deptno=20 then p_increment:=200;elsif p_deptno=30 then p_increment:=250;else p_increment:=300;end if;update emp set sal=sal+p_increment where empno=p_empno;end add_sal;declarev_empno emp.empno%type;beginadd_sal(v_empno);end;（6）创建一个函数，以部门号为参数，返回部门平均工资。create or replace function ret_avgsal(p_deptno emp.dept%type)asp_avgsal emp.sal%type;beginselect avg(sal) into p_avgsal from emp where deptno=p_deptno;return p_avgsal;exceptionwhen no_data_found thendbms_output.put_line(The deptno is invalid!);end ret_avgsal;declarev_deptno emp.dept%type;beginret_avgsal(v_deptno);end;（7）创建一个函数，以员工号为参数，返回该员工所在部门的平均工资。create or replace function show_avgsal(p_empno emp.empno%type)return emp.sal%type;as p_avgsal emp.sal%typebeginselect avg(sal) into p_avgsal from emp where empno=p_empno;return p_avgsal;exceptionwhen no_data_found thendbms_output.put_line(The empno is invalid!);end s