以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]外部数据源用户登录显示默认上次登录的用户  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86092)

--  作者:syjylyq
--  发布时间:2016/6/10 12:59:00
--  [求助]外部数据源用户登录显示默认上次登录的用户
使用外部数据源用户登录怎么显示上次登录的用户,而不用每次都选择?
--  作者:大红袍
--  发布时间: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
--  发布时间:2016/6/11 9:24:00
--  
是在帮助文件教程中的登录窗口的AfterLoad事件中设置吗?
--  作者:syjylyq
--  发布时间: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


--  作者:大红袍
--  发布时间: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
--  发布时间:2016/6/11 16:06:00
--  

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

 


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

 


 


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

--  作者:syjylyq
--  发布时间: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后登陆窗口到是显示文字了,但是手动输入的值无法保存


--  作者:大红袍
--  发布时间:2016/6/12 1:28:00
--  

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

 

SaveConfigValue("name", un.Text)


--  作者:syjylyq
--  发布时间:2016/6/12 10:03:00
--  
十分感谢,解决了。