以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  移动版授权管理  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169853)

--  作者:yyr
--  发布时间:2021/7/3 16:44:00
--  移动版授权管理
您好,请问移动版如何实现授权管理,谢谢!
--  作者:有点蓝
--  发布时间:2021/7/3 17:11:00
--  
差不多的,比如控制用户显示那些菜单

        With wb.AddGrid("","g1")
if DataTables("授权表").find("用户=\'张三\' and 菜单=\'c1\'") isnot nothing
            .Add("c1","Button""./images/button.png").Attribute = ""
end if
            .Add("c2","Cell""./images/cell.png""http://www.foxtable.com")
            .Add("c3","Toast""./images/toast.png""http://www.foxtable.com")

        End With

控制可以使用那些控件
            With wb.AddInputGroup("form1","ipg1","客户资料")
                .AddInput(
"
姓名","姓名","Text"\'前一个"姓名"ID,后一个"姓名"是标题
                .AddInput(
"
年龄","年龄","number")
                .AddInput(
"
日期","日期","date")
if DataTables("授权表").find("用户=\'张三\' and 页面=\'c1\' and 控件=\'级别\'") isnot nothing
                .AddSelect("级别","级别","普通会员|高级会员|VIP会员")
endif
                .AddSwitch(
"
停权","停权").Value = "True"
            End With

--  作者:yyr
--  发布时间:2021/7/5 7:23:00
--  
好的,谢谢