摘 要： 根據(jù)實(shí)際工作的需要，開發(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é)期的開學(xué)初，都需要制作一份本院系所有任課教師上課安排的總課表。每位教師的課表可從學(xué)校的教務(wù)系統(tǒng)中自動(dòng)導(dǎo)出，但不少高校，總課表往往卻不能從系統(tǒng)中自動(dòng)生成，而需要教學(xué)秘書手工完成。雖然總課表也是一張課表，但它是將所有課表進(jìn)行匯總而成，要靠手工來(lái)完成課表的匯總工作，需要將本院系所有任課教師的課表都打印出來(lái)，一邊在計(jì)算機(jī)上復(fù)制、粘貼，一邊進(jìn)行核對(duì)，以免出現(xiàn)遺漏或重復(fù)。這樣不僅需要耗費(fèi)大量的紙張，而且工作量大、效率低，一張總課表往往需要一周的時(shí)間才能制作完成，同時(shí)匯總的課表差錯(cuò)多，給實(shí)際使用時(shí)帶來(lái)很多問題。本文根據(jù)實(shí)際工作的需要，結(jié)合課表的特點(diǎn)，利用Visual Basic6.0開發(fā)了一套教師課表自動(dòng)匯總系統(tǒng)[1-2]。
1 自動(dòng)匯總系統(tǒng)總體設(shè)計(jì)
1.1 課表結(jié)構(gòu)分析
本文以中原工學(xué)院使用過的清華紫光教務(wù)系統(tǒng)為例進(jìn)行說明。在系統(tǒng)設(shè)計(jì)之前，首先要分析課表的結(jié)構(gòu)。由教務(wù)系統(tǒng)導(dǎo)出的教師個(gè)人課表是EXCEL文件，圖1是從課表中截取的某一節(jié)課的安排示意圖。從圖1中可以看出，對(duì)每一節(jié)課的安排需占用EXCEL表中8行表格，第一行表示的是該課程的名稱和課程號(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ì)，首先要讀出教師名稱和人數(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)用十分廣泛的程序開發(fā)工具，具有可視化、事件驅(qū)動(dòng)編程的特點(diǎn)，它在界面設(shè)計(jì)、繪圖、制表、運(yùn)算、通信和多媒體開發(fā)方面都具有簡(jiǎn)單易行、功能強(qiáng)大等優(yōu)點(diǎn)。VB具有強(qiáng)大的數(shù)據(jù)處理功能，提供了多種數(shù)據(jù)訪問方法，可以將EXCEL數(shù)據(jù)表視為一個(gè)數(shù)據(jù)庫(kù)，方便地進(jìn)行訪問和處理[3]。
本系統(tǒng)利用面向?qū)ο蟮腁DO技術(shù)實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)（即EXCEL表）的訪問。ADO（ActiveX Data Object）是ActiveX數(shù)據(jù)對(duì)象，是Microsoft公司開發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序面向?qū)ο蟮男陆涌凇B利用ADO的Connection和Recordset對(duì)象可以直接訪問數(shù)據(jù)，也就是ADO從一個(gè)數(shù)據(jù)源中獲得記錄只需一個(gè)連接和一個(gè)記錄集[4]。其過程如下：
?。?）在工程中引用“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方法打開課表。
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表建立鏈接之后，即開始對(duì)課表中的數(shù)據(jù)進(jìn)行讀取。先定義一個(gè)二維數(shù)組來(lái)保存每節(jié)課的安排，每張課表同一時(shí)間的課程安排在被讀出后都追加到同一個(gè)二維數(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個(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é)課安排寫入對(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ù)寫入對(duì)應(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對(duì)象
Set xlBook = xlApp.Workbooks.Open（address_file）
//打開已經(jīng)存在的EXCEL文件
xlApp.Visible = False
//設(shè)置EXCEL對(duì)象可見（或不可見）
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)單元格寫數(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ù)處理功能。打開按鈕是指定課表所在位置，保存按鈕是將最后匯總結(jié)果以EXCEL文件的形式存到計(jì)算機(jī)中。此外，軟件還提供了剪切、復(fù)制、粘貼、撤銷、查找、插入刪除行、運(yùn)行、放大、縮小、原始大小等功能按鈕，以方便使用。在軟件下方狀態(tài)欄的左邊顯示的是教師課表存放的位置，右邊顯示的是開課教師的人數(shù)。通過菜單欄中的教師名單選項(xiàng)還可以查看所有開課教師的詳細(xì)名單，以方便對(duì)結(jié)果的檢查和核對(duì)。系統(tǒng)軟件界面的主要功能區(qū)如圖3所示。
自動(dòng)匯總系統(tǒng)的開發(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)用與開發(fā)案例教程[M].北京：清華大學(xué)出版社，2005：223-225.
[2] 林桂明.用VB開發(fā)中職學(xué)校國(guó)家助學(xué)金管理軟件[J]. 湖南科技學(xué)院學(xué)報(bào)，2010（8）：68-71.
[3] 高春艷，李艷.Visual Basic數(shù)據(jù)庫(kù)開發(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）.