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

　在高校，因為工作需要,，二級院系每到學(xué)期的開學(xué)初,，都需要制作一份本院系所有任課教師上課安排的總課表。每位教師的課表可從學(xué)校的教務(wù)系統(tǒng)中自動導(dǎo)出,，但不少高校,，總課表往往卻不能從系統(tǒng)中自動生成，而需要教學(xué)秘書手工完成,。雖然總課表也是一張課表,，但它是將所有課表進(jìn)行匯總而成,，要靠手工來完成課表的匯總工作,，需要將本院系所有任課教師的課表都打印出來，一邊在計算機(jī)上復(fù)制,、粘貼,，一邊進(jìn)行核對，以免出現(xiàn)遺漏或重復(fù),。這樣不僅需要耗費(fèi)大量的紙張,，而且工作量大、效率低,，一張總課表往往需要一周的時間才能制作完成,，同時匯總的課表差錯多，給實際使用時帶來很多問題,。本文根據(jù)實際工作的需要,，結(jié)合課表的特點(diǎn)，利用Visual Basic6.0開發(fā)了一套教師課表自動匯總系統(tǒng)[1-2],。
1 自動匯總系統(tǒng)總體設(shè)計
1.1 課表結(jié)構(gòu)分析
　本文以中原工學(xué)院使用過的清華紫光教務(wù)系統(tǒng)為例進(jìn)行說明,。在系統(tǒng)設(shè)計之前，首先要分析課表的結(jié)構(gòu),。由教務(wù)系統(tǒng)導(dǎo)出的教師個人課表是EXCEL文件,，圖1是從課表中截取的某一節(jié)課的安排示意圖。從圖1中可以看出,，對每一節(jié)課的安排需占用EXCEL表中8行表格,，第一行表示的是該課程的名稱和課程號,，后面依次是上課地點(diǎn)、上課周次和上課班級等信息,。在VB程序讀取課程安排時,，每節(jié)課都需要連續(xù)讀取8行的數(shù)據(jù)，然后將讀出的這8行數(shù)據(jù)連接起來,，就構(gòu)成了一節(jié)課的完整安排,，經(jīng)適當(dā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ū)動編程的特點(diǎn),，它在界面設(shè)計、繪圖,、制表,、運(yùn)算、通信和多媒體開發(fā)方面都具有簡單易行,、功能強(qiáng)大等優(yōu)點(diǎn),。VB具有強(qiáng)大的數(shù)據(jù)處理功能，提供了多種數(shù)據(jù)訪問方法，可以將EXCEL數(shù)據(jù)表視為一個數(shù)據(jù)庫,，方便地進(jìn)行訪問和處理[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ù)進(jìn)行處理了。
2.2 課表數(shù)據(jù)的讀取
　程序在與EXCEL表建立鏈接之后,，即開始對課表中的數(shù)據(jù)進(jìn)行讀取,。先定義一個二維數(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                          
//當(dāng)前所讀取的某節(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風(fēng)格,，并提供了一些數(shù)據(jù)處理功能,。打開按鈕是指定課表所在位置，保存按鈕是將最后匯總結(jié)果以EXCEL文件的形式存到計算機(jī)中,。此外,，軟件還提供了剪切、復(fù)制,、粘貼,、撤銷、查找,、插入刪除行,、運(yùn)行、放大,、縮小,、原始大小等功能按鈕，以方便使用,。在軟件下方狀態(tài)欄的左邊顯示的是教師課表存放的位置,，右邊顯示的是開課教師的人數(shù)。通過菜單欄中的教師名單選項還可以查看所有開課教師的詳細(xì)名單,，以方便對結(jié)果的檢查和核對,。系統(tǒng)軟件界面的主要功能區(qū)如圖3所示。

　自動匯總系統(tǒng)的開發(fā),，較好地實現(xiàn)了對課表數(shù)據(jù)的讀取和匯總,，具有方便快捷的特點(diǎn)，大大提高了工作效率,，減輕了工作人員的重復(fù)性勞動,，并且提高了匯總課表的準(zhǔn)確性。該系統(tǒng)在應(yīng)用中效果較好,。
參考文獻(xiàn)
[1] 徐謖,，徐立.Visual Basic應(yīng)用與開發(fā)案例教程[M].北京：清華大學(xué)出版社，2005：223-225.
[2] 林桂明.用VB開發(fā)中職學(xué)校國家助學(xué)金管理軟件[J]. 湖南科技學(xué)院學(xué)報,，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）.