Delphi專業(yè)試題庫(kù)的設(shè)計(jì)與實(shí)現(xiàn)智能抽題的算法

1、Delphi專業(yè)試題庫(kù)的設(shè)計(jì)與實(shí)現(xiàn)   劉東玉   摘  要  本文主要敘述了含公式、圖片的專業(yè)試題庫(kù)的總體設(shè)計(jì)、系統(tǒng)功能以及實(shí)現(xiàn)方法，并給出了用Ole Automation技術(shù)并結(jié)合Word VBA實(shí)現(xiàn)對(duì)公式及圖片等專業(yè)題目的處理。該試題庫(kù)在Windows環(huán)境下，用Delphi5.0+SQL Server2000+Office2000實(shí)現(xiàn)。關(guān)鍵字  試題庫(kù)  客戶服務(wù)器  Delphi  Word VBA  SQL語句  1 引言傳統(tǒng)試題庫(kù)管理系統(tǒng)，都是基于文本型的關(guān)系數(shù)據(jù)

2、庫(kù)來組織信息和設(shè)計(jì)開發(fā)的。理工類專業(yè)試題可能以公式、表格、圖形、圖像等形式表現(xiàn)，因此用傳統(tǒng)的方式開發(fā)此類專業(yè)試題庫(kù)在存貯、顯示試題時(shí)有很大的局限性。本文以筆者開發(fā)的某專業(yè)試題庫(kù)系統(tǒng)為例介紹了如何開發(fā)含公式、圖片的專業(yè)試題庫(kù)。某專業(yè)試題庫(kù)系統(tǒng)是一套用于對(duì)某專業(yè)考核試題庫(kù)叢書的試題進(jìn)行計(jì)算機(jī)管理的應(yīng)用軟件。該系統(tǒng)主要實(shí)現(xiàn)叢書文檔的批量數(shù)據(jù)錄入、逐個(gè)數(shù)據(jù)錄入、修改、檢索；手工出題和自動(dòng)出題；實(shí)現(xiàn)了網(wǎng)絡(luò)化，使得用戶可以在客戶端進(jìn)行遠(yuǎn)程訓(xùn)練、考試；能夠跟Word兼容，處理公式和圖片類試題；對(duì)系統(tǒng)用戶統(tǒng)一管理，因人授予其使用功能和訪問現(xiàn)有數(shù)據(jù)庫(kù)的范圍和權(quán)限。系統(tǒng)有如下功能模塊：數(shù)據(jù)服務(wù)器、試題管理系統(tǒng)、遠(yuǎn)

3、程訓(xùn)練考試系統(tǒng)。2 技術(shù)指標(biāo)某專業(yè)試題庫(kù)系統(tǒng)運(yùn)用Delphi5.0作為前臺(tái)開發(fā)工具，采用SQL Server97作為后臺(tái)數(shù)據(jù)庫(kù)，通過在Delphi程序中嵌入Word，實(shí)現(xiàn)對(duì)試題的編寫。開發(fā)本課題的核心是試題管理系統(tǒng)的開發(fā)，重點(diǎn)是智能抽題部分，難點(diǎn)是實(shí)現(xiàn)與Word的結(jié)合處理含公式圖片的試題、批量錄入的實(shí)現(xiàn)和三層結(jié)構(gòu)的實(shí)現(xiàn)。  軟件的實(shí)現(xiàn)主要有以下技術(shù)指標(biāo)： 建立后臺(tái)數(shù)據(jù)庫(kù). 運(yùn)用Delphi5.0動(dòng)態(tài)生成SQL語句。 通過跟Word 結(jié)合實(shí)現(xiàn)對(duì)試題的錄入、顯示。 運(yùn)用智能算法進(jìn)行抽題。 運(yùn)用Midas技術(shù)實(shí)現(xiàn)網(wǎng)絡(luò)功能。 運(yùn)用Word VBA技術(shù)實(shí)現(xiàn)批量試題錄入3 功能設(shè)計(jì)與實(shí)現(xiàn)某專業(yè)試

