frmmain.frm

VB做的排课

VERSION 5.00
Begin VB.Form frmmain 
   BackColor       =   &H00FF8080&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "排课系统主窗口 版权所有,未经允许,不得随意复制!"
   ClientHeight    =   8055
   ClientLeft      =   150
   ClientTop       =   540
   ClientWidth     =   20025
   FillColor       =   &H00FF8080&
   FillStyle       =   0  'Solid
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   26.25
      Charset         =   134
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H00000000&
   LinkTopic       =   "Form1"
   Picture         =   "frmmain.frx":0000
   ScaleHeight     =   8055
   ScaleWidth      =   20025
   WindowState     =   2  'Maximized
   Begin VB.Menu edit 
      Caption         =   "排课编辑(&E)"
      WindowList      =   -1  'True
      Begin VB.Menu xi 
         Caption         =   "编辑班级信息(&H)"
      End
      Begin VB.Menu eteacher 
         Caption         =   "编辑老师信息(&T)"
      End
      Begin VB.Menu classroom 
         Caption         =   "编辑教室信息(&C)"
      End
      Begin VB.Menu course 
         Caption         =   "编辑课程信息(&S)"
      End
      Begin VB.Menu teachplan 
         Caption         =   "编辑教学计划(&L)"
      End
   End
   Begin VB.Menu autocourse 
      Caption         =   "自动生成课表(&A)"
   End
   Begin VB.Menu find 
      Caption         =   "查询和打印课程表(&F)"
      Begin VB.Menu fgrade 
         Caption         =   "查询和打印班级课程表"
      End
      Begin VB.Menu fteacher 
         Caption         =   "查询和打印老师课程表"
      End
      Begin VB.Menu fclassroom 
         Caption         =   "查询和打印教室课程表"
      End
   End
   Begin VB.Menu exit 
      Caption         =   "退出系统(&X)"
   End
   Begin VB.Menu help 
      Caption         =   "帮助 (&H)"
      Begin VB.Menu about 
         Caption         =   "关于主题(&A)"
      End
      Begin VB.Menu helpit 
         Caption         =   "帮助信息"
      End
   End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Option Explicit

Private Sub about_Click()
    frmAbout.Show vbModal
End Sub

Private Sub autocourse_Click()
Unload Me
Frmmakecourse.Show vbModal
End Sub

Private Sub classroom_Click()
Unload Me
Frmclassroom.Show vbModal
End Sub

Private Sub course_Click()
Unload Me
frmcourse.Show vbModal
End Sub

Private Sub eteacher_Click()
Unload Me
frmteacher.Show vbModal
End Sub

Private Sub exit_Click()
Unload Me

End Sub

Private Sub fclassroom_Click()
Unload Me
Frmclassroomfind.Show vbModal
End Sub

Private Sub fgrade_Click()
Unload Me
Frmgradefind.Show vbModal
End Sub

Private Sub fmajor_Click()
Unload Me
'wwddff  frmfind.Show vbModal

End Sub




Private Sub fteacher_Click()
Unload Me
Frmteacherfind.Show vbModal
End Sub



Private Sub limitclassroom_Click()
Unload Me
'wwddff  Frmclassroomlimit.Show vbModal
End Sub

Private Sub limiteacher_Click()
frmmain.Hide
frmmain.Cls
Unload Me
'wwddff  frmteacherlimit.Show vbModal
End Sub

Private Sub limitmajor_Click()
Unload Me
'wwddff Frmmajorlimit.Show vbModal
End Sub

Private Sub major_Click()
frmmain.Hide
Unload Me
'wwddff frmmajor.Show vbModal
End Sub

Private Sub r_Click()
Unload Me
'wwddff Frmgradelimit.Show vbModal
End Sub

Private Sub teachplan_Click()
Unload Me
frmwholeteachplan.Show vbModal
End Sub

Private Sub xi_Click()
frmmain.Hide
Unload Me
Frmclass.Show vbModal

End Sub