form0503.frm

VB实验教程源码

VERSION 5.00
Begin VB.Form FormCover 
   Caption         =   "学生信息管理"
   ClientHeight    =   4935
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   8175
   LinkTopic       =   "Form1"
   ScaleHeight     =   4935
   ScaleWidth      =   8175
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu mnuInput 
      Caption         =   "输入数据(&I)"
      Begin VB.Menu mnuInputStu 
         Caption         =   "输入学生信息(&S)"
         Shortcut        =   ^S
      End
      Begin VB.Menu mnuInputScore 
         Caption         =   "输入学生成绩(&O)"
         Shortcut        =   ^O
      End
      Begin VB.Menu mnuInputDep 
         Caption         =   "输入系别"
      End
   End
   Begin VB.Menu mnuQuery 
      Caption         =   "查询数据(&Q)"
      Begin VB.Menu mnuQueryStu 
         Caption         =   "查询学生信息"
      End
      Begin VB.Menu mnuQueryScore 
         Caption         =   "查询学生成绩"
         Shortcut        =   ^G
      End
   End
   Begin VB.Menu mnuOutput 
      Caption         =   "输出数据(&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         =   "关键字"
      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)
'在窗体上释放鼠标
    If Button = 2 Then                      ' 鼠标右键
            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()
'打开输入学生成绩窗体
    Form2.Show
End Sub

Private Sub mnuInputStu_Click()
'打开输入学生信息窗体
    Form1.Show
End Sub