Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]


  共有2382人关注过本帖树形打印复制链接

主题：[求助]
帅哥哟，离线，有人找我吗？
xybcxh
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：824 威望：0 精华：0 注册：2017/11/23 8:55:00 		[求助]  发帖心情 Post By：2018/8/23 10:35:00 [只看该作者]

老师，每次登录用户名时都要选择下拉按钮选用户名。能不能我这次登录后能保存我这次登录人的名字，下次登录时就不用选择呢？
这是登录确定键代码，应该怎样更改？或者还有其它别的方法？谢谢。

这代码发不上去。。。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:这是登录确定键代码.rar
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110798 积分：563928 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/23 10:53:00 [只看该作者]

确定按钮把名称存入设置中：http://www.foxtable.com/webhelp/scr/1544.htm

窗口afterload事件从设置中取，如果有值就填入文本框
 回到顶部
帅哥哟，离线，有人找我吗？
xybcxh
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：824 威望：0 精华：0 注册：2017/11/23 8:55:00 		  发帖心情 Post By：2018/8/23 11:33:00 [只看该作者]

老师，英文我是不懂呀，编不了。。。有参考的列子吗？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110798 积分：563928 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/23 11:41:00 [只看该作者]

和英文没有关系，请仔细看2楼帮助的说明

保存设置：SaveConfigValue("用户","张三")

获取设置：Dim 姓名 As string = GetConfigValue("用户","")
 回到顶部
帅哥哟，离线，有人找我吗？
xybcxh
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：824 威望：0 精华：0 注册：2017/11/23 8:55:00 		  发帖心情 Post By：2018/8/23 13:44:00 [只看该作者]

保存设置：SaveConfigValue("用户","张三")----这行代码要写在哪儿？是在这里面吗？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110798 积分：563928 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/23 14:23:00 [只看该作者]

看2楼

 回到顶部
帅哥哟，离线，有人找我吗？
xybcxh
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：824 威望：0 精华：0 注册：2017/11/23 8:55:00 		  发帖心情 Post By：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("用户","张三")
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110798 积分：563928 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/23 15:28:00 [只看该作者]

SaveConfigValue("用户",_UserName)

 回到顶部
帅哥哟，离线，有人找我吗？
xybcxh
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：824 威望：0 精华：0 注册：2017/11/23 8:55:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
xybcxh
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：92 积分：824 威望：0 精华：0 注册：2017/11/23 8:55:00 		  发帖心情 Post By：2018/8/23 16:47:00 [只看该作者]

原代码：    Dim cmd As New SQLCommand
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询