学生宿舍管理系统设计书VB

1、摘 要随着电脑的普及与使用，现在的管理也提升了一个档次，渐渐实现了无纸化办公，即从原来的人工记录管理模式转变为电脑一体化管理。高校是科研的阵地，后勤的宿舍管理也应该一改传统的人工管理，更加信息化，时代化，节省人力物力，提高效率。基于这一点，开发此学生宿舍管理软件。学生宿舍管理系统用于日常宿舍管理，主要实现了用户管理、宿舍管理、报表、数据备份、数据转换等功能。首先介绍了系统概述，主要包括系统主要功能和主要特点、系统开发工具；其次介绍了系统分析与设计，主要包括需求分析、系统总体设计和数据库设计；然后介绍了系统功能的实现，主要包括用户登录的实现、宿舍查询功能的实现、学生信息查询的实现、数据备份功能的

2、实现、查询各个记录功能的实现等；最后介绍了系统测试。学生宿舍管理系统的开发是基于Windows XP操作系统，采用SQL Server 2000作为后台数据库，使用Visual Basic作为开发工具，利用其提供的各种面向对象的开发工具，首先建立了系统应用原型，然后对其需求迭代，不断修正和改进，直到形成用户满意的可行系统。关键词：宿舍；管理系统；Visual Basic；数据库AbstractWith the popularization and the using of the computer, now the management has been promoted to another

3、 level that makes more and more jobs done by the computer, as it is, it namely changes the original artificial record management mode into computer's integrating and managing. The university is the position of the scientific research; the apartment management should also change traditional artif

4、icial management to make it more informational, mordenizationable, save the humans and materials as well as improve the efficiency. To base on it, developing the management software of student's apartment is important.Student dormitory management system is used to Day-to-day dormitory management

5、, it mainly finished the user management, dormitory management, reporting, data backup, data conversion, and other functions.Firstly,it mainly introduces system overview that mainly includes the main system functions、the main features and the system development tools; Secondly, it introduces the ana

6、lysis and design that include needs analysis, system design and database design; Then, it introduces implementation of the system that mainly include the implementation of user login、enquiries quarters、students information enquiring、data backup、enquiring each records and so on; Finally, it introduce

7、s the system testing.Student dormitory management system is based on Windows XP operation system, it uses SQL Server 2000 as the background database and Visual Basic as the developing tool, it uses all kinds of Object-oriented development tools that are supplied by the visual Basic firstly to build

8、up system application of the prototype, then to iterate to meet its needing gradually to amende and improve until it formats feasibility system to meet users.Keywords: dormitory; management system; Visual Basic; Database 3目 录1 系统概述11.1 开发背景11.2系统简介11.3 系统的主要功能21.3.1 前台操作的主要功能21.3.2 后台数据库维护的主要功能21.4

9、系统的主要特点21.5 开发工具介绍31.5.1 Visual Basic 6.0的介绍31.5.2 数据库41.5.3 SQL Server数据库简介51.5.4 SQL Server语言61.6 系统采用的技术72 系统分析82.1 需求分析82.1.1 学生宿舍管理的现状82.1.2 课题研究的目的82.1.3 课题的可行性分析92.2 总体设计112.2.1 系统功能模块分析122.2.2 系统功能模型132.3 数据库设计142.3.1 数据库需求分析152.3.2 数据库概念结构152.3.3 数据库逻辑结构设计173 系统实现213.1登录界面213.2宿舍管理系统主界面213.

10、3宿舍管理功能的实现233.3.1宿舍查询功能233.3.2 公寓设置233.4 学生信息查询功能的实现243.5学生请假功能的实现263.6 卫生检查功能的实现273.7 记录查看功能的实现283.8 记录删除功能的实现293.9 值班记录功能的实现302.10数据备份304 系统测试324.1 系统测试目的324.2 测试准则324.3 系统测试的方法33结 论34致 谢35参考文献361 系统概述1.1 开发背景 系统采用MICROSOFT公司的 VISUAL BASIC语言编写的,本系统在研制开发过程中，严格遵循软件工程方法，完全采用结构化程序设计方法。随着科技的发展，计算机本身经历了

