PLSQL变量和类型,流程控制语句,集合

---PLSQL     调试授权
GRANT debug any procedure, debug connect session TO scott;
--定义变量
declare
  part_number number(6);    --SQL类型  
  part_name    varchar2(20);  --SQL类型  
  in_stock        boolean;        --plsql类型
  part_price      pls_integer;   --plsql类型
  part_description varchar2(50);   
  hours_worked integer:=40;
  employee_count integer not null:=0;
  hire_date date default sysdate;   --使用DEFAULT设置初始值
 begin
   part_number:=38;
   part_name:='水管';
   in_stock:=True;
   hours_worked:=50;
   part_price:=100/part_number;
   part_description:='镀银软管';
 DBMS_OUTPUT.put_line(part_number||CHR(13)||part_name||chr(13)||hire_date||'  '||hours_worked);  
 end;

 --使用select into 语句为变量赋值
 declare
    v_sal emp.sal%type;
    v_empno emp.empno%type;
    v_deptno emp.deptno%type;
  begin
    select empno,sal,deptno
     into v_sal, v_empno, v_deptno
     from emp
     where empno =7369;
      dbms_output.put_line(v_sal  ||' '||v_empno  ||' '||v_deptno);   
  exception
     when too_many_rows then
       dbms_output.put_line('返回了多行数据');   
    end;  


 --定义常量
 declare
     credit_limit  constant real:=5000.00;  --指定信用额度
 begin
   dbms_output.put_line('信用额度'||credit_limit );
   end;    

 --if ..elseif
 declare
      v_sal  number;
      v_comm number;
      v_ename varchar2(20) :='SCOTT';
 begin
   select sal,comm into v_sal,v_comm from emp
   where ename = v_ename; 
   if v_sal+v_comm <3000 then
     update emp set sal=sal*1.12 where ename =v_ename;
   elsif  v_sal+v_comm>3000 and v_sal+v_comm<4000 then
      update emp set sal=sal*1.1 where ename =v_ename;
      elsif v_sal+v_comm>4000 and v_sal+v_comm<5000 then
        update emp set sal=sal*1.05 where ename =v_ename;
      end if;       
   exception 
      when no_data_found then
         dbms_output.put_line('对史密斯调薪的操作失败,错误信息为:'||SQLERRM);
        end;   



--case选择器的用例
   declare
      grade char(1);
   begin
     grade :='0';
     case grade
       when 'A' then
         dbms_output.put_line('优秀');
       when 'B' then
         dbms_output.put_line('良好'); 
        when 'C' then
         dbms_output.put_line('好'); 
            when 'D' then
         dbms_output.put_line('一般');  
         else
           dbms_output.put_line('无此等级');
         end case;        
     end;

select mod(100,13) from dual;
--1简单循环
     declare
         x number:=0;
         y number:=100;
     begin
       loop
         dbms_output.put_line('循环中变量的值:x='|| to_char(x));
         x:=x+1;
         if x>20 then  --如果x的值大于20, 则使用Exit退出循环
           exit;
           end if;     
           exit when y mod x>5; --y除以x的余数大于5,则退出循环
           dbms_output.put_line('结果'|| y mod x);
          end loop; 
         dbms_output.put_line('循环结束变量的值:x='||to_char(x));  
        end;

   --2 continue when使用实例
   declare
     x number:=0;
     begin
       loop
         dbms_output.put_line('循环计数变量:x='||to_char(x));
         x:=x+1;
         continue  when x=4;
         dbms_output.put_line('循环计数变量,在continue之后');
         exit when x=5;
         dbms_output.put_line('退出本循环变量的值:x='||to_char(x));
         end loop;
       end;

   --简单的数字式For循环使用示例
   create table books(bookid number(10),bname varchar2(40),price number(4));
   alter table books modify bname varchar2(40);
   begin
   for  i in 1..3 loop
        insert into books values(1020+i,'矛盾文学第'||to_char(i)||'册',3);
        dbms_output.put_line('插入了矛盾文学第'||to_char(i)||'册');
     end loop;
     end;
  select * from books;   

  --反向for循环
  begin
     for i in reverse 1..5 loop
       dbms_output.put_line('循环计数器为'||to_char(i));
      end loop;   
    end;   

 --wile loop循环
 declare
        v_count pls_integer:=1;
 begin
        while v_count<=10 loop
          dbms_output.put_line('当前循环计数器的值为:'||v_count);
          v_count:=v_count+1;
        end loop;  
   end;       

 select round(sqrt(37)) from dual;

 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;

 1.goto语句不能跳转到嵌套块内部的命名标记位置
 2.不能在if子句的内部使用goto语句跳转到另一个if,case和loop语句内部
 的命名标签
 3.不能从一个exception块中使用goto跳转到块的其他区域
 4.不能在exception外部使用goto语句跳转到exception内部;

 --null  表示创建一个什么也不做的
 declare
     done boolean:=true;
  begin 
    for i in 1..50 loop
      if done then
        goto end_loop;
      end  if;
      <<end_loop>>
       null;
      end loop;
   end;   


 --集合
 --定义关联数组
 declare
 --雇佣日期索引集合
 type hiredate_idxt is table of date index by pls_integer;
 --部门编号集合
 type deotno_idsxt is table of dept.deptno%type not null
 index by pls_integer;
 --记录类型的索引表, 这个结构允许在PL/SQL程序中创建一个本地副本
 type emp_idxt is table of emp%rowtype     
      index by natural;
 type deptname_idxt is table of dept%rowtype
   index by dept.dname%type;

 type private_collection_tt is table of deptname_idxt
 index by varchar2(100);          
 begin
   null;
