delphi+access網絡考試系統[開題報告＋論文＋源代碼＋答辯pp

delphi+access網絡考試系統[開題報告＋論文＋源代碼＋答辯ppt＋

中文摘要
 
 網絡考試系統為教師實施計算機網絡考試提供可能的便捷的手段，其開發內容主要包括后臺數據庫的建立和維護以及前端應用程序的開發兩個方面。利用DELPHI 6.0軟件及其提供的各種面向對象的開發工具，建立完整性強、安全性好的數據庫，開發出功能完備，易使用的應用程序。經過調試、編譯與實現，該程序界面友好、程序設計風格樸素，使用起來美觀大方、方便易用。尤其是系統的“機器自動分配”的功能極大的減輕工作人員的工作量，并以快速、準確等優點取代人工操作，提高了網絡化考試的工作效率。
 
 
 關鍵詞 ： DELPHI 6.0  信息管理系統   數據庫  模塊   網絡考試系統
 

 引  言 1
 1  Delphi語言概述 2
 1.1  Delphi簡介 2
 1.2  數據庫系統簡介 2
 1.3  本應用軟件的基本介紹 3
 2  本應用程序的構成和開發步驟 4
 2.1 可行性研究 4
 2.1.1  經濟可行性 4
 2.1.2  時間可行性 4
 2.1.3  技術可行性 4
 2.1.4  社會可行性 5
 2.2  數據庫的建立和連接 5
 2.3  系統的總體設計 5
 2.4  系統的詳細設計 7
 3   本程序的技術實現及具體功能 13
 3.1  登錄的界面與程序設計實現 13
 3.2  系統維護界面與代碼設計實現及功能 13
 3.3  考員管理界面與代碼設計實現14,
 3.4  考試管理界面與代碼設計15
 3.5  統計報表界面設計與代碼設計 16
 3.6  主界面與代碼設計 17
 結  論 21
 致  謝 22
 參 考 文 獻 23

 引  言
 
 隨著經濟的發展，社會的進步，計算機越來越深入到我們日常的工作學習及生活中，成為我們日常生活中不可缺少的輔助工具。  隨著科學技術的不斷提高,計算機科學日漸成熟,其強大的功能已為人們深刻認識,它已進入人類社會的各個領域并發揮著越來越重要的作用。它已經深入到日常工作和生活的方方面面，比如文字處理、信息管理、輔助設計、圖形圖像處理、教育培訓以及游戲娛樂等。各行各業的人們無須經過特別的訓練就能夠使用電腦完成許許多多復雜的工作。然而，雖然現在世界上已經充滿了多如牛毛的各種軟件，但它們依然不能滿足用戶的各種特殊需要，人們還不得不開發適合自己特殊需求的軟件。以前開發Windows應用軟件是專業人員的工作，需要掌握許多專業知識和經過特殊的培訓才能勝任�，F在不同了，即使你沒有接受過嚴格的程序設計訓練，使用Delphi編程語言也一樣能夠開發出功能強大、適合自己特殊需求的應用程序了。Delphi編程語言繼承了其他語言易學易用的特點，特別適合于初學者學習Windows系統編程。    網絡考試系統采用計算機網絡化考試使用c/s方式,以建立服務器,然后多個client接入的方式進行考試的一種計算機應用技術的創新,在計算機還未普及之前學生考試都是由工作人員人工安排,如試卷的打印分發,批閱等來操作的.現在一般的高校計算機房完全有能力進行網絡化考試的物質條件,所以有必要開發一套網絡考試系統,方便學校的教師的日常工作,減輕教師負擔.網絡考試系統管理都采用計算機智能化管理,采用計算機作為工具的實用的計算機智能化管理程序來幫助前臺管理員進行更有效的試卷生成,試卷自動批改,學生成績統計等工作。網絡考試系統是典型的信息管理系統(MIS),其開發主要包括后臺數據庫的建立和維護以及前端應用程序的開發兩個方面。對于前者要求建立起數據一致性和完整性強、數據安全性好的庫。而對于后者則要求應用程序功能完備,易使用等特點。    經過分析,我們使用 Delphi編程語言開發工具,利用其提供的各種面向對象的開發工具,尤其是數據窗口這一能方便而簡潔操縱數據庫的智能化對象,首先在短時間內建立系統應用原型,然后,對初始原型系統進行需求迭代,不斷修正和改進,直到形成用戶滿意的可行系統。
 因為本人能力有限，加上時間緊迫，所以設計出來的本系統可能功能比較簡單，這些都有待于我在以后的工作學習中進一步改進。

Delphi簡介

1.1  Delphi簡介  
 Delphi是Inprise公司出品的一個優秀的可視化程序開發工具軟件，它短小精悍，但功能卻可以與龐大的visual c++媲美。它易學易用，如同VB，因而被稱為“第四代編程語言”。
 從1995年推出Delphi1.0至今已經經歷了7個版本，Delphi7.0運行在win9x或winme，win2000，winxp，windowsNT等操作系統下，是一個32位的應用程序開發工具。這里把“VB”比作是傻瓜相機，Delphi是帶有自動功能的專業相機。前些年，軟件界流行一句話叫“真正的程序員用VC，聰明的程序員用Delphi”。也有的把Delphi稱作VB殺手。
1.2  數據庫系統簡介

 數據庫系統是一個實際可運行的存儲、維護和應用系統提供數據的軟件系統，是存儲介質、處理對象和管理系統的集合體。它通常由軟件、數據庫和數據管理員組成。其軟件主要包括操作系統、各種宿主語言，實用程序以及數據庫管理系統。數據庫是依照某種數據模型組織起來并存放二級存儲器中的數據集合。這些數據為多個應用服務，獨立于具體的應用程序。數據庫由數據庫管理系統統一管理，數據的插入、修改和檢索均要通過數據庫管理系統進行。數據庫管理系統是一種系統軟件，它的主要功能是維護數據庫并有效地訪問數據庫中任意部分數據。對數據庫的維護包括保持數據的完整性、一致性和安全性。數據管理員負責創建、監控和維護整個數據庫，使數據能被任何有權使用的人有效使用。數據庫管理員一般是由業務水平較高、資歷較深的人員擔任。
 數據庫系統的個體含義是指一個具體的數據庫管理系統軟件和用它建立起來的數據庫；它的學科含義是指研究、開發、建立、維護和應用數據庫系統所涉及的理論、方法、技術所構成的學科。在這一含義下，數據庫系統是軟件研究領域的一個重要分支，常稱為數據庫領域。  

bsp; 數據庫研究跨越于計算機應用、系統軟件和理論三個領域，其中應用促進新系統的研制開發，新系統帶來新的理論研究，而理論研究又對前兩個領域起著指導作用。數據庫系統的出現是計算機應用的一個里程碑，它使得計算機應用從以科學計算為主轉向以數據處理為主，并從而使計算機得以在各行各業乃至家庭普遍使用。在它之前的文件系統雖然也能處理持久數據，但是文件系統不提供對任意部分數據的快速訪問，而這對數據量不斷增大的應用來說是至關重要的。為了實現對任意部分數據的快速訪問，就要研究許多優化技術。這些優化技術往往很復雜，是普通用戶難以實現的，所以就由系統軟件（數據庫管理系統）來完成，而提供給用戶的是簡單易用的數據庫語言。由于對數據庫的操作都由數據庫管理系統完成，所以數據庫就可以獨立于具體的應用程序而存在，從而數據庫又可以為多個用戶所共享。因此，數據的獨立性和共享性是數據庫系統的重要特征。數據共享節省了大量人力物力，為數據庫系統的廣泛應用奠定了基礎。數據庫系統的出現使得普通用戶能夠方便地將日常數據存入計算機并在需要的時候快速訪問它們，從而使的計算機走出科研機構進入各行各業、進入家庭。

1.3  本應用軟件的基本介紹
 本應用軟件先是打開一個啟動窗口，就可以進入應用程序的主窗口了。主界面是一個圖型界面窗口，整個平臺顯示采用人性化方式，首先開啟考試系統服務器,然后可以非常方便的系統維護,考員管理,考試管理,統計報表,等后期工作，如生成準考證,打印準考證,考場機器分配等管理日常經營的基本情況，通過各種條件查詢出考員的基本信息，以及打印出查詢出的基本信息，總之一切考試基本信息都會顯示在系統平臺上，大大提高了考試管理人員的工作效率。
 
本應用程序的構成和開發步驟

 下面從軟件工程的角度介紹本程序的基本開發步驟。Delphi 應用程序一般包含以下三個基本部分：    應用程序運行的接口：負責系統整體環境的設置，運行狀態的監視，應用程序的啟動等。    應用程序的主體：主要完成用戶的業務邏輯功能，如準考證生成,準考證打印,考場安排,成績統計,成績打印等信息.
應用程序的輔助部分：協助程序主體完成的一些工作。 下面從軟件工程的角度描述本程序的開發生命周期，開發過程和組織過程。
2.1 可行性研究
 任何一個系統或一項工程，在建立之前，必須首選進行可行性分析，可行性分析包括兩層含義，一是可能性，二是必要性。可能性指開發信息系統的條件是否具備，必要性是指客觀上是否真正需要，通過可行性研究，可避免盲目投資，減少政治性要的損失。下面從四方面來討論：
2.1.1  經濟可行性
 主要是只指算一個新的系統開發所需要的投資費用和運算費用，并與估計的新系統收益進行比較，看是否有利。本系統所需的軟硬件成本比較低，投資小，具有一定的通過性，因此 ，在經濟上是可行的。
2.1.2  時間可行性
 主要包括系統在目前環境下能否正常運行，運行后所引起的各方面，以及這些變化對社會或人的因素所產生的影響。本系統對人事的管理比較全面，可長期使用。
2.1.3  技術可行性
 利用現有的設備，軟件及技術人員，新系統的目標能否達到，這也是可行性研究中需要考慮的一個問題。關系型數據庫的高速發展使管理信息系統具備了良好的開發環境。本系統使用的Delphi 普及性好，操作簡單，用戶可以很快掌握使用方法，因此，在技術上是完全可行的。
2.1.4  社會可行性
 人類社會文明的發展已進入信息化的高速發展時期，傳統的手工方式支持下的管理模式，已經不能滿足各方面的需要。開發本系統的目標不僅是提高工作效率，減輕勞動強度，而且減少出錯率，具有很好的社會意義。
2.2  數據庫的建立和連接
 這個程序采用的數據庫是Microsoft Access2000，Delphi作為數據庫的前臺開發工具，必須與后臺數據庫進行連接，這樣才能控制和進行操作數據庫，數據庫的連接方式有兩種，ODBC和ADO。
 ODBC是數據庫的通用接口，其缺點是效率低；專用接口調用直接速度快，但是通用性差，如果用ODBC連接數據庫一般要兩個步驟：1.要創建數據源；2.創建描述文件。數據庫的建立則時在access2000中建立的，在這里你可以設置數據庫的密碼，對數據庫進行保護。在創建數據源時可以通過BDE administrator進行創建，也可以通過系統控制面板中的ODBC數據源進行建立。而描述文件則可以在Delphi的主程序中用Database Profile中進行建立，之后進行數據庫的連接。接下來的工作是建表。同樣建表的過程也不是唯一的，但是最終實現的結果是唯一的。你可以通過Access進行建表，也可以通過在 Visual Basic 主程序中建表，也可以通過powerdesigner進行可視化的建立，不過用這種方法，在導入的時候要把數據庫要先斷開，否則數據庫的數據容易丟失。建表的過程注意規范化命名規則，如表的字段名等等。同時也要注意表的字段長度和可否為空。因為以后要設計到主鍵，外鍵的問題。如果字段名不同，同一字段長度不同則主鍵和外鍵將會連接不上�？梢娊ū頃r應做好全局的打算。我在程序開發的初期，同樣犯了這個錯誤，導致數據庫出錯，有時還要向表中新加入字段。導致數據窗口不好用的連鎖反映。
 
 
2.3  系統的總體設計
 
 這個管理系統從4月1日開始著手設計開發,經過一段時間的分析，并根據對影音店光盤管理的具體要求及需要本軟件實現的功能，將本軟件分為4個大的模塊，分別是：第一部分：系統維護；第二部分：考員管理；第三部分：考試管理； 第四部分：統計報表。
 程序流程圖如下：

系統的詳細設計
 進入Access后要做的第一件事就是建立一個數據庫。Access提供了6種用構造數據庫系統的對象，根據本課題的需要，在這里選擇一個空的數據庫，命名建立了一個數據庫名稱為“bysj”，網絡考試系統。并在此數據庫下創建了六個表，用于存放原始數據。它只是存放數據，對其中數據的修改要通過對應的窗體來完成。創建各表的具體結構如下：

 

 3   本程序的技術實現及具體功能

登錄的界面與程序設計實現

代碼設計:
unit Unlogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, jpeg;

type
  TLoginfrm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Bevel2: TBevel;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Loginfrm: TLoginfrm;

implementation

uses Undm, Unmain;

{$R *.dfm}

procedure TLoginfrm.Button1Click(Sender: TObject);
begin
 if edit1.Text='' then
  begin
   application.MessageBox('您沒有輸入登錄名，請輸入你的登錄名��！','系統警告',MB_ok+MB_Iconstop);
   exit;
  end;
   if edit2.Text='' then
  begin
   application.MessageBox('您沒有輸入口令,請輸入你的口令��！','系統警告',MB_ok+MB_Iconstop);
   exit;
  end;
 if datamodule1.CDSManerge.Locate('姓名',edit1.Text,[]) then
  begin
   if datamodule1.CDSManerge.FieldByName('口令').AsString=edit2.Text then
    begin
     if datamodule1.CDSManerge.Fields[2].Value=2 then
      begin
       mainfrm.n1.Enabled:=false;
       mainfrm.toolbutton1.Enabled:=false;
       mainfrm.toolbutton3.Enabled:=false;
  end;
     close;
    end
   else
     application.MessageBox('你輸入的口令有誤，請重新輸入！','系統警告',mb_ok+mb_iconstop);
    end
  else
    application.MessageBox('你輸入的姓名有誤，請重新輸入！','系統警告',mb_ok+mb_iconstop);
end;

procedure TLoginfrm.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

end.

 

 

系統維護界面與代碼設計實現及功能

權限管理界面

代碼設計:
unit Unmanerge;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons, DBCtrls, Grids, DBGrids, DB, Mask,
  ExtCtrls;

type
  TOperatorfrm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    BitBtn1: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    BitBtn2: TBitBtn;
    TabSheet2: TTabSheet;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Panel1: TPanel;
    Label5: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    Label6: TLabel;
    DBEdit2: TDBEdit;
    Label7: TLabel;
    DBEdit3: TDBEdit;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    GroupBox2: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    BitBtn5: TBitBtn;
    TabSheet3: TTabSheet;
    DBGrid2: TDBGrid;
    DBNavigator2: TDBNavigator;
    DataSource2: TDataSource;
    Panel2: TPanel;
    GroupBox3: TGroupBox;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Operatorfrm: TOperatorfrm;

implementation

uses Undm;

{$R *.dfm}

procedure TOperatorfrm.FormShow(Sender: TObject);
begin
if datamodule1.cDSManerge.Fields[2].Value=2 then
   tabsheet2.Enabled:=false;
end;

procedure TOperatorfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
datamodule1.CDSManerge.ApplyUpdates(-1);
action:=cafree;
end;

procedure TOperatorfrm.BitBtn5Click(Sender: TObject);
begin
close;
end;

procedure TOperatorfrm.BitBtn3Click(Sender: TObject);
begin
datamodule1.cDSManerge.Insert;

dbedit1.Enabled:=true;
dbedit2.Enabled:=true;
dbedit3.Enabled:=true;
dbedit1.SetFocus;
end;

procedure TOperatorfrm.BitBtn4Click(Sender: TObject);
begin
datamodule1.cDSManerge.Delete;
dbedit1.Enabled:=false;
dbedit2.Enabled:=false;
dbedit3.Enabled:=false;
end;

procedure TOperatorfrm.BitBtn1Click(Sender: TObject);
begin
 if (edit1.Text='')or(edit2.Text='')or(edit3.Text='')or (edit4.Text='') then
  begin
  showmessage('請完整輸入你的信息，編輯框中的內容不能為空！');
  exit;
  end
 else
  if not datamodule1.cDSManerge.Locate('姓名',edit1.Text,[]) then
   //begin
   showmessage('數據庫中沒有這個用戶名，請重新輸入')
  else
    if edit2.Text=datamodule1.cDSManerge.Fields[1].Value then
      if edit3.Text=edit4.Text then
       begin
        datamodule1.cDSManerge.Edit;
        datamodule1.cDSManerge.Fields[1].Value:=edit3.Text;
        datamodule1.cDSManerge.Post;
        showmessage('你已經正確修改你的口令，請記住你的新口令！');
        edit1.Text:='';
        edit2.Text:='';
        edit3.Text:='';
        edit4.Text:='';
       end
      else
       begin
        showmessage('你輸入的口令和確認口令不相同，請重新輸入！');
        edit3.Text:='';
        edit4.Text:='';
       end
    else
      showmessage('你輸入的口令不正確，請重新輸入！');

end;

procedure TOperatorfrm.BitBtn2Click(Sender: TObject);
begin
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  edit4.Text:='';
end;

procedure TOperatorfrm.BitBtn6Click(Sender: TObject);
begin
datamodule1.cDSManerge.Edit;
dbedit1.Enabled:=true;
dbedit2.Enabled:=true;
dbedit3.Enabled:=true;
end;

procedure TOperatorfrm.BitBtn7Click(Sender: TObject);
begin
datamodule1.cDSManerge.Post;
dbedit1.Enabled:=false;
dbedit2.Enabled:=false;
dbedit3.Enabled:=false;
end;

end.

 

考員管理界面與代碼設計實現

 

代碼分析
unit Unpass;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QRCtrls, QuickRpt, ExtCtrls;

type
  Tpassfrm = class(TForm)
    QuickRep1: TQuickRep;
    DetailBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRLabel7: TQRLabel;
    PageFooterBand1: TQRBand;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRShape1: TQRShape;
    QRExpr1: TQRExpr;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  passfrm: Tpassfrm;

implementation

uses Undm;

{$R *.dfm}

end.

 

考試管理界面與代碼設計

代碼設計:
unit Unexam;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, DBCtrls, DB, Mask, Grids, DBGrids;

type
  Ttikufrm = class(TForm)
    DBGrid1: TDBGrid;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    Label2: TLabel;
    DBMemo1: TDBMemo;
    DBNavigator1: TDBNavigator;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox1: TGroupBox;
    Panel1: TPanel;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    Label6: TLabel;
    DBEdit5: TDBEdit;
    Label7: TLabel;
    DBEdit6: TDBEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tikufrm: Ttikufrm;

implementation

uses Undm;

{$R *.dfm}

procedure Ttikufrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
datamodule1.CDSExam.ApplyUpdates(-1);
action:=cafree;
end;

procedure Ttikufrm.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure Ttikufrm.BitBtn1Click(Sender: TObject);
begin
datamodule1.cDSExam.Insert;
end;

procedure Ttikufrm.BitBtn2Click(Sender: TObject);
begin
datamodule1.cDSExam.Delete;
end;

end.

 

統計報表界面設計與代碼設計

代碼設計:
unit Unchengji;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, DB, Grids, DBGrids, ComCtrls;

type
  Tchengjifrm = class(TForm)
    DataSource1: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet3: TTabSheet;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    RGselect: TRadioGroup;
    RGid: TRadioGroup;
    Edit2: TEdit;
    Edit3: TEdit;
    GBdate: TGroupBox;
    Label3: TLabel;
    DatePick: TDateTimePicker;
    RGpass: TRadioGroup;
    Button2: TButton;
    Button3: TButton;
    Bevel1: TBevel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure RGselectClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  chengjifrm: Tchengjifrm;

implementation

uses Undm, Unchengjiprint;

{$R *.dfm}

procedure Tchengjifrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tchengjifrm.Button1Click(Sender: TObject);
var item:string;
begin
ITEM:=combobox1.ITEMS.strings[combobox1.ITEMINDEX];
if not (edit1.Text='') then
 begin
  if item='準考證號' then
   begin
    datamodule1.cdsstudent.filtered:=false;
    datamodule1.cDSStudent.filter:=format('準考證號=%s',[edit1.text]);
    datamodule1.cdsstudent.filtered:=true;
    if datamodule1.CDSStudent.IsEmpty then
     showmessage('數據庫中沒有符合條件的數據！');
  end;
 if item='姓名' then
  begin
   datamodule1.cdsstudent.filtered:=false;
   datamodule1.cDSStudent.filter:=format('姓名=%s',[edit1.text]);
   datamodule1.cdsstudent.filtered:=true;
   if datamodule1.CDSStudent.IsEmpty then
     showmessage('數據庫中沒有符合條件的數據！');
  end;
 if item='身份證號' then
  begin
   datamodule1.cdsstudent.filtered:=false;
   datamodule1.cDSStudent.filter:=format('身份證號=%d',[strtoint(edit1.text)]);
   datamodule1.cdsstudent.filtered:=true;
   if datamodule1.CDSStudent.IsEmpty then
     showmessage('數據庫中沒有符合條件的數據！');
  end;
{if item='狀態' then
  begin
   datamodule1.cDSStudent.filter:=format('狀態=%s',[edit1.text]);
   datamodule1.cdsstudent.filtered:=true;
 if datamodule1.CDSStudent.IsEmpty then
     showmessage('數據庫中沒有符合條件的數據！');

  end; }
 end
else
 if item='' then
   datamodule1.cdsstudent.filtered:=false
 else
   showmessage('請輸入查詢值！');
end;

procedure Tchengjifrm.RGselectClick(Sender: TObject);
begin
 case rgselect.ItemIndex of
  0:begin
     rgid.Enabled:=true;
     gbdate.Enabled:=false;
     rgpass.Enabled:=false;
    end;
  1:begin
     rgid.Enabled:=false;
     gbdate.Enabled:=true;
     rgpass.Enabled:=false;
    end;
  else
    begin
     rgid.Enabled:=false;
     gbdate.Enabled:=false;
     rgpass.Enabled:=true;
    end;
 end;
end;

procedure Tchengjifrm.Button2Click(Sender: TObject);
begin
datamodule1.CDSStudent.Filtered:=false;
 if rgselect.Enabled=true then
  if rgselect.ItemIndex=1 then
   begin
    datamodule1.CDSStudent.Filter:=format('準考證號>=''%s'' AND 準考證號<=''%S''',[edit2.text,edit3.text]);
    datamodule1.cDSStudent.Filtered:=TRUE;
   end;
 if gbdate.Enabled=true then
  begin
   datamodule1.CDSStudent.Filter:=format('考試日期=''%s''',[datetostr(datepick.Date)]);
   datamodule1.cDSStudent.Filtered:=TRUE;
  end;
 if rgpass.Enabled=true then
  if rgpass.ItemIndex=0 then
   begin
    datamodule1.CDSStudent.Filter:='得分>=60';
  bsp; 論
 網絡考試系統是一個典型的信息管理系統，其主要通過軟件工程方面的選擇課題、需求分析、總體設計、選用工具、程序模塊、系統測試等幾個步驟來實現。開發本系統的過程中，首先要對高校網絡考試流程管理進行系統調研，熟悉其中的新光盤登記、光盤出借的流程、步驟；其次在系統需求分析過程中，要透過現象看本質，敏銳觀察到光盤管理中存在的各種問題，并在總體設計把握好對問題的分析、理解，進而解決問題；選用開發工具要選用自己最熟悉、應用較多的開發工具，本系統開發選用DELPHI 6.0，其具有語言簡單、功能強大、組件眾多的優點。程序模塊的編制中，重點把握系統內部完整性、功能性、實用性、便捷性，使其能夠協調統一、運行無誤。
 
 致  謝
 
 我首先感謝我的指導老師呂老師，在他嚴格的要求下我懂得了開發軟件要有一種極其認真負責的態度。無論做什么事都要大膽的去想去做，這樣會有好的創意，才能更有作為。
在這里我還要感謝我們宿舍的其它5個同學。他們和我共同生活了四年，在生活和學習上給了我很大的幫助。
 
 
 參 考 文 獻

 1 張春林.Delphi 6程序設計導學.北京：清華大學出版社，2002.5
 2 飛思科技. Delphi6開發者手冊. 北京：電子工業出版社,2002.3
 3 飛思科技. Delphi6數據庫開發. 北京：電子工業出版社, 2002.1
 4 丁寶康.數據庫原理. 北京：經濟科學出版社，2004.1
 5 何旭洪.Delphi 6.0數據庫系統開發實例導航.北京：人民郵電出版社, 2002.4
 6周璋鵬. 基于B/S結構的學生信息管理系統垢研究與開發.西北電力技術.2003，31(4):15~17,26
 7 李全彬, 顧明亮. 基于ASP技術的學生信息管理系統的研究與開發. 徐州師范大學學報(自然科學版).2001,19(2):25~28
 8 谷軍.用Authorware開發學生信息管理系統.計算機與與現代化.2003(7):40~41,44
 9李丹榮,杜維.基于Delphi6．0的實時數據采集與分析系統 機電工程.2003,20(5): 64~67

【delphi+access網絡考試系統[開題報告＋論文＋源代碼＋答辯pp】相關文章：

論文格式開題報告答辯范例11-27

大學論文開題答辯技巧02-13

（企業進銷存管理系統）開題報告答辯03-28

開題報告怎么答辯02-15

網絡游戲產業的論文開題報告03-22

大學生論文開題答辯技巧02-15

校園網站畢業設計論文開題報告答辯03-09

網絡專業畢業論文開題報告模板03-15

旅游網站系統的設計論文開題03-20