學生宿舍管理系統(tǒng)源代碼

1、Main.prg:clear screenlocal lcsys16,lcprogramlcsys16=sys(16)lcprogram=substr(lcsys16,at(":",lcsys16)-1)cd left(lcprogram,rat("",lcprogram)deactivate window "project manager"do setting_screen.left=-10000do form formmainzoom windows screen max_screen.caption='學生宿舍管理系統(tǒng)&

2、#39;public purview ppath rpicturepublic pjyb,pglb,pgcb,pcwb,pbab,pjls,psysglstore .f.to pjyb,pglb,pgcb,pcwb,pbab,pjls,psysglpurview=5ppath=''rpicture=.f.do mymenu.mpr_screen.left=0on shutdown do myquitread eventsdo resetmyquit.prg:Clear EventIF _Screen.FormCount>0h=_Screen.formcountDime T

3、mpForm(h)FOR i=1 TO hTmpForm(i)=_Screen.Forms(i)ENDFORFOR i=1 TO hTmpForm(i).ReleaseENDFORENDIFQUITReset.ptg:set sysmenu to defaultset sysmenu onset talk onset notify on set exclusive onset safety onmodify window screenclear eventssetting.prgset sysmenu off&& 將系統(tǒng)菜單關閉set sysmenu toset status

4、bar off&& 不顯示圖形狀態(tài)框set talk offset notify offset clock status&& 將時鐘在指定的位置顯示，而不放在圖形狀態(tài)欄中set palette off&& 用于確定是否使用Visual FoxPro 的缺省調節(jié)器色板set bell onset safety offset escape on&& 指定按 ESC 鍵后，中斷程序和命令的運行set keycomp to windowsset carry on&& 指定在創(chuàng)建新記錄時，將當前記錄所有字段的數(shù)據復制到新記錄

5、中set confirm onset exact on&& 設置字符精確比較set near onset ansi offset lock onset exclusive offset multilocks onset deleted onset optimize on&& 指定可以使用Rushmore 優(yōu)化技術set refresh to 0,5set collate to 'stroke'set default to sys(5)+curdir()&& 設置默認文件目錄set path to sys(5)+curdir()&a

6、mp;& 設置查找文件目錄set sysformats offset seconds onset century offset currency to 'nt$'set hours to 12set date to USAset decimals to 2set fdow to 1set fweek to 1set mark to '.'set separator to ','set point to '.'5771001803090012095 5790368228596330825771001803090012386

7、5761373997357606965771001803090013594 5780775799025155125771001803090012387 5771649826018180515771001803090012138 5721311921589183265771001803090012359 5790368223610760535771001803090012356 5761352861437917425771001803090012355 57508786970469327917088100343355274 10122994432583337917088100343355275 10186673293883200817088100343356107 10158115250150052217088100343356108 10100018005987173217088100343354295 10107419414268701717088100343356184 10187866086962880217088100343356185 10177583117408667417088100343356109 10108601437357284617088100343356110 10115220721601491617088100343355237 1