关于填入用户名 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于填入用户名

共有3055人关注过本帖树形打印复制链接主题：关于填入用户名

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/7/26 9:00:00 [显示全部帖子]

.AddSelect("用户名","用户名",e.Cookies("username"))

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/7/26 14:06:00 [显示全部帖子]

说明这个cookie本身就没有值
其次这个只是设置下拉列表，不是赋值，认真看看帮助：http://www.foxtable.com/mobilehelp/topics/0048.htm
.AddSelect("用户名","用户名","[" & e.Cookies("username") & "]")

如果cookie只有一个人的名称，请使用文本输入框，没有必要使用列表输入框

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/7/26 15:44:00 [显示全部帖子]

在登录的时候有没有保存cookie呀

If Verified AndAlso e.Path = "logon.htm"  Then '如果用户访问的是登录页,且身份验证成功
    wb.AppendCookie("username",UserName) '将用户名和密码写入cookie
    wb.AppendCookie("password",Password)
    wb.InsertHTML("<meta http-equiv='Refresh' c>") '直接跳转到首页
    e.WriteString(wb.Build) '生成网页
    Return '必须的
ElseIf Verified = False AndAlso e.Path <> "logon.htm" Then '如果用户身份验证失败,且访问的不是登录页面
    wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面
    e.WriteString(wb.Build) '生成网页
    Return '必须的
End If

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/7/26 15:48:00 [显示全部帖子]

如果要在表里记录用户名，在保存的时候赋值即可，没有必要发到前端呀

dr("用户名") = e.Cookies("username")

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/7/26 16:26:00 [显示全部帖子]

httprequest事件，比如

nms = New String() {"姓名","年龄","日期","级别","停权","学历"} '重新定义了nms数组,增加了两列.
Dim dr As DataRow = DataTables("员工").AddNew()

dr("用户名") = e.Cookies("username")
            For Each nm As String In nms
                If e.PostValues.ContainsKey(nm) Then
                    dr(nm) = e.PostValues(nm)
                End If
            Next

做网页开发基本和表事件没有什么关系的，不要用开发客户端的思维来开发网页

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/7/26 17:31:00 [显示全部帖子]

提示什么错误，定义变量不能重名

Dim s1 As String = DecryptText(UserName,"123","123")

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109720 积分：558310 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/7/27 16:58:00 [显示全部帖子]

建议多学学基础：http://www.foxtable.com/webhelp/topics/1592.htm

dr("录入人") = DecryptText(UserName,"123","123")

下一主题 >> << 上一主题

主题：关于填入用户名