📄 frmmain.frm
字号:
Select Case item.Key
Case "courseinfo"
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 "department"
Select Case item.Key
Case "department"
ListView1(2).ListItems.Clear
Set ItemX = ListView1(2).ListItems.Add
ItemX.text = "学院查询"
ItemX.Icon = 1
ItemX.Key = "institute"
Set ItemX = ListView1(2).ListItems.Add
ItemX.text = "系查询"
ItemX.Icon = 1
ItemX.Key = "department"
End Select
End Select
Case 4
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"
Select Case item.Key
Case "courseinfo"
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 "department"
Select Case item.Key
Case "department"
ListView1(2).ListItems.Clear
Set ItemX = ListView1(2).ListItems.Add
ItemX.text = "学院查询"
ItemX.Icon = 1
ItemX.Key = "institutelook"
Set ItemX = ListView1(2).ListItems.Add
ItemX.text = "学院添加"
ItemX.Icon = 1
ItemX.Key = "instituteadd"
Set ItemX = ListView1(2).ListItems.Add
ItemX.text = "学院删除"
ItemX.Icon = 1
ItemX.Key = "institutedelete"
Set ItemX = ListView1(2).ListItems.Add
ItemX.text = "学院修改"
ItemX.Icon = 1
ItemX.Key = "institutemake"
Set ItemX = ListView1(2).ListItems.Add
ItemX.text = "系查询"
ItemX.Icon = 1
ItemX.Key = "departmentlook"
Set ItemX = ListView1(2).ListItems.Add
ItemX.text = "系添加"
ItemX.Icon = 1
ItemX.Key = "departmentadd"
Set ItemX = ListView1(2).ListItems.Add
ItemX.text = "系删除"
ItemX.Icon = 1
ItemX.Key = "departmentdelete"
Set ItemX = ListView1(2).ListItems.Add
ItemX.text = "系修改"
ItemX.Icon = 1
ItemX.Key = "departmentmake"
Set ItemX = ListView1(2).ListItems.Add
ItemX.text = "教师管理"
ItemX.Icon = 1
ItemX.Key = "teacher"
End Select
Case "users"
Select Case item.Key
Case "users"
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 = "teacher"
Set ItemX = ListView1(2).ListItems.Add
ItemX.text = "帐户管理"
ItemX.Icon = 1
ItemX.Key = "users"
End Select
End Select
End Select
Case 2
Level3 = item.Key
ShowWin
End Select
End Sub
Private Sub ShowWin()
Select Case Limit
Case 1
Select Case Level1
Case "personal"
Select Case Level2
Case "text"
Select Case Level3
Case "text"
Dim Win As New frmStudentInfo
Win.Show
Case "password"
End Select
Case "course"
Select Case Level3
Case "enter"
End Select
Case "score"
Select Case Level3
Case "enter"
End Select
Case "coursetable"
Select Case Level3
Case "enter"
End Select
End Select
End Select
Case 2
Select Case Level1
Case "personal"
Select Case Level2
End Select
Case "student"
Select Case Level2
End Select
Case "course"
Select Case Level2
End Select
End Select
Case 3
Select Case Level1
Case "personal"
Select Case Level2
End Select
Case "student"
Select Case Level2
End Select
Case "course"
Select Case Level2
End Select
Case "department"
Select Case Level2
End Select
End Select
Case 4
Select Case Level1
Case "personal"
Select Case Level2
Case "text"
Select Case Level3
Case "text"
frmTeacherInfo.Show
End Select
End Select
Case "student"
Select Case Level2
Case "student"
Select Case Level3
Case "look"
frmStudent.Show
End Select
Case "studentcourse"
Select Case Level3
Case "look"
frmStudentCourse.Show
End Select
End Select
Case "course"
Select Case Level2
Case "courseinfo"
Select Case Level3
Case "look"
frmCourse.Show
End Select
End Select
Case "department"
Select Case Level2
Case "department"
Select Case Level3
Case "teacher"
frmTeacher.Show
End Select
End Select
Case "users"
Select Case Level2
Case "users"
Select Case Level3
Case "student"
frmStudentPassword.Show
Case "teacher"
frmTeacherPassword.Show
Case "users"
frmUsers.Show
End Select
End Select
End Select
End Select
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "Exit"
ExitPro
End Select
End Sub
Private Sub ExitPro()
i = MsgBox("确定退出么?", vbOKCancel + vbInformation, "退出")
If i = 1 Then
End
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -