PL/SQL 03 流程控制
Posted john2017
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了PL/SQL 03 流程控制相关的知识,希望对你有一定的参考价值。
--IF语法
IF condition THEN
statements;
[ELSIF condition THEN
statements;]
[ELSE
statements;]
END IF;
--CASE 语法
1、在 CASE 语句中使用单一选择符进行等值比较
CASE selector
WHEN expression1 THEN sequence_of_statements1;
WHEN expression2 THEN sequence_of_statements2;
...
WHEN expressionN THEN sequence_of_statementsN;
[ELSE sequence_of_statementsN+1;]
END CASE;
2、在 CASE 语句中使用多种条件比较
CASE
WHEN search_condition1 THEN sequence_of_statements1;
WHEN search_condition2 THEN sequence_of_statements2;
...
WHEN search_conditionN THEN sequence_of_statementsN;
[ELSE sequence_of_statementsN+1;]
END CASE;
--循环
1、基本循环 LOOP
LOOP
statement1;
...
EXIT [WHEN condition];
END LOOP;
2、WHILE 循环
WHILE condition LOOP
statement1;
statement2;
...
END LOOP;
3、FOR 循环
FOR counter in [REVERSE]
lower_bound..upper_bound LOOP
statement1;
statement2;
...
END LOOP;
4、嵌套循环和标号
嵌套循环是指在一个循环语句之中嵌入另一个循环语句,而标号(Label)则用于标记嵌套块或嵌套循环。通过在嵌套循环中使用标号,可以区分内层循环和外层循环,并且可以在内层循环中直接退出外层循环。在编写 PL/SQL 块时,可以使用<<label_name>>定义标号。
declare
result int;
begin
<>
for i in 1..100 loop
<>
for j in 1..100 loop
result:=i*j;
exit outer when result=1000;
exit when result=500;
end loop inner;
dbms_output.put_line(result);
end loop outer;
dbms_output.put_line(result);
end;
/
如上所示,当执行 PL/SQL 块时,如果 result=1000,那么会直接退出外层循环,而当 result=500 时只会退出内层循环。
--顺序控制语句 GOTO 、NULL
PL/SQL 不仅提供了条件分支语句和循环控制语句,而且还提供了顺序控制语句 GOTO 和 NULL。但与 IF,CASE 和 LOOP 语句不同,GOTO 语句和 NULL 语句,一般情况下不要用。
1、GOTO
GOTO 语句用于跳转到特定标号处去执行语句。注意,以为使用 GOTO 语句会增加程序的复杂性,并且使得应用程序可读性差,所以开发应用程序时,一般都建议用户不要使用 GOTO 语句。
其语法如下:
GOTO label_name;
其中,label_name 是已经定义的标号名。注意,当使用 GOTO 跳转到特定标号时,标号后至少要包含一条可执行语句。示例如下:
declare
i int:=1;
begin
loop
insert into temp values(i);
if i=10 then
goto end_loop;
end if;
i:=i+1;
end loop;
<<end_loop>>
dbms_output.put_line(‘循环结束‘);
end;
/
如上所示,在执行以上 PL/SQL 块时,如果 i=10,则会跳转到标号 end_loop,并执行随后的语句。
2、NULL
NULL语句不会执行任何操作,并且会直接将控制传递到下一条语句。使用 NULL 语句的主要好处是可以提高 PL/SQL 程序的可读性,示例如下:
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;
end if;
end;
/
当执行以上 PL/SQL 块时,会根据输入的雇员号确定雇员名及其工资;如果雇员工资低于3000,则将其补助设置为工资的10%;如果雇员的工资高于3000,则不会执行任何操作(NULL)。
--示例
declare
cj xkb.chengji%type;
state varchar2(4);
begin
select chengji into cj from xkb
where stuid=101 and kcid=1001;
if cj between 90 and 100 then --if语句
state:=‘优秀‘;
elsif cj between 70 and 89 then
state:=‘良好‘;
elsif cj between 60 and 69 then
state:=‘及格‘;
else
state:=‘差‘;
end if;
dbms_output.put_line(‘分数是:‘||cj);
dbms_output.put_line(‘等级是:‘||state);
end;
select stuname,sex,
case sex --case 值的比较
when ‘m‘ then ‘男‘
when ‘f‘ then ‘女‘
else ‘默认值‘
end "性别"
from stu
[email protected] test10g> declare
2 v_deptno emp.deptno%type;
3 begin
4 v_deptno:=‘&no‘;
5 case v_deptno
6 when 10 then
7 update emp set comm=100 where deptno=v_deptno;
8 when 20 then
9 update emp set comm=80 where deptno=v_deptno;
10 when 30 then
11 update emp set comm=50 where deptno=v_deptno;
12 else
13 dbms_output.put_line(‘not found‘);
14 end case;
15 end;
16 /
Enter value for no: 10
old 4: v_deptno:=‘&no‘;
new 4: v_deptno:=‘10‘;
PL/SQL procedure successfully completed.
select stuname,sex, --decode 值的比较(不能条件判断)
decode(sex,
‘m‘,‘男‘,
‘f‘,‘女‘,
‘默认值‘) "性别"
from stu
select stuid,kcid,
case --case 条件判断
when chengji between 90 and 100 then ‘优秀‘
when chengji between 70 and 89 then ‘良好‘
when chengji between 60 and 69 then ‘及格‘
else ‘差‘
end state
from xkb
[email protected] test10g> declare
2 v_sal emp.sal%type;
3 v_ename emp.ename%type;
4 begin
5 select ename,sal into v_ename,v_sal
6 from emp where empno=‘&no‘;
7 case
8 when v_sal<1000 then
9 update emp set comm=100 where ename=v_ename;
10 when v_sal<2000 then
11 update emp set comm=80 where ename=v_ename;
12 when v_sal<6000 then
13 update emp set comm=50 where ename=v_ename;
14 end case;
15 end;
16 /
Enter value for no: 7788
old 6: from emp where empno=‘&no‘;
new 6: from emp where empno=‘7788‘;
PL/SQL procedure successfully completed.
declare
m int:=0;
n int:=1;
begin
loop --loop循环
m:=m+n;
n:=n+1;
exit when n=101;
end loop;
dbms_output.put_line(‘m is :‘||m);
end;
declare
m int:=0;
n int:=1;
begin
while n<=100 --while循环
loop
m:=m+n;
n:=n+1;
end loop;
dbms_output.put_line(‘m is :‘||m);
end;
declare
m int:=0;
n int;
begin
for n in 1..100 --for循环
loop
m:=m+n;
end loop;
dbms_output.put_line(‘m is :‘||m);
end;
以上是关于PL/SQL 03 流程控制的主要内容,如果未能解决你的问题,请参考以下文章