frmmain.frm

来自「数据库课程设计」· FRM 代码 · 共 170 行

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "成绩管理系统"
   ClientHeight    =   4755
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   8295
   LinkTopic       =   "Form1"
   ScaleHeight     =   4755
   ScaleWidth      =   8295
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu SystemManage 
      Caption         =   "系统管理(&S)"
      Begin VB.Menu exitSystem 
         Caption         =   "退出系统(&X)"
      End
   End
   Begin VB.Menu student 
      Caption         =   "学生管理(&S)"
      Begin VB.Menu addstudent 
         Caption         =   "添加学生信息(&A)"
      End
      Begin VB.Menu updateStudent 
         Caption         =   "删改学生信息(&U)"
      End
      Begin VB.Menu queryStudent 
         Caption         =   "查询学生信息(&Q)"
      End
   End
   Begin VB.Menu teacher 
      Caption         =   "教师管理(&T)"
      Begin VB.Menu addteacher 
         Caption         =   "添加教师信息(&A)"
      End
      Begin VB.Menu updateTeacher 
         Caption         =   "删改教师信息(&U)"
      End
      Begin VB.Menu queryTeacher 
         Caption         =   "查询教师信息(&Q)"
      End
   End
   Begin VB.Menu classInfo 
      Caption         =   "班级管理(&C)"
      Begin VB.Menu addclass 
         Caption         =   "添加班级(&A)"
      End
      Begin VB.Menu updateclass 
         Caption         =   "删改班级(&U)"
      End
      Begin VB.Menu listClass 
         Caption         =   "班级列表(&L)"
      End
   End
   Begin VB.Menu course 
      Caption         =   "课程管理(&S)"
      Begin VB.Menu addcourse 
         Caption         =   "添加课程(&A)"
      End
      Begin VB.Menu updateCourse 
         Caption         =   "删改课程(&U)"
      End
      Begin VB.Menu querycourse 
         Caption         =   "课程查询(&Q)"
      End
   End
   Begin VB.Menu score 
      Caption         =   "成绩管理(&A)"
      Begin VB.Menu regiScore 
         Caption         =   "录入成绩(&R)"
      End
      Begin VB.Menu updateScore 
         Caption         =   "删改成绩(&U)"
      End
      Begin VB.Menu queryScore 
         Caption         =   "成绩查询(&Q)"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub addclass_Click()
frmAddClass.Show

End Sub

Private Sub addcourse_Click()
frmAddCourse.Show

End Sub

Private Sub addstudent_Click()
frmStudent.Show

End Sub

Private Sub addteacher_Click()
frmAddTeacher.Show
End Sub

Private Sub exitSystem_Click()
End
End Sub

Private Sub Form_Load()
'窗体居中显示

Me.Top = (Screen.Height - Me.Height) \ 2
Me.Left = (Screen.Width - Me.Width) \ 2
'获取数据库的位置
dbPath = App.Path + "\db\scoreDB.mdb"
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath

End Sub

Private Sub listClass_Click()
frmListClass.Show

End Sub

Private Sub querycourse_Click()
frmQueryCourse.Show

End Sub

Private Sub queryScore_Click()
frmQueryScore.Show
End Sub

Private Sub queryStudent_Click()
frmQueryStudent.Show

End Sub

Private Sub queryTeacher_Click()
frmQueryTeacher.Show

End Sub

Private Sub regiScore_Click()
frmAddScore.Show

End Sub

Private Sub updateclass_Click()
frmUpdateClass.Show

End Sub

Private Sub updateCourse_Click()
frmUpdateCourse.Show

End Sub

Private Sub updateScore_Click()
frmUpdateScore.Show
End Sub

Private Sub updateStudent_Click()
frmUpdateStudent.Show

End Sub

Private Sub updateTeacher_Click()
frmUpdateTeacher.Show

End Sub