Oracle PL/SQL(13) - 程序包package

当项目越来越大的时候，数据库中可能会出现成百上千的函数、存储过程等，为了方便管理，Oracle提倡使用程序包的管理机制，实现业务模块隔离，方便管理。

程序包：包是一组相关过程、函数、变量、游标、常量等PL/SQL程序设计元素的组合。它具有面向对象程序设计语言的特点，是对这些PL/SQL程序设计元素的封装。包类似于C++或Java程序中的类，而变量相当于类中的成员变量，过程和函数相当于方法，把相关的模块归类成为包，可使开发人员利用面向对象的方法进行存储过程的开发，从而提高系统性能。包中的程序元素分为公用元素、私有元素两种，这两种元素的区别是他们允许访问的程序范围不同，即作用域不同。公用元素不仅可以被包中的函数、过程调用，也可以被包外的PL/SQl块调用。而私有元素只能被该包内部的函数或过程调用。

在PL/SQL设计中，使用程序包不仅可以使程序模块化，对外隐藏包内所使用的信息，同时写程序包还可以提高程序的运行效率。因为，当程序首次调用程序包内部的函数或过程时，Oracle将整个程序包调入内存，再次调用程序包中的元素时，Oracle直接从内存中读取，而不需要进行磁盘的IO操作，从而使程序的执行效率提高。

一个程序包分为两部分组成：
(1)、包定义：包定义部分声明包内数据类型、变量、常量、游标、子程序和函数等元素，这些元素为包的共有元素。
(2)、包主体：包主题则定义了包定义部分的具体实现，在包主体中还可以声明和实现私有元素。

1.Oracle 程序包的创建
程序包的创建类似于JAVA中接口的定义，只有声明，没有实现。
语法：

create or replace package 包名 as 函数定义...存储过程定义 end 包名;

例如：

create or replace package pkg_cccs as
      function  getCompareResults(para1  number, para2  number) return number;
      procedure mydemosc;
      procedure pro_model (parm_make_id in t_md_vehicle_make.vehicle_make_id%type);
end pkg_cccs;

如上程序包，包名为pkg_cccs ,包中含有一个函数getCompareResults，两个存储过程
，运行完，在Oracle sql Developer 刷新出现.

image.png

程序包需要配合包体实现。

2.Oracle 包体实现
语法：

create or replace package body 包名（名字要一致） as 包体实现 end 包名;

例如：

create or replace package body pkg_cccs as
function getCompareResults(para1  number, para2  number) return number as
begin
   if para1 > para2 then
     return para1;
   else
       return para2; 
   end if;
end;

PROCEDURE mydemosc 
 AS 
         name VARCHAR(10);
         age NUMBER(10);
 BEGIN
         name := 'xiaoming';--:=则是对属性进行赋值
         age := 18;
         dbms_output.put_line ( 'name=' || name || ', age=' || age );--这条是输出语句
 END;


procedure pro_model (parm_make_id in t_md_vehicle_make.vehicle_make_id%type)as
  type ref_cur is ref cursor;
  rc ref_cur;
  seriesrow t_Md_Vehicle_Series%rowtype;
  v_sql varchar2(500):='select * from t_Md_Vehicle_Series m where m.vehicle_make_id=:makeid';
  v_sql2 varchar2(500);
  type tb_model_type is table of t_md_vehicle_model%rowtype;
   model_array tb_model_type;
begin
 DBMS_OUTPUT.ENABLE(10000000);

  open rc for v_sql using parm_make_id;
  loop
     FETCH rc INTO seriesrow;
       EXIT WHEN rc%NOTFOUND;
       dbms_output.put_line('name:'||seriesrow.vehicle_series_name||'-------------->  id:'||seriesrow.vehicle_series_id);
       v_sql2:='select * from t_md_vehicle_model m where m.vehicle_series_id=:seriesid and m.valid_flag=1'; 
       execute immediate v_sql2 bulk collect into model_array using seriesrow.vehicle_series_id;
       for i in model_array.first .. model_array.last loop
       dbms_output.put_line('ID:' || model_array(i).vehicle_sub_model_id 
                           || '-------------->  Name:' || model_array(i).vehicle_sub_model_name  );
   end loop;
  end loop;
  CLOSE rc;
end; 

end pkg_cccs;

包体创建完后，刷新Oracle SQL developer

image.png

3.Oracle包函数，包存储过程调用
调用使用包名.函数名调用函数
使用包名.存储过程名调用存储过程。
begin
dbms_output.put_line('299,433 比较大小结果为：'||pkg_cccs.getCompareResults(299,433)||' 大。');
end;
输出结果：

image.png

begin
pkg_cccs.mydemosc();
end;
输出结果：

image.png

begin
pkg_cccs.pro_model('CN001');
end;
输出结果：

image.png

4.Oracle程序包的删除
语法：

drop package 包名;

例如：

drop package pkg_cccs;