| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]登陆时e.message 返回的部门信息 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82489) |
| -- 作者：blsu33 -- 发布时间：2016/3/18 17:40:00 -- [求助]登陆时e.message 返回的部门信息 老师，问个问题，想要在登陆时自动获取部门信息 QQ-serev 端 UserLogging Dim pts() As String = e.UserName.Split(".") Dim dr1,dr3 As DataRow If pts(0)="999" Then dr3 = DataTables("用户").Find("ID= \'" & pts(1) &"\'") If dr3 IsNot Nothing Then \'判断此用户不存在 e.Success = True \'允许用户登录 e.Message =dr3("部门") \'返回给登录者的提示信息 MessageBox.Show(e.Message) ‘可以看到001对应的部门是“生产部” 客户端 txtUserName Leave事件 QQClient.ServerIP = e.Form.Controls("txtIP").Value \'指定服务器IP地址 QQClient.ServerPort = e.Form.Controls("txtPort").Value \'指定服务器端口 QQClient.UserName ="999" & "." & e.Form.Controls("txtUserName").text \'指定登录用户名 MessageBox.Show(QQClient.ServerMessage) If QQClient.Start() = True \'如果登录成功 If QQClient.ServerMessage > "" Then e.Form.Controls("部门").value=QQClient.ServerMessage Else MessageBox.Show("用户名不存在") End If End If 不成功，为啥呢？ |
| -- 作者：狐狸爸爸 -- 发布时间：2016/3/18 17:43:00 -- QQ客户端返回的ServerMessage是什么。
一般来说不会这样获取，可以在登录后，发一个约定格式的消息给服务器，由服务器直接返回部门，参考：
http://www.foxtable.com/help/topics/2991.htm
|