文/郭向東 王麗峰

本文主要介紹基于Authorware和Access開發(fā)考試管理系統(tǒng)的方法。從題庫管理、考試設置、注冊管理到成績回收，給出了邏輯結(jié)構(gòu)和程序代碼，其中對題庫管理進行了比較詳細的陳述。

筆者曾在《中國教育網(wǎng)絡》2013年2～3月上發(fā)表了一篇題為《基于Authorware和Access的考試系統(tǒng)設計》的文章，就考試系統(tǒng)的設計進行了詳盡的介紹。嚴格說來，它是一個考試客戶端。一個完整的系統(tǒng)，應由考試子系統(tǒng)、數(shù)據(jù)庫和管理子系統(tǒng)構(gòu)成。它們之間的信息流關(guān)系如圖1所示。很明顯，這是一種傳統(tǒng)的C/S模式。先是由管理端將數(shù)據(jù)庫中為考試提供若干約束性設置的數(shù)據(jù)表和各類試題庫進行更新或更換；再是考試端訪問數(shù)據(jù)庫獲取相關(guān)信息和考題，考試完后交卷，將得分寫入數(shù)據(jù)庫；最后是管理端將數(shù)據(jù)庫中考生分數(shù)回收、將題庫備份后清空，以備下一次（科）考試。

為保證系統(tǒng)正常運行，數(shù)據(jù)庫中可供考試端和管理端訪問的數(shù)據(jù)表至少應有：shezhi存放科目名稱、時限、各題型小題數(shù)及小題分；zhuce存放注冊考生的學號、姓名、密碼；chengji存放考生的學號、姓名、各大題得分及總成績；而xuanzeti、tiankongti、duoxuanti等表，則分別存放單選、填空和多選等題型題目的編號、題干、各選項、正確答案。

圖1 考試客戶端信息關(guān)系流

圖2 管理與系統(tǒng)

本文將基于Authorware和Access對考試管理系統(tǒng)的設計進行探討。

考試管理系統(tǒng)的工作就是對考前和考后的數(shù)據(jù)庫進行管理和處理，具體功能和流程圖如圖2所示。

首先，管理端必須與位于服務器上的數(shù)據(jù)庫建立連接。在封面上的“服務器”文本框中（如圖3所示）鍵入其位置，比如用局域網(wǎng)中某一臺計算機A010充當服務器，這時可以鍵入\A010，回車?！皥D2”中“服務器”交互的“＊”圖標的程序和“連接數(shù)據(jù)庫”圖標的程序相繼運行，按指定的位置、賬戶和密碼完成連接：

position:=EntryText

--記錄鍵入的位置。

dblist:="DSN=test info;"

圖3 考試管理系統(tǒng)登錄界面

dblist:=dblist^"Description=試題庫;"

dblist:=dblist^"FIL=MS Access;"

dblist:=dblist^"DBQ="^position^"\數(shù)據(jù)包\shitiku.mdb;"

dblist:=dblist^"uid=auth;"

dblist:=dblist^"pwd=123456;"

result:=tMsDBRegister(4,dbtype,dblist)

接下來，“操作”圖標的程序運行，打開數(shù)據(jù)庫：

Databasename:="test info"

ODBCError:=""

ODBCHandle:=ODBCOpen(WindowHandle,ODBCError,Dat abasename,"","")

至此，管理端便可開始考試管理工作了。

科目時間設置

考試客戶端作為一個考試平臺，所承接的絕不會只是單一科目的考試，其科目名稱、題目數(shù)量、分數(shù)分配、時間限制等都會有所不同。因此，在一場考試之前，考試管理端要將有關(guān)信息送入數(shù)據(jù)庫，以供考試客戶端訪問并初始化。

圖4 科目時間群組設置

由于時限、科目名稱、各大題的小題數(shù)量、分數(shù)等設置信息量小，完全可以在系統(tǒng)的顯示頁面上即時輸入。因此，我們采用“文本響應”的方式來實現(xiàn)。“科目時間”群組的設置如圖4的“層3”，其他群組類似。在“填空”、“單選”和“多選”的題數(shù)設置時要注意鍵入的數(shù)值必須小于或等于題庫中現(xiàn)有的題量。為了避免錯誤，在對應的圖標中安排有相應的程序（以“單選”為例）：

danx_num:=EntryText

sqlstring:="select count(＊) from xuanzeti"

jilu_danx:=ODBCExecute(ODBCHandle,sqlstring)

if danx_num>jilu_danx then

SystemMessageBox(WindowHandle,"當前單選題庫題目只有"^jilu_danx^"題。"^Return^"設置不得超過此數(shù)。","提醒",48)

GoTo(@"單選項")

end if

