oracle创建程序包语句,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;