sys_ini.prg

vfp 源码,比较全面

* sys_ini.prg 系统初始化
set classlib to MyClassLib addi
* 定义数值型变量
public nTotalPAGEs,n,nStartDay,nMonthCount(12)

* 定义工具条变量
public lF11,lF12,lF13,lF14,lF15
public lF21,lF22,lF23
public lF31,lF32,lF33,lF34,lF35
public oF11,oF12,oF13,oF14,oF15
public oF21,oF22,oF23
public oF31,oF32,oF33,oF34,oF35

* 定义逻辑变量
public isShowStatus,isShowToolsBar,isShowEditBar,isLogin,isShowText,isHideButton
public oToolsBar,oEditToolsBar

* 定义所需文件变量
public nTotalFiles
public mFileList(1,2)

public cur_id,p_id,p_name,his_id,Print_User,cur_pass,cur_shift,cur_cashier,cur_right,cur_Room
public oViewForm,oHisView,oRoomStatus,oCheckOut,oTableInfo
public dMonth_Rpt
public cBackImage,cBackColor,nWhichBack
public cArrearsPath,cur_path
public thisday_list(11)
**  need to save **
   nStartDay=1
   dime nMonthCount(12)
   cArrearsPath=sys(5)+sys(2003)+"\"
   cur_path=sys(5)+sys(2003)
   cur_pass=subst(ttoc(datetime(),1),5,8)
   cBackImage=""
   cBackColor=Rgb(255,255,255)
   nWhichBack=3
   isShowText=.t.
   isHideButton=.f.
   
if file('cash.ini')
    rest from cash.ini addi
else 
    save to cash.ini    
endif


** need to init ***
SoftName="餐厅收银"
   min_account=0
   dMonth_rpt=""
   Print_User=""
   cur_id=0
   p_id=0
   p_name="客户名称"
   his_id=0
   cur_user=""
   cur_right=0
   n=0
   cur_room=" "
   dime folio(4)
   dime thisday_list(11)   
isShowStatus=.t.
isShowToolsBar=.t.
isShowEditBar=.t.
nTotalPages=1

oToolsBar=createobject('功能工具条')
oToolsBar.dock(0)
oEditToolsBar=createobject('编辑工具条')
oEditToolsBar.dock(0)

do case
   case nWhichBack=1
      _screen.backcolor=-1
      _screen.picture=cBackImage
   case nWhichBack=2
      _screen.picture=""
      _screen.Backcolor=cbackcolor
   case nWhichBack=3
      _screen.picture=""
      _screen.backcolor=-1
endcase   

RETU