整個顯示頁面如圖5所示。用8個變量將相應文本框中的設置信息記錄下來，單擊“確定”，便寫入數(shù)據(jù)庫。“確定”圖標（圖4）的程序如下：

sqlstring:="update shezhi set 科目="^"'"^kemu^"'"^",時限="^timelim

sqlstring:=splstring^",填空題數(shù)="^tk_num^",小題分1="^tk_fen

sqlstring:=sqlstring^",單選題數(shù)="^danx_num^",小題分2="^danx_fen sqlstring:=sqlstring^",多選題數(shù)="^duox_num^",小題分3="^duox_fen^"where shezhi.ID=1"

gengxin:=ODBCExecute(ODBCHand le,sqlstring)

ODBCClose(ODBCHandle)

SystemMessageBox(WindowHandle,"考分/時間設置成功","告知",48)

GoTo(@"操作")

圖5 顯示頁面

題庫管理

“題庫管理”有三個子功能：分大類題型“傳送新題”，“備份舊題”，“清空舊題”。

“傳送新題”——是將當前考試要使用的題目送達題庫，以供考試組題。新題文件應事先準備好，考慮到源文件最好不要依賴操作系統(tǒng)之外的第三方軟件，我們采用txt文件。至于文件名，應固定下來。比如用于單選題傳送的新題文件，取名為“傳送新題_danx.txt”。新題文件中，題目編號從1開始，自然連續(xù)，不得缺號（因為缺號會在考試端隨機組題時造成錯誤），物理順序不限。值得特別提醒的是，用記事本編輯題目時，一定要注意每一題的各項之間用制表位分隔，而兩題之間用回車符分隔，不然就會造成傳送失敗。同時，要注意與表結(jié)構(gòu)吻合，以單選題為例，每小題均由“編號”、“題干”、“答案A”、“答案B”、“答案C”、“答案D”、“正答”等7項數(shù)據(jù)組成，不得出現(xiàn)缺項或錯項。為了避免不同計算機上“本地磁盤”安排的不確定性，程序要求待傳文件應放在c:盤上。

程序如下：

建數(shù)組，讀txt源文件，檢測其行數(shù)。

result:=Array("",7)xintilist:=ReadExtFile("c:\傳送新題_danx.txt")xintiline:=LineCount(xintilist)

用數(shù)組變量循環(huán)讀取i行j項的數(shù)據(jù)并寫入xuanzeti表中的各字段，若有空項，此題不寫（數(shù)據(jù)庫中已設置，無須程序），并告知。

repeat with i:=2 to xintiline

resultstring:=GetLine(xintilist,i)

repeat with j:=1 to 7

result[j]:=GetLine(resultstring,j,j,Tab)if result[j]="" then

SystemMessageBox(WindowHandle,"第"^i-1^"題第"^j^"項空缺或錯位，此題不能傳送。"^Return^"請修改完善后再傳送！","告知",48)

end if

end repeat

sqlstring:="insert into xuanzeti (編號,題干,答案A,答案B,答案C,答案D,正答)values("^result[1]

sqlstring:=sqlstring^","^"'"^result[2]^"'"^","^"'"^result[3]^"'"^","^"'"^result[4]^"'"^","^"'"^result[5]^"'"^","^"'"^resu lt[6]^"'"^","

sqlstring:=sqlstring^"'"^result[7]^"'"^")"

chuanshong:=ODBCExecute(ODBCHandle,sqlstri ng)

end repeat

測出庫中xuanzeti表里的記錄總數(shù)，與源文件比較，并告知用戶。

sqlstring:="select count(＊) from xuanzeti"

jilu_num:=ODBCExecute(ODBCHandle,sqlstring)

if jilu_num<>xintiline-1 then

SystemMessageBox(WindowHandle,"新題傳送少了"^xintiline-jilu_num-1^"道題。"^Return^"題中不要使用西文單引號！","告知",48)

else

SystemMessageBox(WindowHandle,"新題悉數(shù)傳送。共"^jilu_num^"道題。","告知",48)

end if

新題傳送的關(guān)鍵是如何讀取txt文件中一行（也是一題）的各項。程序使用ReadExtFile()函數(shù)讀取整個源文件，再用LineCount()函數(shù)檢測出總行（題）數(shù)，而GetLine()函數(shù)根據(jù)參數(shù)安排的不同既可從字符串中讀出指定的某一行，也可讀取其中的某一項。再輔以數(shù)組變量和循環(huán)，問題就迎刃而解了。

“備份舊題”——是將庫中現(xiàn)存的題保存到txt文件中，以備未來使用或存檔之需。同理，備份文件也被指定存放在c:上，待用戶稍后取走。請看程序：

