以文本方式查看主题 - 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 -- 好的,谢谢 |