学生宿舍管理系统源代码

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='学生宿舍管理系统&

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&& 将系统菜单关闭set sysmenu toset status

4、bar off&& 不显示图形状态框set talk offset notify offset clock status&& 将时钟在指定的位置显示，而不放在图形状态栏中set palette off&& 用于确定是否使用Visual FoxPro 的缺省调节器色板set bell onset safety offset escape on&& 指定按 ESC 键后，中断程序和命令的运行set keycomp to windowsset carry on&& 指定在创建新记录时，将当前记录所有字段的数据复制到新记录

5、中set confirm onset exact on&& 设置字符精确比较set near onset ansi offset lock onset exclusive offset multilocks onset deleted onset optimize on&& 指定可以使用Rushmore 优化技术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