????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??????????????????????????????????????????????