数据库程序包全局变量的应用

1 前言

在程序实现过程中，经常用遇到一些全局变量或常数。在程序开发过程中，往往会将该变量或常数存储于临时表或前台程序的全局变量中，由此带来运行效率降低<频繁读取临时表或安全隐患<存于前台程序变量，可跟踪内存变量获得。

本文主要论述将全局变量或常数存取程序包的优点和实现方法。

2 优点

2.1 执行效率比存储于临时表高，不需要频率存取临时表

2.2 将全局变量藏于最后防线<数据库，安全性较高

2.3 在视图中可以调用程序包的变量，实现动态视图

3 实现

3.1 实现方法概述

Oracle数据库程序包中的变量，在本程序包中可以直接引用，但是在程序包之外，则不可以直接引用。对程序包变量的存取，可以为每个变量配套相应的存储过程<用于存储数据和函数<用于读取数据来实现。

3.2 实例

--定义程序包

create or replace package PKG_System_Constant is

C_SystemTitle nVarChar2(100):='测试全局程序变量';

--定义常数

--获取常数<系统标题

Function FN_GetSystemTitle

Return nVarChar2;

G_CurrentDate Date:=SysDate; --定义全局变量

--获取全局变量<当前日期

Function FN_GetCurrentDate

Return Date;

--设置全局变量<当前日期

Procedure SP_SetCurrentDate

(P_CurrentDate In Date);

End PKG_System_Constant;

/

create or replace package body PKG_System_Constant is

--获取常数<系统标题

Function FN_GetSystemTitle

Return nVarChar2

Is

Begin

Return C_SystemTitle;

End FN_GetSystemTitle;

--获取全局变量<当前日期

Function FN_GetCurrentDate

Return Date

Is

Begin

Return G_CurrentDate;

End FN_GetCurrentDate;

--设置全局变量<当前日期

Procedure SP_SetCurrentDate

(P_CurrentDate In Date)

Is

Begin

G_CurrentDate:=P_CurrentDate;

End SP_SetCurrentDate;

End PKG_System_Constant;

/

3.3 测试

--测试读取常数

Select PKG_System_Constant.FN_GetSystemTitle From Dual;

--测试设置全局变量

Declare

Begin

PKG_System_Constant.SP_SetCurrentDate(To_Date('2001.01.01','yyyy.mm.dd'));

End;

/

--测试读取全局变量

Select PKG_System_Constant.FN_GetCurrentDate From Dual;