VERSION 5.00
Begin VB.Form FormCover 
   Caption         =   "學(xué)生信息管理"
   ClientHeight    =   4935
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   8175
   LinkTopic       =   "Form1"
   ScaleHeight     =   4935
   ScaleWidth      =   8175
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu mnuInput 
      Caption         =   "輸入數(shù)據(jù)(&I)"
      Begin VB.Menu mnuInputStu 
         Caption         =   "輸入學(xué)生信息(&S)"
         Shortcut        =   ^S
      End
      Begin VB.Menu mnuInputScore 
         Caption         =   "輸入學(xué)生成績(&O)"
         Shortcut        =   ^O
      End
      Begin VB.Menu mnuInputDep 
         Caption         =   "輸入系別"
      End
   End
   Begin VB.Menu mnuQuery 
      Caption         =   "查詢數(shù)據(jù)(&Q)"
      Begin VB.Menu mnuQueryStu 
         Caption         =   "查詢學(xué)生信息"
      End
      Begin VB.Menu mnuQueryScore 
         Caption         =   "查詢學(xué)生成績"
         Shortcut        =   ^G
      End
   End
   Begin VB.Menu mnuOutput 
      Caption         =   "輸出數(shù)據(jù)(&O)"
      Begin VB.Menu mnuOutputTab 
         Caption         =   "顯示圖表"
      End
      Begin VB.Menu mnuOutputRep 
         Caption         =   "顯示報表"
      End
   End
   Begin VB.Menu mnuInputExit 
      Caption         =   "退出(&X)"
      NegotiatePosition=   2  'Middle
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "幫助"
      Visible         =   0   'False
      Begin VB.Menu mnuHelpTopic 
         Caption         =   "主題"
      End
      Begin VB.Menu mnuHelpKey 
         Caption         =   "關(guān)鍵字"
      End
   End
End
Attribute VB_Name = "FormCover"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'在窗體上釋放鼠標(biāo)
    If Button = 2 Then                      ' 鼠標(biāo)右鍵
            PopupMenu mnuHelp
        End If
End Sub

Private Sub mnuInputDep_Click()
'打開輸入系別窗體
    Form3.Show
End Sub

Private Sub mnuInputExit_Click()
'退出
    Unload Me
End Sub

Private Sub mnuInputScore_Click()
'打開輸入學(xué)生成績窗體
    Form2.Show
End Sub

Private Sub mnuInputStu_Click()
'打開輸入學(xué)生信息窗體
    Form1.Show
End Sub