📄 自动生成课程表.frm
字号:
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()
rstgradecourse.edit
rstgradecourse.Fields(i & j) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstclassroom.Fields("classroomname") & vbNewLine & rstteacher.Fields("teachername")
rstgradecourse.Update
rstteachercourse.edit
rstteachercourse.Fields(i & j) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstplan.Fields("gradeid") & "级" & vbNewLine & rstclassroom.Fields("classroomname")
rstteachercourse.Update
rstclassroomcourse.edit
rstclassroomcourse.Fields(i & j) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstplan.Fields("gradeid") & "级" & vbNewLine & rstteacher.Fields("teachername")
rstclassroomcourse.Update
Do Until rstmajor.EOF
Set rstmajorcourse = dbcourse.OpenRecordset("select * from coursemajor")
rstmajorcourse.Filter = "majorid='" & rstmajor.Fields("majorid") & "'"
Set rstmajorcourse = rstmajorcourse.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
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
rstmajor.MoveNext
Loop
For h = i + 2 To 5 Step 2
For k = 1 To 4
If rstgradecourse.Fields(h & k) = "1" Then
If rstteachercourse.Fields(h & k) = "1" Then
If rstclassroomcourse.Fields(h & k) = "1" Then
rstgradecourse.edit
rstgradecourse.Fields(h & k) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstclassroom.Fields("classroomname") & vbNewLine & rstteacher.Fields("teachername")
rstgradecourse.Update
rstteachercourse.edit
rstteachercourse.Fields(h & k) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstplan.Fields("gradeid") & "级" & vbNewLine & rstclassroom.Fields("classroomname")
rstteachercourse.Update
rstclassroomcourse.edit
rstclassroomcourse.Fields(h & k) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstplan.Fields("gradeid") & "级" & vbNewLine & rstteacher.Fields("teachername")
rstclassroomcourse.Update
rstmajor.MoveFirst
Do Until rstmajor.EOF
Set rstmajorcourse = dbcourse.OpenRecordset("select * from coursemajor")
rstmajorcourse.Filter = "majorid='" & rstmajor.Fields("majorid") & "'"
Set rstmajorcourse = rstmajorcourse.OpenRecordset()
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
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
rstmajor.MoveNext
Loop
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='2'and weekhour='1' ")
Do Until rstplan.EOF
For i = 1 To 5
For j = 1 To 4
Set rstgradecourse = dbcourse.OpenRecordset("select * from coursegrade ")
rstgradecourse.Filter = "gradeid='" & rstplan.Fields("gradeid") & "'"
Set rstgradecourse = rstgradecourse.OpenRecordset()
If rstgradecourse.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='1'")
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 = "gradeid='" & rstgradecourse.Fields("gradeid") & "'"
Set rstmajor = rstmajor.OpenRecordset()
rstmajor.MoveFirst
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()
rstgradecourse.edit
rstgradecourse.Fields(i & j) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstclassroom.Fields("classroomname") & vbNewLine & rstteacher.Fields("teachername")
rstgradecourse.Update
rstteachercourse.edit
rstteachercourse.Fields(i & j) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstplan.Fields("gradeid") & "级" & vbNewLine & rstclassroom.Fields("classroomname")
rstteachercourse.Update
rstclassroomcourse.edit
rstclassroomcourse.Fields(i & j) = rstcourse.Fields("coursename") & Space(2) & rstplan.Fields("begintime") & "-" & rstplan.Fields("endtime") & "周" & vbNewLine & rstplan.Fields("gradeid") & "级" & vbNewLine & rstteacher.Fields("teachername")
rstclassroomcourse.Update
rstmajor.MoveFirst
Do Until rstmajor.EOF
Set rstmajorcourse = dbcourse.OpenRecordset("select * from coursemajor")
rstmajorcourse.Filter = "majorid='" & rstmajor.Fields("majorid") & "'"
Set rstmajorcourse = rstmajorcourse.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
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
rstmajor.MoveNext
Loop
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 rstmajorcourse = dbcourse.OpenRecordset("select * from coursemajor")
rstmajorcourse.MoveFirst
Do Until rstmajorcourse.EOF
Set rstplan = dbcourse.OpenRecordset("select * from teachplan where coursetype='1'")
rstplan.Filter = "majorid='" & rstmajorcourse.Fields("majorid") & "'"
Set rstplan = rstplan.OpenRecordset()
Do Until rstplan.RecordCount() = 0
rstplan.MoveFirst
For i = 1 To 5
For j = 2 To 4
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='4'")
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()
If Right(rstclassroomcourse.Fields("classroomid"), 1) = "1" Then
sign = "单周"
Else
sign = "双周"
End If
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") & Space(2) & sign
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") & Space(2) & sign
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") & Space(2) & sign
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
rstplan.Delete
If rstplan.RecordCount() = 0 Then
Exit Do
Else
rstplan.MoveNext
If rstplan.EOF Then
rstplan.MoveFirst
End If
End If
End If
End If
Next j
Next i
Loop
rstmajorcourse.MoveNext
Loop
Set rstplan = dbcourse.OpenRecordset("select * from teachplan where coursetype='3'and weekhour='3' ")
Do Until rstplan.EOF
i = 1
For j = 1 To 4
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -