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

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

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

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

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

Set xlApp = CreateObject（"Excel.Application"）   
 //創(chuàng)建EXCEL對(duì)象
Set xlBook = xlApp.Workbooks.Open（address_file）    
//打開(kāi)已經(jīng)存在的EXCEL文件
xlApp.Visible = False                            
//設(shè)置EXCEL對(duì)象可見(jiàn)（或不可見(jiàn)）
Set xlsheet = xlBook.Worksheets（"sheet1"）           
//設(shè)置活動(dòng)工作表
For i = 1 To 5        //第1~第5大節(jié)
   For j = 1 To 6                //星期一到星期五
   xlsheet.Cells（2 + i， 2 + j） = course_each（i,， j）
     //向總課表中對(duì)應(yīng)單元格寫(xiě)數(shù)據(jù)
   Next j
Next i
xlBook.Save
xlBook.Close
xlApp.Quit                     //結(jié)束EXCEL對(duì)象
Set xlApp = Nothing            //釋放xlApp對(duì)象

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

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