網(wǎng)絡(luò)考試系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)

桑娟萍　汪雁　張東

摘 要：本文分析介紹了甘肅林業(yè)職業(yè)技術(shù)學(xué)院以Visual Basic.NET為開發(fā)環(huán)境，整個(gè)系統(tǒng)通訊采用Winsock技術(shù)，以Access為后臺(tái)數(shù)據(jù)庫(kù)格式，構(gòu)建了基于C/S（客戶端/服務(wù)器）模式的計(jì)算機(jī)類課程通用網(wǎng)絡(luò)考試系統(tǒng)。利用該系統(tǒng)可進(jìn)行考生信息管理、試卷生成及回收、考務(wù)管理及檔案生成，實(shí)現(xiàn)每人一卷的網(wǎng)絡(luò)化考試功能。

關(guān)鍵詞：Winsock控件；C/S模式；網(wǎng)絡(luò)考試系統(tǒng)；報(bào)表生成

中圖分類號(hào)：TP312 文獻(xiàn)標(biāo)識(shí)碼：A

Abstract：This article introduces the Gansu Forestry Technological College in Visual Basic.NET development environment，the whole communication system uses Winsock technology，with Access as background database，based on C/S（client/server）mode of general network examination system.The system of students' information management，test generation and recycling，examination management and file generation，to achieve a volume of network examination function.

Keywords：the Winsock control；C/S mode；network examination system；report generation

1 引言（Introduction）

隨著現(xiàn)代信息技術(shù)與計(jì)算機(jī)技術(shù)的發(fā)展，計(jì)算機(jī)應(yīng)用和校園網(wǎng)的普及為網(wǎng)絡(luò)考試系統(tǒng)的實(shí)現(xiàn)提供了硬件平臺(tái)，該模式今后必將是考試模式改革的必然。這是因?yàn)楝F(xiàn)行考試大都以紙質(zhì)試卷作為考試的憑證，為保護(hù)環(huán)境、節(jié)約用紙，施行無(wú)紙化考試模式已經(jīng)被社會(huì)所重視。其二，常規(guī)方式的考試組織一次至少要經(jīng)過人工出題、試卷印制、考生考試、人工閱卷、成績(jī)統(tǒng)計(jì)上報(bào)等步驟，隨著考試類型、考生數(shù)量的不斷增加及考試要求的不斷提高，組織考試的工作量越來(lái)越大，既易出錯(cuò)，又煩瑣。其三，現(xiàn)行考試大都采用一卷統(tǒng)考的模式，其弊端：試題相同、學(xué)生互相抄襲，沒有起到恒量學(xué)生真實(shí)水平的目的。因此，無(wú)紙化隨機(jī)抽題考試系統(tǒng)是真實(shí)考核每個(gè)學(xué)生學(xué)習(xí)掌握程度的最有效手段，既可減輕考試組織工作難度、提高工作效率，使考試趨于更公證、更客觀，又可減少紙張浪費(fèi)，保護(hù)森林資源。

2 開發(fā)環(huán)境、模式及通訊協(xié)議（Development environment，mode and communicationprotocol）

開發(fā)環(huán)境：Visual Basic.NET、VB.NET采用面向?qū)ο蟮某绦蛟O(shè)計(jì)思想，能把復(fù)雜的程序設(shè)計(jì)問題分解為一個(gè)個(gè)能夠完成獨(dú)立功能的相對(duì)簡(jiǎn)單的對(duì)象集合。

運(yùn)行環(huán)境：WindowsXP及以上操作系統(tǒng)。

開發(fā)模式：C/S模式，其特點(diǎn)之一是能夠減少網(wǎng)絡(luò)流量，提高事物處理速度。

通訊協(xié)議：TCP/IP協(xié)議，TCP/IP協(xié)議是Internet網(wǎng)最重要的協(xié)議，將VB提供的Winsock控件用在TCP/IP的基礎(chǔ)上進(jìn)行網(wǎng)絡(luò)通信，在開始數(shù)據(jù)傳輸之前，用戶必須先建立TCP連接，可以方便快捷地與遠(yuǎn)程計(jì)算機(jī)建立連接，進(jìn)行數(shù)據(jù)的傳輸[1-3]。

3 系統(tǒng)設(shè)計(jì)與數(shù)據(jù)庫(kù)實(shí)現(xiàn)（Design and implementation of database systems）

