【vfp开源代码栏目提醒】:网学会员,鉴于大家对vfp开源代码十分关注,论文会员在此为大家搜集整理了“明日车辆管理系统.prg”一文,供大家参考学习!
public purview,GLY,TC
public myDrive
purview=5
GLY=.f.
TC=.t.
local lcsys16,lcprogram &&定义两个局部变量
myDrive=sys(5)+sys(2003) &&定义全局变量 获取系统所在路径 防止找不到路径
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的主窗口
_screen.visible=.f.
do form form\frmlogin
read events &&准备接收事件响应
do reset