简单的
Case "", "default.htm" '首页
wb.AddPageTitle("","pageheader","销售系统","由湛江辉迅基于Foxtable开发")
With wb.AddGrid("","g1")
if UserName = "张三"
.Add("c1","增加订单", "./images/button.png").Attribute = ""
endif
.Add("c2","客户管理", "./images/cell.png", "http://www.foxtable.com")
End With
如果有权限表的,查表判断
Case "", "default.htm" '首页
wb.AddPageTitle("","pageheader","销售系统","由湛江辉迅基于Foxtable开发")
With wb.AddGrid("","g1")
if datatables("权限").find("用户='" & UserName & "' and 模块='增加订单'") isnot nothing then
.Add("c1","增加订单", "./images/button.png").Attribute = ""
endif
.Add("c2","客户管理", "./images/cell.png", "http://www.foxtable.com")
End With