4、題庫(kù)系統(tǒng)分為數(shù)據(jù)服務(wù)器、管理系統(tǒng)和遠(yuǎn)程訓(xùn)練考試系統(tǒng)三層。如圖1所示。圖1  總體設(shè)計(jì)數(shù)據(jù)服務(wù)器：數(shù)據(jù)服務(wù)器是為客戶端存放數(shù)據(jù)的服務(wù)器，為管理系統(tǒng)和客戶端提供服務(wù)。管理系統(tǒng)：管理系統(tǒng)是對(duì)某專業(yè)考核試題庫(kù)叢書的試題進(jìn)行管理的系統(tǒng)。主要完成系統(tǒng)設(shè)置、試題管理、抽題管理和權(quán)限設(shè)置。遠(yuǎn)程訓(xùn)練考試系統(tǒng)：遠(yuǎn)程訓(xùn)練考試系統(tǒng)（即客戶端）主要用于遠(yuǎn)程計(jì)算機(jī)調(diào)用服務(wù)器抽出的試題以及用戶在遠(yuǎn)程進(jìn)行訓(xùn)練。3.1數(shù)據(jù)服務(wù)器的實(shí)現(xiàn)數(shù)據(jù)交換服務(wù)器的關(guān)鍵部件是遠(yuǎn)程數(shù)據(jù)模塊，它提供了IAppServer接口?？蛻魴C(jī)數(shù)據(jù)庫(kù)應(yīng)用程序通過IAppServer的AS_GetProviderNames以及ClientDataSe

5、t的ProviderName屬性指定數(shù)據(jù)交換服務(wù)器上的DataSetProvider或Provider組件。3.2管理系統(tǒng)的實(shí)現(xiàn)管理系統(tǒng)是某專業(yè)試題庫(kù)系統(tǒng)的核心，以下重點(diǎn)介紹批量數(shù)據(jù)錄入、Word文檔入庫(kù)和智能抽題算法的設(shè)計(jì)與實(shí)現(xiàn)。3.2.1  批量數(shù)據(jù)錄入批量數(shù)據(jù)錄入是指將規(guī)定格式的Word文檔錄入到數(shù)據(jù)庫(kù)中。在每個(gè)試題編號(hào)前加一個(gè)符號(hào)，在每一個(gè)答案前加一#作為標(biāo)志。在文檔的最后加一$，表示結(jié)束。批量錄入是系統(tǒng)實(shí)現(xiàn)的難點(diǎn)之一，它是應(yīng)用Delphi5.0調(diào)用Word VBA來實(shí)現(xiàn)的，其流程如下圖所示： 圖2  批量錄入流程其部分代碼及其分析如下：/循環(huán)開始，如果不

6、是$繼續(xù)循環(huán)  while s1<>'$' do   begin    j:=j+1;    pa:=wd1.Paragraphs.Item(j);    s:=pa.Range.Get_Text;/判斷是否    if s1='' then    begin     if j<>1 then  

7、60;    begin        filename:=ExtractFileDir(Application.Exename)+'temptempa.doc'        wd2.SaveAs(filename);        wd2.Close;        w

8、d2.Disconnect;/提取試題編號(hào)     stbh:=''     for i:=2 to 22 do      stbh:=stbh+si;      j:=j+1;      pa:=wd1.Paragraphs.Item(j);      pa.Range.Copy; 

