用户管理 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师帮忙看看，设置一个用户登录窗口，登录按键用以下代码弹窗

Dim user As String = e.Form.Controls("cbx_user").Text

Dim pwd As String = e.Form.Controls("txt_pwd").Text

Dim dr As DataRow = DataTables("用户").Find("登录名 = '" & user & "'") '分开查询,防注入登录

If dr IsNot Nothing Then

pwd = MD5Encrypt(pwd)

If pwd = dr("密码") Then

_UserName = dr("用户名")

_UserLoginName = user

_UserGroup = dr("角色")

e.Form.Close()

Else

MessageBox.Show("输入的密码错误,请重试!", "出错")

End If

主题：用户管理