【文章內(nèi)容簡介】 課程表。若你忘記班級的編號，可以通過界面上的班級編號與班級名稱對照表查詢班級編號。當確定好你所要查詢的班級后，點擊“查詢課程表”按鈕，就可以查詢該班的課程表了。 圖－ 4hart 44 Interface of class table 上圖就是最終生成的班級課程表。其主要代碼如下： Private Sub Command1_Click Dim strCourseID As String Dim strClassRoomID As String Dim i As Integer, j As Integer If Then MsgBox 請輸入要查詢的班級編號！ 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 無此信息，請重新輸入！ Exit Sub End If Set xlapp New Set xlbook x amp。 \課程表模板 .xlt True Set xlsheet 班級課程表 5, 1 amp。 級 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ù)溢出，請檢查系統(tǒng)！ End Select i i 1 Wend 教師課程表查詢打印設(shè)計有了班級課程表的設(shè)計成功， 教師課程表就顯得容易多了。我們依然把課程表導(dǎo)入到 EXCEL 中，基于界面風格的統(tǒng)一，與班級課表查詢相似。下面是教師課表查詢界面： 圖－ 5hart 45 Interface of inquire teacher table 通過以上界面可以查詢具體教師一學(xué)期的課程安排情況，其中生成的課表信息包括所教課程和班級，上課具體時間，教室。使教師一目了然，方便地查詢到自己所教班級、課程。準確無誤地反映在課表上。 圖－ 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