《学生寝室管理系统的设计与实现 毕业论文.doc》由会员分享，可在线阅读，更多相关《学生寝室管理系统的设计与实现 毕业论文.doc（23页珍藏版）》请在三一文库上搜索。
1、20学生寝室管理系统的设计与实现二级学院： 电子信息工程系 学生姓名： 专业班级： 计算机 学 号： 指导教师： 二一二年 四 月十八 日摘要：本系统用VB和Access数据库系统软件设计，主要包括：系统管理模块房屋管理模块（方便管理员使用，可以进行用户添加、删除、查询以及修改密码等操作）、收费管理模块（提供对房屋的添加、删除、查询等管理，可以方便对房屋的使用及空余情况进行管理及查询）、入住学生管理模块（对学生的缴费情况进行管理和查询）、报修管理模块（可提交寝室设施的损坏情况）、投诉管理模块（可对其他用户以及寝室管理员进行投诉）。关键词：学生寝室管理系统、Delphi 7.0、SQL 2000
2、目 录引 言1第一章系统规划的可行性研究211初步调查2111 背景及现状212 开发的可行性研究2121 技术的可行性4122 操作可行性4123 调度可行性4124 硬件配置4第二章 系统分析621需求分析6211系统需求功能概括6212系统操作设计内容62.2 功能分析7221系统用户管理功能7222 住户信息管理功能7223 信息管理功能7224 收费管理功能7第三章 系统总体设计931系统总体结构设计93.2 系统结构图1033 数据库的设计10第四章 系统详细设计124.1界面设计与功能124.2 用户登陆部分124.3 住户信息管理模块134.4 信息管理模块154.5 收费管理
3、模块17结束语20致 谢21参考文献22引 言科学技术日新月异，信息化时代的来临，以计算机为基础的信息科学在经济和社会生活各个领域得到了极为广泛的应用，尤其在信息管理方面，计算机已是必不可少的管理工具目前，信息已成为继劳动力、土地、资本之后的又一大资源。谁控制的信息越多，谁利用信息资源的效率越高，谁就会在各方面的竞争中占有一席之地，谁就会有更多的优势。从微观上讲，建立一套管理信息系统能够加快信息的周转速度，提高生产效率，从而加强了管理的信息化手段，提高了本单位的经济效益。从宏观上讲，顺应了社会的信息化、社会化潮流，加快了社会的发展速度。据统计，美国在信息管理管理方面80-100%的信息处理由计
4、算机完成；计划管理是8090%；在计算机应用发展较快的国家中，计算机应用于经济管理的占80%；用于科技计算的占8%，用于生产过程控制的占12%；由此可以看出，信息管理是计算机应用的主要领域。由于种种原因，我国的信息资源建设水平远远落后于信息基础设施的建设的水平。长期以来，我国信息资源的开发管理未能与信息资源的增长同步进行。我国的计算机应用要比西方国家落后十几年。因此，现在信息资源的开发和利用已被确立为国民经济信息的核心内容，利用现有的信息基础设施，重点开发和推广应用于各类科技、经济等数据库和网络资源服务系统，已经取得巨大的社会效益和经济效益。对于学校管理来说，其工作流程的繁杂性、多样化、管理复
5、杂、收缴费用与设备维护繁琐。计算机已完全能够胜任寝室管理工作，而且更加准确、方便、快捷、高效、清晰、透明，它完全可以克服以上所述的不足之处。这将给项目查询和管理带来很大的方便，从而给物业管理工作带来更高的效率，这也是寝室管理正规化、现代化的重要标志。因此，开发一套高效率、无差错的寝室管理系统软件十分必要。本系统的主要目的是告别帐本，安全、快捷的保存数据信息。由于寝室管理涉及到费用问题，为了增强系统的保密性，使我们利益不受损害，本系统具有仅管理员式的保密功能，还有查询、录入、修改、删除等功能，使我们能够对缴纳费用和投诉等情况提供透明化、直观的了解。第一章系统规划的可行性研究11初步调查寝室管理系
6、统，担负着为每个学生安排住宿的重要任务。由于管理的复杂性，再加上智能化这个概念的引入，寝室管理逐渐趋于信息化高效率化，因此上海的许多学校已引入了“寝室管理信息系统”，即通过计算机网络和专业软件对信息实施即时、规范、高效的管理。在引入该系统后住户档案将由电脑管理，通过在水、电上设置读数装置可以实现远程自动抄表，减少了我们的麻烦。服务中心在接到学生报修后，会立刻打出工程部的报修单，提高了日常维修的服务质量。每月电脑会自动将各项费用汇总，并打印出统一的收费通知，大大节省了寝室管理的人力、物力投入，降低了成本。12 开发的可行性研究可行性分析（Feasibility Analysis）也称为可行性研究
7、，是在系统调查的基础上，针对新系统的开发是否具备必要性和可能性，对新系统的开发从技术、经济、社会的方面进行分析和研究，以避免投资失误，保证新系统的开发成功。可行性研究的目的就是用最小的代价在尽可能短的时间内确定问题是否能够解决121 技术的可行性小区物业管理系统采用了当前的主流计算结构模式进行开发，前台开发工具选用Microsoft Visual Basic 6.0。Microsoft Visual Basic 6.0是一种可视化的、面向对象的Windows开发语言，Microsoft Visual Basic 6.0具有易用、通用和开发效率高的特点。后台的数据库开发工具选用了Access 2
8、000，它能够处理大量数据，同时保持数据完整性并提供许多高级管理和数据分配功能。这两种开发工具功能强大，有较好的接口，作为本系统开发工具是可行的。(1) Visual Basic 6.0的简介Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言。VB6.0是与WIN98配合于1998年推出的，进一步加强了数据库、Internet和创建控件方面的功能。VB可以用于可以开发多媒体、数据库、网络、图形等方面的应用程序。数据访问特性允许对包括 Microsoft SQL Server 和其它企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调
9、整的服务器端部件。VB中提供大量的控件，这些控件可帮助我们设计界面和实现功能，减少了编程人员的很多麻烦，提高了编程的效率和可靠性。所以我选择Visual Basic 6.0作为我这套系统的开发环境。 (2)面向对象编程的概念面向对象的程序设计(Object-Oriented Programming，简记为OOP)是Visual Basic6.0诞生的基础。OOP立意于创建软件重用代码，具备更好地模拟现实世界环境的能力，这使它被公认为是自上而下编程的优胜者。它通过给程序中加入扩展语句，把函数“封装”进Windows编程所必需的“对象”中。面向对象的编程语言使得复杂的工作条理清晰、编写容易。说它是
10、一场革命，不是对对象本身而言，而是对它们处理工作的能力而言。对象并不与传统程序设计和编程方法兼容，只是部分面向对象反而会使情形更糟。除非整个开发环境都是面向对象的，否则对象产生的好处还没有带来的麻烦多。而Visual Basic6.0是完全面向对象的，这就使得Visual Basic6.0成为一种触手可及的促进软件重用的开发工具，从而具有强大的吸引力。(3)Access简介Access是Office办公套件中一个极为重要的组成部分。刚开始时微软公司是将Access单独作为一个产品进行销售的，自Office 97开始将Access捆绑到其中，成为Office套件中的一个重要成员。现在它已经成为O
11、ffice办公套件中不可缺少的部件了。Microsoft 公司在Access 95 的基础上陆续推出了 Access 97、Access 2000，成为世界上最流行的桌面数据库管理系统之一。Access是一种关系型数据库管理系统，不但能存储和管理数据，还能编写数据库管理软件，用户可以通过Access提供的开发环境及工具方便地构建数据库应用程序，大部分是直观的可视化的操作，无需编写程序代码，是一种使用方便、功能较强的数据库开发工具。122 操作可行性对于这套小区物业管理系统而言，在投入使用前，会由开发并能熟练操作本系统的工程人员对用户群进行专业系统的培训。培训内容应包括，熟练掌握系统的各个功能和
12、简单的系统维护，在开发设计程序的过程中直观的界面和控件的文字解释完全能使得用户充分理解起功能和意义，在计算机普及的今天，用户对本系统的操作完全可以看做是一种简单的，配合形式的手工操作，因为本系统最适合用于微型机，可以说几乎任何人都可以使用和管理。所以本系统的操作是完全可行的。123 调度可行性调度可行性指的是建议的计算机系统能否在规定的期限内交付给用户。由于合同的规定，能否预期的交付涉及到开发人员的信誉等等。所以开发期限的选定也是非常重要的因素，根据寝室管理的日常的正常的业务运作规律和工作性质，可以看出这些内容是我们平时常见的工作，所以开发人员在开发起来比较容易入手，所以可以判断开发本系统的周
13、期比较短，开发中的不可预见问题会比较容易解决，在开发小组的分析后应该容易做出相对准确的，误差微小的开发期限，应该可以在规定时间内，快速的、完整的交付给用户使用。124 硬件配置(1) 硬件设备及操作系统服务器：Pentium4以上配置的高性能PC机，内存应在256M以上，硬盘在40G以上。确认该计算机已经安装数据库软件Microsoft Visual Basic 6.0软件。操作系统：Windows 9x/Me、Windows 2000、Windows XP、Windows NT，分辨率：1024*768。客户端：Pentium233（或与此相当的CPU）以上配置的PC机，内存应在32M以上，
14、硬盘在1G以上。Windows 9x以上操作系统。确认已安装BDE。(2) 开发平台前台开发工具：Microsoft Visual Basic 6.0前台开发工具：Microsoft Visual Basic 6.0后台数据库：Access 2000第二章 系统分析21需求分析211系统需求功能概括经过调研与可行性分析，出于对人们生活住房考虑，设计了这套寝室管理系统，本系统主要考虑到寝室管理的普遍要求，寝室管理系统主要包括：(1) 对学校所有房屋资料的录入和增、删、改、查询等功能实现，在基于这些小区的房产资源对小区进行管理。(2) 对住户的详细资料的管理，包括增、删、改、查询等功能的实现，这些
15、也是一个小区的基本资源，毕竟寝室管理最后是针对小区的所有住户而言的。(3) 在具有了所有的基本资料信息后，需要实现实质性的管理。主要的管理业务包括：仪表（水、电、宽带）数据管理、收费管理、住户投诉管理、故障管理等。这些成为寝室管理的主体。这样就可以便于学校对寝室进行全面的了解和管理了。212系统操作设计内容根据以上的操作需要研究设计内容如下：(1) 模块功能的研究设计：尽量采用物业管理部门中现有的软硬件环境以及先进的管理系统开发方案，从而达到充分利用现有资源，提高系统开发水平和应用效果的目的。系统应完全符合物业管理员对业户管理的规定，满足对房产信息及住户信息等工作需要，并达到操作过程中的直观、
16、方便、实用、安全等要求。通过调研情况进行需求分析，进行模块的划分和功能的界定，并对各个模块的具体管理流程进行控制和编码实现。(2) 良好的数据系统设计：所寝室管理系统应充分具备数据库的维护功能，可以及时根据用户的需求对数据库中的信息进行添加、删除、修改等操作。(3) 完备的信息查询统计：为满足管理和决策工作的需要，在查询基础上应具备一定的统计功能。(4) 后期维护：所开发的寝室管理系统应采用模块化程序设计方法，收到既便于系统功能的各种组合和修改，又便于未参与开发的技术维护人员补充、维护的效果。以上是对本信息管理系统进行的基本的需求分析，也就是本系统所要实现的基本功能。但是，这并不是整个系统的全
17、部需求，对系统不断出现的新需求，需要系统在日后的使用中通过系统的更新与维护来实现。这样，才能使系统得到不断的完善，功能更加强大，与用户的交互性更强。2.2 功能分析221系统用户管理功能(1) 系统用户的添加，包括用户名、密码信息。222 住户信息管理功能(1) 住户基本信息的录入，包括住户电话、住户姓名、身份证号、入住时间等信息。(2) 住户基本信息的修改。(3) 住户基本信息的删除。(4) 住户基本信息的查询。223 寝室基本信息管理功能(1) 基本信息的录入，包括使用面积、房屋结构、设备、出售信息等信息。(2) 基本信息的修改。(3) 房产基本信息的删除。(4) 房产基本信息的查询。22
18、4 收费管理功能(1) 管理收费和仪表收费两大类信息的录入，包括收费住址、水费、电费、宽带费、收费时间等信息。(2) 收费基本信息的修改。(3) 收费基本信息的删除。(4) 收费基本信息的查询。225 故障处理管理功能(1) 住户报修基本信息的录入，包括住址、报修故障、经办人、处理时间、查询等信息。(2) 住户故障基本信息的修改。(3) 住户故障基本信息的删除。(4) 住户故障基本信息的查询。226 退出退出寝室管理系统。第三章 系统总体设计31系统总体结构设计寝室管理系统部分实体E-R图如下所示:住户基本信息实体 住户姓名入住时间 住户电话物业地址 图3.1 住户基本信息实体E-R图寝室基本
19、信息实体积 使用信息地址 房屋结构使用面积 图3.2 房产基本信息实体E-R图故障基本信息实体住 址报修故障处理时间经办人 图3.3 住户投诉基本信息实体E-R图3.2 系统结构图寝室管理系统系统设置基本信息管理信息查询故障处理退出系统添加用户住户管理房屋管理收费管理收费信息住户信息房屋信息故障查询故障处理33 数据库的设计(1) 用户表用户表存放登陆系统所需要的用户名和密码，需要访问此表。表3.1用户表字段名数据类型可否为空用户名（主键）Char(10)NOT NULL密码IntNOT NULL (2) 住户基本信息表住户表存放学校内所有的住户信息，这些信息也是寝室管理的基本信息，在实现系统
20、的各个功能中起真非常重要的作用。表3.2住户基本信息表表字段名数据类型可否为空住址(主键)Char(10)NOT NULL姓名Char(10)NOT NULL身份证号码Varchar(50)NOT NULL电话Char(20)NULL入住时间DatetimeNULL (3) 房屋基本信息存放学校内的所有房屋的信息，其中包括已入住的房屋和入住出的房屋。表3.3房屋基本信息表字段名数据类型可否为空住址(主键)Char(10)NOT NULL房屋结构Varchar(50)NOT NULL设备Float(8)NOT NULL房屋面积Float(8)NOT NULL入住信息Char(20)NULL (4
21、) 处理故障表住户处理故障表存放小区内住户的各种故障的所有信息。表3.4处理故障表字段名数据类型可否为空住址(主键)Char(10)NOT NULL处理故障DatetimeNOT NULL经办人Char(10)NULL处理时间DatetimeNULL (5) 收费信息表物业收费表存放小区内住户的各种收费信息。表3.5物业收费表字段名数据类型可否为空住址(主键)Char(10)NOT NULL水费Char(10)NOT NULL电费Varchar(50)NOT NULL宽带Int(4)NOT NULL垃圾清运费Int(4)NOT NULL寝室管理费Varchar(50)NOT NULL收费时间D
22、atetimeNOT NULL第四章 系统详细设计4.1界面设计与功能经过以上的分析及建摸模，已经完成了数据库的后台工作。下面要完成的是人机交互的界面。本系统分为以下三部分：(1) 用户登陆；(2) 系统主体平台；(3) 通过主体平台调用的功能模块。接下来即对各部分作详细介绍：4.2 用户登陆部分启动系统程序后,首先进入系统登陆界面,在登陆进入主体平台的时候，系统会要求用户输入用户名及密码作为验证信息，为了防止非用户在使用,输入正常信息后便可以使用本系统。本模块代码如下：Private Sub Command1_Click()Dim strUserName As StringDim strPa
23、ssword As StringStatic intLoginTimes As Integer If Trim(Text1.Text) = Then 如果用户名为空 MsgBox 用户名不能为空！, vbOKOnly + vbCritical, 错误 Text1.SetFocus Exit Sub End If 打开数据库中的 用户表 Adodc1.Refresh 查找用户名 Adodc1.Recordset.Find 用户名 = & Text1.Text & , , adSearchForward, 1 也可以用下面的过滤方式 Adodc1.Recordset.Filter = 用户名 =
24、& Text1.Text & If Not Adodc1.Recordset.EOF Then 找到记录 strUserName = Adodc1.Recordset!用户名 strPassword = Adodc1.Recordset!密码 Else 没找到记录 Text1 = Text2 = End If If strUserName = Text1.Text And strPassword = Text2.Text Then Adodc1.Recordset.Close 关闭数据库中的 用户表 Unload Me 关闭窗体 frmMain.Show 显示主窗体 Else 用户名或密码不对
25、 MsgBox 用户名或密码不对！, vbOKOnly + vbInformation, 提示 Text1 = Text2 = intLoginTimes = intLoginTimes + 1 If intLoginTimes = 3 Then 超过三次 Adodc1.Recordset.Close 关闭数据库中的 用户表 End 退出整个程序 End If Text2.SetFocus 重新输入密码 SendKeys HOME+END End IfEnd Sub4.3 住户信息管理模块住户资料主要是对住户的基本信息如 (住户电话、住户姓名、地址、身份证号、入住时间等信息)和另外两个标签的信
26、息进行添加、修改、删除、查询。添加、修改、删除这些操作必须保存后才能生效。当记录较多，通过简单的查询可以方便的找的目标记录，查询结果已表格方式显示。表格显示结果的同时，如果还出现多条记录，可以根据某个字段对记录进行排序，这样可以给用户带来更大的方便和提高查找效率。本模块代码如下：Private Sub Command1_Click()If rs.EOF = False Then Text1.Text = rs(户主) Text2.Text = rs(住址) Text3.Text = rs(电话) Text4.Text = rs(入住时间) Text5.Text = rs(身份证号码) rs.M
27、oveNext End IfEnd SubPrivate Sub Command2_Click()Dim strql As StringSet db = OpenDatabase(App.Path + db1.mdb)strsql = Insert Into 住户基本信息表 (户主,住址,电话,入住时间,身份证号码) values ( + Text1.Text + , & Text2.Text & , & Text3.Text & , & Text4.Text & , & Text5.Text & )db.Execute strsqldb.CloseText1.Text = Text2.Tex
28、t = Text3.Text = Text4.Text = Text5.Text = MsgBox 添加成功End SubPrivate Sub Command3_Click()Dim strsql As StringIf MsgBox(是否要修改此记录, 32 + 1, 修改) = 1 ThenSet db = OpenDatabase(App.Path + db1.mdb)strsql = update 住户基本信息表 set 住址 = + Text2.Text + ,户主 = + Text1.Text + ,电话 = + Text3.Text + ,入住时间 = + Text4.Text
29、 + where 身份证号码= + Text5.Text + End Ifdb.Execute strsqldb.CloseText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = MsgBox 修改成功End SubPrivate Sub Command4_Click()Dim strqsl As StringSet db = OpenDatabase(App.Path + db1.mdb)strsql = delete * from 住户基本信息表 where 住址 = + Text1.Text + db.Execut
30、e strsqlText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = MsgBox 删除成功End SubPrivate Sub Command5_Click()Form3.Show Unload MeEnd SubPrivate Sub Command6_Click()frmMain.Show Unload MeEnd SubPrivate Sub Form_Load()Dim strsql As String Set db = OpenDatabase(App.Path + db1.mdb) strsql = se
31、lect * from 住户基本信息表 Set rs = db.OpenRecordset(strsql)End Sub4.4 房屋信息管理模块房产资料主要是对住户的基本信息如 (地址、使用面积、房屋结构、设备、入住信息等信息)的添加、修改、删除、查询及统计记录个数。添加、修改、删除这些操作必须保存后才能生效。当记录较多，通过简单的查询可以方便的找的目标记录，查询结果已表格方式显示。表格显示结果的同时，如果还出现多条记录，可以根据某个字段对记录进行排序，这样可以给用户带来更大的方便和提高查找效率。本模块代码如下：Private Sub Command1_Click()If rs.EOF = F
32、alse Then Text1.Text = rs(住址) Text2.Text = rs(设备) Text3.Text = rs(房屋结构) Text4.Text = rs(房屋面积) Text5.Text = rs(出售信息) rs.MoveNext End IfEnd SubPrivate Sub Command2_Click()Dim strql As StringSet db = OpenDatabase(App.Path + db1.mdb)strsql = Insert Into 房屋基本信息 (住址,设备,房屋结构,房屋面积,出售信息) values ( + Text1.Tex
33、t + , & Text2.Text & , & Text3.Text & , & Text4.Text & , & Text5.Text & )db.Execute strsqldb.CloseText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = MsgBox 添加成功End SubPrivate Sub Command3_Click()Dim strsql As StringIf MsgBox(是否要修改此记录, 32 + 1, 修改) = 1 ThenSet db = OpenDatabase(App.Path
34、+ db1.mdb)strsql = update 房屋基本信息 set 住址 = + Text1.Text + ,设备 = + Text2.Text + ,房屋结构 = + Text3.Text + ,房屋面积 = + Text4.Text + where 出售信息= + Text5.Text + End Ifdb.Execute strsqldb.CloseText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = MsgBox 修改成功End SubPrivate Sub Command4_Click()Dim str
35、qsl As StringSet db = OpenDatabase(App.Path + db1.mdb)strsql = delete * from 房屋基本信息 where 住址 = + Text1.Text + db.Execute strsqlText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = MsgBox 删除成功End SubPrivate Sub Command5_Click()Form5.Show Unload MeEnd SubPrivate Sub Command6_Click()frmMain
36、.Show Unload MeEnd SubPrivate Sub Form_Load()Dim strsql As String Set db = OpenDatabase(App.Path + db1.mdb) strsql = select * from 房屋基本信息 Set rs = db.OpenRecordset(strsql)End Sub4.5 收费管理模块收费管理用是对寝室收费的总管理，主要功能也是对如 (住址、水费、电费、宽带费、寝室管理费、收费时间等信息) 的添加、修改、删除、查询及统计记录个数。添加、修改、删除这些操作必须保存后才能生效。记录较多，通过简单的查询可以方便
37、的找的目标记录，查询结果已表格方式显示。表格显示结果的同时，如果还出现多条记录，可以根据某个字段对记录进行排序，这样可以给用户带来更大的方便和提高查找效率。本模块代码如下：Private Sub Command1_Click()If rs.EOF = False Then Text1.Text = rs(住址) Text2.Text = rs(水费) Text3.Text = rs(电费) Text4.Text = rs(宽带) Text5.Text = rs(垃圾清运费) Text6.Text = rs(物业管理费) Text7.Text = rs(收费时间) rs.MoveNext End
38、 IfEnd SubPrivate Sub Command2_Click()Dim strql As StringSet db = OpenDatabase(App.Path + db1.mdb)strsql = Insert Into 收费信息表 (住址,水费,电费,宽带,垃圾清运费,物业管理费,收费时间) values ( + Text1.Text + , & Text2.Text & , & Text3.Text & , & Text4.Text & , & Text5.Text & , & Text6.Text & , & Text7.Text & )db.Execute strsql
39、db.CloseText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = MsgBox 添加成功End SubPrivate Sub Command3_Click()Dim strsql As StringIf MsgBox(是否要修改此记录, 32 + 1, 修改) = 1 ThenSet db = OpenDatabase(App.Path + db1.mdb)strsql = update 收费信息表 set 住址 = + Text1.Text + ,水费 = +
40、Text2.Text + ,电费 = + Text3.Text + ,宽带 = + Text4.Text + ,垃圾清运费 = + Text5.Text + ,物业管理费 = + Text6.Text + ,收费时间 = + Text7.Text + End Ifdb.Execute strsqldb.CloseText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = MsgBox 修改成功End SubPrivate Sub Command4_Click()Dim st
41、rqsl As StringSet db = OpenDatabase(App.Path + db1.mdb)strsql = delete * from 收费信息表 where 住址 = + Text1.Text + db.Execute strsqlText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = MsgBox 删除成功End SubPrivate Sub Command5_Click()Form7.Show Unload MeEnd SubPrivate Sub Command6_Click()frmMain.Show Unload MeEnd SubPrivate Sub Form_Load()Dim strsql As String