CH03_游标练习

Posted by
declare v_grade salgrade.grade%type; v_hisal salgrade.hisal%type; cursor cur_salgrade is select grade,hisal from salgrade;begin open cur_salgrade; fetch cur_salgrade into v_grade,v_hisal; while cur_salgrade%found loop dbms_output.put_line('工资等级是:'||v_grade||',最高工资是:'||v_hisal); fetch cur_salgrade into v_grade,v_hisal; end loop; close cur_salgrade;end;

 

  1. 用户输入工资等级,使用游标
    显示能拿到该等级工资的员工姓名,所属部门及领导是谁

1:任意执行一个update操作,用隐式游标sql的属性%found,%notfound,%rowcount,%isopen观察update语句的执行情况。

-- 声明游标;CURSOR cursor_name IS select_statement

--For 循环游标
--(1)定义游标
--(2)定义游标变量
--(3)使用for循环来使用这个游标
declare
       --类型定义
       cursor c_job
       is
       select empno,ename,job,sal
       from emp
       where job='MANAGER';
       --定义一个游标变量v_cinfo c_emp%ROWTYPE ,该类型为游标c_emp中的一行数据类型
       c_row c_job%rowtype;
begin
       for c_row in c_job loop
         dbms_output.put_line(c_row.empno||'-'||c_row.ename||'-'||c_row.job||'-'||c_row.sal);
       end loop;
end;

6:用更新游标来为雇员加佣金:(用if实现,创建一个与emp表一摸一样的emp1表,对emp1表进行修改操作),并将更新前后的数据输出出来

declare
     cursor
         crs_caseTest
          is
          select * from emp1 for update of SAL;
          r_caseTest crs_caseTest%rowtype;
          salInfo emp1.sal%type;
     begin
         for r_caseTest in crs_caseTest loop
         case 
           when r_caseTest.DEPNO=10
           THEN salInfo:=r_caseTest.SAL*1.05;
           when r_caseTest.DEPNO=20
           THEN salInfo:=r_caseTest.SAL*1.1;
           when r_caseTest.DEPNO=30
           THEN salInfo:=r_caseTest.SAL*1.15;
            when r_caseTest.DEPNO=40
           THEN salInfo:=r_caseTest.SAL*1.2;
         end case;
          update emp1 set SAL=salInfo where current of crs_caseTest;
        end loop;
end;
  1. 使用游标
    显示前n名,员工编号,员工姓名,部门名称,职位名称,工资,工资等级,并按工资降序排列。要求:用参数游标实现

5:向游标传递一个工种,显示此工种的所有雇员的所有信息(使用参数游标)

declare v_loc dept.loc%type := '&loc'; cursor cur_emp is select e.empno from emp e,dept d where e.deptno = d.deptno and d.loc = v_loc;begin for emp_record in cur_emp loop dbms_output.put_line('员工编号:'||emp_record.empno); end loop;end;

2,使用游标和loop循环来显示所有部门的名称
游标声明

declare cursor cur_emp is select sal from emp for update of sal; update_emp cur_emp%rowtype; sal_add emp.sal%type; sal_info emp.sal%type;begin for update_emp in cur_emp loop sal_add := update_emp.sal * 0.2; if sal_add > 300 then sal_info := update_emp.sal; else sal_info := update_emp.sal + sal_add; end if; update emp set sal = sal_info where current of cur_emp; end loop;end;

13:对每位员工的薪水进行判断,如果该员工薪水高于其所在部门的平均薪水,则将其薪水减50元,输出更新前后的薪水,员工姓名,所在部门编号。
–AVG([distinct|all] expr) over (analytic_clause)
—作用:
–按照analytic_clause中的规则求分组平均值。
  –分析函数语法:
  –FUNCTION_NAME(<argument>,<argument>…)
  –OVER
  –(<Partition-Clause><Order-by-Clause><Windowing
Clause>)
  –PARTITION子句
 
–按照表达式分区(就是分组),如果省略了分区子句,则全部的结果集被看作是一个单一的组

  1. 编写一个PL/SQL程序块,对所有雇员按他们的基本薪水的20%为他们加薪,如果增加的薪水大于300
    就取消加薪

3,使用游标和while循环来显示所有部门的的地理位置(用%found属性)

  1. 向游标传递一个工种JOB,显示此工种的所有雇员的所有信息

 

declare v_loc dept.loc%type; cursor cur_emp is select loc from dept;begin open cur_emp; fetch cur_emp into v_loc; while cur_emp %found loop dbms_output.put_line('地理位置:'||v_loc); fetch cur_emp into v_loc; end loop;end;

 

  1. 用更新游标来为雇员加佣金,如果是销售人员,每人加200,如果是MANAGER,每人加500,其它,每人加100

 

  1. 输入办公地址loc,使用游标 显示在该地址的所有部门的员工

12:输入部门编号,按照下列加薪比例执行(用CASE实现,创建一个emp1表,修改emp1表的数据),并将更新前后的数据输出出来
—  deptno  raise(%)
—  10      5%
—  20      10%
—  30      15%
—  40      20%
—  加薪比例以现有的sal为标准
–CASE expr WHEN comparison_expr THEN return_expr
–[, WHEN comparison_expr THEN return_expr]… [ELSE else_expr]
END

declare 
       cursor csr_dept
       is
       --select语句
       select DNAME
       from Depth;
       --指定行指针,这句话应该是指定和csr_dept行类型相同的变量
       row_dept csr_dept%rowtype;
begin
       --for循环
       for row_dept in csr_dept loop
           dbms_output.put_line('部门名称:'||row_dept.DNAME);
       end loop;
