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

痛定思痛。 2022-06-13 14:18 300阅读 0赞

### 1.Oracle中的包和包体 ###

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

![这里写图片描述][SouthEast]

### 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;

[SouthEast]: /images/20220613/488c6403a30045338ccfcd2ba419a0de.png