Oracle包和包体以及与非包体定义函数、过程的区别

1.Oracle中的包和包体

Oracle中的包和包体与java中的接口和类才关系特别类似，我们就根据对比学习一下包和包体吧！

2.oracle包和包体与自定义函数，过程区别

• 2.1 如果直接create 函数，函数不会出现在包里，而是在function目录下面，如果在包里创建，则会出现在包里，他们两者有什么区别？

答：

1）直接创建的函数，是数据公共函数。在调用函数的时候直接调用函数名带上参数就可以。

2）而建在包体里的函数是私有函数，在有在包体里才能直接用函数名带参数调用。
外部程序要调用需要--包名.函数名（参数）--这样去调用。

3.创建Oracle包以及实现包

sql语句如下：

-- 包(pakage)和包体(package body)
-- 首先创建一个包含字段comm的emp表，再创建下面的包和包体

create or replace package test_package
is
    -- 声明全局变量：默认奖金数额
    g_comm number:=100;
    -- 声明存储过程：用于重置奖金数额
    procedure proc_reset_comm(p_comm in number);
    -- 声明函数：用于求所有员工中最高工资
    function func_maxsal_emp return number;
end test_package;
/

create or replace package body test_package
is 
    -- 实现存储过程
    procedure proc_reset_comm(p_comm in number)
    is
    begin
        if nvl(p_comm,0)>g_comm then
            g_comm:=p_comm;
        end if;
        dbms_output.put_line(g_comm);
    end proc_reset_comm;
    -- 实现函数
    function func_maxsal_emp return number
    is
    v_maxsal emp.sal%type;
    begin
        select max(sal) into v_maxsal from a_emp;
        return v_maxsal;
    end func_maxsal_emp;
end;
/

-- 测试包和包体
exec test_package.proc_reset_comm(111);
select test_package.func_maxsal_emp() from dual;

---

测试是否可以在包体里创建自定义函数

-- 一个已经创建好的自定义函数
-- 编写将字符串倒叙排列的函数：比如输入abc  返回cba
create or replace function func_reverse_abc(str varchar2) return varchar2
is
v_length number(4); --字符串的长度
v_temp varchar2(1); --截取的单个字符
v_result varchar2(1000); --处理后的结果
begin
    -- 计算字符串长度
    select length(str) into v_length from dual;
    -- 使用循环倒叙字符串
    for i in reverse 1..v_length loop
        v_temp := substr(str,i,1);
        v_result:=v_result||v_temp;
    end loop;  
    return v_result;
end;
/
select func_reverse_abc('abc') from dual;


-------------------------------------------------------------------------

-- 现在将自定义函数合并到上面的创建的包和包体中

-- 包(pakage)和包体(package body)
create or replace package test_package
is
    -- 声明全局变量：默认奖金数额
    g_comm number:=100;
    -- 声明存储过程：用于重置奖金数额
    procedure proc_reset_comm(p_comm in number);
    -- 声明函数：用于求所有员工中最高工资
    function func_maxsal_emp return number;
end test_package;
/

create or replace package body test_package
is 
    -- 1.实现存储过程
    procedure proc_reset_comm(p_comm in number)
    is
    begin
        if nvl(p_comm,0)>g_comm then
            g_comm:=p_comm;
        end if;
        dbms_output.put_line(g_comm);
    end proc_reset_comm;

    -- 2.实现函数
    function func_maxsal_emp return number
    is
    v_maxsal emp.sal%type;
    begin
        select max(sal) into v_maxsal from a_emp;
        return v_maxsal;
    end func_maxsal_emp;
    -----------------------------------------------------
    -- 包中没有的，自定义函数   此处使用create function就直接报错，故删除create
    function func_reverse_abc(str varchar2) return varchar2
    is
    v_length number(4); --字符串的长度
    v_temp varchar2(1); --截取的单个字符
    v_result varchar2(1000); --处理后的结果
    begin
        -- 计算字符串长度
        select length(str) into v_length from dual;
        -- 使用循环倒叙字符串
        for i in reverse 1..v_length loop
            v_temp := substr(str,i,1);
            v_result:=v_result||v_temp;
        end loop;  
        return v_result;
    end func_reverse_abc;
end;
/

-------------------------------------------------------------------------
-- 结果说明：在编译运行包和包体时，没有报任何错误
--         但是在测试自定方法是报错，无法调用这个自定义方法
-- 结论：不能在包体中自定义包中不存在的函数和过程

-- 测试包和包体
exec test_package.proc_reset_comm(111);
select test_package.func_maxsal_emp() from dual;
-- 自定义函数测试（前缀加包名，也测试不成功）
select func_reverse_abc('abc') from dual;