Question

关于VFP主程序问题

我做了个管理公司数据档案的系统，很简单的那种，我要求是通过启动界面“qidong.scx”进入登陆界面“denglu.scx”再进入主界面“zhucaidan.scx”（在“zhuxcaidan.scx”上我要系统加载一个叫“zcd.mpr的菜单”）,但是我写的主程序联编成EXE文件以后运行却只是一闪而过，这是真么回事啊，望高手根据我的结构给我写一个完整的主程序，在此谢过了！

Answer 1

重新做一个主程序：内容如下：

**设置运行环境
Set Talk Off &&关闭命令显示
Set Escape Off &&禁止运行的程序在按 Esc 键后被中断
Set Exclusive Off &&数据库表以共享方式打开
Set Deleted On &&过滤掉已带删除标记的记录
Set Safety Off &&指定在改写已有的文件时不显示对话框
Set Date Ansi &&设定日期的年份为 4 位数
Set Century On &&指定日期表达式的显示格式为YY.MM.DD
SET MARK TO [-] &&指定日期的分隔符为"-"
SET SECONDS ON &&日期时间表达式的显示秒钟部分
SET HOURS TO 12 &&指定日期时间表达式的显示为12小时格式
Set Optimize ON &&启用或废止 Rushmore 优化。
Set ENGINEBEHAVIOR 70
Set DECIMALS TO 8 &&指定小数点位数,默认为2位
Clear &&清除主窗口
Clear All &&清除变量

**开始进行程序的事务处理操作
Public pcSys
pcSys=Sys(5)+Sys(2003)

Set Default To pcSys
Set Path To Class,Form,Poto,Menu,Prg,Report

DO form denglu.scx
READ events

保存,名称自己起，一般是main,然后设置为主文件

在主程序的
do xxx
后面加上一行：
read event

在主菜单的退出模块加上
clear event

这样编译出来的exe就能正常运行了

说明：
没有read event语句编译出来的exe只能运行一次，就什么也不显示了。
当发出 READ EVENTS 命令时，Visual FoxPro 启动事件处理。
发出 CLEAR EVENTS 命令停止事件处理。当发出 CLEAR EVENTS 命令时，程序继续执行紧跟在 READ EVENTS 后面的那条语句。

楼主不要忘了，在你要退出系统的地方加上
clear event或quit之类的语句，退出系统

Answer 2

将表单的Windiwtype属性改为“1 模式”，再编译即可。