程序是用顶层表单做主窗口的
框架是这样的：程序1（主程序）显示欢迎表单（这个没问题），然后启动登录表单，密码输入正确后点击“登录”（到此也没问题），执行主窗口顶层表单（这进就出问题了，主窗口表单一闪而过？代码如下：
非常感谢各位大侠的帮助，设置主表单的windowtype为模式以后，问题解决了，但又出现了新问题，如图，执行一个表单一下出现了两个窗口？这个可能是工具栏的事，一个窗口有菜单，一个窗口没有菜单！请
 


主程序代码：
程序代码：
MODIFY WINDOW SCREEN TITLE "***管理理系统" ICON FILE 'digg.ico'
SET DEFAULT TO CURDIR()
    Set Talk Off
    Set Escape Off
    Set Date To Long
    Set Deleted On
    Set Safety Off
    Set Sysmenu Off
    Set Century On
    Set Century To 19
    SET HOURS TO 24
    SET PATH TO bak;导出数据;历年数据
    CLEAR
    CLEAR ALL
_SCREEN.Visible=.F.
   
DO FORM welcome.scx
WAIT window[] TIMEOUT 1.5
welcome.release

Do FORM 登录.scx
read events

在登录表单里输入正确的用户名密码后，点击“登录”click:do 程序2.prg
thisform.release
程序2代码：
程序代码：
PUBLIC tfdzgw
Do FORM 管理系统表单.scx &&&NAME tfdzgw
_SCREEN.Visible=.F.
READ events

管理系统表单的 activate 事件中加入如下代码，在测试时候工具栏、表单及表单中的菜单运行正常，但当用主程序启动的时候就出现了如上图的问题，，
程序代码：
IF VARTYPE(toptoolbar)#"o"
This.TopToolBar=NewObject("常用工具栏","appclass")
This.TopToolBar.show()
This.TopToolBar.dock(0)
endif

请高手指点这是怎么回事？？

[ 本帖最后由 qshuju 于 2013-4-29 20:46 编辑 ]

设置主表单的windowtype为模式

非常感谢各位大侠的帮助，设置主表单的windowtype为模式以后，问题解决了，但又出现了新问题，如图，执行一个表单一下出现了两个窗口？这个可能是工具栏的事，一个窗口有菜单，一个窗口没有菜单！请
主程序代码：

MODIFY WINDOW SCREEN TITLE "***管理理系统" ICON FILE 'digg.ico'
SET DEFAULT TO CURDIR()
    Set Talk Off
    Set Escape Off
    Set Date To Long
    Set Deleted On
    Set Safety Off
    Set Sysmenu Off
    Set Century On
    Set Century To 19
    SET HOURS TO 24
    SET PATH TO bak;导出数据;历年数据
    CLEAR
    CLEAR ALL
_SCREEN.Visible=.F.
    
DO FORM welcome.scx
WAIT window[] TIMEOUT 1.5
welcome.release

Do FORM 登录.scx
read events

在登录表单里输入正确的用户名密码后，点击“登录”click:do 程序2.prg
thisform.release
程序2代码：

PUBLIC tfdzgw
Do FORM 管理系统表单.scx &&&NAME tfdzgw
_SCREEN.Visible=.F.
READ events

管理系统表单的 activate 事件中加入如下代码，在测试时候工具栏、表单及表单中的菜单运行正常，但当用主程序启动的时候就出现了如上图的问题，，

IF VARTYPE(toptoolbar)#"o"
This.TopToolBar=NewObject("常用工具栏","appclass")
This.TopToolBar.show()
This.TopToolBar.dock(0)
endif

请高手指点这是怎么回事？？

[ 本帖最后由 qshuju 于 2013-4-28 16:41 编辑 ]

把你前面发的贴好好看看，无语

没人理我了，都想要的表单

问题找到了，我在登录表单的密码录入text的keypress事件中写了这样的代码
if nKeyCode=13
   this.
   this.
endif
删掉后就没问题了，但这样怎么会出现两个窗口呢，真叫人不明白。

我这个问题改名叫“顶层表单做主窗口，如何设计主程序及菜单、工具栏”,以便他人借鉴，也算我的一点贡献吧。

如果不上传表单，别人能发现你的问题吗，贴出部分代码，是解决不了问题的。