以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  登录名总显示为默认用户?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160714)

--  作者:aoyanghongwei
--  发布时间:2021/2/18 16:12:00
--  登录名总显示为默认用户?

图片点击可在新窗口打开查看此主题相关图片如下:002.jpg
图片点击可在新窗口打开查看
     在使用了外部用户数据表后,根据系统要求,要指定一个默认登录用户名,而使用了这个之后,即使发布后,各用户登录界面总是显示为“默认用户名”,这种现象能解决吗?能显示为前一次登录用户名吗?请大侠指教!

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


--  作者:有点蓝
--  发布时间:2021/2/18 16:21:00
--  
使用的哪一种外部用户数据表?

如果是这个用法:http://www.foxtable.com/webhelp/topics/2723.htm,不需要指定默认用户

如果是这种用法:http://www.foxtable.com/webhelp/topics/2048.htm,不可能会显示默认用户的。

注意上面2种用法是不能混用的

--  作者:aoyanghongwei
--  发布时间:2021/2/18 16:51:00
--  

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

图片点击可在新窗口打开查看此主题相关图片如下:03.jpg
图片点击可在新窗口打开查看
就是使用的第二种方式,如果不设置,就会直接出现内置登录窗口,难道是登录窗口中的afterload 代码有问题?

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


--  作者:有点蓝
--  发布时间:2021/2/18 17:04:00
--  
如果使用的第二种方式,就需要在内置用户管理中设置一个默认用户。这时就不会出现内置登录窗口。

这种情况下就需要设计自己的登录窗口,那么自己的登录窗口是不可能出现默认用户的吧。注意3楼代码使用的是cmb.selectedindex = 0,也就是默认选中用户表第一个用户。如果要显示上一次登录用户,需要在确定按钮把用户保存入设置中:http://www.foxtable.com/webhelp/topics/1544.htm、然后在3楼代码最后从设置中取用户名赋值到控件里

--  作者:aoyanghongwei
--  发布时间:2021/2/19 13:55:00
--  
         我试了下先设定了个全局代码变量,
图片点击可在新窗口打开查看此主题相关图片如下:03.jpg
图片点击可在新窗口打开查看

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

图片点击可在新窗口打开查看此主题相关图片如下:01.jpg
图片点击可在新窗口打开查看
用确定按钮中获取 UserName,然后在 窗体 afterload 中赋值给文本框,像下图所示,但结果未能成功,能帮忙看下问题在哪里吗?谢谢!


--  作者:有点蓝
--  发布时间:2021/2/19 14:08:00
--  
GetConfigValue之后,把取得的用户名赋值给控件呀
--  作者:aoyanghongwei
--  发布时间:2021/2/19 14:50:00
--  

    cmb.Items.Add(dr("Name"))
Next
--------------------------------------------------------------------------------
GetConfigValue(UserName,NewName)
e.Form.Controls("UserName").value= UserName    
e.Form.Controls("UserName").value= NewName

在窗体加载后代码里加了红色代码行这个后还是不行。图片点击可在新窗口打开查看  改成绿色行代码后也不行.....这是???

--  作者:有点蓝
--  发布时间:2021/2/19 14:54:00
--  
dim UserName as string
GetConfigValue("NewName",UserName)
e.Form.Controls("UserName").value= UserName    

--  作者:aoyanghongwei
--  发布时间:2021/2/19 15:07:00
--  
窗体加载项代码如下:
...
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.Datarows
    cmb.Items.Add(dr("Name"))
Next
Dim UserName As String
GetConfigValue("NewName",UserName)
e.Form.Controls("UserName").value= UserName

确定 按钮 中代码如下:
Dim UserName As String = e.Form.Controls("UserName").Value
SaveConfigValue("NewName",UserName)

再者一起搭配,貌似还是不行....,奇怪...


--  作者:有点蓝
--  发布时间:2021/2/19 15:19:00
--  
请上传实例测试