mdiform1.frm

运动会成绩统计系统。运动员的添加

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "运动会管理系统"
   ClientHeight    =   3120
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   6150
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIForm1.frx":0000
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu muna 
      Caption         =   "成绩维护"
      Begin VB.Menu muna1 
         Caption         =   "个人成绩录入"
      End
      Begin VB.Menu muna2 
         Caption         =   "个人成绩修改"
      End
   End
   Begin VB.Menu munb 
      Caption         =   "运动员情况"
      Begin VB.Menu munb1 
         Caption         =   "个人信息查询"
      End
      Begin VB.Menu munb2 
         Caption         =   "成绩查询"
      End
      Begin VB.Menu munb3 
         Caption         =   "总成绩与金牌"
      End
      Begin VB.Menu munb4 
         Caption         =   "统计信息格式化"
      End
   End
   Begin VB.Menu munc 
      Caption         =   "运动队情况"
      Begin VB.Menu munc1 
         Caption         =   "运动队情况查询"
      End
   End
   Begin VB.Menu mund 
      Caption         =   "分类排名"
      Begin VB.Menu mund1 
         Caption         =   "运动队、运动员总成绩排名查询"
      End
   End
   Begin VB.Menu mune 
      Caption         =   "其它查询"
      Begin VB.Menu mune1 
         Caption         =   "运动员人数的个项统计"
      End
      Begin VB.Menu mune2 
         Caption         =   "各运动项目所有参赛人员"
      End
   End
   Begin VB.Menu munf 
      Caption         =   "添加"
      Begin VB.Menu munf1 
         Caption         =   "运动员"
      End
      Begin VB.Menu munf3 
         Caption         =   "运动队"
      End
      Begin VB.Menu munf2 
         Caption         =   "新项目"
      End
      Begin VB.Menu munf4 
         Caption         =   "参赛副项"
      End
   End
   Begin VB.Menu mung 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub muna1_Click()
Form2.Show

End Sub

Private Sub muna2_Click()
Form6.Show
End Sub

Private Sub munb1_Click()
Form7.Show
End Sub

Private Sub munb2_Click()
Form8.Show
End Sub

Private Sub munb3_Click()
Dim answer As Integer
'Form9.Show
answer = MsgBox("此项在所有参赛运动员结束项目并完全录入成绩后，执行统计才真实。您确定要执行吗？", vbOKCancel + vbQuestion, "系统提示")
If answer = 1 Then
    Form9.Show
End If
End Sub

Private Sub munb4_Click()
Form10.Show
End Sub

Private Sub munc1_Click()
Form11.Show
End Sub

Private Sub mund1_Click()
Form12.Show
End Sub

Private Sub mune1_Click()
Form13.Show
End Sub



Private Sub mune2_Click()
Form15.Show
End Sub

Private Sub munf1_Click()
Form3.Show
End Sub

Private Sub munf2_Click()
Form4.Show
End Sub

Private Sub munf3_Click()
Form5.Show
End Sub

Private Sub munf4_Click()
Form14.Show
End Sub

Private Sub mung_Click()
If MsgBox("您真的要退出本系统的使用吗？", vbYesNo + vbQuestion, "退出询问") = vbYes Then
   '把记录集从内存中清除
   Set adors = Nothing
   '断开与数据库的连接
   adocon.Close
   '把连接变量从内存中清除
   Set adocon = Nothing
   '从内存中卸载登录窗体，终止程序的执行
   Unload Me
End If
End Sub

Private Sub munh_Click()
Form15.Show
End Sub