专业课程表查询窗体.frm

智能排课系统

            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(13, 3) = a(1, 2)
End If
If rst.Fields("22") = "a" Then
    xlsheet.Cells(13, 4) = ""
Else
    If rst.Fields("22") = "1" Then
        a(2, 2) = ""
    Else
        a(2, 2) = rst.Fields("22")
    End If
    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()
            If rstclasscourse.Fields("22") = "1" Or rstclasscourse.Fields("22") = "a" Then
                a(2, 2) = a(2, 2)
            Else
                If a(2, 2) = "" Then
                    a(2, 2) = rstclasscourse.Fields("22")
                Else
                a(2, 2) = a(2, 2) & vbNewLine & rstclasscourse.Fields("22")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(13, 4) = a(2, 2)
End If
If rst.Fields("32") = "a" Then
    xlsheet.Cells(13, 5) = ""
Else
    If rst.Fields("32") = "1" Then
        a(3, 2) = ""
    Else
        a(3, 2) = rst.Fields("32")
    End If
    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()
            If rstclasscourse.Fields("32") = "1" Or rstclasscourse.Fields("32") = "a" Then
                a(3, 2) = a(3, 2)
            Else
                If a(3, 2) = "" Then
                    a(3, 2) = rstclasscourse.Fields("32")
                Else
                a(3, 2) = a(3, 2) & vbNewLine & rstclasscourse.Fields("32")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(13, 5) = a(3, 2)
End If
If rst.Fields("42") = "a" Then
    xlsheet.Cells(13, 6) = ""
Else
    If rst.Fields("42") = "1" Then
        a(4, 2) = ""
    Else
        a(4, 2) = rst.Fields("42")
    End If
    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()
            If rstclasscourse.Fields("42") = "1" Or rstclasscourse.Fields("42") = "a" Then
                a(4, 2) = a(4, 2)
            Else
                If a(4, 2) = "" Then
                    a(4, 2) = rstclasscourse.Fields("42")
                Else
                a(4, 2) = a(4, 2) & vbNewLine & rstclasscourse.Fields("42")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(13, 6) = a(4, 2)
End If
If rst.Fields("52") = "a" Then
    xlsheet.Cells(13, 7) = ""
Else
    If rst.Fields("52") = "1" Then
        a(5, 2) = ""
     Else
        a(5, 2) = rst.Fields("52")
     End If
    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()
            If rstclasscourse.Fields("52") = "1" Or rstclasscourse.Fields("52") = "a" Then
                a(5, 2) = a(5, 2)
            Else
                If a(5, 2) = "" Then
                    a(5, 2) = rstclasscourse.Fields("52")
                Else
                a(5, 2) = a(5, 2) & vbNewLine & rstclasscourse.Fields("52")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(13, 7) = a(5, 2)
End If
If rst.Fields("13") = "a" Then
    xlsheet.Cells(17, 3) = ""
Else
    If rst.Fields("13") = "1" Then
        a(1, 3) = ""
    Else
        a(1, 3) = rst.Fields("13")
    End If
    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()
            If rstclasscourse.Fields("13") = "1" Or rstclasscourse.Fields("13") = "a" Then
                a(1, 3) = a(1, 3)
            Else
                If a(1, 3) = "" Then
                    a(1, 3) = rstclasscourse.Fields("13")
                Else
                a(1, 3) = a(1, 3) & vbNewLine & rstclasscourse.Fields("13")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(17, 3) = a(1, 3)
End If
If rst.Fields("23") = "a" Then
    xlsheet.Cells(17, 4) = ""
Else
  If rst.Fields("23") = "1" Then
    a(2, 3) = ""
  Else
    a(2, 3) = rst.Fields("23")
  End If
    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()
            If rstclasscourse.Fields("23") = "1" Or rstclasscourse.Fields("23") = "a" Then
                a(2, 3) = a(2, 3)
            Else
                If a(2, 3) = "" Then
                    a(2, 3) = rstclasscourse.Fields("23")
                Else
                a(2, 3) = a(2, 3) & vbNewLine & rstclasscourse.Fields("23")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(17, 4) = a(2, 3)
End If
If rst.Fields("33") = "a" Then
    xlsheet.Cells(17, 5) = ""
Else
  If rst.Fields("33") = "1" Then
    a(3, 3) = ""
  Else
    a(3, 3) = rst.Fields("33")
  End If
    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()
            If rstclasscourse.Fields("33") = "1" Or rstclasscourse.Fields("33") = "a" Then
                a(3, 3) = a(3, 3)
            Else
                If a(3, 3) = "" Then
                    a(3, 3) = rstclasscourse.Fields("33")
                Else
                a(3, 3) = a(3, 3) & vbNewLine & rstclasscourse.Fields("33")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(17, 5) = a(3, 3)
End If
If rst.Fields("43") = "a" Then
    xlsheet.Cells(17, 6) = ""
