| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3072 人关注过本帖
标题:顶层表单做主窗口,如何设计主程序及菜单、工具栏
取消只看楼主 加入收藏
qshuju
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:217
专家分:112
注 册:2011-6-9
结帖率:82.14%
收藏
已结贴  问题点数:40 回复次数:4 
顶层表单做主窗口,如何设计主程序及菜单、工具栏
程序是用顶层表单做主窗口的
框架是这样的:程序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 编辑 ]
搜索更多相关主题的帖子: 表单 工具栏 主程序 如何 
2013-04-28 11:36
qshuju
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:217
专家分:112
注 册:2011-6-9
收藏
得分:0 
非常感谢各位大侠的帮助,设置主表单的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 编辑 ]
2013-04-28 16:09
qshuju
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:217
专家分:112
注 册:2011-6-9
收藏
得分:0 
没人理我了,都想要的表单
2013-04-29 13:23
qshuju
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:217
专家分:112
注 册:2011-6-9
收藏
得分:0 
问题找到了,我在登录表单的密码录入text的keypress事件中写了这样的代码
if nKeyCode=13
   this.
   this.
endif
删掉后就没问题了,但这样怎么会出现两个窗口呢,真叫人不明白。
2013-04-29 20:44
qshuju
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:217
专家分:112
注 册:2011-6-9
收藏
得分:0 
我这个问题改名叫“顶层表单做主窗口,如何设计主程序及菜单、工具栏”,以便他人借鉴,也算我的一点贡献吧。
2013-04-29 20:44
快速回复:顶层表单做主窗口,如何设计主程序及菜单、工具栏
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017651 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved