- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
摘 要
一般情况教师想出一份试卷,要么到庞大的题库里一道一道的把题找出来,或是从几本相关的书里把题一道一道挑出来。这样即费时又费力,而且很难保证试题的覆盖面和把握好试卷的难度。正是为了能够帮助教师轻松的出一份高质量的试卷而开发了本系统。
以做一个数据库原理这门课的题库系统为例,为了达到预期的标准本文最终选择了txt文本文件做为本系统的终端输出。并且实现了以下主要功能试题数据库的创建、不同章节不同难度的试题录入、图片保存、试卷分析、自动生成试卷等功能,多次运行证明本系统运行较为稳定且各项功能运行得比较正确,基本达到了预期的要求。
关键词: Visual Basic 6.0,SQL Server 2000,题库管理系统
目录
1 系统功能概述 3
1.1系统功能 3
1.2系统结构总图 3
1.3系统E-R模型 4
2 数据库设计 5
2.1 需求分析 5
2.2 功能分析 5
2.4 表结构设计 21
3 系统各功能模块的详细设计 24
3.1配置数据源(ODBC数据源) 24
3.2 窗体的设计 24
3.3主要窗体源程序代码 28
4系统优缺点评价 42
参考文献 42
1 系统功能概述
1.1系统功能
系统功能介绍:
1、创建题库:本系统适合不同科目的老师进行试题的录入,可根据不同的课程名创建不同的试题数据库,且自动生成简答题、单选题、多选题、填空题、难度值四张表。
题库维护系统:
该系统是适合不同课程的老师录入考试试题,本系统包括了题文的录入、题文的查找、题文的删除和修改,章节的设定,分值的设置,试题的难度设置,试卷分析,以及生成试卷的功能。
2、生成卷:
该系统是本软件的主要的功能的体现,不受分值和难易程度的限制,
结构图:
1.3系统E-R模型
2 数据库设计
2.1 需求分析
设计试题生成功能,试题能分布整个教学内容
设计试题的难易程度分析功能
具有试题的答案生成功能
数据库设计及维护
程序的其它选项设置
2.2 功能分析
1.每创建一个数据库将自动生成四种题型几个各个章节的数据表,因为在录入题目的时候要显示书本章节信息以供用户使用。而在数据库里章节的存放是没有规则也即它们的顺序不一定按照真实书本的章节顺序来存储的。但是在显示章节信息的时候必须按照书本的章节顺序来显示。所以分别设置如下的各张表的数据类型:
创建“章节”数据表
strSQL = Create Table 章节 ( _
编号 int identity primary key, _
名称 varchar(50) not null)
objCn.Execute strSQL
objCn.Close
Set objCn = Nothing
MsgBox 数据库已成功创建!
由于数据库里章节的数量是不定的,故此种数据类型的变量必须是一种长度可变的类型才行。接下来的问题就是把这个变量记录的数据按一定顺序显示到combobox的控件里了。由于章节的数量还是比较多的,所以我选择了“改进的选择排序”,具体的排序算法代码实现如下:
If cmbChapter Then
objRs.Filter = 章节= cmbChapter.ItemData(cmbChapter.ListIndex)
If objRs.RecordCount 0 Then objRs.MoveFirst
Show_Data
Else
objRs.Filter = 章节=-99999
Show_Data
End If
2.试卷分析的过程中,要考虑到一张试卷里面各个不同题目所在比例与试题库中该类试题占所有试题库中的比例之间的差异问题,所以在分析的过程中在成分不足或者成分超过的情况需要设置提示,整个参数分析代码为:
分析章节中的题数分配
Dim News, i%, j%, strFilter$, Chapter%(3, 2), k%
News = Array(判断题, 单选题, 多选题, 填空题)
For i = 0 To 3
If Val(txtScore(i)) 0 And Val(lblRemain(i)) 0 Then
MsgBox News(i) 试题剩余 lblRemain(i) %未分配, vbCritical
txtScale(i).SetFocus
Exit S
原创力文档


文档评论(0)