高手教教小弟，怎么让连编vfp

高手教教小弟，如何让连编vfp
我连编后，打开exe文件一闪就过了……
不知道是哪里出了问题，看了论坛一些说法是主程序错误，不知道该怎么做主程序呢？
哪位高手能解答下啊？
附：主程序
*public gcNowPath
*gcNowPath=Addbs(Justpath(Sys(16))) &&获取当前运行程序所在工作目录。
*Set Default To (gcNowPath)

clear all
_screen.visible=.f.
set escape off
set talk off
set near on
set exact on
set ansi on
set excl off
set safety off
set dele on
set century on
set date to YMD
OPEN DATABASE "公共卫生绩效考核.dbc"


sele 1
 use 职工信息
sele 2
 use 系统账户
sele 3
 use 机构信息
sele 4  
 use 考核方案
 sele 5  
 use 考核指标
 sele 6 
 use 机构考核成绩
 sele 7  
 use 职工考核成绩
 


 
*do main.prg
DO FORM fengmian

clear event
return
详细情况可以其他方式联系

------解决方案--------------------------------------------------------
DO FORM fengmian
read event
clear event

看这样行不行！
------解决方案--------------------------------------------------------
DO FORM fengmian
clear event
改为
DO FORM fengmian
Read event
quit

并且 fengmian 表单必须是顶层表单，需要退出时再执行 Clear Events
------解决方案--------------------------------------------------------
具体问题是什么