《学生宿舍管理系统源代码.docx》由会员分享，可在线阅读，更多相关《学生宿舍管理系统源代码.docx（3页珍藏版）》请在三一办公上搜索。
1、学生宿舍管理系统源代码Main.prg: clear screen local lcsys16,lcprogram lcsys16=sys(16) lcprogram=substr(lcsys16,at(:,lcsys16)-1) cd left(lcprogram,rat(,lcprogram) deactivate window project manager do setting _screen.left=-10000 do form formmain zoom windows screen max _screen.caption=学生宿舍管理系统 public purview ppat
2、h rpicture public pjyb,pglb,pgcb,pcwb,pbab,pjls,psysgl store .f.to pjyb,pglb,pgcb,pcwb,pbab,pjls,psysgl purview=5 ppath= rpicture=.f. do mymenu.mpr _screen.left=0 on shutdown do myquit read events do reset myquit.prg: Clear Event IF _Screen.FormCount0 h=_Screen.formcount Dime TmpForm(h) FOR i=1 TO h
3、 TmpForm(i)=_Screen.Forms(i) ENDFOR FOR i=1 TO h TmpForm(i).Release ENDFOR ENDIF QUIT Reset.ptg: set sysmenu to default set sysmenu on set talk on set notify on set exclusive on set safety on modify window screen clear events setting.prg set sysmenu off &将系统菜单关闭 set sysmenu to set status bar off &不显
4、示图形状态框 set talk off set notify off set clock status &将时钟在指定的位置显示，而不放在图形状态栏中 set palette off &用于确定是否使用Visual FoxPro的缺省调节器色板 set bell on set safety off set escape on &指定按ESC键后，中断程序和命令的运行 set keycomp to windows set carry on &指定在创建新记录时，将当前记录所有字段的数据复制到新记录中 set confirm on set exact on &设置字符精确比较 set near o
5、n set ansi off set lock on set exclusive off set multilocks on set deleted on set optimize on &指定可以使用Rushmore优化技术 set refresh to 0,5 set collate to stroke set default to sys(5)+curdir &设置默认文件目录 set path to sys(5)+curdir &设置查找文件目录 set sysformats off set seconds on set century off set currency to nt$ set hours to 12 set date to USA set decimals to 2 set fdow to 1 set fweek to 1 set mark to . set separator to , set point to .
