以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于自已设计的登录界面问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=146463)

--  作者:brume
--  发布时间:2020/2/24 15:12:00
--  关于自已设计的登录界面问题
老师你好,我自己设计了一个登录界面,窗口类型是:模式;显示控制框是:true;
在窗口事件BeforeClose里面写了以下代码
Dim Result As DialogResult
Result = MessageBox.Show("是否决定退出系统?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
   Syscmd.Project.Exit(True)
End If

现有一个问题,如果在了这个代码之后,在打开项目,用管理员登录后,此登录窗口同时打开,但他是模式窗口,如果关闭后又
直接退出项目,想问一下,要怎么样改退出代码?谢谢!

--  作者:有点蓝
--  发布时间:2020/2/24 15:32:00
--  
不应该在这里控制,取消上面的代码,到afteropenproject事件处理,参考:http://www.foxtable.com/webhelp/topics/2048.htm

Forms("用户登录").Open()
If _UserName = "" Then \'_UserName等于空,说明没正常登陆
    
Syscmd.Project.Exit()
    Return \'这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错

End If

--  作者:brume
--  发布时间:2020/2/24 15:41:00
--  
我的是自己做的一个登录界面,不是狐表的登录界面,也不是取狐表的用户,是另外一个系统的用户数据表
--  作者:brume
--  发布时间:2020/2/24 15:42:00
--  
主要如果用外部数据表,狐表规定表的字段名,因为我的用户是存在另外一个ERP软件,所以用不了狐表的登录
--  作者:有点蓝
--  发布时间:2020/2/24 16:11:00
--  
就是用到自己的登录窗口的,请认真看2楼,以及帮助