9、0;     quebool:=true;      /新建Word文檔 并將跟內(nèi)容粘貼        wa1.Documents.Add(template,newtemplate);        wd2.ConnectTo(wa1.Documents.Item(ItemIndex);       

10、; wd2.Content.Paste;        wa1.Selection.StartOf(unit_,Extend1);        wd2.Range.EndOf(unit_,count);    end;/如果是#符號(hào)，則將內(nèi)容存放到答案中，是正常內(nèi)容則繼續(xù)讀取，此處代碼略end;3.2.2  將Word文檔入庫(kù)由于某專業(yè)考核試題庫(kù)中的試題含有公式及圖片，而如何將這些含有公式及圖片的試題保存成為一個(gè)要

11、解決的難題。在設(shè)計(jì)時(shí)將每個(gè)題目及答案看作Word文檔，將這些Word文檔保存到數(shù)據(jù)庫(kù)中便是要解決的問題。在保存這些Word文檔時(shí)將每個(gè)Word文檔轉(zhuǎn)換成數(shù)據(jù)流，以流的形式將這些文件保存到類型為BLOB的字段中，這樣就解決了題目的存放問題。在添加一條含有文件流的記錄時(shí)，首先將非BLOB字段的字段添加到表內(nèi)，然后通過以只讀的方式創(chuàng)建文件流、以寫入的方式創(chuàng)建BLOB流、讀取緩存、寫入數(shù)據(jù)、保存記錄等一系列過程完成數(shù)據(jù)保存。具體流程如下：圖3  Word文檔入庫(kù)過程以下是將Word文檔轉(zhuǎn)換成數(shù)據(jù)流保存到數(shù)據(jù)庫(kù)中的代碼。questionfilename:=ExtractFileDir(Appl

12、ication.Exename)+'temptempquestion.doc'/找到文件/以只讀的方式創(chuàng)建文件流  MyFile:=TFileStream.Create(questionfileName,fmOpenRead);/以寫入方式創(chuàng)建BLOB數(shù)據(jù)流Stream:=TBlobStream.Create(FieldByName('question') as TBlobField, bmWrite);      MemSize := MyFile.Size;   

13、60;  Inc(MemSize);      /增加的一字節(jié)給結(jié)尾的null      Buffer := AllocMem(MemSize);      try        Stream.Seek(0, soFromBeginning);       /流指針位置放到最前  

14、0;     MyFile.Read (Buffer,MemSize);        Stream.Write(Buffer,MemSize);     finally        MyFile.Free;        Stream.Free;     end;&

15、#160;      try       begin        dmform.Query1STB.Post;        ApplyUpdates;        CommitUpdates;       

16、; dmform.Query1STB.close;       end;       except         showmessage('保存失??！');         exit;       end;3.2.3  抽題算法抽題

17、算法是管理系統(tǒng)的重點(diǎn)和難點(diǎn)，抽題分人工抽題和自動(dòng)抽題兩部分，人工抽題就是將符合條件的試題選擇出來，用戶根據(jù)自己的需求抽出試題；自動(dòng)抽題是指計(jì)算機(jī)根據(jù)智能抽題算法來抽取試題。如何智能抽題成為抽題的關(guān)鍵。l          人工抽題人工抽題是用戶選擇抽題的范圍（如崗位、系統(tǒng)、適用對(duì)象等）后，系統(tǒng)給出所有符合條件的題目，用戶根據(jù)自己的需求選擇需要的題目，將其抽出。題目抽出后暫時(shí)保存到一個(gè)臨時(shí)表中，然后將題目及答案合成到一起，然后將其保存到試卷表中。這里抽題用到了SQL語句：SELECT * FROM STB

18、where STBH in('+idstring+')，其中idstring是所有選中的題目的試題編號(hào)的集合。l          自動(dòng)抽題自動(dòng)抽題是根據(jù)智能算法抽出試題。為了實(shí)現(xiàn)智能抽題，每道試題是指了兩個(gè)參數(shù)，一個(gè)是被抽到的次數(shù)，另一個(gè)是最近抽題時(shí)間。這兩個(gè)參數(shù)來決定這道題目是否參加抽題，所以叫做智能因子。智能抽題的算法如下： 圖4  智能抽題算法其核心代碼如下：/限制抽出的題目的范圍s:=' and STBH like''%1_'&

19、#39;'sqlstring:=''sqlstring:='select * from stb where ID like ''%'''+sqlstrings1+s;sqlstring:=sqlstring+' and sscm like''%'+cmbox1.Text+'%'' and ssfc like ''%'+fcbox1.Text+'%'' and sszj like ''%'+zjbo

20、x1.Text+'%'''/抽出全部符合條件的試題with dmform.Query1STB do begin  close;  with sql do   begin    clear;    add(sqlstring);   end;  try open except execsql; end;  counter:=0;  while not eof do  begin  cou

21、nter:=counter+1;  next;  end;/判斷題庫(kù)數(shù)量是否達(dá)到待抽出的數(shù)量 if counter<counter1 then  begin  showmessage('題庫(kù)數(shù)量為'+inttostr(counter)+'不足，請(qǐng)重新選擇條件');  exit;  end;  listbox1.Clear;/進(jìn)行智能抽題beginfor i:=1 to counter1 do begin  first;  Randomize;

22、60; k:=random(counter);  for j:=0 to k do  next;/check函數(shù)用來判斷選中的試題編號(hào)是否重復(fù)，然后根據(jù)智能因子進(jìn)行調(diào)整  if not(check(fieldbyname('STBH').asstring,listbox1)then   begin    if idstring='' then     begin      idstring:=&

23、#39;'''+fieldbyname('STBH').asstring+''''      listbox1.Items.Add(fieldbyname('STBH').asstring);     end    else     begin      idstring:=idstring+'

24、;,'''+fieldbyname('STBH').asstring+''''      listbox1.Items.Add(fieldbyname('STBH').asstring);     end;    end else  begin   first;    while not eof do     begin   if not(check(fieldbyname('STBH').asstring,listbox1)  then       begin         idstring:=idstring+','''+fieldbyname('STBH').asstring+