Oracle 大型数据库技术 2021实验项目八-附加

Oracle 大型数据库技术 2021实验项目八-附加

实验内容

1、创建一个存储过程，以一个整数为参数，输出scott模式下emp表中工资最高的前几个（参数值为多少，就显示排名前几位的工资）员工的信息。存储过程创建成功后并执行，将所有执行正确的PL/SQL语句记录下来。

代码：

create or replace procedure emp_sort(
i in number) is
j number:=0;
begin
for r in (select empno,ename,sal from emp order by sal desc) loop
dbms_output.put_line(r.empno||' '||r.ename||''||r.sal);
j:=j+1;
exit when j=i;
end loop;
end emp_sort;
/

PS：游标游标！还有降序排序！

2、创建一个存储过程，对scott模式下emp表进行操作，要求：以员工号和部门号作为参数，将员工所在的部门修改为参数送入的部门号。

1. 如果修改成功，则显示“员工由……号部门调入……号部门”；
2. 如果不存在该员工，则显示 “员工号不存在，请输入正确的员工号”；
3. 如果不存在该部门，则显示“该部门不存在，请输入正确的部门号”。
   代码：

create or replace procedure update_deptno(
v_eno  in number,
v_deptno in number) is
v_nocount number;
v_deptnocount number;
v_deptnoon number;
begin
select count(*)
into v_nocount
from emp
where v_eno=empno;
if v_nocount=0 then
dbms_output.put_line('员工号不存在，请输入正确的员工号');
else
select deptno
into v_deptnoon
from emp
where v_eno=empno;
select count(*)
into v_deptnocount
from dept
where v_deptno=deptno;
if v_deptnocount=0 then
dbms_output.put_line('该部门不存在，请输入正确的部门号');
else
update emp
set deptno=v_deptno
where v_eno=empno;
dbms_output.put_line('员工由'||v_deptnoon||'号部门调入'||v_deptno||'号部门');
end if;
end if;
end update_deptno;
/