AppendExtFile("c:\備份舊題_danx.txt","

編號 題干

答案A 答案B

答案C 答案D

正答Return

sqlstring:="select min(編號) from xuanzeti"minid:=ODBCExecute(ODBCHandle,sqlstring)

sqlstring:="select max(編號) from xuanzeti"

maxid:=ODBCExecute(ODBCHandle,sqlstring)

圖7

--查出最小的ID值和最大的ID值

repeat with i:=minid to maxid

sqlstring:="select ＊ from xuanzeti where xuanzeti.編號 ="^i

jilu:=ODBCExecute(ODBCHandle,sqlstring)

AppendExtFile("c:\備份舊題_danx.txt",jilu^Return)end repeat

acctotxt:=ReadExtFile("c:\備份舊題_danx.txt")

txtline:=LineCount(acctotxt)

--從access備份形成的txt文件中得出記錄的條數(shù)。

SystemMessageBox(WindowHandle,"舊題備份完畢。共"^txtline-1^"條。"^Return^"請在c:\取走文件"^"“"^"備份舊題_danx.txt”。","告知",48)

GoTo(@"題庫操作")

與前面?zhèn)魉托骂}相反，它是將數(shù)據(jù)庫中的信息寫入txt文件，使用函數(shù)AppendExtFile()先創(chuàng)建txt文件，并將字段名寫入，再循環(huán)讀取數(shù)據(jù)庫中各條記錄，追加進該文件。

無論是傳送還是備份，系統(tǒng)都要提示用戶文件名是什么，放在哪里，注意些什么問題。大大提高了軟件的易用性。

“清空舊題”——是將當前題庫中的記錄刪除，只保留表結(jié)構(gòu)，以備傳送新題。程序代碼非常簡單：

SystemMessageBox(WindowHandle, "您確實要清空嗎？", "警告" ,36)

sqlstring:="delete from xuanzeti"

qingkong:=ODBCExecute(ODBCHandle,sqlstring)

注冊管理

因為每場考試都可能是不同的考生，為了節(jié)省時間，減少折騰，我們常常需要預先集體批量注冊，把當場考試的考生信息傳送至數(shù)據(jù)庫，讓考生開考時直接登錄。

注冊的傳送、備份、清空與題庫管理類似，只是對接的數(shù)據(jù)表不同而已。

成績回收

考生的原始成績信息，可以分析出很多反映試卷質(zhì)量指標和教學質(zhì)量指標的數(shù)據(jù)，如考試信度、效度、區(qū)分度、難度和及格率、優(yōu)分率、平均分等，在程序中加入相應的模塊很容易實現(xiàn)?？紤]程序的簡明，本系統(tǒng)未做安排?！俺煽兓厥铡敝粚忌罨镜某煽冃畔⑦M行回收，包括“序號”、“學號”、“姓名”、“填空”、“單選”、“多選”、“總分”等。為了方便識別回收的成績文件，程序在創(chuàng)建成績文件時，文件名中包含“科目”和“日期”的信息，因此，之前要對“科目”變量kemu和“日期”變量riqi賦值。

“確定”圖標中源程序如下：

AppendExtFile("c:\"^"《"^kemu^"》"^"成績_"^riqi^".txt","序號 學號 姓名填空 單選 多選 總分"^Return)

sqlstring:="select min(ID) from chengji"

minid:=ODBCExecute(ODBCHandle,sqlstring)

sqlstring:="select max(ID) from chengji"

maxid:=ODBCExecute(ODBCHandle,sqlstring)

--查出最小的ID值和最大的ID值

repeat with i:=minid to maxid

sqlstring:="select ＊ from chengji where chengji.ID="^i

jilu:=ODBCExecute(ODBCHandle,sqlstring)

AppendExtFile("c:\"^"《"^kemu^"》"^"成 績 _"^riqi^".

txt",jilu^Return)

end repeat

acctotxt:=ReadExtFile("c:\"^"《"^kemu^"》"^"成績 _"^riqi^".txt")

txtline:=LineCount(acctotxt)

--從access回收形成的txt文件中得出記錄的條數(shù)。

SystemMessageBox(WindowHandle,"成績回收完畢。共"^txtline-1^"條。"^Return^"請在c:\取走文件"^"“"^"《"^kemu^"》"^"成績_"^riqi^".txt”。","告知",48)

GoTo(@"封面2")

當然，我們還可以為“成績回收”增加選擇性回收的功能，使其更加方便和完善。

如果不用考試管理系統(tǒng)，我們也可以手工對數(shù)據(jù)庫進行操作，但是相當麻煩的工作，而且一要求用戶有使用數(shù)據(jù)庫的技能，二要求計算機能提供Access環(huán)境。特別是數(shù)據(jù)庫的安全可能因此受到威脅，結(jié)構(gòu)可能遭到破壞，甚至招致整個系統(tǒng)癱瘓?？梢?，考試管理系統(tǒng)的作用是十分重要的。