以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  指定条件的数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192022)

--  作者:xuzihang
--  发布时间:2024/5/24 9:18:00
--  指定条件的数据
老师,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编辑过]

--  作者:有点蓝
--  发布时间:2024/5/24 9:25:00
--  
1、代码?

2、根据登录用户查询用户的分组,角色等,然后查询数据的时候加上分组,角色等条件

--  作者:xuzihang
--  发布时间:2024/5/24 9:30:00
--  
          
老师,1、想实现根据个人的KHID生成自己消费记录,根据案例做的,KHID 下面红字的部分报错,篮子部分不生效,该如何改?
         2、移动版的权限怎么设置?比如:1、领导能看全部,2、门店店长能看自己店的信息  3、员工能看自己的客户 4、客户只能看自己的信息
         代码发不上去呢?   按照这个案例做的  http://www.foxtable.com/mobilehelp/topics/0114.htm


                

--  作者:有点蓝
--  发布时间:2024/5/24 9:39:00
--  
把代码放到记事本发上来
--  作者:xuzihang
--  发布时间:2024/5/24 9:47:00
--  
    
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档 (2).txt


--  作者:有点蓝
--  发布时间:2024/5/24 9:51:00
--  
【KHID = e.Cookies("KHID")】对应的是什么条件?存储的是什么内容?
--  作者:xuzihang
--  发布时间:2024/5/24 9:57:00
--  
         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 

--  作者:有点蓝
--  发布时间:2024/5/24 10:00:00
--  
存储的是什么内容?
--  作者:xuzihang
--  发布时间:2024/5/24 10:03:00
--  
存储的是什么内容?   编号    khid2020405001
客户表         列名 KHID           khid2020405001
服务明细表   列名用户ID           khid2020405001

--  作者:有点蓝
--  发布时间:2024/5/24 10:08:00
--  
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