Dim db = HyS-ql.DataBaseFactory.CreateDatabase("用户测试库") 'ACCESS数据源-数据库名称
Dim pts() As String = e.UserName.Split(".")
Dim Sql2 = "SELE-CT * From 用户 Where 部门 = '" & pts(0) & "' and 姓名='" & pts(1) & "' ;" '"
Dim dt As system.data.DataTable = db.ExecuteDataSet(Sql-2).Tables(0)
dt.TableName = "用户" '"Users"是ACCESS数据源的用户表的表名称
Dim dr1 As system.data.DataRow
dr1 = dt.Rows(0) '
If dr1 Is Nothing Then '判断此用户不存在
e.Message = "用户名错误!" '返回给登录者的提示信息
Return
End If
If dr1("密码") <> e.Password Then '如果密码错误
e.Message = "登录密码错误!" '返回给登录者的提示信息
Return
End If
e.Success = True '允许用户登录
Dim dr2 As system.data.DataRow
dr2 = dt.Rows(0) '
For Each dr2 As DataRow In dt.Rows
Dim nm As String = dr2("部门") & "." & dr2("姓名")
If nm <> e.UserName Then '如果不是登录者本人
e.Buddies.Add(nm)
End If
Next
加好友 
发短信
Post By：2024/7/23 9:29:00 [显示全部帖子]
此主题相关图片如下：ip问题.png
