优质课程学习系统.doc

毕业设计论文 1 目录 目录目录 1 摘要摘要 3 ABSTRACT 4 第一章第一章 绪论绪论 5 1 1 系统开发的目的 5 1 1 1 综合所学的知识 5 1 1 2 方便用户使用 6 1 1 3 提高工作效率 6 1 1 4 满足用户需求 6 1 2 系统开发的应用范围 7 1 2 1 学生优质课程学习系统简介 7 1 2 2 系统的组成 7 1 3 系统开发的预期效果 7 1 4 系统开发的思路和安排 7 1 5 开发本系统的意义 8 第第 2 章章 系统分析系统分析 9 2 1 背景分析 9 2 2 组织机构调查分析 9 2 3 可行性分析 9 2 3 1 技术可行性 10 2 3 2 经济可行性 10 2 3 3 运行可行性 10 第三章第三章 系统设计系统设计 12 3 1 系统功能设计 12 3 2 数据库设计 12 3 2 1 概念设计 12 3 2 2 逻辑设计 15 3 2 3 物理设计 18 第四章第四章 系统的详细设计与实现系统的详细设计与实现 21 4 1 程序设计 21 4 1 1 系统登录 21 4 1 2 系统主界面 23 4 1 3 用户管理 23 4 1 4 知识库 24 4 1 5 试题管理 26 4 1 6 学生考试 30 4 1 7 错题库 37 4 2 调试 38 基于 C S 的优质课程学习系统的设计与实现 2 4 3 系统维护 38 第第 5 章章 结论结论 39 5 1 开发过程中的重点和难点 39 5 2 系统开发的收获 39 参考文献参考文献 40 致谢致谢 41 毕业设计论文 3 摘要 开发此优质课程学习系统的一个重要目的就是方便用户使用 这也是检验系统运行效 果好坏的一个标准 系统投入使用的一个重要问题就是给用户提供方便 一般情况下系统 的使用者并非计算机专业人员 所以开发系统时应本着尽量使用户使用起来操作简单为原 则 最好不要涉及复杂的命令代码 众所周知 用户拥有对系统的最终评价权 系统投入 运行使用结果的好与坏 只能以用户的满意程度为标准 所以本系统开发的工作不能脱离 用户的要求 当今社会日益信息化 自动化 以人机结合的计算机信息系统代替原始的手工信系统 是大势所趋 人心所向 因为信息系统以其工作的高效率 令原始的手工系统望洋兴叹 信息管理系统必将取代手工系统 先进的代替落后的 这是历史的发展的必然 开发优质 课程学习系统的一个重要目的就是方便学生高效学习 减轻了学生课程学习的负担 取代 了以前的手工统计 计算等复杂的管理程序 信息管理系统以其工作的高效率而大受欢迎 被广泛应用于各个行业 政府 银行 邮政 航天 等领域 关键字关键字 优质课程学习系统 信息管理系统 自动化 基于 C S 的优质课程学习系统的设计与实现 4 Abstract An important goal is the development of this quality courses user friendly and this is a standard test system is running good or bad effects System put into use an important issue is to provide convenience to the user the users of the system under normal circumstances is not a computer professional development system should be the principle of the spirit as much as possible to enable users to use simple operation it is best not to involve complex command code As we all know the user has the right to the final evaluation of the system the system is put in run results good or bad only the degree of user satisfaction as the standard so the system development work can not be divorced from the user s requirements Today s society increasingly information technology automation human machine combination of computer information systems instead of the original hand letter system is a general trend and popular feeling Information system with its high efficiency so that the original manual system feel powerless and frustrated the information management system will replace the manual system advanced instead of backward which is the inevitable development of history The development of quality curriculum learning system is an important purpose is to facilitate efficient student learning reduce the burden of student courses replacing the previous manual statistical calculation of complex management procedures Information management system for its high efficiency of the work of popular widely used in various industries government banking postal services aerospace and other fields Keywords high quality course of study systems information management systems automated 毕业设计论文 5 第一章 绪论 我们已经迈入了 21 世纪 这是一个变幻莫测的世纪 也是一个催人奋进的世纪 科 学技术飞速发展 知识日新月异 希望 困惑 机遇 挑战 随时随地都有可能出现在每 一个社会成员的生活中 抓住机遇 寻求发展 迎接挑战 适应变化的制胜法宝就是学习 计算机信息处理综合作业 数据库及其应用 管理信息系统 都是培养考生成 为能从事计算机信息处理和信息管理的复合型人才 是考生能在计算机上述连进行文字处 理 表处理 数据库操作 并进行信息通信 便于一些程序设计 参与小型管理信息系统 的开发 维护和管理 我们也利用所学的知识开发一些程序 在开发软件工程时要弄清开发的目的 设计范 围 预期结果 思路和安排 而且设计一个好的软件 在开发过程中应注意些什么 才能 开发出可靠性好 易理解 可维护性和效率高的产品 1 1 系统开发的目的 开发本系统的目的就是对专业课程的综合应用 掌握开发应用系统的基本方法和思想 也是计算机理论知识具体实践相结合的一个验证 开发应用系统有利于检验我们的实际能 力 使我们对计算机这门学科有一个更感性的的认识 1 1 1 综合所学的知识 开发本系统是在学习了其他专业课的基础上才能完成 主要涉及 数据库极其应用 和 管理信息系统 这两门课程 还有 办公自动化 这门课的一部分知识 通过学习这 些课程 对系统开发有了一个基本的认识 开发本系统正是为了强化这一认识 使我们具 有初步开发系统的能力 数据库及其应用 重点讲述了开发系统所用软件的使用方法 给我们提供了具体的开发环境 使我们对数据库管理系统的基本概念 原理 方法等都有 所了解 通过本课程的学习 应能达到知识和技能两方面的目标 知识方面 了解和掌握数据 库的基本概念 原理 方法 搞懂关系数据模型和关系操纵语言的特点 初步具备数据库 应用系统的开发能力 技能方面 系统地学习和掌握当前广为普及的微型机上软件开发工 基于 C S 的优质课程学习系统的设计与实现 6 具 Delphi 7 0 利用所学数据库的知识 编写一些简单的应用程序 解决数据处理中的一 些实际问题 管理信息系统 主要阐述了信息系统开发的基本理论和基本方法 通过学 习这门课 我们能够掌握系统分析 系统设计以及系统实施的能力 它会为我对本系统的 开发提供帮助 这门课给我提供了具体开发的思路和模块安排 在整个系统开发过程中处 于总体指导作用 此外 办公自动化技术 这门课也为我们提供了系统开发的其他一些 细节问题 1 1 2 方便用户使用 开发此优质课程学习系统的一个重要目的就是方便用户使用 这也是检验系统运行效 果好坏的一个标准 系统投入使用的一个重要问题就是给用户提供方便 一般情况下系统 的使用者并非计算机专业人员 所以开发系统时应本着尽量使用户使用起来操作简单为原 则 最好不要涉及复杂的命令代码 众所周知 用户拥有对系统的最终评价权 系统投入 运行使用结果的好与坏 只能以用户的满意程度为标准 所以本系统开发的工作不能脱离 用户的要求 在进行系统开发前 应对用户进行需求分析 调查研究用户的要求 如果忽略了这一 点 那么所开发的系统使用户感到使用不方便 甚至不满意 即使系统实施的再成功 最 终也是失败的 可见开发系统要注重方便用户这一环节的重要性 1 1 3 提高工作效率 当今社会日益信息化 自动化 以人机结合的计算机信息系统代替原始的手工信系统 是大势所趋 人心所向 因为信息系统以其工作的高效率 令原始的手工系统望洋兴叹 信息管理系统必将取代手工系统 先进的代替落后的 这是历史的发展的必然 开发优质 课程学习系统的一个重要目的就是方便各类学校对学生课外教学 提高了学生课程学习效 率 取代了以前的传统的教学方法 信息管理系统以其工作的高效率而大受欢迎 被广泛 应用于各个行业 政府 银行 邮政 航天 等领域 1 1 4 满足用户需求 开发本系统的最终目的也就是满足用户的需求 尽可能的提高工作效率 如果开发统 时 不满足系统用户的需求问题 那么开发出的系统也就无使用价值 所以开发本系统自 始至终都要围绕满足用户的需求 此优质课程学习系统主要满足用户的对学生学习 能够 方便地对学生试题练习 知识要点的了解 毕业设计论文 7 1 2 系统开发的应用范围 本系统只适用于学校的学生学习 可以实现对学生资料的一般录入 查询 修改等操 作 1 2 1 学生优质课程学习系统简介 本系统是一个学生优质课程学习系统 主要功能也就是对学生的基本情况 知识学习 例题精解 按章节练习 综合测试 问题解答 1 2 2 系统的组成 本系统包括 系统管理 知识学习 例题精解 练习测试 问题解答 具体如下 系统管理 密码修改 用户登录管理 学号管理 知识学习 知识管理 知识浏览 例题精解 试题管理 例题精解 测试练习 综合测试 练习 错题管理 问题解答 提出疑问 答复疑问 查看解答 1 3 系统开发的预期效果 本系统开发的预期效果就是系统运行实施的结果 开发本系统的最终要达到对学生学 习进行有效的管理 即能够很好地对学生学习 练习 以及学生的学生错题 方便对错题 的多次巩固 1 4 系统开发的思路和安排 一 进行系统需求分析 包括对硬件 软件的要求 对数据的需求分析 以及对功能 模块的分析 二 进行系统设计 这一阶段包括数据库设计和应用程序设计 而数据库设计包括逻 辑设计和物理设计 逻辑设计包括对系统的逻辑结构进行设计 而物理设计是在逻辑设计 的基础上进行物理功能模块设计 应用程序设计包括总体设计 模块设计 以及代码设计 基于 C S 的优质课程学习系统的设计与实现 8 1 5 开发本系统的意义 优质课程学习系统是学校学习中异常重要的一个环节 作为学校 除了育人 就是育 知 优质课程学习管理的计算机化是整个学校传播知识中的重要一部分 能否实现这一步 关系到学校办学整体效率的高低 介与它的重要性 优质课程学习管理系统的开发与应用 就逐渐提入议程 并占着越来越重要的份量 运用优质课程学习管理系统可以减轻学校教学人员的工作量 缩小开支 提高工作效 率与准确率 能够合理安排时间 投入新的课程的学习或练习 而优质课程学习管理系统 的应用也为今天的学校在未来市场的竞争力有所提高 从大的方向说 就是为了加速我国 四化建设的发展 实现全部的自动化 使我国发展成为通讯网络化 决策科学化 办公自 动化的国家 在现代 高科技的飞跃发展 人们工作习惯的改变 特别是电脑的大量普及 人们生 活节奏越来越快 怎样提高工作效率是人们首先考虑的问题 优质课程学习系统是一个非 常繁琐与复杂的一项工作 对于一个学校而言 更应该运用一些本地资源 提高管理的力 度 对学生负责 对国家负责 毕业设计论文 9 第 2 章 系统分析 这章主要讲的是优质课程学习管理系统的逻辑分析 系统分析在整个系统中具有重要 作用为系统的设计打下基础 2 1 背景分析 学校在教学这一部分主要是由教务处对课程 对学生 对学生测试进行合理地安排以 及统筹计划 以期让教务处中最短的时间段把学生的成绩核算出来 提高教务处的办事效 率 同时 能够随时对学生练习 学生测试 以及很好地对系统进行维护 2 2 组织机构调查分析 教学组织机构主要是由 行政管理 教务管理 档案管理等组成 图 2 1 为组织机构 图 学校 行政管理 教务管理 档案管理 图 2 1 组织机构图 职责 行政管理 主要是管理教师 行政 人事方面 教务管理 主要是教学方面的管理 档案管理 管理一些学生的档案 具体是学生的学号 姓名 班级 家庭电话等 基于 C S 的优质课程学习系统的设计与实现 10 2 3 可行性分析 可行性研究的目的是用最小的代价在尽可能短的时间内确定问题是否能够解决 也就 是说可行性研究的目的不是解决问题 而是确定问题是否值得去解 研究在当前的具体条 件下 开发新系统是否具备必要的资源和其它条件 一般说来 应从经济可行性 技术可行性 运行可行性 法律可行性和开发方案可行 性等方面研究可行性 可行性研究需要的时间长短取决于工程的规模 一般说来 可行性研究的成本只占预 期的工程中成本的 5 10 2 3 1 技术可行性 技术上的可行性分析要考虑将来要采用的硬件和软件技术能否满足用户 这里是校方 提出的要求 如计算机的容量 速度等 此外 还要考虑开发人员的水平 做为计算机 信息管理专业毕业的优等生 数据库设计方面对于我们应该还过得去 在学校里生活了四 年 对这个管理模式应该比较熟悉 优质课程学习管理系统的编写 是十分好编的 我分 析几周就可以写出程序 再花上几周的调试 计划两个月就可以完成投入使用了 我们掌握了数据库及其应用技术 数据库原理 计算机网络技术等课程 对数据库的 设计 应用 维护及局域网的组成有了深刻的认识与一定的动手实践能力 考取了信息处 理 程序设计 数据库技术等国家 IT 认证 从一定程度上具备了开发一个小型系统的能 力 而现在学校的计算机配置均可达到 P2 2GHZ 512M 内存 180G 硬盘 1024 768 分 辨率的显示器 2 3 2 经济可行性 主要从对项目的经济上进行分析评价 一方面是支出的费用 包括设备购置费 管理 和维护费用 人员工资和培训费等 另一个是取得的收益 这是个超小型的管理系统 从 投入的人力 财力与物力来讲是非常之小的 只要一台电脑 一台打印机 这个系统就可 以搞起来 考虑到学校里有电脑 现只要购置一台打印机就可以了 从节省人力方面 可 以让管理人员从繁与复杂的工作中解脱出来 做更多的工作 可以给教学管理提高一个层 次 毕业设计论文 11 2 3 3 运行可行性 学校正在迅猛发展 学校从硬件到软件都投入了大量的人力 物力 财力 在教务上 给各个办公室配置了计算机 并能联接到互联网 并且 学校领导对这方面比较重视 在 教务上配置了一定数目的能够训练操作计算机的干事 可以快速 方便 学校地使用计算 机进行日常工作 学校开展了计算机及其维修专业 可让学生以实践方式对系统进行维护 使此系统在实践上具备了可行性 由此可知 开发优质课程学习管理系统在学校中具有可行性 基于 C S 的优质课程学习系统的设计与实现 12 第三章 系统设计 3 1 系统功能设计 优质课程学习系统包括 系统管理 知识学习 例题精解 练习测试 问题解答等 5 大模块 其 5 大模块具体如下 系统管理 密码修改 用户登录管理 学号管理 知识学习 知识管理 知识浏览 例题精解 试题管理 例题精解 测试练习 综合测试 练习 错题管理 问题解答 提出疑问 答复疑问 查看解答 优质课程学习系统功能结构图如图 3 1 所示 优质课程学习系统 系统管理 知识学习 例题精解 测试练习 问题解答 图 3 1 系统功能结构图 3 2 数据库设计 3 2 1 概念设计 优质课程学习系统包括的实体有 登录用户实体 错题信息实体 例题精解实体 知 识学习实体 问题解答实体 学生测试实体 配置实体 试题信息实体 毕业设计论文 13 登录用户实体包括的属性有 用户名 用户密码 用户权限 登录用户实体 E R 图详 见图 3 2 所示 登录用户 用户名 用户密码 用户权限 图 3 2 登录用户实体 E R 图 错题信息实体包括的属性有 错题 id 用户 id 错题信息实体 E R 图详见图 3 3 所示 错题信息 错题 id 用户 id 图 3 3 错题信息实体 E R 图 例题精解实体包括的属性有 编号 章节 内容 讲解 例题精解实体 E R 图详见图 3 4 所示 例题精解信息 编号 讲解 内容章节 图 3 4 例题精解实体 E R 图 基于 C S 的优质课程学习系统的设计与实现 14 知识学习实体包括的属性有 编号 名称 备注 知识学习实体 E R 图详见图 3 5 所 示 知识学习 编号 名称 备注 图 3 5 知识学习实体 E R 图 问题解答实体包括的属性有 编号 标题 问题 回复 提问时间 回复时间 提问 人 回复人 问题解答实体 E R 图详见图 3 6 所示 问题解答 标题 回复 回复时间 提出时间 问题 编号提问人 图 3 6 问题解答实体 E R 图 学生测试实体包括的属性有 编号 学生 id 试题 id 学生回答 成绩 学生测试实 体 E R 图详见图 3 7 所示 毕业设计论文 15 学生测试信息 编号 学生回答 测试 id学生 id 学生成绩 图 3 7 学生测试实体 E R 图 配置实体包括的属性有 测试时间 测试题数 配置实体 E R 图详见图 3 8 所示 配置信息 测试时间 测试题数 图 3 8 配置实体 E R 图 试题信息实体包括的属性有 编号 试题编号 内容 答案 类型 分数 章节 试 题信息实体 E R 图详见图 3 9 所示 问题解答 试题号 答案 分数 类型 内容 编号章节 图 3 9 试题信息实体 E R 图 基于 C S 的优质课程学习系统的设计与实现 16 3 2 2 逻辑设计 优质课程学习系统包括的表有 登录用户表 错题信息表 例题精解表 知识学习表 问题解答表 学生测试表 配置表 试题信息表 他们的逻辑设计分别如下所示 登录用户表 emp 包括的字段有 用户名 empname 用户密码 passwd 用户权限 level 等字段 详细见表 3 1 登录用户 表 3 1 登录用户 emp 字段类型宽度是否为 空 描述 empnamevarchar10否用户名 passwdvarchar10是用户密 码 levelvarchar10是用户权 限 错题信息表 ErrInfo 包括的字段有 错题 id tid 用户 id Userid 等字段 详细见表 3 2 错题信息 表 3 2 错题信息 ErrInfo 字段类型宽度是否为空描述 tidint4否错题 id Useridvarchar50否用户 id 例题精解表 example 包括的字段有 编号 id 章节 Zhang 内容 Content 讲解 answer 等字段 详细见表 3 3 例题精解 表 3 3 例题精解 example 字段类型宽度是否为 空 描述 idint4否编号 Zhangvarchar50是章节 Contentvarchar255否内容 answervarchar255是讲解 毕业设计论文 17 知识学习表 knowledge 包括的字段有 编号 id 名称 name 备注 remark 等字段 详细见表 3 4 知识学习 表 3 4 知识学习 knowledge 字段类型宽度是否为空描述 idint4否编号 namevarchar50是名称 remarktext16是备注 问题解答表 QA 包括的字段有 编号 id 标题 title 问题 question 回复 answer 提问时间 Qtimes 回复时间 Atimes 提问人 Quser 回复人 Auser 等字段 详细见表 3 5 问题解答 表 3 5 问题解答 QA 字段类型宽度是否为 空 描述 idint4否编号 titlevarchar50是标题 questionvarchar200是问题 answervarchar200是回复 Qtimesdatetime8是提问时 间 Atimesdatetime8是回复时 间 Quservarchar50是提问人 Auservarchar50是回复人 学生测试表 studTest 包括的字段有 编号 id 学生 id sid 试题 id Tid 学生回答 Sanswer 成绩 Grade 等字段 详细见表 3 6 学生测试 表 3 6 学生测试 studTest 字段类型宽度是否为描述 基于 C S 的优质课程学习系统的设计与实现 18 空 idint4否编号 sidvarchar50是学生 id Tidvarchar50是试题 id Sanswervarchar200是学生回 答 Gradeint4否成绩 配置表 sys config 包括的字段有 测试时间 timer 测试题数 testnum 等字段 详细 见表 3 7 配置 表 3 7 配置 sys config 字段类型宽度是否为空描述 timerint4是测试时间 testnumint4是测试题数 试题信息表 test 包括的字段有 编号 id 试题编号 NO 内容 Content 答案 answer 类型 type 分数 grade 章节 zhang 等字段 详细见表 3 8 试题信息 表 3 8 试题信息 test 字段类型宽度是否为 空 描述 idint4否编号 NOvarchar50是试题编 号 Contentvarchar200是内容 answervarchar200是答案 typevarchar50是类型 gradeint4是分数 zhangvarchar50是章节 毕业设计论文 19 3 2 3 物理设计 优质课程学习系统包括的表有 登录用户表 错题信息表 例题精解表 知识学习表 问题解答表 学生测试表 配置表 试题信息表 物理表结构设计如下 登录用户表结构 SQL 脚本代码如下 CREATE TABLE emp empname varchar 10 NOT NULL passwd varchar 10 NULL level varchar 10 NULL 错题信息表结构 SQL 脚本代码如下 CREATE TABLE ErrInfo tid int NOT NULL Userid varchar 50 NOT NULL 例题精解表结构 SQL 脚本代码如下 CREATE TABLE example id int NOT NULL Zhang varchar 50 NULL Content varchar 255 NOT NULL answer varchar 255 NULL 知识学习表结构 SQL 脚本代码如下 CREATE TABLE knowledge id int NOT NULL name varchar 50 NULL remark text 16 NULL 问题解答表结构 SQL 脚本代码如下 CREATE TABLE QA id int NOT NULL 基于 C S 的优质课程学习系统的设计与实现 20 title varchar 50 NULL question varchar 200 NULL answer varchar 200 NULL Qtimes datetime 8 NULL Atimes datetime 8 NULL Quser varchar 50 NULL Auser varchar 50 NULL 学生测试表结构 SQL 脚本代码如下 CREATE TABLE studTest id int NOT NULL sid varchar 50 NULL Tid varchar 50 NULL Sanswer varchar 200 NULL Grade int NOT NULL 配置表结构 SQL 脚本代码如下 CREATE TABLE sys config timer int NULL testnum int NULL 试题信息表结构 SQL 脚本代码如下 CREATE TABLE test id int NOT NULL NO varchar 50 NULL Content varchar 200 NULL answer varchar 200 NULL type varchar 50 NULL grade int NULL zhang varchar 50 NULL 毕业设计论文 21 第四章 系统的详细设计与实现 4 1 程序设计 4 1 1 系统登录 为了区分管理员和学生使用不同的工号和学号进入系统后功能不同 本窗体添加了两 个 Lable 组件 一个编辑 Edit 控件 其中密码输入编辑框的 PasswordChar 属性设置 为 保证用户密码安全 一个组合框 ComboBox 组件 本组合框的列表条目默认显示 系统的用户 方便用户选择用户名 而无需输入用户名 系统登录流程图如图 4 1 所示 开始 输入信息 链接数据库 用户名密码是否合法 开始 链接数据库链接数据库 是否管理员 图 4 1 登录流程图 登录具体系统登录界面如图 4 2 所示 基于 C S 的优质课程学习系统的设计与实现 22 图 4 1 系统登录 procedure Tfrmlogin Button1Click Sender TObject begin with qry emp do begin Close SQL Clear SQL Add select from emp where empname ComboBox1 Text and passwd Edit1 Text 检测密码是否正确 Open if recordcount 0 then 如果正确 进入系统 begin frmlogin Close loginname ComboBox1 Text level fieldbyname level AsString end else 否则提示信息 begin ShowMessage 密码错误 Edit1 Clear end end 毕业设计论文 23 end 4 1 2 系统主界面 输入正确的用户名和密码 即可进入系统主界面 在该界面中可以操作不同菜单和工 具栏 完成不同的功能 学生登录 如图 4 3 所示 图 4 3 学生主界面 教师登录后界面如图 4 4 所示 图 4 4 教师主界面 4 1 3 用户管理 用户管理是管理登录用户包括管理员是指教师 另外一种角色是学生 用户管理 改 界面包括的组件有 dbgrid label 和 edit 以及 combobox 最后还有 3 个 button 按钮 并添加 基于 C S 的优质课程学习系统的设计与实现 24 链接数据库的组件 adotable datasource 在 label 设置用户名 权限 在每个按钮上添加如 图 4 5 所示 教师进入系统可以进行各种操作管理 而学生只能进行查看和提出问题 图 4 5 用户管理 4 1 4 知识库 知识库包括知识库的名称以及知识的内容 知识库 包括的组件有 groupbox 以及 listbox 两个 label 一个 edit 和 memo 并有 3 个 button 按钮如图 4 6 所示 图 4 6 知识库 该界面的主要代码如下 毕业设计论文 25 删除代码如下 if messagedlg 真的要删除吗 mtinformation mbok mbcancel 0 mrok then Exit with ADOTable1 do begin Delete 删除 end end 修改 ADOTable1 Edit ADOTable1 Post 4 1 5 试题管理 试题管理主要是教师输入一些题目 对题目进行管理 而学生可以根据这些题目来练 习和测试 试题管理 包括 dbgrid 和 label edit combobox memo 以及按钮 button 分 别设置不同的属性 如流程图 4 7 所示 开始 输入信息 题号是否重复 开始 保存数据库 图 4 7 流程图 界面设计图如图 4 8 所示 基于 C S 的优质课程学习系统的设计与实现 26 图 4 8 试题管理 该界面的主要代码如下 implementation uses main R dfm procedure TfrmTestManage Button1Click Sender TObject begin if edtNil LabeledEdit1 then exit if Memo2 Text then exit if edtNil LabeledEdit3 then exit if Sender Button1 then begin with qrytmp do begin close sql clear sql Add select from test where No LabeledEdit1 Text 毕业设计论文 27 open if recordcount 0 then begin showmessage 题号重复 exit end end end else begin with qrytmp do begin close sql clear sql Add select from test where No LabeledEdit1 Text and no qry fieldbyname NO AsString open if recordcount 0 then begin showmessage 题号重复 exit end end end with qry do begin if Sender Button1 then append else if Sender Button2 then edit 基于 C S 的优质课程学习系统的设计与实现 28 fieldbyname no AsString LabeledEdit1 Text fieldbyname type AsString ComboBox1 Text fieldbyname grade AsString LabeledEdit3 Text fieldbyname content AsString Memo1 Text fieldbyname answer AsString Memo2 Text fieldbyname zhang AsString cmbzhang Text post end clear end procedure TfrmTestManage clear begin LabeledEdit1 clear Memo2 clear LabeledEdit3 clear Memo1 clear end procedure TfrmTestManage FormShow Sender TObject begin with qry do begin close sql clear sql Add select from test open end Button1 Enabled level 教师 Button2 Enabled level 教师 毕业设计论文 29 Button3 Enabled level 教师 end procedure TfrmTestManage Button3Click Sender TObject begin if messagedlg 真的要删除吗 mtinformation mbok mbcancel 0 mrok then exit qry Delete end procedure TfrmTestManage Button4Click Sender TObject begin close end procedure TfrmTestManage DBGrid1CellClick Column TColumn begin with qry do begin LabeledEdit1 Text fieldbyname no AsString ComboBox1 ItemIndex ComboBox1 Items IndexOf fieldbyname type AsString LabeledEdit3 Text fieldbyname grade AsString Memo1 Text fieldbyname content AsString Memo2 Text fieldbyname answer AsString end end end 4 1 6 学生考试 学生考试首先自动生成试卷 然后输入答案 进行上一题 下一题的答卷 最后提交 基于 C S 的优质课程学习系统的设计与实现 30 学生 并有时间的限制 流程图如图 4 9 所示 开始 获取参数 获取随机题目 开始 生成试题 判断重复 保存试题 图 4 9 学生考试流程图 学生考试界面设计如图 4 10 图 4 10 学生考试 该界面是该系统的重点和难点 代码如下 毕业设计论文 31 implementation uses main var timer integer 考试时间 AutoTestNUM integer 试卷试题生成数量 R dfm procedure TFrmStudentTest buttonEnd flg boolean begin if flg then begin Button1 Enabled false Button2 Enabled true Button3 Enabled true Button4 Enabled true end else begin Button1 Enabled true Button2 Enabled false Button3 Enabled false Button4 Enabled false end end procedure TFrmStudentTest FormShow Sender TObject begin Timer1 Enabled True 基于 C S 的优质课程学习系统的设计与实现 32 Label1 Caption 欢迎考生学号为 loginname 考生考试 请冷静思考 buttonEnd false with qrytmp do begin close sql Clear sql Add select from sys config open timer fieldbyname timer AsInteger AutoTestNUM fieldbyname TestNUM AsInteger end label7 Caption datetimetostr now timer 24 60 end procedure TFrmStudentTest Button1Click Sender TObject var i TestNO integer begin with qrytmp do begin close sql Clear sql Add delete from StudTest where sid loginname execsql close sql Clear sql Add select from test open if recordcount AutoTestNUM then AutoTestNUM recordcount 随机插入 毕业设计论文 33 i 0 while i 0 then 重复重新生成 begin continue end end with qry do 不重复插入 begin close sql Clear sql Add insert into studtest sid tid values loginname qrytmp fieldbyname no AsString execsql inc i end end end buttonEnd true showmessage 试卷生成 Label7 Caption datetimetostr now timer 24 60 基于 C S 的优质课程学习系统的设计与实现 34 with qry do begin close sql Clear sql Add select from st where sid loginname open end end procedure TFrmStudentTest Button2Click Sender TObject begin if not qry Bof then begin qry Prior button3 Enabled true end else button2 Enabled false with qrytmp do begin close sql Clear sql Add select from studtest where id qry fieldbyname id AsString open Edit1 Text fieldbyname SAnswer AsString end end procedure TFrmStudentTest Button3Click Sender TObject begin with qrytmp do 毕业设计论文 35 begin close sql Clear sql Add update studtest set SAnswer Edit1 Text where id qry fieldbyname id AsString execsql Edit1 Clear end if not qry eof then begin qry next button2 Enabled true end else button3 Enabled false end procedure TFrmStudentTest Timer1Timer Sender TObject begin if Label7 Caption datetimetostr now then begin showmessage 时间到 close end end procedure TFrmStudentTest Button4Click Sender TObject begin if messagedlg 真的要提交吗 mtinformation mbok mbcancel 0 mrok then exit if messagedlg 真的要提交吗 mtinformation mbok mbcancel 0 mrok then 基于 C S 的优质课程学习系统的设计与实现 36 exit with qrytmp1 do begin close sql Clear sql Add select from test open while not eof do begin with qrytmp2 do begin close sql Clear sql Add update studtest set grade qrytmp1 fieldbyname grade AsString where tid qrytmp1 fieldbyname no AsString and sanswer qrytmp1 fieldbyname answer AsString execsql end next end end with qrytmp1 do begin close sql Clear sql Add select sum sgrade from st open showmessage 学生 loginname 13 得分 fields 0 AsString end 毕业设计论文 37 close end procedure TFrmStudentTest FormClose Sender TObject var Action TCloseAction begin Timer1 Enabled False end end 由于篇幅有限 功能不一一介绍 请运行课程学习系统查看更多功能 基于 C S 的优质课程学习系统的设计与实现 38 4 2 调试