表单编译后运行不了

[ldh9721]

主程序调用一个登录表单，编译后可以正常运行，但登录成功后执行主表单却不能正常运行。
主程序源码：
set directory to curdir()
set sysmenu off
set talk off
set safety off
set deleted on
set century on
set date to ymd
set mark to '.'
cd (justpath(subs(sys(16),at(":",sys(16))-1)))

clear all
close all

do form denglu
read events

登录表单确定按钮代码
cd (justpath(subs(sys(16),at(":",sys(16))-1)))
if empty(thisform.text1.value) or empt(thisform.text2.value)
messagebox("用户名或者密码没有输入!",16,"错误")
else
use yhb &&路径一定要无误
locat for 用户名=alltrim(thisform.text1.value)
if found()
locat for 密码=alltrim(thisform.text2.value)
if found()
CLEAR EVENTS
do form main
thisform.release
READ events
else
messagebox("密码有误,请重新输入!",16,"密码错误")
thisform.text2.setfocus
endif
else
messagebox("用户名有误,请重新输入!",16,"用户名错误")
thisform.text1.setfocus
endif
endif

用户名和密码输入后却不执行main表单

[shanxiren2004]

把表单设置为“顶层表单”试试

[ldh9721]

已经设了，还是没用

[ldh9721]

我想自己用表单来做个生产管理软件，之前有foxbase的基础，所以我想有VFP来做，但现在一做发现有很多的问题。如果全是用表单来做，编译后显示不了的问题怎么好解决。这个系统会用到好多表单！

[蓝海]

换一下做法吧：

1、把 main 表单设置为顶层表单；

2、把 denglu 表单设置为模式（见表单属性 WindowType=1）表单；

然后代码如下：

主程序...

....

public loginSuccess
loginSuccess = .f.
&& 注意，下面需要在 denglu 表单的“登录按钮”CLICK 中写上这样一行：loginSucess = .t.
do form denglu to loginSucess
if loginSucess==.f.
&& 退出 exit
return
endif
do form main

[ldh9721]

4楼的能不能告诉我QQ啊，我把我的文件发给你仔细看一下，帮我改改看看

[ldh9721]

还有就是我的系统还有很多表单，以后的这些该怎么办？
我现在只是想了一个架构，还没有具体往下，我怕实现不了就浪费时间了

[蓝海]

QQ:252003040