11、巨大的变化。计算机的概念也由原始的分立式走向今天的网络式。网络技术已逐渐成为现代信息技术的主流，网络的概念也随着Internet技术和应用的发展而渐入人心。Internet/Intranet的作用正为越来越多的人所认识，通过网络共享信息正成为科学研究的一种重要手段。可以这么说，谁拥有信息，谁就能在科技信息革命的大潮中获得主动权，就能获取成功。面对信息时代的挑战，网络的功能越来越强,国内教育系统也在积极建设或升级计算机网络，并已建成了规模较大的中国教育科研网，全国许多学校也纷纷建立或升级自己的校园网络系统，许多高校还提出了办公无纸化的口号。校园网是实现办公自动化、管理科学化、教学手段现代化和图书

12、情报信息网络化最有利的支撑环境。但是，目前校园网的利用率却不是很高，主要原因是缺少好的网络应用平台。以前开发的MIS系统往往是在单机上运行，或者采用C/S技术开发出来的，对于今天因特网时代来说，这些系统很大程度上已经不能满足用户随时随地获取信息的需要。高校教师、课程管理最初是人工方式进行，显然在信息化发展的今天，这远远不能满足教师、课程管理的需要。后来，随着单机板教师、课程管理系统的开发，这在很大程度上解决了上述矛盾。但是，这种系统如今也不能满足教师、课程管理的要求了，这主要是由于高校的扩招，在校学生人数的增加。因此，开发B/S结构的MIS是势在必行。本文正是在这种背景下提出的，目的是为了开发

13、出一套功能完善、操作便捷、及时性好、适用面广的高校教师、课程管理系统，以提高高校教师、课程管理的效率。1.2系统简介 该系统涉及宿舍管理的各个环节，是面向各个普通高校宿舍的多模块综合系统，促进了学校宿舍管理的科学化、信息化，为学校宿舍的管理提供了有力的支持。系统提供了七个功能模块：系统设置模块，用于对管理人员的修改和添加；宿舍管理模块，用于对学生宿舍的查询、修改、添加，以及学生请假、违规情况的添加；卫生检查模块，主要是对宿舍卫生情况的添加；宿舍资产模块，用于对宿舍资产的了解，主要是对宿舍资产的添家；记录查看模块，可以查看某些记录，例如对学生请假、违规、宿舍卫生、资产情况的查询；记录删除模块，主

14、要是对学生请假、违规、宿舍卫生、资产情况的删除，管理员可以选择日期，进行单条删除、批量删除或全部删除；值班记录模块，用于对每日值班情况的记录以及以前值班记录的查看。1.3 系统的主要功能 1.3.1 前台操作的主要功能本系统前台主要针对普通用户，普通用户可以查看本人的个人信息，对密码进行修改；可以对学生请假和违规信息，以及宿舍信息进行查看。 1.3.2 后台数据库维护的主要功能本系统的后台主要是实现数据库的维护，宿舍管理员可以方便的对学生宿舍进行管理，实现对宿舍信息添加、修改，以及分配学生宿舍的功能，可以对学生住宿情况进行统计。 1.4 系统的主要特点系统融合了多所高校多年来宿舍管理的经验，将

15、学生的所有数据统一管理，纳入到本系统当中，改变了以往宿舍管理分散，不全面的弊端。宿舍数据集中管理，最大程度地实现了数据的共享，从而避免管理漏洞的产生，同时为学校宿舍管理员的决策支持提供详尽的数据。它为促进学校宿舍管理的科学化、信息化提供了强有力的支持。系统操作方便，本学生宿舍系统界面友好，操作简便，充分考虑了人性化设计。系统具有易用性，容易实施。从而更易为使用者所接受，降低推广难度，在最短的时间内让非专业人员轻松上手。对一个模块的数据操作后即可操作系统所有的模块，让宿舍管理人员真正的将精力花在宿舍管理上，而不是简单和繁重的信息处理上。基于多层架构的系统，不受时间、地点的限制，易于使用且不受地域

