【文章內(nèi)容簡(jiǎn)介】 課程表。若你忘記班級(jí)的編號(hào)，可以通過(guò)界面上的班級(jí)編號(hào)與班級(jí)名稱對(duì)照表查詢班級(jí)編號(hào)。當(dāng)確定好你所要查詢的班級(jí)后，點(diǎn)擊“查詢課程表”按鈕，就可以查詢?cè)摪嗟恼n程表了。 圖－ 4hart 44 Interface of class table 上圖就是最終生成的班級(jí)課程表。其主要代碼如下： Private Sub Command1_Click Dim strCourseID As String Dim strClassRoomID As String Dim i As Integer, j As Integer If Then MsgBox 請(qǐng)輸入要查詢的班級(jí)編號(hào)！ Exit Sub End If strSQL SELECT * FROM bTempTableA where classid amp。 amp。 order by ttime strtempsql SELECT courseID,courseName FROM bCourse strclassroomsql SELECT ClassRoomID,ClassRoomName FROM bclassroom ConenctToDatabase strSQL, db, adOpenKeyset, adLockOptimistic strtempsql, db, adOpenKeyset, adLockReadOnly strclassroomsql, db, adOpenKeyset, adLockReadOnly If 0 Then i Else MsgBox 無(wú)此信息，請(qǐng)重新輸入！ Exit Sub End If Set xlapp New Set xlbook x amp。 \課程表模板 .xlt True Set xlsheet 班級(jí)課程表 5, 1 amp。 級(jí) 5, 6 Date While i 0 strCourseID courseID courseID 39。 amp。 strCourseID amp。 39。 strClassRoomID classroomID classroomID 39。 amp。 strClassRoomID amp。 39。 Select Case Ttime Case Is 1 9, 3 coursename 11, 3 classroomName Case Is 2 13, 3 coursename 15, 3 classroomName Case Is 3 17, 3 coursename 19, 3 classroomName Case Is 4 21, 3 coursename 23, 3 classroomName Case Is 5 9, 4 coursename 11, 4 classroomName Case Is 6 13, 4 coursename 15, 4 classroomName Case Is 7 17, 4 coursename 19, 4 classroomName Case Is 8 21, 4 coursename 23, 4 classroomName Case Is 9 9, 5 coursename 11, 5 classroomName Case Is 10 13, 5 coursename 15, 5 classroomName Case Is 11 17, 5 coursename 19, 5 classroomName Case Is 12 21, 5 coursename 23, 5 classroomName Case Is 13 9, 6 coursename 11, 6 classroomName Case Is 14 13, 6 coursename 15, 6 classroomName Case Is 15 17, 6 coursename 19, 6 classroomName Case Is 16 21, 6 coursename 23, 6 classroomName Case Is 17 9, 7 coursename 11, 7 classroomName Case Is 18 13, 7 coursename 15, 7 classroomName Case Is 19 17, 7 coursename 19, 7 classroomName Case Is 20 21, 7 coursename 23, 7 classroomName Case Is 21 9, 8 coursename 11, 8 classroomName Case Is 22 13, 8 coursename 15, 8 classroomName Case Is 23 17, 8 coursename 19, 8 classroomName Case Is 24 21, 8 coursename 23, 8 classroomName Case Is 25 9, 9 coursename 11, 9 classroomName Case Is 26 13, 9 coursename 15, 9 classroomName Case Is 27 17, 9 coursename 19, 9 classroomName Case Is 28 21, 9 coursename 23, 9 classroomName Case Else MsgBox 數(shù)據(jù)溢出，請(qǐng)檢查系統(tǒng)！ End Select i i 1 Wend 教師課程表查詢打印設(shè)計(jì)有了班級(jí)課程表的設(shè)計(jì)成功， 教師課程表就顯得容易多了。我們依然把課程表導(dǎo)入到 EXCEL 中，基于界面風(fēng)格的統(tǒng)一，與班級(jí)課表查詢相似。下面是教師課表查詢界面： 圖－ 5hart 45 Interface of inquire teacher table 通過(guò)以上界面可以查詢具體教師一學(xué)期的課程安排情況，其中生成的課表信息包括所教課程和班級(jí)，上課具體時(shí)間，教室。使教師一目了然，方便地查詢到自己所教班級(jí)、課程。準(zhǔn)確無(wú)誤地反映在課表上。 圖－ 6hart 46 Interface of teacher table 以下是主要代碼： Private Sub Command1_Click Dim a As String Dim i As Integer, j As Integer Dim strCourseID As String Dim strClassRoomID As String Dim strclasssql As String Dim strClassID As String strsql SELECT * FROM bTempTableA where teacherid amp。 amp。 order by ttime strtempsql SELECT courseID,courseName FROM bCourse strclassroomsql SELECT ClassRoomID,ClassRoomName FROM bclassroom strclasssql