form5.frm

来自「ＶＢ实现成绩管理系统．包括成绩录入与试卷评审等．」· FRM 代码 · 共 72 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   7980
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   9960
   LinkTopic       =   "Form1"
   Picture         =   "Form5.frx":0000
   ScaleHeight     =   7980
   ScaleWidth      =   9960
   StartUpPosition =   2  '屏幕中心
   Begin VB.Menu mnuFileLuRu 
      Caption         =   "成绩录入与查询"
      Index           =   0
      WindowList      =   -1  'True
   End
   Begin VB.Menu mnuFilePingShen 
      Caption         =   "成绩评审"
      Index           =   1
   End
   Begin VB.Menu mnuFileTongJi 
      Caption         =   "成绩统计与试卷评估"
      Index           =   2
   End
   Begin VB.Menu mnuFileChenJiDan 
      Caption         =   "成绩单生成"
      Index           =   3
   End
   Begin VB.Menu mnuFileTuiChu 
      Caption         =   "退出"
      Index           =   4
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Paint()
Me.PaintPicture Me.Picture, 0, 0, ScaleWidth, ScaleHeight '重绘使其大小与窗口大小一致

End Sub

Private Sub mnuFile_Click(Index As Integer)

End Sub

Private Sub mnuFileChenJiDan_Click(Index As Integer)
If Index = 3 Then Form5.Show
End Sub

Private Sub mnuFileLuRu_Click(Index As Integer)
If Index = 0 Then Form2.Show
End Sub

Private Sub mnuFilePingShen_Click(Index As Integer)
If Index = 1 Then Form3.Show
End Sub

Private Sub mnuFileTongJi_Click(Index As Integer)
If Index = 2 Then Form4.Show
End Sub

Private Sub mnuFileTuiChu_Click(Index As Integer)
    End
End Sub