管理信息系统毕业设计

第 9 章学生管理信息系统 随着学校规模的不断扩大 学生数量的不断增加 学生的信息量也成倍增长 学生管理工作是学校各项工 作的一个重要部分 其管理水平的高低将直接影响到人才的培养质量 面对庞大的信息量 如何有效地提高学 生管理工作的效率是一个学校急需解决的问题 因此开发适合学校需要的学生管理信息系统 通过这样的系统 可以做到信息的规范管理 科学统计和快速查询 并减少管理方面的工作量 9 1 概概 述述 学生管理信息系统作为学校管理中的一个子系统 与其他子系统 如教学管理系统 人事管理系统 后勤 管理系统 图书馆管理系统等一起构成构园管理信息系统 为校园管理信息化提供一个子功能 所以 几乎所 有的大 中 小学校都需要一套这样的管理系统来提高日常的工作效率 图 1 和图 2 所示是两个典型的学生管 理信息系统的界面 图 1 第一个典型的学生管理信息系统的界面 图 2 第二个典型的学生管理信息系统的界面 从界面可以看到 学生管理信息系统应该包括学生信息管理 学籍管理 成绩管理 奖惩管理和系统管理 等基本内容 1 学生信息管理的数据有 学生学号 姓名 性别 出生日期 所属班级 所属院系 籍贯等 当有新 生到校时 就启动相应的信息管理功能 对所有的学生信息进行入库 随时掌握学生的基本信息 2 学籍管理主要是对学生的学籍变更情况及时控制和管理 变更的原因有 转系 休学 复学 退学和 毕业离校 3 成绩管理是数据量比较大的管理工作 每次考试结束后负责对学生各个科目的成绩入库工作和对数据 库成绩出错的校对工作 4 奖惩管理是针对学生在校的表现情况 对学生进行相应的处理工作 奖励的项目有各种奖学金和文体 奖励 处罚的项目有通报批评 警告 严重警告 记过 留校查看 开除等 5 系统管理主要是执行数据库备份和恢复 数据库表的维护等工作 保证系统的正常运行 学生管理信息系统作为典型的数据库项目应用的一种 其开发流程包括需求分析 UML 系统建模 确定系 统集成方案 数据库分析和设计以及各功以模块的开发等 下面介绍一个学生管理信息系统的详细开发过程 9 2 需需 求求 分分 析析 需求分析是数据库系统开发的第一步 也是最重要的一步 需求分析可以分为两个过程 一是理解需求 二是分析需求 下面分别分析这两个过程 9 2 1 理解需求 只有通过对学生管理信息系统的终端用户和客户进行大量的调研 才能真正理解终端用户和客户的需求 才能开发出合理的 实用的管理系统 才能满足各大 中 小学校的管理需要 基于大量的调研数据 下面列 出对最典型 最关键的需求 1 每年开学时 新生来报琶 要对每位新生的信息建立个人档案 这部分工作由学籍科的管理人员进行 维护和操作 学生个人档案包括学生学号 姓名 性别 出生日期 所属班级 所属院系 籍贯等 2 考试结束时 教务科的管理人员将学生各科的成绩录入数据库 以备随时查询 当然录入成绩也有出 错的可能 所以 必须具有校对修改成绩的功能 3 当学生的表现出色或差的时候 学生科的管理人员应对其进行奖励或处罚 相应的奖项 或处罚 和 奖励 或处罚 时间的数据都应该入库 4 当学生因为疾病 学业修完等原因学籍需要变更的时候 学籍科的管理人员应该对其进行学籍变更手 续 5 学生应该具有查询个人信息和成绩的权力和权限 6 系统还应提供强大的数据统计 查询 报表生成以及打印等功能 7 系统客户端运行在 Windows 平台下 服务器端可以运行在 Windows 平台或者 Unix 平台下 8 系统应该有很好的可扩展性 在本系统中主要提供新生信息录入 学籍变更 成绩管理和奖惩管理等相关的功能 9 2 2 分析需求 分析需求就是描述系统的需求 通过定义系统中的关键域类来建立模型 分析的根本目的是在开发者和提 出需求的人之间建立一种理解和沟通的机制 因此学生管理信息系统的需求分析是开发人员和学校管理人员一 起完成的 分析需求的第一步是描述学生管理信息系统的功能 即定义用例 以此确定系统的功能需求 一所学校的 主要成员就是学生和学校的管理人员 教师 系统管理员等 管理人员主要指学籍科 学生科和教务科的人员 他们是学生管理信息系统的主要使用者 学生也是学生管理信息系统的重要使用者 只是具备的管理权限没有 管理人员那么广 系统管理员也是其中一个管理人员 这不影响本系统的功能 学生管理信息系统的用例包括以下内容 新生信息 学生成绩 包括录入和校对 学籍变更 学生奖励 学生处罚 学生信息查询修改 需要注意的是 学生信息查询修改用例包括学生对个人基本信息和查询和修改 这些信息指的是新生入学 时被录入的基本信息 此外 学生还具有查询和打印成绩的权限 查询奖惩情况 学籍变更记录等权限 学生管理信息系统的分析可以用 UML 的用例图来描述 每个用例还可以以文本的方式描述 描述的内容 包括用例以及用例与角色交互的更详细的信息 文本的内容是通过和用户讨论后确定的 下面给出上述用例的 描述 1 新世界生信息 增加学生记录 标记学生学号 确定学生院系 确定学生班级 2 学生成绩 增加学生成绩记录 校对学生成绩 3 学籍变更 增加学籍变更记录 标记变更原因 标记变更时间 4 学生奖励 增加学生奖励记录 标记奖励项目 标记奖励时间 5 学生处罚 增加学生处罚记录 标记处罚等级 标记处罚时间 6 学生信息查询修改 查询个人信息 修改个人信息 保存个人信息 查询奖惩情况 查询学籍变更情况 打印成绩单 9 3UML 系系 统统 建建 模模 完成需求分析后 就需要对系统进行 UML 建模 UML 建模是对需求分析结果的模型建立过程 下面进行 学生管理信息系统的 UML 建模过程 9 3 1 学生管理信息系统的用例分析 在上一节需求分析中列出了学生管理信息系统的全部用例 新生信息 学生成绩 学籍变更 学生奖励 学生处罚 学生信息查询修改 这里 使用权用 Rose 软件进行 UML 建模 其用例如图 3 所示 学校管理员 学籍变更 学生信息查询修改 学生处罚 学生奖励学生成绩新生信息 学生 图 3 学生管理信息系统用例图 该用例图标记了所有的学生管理住处系统的用例 从中可以得知 学生管理信息系统的角色可以划分为两 类 学校管理人员 用例包括学生管理信息系统的所有用例 学生 用例只有学生信息查询修改 要注意的是 学校管理人员具有查询和修改所有数据的权限 处于高权限位置 而学生只有修改个有基本 信息 查询奖惩情况 查询学籍变更情况和打印成绩单的权限 处于低权限位置 9 3 2 学生管理信息系统的域类分析 UML 建模的第二步就是域类分析 实际开发学生管理信息系统时 域类分析是建立在用例分析基础上的 要了解系统要处理的概念 最好奖学校的管理人员组织起来开个讨论会 详细谈论和列举所需要包含水量的用 例 了解概念和概念之间的关系 学生管理信息系统中的域主要包括 学生 Student 成绩 Score 学籍变更 Change 奖励 Encourage 处罚 Punish 可以在类图中将上面这些域以及它们之间的关系表示出来 如图 4 所示 Create Destroy StuNO Integer DepartMent String Class String Name String Sex String BirthDay Date NativePlace String Student Create Destroy StuNO Integer DepartMent String Class String Name String ChangeName String ChangeTime Date Remark String Change Create Destroy StuNO Integer Name String Course String Score Integer Score Create Destroy StuNO Integer DepartMent String Class String Name String EncourageName String EncourageTime Date Encourage Create Destroy StuNO Integer DepartMent String Class String Name String PunishName String PunishTime Date Punish 1 1 1 1 1 1 1 1 图 4 学生管理信息系统域草图 需要说明的是 这里的域类还是处于 草图 状态 定义的操作和属性不是最后的片本 只是 在现阶段看 来这些操作和属性是比较合适的 有些操作奖在时序图的草图中定义 而不晨用例哪定义 有些类可以用 UML 状态图来显示类的对象的不同状态以及改变状态的事件 在本系统中有状态图的类是 学生 该类的状态图将在后面的内容中介绍 为了描述域类的动态行为 可以使用权 UML 的时序图 协作图或者活动图来描述 本文选用时序图 时 序图的基础是用例 在时序图中要说明域类是如何协作以操作该系统中的用例 当然 在建立时序图时 将会 发现新的操作 并将其加入类中 这将在后面看到所建立的时序图模型 用时序图建模时 需要窗口或对话框 作为角色界面 显然 这里需要操作界面的有基本信息 奖励 处罚 学籍变更 修改查询等 此外维护也需 要一个操作界面 9 3 3 学生管理信息系统的设计 在设计阶段 首先要设计类的状态的图 类的状态图说明了可能的状态以及需要被处理的过渡期 使用状 态图可以揭示单个对象在整个系统中的变化细凶 对了解和实现关键类有较大的帮助 不是所有的类都有状态图 在本系统中 有状态图的类是学生 学生的状态图如图 5 所示 确定院系和班级 奖励入校 学籍变更 处罚 考试和成绩 复学 新生报道 离校 开除学籍 休学 毕业 退学 图 5 学生的状态图 设计阶段的最后一步是设计 UML 模型 也就是将前面设计的模型进竽扩展和细化 下面给出各个用例的 时序图 设计的目的是产生一个可以使用的解决方案 并且可以容易地将方案转换成程序代码 学生的时序如图 6 所示 管理人员 新生信息 登录界面 新生报道 StuNO 确定学号 新生信息 确定院系确定班级 图 6 学生时序图 成绩的时序如图 7 所示 管理人员 成绩管理界面 考试结束 StuNO 选择学号 成绩信息 添加成绩校对成绩 图 7 成绩时序图 学籍变更的时序如图 8 所示 管理人员 学籍管理界面 学籍修改 StuNO 选择学号 学籍信息 学籍变更确定学籍 图 8 学籍变更时序图 奖励的时序如图 9 所示 管理人员 奖励管理界面 奖励开始 StuNO 选择学号 奖励信息 确定奖励确定奖励时间 图 9 奖励时序图 处罚的时序如图 10 所示 管理人员 处罚管理界面 处罚开始 StuNO 选择学号 处罚信息 确定处罚确定处罚时间 图 10 处罚时序图 查询修改的时序如图 11 所示 管理人员 成绩管理界面 考试结束 StuNO 选择学号 成绩信息 添加成绩校对成绩 图 11 查询修改时序图 时序图设计完成后 开始进行学生管理信息系统的架构设计和细节设计 在架构设计中将定义包 子系统 包间的相关性和基本的通信机制 设计架构时 应该将应用逻辑和技术逻辑分割 应用逻辑是需要编码设计的 而技术逻辑 主要包括用户 界面 数据库或者通信一般是已经有的 学生管理信息系统中的包 或者为子系统 层 有如下几个 如图 9 12 所示 应应用用包包 用用户户界界面面包包 业业务务对对象象包包 数数据据库库包包 图 9 12 包和包间关系 用户界面包 User Interface Package 为通用用户界面类 调用业务对象包中的操作检索和插入数据 可以简单地把它们看成将来用户要操作的界面 业务对象包 Business Object Package 业务对象包包含上面设计的分析模型的域类 业务对象包同数 据库包协同完成任务 数据库包 Database Package 数据库包向业务对象数据包提供服务 应用包 Utility Package 应用包向其他包提供服务 至此 UML 系统建模完成 9 4 系系 统统 配配 置置 优秀的数据库系统必有一个相对最优的系统配置方案 系统配置要根据用户的实际情况设计 主要依据就 是系统的吞吐量和系统对稳定性的要求 此外 用户的维护水平也是一个重要的方面 9 4 1 软件配置 软件配置主要包括数据库的选择和操作系统的选择 学生管理信息系统的软件配置要根据用户对系统的稳 定性要求 系统的容量以及用户的维护水平来确定 1 数据库选择 可以根据数据量的大小选择不同的数据库 如表 1 所示 数据量是指数据库中需存放的单表的最大记录数 表 1 学生管理信息系统数据库的选择 用 户数据量 记录表 稳定性要求维护水平备选数据库 社区小学100 500低差Access Foxpro 公立小学或社区小学500 5000低差Access Foxpro 公立中学或社区大学5000 50000中一般SQL Server 专业型大学50000 较高较好SQL Server Oracle 综合型大学高好Oracle 在本系统中 选择 Access2000 数据库 2 操作系统选择 可以根据用户量的大小选择不同的操作系统 操作系统的选择如表 2 所示 表 2 学生理管信息系统操作系统的选择 用 户 每秒数据库并发 数据访问记录数 稳定性 要求 维护 水平 备选操作系统 社区小学10 50低差 Windows 2000 Professional Windows 2000 Professional 公立小学或社区中学50 500中一般 Windows NT Windows 2000 Server 公立中学或社区大学500 2000较高较好 Windows NT Windows2000 Server Linux UNIX 专业型大学500 2000较高较好Linux UNIX 综合型大学2000 以上高好Linux UNIX 在本例中 选择 Windows 2000 Server 操作系统 9 4 2 硬件配置 硬件配置主要包括客户端硬件的选择和服务器端硬件的选择 学生管理信息系统的硬件配置要根据用户对 系统的稳定性要求 系统的容量 系统的吞吐量以及用户的维护水平来确定 1 客户端硬件选择 可以根据稳定性要求选择不同的客户端 一般情况下 对客户端的要求不高 如表 3 所示 表 3 学生管理信息系统客户端硬件的选择 用 户稳定性要求备选客户端 查询客户端低Pentium CPU 64MB 4GB 管理客户端中 Pentium 256MB 20GB 2 服务器端硬件选择 可以根据数据量和吞吐量的大小选择不同的服务器硬件 服务器端的选择如表 9 4 所示 表 4 学生管理信息系统服务器端硬件的选择 用 户 每秒数据库并发 数据访问记录表 稳定性 要求 维护水平备选服务器 社区小学9 50低差 Pentium 256MB 20GB 个人 计算机 公立小学或社区中学50 500中一般双 CPU 1GB RAID53 72GB 公立中学或社区大学50 500中一般双 CPU 1GB RAID53 72GB 专业型大学500 2000较高较好强 4CPU 4GB RAID56 72GB 综合型大学2000 以上高好小型计逄机 双机热备 当然 这种配置不是绝对的 这里只给出参考配置的范围 具体的配置需要根据用户的需求和建设经费精 确计算 9 4 3 网络配置 学生管理信息系统的网络配置一般有如下几种类型 1 单机模式 即服务器和客户端在一台计算机上 2 百兆模式 计算机网络的速度为百兆 如图 13 所示 3 千兆模式 计算机网络的速度为千兆 实际上 没有必要给每个节点都配备千兆网络接口 只需要服 务端配备千兆接口即可 如图 14 所示 数据库服务器 应用服务器 客户终端 管理人员终端 百兆交换机 图 13 学生管理信息系统网络百兆配置 数据库服务器 应用服务器 客户终端 管理人员终端 千兆交换机 图 14 学生管理信息系统网络千兆配置 在实际的运行中 可以根据用户情况选择不同的网络配置 如表 5 所示 表 5 学生管理信息系统配置的选择 用 户 每秒数据并发数据 访问记录数 稳定性要求维护水平备选网络方案 社区小学10 50低差单机模式 公立小学或社区中学50 500中一般百兆模式 公立中学或社区大学50 500中一般百兆模式 专业型大学500 2000较高较好百兆模式 综合型大学2000 以上高好千兆模式 9 5 数数 据据 库库 分分 析析 在开发学生管理信息系统时 可以先进行 E R 图分析 然后对表和字段进行分析 最后进行数据库建模 9 5 1 E R 图分析 对学生管理信息系统的 E R 图分析是建立在 UML 系统模型基础上的 这里给出 E R 图分析的结果 实体 关系图的分析结果非常复杂 一般情况下使用从简到繁的方式进行设计 首先从大的方面设计出各个实体之间 的关系 然后在这个关系的基础上进行细化 图 15 所示为学生管理信息系统的实体关系简图 图 15 学生管理信息系统的实体关系简图 在简图的基础上进一步设计实体关系的详细结构 图 16 所示为学生管理信息系统的实体关系详图 图 916 只是学生管理信息系统最基本元素的实体关系图 可以在此基础上根据用户的不同需要进行扩展 图 16 学生管理信息系统的实体关系图 9 5 2 表 字段分析和数据库建模 表 字段分析是建立在实体关系图基础上 对表和字段分析后就可以建立数据库模型了 以图 16 所示的学 生管理信息系统的实体关系图为基础 可设计表和字段 然后建立数据库模型 建立的数据库模型如图 17 所示 图 9 学生管理信息系统的数据库模型 9 6 数数 据据 库库 设设 计计 数据库设计与应用等程序设计是分离的 数据库的设计非常重要 有了数据库模型 数据库的设计就简单 多了 在学生管理信息系统中 首先要创建学生管理信息系统数据库 然后在数据库中创建需要的表和字段 下面分别讲述本系统中数据库的设计 本例采用 Access2000 数据库系统来进行数据库的设计 9 6 1 创建数据库 下面给出在 Access 中创建数据库的过程 1 运行 Access 应用程序 在 新建数据库 选项组中选取 空 Access 数据库 单选 按钮 然后单击 确定 按钮 如图 18 所示 2 在 文件新建数据库 窗口指定数据库的存放位置与数据库文件名称 本例为 Stu mdb 然后单击 创建 按钮 如图 19 所示 图 18 新建数据库 图 19 指定数据库的存放位置与数据库文件名称 9 6 2 创建表 下面给出在 Access 中创建表的过程 1 在创建数据库后 进入主界面 单击 Stu 数据库 子窗口中的 设计 按钮 此时将会出出 表 1 表 窗口 如图 20 所示 图 20 开始设计表 2 在表的设计窗口 表 1 表 中 按表 6 建立数据字段 并指定字段的数据类型与相关属性 表 6 学生信息数据库 Stuinfo 字 段 名 称数 据 类 型说 明 StuId数字编号 StuNo数字学号 DepartMent文本院系 Class文本班级 Name文本姓名 Sex文本 性别 BirthDay 日期 时间 生日 NativePlace 文本 籍贯 建立数据库字段并指定字段的数据类型与相关属性后 字段设计界面如图 21 所示 3 在 StuId 字段上单击鼠标右键 选择快捷菜单中的 主键 选项 让 StuId 字段成为主要索引字段 则 StuId 字段前方将出邮一个钥匙图标 如图 22 所示 图 21 字段设计 图 22 设置 StuId 字段为主键 4 字段设计完毕后 单击工具栏中的 保存 按钮 此时将会出现 另存为 对话框 在 表名称 文 本框输入 StuInfo 如图 23 所示 然后单击 确定 按钮将这个表保存 5 回到 Stu 数据库 子窗口中 如果出现了 StuInfo 这个表项目 就代表现在已经完成学生数据文件 的设计 如图 24 所示 图 23 保存表 图 24 完成数据库中的表创建工作 6 重复步骤 1 5 按表 7 表 8 表 9 表 10 建立表 并指定表中各字估的数据类型与相关属性 表 7 字籍变更数据表 Change 字 段 名 称数 据 类 型说 明 StuNo 数字学号 Name 文本 姓名 Class文本 班级 DeparMent文本 院系 ChangeName文本 学籍变更项 ChangeTime 日期 时间 学籍变更时间 Remark 文本 备注 图 8 学生奖励数据表 Encourage 字 段 名 称数 据 类 型说 明 StuNo 数字 学号 Name 文本 姓名 Class 文本 班级 DeparMent 文本 院系 EncourageName 文本 奖励项 EncourageTime 日期 时间 奖励时间 表 9 学生处罚数据表 Punish 字 段 名 称数 据 类 型说 明 StuNo 数字 学号 Name 文本 姓名 Class 文本 班级 DepartMent 文本 院系 PunishName 文本 处罚项 PunishTime 日期 时间 处罚时间 表 10 学生成绩数据表 Score 字 段 名 称数 据 类 型说 明 ScoreId 数字 编号 StuNo 数字 学号 Name 文本 姓名 Course 文本 课程 Score 数字 成绩 7 将这些表分别名为 Change Encourage Punish Score 主键分别为 StuNo StuNo StuNo Scoreld 设计结果如图 25 所示 8 回到 Stu 数据库 子窗口中 出现了 StuInfo Change Encourage Punish Scores 个表项目 完 成数据文件的设计 如图 26 所示 图 25 完成数据库表项目的设计 图 26 完成后端数据库创建工作 9 7 界界 面面 设设 计计 以上内容完成了数据库的后台工作 建立起了能够保障系统顺利 正确运行的后台 界面设计工作在进行 系统开发的时候是必不可少 也是十分重要的 下面就对学生管理信息系统的界面设计 9 7 1 用户登录界面设计 利用用户登录成功能实现对用户操作权限的限制 管理员和学生的权限不一样 管理员拥有系统的所有权 限 学生只有查询修改个人信息和打印成绩单的权限 用户必须输入正确的密码才能进入下一界面 如果用户 的密码输入错误 应用程序会提示错误信息 用户如果连续 3 次输入错误 应用程序会强迫使用者退出并终止 应用程序的运行 图 27 所示是用户登录界面窗体 9 7 2 学生管理信息系统主界面设计 学生管理信息系统主界面主要实现新生信息录入 成绩管理 学籍变更 处罚管理 奖励管理和查询修改 的功能 选择该界面中工具栏中的不同按钮 就会进入实现不同功能的窗体 图 28 是图书馆理系统主界面窗体 图 27 用户登录界面窗体 图 28 学生管理信息系统主界面窗体 这里主要介绍与数据库相关的组件的属性 如表 11 所示 表 11 学生管理信息系统主界面中数据库组件的属性设置 组 件属 性属 性 值 DatebaseName Student Table1 TableName Stulnfo DatebaseName Student Table2 TableName Change DatebaseName Student Table3 TableName Encourage DatebaseName Student Table4 TableNsam Punish DatebasdeName Student Table5 TableName Score Query1 DatebaseName Student Query2 DatebaseName Student Query3 DatebaseName Student Query4 DatebaseName Student Query5 DatebaseName Student DataSource1 DataSet Table1 DataSource2 DataSet Query2 DataSource3 DataSet Query3 DataSource4 DataSet Query4 DataSource5 DataSet Table5 DataSource6 DataSet Query5 9 7 3 新生信息录入界面设计 新生信息录入界面主要实现学生信息的添加功能 包括学号 性别 出生日期 籍贯 姓名 班级 所属 院系等信息的添加 图 29 是新生信息录入界面窗体 图 29 新生信息录入界面窗体 9 7 4 成绩管理界面设计 成绩管理界面主要实现成绩的添加和校对修改的功能 图 30 是成绩管理界面窗体 图 30 成绩管理界面窗体 9 7 5 学籍变更界面设计 学籍变更界面是实现学生学籍变更的功能 图 31 是学籍变更界面窗体 图 31 学籍变更界面窗体 9 7 6 奖励管理界面设计 当学生在校表现优秀 学校应该奖励该学生 以鼓励大家的学习热情 奖励管理界面用于实现学生奖励的 功能 相应的奖项有校特等奖 校一等校 校二等校 校三等校 工作奖等 用户可以根据实际情况进行设计 图 32 是奖励管理界面窗体 图 32 奖励管理界面窗体 9 7 7 处罚管理界面设计 当学生在校的表现差 学校应该处罚该学生 处罚管理界面就是实现学生处罚的功能 相应的处罚项有警 告 记过 开除等 用户可以根据实际情况进行设计 图 33 是处罚管理界面窗体 图 33 处罚管理界面窗体 9 7 8 查询修改界面设计 学生可以根据自己的学号在查询修改界面中查询自己的个人信息 包括基本信息 个人成绩 学籍变更情 况 奖励和处罚情况 如果发现基本信息有错误的话 有权进行修改 而且学生有权打印自己的成绩单 图 9 34 是查询修改界面窗体 图 34 查询修改界面 9 8 代代 码码 分分 析析 与与 实实 现现 上面对程序界面设计进行了详细的设计 基本完成了程序界面的设计工作 程序代码是程序的核心所在 是系统开发的灵魂 下面对系统的代码做具体的分析 9 8 1 用户登录的代码实现 学生管理信息系统启动时 首先出现的是系统主界面 单击系统主界面中工具栏的 用户登录 按钮 就 弹出用户登录界面 程序从配置文件中获取管理员和学生的密码 和用户输入的密码比较 如果密码正确 则 根据身份配权限 如果不正确 则提示用户重输或退出 重输 3 次以上 系统自动退出 代码如下 Proctdure TLoginFrm BitBtn1Click Sender TObject 用户登陆 按钮的单击事件 Var pwdfile textfile PwdStr string Begin if RadioButton1 checked True then assingnfile pwdfile Admini cfg if RadioButton2 checked True then assingfile pwdfile student cfg reset pwdfile readln pwdfile pwdStr closefile pwdfile Times Times 1 If edit1 Text PwdStr then begin close StuMainFrm Enabled True StuMainFrm PageControll ActivePage StuMainFrm Tabsheet6 StuMainFrm PageControll Visible true if Radiobuttonl checked True then begin StuMainFrm ToolButton2 Enabled Ture StuMainFrm Toolbutton3 Enabled True StuMainFrm ToolButton4 Enabled True StuMainFrm ToolButton5 Enabled True StuMainFrm ToolButton8 Enabled True StuMainFrm ToolButton6 Enabled True end if RadioButton2 checked True then begin StuMainFrm ToolButton6 Enabled True end end else begin if MessageDlg 密码输入错误 是否退出 mtContirmation mbYes mbNo 0 mryes then begin close StuMainFrm Enabled True end else begin if times 3 then editl SetFocus else begin MessageDlg 对不起 密码输入严重错误 请退出 mtInformation mbOk 0 Application Terminate end end end end 为了防止用户多次重输密码 限制了输入了次数为 3 次 因此需要对次数进行初始化 活加代码如下 Procedure TLoginFrm FormShow Sender TObject Begin Times 0 End 9 8 2 成绩管理的代码实现 当管理员选择了一位学生后 输入各科成绩 程序把数据保存到数据库 代码如下 Procedure TStuMainFrm BitBtn9Click Sender TObject 添加 按钮的单击事件 var StuNo StuName string i integer begin with Query do begin close Sql Clear Sql Add Select StuNo from Score Whers StuNo DbEdit6 Text Open if recordcount 0 then begin StuNo DbEdit6 Text StuName DbEdit7 Text for i l to 12 do begin if Course i 0 then with Table5 do begin Open Append SetFields nil StuNo kStuName Course i Score i Post end end end else MessageDlg 对不起 该记录已经存在 mtInformation mbOk 0 end end 9 8 3 学籍变更的代码实现 当管理员选择了学籍需要变更的学生后 输入变更项和变更时间 程序把数据保存到数据库 代码如下 procedure TStuMainFrm BitbtnlClick Sender Tobject 添加 按钮的单击事件 var StuNo StuName StuClass StuDepart ChangeName ChangeRemark string begin winth Table2 do begin Open StuNo Editl text StuName Edit2 text StuClass Edit3 text StuDepart Edit4 text ChangeName ComboBoxl Text ChangeRemark Edit5 text append SetFields StuNo StuName StuClass StuDepart ChangeName ChangeRemark Formatdatetime dddddde DateTimePicker2 Dat Post end end 9 8 4 奖励管理的代码实现 当管理员选择了需要奖励的学生后 选择了奖项和奖励时后 程序把数据保存到数据库 代码如下 procedure TStuMainFrm bitbtn3Click Sender TObject 添加 按钮的单击事件 var StuNo StuName StuClass StuDepart EncourageName sering begin with Table3 do begin Open StuNo Edit6 text StuName Edit7 text StuClass Edit8 text StuDepart Edit9 text if RadioButtonl checked true then EncourageName RadioButtonl Caption if RadioButton2 checked true then EncourageName RadioButton2 Caption if RadioButton3 checked true then EncourageName RadioButton3 lCaption if RadioButton4 checked true then EncourageName RadioButton4 Caption if RadioButton5 checked true then EncourageName RadioButton5 Caption if RadioButton6 checked true then EncourageName RadioButton6 Caption if RadioButton7 checked true then EncourageName RadioButton7 Capiton if RadioButton8 checked true then EncourageName RadioButton8 Caption append SetFields StuNo StuName StuClass StuDepart EncourageName Formatdatetime dddddd DateTimePickerl Dat Post end end 外罚管理的代码和奖励管理的代码类似 这里不再 述 9 8 5 查询 修改的代码实现 当学生根据自己的学号查询了自己的信息 如果发现有错的话 可以修改 然后程序把修改后数据保存到 数据库 代码如下 procedure TStuMainFrm BitBtn7Click Sender TObject 修改 按钮的单击事件 var StuNo StuName StuClass StuDepart StuSex Birthdayt NativePlace string begin with Tablel do begin Open StuNo Editl4 text StuName Editl5 text StuClass Editl6 text StuDepart Editl7 text NativePlace Editl9 text Birthday Edit20 text if RadioButtonl2 checked true then StuSex RadioButtonl2 Caption if RadioButtonl6 checked true then StuSex RadioButtonl6 Caption Edit SetFields StuNo StuDepart StuClass StuName StuSex Birthday NativePlace Post end end 学生可以打印成绩单 其代码很简单 这里不再列出 9 9 实实 例例 演演 示示 至此 学生管理信息系统的开