main.prg

采用VF开发的物业管理系统

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.left=-10000                     &&程序运行时去掉Visual FoxPro的主窗口
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