VERSION 5.00
Begin VB.MDIForm FrmMain 
   BackColor       =   &H8000000C&
   Caption         =   "學(xué)生成績管理系統(tǒng)"
   ClientHeight    =   5460
   ClientLeft      =   165
   ClientTop       =   825
   ClientWidth     =   7560
   LinkTopic       =   "MDIForm1"
   Moveable        =   0   'False
   Picture         =   "FrmMain.frx":0000
   StartUpPosition =   1  '所有者中心
   Begin VB.Menu mn_1 
      Caption         =   "基本信息管理"
      Begin VB.Menu mn_newuser 
         Caption         =   "注冊用戶"
      End
      Begin VB.Menu mn_editpwd 
         Caption         =   "修改密碼"
      End
      Begin VB.Menu mn_deluser 
         Caption         =   "刪除用戶"
      End
      Begin VB.Menu mnuBar1 
         Caption         =   "________"
      End
      Begin VB.Menu mn_exit 
         Caption         =   "退出系統(tǒng)"
      End
   End
   Begin VB.Menu mn_student 
      Caption         =   "學(xué)生管理"
      Begin VB.Menu mn_addstudent 
         Caption         =   "添加學(xué)生信息"
      End
      Begin VB.Menu mn_delstudent 
         Caption         =   "刪改學(xué)生信息"
      End
      Begin VB.Menu mn_searchstudent 
         Caption         =   "查詢學(xué)生信息"
      End
   End
   Begin VB.Menu mn_2 
      Caption         =   "學(xué)生成績管理"
      Begin VB.Menu mn_score 
         Caption         =   "添加成績"
      End
      Begin VB.Menu mn_delscore 
         Caption         =   "刪改成績"
      End
      Begin VB.Menu mn_searchscore 
         Caption         =   "查詢成績"
      End
   End
   Begin VB.Menu mn_lesson 
      Caption         =   "課程管理"
      Begin VB.Menu mn_addlesson 
         Caption         =   "添加課程"
      End
      Begin VB.Menu mn_dellesson 
         Caption         =   "刪改課程"
      End
      Begin VB.Menu mn_searchlesson 
         Caption         =   "查詢課程"
      End
   End
   Begin VB.Menu mn_class0 
      Caption         =   "班級管理"
      Begin VB.Menu mn_class 
         Caption         =   "班級管理"
      End
      Begin VB.Menu mn_searchclass 
         Caption         =   "查詢班級"
      End
   End
   Begin VB.Menu mn_about 
      Caption         =   "關(guān)于..."
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
FrmMain.Height = Screen.Height
FrmMain.Width = Screen.Width
FrmMain.Top = 0
FrmMain.Left = 0
End Sub

Private Sub mn_about_Click()
Frmabout.Show
End Sub



Private Sub mn_addlesson_Click()
Frmadd_course.Show
End Sub

Private Sub mn_addstudent_Click()
Frmadd_student.Show
End Sub
Private Sub mn_class_Click()
Frmadmin_class.Show
End Sub

Private Sub mn_dellesson_Click()
Frmdel_course.Show
End Sub

Private Sub mn_delscore_Click()
Frmdel_score.Show
End Sub

Private Sub mn_delstudent_Click()
Frmdel_student.Show
End Sub

Private Sub mn_deluser_Click()
Frmdel_user.Show
End Sub

Private Sub mn_editpwd_Click()
Frmedit_user.Show
End Sub

Private Sub mn_exit_Click()
Unload Me
End Sub


Private Sub mn_newuser_Click()
FrmNew_user.Show
End Sub

Private Sub mn_score_Click()
Frmadd_score.Show
End Sub

Private Sub mn_searchclass_Click()
Frmquery_class.Show
End Sub

Private Sub mn_searchlesson_Click()
Frmquery_course.Show
End Sub

Private Sub mn_searchscore_Click()
Frmquery_score.Show
End Sub

Private Sub mn_searchstudent_Click()
Frmquery_student.Show
End Sub