end;  
--定义与使用关联数组
Declare
  --定义关联数组,元素类型varchar2(12),下标为PLS_INTEGER
   type idx_table is table of varchar2(12)
        index by pls_integer;
        v_emp idx_table;  --定义关联数组变量
        v_idx PLS_INTEGER;
begin
  v_emp (1):='史密斯';
  v_emp (20):='克拉克';
  v_emp (-10):='杰瑞';
  v_idx:=v_emp.first;   --获取关联数组中第一个元素的下标
  while v_idx is not null
  loop
        dbms_output.put_line('关联数组'|| v_idx||'所在的值是'||v_emp(v_idx));
        v_idx:=v_emp.next(v_idx);     
    end loop;
  end;        

  --使用字符串下标的关联数组
  declare
   --定义以varchar2作为索引键的关联数组
    type idx_empsal_table is table of number(8)
       index by varchar2(20);
    v_empsal idx_empsal_table;
begin                      
  v_empsal('史密斯'):=5000;
  v_empsal('李维二'):=8000;
  v_empsal('张大千'):=3000;
  dbms_output.put_line('工资为:'|| v_empsal('李维二'));
  end;    


  嵌套表是对关联数组的扩展,
  1 可以在方案级别创建,可以直接 存储在数据库表中作为表的一个字段
  2 需要调用构造函数进行初始化

  --使用嵌套表 
  declare
    type emp_name_table is table of varchar2 (20);
    type deptno_table is table of number(2);
    deptno_info deptno_table;
    emp_name_info    emp_name_table:=emp_name_table('张老三','李斯特');
  begin
    dbms_output.put_line('员工1:'||emp_name_info(1));
    dbms_output.put_line('员工2:'||emp_name_info(2));
    if deptno_info is null
    then 
        deptno_info:=deptno_table();
     end if;
     deptno_info.extend(5);    --扩充元素的个数
     for i in 1..5                --循环遍历元素个数
       loop
           deptno_info(i):=i*10;
         end loop;   
         dbms_output.put_line('部门个数:'||deptno_info.count);
    end;  


--定义一个方案级别的嵌套表
create  or replace type t_deptno_type is table of number;                 
/
create or replace procedure print_deptno(nt t_deptno_type) 
is i number;
begin 
  i:=nt.first;   --获取第1个元素的下标,如果不存在则返回null
  if i is null then
    dbms_output.put_line('嵌套表中未分配任何元素');
   else
     while i is not null loop    
           dbms_output.put('下标.('||i||')的部门编号是:');
           dbms_output.put_line(nt(i));
           i:=nt.next(i);       
       end loop;
    end if;
    dbms_output.put_line('---');
    end print_deptno;    
/
declare
   nt t_deptno_type:=t_deptno_type();  --初始化一个空的嵌套表
