VERSION 5.00
Begin VB.MDIForm MDIMainForm 
   BackColor       =   &H8000000C&
   Caption         =   "MDIMainForm"
   ClientHeight    =   5730
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   8085
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu 系統(tǒng)管理 
      Caption         =   "系統(tǒng)管理"
      Begin VB.Menu Logout 
         Caption         =   "注銷"
      End
      Begin VB.Menu editPwd 
         Caption         =   "修改密碼"
      End
      Begin VB.Menu addUser 
         Caption         =   "添加用戶"
      End
   End
   Begin VB.Menu sportCfg 
      Caption         =   "運動會設(shè)置"
      Begin VB.Menu sportPrjCfg 
         Caption         =   "運動項目管理"
      End
      Begin VB.Menu classCdf 
         Caption         =   "班級管理"
      End
      Begin VB.Menu sportorCfg 
         Caption         =   "選手管理"
      End
      Begin VB.Menu sportsScord 
         Caption         =   "項目積分設(shè)置"
      End
   End
   Begin VB.Menu applyCfg 
      Caption         =   "報名管理"
      Begin VB.Menu applyTb 
         Caption         =   "報名表"
      End
   End
   Begin VB.Menu resultCfg 
      Caption         =   "成績管理"
      Begin VB.Menu resultInput 
         Caption         =   "成績錄入"
      End
      Begin VB.Menu resultQuery 
         Caption         =   "成績查詢"
      End
   End
End
Attribute VB_Name = "MDIMainForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub addUser_Click()
    UserForm.Show
    UserForm.classshowtitle
    UserForm.classshowdata
End Sub

Private Sub applyTb_Click()
    applyForm.Show
    applyForm.init
    applyForm.classshowtitle
    applyForm.classshowdata
End Sub

Private Sub classCdf_Click()
    classForm.Show
    classForm.classshowtitle
    classForm.classshowdata
End Sub

Private Sub editPwd_Click()
  editPwdForm.Show
End Sub

Private Sub Logout_Click()
  If MsgBox("確定要注銷嗎？", vbExclamation + vbOKCancel, "警告") = vbOK Then
    LoginForm.Show
    Unload Me
  End If
End Sub

Private Sub resultInput_Click()
    resultForm.Show
    resultForm.classshowtitle
    resultForm.classshowdata
End Sub

Private Sub resultQuery_Click()
    resultQueryForm.Show
    resultQueryForm.classshowtitle
    resultQueryForm.classshowdata
End Sub

Private Sub sportorCfg_Click()
    sportorForm.Show
    sportorForm.classshowtitle
    sportorForm.classshowdata
End Sub

Private Sub sportPrjCfg_Click()
    sportsForm.Show
    sportsForm.classshowtitle
    sportsForm.classshowdata
End Sub

Private Sub sportsScord_Click()
    ScordForm.Show
    ScordForm.init
    ScordForm.classshowtitle
    ScordForm.classshowdata
End Sub