高校学生管理系统毕业论文.doc

高校学生管理系统 摘 要 随着信息技术在管理上越来越深入而广泛的应用 管理信息系统的 实施在技术上已逐步成熟 管理信息系统是一个不断发展的新型学科 任何一个单位要生存要发展 要高效率地把内部活动有机地组织起来 就必须建立与自身特点相适应的管理信息系统 作为当代大学生 应有长远的目光和随机应变的能力 应走在时间 的前面 掌握最新的社会动态 最先进科学技术 以调整自己的知识结 构和能力结构 去适应社会的发展 新世纪需要具有丰富现代科学知识 的人 需要能够独立解决问题 完成工作的人 需要能独当一面 时常 挑战自己极限的人 需要有创新意识的人 我们在不断努力中学习做一 个与时代并进的人 本文介绍了在 Visual Basic6 0 环境下采用 自上而下地总体规划 自下而上地应用开发 的策略开发一个管理信息系统的过程 通过分析 某一学校学生管理的不足 创建了一套行之有效的计算机管理学生的方 案 文章介绍了学生管理信息系统的系统分析部分 包括可行性分析 业务流程分析等 系统设计部分主要介绍了系统功能设计和数据库设计 及代码设计 系统实现部分说明了几个主要模块的算法 本系统界面友 好 操作简单 比较实用 关键字 关键字 管理信息系统 学生管理 Visual Basic 应用 Abstract With more and more widespread and profound application of information technology in management the implement of management information system has become mature in technology step by step Managing information system is a new subject Enterprise needs existence and development so enterprise activities should be organized efficiently and organically which means tightening up the enterprise management and strengthening effective management of any resource staff finance property etc internal the enterprise and also establishing a management information system fitting in with its own characteristics As a contemporary college students there should be a long term vision and the ability to act according to circumstances should take the time in front of the community abreast of the latest developments of the art science and technology in order to adjust the structure of their knowledge structure and ability to adapt to social development The new century has extensive knowledge of modern science need to be able to independently solve the problem the completion of the work of the people to their own needs often challenge the limits of their own people the need for innovation We have been working hard to learn to make a move with the time This article introduces the detailed process of exploring a management information system under the environment of visual FoxPro utilizing Top Bottom overall plan and a strategy according to Bottom Top application and exploitation That is to establish a set of effective scheme for student management by computer through analyzing disadvantages of student management by human resources This article emphasizes on three sections The system analysis section of student management information includes feasible analysis management function analysis The system design section mainly focuses on system function design and data base design and data number design And the system realization section has provided several major function together with the main windows and programs This economical and pragmatic system has explicit interface with simple operation KeywordsKeywords MIS student management visual basic application 目录 摘 要 I ABSTRACT II 第 1 章 绪论 1 1 1 学生信息管理系统及需求分析 1 1 1 1 系统需求 2 1 1 2 可行性分析 2 1 2 系统设计的背景 2 1 3 VB 语言的基本特点及 VB 应用程序的基本持点 6 1 4 关系型数据库的实现 7 第 2 章 信息管理流程分析 10 2 1 系统模块结构图 10 2 2 模块设计 10 2 3 数据存储分析 14 2 4 功能分析 15 第 3 章数据库系统设计 17 3 1 软件模块结构设计 17 3 1 1 系统方案确定 17 3 1 2 软件结构设计 17 3 2 数据库设计 17 3 2 1 本系统中所涉及到的主要实体有九个数据表 17 3 2 2 各表的物理结构如下 18 第 4 章 系统详细设计阶段 22 4 1 系统登录界面 22 4 2 系统主界面 24 4 3 用户管理模块 33 4 4 学生缴费管理模块 37 4 5 寝室信息管理界面 46 第 5 章系统的运行与维护 50 5 1 系统的配置 50 5 2 系统的维护 50 5 3 系统测试工作的特点 51 5 4 本章小结 52 结术语 53 参考文献 54 致 谢 55 第 1 章 绪论 1 1 学生信息管理系统及需求分析 随着学校的规模不断扩大 学生数量急剧增加 有关学生的各种信 息量也成倍增长 面对庞大的信息量需要有学生管理系统来提高学生管 理工作的效率 通过这样的系统可以做到信息的规范管理 科学统计和 快速查询 修改 增加 删除等 从而减少管理方面的工作量 本系统主要用于学校学生信息管理 总体任务是实现学生信息关系 的系统化 规范化和自动化 其主要任务是用计算机对学生各种信息进 行日常管理 如查询 修改 增加 删除 另外还考虑到学生选课 针对这些要求设计了学生信息管理系统 本系统主要包括学生信息查询 教务信息维护和学生选课三部分 其功能主要有 1 有关学籍等信息的输入 包括输入学生基本信息 所在班级 所 学课程和成绩等 2 学生信息的查询 包括查询学生基本信息 所在班级 已学课程 和成绩等 3 学生信息的修改 包括学生学号姓名 性别 年龄系别 班级联 系方式 家庭住址和备注等 4 班级管理信息的输入 包括输入班级设置 班级信息等 5 班级管理信息的查询 包括查询系别设置 班级信息等 6 班级管理信息的修改 包括修改班级设置 班级信息等 7 学生课程的修改 包括修改课程设置 课程信息等 学生信息管理系统是典型的信息管理系统 MIS 其开发主要包括 后台数据库的建立和维护以及前端应用程序的开发两个方面 对于前者 要求建立起数据一致性和完整性强 数据安全性好的库 而对于后者则 要求应用程序功能完备 易使用等特点 经过分析 我们使用 MICROSOFT 公司的 VISUAL BASIC 开发工具 利用其提供的各种面向对象的开发工具 尤其是数据窗口这一能方便而 简洁操纵数据库的智能化对象 首先在短时间内建立系统应用原型 然 后 对初始原型系统进行需求迭代 不断修正和改进 直到形成用户满 意的可行系统 1 1 1 系统需求 通过调查 要求系统需要有以下功能 1 由于操作人员的计算机知识普遍较差 要求有良好的人机界面 2 由于该系统的使用对象多 要求有较好的权限管理 3 数据计算自动完成 尽量减少人工干预 4 方便的数据查询 支持多条件查询 5 在相应的权限下 删除数据方便简单 数据稳定性好 6 原始数据修改简单方便 支持多条件修改 1 1 2 可行性分析 由于本系统管理的对象单一 都是在校学生 且每个数据内容具有 较强的关联性 涉及的计算过程不是很复杂 因此 比较适合于采用数 据库管理 且学校用于学生管理的微机都是 PIII 以上的机器 在存储 量 速度方面都能满足数据库运行的要求 在技术难度方面 由于有指 导老师的指导和相关参考文献 特别是网上资料 特别是参考其它程序 的功能 因此应该可以实现 1 2 系统设计的背景 本系统的设计是在 Windows 2000 XP 中文版操作系统环境下 使用 Visual Basic 6 0 中文版开发成功的 数据库是 MIS 中的重要支持技 术 在 MIS 开发过程中 如何选择数据库管理是一个重要的问题 目前 数据库产品较多 每种产品都具有各自的特点和适用范围 因此 在选 择数据库时 应考虑数据库应用的特点及适用范围 本系统选用的数据 库语言介绍如下 Visual Basic 是一种可视化的 面对对象和条用事件驱动方式的 结构化高级程序设计 可用于开发 Windows 环境下的种类应用程序 它 简单易学 效率高 且功能强大 可以与 Windows 的专业开发工具 SDK 相媲美 而且程序开发人员不必具有 C C 编程基础 在 Visual Basic 环境下 利用事件驱动的编程机制 新颖易用的可视化设计工具 使用 Windows 内部的应用程序接口 API 函数 以及动态链接库 DLL 动态 数据交换 DDE 对象的链接与嵌入 OLE 开放式数据访问 ODBC 等技 术 可以高效 快速地开发出 Windows 环境下功能强大 图形界面丰富 的应用软件系统 总的来说 Visual Basic 具有以下特点 1 可视化编程 用传统程序设计语言设计程序时 都是通过编写程序代码来设计用 户界面 在设计过程中看不到界面的实际显示效果 必须编译后运行程 序才能观察 如果对界面的效果不满意 还要回到程序中修改 有时候 这种编程 编译 修改的操作可能要反复多次 大大影响了软件开发效率 Visual Basic 提供了可视化设计工具 把 Windows 界面设计的复杂性 封装 起来 开发人员不必为界面设计而编写大量程序代码 只需要 按设计要求的屏幕布局 用系统提供的工具 在屏幕上画出各种 部件 即图形对象 并设置这些图形对象的属性 Visual Basic 自动产生 界面设计代码 程序设计人员只需要编写实现程序功能的那部分代码 从而可以大大提高程序设计的效率 4 0 版以后的 Visual Basic 支持面向对象的程序设计 但它与一 般的面向对象的程序设计语言 C 不完全相同 在一般的面向对象程 序设计语言中 对象由程序代码和数据组成 是抽象的概念 而 Visual Basic 则是应用面向对象的程序设计方法 OOP 把程序和数据 封装起来作为一个对象 并为每个对象赋予应有的属性 使对象成为实 在的东西 在设计对象时 不必编写建立和描述每个对象的程序代码 而是用工具画在界面上 Visual Basic 自动生成对象的程序代码并封 装起来 每个对象以图形方式显示在界面上 都是可视的 2 结构化程序设计语言 Visual Basic 是在 BASIC 语言的基础上发展起来的 具有高级程 序设计语言的语句结构 接近于自然语言和人类的逻辑思维方式 Visual Basic 语句简单易懂 其编辑器支持彩色代码 可自动进行语 法错误检查 同时具有功能强大且使用灵活的调试器和编译器 Visual Basic 是解释型语言 在输入代码的同时 解释系统将高 级语言分解翻译成计算机可以识别的机器指令 并判断每个语句的语法 错误 在设计 Visual Basic 程序的过程中 随时可以运行程序 而在 整个程序设计好之后 可以编译生成可执行文件 EXE 脱离 Visual Basic 环境 直接在 Windows 环境下运行 3 事件驱动编程机制 Visual Basic 通过事件来执行对象的操作 一个对象可能会产生 多个事件 每个事件都可以通过一段程序来响应 例如 命令按钮是一 个对象 当用户单击该按钮时 将产生一个 单击 CLICK 事件 而 在产生该事件时将执行一段程序 用来实现指定的操作 在用 Visual Basic 设计大型应用软件时 不必建立具有明显开始 和结束的程序 而是编写若干个微小的子程序 即过程 这些过程分别 面向不同的对象 由用户操作引发某个事件来驱动完成某种特定的功能 或者由事件驱动程序调用通用过程来执行指定的操作 这样可以方便编 程人员 提高效率 4 访问数据库 Visual Basic 具有强大的数据库管理功能 利用数据控件和数据 库管理窗口 可以直接建立或处理 Microsoft Access 格式的数据库 并提供了强大的数据存储和检索功能 同时 Visual Basic 还能直接 编辑和访问其他外部数据库 如 dBASE FoxPro Paradox 等 这些数 据库格式都可以用 Visual Basic 编辑和处理 Visual Basic 提供开放式数据连接 即 ODBC 功能 可通过直接访 问或建立连接的方式使用并操作后台大型网络数据库 如 SQL Server Oracle 等 在应用程序中 可以使用结构化查询语言 SQL 数 据标准 直接访问服务器上的数据库 并提供了简单的面向对象的库操 作指令和多用户数据库访问的加锁机制和网络数据库的 SQL 的编程技术 为单机上运行的数据库提供了 SQL 网络接口 以便在分布式环境中快速 而有效地实现客户 服务器 client server 方案 5 动态数据交换 DDE 利用动态数据交换 Dynamic Data Exchange 技术 可以把一种应 用程序中的数据动态地链接到另一种应用程序中 使两种完全不同的应 用程序建立起一条动态数据链路 当原始数据变化时 可以自动更新链 接的数据 Visual Basic 提供了动态数据交换的编程技术 可以在应 用程序中与其他 Windows 应用程序建立动态数据交换 在不同的应用程 序之间进行通信 6 对象的链接与嵌入 OLE 对象的链接与嵌入 OLE 将每个应用程序都看做是一个对象 object 将不同的对象链接 link 起来 再嵌入 embed 某个应用程序中 从而 可以得到具有声音 影像 图像 动画 文字等各种信息的集合式的文 件 OLE 技术是 Microsoft 公司对象技术的战略 它把多个应用程序合 为一体 将每个应用程序看做是一个对象进行链接和嵌入 是一种应用 程序一体化的技术 利用 OLE 技术 可以方便地建立复合式文档 compound document 这种文档由来自多个不同应用程序的对象组成 文档中的每个对象都与原来的应用程序相联系 并可执行与原来应用程 序完全相同的操作 7 动态链接库 DLL Visual Basic 是一种高级程序设计语言 不具备低级语言的功能 对访问机器硬件的操作不太容易实现 但它可以通过动态链接库技术将 C C 或汇编语言编写的程序加入到 Visual Basic 应用程序中 可以像 调用内部函数一样调用其他语言编写的函数 此外 通过动态链接库 还可以调用 Windows 应用程序接口 API 函数 实现 SDK 所具有的功能 1 3 VB 语言的基本特点及 VB 应用程序的基本持点 VB 程序语言具有许多优秀的特性 用其设计应用程序时有两个 基本特点 可视化设计和事件驱动编程 1 可视化设计 同其他的一些可视化程序开发工具一样 VB 具有可视化设计的特点 微 软的 Word 在刚刚进入市场时 同 WPS 竞争的一个重要的功能砝码就是 所见即所得 的字处理功能 VB 在设计应用程序界面时也可以说是 所见 即所得 在设计时 头脑中所想象的应用程序界面 完全可以通过键盘鼠 标以及徒手画出来 而不是编制大量的代码然后再编译生成 如果需要修 改 也是利用键盘鼠标和手画 而底层的一些程序代码由 VB 自动生成或 修改 VB 为用户提供大量的界面元素 在 VB 中称为控件对象 这些控件 对象对于熟悉 Windows 应用程序的用户而言是一点也不陌生 如 窗体 菜单 命令按钮 工具按钮 检查框 等等 用户只需要利用 鼠标 键盘把这些控件对象拖动到适当的位置 设置它们的大小 形状 属性等 就可以设计出所需的应用程序界面 2 事件驱动编程 Windows 操作系统出现以来 图形化的用户界面和多任务多进程的 应用程序要求程序设计不能是单一性的 在使用 VB 设计应用程序时 必 须首先确定应用程序如何同用户进行交互 例如发生鼠标单击 键盘输 入等事件时 由用户编写控制这些事件的响应 这就是所谓的事件驱动编 程 微软公司的 Visual Basic 6 0 是 Windows 应用程序开发工具 使 目前最为广泛的 易学易用的面向对象的开发工具 Visual Basic 提 供了大量的控件 这些控件可用于设计界面和实现各种功能 减少了编 程人员的工作量 也简化了界面设计过程 从而有效的提高了应用程序 的运行效率和可靠性 故而 实现本系统 VB 是一个相对较好的选择 1 4 关系型数据库的实现 Access2003 就是关系数据库开发工具 数据库能汇集各种信息以 供查询 存储和检索 Access 的优点在于它能使用数据表示图或自定 义窗体收集信息 数据表示图提供了一种类似于 Excel 的电子表格 可以使数据库一目了然 另外 Access 允许创建自定义报表用于打印 或输出数据库中的信息 Access 也提供了数据存储库 可以使用桌面 数据库文件把数据库文件置于网络文件服务器 与其他网络用户共享数 据库 Access 是一种关系数据库工具 关系数据库是已开发的最通用 的数据库之一 如上所述 Access 作为关系数据库开发具备了许多优 点 可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强 大功能 微软的 JET 数据库引擎提供了与数据库打交道的途径 我们是通过 它以及 Visual Basic 来访问数据库并对其进行各种操作 Visual Basic Access 以及其他微软的软件产品都是通过共用 JET 数据库引擎 从而给用户提供了丰富的数据类型 DATA 控件在数据库中的信息与将信息显示给用户看的 Visual Basic 程序之间架起了一座桥梁 我们可以设置 DATA 控件的各个属性 告诉它要调用那个数据库的哪个部分 缺省情况下 DATA 控件根据数 据库中的一个或多个数据表建立一个 dynaset type 动态集合 类型 的记录集合 一个记录集合是动态的也就意味着 当原来的数据表中的 容改变了以后 该记录集合中的记录也会随之改变 DATA 控件还提供 了用来浏览不同记录的各种跳转按钮 将 DATA 控件放置在窗体中之后 我们还必须在该控件与要处理的数据库之间建立联系 数据库是一种存储数据并对数据进行操作的工具 数据库的作用在 于组织和表达信息 简而言之 数据库就是信息的集合 计算机的数据 库可以分为两类 非关系数据库 flat file 和关系数据库 relational 关系数据库中包含了多个数据表的信息 数据库含有 各个不同部分的术语 象记录 域等 新建一个数据库 创建任何一个数据库的第一步是仔细的规划数据库 设计必须是灵 活的 有逻辑的 创建一个数据库结构的过程被认为是数据模型设计 1 标识需要的数据 2 收集被标识的字段到表中 3 标识主关键字字段 4 绘制一个简单的数据图表 5 规范数据 6 标识指定字段的信息 7 创建物理表 8 修改已建的数据库 数据库的修改分为 添加 编辑和删除记录 这三种操作均可由 Visual Basic 创建的程序来完成 下面的章节将详细描述实现的具体 方法 数据库之间的关系指明两个库之间共享一个共同的关键字值 一个 连接是指一种虚拟的表 这种表是在当用户要求从相互关联的各个不同 的表中获取信息时建立的 关键字段用于在相互连接的不同表中查找匹 配的记录 一个更高级的连接形式称为自连接 这种连接是指一个表被 连接到它自己的一个字段 或在不同的记录中由重复数据的组合字段 数据库中有三种不同类型的关键字 主关键字 组合关键字和外关键字 在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其 它的库建立关系 第 2 章 信息管理流程分析 2 1 1 系统模块结构图系统模块结构图 依据需求分析结果 学生信息管理信息系统的主要模块包括 用 户登录模块 数据添加管理模块 数据查询模块 数据修改模块 成 绩统计模块 5 个功能模块 系统结构如图 2 1 所示 图 2 1 系统模块结构图 2 2 模块设计 本系统的集体模块设计可以分为五个板快 用户登录模块 数据添 加管理模块 数据查找管理模块 数据修改管理模块 成绩统计模块详 细功能有 1 用户登录模块 用户等里模块主要实现只有指定的用户才能访问系统功能 管理 学生信息管理系统 用户登录 数据添加管理 数据查询管理 数据修改管理 成绩统计 员在选择自己的帐号后 输入正确的密码信息就可以登录系统 本模块 包括登录和退出两个功能 模块功能如图 2 2 所示 2 数据添加管理模块 数据添加管理模块主要提供对数据库中重要的数据添加功能 其 中的功能包括 添加学生学籍信息 添加老师基本信息 添加班级基本 信息 添加课程信息 添加学生成绩信息 数据添加管理模块的功能如 图 2 3 所示 图 2 2 用户登录模块功能树图 图 2 3 数据添加管理模块功能树图 3 数据查询管理模块 数据查询管理模块主要提供对数据库中重要数据的查询功能 其中 的功能包括 查询学生的学籍信息 数据表浏览 包括学生学籍信息 用户登录 用户登录 退出系统 用户登录 用户登录 用户登录 用户登录 用户登录 用户登录 教师基本信息 班级基本信息 课程信息 学生成绩信息 个人信息 奖惩信息 7 个表的浏览 课程浏览等 数据查询管理模块的功能如图 2 4 所示 4 数据修改管理模块 数据修改管理模块主要提供对数据库中重要数据的查询功能 其中 的功能包括 修改学生学籍信息 修改教师基本信息 修改班级信息 修改课程信息 修改学生成绩信息 修改学生奖惩信息 修改学生个人 信息 数据修改管理模块的功能如图 2 5 所示 图 2 4 数据查询管理模块功能树图 数 据 查 询 管 理 查询学籍基本信息 数 据 表 浏 览 课 程 浏 览 图 2 5 数据修改管理模块功能树图 5 成绩统计模块 成绩统计模块提供按个人成绩统计和按单科成绩统计两项功能 成 绩统计模块的功能如图 2 6 所示 图 2 6 成绩统计模块功能树图 数据修改管理 修改学生学籍信息 修改教师基本信息 修改班级信息 修改课程信息 修改学生成绩信息 修改学生个人信息 修改学生奖惩信息 成绩统计 按个人成绩统计 按单科成绩统计 2 3 数据存储分析 实体联系图 1 数据模型设计 首先来做出学生成绩管理系统的 E R 图 分析这 个问题的实体 从系统分析可以知道 学生的成绩是由任课教师按照课 程给出的 学生 课程 教师组成了这个系统的三个实体 2 再分析三个实体之间的联系 首先 这三个实体不是一个统一体 学生成绩与教师没有内在联系 教师必须通过课程实体才能与学生建立 联系 因而先不考虑 课程与学生这两个实体是多对多联系 一位学生 要学习多门课程 一门课程有多位学生共同学习 而学习成绩是这两个 实体 学生 和 成绩 共有的属性 应填在二者的联系 学习 边 因为成绩既不是学生独有的 也不是课程独有的 如图 2 8 所示学生与课程的 E R 图所示 m n 图 2 8 学生成绩管理系统中学生与课程的 E R 图 3 教师与课程这两个实体之间 是一对多联系 一位教师可以都 姓名 性别 联系方式 学号 班级家庭住址 课程号 课程名 学生 学习 课程 成绩 类型 多门课程 而一门课程对于学生成绩来说只能有一位教师 英语 高等 数学有多位教师教 但对某个固定的学生来说只能有一位教师 如图 2 9 教师与课程的 E R 图所示 图 2 9 教师与课程的 E R 图 2 4 功能分析 功能层次如图 2 10 所示 n 教师课程 教学 1 课程名 课程号 姓名 性别 代码 成绩 电话 部门 职称 类型 学生信息管理 系统 登录 系 统 班 级 档 案 打 印 课 程 成 绩 基 课 设 置 缴 费 浏 览 班 课 设 置 缴 费 添 加 学 费 设 置 缴 费 查 询 改 密 码 加 班 级 档 浏 览 添 用 户 新 登 录 班 浏 览 班 查 询 档 添 加 档 查 询 第 3 章 数据库系统设计 3 1 软件模块结构设计 3 1 1 系统方案确定 通过对系统的调研与分析 系统主要应完成的功能有 班级管理 学生成绩管理 学生交费管理 课程管理 成绩管理 系统管理等功能 3 1 2 软件结构设计 本系统在执行时 先根据不同的操作人员的需要来进行相应的模块 然后可以输入数据或者进行其它的查询或浏览等操作 总体来说 本系 统属于一个事务型管理系统 3 2 数据库设计 数据库采用了 Microsoft 推出的 Access 数据库 这是微软集成到 Office 中的一个桌面数据库 能够快速方便的和 Office 的其他套件综 合使用 由于 Access 具有显著的简易性和有效性 大量的桌面数据库 系统都采用 Access 作为后台数据库 使用 Access 的好处还在于 如果 你的系统扩展到 Client Server 模式的时候 可以使用 Microsoft 的数 据库服务器软件 SQL Server 此时 程序只需要简单的修改一下链接 ADO 的数据源 就可以 这样 为程序的平滑扩展提供了非常有力的 条件 3 2 1 本系统中所涉及到的主要实体共有九个数据表 allkecheng 表 课程名称 教材 cj 表 学号 学期 类型 课程名称 分数 class 表 年级 班级 教室 年制 专业 班主任 备注 classkecheng 表 年级 专业 年制 学期 课程名称 jf 表 学号 学期 交费 欠费 日期 操作员 kaoshileixing 表 类型 use 表 username password admin readonly qx1 qx2 qx3 qx4 xj 表 学号 姓名 性别 班级 出生年月 家庭住址 邮政 编码 联系电话 入学时间 备注 suefei 表 年级 专业 年制 学期 学费 3 2 23 2 2 各表的物理结构如下 各表的物理结构如下 allkecheng 表 字段名称类型宽度小数位 课程名称文本 20 教材文本 30 Cj 表 字段名称类型宽度小数位 学号文本 10 学期文本 50 类型文本 16 课程名称文本 20 分数单精度型自动 Class 表 字段名称类型宽度小数位 年级文本 16 班级文本 20 教室文本 5 年制文本 8 专业文本 16 班主任文本 8 备注备注 Classkecheng 表 字段名称类型宽度小数位 年级文本 16 专业文本 12 年制文本 8 学期文本 50 课程名称文本 20 Jf 表 字段名称类型宽度小数位 学号文本 5 学期文本 50 交费货币自动 欠费货币自动 日期日期 时 间 操作员文本 10 Kaosileixing 表 字段名称类型宽度小数位 类型文本 10 Use 表 字段名称类型宽度小数位 Username 文本 20 Password 文本 20 Admin 文本 2 Readonly 文本 2 Qx1 文本 2 Qx2 文本 2 Qx3 文本 2 Qx4 文本 2 xj 表 字段名称类型宽度小数位 学号文本 9 姓名文本 8 性别文本 2 班级文本 10 出生年月日期 时 间 家庭住址文本 30 邮政编码数字 长 整型 联系电话数字 长 整型 入学时间日期 时 间 备注备注 xuefei 表 字段名称类型宽度小数位 年级文本 16 专业文本 50 年制文本 20 学期文本 40 学费货币自动 第 4 章 系统详细设计阶段 根据系统的主要功能及上一章的总体设计 系统开发进入第二个阶 段 详细设计 在这一阶段的工作中 主要任务有以下几项 1 根据原型化的开发原则 为系统的每个模块功能进行界面设计 作为进一步优化的基础 2 进行系统的流程分析 为模块的细化做好准备 3 对每个模块进行详细的算法设计 4 1 系统登陆界面 本界面的主要功能是为了对系统进行安全性管理 本系统的用户名 和密码保存在 USE 表中 本系统根据不同的用户而设置了不同的权限 可以用 909 909 为用户名和密码来登陆本系统 Private Sub Command1 Click Dim mrc As ADODB Recordset txtsql select username from use where username FROM class z MsgBox 成功 vbOKOnly 查询 End Sub Public Sub classshowtitle Dim i As Integer MSF1 Clear With MSF1 Cols 8 TextMatrix 0 1 年级 TextMatrix 0 2 班级 TextMatrix 0 3 教室 TextMatrix 0 4 年制 TextMatrix 0 5 专业 TextMatrix 0 6 班主任 TextMatrix 0 7 备注 ColWidth 0 100 ColWidth 1 1300 ColWidth 2 1200 ColWidth 3 800 ColWidth 4 800 ColWidth 5 800 ColWidth 6 800 ColWidth 7 5000 FixedRows 1 For i 1 To 7 ColAlignment i 0 Next i FillStyle flexFillSingle Col 0 Row 0 RowSel 1 ColSel Cols 1 CellAlignment 4 Row 1 End With End Sub Public Sub classshowdata Dim j As Integer Dim i As Integer Dim mrc1 As ADODB Recordset Set mrc1 ExecuteSQL Trim txtsql If mrc1 EOF False Then mrc1 MoveFirst With MSF1 Rows 1 Do While Not mrc1 EOF Rows Rows 1 For i 1 To mrc1 Fields Count TextMatrix Rows 1 i mrc1 Fields i 1 Next i mrc1 MoveNext Loop mrc1 Close End With Else If classfind True Then Formclass2 Hide Formclass3 Show zzz MsgBox 对不起 没有此班级的档案记录 vbOKOnly 查询 Formclass3 ZOrder 0 Formclass3 Text1 0 SetFocus End If End If End Sub Private Sub cmddel Click qxstr Executeqx 2 If qxstr readonly Then ss MsgBox 对不起 你是只读用户不能删除记录 请与管理员联系 vbInformation vbOKOnly 警告 Exit Sub End If Dim mrc As ADODB Recordset Dim msgtext As String Dim intcount As Integer If Trim Me MSF1 TextMatrix MSF1 Row 1 Then sssss MsgBox 你还没有选择记录 vbOKOnly vbExclamation 警告 Exit Sub End If If MsgBox 确定要删除班级为 Trim Me MSF1 TextMatrix MSF1 Row 2 的记录吗 Chr 13 Chr 10 继续会导致该班级在成绩和学费记录的数据丢失 继续 吗 vbOKCancel vbExclamation 警告 vbOK Then txtsql delete from xj where 班级 Trim Me MSF1 TextMatrix MSF1 Row 2 Set mrc ExecuteSQL txtsql txtsql delete from jf where 学号 in select from xj where 班级 Trim Me MSF1 TextMatrix MSF1 Row 2 Set mrc ExecuteSQL txtsql 删除在交费表 中的所有该班级的记录 txtsql delete from cj where 学号 in select from xj where 班级 Trim Me MSF1 TextMatrix MSF1 Row 2 Set mrc ExecuteSQL txtsql 删除在成绩 表中的所有该班级的记录 txtsql delete from class where 班 级 Trim Me MSF1 TextMatrix MSF1 Row 2 Set mrc ExecuteSQL txtsql 删除该班级的 记录 End If zxh MsgBox 记录成功删除 vbOKOnly 查询 txtsql select from class classshowtitle classshowdata Call Form Activate End Sub Private Sub cmdfind Click Formclass3 Show End Sub Private Sub cmdmodi Click If Trim Me MSF1 TextMatrix MSF1 Row 1 Then sssss MsgBox 你还没有选择记录 vbOKOnly vbExclamation 警告 Exit Sub Else qxstr Executeqx 2 If qxstr readonly Then ss MsgBox 对不起 你是只读用户不能修改记 录 请与管理员联系 vbInformation vbOKOnly 警告 Exit Sub End If classmodi True Formclass1 Show Formclass1 classload Formclass1 ZOrder 0 Call Form Activate End If End Sub Private Sub cmdprint Click If Trim printstr Then sssss MsgBox 没有当前记录 vbOKOnly vbExclamation 警告 Exit Sub End If If DataEnv1 rsCommand2 State adStateOpen Then DataEnv1 rsCommand2 Close End If DataEnv1 rsCommand2 Open printstr If DataEnv1 rsCommand2 EOF True Then sssss MsgBox 没有当前记录 vbOKOnly vbExclamation 警告 Exit Sub End If DataReportclass2 Show 1 End Sub Private Sub cmdprintall Click If DataEnv1 rsCommand2 State adStateOpen Then DataEnv1 rsCommand2 Close End If DataEnv1 rsCommand2 Open select from class If DataEnv1 rsCommand2 EOF True Then sssss MsgBox 没有当前记录 vbOKOnly vbExclamation 警告 Exit Sub End If DataReportclass2 Show 1 End Sub Private Sub Form Activate If classfind True Then Formclass3 ZOrder 0 End If If classfind True Then Exit Sub ElseIf classmodi True Then classshowdata TreeView1 DblClick classmodi False Else classtree End If If classfind True Then Exit Sub Else MDIForm1 clabrowse End If End Sub Public Sub classtree TreeView1 Nodes Clear Dim nodex As Node Dim mrc As ADODB Recordset Dim mrc1 As ADODB Recordset Dim str As String Dim a As String a 年级 TreeView1 LineStyle tvwRootLines str select distinct 年级 from class order by 年级 Set mrc ExecuteSQL str str select distinct 年级 班级 from class order by 年级 班级 Set mrc1 ExecuteSQL str mrc MoveFirst Do Until mrc EOF mrc1 MoveFirst Set nodex TreeView1 Nodes add a mrc Fields 0 1 1 Do While Not mrc1 EOF If mrc1 Fields 0 mrc Fields 0 Then Set nodex TreeView1 Nodes add a tvwChild mrc1 Fields 1 2 2 End If mrc1 MoveNext Loop a a 1 mrc MoveNext Loop mrc1 Close mrc Close Set mrc Nothing Set mrc1 Nothing End Sub Private Sub TreeView1 DblClick On Error GoTo ss If TreeView1 SelectedItem Index 0 Then MSF1 Clear Exit Sub End If txtsql TreeView1 Nodes Item TreeView1 SelectedItem Index txtsql select from class where 年级 Trim txtsql or 班级 Trim txtsql order by 年级 班 级 printstr txtsql Me Caption 浏览班级 Me classshowtitle Me classshowdata Exit Sub MSF1 Clear End Sub 4 5 寝室信息管理界面 寝室信息管理模块包括住寝添加 人员助理 值日安排三项功能 其中人员助理中包括了查询 更新 删除等功能 另外 对于值日安排 可以使用下面程序来完成 If TextBox1 Text Then If Not IsNumeric Trim TextBox1 Text Then MsgBox 楼号应该输入数字 vbOKOnly vbExclamation 警告 TextBox1 Text TextBox1 Focus Return End If Else MessageBox Show 楼号不能为空 提示 TextBox1 Focus Return End If If TextBox2 Text Then If Not IsNumeric Trim TextBox2 Text Then MsgBox 楼层应该输入数字 vbOKOnly vbExclamation 警告 TextBox2 Text TextBox2 Focus Return End If Else MessageBox Show 楼层不能为空 提示 TextBox2 Focus Return End If If Trim TextBox3 Text Then MessageBox Show 房间不能为空 提示 TextBox3 Focus Return End If If Trim TextBox4 Text Then MessageBox Show 寝室长不能为空 提示 TextBox4 Focus Return End If If Trim TextBox5 Text Then MessageBox Show 值宿老师不能为空 提示 TextBox5 Focus Return End I