pl/sql编程----控制结构

控制结构：条件语句，循环语句，顺序控制语句…

条件分支语句：

pl/sql提供了三种条件分支语句：if—then，if----then----else，if----then----elsif----else

首先if–then：
if----then,if后面是一个条件，满足条件将会执行then后的代码，不满足将不会执行。写完执行if–then后一定要加上end if;表示if–then语句执行完毕；
end;
案例：编写过程，输入雇员代码，如果改雇员工尚未启用，则启用它；

create or replace procedure anl1(v_caozydm varchar2) is
v_qiy caozyxx.qiy%type;
begin
--执行部分
select qiy into v_qiy from caozyxx where caozydm=v_caozydm;
--开始判断
if v_qiy=0 then
update caozyxx set qiy = 1 where caozydm=v_caozydm;
end if;

--调用 exec anl1('0000');

二重条件分支：if–then–else
if----then–else,if后面是一个条件，满足条件将会执行then后的代码，否则将会执行else后面的代码。写完执行if–then–else后一定要加上end if;表示if–then–else语句执行完毕；
案例：编写过程，输入雇员代码，如果改雇员工尚未启用，则启用它；如果启用，就禁用它；

create or replace procedure anl1(v_caozydm varchar2) is
    v_qiy caozyxx.qiy%type;
    begin
    --执行部分
    select qiy into v_qiy from caozyxx where caozydm=v_caozydm;
    --开始判断
    if v_qiy=0 then
    update caozyxx set qiy = 1 where caozydm=v_caozydm;
    else 
     update caozyxx set qiy = 0 where caozydm=v_caozydm;
    end if;
   
    end;    
    --调用 exec anl1('0000');

多重条件分支：if–then–elsif–else;
if----then–elsif–else,if后面是一个条件，满足条件将会执行then后的代码，否则判断是否满足elsif的条件，如果满足执行elsif语句，否则执行else后的代码。写完执行if–then–elsif-else后一定要加上end if;表示if–then–elsif-else语句执行完毕；
案例：输入雇员代码，如果雇员姓名拼音码是两位，则mim=2,如果是三位，则mim=3，否则mim=4；

create or replace procedure anl1(v_caozydm varchar2) is
        v_pinym caozyxx.pinym%type;
        begin
        --执行部分
        select pinym into v_pinym from caozyxx where caozydm=v_caozydm;
        --开始判断
        if length(v_pinym)=2  then
        update caozyxx set mim = 2 where caozydm=v_caozydm;
        elsif length(v_pinym)=3  then
         update caozyxx set mim = 3 where caozydm=v_caozydm;
         else
         update caozyxx set mim = 4 where caozydm=v_caozydm;
        end if;
        end;    
        --调用 exec anl1('0000');

循环语句：

循环语句–loop
以loop开头，以 end loop 结尾，这种循环至少会被执行一次
案例：
假设一张用户表，只有两个字段（id，name）
编写一个过程，循环添加10个用户到users表中，id从1开始增加；

--创建表
create table users(id number(3),name varchar2(30));
--写过程
create or replace procedure anl1(v_name varchar2) is
i number:=1;
begin
--执行部分
loop
	 insert into users(id,name) values(i,v_name);
	 --判断是否要退出
exit when i=10;
	 i :=i+1;
end loop;
end;

循环语句–while循环：
只有条件为true时，才会执行循环体语句；以while…loop开始，end loop;结束
还是上一个案例：

create or replace procedure anl1(v_name varchar2) is
    i number:=1;
    begin
    --执行部分
    while i<=10 loop  --先判断，为true才执行循环体，否则退出；
        insert into users(id,name) values(i,v_name);
        i :=i+1;
    end loop;
    end;

循环语句–for循环：
上一个案例：

create or replace procedure anl1(v_name varchar2) is
    begin
    --执行部分
    for i in reverse 1..100 loop ---判断部分，定义变量i，从1开始到100结束
        insert into users(id,name) values(i,v_name);
    end loop;
    end;

顺序控制语句

顺序控制语句–goto

goto语句用于跳转到特定标号去执行语句
注意，由于使用goto语句会增加程序的复杂性，并使得应用程序可读性变差，建议少去使用；
语法：

declare
 i int:=1;
 begin
 --loop 循环
   loop
   		dbms_output.put_line('输出'||i);
   			--添加一个判断，如果i=10 就会自动跳到标号位置处
	       if i= 10 then
	       goto end_loop;--定义一个标号
	       end if;
   		i:=i+1;
   end loop;
 <<end_loop>>--标号位置，如果满足判断，goto会使执行调到此处；
 						--	标号位置可以随便放，放在哪就会跳到哪
 dbms_output.put_line('循环结束');
 end;

顺序控制语句 --null
null语句不会执行任何操作，并且会直接将控制传递到下一条语句。
使用null语句可以提高pl/sql的可读性；

declare
v_qiy caozyxx.qiy%type;
v_name caozyxx.caozyxm%type;
begin
select caozyxm,qiy into v_name,v_qiy from caozyxx where caozydm = &no;
if v_qiy =0 then
update caozyxx set mim = '' where caozydm = &no;
else
null;
end if;
end;