- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 发布版 自定义登录用户 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94597)
-- 发布时间：2016/12/27 17:24:00
-- [求助] 发布版 自定义登录用户
原 自定义用户与权限管理之一教程，已成功实现登录，但是现在想做一个小修改，就是“用户登录”的窗口： 用户由下拉框 改成 文本框
不晓得怎么修改代码，求版主帮助。
确认代码为：
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
此主题相关图片如下：用户登录.png[此贴子已经被作者于2016/12/28 8:29:56编辑过]
-- 发布时间：2016/12/27 18:16:00
--
现在，有什么问题。你写的代码没有错。
-- 发布时间：2016/12/28 8:29:00
--
如附件图
此主题相关图片如下：原因.png
-- 发布时间：2016/12/28 9:20:00
--
Dim dr As DataRow = DataTables("Users").Find("Username = \'" & yhm.Value & "\'")
你users表格的结构是怎样的？userName改成你对应的列名。
-- 发布时间：2016/12/28 10:53:00
--
没法回复1了
-- 发布时间：2016/12/28 10:59:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:自定义登录1二.zip |
这是案例，我想实现 登录下拉框 换成 文本框，而且可以记录登录过的人姓名
-- 发布时间：2016/12/28 11:02:00
--
你发个窗口上来没用的。别人用不了。
3楼的错误，去看你的users表，没有叫做username的那一列。
-- 发布时间：2016/12/28 11:17:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.zip |
-- 发布时间：2016/12/28 11:20:00
--
重新发了案例
-- 发布时间：2016/12/28 11:26:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |