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

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

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

2 軟件主要功能模塊的實現(xiàn)
2.1 VB與EXCEL數(shù)據(jù)的鏈接
　VB（Visual Basic）是一種應(yīng)用十分廣泛的程序開發(fā)工具，具有可視化、事件驅(qū)動編程的特點，它在界面設(shè)計、繪圖、制表、運算、通信和多媒體開發(fā)方面都具有簡單易行、功能強大等優(yōu)點。VB具有強大的數(shù)據(jù)處理功能，提供了多種數(shù)據(jù)訪問方法，可以將EXCEL數(shù)據(jù)表視為一個數(shù)據(jù)庫，方便地進行訪問和處理[3]。
本系統(tǒng)利用面向?qū)ο蟮腁DO技術(shù)實現(xiàn)對數(shù)據(jù)庫（即EXCEL表）的訪問。ADO（ActiveX Data Object）是ActiveX數(shù)據(jù)對象，是Microsoft公司開發(fā)數(shù)據(jù)庫應(yīng)用程序面向?qū)ο蟮男陆涌?。VB利用ADO的Connection和Recordset對象可以直接訪問數(shù)據(jù)，也就是ADO從一個數(shù)據(jù)源中獲得記錄只需一個連接和一個記錄集[4]。其過程如下：
?。?）在工程中引用“Microsoft Excel 11.0 Object Library”，然后在窗體的通用聲明部分分別定義一個Connection對象和RecordSet對象：
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
?。?）在程序中設(shè)計一個EXCEL表讀取模塊，新建一個Connection對象的實例并將它賦給cn數(shù)據(jù)源，新建一個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表之間建立了聯(lián)系，也就可以對表中的數(shù)據(jù)進行處理了。
2.2 課表數(shù)據(jù)的讀取
　程序在與EXCEL表建立鏈接之后，即開始對課表中的數(shù)據(jù)進行讀取。先定義一個二維數(shù)組來保存每節(jié)課的安排，每張課表同一時間的課程安排在被讀出后都追加到同一個二維數(shù)組成員中。其過程如下：
Public course_each（5， 6） As String                    //定義二維數(shù)組，課程（節(jié)，星期）
Dim kecheng As String                              //保存讀取的某節(jié)課中的數(shù)據(jù)
Dim week_course As String                   //星期幾
Dim counter_row As Integer                          
//當前所讀取的某節(jié)課單元格行數(shù)
讀EXCEL表中的數(shù)據(jù)
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節(jié)課
        counter_row=0                         
        kecheng=""   //讀取并保存一節(jié)課中的數(shù)據(jù)
       Do While counter_row<8                 
//讀取每節(jié)課占的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）
//將已讀完的某節(jié)課安排寫入對應(yīng)二維數(shù)組成員中
             End If
           End If
   Next i
Next j
2.3 課表數(shù)據(jù)的匯總

　在將所有課表中的數(shù)據(jù)讀出并保存到對應(yīng)二維數(shù)組成員中后，就可生成總課表了。先創(chuàng)建EXCEL文檔，定義需要的表格格式；然后再將數(shù)據(jù)寫入對應(yīng)的位置（創(chuàng)建總課表EXCEL文件并定義格式的程序段此處略）。下面是將數(shù)據(jù)寫入總課表的程序段。
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"）   
 //創(chuàng)建EXCEL對象
Set xlBook = xlApp.Workbooks.Open（address_file）    
//打開已經(jīng)存在的EXCEL文件
xlApp.Visible = False                            
//設(shè)置EXCEL對象可見（或不可見）
Set xlsheet = xlBook.Worksheets（"sheet1"）           
//設(shè)置活動工作表
For i = 1 To 5        //第1~第5大節(jié)
   For j = 1 To 6                //星期一到星期五
   xlsheet.Cells（2 + i， 2 + j） = course_each（i， j）
     //向總課表中對應(yīng)單元格寫數(shù)據(jù)
   Next j
Next i
xlBook.Save
xlBook.Close
xlApp.Quit                     //結(jié)束EXCEL對象
Set xlApp = Nothing            //釋放xlApp對象

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

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