手机端取值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 手机端取值

共有3923人关注过本帖树形打印复制链接主题：手机端取值

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10501 威望：0 精华：0 注册：2013/6/8 16:19:00

手机端取值

Post By：2021/7/20 10:22:00 [只看该作者]

.AddSelect("product","姓名","PD01|PD02|PD03|PD04|PD05")

什么改成当前用户的姓名和用户分组，从数据 Users里提取

有点蓝

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

加好友

发短信

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

Post By：2021/7/20 10:27:00 [只看该作者]

网页开发，建议自己做用户管理，不要使用内置的用户功能，麻烦

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10501 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2021/7/20 10:30:00 [只看该作者]

是自己做的用户管理不是狐表自带的

有点蓝

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

加好友

发短信

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

Post By：2021/7/20 10:31:00 [只看该作者]

用户表是怎么样的？怎么做的登录功能？

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10501 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2021/7/20 10:34:00 [只看该作者]

Dim wb As New weui

'身份验证

Dim Verified As Boolean '用于标记用户是否通过了身份验证

Dim UserName As String = e.Cookies("username") '从cookie中获取用户名

Dim Password As String = e.Cookies("password") '从cookie中获取用户密码

If e.Path = "logon.htm" '如果是通过登录页面访问,从PostValues即可中提取用户名和密码

If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then

UserName = e.PostValues("username")

Password = e.PostValues("password")

End If

Dim ddr As DataRow= DataTables("Users").SQLFind("Name='"& UserName &"' And Password='"& Password &"' ")

If ddr IsNot Nothing

Verified = True

End If

照着你们外部用户表做的

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10501 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2021/7/20 10:36:00 [只看该作者]

照着自定义用户与权限管理之二做的

有点蓝

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

加好友

发短信

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

Post By：2021/7/20 10:40:00 [只看该作者]

参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=146639&replyID=142276&skin=1

dim bh as string = e.Cookies("username")

Dim bh2 As String = "[" & e.Cookies("username") & "]"

Dim sl2 As String = "|" & DataTables("Users").SQLGetComboListString("Name") & "|"

sl2 = sl2.replace(bh,bh2).TrimEnd("|")

.AddSelect("product","姓名",sl2 )

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10501 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2021/7/20 10:48:00 [只看该作者]

.AddSelect("product","年","2021|2022|2023|2024|2025")

.AddSelect("product","月","01|02|03|04|05|06|07|08|09|10|11|12")

这个年月弄的可以选择，又可以才打开自动先显示本年本月

有点蓝

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

加好友

发短信

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

Post By：2021/7/20 10:51:00 [只看该作者]

参考7楼用法

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10501 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2021/7/20 10:52:00 [只看该作者]

改不来

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

总数 14 1 2 下一页

主题：手机端取值