begin
  print_deptno(nt);              --输出嵌套表的信息
  nt:=t_deptno_type(90,9,29,58); --重新初始化嵌套表,使之具有4个元素
  print_deptno(nt);
  nt.delete(1);       --删除嵌套表中下标为1的元素
  --dbms_output.put_line(nt(1));  --01403异常
  nt(1):=10;
  end;   

  select * from dept_add_emp
  --创建嵌套表列
  create  or replace type tbl_emp_name as table of varchar2(20);
  create table dept_add_emp(
       deptno number(2) primary key,
       dname varchar2(14),
       loc varchar2(13),
       emp tbl_emp_name    --object
  )
  nested table emp store as emps_nt;  --嵌套表存储位置


  --对包含嵌套表列的表执行DML语句
  declare
         emp_list  tbl_emp_name
         :=tbl_emp_name('史密斯','杰克','马丁','斯大林','邓小平');
   begin
     insert into dept_add_emp
           values (10,'行政部','北京',emp_list);
     insert into dept_add_emp 
            values(20,'财务部','上海',tbl_emp_name('李林','张杰','蔡文'));  
       --对嵌套表进行更新,然后使用update语句将嵌套表更新回数据库       
      emp_list(1):='张三';
      emp_list(2):='李四';
      emp_list(3):='王五';                        
      update dept_add_emp set emp=emp_list
      where deptno=10;
      --从数据库表中查询出嵌套表的实例
     select emp into emp_list from dept_add_emp where deptno=10;  
     for v_index in 1..emp_list.count loop
         dbms_output.put_line(emp_list(v_index));
       end loop;   
       dbms_output.put_line('演示如何从其他表中插入嵌套表列的值');
       --清除表中的数据
       delete from dept_add_emp;
       --使用inert select语句,将插入dept表中所有的记录,使用cast和multiset强转
       --把emp表中的ename作为嵌套表的元素
       insert into dept_add_emp
              select dept.*,cast(multiset
             (select ename from emp where emp.deptno=dept.deptno) 
             as tbl_emp_name) from dept;
        select emp into emp_list from dept_add_emp where deptno=10;

        for v_index in 1..emp_list.count loop
          dbms_output.put_line(emp_list(v_index));
         end loop;      
       end;        

   select * from dept_add_emp where deptno=20;  

   --取消集合嵌套,把它当做一个表来处理
   select d.deptno,d.dname,emp.* from dept_add_emp d,
   table(d.emp) emp where d.deptno=10;  

--操作变长数组
declare
   --定义变长数组类型
   type t_dept_name is varray(10) of varchar2(20);
   type t_dept_no is varray(8) of number;
   --声明变长数组类型
   varray_deptname_tab  t_dept_name:=t_dept_name('行政部','管理部');
   varray_deptno_tab t_dept_no;
begin
     if varray_deptno_tab is null then
       varray_deptno_tab:=t_dept_no(10,20,30,null,null,null);       
     end if;  
     varray_deptname_tab.extend(3); --在原有的基础上扩充三个元素
     dbms_output.put_line('当前varray_deptname_tab个数:'||varray_deptname_tab.count);
     varray_deptname_tab.trim;   --删除一个
     dbms_output.put_line('当前varray_deptname_tab个数:'||varray_deptname_tab.count);

     varray_deptname_tab.extend;
     varray_deptname_tab(5):='发展部';
     dbms_output.put_line(varray_deptname_tab(5)); 
     --这行代码超过了变长数组最大长度,抛出06533异常
     --varray_deptno_tab.extend(5)
  end;    


--数据库中的变长数组
 create  or replace type empname_varray_type is varray (10) of varchar2 (20);
 create table dept_varray(
     deptno number(2),
     dname varchar2(20),
     emplist empname_varray_type
 );

declare
   emp_list empname_varray_type:=
        empname_varray_type('诸葛亮','司马懿','郭嘉','庞统','许攸');
begin
   insert into dept_varray
          values(20,'军师',emp_list);
   insert into dept_varray
          values(30,'武将',
           empname_varray_type('关羽','张飞','赵云','魏延','黄忠'));
       --从表中取出变长数组的数据    
     select emplist into emp_list from dept_varray where deptno=20; 
     emp_list(1):='姜维';
     update dept_varray
            set emplist=emp_list
      where deptno =20;
      --删除记录同时删除变长数组
     --delete from dept_varray where deptno=30;       
    end;                        

select * from dept_varray;


--布尔类型使用示例
declare
  v_condition boolean;
  begin  
    v_condition:=true;
    if v_condition then
      dbms_output.put_line('值为True');
    else
       dbms_output.put_line('值为false');
     end if;
    end;    
--子类型定义,数值检查
declare
    type empnamelist is table of varchar2(20);
    subtype namelist is empnamelist;  --定义表类型的子类型
    type emprec is record(
         empno number(4),
         ename varchar(20)
    );
    subtype emprecord is emprec;   --定义员工记录子类型
    subtype numtype is number(1,0);
    x_value numtype;
    y_value numtype;
 begin
   x_value:=3;
   y_value:=9;
 end;  
--数据类型转换 
--显示转换示例
declare
  v_startdate date;
  v_enddate date;
  v_resultdate number;
