VERSION 5.00
Begin VB.MDIForm frmMain 
   AutoShowChildren=   0   'False
   BackColor       =   &H00A6783A&
   Caption         =   "學(xué)生成績管理系統(tǒng)..... Welcome you!"
   ClientHeight    =   8655
   ClientLeft      =   2805
   ClientTop       =   1455
   ClientWidth     =   10110
   Icon            =   "MDIfrmMain.frx":0000
   LockControls    =   -1  'True
   Begin VB.Menu mMDFI 
      Caption         =   "資料"
      Begin VB.Menu tLesson 
         Caption         =   "課程資料"
      End
      Begin VB.Menu tStudent 
         Caption         =   "學(xué)生資料"
      End
   End
   Begin VB.Menu mScore 
      Caption         =   "成績"
      Begin VB.Menu tMdfiScore 
         Caption         =   "成績修改"
      End
   End
   Begin VB.Menu mOrder 
      Caption         =   "排名"
      Begin VB.Menu tBottom 
         Caption         =   "查看名次"
      End
   End
   Begin VB.Menu mExit 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If MsgBox("真的要退出嗎？", vbYesNo + vbQuestion + vbDefaultButton2, "請確認(rèn)") = vbNo Then Cancel = True
End Sub

Private Sub mExit_Click()
    Unload Me
End Sub

Private Sub tBottom_Click()
    frmStuPlace.Show
End Sub

Private Sub tLesson_Click()
    frmLesnIfm.Show
End Sub

Private Sub tMdfiScore_Click()
    frmMdfiScore.Show
End Sub

Private Sub tStudent_Click()
    frmStuIfm.Show
End Sub