游标练习

来源:互联网 发布:欧姆龙plc网络通信 编辑:程序博客网 时间:2024/03/29 10:05

  /**
  该存储过程的用途是首先列举所有的员工信息,然后将工资低于最低工资标准的员工信息提高到最低工资,
  然后将在在给定日期入职前的员工工资+500
  */
create or replace procedure practice_cursor(in_min_sal  emp.sal%type,
                                              in_job_date varchar2) is

  --在声明游标时候定义好了select语句的游标
  cursor emp_cursor is
    select * from emp e order by e.deptno;
  --定义参数游标,该参数游标的作用是将工资少于min_sal的工资提高到min_sal。
  cursor advance_sal(min_sal emp.sal%type) is
    select e.empno, e.ename, e.job, e.mgr, e.hiredate, e.deptno
      from emp e
     where e.sal < min_sal
     order by e.deptno
       for update;
  --使用表定义记录类型表量
  emp_record emp%rowtype;
  --使用游标定义纪录类型
  advance_sal_record advance_sal%rowtype;
  --定义动态游标类型
  type before_hride_date is ref cursor return emp%rowtype;
  --定义动态游标变量,在后续使用中要求返回所有在1981-02-01前入职的员工信息
  before_hride_date_cursor before_hride_date;

begin
  --程序段1------------------紧紧是打印所有的现有员工信息--------------------------------------------------------
  dbms_output.put_line('调整工资前所有的员工信息如下:----------------------------------------');
  open emp_cursor;
  --使用简单loop循环获取数据
  loop
    --注意是fetch 游标 into 记录类型 ,不要搞反了啊
    fetch emp_cursor
      into emp_record;
    exit when emp_cursor%notfound;
    dbms_output.put_line('员工编号:' || emp_record.empno || '  员工名字:' ||
                         emp_record.ename || '  员工职位:' || emp_record.job ||
                         ' 员工入职日期:' || emp_record.hiredate || ' 员工部门号:' ||
                         emp_record.deptno||'   员工工资:'||emp_record.sal);
  end loop;
  close emp_cursor;

 

--程序段2-----------------------------------------------------------------------------------------
  open advance_sal(in_min_sal);
  fetch advance_sal
    into advance_sal_record;
  while (advance_sal%found) loop
    update emp e
       set e.sal = in_min_sal
     where e.empno = advance_sal_record.empno;
    fetch advance_sal
      into advance_sal_record;
  end loop;
  dbms_output.put_line('有' || advance_sal%rowcount ||
                       '名员工的工资低于最低工资,已经都被加到了最低标准');
  close advance_sal;
  dbms_output.put_line('调整最低工资标志后所有的员工信息如下:----------------------------------------');

  open emp_cursor;
  --使用简单loop循环获取数据
  loop
    --注意是fetch 游标 into 记录类型 ,不要搞反了啊
    fetch emp_cursor
      into emp_record;
    exit when emp_cursor%notfound;
    dbms_output.put_line('员工编号:' || emp_record.empno || '  员工名字:' ||
                         emp_record.ename || '  员工职位:' || emp_record.job ||
                         ' 员工入职日期:' || emp_record.hiredate || ' 员工部门号:' ||
                         emp_record.deptno||'   员工工资:'||emp_record.sal);
  end loop;
  close emp_cursor;

 

--程序段3-----------------------------------------------------------------------------------------
  open before_hride_date_cursor for select * from emp e where to_char(e.hiredate,'yyyy-mm-dd') > in_job_date for update;

  loop
    fetch before_hride_date_cursor into emp_record;
    exit when before_hride_date_cursor%notfound;
    update emp e set e.sal = e.sal+500 where e.empno = emp_record.empno;
  end loop;
  dbms_output.put_line('共有:'||before_hride_date_cursor%rowcount||'名员工是'||in_job_date||'前入职的,他们的工资都加了500');
  close before_hride_date_cursor;
 
  dbms_output.put_line('调整'||in_job_date||'前入职的所有的员工工资后的信息如下---------------------------');

  open emp_cursor;
  --使用简单loop循环获取数据
  loop
    --注意是fetch 游标 into 记录类型 ,不要搞反了啊
    fetch emp_cursor
      into emp_record;
    exit when emp_cursor%notfound;
    dbms_output.put_line('员工编号:' || emp_record.empno || '  员工名字:' ||
                         emp_record.ename || '  员工职位:' || emp_record.job ||
                         ' 员工入职日期:' || emp_record.hiredate || ' 员工部门号:' ||
                         emp_record.deptno||'   员工工资:'||emp_record.sal);
  end loop;
  close emp_cursor;
exception
  when others then
    dbms_output.put_line(sqlcode||'   ,'||sqlerrm);
end;
--测试部分
begin
  practice_cursor(900, '1982-02-01');
end;

select * from emp e where to_char(e.hiredate,'yyyy-mm-dd') > '1980-02-01'

 

原创粉丝点击