《delphi access网络考试系统[开题报告＋论文＋源代码＋答辩ppt＋.doc》由会员分享，可在线阅读，更多相关《delphi access网络考试系统[开题报告＋论文＋源代码＋答辩ppt＋.doc（15页珍藏版）》请在三一文库上搜索。
1、delphi+access网络考试系统开题报告论文源代码答辩ppt中文摘要络考试系统为教师实施计算机络考试提供可能的便捷的手段，其开发内容主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。利用DELPHI 6.0软件及其提供的各种面向对象的开发工具，建立完整性强、安全性好的数据库，开发出功能完备，易使用的应用程序。经过调试、编译与实现，该程序界面友好、程序设计风格朴素，使用起来美观大方、方便易用。尤其是系统的“机器自动分配”的功能极大的减轻工作人员的工作量，并以快速、准确等优点取代人工操作，提高了络化考试的工作效率。关键词 ： DELPHI 6.0 信息管理系统 数据库 模块 络考
2、试系统引 言11 Delphi语言概述21.1 Delphi简介21.2 数据库系统简介21.3 本应用软件的基本介绍32 本应用程序的构成和开发步骤42.1 可行性研究42.1.1 经济可行性42.1.2 时间可行性42.1.3 技术可行性42.1.4 社会可行性52.2 数据库的建立和连接52.3 系统的总体设计52.4 系统的详细设计73 本程序的技术实现及具体功能133.1 登录的界面与程序设计实现133.2 系统维护界面与代码设计实现及功能133.3 考员管理界面与代码设计实现14,3.4 考试管理界面与代码设计153.5 统计报表界面设计与代码设计163.6 主界面与代码设计17结
3、 论21致 谢22参 考 文 献23引 言随着经济的发展，社会的进步，计算机越来越深入到我们日常的工作学习及生活中，成为我们日常生活中不可缺少的辅助工具。 随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。它已经深入到日常工作和生活的方方面面，比如文字处理、信息管理、辅助设计、图形图像处理、教育培训以及游戏娱乐等。各行各业的人们无须经过特别的训练就能够使用电脑完成许许多多复杂的工作。然而，虽然现在世界上已经充满了多如牛毛的各种软件，但它们依然不能满足用户的各种特殊需要，人们还不得不开发适合自己特殊需求的软件。以前开发W
4、indoe，win2000，winxp，windowsNT等操作系统下，是一个32位的应用程序开发工具。这里把“VB”比作是傻瓜相机，Delphi是带有自动功能的专业相机。前些年，软件界流行一句话叫“真正的程序员用VC，聪明的程序员用Delphi”。也有的把Delphi称作VB杀手。1.2 数据库系统简介数据库系统是一个实际可运行的存储、维护和应用系统提供数据的软件系统，是存储介质、处理对象和管理系统的集合体。它通常由软件、数据库和数据管理员组成。其软件主要包括操作系统、各种宿主语言，实用程序以及数据库管理系统。数据库是依照某种数据模型组织起来并存放二级存储器中的数据集合。这些数据为多个应用服
5、务，独立于具体的应用程序。数据库由数据库管理系统统一管理，数据的插入、修改和检索均要通过数据库管理系统进行。数据库管理系统是一种系统软件，它的主要功能是维护数据库并有效地访问数据库中任意部分数据。对数据库的维护包括保持数据的完整性、一致性和安全性。数据管理员负责创建、监控和维护整个数据库，使数据能被任何有权使用的人有效使用。数据库管理员一般是由业务水平较高、资历较深的人员担任。数据库系统的个体含义是指一个具体的数据库管理系统软件和用它建立起来的数据库；它的学科含义是指研究、开发、建立、维护和应用数据库系统所涉及的理论、方法、技术所构成的学科。在这一含义下，数据库系统是软件研究领域的一个重要分支
6、，常称为数据库领域。bsp; 数据库研究跨越于计算机应用、系统软件和理论三个领域，其中应用促进新系统的研制开发，新系统带来新的理论研究，而理论研究又对前两个领域起着指导作用。数据库系统的出现是计算机应用的一个里程碑，它使得计算机应用从以科学计算为主转向以数据处理为主，并从而使计算机得以在各行各业乃至家庭普遍使用。在它之前的文件系统虽然也能处理持久数据，但是文件系统不提供对任意部分数据的快速访问，而这对数据量不断增大的应用来说是至关重要的。为了实现对任意部分数据的快速访问，就要研究许多优化技术。这些优化技术往往很复杂，是普通用户难以实现的，所以就由系统软件（数据库管理系统）来完成，而提供给用户的
7、是简单易用的数据库语言。由于对数据库的操作都由数据库管理系统完成，所以数据库就可以独立于具体的应用程序而存在，从而数据库又可以为多个用户所共享。因此，数据的独立性和共享性是数据库系统的重要特征。数据共享节省了大量人力物力，为数据库系统的广泛应用奠定了基础。数据库系统的出现使得普通用户能够方便地将日常数据存入计算机并在需要的时候快速访问它们，从而使的计算机走出科研机构进入各行各业、进入家庭。1.3 本应用软件的基本介绍本应用软件先是打开一个启动窗口，就可以进入应用程序的主窗口了。主界面是一个图型界面窗口，整个平台显示采用人性化方式，首先开启考试系统服务器,然后可以非常方便的系统维护,考员管理,考
8、试管理,统计报表,等后期工作，如生成准考证,打印准考证,考场机器分配等管理日常经营的基本情况，通过各种条件查询出考员的基本信息，以及打印出查询出的基本信息，总之一切考试基本信息都会显示在系统平台上，大大提高了考试管理人员的工作效率。本应用程序的构成和开发步骤下面从软件工程的角度介绍本程序的基本开发步骤。Delphi 应用程序一般包含以下三个基本部分： 应用程序运行的接口：负责系统整体环境的设置，运行状态的监视，应用程序的启动等。 应用程序的主体：主要完成用户的业务逻辑功能，如准考证生成,准考证打印,考场安排,成绩统计,成绩打印等信息.应用程序的辅助部分：协助程序主体完成的一些工作。 下面从软件
9、工程的角度描述本程序的开发生命周期，开发过程和组织过程。2.1 可行性研究任何一个系统或一项工程，在建立之前，必须首选进行可行性分析，可行性分析包括两层含义，一是可能性，二是必要性。可能性指开发信息系统的条件是否具备，必要性是指客观上是否真正需要，通过可行性研究，可避免盲目投资，减少政治性要的损失。下面从四方面来讨论：2.1.1 经济可行性主要是只指算一个新的系统开发所需要的投资费用和运算费用，并与估计的新系统收益进行比较，看是否有利。本系统所需的软硬件成本比较低，投资小，具有一定的通过性，因此 ，在经济上是可行的。2.1.2 时间可行性主要包括系统在目前环境下能否正常运行，运行后所引起的各方
10、面，以及这些变化对社会或人的因素所产生的影响。本系统对人事的管理比较全面，可长期使用。2.1.3 技术可行性利用现有的设备，软件及技术人员，新系统的目标能否达到，这也是可行性研究中需要考虑的一个问题。关系型数据库的高速发展使管理信息系统具备了良好的开发环境。本系统使用的Delphi 普及性好，操作简单，用户可以很快掌握使用方法，因此，在技术上是完全可行的。2.1.4 社会可行性人类社会文明的发展已进入信息化的高速发展时期，传统的手工方式支持下的管理模式，已经不能满足各方面的需要。开发本系统的目标不仅是提高工作效率，减轻劳动强度，而且减少出错率，具有很好的社会意义。2.2 数据库的建立和连接这个
11、程序采用的数据库是Microsoft Access2000，Delphi作为数据库的前台开发工具，必须与后台数据库进行连接，这样才能控制和进行操作数据库，数据库的连接方式有两种，ODBC和ADO。ODBC是数据库的通用接口，其缺点是效率低；专用接口调用直接速度快，但是通用性差，如果用ODBC连接数据库一般要两个步骤：1.要创建数据源；2.创建描述文件。数据库的建立则时在access2000中建立的，在这里你可以设置数据库的密码，对数据库进行保护。在创建数据源时可以通过BDE administrator进行创建，也可以通过系统控制面板中的ODBC数据源进行建立。而描述文件则可以在Delphi的主
12、程序中用Database Profile中进行建立，之后进行数据库的连接。接下来的工作是建表。同样建表的过程也不是唯一的，但是最终实现的结果是唯一的。你可以通过Access进行建表，也可以通过在 Visual Basic 主程序中建表，也可以通过pos, Dialogs, StdCtrls, ExtCtrls, Buttons, jpeg;type TLoginfrm = class(TForm) Button1: TButton; Button2: TButton; Edit1: TEdit;Edit2: TEdit; Bevel1: TBevel; Label1: TLabel; Labe
13、l2: TLabel; Bevel2: TBevel; Image1: TImage; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private Private declarations public Public declarations end;var Loginfrm: TLoginfrm;implementationuses Undm, Unmain;$R *.dfmprocedure TLoginfrm.Button1Click(Sender: TObject);
14、beginif 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.Fiel
15、dByName(口令).AsString=edit2.Text then begin if datamodule1.CDSManerge.Fields2.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
16、.MessageBox(你输入的姓名有误，请重新输入！,系统警告,mb_ok+mb_iconstop);end;procedure TLoginfrm.Button2Click(Sender: TObject);beginapplication.Terminate;end;end.系统维护界面与代码设计实现及功能权限管理界面代码设计:unit Unmanerge;interfaceuses ask, ExtCtrls;type TOperatorfrm = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; BitBtn
17、1: 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: TDataSo
18、urce; 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
19、; GroupBox3: TGroupBox; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; Label15: TLabel; procedure FormShoClose(Sender: TObject; var Action: TCloseAction); procedure BitBtn5Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn4Click(Se
20、nder: 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;implementationuses Undm;$R *.d
21、fmprocedure TOperatorfrm.FormShoodule1.cDSManerge.Fields2.Value=2 then tabsheet2.Enabled:=false;end;procedure TOperatorfrm.FormClose(Sender: TObject; var Action: TCloseAction);begindatamodule1.CDSManerge.ApplyUpdates(-1);action:=cafree;end;procedure TOperatorfrm.BitBtn5Click(Sender: TObject);begincl
22、ose;end;procedure TOperatorfrm.BitBtn3Click(Sender: TObject);begindatamodule1.cDSManerge.Insert;dbedit1.Enabled:=true;dbedit2.Enabled:=true;dbedit3.Enabled:=true;dbedit1.SetFocus;end;procedure TOperatorfrm.BitBtn4Click(Sender: TObject);begindatamodule1.cDSManerge.Delete;dbedit1.Enabled:=false;dbedit
23、2.Enabled:=false;dbedit3.Enabled:=false;end;procedure TOperatorfrm.BitBtn1Click(Sender: TObject);beginif (edit1.Text=)or(edit2.Text=)or(edit3.Text=)or (edit4.Text=) then begin shoessage(请完整输入你的信息，编辑框中的内容不能为空！); exit; endelse if not datamodule1.cDSManerge.Locate(姓名,edit1.Text,) then /begin shoessage(
24、数据库中没有这个用户名，请重新输入) else if edit2.Text=datamodule1.cDSManerge.Fields.Value then if edit3.Text=edit4.Text then begin datamodule1.cDSManerge.Edit; datamodule1.cDSManerge.Fields.Value:=edit3.Text; datamodule1.cDSManerge.Post; shoessage(你已经正确修改你的口令，请记住你的新口令！); edit1.Text:=; edit2.Text:=; edit3.Text:=; ed
25、it4.Text:=; end else begin shoessage(你输入的口令和确认口令不相同，请重新输入！); edit3.Text:=; edit4.Text:=; end else shoessage(你输入的口令不正确，请重新输入！);end;procedure TOperatorfrm.BitBtn2Click(Sender: TObject);begin edit1.Text:=; edit2.Text:=; edit3.Text:=; edit4.Text:=;end;procedure TOperatorfrm.BitBtn6Click(Sender: TObject)
26、;begindatamodule1.cDSManerge.Edit;dbedit1.Enabled:=true;dbedit2.Enabled:=true;dbedit3.Enabled:=true;end;procedure TOperatorfrm.BitBtn7Click(Sender: TObject);begindatamodule1.cDSManerge.Post;dbedit1.Enabled:=false;dbedit2.Enabled:=false;dbedit3.Enabled:=false;end;end.考员管理界面与代码设计实现代码分析unit Unpass;inte
27、rfaceuses ask, 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: T
28、Label; 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(Sende
29、r: TObject); procedure BitBtn2Click(Sender: TObject); private Private declarations public Public declarations end;var tikufrm: Ttikufrm;implementationuses Undm;$R *.dfmprocedure Ttikufrm.FormClose(Sender: TObject; var Action: TCloseAction);begindatamodule1.CDSExam.ApplyUpdates(-1);action:=cafree;end
30、;procedure Ttikufrm.BitBtn3Click(Sender: TObject);beginclose;end;procedure Ttikufrm.BitBtn1Click(Sender: TObject);begindatamodule1.cDSExam.Insert;end;procedure Ttikufrm.BitBtn2Click(Sender: TObject);begindatamodule1.cDSExam.Delete;end;end.统计报表界面设计与代码设计代码设计:unit Unchengji;interfaceuses ask, DB, Grids
31、, 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: T
32、RadioGroup; 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 RGselectCl
33、ick(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FormShoActivate(Sender: TObject); private Private declarations public Public declarations end;var chengjifrm: Tchengjifrm;implementationuses Undm, Unchengjiprint;$R *.dfmprocedure Tcheng
34、jifrm.FormClose(Sender: TObject; var Action: TCloseAction);beginaction:=cafree;end;procedure Tchengjifrm.Button1Click(Sender: TObject);var item:string;beginITEM:=combobox1.ITEMS.stringscombobox1.ITEMINDEX;if not (edit1.Text=) thenbegin if item=准考证号 then begin datamodule1.cdsstudent.filtered:=false;
35、datamodule1.cDSStudent.filter:=format(准考证号=%s,edit1.text); datamodule1.cdsstudent.filtered:=true; if datamodule1.CDSStudent.IsEmpty then shoessage(数据库中没有符合条件的数据！); end;if item=姓名 then begin datamodule1.cdsstudent.filtered:=false; datamodule1.cDSStudent.filter:=format(姓名=%s,edit1.text); datamodule1.c
36、dsstudent.filtered:=true; if datamodule1.CDSStudent.IsEmpty then shoessage(数据库中没有符合条件的数据！); 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
37、 then shoessage(数据库中没有符合条件的数据！); end;if item=状态 then begin datamodule1.cDSStudent.filter:=format(状态=%s,edit1.text); datamodule1.cdsstudent.filtered:=true;if datamodule1.CDSStudent.IsEmpty then shoessage(数据库中没有符合条件的数据！); end; endelseif item= then datamodule1.cdsstudent.filtered:=falseelse shoessage(请
38、输入查询值！);end;procedure Tchengjifrm.RGselectClick(Sender: TObject);begincase 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.Enable
39、d:=false; rgpass.Enabled:=true; end;end;end;procedure Tchengjifrm.Button2Click(Sender: TObject);begindatamodule1.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); datam
40、odule1.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; 论
41、络考试系统是一个典型的信息管理系统，其主要通过软件工程方面的选择课题、需求分析、总体设计、选用工具、程序模块、系统测试等几个步骤来实现。开发本系统的过程中，首先要对高校络考试流程管理进行系统调研，熟悉其中的新光盘登记、光盘出借的流程、步骤；其次在系统需求分析过程中，要透过现象看本质，敏锐观察到光盘管理中存在的各种问题，并在总体设计把握好对问题的分析、理解，进而解决问题；选用开发工具要选用自己最熟悉、应用较多的开发工具，本系统开发选用DELPHI 6.0，其具有语言简单、功能强大、组件众多的优点。程序模块的编制中，重点把握系统内部完整性、功能性、实用性、便捷性，使其能够协调统一、运行无误。致 谢
42、我首先感谢我的指导老师吕老师，在他严格的要求下我懂得了开发软件要有一种极其认真负责的态度。无论做什么事都要大胆的去想去做，这样会有好的创意，才能更有作为。在这里我还要感谢我们宿舍的其它5个同学。他们和我共同生活了四年，在生活和学习上给了我很大的帮助。参 考 文 献1 张春林.Delphi 6程序设计导学.北京：清华大学出版社，2002.52 飞思科技. Delphi6开发者手册. 北京：电子工业出版社,2002.33 飞思科技. Delphi6数据库开发. 北京：电子工业出版社, 2002.14 丁宝康.数据库原理. 北京：经济科学出版社，2004.15 何旭洪.Delphi 6.0数据库系统开发实例导航.北京：人民邮电出版社, 2002.46周璋鹏. 基于B/S结构的学生信息管理系统垢研究与开发.西北电力技术.2003，31(4):1517,267 李全彬, 顾明亮. 基于ASP技术的学生信息管理系统的研究与开发. 徐州师范大学学报(自然科学版).2001,19(2):25288 谷军.用Authorware开发学生信息管理系统.计算机与与现代化.2003(7):4041,449李丹荣,杜维.基于Delphi60的实时数据采集与分析系统 机电工程.2003,20(5): 6467