📄 frm_main.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frm_main
BackColor = &H8000000C&
Caption = "中学教务管理系统——V1.0"
ClientHeight = 8445
ClientLeft = -3870
ClientTop = 3870
ClientWidth = 15195
LinkTopic = "MDIForm1"
WindowState = 2 'Maximized
Begin VB.Timer Timer1
Interval = 100
Left = 6960
Top = 3960
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 0
Top = 8070
Width = 15195
_ExtentX = 26802
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 4
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 7
AutoSize = 1
Enabled = 0 'False
Object.Width = 6535
TextSave = "KANA"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 2
AutoSize = 1
Object.Width = 6535
TextSave = "NUM"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
AutoSize = 1
Object.Width = 6535
TextSave = "2003-12-23"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
AutoSize = 1
Object.Width = 6535
TextSave = "20:35"
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 1560
Top = 1800
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":2D0A
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":3024
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":5D2E
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":6048
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":6362
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":6C3C
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":7516
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 660
Left = 0
TabIndex = 1
Top = 0
Width = 15195
_ExtentX = 26802
_ExtentY = 1164
ButtonWidth = 3043
ButtonHeight = 1005
Appearance = 1
TextAlignment = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 8
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "系统操作信息"
Key = "sys"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "学生信息"
Key = "student"
ImageIndex = 8
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "教师信息"
Key = "teacher"
ImageIndex = 7
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "课程信息"
Key = "course"
ImageIndex = 6
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "班级信息"
Key = "class"
ImageIndex = 2
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "学生成绩信息"
Key = "score"
ImageIndex = 5
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "课程表信息"
Key = "lesson"
ImageIndex = 4
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "系统帮助"
Key = "help"
ImageIndex = 3
EndProperty
EndProperty
End
Begin VB.Menu menu_sys
Caption = " 系 统 "
Begin VB.Menu space0
Caption = "-"
End
Begin VB.Menu menu_sys_adduser
Caption = "添加用户"
End
Begin VB.Menu menu_sys_deleteuser
Caption = "删除用户"
End
Begin VB.Menu menu_sys_modifypsd
Caption = "修改密码"
End
Begin VB.Menu space1
Caption = "-"
End
Begin VB.Menu menu_sys_operation
Caption = "查看系统操作日志"
End
Begin VB.Menu space2
Caption = "-"
End
Begin VB.Menu menu_sys_start
Caption = "系统初始化"
End
Begin VB.Menu space3
Caption = "-"
End
Begin VB.Menu menu_sys_change
Caption = "用户注销"
End
Begin VB.Menu menu_sys_exit
Caption = "退出"
End
Begin VB.Menu space4
Caption = "-"
End
End
Begin VB.Menu menu_student
Caption = " 学生学籍管理 "
Begin VB.Menu menu_student_load
Caption = "学生信息操作"
End
End
Begin VB.Menu menu_teacher
Caption = " 教师信息管理 "
Begin VB.Menu menu_teacher_load
Caption = "教师信息操作"
End
Begin VB.Menu menu_teacher_query
Caption = "教师信息查询"
End
End
Begin VB.Menu menu_course
Caption = " 课程信息管理 "
Begin VB.Menu menu_course_info
Caption = "课程信息操作"
End
Begin VB.Menu menu_course_report
Caption = "课程信息报表"
End
End
Begin VB.Menu menu_class
Caption = " 班级信息管理 "
Begin VB.Menu menu_class_load
Caption = "班级信息操作"
End
Begin VB.Menu menu_class_report
Caption = "班级信息报表"
End
End
Begin VB.Menu menu_score
Caption = " 学生成绩管理 "
Begin VB.Menu menu_score_load
Caption = "学生成绩操作"
End
Begin VB.Menu menu_score_report
Caption = "学生成绩报表"
Begin VB.Menu menu_score_grade
Caption = "学生年级成绩报表"
End
Begin VB.Menu menu_score_class
Caption = "学生班级成绩报表"
End
Begin VB.Menu menu_score_person
Caption = "学生个人成绩报表"
End
End
End
Begin VB.Menu menu_lesson
Caption = " 课程表管理 "
End
Begin VB.Menu menu_help
Caption = " 帮助系统 "
Begin VB.Menu menu_help_aboutus
Caption = "关于我们"
End
Begin VB.Menu menu_help_aboutsoftware
Caption = "关于本软件"
End
End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub menu_teamanage_Click()
End Sub
Private Sub MDIForm_Load()
frm_background.Show
frm_login.Show
Me.Hide
End Sub
Private Sub menu_class_load_Click()
frm_class_load.Show
End Sub
Private Sub menu_class_report_Click()
frm_class_info.Show
End Sub
Private Sub menu_course_info_Click()
frm_course_load.Show
End Sub
Private Sub menu_course_report_Click()
frm_course_info.Show
End Sub
Private Sub menu_help_aboutsoftware_Click()
frm_help_aboutsoftware.Show
End Sub
Private Sub menu_help_aboutus_Click()
frm_help_aboutus.Show
End Sub
Private Sub menu_score_class_Click()
frm_score_class.Show
End Sub
Private Sub menu_score_grade_Click()
frm_score_grade.Show
End Sub
Private Sub menu_score_load_Click()
frm_score_load.Show
End Sub
Private Sub menu_score_person_Click()
frm_score_person.Show
End Sub
Private Sub menu_student_load_Click()
frm_student_basic.Show
End Sub
Private Sub menu_sys_adduser_Click()
frm_sys_adduser.Show
End Sub
Private Sub menu_sys_change_Click()
frm_sys_changeuser.Show
End Sub
Private Sub menu_sys_deleteuser_Click()
frm_sys_deleteuser.Show
End Sub
Private Sub menu_sys_exit_Click()
End
End Sub
Private Sub menu_sys_modifypsd_Click()
frm_sys_modifypsd.Show
End Sub
Private Sub menu_sys_operation_Click()
frm_sys_systemop.Show
End Sub
Private Sub menu_sys_start_Click()
frm_sys_start.Show
End Sub
Private Sub menu_teacher_load_Click()
frm_teacher_load.Show
End Sub
Private Sub menu_teacher_query_Click()
Frm_teacher.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "sys"
frm_sys.Show
Case "course"
frm_course.Show
Case "class"
frm_class_info.Show
Case "score"
frm_score.Show
Case "teacher"
Frm_teacher.Show
Case "help"
frm_help_aboutsoftware.Show
Case "student"
frm_student_basic.Show
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -