mdifrmmain.frm

基于vb的程序管理系统

VERSION 5.00
Begin VB.MDIForm frmMain 
   AutoShowChildren=   0   'False
   BackColor       =   &H00A6783A&
   Caption         =   "学生成绩管理系统..... Welcome you!"
   ClientHeight    =   8655
   ClientLeft      =   2805
   ClientTop       =   1455
   ClientWidth     =   10110
   Icon            =   "MDIfrmMain.frx":0000
   LockControls    =   -1  'True
   Begin VB.Menu mMDFI 
      Caption         =   "资料"
      Begin VB.Menu tLesson 
         Caption         =   "课程资料"
      End
      Begin VB.Menu tStudent 
         Caption         =   "学生资料"
      End
   End
   Begin VB.Menu mScore 
      Caption         =   "成绩"
      Begin VB.Menu tMdfiScore 
         Caption         =   "成绩修改"
      End
   End
   Begin VB.Menu mOrder 
      Caption         =   "排名"
      Begin VB.Menu tBottom 
         Caption         =   "查看名次"
      End
   End
   Begin VB.Menu mExit 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If MsgBox("真的要退出吗？", vbYesNo + vbQuestion + vbDefaultButton2, "请确认") = vbNo Then Cancel = True
End Sub

Private Sub mExit_Click()
    Unload Me
End Sub

Private Sub tBottom_Click()
    frmStuPlace.Show
End Sub

Private Sub tLesson_Click()
    frmLesnIfm.Show
End Sub

Private Sub tMdfiScore_Click()
    frmMdfiScore.Show
End Sub

Private Sub tStudent_Click()
    frmStuIfm.Show
End Sub