以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  数据表和管理项目被禁止了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104187)
--  作者：foxuser
--  发布时间：2017/7/25 8:57:00
--  数据表和管理项目被禁止了
所有项目数据表和管理项目被禁止了

If User.Type<>UserTypeEnum.Administrator Then
    RibbonTabs("Table").Visible = False
    RibbonTabs("Project").Visible = False
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = False
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = False
Else
    RibbonTabs("Table").Visible = True
    RibbonTabs("Project").Visible = True
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = True
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = True
End If


怎样启用呢?
--  作者：有点甜
--  发布时间：2017/7/25 10:24:00
--  

按住ctrl不放，用开发者身份登陆，再按住ctrl不放直到打开项目。

 

然后修改代码，这样开发者和管理员，都可以正常使用了。

 

If User.Type = UserTypeEnum.User Then
    RibbonTabs("Table").Visible = False
    RibbonTabs("Project").Visible = False
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = False
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = False
Else
    RibbonTabs("Table").Visible = True
    RibbonTabs("Project").Visible = True
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = True
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = True
End If