Else
  If rst.Fields("43") = "1" Then
    a(4, 3) = ""
  Else
    a(4, 3) = rst.Fields("43")
  End If
    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()
            If rstclasscourse.Fields("43") = "1" Or rstclasscourse.Fields("43") = "a" Then
                a(4, 3) = a(4, 3)
            Else
                If a(4, 3) = "" Then
                    a(4, 3) = rstclasscourse.Fields("43")
                Else
                a(4, 3) = a(4, 3) & vbNewLine & rstclasscourse.Fields("43")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(17, 6) = a(4, 3)
End If
If rst.Fields("53") = "a" Then
    xlsheet.Cells(17, 7) = ""
Else
    If rst.Fields("53") = "1" Then
        a(5, 3) = ""
    Else
        a(5, 3) = rst.Fields("53")
    End If
    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()
            If rstclasscourse.Fields("53") = "1" Or rstclasscourse.Fields("11") = "a" Then
                a(5, 3) = a(5, 3)
            Else
                If a(5, 3) = "" Then
                    a(5, 3) = rstclasscourse.Fields("53")
                Else
                a(5, 3) = a(5, 3) & vbNewLine & rstclasscourse.Fields("53")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(17, 7) = a(5, 3)
End If
If rst.Fields("14") = "a" Then
    xlsheet.Cells(21, 3) = ""
Else
    If rst.Fields("14") = "1" Then
        a(1, 4) = ""
    Else
        a(1, 4) = rst.Fields("14")
    End If
    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()
            If rstclasscourse.Fields("14") = "1" Or rstclasscourse.Fields("14") = "a" Then
                a(1, 4) = a(1, 4)
            Else
                If a(1, 4) = "" Then
                    a(1, 4) = rstclasscourse.Fields("14")
                Else
                a(1, 4) = a(1, 4) & vbNewLine & rstclasscourse.Fields("14")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(21, 3) = a(1, 4)
End If
If rst.Fields("24") = "a" Then
    xlsheet.Cells(21, 4) = ""
Else
    If rst.Fields("24") = "1" Then
        a(2, 4) = ""
     Else
        a(2, 4) = rst.Fields("24")
     End If
    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()
            If rstclasscourse.Fields("24") = "1" Or rstclasscourse.Fields("24") = "a" Then
                a(2, 4) = a(2, 4)
            Else
                If a(2, 4) = "" Then
                    a(2, 4) = rstclasscourse.Fields("24")
                Else
                a(2, 4) = a(2, 4) & vbNewLine & rstclasscourse.Fields("24")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(21, 4) = a(2, 4)
End If
If rst.Fields("34") = "a" Then
    xlsheet.Cells(21, 5) = ""
Else
  If rst.Fields("34") = "1" Then
    a(3, 4) = ""
   Else
    a(3, 4) = rst.Fields("34")
   End If
    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()
            If rstclasscourse.Fields("34") = "1" Or rstclasscourse.Fields("34") = "a" Then
                a(3, 4) = a(3, 4)
            Else
                If a(3, 4) = "" Then
                    a(3, 4) = rstclasscourse.Fields("34")
                Else
                a(3, 4) = a(3, 4) & vbNewLine & rstclasscourse.Fields("34")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(21, 5) = a(3, 4)
End If
If rst.Fields("44") = "a" Then
    xlsheet.Cells(21, 6) = ""
Else
   If rst.Fields("44") = "1" Then
     a(4, 4) = ""
   Else
     a(4, 4) = rst.Fields("44")
   End If
    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()
            If rstclasscourse.Fields("44") = "1" Or rstclasscourse.Fields("44") = "a" Then
                a(4, 4) = a(4, 4)
            Else
                If a(4, 4) = "" Then
                    a(4, 4) = rstclasscourse.Fields("44")
                Else
                a(4, 4) = a(4, 4) & vbNewLine & rstclasscourse.Fields("44")
                End If
                
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(21, 6) = a(4, 4)
End If
If rst.Fields("54") = "a" Then
    xlsheet.Cells(21, 7) = ""
Else
   If rst.Fields("54") = "1" Then
     a(5, 4) = ""
   Else
     a(5, 4) = rst.Fields("54")
   End If
    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()
            If rstclasscourse.Fields("54") = "1" Or rstclasscourse.Fields("54") = "a" Then
                a(5, 4) = a(5, 4)
            Else
                If a(5, 4) = "" Then
                    a(5, 4) = rstclasscourse.Fields("54")
                Else
                a(5, 4) = a(5, 4) & vbNewLine & rstclasscourse.Fields("54")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(21, 7) = a(5, 4)
    
End If
End If
    
End Sub

Private Sub Command2_Click()
frmfind.Cls
Unload Me
frmmain.Show vbModal
End Sub

Private Sub DataGrid1_Click()
Text1.Text = DataGrid1.Columns(0).Text
End Sub