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

青海师范大学数学系信息和计算科学专业毕业论文

学生公寓管理系统

姓 名: 李迎宝
班 级： 10c
指导老师： 张淑敏 （教授）
完成时间： 5月5日

目 录

摘要 ……………………………………………………………………………………………1
Abstract ………………………………………………………………………………………1
1 课题描述……………………………………………………………………………………2
2 需求分析……………………………………………………………………………………2
2.1 可行性研究……………………………………………………………………………2
2.1.1 技术可行性……………………………………………………………………2
2.1.2 经济可行性……………………………………………………………………2
2.1.3 操作可行性……………………………………………………………………2
2.2 功效需求………………………………………………………………………………2
2.3 性能需求………………………………………………………………………………3
3 程序设计……………………………………………………………………………………3
3.1系统层次模块图………………………………………………………………………3
3.2数据库物理设计………………………………………………………………………3
4 系统实现……………………………………………………………………………………5
4.1 系统用户管理模块……………………………………………………………………5
4.2 人员信息管理…………………………………………………………………………8
4.3 宿舍卫生情况…………………………………………………………………………12
4.4 探访窗口………………………………………………………………………………15
4.5 查询窗口………………………………………………………………………………17
5 系统测试……………………………………………………………………………………20
6 总结…………………………………………………………………………………………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 table
1.课题描述
字典
各个学校对学生宿舍管理已经有了很长历史，而且已经含有了一定规模和形态，同时对学生公寓服务和管理也要求很高.诸如对学生入住情况具体了解，和来访者情况全部要求宿舍管理人员做好，做完善。这么要求公寓管理人员对学生宿舍管理进行宏观和微观细致管理，其中最好措施是用计算机操作学生宿舍管理系统来实现对学生宿舍管理。学生宿舍管理系统在各个学校中全部含有广泛应用，它含有卫生评选、来客登记和公寓信息功效。它不仅含有检索快速、查找方便、操作简单、可靠性高、存放量大、保密性好、寿命长和成本低优点，还能够极大地提升宿舍管理员工作效率和质量。

开发工具：Visual Basic 6.0

2 需求分析
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数据库物理设计
系统建立数据库表关键有四个，以下图所表示。

字段名
数据类型
字段长度和格式
关键字
学号
varchar
50
是
姓名
varchar
50
否
籍贯
varchar
50
否
出生日期
varchar
50
否
院系
varchar
50
否
民族
varchar
50
否
电话
varchar
50
否
专业
varchar
50
否
班级
varchar
50
否
性别
varchar
50
否
学制
varchar
50
否

图3.6“宿舍人员”信息表结构

字段名
数据类型
字段长度和格式
关键字
学号
varchar
50
是
被访人员
varchar
50
否
来访时间
varchar
50
否
离开时间
varchar
50
否
被访宿舍
varchar
50
否
来访人员
varchar
50
否

图3.7“来访”信息表结构

字段名
数据类型
字段长度和格式
关键字
宿舍号
varchar
50
是
宿舍名
varchar
50
否
卫生等级
varchar
50
否
时间
varchar
50
否

图3.8“宿舍卫生”信息表结构

字段名
数据类型
字段长度和格式
关键字
学号
varchar
50
是
密码
varchar
50
是

图3.9“用户账号”信息表结构
4系统实现
4.1系统用户管理模块
说明：1.登录界面，这个系统原来是学生和管理员公用系统，经过类别选择学生还是管理人员，我只简单设计了学生登陆后系统，第一个界面有一个注册账号经过它能够注册登录新账号和密码。

登录界面代码
Private Sub Combo1_Click()
If Form1.Combo1.Text = "宿舍管理员" Then
Form1.Label2 = "工号："
Form1.Label3 = "密码："
Else
Form1.Label2 = "学号："
Form1.Label3 = "密码："
End If
End Sub
Private Sub Command1_Click()
End
End Sub
Private 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 If
Else
If Text1.Text = "abc" Then
Text2.SetFocus
Else
If Text1Text <> "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 If
End If
End Sub
Private Sub Label4_Click()
账号.Show
End Sub
4.2人员信息管理
说明：登录进去以后是：宿舍人员信息、宿舍卫生信息、来访信息、人员信息查询这么多个按钮。

说明： 经过“添加信息”按钮进入下面界面，可添加、删除、修改宿舍人员信息，然后把信息保留到ACCESS表中方便于后续查询管理。

关键代码以下：
Private Sub Command1_Click()

