⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 自动生成课程表.frm

📁 学校排课管理系统 科目的查询
💻 FRM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
       
       Set rstmajorcourse = dbcourse.OpenRecordset("select * from coursemajor")
       rstmajorcourse.Filter = "majorid='" & rstplan.Fields("majorid") & "'"
       Set rstmajorcourse = rstmajorcourse.OpenRecordset()
       If rstmajorcourse.Fields(i & j) = "1" Then
        Set rstteachercourse = dbcourse.OpenRecordset("select * from courseteacher")
         rstteachercourse.Filter = "teacherid='" & rstplan.Fields("teacherid") & "'"
         Set rstteachercourse = rstteachercourse.OpenRecordset()
        If rstteachercourse.Fields(i & j) = "1" Then
         Set rstclassroomcourse = dbcourse.OpenRecordset("select * from courseclassroom where type='2'")
         Do Until rstclassroomcourse.Fields(i & j) = "1"
           rstclassroomcourse.MoveNext
         Loop
          Set rstmajor = db.OpenRecordset("select * from major ")
       rstmajor.Filter = "majorid='" & rstmajorcourse.Fields("majorid") & "'"
       Set rstmajor = rstmajor.OpenRecordset()
         Set rstcourse = db.OpenRecordset("select * from course")
         rstcourse.Filter = "courseid='" & rstplan.Fields("courseid") & "'"
         Set rstcourse = rstcourse.OpenRecordset()
         Set rstteacher = db.OpenRecordset("select * from teacher")
         rstteacher.Filter = "teacherid='" & rstplan.Fields("teacherid") & "'"
         Set rstteacher = rstteacher.OpenRecordset()
         Set rstclassroom = db.OpenRecordset("select * from classroom")
         rstclassroom.Filter = "classroomid='" & rstclassroomcourse.Fields("classroomid") & "'"
         Set rstclassroom = rstclassroom.OpenRecordset()
         rstmajorcourse.edit
         rstmajorcourse.Fields(i & j) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstclassroom.Fields("classroomname") & vbNewLine & rstteacher.Fields("teachername")
         rstmajorcourse.Update
         rstteachercourse.edit
         rstteachercourse.Fields(i & j) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstmajor.Fields("majorname") & vbNewLine & rstclassroom.Fields("classroomname")
         rstteachercourse.Update
         rstclassroomcourse.edit
         rstclassroomcourse.Fields(i & j) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstmajor.Fields("majorname") & vbNewLine & rstteacher.Fields("teachername")
         rstclassroomcourse.Update
          Set rstclass = db.OpenRecordset("select * from class")
          rstclass.Filter = "majorid='" & rstmajor.Fields("majorid") & "'"
          Set rstclass = rstclass.OpenRecordset()
          If rstclass.RecordCount() <> 0 Then
            rstclass.MoveFirst
            Do Until rstclass.EOF
            Set rstclasscourse = dbcourse.OpenRecordset("select * from courseclass")
            rstclasscourse.Filter = "classid='" & rstclass.Fields("classid") & "'"
            Set rstclasscourse = rstclasscourse.OpenRecordset()
            rstclasscourse.edit
            rstclasscourse.Fields(i & j) = "a"
            rstclasscourse.Update
            rstclass.MoveNext
            Loop
           End If
         
        For h = i + 2 To 5 Step 2
          For k = 1 To 4
            If rstmajorcourse.Fields(h & k) = "1" Then
              If rstteachercourse.Fields(h & k) = "1" Then
                If rstclassroomcourse.Fields(h & k) = "1" Then
                   rstmajorcourse.edit
                   rstmajorcourse.Fields(h & k) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstclassroom.Fields("classroomname") & vbNewLine & rstteacher.Fields("teachername")
                   rstmajorcourse.Update
                   rstteachercourse.edit
                   rstteachercourse.Fields(h & k) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstmajor.Fields("majorname") & vbNewLine & rstclassroom.Fields("classroomname")
                   rstteachercourse.Update
                   rstclassroomcourse.edit
                   rstclassroomcourse.Fields(h & k) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstmajor.Fields("majorname") & vbNewLine & rstteacher.Fields("teachername")
                   rstclassroomcourse.Update
                  Set rstclass = db.OpenRecordset("select * from class")
                 rstclass.Filter = "majorid='" & rstmajor.Fields("majorid") & "'"
                 Set rstclass = rstclass.OpenRecordset()
                 If rstclass.RecordCount() <> 0 Then
                 rstclass.MoveFirst
                 Do Until rstclass.EOF
                  Set rstclasscourse = dbcourse.OpenRecordset("select * from courseclass")
                  rstclasscourse.Filter = "classid='" & rstclass.Fields("classid") & "'"
                 Set rstclasscourse = rstclasscourse.OpenRecordset()
                 rstclasscourse.edit
                 rstclasscourse.Fields(h & k) = "a"
                 rstclasscourse.Update
                 rstclass.MoveNext
                Loop
                End If
                 
                   Exit For
                   
                End If
               End If
               End If
             Next k
                 
          Next h
         
         rstplan.Delete
          rstplan.MoveNext
          If rstplan.EOF Then
             rstplan.MoveFirst
          End If
          If rstplan.RecordCount() = 0 Then
           Exit Do
           End If
     Else
      rstplan.MoveNext
      If rstplan.EOF Then
          rstplan.MoveFirst
       End If
     End If
   Else
    rstplan.MoveNext
    If rstplan.EOF Then
        rstplan.MoveFirst
    End If
    
   End If
   Next j
 Loop
 

  Set rstplan = dbcourse.OpenRecordset("select * from teachplan where coursetype='3'and weekhour='2'  ")
  
  Do Until rstplan.EOF
    For i = 1 To 3
      For j = 1 To 4
      
       Set rstmajorcourse = dbcourse.OpenRecordset("select * from coursemajor")
       rstmajorcourse.Filter = "majorid='" & rstplan.Fields("majorid") & "'"
       Set rstmajorcourse = rstmajorcourse.OpenRecordset()
       If rstmajorcourse.Fields(i & j) = "1" Then
        Set rstteachercourse = dbcourse.OpenRecordset("select * from courseteacher")
         rstteachercourse.Filter = "teacherid='" & rstplan.Fields("teacherid") & "'"
         Set rstteachercourse = rstteachercourse.OpenRecordset()
        If rstteachercourse.Fields(i & j) = "1" Then
         Set rstclassroomcourse = dbcourse.OpenRecordset("select * from courseclassroom where type='2'")
         rstclassroomcourse.MoveFirst
         Do While rstclassroomcourse.Fields(i & j) <> "1"
               rstclassroomcourse.MoveNext
               If rstclassroomcourse.EOF = True And j = 4 Then
                  Exit For
                End If
        Loop
        Set rstmajor = db.OpenRecordset("select * from major ")
       rstmajor.Filter = "majorid='" & rstmajorcourse.Fields("majorid") & "'"
       Set rstmajor = rstmajor.OpenRecordset()
         Set rstcourse = db.OpenRecordset("select * from course")
         rstcourse.Filter = "courseid='" & rstplan.Fields("courseid") & "'"
         Set rstcourse = rstcourse.OpenRecordset()
         Set rstteacher = db.OpenRecordset("select * from teacher")
         rstteacher.Filter = "teacherid='" & rstplan.Fields("teacherid") & "'"
         Set rstteacher = rstteacher.OpenRecordset()
         Set rstclassroom = db.OpenRecordset("select * from classroom")
         rstclassroom.Filter = "classroomid='" & rstclassroomcourse.Fields("classroomid") & "'"
         Set rstclassroom = rstclassroom.OpenRecordset()
         rstmajorcourse.edit
         rstmajorcourse.Fields(i & j) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstclassroom.Fields("classroomname") & vbNewLine & rstteacher.Fields("teachername")
         rstmajorcourse.Update
         rstteachercourse.edit
         rstteachercourse.Fields(i & j) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstmajor.Fields("majorname") & vbNewLine & rstclassroom.Fields("classroomname")
         rstteachercourse.Update
         rstclassroomcourse.edit
         rstclassroomcourse.Fields(i & j) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstmajor.Fields("majorname") & vbNewLine & rstteacher.Fields("teachername")
         rstclassroomcourse.Update
         Set rstclass = db.OpenRecordset("select * from class")
          rstclass.Filter = "majorid='" & rstmajor.Fields("majorid") & "'"
          Set rstclass = rstclass.OpenRecordset()
          If rstclass.RecordCount() <> 0 Then
            rstclass.MoveFirst
            Do Until rstclass.EOF
            Set rstclasscourse = dbcourse.OpenRecordset("select * from courseclass")
            rstclasscourse.Filter = "classid='" & rstclass.Fields("classid") & "'"
            Set rstclasscourse = rstclasscourse.OpenRecordset()
            rstclasscourse.edit
            rstclasscourse.Fields(i & j) = "a"
            rstclasscourse.Update
            rstclass.MoveNext
            Loop
           End If
          For h = i + 2 To 5 Step 2
          For k = 1 To 4
            If rstmajorcourse.Fields(h & k) = "1" Then
              If rstteachercourse.Fields(h & k) = "1" Then
                If rstclassroomcourse.Fields(h & k) = "1" Then
                   rstmajorcourse.edit
                   rstmajorcourse.Fields(h & k) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstclassroom.Fields("classroomname") & vbNewLine & rstteacher.Fields("teachername")
                   rstmajorcourse.Update
                   rstteachercourse.edit
                   rstteachercourse.Fields(h & k) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstmajor.Fields("majorname") & vbNewLine & rstclassroom.Fields("classroomname")
                   rstteachercourse.Update
                   rstclassroomcourse.edit
                   rstclassroomcourse.Fields(h & k) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstmajor.Fields("majorname") & vbNewLine & rstteacher.Fields("teachername")
                   rstclassroomcourse.Update
                   Set rstclass = db.OpenRecordset("select * from class")
          rstclass.Filter = "majorid='" & rstmajor.Fields("majorid") & "'"
          Set rstclass = rstclass.OpenRecordset()
          If rstclass.RecordCount() <> 0 Then
            rstclass.MoveFirst
            Do Until rstclass.EOF
            Set rstclasscourse = dbcourse.OpenRecordset("select * from courseclass")
            rstclasscourse.Filter = "classid='" & rstclass.Fields("classid") & "'"
            Set rstclasscourse = rstclasscourse.OpenRecordset()
            rstclasscourse.edit
            rstclasscourse.Fields(h & k) = "a"
            rstclasscourse.Update
            rstclass.MoveNext
            Loop
           End If
                   k = 4
                   h = 5
                   
                End If
               End If
               End If
             Next k
                 
          Next h
                   j = 4
                   i = 3
         
         rstplan.Delete
          rstplan.MoveNext
          If rstplan.EOF Then
             rstplan.MoveFirst
          End If
          If rstplan.RecordCount() = 0 Then
           Exit Do
           End If
     Else
      rstplan.MoveNext
      If rstplan.EOF Then
          rstplan.MoveFirst
       End If
     End If
   Else
    rstplan.MoveNext
    If rstplan.EOF Then
        rstplan.MoveFirst
    End If
    
   End If
   Next j
  Next i
 Loop
  Set rstplan = dbcourse.OpenRecordset("select * from teachplan where coursetype='3'and weekhour='1' ")
  
  Do Until rstplan.EOF
    For i = 1 To 5
      For j = 1 To 4
       
       Set rstmajorcourse = dbcourse.OpenRecordset("select * from coursemajor")
       rstmajorcourse.Filter = "majorid='" & rstplan.Fields("majorid") & "'"
       Set rstmajorcourse = rstmajorcourse.OpenRecordset()
       If rstmajorcourse.Fields(i & j) = "1" Then
        Set rstteachercourse = dbcourse.OpenRecordset("select * from courseteacher")
         rstteachercourse.Filter = "teacherid='" & rstplan.Fields("teacherid") & "'"
         Set rstteachercourse = rstteachercourse.OpenRecordset()
        If rstteachercourse.Fields(i & j) = "1" Then
         Set rstclassroomcourse = dbcourse.OpenRecordset("select * from courseclassroom where type='2'")
         rstclassroomcourse.MoveFirst
         Do While rstclassroomcourse.Fields(i & j) <> "1"
               rstclassroomcourse.MoveNext
               If rstclassroomcourse.EOF = True And j = 4 Then
                  Exit For
                  i = i + 1
               End If
        Loop
         Set rstmajor = db.OpenRecordset("select * from major ")
       rstmajor.Filter = "majorid='" & rstmajorcourse.Fields("majorid") & "'"
       Set rstmajor = rstmajor.OpenRecordset()
         Set rstcourse = db.OpenRecordset("select * from course")
         rstcourse.Filter = "courseid='" & rstplan.Fields("courseid") & "'"
         Set rstcourse = rstcourse.OpenRecordset()
         Set rstteacher = db.OpenRecordset("select * from teacher")
         rstteacher.Filter = "teacherid='" & rstplan.Fields("teacherid") & "'"
         Set rstteacher = rstteacher.OpenRecordset()
         Set rstclassroom = db.OpenRecordset("select * from classroom")
         rstclassroom.Filter = "classroomid='" & rstclassroomcourse.Fields("classroomid") & "'"
         Set rstclassroom = rstclassroom.OpenRecordset()
         rstmajorcourse.edit
         rstmajorcourse.Fields(i & j) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstclassroom.Fields("classroomname") & vbNewLine & rstteacher.Fields("teachername")
         rstmajorcourse.Update
         rstteachercourse.edit
         rstteachercourse.Fields(i & j) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstmajor.Fields("majorname") & vbNewLine & rstclassroom.Fields("classroomname")
         rstteachercourse.Update
         rstclassroomcourse.edit
         rstclassroomcourse.Fields(i & j) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstmajor.Fields("majorname") & vbNewLine & rstteacher.Fields("teachername")
         rstclassroomcourse.Update
         
           Set rstclass = db.OpenRecordset("select * from class")
          rstclass.Filter = "majorid='" & rstmajor.Fields("majorid") & "'"
          Set rstclass = rstclass.OpenRecordset()
          If rstclass.RecordCount() <> 0 Then
            rstclass.MoveFirst
            Do Until rstclass.EOF
            Set rstclasscourse = dbcourse.OpenRecordset("select * from courseclass")
            rstclasscourse.Filter = "classid='" & rstclass.Fields("classid") & "'"
            Set rstclasscourse = rstclasscourse.OpenRecordset()
            rstclasscourse.edit
            rstclasscourse.Fields(i & j) = "a"
            rstclasscourse.Update
            rstclass.MoveNext
            Loop
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -