首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

vfp 编译后运行时,为啥主界面仅一闪就过

2013-01-05 
vfp 编译后运行时,为什么主界面仅一闪就过?各位高手:我做的程序编译时未提示错误,存在c盘,点击该程序后,主

vfp 编译后运行时,为什么主界面仅一闪就过?
各位高手:我做的程序编译时未提示错误,存在c盘,点击该程序后,主界面仅一闪就过去了。(程序编译前运行时可以在主界面停留3秒)
主表单load:
CLOSE table all
PUBLIC khm,khbh,bddks,lcSys16,lc_defpath
***********mbwj       &&建立存储安装路径的全局变量
lcSys16=SYS(16,0)            &&返回正在执行的程序文件名。
IF OCCURS( '\', lcSys16)>1        &&返回一个字符表达式'\'在另一个字符表达式(路径)中出现的次数
lc_defpath=right(left(lcSys16,rat( "",lcSys16)),8)      &&取得不含文件名的路径
ELSE
lc_defpath=right(left(lcSys16,at( "",lcSys16,1)),8)
ENDIF
SET defa to (lc_defpath)            &&设置路径
SET escape on        &&ESC设定
WAIT wind "正在连接数据,请稍候... " nowait
ON error mywriteshowerr(error(),message(),message(1),program(),lineno(1)) &&捕获、写、显示错误
3秒,然后调出口令菜单。)主界面的load:
unload:
SET defa to (lc_defpath)            &&设置路径
DO form 口令2.scx 
_screen.Visible=.F.
主表单中timer的interval:=3*1000
release thisform  
请高手指教,谢谢!
[解决办法]
LOAD 事件代码放在主程序(MAIN.PRG)中:
*--- MAIN.PRG
DO FORM 主表单.SCX
READ EVENTS &&此处必不可少
[解决办法]
参考如下: 

主程序: 
DO   FORM   Main.SCX 
READ   EVENTS 
CLOSE   DATABASES   ALL 
QUIT 

表单Main.SCX的退出时 
clear   events 

表单Main.SCX的ShowWindow属性设为2

热点排行