On Error Resume Next
Command3.Enabled = Not Command3.Enabled
Command4.Enabled = Not Command4.Enabled
Command5.Enabled = Not Command5.Enabled
If Command1.Caption = "确定输入" Then
Command1.Caption = "确定"
Data1.Recordset.AddNew
Else
Command1.Caption = "确定输入"
Data1.Recordset.Update
Data1.Recordset.MoveLast
Data1.UpdateRecord
Data1.Refresh
End If
End Sub
Private Sub Command2_Click()
学生3.Hide
学生1.Show
End Sub
Private Sub Command3_Click()
On Error Resume Next
Command1.Enabled = "确定输入"
Command5.Enabled = "修改"
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = False
Data1.UpdateControls
Data1.Recordset.MoveNext
End Sub
Private Sub Command4_Click()
On Error Resume Next
Dim I As Integer
I = MsgBox("是否删除目前统计", 19, "警告")
If I = 6 Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End If
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
End Sub
Private Sub Command5_Click()
On Error Resume Next
Command1.Enabled = Not Command1.Enabled
Command2.Enabled = Not Command2.Enabled
Command3.Enabled = Not Command3.Enabled
Command4.Enabled = Not Command4.Enabled
If Command5.Caption = "修改" Then
Command5.Caption = "确定"
Data1.Recordset.Edit
Else
Command5.Caption = "修改"
Data1.Recordset.Update
Data1.UpdateRecord
End If
End Sub
Private Sub Command6_Click()
学生3.Hide
学生1.Show
End Sub
Private Sub Command7_Click()
学生3.Hide
学生1.Show
End Sub
4.3 宿舍卫生情况
说明：经过按第一个界面“宿舍卫生情况”进入下面“卫生情况界面”，卫生评选选项卡能够经过对宿舍地面、窗台、床铺等各个角落卫生良好输入综合评定出宿舍总体卫生情况，然后添加信息保留到ACCESS表中，可经过“登记统计”选项卡进行查看总统计。

关键代码以下：
Private Sub Command1_Click()
卫生2.Hide
学生1.Show
End Sub
Private Sub Command2_Click()
On Error Resume Next
If Command2.Caption = "评分等级" Then
Command2.Caption = "确定"
Data1.Recordset.AddNew
Text1.SetFocus
Else
Command2.Caption = "评分等级"
Data1.Recordset.Update
Data1.Recordset.MoveLast
Data1.UpdateRecord
End If
End Sub
Private Sub Command3_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim 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 If
Loss1 = a + b + c + d
If Loss1 < 6 Then
Combo5.Text = " 差 "
ElseIf Loss1 > 9 Then
Combo5.Text = " 优"
Else '6 < Loss1 < 9 Then
Combo5.Text = "通常 "
End If
4.4 探访界面
说明：这个窗口是用来统计学生亲属或好友对她进行来访是信息统计，经过输入保留到ACCESS表中，对宿舍人员财产等安全做到保障。选项卡“来访信息”中显示总来访信息。

关键代码以下：
Private Sub Command1_Click()
造访1.Hide
学生1.Show
End Sub

Private Sub Command2_Click()
On Error Resume Next
Command1.Enabled = Not Command1.Enabled
If Command2.Caption = "添加访问" Then
Command2.Caption = "确定"
Data1.Recordset.AddNew
Text1.SetFocus
Else
Command2.Caption = "添加访问"
Data1.Recordset.Update
Data1.Recordset.MoveLast
Data1.UpdateRecord
End If
End Sub
Private Sub Command3_Click()
造访1.Hide
造访2.Show
End Sub
Private Sub Command4_Click()
造访1.Hide
学生1.Show
End Sub
4.5 查询界面
说明：查询窗口能够经过选择宿舍号/学号/姓名，查询相对应个人信息/宿舍卫生情况/来访信息。

关键代码以下：
Private Sub Command1_Click()
查询.Hide
学生1.Show
End Sub
Private Sub Command2_Click()
Dim strSQL As String
Dim strCon(3) As String
Dim intCount As Integer
Dim I As Integer
intCount = 0
'取得全部查询条件
If Text1.Text <> "" Then
strCon(1) = "宿舍号码= '" & Text1.Text & "'"
Else
strCon(1) = ""
End If
If Text2.Text <> "" Then
strCon(2) = "学号= '" & Text2.Text & "'"
Else
strCon(2) = ""
End If
If Text3.Text <> "" Then

strCon(3) = "姓名= '" & Text3.Text & "'"
Else
strCon(3) = ""
End If
If strCon(1) = "" And strCon(2) = "" And strCon(3) = "" Then
strSQL = "select * from 来访信息"
Else
strSQL = "select * from 来访信息 where"
For 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
Next
End If
End Sub

5系统测试
系统测试目标为了发觉程序系统可能存在错误。
测试标准是：尽可能不由程序设计者进行测试；要重视测试用例选择；充足注意测试中群集现象。
本软件在操作过程中，操作方便、简单轻易入手，各个控件功效实现全部是如我所设计一样。 应用程序设计完成后，最终工作就是编译成可实施文件，而且制作一个可在其它用户端机器上安装程序。经过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月。