main.prg

设备维修档案管理系统（ＶＦＰ）课程设计

clear screen
local lcsys16,lcprogram                 &&定义两个局部变量
lcsys16=sys(16)                         && sys(16)返回当前正在运行的程序名（包括路径）
lcprogram=substr(lcsys16,at(":",lcsys16)-1)
cd left(lcprogram,rat("\",lcprogram))   &&用CD命令进入系统所在目录
deactivate window "project manager"     &&关闭项目管理器
do setting                              &&设置系统环境配置
_screen.caption='设备维修管理系统'  &&设置主窗口标题
_screen.visible=.f.
_screen.left=-10000                     &&程序运行时去掉Visual FoxPro的主窗口
do form form\Frmlogin 
zoom windows screen max                 &&最大化窗口
public psbda,pcxgl,pxtgl,czy
store .f.to psbda,pcxgl,pxtgl
purview=5
ppath=''
rpicture=.f.
_screen.left=0 
on shutdown do myquit
read events                             &&准备接收事件响应
do reset