游标练习

1,用游标显示所有部门编号与名称，以及其所拥有的员工人数。

declare
cursor cur_dept is
select dname,deptno, count(*) v_count from ( select d.deptno,d.dname from dept d inner join emp e on d.deptno=e.deptno where d.deptno=e.deptno) group by dname,deptno; begin
    for v_emp in cur_dept loop dbms_output.put_line('部门编号 '||v_emp.deptno||
                           '部门名称 '||v_emp.dname|| 
                           '总数 '||v_emp.v_count); end loop; end;

2,用游标属性%rowcount实现输出前十个员工的信息

declare
  cursor cur_emp is select *from emp; begin
   for v_emp in cur_emp loop if cur_emp%rowcount<=10 then dbms_output.put_line(cur_emp%rowcount||'   '||' 员工编号 '||v_emp.empno||
                              ' 员工姓名 '||v_emp.empno||' 员工工作 '||v_emp.job||
                              ' 入职日期 '||v_emp.hiredate||' 基本工资 '||v_emp.sal); end if; end loop; end;

3,通过使用游标来显示dept表中的部门名称，及其相应的员工列表（提示：可以使用双重循环）。

 declare

 cursor cur_emp is select * from emp; cursor cur_dept is select * from dept; begin
   for v_dept in cur_dept loop dbms_output.put_line('员工部门：'||v_dept.dname); for v_emp in cur_emp loop if v_emp.deptno=v_dept.deptno then dbms_output.put_line('员工姓名：'||v_emp.ename); end if; end loop; end loop; end;

4,接受一个部门号，使用For循环，从emp表中显示该部门的所有雇员的姓名，工作和薪水。

 declare
     cursor cur_emp (v_deptno number) is select*from emp where deptno=v_deptno; type emp_table_type is table of emp%rowtype index by binary_integer; v_emp emp_table_type; begin
     open cur_emp(20); fetch cur_emp bulk collect into v_emp; close cur_emp; for v_i in v_emp.first..v_emp.last loop dbms_output.put_line('员工姓名 '||v_emp(v_i).ename||
                           '员工工作 '||v_emp(v_i).job||
                           '员工薪水 '||v_emp(v_i).sal); end loop; end;

5,编写一个程序块，将emp表中前5人的名字，及其出的工资等级（salgrade）显示出来。

declare 
   cursor cur_emp ( v_deptno varchar2) is select ename, job,sal from emp where deptno=(select deptno from dept where dname=v_deptno); begin
    
      for  v_emp in cur_emp('SALES') loop dbms_output.put_line(' 员工姓名 '||v_emp.ename||
                             ' 员工工作 '||v_emp.job||
                             ' 员工薪水 '||v_emp.sal); end loop; end;

7,用游标获取所有收入超过2000的销售员（job为salesman)的信息

 declare
 cursor cur_emp is select * from emp; begin
   for v_emp in cur_emp loop if v_emp.job='SALESMAN' and v_emp.sal>1500 then dbms_output.put_line(' 员工姓名 '||v_emp.ename||
                            ' 基本工资 '||v_emp.sal); end if; end loop; end;

8，编写一个PL/SQL程序块，从emp表中对名字以"A"或"S"开始的所有雇员按他们基本薪水的10%给他们加薪。

declare 
 cursor cur_emp is select * from emp where (ename like 'A%') or  (ename like 'S%'); begin
  for v_emp in cur_emp loop update emp set sal=sal+sal*0.1 where ename=v_emp.ename; dbms_output.put_line('修改成功'); end loop; end;