16、限制，能够通过该系统轻松的实现随时随地的移动办公，提高办公效率。管理员管路宿舍采用XP平台和数据库结合的技术，管理员可以在任意时间进行操作。1.5 开发工具介绍1.5.1 Visual Basic 6.0的介绍本软件的开发工具为VISUAL BASIC，作为一种开发语言，VISUAL BASIC率先采用了可视化（VISUAL）的程序设计方法。利用系统提供的大量可视化控件，可以方便的以可视化方式直接绘制用户图形界面，并可直观、动态的调整界面的风格和样式，直到满意为止，从而克服了以前必须用大量代码去描述界面元素的外观和位置的传统编程模式7。VB（Visual Basic）语言是面向对象的程序设计语

17、言，是目前在Windows操作系统平台上广泛使用的Windows应用程序开发工具。 Visual Basic是在早期 Basic语言的基础上发展起来的可视化的Windows平台上的程序开发工具。在这里，“Visual”为“可视化”的意思。所谓“可视化”是一种开发图形用户界面（GUI）的方法，用户不再需要编写大量的代码去描述界面的外观，而只需要在可视化的编程环境中，将形象直观的预置对象直接拖放到屏幕上即可，这一点是VB最显著的特点。“Basic”则表明VB是对原有的Basic语言的一种扩展，它继承了Basic语言语法简练，简单易学的特点。但是在Windows环境下编程与在DOS环境下编程有着很大

18、区别，VB不仅仅是Basic的扩展，它采用了新的事件驱动和面向对象的编程机制，而且直接调用Windows API中的函数，这使得VB的应用范围极其广泛。利用VB用户不仅可以编写各种应用程序，而且还能将Excel电子表格、Word字处理软件等嵌入其中直接使用；此外还可以通过调用Access等多种格式的数据库系统，对数据库进行管理与操作。Visual Basic具有以下七个主要特点：（1）面向对象的可视化编程，使开发人员只需编写少量的程序代码，就可以快速开发出标准的Windows应用程序，极大地提高了程序设计效率。（2）事件驱动的编程机制，比传统的过程驱动方式更适合于Windows图形用户界面的开

19、发。因为在图形用户界面应用程序中，程序的执行是由用户的操作动作即事件决定的，而不是由设计好的程序流程所控制。这样在VB中程序员只需对各种用户动作编写相应的处理代码，程序既简练又易于维护。（3）友好的VB集成开发环境使用户可以在其中很轻松地进行界面设计、代码编写、程序调试及编译运行等工作。（4）可以对多种数据库系统进行数据访问，包括Microsoft Access、dBase、Microsoft FoxPro和SQL Server等。（5）通过ActiveX 技术，可以使用其他程序提供的功能，例如Microsoft Word 字处理软件、Microsoft Excel 电子表格以及其他Windo

20、ws应用程序。（6）支持动态数据交换（DDE）、动态链接库（DLL）、对象链接与嵌入（OLE）以及ActiveX技术。动态数据交换技术可以使VB应用程序与其他Windows应用程序之间建立动态的数据通信；动态链接库技术使VB程序可以方便地调用C语言、汇编语言或Windows API的函数；对象链接与嵌入技术允许将其他各种基于Windows的应用软件作为一个对象链接或嵌入到VB应用程序中，对其进行操作；ActiveX技术则是OLE技术的进一步发展。（7）完善的联机帮助功能。通过与VB6.0的安装程序捆绑在一起的Microsoft MSDN联机帮助文档用户可以随时方便地得到各种帮助信息，以解决用户

21、在开发过程中遇到的各种各样的问题。1.5.2 数据库 数据库，顾名思义，是存放数据的仓库。只不过这个仓库是在计算机存储设备上，而且数据是按一定的格式存放的。数据库系统是当今计算机领域最重要、也是发展最迅速的一个分支，数据库系统一般由数据库、数据库管理软件和应用软件三部分组成。它的发展经历了文件系统、层次数据、网状数据库以及关系数据库等几个阶段。当前数据库具有以下几个特点：1. 数据的结构化：数据库中数据是具有一定的组织结构，共属同一集合的数据具有一定的相似的特征。2. 数据的共享性：统一管理这些数据信息，实现数据资源共享，减少冗余度。3. 数据的完整性：是指保证数据库中数据的正确性，通过对数据

