以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于登录窗口语句编写  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142322)

--  作者:734048317
--  发布时间:2019/10/24 9:42:00
--  关于登录窗口语句编写

老师好,我们已经在本月购买了开发版。今天的问题是关于openqq客户端的登录按钮设置语句编写的问题。

我们想编写一段语句实现这样的功能:

<!--[if !supportLists]-->1.       <!--[endif]-->输入的用户名和密码显示是否正确,如果正确则窗口关闭,直接登录成功;如果不正确则弹出提示语“账号或者密码错误”;

<!--[if !supportLists]-->2.       <!--[endif]-->另外,如果输入的用户名和密码已经被其他用户使用,则不允许此用户登录,并且弹出提示“账号正在使用”;

 

附件 中有截图以及项目



谢谢老师

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:10.24狐表问题.rar


--  作者:有点蓝
--  发布时间:2019/10/24 9:58:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:10.24狐表问题.zip


--  作者:734048317
--  发布时间:2019/10/24 10:29:00
--  
老师,还有一个大BUG没有解决。
登录窗口点右上角的  X  的时候,窗口会关闭,但是程序没有关闭,还可以正常使用;点完“X”以后得能够关闭整个客户端软件,不能正常使用才对,这个还得老师帮忙解决

--  作者:有点蓝
--  发布时间:2019/10/24 10:48:00
--  
窗口afterclose事件

Syscmd.Project.Exit()

--  作者:734048317
--  发布时间:2019/10/24 11:08:00
--  
老师好,还是有问题,把这个语句放进afterclose,点选窗口右上角的 X 之后,出现此对话框(见附件
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建 microsoft office word 文档.rar

),点继续或者退出后,只是关闭了登录窗口,程序仍然可以正常使用
--  作者:有点蓝
--  发布时间:2019/10/24 11:13:00
--  
把窗口改为模式窗口
--  作者:734048317
--  发布时间:2019/10/24 11:48:00
--  
老师还是有问题,就是登录成功后,关闭登录窗口,程序也关闭了。正常情况应该是登录成功后系统直接就关闭登录窗口进入程序才对。这里是不是应该用一个判断语句?登录成功,关闭登录窗口进入程序;登录不成功,无法进入程序;点击右上角的X,退出程序。

这个该怎么弄?

--  作者:有点蓝
--  发布时间:2019/10/24 12:00:00
--  
去掉窗口afterclose事件

打开窗口的地方代码改为

Forms("登录").open
If QQClient.Ready = False Then
    Syscmd.Project.Exit()
    Return
End If

--  作者:734048317
--  发布时间:2019/10/24 12:42:00
--  
老师,在打开窗口的地方修改代码后,进入不了登录界面,直接死机了--

您看看我们这到底是哪里做错了?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:程序.rar


--  作者:有点蓝
--  发布时间:2019/10/24 13:39:00
--  
代码放到afteropenproject事件。打开窗口的地方!打开窗口的地方!打开窗口的地方!

然后登录窗口要改为模式窗口