end;

 

declare
  cursor
   crs_WorkDay
   is
   select ENAME,HIREDATE, trunc(months_between(sysdate, hiredate) / 12) AS SPANDYEARS,
       trunc(mod(months_between(sysdate, hiredate), 12)) AS months,
       trunc(mod(mod(sysdate - hiredate, 365), 12)) as days
   from emp1;
  r_WorkDay crs_WorkDay%rowtype;
begin
    for   r_WorkDay in crs_WorkDay loop
    dbms_output.put_line(r_WorkDay.ENAME||'已经工作了'||r_WorkDay.SPANDYEARS||'年,零'||r_WorkDay.months||'月,零'||r_WorkDay.days||'天');
    end loop;
end;

–Fetch游标
–使用的时候必须要明确的打开和关闭

declare cursor cur_emp(v_job in varchar2:='SALESMAN') is select empno,ename,sal from emp where job = v_job;begin for emp_record in cur_emp('MANAGER') loop dbms_output.put_line('员工编号:'||emp_record.empno||',员工姓名:'||emp_record.ename||',工资:'||emp_record.sal); end loop;end;

10:编写一个PL/SQL程序块,对所有雇员按他们的基本薪水(sal)的20%为他们加薪,
如果增加的薪水大于300就取消加薪(对emp1表进行修改操作,并将更新前后的数据输出出来)

declare
       --游标声明
       cursor csr_TestWhile
       is
       --select语句
       select  LOC
       from Depth;
       --指定行指针
       row_loc csr_TestWhile%rowtype;
begin
  --打开游标
       open csr_TestWhile;
       --给第一行喂数据
       fetch csr_TestWhile into row_loc;
       --测试是否有数据,并执行循环
         while csr_TestWhile%found loop
           dbms_output.put_line('部门地点:'||row_loc.LOC);
           --给下一行喂数据
           fetch csr_TestWhile into row_loc;
         end loop;
       close csr_TestWhile;
end; 
select * from emp
begin for emp_record in (select dname from dept) loop dbms_output.put_line('员工编号:'||emp_record.dname); end loop;end;
begin
         update emp set ENAME='ALEARK' WHERE EMPNO=7469;
         if sql%isopen then
           dbms_output.put_line('Openging');
           else
             dbms_output.put_line('closing');
             end if;
          if sql%found then
            dbms_output.put_line('游标指向了有效行');--判断游标是否指向有效行
            else
              dbms_output.put_line('Sorry');
              end if;
              if sql%notfound then
                dbms_output.put_line('Also Sorry');
                else
                  dbms_output.put_line('Haha');
                  end if;
                   dbms_output.put_line(sql%rowcount);
                   exception 
                     when no_data_found then
                       dbms_output.put_line('Sorry No data');
                       when too_many_rows then
                         dbms_output.put_line('Too Many rows');
                         end;
declare
       empNumber emp.EMPNO%TYPE;
       empName emp.ENAME%TYPE;
       begin
         if sql%isopen then
           dbms_output.put_line('Cursor is opinging');
           else
             dbms_output.put_line('Cursor is Close');
             end if;
             if sql%notfound then
               dbms_output.put_line('No Value');
               else
                 dbms_output.put_line(empNumber);
                 end if;
                 dbms_output.put_line(sql%rowcount);
                 dbms_output.put_line('-------------');

                 select EMPNO,ENAME into  empNumber,empName from emp where EMPNO=7499;
                 dbms_output.put_line(sql%rowcount);

                if sql%isopen then
                dbms_output.put_line('Cursor is opinging');
                else
                dbms_output.put_line('Cursor is Closing');
                end if;
                 if sql%notfound then
                 dbms_output.put_line('No Value');
                 else
                 dbms_output.put_line(empNumber);
                 end if;
                 exception 
                   when no_data_found then
                     dbms_output.put_line('No Value');
                     when too_many_rows then
                       dbms_output.put_line('too many rows');
                       end;
declare cursor cur_emp(v_grade salgrade.grade%type := &v_grade) is select e.ename,e.deptno,e.mgr from emp e,salgrade g where g.grade = v_grade and e.sal between g.losal and g.hisal;begin for emp_record in cur_emp loop dbms_output.put_line('能拿到该等级工资的员工:'||emp_record.ename||',所属部门:'||emp_record.deptno||',领导:'||emp_record.mgr); end loop; close cur_emp;end;

7:编写一个PL/SQL程序块,对名字以‘A’或‘S’开始的所有雇员按他们的基本薪水(sal)的10%给他们加薪(对emp1表进行修改操作)

declare 
       --类型定义
       cursor c_job
       is
       select empno,ename,job,sal
       from emp
       where job='MANAGER';
       --定义一个游标变量
       c_row c_job%rowtype;
begin
       open c_job;
         loop
           --提取一行数据到c_row
           fetch c_job into c_row;
           --判读是否提取到值,没取到值就退出
           --取到值c_job%notfound 是false 
           --取不到值c_job%notfound 是true
           exit when c_job%notfound;
            dbms_output.put_line(c_row.empno||'-'||c_row.ename||'-'||c_row.job||'-'||c_row.sal);
         end loop;
       --关闭游标
      close c_job;
end;
begin update emp set comm=NVL+500 where job ='SALESMAN'; if sql%notfound then dbms_output.put_line('salesman增加佣金500'); else dbms_output.put_line('no_data_found'); end if;end;

 

相关文章

Leave a Reply

电子邮件地址不会被公开。 必填项已用*标注