22、的性质进行检查而管理它们。4. 数据的独立性：是指数据记录和数据管理软件间的独立。数据及其结构应独立性，而不应去改变应用程序。为了使各种类型的数据库系统能够充分发挥它们的优越性，必须对数据库文件的建立提出一些明确的要求。 1. 尽量减少数据的重复，使数据具有最小的冗余度。计算机早期应用中的文件管理系统，由于数据文件是用户各自建立的，几个用户即使有许多相同的数据也得放在各自的文件中，因而造成存储的数据大量重复，浪费存储空间。数据库技术正是为了克服这一缺点而出现的，所以在组织数据的存储时应避免出现冗余。 2. 提高数据的利用率，使众多用户都能共享数据资源。 3. 注意保持数据的完整性。 4. 注意

23、同一数据描述方法的一致性，使数据操作不致发生混乱。 5. 对于某些需要保密的数据，必须增设保密措施。6. 数据的查找率高，根据需要数据应能被及时维护。总之，数据库是长期储存在计算机内、有组织的、可共享的大量数据的集合。数据库中的数据按一定的数据模型组织、描绘和储存，具有较小的冗余度，较高的数据独立性和易扩张性，并可为各种用户共享1。1.5.3 SQL Server数据库简介SQL Server数据库管理系统提供了很多实用的管理和开发工具。其中企业管理器是最主要的管理工具，通过它，用户可以进一步接触到其它各种工具。当需要编写SQL脚本时，最常用的是查询分析器。下面我们就来介绍这两种工具。1. 企

24、业管理器企业管理器是SQL Server数据库管理系统中最重要的工具，其他工具都可以通过它调用执行。企业管理器的左侧窗格中用树形结构表示的逻辑结构，称为“树”窗格。SQL Server组可以包含多个SQL Server服务器。在左窗格中用鼠标右键单击“SQL Server组”，在快捷菜单中选择“新建SQL Server注册”，即可添加一个SQL Server服务器到树中。一个SQL Server服务器下可以创建多个数据库，单击“数据库节”点，即可显示该服务器中的所有数据库。展开某个数据库，可以看到一个数据库是由表、试图、存储过程等数据库对象组成。在企业管理器中，可以对这些对象进行添加、修改、删

25、除和查看3。2. SQL 查询分析器SQL 查询分析器提供的图形用户界面，可以设计和测试SQL语句，批处理和脚本。打开一个查询分析器，其左侧为“对象浏览器”，其中显示所有数据库信息和公用对象，这些信息有助于用户设计SQL语句和脚本。在工具栏中，有一个下拉表框，用于选择当前数据库。查询分析器中执行的所有SQL命令都是基于当前数据库的，默认的当前数据库为系统数据库master，所以在执行SQL命令前，应注意选择所要操作的数据库作为当前数据库。右侧为SQL编辑窗口，用于输入SQL语句。例如要显示系统前使用的的语言，可在查询分析器 SQL编辑窗格中输入如下语句:SEKECTLANGUAGE单击工具栏中

26、“运行”按钮，执行该命令，在结果窗格中显示结果为：简体中文。单击工具栏中的“保存”按钮，可以将编辑窗口中的SQL命令保存为文件扩展名为.sql的脚本文件2。1.5.4 SQL Server语言SQL(Structured Query Language)，即结构化查询语句，是关系数据库的标准语言，SQL是一个通用的，功能极其强大的关系数据库语言。SQL是一种用于和关系数据库进行交互计算机语言。当用户想检索数据库中的数据时，就查以用SQL语言发出请求，DBMS对SQL请求进行处理，检索到所要求的数据，并将其返回给用户。如今SQL语言仅仅是一个查询工具，它是可以对关系数据库中的数据进行组织、管理和检

27、索的主要工具4。现在，SQL用于控制DBMS提供给用户的所有功能，SQL语言已成为用户与基于SQL的DBMS的接口。它的功能包括：数据定义、数据检索、数据操作、存取共享、数据完整性。由此可见，SQL是一中能控制数据库管理系统并能与之交互的综合语言，确切地讲，SQL是一种数据库子语言。其主要特点为：1. SQL是一种交互式查询语言。2. SQL是一种数据库编程语言。3. SQL是一种数据库管理语言。4. SQL是一种客户服务器语言。5. SQL是一种分布式数据库语言。SQL是一种数据库网关语言。1.6 系统采用的技术学生宿舍管理系统基于Windows XP操作系统，采用SQL Server 20

