Delphi專業(yè)試題庫的設計與實現智能抽題的算法

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

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

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

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

5、t的ProviderName屬性指定數據交換服務器上的DataSetProvider或Provider組件。3.2管理系統(tǒng)的實現管理系統(tǒng)是某專業(yè)試題庫系統(tǒng)的核心，以下重點介紹批量數據錄入、Word文檔入庫和智能抽題算法的設計與實現。3.2.1  批量數據錄入批量數據錄入是指將規(guī)定格式的Word文檔錄入到數據庫中。在每個試題編號前加一個符號，在每一個答案前加一#作為標志。在文檔的最后加一$，表示結束。批量錄入是系統(tǒng)實現的難點之一，它是應用Delphi5.0調用Word VBA來實現的，其流程如下圖所示： 圖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;/提取試題編號     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文檔 并將跟內容粘貼        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;/如果是#符號，則將內容存放到答案中，是正常內容則繼續(xù)讀取，此處代碼略end;3.2.2  將Word文檔入庫由于某專業(yè)考核試題庫中的試題含有公式及圖片，而如何將這些含有公式及圖片的試題保存成為一個要

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

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

13、60;  Inc(MemSize);      /增加的一字節(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)的重點和難點，抽題分人工抽題和自動抽題兩部分，人工抽題就是將符合條件的試題選擇出來，用戶根據自己的需求抽出試題；自動抽題是指計算機根據智能抽題算法來抽取試題。如何智能抽題成為抽題的關鍵。l          人工抽題人工抽題是用戶選擇抽題的范圍（如崗位、系統(tǒng)、適用對象等）后，系統(tǒng)給出所有符合條件的題目，用戶根據自己的需求選擇需要的題目，將其抽出。題目抽出后暫時保存到一個臨時表中，然后將題目及答案合成到一起，然后將其保存到試卷表中。這里抽題用到了SQL語句：SELECT * FROM STB

18、where STBH in('+idstring+')，其中idstring是所有選中的題目的試題編號的集合。l          自動抽題自動抽題是根據智能算法抽出試題。為了實現智能抽題，每道試題是指了兩個參數，一個是被抽到的次數，另一個是最近抽題時間。這兩個參數來決定這道題目是否參加抽題，所以叫做智能因子。智能抽題的算法如下： 圖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;/判斷題庫數量是否達到待抽出的數量 if counter<counter1 then  begin  showmessage('題庫數量為'+inttostr(counter)+'不足，請重新選擇條件');  exit;  end;  listbox1.Clear;/進行智能抽題beginfor i:=1 to counter1 do begin  first;  Randomize;

22、60; k:=random(counter);  for j:=0 to k do  next;/check函數用來判斷選中的試題編號是否重復，然后根據智能因子進行調整  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+