文档文库
手机版
投诉建议
热门搜索： 心得体会 演讲稿 思想汇报
首页 > 英语考试管理系统

英语考试管理系统

发布时间：   来源：文档文库   
小 中 大
字号：
手机查看


广东海洋大学寸金学院
毕业论文（设计）



论文题目：英语考试管理系统
English examination management system 系 别： 信息技术系 专 业： 信息管理与信息系统
班 级： 2014级信息管理与信息系统 1班
姓 名：
学 号：
指导老师： 职 称： 高级工程师
日 期： 2016年12月11日

广东海洋大学寸金学院教务处制

 摘 要 ........................................................................................................................................................ I ABSTRACT.............................................................................................................................................. II 绪论 ........................................................................................................................................................... 1
1.1 系统的开发背景 ....................................................................................................................... 1 1.2 系统实现的目标 ....................................................................................................................... 1 1.3 系统功能的概述 ....................................................................................................................... 2 1.4 系统的开发环境 ....................................................................................................................... 3 第2章 系统可行性分析........................................................................................................................ 5
2.1 经济可行性............................................................................................................................... 5 2.2 技术可行性............................................................................................................................... 5 2.3 操作可行性............................................................................................................................... 5 2.4 结论 .......................................................................................................................................... 6 第3章 系统需求分析.......................................................................................................................... 13
3.1 系统开发的具体目标 ............................................................................................................. 13
3.1.1 普通用户对系统的要求 ................................................................................... 13 3.2 系统业务流程图 ..................................................................................................................... 13 第4章 数据库的实现.......................................................................................................................... 17
4.1 表结构截图............................................................................................................................. 18 4.2 表间关系截图......................................................................................................................... 19 第5章 数据库功能模块...................................................................................................................... 20
5.1 数据库功能模块图 ................................................................................................................. 20 5.2 功能模块窗口截图 ............................................................................................................... 22 5.3 数据库代码............................................................................................................................. 25 第6章 设计体会 ................................................................................................................................. 44 参考文献 .................................................................................................................... 错误!未定义书签。

I

摘 要

英语考试安排管理系统是英语考试里面重要的环节，同时也是保证英语考试不乱的一个有效的工具，系统的研制结合了很多学科的综合的应用，这些思想始终贯切在考试安排系统的分析和设计中。
本系统主要实现的功能是：考生报名、考生信息查询、考试安排总表、考生信息管理、教师信息查询、准考证、教师信息管理、考场信息查询、考场考生名单、考场信息管理、考试安排综合查询、考试安排管理等。真正实现考生从报名到考试安排、教师管理员的管理的一系列的英语考试安排管理系统的功能。

关键词： 英语考试安排管理系统，英语考试， Microsoft Access2010






 ABSTRACT
English exam schedule management system is the most important role in English exam, but also ensure the English test not disorderly of an effective tool, the development of the system in combination with the comprehensive application of many disciplines, these ideas are always consistent cut arrangement system analysis and design of the examination. Is the function of this system mainly realize: the examinee registration, information query, examinee exam arrange total table, the examinee information management, information query, the admission ticket, teacher information management, examination information query, examination candidates list, venue information management, comprehensive inquiry, examination arrangements exam management, etc. Realize the examinee from signing up to the management of exam arrangement, teachers, administrators of a series of English exam schedule management system function. Keywords: English exam schedule management system, the English exam, Microsoft Access2010



 绪论
1.1 系统的开发背景
本考试系统采用B/S模式开发，不需安装客户端，被授权用户通过浏览器即可登录系统，从而开始正常的考试。本系统是基于微软公司的Windows XP操作系统、JSP的开发技术与SQL Server数据库平台构建而成。微软公司产品优异的性能为本系统提供了高效稳定的运行环境，使本系统无论在运行速度、易用性还是在数据吞吐能力方面都表现卓越。

