专家坐堂-[求助] 任务栏窗口命令Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 任务栏窗口命令  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52909)

--  作者：wumingrong1
--  发布时间：2014/6/25 14:46:00
--  [求助] 任务栏窗口命令
如果我想实现如照片中当打开某个任务栏窗口时，有部分按钮可见、有部分按钮不可编辑。命令该怎么写？

如系统使用权限按钮不可见本机注册信息按钮不可编辑

此主题相关图片如下：360截图20140626144407515.jpg

--  作者：Bin
--  发布时间：2014/6/25 14:52:00
--
任务栏,导航栏齐全 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=47839&authorid=0&page=0&star=1

--  作者：wumingrong1
--  发布时间：2014/6/25 16:28:00
--

如果不是“特级管理员”、禁止显示 ‘系统数据’页面中的‘项目信息’按钮。这个命令哪里错了？

If User.Type <> UserTypeEnum.Developer AndAlso User.Type <> UserTypeEnum.Administrator AndAlso _UserGroup <> "特级管理员" Then

e.form.Controls("TopicBar1").Pages("系统数据").Link("项目信息").Visible = False

Else
e.form.Controls("TopicBar1").Pages("系统数据").Link("项目信息").Visible = True

End If

--  作者：Bin
--  发布时间：2014/6/25 16:31:00
--
出现什么错误?

--  作者：有点甜
--  发布时间：2014/6/25 16:34:00
--
If _UserGroup <> "特级管理员" Then
    e.form.Controls("TopicBar1").Pages("系统数据").Link("项目信息").Visible = False
Else
    e.form.Controls("TopicBar1").Pages("系统数据").Link("项目信息").Visible = True
End If

--  作者：wumingrong1
--  发布时间：2014/6/25 16:38:00
--
弹出如下错误

此主题相关图片如下：360截图20140626163932750.jpg

[此贴子已经被作者于2014-6-25 16:39:20编辑过]

--  作者：有点甜
--  发布时间：2014/6/25 16:46:00
--

link 改成 links

--  作者：wumingrong1
--  发布时间：2014/6/25 22:13:00
--

如下命令、弹出出错提示，1、问题在哪？2、该如何简化命令？
If _UserGroup <> "特级管理员" AndAlso _UserGroup <> "一级管理员" Then
e.form.Controls("TopicBar1").Pages("系统数据").Links("本机注册信息").Enabled = False
\'e.form.Controls("TopicBar1").Pages("系统数据").Links("注册码列表").Enabled = False
\'e.form.Controls("TopicBar1").Pages("系统数据").Links("用户注册信息").Enabled = False
\'e.form.Controls("TopicBar1").Pages("用户数据").Links("部门维护").Enabled = False
\'e.form.Controls("TopicBar1").Pages("用户数据").Links("职务维护").Enabled = False
\'e.form.Controls("TopicBar1").Pages("用户数据").Links("登录帐号管理").Enabled = False
\'e.form.Controls("TopicBar1").Pages("用户数据").Links("数据表授权管理").Enabled = False
\'e.form.Controls("TopicBar1").Pages("用户数据").Links("帐号职权管理").Enabled = False
Else
e.form.Controls("TopicBar1").Pages("系统数据").Links("本机注册信息").Enabled = True
\'e.form.Controls("TopicBar1").Pages("系统数据").Links("注册码列表").Enabled = True
\'e.form.Controls("TopicBar1").Pages("系统数据").Links("用户注册信息").Enabled = True
\'e.form.Controls("TopicBar1").Pages("用户数据").Links("部门维护").Enabled = True
\'e.form.Controls("TopicBar1").Pages("用户数据").Links("职务维护").Enabled = True
\'e.form.Controls("TopicBar1").Pages("用户数据").Links("登录帐号管理").Enabled = True
\'e.form.Controls("TopicBar1").Pages("用户数据").Links("数据表授权管理").Enabled = True
\'e.form.Controls("TopicBar1").Pages("用户数据").Links("帐号职权管理").Enabled = True
End If

此主题相关图片如下：360截图20140626220728546.jpg

--  作者：有点甜
--  发布时间：2014/6/25 22:17:00
--

没有这个属性的，不能用

Dim flag As Boolean = _UserGroup <> "特级管理员" AndAlso _UserGroup <> "一级管理员"
e.form.Controls("TopicBar1").Pages("系统数据").Links("本机注册信息").visible = flag
e.form.Controls("TopicBar1").Pages("系统数据").Links("注册码列表").visible = flag
e.form.Controls("TopicBar1").Pages("系统数据").Links("用户注册信息").visible = flag
e.form.Controls("TopicBar1").Pages("用户数据").Links("部门维护").visible = flag
e.form.Controls("TopicBar1").Pages("用户数据").Links("职务维护").visible = flag
e.form.Controls("TopicBar1").Pages("用户数据").Links("登录帐号管理").visible = flag
e.form.Controls("TopicBar1").Pages("用户数据").Links("数据表授权管理").visible = flag
e.form.Controls("TopicBar1").Pages("用户数据").Links("帐号职权管理").visible = flag

--  作者：wumingrong1
--  发布时间：2014/6/25 22:35:00
--

如果我用普通用户登录，其中只有项目信息运行看到并打开；但是我点击时弹出错误提示；问题在哪？

此主题相关图片如下：12.jpg

此主题相关图片如下：13.jpg

[此贴子已经被作者于2014-6-26 9:45:21编辑过]