Foxtable(狐表)用户栏目专家坐堂 → 关于登录窗口保留最后一次登录的用户名要如何做?


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

主题:关于登录窗口保留最后一次登录的用户名要如何做?

帅哥哟,离线,有人找我吗?
晕了快扶我
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1195 积分:7040 威望:0 精华:0 注册:2013/3/4 18:02:00
关于登录窗口保留最后一次登录的用户名要如何做?  发帖心情 Post By:2013/3/29 15:04:00 [只看该作者]

如题,用Datatables的GetComboListString 是列出了全部的用户名,我只想保存本机最后一次登录的用户名该如何做呢?


 回到顶部
帅哥哟,离线,有人找我吗?
kevin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:359 积分:3403 威望:0 精华:0 注册:2011/8/2 20:53:00
  发帖心情 Post By:2013/3/29 15:15:00 [只看该作者]

建一个内部表.用来存储登录的用户名及时间
在加载窗口时,获取距离当前系统时间最近的那个用户名.

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/29 15:21:00 [只看该作者]

不用建立表,这样损耗太多。用这个:

http://www.foxtable.com/help/topics/1544.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
晕了快扶我
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1195 积分:7040 威望:0 精华:0 注册:2013/3/4 18:02:00
  发帖心情 Post By:2013/3/29 15:48:00 [只看该作者]

以下是引用狐狸爸爸在2013-3-29 15:21:00的发言:

不用建立表,这样损耗太多。用这个:

http://www.foxtable.com/help/topics/1544.htm

 

狐爸, 

SaveConfigValue

保存设置信息

语法:

SaveConfigValue(Name, Value)

Name:  设置名称
Value: 设置值

设置信息经过加密储存,安全性比一般的方式更有保证。

 

SaveConfigValue 这个如果放在窗口中是不是放在窗口关闭前的事件中? name自己取一个,value就取我用户名的textbox窗口的值?

 

GetConfigValue

读取设置信息。

语法:

GetConfigValue(Name, DefaultValue)

Name:        设置名称
DefaultValue:默认设置值,如果指定名称的设置不存在,则返回此值。

 

GetConfigValue 这个就放在窗口的afterload事件里?Name值用我save的那个?

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/29 16:20:00 [只看该作者]

呵呵,理解正确,加100分

 回到顶部
帅哥哟,离线,有人找我吗?
晕了快扶我
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1195 积分:7040 威望:0 精华:0 注册:2013/3/4 18:02:00
  发帖心情 Post By:2013/3/29 16:22:00 [只看该作者]

狐爸,不懂怎么设置,帮忙看下

我在窗口的beforeclose事件里的代码

Dim n As WinForm.TextBox = e.Form.Controls("账号1")
SaveConfigValue("Username",n.Text)

 

 

afterload事件里

GetConfigValue("Username","请输入帐号")

 

我关闭窗口再开,帐号的textbox里什么都没有图片点击可在新窗口打开查看

[此贴子已经被作者于2013-3-29 16:23:48编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/29 16:23:00 [只看该作者]

在登陆窗口的确定按钮中加上

 

if 密码正确 then

   原来的代码

   SaveConfigValue("Username", _UserName)

end if

 

 

在登陆窗口的AfterLoad事件:

 

e.Form.controls("用户名").Value = GetConfigValue("Username","请输入帐号")


 回到顶部
帅哥哟,离线,有人找我吗?
晕了快扶我
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1195 积分:7040 威望:0 精华:0 注册:2013/3/4 18:02:00
  发帖心情 Post By:2013/3/29 16:25:00 [只看该作者]

以下是引用狐狸爸爸在2013-3-29 16:23:00的发言:

在登陆窗口的确定按钮中加上

 

if 密码正确 then

   原来的代码

   SaveConfigValue("Username", _UserName)

end if

 

 

在登陆窗口的AfterLoad事件:

 

e.Form.controls("用户名").Value = GetConfigValue("Username","请输入帐号")

TKS狐爸!看来我又晕了。。异想天开认为Value可以自己跑去TEXTBOX上。。图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
绿火柴
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:480 积分:4470 威望:0 精华:0 注册:2014/3/4 21:20:00
  发帖心情 Post By:2021/2/19 9:14:00 [只看该作者]

已放入本人功能搜集贴中(10.第3个链接)

 回到顶部