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='明扬服装销售管理系统'
&&设置主窗口标题
define window ncover from 0,0 to 800,470 nozoom noclose fill file images\welcome.jpg
&&定义一个窗口NCOVER,将它作为应用系统的背景图片。
activate window ncover bottom
&&激活窗口NCOVER
do menu\menumain.mpr
&&调用程序主菜单
_screen.left=0
On Shutdown do myquit
read events
&&准备接收事件响应
do reset