Dim UserName As String = e.Form.Controls("UserName").Value
Dim UserGroup As String = e.Form.Controls("UserGroup").Value
Dim UserRoles As String = e.Form.Controls("UserRoles").Value
Dim Val1 As String = e.Form.Controls("PassWord").Value
Dim PassWord As String = E ncryptText(Val1,"a23","op#") '加密
Dim OldUserName As String
Dim cmd As New S QLCommand
Dim Parts() As String = e.Form.Text.Split("-"c)
OldUserName = Parts(Parts.Length -1)
cmd.C
If UserName = "" OrElse UserGroup = "" OrElse UserRoles = "" Then
Messagebox.show("请输入用户名和用户分组和角色!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
cmd.C ommandText = "Update {Users} Se t [Name] = '" & UserName & "',[Group] = '" & UserGroup & "',[Roles] = '" & UserRoles
cmd.C ommandText = cmd.C ommandText & "', [Password] = '" & Password & "' Where [Name]= '" & OldUserName & "'"
If cmd.ExecuteNonQuery = 1 Then '返回1表示更改成功
If Forms("用户管理").Opened Then
With Forms("用户管理").Controls("ListBox1")
.Items(.S electedIndex) = UserName
End With
End If
e.Form.Close
Else
Messagebox.show("更改用户失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Dim Val2 As String = E ncryptText(PassWord,"a23","op#") '加密
自定义用户管理中的“更改用户”按钮，发现每次更改用户改了分组或角色，密码也会自动改掉，登录的时候会提示密码错误
此主题相关图片如下：qq图片20210823194150.png
[此贴子已经被作者于2021/8/23 19:52:50编辑过]
加好友 
发短信
Post By：2021/8/22 10:15:00 [显示全部帖子]
