原 自定义用户与权限管理之一教程，已成功实现登录，但是现在想做一个小修改，就是“用户登录”的窗口： 用户由下拉框 改成 文本框
不晓得怎么修改代码，求版主帮助。
确认代码为：
Dim yhm As WinForm.textBox = e.Form.Controls("UserName")
Dim mm As WinForm.TextBox = e.Form.Controls("PassWord")
Dim cmd As New SQLCommand
cmd.ConnectionName = "database" ‘外部数据库名称
Dim dr As DataRow = DataTables("Users").Find("Username = '" & yhm.Value & "'")
If dr IsNot Nothing Then
If mm.value = dr("Password") Then
msgbox("成功登陆!")
SaveConfigValue("用户名" & ComputerId,yhm.value)
Else
msgbox("用户名或密码不正确!")
End If
End If
窗口的AfterLoad事件代码为：
Dim yhm As WinForm.TextBox = e.Form.Controls("UserName")
yhm.value = GetConfigvalue("UserName" & ComputerId,"")
此主题相关图片如下：用户登录.png
[此贴子已经被作者于2016/12/28 8:29:56编辑过]
加好友 
发短信
Post By：2016/12/27 17:24:00 [显示全部帖子]
