学生选课系统的设计与开发.doc

1 数学与计算机科学学院数学与计算机科学学院 本科毕业论文本科毕业论文 设计设计 论论文文 设设计计 题题目目 学生选课系统的设计与开发 专专业业 计算机科学与技术 班班级级 10 级数计 3 班 学学号号 10010374 学学 生生 姓姓名名 章启国 指指导导教教师师姓姓名名 颜清 上饶师范学院数学与计算机科学学院上饶师范学院数学与计算机科学学院 2014 年年 5 月月 2 目录目录 1 绪绪论论 4 1 1 课题开发的背景及意义 4 1 2 学生选课系统开发的目的 4 2 学学生生选选课课系系统统的的设设计计 5 2 1 本课题研究的可行性分析 5 2 1 1 课题调研 5 2 1 2 可行性分析 5 2 2 应用需求分析 5 2 2 1 用户对软件功能的要求 5 2 2 2 对软件和硬件的要求 6 2 2 3 运行需求 6 2 3 系统结构分析 6 2 3 1 数据库应用系统开发简介 6 2 3 2 系统简要分析 6 2 3 3 业务流分析 7 2 3 4 数据流分析 7 3 选选课课系系统统设设计计 7 3 1 用户要求 7 3 2 功能模块分析 8 3 3 系统实体 E R 图分析 9 4 系系统统实实现现 12 4 1 创建一个工作空间和应用程序对象 12 4 2 创建数据库表 13 4 3 创建登录窗口和进度窗口 14 4 4 创建注册窗口 18 4 5 创建学生登录主窗口 20 4 6 创建主菜单 20 4 7 系统管理模块的实现 21 4 7 1 创建按学生信息查询窗口 21 4 7 2 创建可选课程查询窗口 22 4 7 3 创建所在班级查询窗口 23 4 7 4 创建学生已选课程查询窗口 23 4 7 5 创建选课 退选窗口 24 4 7 6 创建学生修改密码窗口 w mima 27 4 7 7 创建学生考试窗口 w ks 29 4 7 8 创建教师登录主窗口 33 4 7 9 创建管理员登录主窗口 34 4 7 10 最后生成 EXE 文件步骤如下 34 5 总总结结 35 3 学生选课管理系统 摘摘 要要 学生选课系统是一个针对高校学生选课而开发的学生选课信息管理系统 是为 学生选课提供安全 快捷 方便的服务而建立的应用软件 本系统是一个典型的信 息管理系统 其开发主要包括后台数据库的建立和维护以及学生选课前端窗口的开发 两个方面 对于前者要求建立和管理数据库 而对于后者则要求有好的人机交互界 面 易使用等特点 另外 本文还着重论述了信息管理系统的系统功能与实现 包括 数据关系的 E R 图 学生课程设置 课程的选修及退选 教师对学生所选课程成绩 的录入等 本系统可以使学生更方便的选课 由于学生上课情况复杂 可以实现课 程信息修改 及时调整学生的基本情况 切实的提高学校的管理的工作效率 关键词关键词 学生选课系统 PowerBuilder 数据库 4 学生选课管理系统学生选课管理系统 1 1 绪绪论论 1 1 1 1 课课题题 开开发发 的的背背景景 及及意意义义 数据库是数据管理的最新技术 是计算机科学的重要分支 今天 信息资源已成为各个 部门的重要财富和资源 建立一个满足各级部门信息处理要求的行之有效的信息系统也成为 一个企业或组织生存和发展的重要条件 因此 作为信息系统核心和基础的数据库技术得到 越来越广泛的应用 当今时代是飞速发展的信息时代 在各行各业中离不开信息处理 这正 是计算机被广泛应用于信息管理系统的环境 计算机的最到好处在于利用它能够进行信息管 理 使用计算机进行信息控制 不仅提高了工作效率 而且大大的提高了其安全性 尤其对 于复杂的信息管理 计算机能够充分发挥它的优越性 计算机进行信息管理与信息管理系统 的开发密切相关 系统的开发是系统管理的前提 本系统就是为了管理好学生选课信息而设 计的 学生选课作为一种信息资源的集散地 包含很多的信息数据的管理 由于数据繁多 容易丢失 且不易查找 总的来说 缺乏系统 规范的信息管理手段 尽管有的学校有计算 机 但是尚未用于信息管理 没有发挥它的效力 资源闲置比较突出 学生选课系统实现后 极大的方便对学生进行选课和学校对学生选课信息的管理 避免在安排课程信息的滞后 减 少信息交流的繁琐过程及其带来的额外开销 促进高校教育的计算机信息化进程 提高高校 的工作效率 同时 通过该课程设计 我们可以达到把数据库理论知识更加的巩固加深 加强动手操作能力与实践能力 学以致用 与现实生活中的应用充分的结合起来 也实现了 知识的活学活用 1 1 2 2 学学生生选选课课系系统统 开开发发 的的目目的的 当今时代是飞速发展的信息时代 在各行各业中离不开信息处 理 这正是计算机被广 泛应用于信息管理系统的环境 计算机的最大好处在于利用它能够进行信息管理 使用计算 机进行信息控制 不仅提高了工作效率 而且大大的提高了其安全性 尤其对于复杂的信息 管理 计算机能够充分发挥它的优越性 计算机进行信息管理与信息管理系统的开发密切相 关 系统的开发是系统管理的前提 本系统就是为了管理好选课信息而设计的 学校作为一种信息资源的集散地 学生和课 程繁多 包含很多的信息数据的管理 现今 有很多的学校都是初步开始使用 甚至尚未使 用计算机进行信息管理 根据调查得知 他们以前对信息管理的主要方式是基于文本 表格 等纸介质的手工处理 对于选课情况的统计和查询等往往采用对课程的人工检查进行 对学 生的选课权限 以及选课代号等用人工计算 手抄进行 数据信息处理工作量大 容易出错 由于数据繁多 容易丢失 且不易查找 总的来说 缺乏系统 规范的信息管理手段 尽管 学校都有计算机 但是尚未用于信息管理 没有发挥它的效力 资源闲置比较突出 这就是 5 管理信息系统的开发的基本环境 数据处理手工操作 工作量大 出错率高 出错后不易更 改 学校采取手工方式对学生选课情况进行人工管理 由于信息比较多 选课信息的管理工 作混乱而又复杂 一般选课情况是记录在文件上 课程的数目和代号也记录在文件中 学校 的工作人员也只是当时对它比较清楚 时间长了 如再要进行查询 就得在众多的资料中翻 阅 查找了 造成查询费时 费力 如要对很长时间以前的选课进行更改就更加困难了 数据处理手工操作 工作量大 出错率高 出错后不易更改 造成了时间上的浪费基于 这个问题 我认为有必要建立一个学生选课系统 使学生选课信息管理工作规范化 系统化 程序化 避免学生选课管理的随意性 提高信息处理的速度和准确性 能够及时 准确 有 效的查询和修改选课情况 2 2 学学生生选选课课系系统统的的设设计计 2 2 1 1 本本课课题题研研究究的的可可行行性性分分析析 2 1 1 课题调研 1 通过对学生选课情况的具体调查 手工选课系统需要大量人力物力财力 而且容易 出错 迫切需要学生选课系统软件代替手工操作 2 本课题要求学生具有熟练的 PowerBuilder 开发能力 有一定的自学能力和一定的关 系数据库理论开发功底 3 在具体的内容操作方面 具有对复杂表进行处理的能力 4 开发过程中遇到的具体问题再做详细调查研究并与指导老师面谈 2 1 2 可行性分析 1 技术可行性 本系统仅需要一台装有 PowerBuilder 软件的计算机和相应的打包软 件 学校机房满足条件 2 经济可行性 由于本系统是的开发几乎不需要什么经济投入 只要学生花时间去 做就可以了 3 操作可行性 我们学校开设了数据库系统教程 熟悉的 PowerBuilder 软件的使用 并且有一定的开发能力 操作上完全可行 2 2 2 2 应应用用需需求求分分析析 2 2 1 用户对软件功能的要求 本系统主要实现教师信息管理 学生信息管理 管理员信息管理 1 管理员信息管理模块中管理员必需以管理员的身份登录输入帐号和密码才能进入 选课系统 否则不能进入选课系统 管理员可以通过管理员身份登录 对系统进行全面的管理 对用户的添加 删除 以及修改用户权限 对各种信息进行查询和修改等 2 老师信息管理模块中老师必需以老师的身份登录输入工号和密码才能进入选课系统 6 否则不能进入选课系统 老师进入界面可以查询教师的任课情况 修改可选课程 考试试题 以及个人登录密码和录入学生选课成绩等 3 学生信息管理模块中学生必需以学生的身份登录输入学号和密码才能进行选课 否则 并不能进行选课 学生登陆后可以进行查询本学期所开设课程 已选课程 所在班级等 并 且可以对选修课程进行选择和修改个人密码 考试以及成绩查询 2 2 2 对软件和硬件的要求 系统的性能要求通常指系统需要的存储容量以及后援存储 重新启动和安全性 运行效 率等方面的考虑 本系统运行环境为单环境 在运算时对系统整体性能要求过高 要求 软件系统环境 PowerBuilder10 0 硬件系统环境 64MB RAM 500MB HD 系统运行时对数据的保密性要求不 高对一般的数据不要求进行加密 此外 对其它软件几乎没有依赖性 程序独立性较好 2 2 3 运行需求 硬件条件 处理器 Intel PII 450 或更好 内 存 256M 或更大 软件条件 Microsoft Windows 95 98 或更高版本的操作系统 PowerBuilder10 0 Microsoft Office 2000 2 2 3 3 系系统统结结构构 分分析析 2 3 1 数据库应用系统开发简介 在数据库应用系统开发之前 对开发数据库的基本概念应当了解 对数据库的结构 开 发数据库应用程序的步骤 开发体系及方法都应当有相当清晰的了解和认识 数据库应用系 统开发的目标是建立一个满足用户长期需求的产品 开发的主要过程为 理解用户的需求 然后 把它们转变为有效的数据库设计 把设计转变为实际的数据库 并且这些数据库带有 功能完备 高效能的应用 数据库技术在计算机软件邻域研究中一直是非常重要的主题 产 生于 60 年代 30 多年来数据库技术得到了迅速发展 并已形成较为完整的理论体系和一 大批实用系统 并且 近年来 随着 World Wide Web WWW 的猛增及 Internet 技术的迅 速发展 使得数据库技术之时成为最热门技术之一 用户数据目前表明 大多数主流数据库 管理系统把用户数据表示为关系 现在把关系看作数据表 表的列包含域或属性 表的行包 含对应业务环境中的实体的记录 并非所有的关系都同样符合要求 有些关系比其它关系更 结构化一 2 3 2 系统简要分析 管理员可以通过管理员身份登录 对系统进行全面的管理 对用户的添加 删除 以及修改 用户权限 对各种信息进行查询和修改 学生进入界面可以查询本学期所开设课程 已选课 程 所在班级等 并且可以对选秀课程进行选择和修改个人密码 考试以及成绩查询 老师 进入界面可以查询教师的任课情况 修改可选课程 考试试题以及个人登录密码和录入学生 选课成绩等 7 2 3 3 业务流分析 学生成绩管理系统的业务流程 首先由教师或系统管理员等有录入权限的用户将各自权 限范围内的信息进行录入 然后保存信息到数据库中 有权限的人可以对这些库信息进行修 改和删除 所有用户均可以进行信息查询和统计 有权限用户还可以基于已有信息进行奖 学金评定 2 3 4 数据流分析 学生成绩管理系统的数据流程 首先由教师或系统管理员等有录入权限的用户将各自权 限范围内的信息进行录入处理 然后保存信息到数据库中 有权限的人可以对这些库信息进 行修改和删除处理 所有用户均可以进行信息查询 有权限用户还可以基于已有信息进行奖 学金的评定处理过程 3 3 选选课课系系统统设设计计 3 3 1 1 用用户户要要求求 系统的主要使用对象是需要选课的学生 学生在选课是要察看各个课程的详细信息 还 要选择一些感兴趣的课程 所选课程需要考试和考试成绩查询 在发现课程有冲突后能够修 改先前选择的信息 需要随学生选课的变化 计算相应的分数等 系统还需要管理员来查看 和修改学生的总体选课情况 课程信息和学生信息 需要老师来输入考试试题和考试成绩等 8 3 3 2 2 功功能能模模块块分分析析 9 图 3 1 学生选课流程 学生选课前要登录系统 查看所选课程和已选课程的详细信息 包括课程代号 授课教 师 课程名 上课时间 总学分 学期等 根据课程代号 学生可以查询相应的课程 并进 行选课添加课程 查看课表 并能发现是否存在冲突课程 如果存在 可以删除该课程 并 重新选择 打印课表 包含详细的课程信息 最后 选课完毕 老师要修改可选课程和录入 试题以及学生成绩 管理员登入后对整个学生选课系统进行管理 学生选课的功能图如图 3 1 所示 3 3 3 3 系系统统实实体体 E E R R 图图分分析析 经过上述系统功能分析和需求总结 设计如下所示的实体和属性的定义 用户信息 帐号 姓名 密码 用户类型 教师信息 工号 姓名 身份证号 性别 出生日期 民族 政治面貌 年龄 家庭住 址 联系电话 学生选课信息 学号 姓名 课程号 课程名 课程成绩 学生信息 学号 姓名 身份证号 性别 出生日期 出生地 政治面貌 入学时间 年龄 家庭住址 联系电话 试题信息 题号 题目 选项 A 选项 B 选项 C 选项 D 答案 班级信息 班级号 年级 学制 所属系 专业 辅导员 主要上课地点 课程信息 课程号 课程名 任课教师 课时 所在学期 总学分 管理员信息 帐号 姓名 身份证号 性别 出生日期 民族 政治面貌 年龄 家庭 住址 联系电话 本系统根据上面的设计规划出的实体有 用户信息实体 教师信息实体 学生选课信息 实体 学生信息实体 试题信息实体 班级信息实体 课程信息实体 管理员信息实体 实体之间关系的 E R 图如图 3 2 所示 图 3 2 系统 E R 图 用户信息实体 E R 图 如图 3 3 所示 10 图 3 3 用户信息实体 E R 图 教师信息实体 E R 图 如图 3 4 所示 图 3 4 教师信息实体图 学生信息实体 E R 图 如图 3 5 所示 图 3 5 学生信息实体图 11 管理员信息实体 E R 图 如图 3 6 所示 图 3 6 管理员信息实体图 学生选课信息实体 E R 图 如图 3 7 所示 图 3 7 学生选课信息实体 E R 图 试题信息实体 E R 图 如图 3 8 所示 图 3 8 试题信息实体图 课程信息实体 E R 图 如图 3 9 所示 12 图 3 9 课程信息实体图 班级信息实体 E R 图 如图 3 10 所示 图 3 10 班级信息实体图 4 4 系系统统实实现现 4 4 1 1 创创建建一一个个工工作作空空间间和和应应用用程程序序对对象象 创建一个工作空间 WorkSpace student 目标 Target student 和应用 Application stu 在应用的 open 事件中写入如下的语句进行应用与数据库的连接 Profile XK SQLCA DBMS ODBC SQLCA AutoCommit False SQLCA DBParm ConnectString DSN xk UID DBA PWD SQL Connect open w dl 13 4 4 2 2 创创建建数数据据库库表表 为了保存学生信息 课程信息 学生选课信息 登录信息 用户权限信息 数据库设计了学 生信息表 课程信息表 学生选课信息表 登录信息表和用户权限信息表 这些表使得用户 对数据的增删改变得非常方便 数据的冗余不是十分明显 数据库中的用户信息表结构如表 4 1 所示 表 4 1 用户信息表 yh 数据库中的教师信息表结构如表 4 2 所示 表 4 2 教师信息表 t 数据库中的学生信息表如表 4 3 所示 表 4 3 学生信息表 s 数据库中的学生选课信息如表 4 4 所示 14 表 4 4 学生选课信息表 sc 数据库中的考试信息表结构如表 4 5 所示 表 4 5 考试信息表 ks 数据库中的班级信息表结构如表 4 6 所示 表 4 6 班级信息表 class 数据库中的课程信息表如表 4 7 所示 表 4 7 课程信息表 c 数据库中的管理员信息如表 4 8 所示 表 4 8 管理员信息表 a 4 4 3 3 创创建建登登录录窗窗口口 和和进进度度窗窗口口 登录窗口 w dl 主要是用来登录主界面的一个关卡 其主界面如图 4 8 所示 15 图 4 14 登录窗口界面 学生学号 10010374 密码 1000 教师工号 00100004 密码 1000 管理员帐号 10100001 密码 1000 定义全局变量 string gnumber gname int gyhlx Open 事件代码 gyhlx 0 取消按钮代码 Close w dl 注册按钮代码 open w zhuce 其登录事件代码如下 if sle 1 text then messagebox 提示 帐号不能为空 sle 1 setfocus return end if 输入的密码为空 if sle 2 text then messagebox 提示 密码不能为空 sle 2 setfocus return end if 定义三个变量 string number name1 mima 16 int type1 在用户表中以类型分组选出用户名和密码 if rb 1 checked true then select number name1 mima into number name1 mima from yh where number sle 1 text and type1 1 gnumber number gname name1 type1 1 end if if rb 2 checked true then select number name1 mima into number name1 mima from yh where number sle 1 text and type1 2 gnumber number gname name1 type1 2 end if if rb 3 checked true then select number name1 mima into number name1 mima from yh where number sle 1 text and type1 3 gnumber number gname name1 type1 3 end if 判断用户输入的用户名是否正确 if numbersle 1 text or mimasle 2 text then messagebox 错误 用户名或密码错误 请重新输入 exclamation ok 2 sle 1 text sle 2 text sle 1 setfocus else choose case type1 case 1 gyhlx 1 open w jd case 2 17 gyhlx 2 open w jd case 3 gyhlx 3 open w jd open w administrator end choose close w dl end if 进度窗口 w jd Open 事件代码 timer 0 02 Timer 事件代码 n step hpb 1 position n step st 2 text string n step if n step 100 and gyhlx 1 then open w student hpb 1 visible false st 2 visible false st 3 visible false n step 0 timer 0 end if if n step 100 and gyhlx 2 then 18 open w teacher hpb 1 visible false st 2 visible false st 3 visible false n step 0 timer 0 end if if n step 100 and gyhlx 3 then open w administrator hpb 1 visible false st 2 visible false st 3 visible false n step 0 timer 0 end if if n step 100 and gyhlx 0 then messagebox 提示 帐号或者密码不正确请重新登录 open w dl hpb 1 visible false st 2 visible false st 3 visible false n step 0 timer 0 end if instance Variable 变量 int n step 4 4 4 4 创创建建注注册册窗窗口口 注册窗口 w zhuce 主要是用新用户获得进入学生选课系统的界面 其主界面如图 4 8 所示 19 确定按钮代码 定义三个变量 string number mima mima1 mima sle 2 text mima1 sle 3 text 选出账户使注册的用户名不重复 select number into number from yh 判断用户输入的用户名是否正确注意 if 和 else 格式 if number sle 1 text then messagebox 错误 用户名不能重复 exclamation ok 2 sle 1 text sle 1 setfocus else if mima mima1 then messagebox 正确 密码输入一致 exclamation ok 2 else messagebox 错误 密码输入不一致 exclamation ok 2 sle 2 text sle 3 text sle 2 setfocus 20 end if end if if sle 5 text 1 or sle 5 text 2 or sle 5 text 3 then insert into yh values sle 1 text sle 4 text sle 2 text sle 5 text messagebox 正确 输入的用户注册成功 exclamation ok 2 else messagebox 错误 输入的用户类型错误 exclamation ok 2 sle 5 text sle 5 setfocus end if 取消按钮代码 close w zhuce 4 4 5 5 创创建建学学生生登登录录主主窗窗口口 学生登录后通过主窗口 w student 可以实现查询本学期所开设课程 已选课程 所在 班级等 并且可以对选修课程进行选择和修改个人密码 考试以及成绩查询 等功能 其主 要学生登陆主窗口如下图 4 1 所示 图 4 1 学生登录主窗口 4 4 6 6 创创建建主主菜菜单单 创建主菜单 m stu 主要是方便各种功能的实现 从而实现更好的完成学生选课 查看课 程信息等功能 如图 4 2 所示 21 图 4 2 主菜单 4 4 7 7 系系统统管管理理模模块块的的实实现现 4 4 7 7 1 1 创创建建 按按学学生生信信息息查查询询窗窗口口 在主菜单窗口单击 查询 学生信息 即可打开此窗口 w s 使用者可以在此窗口实 现对学生个人信息的查询 下图为 学生信息查询 的主界面 学生信息查询窗口 其中查询代码如下 if sle 1 text and sle 2 text and sle 3 text and sle 4 text then 22 messagebox 注意 请输入查询条件 end if if sle 1 text then dw 1 setfilter sno sle 1 text dw 1 filter else if sle 2 text and sle 3 text and sle 4 text then dw 1 setfilter sname sle 2 text dw 1 filter end if if sle 2 text and sle 3 text and sle 4 text then dw 1 setfilter sname sle 2 text and age sle 3 text and age sle 4 text dw 1 filter end if if sle 2 text and sle 3 text and sle 4 text then dw 1 setfilter age sle 3 text and age sle 4 text dw 1 filter end if 取消代码 dw 1 setfilter dw 1 filter sle 1 text sle 2 text sle 3 text sle 4 text sle 1 setfocus Open 事件代码 dw 1 settransobject sqlca dw 1 retrieve 4 4 7 7 2 2 创创建建可可选选课课程程查查询询窗窗口口 在主菜单窗口单击 查询 可选课程 即可打开此窗口 w c 下图为 可选课程查询 的主界面 23 事件代码和上一个窗口类似 4 4 7 7 3 3 创创建建所所在在班班级级查查询询窗窗口口 在主菜单窗口单击 查询 学生所在班级 即可打开此窗口 w class 下图为 学生所 在班级查询 的主界面 事件代码和上一个窗口类似 4 4 7 7 4 4 创创建建学学生生已已选选课课程程查查询询窗窗口口 在主菜单窗口单击 查询 学生已选课程 即可打开此窗口 w sc 下图为 学生已 24 选课程 的主界面 事件代码和上一个窗口类似 4 4 7 7 5 5 创创建建选选课课 退退选选窗窗口口 在主菜单窗口单击 课程课程 选修或退选 即可打开此窗口 w xuanke 使用者可以 在此窗口实现学生对已选课程的查询和选择或退选选修课程 按课程选课窗口 Open 事件代码 dw 11 settransobject sqlca dw 11 retrieve 25 dw 22 settransobject sqlca dw 22 retrieve dw 33 settransobject sqlca dw 33 retrieve sle 1 setfocus s info sle 1 text instance Variable 变量 string s info 查询按钮事件代码 if sle 1 text then MessageBox 出错 请输入学号 else sle 1 text upper sle 1 text 将小写字母转换成大写字母 if trim sle 1 text trim s info then trim 除去字符串中的空格 s info sle 1 text dw 22 reset 重置 dw2 中的数据 dw 22 settransobject sqlca dw 22 retrieve s info 检索满足 sle 1 text 条件的数据 dw 22 object datawindow readonly yes 将数据表 dw 22 设置为只读属性 dw 33 reset dw 33 settransobject sqlca dw 33 retrieve s info dw 33 object datawindow readonly yes end if end if 选课按钮事件代码 string cnumber kk1 kk2 kk3 kk4 sle 1 text upper sle 1 text sle 2 text upper sle 2 text kk1 upper s info if trim gnumber trim kk1 then dw 33 settransobject SQLCA s info trim gnumber dw 33 retrieve s info dw 33 object datawindow readonly yes dw 22 settransobject SQLCA dw 22 retrieve s info 26 dw 22 object datawindow readonly yes end if if sle 2 text then MessageBox 出错 请输入课程号 end if if sle 2 text then cnumber sle 2 text select sname into kk4 from s where sno sle 1 text select cname into kk2 from c where cno cnumber st 7 text kk4 st 8 text kk2 if kk2 then MessageBox 出错 此课程号不存在 end if select o into kk3 from sc where o sle 2 text and sc sno s info if SQLCA SQLCODE 0 then MessageBox 出错 此课程已选 else insert into sc Sno sname Cno cname score values s info kk4 sle 2 text kk2 0 st 7 text s info st 8 text kk4 st 9 text sle 2 text st 10 text kk2 MessageBox 提示 此选课成功 end if dw 33 reset sle 2 text dw 33 settransobject SQLCA dw 33 retrieve s info dw 33 object datawindow readonly yes end if 退选按钮事件代码 string kk 27 int m if sle 2 text then MessageBox 出错 请输入课程号 end if if sle 2 text then select cno score into kk m from sc where sc sno gnumber and o sle 2 text if SQLCA SQLCODE 0 or m0 then MessageBox 出错 此课程未选或者此课程已经选修完毕不能退选 else delete from sc where sno gnumber and cno sle 2 text dw 33 reset sle 2 text dw 33 reset dw 33 settransobject sqlca dw 33 retrieve gnumber dw 33 object datawindow readonly yes end if end if 退出按钮事件代码 close w xuanke 4 4 7 7 6 6 创创建建 学学生生修修改改密密码码窗窗口口 w w m mi im ma a 28 学生修改密码窗口 确认按钮代码如下 定义变量分别记录用户名 原密码 新密码 确认密码 string number password newpass conpass 判断用户是否输入信息 if sle 1 text or sle 2 text or sle 3 text or sle 4 text then messagebox 错误 用户名或密码不能为空 else 检索用户名和密码记录 SELECT number mima INTO number password FROM yh WHERE number sle 1 text if number sle 1 text and password sle 2 text then newpass sle 3 text conpass sle 4 text if newpass conpass then update yh set mima sle 3 text where number sle 1 text commit 提交事物 messagebox 注意 您的密码已修改 请牢记 else messagebox 错误 您两次输入的密码不一致 end if else messagebox 错误 用户名或密码错误 end if end if 取消按钮代码 close parent 29 4 4 7 7 7 7 创创建建学学生生考考试试窗窗口口 w w k ks s 学生考试窗口 instance Variable 变量 datastore ds int id string ianswer 1 to 100 int shi 1 fen 30 miao 0 Open 事件代码 ds create datastore ds dataobject d ks ds settransobject SQLCA ds retrieve id 1 st 1 text 本次考试共 string ds rowcount char 13 char 10 回车换行 mle 1 text string id ds getitemstring id 2 char 13 char 10 ds getitemstring id 3 char 13 char 10 if rb 1 checked true then ianswer id A 30 elseif rb 2 checked true then ianswer id B elseif rb 3 checked true then ianswer id C elseif rb 4 checked true then ianswer id D end if timer 1 选项 A 单选框代码 if rb 1 checked true then ianswer id A elseif rb 2 checked true then ianswer id B elseif rb 3 checked true then ianswer id C elseif rb 4 checked true then ianswer id D end if 选项 B C D 单选框代码与选项 A 类似 第一题按钮代码 id 1 st 1 text 本次考试共 string ds rowcount mle 1 text string id ds getitemstring id 2 char 13 char 10 ds getitemstring id 3 char 13 char 10 rb 1 checked false rb 2 checked false rb 3 checked false rb 4 checked false if rb 1 checked true then ianswer id A elseif rb 2 checked true then ianswer id B elseif rb 3 checked true then 31 ianswer id C elseif rb 4 checked true then ianswer id D end if 上一题按钮代码 if id 1 then id ds rowcount else id id 1 end if st 1 text 本次考试共 string ds rowcount mle 1 text string id ds getitemstring id 2 char 13 char 10 ds getitemstring id 3 char 13 char 10 rb 1 checked false rb 2 checked false rb 3 checked false rb 4 checked false if rb 1 checked true then ianswer id A elseif rb 2 checked true then ianswer id B elseif rb 3 checked true then ianswer id C elseif rb 4 checked true then ianswer id D end if 下一题按钮代码 if id ds rowcount then id 1 else id id 1 end if st 1 text 本次考试共 string ds rowcount mle 1 text string id ds getitemstring id 2 char 13 char 10 ds getitemstring id 3 char 13 char 10 rb 1 checked false rb 2 checked false rb 3 checked false rb 4 checked false if rb 1 checked true then ianswer id A elseif rb 2 checked true then ianswer id B elseif rb 3 checked true then ianswer id C elseif rb 4 checked true then ianswer id D end if 交卷按钮代码 int n right 0 if messagebox 提示 你确定要交卷吗 Question YesNo 1 then for id 1 to ds rowcount step 1 if trim ianswer id trim ds getitemstring id 7 then right right 1 end if next messagebox 成绩 你共答对了 string right 题 得分 string int right 100 ds rowcount 分 close w ks end if timer 事件代码 if shi 0 and fen 0 and miao 0 then timer 0 return 1 end if if miao 0 then 33 miao 59 fen fen 1 if fen 0 then fen 59 shi shi 1 end if else miao miao 1 end if if shi 0 and fen 30 and miao 0 then messagebox 要交卷吗 还有 30 分钟 end if if shi 0 and fen 5 and miao 0 then messagebox 要交卷吗 还有 5 分钟 end if if shi 0 and fen 0 and miao 0 then close w ks end if st 3 text string shi st 6 text string fen st 8 text string miao 4 4 7 7 8 8 创创建建教教师师登登录录主主窗窗口口 教师登录后通过主窗口 w teacher 可以查询教师的任课情况 修改可选课程 考试试 题以及个人登录密码和录入学生选课成绩等功能 其主要教师登陆主窗口如下图 4 1 所示 34 图 4 1 教师登录主窗口 其各个功能窗口和学生登录主窗口的各个功能窗口代码类似 4 4 7 7 9 9 创创建建管管理理员员登登录录主主窗窗口口 管理员登录后通过主窗口 w teacher 可以对系统