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 tting
_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 ret
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).Relea
ENDFOR
ENDIF
双一流a类QUIT
Ret.ptg:
t sysmenu to default
t sysmenu on
脾虚的症状t talk on
t notify on t exclusive on
t safety on
modify window screen
clear events
tting.prg
t sysmenu off &&将系统菜单关闭
t sysmenu to
t status bar off &&不显示图形状态框
t talk off
t notify off
t clock status &&将时钟在指定的位置显示，而不放在图形状态栏中t palette off &&用于确定是否使用Visual FoxPro的缺省调节器色板t bell on
t safety off
t escape on &&指定按ESC键后，中断程序和命令的运行
t keycomp to windows
t carry on &&指定在创建新记录时，将当前记录所有字段的数据复制到新记录中t confirm on
t exact on &&设置字符精确比较
t near on
t ansi off
t lock on
t exclusive off
秦国变法
t multilocks on
t deleted on
t optimize on &&指定可以使用Rushmore优化技术
t refresh to 0,5
t collate to 'stroke'
t default to sys(5)+curdir() &&设置默认文件目录
t path to sys(5)+curdir() &&设置查找文件目录
t sysformats off
t conds on
t century off
t currency to 'nt$'
t hours to 12
t date to USA t decimals to 2 t fdow to 1
检测手机t fweek to 1 t mark to '.' t parator to ','
