mdiform1.frm

以前做的课程设计,可用于学习VB与ACCESS的连接!

VERSION 5.00
Begin VB.MDIForm MD 
   BackColor       =   &H8000000C&
   Caption         =   "班级管理系统"
   ClientHeight    =   8880
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   10815
   ScrollBars      =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Menu BJQK 
      Caption         =   "班级情况"
      WindowList      =   -1  'True
      Begin VB.Menu XSKQ 
         Caption         =   "学生考勤"
         Shortcut        =   ^Q
      End
      Begin VB.Menu XSGB 
         Caption         =   "学生干部"
         Shortcut        =   ^B
      End
      Begin VB.Menu SKXX 
         Caption         =   "授课信息"
         Shortcut        =   ^X
      End
      Begin VB.Menu BFKZ 
         Caption         =   "班费开支"
         Shortcut        =   ^Z
      End
   End
   Begin VB.Menu XXQK 
      Caption         =   "学生情况"
      Begin VB.Menu XXMC 
         Caption         =   "学生名册"
         Shortcut        =   ^C
      End
      Begin VB.Menu XSCJ 
         Caption         =   "学生成绩"
         Shortcut        =   ^J
      End
      Begin VB.Menu QZPX 
         Caption         =   "取证培训"
         Shortcut        =   ^P
      End
      Begin VB.Menu ZSQK 
         Caption         =   "住宿情况"
         Shortcut        =   ^K
      End
   End
   Begin VB.Menu XTGL 
      Caption         =   "系统管理"
   End
   Begin VB.Menu BZ 
      Caption         =   "帮助"
   End
   Begin VB.Menu TC 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "MD"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False







Private Sub XSGB_Click()
Close All
bgbfrm.Show

End Sub

Private Sub XSKQ_Click()
Close All
kqfrm.Show
End Sub