Oracle控制结构详解

------------------------------------
if 条件表达式 then ..
------------------------------------
--  编写一个过程，可以输入一个雇员名，如果该雇员的工资低于2000，就给雇员工资增加10%
create or replace procedure sp_pro(spName varchar2) is
  --定义
  v_sal emp.sal%type;
begin
  --执行
  select sal into v_sal from emp where ename=spName;
  --判断
  if v_sal<2000 then
    update emp set sal=sal*1.1 where ename=spName;
  end if;
end;

--调用过程
exec sp_pro('SCOTT');


------------------------------------
if 条件表达式 then .. else ..
--------------------------------------------
--  编写一个过程，可以输入一个雇员名，如果该雇员的补助不是0，就在原基础上增加100，如果补助为0，就把补助设为200
create or replace procedure sp_pro(spName varchar2) is
  --定义
  v_comm emp.comm%type;
begin
  --执行
  select comm into v_comm from emp where ename=spName;
  --判断
  if v_comm<>0 then
     update emp set comm=comm+100 where ename=spName;
  else
     update emp set comm=comm+200 where ename=spName;
  end if;
end;

--调用过程
exec sp_pro('SCOTT');

----------------------------------------------------
if 条件表达式 then .. elsif 条件表达式 then .. else ..
----------------------------------------------------
-- 编写一个过程，可以输入一个雇员编号，
--如果该雇员的职位是PRESIDENT就给他的工资增加1000，
--如果该雇员的职位是MANAGER就给他的工资增加500，
--其他职位的雇员工资增加200
create or replace procedure sp_pro(spNo number) is
  --定义
  v_job emp.job%type;
begin
  --执行
  select job into v_job from emp where empno=spNo;
  --判断
  if v_job='PREDIENT' then
     update emp set sal=sal+1000 where empno=spNo;
  elsif v_job='MANAGER' then
     update emp set sal=sal+500 where empno=spNo;
  else
     update emp set sal=sal+200 where empno=spNO;
  end if;
end;

--调用过程
exec sp_pro(7839);

------------------------------
while
------------------------------
--语法
while 条件表达式 loop
  执行语句...;
end loop;

--案例
--循环向表插入数据
create or replace table test_1(
empno number primary key,
ename varchar2(20) default '' not null
);

create or replace procedure pro(v_in_ename varchar2, v_in_n number) is
  --定义变量
  v_empno number:=200;
begin
  delete test_1;
  while v_empno<=200+v_in_n loop --while循环
    insert into test_1 values(v_empno, v_in_ename);
    v_empno:=v_empno+1;
  end loop;
end;


------------------------------
for
------------------------------
--语法
for i in reverse 1..10 loop
   执行语句;
end loop;
 
 
--案例
create or replace procedure pro(v_in_ename varchar2, v_in_n number) is
  --定义变量
  v_empno number:=200;
begin
  delete test_1;
  for i in reverse 1..10 loop --for循环
    insert into test_1 values(v_empno, v_in_ename);
    v_empno:=v_empno+1;
  end loop;
end;

------------------------------
goto,null
------------------------------
1、goto跳转到特定标号去执行

--案例
declare
  i number:=1;
begin
  <<start_loop>>
  loop
    dbms_output.put_line('输出i='||i);
    if i=12 then
      goto end_loop;
    end if;
    i:=i+1;
    if i=10 then
      goto start_loop;
    end if;
  end loop;
  <<end_loop>>
  dbms_output.put_line('循环结束');
end;

2、null 语句不会执行任何操作

--案例
declare
 v_sal emp.sal%type;
 v_ename emp.ename%type;
begin
 select ename,sal into v_ename,v_sal from emp where empno=&no;
 if v_sal<3000 then
   update emp set comm=sal*0.1 where ename=v_ename;
 else
   null; --null 其实没有任何意义
 end if;
end;