连编后运行,一闪而过!


"要有主程序，须有READ EVENTS"
这话什么意思啊?

在你的主程序中加入READ EVENTS命令

在你的主程序中运行菜单或表单命令代码后加READ EVENTS命令

SET TALK OFF
SET DELETE ON
SET SAFE OFF
_VFP.VISIBLE=.F.
deactivate window "项目管理器"   &&关闭项目管理器
wjgl=left(sys(16),rat("\",sys(16)))   &&确定程序所在的位置
set defa to (wjgl)  &&设置当前路径
set path to data &&指明路径
open database wjgl  &&打开数据库
do form sqlvfp   &&运行表单sqlvfp
READ EVENTS
clear events
RETURN


将表单设的showwindow设为“顶层表单”

我试了,可是还是不行啊,还是一闪就没

你是不是把表单设为主程序了？

这个问题有两种可能性，第一种是程序执行完成并退出，第二种是程序正在执行，但界面被隐藏。对于第二种情况，可直接按“Ctrl-Alt-Del”键观察到。造成这两种情况的原因如下：
我们先看下面的一段示例程序，假如下面的示例程序是项目的主程序，并且应用项目以VFP主窗口做为自己的主窗口。

*环境设置
Do Form myScreen &&启动封面表单
_Screen.Show &&显示VFP主窗口
Do myMenu.mpr &&安装菜单系统
RETURN

为达到在显示启动封面之前不显示VFP主窗口的目的，在Config.fpw中已写Screen=off，当程序执行到Do Form myScreen这一句时，如果表单myScreen的ShowWindows属性被设为“在屏幕中”，则不管是在开发环境还是在编译环境下，程序都将停下来，表单被显示在_Screen中，而_Screen被隐藏了，因此表单跟着也被隐藏了，所以在屏幕上什么也看不见。这就是第二种情况的产生原因。为了避免这种错误的出现，必须将myScreen表单的ShowWindow的属性设为“做为顶层表单”，这样就可使在_Screen被隐藏的情况下，myScreen仍然可以被显示出来。但请注意，在此情况下，Do Form myScreen这句话执行后，程序并不能停下来，而是顺序地执行下去，一直到执行到RETURN后程序退出，这也就是著名的“一闪而过”现象了。为此必须在程序中包含事件处理命令Read Events使程序停下来，如下：

*环境设置
Do Form myScreen &&启动封面表单
Read Events &&开始事件处理：使启动封面停下来
_Screen.Show &&显示VFP主窗口
Do myMenu.mpr &&安装菜单系统
Read Events &&开始事件处理
RETURN

程序执行Do Form myScreen后，将启动封面显示在屏幕上，然后向下执行到Read Events开始事件处理，此时启动封面表单必须由用户关闭或由表单事件关闭，否则程序将一直停在Read Events这一句上。不管myScreen表单由谁关闭，在关闭代码中必须包含一句Clear Events的停止事件处理命令，以便开始执行Read Events的下一句指令，顺序执行完成_Screen.Show及Do myMenu.mpr后，用户的主界面就建立完成，同理，此处还需要一个事件处理命令让程序再次停下来，开始菜单系统的命令处理，一般情况，菜单系统中将包含的“退出”项，其中有“Clear Events”清除事件处理代码，从而停止第二条“Read Events”事件处理命令，退出整个系统。

解释得很清楚，我来试试看。