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;
  ====================
  听说:package的全局变量只针对一个会话中有用,是不是这样???待验证。