28、00为后台数据库，使用Visual Basic作为开发工具，利用其提供的各种面向对象的开发工具，首先建立系统应用原型，然后对其需求迭代，不断修正和改进，直到形成令人满意的可行系统。2 系统分析2.1 需求分析软件需求是指用户对目标软件系统在功能、行为、性能、设计约束等方面的期望。通过对应用问题及其环境的理解与分析，为问题涉及的信息、功能及系统行为建立模型，将用户需求精确化、完全化，最终形成需求规格说明，这一系列的活动即构成软件开发生命周期的需求分析阶段。需求分析是介于系统分析和软件设计阶段之间的重要桥梁。一方面，需求分析以系统规格说明和项目规划作为分析活动的基本出发点，并从软件角度对它们进行检

29、查与调整；另一方面，需求规格说明又是软件设计、实现测试直至维护的主要基础。良好的分析活动有助于避免或尽早发现早期的错误，从而提高软件生产率，降低开发成本，改进软件质量。对用户需求的分析应该全面、深入、发展，全面是指考查由MIS管理的信息是否有纰漏，必须保证各静态、动态信息的完全；深入是指对信息的内容、结构、含义、变换、生存周期的分析和认识；发展是指对信息未来发展变化的预测，因为信息在某个系统、机构内的变化往往存在着自身特有的发展规律，需求分析应该预见这种规律，否则就会缩短MIS的使用寿命。为了保证需求分析的完备性，就必须保证需求分析的时间10。学生宿舍管理系统是面向对象的一种操作系统，其主要用

30、户为管理员。管理员要对学生宿舍进行管理，主要是对宿舍资产、住宿人员的管理。所以该学生管理系统应该满足这些功能。2.1.1 学生宿舍管理的现状目前，我国大多数普通高校学生宿舍管理还处于人工工作的阶段。这种管理方式存在着很多缺点，如：效率比较低，而且时间一长，随着学校寄宿人员的增多，将产生大量的文件和数据，这对于查找、更新、维护都带来了不少的困难。2.1.2 课题研究的目的学生宿舍是学生日常生活与学习的重要场所，学生住宿管理事关学生人身安全和财产安全，关系到学校正常的教学、生活秩序，关系到学校稳定。近年来，随着高校的扩招，住宿学生越来越多，学生宿舍楼房越来越多，宿舍管理人员越来越多。随着高校后勤社

31、会化改革，学生住宿条件得到了很大改善，宿舍内的贵重设施、电器等越来越多，宿舍安排上打破了原来强制集中住宿的限制，可供学生选择的余地也越来越大，相关部门对宿舍管理的要求越来越高。因此，宿舍管理的难度越来越大。信息资源已成为各个部门的重要财富和资源，建立一个满足各级部门信息处理需要的信息系统，也一个企业或组织生存越来越重要的信息资源。随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥越来越重要的作用。在这种情况下，选择“学生宿舍管理系统”这个课题，力争达到以下要求：1. 减少手工操作。现在宿舍管理仍是由人工来完成，这是对人力资源的一种损耗，也

32、是对时间的一种浪费，所以在新系统中要尽量减少手工操作，以提高管理效率。2. 安全保密功能。对于进行信息管理、维护等操作的用户进行身份验证。3. 科学管理日常事物，实现处理事物日常业务规范化，同时提高工作人员素质。4. 保证数据处理快速，高效性，减少数据冗余，实现数据共享。总之， 开发一套具有通用性、简单操作性，实现无纸化办公，能使工作更有条理、更方便、更有效率的宿舍管理系统软件是很有必要的2.1.3 课题的可行性分析可行性分析主要考虑以下几点：1. 技术上的可行性现今社会正走进一个信息时代，信息技术将从根本上改变人类社会的生产方式和生活方式，各行各业的业务管理现在都已经相继使用计算机来处理，可

