一、PL/SQL程序流程控制
上面的结构与其他的高级语言程序一样,就不做介绍了。
下就条件结构和循环结构说明。
1)IF条件控制句
1.1 IF...THEN语句
其语法是:
IF p THEN
基本语句段;
END IF;
例如:
declare
flag1 integer := 1;
flag2 integer := 2;
begin
if flag1 < flag 2 then
dbms_output.put_line('Flag1<flag2');
end if;
end;
注意:上面的IF 与END IF必须成对出现
1.2 IF...THEN...ELSE语句
该语句用于需要在两个语句段之间做出选择时。其语法如下:
IF P THEN
语句段1;
ELSE
语句段2;
EDN IF;
在该语句中,如果p的值为true,则执行语句段1,否则执行语句段2;实例:
declare
flag1 integer := 5;
flag2 integer := 8;
begin
if flag1 <flag2 then
dbms_output.put_line('flag1<flag2');
else
dbms_output.put_line('flag1>flag2');
end if;
end;
1.3 IF...THEN...ELSIF语句
该语句用于在三个或者三个以上的语句段之间做出选择。其语法段为:
IF P1 THEN
语句段1;
ELSIF P2 THEN
语句段2;
ELSE
语句段3;
END IF;
实例:
declare
grade number := 98;
results varchar2(10);
begin
if grade >=90 then
results := '优';
elsif grade >= 80 then
results :='良';
elsif grade >=70 then
results :='中';
elsif grade >= 60 then
results :='及格';
else
results :='差';
end if;
dbms_output.put_line(results);
end;
1.4 CASE选择控制
该语句用于控制多分支选择功能。其实 IF...THEN...ELSIF语句也可以实现这个功能,但是非常的麻烦。其语法结构为:
CASE E
WHEN e1: THEN 语句段1;
WHEN e2: THEN 语句段2 ;
WHEN e3: THEN 语句段3;
....................
WHEN en: THEN 语句段n ;
END CASE;
实例:
declare
results varchar2(20) := 'B';
grade varchar2(20);
begin
case results
when 'A' then grade := '90-100';
when 'B' then grade := '80-89';
when 'C' then grade := '70-79';
when 'D' then grade := '60-69';
when 'E' then grade := '<60';
else grade := '不存在这个成绩等级';
end case;
dbms_output.put_line(grade);
end;
2)、循环控制
2.1 FOR...LOOP语句
该形式如下:
FOR I [REVERSE]IN lb..hb LOOP
语句段;
END LOOP;
其中,i为整型变量,一般称为循环计算器,lb和hb均为整型常量,分别代表了i的下限和上限,..为范围操作符。当没有使用参数REVERSE时,i的初值被设置为lb。实例:
declare
i int := 0;
begin
for i in 1..3 loop
dbms_output.put_line('循环第'||to_char(i)||'次时'||to_char(i));
end loop;
end;
2.2 LOOP...EXIT循环控制
该语句用于控制死循环的。一般对于死循环的控制,有如下三种方式:
2.2.1 利用if语句
LOOP
语句段;
IF P THEN
EXIT;
END IF;
END LOOP;
实例:
declare
i int := 0;
results integer := 0;
begin
loop
results := results + i;
if i = 10 then
exit;
end if;
i : i+1;
end loop;
dbms_output.put_line('累加结果为:'||to_char(results));
end;
2.2.2 利用EXIT...WHEN
LOOP
.........
EXIT WHEN e;
.............
END LOOP;
其中e为布尔表达式,如果e的值为true则循环退出,否则继续执行循环语句。实例:
declare
i int := 1;
results integer := 0;
begin
loop
results := results+i;
exit when i = 10;
i := i+1;
end loop;
dbms_output.put_line('累加结果为:'||to_char(results));
end;
2.2.3: 利用标签
该语句的格式如下:
<<标签名>>
LOOP
.......
EXIT 标签名 WHEN e;
........
END LOOP;
当e为true时退出。注意,标签名必须在loop语句之前用“<<>>”定义实例:
declare
i integer := 1;
results integer := 0;
begin
<<my_label>>
loop
results := results + i;
exit my_label when i = 10;
i := i+1;
end loop;
dbms_output.put_line('累加的结果为:'||to_char(results));
end;
2.3 WHILE...LOOP循环控制
WHILE e LOOP
语句段;
END LOOP;
E为循环条件,当e的值为true时则执行循环体,否则退出循环。
实例:
declare
m integer := 100;
n integer := 7;
results integer;
begin
results := m;
while results >=n loop
results := results - n;
end loop;
dbms_output.put_line(to_char(m)||'除以'||to_char(n)||'的余数'||to_char(results));
end;
二、在PL/SQL程序中调用SQL语句
实际上在PL/SQL程序中i调用SQL语句,对于不同的SQL语句调用的方法是不一样的。在这里介绍常用的 几种语句的调用方法。
2.1调用SELECT语句
在调用这个语句之间,应该定义一个变量用来存储SELECT语句产生的结果,而且 这个变量的结果要与SELECT之后的字段列表相一致。实例:
declare
temp_emp scott.emp%rowtype;
begin
select * into temp_emp from emp where empno=7369;
dbms_output.put_line(to_char(temp_emp.empno||','||temp_emp.ename));
end;
注意:这种变量只能是一条记录,否则就会出错。而且如果SELECT语句无返回结果,同样会报错。
2.2调用INSERT语句
这条语句可以直接调用。实例:
declare
empno emp.empno%type;
ename emp.ename%type;
job emp.job%type;
mgr emp.mgr%type;
hiredate emp.hiredate%type;
sal emp.sal%type;
comm emp.comm%type;
deptno emp.deptno%type;
begin
empno := 6676;
ename := 'LILY';
job := 'CLERK';
mgr := 7899;
hiredate := to_date('1981-12-12','yyyy-mm-dd');
sal := 999.00;
comm := 433.00;
deptno := 20;
insert into emp values(empno,ename,job,mgr,hiredate,sal,comm,deptno);
end;
2.3调用UPDATE语句
同样可以之间调用。实例:
declare
tempno scott.emp.empno%type;
begin
tempno := 7677;
update emp set ename='AAA' where empno = tempno;
end;
2.4调用DELETE语句
直接调用。实例:
declare
tempno scott.emp.empno%type;
begin
tempno := 7677;
delete form emp where empno = tempno;
end;