主题:求教
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 &&定义全局变量
public pqtgl,pkfgl,pcxtj,pgzgl,pjcinfo,psyscsh,psyswh
store .f.to pqtgl,pkfgl,pcxtj,pgzgl,pjcinfo,psyscsh,psyswh
purview=5
define window ncover from 0,0 to 800,470 nozoom noclose fill file images\Bgfl031.gif &&定义一个窗口NCOVER,将它作为应用系统的背景图片。
activate window ncover bottom &&激活窗口NCOVER
[color=800000]do menu\menumain.mpr [/color]&&调用程序主菜单
_screen.left=0
ON SHUTDOWN do myquit
read events &&准备接收事件响应
do reset
这是我看到的一个主程序的代码。运行出错提示为“找不到文件menumain.mpr” 用红色标明处
我想问下这个文件有什么用。如何改正这个错误。。谢谢
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 &&定义全局变量
public pqtgl,pkfgl,pcxtj,pgzgl,pjcinfo,psyscsh,psyswh
store .f.to pqtgl,pkfgl,pcxtj,pgzgl,pjcinfo,psyscsh,psyswh
purview=5
define window ncover from 0,0 to 800,470 nozoom noclose fill file images\Bgfl031.gif &&定义一个窗口NCOVER,将它作为应用系统的背景图片。
activate window ncover bottom &&激活窗口NCOVER
[color=800000]do menu\menumain.mpr [/color]&&调用程序主菜单
_screen.left=0
ON SHUTDOWN do myquit
read events &&准备接收事件响应
do reset
这是我看到的一个主程序的代码。运行出错提示为“找不到文件menumain.mpr” 用红色标明处
我想问下这个文件有什么用。如何改正这个错误。。谢谢