33、以说用计算机进行信息管理是一个总趋势。学生宿舍管理软件主要是对宿舍、楼号的配置、住宿人员登记、卫生检查、宿舍资产、学生违纪、值班老师记录以及对学生住宿情况查询，修改，更新等。可以更快地了解到每个学生的住宿情况。开发一个学生宿舍管理系统可以达到事半功倍的效果。随着数据库管理系统的普及以及可视化编程软件的出现，使数据库管理信息系统的开发变得更为简单，因此开发一个学生宿舍管理系统是完全可行的。2. 经济上的可行性由于本系统是为学生宿舍管理系统，装上该应用软件，即可使用系统，系统成本主要集中在系统软件的开发上。而现在计算机的价格已经十分低廉，性能却有了长足的进步，并且本系统的开发，为学校的工作效率带来

34、了一个质的飞跃，为此主要表现有以下几个方面：(1) 本系统的运行可以代替人工进行许多繁杂的劳动；(2) 本系统的运行可以节省许多资源；(3) 本系统的运行可以大大的提高学校宿舍管理的工作效率。由此看来物力所带来的效益远远大于系统软件的开发成本，在经济上完全可行。3. 操作可行性界面设计时充分考虑管理人员的习惯，使得操作简单；数据录入迅速、规范、可靠；统计准确；制表灵活；适应力强；容易扩充。综上所述，建立一个学生宿舍管理软件与人工操作相比具有速度更快，操作更准确，更节约开支等有利之处，因此建立一个学生宿舍管理软件是必要可行。2.2 总体设计系统设计又称系统物理设计，系统设计要根据系统分析报告中的

35、系统逻辑模型综合考虑各种约束，利用一切可用的技术手段和方法进行各种具体设计，确定新的实施方案，解决“系统怎么做的问题”。 结构化系统设计是指利用一组标准的图表工具和准则，确定系统有哪些模块，用什么方法连接，如何构成良好的系统结构，并进行系统输入、输出、数据处理、数据存储等环节的详细设计。这一阶段的重点是设计好系统的总体结构，选择最经济合理的技术手段。 信息管理系统的开发是一项系统工程，为了保证系统的质量，设计人员必须遵守公共的设计原则。3系统设计3.1系统功能模块分析（1）建立数据库根据系统功能设计的要求以及功能模块的划分，设计相关数据库。（2）卫生评比管理模块该模块提供对卫生评比信息的管理功

36、能，主要完成评比信息的录入、修改和删除以及评比结果的查询功能。（3）违纪处理管理模块该模块实现违纪处理信息的管理，主要完成违纪信息的录入、修改、删除和查询等功能。（4）来客登记管理模块该模块提供对来访人员信息的管理功能，主要提供来访登记、离开登记和来访信息查询功能。（5）房间信息管理模块该模块提供房间信息维护功能，主要是提供对房间信息的录入、修改、删除功能，同时提供房间分配和房间信息查询功能。3.2系统层次模块图学生宿舍管理系统宿舍信息管理卫生情况管理违规情况管理访客信息管理卫生情况录入评分查询违规处理情况录入违规处理情况查询来访登记离开登记来访查询 系统层次模块图3.3数据库设计3.3.1

37、数据库需求分析数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致，合理的数据库结构也将有利于程序的实现。数据库系统设计主要是进行数据库的逻辑设计，即将数据按一定的分类、分组系统和逻辑层次组织起来，是面向用户的。数据库设计时需要综合各个部门的存档数据和数据需求，分析各个数据之间的关系，按照数据库提供的功能和描述工具，设计出规模适当、正确反映数据关系、数据冗余少、存取效率高、能满足多种查询要求的数据模型5。用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结

38、构能充分满足各种信息的输出和输入。而学生宿舍管理系统的主要任务是通过大量的数据获得管理所需要的信息，这就必须存储和管理大量的数据，因此建立一个良好的数据组织结构和数据库，使整个系统都可以迅速、方便、准确地调用和管理所需的数据，是衡量信息系统开发工作好坏的主要指标之一。3.3.2 数据库概念结构概念设计的具体任务是识别系统中的实体、实体的属性、实体的关键字和实体间的联系，采用实体关系建模技术来描述客户信息的实体、属性及关系，从而达到为系统建立良好的数据模型的目的。实体联系方法是P.P.S.Chen 在1976 年首先提出的用E-R 图来描述现实世界中数据之间联系的有效方法，现在己成为在数据库概念

