Oracle读书笔记-----PL/SQL编程（二）之程序流程

          一、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;