使用VFP隨機抽簽安排考生座位

孟漢卿

摘要：市場見到的實驗操作考試抽簽軟件存在工作非常繁重，尾數考場抽簽不公平，工作量大等問題。用VFP編寫的實驗操作考試抽簽軟件，易操作，簡單實用。

關鍵詞：實驗操作考試抽簽；工作非常繁重且不公平；用VFP編寫；易操作；簡單實用

中圖分類號：G632.0 文獻標識碼：A 文章編號：1992-7711（2017）03-0111

山西省在全省范圍加試理化實驗操作。每場48人，要采取隨機抽簽的辦法分物理24人、化學24人，只考一科。為公平公正要求用計算機抽簽決定考生所考試題，目前見到各地市自編的軟件存在以下問題：首先，考試的前、后期準備工作非常繁重，而且尾數考場抽簽非常不合理，把不到24人的考生放到一個考場，這樣對考生失去公平。其次，每場考試結束后登分，不能及時出成績，試卷按報名號順序整理，這樣勢必造成兩個考場考生試卷打亂，增加工作量。

為了不影響其他考生正常學習，按照班級順序逐班考試。根據這些要求，用VFP編寫了一個《大同市中考理化實驗操作抽簽軟件》。

第一步：建表

新建兩個表，一個名為學生.dbf的表（學校，學號，姓名，班級），一個名為abc.dbf的表（學校，學號，姓名，班級，考場，學科，座位號，成績）。

第二步：建菜單

新建四個名為數據導入、考場設置、數據導出、退出的菜單。

1. 我們的數據是招辦提供的Excel格式的，我要把它轉換為以dbf擴展名的表。

use 學生 exclusive &&以獨占方式打開學生表

zap &&物理刪除表中所有記錄

append from getfile（'xls'，''，''，0，'選擇一個Excel文件'）type xl5 &&添加以擴展名xls的表

delect for 姓名='' and 學號='' &&刪除姓名并且學號為空的記錄標記

pack &&徹底刪除帶有刪除標記的記錄

select * from 學生 into sursor 導入的數據 &&查詢導入的數據“學生”，存放在臨時表“導入的數據”

brow &&瀏覽“導入的數據”表

2. 考場設置

close all &&關閉所有打開的數據庫，表和索引

delete file fzh.dbf &&從磁盤上刪除指定文件

if file（"fzh.bak"） &&如果發現備份文件

delete file fzh.bak &&刪除fzh備份文件

endif

use abc.dbf &&打開abc表

zap &&徹底刪除表中所有記錄

use &&關閉abc表

use 學生 &&打開學生表

copy to fzh &&復制到fzh表

use &&關閉fzh表

alter table fzh add kc c（2） &&在表中添加考場（ck）字段

use fzh &&打開zfh表

go top &&記錄指針指向第一條記錄

do while not eof（） &&指針不在記錄尾循環

kch=1 &&給考場號賦值

kch=ceiling（recn（）/48） &&記錄號除以48再利用函數ceiling（）向上取整產生考場號

replac kc with padl（kch，2，[0]） &&更新kc

skip &&記錄指針向下走一個

kch=kch+1 &&考場號加1

enddo &&結束循環

use &&關閉表

set date to ymd &&設置日期為年月日

do form lh.scx &&運行理化實驗抽簽表單lh

3. 數據導出

判斷abc表是否使用，如果使用關閉當前工作區中的abc表。如果fzh有記錄數據，把數據導出到abc表中，并且出現一個信息提示對話框，程序代碼這樣寫：

IF Used（"abc"）

USE IN abc

ENDIF

USE abc

if recc（）<>0

COPY TO PUTFILE（""，""，"xls"） TYPE xls

messagebox（"數據導出成功"，0+64，"提示信息"）

else

messagebox（"沒有數據，不能導出"，0+64+0，"提示！"）

Endif

4. 退出

quit &&關閉所有文件并退出vfp

第三步：建表單

新建一個名為lh.scx的表單，表單上加兩個標簽Label1、Label2的caption分別為大同市理化實驗操作抽簽程序、選擇場次作為提示。表單上加入一個下拉列表框，程序運行時用于選擇場次。表單上加入四個命令按鈕并將command1、command2、command3、command4的caption分別設為抽簽、預覽、打印、退出。

（1）在組合框的屬性RowSource中輸入：

select distinct kc from fzh into cursor temp &&查詢考場不重復的值保存到臨時表temp

在RowSourceType屬性里選擇3-SQL語句

（2）command1的click中輸入：

set safe off &&關閉程序運算的顯示過程

if file（"fzh1.dbf"） &&判斷表fzh1是否存在

release fzh1

endif

use fzh

copy to fzh1 for kc=thisform.combo1.value

use in fzh

use fzh1

if reccount（）<48 &&判斷尾數考場是否為48人

n=48-reccount（）

for i=1 to n

append blank

endfor

endif

use

select round（rand（），6） as sjh， * from fzh1 into cursor b1 &&添加一隨機6位數字段sjh保存到臨時表b1

select * from b1 order by sjh into table fzh2 &&對臨時表排序

use in fzh1

alter table fzh2 add xk c（8） &&添加字符型字段xk到fzh2

alter table fzh2 add zwh n（4） &&添加數值型字段zwh到fzh2

repl xk with "物理" for recn（）<=24 &&更新小于24的記錄號xk為物理

repl xk with "化學" for recn（）>24 &&更新大于24的記錄號xk為化學

repl zwh with recn（） for recn（）<=24 &&更新小于24的記錄號座位號

repl zwh with recn（）-24 for recn（）>24 &&更新大于24的記錄號座位號

IF USED（"abc"） &&判斷表abc是否存在

SELECT abc

ELSE

USE abc

ENDIF

use abc

append from fzh2 &&把數據追加到fzh2

use

（3）command2的click中輸入：

use fzh2

use in select（ 'fzh'）

if file（"lh.frx"）

REPORT FORM lh.frx NOEJECT NOCONSOLE preview

else

return

endif

（4）command3的click中輸入：

if file（"lh.frx"）

SET PRINTER TO NAME GETPRINTER（）

report form lh.frx to printer prompt noconsole

else

return

endif

（5）command4的click中輸入：

messagebox（"請退出程序前把數據導出"，64，"理化實驗操作系統"） &&提示對話框是否退出

*對學生、fzh、fzh1、fzh2四個表物理刪除全部記錄

use 學生.dbf

zap

use

use fzh.dbf

zap

use

use fzh1

zap

use

use fzh2

zap

use

thisform.release &&退出表單

《大同市中考理化實驗操作抽簽軟件》克服了上述的缺點，給考點工作人員減輕了不少負擔，而且考試結束后，考生成績結果10分鐘就張榜公布。

（作者單位：山西省大同市教育技術裝備中心 037000）