VB学生公寓标准管理系统.doc

青海师范大学数学系信息和计算科学专业毕业论文学生公寓管理系统 姓 名: 李迎宝班 级： 10c指导老师： 张淑敏 （教授） 完成时间： 5月5日目 录摘要 1Abstract 11 课题描述22 需求分析22.1 可行性研究22.1.1 技术可行性22.1.2 经济可行性22.1.3 操作可行性22.2 功效需求22.3 性能需求33 程序设计33.1系统层次模块图33.2数据库物理设计34 系统实现5 4.1 系统用户管理模块5 4.2 人员信息管理8 4.3 宿舍卫生情况12 4.4 探访窗口15 4.5 查询窗口175 系统测试206 总结21参考文件 22学生公寓管理系统李迎宝（青海师范大学数学系级c班，青海西宁，810000）摘 要：本软件前台设计由Visual Basic 6.0实现，后台数据库用ACCESS数据库表进行创建和管理。本系统界面设计大方、简练、实用，操作简单方便。该系统含有卫生评选、来客登记和公寓信息功效。卫生评选管理模块提供对卫生评选信息管理功效，违纪处理管理模块实现违纪处理信息管理，来客登记管理模块提供对来访人员信息管理功效，房间信息管理模块提供房间信息维护功效。关键词：公寓管理系统；Visual Basic 6.0；Access数据库 Student apartment management system Li Yingbao( Qinghai Normal University Department of mathematics C class, Qinghai Xining, 810008)Abstract: The foreground of the software by Visual Basic 6, background database using ACCESS database tables are created and managed. The system interface design generous, concise, practical, simple and convenient operation. The system has the health assessment, visitor registration and apartment information function. Health assessment management module provides the health assessment information management functions, and processing management module to achieve the law to deal with information management, visitor registration management module provides the visitor information management functions, room information management module provides the room information maintenance function.Keywords: The apartment management system; Visual Basic 6; Access database table1.课题描述字典各个学校对学生宿舍管理已经有了很长历史，而且已经含有了一定规模和形态，同时对学生公寓服务和管理也要求很高.诸如对学生入住情况具体了解，和来访者情况全部要求宿舍管理人员做好，做完善。这么要求公寓管理人员对学生宿舍管理进行宏观和微观细致管理，其中最好措施是用计算机操作学生宿舍管理系统来实现对学生宿舍管理。学生宿舍管理系统在各个学校中全部含有广泛应用，它含有卫生评选、来客登记和公寓信息功效。它不仅含有检索快速、查找方便、操作简单、可靠性高、存放量大、保密性好、寿命长和成本低优点，还能够极大地提升宿舍管理员工作效率和质量。开发工具：Visual Basic 6.02 需求分析2.1 可行性研究可行性研究目标，就是用最小代价在尽可能短时间内确定问题是否能够处理，是否值得去解。我们从三个方面来进行可行性研究，即技术可行性、经济可行性和操作可行性。2. 1.1 技术可行性学生宿舍管理系统，采取Visual Basic 6.0进行编程和界面设计，以Access为后台数据库来实现，全方面采取以窗口、表单、对话框和联机帮助为特征图形用户界面技术和操作方法。系统操作简单，功效大，使用方便，含有很强技术可行性。2. 1.2经济可行性学生公寓管理是一个很大项目，在早期，还没有利用计算机管理时，一切全部是利用人工进行管理，这么管理起来既烦琐又复杂，资料也很轻易被丢失，而且耗时、耗资金。而利用本系统，能够高效地对学生宿舍进行统一管理和控制，资料也不轻易被丢失，这么大大节省了人力和资源，提升了管理效率，给管理人员带来很多方便。2. 1.3操作可行性操作可行性也即实用性。伴随计算机技术发展和网络发展，对学生宿舍管理和控制越来越实用而且得到管理者证实，不管是查询还是修改全部有很方便，查询信息一目了然。所以，它含有很强实用性。所以本系统在操作上也可行。 依据上述三个方面研究得出：能够开发本系统。2.2 功效需求基于系统需求分析，该系统需要实现以下基础功效：卫生评选管理模块，关键完成评选信息录入、修改和删除和评选结果查询功效。来客登记管理模块，关键提供来访登记、离开登记和来访信息查询功效。宿舍信息管理模块，关键是提供对房间信息录入、修改、删除功效，同时提供房房间信息查询功效。数据库管理：对现有数据库进行管理，包含数据备份和恢复，以方便用户对数据库管理和维护工作，提升系统数据安全性。2.3 性能需求系统运行环境：Windows 及其以上数据库：ACCESS数据库3 系统设计3.1系统层次模块图学生公寓管理系统人员信息卫生情况访客信息管理宿舍人员输入信息查询卫生情况录入来访登记来客信息表宿舍组员信息表卫生信息表 3.2数据库物理设计系统建立数据库表关键有四个，以下图所表示。字段名数据类型字段长度和格式关键字学号varchar50是姓名varchar50否籍贯varchar50否出生日期varchar50否院系varchar50否民族varchar50否电话varchar50否专业varchar50否班级varchar50否性别varchar50否学制varchar50否图3.6“宿舍人员”信息表结构字段名数据类型字段长度和格式关键字学号varchar50是被访人员varchar50否来访时间varchar50否离开时间varchar50否被访宿舍varchar50否来访人员varchar50否图3.7“来访”信息表结构字段名数据类型字段长度和格式关键字宿舍号varchar50是宿舍名varchar50否卫生等级varchar50否时间varchar50否图3.8“宿舍卫生”信息表结构字段名数据类型字段长度和格式关键字学号varchar50是密码varchar50是图3.9“用户账号”信息表结构4系统实现4.1系统用户管理模块说明：1.登录界面，这个系统原来是学生和管理员公用系统，经过类别选择学生还是管理人员，我只简单设计了学生登陆后系统，第一个界面有一个注册账号经过它能够注册登录新账号和密码。登录界面代码Private Sub Combo1_Click()If Form1.Combo1.Text = 宿舍管理员 ThenForm1.Label2 = 工号：Form1.Label3 = 密码：ElseForm1.Label2 = 学号：Form1.Label3 = 密码：End IfEnd SubPrivate Sub Command1_Click()EndEnd SubPrivate Sub Command2_Click()If Form1.Combo1.Text = 宿舍管理员 Then If Text1.Text = user Then Text2.SetFocus Else If Text1.Text user Then MsgBox 请输入正确用户名！, 64, 注意 Form1.Text1.Text = End If End If If Text1.Text = user And Text2.Text = 123456 Then Form1.Hide 学生1.Show Else If Text2.Text 123456 Then MsgBox 请输入正确密码！, 64, 注意 Form1.Text2.Text = End If End IfElse If Text1.Text = abc Then Text2.SetFocus Else If Text1.Text abc Then MsgBox 请输入正确用户名！, 64, 注意 Form1.Text1.Text = End If End If If Text1.Text = abc And Text2.Text = 123456 Then Form1.Hide 学生1.Show Else If Text2.Text 123456 Then MsgBox 请输入正确密码！, 64, 注意 Form1.Text2.Text = End If End IfEnd IfEnd SubPrivate Sub Label4_Click()账号.ShowEnd Sub4.2人员信息管理说明：登录进去以后是：宿舍人员信息、宿舍卫生信息、来访信息、人员信息查询这么多个按钮。说明： 经过“添加信息”按钮进入下面界面，可添加、删除、修改宿舍人员信息，然后把信息保留到ACCESS表中方便于后续查询管理。关键代码以下：Private Sub Command1_Click()On Error Resume NextCommand3.Enabled = Not Command3.EnabledCommand4.Enabled = Not Command4.EnabledCommand5.Enabled = Not Command5.EnabledIf Command1.Caption = 确定输入 Then Command1.Caption = 确定 Data1.Recordset.AddNew Else Command1.Caption = 确定输入 Data1.Recordset.Update Data1.Recordset.MoveLast Data1.UpdateRecord Data1.RefreshEnd IfEnd SubPrivate Sub Command2_Click() 学生3.Hide 学生1.ShowEnd SubPrivate Sub Command3_Click()On Error Resume NextCommand1.Enabled = 确定输入Command5.Enabled = 修改Command1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = FalseData1.UpdateControlsData1.Recordset.MoveNextEnd SubPrivate Sub Command4_Click()On Error Resume NextDim I As IntegerI = MsgBox(是否删除目前统计, 19, 警告)If I = 6 ThenData1.Recordset.DeleteData1.Recordset.MoveNextEnd IfIf Data1.Recordset.EOF ThenData1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command5_Click()On Error Resume NextCommand1.Enabled = Not Command1.EnabledCommand2.Enabled = Not Command2.EnabledCommand3.Enabled = Not Command3.EnabledCommand4.Enabled = Not Command4.EnabledIf Command5.Caption = 修改 ThenCommand5.Caption = 确定Data1.Recordset.EditElseCommand5.Caption = 修改Data1.Recordset.UpdateData1.UpdateRecordEnd IfEnd SubPrivate Sub Command6_Click() 学生3.Hide 学生1.ShowEnd SubPrivate Sub Command7_Click() 学生3.Hide 学生1.ShowEnd Sub4.3 宿舍卫生情况说明：经过按第一个界面“宿舍卫生情况”进入下面“卫生情况界面”，卫生评选选项卡能够经过对宿舍地面、窗台、床铺等各个角落卫生良好输入综合评定出宿舍总体卫生情况，然后添加信息保留到ACCESS表中，可经过“登记统计”选项卡进行查看总统计。关键代码以下：Private Sub Command1_Click() 卫生2.Hide 学生1.ShowEnd SubPrivate Sub Command2_Click()On Error Resume NextIf Command2.Caption = 评分等级 Then Command2.Caption = 确定 Data1.Recordset.AddNew Text1.SetFocus Else Command2.Caption = 评分等级 Data1.Recordset.Update Data1.Recordset.MoveLast Data1.UpdateRecord End IfEnd SubPrivate Sub Command3_Click()Dim a As IntegerDim b As IntegerDim c As IntegerDim d As Integer优 = 3通常 = 2差 = 0 If Combo1.Text = 优 Then a = 3 ElseIf Combo1.Text = 通常 Then a = 2 Else a = 0 End If If Combo2.Text = 优 Then b = 3 ElseIf Combo2.Text = 通常 Then b = 2 Else b = 0 End If If Combo3.Text = 优 Then c = 3 ElseIf Combo3.Text = 通常 Then c = 2 Else c = 0 End If If Combo4.Text = 优 Then d = 3 ElseIf Combo4.Text = 通常 Then d = 2 Else d = 0 End IfLoss1 = a + b + c + dIf Loss1 9 Then Combo5.Text = 优Else 6 Loss1 9 Then Combo5.Text = 通常 End If4.4 探访界面说明：这个窗口是用来统计学生亲属或好友对她进行来访是信息统计，经过输入保留到ACCESS表中，对宿舍人员财产等安全做到保障。选项卡“来访信息”中显示总来访信息。关键代码以下：Private Sub Command1_Click() 造访1.Hide 学生1.ShowEnd SubPrivate Sub Command2_Click()On Error Resume NextCommand1.Enabled = Not Command1.EnabledIf Command2.Caption = 添加访问 Then Command2.Caption = 确定 Data1.Recordset.AddNew Text1.SetFocus Else Command2.Caption = 添加访问 Data1.Recordset.Update Data1.Recordset.MoveLast Data1.UpdateRecordEnd IfEnd SubPrivate Sub Command3_Click() 造访1.Hide 造访2.ShowEnd SubPrivate Sub Command4_Click() 造访1.Hide 学生1.ShowEnd Sub4.5 查询界面说明：查询窗口能够经过选择宿舍号/学号/姓名，查询相对应个人信息/宿舍卫生情况/来访信息。关键代码以下：Private Sub Command1_Click() 查询.Hide 学生1.ShowEnd SubPrivate Sub Command2_Click()Dim strSQL As StringDim strCon(3) As StringDim intCount As IntegerDim I As IntegerintCount = 0取得全部查询条件If Text1.Text Then strCon(1) = 宿舍号码= & Text1.Text & Else strCon(1) = End IfIf Text2.Text Then strCon(2) = 学号= & Text2.Text & Else strCon(2) = End IfIf Text3.Text Then strCon(3) = 姓名= & Text3.Text & Else strCon(3) = End IfIf strCon(1) = And strCon(2) = And strCon(3) = Then strSQL = select * from 来访信息Else strSQL = select * from 来访信息 whereFor I = 1 To 3 If strCon(I) Then intCount = intCount + 1 If intCount = 1 Then strSQL = strSQL + strCon(I) Else strSQL = strSQL + and + strCon(I) End If End If NextEnd IfEnd Sub5系统测试系统测试目标为了发觉程序系统可能存在错误。测试标准是：尽可能不由程序设计者进行测试；要重视测试用例选择；充足注意测试中群集现象。本软件在操作过程中，操作方便、简单轻易入手，各个控件功效实现全部是如我所设计一样。 应用程序设计完成后，最终工作就是编译成可实施文件，而且制作一个可在其它用户端机器上安装程序。经过Visual Basic 6.0集成安装向导来制作安装程序，注意附带文件安装路径。设置基础信息，特征设置，安装类型，升级路径，添加指定程序内容，设置目标系统,定制安装对话框，定义安装系统要求和操作，最终公布安装6总结： 经过快要三个月设计和开发，学生公寓管理系统基础开发完成。其功效基础符合需求，能够完成用户宿舍人员信息管理，公寓卫生管理，来访信息管理，系统维护等方面功效，和多种相关功效扩展。不过因为毕业设计时间较短加上知识有限，该系统还有很多不足地方，源程序调试方面问题还有好多，犯错处理不够等方面问题。这些全部有待于以后深入改善。在设计过程中，经过学习了解了数据库系统开发原理和应用，基础掌握了开发工具Visual Basic6.0和Microsoft Access使用，为以后学习和开发打下了坚实基础。在此次毕业设计中，在没有做毕业设计以前认为毕业设计只是对这几年来所学知识单纯总结，不过经过这次做毕业设计发觉自己见解有点太片面。毕业设计不仅是对前面所学知识一个检验，而且也是对自己能力一个提升。经过这次毕业设计使我明白了自己原来知识还比较欠缺。自己要学习东西还太多，以前老是认为自己什么东西全部会，什么东西全部懂，有点眼高手低。经过这次毕业设计，我才明白学习是一个长久积累过程，在以后工作、生活中全部应该不停学习，努力提升自己知识和综合素质。我从指导老师那学到了好多东西。老师认真负责工作态度，严谨治学精神和深厚理论水平全部使我受益非浅。在系统设计开发过程中杨华老师给了很大帮助，帮助处理了很多难题，使得系统能立即开发完成，在设计过程中，我经过查阅大量相关资料，和同学交流经验和自学，并向老师请教等方法，使自己学到了不少知识，也经历了不少艰辛，但收获一样巨大。在整个设计中我知道了很多东西，也培养了我独立工作能力，树立了对自己工作能力信心，相信会对以后学习工作生活有很关键影响。而且大大提升了动手能力，使我充足体会到了在发明过程中探索艰苦和成功时喜悦。即使这个设计做也不太好，不过在设计过程中所学到东西是这次毕业设计最大收获和财富，使我终生受益。参考文件：1 孙秀梅,巩建华。 Visual Basic开发实战1例。北京：清华大学出版社，9月。 2 龙马创新教育研究室。Visual Basic从入门到精通。人民邮电出版社，9月。3 张翰文，齐锦刚。Visual Basic数据库系统开发实例和解析。高等教育出版社，9月4刘炳文，杨明福。全国计算机等级二级教程-Visual Basic源程序设计。高等教育出版社，8月。5 徐尔贵，张志宁，王庆等。Visual Basic6.0教程。电子工业出版社，6月。