-- 作者：nxqtxwz
-- 发布时间：2021/4/14 18:36:00
--
请帮我看看这段代码是不是有问题？
\'\'\'
Dim tpb As WinForm.TopicBar = e.Form.Controls("导航")
With Ctype(tpb.BaseControl, C1Command.C1TopicBar)
If System.Environment.OSVersion.Version.Major < 6 Then
.VisualStyle = C1Command.VisualStyle.WindowsXP
Else
.VisualStyle = C1Command.VisualStyle.Office2010Blue
End If
\' Padding = New System.Windows.Forms.Padding(4)
End With
tpb.Animation = False
With tpb.Pages
.Add("职工信息", "职工信息", "myspace.ico").Collapsed = True
.Add("学生信息", "学生信息", "4617.ico").Collapsed = True
.Add("党建工作", "党建工作", "1602.ico").Collapsed = True
.Add("行政工作", "行政工作", "MYBOOK.ico").Collapsed = True
.Add("治理强校", "治理强校","MYBOOK.ico").Collapsed = True
.Add("安全工作", "安全工作","settings-icon.ico").Collapsed = True
.Add("文明校园", "文明校园","MYBOOK.ico").Collapsed = True
.Add("疫情防控", "疫情防控", "MYBOOK.ico").Collapsed = True
.Add("控辍保学", "控辍保学", "4617.ico").Collapsed = True
.Add("阅读强智", "阅读强智","MYBOOK.ico").Collapsed = True
.Add("信息化建设", "信息化建设", "network.ico").Collapsed = True
.Add("物品采购", "物品采购","TUBFUL~1.ico").Collapsed = True
.Add("维修制作", "维修制作", "FillColor.ico").Collapsed = True
.Add("出勤管理", "出勤管理","37.ico").Collapsed = True
.Add("常用文件", "常用文件","123.ico").Collapsed = True
.Add("制度职责", "制度职责","myspace.ico").Collapsed = True
.Add("校务公开", "校务公开","TUBFUL~1.ico").Collapsed = True
.Add("资料收集", "资料收集","TUBFUL~1.ico").Collapsed = True
.Add("系统维护", "系统维护","ToolBox32.ico").Collapsed = True
.Add("网站链接","网站链接","Icons_112.ico").Collapsed = True
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("奖惩记录", "奖惩记录")
.Add("工作量", "工作量")
.Add("班主任工作", "班主任工作")
.Add("班主任考核", "班主任考核")
.Add("师德考核", "师德考核")
.Add("岗位晋级","岗位晋级")
.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("滞留区内市外", "滞留区内市外")
.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
With tpb.Pages("网站链接").Links
.Add("宁夏教育云平台","宁夏教育云平台")
.Add("宁夏禁毒网","宁夏禁毒网")
.Add("教师继续教育网","教师继续教育网")
.Add("金数据表单","金数据表单")
.Add("部门工作评议","部门工作评议")
End With
tpb.Animation = True
|