Foxtable(狐表)用户栏目专家坐堂 → [求助]外部数据源用户登录显示默认上次登录的用户


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

主题:[求助]外部数据源用户登录显示默认上次登录的用户

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


加好友 发短信
等级:童狐 帖子:260 积分:3307 威望:0 精华:0 注册:2016/5/21 14:28:00
[求助]外部数据源用户登录显示默认上次登录的用户  发帖心情 Post By:2016/6/10 12:59:00 [只看该作者]

使用外部数据源用户登录怎么显示上次登录的用户,而不用每次都选择?

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/10 23:56:00 [只看该作者]

 你用的是内置的登陆窗口,还是自己用设计窗口设计的登陆界面?

 

 如果是内置的,参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77745&skin=0

 

 如果是自己设计的,记录一下用户名即可

 

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

 


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


加好友 发短信
等级:童狐 帖子:260 积分:3307 威望:0 精华:0 注册:2016/5/21 14:28:00
  发帖心情 Post By:2016/6/11 9:24:00 [只看该作者]

是在帮助文件教程中的登录窗口的AfterLoad事件中设置吗?

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


加好友 发短信
等级:童狐 帖子:260 积分:3307 威望:0 精华:0 注册:2016/5/21 14:28:00
  发帖心情 Post By:2016/6/11 13:25:00 [只看该作者]

AfterOpenProject事件中输入这个对吗?

Dim n As String = GetConfigValue("name","合盛")
Dim un As WinForm.ComboBox = Forms("用户登录").Controls("UserName")
If un.Text <> n Then
    n = un.Text
    SaveConfigValue("name",n)
End If


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/11 13:39:00 [只看该作者]

写到AfterLoad事件

 

Dim n As String = GetConfigValue("name","合盛")
Dim un As WinForm.ComboBox = Forms("用户登录").Controls("UserName")

un.Text = n

 

'登陆成功以后,执行

SaveConfigValue("name", un.Text)


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


加好友 发短信
等级:童狐 帖子:260 积分:3307 威望:0 精华:0 注册:2016/5/21 14:28:00
  发帖心情 Post By:2016/6/11 16:06:00 [只看该作者]

写了之后登录时用户名那一栏一直是空白的。

 


图片点击可在新窗口打开查看此主题相关图片如下:12.png
图片点击可在新窗口打开查看

 


 


图片点击可在新窗口打开查看此主题相关图片如下:34.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2016/6/11 16:09:02编辑过]

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


加好友 发短信
等级:童狐 帖子:260 积分:3307 威望:0 精华:0 注册:2016/5/21 14:28:00
  发帖心情 Post By:2016/6/11 16:50:00 [只看该作者]

以下是引用大红袍在2016/6/11 13:39:00的发言:

写到AfterLoad事件

 

Dim n As String = GetConfigValue("name","合盛")
Dim un As WinForm.ComboBox = Forms("用户登录").Controls("UserName")

un.Text = n

 

'登陆成功以后,执行

SaveConfigValue("name", un.Text)

String改成Object后登陆窗口到是显示文字了,但是手动输入的值无法保存


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/12 1:28:00 [只看该作者]

确定按钮,才写这句代码,不要写到afterLoad事件去。

 

SaveConfigValue("name", un.Text)


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


加好友 发短信
等级:童狐 帖子:260 积分:3307 威望:0 精华:0 注册:2016/5/21 14:28:00
  发帖心情 Post By:2016/6/12 10:03:00 [只看该作者]

十分感谢,解决了。

 回到顶部