39、设计阶段描述系统概念模型的主要工具。概念结构设计的主要特点是：能真实、充分地反映现实世界，包括事物和事物之间的联系，能满足用户对数据的处理要求，是对现实世界的一个真实模型；易于理解，从而可以用它和不熟悉计算机的用户交换意见，用户的积极参与是数据库的设计成功的关键；易于更改，当应用环境和应用要求改变时，容易对概念模型修改和扩充。概念结构设计阶段的主要任务是在需求分析的基础上，设计出能够满足用户需求的各种实体。以及它们之间的关系，为逻辑结构设计打下基础，这些实体包含各种具体信息，通过相互之间的作用形成数据的流动9。 3.4数据库实体图设计宿舍宿舍号备 注卫生情况宿舍实体图学生学 号姓 名卫生情况班

40、 级学生实体图访客姓 名来访时间离开时间访客实体图3.4.1数据库E-R图设计宿 舍学 生访 客宿舍信息访客信息宿舍管理系统E-R图3.4.2数据库关系模型设计宿舍（宿舍号，卫生情况，备注）学生（学号，姓名，班级，违纪处理情况）宿舍信息（宿舍号，学号）访客（姓名，来访时间，离开时间）访客信息（姓名，来访时间，学号）3.4.3数据库物理设计系统建立的数据库表主要有五个，如下图所示。字段名数据类型字段长度与格式关键字宿舍号varchar5是卫生情况varchar50否备注varchar50否 “宿舍”信息表结构字段名数据类型字段长度与格式关键字学号varchar5是姓名varchar50否班级va

41、rchar50否违纪处理情况varchar50否 “学生”信息表结构字段名数据类型字段长度与格式关键字学号varchar5是宿舍号varchar5是 “宿舍信息”信息表结构字段名数据类型字段长度与格式关键字姓名varchar50是访问时间varchar50是离开时间varchar50否 “访客”信息表结构字段名数据类型字段长度与格式关键字学号varchar50是姓名varchar50是来访时间varchar50否 “访客信息”信息表结构4系统实现4.1系统用户管理模块创建一个系统登录窗体、一个转入窗体的主窗口窗体,利用组合框为用户提供数据,实现多项选择的功能，如图所示。登录窗口其主要代码如下:

42、Option ExplicitPublic strcon As StringPrivate Sub btnCancel_Click() txtUserName.Text = "" txtPassword.Text = "" If MsgBox("退出吗?", vbOKCancel, "提示") = vbOK Then End End IfEnd SubPrivate Sub cmdok_Click() Rem 判断是否为空If Len(txtUserName.Text) <= 0 Then MsgBox &q

43、uot;用户名不能为空", vbExclamation, "警告" Exit SubEnd IfIf Len(txtPassword.Text) <= 0 Then MsgBox "密码不能为空", vbExclamation, "警告" Exit SubEnd IfRem 获取密码用户 Dim struser As String struser = txtUserName.Text Dim strpw As String strpw = txtPassword.TextDim strsql As Stringstrs

44、ql = "select ano as user,secret as pw from adminer "Dim conn As New ADODB.ConnectionDim rst As New ADODB.RecordsetDim cmd As New ADODB.Commandconn.ConnectionString = strcon '引用公共变量 On Error GoTo conconn.Opencmd.ActiveConnection = conncmd.CommandText = strsqlSet rst = cmd.ExecuteDo Unti

