此主题相关图片如下：qq图片20180119091036.png
此主题相关图片如下：qq图片20180119091018.png
Dim pts() As String = e.UserName.Split(".")
Dim dr1 As DataRow
dr1 = DataTables("用户").Find("部门 = '" & pts(0) & "' And 姓名 = '" & pts(1) & "'")
If dr1 Is Nothing Then '判断此用户不存在
e.Message = "用户名错误!" '返回给登录者的提示信息
Return
End If
If dr1("密码") <> e.Password Then '如果密码错误
e.Message = "登录密码错误!" '返回给登录者的提示信息
Return
End If
e.Success = True '允许用户登录
'添加所有同事为好友
For Each dr2 As DataRow In DataTables("用户").Select("")
Dim nm As String = dr2("部门") & "." & dr2("name")
If nm <> e.UserName Then '如果不是登录者本人
If e.Buddies.Contains(nm)= False Then
e.Buddies.Add(nm)
End If
End If
Next
怎么改完了 还有问题啊
加好友 
发短信
Post By：2018/1/19 8:49:00 [只看该作者]
