专家坐堂-关于开发者和管理员Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于开发者和管理员  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=183871)

--  作者：yolala
--  发布时间：2022/11/17 0:42:00
--  关于开发者和管理员

在禁止了非开发者（developer）登陆后看不到表标题，但是却要让管理员（administrator）可以看得见数据操作日志这张表，要怎么才能实现呢？

--  作者：有点蓝
--  发布时间：2022/11/17 9:06:00
--
麻烦直接贴代码文字，不要截图

--  作者：yolala
--  发布时间：2022/11/17 9:08:00
--

If User.Type <> UserTypeEnum.Developer Then
TableCaptionVisible = False
End If

Select Case User.Type
Case User.Type = UserTypeEnum.Developer
Tables("数据操作日志").visible = True
Case UserTypeEnum.Administrator
Tables("数据操作日志").visible = True
Case Else
Tables("数据操作日志").visible = False
End Select

--  作者：有点蓝
--  发布时间：2022/11/17 9:24:00
--

If User.Type <> UserTypeEnum.Developer andalso User.Type <> UserTypeEnum.Administrator  Then
TableCaptionVisible = False
End If

--  作者：yolala
--  发布时间：2022/11/17 9:30:00
--
老师，我不想让管理员看到其他的表标题呀，我只想让他看到【数据操作日志】这个表的标题，该怎么设置呢？

--  作者：有点蓝
--  发布时间：2022/11/17 9:47:00
--
判断一下如果是管理员登录，就把所有其它表都隐藏了

--  作者：yolala
--  发布时间：2022/11/17 9:54:00
--
老师，这代码该怎么写？烦请版版老师提示写写，谢谢。

--  作者：有点蓝
--  发布时间：2022/11/17 10:05:00
--

If User.Type <> UserTypeEnum.Developer andalso User.Type <> UserTypeEnum.Administrator  Then
TableCaptionVisible = False
End If
Select Case User.Type
Case User.Type = UserTypeEnum.Developer
Tables("数据操作日志").visible = True
Case UserTypeEnum.Administrator
For Each tb As Table In Tables
tb..visible = False
Next
Tables("数据操作日志").visible = True
Case Else
Tables("数据操作日志").visible = False
End Select

--  作者：yolala
--  发布时间：2022/11/17 11:03:00
--
老师，这代码有问题，开发者进去，看不到数据操作日志了，只有管理者才能看得见了。

--  作者：有点蓝
--  发布时间：2022/11/17 11:13:00
--
……
Case User.Type = UserTypeEnum.Developer
For Each tb As Table In Tables
tb..visible = true
Next
Case UserTypeEnum.Administrator
For Each tb As Table In Tables
tb..visible = False
Next
Tables("数据操作日志").visible = True
……