本系统具有多方面特点：系统功能完备，用户使用方便简捷，人性化的用户界面，安全保密设置齐全，大大减少了操作人员和用户的工作负担，提高了学校的信息化的水平。
1.2 系统实现的目标
1
在我国，随着高校招生规模的不断扩大，学校的学生越来越多，但目前学校的各种考试大都采用传统的考试方式，在这种传统的方式下，考试要经过教师出题，组织学生考试，人工评卷这些最基本的过程。这种传统的方式，费时，费力，教师的工作压力比较大，而且容易产生错误，所在通过网络进行的在线考试是现阶段研究开发的一个热点。它是建立在国际互联网上的应用系统，客户端的配置可以极为简单，使考试不受地域的局限。一个完备的网上考试系统可以使用户在网上学习过后及时检验自己的学习效果，已发现自己的不足，使得学习效率得到很大提高，同时也可以用于正式的考试场合。网上考试系统中题目的生成、试卷的提交、成绩的批阅等都可以在网络上完成。只要形成一套成熟的题库就可以实现考试的自动化。这样一来，教师所要做的只是精心设计题目、维护题库，而不是组织考试，从而大大减轻了教师的负担，这表明其经济性是相当可观的。为了适应新形势的发展，利用本次毕业设计的机会，我进行了这一系统的初步设计工作，也可以说是做一个初步的探索，希望它能够在考试中发挥高效、便捷的作用,把老师从繁重的工作中解脱出来。
1.3 系统功能的概述
本系统在前台为普通用户提供预定和查询等系统使用功能，在后台为花店商家提供对系统平台的管理功能。在前台为会员提供操作功能包括以下内容：自己的个人信息管理（包括会员名、密码、真实姓名、电话和通讯地址等）、鲜花的查找、购买、订单管理、购物车管理、留言等功能。此系统为商家提供功能如下：管理员管理、会员管理、商品信息管理、订单管理、公告管理、友情链接、商品分类查询、安全退出等功能。图书馆管理信息系统需要完成功能主要有：

