摘  要： 根據實際工作的需要，開發了一套基于Visual Basic程序的教師課表自動匯總系統。該系統可自動讀取課表數據，并將讀取的數據匯總后自動生成總課表文件，可代替人工的繁瑣重復勞動，具有效率高、方便快捷的特點。
關鍵詞： 高校；課表；Visual Basic；EXCEL

　在高校，因為工作需要，二級院系每到學期的開學初，都需要制作一份本院系所有任課教師上課安排的總課表。每位教師的課表可從學校的教務系統中自動導出，但不少高校，總課表往往卻不能從系統中自動生成，而需要教學秘書手工完成。雖然總課表也是一張課表，但它是將所有課表進行匯總而成，要靠手工來完成課表的匯總工作，需要將本院系所有任課教師的課表都打印出來，一邊在計算機上復制、粘貼，一邊進行核對，以免出現遺漏或重復。這樣不僅需要耗費大量的紙張，而且工作量大、效率低，一張總課表往往需要一周的時間才能制作完成，同時匯總的課表差錯多，給實際使用時帶來很多問題。本文根據實際工作的需要，結合課表的特點，利用Visual Basic6.0開發了一套教師課表自動匯總系統[1-2]。
1 自動匯總系統總體設計
1.1 課表結構分析
　本文以中原工學院使用過的清華紫光教務系統為例進行說明。在系統設計之前，首先要分析課表的結構。由教務系統導出的教師個人課表是EXCEL文件，圖1是從課表中截取的某一節課的安排示意圖。從圖1中可以看出，對每一節課的安排需占用EXCEL表中8行表格，第一行表示的是該課程的名稱和課程號，后面依次是上課地點、上課周次和上課班級等信息。在VB程序讀取課程安排時，每節課都需要連續讀取8行的數據，然后將讀出的這8行數據連接起來，就構成了一節課的完整安排，經適當整理后輸出到總課表中。

1.2 程序設計思路
　先為總課表建立一個二維數組來保存相關數據，數組的每個成員都代表總課表中的某一節課。在將每張課表中的每節課安排讀取后都匯總到對應的數組成員中。這樣，在將所有課表讀完后，總課表的數據匯總工作也就完成了。然后，先根據所需要的總課表格式生成一張空白總課表，再將二維數組中的數據放入相應的表格內，一張總課表就制作出來了。
1.3 程序設計流程
　課表匯總系統的設計，首先要讀出教師名稱和人數，人數是作為后面讀取課表時判斷是否將所有課表讀完的依據。然后是順序讀每張課表，讀取課表時從周一讀到周六，每個工作日的數據是從第1大節讀到第6大節。將所有課表讀完后，再將匯總到二維數組的數據放入總課表中對應的表格內，最后保存總課表。圖2是程序設計流程框圖。

2 軟件主要功能模塊的實現
2.1 VB與EXCEL數據的鏈接
　VB（Visual Basic）是一種應用十分廣泛的程序開發工具，具有可視化、事件驅動編程的特點，它在界面設計、繪圖、制表、運算、通信和多媒體開發方面都具有簡單易行、功能強大等優點。VB具有強大的數據處理功能，提供了多種數據訪問方法，可以將EXCEL數據表視為一個數據庫，方便地進行訪問和處理[3]。
本系統利用面向對象的ADO技術實現對數據庫（即EXCEL表）的訪問。ADO（ActiveX Data Object）是ActiveX數據對象，是Microsoft公司開發數據庫應用程序面向對象的新接口。VB利用ADO的Connection和Recordset對象可以直接訪問數據，也就是ADO從一個數據源中獲得記錄只需一個連接和一個記錄集[4]。其過程如下：
　（1）在工程中引用“Microsoft Excel 11.0 Object Library”，然后在窗體的通用聲明部分分別定義一個Connection對象和RecordSet對象：
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
?。?）在程序中設計一個EXCEL表讀取模塊，新建一個Connection對象的實例并將它賦給cn數據源，新建一個Recordset對象的實例并使用Recordset對象的Open方法打開課表。
Set cn=New ADODB.Connection
Set rs=1New ADODB.Recordset

With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString="Data source=" & address_file & "；Extended Properties=′Excel 8.0；HDR=No；IMEX=1′"                      //address_file： EXCEL文件位置
    .CursorLocation = adUseClient
    .Open
