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

登录窗口显示的是下图中的测试人员，能正常登录，但登录后发现用户变成了系统设置的默认用户（AAA），会是哪里问题

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

[此贴子已经被作者于2021/8/22 10:24:19编辑过]

貌似好象是从办公室到自己房间更改了外部数据源连接IP之后出现这样的

自己设计的登录窗口，不能使用内置的用户变量user，要使用自己定义的变量

四、在全局代码中定义两个变量：

Public _UserName As String
Public _UserGroup As String

已经是这样定义了的，是不是要把原来的用户管理中的默认用户删掉呢

不需要删掉，不要使用内置的用户变量user即可

在登录及登录之前的相关代码中没有使用内置的用户变量user，登录后有些地方代码没改应该不影响的吧

不管是登录前，还是登录后，基本上就整个项目都不要使用内置的用户变量user。

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编辑过]

Dim Val1 As String = e.Form.Controls("PassWord").Value

msgbox(Val1) '原密码是否正确？

Dim PassWord As String = E ncryptText(Val1,"a23","op#") '加密

msgbox(PassWord) '加密后和保存早数据库的数据是否一致？

登录的时候是怎么验证密码的？同样方法调试一下输入的密码和加密后的字符是否一致

更改用户，如果修改密码会分别显示下面这样

此主题相关图片如下：11.png

此主题相关图片如下：12.png

再次更改用户，如果不修改密码，即使直接按确定，密码会变成上次的加密字符，如此类推

此主题相关图片如下：21.png

此主题相关图片如下：22.png

[此贴子已经被作者于2021/8/23 21:05:12编辑过]

主题：[求助]自定义登录窗口