1. 学生基本的登录，包括账户和密码。
2．学生基本信息的查询、更新和追加，包括读者考生学号、专业、姓名、性别、身份证号、是否报考、年级等。
3．教师基本信息的查询、更新和追加，包括教师编号、教师姓名、性别、联系2
电话、是否安排。 4．考场考生名单。
5．考室查询，包括考室编号、教室名称、位置。
6．准考证信息的查询，包括考生学号、姓名、身份证号、性别、教室名称、座位名称。
7．综合信息的查询，包括读者教师编号、教师姓名、考室编号、教室名称等。 8．座位信息的查询、修改，包括座位编号、座位名称、是否安排。
9．考试安排的输入，包括考试安排编号、考生学号、教师编号、考室、座位。 10．学生报考的输入，包括还书读者学生学号、姓名、性别、身份证号、年级、专业、所属学院、是否报考等。
1.4 系统的开发环境
开发此系统所需要用到的软件环境如下： ➢ 操作系统：WindowsXP ➢ 数据库：Microsoft Access2010及其以上版本，服务器端脚本编程环境是JSP嵌入JavaScript。 Microsoft Access2010简体中文企业版 +SP4升级补丁，Microsoft Access2010 (SP4 可解决自从Microsoft Access2010 推出以来所发现的特定问题。 因为 Microsoft Access2010 的内容是不断累积的。
➢ 图片处理：PhotoShopCS4等工具。


3
第2章 系统可行性分析
系统的可行性分析
可行性研究的目的就是用最小的代价在尽可能短的时间内确定问题是否能够解决。在实际开发计算机系统的过程中，常常因为资源的限制、资金的限制而使计算机系统无法在规定的时间内完成而带来烦恼，也会因为没有系统的分析而凭主观的猜想估计使系统的开发耗费大量的代价，所以需要慎重地尽可能早地估价研制课题的可行性，避免在开发系统的过程中，发现系统的开发不合理或者是系统完成后带来的经济效益无法满足所投资的程度等等。可行性分析主要包括以下内容：技术可行性、经济可行性、操作可行性、法律可行性。
2.1 经济可行性
一般来说，投资费用主要包括：设备费用，人员费用，材料费用，其他费用。现在的大、中型鲜花销售中心都有自身的运营经费，而且一般大中型规模的销售点都会配置电脑，所以在硬件方面不必再投入；只需要在软件开发方面投入一些经费就可以了，而且在方面投资鲜花销售中心应该会愿意承担并完全支付得起。 成本/效益分析、估计开发成本、运行费用、新系统将带来的经济效益。
2.2 技术可行性
英语考试系统有以下特点：一是数据量较大，要求及时查询的内容较多；二是数据处理较集中，内部数据处理量大，输出量大；三是即时处理，要不断更新数据信息。基于以上三个特点，现有技术都可以达到要求的目的。
2.3 操作可行性
本系统为一个小型的英语考试系统，所耗费的资源非常的小，工作室的电脑无论是硬件还是软件都能够满足条件，界面设计时充分考虑后台管理人员的习惯，使得操作简单；数据录入迅速、规范、可靠，统计准确，因此，本系统在操作上是可行的。


 2.4 结论
通过以上的可行性分析，我们将采用Microsoft Access2010数据库相结合的技术，对系统进行设计，本系统的开发预计以后的收入将远大于支出，在法律上也合法，因此我们认为该系统是可以开发的。


 第3章 系统需求分析
软件需求分析的目标是深入描述软件的功能和性能，确定软件设计的约束和软件同其它系统元素的接口细节，定义软件的其它有效需求。
需求分析阶段研究的对象是软件项目的会员要求。一方面，必须全面理解会员的各项要求，但又不能全盘接受所有的要求，另一方面，要准确地表达被接受的会员要求。只有经过确切描述的软件需求才能成为软件设计的基础。
3.1 系统开发的具体目标 3.1.1 普通用户对系统的要求
➢
系统的会员登录及身份验证要求，系统会员注册、验证会员的注册信息、系统会员进入系统的身份验证、注册的会员不可以再注册。
3.2 系统业务流程图
系统流程图又称业务流程图，是概括地描绘物理系统的传统工具，其基本思想是直观描述该系统业务处理由开始到结束的整个过程的非结构化图型工具，它可以描述一个系统的业务，也可以描述一项具体业务的处理过程。它是系统分析员描述该系统的最好的工具，是系统分析员与企业管理人员交流的有力工具 。 系统业务流程图：
图2-3书籍信息实体E-R图
2.1.2教师信息实体E-R图：

图2-4 书籍借还记录信息实体E-R图


2.1.3考室信息实体E-R图：



图2-2 用户信息实体E-R图
2.1.4总的信息实体E-R图：

图2-7总的信息实体E-R图
3.逻辑结构设计
3.1 E-R图向关系模式转化
一般逻辑模型设计 由ERD导出一般关系模型的四条原则为 原则1（实体转换为关系模式）：ERD中每个独立的实体转换为一个关系模式，实体的属性组成关系的属性，实体的主标识转换成关系的主码。 原则2（从实体及其主从联系转换为关系模式）：ERD中一个从实体及其主从联系转换为一个关系，从实体的属性及其主实体关系的属性组成的属性，其主实体关系的主码，在主从关系联系为一对多联系时还要加上可把同一主实体个体所对应的从实体个体区分开来的，从实体的一组属性，作为该关系的主码。对子类实体可作类似一对一联系的从实体的转换。 原则3（一对多联系在关系模式中的表示）：ERD中的一个一对多联系通过在其“多”实体关系上增加“1”实体关系的主码（作为外码）和联系本身的属性来表示。 原则4（多对多联系转换为关系）：ERD中的一个多对多联系转换为一个关系，其被联系实体关系的主码和该联系本身的属性一起组成的属性，被联系关系的主码组成该关系的复合主码。

(一 考生（考生学号、专业、姓名、性别、身份证号、是否报考、年级）


 (二 教师（教师编号、教师姓名、性别、联系电话、是否安排） (三 考室（考室编号、教室名称、位置）

以上通过关系代数方法的进行运算得到所需要的结果，在实验结果中可以看到。
3.2数据字典
表２.2-1 考生信息表

表中列名 考生学号 姓名 性别
身份证号 所属学院 年级 专业 是否报考 数据类型 varchar varchar varchar varchar datetime varchar varchar varchar 可否为空 not null(主键 not null not null Not null null not null not null not null

表2.2-2 教师信息表

表中列名 教师编号 教师姓名 年级 联系电话
是否安排 性别

数据类型 Varchar Varchar Varchar Varchar Varchar Varchar 可否为空 Not null(主键 Not null Not null Not null Null Not null
表2.2-3 考室信息表

表中列名 考室编号
教师名称 位置 数据类型 Varchar Varchar Varchar 可否为空 Not null(外主键 Not null(外主键
Not null
表2.2-4 座位信息表
表中列名 座位编号 座位名称 是否安排
数据类型 Varchar Varchar Varchar 可否为空 Not null Not null Not null 4.数据库实现
4.1 表结构截图 表4.1-1 考生表


表4.1-2 教师表
表4.1-3 考试安排表

表4.1-4 座位表

表4.1-5 考室表

4.2表间关系截图 表4.2-1 各表之间的关系





5.数据库功能模块图
5.1 数据库功能模块图
5.1-1 数据库总体功能模块图

5.2 功能模块窗口截图
5.2-1 考试安排管理窗口

5.2-2 教师信息查询窗口







 5.2-3 教师信息查询子窗口

5.2-4 教师信息管理窗口





 5.2-5 考场信息管理窗口

5.2-6考生报考窗口





 5.27考生信息查询窗口

5.28考生信息编辑窗口

5.27考生信息查询窗口


 5.27考试安排窗口




5.3 数据库具体代码
5.3.1 数据库创建源代码



 5.3.1-1 英语四六级考试安排管理系统

Dim stDocName As String
stDocName = ChrW(-32765 & ChrW(-29739 & ChrW(23433 & ChrW(25490 & ChrW(24635 & ChrW(-30616 DoCmd.OpenReport stDocName, acPreview
Exit_Command12_Click: Exit Sub
Err_Command12_Click: MsgBox Err.Description Resume Exit_Command12_Click End Sub Private Sub Command13_Click( On Error GoTo Err_Command13_Click
Dim stDocName As String
stDocName = ChrW(20934 & ChrW(-32765 & ChrW(-29759 DoCmd.OpenReport stDocName, acPreview
Exit_Command13_Click: Exit Sub
Err_Command13_Click: MsgBox Err.Description Resume Exit_Command13_Click End Sub Private Sub Command14_Click( On Error GoTo Err_Command14_Click
Dim stDocName As String
stDocName = ChrW(-32765 & ChrW(22330 & ChrW(-32765 & ChrW(29983 & ChrW(21517 & ChrW(21333 DoCmd.OpenReport stDocName, acPreview
Exit_Command14_Click: Exit Sub
Err_Command14_Click:

MsgBox Err.Description Resume Exit_Command14_Click End Sub
Private Sub 主体_Click(
End Sub
教师信息查询
For Each ctl In Me.Controls '根据ctl的控件类型来选择
 Select Case ctl.ControlType Case acTextBox '是文本框，要清空(注意，子窗体下面还有两个锁定的文本框不能赋值
If ctl.Locked = False Then ctl.Value = Null Case acComboBox '是组合框，也要清空 ctl.Value = Null '其它类型的控件不处理
End Select Next '取消子窗体的筛选
Me.教师信息查询子窗体.Form.Filter = "" Me.教师信息查询子窗体.Form.FilterOn = True

Exit_cmd清除_Click: Exit Sub
Err_cmd清除_Click: MsgBox Err.Description Resume Exit_cmd清除_Click End Sub

Private Sub Command35_Click( On Error GoTo Err_Command35_Click



DoCmd.Close
Exit_Command35_Click: Exit Sub
Err_Command35_Click: MsgBox Err.Description Resume Exit_Command35_Click End Sub
Private Sub 主体_Click(
End Sub

教师信息管理
Option Compare Database
Private Sub Command10_Click( On Error GoTo Err_Command10_Click

DoCmd.GoToRecord , , acFirst
Exit_Command10_Click: Exit Sub
Err_Command10_Click: MsgBox Err.Description Resume Exit_Command10_Click End Sub Private Sub Command11_Click( On Error GoTo Err_Command11_Click

DoCmd.GoToRecord , , acPrevious
Exit_Command11_Click: Exit Sub
Err_Command11_Click: MsgBox Err.Description Resume Exit_Command11_Click

End Sub Private Sub Command12_Click( On Error GoTo Err_Command12_Click

DoCmd.GoToRecord , , acNext
Exit_Command12_Click: Exit Sub
Err_Command12_Click: MsgBox Err.Description Resume Exit_Command12_Click End Sub Private Sub Command13_Click( On Error GoTo Err_Command13_Click

DoCmd.GoToRecord , , acLast
Exit_Command13_Click: Exit Sub
Err_Command13_Click: MsgBox Err.Description Resume Exit_Command13_Click End Sub Private Sub Command14_Click( On Error GoTo Err_Command14_Click

DoCmd.GoToRecord , , acNewRec
Exit_Command14_Click: Exit Sub
Err_Command14_Click: MsgBox Err.Description Resume Exit_Command14_Click End Sub Private Sub Command15_Click( On Error GoTo Err_Command15_Click



DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Command15_Click: Exit Sub
Err_Command15_Click: MsgBox Err.Description Resume Exit_Command15_Click End Sub Private Sub Command16_Click( On Error GoTo Err_Command16_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Command16_Click: Exit Sub
Err_Command16_Click: MsgBox Err.Description Resume Exit_Command16_Click End Sub Private Sub Command17_Click( On Error GoTo Err_Command17_Click

DoCmd.Close
Exit_Command17_Click: Exit Sub
Err_Command17_Click: MsgBox Err.Description Resume Exit_Command17_Click End Sub
Private Sub 主体_Click(
End Sub


考场信息管理
Option Compare Database
Private Sub Command6_Click( On Error GoTo Err_Command6_Click

DoCmd.GoToRecord , , acFirst
Exit_Command6_Click: Exit Sub
Err_Command6_Click: MsgBox Err.Description Resume Exit_Command6_Click End Sub Private Sub Command7_Click( On Error GoTo Err_Command7_Click

DoCmd.GoToRecord , , acPrevious
Exit_Command7_Click: Exit Sub
Err_Command7_Click: MsgBox Err.Description Resume Exit_Command7_Click End Sub Private Sub Command8_Click( On Error GoTo Err_Command8_Click

DoCmd.GoToRecord , , acNext
Exit_Command8_Click: Exit Sub
Err_Command8_Click: MsgBox Err.Description Resume Exit_Command8_Click

End Sub Private Sub Command9_Click( On Error GoTo Err_Command9_Click

DoCmd.GoToRecord , , acLast
Exit_Command9_Click: Exit Sub
Err_Command9_Click: MsgBox Err.Description Resume Exit_Command9_Click End Sub Private Sub Command10_Click( On Error GoTo Err_Command10_Click

DoCmd.GoToRecord , , acNewRec
Exit_Command10_Click: Exit Sub
Err_Command10_Click: MsgBox Err.Description Resume Exit_Command10_Click End Sub Private Sub Command11_Click( On Error GoTo Err_Command11_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Command11_Click: Exit Sub
Err_Command11_Click: MsgBox Err.Description Resume Exit_Command11_Click End Sub Private Sub Command12_Click( On Error GoTo Err_Command12_Click



DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Command12_Click: Exit Sub
Err_Command12_Click: MsgBox Err.Description Resume Exit_Command12_Click End Sub Private Sub Command13_Click( On Error GoTo Err_Command13_Click

DoCmd.Close
Exit_Command13_Click: Exit Sub
Err_Command13_Click: MsgBox Err.Description Resume Exit_Command13_Click End Sub
Private Sub 主体_Click(
End Sub
考生报考
Option Compare Database
Private Sub Command16_Click( On Error GoTo Err_Command16_Click
Me.考生学号.Visible = True Me.姓名.Visible = True Me.性别.Visible = True Me.身份证号.Visible = True Me.年级.Visible = True Me.专业.Visible = True

Me.所属学院.Visible = True Me.是否报考.Visible = True DoCmd.GoToRecord , , acNewRec
Exit_Command16_Click: Exit Sub
Err_Command16_Click: MsgBox Err.Description Resume Exit_Command16_Click End Sub
Private Sub Form_Load( Me.考生学号.Visible = False Me.姓名.Visible = False Me.性别.Visible = False Me.身份证号.Visible = False Me.年级.Visible = False Me.专业.Visible = False Me.所属学院.Visible = False Me.是否报考.Visible = False
End Sub Private Sub Command17_Click( On Error GoTo Err_Command17_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Command17_Click: Exit Sub
Err_Command17_Click: MsgBox Err.Description Resume Exit_Command17_Click End Sub Private Sub Command18_Click( On Error GoTo Err_Command18_Click

DoCmd.Close
Exit_Command18_Click:

Exit Sub
Err_Command18_Click: MsgBox Err.Description Resume Exit_Command18_Click End Sub
Private Sub 主体_Click(
End Sub
考生查询窗体
Option Compare Database
Private Sub cmd查询_Click( On Error GoTo Err_cmd查询_Click
Dim strWhere As String '定义条件字符串
strWhere = "" '设定初始值－空字符串
'判断条件是否有输入的值
If Not IsNull(Me.考生学号 Then '有输入
strWhere = strWhere & "([考生学号] like '*" & Me.考生学号 & "*' AND " End If
'判断条件是否有输入的值
If Not IsNull(Me.姓名 Then '有输入
strWhere = strWhere & "([姓名] like '*" & Me.姓名 & "*' AND " End If

If Len(strWhere > 0 Then '有输入条件
strWhere = Left(strWhere, Len(strWhere - 5 End If
'让子窗体应用窗体查询


 Me.考生信息查询子窗体.Form.Filter = strWhere Me.考生信息查询子窗体.Form.FilterOn = True

Exit_cmd查询_Click: Exit Sub
Err_cmd查询_Click: MsgBox Err.Description Resume Exit_cmd查询_Click End Sub

Private Sub cmd清除_Click( On Error GoTo Err_cmd清除_Click
Dim ctl As Control For Each ctl In Me.Controls '根据ctl的控件类型来选择
 Select Case ctl.ControlType Case acTextBox '是文本框，要清空(注意，子窗体下面还有两个锁定的文本框不能赋值
If ctl.Locked = False Then ctl.Value = Null Case acComboBox '是组合框，也要清空 ctl.Value = Null '其它类型的控件不处理
End Select Next '取消子窗体的筛选
Me.考生信息查询子窗体.Form.Filter = "" Me.考生信息查询子窗体.Form.FilterOn = True

Exit_cmd清除_Click: Exit Sub


Err_cmd清除_Click: MsgBox Err.Description Resume Exit_cmd清除_Click End Sub

Private Sub Command33_Click( On Error GoTo Err_Command33_Click

DoCmd.Close
Exit_Command33_Click: Exit Sub
Err_Command33_Click: MsgBox Err.Description Resume Exit_Command33_Click End Sub
Private Sub 主体_Click(
End Sub
考生信息编辑
Option Compare Database
Private Sub Command16_Click( On Error GoTo Err_Command16_Click

DoCmd.GoToRecord , , acFirst
Exit_Command16_Click: Exit Sub
Err_Command16_Click: MsgBox Err.Description Resume Exit_Command16_Click End Sub Private Sub Command17_Click(

On Error GoTo Err_Command17_Click

DoCmd.GoToRecord , , acPrevious
Exit_Command17_Click: Exit Sub
Err_Command17_Click: MsgBox Err.Description Resume Exit_Command17_Click End Sub Private Sub Command18_Click( On Error GoTo Err_Command18_Click

DoCmd.GoToRecord , , acPrevious
Exit_Command18_Click: Exit Sub
Err_Command18_Click: MsgBox Err.Description Resume Exit_Command18_Click End Sub Private Sub Command19_Click( On Error GoTo Err_Command19_Click

DoCmd.GoToRecord , , acNext
Exit_Command19_Click: Exit Sub
Err_Command19_Click: MsgBox Err.Description Resume Exit_Command19_Click End Sub Private Sub Command20_Click( On Error GoTo Err_Command20_Click



DoCmd.GoToRecord , , acLast
Exit_Command20_Click: Exit Sub
Err_Command20_Click: MsgBox Err.Description Resume Exit_Command20_Click End Sub Private Sub Command21_Click( On Error GoTo Err_Command21_Click

DoCmd.GoToRecord , , acNewRec
Exit_Command21_Click: Exit Sub
Err_Command21_Click: MsgBox Err.Description Resume Exit_Command21_Click End Sub Private Sub Command22_Click( On Error GoTo Err_Command22_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Command22_Click: Exit Sub
Err_Command22_Click: MsgBox Err.Description Resume Exit_Command22_Click End Sub Private Sub Command23_Click( On Error GoTo Err_Command23_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70


Exit_Command23_Click: Exit Sub
Err_Command23_Click: MsgBox Err.Description Resume Exit_Command23_Click End Sub Private Sub Command24_Click( On Error GoTo Err_Command24_Click

DoCmd.Close
Exit_Command24_Click: Exit Sub
Err_Command24_Click: MsgBox Err.Description Resume Exit_Command24_Click End Sub
Private Sub 主体_Click(
End Sub
考试安排
Option Compare Database
Private Sub Command10_Click( On Error GoTo Err_Command10_Click

DoCmd.Close
Exit_Command10_Click: Exit Sub
Err_Command10_Click: MsgBox Err.Description Resume Exit_Command10_Click End Sub


Private Sub Command9_Click( If IsNull(Me.考生学号 And IsNull(Me.教师编号 And IsNull(Me.考室编号 And IsNull(Me.座位编号 Then MsgBox "信息请完整填写!", vbInformation, "提示:" Else Set rs = New ADODB.Recordset Dim strsql As String strsql = "Select * from 考试安排表 'The data of table connection string" rs.Open strsql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic rs.AddNew rs("考生学号" = Me.考生学号 rs("教师编号" = Me.教师编号 rs("考室" = Me.考室编号 rs("座位" = Me.座位编号

rs.Update
Dim ksbh, jsbh, ks, zw, sfbk, sfap, sfap1 As String

ksbh = Me.考生学号 jsbh = Me.教师编号 ks = Me.考室编号 zw = Me.座位编号 sfbk = "考试已安排" sfap = "已安排" sfap1 = "已安排"

sqlstr = "update 考生表 set 是否报考='" & sfbk & "' where 考生学号 ='" & ksbh & "';" 'docmd.set warning false DoCmd.RunSQL sqlstr
sqlstr1 = "update 教师表 set 是否安排='" & sfap & "' where 教师编号 ='" & jsbh & "';" 'docmd.set warning false DoCmd.RunSQL sqlstr1
sqlstr2 = "update 座位表 set 是否安排='" & sfap1 & "' where 座位编号 ='" & zw & "';" 'docmd.set warning false DoCmd.RunSQL sqlstr2


MsgBox "信息添加成功！", vbInformation, "提示:" End If
End Sub
Private Sub 主体_Click(
End Sub
考试安排管理
Option Compare Database
Private Sub Command10_Click( On Error GoTo Err_Command10_Click

DoCmd.GoToRecord , , acFirst
Exit_Command10_Click: Exit Sub
Err_Command10_Click: MsgBox Err.Description Resume Exit_Command10_Click End Sub Private Sub Command11_Click( On Error GoTo Err_Command11_Click

DoCmd.GoToRecord , , acPrevious
Exit_Command11_Click: Exit Sub
Err_Command11_Click: MsgBox Err.Description Resume Exit_Command11_Click End Sub Private Sub Command12_Click( On Error GoTo Err_Command12_Click



DoCmd.GoToRecord , , acNext
Exit_Command12_Click: Exit Sub
Err_Command12_Click: MsgBox Err.Description Resume Exit_Command12_Click End Sub Private Sub Command13_Click( On Error GoTo Err_Command13_Click

DoCmd.GoToRecord , , acLast
Exit_Command13_Click: Exit Sub
Err_Command13_Click: MsgBox Err.Description Resume Exit_Command13_Click End Sub Private Sub Command14_Click( On Error GoTo Err_Command14_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Command14_Click: Exit Sub
Err_Command14_Click: MsgBox Err.Description Resume Exit_Command14_Click End Sub Private Sub Command15_Click( On Error GoTo Err_Command15_Click

DoCmd.Close


Exit_Command15_Click: Exit Sub
Err_Command15_Click: MsgBox Err.Description Resume Exit_Command15_Click End Sub
Private Sub 主体_Click(
End Sub
考室信息查询
Option Compare Database
Private Sub cmd查询_Click( On Error GoTo Err_cmd查询_Click
Dim strWhere As String '定义条件字符串
strWhere = "" '设定初始值－空字符串
'判断条件是否有输入的值
If Not IsNull(Me.考室编号 Then '有输入
strWhere = strWhere & "([考室编号] like '*" & Me.考室编号 & "*' AND " End If

If Len(strWhere > 0 Then '有输入条件
strWhere = Left(strWhere, Len(strWhere - 5 End If
'让子窗体应用窗体查询
Me.考室信息查询子窗体.Form.Filter = strWhere Me.考室信息查询子窗体.Form.FilterOn = True



Exit_cmd查询_Click: Exit Sub
Err_cmd查询_Click: MsgBox Err.Description Resume Exit_cmd查询_Click End Sub

Private Sub cmd清除_Click( On Error GoTo Err_cmd清除_Click
Dim ctl As Control For Each ctl In Me.Controls '根据ctl的控件类型来选择
 Select Case ctl.ControlType Case acTextBox '是文本框，要清空(注意，子窗体下面还有两个锁定的文本框不能赋值
If ctl.Locked = False Then ctl.Value = Null Case acComboBox '是组合框，也要清空 ctl.Value = Null '其它类型的控件不处理
End Select Next '取消子窗体的筛选
Me.考室信息查询子窗体.Form.Filter = "" Me.考室信息查询子窗体.Form.FilterOn = True

Exit_cmd清除_Click: Exit Sub
Err_cmd清除_Click: MsgBox Err.Description Resume Exit_cmd清除_Click End Sub



Private Sub Command37_Click( On Error GoTo Err_Command37_Click

DoCmd.Close
Exit_Command37_Click: Exit Sub
Err_Command37_Click: MsgBox Err.Description Resume Exit_Command37_Click End Sub
Private Sub 主体_Click(
End Sub
登录窗口
Option Compare Database
Private Sub cancel_Click(
On Error GoTo Err_login_cancel_Click

DoCmd.Close
Exit_login_cancel_Click: Exit Sub
Err_login_cancel_Click: MsgBox Err.Description Resume Exit_login_cancel_Click End Sub

Private Sub login_Click(


Dim userID As Integer If IsNull(user = False Then If DLookup("[密码]", "登录", "[账户]= """ & user & """" = id Then DoCmd.Close MsgBox ("欢迎使用英语四六级考试管理系统！" DoCmd.OpenForm "管理系统" ' Form_主界面.user = userID Else user = "" id.SetFocus MsgBox "帐户密码错误！", vbCritical End If End If
End Sub
Private Sub 主体_Click(
End Sub

6.设计体会
通过此次数据库的课程设计，真正达到了学与用的结合，增强了对数据库方面应用的理解，对自己今后参与开发数据库系统积累了不少经验，在实验过程中，从建立数据开始，对灵据库设计理念及思想上有更高的认识，从需求分析，到概念设计和逻辑设计，E-R图的表示，数据字典的创建，懂得了不少有关数据库开发过程中的知识，在实验中建表，及其关系模式，关系代数的建立及理解，将SQL语的查询语句用得淋漓尽致，增强了自己在数据库中应用SQL语言的灵活性，其中包括，插入、删除、修改、查询,牵涉表和表之间的联系，主建与外主键的定义，约束项的设置，使逻辑更严密，在学习过程中，我也能过上网查了不少资料，也看了一些别人设计的图书馆管理信息系统的设计报告，学以致用，自我创新，独立完成了这份自己的报告，从中在学到用，从用又到学，不断修改，系统更新。虽然不能达到完善系统，但我已经尽力了，由于加强理论学习对完善系统会有很多帮助，所以我以后要认真学习相关理论知识，争取做出更让自己满意的设计。

参考文献 [1] 王珊，萨师煊编著．《数据库系统概论》．北京：高等教育出版社，2006 [2] 李昆 编著．《SQL SERVER 2000课程设计案例精编》．北京：中国水利水电出版社，2005 [3] 刘大伟，马传宝编著 《数据库项目案例导航》 北京：清华大学出版社 2005


本文来源：https://www.2haoxitong.net/k/doc/f1b453c11b2e453610661ed9ad51f01dc3815727.html

《英语考试管理系统.doc》
将本文的Word文档下载到电脑，方便收藏和打印
推荐度：
点击下载文档

文档为doc格式
相
关
案
例

相关推荐

推荐内容

观《天渠》有感- 湖南新能源汽车补贴政策,2019年湖南买新能源汽车补贴政策方案.doc- 土木工程专业实践教学与考核评价体系的构建与实践 北师大版一年级数学下册《认识图形》说课稿- 减肥产品有没有副作用全国减肥产品排行榜 福建医科大学2016年招收硕士研究生第一批拟录取名单公示- 减肥药排行榜 日本人的忌讳及其产生的根源 减肥食物排行榜 广州住房公积金缴存服务指南剖析
网站内容来自网络，如有侵权请联系我们，立即删除！ Copyright © 范文写作网京ICP备16605803号