frmmain.frm

教学管理系统

                            ItemX.text = "选课系统"
                            ItemX.Icon = 1
                            ItemX.Key = "course"
                            Set ItemX = ListView1(1).ListItems.Add
                            ItemX.text = "查询学分"
                            ItemX.Icon = 1
                            ItemX.Key = "score"
                            Set ItemX = ListView1(1).ListItems.Add
                            ItemX.text = "查寻课表"
                            ItemX.Icon = 1
                            ItemX.Key = "coursetable"
                        Case 2
                            ListView1(1).ListItems.Clear
                            Set ItemX = ListView1(1).ListItems.Add
                            ItemX.text = "个人资料"
                            ItemX.Icon = 1
                            ItemX.Key = "text"
                            Set ItemX = ListView1(1).ListItems.Add
                            ItemX.text = "工资管理"
                            ItemX.Icon = 1
                            ItemX.Key = "salary"
                        Case 3
                            ListView1(1).ListItems.Clear
                            Set ItemX = ListView1(1).ListItems.Add
                            ItemX.text = "个人资料"
                            ItemX.Icon = 1
                            ItemX.Key = "text"
                            Set ItemX = ListView1(1).ListItems.Add
                            ItemX.text = "工资管理"
                            ItemX.Icon = 1
                            ItemX.Key = "salary"
                        Case 4
                            ListView1(1).ListItems.Clear
                            Set ItemX = ListView1(1).ListItems.Add
                            ItemX.text = "个人资料"
                            ItemX.Icon = 1
                            ItemX.Key = "text"
                            Set ItemX = ListView1(1).ListItems.Add
                            ItemX.text = "工资管理"
                            ItemX.Icon = 1
                            ItemX.Key = "salary"
                    End Select
                Case "student"
                    Level1 = item.Key
                    Select Case Limit
                        Case 1
                            ListView1(1).ListItems.Clear
                        Case 2
                            ListView1(1).ListItems.Clear
                            Set ItemX = ListView1(1).ListItems.Add
                            ItemX.text = "学生基本信息"
                            ItemX.Icon = 1
                            ItemX.Key = "student"
                            Set ItemX = ListView1(1).ListItems.Add
                            ItemX.text = "班级管理"
                            ItemX.Icon = 1
                            ItemX.Key = "class"
                        Case 3
                            ListView1(1).ListItems.Clear
                            Set ItemX = ListView1(1).ListItems.Add
                            ItemX.text = "学生基本信息"
                            ItemX.Icon = 1
                            ItemX.Key = "student"
                            Set ItemX = ListView1(1).ListItems.Add
                            ItemX.text = "学生调配"
                            ItemX.Icon = 1
                            ItemX.Key = "studentmanage"
                            Set ItemX = ListView1(1).ListItems.Add
                            ItemX.text = "学生课程管理"
                            ItemX.Icon = 1
                            ItemX.Key = "studentcourse"
                        Case 4
                            ListView1(1).ListItems.Clear
                            Set ItemX = ListView1(1).ListItems.Add
                            ItemX.text = "学生基本信息"
                            ItemX.Icon = 1
                            ItemX.Key = "student"
                            Set ItemX = ListView1(1).ListItems.Add
                            ItemX.text = "学生调配"
                            ItemX.Icon = 1
                            ItemX.Key = "studentmanage"
                            Set ItemX = ListView1(1).ListItems.Add
                            ItemX.text = "学生课程管理"
                            ItemX.Icon = 1
                            ItemX.Key = "studentcourse"
                    End Select
                Case "course"
                    Level1 = item.Key
                    Select Case Limit
                        Case 1
                            ListView1(1).ListItems.Clear
                        Case 2
                            ListView1(1).ListItems.Clear
                            Set ItemX = ListView1(1).ListItems.Add
                            ItemX.text = "课程信息"
                            ItemX.Icon = 1
                            ItemX.Key = "courseinfo"
                            Set ItemX = ListView1(1).ListItems.Add
                            ItemX.text = "授课信息"
                            ItemX.Icon = 1
                            ItemX.Key = "teachcourse"
                        Case 3
                            ListView1(1).ListItems.Clear
                            Set ItemX = ListView1(1).ListItems.Add
                            ItemX.text = "课程管理"
                            ItemX.Icon = 1
                            ItemX.Key = "courseinfo"
                        Case 4
                            ListView1(1).ListItems.Clear
                            Set ItemX = ListView1(1).ListItems.Add
                            ItemX.text = "课程管理"
                            ItemX.Icon = 1
                            ItemX.Key = "courseinfo"
                    End Select
                Case "department"
                    Level1 = item.Key
                    Select Case Limit
                        Case 1
                            ListView1(1).ListItems.Clear
                        Case 2
                            ListView1(1).ListItems.Clear
                        Case 3
                            ListView1(1).ListItems.Clear
                            Set ItemX = ListView1(1).ListItems.Add
                            ItemX.text = "机构查询"
                            ItemX.Icon = 1
                            ItemX.Key = "department"
                        Case 4
                            ListView1(1).ListItems.Clear
                            Set ItemX = ListView1(1).ListItems.Add
                            ItemX.text = "机构管理"
                            ItemX.Icon = 1
                            ItemX.Key = "department"
                    End Select
                Case "users"
                    Level1 = item.Key
                    Select Case Limit
                        Case 1
                            ListView1(1).ListItems.Clear
                        Case 2
                            ListView1(1).ListItems.Clear
                        Case 3
                            ListView1(1).ListItems.Clear
                        Case 4
                            ListView1(1).ListItems.Clear
                            Set ItemX = ListView1(1).ListItems.Add
                            ItemX.text = "用户管理"
                            ItemX.Icon = 1
                            ItemX.Key = "users"
                    End Select
            End Select
        Case 1
            Level2 = item.Key
            Select Case Limit
                Case 1
                    Select Case Level1
                        Case "personal"
                            Select Case item.Key
                                Case "text"
                                    ListView1(2).ListItems.Clear
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "基本信息"
                                    ItemX.Icon = 1
                                    ItemX.Key = "text"
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "修改密码"
                                    ItemX.Icon = 1
                                    ItemX.Key = "password"
                                Case "course"
                                    ListView1(2).ListItems.Clear
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "进入"
                                    ItemX.Icon = 1
                                    ItemX.Key = "enter"
                                Case "score"
                                    ListView1(2).ListItems.Clear
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "进入"
                                    ItemX.Icon = 1
                                    ItemX.Key = "enter"
                                Case "coursetable"
                                    ListView1(2).ListItems.Clear
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "进入"
                                    ItemX.Icon = 1
                                    ItemX.Key = "enter"
                            End Select
                    End Select
                Case 2
                    Select Case Level1
                        Case "personal"
                            Select Case item.Key
                                Case "text"
                                    ListView1(2).ListItems.Clear
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "基本信息"
                                    ItemX.Icon = 1
                                    ItemX.Key = "text"
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "修改密码"
                                    ItemX.Icon = 1
                                    ItemX.Key = "password"
                                Case "salary"
                                    ListView1(2).ListItems.Clear
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "查询"
                                    ItemX.Icon = 1
                                    ItemX.Key = "enter"
                            End Select
                        Case "student"
                            Select Case item.Key
                                Case "student"
                                    ListView1(2).ListItems.Clear
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "学生基本信息查询"
                                    ItemX.Icon = 1
                                    ItemX.Key = "enter"
                                Case "class"
                                    ListView1(2).ListItems.Clear
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "班内学生基本信息"
                                    ItemX.Icon = 1
                                    ItemX.Key = "student"
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "班内学生成绩查询"
                                    ItemX.Icon = 1
                                    ItemX.Key = "score"
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "班内学生课表查询"
                                    ItemX.Icon = 1
                                    ItemX.Key = "coursetable"
                            End Select
                        Case "course"
                            Select Case item.Key
                                Case "courseinfo"
                                    ListView1(2).ListItems.Clear
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "课程信息查询"
                                    ItemX.Icon = 1
                                    ItemX.Key = "enter"
                                Case "teachcourse"
                                    ListView1(2).ListItems.Clear
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "授课信息查询"
                                    ItemX.Icon = 1
                                    ItemX.Key = "enter"
                            End Select
                    End Select
                Case 3
                    Select Case Level1
                        Case "personal"
                            Select Case item.Key
                                Case "text"
                                    ListView1(2).ListItems.Clear
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "基本信息"
                                    ItemX.Icon = 1
                                    ItemX.Key = "text"
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "修改密码"
                                    ItemX.Icon = 1
                                    ItemX.Key = "password"
                                Case "salary"
                                    ListView1(2).ListItems.Clear
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "查询"
                                    ItemX.Icon = 1
                                    ItemX.Key = "enter"
                            End Select
                        Case "student"
                            Select Case item.Key
                                Case "student"
                                    ListView1(2).ListItems.Clear
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "学生信息查询"
                                    ItemX.Icon = 1
                                    ItemX.Key = "look"
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "学生信息添加"
                                    ItemX.Icon = 1
                                    ItemX.Key = "add"
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "学生信息删除"
                                    ItemX.Icon = 1
                                    ItemX.Key = "delete"
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "学生信息修改"
                                    ItemX.Icon = 1
                                    ItemX.Key = "make"
                                Case "studentmanage"
                                    ListView1(2).ListItems.Clear
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "班级设置"
                                    ItemX.Icon = 1
                                    ItemX.Key = "class"
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "学生班级调配"
                                    ItemX.Icon = 1
                                    ItemX.Key = "studentclass"
                                Case "studentcourse"
                                    ListView1(2).ListItems.Clear
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "课程查询"
                                    ItemX.Icon = 1
                                    ItemX.Key = "look"
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "课程添加"
                                    ItemX.Icon = 1
                                    ItemX.Key = "add"
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "课程修改"
                                    ItemX.Icon = 1
                                    ItemX.Key = "make"
                                    Set ItemX = ListView1(2).ListItems.Add
                                    ItemX.text = "课程删除"
                                    ItemX.Icon = 1
                                    ItemX.Key = "delete"
                            End Select
                        Case "course"