Oracle 流程控制 和 循环控制

--_______________________________________流程控制__________________________________________________

--1 IF (表达式) then  执行的语句   end if; （end if ：结束IF）  -- 判断满足一种情况的 条件

--2 IF (表达式) then  执行的语句  else  执行的语句   end if；   --判断满足两种情况的 条件

--3 IF (表达式) then 执行的语句 elseif 执行的语句  elseif 执行的语句 ....   end if;  --判断满足多种情况的  条件 

     --示例1
     declare 
         v_emp emp%rowtype;  --自定义一个行类型
         v_dept_avgsal number(7,2);  --定义个平均工资的变量
     begin
         v_emp.empno:=&empno;   --接受用户的输入 保存到v_emp.empno

         --为v_emp 赋值
         select sal,comm,deptno into v_emp.sal,v_emp.comm,v_emp.deptno from emp where empno=v_emp.empno;
         --输出没有更新前的信息
         DBMS_output.put_line('雇员编号；'||v_emp.empno);
         Dbms_Output.put_line('雇员更新前的奖金：'|| NVL(v_emp.comm,0));

         --查询但前员工编号所在部门的平均工资
         select avg(sal) into v_dept_avgsal form emp where deptno=v_emp.deptno;
         --判断 该雇员的奖金
         if v_emp.comm is null then  --判断奖金为 null
             --更改该雇员的奖金为 所属部门的平均工资的0.1倍
              update emp set comm=v_dept_avgsal*0.1 where empno=v_emp.empno;  

         else    --判断奖金不为 null 
             if v_emp.sal<v_dept_avgsal then  --判断员工的工资 < 部门的平均工资
                 --更改该员工的奖金 += 部门平均工资的0.1倍
                 update emp set comm=comm+v_dept_avgsal*0.1 where empno=v_emp.empno;
             else  --员工工资 > 部门的平均工资
               --更改员工的奖金 += 该员工工资的0.1倍
               update emp set comm=comm+v_emp.sal*0.1 where empno=v_emp.empno;
             end if;  --结束  内部的IF
         end if;  --结束 外部的IF
           --查询更改后的奖金 值重新赋值给 v_emp
           select comm into v_emp.comm from emp whre empno=v_emp.empno;
           --输出来
           Dbms_Output.put_line('雇员更新后的奖金:'||v_emp.comm);
      Exception  --异常
       when no_data_found then
          Dbms_Output.put_line('该雇员不存在！');
      END;


--4 Case (表达式) when （条件表达式结果1 ）then 执行语句1  when（条件表达式2） then 执行的语句 2 else 执行的语句 n end Caase; （end case 结束 Case）

    --示例1
    declare
       v_deptno number(2):=&deptno;
    begin
       case v_deptno
          when 10 then
              update emp set comm= case when comm is null then 100 else comm*1.1 end where deptno=v_deptno;
          when 20 then
              update emp set comm= case when comm is null then 200 else comm*1.2 end where deptno=v_deptno;
          when 30 then
              update emp set comm= case when comm is null then 300 else comm*1.3 end where deptno=v_deptno;
          else
             DBMS_output.put_line('不存在该部门！');
       end Case；
    End；
--5 Case when (条件表达式1)  then 执行语句1  when (条件表达式2) then 执行语句2  else 执行语句n end case;

   --示例1
   declare 
      v_empno number(4):=&empno;
      v_sal number(7,2);
   begin
      select sal into v_sal from emp where empno=v_empno;
      case 
         when v_sal<2000 then
              DBMS_output.put_line('一级工资');
         when v_sal>=2000 and v_sal<3000 then
              DBMS_output.put_line('二级工资');
         when v_sal>=3000 and v_sal<4000 then
              DBMS_output.put_line('三级工资');
         when v_sal>=4000 and v_sal<5000 then
              DBMS_output.put_line('四级工资');
         else
              DBMS_output.put_line('五级工资');
      END CASE;
      Exception
         when no_data_found then
              DBMS_output.put_line('输入的员工的编号不正确!');
      END;

--__________________________________________循环控制_______________________________________________

--1.  LOOP  语句段； exit [when 条件表达式]  end Loop；   ===>至少执行一次  相当于 do｛｝ while（条件表达式）；

   --示例1
     create table rnd_temp_table  --创建表
     (  
       id number(4) primary key;  -- 定义Id
       value varchar2(10) not null
     )

     declare
         type Rnd_varray_type id varray(4) of varchar2(20);  --定义一个长度为4的 varrray 的数据类型
         -- 生命一个 varray 类型的变量 并使用构造函数赋值
         v_rnd_varray Rnd_varray_type:=Rnd_varray_type('dalias','chicago','boston','newyork');

         v_loop number(2):=1;  --循环控制变量  （还可以是 其他数据类型）
         v_index number(1);  --随机数的下标
     begin
         LOOP
             if v_loop=6 then   --当 满足条件是 退出
                 exit;
             end if;
            v_index:=floor(dbms_random.value(1,5));  -- 使用 函数 产生  1<=n<5 (1,2,3,4) 的随机数 对应 v_rnd_varray 中的下标
            insert into rnd_temp_table value(v_loop,v_rnd_varray(v_index));   --向表中添加一条数据
            v_loop:=v_loop+1;   --循环控制变量++;
          END　loop;
     END;


--2. while  条件表达式 LOOP 执行语句 end  LOOP ;(只有条件表达式 为 true时候 就  运行)

     --示例1
       select ID　编号，shopname 商品名称,stock 库存量,day_salse_volulme 日销售量,max_stock  最大库存量,min_stock 最小库存量 from tb_stock;  --创建一张tb_stock表用于 while循环掩饰

       declare 
               v_stock tb_stock%rowtype;  --定义一个行类型
               v_n number(4):=0;   --保存所需的天数
       begin
               v_stock.Id=&Id;   --接受用户的输入
               select stock,day_salse_colume,min_stock into v_stock.stock,v_stock.day_sales_volume,v_stock.min_stock from tb_stock where id=v_stock.Id;
               while v_stock.stock>v_stock.min_stock 
                   Loop
                       v_stock.stock:=v_stock.stock-v_stock.day_salse_colume;
                       v_n=v_n+1;
                   end Loop;
               DBMS_output.put_line('商品编号：'||v_stock.ID);
               DBMS_outpyt.pyt_line('采购期限：'||v_n);
       Exception
               when no_data_found then
                  DBMS_output.put_line('请输入正确的商品编号！');
       END；


--for 循环变量 IN [reverse] 初始值表达式 ... 终值表达式 LOOP 执行语句  END　LOOP；

   -- 示例1
      declare  
           type Dept_table_type is table of dept%rowtype index by binary_integer;  --定义一个行类型
           v_dept_table Dept_table_type;  --定义一个行类型的变量
      begin
           --赋值
           select deptno,dname into v_dept_table(0).deptno, v_dept_table(0).dname from dept where deptno=10;
           select deptno,dname into v_dept_tabel(1).deptno, v_dept_table(1).dname from dept where deptno=20;
           select deptno,dname into v_dept_table(2).deptno, v_dept_table(2).dname from dept where deptno+30;
           --输出
           DBMS_output.put_line('部门编号       部门名称');
           for  i in 0 ...v_dept_table.count-1   --循环遍历 rowType 的变量
                loop
                     DBMS_output.put_line(v_dept_table(i).deptno||'               '||v_dept_table(i).dname);
                END LOOP; --结束循环
      END;