专家坐堂-关于QQclient登录Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于QQclient登录  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161673)

--  作者：hnguang
--  发布时间：2021/3/26 8:39:00
--  关于QQclient登录

此主题相关图片如下：qq截图20210326083556.png
我有在软件中加入QQclient,项目发布后客户端登录提示上面的错误

--  作者：有点蓝
--  发布时间：2021/3/26 9:13:00
--
调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错

--  作者：hnguang
--  发布时间：2021/3/26 9:19:00
--

1：没有发布前没有此问题
2：直接跳在这里，提示失败，没有地方可以排查

Else \'如果登录失败,显示服务器返回错误信息
            \' e.Form.Controls("btnChat").Enabled = False
            PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)

--  作者：有点蓝
--  发布时间：2021/3/26 9:22:00
--
什么事件错误？贴出完整代码

--  作者：hnguang
--  发布时间：2021/3/26 9:26:00
--

此主题相关图片如下：qq截图20210326092320.png

此主题相关图片如下：qq截图20210326092304.png

--  作者：有点蓝
--  发布时间：2021/3/26 9:28:00
--
贴出启动客户端的完整代码：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626

--  作者：hnguang
--  发布时间：2021/3/26 9:31:00
--
dr("登錄次數") = dr("登錄次數") + 1
        dr("最後登錄時間") = Date.Now
        dr.Save
        \' DataTables(e.Form.Name & "_table1").Save
        _UserName = dlzh
        _UserName1=dr("真實姓名")
        _erpuser=dr("ERP帳號")
        _UserGroup=dr("所屬部門")

        If QQClient.Ready Then
            MessageBox.show("QQClient已经启动,请先关闭","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            Return
        End If

        QQClient.ServerIP ="192.168.0.11" \'指定服务器IP地址
        QQClient.ServerPort ="52177" \'指定服务器端口
        QQClient.UserName = _UserGroup & "." & _UserName1 \'指定登录用户名
        QQClient.Password =MD5Encrypt(e.Form.Controls("登陆密码").Value)
        If QQClient.Start() = True \'如果登录成功
            Dim msg As String = "系統登錄成功!"
            If QQClient.ServerMessage > "" Then \'如果服务器返回了欢迎信息
                msg = msg & QQClient.ServerMessage
            End If
            popMessage(msg,"提示",PopiconEnum.Infomation,5)
        Else \'如果登录失败,显示服务器返回错误信息
            \' e.Form.Controls("btnChat").Enabled = False
            PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
        End If

        _tim=Date.Now \'登录时间
        MainTable = Tables("main")
        Forms("主界面1").show
        dlmm=e.Form.Controls("登陆密码").text
        If e.Form.Controls("记住密码").checked=True
            Registry.SetValue("HKEY_CURRENT_USER\\Software\\sdsys","_user",dlzh)
            Registry.SetValue("HKEY_CURRENT_USER\\Software\\sdsys","_psd",dlmm)
        Else
            Registry.SetValue("HKEY_CURRENT_USER\\Software\\sdsys","_user","")
            Registry.SetValue("HKEY_CURRENT_USER\\Software\\sdsys","_psd","")
        End If

        StatusBar.Message1 = "版本号:20201119001 网络版"
        StatusBar.Message3 = "授权用户:东莞伸東電子有限公司 | 系统设计: 資訊部联系QQ:18114872 联系电话:6129"
        \'\' baseMainform.Text = _gsm & "进销存管理系统单机标准版"
        \'\' Forms("主界面").show
        e.Form.close()

--  作者：有点蓝
--  发布时间：2021/3/26 9:36:00
--

msgbox(1) ‘看看哪个提示框出不来
QQClient.ServerIP ="192.168.0.11" \'指定服务器IP地址
        QQClient.ServerPort ="52177" \'指定服务器端口
        QQClient.UserName = _UserGroup & "." & _UserName1 \'指定登录用户名
        QQClient.Password =MD5Encrypt(e.Form.Controls("登陆密码").Value)
msgbox(2)
        If QQClient.Start() = True \'如果登录成功
msgbox(QQClient.Ready)
            Dim msg As String = "系統登錄成功!"
            If QQClient.ServerMessage > "" Then \'如果服务器返回了欢迎信息
                msg = msg & QQClient.ServerMessage
            End If
msgbox(msg)
            popMessage(msg,"提示",PopiconEnum.Infomation,5)
        Else \'如果登录失败,显示服务器返回错误信息
msgbox(QQClient.ServerMessage)
            \' e.Form.Controls("btnChat").Enabled = False
            PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
        End If
msgbox(3)

--  作者：hnguang
--  发布时间：2021/3/26 9:41:00
--

没有一个提示框出来

--  作者：hnguang
--  发布时间：2021/3/26 9:43:00
--

        \'If QQClient.Ready Then
            \'MessageBox.show("QQClient已经启动,请先关闭","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            \'Return
        \'End If
\'msgbox(1) \'看看哪个提示框出不来
        \'
        \'QQClient.ServerIP ="192.168.0.11" \'指定服务器IP地址
        \'QQClient.ServerPort ="52177" \'指定服务器端口
        \'QQClient.UserName = _UserGroup & "." & _UserName1 \'指定登录用户名
        \'QQClient.Password =MD5Encrypt(e.Form.Controls("登陆密码").Value)
\'msgbox(2)
        \'If QQClient.Start() = True \'如果登录成功
            \'Dim msg As String = "系統登錄成功!"
            \'If QQClient.ServerMessage > "" Then \'如果服务器返回了欢迎信息
                \'msg = msg & QQClient.ServerMessage
            \'End If
            \'popMessage(msg,"提示",PopiconEnum.Infomation,5)
\'msgbox(msg)
        \'Else \'如果登录失败,显示服务器返回错误信息
            \'\' e.Form.Controls("btnChat").Enabled = False
            \'PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
        \'End If
\'msgbox(3)