Foxtable(狐表)用户栏目专家坐堂 → 关于自已设计的登录界面问题


  共有2535人关注过本帖树形打印复制链接

主题:关于自已设计的登录界面问题

帅哥哟,离线,有人找我吗?
brume
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:51 积分:454 威望:0 精华:0 注册:2019/4/1 10:37:00
关于自已设计的登录界面问题  发帖心情 Post By: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

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106816 积分:543281 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:51 积分:454 威望:0 精华:0 注册:2019/4/1 10:37:00
  发帖心情 Post By:2020/2/24 15:41:00 [只看该作者]

我的是自己做的一个登录界面,不是狐表的登录界面,也不是取狐表的用户,是另外一个系统的用户数据表

 回到顶部
帅哥哟,离线,有人找我吗?
brume
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:51 积分:454 威望:0 精华:0 注册:2019/4/1 10:37:00
  发帖心情 Post By:2020/2/24 15:42:00 [只看该作者]

主要如果用外部数据表,狐表规定表的字段名,因为我的用户是存在另外一个ERP软件,所以用不了狐表的登录

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106816 积分:543281 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/24 16:11:00 [只看该作者]

就是用到自己的登录窗口的,请认真看2楼,以及帮助

 回到顶部