Oracle实验六

湖南科技学院计算机与通信工程系
实验报告
loop
dbms_output.put_line('员工姓名:'||varname||',员工职务:'||vartitle||'');
fetch mycur into varname,vartitle;
end loop;
close mycur;
end;
执行结果如下：
（2）创建存储过程GetGrade，查询指定员工的工资，使用CASE语句输出其工资等级。

工资小于等于3000，等级为“低”；工资大于3000，小于5000，等级为”中”；工资大于等于5000，等级为高。

并执行该存储过程。

创建存储过程代码如下：
SQL>create or replace procedure zyn_33.GetGrade
(v_depid in number)
as
v_wage zyn_33.employees.wage%type;
v_str varchar2(5);
Begin
select wage into v_wage from zyn_33.employees where emp_id=v_depid;
v_str:=case
when v_wage<=3000 then '低'
when v_wage>3000 and v_wage<5000 then '中'
when v_wage>=5000 then '高'
end;
dbms_output.put_line('该员工工资等级为'||v_str);
end;
执行存储过程代码如下：
SQL>Execute zyn_33.GetGrade(3,’夏小冉’)；
SQL>commit；
执行结果如下：
（3）创建触发器MyTrigger，它的作用是当dhb.Departments中Dep_id列的值发生变化时，自动更新表Employees中的Dep_id列的值，从而保证数据完整性。

程序代码如下：
SQL>create or replace trigger zyn_33.mytrigger
after update on zyn_33.departments
for each row
Begin
update zyn_33.employees set dep_id=:new.dep_id
where dep_id=:old.dep_id;
End;
验证触发器代码如下：
SQL>update zyn_33.departments set dep_id=200 Where dep_id=1;
SQL>commit;
执行结果如下：
五、实验总结。