begin
  v_startdate :=to_date('2007-10-11','yyyy-mm-dd');
  v_enddate:=trunc(sysdate);
  v_resultdate:=v_enddate-v_startdate;
  dbms_output.put_line( ' 起始'||v_startdate||'日期: '||
  to_char(v_startdate,'yyyy-mm-dd')
  ||chr(13)||chr(10)||'结束'||v_enddate||'日期: '||
  to_char(v_enddate,'yyyy-MM-dd')
  ||chr(13)
  ||chr(10)
  ||' 相差天数: '
  || to_char(v_resultdate));
end;  

--隐式转换示例
declare
   v_startdate char(10);
   v_enddate  char(10);
   v_result   number(5);
begin
  select min(hiredate) into v_startdate from emp;
  select trunc(sysdate) into v_enddate from dual;
  dbms_output.put_line( ' 起始日期: '
  || v_startdate||chr(13)||chr(10)             ---chr(10)换行chr(13)回车
  ||' 结束日期: '||v_enddate );

  dbms_output.put('chr'||chr(13));
  v_startdate:='200';
  v_enddate:='400';
  v_result:=v_enddate-v_startdate;
  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;  

--case语句后面的值是可选的 True和 False ,默认值为True
--使用continue重新开始循环
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('countiue之后的值:x='|| to_char(x));
           exit when x=5;
       end loop;
       dbms_output.put_line('循环体结束后的值:x='||to_char(x));
        end;

 loop-end-loop循环有一个特色, 无论循环退出条件是否满足
 先进入循环体,再执行代码,直到遇上exit或exit when子句才
 判断并退出循环 代码至少有机会被执行一次称为
 出口值守循环,  见图1 
   while-loop循环在执行体中代码之前先判断一个条件,如果
   一开始就为假, 那么一次也不执行代码,这种类型的循环称为
   入口值守循环

   循环的功能特性与使用时机 图2

   --GOTO语句模拟循环语句
   declare
       v_counter int:=0;
   begin
     <<outer>>
     DBMS_OUTPUT.put_line('循环计数器:'|| v_counter);
     if v_counter<5
       then
         v_counter:=v_counter+1;
          goto outer;  --向上跳转到标签位置
         end if;
     end;    

    --NULL 语句
    declare
           v_counter INT:=&counter;
     begin
       if v_counter>5
       then
          dbms_output.put_line('v_counter>5');
         else
             null;
          end if;    
       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;   

1 有时候希望代码在遇到异常时继续执行,
并不处理异常,此时可以使用NUll语句
2  使用NULL来创建存根代码,有需要的时候再使用
创建一个存根过程,不包含任何程序代码,以便处理程序调试
create or replace procedure getleveledbom(bomlevel INT)
AS
BEGIN
   NULL;
END;   


--count方法示例
declare
  type emp_name_table is table of varchar2(20);
  type deptno_table is table of number(2);
  deptno_info deptno_table;
  emp_name_info emp_name_table :=emp_name_table('张三','李斯特');
  begin
    deptno_info:=deptno_table();
    deptno_info.extend(5);    --扩充5个元素
    dbms_output.put_line('deptno_info的元素个数为:'||deptno_info.count);
    dbms_output.put_line('emp_name_info的元素个数为:'||emp_name_info.count);
    end;  
--LIMIT方法示例
declare
    type projectlist is varray(50) of varchar2(16);
    project_list projectlist:=projectlist('网站','ERP','CRM','CMS');
    begin
      dbms_output.put_line('变长数组的上限值为:' || project_list.LIMIT);
      project_list.extend(8);
      dbms_output.put_line('变长数组的当前个数为:' || project_list.count);
      end;

--first和last示例
declare
      type projectlist is varray (50) of varchar2(16);
      project_list projectlist :=projectlist('网站','ERP','CRM','CMS');
 begin
   dbms_output.put_line('project_list的第一个元素:'||project_list.first);
   project_list.extend(8);
   dbms_output.put_line('project_list的最后一个元素的下标:'||project_list.last);
   end;      

--prior和next示例
declare
   type idx_table is table of varchar(12) index by pls_integer;
   v_emp idx_table;
   i pls_integer;
begin
  v_emp(1) :='史密斯1';
  v_emp(20) :='克拉克2';
  v_emp(40):='史瑞克3';
  v_emp(-10):='杰瑞4';
  dbms_output.put_line('第-10个元素的下一个值:'||v_emp(v_emp.next(-10)));
   dbms_output.put_line('第40个元素的上一个值:'||v_emp(v_emp.PRiOR(40)));
   i :=v_emp.FIRST;
   while i is not null 
   loop
      dbms_output.put_line('v_emp('||i||')='||v_emp(i));
      i :=v_emp.next(i);     --遍历
     end loop;
  end;      

