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