form1.frm

排课不完全版

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "课表管理系统"
   ClientHeight    =   3630
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   5835
   LinkTopic       =   "Form1"
   ScaleHeight     =   3630
   ScaleWidth      =   5835
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu a 
      Caption         =   "基本信息"
      WindowList      =   -1  'True
      Begin VB.Menu ban 
         Caption         =   "班级信息"
      End
      Begin VB.Menu js 
         Caption         =   "教师信息"
      End
      Begin VB.Menu kc 
         Caption         =   "课程信息"
      End
      Begin VB.Menu jsh 
         Caption         =   "教室信息"
      End
      Begin VB.Menu sj 
         Caption         =   "时间信息"
      End
   End
   Begin VB.Menu b 
      Caption         =   "排课安排"
   End
   Begin VB.Menu c 
      Caption         =   "课表排列"
   End
   Begin VB.Menu d 
      Caption         =   "课表查询"
   End
   Begin VB.Menu e 
      Caption         =   "打印"
   End
   Begin VB.Menu f 
      Caption         =   "帮助"
   End
   Begin VB.Menu g 
      Caption         =   "推出系统"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ban_Click()
Form1.Hide
Unload Me
Form2.Show vbModal
End Sub

Private Sub js_Click()
Form1.Hide
Unload Me
Form3.Show vbModal
End Sub

Private Sub jsh_Click()
Form1.Hide
Unload Me
Form5.Show vbModal
End Sub

Private Sub kc_Click()
Form1.Hide
Unload Me
Form4.Show vbModal
End Sub

Private Sub sj_Click()
Form1.Hide
Unload Me
Form4.Show vbModal
End Sub