form2.frm

学校田径运动会管理系统是典型的信息管理系统

VERSION 5.00
Begin VB.Form 主界面 
   AutoRedraw      =   -1  'True
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "学校田径运动会管理系统"
   ClientHeight    =   7590
   ClientLeft      =   150
   ClientTop       =   840
   ClientWidth     =   12015
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7590
   ScaleWidth      =   12015
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture1 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   9000
      Left            =   0
      Picture         =   "Form2.frx":0000
      ScaleHeight     =   9000
      ScaleWidth      =   12000
      TabIndex        =   0
      Top             =   0
      Width           =   12000
      Begin VB.Label Label1 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         Caption         =   "学校田径运动会管理系统"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   42
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   1335
         Left            =   1320
         TabIndex        =   1
         Top             =   840
         Width           =   9255
      End
   End
   Begin VB.Menu mnuedit 
      Caption         =   "前期编排"
      Index           =   1
      Begin VB.Menu mnuedititem 
         Caption         =   "定义比赛项目"
         Index           =   2
      End
      Begin VB.Menu mnueditpost 
         Caption         =   "设置工作岗位"
         Index           =   3
      End
      Begin VB.Menu mnueditpersonnel 
         Caption         =   "录入工作人员"
         Index           =   4
      End
      Begin VB.Menu mnueditregister 
         Caption         =   "运动员报名"
         Index           =   5
      End
      Begin VB.Menu mnueditresult 
         Caption         =   "输入纪录成绩"
         Index           =   6
      End
      Begin VB.Menu mnueditroll 
         Caption         =   "生成秩序册"
         Index           =   7
      End
      Begin VB.Menu mnueditlook 
         Caption         =   "查看秩序册"
         Index           =   8
      End
      Begin VB.Menu mnueditout 
         Caption         =   "退出"
         Index           =   28
      End
   End
   Begin VB.Menu mnumanage 
      Caption         =   "比赛管理"
      Index           =   9
      Begin VB.Menu mnumanagefield 
         Caption         =   "田赛成绩录入与输出"
         Index           =   11
      End
      Begin VB.Menu mnumanagetrack 
         Caption         =   "径赛成绩录入与输出"
         Index           =   10
      End
      Begin VB.Menu mnumanageall 
         Caption         =   "全能成绩录入与输出"
         Index           =   12
      End
   End
   Begin VB.Menu mnusearch 
      Caption         =   "查询输出"
      Index           =   14
      Begin VB.Menu mnusearchathlete 
         Caption         =   "运动员成绩"
         Index           =   15
      End
      Begin VB.Menu mnusearchitem 
         Caption         =   "项目成绩"
         Index           =   16
      End
      Begin VB.Menu mnusearchunit 
         Caption         =   "代表队查询"
         Index           =   17
      End
      Begin VB.Menu mnusearchtotal 
         Caption         =   "总分表"
         Index           =   18
      End
      Begin VB.Menu mnusearchpro 
         Caption         =   "项目得分表"
         Index           =   19
      End
      Begin VB.Menu mnusearchpos 
         Caption         =   "成绩名次表查询"
         Index           =   20
      End
      Begin VB.Menu mnusearchremit 
         Caption         =   "成绩汇册"
         Index           =   21
      End
   End
   Begin VB.Menu mnuhelp 
      Caption         =   "帮助"
      Index           =   30
      Begin VB.Menu mnuhelpsystem 
         Caption         =   "系统工具"
         Index           =   22
         Begin VB.Menu mnuhelpsystemdata 
            Caption         =   "运动会数据备份与恢复"
            Index           =   23
         End
         Begin VB.Menu mnuhelpsystembrowse 
            Caption         =   "系统数据表浏览"
            Index           =   24
         End
         Begin VB.Menu mnuhelpsystemcustomer 
            Caption         =   "用户管理"
            Index           =   25
         End
      End
      Begin VB.Menu mnuhelpabout 
         Caption         =   "关于系统"
         Index           =   31
      End
   End
End
Attribute VB_Name = "主界面"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Private Sub mnuedititem_Click(Index As Integer)
项目定义.Show 1
End Sub

Private Sub mnueditlook_Click(Index As Integer)
DataReport1.Show 1
End Sub

Private Sub mnueditout_Click(Index As Integer)
End
End Sub

Private Sub mnueditpersonnel_Click(Index As Integer)
录入工作人员.Show 1
End Sub


Private Sub mnueditpost_Click(Index As Integer)
定义工作岗位.Show 1
End Sub

Private Sub mnueditregister_Click(Index As Integer)
运动员报名.Show 1
End Sub

Private Sub mnueditresult_Click(Index As Integer)
输入纪录成绩.Show 1
End Sub

Private Sub mnueditroll_Click(Index As Integer)
参数设置.Show 1
End Sub

Private Sub mnuhelpabout_Click(Index As Integer)
关于系统.Show 1
End Sub

Private Sub mnuhelpsystembrowse_Click(Index As Integer)
数据表浏览.Show 1
End Sub

Private Sub mnuhelpsystemcustomer_Click(Index As Integer)
用户管理.Show
End Sub

Private Sub mnuhelpsystemdata_Click(Index As Integer)
bak_res_frm.Show 1
End Sub

Private Sub mnumanageall_Click(Index As Integer)
全能成绩.Show 1
End Sub

Private Sub mnumanagefield_Click(Index As Integer)
田赛.Show 1
End Sub

Private Sub mnumanagetrack_Click(Index As Integer)
径赛成绩录入与输出.Show
End Sub

Private Sub mnusearchathlete_Click(Index As Integer)
查询输出.SSTab1.Tab = 0
查询输出.Show 1

End Sub

Private Sub mnusearchitem_Click(Index As Integer)
查询输出.SSTab1.Tab = 1
查询输出.Show 1

End Sub

Private Sub mnusearchpos_Click(Index As Integer)
查询输出.SSTab1.Tab = 5
查询输出.Show 1

End Sub

Private Sub mnusearchpro_Click(Index As Integer)
查询输出.SSTab1.Tab = 4
查询输出.Show 1

End Sub

Private Sub mnusearchremit_Click(Index As Integer)
查询输出.SSTab1.Tab = 6
查询输出.Show 1

End Sub

Private Sub mnusearchtotal_Click(Index As Integer)
查询输出.SSTab1.Tab = 3
查询输出.Show 1

End Sub

Private Sub mnusearchunit_Click(Index As Integer)
查询输出.SSTab1.Tab = 2
查询输出.Show 1

End Sub