If _UserGroup <> "特级管理员" Then
e.form.Controls("TopicBar1").Pages("系统数据").Links("系统使用期限").Visible = False
e.form.Controls("TopicBar1").Pages("用户数据").Links("分公司维护").Visible = False
If _UserGroup <> "特级管理员" AndAlso _UserGroup <> "一级管理员" Then
e.form.Controls("TopicBar1").Pages("系统数据").Links("本机注册信息").Visible = False
e.form.Controls("TopicBar1").Pages("系统数据").Links("注册码列表").Visible = False
e.form.Controls("TopicBar1").Pages("系统数据").Links("用户注册信息").Visible = False
e.form.Controls("TopicBar1").Pages("用户数据").Links("部门维护").Visible = False
e.form.Controls("TopicBar1").Pages("用户数据").Links("职务维护").Visible = False
e.form.Controls("TopicBar1").Pages("用户数据").Links("登陆帐号管理").Visible = False
e.form.Controls("TopicBar1").Pages("用户数据").Links("数据表授权管理").Visible = False
e.form.Controls("TopicBar1").Pages("用户数据").Links("帐号职权管理").Visible = False
Else
e.form.Controls("TopicBar1").Pages("系统数据").Links("本机注册信息").Visible = True
e.form.Controls("TopicBar1").Pages("系统数据").Links("注册码列表").Visible = True
e.form.Controls("TopicBar1").Pages("系统数据").Links("用户注册信息").Visible = True
e.form.Controls("TopicBar1").Pages("用户数据").Links("部门维护").Visible = True
e.form.Controls("TopicBar1").Pages("用户数据").Links("职务维护").Visible = True
e.form.Controls("TopicBar1").Pages("用户数据").Links("登陆帐号管理").Visible = True
e.form.Controls("TopicBar1").Pages("用户数据").Links("数据表授权管理").Visible = True
e.form.Controls("TopicBar1").Pages("用户数据").Links("帐号职权管理").Visible = True
End If
Else
e.form.Controls("TopicBar1").Pages("系统数据").Links("系统使用期限").Visible = True
e.form.Controls("TopicBar1").Pages("用户数据").Links("分公司维护").Visible = True
End If
e.form.Controls("TopicBar1").Pages("系统数据").Links("项目信息").Visible = True
lockbasemainform
Select Case e.Link.Name
Case "项目信息"
MainTable = Tables("主页")
Forms("系统管理任务窗口").Open()
Forms("项目信息主窗口").Open()
Case "系统使用期限"
MainTable = Tables("系统使用权限日期表")
Forms("系统管理任务窗口").Open()
Forms("系统使用权限日期表主窗口").Open()
Case "本机注册信息"
MainTable = Tables("本机注册表")
Forms("系统管理任务窗口").Open()
Forms("本机注册表主窗口").Open()
Case "注册码列表"
MainTable = Tables("注册码列表")
Forms("系统管理任务窗口").Open()
Forms("注册码列表主窗口").Open()
Case "用户注册信息"
MainTable = Tables("系统注册信息表")
Forms("系统管理任务窗口").Open()
Forms("系统注册信息表主窗口").Open()
Case "分公司维护"
MainTable = Tables("分公司列表")
Forms("系统管理任务窗口").Open()
Forms("分公司列表主窗口").Open()
Case "部门维护"
MainTable = Tables("分公司部门列表")
Forms("系统管理任务窗口").Open()
Forms("分公司部门列表主窗口").Open()
Forms("分公司部门列表录入窗口").Open()
Case "职务维护"
MainTable = Tables("分公司职务列表")
Forms("系统管理任务窗口").Open()
Forms("分公司职务列表主窗口").Open()
Forms("分公司职务列表录入窗口").Open()
Case "登陆帐号管理"
MainTable = Tables("Users")
Forms("系统管理任务窗口").Open()
Forms("Users主窗口").Open()
Case "数据表授权管理"
MainTable = Tables("授权表")
Forms("系统管理任务窗口").Open()
Case "帐号职权管理"
MainTable = Tables("人员管理表")
Forms("系统管理任务窗口").Open()
End Select
unlockbasemainform
没有其他命令啦