--extend使用示例
declare
   type courselist is table of varchar2(10);
   courses courselist;
   i pls_integer;
begin
  courses:= courselist('生物','物理','化学');
  courses.delete(3);   --删除第三个元素
  courses.extend;    --追加一个空元素
  courses(4):='英语';
  courses.extend(5,1); --把第一个元素复制5份加到末尾
  i:=courses.First;
  while i is not null loop
    dbms_output.put_line('courses('||i||')=' ||courses(i));
    i:=courses.next(i);
    end loop;
  end;   
--TRIM示例
declare
  type courselist is table of varchar2(10);
  courses courselist;
  i PLS_INTEGER;
begin
  courses := courselist('生物','物理','化学','音乐','数学','地理');
  courses.trim(2);            --删除集合末尾的两个元素
  dbms_output.put_line('当前的元素个数:'||courses.count);
  courses.extend;
  courses(courses.count):='语文';
  courses.trim;--删除最后一个  (语文)
  i:=courses.first;
  while i is not null loop
    dbms_output.put_line('courses('||i||')='||courses(i));
     i:=courses.next(i);
    end loop;
  end;  

--delete使用示例
declare
  type courselist is table of varchar2(10);
  courses courselist;
  i pls_integer;
begin
  courses :=courselist('生物','物理','化学','音乐','数学','地理');
  courses.delete(2);  --删除第二个元素
  dbms_output.put_line('当前的元素个数:'||courses.count);
  courses.extend;
  dbms_output.put_line('当前的元素个数:'||courses.count);
  courses(courses.last):='语文';               --为最后一个元素赋值
  courses.delete(4);    
  i:=courses.FIRST;
  while i is not null loop
    dbms_output.put_line('courses('||i||')='||courses(i));
    i:=courses.next(i);
    end loop;
  end;  

使用批量绑定
 编写PLSQL代码,PLSQL引擎与SQL引擎频繁交互会大大降低效率
 --forall语句示例
 --将集合中所有元素批量地绑定,以便一次性将多个绑定到SQL语句的变量发给SQL引擎
 一次性发送给SQL引擎.
 declare
  type dept_type is varray (20) of number;
  depts dept_type :=dept_type(10,30,70);
  begin
    forall i in depts.first..depts.last
      delete from emp where deptno=depts(i);
    for i in 1..depts.count loop
      dbms_output.put_line('部门编号'||depts(i)
      ||'的删除操作受影响的行: '||sql%bulk_rowcount(i));
      end loop;  
    end;

-bulk collect关键字可以批量从SQL引擎中批量接受数据到一个集合
declare
       type numtab is table of emp.empno%type;
       type nametab is table of emp.ename%type;
       nums numtab;
       names nametab;
begin
  select empno,ename
  bulk collect into nums,names from emp;
  for i in 1..nums.count
    loop
      dbms_output.put('num('||i||')='||nums(i)||' ');
      dbms_output.put_line('names('||i||')='||names(i));
      end loop;
  end;       
--使用游标的属性isopen
declare
  cursor emp_cursor(p_deptno in number)
  is select * from emp where deptno =p_deptno;
begin
  if not emp_cursor%isopen then
     open emp_cursor (20); 
   end if;
   if emp_cursor%isopen then
     dbms_output.put_line('游标已经被打开!');
     else
     dbms_output.put_line('游标还没有被打开!');
    end if;
    close emp_cursor; 
  end;

--%not found
declare
   emp_row  emp%rowtype;
   cursor emp_cursor(p_deptno in number)
   is select * from emp where deptno=p_deptno;
   begin
     open emp_cursor(20);--给一个游标传递参数
     if emp_cursor%notfound is null
       then
         dbms_output.put_line('%notfound属性为null');
        end if;
        loop
          fetch emp_cursor
             into emp_row;
             --每循环一次判断%found属性值,如果该值为False,表示提取完成将退出循环
             exit when emp_cursor%notfound;
          end loop; 
          close emp_cursor;
     end;  

--%rowcount 属性   
declare
       emp_row emp%rowtype;
       cursor emp_cursor(p_deptno in number)
       is select * from emp where deptno=p_deptno;
  begin
    open emp_cursor(20);
    loop
      fetch emp_cursor into emp_row;
      exit when emp_cursor%notfound;
      dbms_output.put_line('当前提取的的行数为: '||emp_cursor%rowcount
      ||'行!');
      end loop;
    end;