12-10
IF-THEN-ELSE 语句
IF语句：包含IF-THEN和IF-THEN-ELSE
ELSIF语句：如果IF不成立 允许怎样
循环1
IF condition
THEN
.....
END IF;
例子
declare
v_count NUMBER(10):=0;
v_empno NUMBER(4):=7888;
begin
select count(1) into v_count from emp where empno=v_empno;
IF v_empno=0
THEN
insert into emp(empno,ename,job,hiredate,sal,deptno) values(v_empno,'张三','经理'，TRUNC(SYSDATE),1000,20);
END IF;
commit;
exception
when others
then
dbms_output.put_line(SQLERRM);
end;
循环2
IF condition
THEN
......
ELSE
......
END IF;
例子
declare
v_count NUMBER(10):=0;
v_empno NUMBER(4):=7888;
begin
select count(1) into v_count from emp where empno = v_empno;
IF v_count=0
THEN
insert into emp (empno,ename,job,hiredate,sal,deptno) values(v_empno,'张三'，'经理' ，TRUNC(SYSDATE),1000,20);
ELSE
update emp set ename='张三',job='经理'，hiredate=TRUNC(SYSDATE),sal=1000，deptno=20 where empno=v_empno;
END IF;
commit;
exception
when others
then
dbms_output.put_line(SQLERRM);
end;
嵌套IF语句
declare
v_sal NUMBER(7,2);
v_deptno NUMBER(2);
v_job varchar2(9);
begin
select deptno,v_job,sal into v_deptno,v_job,v_sal from emp where empno=&empno;
IF v_deptno=20
THEN
IF v_job='CLERK'
THEN
v_sal := v_sal *(1+0.12);
ELSIF v_job='ANALYST'
THEN
v_sal := v_sal * (1+0.19);
END IF;
ELSE
dbms_output.put_line('仅部门编号为20的员工才能加薪');
END IF;
end;
IF-THEN-ELSIF语句
IF condition-1
THEN
statements-1
ELSIF condition-N
THEN
statements-N
[ELSE
else_statements]
end if;
当开始IF条件为false或者null时 则elsif 就执行另一个条件 包含多个elsif语句时 只有当有是true时 才会被执行 然后忽略掉所有其他的ELSIF 语句 进入end if。如果所有的elsif都失败 则进入else语句
例子 有问题 待解决
declare
v_character char(1);
begin
v_character := '&tmpvar';
IF v_character = 'A'
THEN
dbms_output.put_line('当前输出字符串：'|| v_character);
ELSIF v_character = 'B'
THEN
dbms_output.put_line('当前输出字符串：'|| v_character);
ELSIF v_character = 'C'
THEN
dbms_output.put_line('当前输出字符串：'|| v_character);
else
dbms_output.put_line('不是1-3之间的字符');
END IF;
END;
18 /
输入 tmpvar 的值: A
原值 4: v_character := &tmpvar;
新值 4: v_character := A;
v_character := A;
*
第 4 行出现错误:
ORA-06550: 第 4 行, 第 17 列:
PLS-00201: 必须声明标识符 'A'
ORA-06550: 第 4 行, 第 2 列:
PL/SQL: Statement ignored
declare
v_character char(1);
begin
v_character := &tmpvar;
IF v_character = '1'
THEN
dbms_output.put_line('当前输出字符串：'|| v_character);
ELSIF v_character = '2'
THEN
dbms_output.put_line('当前输出字符串：'|| v_character);
ELSIF v_character = '3'
THEN
dbms_output.put_line('当前输出字符串：'|| v_character);
else
dbms_output.put_line('不是1-3之间的字符');
END IF;
END;
却可以执行
18 /
输入 tmpvar 的值: 1
原值 4: v_character := &tmpvar;
新值 4: v_character := 1;
当前输出字符串：1
PL/SQL 过程已成功完成。
这样就对了
输入 tmpvar 的值: 'A'
原值 4: v_character := &tmpvar;
新值 4: v_character := 'A';
PL/SQL 过程已成功完成。
SQL> declare
2 v_character char(1);
3 begin
4 v_character := '&tmpvar';
5 IF v_character = 'A'
6 THEN
7 dbms_output.put_line('当前输出字符串：'|| v_character);
8 ELSIF v_character = 'B'
9 THEN
10 dbms_output.put_line('当前输出字符串：'|| v_character);
11 ELSIF v_character = 'C'
12 THEN
13 dbms_output.put_line('当前输出字符串：'|| v_character);
14 else
15 dbms_output.put_line('不是1-3之间的字符');
16 END IF;
17 END;
18 /
输入 tmpvar 的值: A
原值 4: v_character := '&tmpvar';
新值 4: v_character := 'A';
PL/SQL 过程已成功完成。
这样也可以
12-11
CASE 语句分为两种类型
简单CASE语句：简单的CASE语句的选择器是一个变量或是一个返回有效数据类型的函数，选择器不可以是布尔类型
搜索CASE语句：搜索CASE语句的选择器是布尔类型的变量或是返回布尔型的函数，默认的选择器为true，当搜索一个true表达式时，可以省略掉选择器的定义
CASE 。。。。
WHEN .......THEN
.........;
WHEN.........THEN
.........;
ELSE
.........;
END CASE;
declare
v_job varchar2(30);
v_empno NUMBER(4):=&empno;
begin
select job into v_job from emp where empno = v_empno;
CASE v_job
WHEN 'CLERK'
THEN
update emp set sal=sal*(1+0.15)
where empno=v_empno;
dbms_output.put_line('为普通职员加薪15%');
WHEN 'MANAGER'
THEN
update emp set sal=sal*(1+0.20)
where empno=v_empno;
dbms_output.put_line('为管理人员加薪20%');
WHEN 'SALESMAN'
THEN
update emp set sal=sal*(1+0.22)
where empno=v_empno;
dbms_output.put_line('为销售人员加薪22%');
else
dbms_output.put_line('员工职级不再加薪的行列');
end case;
end;
搜索CASE语句
CASE [TRUE | FALSE]
WHEN ......THEN
.............;
WHEN.......THEN
.............;
ELSE
.............;
END CASE;
declare
v_sal NUMBER(10,2);
v_empno number(10):=&empno;
begin
select sal into v_sal from emp where empno = v_empno;
CASE
WHEN v_sal BETWEEN 1000 AND 1500
THEN
dbms_output.put_line('员工级别：初级职员');
WHEN v_sal BETWEEN 1500 AND 3000
THEN
dbms_output.put_line('员工级别：中级管理');
WHEN v_sal BETWEEN 3000 AND 5000
THEN
dbms_output.put_line('员工级别：高级经理');
ELSE
dbms_output.put_line('不在级别范围之内');
END CASE;
END;
循环控制语句
简单的loop循环：loop-end loop
数字式for循环：指定循环要执行的次数
while循环：仅当特定的循环满足时才执行循环，当条件不再满足时循环终止
exit语句
exit语句：直接退出循环
exit when：当when指定的条件满足时退出循环
1.
loop
.........;
end loop;
2.
loop
.....;
.....;
IF ......THEN;
EXIT;
END IF;
END LOOP;
例子
declare
v_count number(2):=0;
begin
loop
v_count:=v_count+1;
dbms_output.put_line('行' || v_count || ': Hello PLSQL');
IF v_count=10
THEN
EXIT;
end if;
end loop;
dbms_output.put_line('循环已经退出了');
end;
loop
..........;
..........;
exit when .......;
end loop;
例子
declare
v_count number(2):=0;
begin
loop
v_count:=v_count+1;
dbms_output.put_line('行' || v_count || ': Hello PLSQL');
exit when v_count=10;
end loop;
dbms_output.put_line('循环已经退出');
end;
使用continue 继续执行循环
continue 不会中断当前循环的执行，但是continue不会马上退出循环，而是将循环执行跳转到语句的开头开始下一次循环，continue 允许跳过部分循环执行的代码重新开始另一次循环。
例子 在一个输出累加循环的代码中 如果循环体计数大于3，则执行额外的输出代码，如果小于3，将跳过部分代码的执行。
declare
x number:=0;
begin
loop
dbms_output.put_line('内部循环值：x' || TO_CHAR(x));
x := x+1;
IF x < 3
THEN
continue;
end if;
dbms_output.put_line('continue之后的值: x=' || TO_CHAR(x));
exit when x = 5;
end loop;
dbms_output.put_line('循环体结束后的值: x = ' || TO_CHAR(x));
end;
continue when 例子
declare
x number:=0;
begin
loop
dbms_output.put_line('内部循环值：x' || TO_CHAR(x));
x := x+1;
continue when x < 3;
dbms_output.put_line('continue之后的值: x=' || TO_CHAR(x));
exit when x = 5;
end loop;
dbms_output.put_line('循环体结束后的值: x = ' || TO_CHAR(x));
end;
while-loop 循环
loop-end loop类似的代码总能被执行至少一次 这种类型的循环也称为出口值守循环。
while-loop循环在代码之前先判断一个条件，如果条件一开始就为假，那么一次循环也不执行，这种类型叫做 入口值守循环。
while ........loop
..........;
..........;
end loop;
declare
v_count PLS_INTEGER :=1;
begin
while v_count <= 5
loop
dbms_output.put_line('while循环索引值：' || v_count);
v_count:=v_count+1;
end loop;
end;
for-loop 循环分为：
1.数字for循环
2.游标for循环
declare
v_total integer:=0;
begin
for i in 1 .. 3
loop
v_total := v_total +1;
dbms_output.put_line('循环计数器值:'|| i);
end loop;
dbms_output.put_line('循环总计：' || v_total);
end;
11 /
循环计数器值:1
循环计数器值:2
循环计数器值:3
循环总计：3
PL/SQL 过程已成功完成。
默认循环计数是从低到高的
使用reverse 循环过程将按高到低的顺序执行
declare
v_total integer:=0;
begin
for i in reverse 1 .. 3
loop
v_total := v_total +1;
dbms_output.put_line('循环计数器值:'|| i);
end loop;
dbms_output.put_line('循环总计：' || v_total);
end;
循环计数器值:3
循环计数器值:2
循环计数器值:1
循环总计：3
PL/SQL 过程已成功完成。
1 .. 3 是循环的边界值
边界值可以是变量，表达式，只要是可以赋值的数字
declare
v_counter integer := &counter;
begin
for i in 1 .. v_counter
loop
dbms_output.put_line('循环计数:'|| i);
end loop;
end;
GOTO语句和标签
GOTO语句是一个无条件跳转语句，它可以将程序的执行流程跳转到某个标签。
declare
p varchar2(30);
n PLS_INTEGER := 37;
begin
for j in 2 .. ROUND(SQRT(n))
loop
IF n MOD j=0 THEN
p:='不是素数';
GOTO print_now;
END IF;
end loop;
p := '是一个素数';
<<print_now>>
dbms_output.put_line(TO_CHAR(n) || p );
end;
GOTO语句可以向上或向下跳转
declare
v_counter INT:=0;
begin
<<outer>>
v_counter := v_counter +1;
dbms_output.put_line('循环计数器'|| v_counter);
if v_counter < 5
then
GOTO outer;
end if;
end;
NULL语句 表示什么也不执行
null与标签使用示例
declare
done boolean;
begin
for i in 1 .. 50
loop
if done
then
GOTO end_loop;
end if;
<<end_loop>>
NULL;
end loop;
end;
在异常语句块中使用null
declare
v_result int := 0;
begin
v_result:=16/0;
dbms_output.put_line('现在时间是 :' || TO_CHAR(SYSDATE,'YYYY-MM-DD HH24:MI:SS'));
EXCEPTION
WHEN OTHERS
THEN
NULL;
END;
上面的故意制造被0除 跳到异常处理，null语句表示出异常不进行任何的处理
