frmmain.frm

学校排课管理系统 科目的查询

VERSION 5.00
Begin VB.Form frmmain 
   BackColor       =   &H00FF8080&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "排课系统主窗口"
   ClientHeight    =   10230
   ClientLeft      =   150
   ClientTop       =   720
   ClientWidth     =   14970
   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"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmmain.frx":0000
   ScaleHeight     =   10230
   ScaleWidth      =   14970
   StartUpPosition =   3  '窗口缺省
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H00FF8080&
      BackStyle       =   0  'Transparent
      Caption         =   "  "
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   36
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFF00&
      Height          =   975
      Left            =   0
      TabIndex        =   0
      Top             =   360
      Width           =   14535
   End
   Begin VB.Menu w1 
      Caption         =   ""
   End
   Begin VB.Menu w2 
      Caption         =   ""
   End
   Begin VB.Menu edit 
      Caption         =   "编辑(&e)"
      WindowList      =   -1  'True
      Begin VB.Menu xi 
         Caption         =   "编辑专业方向信息(&h)"
      End
      Begin VB.Menu major 
         Caption         =   "编辑专业信息(&m)"
      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 fmajor 
         Caption         =   "查询和打印专业课程表"
      End
      Begin VB.Menu fteacher 
         Caption         =   "查询和打印老师课程表"
      End
      Begin VB.Menu fclassroom 
         Caption         =   "查询和打印教室课程表"
      End
   End
   Begin VB.Menu limit 
      Caption         =   "输入限制条件(&l)"
      Begin VB.Menu r 
         Caption         =   "年级限制条件"
      End
      Begin VB.Menu limitmajor 
         Caption         =   "专业限制条件"
      End
      Begin VB.Menu limiteacher 
         Caption         =   "教师限制条件"
      End
      Begin VB.Menu limitclassroom 
         Caption         =   "教室限制条件"
      End
   End
   Begin VB.Menu inital 
      Caption         =   "系统数据初始化(&i)"
   End
   Begin VB.Menu exit 
      Caption         =   "退出(&x)"
   End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim rstteacher As DAO.Recordset
Dim rstcourseteacher As DAO.Recordset
Dim rstxbh As DAO.Recordset
Dim rstcoursexbh As DAO.Recordset
Dim rstmajor As DAO.Recordset
Dim rstcoursemajor As DAO.Recordset
Dim rstclass As DAO.Recordset
Dim rstcourseclass As DAO.Recordset
Dim rst As DAO.Recordset
Dim rst1 As DAO.Recordset
Dim db As DAO.Database
Dim dbcourse As DAO.Database
Dim rstclassroom As DAO.Recordset
Dim rstcourseclassroom As DAO.Recordset
Option Explicit

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
frmfind.Show vbModal

End Sub

Private Sub Form_Load()
Label1.Caption = "    欢 迎 进 入 排 课 系 统 主 界 面"
   
End Sub

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

Private Sub inital_Click()
Label1.Caption = "正 在 进 行 数 据 初 始 化"
Set dbcourse = DBEngine.Workspaces(0).OpenDatabase("d:\coursetable.mdb")
Set rstcourseclassroom = dbcourse.OpenRecordset("select * from courseclassroom")
rstcourseclassroom.MoveLast
rstcourseclassroom.MoveFirst
Do While Not rstcourseclassroom.EOF()
   rstcourseclassroom.Delete
   If rstcourseclassroom.EOF() Then
      rstcourseclassroom.MoveLast
   Else
      rstcourseclassroom.MoveNext
   End If
Loop
Set db = DBEngine.Workspaces(0).OpenDatabase("d:\basic.mdb")
Set rstclassroom = db.OpenRecordset("select * from classroom")
rstclassroom.MoveFirst
Do Until rstclassroom.EOF()
   rstcourseclassroom.AddNew
   rstcourseclassroom.Fields("classroomid") = rstclassroom.Fields("classroomid")
   rstcourseclassroom.Fields("type") = rstclassroom.Fields("type")
   rstcourseclassroom.Update
   rstclassroom.MoveNext
Loop
Set rstcourseclass = dbcourse.OpenRecordset("select * from courseclass")
rstcourseclass.MoveLast
rstcourseclass.MoveFirst
Do While Not rstcourseclass.EOF()
   rstcourseclass.Delete
   If rstcourseclass.EOF() Then
      rstcourseclass.MoveLast
   Else
      rstcourseclass.MoveNext
   End If
Loop
Set rstclass = db.OpenRecordset("select * from class")
rstclass.MoveFirst
Do Until rstclass.EOF()
   rstcourseclass.AddNew
   rstcourseclass.Fields("classid") = rstclass.Fields("classid")
   rstcourseclass.Update
   rstclass.MoveNext
Loop
Set rstcoursemajor = dbcourse.OpenRecordset("select * from coursemajor")
rstcoursemajor.MoveLast
rstcoursemajor.MoveFirst
Do While Not rstcoursemajor.EOF()
   rstcoursemajor.Delete
   If rstcoursemajor.EOF() Then
      rstcoursemajor.MoveLast
   Else
      rstcoursemajor.MoveNext
   End If
Loop
Set rstmajor = db.OpenRecordset("select * from major")
rstmajor.MoveFirst
Do Until rstmajor.EOF()
   rstcoursemajor.AddNew
   rstcoursemajor.Fields("majorid") = rstmajor.Fields("majorid")
   rstcoursemajor.Update
   rstmajor.MoveNext
Loop

Set rstcourseteacher = dbcourse.OpenRecordset("select * from courseteacher")
rstcourseteacher.MoveLast
rstcourseteacher.MoveFirst
Do While Not rstcourseteacher.EOF()
   rstcourseteacher.Delete
   If rstcourseteacher.EOF() Then
      rstcourseteacher.MoveLast
   Else
      rstcourseteacher.MoveNext
   End If
Loop
Set rstteacher = db.OpenRecordset("select * from teacher")
rstteacher.MoveFirst
Do Until rstteacher.EOF()
   rstcourseteacher.AddNew
   rstcourseteacher.Fields("teacherid") = rstteacher.Fields("teacherid")
   rstcourseteacher.Update
   rstteacher.MoveNext
Loop
Set rstcoursexbh = dbcourse.OpenRecordset("select * from coursegrade")
rstcoursexbh.MoveLast
rstcoursexbh.MoveFirst
Do While Not rstcoursexbh.EOF()
   rstcoursexbh.Delete
   If rstcoursexbh.EOF() Then
      rstcoursexbh.MoveLast
   Else
      rstcoursexbh.MoveNext
   End If
Loop
   rstcoursexbh.AddNew
   rstcoursexbh.Fields("gradeid") = (Year(Date) - 1)
   rstcoursexbh.Update
    rstcoursexbh.AddNew
  
   rstcoursexbh.Fields("gradeid") = Year(Now())
   rstcoursexbh.Update

Label1.Caption = "   数    据   初   始   化   完   成  !"
    db.Close
    dbcourse.Close
End Sub

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

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

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

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

Private Sub r_Click()
Unload Me
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