oracle笔记2-程序包，过程，游标

一、程序包

程序包介绍：程序包(PACKAGE，简称包)是一组相关过程、函数、变量、常量和游标等PL/SQL程序设计元素的组合，作为一个完整的单元存储在数据库中，用名称来标识包。它具有面向对象程序设计语言的特点，是对这些PL/SQL 程序设计元素的封装。包类似于c#和JAVA语言中的类，其中变量相当于类中的成员变量，过程和函数相当于类方法。把相关的模块归类成为包，可使开发人员利用面向对象的方法进行存储过程的开发，从而提高系统性能。
一个包由两个分开的部分组成：
包说明（PACKAGE）：包说明部分声明包内数据类型、变量、常量、游标、子程序和异常错误处理等元素，这些元素为包的公有元素。
包主体（PACKAGE BODY）：包主体则是包定义部分的具体实现，它定义了包定义部分所声明的游标和子程序，在包主体中还可以声明包的私有元素。

  create or replace package PKG_DDXX_DATA IS
  procedure P_DDXX_INS(v_sid         in varchar2,
                       v_xmid        in varchar2,
                       v_ddmc        in varchar2,
                       v_i           out number);
  -------------------------------------
  procedure P_MKGXXX_INS(v_xmid       VARCHAR2,
                         v_ddid       VARCHAR2,
                         v_creater    VARCHAR2,
                         v_valid_flag VARCHAR2,
                         v_i          out number);
  ------------------------------------------                 
  procedure P_JDGXXX_INS(v_gllx        varchar2,
                         v_glid        varchar2,
                         v_i          out number);

  procedure P_MAIN;
END;  --定义包头

create or replace package body PKG_DDXX_DATA is
begin
 procedure P_DDXX_INS(v_sid         in varchar2,
                       v_xmid        in varchar2,
                       v_ddmc        in varchar2,
                       v_i           out number) is
         begin
         end;
          procedure P_MKGXXX_INS() is
          begin
          end;
          procedure P_MAIN() is
          begin
          end;
end;--定义包体,包体中有多个子过程。

包体中的主过程中可以调用包体中的子过程。
调用-call PKG_DDXX_DATA.P_MAIN();

二、过程

存储过程只在创造时进行编译，以后每次执行存储过程都不需再重新编译，而一般SQL语句每执行一次就编译一次,所以使用存储过程可提高数据库执行速度。

 create or replace procedure P_MKGXXX_INS(
                           v_xmid   VARCHAR2,
                         v_ddid       VARCHAR2,
                         v_creater    VARCHAR2,
                         v_valid_flag VARCHAR2,
                         v_i          out number) is
      --定义一个游标数据类型
  TYPE ddxx_cursor_type IS REF CURSOR;
    c4             DDXX_CURSOR_TYPE;
    --定义变量
    V_INS_MGMX_SQL VARCHAR2(3000);
    v_mkid         varchar2(200);
    v_ins_mk_num   NUMBER;
  BEGIN
  --给变量赋值
    v_i := 0;
    --插入语句
    V_INS_MGMX_SQL := 'insert into b_scpt_gzl_ddmkgx (   ddid,   mkid,   creater, valid_flag)
                                              values (:v_ddid,:v_mkid,:v_creater,:v_valid_flag)';
--begin end;为一组语句块
    begin
      open c4 for
        select gg.node_sid
          from b_scpt_gzl_xmxx xm
          left join (select *
                       from b_scpt_gzl_xm_gx
                      where node_type = 'SYSTEM'
                        and VALID_FLAG = '1') gx
            on gx.node_parent_sid = xm.sid
          left join (select *
                       from b_scpt_gzl_xm_gx
                      where node_type = 'MODULE'
                        and VALID_FLAG = '1') gg
            on gg.node_parent_sid = gx.node_sid
         where xm.valid_flag = '1'
           and xm.sid = v_xmid;
      loop
        fetch c4
          into v_mkid;
        EXIT WHEN c4%NOTFOUND;
        if (v_mkid is not null) then
          begin
            execute immediate V_INS_MGMX_SQL
              using v_ddid, v_mkid, v_creater, v_valid_flag;
            v_i := v_i + sql%rowcount; ---插入记录
            commit;
          end;
        end if;
      end loop;
      close c4;
    end;

  END;

2.1、 P_MKGXXX_INS为定义的过程名，v_xmid VARCHAR2,定义的过程参数和类型，
2.2、 TYPE ddxx_cursor_type IS REF CURSOR;定义了一个游标类型，在过程中多次使用游标则 c4 ddxx_cursor_type;
c1 ddxx_cursor_type;
2.3 循环游标
begin–语句块开始
open c4 for (所要循环的查询语句)；–打开游标
loop –开始循环
fetch c4
into v_mkid;–将循环的值给变更赋值
EXIT WHEN c4%NOTFOUND;
begin
如上的代码块，处理业务
end;
end loop；–结束循环
close c4;–关闭游标
end;–语句块结束