主题：菜单栏卡顿

With tpb.Pages("疫情防控").Links
    .Add("滞留市外学生","滞留市外学生")
    .Add("滞留重点省市", "滞留重点省市")
    .Add("滞留非重点省市", "滞留非重点省市")
    .Add("滞留区内市外", "滞留区内市外")
    .Add("滞留同心县", "滞留同心县")
    .Add("申报返回学生", "申报返回学生")
    .Add("实际返回学生", "实际返回学生")
    .Add("未申报已返回", "未申报已返回")
    .Add("未申报学生", "未申报学生")
    .Add("不返回学生", "不返回学生")
    .Add("待返回学生", "待返回学生")
    .Add("晨午检", "晨午检")
   
End With

With tpb.Pages("党建工作").Links
    ' If User.IsRole("党员") Then        '审核代码
    .Add("党组织文件", "党组织文件")
    .Add("组织制度", "组织制度")
    .Add("组织生活", "组织生活")
    .Add("组织建设", "组织建设")
    .Add("班子建设", "班子建设")
    .Add("思想政治工作", "思想政治工作")
    .Add("专题活动", "专题活动")
    .Add("意识形态工作", "意识形态工作")
    .Add("民族团结工作", "民族团结工作")
    .Add("宣传工作", "宣传工作")
    .Add("党员信息", "党员信息")
    'End If
End With

With tpb.Pages("学生信息").Links
    .Add("全部学生名册", "全部学生名册")
    .Add("建档立卡学生", "建档立卡学生")
    .Add("学生数统计", "学生数统计")
    .Add("住宿学生", "住宿学生")
        .Add("学生奖励", "学生奖励")
    .Add("学生违纪", "学生违纪")
        .Add("毕业生情况","毕业生情况")
    .Add("研学旅行资料","研学旅行资料")
    .Add("学生拍照","学生拍照")
    End With

With tpb.Pages("控辍保学").Links
    .Add("不在校学生", "不在校学生")
         .Add("休学学生", "休学学生")
    .Add("休假学生", "休假学生")
    .Add("送教学生", "送教学生")
       .Add("疑似辍学学生", "疑似辍学学生")
      .Add("控辍统计", "控辍统计")
    .Add("送教记录", "送教记录")
    .Add("家访记录", "家访记录")
End With

With tpb.Pages("阅读强智").Links
 .Add("阅读阵地", "阅读阵地")
 .Add("阅读活动", "阅读活动")
 .Add("阅读考核", "阅读考核")
 .Add("阅读成果", "阅读成果")

End With

With tpb.Pages("信息化建设").Links
    ' .Add("组织保障", "组织保障")
    '.Add("宽带网络校校通", "宽带网络校校通")
    '.Add("优质资源班班通", "优质资源班班通")
    '.Add("个人空间人人通", "个人空间人人通")
    '.Add("视频终端", "视频终端")
    '.Add("特色工作", "特色工作")
    .Add("互联网+教育", "互联网+教育")
    .Add("计算机配备", "计算机配备")
    .Add("多媒体设备", "多媒体设备")
    .Add("设备地址", "设备地址")
    .Add("账号密码", "账号密码")
    .Add("信息能力提升" ,"信息能力提升")
   
End With
With tpb.Pages("文明校园").Links
    .Add("领导班子建设", "领导班子建设")
    .Add("思想道德教育", "思想道德教育")
    .Add("活动阵地建设", "活动阵地建设")
    .Add("教师队伍建设", "教师队伍建设")
    .Add("校园文化建设", "校园文化建设")
    .Add("校园环境建设", "校园环境建设")
   
End With
With tpb.Pages("安全工作").Links
    .Add("A文书档案", "A文书档案")
    .Add("B物防档案", "B物防档案")
    .Add("C过程档案", "C过程档案")
    .Add("D专项档案", "D专项档案")
   
End With

With tpb.Pages("物品采购").Links
    .Add("物品采购申报","物品采购申报")
    .Add("编制采购计划","编制采购计划")
    .Add("打印采购审批表","打印采购审批表")
    .Add("采购信息录入","采购信息录入")
    .Add("打印入库单","打印入库单")
    .Add("采购单查询","采购单查询")
    .Add("采购物品查询","采购物品查询")
    .Add("申报物品查询","申报物品查询")
    .Add("入库单查询","入库单查询")
   
End With

With tpb.Pages("出勤管理").Links
    .Add("出差管理","出差管理")
    .Add("考勤记录（存档）","考勤记录（存档）")
    .Add("考勤记录","考勤记录")
End With

With tpb.Pages("维修制作").Links
    .Add("维修制作","维修制作")
End With

With tpb.Pages("常用文件").Links
    .Add("所有常用文件","所有常用文件")
    .Add("文件类别","文件类别")
    .Add("发文单位","发文单位")
    .Add("文件类别日期","文件类别日期")
    .Add("发文单位日期","发文单位日期")
End With

With tpb.Pages("制度职责").Links
    ' .Add("制度录入","制度录入")
    .Add("制度职责筛选","制度职责筛选")
    .Add("岗位职责","岗位职责")
    .Add("安全职责","安全职责")
    .Add("党群制度","党群制度")
    .Add("管理制度","管理制度")
    .Add("德育制度","德育制度")
    .Add("教学教科研制度","教学教科研制度")
    .Add("安全总务制度","安全总务制度")
    .Add("内控制度","内控制度")
    .Add("方案预案","方案预案")
   
   
   
End With

With tpb.Pages("资料收集").Links
    .Add("图片视频资料","图片视频资料")
    .Add("图片视频筛选","图片视频筛选")
   
    .Add("文本资料","文本资料")
    .Add("文本资料筛选","文本资料筛选")
   
   
End With

With tpb.Pages("校务公开").Links
    .Add("职工慰问","职工慰问")
    .Add("工资奖金福利","工资奖金福利")
End With

With tpb.Pages("系统维护").Links
    .Add("用户权限分配","用户权限分配")
    .Add("角色权限分配","角色权限分配")
    .Add("离退人员转库", "离退人员转库")
    .Add("提示信息维护", "提示信息维护")
   
End With