mdimainform.frm

运动会管理系统 运动会管理系统

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 系统管理 
      Caption         =   "系统管理"
      Begin VB.Menu Logout 
         Caption         =   "注销"
      End
      Begin VB.Menu editPwd 
         Caption         =   "修改密码"
      End
      Begin VB.Menu addUser 
         Caption         =   "添加用户"
      End
   End
   Begin VB.Menu sportCfg 
      Caption         =   "运动会设置"
      Begin VB.Menu sportPrjCfg 
         Caption         =   "运动项目管理"
      End
      Begin VB.Menu classCdf 
         Caption         =   "班级管理"
      End
      Begin VB.Menu sportorCfg 
         Caption         =   "选手管理"
      End
      Begin VB.Menu sportsScord 
         Caption         =   "项目积分设置"
      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