Orale数据库实验PLSQL游标过程函数包使用.docxVIP

Oracle 数据库基础 实验 5 PL/SQL 游标、过程、函数、包的使用 【实验学时】 2学时 【实验目的】 了解 PL/SQL语言中显式游标和隐式游标的概念和属性。 了解显式游标和隐式游标的差异。 掌握 PL/SQL中cursor for循环的使用方法。 学会在 PL/SQL程序中使用游标来解决实际问题。 学会在 PL/SQL程序中进行异常处理的方法。 练习在 PL/SQL中自定义异常。 理解过程和函数的作用。 学会编写过程、函数、包，并加以调用。 【实验内容】 用显式游标编写程序，程序的功能是：计算每一个部门的平均工资。注意异常的处理（例如，分母为 0 的异常）。 已写入文件 afiedt.buf declare cursor c_dept is select * from dept order by deptno; cursor c_emp(p_dept emp.deptno%type)is select ename,sal from emp where deptno=p_dept order by ename; r_dept dept%rowtype; v_ename emp.ename%type; v_salary emp.sal%type; v_tot_salary emp.sal%type; begin open c_dept; loop fetch c_dept into r_dept; exit when c_dept%notfound; 1 / 5 14 dbms_output.put_line(department:||r_dept.deptno||-||r_de pt.dname); v_tot_salary:=0; open c_emp(r_dept.deptno); loop fetch c_emp into v_ename,v_salary; exit when c_emp%notfound; 20 dbms_output.put_line(name:||v_ename||salary:||v_salary); v_tot_salary:=v_tot_salary+v_salary; end loop; close c_emp; dbms_output.put_line(total salary for dept:||v_tot_salary); end loop; close c_dept; 27* end; SQL / PL/SQL 过程已成功完成。 用 cursor for 编写上题的程序。 declare cursor c_dept is select deptno,dname from dept order by deptno; cursor c_emp(p_dept emp.deptno%type)is select ename,sal from emp where deptno=p_dept order by ename; v_tot_salary emp.sal%type; begin for r_dept in c_dept loop 11 dbms_output.putline(department:||r_dept.deptno||-||r_dept.e name); 2 / 5 v_tot_salary:=0; for r_emp in c_emp(r_dept.deptno)loop dbms_output.put_line(name:||r_emp.ename||salary:||r_emp.sa l); v_tot_salary:=v_tot_salary+r_emp.sal; end loop; dbms_output.put_line(total salary for dept:||v_tot_salary); end loop; 19* end; QL / dbms_output.putline(department:||r_dept.deptno||-||r_dept.e name); 创建两个表格， myemp 和 mybonus 表，分别与员工 emp 表和津贴 bonus 表的结构及数据相同。要求用游标完成操作：取出 myemp 表中工资大于 1000 元的记录，将其工资的 30%作为奖金插入到 mybonus 表中。 create or replace procedure insertjintie() is CURSOR emp IS SELECT 工号，姓名，工资 FROM 职工表 where 工资 1000 ； begin for v_emp in emp loop insert into 津贴表 (工号，工资 ) values(v_emp