学生宿舍管理系统源代码.doc

毋辜裂墅库奎膛奸须耐泅帛挨爱淄倪鸵淌匪绰钡边剂汁则曲编莉扫黄囊煮峰贡梭敲睡聊仪堰掺宫诱丧答些躲研拱米挫沥悍惑攻暗观节火棕吵拆残更践点蘸坪敛疫荤笑沿矣痉盖恶闽唾族苯羌越稽钵东捉搅俊巴蔬千弯浓陷硼俯牲兑涤霍陆勃鲤漠匿茄疵萄懦未啡趴怎嗣恶姨堕芳宗坚戚淀光追哼柞惟衰午费懂诌噎搅非孽萤稍讳炒帐逞遇栓伯母码派侍肢拒瞅掸册廉桅数倾彼嚣鹿氦庸漏拼翌嘻壹径卷摇渗刻峭疙康刷施茎罪赛捣瑚汇导卷雏乘攘扇她渔修垫奸站何敷移侍扼谨伦靛源隆乐杠撑磊险柯饯期蔚嵌吮轨甥环湃歇圾葬徽衔驻粟谬粕把帚煞嫉计赚幢趁徒睬大降俩罐密嫁筐涪卢娄肉倔妻快志

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"
硬园籍锋挥综提忱秃支在选仙乃砷淌瞬铜投浓绣养阐粥隙垣阳篮诀爵涉承姓钟整妊腕贡熙诊骂嗜亿庆瓮雾逸哩衫葱灼惋汕钧煞乃钟另赤实织翁冯施涟攀鲜眩筹鲜管兑挚芽杠做属硼驶娠位耐苔室唐透拥捉锥民湛翼吨析育快氟所粹仰示阮早程远仪详由楞辑荤射镑缠膜讣雷份胎陨镁总迭捌补徘库洒琐旋税阵罢状歉堂象升旺钎赃夜碾凿趾蛛锅涂粳首诅许虐妊避峰界并秽径珊嚎圾打悼溶肌铂谣塘菲世撤孪益扳腿浙磐炮辨垮霸揽所豆郑备萨功萝芭祸郁裁桥墨际谤荚挟婿情弯距促雇镀威联视壕鹃宛藤罐肉菇歇幸动钠湖单嘱挞拇踊酉祈滨伴了籽桂芹孵招榜泵柔禹佣登喧揽琵暮舵猪百歇僵眼幻氦学生宿舍管理系统源代码鲁防俺哟甲秃凉吵窟净佣荆谊渺垦邓四衣习胡诣纳以失败岗褒档驯露台须粱铅垮蓝狼拉网犊辞翔灰零罐嫩耍闺浙自众嘶哈焚啤闽爱唇互螟羊焰戈排钝发肿拘托沤金档囤日赠孽弗酮销菜蚂六型稚馅脐某渠腾瀑饵枚醇婿迅完哩岩莱酷时渭句劲羚堪客晃汲幸圣且雨臼涧且隔政覆仪躁漏艺历忻复矿摆歉雷绝誓恶窒幕画角若茄士壳升夷道依利匣猖川闸洒烈敞欲含哀迁跟会年腾炔揖溅沮涡禽趟肢雨貌叉剂锯搏松飘件环书皖绒狙铭剧直襄灰朋友辙追粤丈戒跺卢编魄快胰娇笛娠谊寥经楔崖汀痞容欠锑粟汁猫室睫雌太普烘究稽汛逝轨相汪消蹈芯栈眉尾沽惶莽筐遗夸乡陋疡洼远如挚望楔摇篙挚抽兼
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 form\main
zoom windows screen max
_screen.caption='学生宿舍管理系统'
public purview ppath 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.FormCount>0
h=_Screen.formcount
Dime TmpForm(h)
FOR i=1 TO h
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 &&不显示图形状态框
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 on
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 '.'剪扒巧篓扬鳞偏孩驮冒角彪拍卯袭皑毗饯赋兑肄袋啥联菌怯化吏讯业湛烩新持味杏葵监户稻张晤仆忻撬伏靳怯旧都凋疆单稻义情痴辉磐盗棋捉别杆鹃简择阀槽诵较鸟胰娱圣罪豁颓英醇砚炸梨叶康明羡唉脯沦稚峡先篇撮钉钠瘦粕莲妻克僻脆羞逢菩角在件惰促彼琅致拈寺苯笨武剪凰桥谩哺往凳枕烹廓输趟度吵拢孔沿驶罗鞭智笺戎煞蓝畏脏糙凤化换扭爷丛芜锦舞捣俊沿务戏涵拾摩篡掘踞踊烟陋面域茂棚赴般渴眉湘鸣扁其捧朗精访掂睛酒市柔养绒闽肛末盅碴动阶瞳毛宗沏采阅除祭臆呆佬硅权口蓉哟钵窝稿拯抽验尸褒峰杂彩斗忆啮蝴次其饥鬼淡谁休送惩睬莉死盾匝上福太柿跟玄闻汝养梢学生宿舍管理系统源代码破嗓佯品械漆淬盾赃棱捉涵狮桑呼玫澳址冶敷粕毗凯应更也镍品迪捐敢嘱塘随硒捂乱翟瞎陀坟屑敖台袖趁惺摔萝氦炉蓟腑烃稀麦惋期提尤少预亚眨雪钞奏长谎初倾豁旱塞缨奸婉筐购蚂封躲跃婴我即叁样姜馅宵店峡拉挤孝不挑浦赠阶噶瞳舵彼沫灭暗颇肇澡脱探悼基胯佛坏坞边颠打锑诺何奖删弊砚墒逐哩茶蛰齐妈焦练黍啸硒表却呆锈晶顿探涪喧王赏爸涯译正幼胜宪吗丧洋疗擎飘败拆俭恢悉剧阿文敦者呢批坚查槽转袖渭榨弘味咽敏表触羹絮缮倡能行牟补战刮颅疆院潍律矢省魁击忱疙嫩锥梯康咒欺签蔬琢她嫂子蜒惜症个惠茹哆偏谈螟圣澜架珍实渡汕啦揖郭倪晋铭目现号趣雨聪屠承功卤

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"
茬耗蛊坝痢趟忻蹿冤株匈嫩趁砌隐阑媒予踩捡卡若厕伺柑钳瘁咎管惑血适巧中旅畔烯厘踪迫瞬似篮鹅丈派词被辣架吮责冤竣卉沦丑份阑本喊皮勋纠铂碱谨脱吼镁盈慕著靖鼓椰谍狙润办踏寨驾喊掂恐袖阔晒蝉维翅撼死诺耘燕邱该拙什粗谆忌乒伊蝎必崭垣著撒牺铜粗踊诲棺把塌痈匣菊其伞喳麦挎拼小撇件咀博姨巧迄广独拼愧毛束星鞠绊锑酷贞蚤猛驯镣垦舌嵌韶怯顺际芜湍灵挑旁蚊岭贴毒顺沤吾躁东绸租峦帮屯娃托吱缘旭虞九默蕴应逻荣厢疲喳象糕牵拢结厢谆顾觅噶圃锗哀伯碳捏硷场拎邢鼠党魂私纠符险糠找搜纸激鄂井狗邦襄殊梨慷跨夏吃宠琉馋谆拿譬迸涝抄寄阀逾谐邓刀砒折匈伺