45、l rst.EOF If UCase(struser) = UCase(rst("user") Then If strpw = rst("pw") Then '密码正确，显示窗体，退出循环 main.Show Unload Me rst.Close conn.Close txtUserName.Text = "" txtPassword.Text = "" Exit Sub Else '密码错误 MsgBox "密码错误", vbExclamation, "警告&quo

46、t; txtPassword.Text = "" rst.Close conn.Close Exit Sub End IfEnd If rst.MoveNextLooprst.Closeconn.Close MsgBox "不存在该用户", vbExclamation, "警告" txtPassword.Text = ""Exit Subcon:MsgBox "请确认以下设置" & Chr(13) + Chr(10) & "SQL Server 服务器已经启动;&quo

47、t; & Chr(13) + Chr(10) & "数据库身份验证模式为SQL Server 和 Windows身份验证模式"End SubPrivate Sub Form_Load()strcon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=学生宿舍管理系统;server=(local)"End SubPrivate Sub Label1_Click()End Sub4.2卫生评比管理模块创建一个卫

48、生评比管理窗体,里面包括查询、添加和修改功能，利用Label、Textbox、Button和 DatGird等画出如下窗体。卫生评分录入界面卫生评分录入界面图4.3卫生评分查询界面其主要代码如下:Public strcon As StringPrivate Sub Command1_Click() If Trim(Text1.Text) = "" Then MsgBox "没有选中任何行或则学号为空!", vbInformation, "提示" Exit Sub End If On Error GoTo myError: Dim st

49、rsql As String strsql = "select 宿舍号 from 宿舍 " Dim conn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim cmd As New ADODB.Command conn.ConnectionString = strcon '引用公共变量conn.Open cmd.ActiveConnection = conn cmd.CommandText = strsql Set rst = cmd.ExecuteDo Until rst.EOF Dim strs

50、no As String strsno = UCase(rst("宿舍号") rst.MoveNextLoop If strsno <> UCase(Text1.Text) Then MsgBox "该宿舍不存在！", vbExclamation, "提示" conn.Close Exit Sub End If strsql = "update 宿舍 set 卫生情况='" & Text2.Text & "' where 宿舍号='" &

51、; Text1.Text & "'" Call sqlcmd(strsql) MsgBox "执行成功!", vbInformation, "提示" Text1.Text = "" Text2.Text = "" Exit SubmyError: MsgBox "更新失败！" & Chr(10) + Chr(13) & "更新的数据中存在非法字符空格、单引号、双引号、空", vbExclamation, "提示&q

52、uot;End SubPrivate Sub Command2_Click()Unload MeEnd SubSub sqlcmd(strsql As String) '更新、删除、插入数据 Dim conn As New ADODB.Connection Dim cmd As New ADODB.Command conn.ConnectionString = strcon '引用公共变量 conn.Open cmd.ActiveConnection = conn cmd.CommandText = strsql cmd.Execute conn.Close End SubPr

53、ivate Sub Form_Load()strcon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=学生宿舍管理系统;server=(local)"End SubPrivate Sub Text1_Change()End SubOption ExplicitPublic blnNeedUpdate As BooleanPublic blnAdding As BooleanPublic strcon As StringPrivate Su

54、b Command1_Click()Dim struser As StringIf Len(Text1.Text) <> 0 Then struser = Text1.TextElse If Len(Text2.Text) <> 0 Then struser = Text2.Text Else MsgBox "信息不能为空", vbExclamation, "警告" End IfEnd IfDim strsql As StringDim strsql1 As Stringstrsql = "select 宿舍号 as s

55、ushe from 宿舍 "Dim conn As New ADODB.ConnectionDim rst As New ADODB.RecordsetDim cmd As New ADODB.Commandconn.ConnectionString = strcon '引用公共变量conn.Opencmd.ActiveConnection = conncmd.CommandText = strsqlSet rst = cmd.ExecuteDo Until rst.EOF If UCase(struser) = UCase(rst("sushe") Th

56、enstrsql1 = "select 宿舍号,卫生情况 from 宿舍 where 宿舍号='" & Text1.Text & "'" Call bindGrid(strsql1) Exit Sub Else strsql1 = "select 宿舍号,卫生情况 from 宿舍 where 卫生情况='" & Text2.Text & "'" Call bindGrid(strsql1)End If rst.MoveNextLooprst.Close

57、conn.CloseEnd SubSub bindGrid(strsql As String)Rem 绑定datagrid Dim conn As New ADODB.Connection Dim rst As New ADODB.Recordset conn.ConnectionString = strcon '引用公共变量 conn.CursorLocation = adUseClient conn.Open rst.Open strsql, conn, adOpenDynamic, adLockBatchOptimistic Set DataGrid1.DataSource = rst.DataSource Call gridWi