3.1 系統(tǒng)整體設(shè)計(jì)

整個(gè)考試系統(tǒng)包括兩個(gè)子系統(tǒng)（圖1），主控端、被控端，數(shù)據(jù)在兩個(gè)子系統(tǒng)之間流轉(zhuǎn)（圖2）。學(xué)生端主要是學(xué)生用來(lái)輸入基本信息、抽題、答題、發(fā)送答案；主控端主要用于答案回收、考務(wù)管理、檔案生成、大部分?jǐn)?shù)據(jù)通過機(jī)房局域網(wǎng)傳送，方便、安全、準(zhǔn)確、高效。

3.2 系統(tǒng)數(shù)據(jù)庫(kù)的實(shí)現(xiàn)

本網(wǎng)絡(luò)考試系統(tǒng)基于C/S模式，整個(gè)系統(tǒng)通訊采用Winsock技術(shù)，其后臺(tái)數(shù)據(jù)庫(kù)為由Access建立的關(guān)系型數(shù)據(jù)庫(kù)格式。如果考生多、信息量大、要求高效的數(shù)據(jù)處理，可將Access數(shù)據(jù)庫(kù)升級(jí)到SQL數(shù)據(jù)庫(kù)系統(tǒng)中，以增強(qiáng)數(shù)據(jù)庫(kù)訪問效率和安全性。

3.2.1 關(guān)系型數(shù)據(jù)庫(kù)的實(shí)現(xiàn)

Access就是關(guān)系數(shù)據(jù)庫(kù)開發(fā)工具，數(shù)據(jù)庫(kù)能匯集各種信息以供查詢、存儲(chǔ)和檢索。其優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于Excel的電子表格，可以使數(shù)據(jù)庫(kù)一目了然。另外，Access允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫(kù)中的信息。Access作為關(guān)系數(shù)據(jù)庫(kù)開發(fā)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫(kù)的便利和關(guān)系數(shù)據(jù)庫(kù)的強(qiáng)大功能；可以提供了數(shù)據(jù)存儲(chǔ)庫(kù)，可以使用桌面數(shù)據(jù)庫(kù)文件把數(shù)據(jù)庫(kù)文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫(kù)。

3.2.2 系統(tǒng)用ODBC連接數(shù)據(jù)庫(kù)（圖3）

由于該系統(tǒng)采用了較好的服務(wù)器/客戶機(jī)模式，利用計(jì)算機(jī)上的ODBC（開放式數(shù)據(jù)庫(kù)互聯(lián)，目前國(guó)際上通用的數(shù)據(jù)庫(kù)訪問標(biāo)準(zhǔn)）。配置和管理的工具，就可以定制使用ODBC來(lái)連接數(shù)據(jù)庫(kù)，其連接過程為：（1）VB程序指定DSN名稱；（2）ODBC數(shù)據(jù)源解析DSN名稱；（3）客戶機(jī)解析數(shù)據(jù)庫(kù)服務(wù)器名稱；（4）數(shù)據(jù)庫(kù)服務(wù)器驗(yàn)證DSN中的用戶名和密碼。

3.3 系統(tǒng)主要功能模塊及關(guān)鍵技術(shù)實(shí)現(xiàn)

3.3.1 系統(tǒng)模塊

