主题：功能区自定义菜单显示问题

 Forms("登录").Open()
If Vars("user_name") = "" And User.Type = UserTypeEnum.User Then
    Syscmd.Project.Exit()
    Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
'后续初始化代码

If User.Type <> UserTypeEnum.Developer '判断是否是开发者
    TableCaptionVisible = False '不显示表格名称切换导航条
    RibbonTabGroups("设计功能").Visible = False
    ApplicationMenu.visible = False '隐藏程序菜单
    For Each o As object In configbar.Items '隐藏配置栏
    o.Visible = False
    Next
    RibbonTabs.HideTabHeaderRow = False '隐藏功能区标题
    RibbonTabs.AllowMinimize = False
    RibbonTabs.Minimized = False
End If
Forms("代办任务").Open()
Forms("组织架构权限配置").Show