- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123793)
-- 发布时间：2018/8/23 10:35:00
-- [求助]
老师，每次登录用户名时都要选择下拉按钮选用户名。能不能我这次登录后能保存我这次登录人的名字，下次登录时就不用选择呢？
这是登录确定键代码，应该怎样更改？或者还有其它别的方法？谢谢。
这代码发不上去。。。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:这是登录确定键代码.rar |
-- 发布时间：2018/8/23 10:53:00
--
确定按钮把名称存入设置中：http://www.foxtable.com/webhelp/scr/1544.htm
窗口afterload事件从设置中取，如果有值就填入文本框
-- 发布时间：2018/8/23 11:33:00
--
老师，英文我是不懂呀，编不了。。。有参考的列子吗？
-- 发布时间：2018/8/23 11:41:00
--
和英文没有关系，请仔细看2楼帮助的说明
保存设置：SaveConfigValue("用户","张三")
获取设置：Dim 姓名 As string = GetConfigValue("用户","")
-- 发布时间：2018/8/23 13:44:00
--
保存设置：SaveConfigValue("用户","张三")----这行代码要写在哪儿？是在这里面吗？
-- 发布时间：2018/8/23 14:23:00
--
看2楼
-- 发布时间：2018/8/23 15:11:00
--
确认键 事件Click 项目设置“用户”，然后把这行代码SaveConfigValue("用户","张三")放在这个代码的最后吗？这个"张三"是否会自动替换掉的呢？
Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
dr = dt.DataRows(0)
If e.Form.Controls("PassWord").Value = dr("Password") Then
_UserName = UserName
_UserGroup = dr("Group")
e.Form.Close
Else
Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
SaveConfigValue("用户","张三")
-- 发布时间：2018/8/23 15:28:00
--
SaveConfigValue("用户",_UserName)
-- 发布时间：2018/8/23 16:46:00
--
老师，不理想，在窗口afterload事件从设置中取，如果有值就填入文本框，下拉匡中就没有别的名字了。只有这一个名字，更换不了别人。。如果加上原代码又成原样，不是保存的名字，这应该怎么改呀？
Dim n As String
n = GetConfigValue("用户","") \'假定保存试用次数的设置名称为用户
Dim tex As WinForm.ComboBox = e.Form.Controls("UserName")
If n > "" Then
tex.Value = n
End If
-- 发布时间：2018/8/23 16:47:00
--
原代码： Dim cmd As New SQLCommand