本考試系統(tǒng)主要有：（1）用戶基本信息管理模塊：主要記錄學(xué)生及教務(wù)人員的代號(hào)、姓名、班級(jí)等基本信息；（2）試卷管理模塊：系統(tǒng)記錄考生抽到試卷的題目、題數(shù)及考生答案及試卷評(píng)閱、試題得分等信息；（3）數(shù)據(jù)庫(kù)管理模塊：由基本信息庫(kù)、試卷信息庫(kù)、成績(jī)庫(kù)、教務(wù)庫(kù)組成；（4）抽題模塊：有固定抽取套題、隨機(jī)產(chǎn)生套題、恢復(fù)上一次考試套題等多種方式；（5）用戶管理、權(quán)限設(shè)置模塊：為學(xué)生、考務(wù)人員、管理員等不同用戶提供不同的使用權(quán)限；（6）網(wǎng)絡(luò)通信模塊：利用Winsock控件進(jìn)行通信，測(cè)試當(dāng)前網(wǎng)絡(luò)狀態(tài)，主控端接收由學(xué)生端發(fā)出的數(shù)據(jù)庫(kù)；（7）學(xué)生答題模塊：學(xué)生對(duì)所抽到的套題進(jìn)行解答；（8）閱卷模塊：分主觀題、客觀題評(píng)閱，客觀題評(píng)閱由計(jì)算機(jī)自動(dòng)完成并同時(shí)建立相應(yīng)數(shù)據(jù)庫(kù)，主控端評(píng)分由考務(wù)人員輔助完成；（9）報(bào)表生成模塊：系統(tǒng)最后生成含有基本信息、試卷信息、成績(jī)信息組成的報(bào)表，可打印、存檔；（10）時(shí)間控制模塊：為整個(gè)考試過程提供規(guī)定的時(shí)間計(jì)時(shí)器，學(xué)生在考試時(shí)間用完時(shí)尚未交卷者將激活強(qiáng)制交卷程序；（11）檔案生成模塊：將所有考試信息存檔，以備參考與檢查、成績(jī)錄入、檔案生成。endprint

3.3.2 主要功能的實(shí)現(xiàn)

（1）系統(tǒng)主控端組成

（2）試卷及題庫(kù)管理模塊功能的實(shí)現(xiàn)

“申請(qǐng)?jiān)嚲怼卑粹o代碼

Dim sql$

On Error GoTo netyn

If Text1.Text = "" Then

Text1.Text = ""

Text1.SetFocus

MsgBox "您提交的查詢值不合法，請(qǐng)重新輸入！ 請(qǐng)檢查是否為空值。"

Exit Sub

End If

Data1.DatabaseName = （"U：＼ksxt_ksjh＼ksxt_ksjh_a1_97_mi.mdb"） '讀數(shù)據(jù)庫(kù)

Data1.Connect = "；pwd=" & "visualc#2006"

sql = "Select * From datadb1 Where 準(zhǔn)考證號(hào)= '" & Trim（Text1.Text） & "'"

Data1.RecordSource = sql

Data1.Refresh

If Data1.Recordset.EOF Then

xx1 = MsgBox（"數(shù)據(jù)庫(kù)查詢失敗。你的身份不合法，不能參加本次考試。"， 64， "申請(qǐng)考試"）

Data1.RecordSource = "datadb1"

Data1.Refresh

Exit Sub

End If

s（） = Split（Text8.Text， "."）

Text10.Text = s（0） & s（1） & s（2）

' Me.Hide

' Form8.Show

'Unload Me

'MsgBox "成功"

Me.Hide

frmdd.Show

frmdd.Label2.Caption = "1"

frmdd.label1.Caption = "您提交的數(shù)據(jù)正發(fā)送至考試系統(tǒng)主控端以驗(yàn)證身份，請(qǐng)稍后... ..."

Exit Sub

netyn： MsgBox "考試系統(tǒng)主控端考試計(jì)劃文件在網(wǎng)絡(luò)上未找到，請(qǐng)檢查，是否：a.網(wǎng)絡(luò)連通，網(wǎng)內(nèi)計(jì)算機(jī)可互訪；b.主控端打開；c.考試文件存在并合法；d.數(shù)據(jù)庫(kù)被加密。"

End Sub

（3）網(wǎng)絡(luò)通信模塊功能實(shí)現(xiàn)

測(cè)試當(dāng)前網(wǎng)絡(luò)狀態(tài)，主控端接收由學(xué)生端發(fā)出的數(shù)據(jù)庫(kù)。利用Winsock控件進(jìn)行通信。只需要通過設(shè)置Winsock控件的屬性并調(diào)用其方法就可以輕易連接到另外一臺(tái)機(jī)器上去，并且還可進(jìn)行雙向數(shù)據(jù)交換。在TCP應(yīng)用中，為了建立一個(gè)網(wǎng)絡(luò)連接實(shí)例（Instance）的服務(wù)器端，只需設(shè)置本地服務(wù)端口號(hào)，然后服務(wù)器調(diào)用方法Listen進(jìn)入阻塞狀態(tài)，等待來(lái)自客戶的連接請(qǐng)求。于此對(duì)應(yīng)的客戶端不但要將Winsock的屬性RemoteHost置為服務(wù)器的名稱（IP地址或網(wǎng)絡(luò)代號(hào)），還應(yīng)設(shè)置服務(wù)器所監(jiān)聽的相應(yīng)服務(wù)的端口號(hào)（RemotePort），然后調(diào)用方法Winsock，Connect向服務(wù)器發(fā)出請(qǐng)求。服務(wù)器接收到客戶請(qǐng)求時(shí)，事件ConnectionRequest將被觸發(fā)。如服務(wù)器愿意提供服務(wù)，則可調(diào)用Accept方法接受連接。一旦連接建立，兩端均可使用SendData或GetData進(jìn)行數(shù)據(jù)的發(fā)送或接收。事件DataArrival將在另一端數(shù)據(jù)準(zhǔn)備就緒時(shí)被觸發(fā)[4]。

