老师,1、想实现根据个人的KHID生成自己消费记录,根据案例做的,KHID 下面红字的部分报错,篮子部分不生效,该如何改?
2、移动版的权限怎么设置?比如:1、领导能看全部,2、门店店长能看自己店的信息 3、员工能看自己的客户 4、客户只能看自己的信息
代码发不上去呢? 按照这个案例做的 http://www.foxtable.com/mobilehelp/topics/0114.htm
引用 | OpenID = e.Cookies("openid")
引用 | KHID = e.Cookies("KHID")
.......... From 服务明细 Where 客户ID in KHID ) As a " ' Where 客户ID = KHID
' If KHID > "" Then
' cmd.CommandText = cmd.CommandText & " Where " & KHID
' End If
[此贴子已经被作者于2024/5/24 9:26:03编辑过]
1、代码?
2、根据登录用户查询用户的分组,角色等,然后查询数据的时候加上分组,角色等条件
【KHID = e.Cookies("KHID")】对应的是什么条件?存储的是什么内容?
Dim UserName As String
Dim OpenID As String
Dim KHID As String
e.AppendCookie("username", UserName) '用户名和openid存储在Cookie中
e.AppendCookie("openid", OpenID)
e.AppendCookie("KHID", KHID)
客户表 列名 KHID
服务明细表 列名用户ID
KHID = 用户ID
存储的是什么内容? 编号 khid2020405001 |
客户表 列名 KHID khid2020405001
服务明细表 列名用户ID khid2020405001
cmd.CommandText = "Select Count(*) From {服务明细} where 用户ID='" & KHID & "'"
cmd.CommandText = "Select * From (Select Row_Number() Over(Order By 日期 DESC) As [NO.], 类别, 项目, 会员卡号, 家政员ID, 日期 From 服务明细 Where 用户ID='" & KHID & "' ) As a " ' Where 客户ID = KHID