学生宿舍管理系统论文

XX大学 毕业 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 (论文) 学生宿舍管理系统 学 院 XXXXXXXXXXX 年级专业 XXXXXXXXXX 学生姓名 XXX 指导教师 XXX 专业负责人 完成日期 XXX年XX月 XX大学X科生毕业设计(论文) 摘 要 当今时代是飞速发展的信息时代，各行各业都离不开信息处理，然而，现今有许多高校仍然用手工对宿舍进行管理。而随着办学规模的不断扩大，学生人数越来越多，数据信息处理的工作量也日益增大，这种手工管理存在的弊端就会显现出来，如易出错，出错后不易修改;易丢失数据，而且不易查找等等。为了提高高校的整体管理水平，同时基于计算机在高校宿舍管理的应用也日趋普及，这使得建立学生宿舍管理系统成为必然的选择。针对这种现象设计了一套学生宿舍管理系统，学生宿舍管理系统采用的是计算机化管理，系统做的尽量人性化，使用者会感到操作非常方便，管理人员需要做的就是将数据输入到系统的数据库中去。由于数据库存储容量相当大，而且比较稳定，适合较长时间的保存，也不容易丢失。这无疑是为信息存储量比较大的学校提供了一个方便、快捷的操作方式。 关键词:学生宿舍管理系统;Visual Basic 6.0; Access数据库 I XX大学X科生毕业设计(论文) 目 录 摘 要 ........................................................... I 目 录 .......................................................... II 第1章 绪 论 .................................................... 1 第2章 系统分析 ................................................. 2 2.1 开发工具简介及系统运行环境 ............................... 2 开发的必要性 ............................................. 2 2.2 2.3 系统开发的可行性 ......................................... 3 2.3.1 技术上的可行性 ...................................... 3 2.3.2 经济上的可行性 ...................................... 3 2.3.3 组织管理上的可行性 .................................. 3 2.4 数据来源 ................................................. 3 第3章 数据库设计 ............................................... 5 3.1 E—R图.................................................. 5 3.2 表结构 ................................................... 7 功能模块设计 ............................................ 10 第4章 4.1 新系统功能结构图及运行图 ................................ 10 系统设置 ................................................ 12 4.2 4.2.1 用户管理 ........................................... 12 4.2.2 数据备份与还原 ..................................... 12 4.3 公寓管理 ................................................ 12 4.3.1 公寓设置 ........................................... 13 4.3.2 床位设置 ........................................... 13 4.4 卫生检查 ................................................ 13 4.4.1 卫生添加 ........................................... 13 4.4.2 卫生查看 ........................................... 13 4.4.3 卫生删除 ........................................... 13 4.5 学生违规 ................................................ 14 4.5.1 违规添加 ........................................... 14 4.5.2 违规查看 ........................................... 14 4.5.3 违规删除 ........................................... 14 4.6 学生请假 ................................................ 14 4.6.1 请假添加 ........................................... 15 请假查看 ........................................... 15 4.6.2 4.6.3 请假删除 ........................................... 15 第5章 程序设计 ................................................ 16 II XX大学X科生毕业设计(论文) 5.1 登录界面 ................................................ 16 5.1.1 登录图片 ........................................... 16 5.1.2 界面制作与实现 ..................................... 16 5.2 程序主界面 .............................................. 17 5.3 系统设置 ................................................ 18 5.3.1 用户管理 ........................................... 18 5.3.2 数据备份与恢复 ..................................... 18 5.4 公寓管理 ................................................ 19 5.4.1 公寓设置 ........................................... 19 5.5 卫生检查 ................................................ 22 5.5.1 卫生添加效果图 ..................................... 22 5.5.2 卫生查看 ........................................... 23 5.5.3 卫生删除 ........................................... 24 5.6 学生违规 ................................................ 25 5.6.1 违规添加 ........................................... 25 5.6.2 违规查看效果图 ..................................... 25 5.6.3 违规删除 ........................................... 26 5.7 学生请假 ................................................ 27 5.7.1 请假添加 ........................................... 27 5.7.2 请假查看 ........................................... 28 5.7.3 请假删除 ........................................... 28 结 论 .......................................................... 29 参考文献 ........................................................ 30 附录1:程序源代码 ............................................... 31 1 登陆窗体代码 .............................................. 31 2 窗体主代码 ................................................ 32 致 谢 .......................................................... 45 III XX大学X科生毕业设计(论文) 第1章 绪 论 随着电脑的普及与应用，现在的管理也需要提升一个档次。即从原来的手工记录管理模式转变为电脑一体化管理。这样会给宿舍的管理人员带来很多好处，让他们管理的效率更高、效果更好，管理起来更方便。由此而产生了本管理软件――学生宿舍管理软件。 学生宿舍管理软件是用Microsoft Visual Basic编写完成。由于Visual Basic率先采用了可视化(VISUAL)的程序设计方法。所以利用系统提供的大量可视化控件，可以方便的以可视化方式直接绘制用户图形界面，并可直观，动态的调整界面的风格和样式，直到满意为止，从而克服了以前必须用大量代码去描述界面元素的外观和位置的传统编程模式。做起来方便，使用起来更为快捷。 作为一个学生宿舍的管理软件，要十分全面的贴近以及适合大学宿舍的管理方法。本软件的参考资料主要有两种来源:一是参考本学校宿舍的管理结构，管理方法。如各个宿舍的分布特色，以及宿舍的各种 管理制度 档案管理制度下载食品安全管理制度下载三类维修管理制度下载财务管理制度免费下载安全设施管理制度下载 。这些资料是本软件的主要依据，也可以说这些资料来源于普通的生活，比较真实一些。二是来源于网络上的各种同类软件，通过这些软件可以看出一个宿舍最低需要哪些管理与设置，在这些软件中，有些软件功能比较齐全，但是在管理上显的非常的不方便，使用起来十分麻烦、繁琐，有些虽然简单，但是功能上又不是十分完善，对这些软件首先要进行取其精华，弃其糟粕，从而进行编写。 本软件主要包括以下方面:系统设置、公寓管理、卫生检查、学生违规、学生请假。 学生宿舍管理软件目前在功能上，以及操作的简便上有很大的改进。但是还是存在一些不足，在有些功能的实现上还不是十分的理想，这也是本人在时间和精力上留下的遗憾。但是相信这些会在以后的版本中得到完善，使这个软件成为一个功能上最全，使用上最简捷方便的管理软件。 1 XX大学X科生毕业设计(论文) 第2章 系统分析 系统采用MICROSOFT公司的 VISUAL BASIC语言编写的学生公寓管理系统,本系统在研制开发过程中，严格遵循软件工程方法，完全采用结构化程序设计方法。 本系统的主要功能可以方便的对学生公寓进行管理，系统采用ACCESS数据库使数据具有较强的完整性、较好的数据安全性等特点以及提供了 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 的帮助，使用户方便的获得所需的帮助。界面友好、操作简单、功能齐全、具有较好的人机接口界面是本系统的最大优点。 2.1 开发工具简介及系统运行环境 本软件的开发工具为VISUAL BASIC，作为一种开发语言，VISUAL BASIC率先采用了可视化(VISUAL)的程序设计方法。利用系统提供的大量可视化控件，可以方便的以可视化方式直接绘制用户图形界面，并可直观、动态的调整界面的风格和样式，直到满意为止，从而克服了以前必须用大量代码去描述界面元素的外观和位置的传统编程模式。 它还拥有面向对象的编程方法。面向对象的程序设计是伴随WIDNOWS图形界面的诞生而产生的一种新的程序设计思想，与传统程序设计有着较大的区别，VISUAL BASIC采用了面向对象的程序设计思想。所谓“对象”就是现实生活中的每个一人，每一个可见的实体。同样，在VISUAL BASIC中，用来构成用户图形界面的可视化控件，也可视为是一个对象。不同的对象，在程序中所赋给它的功能是不同的，比如，在图形界面上有两个命令按钮，一个用来实现数据的统计计算，另一个用来实现数据的打印，这两个按钮就可视为是两个不同的对象，为了实现这两个对象各自不同的功能，接下来就应该分别针对这两个对象编写程序代码，这种编程的思想和方法即为所谓的“面向对象的程序设计”。 它还支持第三方软件商为其开发的可视化控制对象，如本例中就用到了一个。这些可视化控件对应的文件扩展名这OCX。只要拥有控件的OCX文件，就可将其加入到VB系统中，从而大大增强VB的编程实力。使软件做起来会更加得心应手。 2.2 开发的必要性 信息资源已成为各个部门的重要财富和资源，建立一个满足各级部门信息处理需要的信息系统，也一个企业或组织生存越来越重要的信息资源。长期以来，使用传统人工的方法管理高校公寓，这种管理方式存在着许多缺点，如:效率低。而且时间一长，将产生大量的文件和数据，这对于查找、更新、 2 XX大学X科生毕业设计(论文) 维护都带来了不少的困难。 随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥越来越重要的作用。学生宿舍管理软件，是以高校的管理方式为实例而设计的一种实用型管理软件。 本系统最大的特点是通用性、简单操作性。随着学校寄宿人员的增多，宿舍管理人员的负担越来越重，为了让所有宿舍管理人员能从繁重的工作中解脱出来，实现无纸化办公，使工作更有条理、更方便、更有效率，而开发出这套宿舍管理软件。 2.3 系统开发的可行性 2.3.1技术上的可行性 我们正走进一个信息时代，信息技术将从根本上改变人类社会的生产方式和生活方式，各行各业的业务管理现在都已经相继使用计算机来处理，可以说用计算机进行信息管理是一个总趋势。学生宿舍管理软件主要是对公寓、寝室的配置、卫生检查、学生违纪以及对学生住宿情况查询，修改，更新等。可以更快地了解到每个学生的住宿情况。开发一个学生宿舍管理系统可以达到事半功倍的效果。随着数据库管理系统的普及以及可视化编程软件的出现，使数据库管理信息系统的开发变得更为简单，因此开发一个学生宿舍管理系统是完全可行的。 2.3.2经济上的可行性 本单位有自己的微机室可以使用，不必重新购置计算机，不需要花费大量资金，是一个节约人力物力的好办法。 2.3.3组织管理上的可行性 本单位的领导干部具有较高的素质，它们对管理现代化有较高的认识水平，并且有各级领导的大力支持和重视。 综上所述，建立一个学生宿舍管理软件与人工操作相比具有速度更快，操作更准确，更节约开支等有利之处，因此建立一个学生宿舍管理软件是必要可行。 2.4 数据来源 作为一个学生宿舍的管理软件，要十分全面的贴近以及适合大学宿舍的管理方法。本软件的参考资料主要有两种来源:一是参考本学校宿舍的管理结构，管理方法，这些资料是本软件的主要依据，也可以说这些资料来源于普通的生活，比较真实一些。二是来源于网络上的各种同类软件，通过这些软 3 XX大学X科生毕业设计(论文) 件可以看出一个宿舍最低需要哪些管理与设置，在这些软件中，有些软件功能比较齐全，但是在管理上显的非常的不方便，使用起来十分麻烦、繁琐，有些虽然简单，但是功能上又不是十分完善，对这些软件首先要进行取其精华，弃其糟粕，从而进行编写。 4 XX大学X科生毕业设计(论文) 第3章 数据库设计 3.1 E—R图 E-R实体关系图如图3-1所示: 1 学 生 处 1 管 理 管 理 N 1 N N 有 学 生 班 级 N N 管 理 住宿 1 公寓管理员 1 管 理 1 寝 室 N 图3-1 E-R图 学生情况实体图如图3-2所示: 姓名 性别 备注 学号 个人电话 学生情况 班级 年制 公寓 入学时间 寝室 图3-2 学生情况实体图 5 XX大学X科生毕业设计(论文) 公寓实体图如图2-3所示: 请假情况实体图如图2-4所示: 日期 姓名 公寓名称 备注 班级 公寝室号 学生请假情况 老师 寓 公寓 寝室 原因 寝室 天数 图3-3 公寓实体图 图3-4 请假情况实体图 违规情况实体图如图2-5所示: 日期 姓名 备注 班级 处罚 违规情况 公寓 程度 寝室 原因 图3-5 违规情况实体图 6 XX大学X科生毕业设计(论文) 卫生情况实体图如图3-6所示: 备注 日期 等级 公寓 减分 卫生情况 得分 寝室 检查 图3-6 卫生情况实体图 3.2 表结构 信息的数量越来越大，数据库的作用越发突出,所以数据库的建立是系统施实的主要部分之一，它关系到整个系统的运行情况，是整个系统的重要组成部分。本系统数据库为:学生宿舍管理信息.mdb，在数据库中包括九个表。分别是:用户表、公寓表、班级表、寝室表、卫生等级表、学生基本情况表、学生请假情况表、学生违规情况表、寝室卫生情况表。下面介绍几个主要的表: 1. 学生基本情况表主要是存放学生的基本情况，字段包括:姓名、性别、学号、班级、公寓、寝室、入学时间、年制、寝室电话、个人电话、备注。数据结构如表3-1所示. 表3-1 学生基本情况表的数据结构 字段名 数据类型 数据长度 8 姓名 文本 2 性别 文本 10 学号 数值 10 班级 文本 20 公寓 文本 10 寝室 数值 14 入学时间 日期/时间 8 年制 文本 15 个人电话 数值 7 XX大学X科生毕业设计(论文) 50 备注 文本 2. 学生请假情况表主要存放学生请假情况，字段包括:日期、姓名、班级、公寓、寝室、天数、原因、老师、备注。数据结构表3-2所示. 表3-2 学生请假情况表的数据结构 字段名 数据类型 数据长度 14 日期 日期/时间 8 姓名 文本 10 班级 文本 20 公寓 文本 10 寝室 数值 10 天数 数值 50 原因 备注 8 老师 文本 50 备注 备注 3. 学生违规情况表主要存放学生违规情况，字段包括:日期、姓名、班级、公寓、寝室、原因、程度、处罚、备注。数据结构表3-3所示. 表3-3 学生违规情况表的数据结构 字段名 数据类型 数据长度 14 日期 日期/时间 8 姓名 文本 10 班级 文本 20 公寓 文本 10 寝室 数值 50 原因 文本 50 程度 文本 50 处罚 文本 50 备注 文本 4. 卫生情况表主要存放寝室卫生情况，字段包括:日期、公寓、寝室、检查1到5、得分、减分、等级、备注。其中检查1到5是为了在没有使用者想输入的记录的情况下自己输入而设计的，保证了系统的可修改性、可扩展性。数据结构表3-4所示. 8 XX大学X科生毕业设计(论文) 表3-4 学生卫生情况表的数据结构 字段名 数据类型 数据长度 14 日期 日期/时间 20 公寓 文本 10 寝室 数值 40 检查1 文本 40 检查2 文本 40 检查3 文本 40 检查4 文本 40 检查5 文本 4 得分 数值 9 XX大学X科生毕业设计(论文) 第4章 功能模块设计 4.1 新系统功能结构图及运行图 系统功能结构图如图4-1所示. 用户管理 备份还原 系统设置 退出 公寓设置 公寓设置 床位查看 用 卫生添加 户 卫生检查 卫生检查 登 录 卫生删除 违规添加 学生违规 违规检查 违规删除 请假添加 学生请假 请假查看 请假删除 图4-1 系统功能结构图 系统功能结构图运行图如图4-2所示. 10 XX大学X科生毕业设计(论文) 图4-2系统功能结构运行图 经过系统分析，确定了本软件主要包括以下方面:系统设置、公寓管理、 卫生检查、学生违规、学生请假、帮助。 系统流程图如图4-3所示. 否 是 分配权限 是否合法 用户或管理员 操普管 作通理分配 模用员 块户用 权户数 据 限 权 限 操作所有模块 操作部分模块 系公卫学学系公学卫学用 统寓生生生统寓生生生户 设管检违请设管请检违管 置 理 查 规 假 置 理 假 查规 理 图4-3 系统流程图 11 XX大学X科生毕业设计(论文) 4.2 系统设置 主要完成:用户管理、公寓设置、数据备份与还原、退出的功能。 运行图如图4-4所示. 图4-4 系统设置运行图 4.2.1用户管理 可以进行管理人员的添加和修改以及删除操作。添加人员可以分为两类:普通用户、管理员。可以视不同人员而添加。管理员拥有所有权力，对整个系统的操作。普通用户只有浏览、及一些简单的操作权力。无用户设置、公寓设置、记录添加及记录删除等权力。 4.2.2数据备份与还原 这是一个数据管理软件所必不可少的一部分，利用它可以及时的备份当前的数据库以及在出现故障后利用已保存的数据进行恢复。 4.3 公寓管理 主要完成:公寓设置、床位查看的功能。 运行图如图4-5所示.: 图4-5 公寓管理运行图 4.3.1公寓设置 分为三个主要的操作:公寓设置、寝室设置、班级设置。在这里可以添加学校所有的公寓、所有班级、每个公寓的所有寝室,也可以用此软件管理一幢公寓。这样操作起来会更简单、操作一目了然。 12 XX大学X科生毕业设计(论文) 4.3.2床位设置 通过床位设置可以简单查看每个公寓每个寝室的床位使用情况以及床位剩余情况。还可以通过详细查看，查看到某个公寓某个寝室住宿人员的人数，以及具体的住宿人员的名字。 4.4 卫生检查 主要完成:卫生记录添加、查看、删除。 运行图如图4-6所示. 图4-6卫生检查运行图 4.4.1卫生添加 可以对卫生检查的结果进行记录。这里的卫生标准一共有五项可以填写，在每一项里已经基本设置了所不合标准的记录，你可以在下拉列表框中进行选择即可，但是如果没有你想输入的记录的话，也可以自己输入。 4.4.2卫生查看 主要是对卫生检查记录的查看。 4.4.3卫生删除 主要是对卫生检查记录的删除。 4.5 学生违规 主要完成:学生违规记录的添加、查看、删除 13 XX大学X科生毕业设计(论文) 运行图如图4-7所示. 图4-7学生违规运行图 4.5.1违规添加 主要是对学生违规现象进行记录。 4.5.2违规查看 主要是对学生违规现象记录的查看。 4.5.3违规删除 主要是对学生违规现象记录的删除。 4.6学生请假 主要完成:学生请假记录的添加、查看、删除 运行图如图4-8所示. 图4-8学生请假运行图 4.6.1请假添加 主要是对学生请假现象进行记录。 4.6.2请假查看 主要是对学生请假现象记录的查看。 4.6.3请假删除 主要是对学生请假现象记录的删除。 14 XX大学X科生毕业设计(论文) 第5章 程序设计 5.1 登录界面 登录界面的设计可以说各种各样，有些人做出来的可能会看起来非常华丽，本人最后选择了这种比较简单的做法，它看起来干净，整齐，简便并加上本学校的一幢宿舍楼照片，自己对照片稍微进行了修改，以便使登录的按钮容易看到，让人一目了然。 5.1.1登录图片 登录界面如图5-1所示. 图5-1登录界面 5.1.2界面制作与实现 在这个界面中，主要处理的是判断当前用户输入的信息是否正确。如果正确，那么它属于哪种类型用户。因为此管理软件在登录后不同类型的用户显示的窗体与实现的功能都不是一样的，它们会有所差别～ 用户类型判断: 在数据库中建了一人yonghu表。在添加管理人员时有两种默认级别。管理员、普通用户。管理员拥有对数据库操作的一切权限。普通用户只有普通 15 XX大学X科生毕业设计(论文) 的查看，数据备份等。没有添加、删除等操作功能。前用户成功登录后，会在主窗体的状态栏中显示出当前用户及其用户类型。 5.2 程序主界面 程序主界面为本软件的显示的核心部分。一切主要操作及显示都通过这里完成。整个界面主要由五部分组成。菜单部分、工具栏、左侧操作栏、右侧显示栏以及状态栏，界面效果图如5-2所示. 图5-2程序主界面 菜单栏的详见后面内容，这里就不提了。左侧操作栏和右侧显示栏会在下面的内容中做介绍，现在只简单介绍一下工具栏和状态栏，以及主窗体的各个事件。 工具栏主要是由toolbar制作而成。由它制做的工具栏的显示效果会更有立体感一些。这里只列出了几个常用的按钮。其中的添加按钮是用来对公寓住宿人员进行添加，修改也是对所住宿人员进行修改，想要进行修改时必须显示所有记录时才可以进行。在这里值得一提的是删除DataGrid的操作，由于不知道它的当前数据源是哪个，所以在删除前要确定它的数据源，也就是 16 XX大学X科生毕业设计(论文) 它所链接的adodc1的数据源，或者是其它ado控件对它的数据源进行重新绑定后的数据库表，也有可能是经过一个查询后得到的记录 5.3 系统设置 5.3.1用户管理 (1) 界面效果图如图5-3所示. 图5-3用户管理窗体 (2)界面制作与实现方法 这个界面总体来说各个控件比较简单，但是作为一个添加删除管理员的操作，它已经连接到了数据库，与数据库的yonghu表相联。各个控件也与数据库中表的字段绑定。 在窗体初始化的时候要判断当前数据库表中是否有记录，如果没有记录那么有些按钮将会被设置成为失效状态，否则会出现错误。 5.3.2数据备份与恢复 数据备份是一个数据库软件必不可少的一部分，利用它可以把当前数据库表进行全面的备份，以备以后使用。因为在操作中可能会导致数据遭到破坏，或者是系统的原因使数据库损坏，或者是一些其它的人为原因，这样你可以用此功能把数据恢复到最后一次备份的状态，使损失做到最少，经常备份，操作起来更有安全感。 (1)数据备份效果图如图5-4所示. 17 XX大学X科生毕业设计(论文) 图5-4数据备份效果图 (2)功能实现 界面制作相对程序来说比较简单，用到的是coolbar控件，点击按钮可以选择备份路径。然后点击数据备份即可。 说明:本程序中此部分内容参考了网上的同类型代码，对其进行修改后得到此成型作品，从功能上来讲，它已经实现了它所要完成的工作，经过测试已经没有问题，但是实现的源代码，也只有部分掌握。这实属本人精力与能力有限所置。 5.4 公寓管理 5.4.1公寓设置 公寓设置可以说是本程序中一关键部分。因为所有的设置都在此进行。包括公寓添加、修改、删除。寝室的添加、修改、删除以及班级的添加、修改和删除操作。只有正确的对这些设置进行添加修改，才能输入正确的记录。这里主要涉及到的问题是datagrid的显示，以及treeview及时形成新的结构。还有一些就是对表记录的复杂操作。 在点击sstab各版的时候，要在这时重新生成寝室设置中的树型结构， (1)公寓设置 ? 公寓设置效果图如图5-5所示. 18 XX大学X科生毕业设计(论文) 图5-5公寓设置 ? 界面制作与实现方法 在这个界面中主要用到了一个Sstab控件与一个显示表中内容的Datagrid控件。以及起到美观作用的Frame控件。 在右下角的文本框中可以输入想要添加的公寓名称。然后点击添加即可完成添加操作。Datagrid中会立即刷新显示更新内容。要修改某条记录时，要先对所要修改的记录进行选择，确认选择后，点击下面的修改按钮，会在下面的文本中显示出所要修改公寓的名称，此时即可输入要修改的名字。然后点击更新就会完成此操作。Datagrid也会即时更新其内容。删除操作更为简单，选择想要删除的公寓名称，点击删除，确认后完成此操作。但是删除后不会影响其它表中的数据。其它表的有关此公寓的信息还会存在。 在进行所有操作前，先要确定数据库已连接。 在添加前要判断所写公寓名称是否正确，即是否输入名称，该记录不能为空，不为空则对数据库表进行查找，判断当前输入记录是否已在表中存在，如果已存在，则会给出提示，不存在，添加成功. (2) 寝室设置 ?寝室设置效果图如图5-6所示. 19 XX大学X科生毕业设计(论文) 图5-6寝室设置 ?界面制作与实现方法 此界面实现相对比公寓设置来说相对复杂一些。用到的控件主要是Sstab与Treeview。但是在程序方面比较复杂。 在添加一个寝室前先要选择所要添加寝室所在的公寓。这个公寓可以点击下面的树中的节点，也可以在列表框中选择。树中的节点在点击后会把父节点显示在选择公寓后面的列表框中，而选中的节点会出现在寝室名称里。你也可以自己进行添写，确认公寓后即可添加完成了。添加后会把Treeview重新刷新一下。以显示更新后的记录。 (3)班级设置 ?班级设置效果图如图5-7所示. 20 XX大学X科生毕业设计(论文) 图5-7班级设置 ?界面制作与实现方法 此界面制作与公寓设置基本一致。在这个界面中主要用到了一个Sstab控件与一个显示表中内容的Datagrid控件。以及起到美观作用的Frame控件。 在右下角的文本框中可以输入想要添加的班级名称。然后点击添加即可完成添加操作。Datagrid中会立即刷新显示更新内容。要修改某条记录时，要先对所要修改的记录进行选择，确认选择后，点击下面的修改按钮，会在下面的文本中显示出所要修改班级的名称，此时即可输入要修改的名字。然后点击更新就会完成此操作。Datagrid也会即时更新其内容。删除操作更为简单，选择想要删除的班级名称，点击删除，确认后完成此操作。 5.5 卫生检查 公寓卫生可以说是一个公寓管理中最常见到的问题了。公寓卫生每天要清扫，寝室卫生每天要检查，但是如果这些都用纸来进行填写，一定会十分麻烦，且保存也不是十分方便，在一些评比中也会忙的很遭。所以在这个软件中编写了此功能。 5.5.1卫生添加效果图 卫生添加效果图如图5-8所示. 21 XX大学X科生毕业设计(论文) 图5-8公寓卫生添加效果图 在这个界面中主要用到了文本框以及起到美观作用的frame控件。 日期已经设置成只读属性，检查记录的日期是不能随便改写的。公寓名称可以在下拉列表框中进行选择，如果在下拉列表框中没有发现，可以人工输入，但是要确定公寓名称的正确性。寝室名称需要自己输入。这里的卫生标准一共有五项可以填写，在每一项里已经基本设置了所不全标准的记录，你可以在下拉列表框中进行选择即可，但是如果没有你想输入的记录的话，你也可以自己输入。输入完成后，在减分后面的文本框中输入一共要对此寝室减掉的分数，单击得分后面的文本框会自动算出应该得到的分数。然后跟据得分的分数，你要选择该寝室的卫生等级，卫生等级为必选值且为固定值，正确的选择此项可以在主界面的左侧中快速对卫生等级进行查看。 5.5.2卫生查看 界面效果图如图5-9所示. 22 XX大学X科生毕业设计(论文) 图5-9卫生查看效果图 5.5.3卫生删除 (1)效果图如图5-10所示. 图5-10卫生删除效果图 (2)界面制作与实现方法 这个界面总体来说各个控件比较简单，但是作为一个删除操作，它已经连接到了数据库，与数据库的表相联。且有三种删除记录方式可以选择。 默认为单条删除，选择此项后需要在日期中选择所删除记录的添加日期，以及所在的公寓与寝室，当这三条全部符合要求后，在表中进行查找，找到后确认删除。选择批量删除后，在下面只有一个日期可以选择，这样将会把所选日期内的所有记录都将删除掉，所以称其为批量删除。全部即是把当前表清空，全部删除掉，建议使用此操作前对当前数据库进行备份处理，否则数据将不会恢复。首先要进行数据库连接，如上面例子所示，这里就不在介绍. 23 XX大学X科生毕业设计(论文) 5.6 学生违规 5.6.1违规添加 学生违规记录添加图片如图5-11所示. 图5-11学生违规效果图 此它主要是对学生的违规记录做一个添加。其中的日期是系统当前的日期，它是不可以进行更改的，然后在其它文本框中输入其它详细资料即可以这里的违规操作用的也是Adodc控件，所有的文本框在初始的时候也没有同Adodc绑定，它也是在代码中与数据库中表的字段进行的绑定，然后进行添加操作。其它操作同上面基本是一致的，对于违规在主界面的左侧并没有快速显示操作，只可以用记录查看里面的违规查看进行选择查看。在这里所添写的记录也要全面一些，主要是为了以后查找更为方便，如果不全，系统会提示的～ 5.6.2违规查看效果图 学生违规记录查看图片如图5-12所示. 24 XX大学X科生毕业设计(论文) 图5-12违规查看效果图 目前此类功能还不是十分理想，有些查看方式会在以后的程序中进行升级。 在Load事件设置了窗体运行时所有需要的东西。 5.6.3违规删除 (1) 学生违规删除查看图片如图5-13所示. 图5-13违规记录删除效果图 (2) 界面制作与实现方法 这个窗体与卫生删除不同的是多了一个姓名条件，其它的都基本一致。由于在一个公寓中会有很多人要得名，但是在某一公寓某一寝室中只会有一个人，这也是一个公寓分配住宿人员时的基本标准，因为这样也便于公寓本身 25 XX大学X科生毕业设计(论文) 的管理。 5.7 学生请假 5.7.1请假添加 (1) 学生请假记录图片如图5-14所示. 图5-14学生请假效果图 (2) 界面制作与实现 此界面主要是对学生请假记录做一个添加。利用它可以把学生的基本的请假资料保存起来。其中的日期是系统当前的日期，它是不可以进行更改的，然后在其它文本框中输入其它详细资料即可以。这里的添加操作用的是Adodc控件，所有的文本框在初始的时候没有同Adodc绑定，而是在代码中与数据库中表的字段进行的绑定，然后进行添加操作。这样做在使用的时候有很大的方便之处。第一是窗体在初始化时不会显示任何记录，不用设置文本框为空等一系列的操作。第二是当进行记录输入时，发现问题不用输入时，不按添加按钮记录就不会进行添加。注意的是，在添加前要确定所有的文本框都要进行详细填写，否则会提示输入详细信息。 5.7.2请假查看 学生请假查看图片如图5-15所示. 26 XX大学X科生毕业设计(论文) 图5-15请假查看效果图 用它可以对当前所有记录以及有效日期内的记录进行查看。 5.7.3请假删除 学生请假删除图片如图5-16所示. 图5-16请假记录删除效果图 27 XX大学X科生毕业设计(论文) 结 论 这次的毕业论文是我大学的一次非常重要的理论与实际相结合的运用，在设计和开发过程中，我摆脱了单纯的理论知识学习状态，和实际设计的结合锻炼了我的综合运用所学的专业基础知识，解决实际问题的能力，同时也提高我查阅文献资料、设计手册、设计 规范 编程规范下载gsp规范下载钢格栅规范下载警徽规范下载建设厅规范下载 等其他专业能力水平，而且通过对整体的掌控，对局部的取舍，以及对细节的斟酌处理，都使我的能力得到了锻炼， 经验 班主任工作经验交流宣传工作经验交流材料优秀班主任经验交流小学课改经验典型材料房地产总经理管理经验 得到了丰富。 本系统的优点是对学生的宿舍情况进行统一的管理。本信息管理系统有也一些不足之处。如界面设计过于单调，应该加入一些按键图标，使其更生动;必须让具有一定计算机操作基础的人员使用，以免操作错误;设计代码有些复杂等不足之处。有待于本人加强。因此，我要在以后的工作学习不断的完善自我，丰富自己的专业知识，使本系统功能更加完善。 这次毕业设计，是将以前所学的知识有机地结合起来，同时也暴露出自己专业基础的很多不足之处。这次实践是对自己大学四年所学的一次大检阅，使我明白自己知识还很浅薄，虽然马上就要毕业了，但是自己的求学之路还很长，以后更应该在工作中学习，努力使自己成为一个对社会有所贡献的人。 28 XX大学X科生毕业设计(论文) 参考文献 1. 王栋.Visual Basic 程序设计.北京 :清华大学出版社. 2000 2. 王栋.Visual Basic 教程.北京:清华大学出版社.1998 3. 何斌 .王运坚.Visual Basic 6.0应用指南.北京:人民邮电出版社.2003 4. 陈 明.杨劲松.Visual Basic 高级编程技术.北京:北京希望电子出版社.2003 5. 赵杰.杨丽丽.数据库原理与应用(第二版).北京:人民邮电出版社.2004 6. 潘锦平.施小姚.软件系统开发技术.西安:西安电子科技大学出版.2004 29 XX大学X科生毕业设计(论文) 附录1:程序源代码 1 登陆窗体代码 Dim provider As String Dim datasource As String provider = "provider=Microsoft.jet.oledb.4.0" datasource = "data source=" & App.Path & "\学生宿舍管理信息.mdb" With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider & ";" & datasource .CommandType = adCmdTable .RecordSource = "yonghu" .Refresh .Recordset.MoveFirst End With 对用户进行判断 If Text1.Text = "" Then MsgBox "请输入用户名!", 48, "提示" Exit Sub End If Adodc1.Recordset.Find "用户='" & Text1.Text & "'" If Adodc1.Recordset.EOF = False And Text2.Text = Trim(Adodc1.Recordset.Fields("pass")) Then main.Text1.Text = Adodc1.Recordset.Fields("级别") main.Text2.Text = Adodc1.Recordset.Fields("用户") main.Show Unload Me Else Text1.Text = "" Text2.Text = "" 30 XX大学X科生毕业设计(论文) MsgBox "登录不成功,请重新登录!", 48, "提示" End If 2 窗体主代码 Dim o As Adodc Set o = DataGrid1.datasource o.Recordset.Delete o.Recordset.Update 这里主要是用到了ado对像的方法。用这个方法得到数据源。 下面是整个工具栏运行时代码: Select Case Button.Index Case 1 sel.Show 1 Case 3 add.Show 1 Case 5 On Error GoTo next2 Dim s As Adodc Set s = DataGrid1.datasource If s.RecordSource = "users" Then edit.Show 1 End If next2: Case 7 On Error Resume Next Dim o As Adodc Set o = DataGrid1.datasource o.Recordset.Delete o.Recordset.Update Case 9 back.Show 1 31 XX大学X科生毕业设计(论文) Case 11 With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider & ";" & datasource .CommandType = adCmdTable .RecordSource = "users" ' .Refresh End With Set DataGrid1.datasource = Adodc1 DataGrid1.Refresh Call dx Case 13 Unload Me End Select 状态栏分四个部分。第一个为固定显示当前所用软件名称。其中第二个和第三部分为动态显示的，它会显示出每次用户登录名称及其管理模式。123为本软件管理员。第四部分为日期与时间的显示。其中第三部分的代码实现如下: main.Text1.Text = Adodc1.Recordset.Fields("级别") ") main.Text2.Text = Adodc1.Recordset.Fields("用户 StatusBar1.Panels(2).Text = "当前用户:" & Text2.Text StatusBar1.Panels(3).Text = "用户模式:" & Text1.Text StatusBar1.Panels(4).Text = Date & " " & Time '设置普通用户模式 If Text1.Text = "普通用户" Then yhgl.Visible = False sycw.Visible = False addjc.Visible = False wsjl.Visible = False xswg.Visible = False wgjl.Visible = False xsqj.Visible = False 32 XX大学X科生毕业设计(论文) qjjl.Visible = False g1.Visible = False g3.Visible = False g4.Visible = False g5.Visible = False g6.Visible = False g7.Visible = False g8.Visible = False g9.Visible = False Toolbar1.Buttons(5).Visible = False Toolbar1.Buttons(6).Visible = False Toolbar1.Buttons(7).Visible = False Toolbar1.Buttons(8).Visible = False End If 主窗体在程序运行中会遇到不断改变其大小，最小化，最大化，以及用鼠标来改变， 这里需要在窗体的Resize事件中添加代码，让程序中用到的各个控件随时可以适应窗体 改变后的大小，在这里改变的控件主要有DataGrid、TreeView系列及Frame控件、 StatusBar。下面就是设置它们大小的程序代码: DataGrid1.Width = main.Width - SSTab1.Width DataGrid1.Height=main.Height - StatusBar1.Height - CoolBar1.Height - 750 SSTab1.Height = main.Height - StatusBar1.Height - CoolBar1.Height - 750 Frame1.Height = main.Height - StatusBar1.Height - CoolBar1.Height - 1200 Frame2.Height = main.Height - StatusBar1.Height - CoolBar1.Height - 1200 Frame3.Height = main.Height - StatusBar1.Height - CoolBar1.Height - 1200 TreeView1.Height=main.Height - StatusBar1.Height - CoolBar1.Height - 1500 TreeView2.Height=main.Height - StatusBar1.Height - CoolBar1.Height - 1500 TreeView3.Height=main.Height - StatusBar1.Height - CoolBar1.Height - 1500 Y = main.Width x = (Y - z) / 4 StatusBar1.Panels(1).Width = u + x StatusBar1.Panels(2).Width = v + x 33 XX大学X科生毕业设计(论文) StatusBar1.Panels(3).Width = w + x StatusBar1.Panels(4).Width = m + x 这个软件的主要部分都在这里运行、查看，所以在主窗体的load事件里要把所用的 东西都要加载进来，例如所在程序运行时所用到的表，左侧treeview部分树形显示到的 的初始化。在这里几乎用到了所有的表，如下所示: provider = "provider=Microsoft.jet.oledb.4.0" datasource = "data source=" & App.Path & "\学生宿舍管理信息.mdb" With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider & ";" & datasource .CommandType = adCmdTable .RecordSource = "users" ' .Refresh End With With Adodc2 .Mode = adModeReadWrite .ConnectionString = provider & ";" & datasource .CommandType = adCmdTable .RecordSource = "gongyu" .Refresh End With With Adodc3 .Mode = adModeReadWrite .ConnectionString = provider & ";" & datasource .CommandType = adCmdTable .RecordSource = "class" .Refresh End With 34 XX大学X科生毕业设计(论文) With Adodc4 .Mode = adModeReadWrite .ConnectionString = provider & ";" & datasource .CommandType = adCmdTable .RecordSource = "weisheng" .Refresh End With With Adodc5 .Mode = adModeReadWrite .ConnectionString = provider & ";" & datasource End With With Adodc6 .Mode = adModeReadWrite .ConnectionString = provider & ";" & datasource .CommandType = adCmdTable .RecordSource = "dengji" .Refresh End With With Adodc7 .Mode = adModeReadWrite .ConnectionString = provider & ";" & datasource .CommandType = adCmdTable .RecordSource = "qinshi" .Refresh End With treeview部分树形显示的初始化在这里已经做了几个过程，调用即可。 Dim provider As String Dim datasource As String 35 XX大学X科生毕业设计(论文) provider = "provider=Microsoft.jet.oledb.4.0" datasource = "data source=" & App.Path & "\学生宿舍管理信息.mdb" With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider & ";" & datasource .CommandType = adCmdTable .RecordSource = "yonghu" .Refresh End With Option1.Enabled = False Option2.Enabled = False If Adodc1.Recordset.RecordCount = 0 Then Command2.Enabled = False Command3.Enabled = False Command5.Enabled = False Command6.Enabled = False End If Text2.Text = Text3.Text 上一条与下一条的功能一目了然，它们可以对当前表进行上一条记录或下一条记录依次查看。当找到记录后，可以对其进行相对的删除、修改等操作。上一条记录与下一条的记录在查看时有一个判断。当表中记录移到最前面(BOF)或最后面(EOF)时，会把上一条或下一条其中的一个按钮的enable属性设置为true。即不可以前查看或向后查看。 上一条与下一条主要代码如下: Adodc1.Recordset.MovePrevious '移动记录 Command6.Enabled = True If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Command5.Enabled = False End If Adodc1.Recordset.MoveNext '移动记录 36 XX大学X科生毕业设计(论文) Command5.Enabled = True If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Command6.Enabled = False End If 添加用户可以添加使用该管理软件的用户。添加的时候可以选择所添加人物的级 别。软件默认为两个级别:管理员、普通用户。管理员拥有对此软件管理操作等一切的 权力。普通用户，只有普通的查看、查询、备份、添加等权力。没有对记录删除等权力。 在添加用户时你可以选择一个且必须选择一个。然后输入此用户的用户名和密码即可～ 添加用户主要代码: If Command1.Caption = "添加" Then Command2.Enabled = False Command5.Enabled = False Command6.Enabled = False Command1.Caption = "确定" Command3.Caption = "取消" Adodc1.Recordset.AddNew Option1.Enabled = True Option2.Enabled = True Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text2.Text = "" ElseIf Text1.Text = "" Then MsgBox "用户名不能为空～", 48, "提示" ElseIf Text2.Text = "" Then MsgBox "密码不能为空～", 48, "提示" ElseIf Text2.Text <> Text3.Text Then MsgBox "密码两次需一致～", 48, "提示" ElseIf Text4.Text = "" Then MsgBox "请选择所建用户类型～", 48, "提示" 37 XX大学X科生毕业设计(论文) Else Command2.Enabled = True Command3.Enabled = True Command5.Enabled = True Command6.Enabled = True Command3.Caption = "编辑" Command1.Caption = "添加" Adodc1.Recordset.Update Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Option1.Value = False Option2.Value = False Option1.Enabled = False Option2.Enabled = False End If 删除操作可以把当前记录删除掉。一经删除即不可以在恢复。所以在操作前要想好。 删除操作部分代码: If Adodc1.Recordset.RecordCount = 1 Then Command2.Enabled = False End If If (MsgBox("你真的想删除当前记录吗,", vbOKCancel, "系统提示")) = vbOK Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveFirst Adodc1.Refresh End If 编辑操作可以对当前所选择的用户进行编辑，可以修改其用户名与密码。当当前用 户感觉自己用户名称或密码有泄露时，可以进行修改。修改记录即更新表中的某一条记 录。 编辑操作主要代码如下: 38 XX大学X科生毕业设计(论文) Command2.Enabled = False Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Option1.Enabled = True Option2.Enabled = True Command1.Caption = "确定" ElseIf Command3.Caption = "取消" Then Command3.Caption = "编辑" Command1.Caption = "添加" Command2.Enabled = True Command5.Enabled = True Command6.Enabled = True Text2.Text = Text3.Text Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Option1.Value = False Option2.Value = False Option1.Enabled = False Option2.Enabled = False End If Dim cnn1 As ADODB.Connection Dim rstschema As ADODB.Recordset Dim strcnn As String Set cnn1 = New ADODB.Connection strcnn = "provider=Microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\学生宿舍管理 信息.mdb" cnn1.Open strcnn 39 XX大学X科生毕业设计(论文) Set rstschema = cnn1.OpenSchema(adSchemaTables) Do Until rstschema.EOF temp = rstschema!Table_Name If Left(temp, 1) <> "M" Then End If rstschema.MoveNext Loop cnn1.Close On Error GoTo err PathName = App.Path & "\学生宿舍管理信息.MDB" dbasize = FileLen(PathName) err: Exit Sub 数据备份部分在本程序中用到了一个模块，在模块中有一个方法，dobackup。点击备份按钮后开始备份，代码如下: If txtDestination <> "" Then DoBackup PathName, txtDestination MsgBox "备份成功～", , "提示" ElseIf txtDestination = "" Then MsgBox "You must specify a distination for the backup", vbCritical 其中DoBackup为模块中已定义的方法，在这里进行调用。 Dobackup实现方法代码如下所示: Dim lFileOp As Long Dim lresult As Long Dim lFlags As Long Dim SHFileOp As SHFILEOPSTRUCT Dim strSourceDir As String Dim strDestinationDir As String Screen.MousePointer = vbHourglass BackupFolderName = strDestinationPath MkDir BackupFolderName & "\Backup - " & Format(Date, "yyyy.mm.dd") 40 XX大学X科生毕业设计(论文) lFileOp = FO_COPY lFlags = lFlags And Not FOF_SILENT lFlags = lFlags Or FOF_NOCONFIRMATION lFlags = lFlags Or FOF_NOCONFIRMMKDIR lFlags = lFlags Or FOF_FILESONLY With SHFileOp .wFunc = lFileOp .pFrom = strSourcePath & vbNullChar .pTo = strDestinationPath & "\Backup - " & Format(Date, "yyyy.mm.dd") & vbNullChar .fFlags = lFlags End With lresult = SHFileOperation(SHFileOp) Screen.MousePointer = vbDefault frmBackupDba.lblStatus = "Backup Complete" 在备份分前先要选择一个备份路径，点击…那个按钮开始进行选择，实现方法如下: Dim strTemp As String strTemp = fBrowseForFolder(Me.hwnd, "Select backup path") If strTemp <> "" Then txtDestination = strTemp End If 数据恢复界面同上，它的功能主要是在当前数据库遭到破坏后，可以利用它来进行数据恢复，在数据恢复前要选择所要恢复的数据库路径，如下: Dim strTemp As String strTemp = fBrowseForFolder(Me.hwnd, "Restore From") If strTemp <> "" Then txtSource = strTemp dbasize2 = FileLen(txtSource & "\学生宿舍管理信息.MDB") lblSelectedDba = "Selected Backup Database is : " & Format((dbasize2 / 1024) / 1024, "standard") & "MB." cmdRestore.Enabled = True End If Erro: 41 XX大学X科生毕业设计(论文) Select Case err.Number Case 53 'File Not Found lblSelectedDba = "No Backup at this location" Toolbar2.Enabled = False End Select 它主要是查看数据库是否存在，如果所恢复的数据不存在，则会提示错误。 数据恢复也用到了一个方法，在模块中也已经定义了该方法DoRestore。数据恢复 代码如下: If MsgBox("Restoring database from location " & txtSource & " will replace existing database files.Do you want to Contunue", vbYesNo) = vbYes Then DoRestore txtSource.Text, App.Path If NoDba = True Then MsgBox "Database Restored Click Ok to Exit Program" frmRestoreDba.Hide Unload frmRestoreDba End If Else lblStatus.Caption = "Database Restore Canceled" End If 其中DoRestore实现的功能源码如下所示: DEFSOURCE = "PROVIDER=Microsoft.jet.oledb.4.0;Persist Security Info=False;Data Source=" DBName = "\学生宿舍管理信息.MDB;Jet OLEDB:Database Password=matrix-se;" Set Db = New ADODB.Connection Db.Open DEFSOURCE & App.Path & DBName Dim lFileOp As Long Dim lresult As Long Dim lFlags As Long Dim SHFileOp As SHFILEOPSTRUCT Dim strSourceDir As String Dim strDestinationDir As String 42 XX大学X科生毕业设计(论文) Db.Close Screen.MousePointer = vbHourglass BackupFolderName = strDestinationPath lFileOp = FO_COPY lFlags = lFlags And Not FOF_SILENT lFlags = lFlags Or FOF_NOCONFIRMATION lFlags = lFlags Or FOF_NOCONFIRMMKDIR lFlags = lFlags Or FOF_FILESONLY With SHFileOp .wFunc = lFileOp .pFrom = strSourcePath & "\db.MDB" & vbNullChar .pTo = strDestinationPath & vbNullChar .fFlags = lFlags End With lresult = SHFileOperation(SHFileOp) Set Db = New ADODB.Connection Db.Open DEFSOURCE & App.Path & DBName Screen.MousePointer = vbDefault frmRestoreDba.lblStatus = "Restore Complete" 43 XX大学X科生毕业设计(论文) 致 谢 到目前为止，学生宿舍管理软件基本开发完毕，软件界面美观，运行时间短，执行功能强，其功能基本符合用户需求。能够完成对学生宿舍中学生基本资料的存储和查询，并提供数据备份恢复等系统维护功能，可以使用查找、修改、添加和删除对学生公寓管理软件的操作等。 由于本人知识有限，又缺乏经验，必定有不足和不周之处，希望各位老师给予指导，本人将继续完善修改，使此系统能更好地发挥性能。在此我要特别感谢我的导师给我的指点和帮助，与此同时我还要感谢所有给我鼓励和帮助的同学，使我圆满的完成了毕业设计。衷心的祝愿老师同学工作顺利、学业有成。 44