（4）時(shí)間控制模塊功能模塊實(shí)現(xiàn)[5]

為整個(gè)考試過程提供規(guī)定的時(shí)間計(jì)時(shí)器。學(xué)生在考試時(shí)間用完時(shí)尚未交卷者將激活強(qiáng)制交卷程序。系統(tǒng)日期的顯示是通過對(duì)標(biāo)簽的CAPTION屬性賦予日期函數(shù)實(shí)現(xiàn)的，相關(guān)代碼如下：

Private Sub Form_Load（）

Text1（0）.Text=""

Text1（1）.Text=""

Label18.Caption=Date

a=100

End Sub

系統(tǒng)時(shí)間是通過一個(gè)計(jì)時(shí)器控件timer1和一個(gè)保存時(shí)間的全局變量a實(shí)現(xiàn)的，a初始化為考試所用分鐘數(shù)，即上述代碼中的a=100，計(jì)時(shí)器控件的interval屬性設(shè)置成60000，每分鐘計(jì)時(shí)一次。實(shí)現(xiàn)代碼如下：

Private Sub Timer1_Timer（）

a=a-1；

Text1.Text=a；

If a=5 Then

MsgBox "只剩余5 分鐘，請(qǐng)準(zhǔn)備交卷"

If a=1 Then MsgBox "考試時(shí)間到請(qǐng)馬上交卷"

If a=0 Then End

End If

End Sub

4 結(jié)論（Conclusion）

通過采用這幾個(gè)模塊，基本上可以控制考試系統(tǒng)的安全性、可靠性，可以達(dá)到考試系統(tǒng)的智能特性。最大可能的利用程序來(lái)完成考試過程中需要人工來(lái)完成的工作，真正的解決傳統(tǒng)考試模式所帶來(lái)的弊端。達(dá)到設(shè)計(jì)時(shí)的目的，實(shí)現(xiàn)了考試信息化、高效化、經(jīng)濟(jì)化、科學(xué)化。這種考試方法不僅實(shí)現(xiàn)了無(wú)紙化，還使學(xué)生增加了上機(jī)練習(xí)與模擬的機(jī)會(huì)，提高了計(jì)算機(jī)應(yīng)用能力。

參考文獻(xiàn)（References）

[1] 譚浩強(qiáng)，等.Visual Basic程序設(shè)計(jì)[M].北京：清華大學(xué)出版社，2005.

[2] 鄧緋，涂曉英.使用Winsock控件構(gòu)建基于C/S模式的網(wǎng)絡(luò)考試系統(tǒng)[J].福建電腦，2010，（9）；158-159.

[3] 鄧緋，陳印.使用開發(fā)服務(wù)器/客戶端程序[J].四川職業(yè)技術(shù)學(xué)院學(xué)報(bào)，2004，14（4）：105-107.

[4] 龔安.基于VB的Winsock控件實(shí)現(xiàn)C/S網(wǎng)絡(luò)通信[J].科學(xué)技術(shù)與工程，2006，6（10）：1447-1449.

[5] 陳海蕊.基于VB的學(xué)生考試系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)[J].福建電腦，2009，（3）：120.

作者簡(jiǎn)介：

桑娟萍（1965-），女，碩士，教授.研究領(lǐng)域：林業(yè)信息技術(shù)應(yīng)用教學(xué)及技術(shù)研究.

汪 雁（1981-），女，本科，助教.研究領(lǐng)域：軟件開發(fā)與設(shè)計(jì).

張小東（1982-），男，本科，講師.研究領(lǐng)域：網(wǎng)絡(luò)工程.endprint