通常在主程序设置 全局变量并赋初值;设置运行环境。
在开发、调试源程序时,运行一下主程序,就可以得到所需运行环境了,这样也方便测试源程序。
只要在调试源程序时 退出主程序 而不退出VFP就是了,并保留那运行环境。
主程序大概这样(只是例子,还不是全部元素)
*设置运行环境
SET TALK
OFF
SET DELETED
ON
SET safety OFF
SET DEFAULT TO (JUSTPATH(SYS(16,0)))
&&设置默认目录,这主程序文件最好放在开发项目的当前目录下,方便运行主程序设置开发测试时的环境
SET PATH to
data,forms
&&置搜索路径
*定义系统所用到的全局变量并赋初值
PUBLIC dm
dm=''
DO form 登录表单 &&此处出也可以是主表单或菜单
READ EVENTS
SET SYSMENU TO DEFAULT
IF UPPER(JUSTEXT(SYS(16,0)))=='EXE'
CLEAR ALL
CLOSE DATABASES
QUIT
ENDIF