End With
這樣Visual Basic程序就與EXCEL表之間建立了聯系，也就可以對表中的數據進行處理了。
2.2 課表數據的讀取
　程序在與EXCEL表建立鏈接之后，即開始對課表中的數據進行讀取。先定義一個二維數組來保存每節課的安排，每張課表同一時間的課程安排在被讀出后都追加到同一個二維數組成員中。其過程如下：
Public course_each（5， 6） As String                    //定義二維數組，課程（節，星期）
Dim kecheng As String                              //保存讀取的某節課中的數據
Dim week_course As String                   //星期幾
Dim counter_row As Integer                          
//當前所讀取的某節課單元格行數
讀EXCEL表中的數據
For j = 1 To 6                 //讀一周中的某天
   rs.MoveFirst
    
   Select Case j    //選擇星期幾
      Case 1
         week_course="星期一"
      Case 2
         week_course="星期二"
      Case 3
         week_course="星期三"
      Case 4
         week_course="星期四"
      Case 5
         week_course="星期五"
      Case Else
         week_course="星期六"
   End Select
    
   For i=1 To 5            //讀一天中的5節課
        counter_row=0                         
        kecheng=""   //讀取并保存一節課中的數據
       Do While counter_row<8                 
//讀取每節課占的8個單元格
          counter_row=counter_row+1
          If kecheng="" Then
             kecheng=kecheng & rs.Fields
（week_course）.Value
          Else
             kecheng=kecheng & "，" & rs.Fields
（week_course）.Value
          End If
         If rs.EOF Then
            Exit Sub
         Else
            rs.MoveNext
         End If
         course_each（i，j）=course_each（i，j） & name_string（1）& "，" & Trim（kecheng）
//將已讀完的某節課安排寫入對應二維數組成員中
             End If
           End If
   Next i
Next j
2.3 課表數據的匯總

　在將所有課表中的數據讀出并保存到對應二維數組成員中后，就可生成總課表了。先創建EXCEL文檔，定義需要的表格格式；然后再將數據寫入對應的位置（創建總課表EXCEL文件并定義格式的程序段此處略）。下面是將數據寫入總課表的程序段。
Public Sub writeToexcel（address_file As String）
Dim xlApp As Excel.Application //EXCEL控件專用聲明
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet

Set xlApp = CreateObject（"Excel.Application"）   
 //創建EXCEL對象
Set xlBook = xlApp.Workbooks.Open（address_file）    
//打開已經存在的EXCEL文件
xlApp.Visible = False                            
//設置EXCEL對象可見（或不可見）
Set xlsheet = xlBook.Worksheets（"sheet1"）           
//設置活動工作表
For i = 1 To 5        //第1~第5大節
   For j = 1 To 6                //星期一到星期五
   xlsheet.Cells（2 + i， 2 + j） = course_each（i， j）
     //向總課表中對應單元格寫數據
   Next j
Next i
xlBook.Save
xlBook.Close
xlApp.Quit                     //結束EXCEL對象
Set xlApp = Nothing            //釋放xlApp對象

End Sub
3 軟件界面設計
　軟件的界面主要分為菜單區、工具欄區和課表匯總結果顯示區。本系統的軟件界面的工具欄是仿OFFICE風格，并提供了一些數據處理功能。打開按鈕是指定課表所在位置，保存按鈕是將最后匯總結果以EXCEL文件的形式存到計算機中。此外，軟件還提供了剪切、復制、粘貼、撤銷、查找、插入刪除行、運行、放大、縮小、原始大小等功能按鈕，以方便使用。在軟件下方狀態欄的左邊顯示的是教師課表存放的位置，右邊顯示的是開課教師的人數。通過菜單欄中的教師名單選項還可以查看所有開課教師的詳細名單，以方便對結果的檢查和核對。系統軟件界面的主要功能區如圖3所示。

　自動匯總系統的開發，較好地實現了對課表數據的讀取和匯總，具有方便快捷的特點，大大提高了工作效率，減輕了工作人員的重復性勞動，并且提高了匯總課表的準確性。該系統在應用中效果較好。
參考文獻
[1] 徐謖，徐立.Visual Basic應用與開發案例教程[M].北京：清華大學出版社，2005：223-225.
[2] 林桂明.用VB開發中職學校國家助學金管理軟件[J]. 湖南科技學院學報，2010（8）：68-71.
[3] 高春艷，李艷.Visual Basic數據庫開發關鍵技術與實例應用[M].北京：人民郵電出版社，2005：238-241.
[4] 陳虹頤，何春.VB6.0中利用ADO對象實現數據庫編程[J].甘肅科技，2007（4）.