宿舍管理系统毕业设计.docx
《宿舍管理系统毕业设计.docx》由会员分享，可在线阅读，更多相关《宿舍管理系统毕业设计.docx（23页珍藏版）》请在冰豆网上搜索。
宿舍管理系统毕业设计
郑州铁路职业技术学院
毕业论文
题 目 学生宿舍管理系统
学 号 班级计算机09A1
专 业 计算机应用系 别信息工程系
作者姓名 完成时间2012—5—13
指导教师 李乐 职 称 讲师
摘要
信息管理系统在现代社会已深入到各行各业,大学生宿舍管理系统就是一个典型的管理信息系统,它可以让宿舍管理工作变的更轻松.本毕业设计的任务就是设计一个大学生宿舍管理系统.其开发过程主要包括前端应用程序的开发和后台数据库的建立和维护两个方面。
主要任务就是建立基本数据,后台程序主要负责的都是管理上的功能。
系统是采用VisualBasic作为前台开发工具.
本系统最大的特点是通用性、简单操作性。
随着学校寄宿人员的增多,宿舍管理人员的负担越来越重，为了让所有宿舍管理人员能从繁重的工作中解脱出来，实现无纸化办公；使工作更有条理，更方便，更有效率而开发出这套宿舍管理软件。
第一章系统需求分析
一绪论
（一）开发背景
随着时代的发展,计算机技术越来越深入各行各业,为广大的用户提供了更为周到和便捷的服务。
目前各行各业广泛使用专用系统,其内容范围跨越了教育科研、文化事业、金融、商业、新闻出版、娱乐、体育等各个领域，其用户群十分庞大，因此，设计开发好一个专用系统对一个机构（或部门）的发展十分重要。
近年来,随着用户要求的不断提高及计算机科学的迅速发展,特别是数据库技术的广泛应用，向用户提供的服务将越来越丰富，越来越人性化。
对于学校而言，学生宿舍管理是必不可少的组成部分。
目前仍然存在有学校停留在宿舍管理部门人员手工记录数据的阶段，手工记录对于规模小的学校来说勉强可以接受；但对于学生信息量比较庞大，需要记录存档的数据比较多的高校来说，人工记录是相当麻烦的,而且当查找某条记录时，由于数据量庞大，只能依靠人工去一条一条地查找,这样不但麻烦而且浪费许多时间，工作效率比较低.采用计算机来管理宿舍和学生的信息，大大提高了查询的速度,节约了人力和物力资源，达到了预期的要求。
今天，计算机的价格已经十分低廉，性能却有了长足的进步。
它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面:
首先,计算机可以代替人工进行许多繁杂的劳动；
其次，计算机可以节省许多资源;
第三，计算机可以大大的提高人们的工作效率；
第四，计算机可以使敏感文档更加安全，等等.
（二）开发环境
VisualBasic（VB）是微软公示推出的功能强大的Windows应用程序开发工具。
与普通的数据库系统相比，用VB作为数据库开发平台有简单性、灵活性等有点，特别是其可扩充性,在VB中，可以使用ActiveX控件（以前版本中称VBX或OLE控件），很容易在VB中增加新功能，扩充VB数据库存取空间的指令系统。
二可行性分析
（一）经济可行性
由于开发此宿舍管理系统所需的硬件（计算机及相关硬件）和软件环境（VisualBasuc和SQLSERVER）价格低廉，在市场上都容易购买到，因此开发此系统成本低,经济效益高,因此系统经济可行，应积极开发.
（二）技术可行性
由于开发此宿舍管理系统需要的硬件环境有WindowsXP，支持的软件有开发工具VisualBasic所需用的操作人员熟练使用VisualBasic及SQL，具有一定的数据库开发功底及编程能力，现有开发工具VisualBasic支持强大的数据库开发，再加上WindowsXP稳定的运行环境的支持和开发人员的过硬技术，从功能和性能上完全都满足系统的要求，因此从技术方面讲开发此宿舍管理系统是可行的.
（三）操作可行性
系统是采用开发工具VisualBasic6。
0编程环境和Access2003数据库开发设计而成，具有操作简单方便、界面美观大方、对计算机操作知识要求层次低等优点。
（四）使用可行性
此宿舍管理系统具备良好的界面、使用方便、操作简单、易于被用户接受，用户只需可以熟练操作计算机和对此系统使用做简单的了解即可方便使用，而且使用此系统可以减速少大量录入工作,大大减少后勤管理人员的负担,从使用方面是此系统的开发是可行的.
第二章学生宿舍管理系统的主要功能
一主要功能
本系统中主要功能需求是:
对刚入学的学生进行入住登记，登记后的各种信息除了存入数据库外还要可以即时预览，如有个别同学需要转系转宿舍的，还可以及时地对他的宿舍进行调整，并把调整后的信息放入数据库，一般用户如果想要对学生信息进行查看，也可以根据条件进行搜索,把你自己所需要的信息查出来,以便你自己更好地查看你所需要的信息.如遇到修改信息，数据维护模块可以对学生的信息，以便管理人员和用户可以随时查到最新的信息,同时,可以随时对需要的信息进行维护和更新。
二功能权限图
系统功能按权限划分类别为两大类:
用户和管理员
1、用户：
注册、登录、修改密码、注销登录、退出系统
用户
注册账户
修改密码
注销登陆
退出系统
图1用户权限图
2、管理员:
信息录入、信息查询、系统管理
管理员
信息录入
信息查询
系统管理
学生信息登记
学生晚归登记
来访人登记
物品出入登记
住宿信息查询
晚归记录查询
数据备份
数据恢复
图2管理员权限图
第三章系统设计
一数据流图
为了更加清晰地表达系统的功能，下面给出学生宿舍管理系统的系统流程图。
（1）首先用户启动服务器及相关程序，然后客户端系统启动，进入身份验证。
通过身份验证后，激活各个功能模块,并执行指定模块,系统进入消息循环状态。
各项功能执行完毕后重新进入消息循环状态.由系统退出按钮激活系统关闭事件，退出系统。
如图3所示：
用户
注册
身份验证
密码
处理
打开
注销登陆
退出
密码
修改
密码
新密码
图3数据流图
（2）用户登录流程图:
用户登录具有用户登录功能。
系统运行的第一个界面便是用户登录界面.在用户登录界面中，首先选择用户注册,注册完毕后,在“用户名”和“密码"文本框中输入注册的用户名和密码后单击“登录"按钮，系统验证成功后,用户将会以注册的身份进入用户界面。
如果用户名或者密码输入错误,系统则给出提示重新输入，输入三次错误后则无法再登录，请关闭系统重新启动登录。
只有用户名和密码都正确，才能进入系统.因为系统为宿舍管理员使用，所以登陆后拥有全部权限。
如图4所示：
图4用户登录流程图
（3）用户管理流程图:
管理员对学生的各项信息进行管理是系统的主要功能.首先，学生入住提供需要登记的个人信息，管理员根据学生提供具体信息进行登记。
登记完毕后就对学生个人信息进行查询。
学生住宿过程中如果有晚归等违纪情况也可进行详细登记，想要了解学生的晚归违纪情况可进行查询。
日常生活中难免会有外人来访，则也要进行登记,以免发生意外情况。
学生携带贵重物品出入宿舍楼时对其进行登记,以保证学生人身财产安全。
管理员在日常使用系统时可对密码进行修改，以保证系统安全。
管理员还可定期对数据进行备份处理，以免系统出现问题导致数据丢失而没办法补救。
具体流程图如图5所示:
图5管理员操作流程图
二数据库设计
目前，可应用的数据库开发工作很多，Oracle是面向网络计算的数据库，适合开发大型网络应用软件；Access和VisualFoxpro系统适合开发小型数据库应用软件.Access数据库功能比较齐全，数据的备份、拷贝都很方便，且程序发布时不需要额外安装其他的数据库管理软件。
本系统数据量较小，采用Access数据库就可满足要求。
根据系统功能设计的要求及功能模块的划分，对于学生宿舍管理系统的数据库，可以列出以下表.
用户表：
用来存储用户的账号、密码信息。
根据用户的修改信息进行及时更新，以便管理员更好的管理系统.如表1所示：
表1用户信息表
字段名
数据类型
长度（字节）
用户账号
文本
20
用户密码
文本
20
（1）学生信息表：
每个学生在入住登记后有唯一的学号。
表内存放学生的各项详细信息资料，用唯一的学号来标识该学生.学生的详细信息记录有学号、姓名、性别、系别、班级、宿舍号、入住时间、家庭住址、联系方式、照片。
通过详细记录学生的具体信息，可以为宿舍的管理提供学生信息,方便后期的学生住宿管理。
如表2所示:
表2学生信息表
字段名
数据类型
长度（字节）
学号
文本
50
姓名
文本
50
性别
文本
50
系别
文本
50
班级
文本
50
宿舍号
文本
50
入住时间
文本
50
家庭住址
文本
50
联系方式
文本
50
照片
OLE对象
（2）晚归表：
晚归表记录学生晚上熄灯后回宿舍的信息。
考虑到学生的人身财产安全，登记时先要对其身份进行核查，确定其是本宿舍楼学生，所以晚归表信息包括学号、姓名、班级、宿舍号、日期、时间、原因。
这样能更好的记录学生违纪情况。
如表3所示：
表3学生晚归登记表
字段名
数据类型
长度（字节）
学号
文本
50
姓名
文本
50
班级
文本
50
宿舍号
文本
50
日期
日期/时间
短日期
时间
日期/时间
长时间
原因
备注
（3）物品出入表：
鉴于学生宿舍财产安全长时间无法得到保障,建立物品出入表登记学生出入宿舍时带的贵重物品，让学生财产安全多一层保障。
信息记录包括学号、宿舍号、姓名、物品名、日期、时间。
如表4所示：
表4物品出入登记表
字段名
数据类型
长度（字节）
学号
文本
20
宿舍号
文本
10
姓名
文本
10
物品名
文本
20
日期
日期/时间
短日期
时间
日期/时间
长时间
（4）来访表:
来访表是对宿舍来访人员进行登记,以保障宿舍学生的人身、财产安全。
登记首先要对被访人员进行核查，若是本宿舍楼学生则进行登记，否则不进行登记，也不允许进入.详细信息记录包括来访人姓名、要访人姓名、来访时间、所属关系、证件名称、证件号码、备注.如表5所示：
表5来访人员登记表
字段名
数据类型
长度（字节）
来访人姓名
文本
10
要访人姓名
文本
50
来访时间
时间/日期
常规日期
所属关系
文本
5
证件名称
文本
10
证件号码
文本
20
备注
备注
第四章系统实现
一数据库连接
数据库相对地址连接的代码为：
Adodc1。
ConnectionString=“Provider=Microsoft。
Jet。
OLEDB。
4.0;DataSource="+App.Path+“\数据源.mdb；PersistSecurityInfo=False”
Adodc1.CommandType=adCmdText
二功能模块实现
一般用户登录后，即进入了主界面,主界面分为六大块：
用户管理模块、信息管理模块、晚归管理模块、来访管理模块、物品管理模块、系统管理模块.其主界面如下图所示：
图6主界面图
（1）用户注册
图7用户注册图
其源代码为：
PrivateSubCommand1_Click（）
IfText1.Text="”Then
MsgBox"账号不能为空！
”,vbExclamation，”提示”
Text1。
SetFocus
ExitSub
EndIf
IfText2.Text=””Then
MsgBox"密码不能为空！
"，vbExclamation，”提示”
Text2。
SetFocus
ExitSub
EndIf
OnErrorResumeNext
Adodc1。
RecordSource=”select＊from用户表where用户账号=’”&Text1。
Text＆”'"
Adodc1.CommandType=adCmdText
Adodc1。
Refresh
IfAdodc1。
Recordset。
EOF=TrueThen
IfText3.Text="”Then
MsgBox”请确认密码!
”，vbExclamation,”提示”
Text3。
SetFocus
ExitSub
ElseIfText3。
Text〈>Text2.TextThen
MsgBox”密码不匹配,请重新输入！
”，vbExclamation，”提示"
Text3。
Text=”"
Text3。
SetFocus
ExitSub
Else
Adodc1。
Recordset.AddNew
Adodc1。
Recordset.Fields（"用户账号”）=Text1.Text
Adodc1。
Recordset。
Fields（"用户密码”）=Text2。
Text
Adodc1。
Recordset.Update
MsgBox"注册成功！
”，vbInformation,”提示"
Text1。
Text=”"
Text2。
Text=”"
Text3。
Text="”
Text1.SetFocus
EndIf
Else
MsgBox”用户已存在，请重新注册！
”，vbExclamation，”提示”
Text1.Text=”"
Text2。
Text=””
Text3。
Text=””
Text1。
SetFocus
ExitSub
EndIf
UnloadMe
denglu。
Text1。
SetFocus
（一）系统登录模块
图8登录界面图
“登陆“功能源代码：
PrivateSubCommand1_Click（）
OnErrorResumeNext
DimaAsString
DimbAsString
StaticnumberAsInteger
a=Trim（Text1。
Text）
b=Trim（Text2。
Text）
IfText1。
Text=””Then
MsgBox”帐户不能为空，请核对帐户信息！
”,vbExclamation，"核对帐户信息”
Text1.SetFocus
ElseIfText2.Text=””Then
MsgBox”密码不能为空,请核对密码信息!
”,vbExclamation，”核对密码信息”
Text2。
SetFocus
Else
Adodc1.RecordSource=”select＊from用户表where用户账号='”＆a＆"'and用户密码=’”＆b&"'”
Adodc1.CommandType=adCmdText
Adodc1。
Refresh
IfAdodc1。
Recordset.EOFThen’登录失败
MsgBox”对不起,无此用户或者密码不正确！
请重新输入！
",vbExclamation,"提示”
Text1。
Text="”
Text2。
Text=””
Text1.SetFocus
number=number+1
Ifnumber〉=3Then
MsgBox”您已经登录了”&number＆”次!
您无权操作本系统，请您退出！
",vbExclamation，"提示”
Command1。
Enabled=False
Text1.Enabled=False
Text2。
Enabled=False
EndIf
Else'登陆成功
MsgBox”欢迎使用本系统!
",vbInformation，"欢迎”
Me.Hide
zhujiemian.Show
fuzhujiemian。
StatusBar1。
Panels
（2）.Text=denglu.Text1。
Text
EndIf
EndIf
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubCommand3_Click（）
zhuce.Show
EndSub
PrivateSubForm_Load（）
Adodc1。
ConnectionString="Provider=Microsoft。
Jet。
OLEDB.4。
0；DataSource=”+App。
Path+”\数据源。
mdb;PersistSecurityInfo=False"
Adodc1.CommandType=adCmdText
Adodc1。
RecordSource=”select＊from用户表”
denglu。
Show
Text1.SetFocus
Text2。
Text="”
EndSub
（二）晚归管理模块
晚归管理模块包括晚归登记、晚归查询两个模块。
1。
晚归登记
图9晚归登记图
输入项:
学生的姓名；输出项：
经过核查学生信息子过程，系统会自动实现晚归学生学号、姓名、班级和寝室记录的录入.此模块主要包括两个功能：
一、能够通过输入晚归者姓名来核查一下晚归者的信息,最后通过DataGrid控件来显示晚归者的信息。
二、新的晚归者信息的录入。
通过command控件来保存刚录入的信息。
2.晚归查询
图10晚归查询图
本模块可以按学号、姓名、班级、寝室进行查询。
通过DataGrid控件来显示查询到的学生晚归的信息。
同时还能对数据库中晚归表的错误的信息的删除。
按学号查询源代码：
PrivateSubCommand1_Click（）
IfText1。
Text=””Then
MsgBox”请输入学号”，vbExclamation，”提示”
Text1.SetFocus
Else
Adodc1。
RecordSource=”select*from晚归表where学号='”&Trim（Text1。
Text）&”’”
Adodc1.CommandType=adCmdUnknown
Adodc1.Refresh
IfAdodc1.Recordset。
EOFThen
MsgBox"无此学生记录！
”,vbExclamation,”提示”
Text1。
Text="”
Text1。
SetFocus
Else
SetDataGrid1。
DataSource=Adodc1
DataGrid1。
Refresh
EndIf
EndIf
EndSub
PrivateSubCommand9_Click（）
Adodc1。
Recordset.Delete
Adodc1。
Recordset。
MoveNext
Adodc1。
Refresh
MsgBox（"删除成功！
”）
EndSub
PrivateSubForm_Load（）
Adodc1。
ConnectionString="Provider=Microsoft.Jet。
OLEDB.4。
0；DataSource="+App。
Path+”\数据源。
mdb；PersistSecurityInfo=False”
Adodc1。
CommandType=adCmdText
Adodc1。
RecordSource=”select*from晚归表”
SetDataGrid1。
DataSource=Adodc1
SetDataGrid2.DataSource=Adodc1
SetDataGrid3。
DataSource=Adodc1
SetDataGrid4.DataSource=Adodc1
wanguichaxun。
Show
Text1。
SetFocus
DataGrid1。
Refresh
DataGrid2.Refresh
DataGrid3.Refresh
DataGrid4。
Refresh
EndSub
（三）来访管理模块
图11来访登记图
此模块主要包括两个功能：
一、能够通过输入要访人姓名来核查一下来访者的信息,最后通过DataGrid控件来显示来访者的信息。
二、新的来访者信息的录入.通过command控件来保存刚录入的信息.
（四）物品管理模块
图12物品出入登记图
（五）系统管理模块
系统管理模块包括数据备份、数据恢复和退出系统功能。
这里主要介绍数据恢复功能。
图13数据恢复图
源代码：
PrivateSubCommand1_Click（）
DimzAsInteger
IfText1.Text=”"Then
MsgBox"请指定要恢复的数据库"
Else
Me。
MousePointer=11
FileCopyDir1。
Path&"\"＆File1。
FileName，App。
Path＆"\”＆"数据源。
mdb"
Me。
MousePointer=0
z=MsgBox（”数据恢复已完成！
!
！
"，vbOKOnly+vbExclamation，”提醒"）
IfzThen
UnloadMe
EndIf
EndIf
EndSub
PrivateSubCommand2_Click（）
Text1。
Text="”
UnloadMe
EndSub
PrivateSubDir1_Change（）
File1。
Path=Dir1.Path
EndSub
PrivateSubDrive1_Change（）
Dir1。
Path=Drive1.Drive
EndSub
PrivateSubFile1_Click（）
Command1。
Enabled=True
Text1.Text=Dir1.Path＆”\”＆File1.FileName
EndSub
PrivateSubForm_Load（）
Command1.Enabled=False
EndSub
第五章系统运行环境
系统采用VisualBasic6。
0设计，用户交互界面采用的是基于Windows的窗口界面.
（一）硬件环境：
CPU：
主频2。
0GHz以上
内存：
256MB及以上
硬盘：
需要约500MB程序空间，以及预留500MB的数据空间
（二）软件环境：
WindowsXP版本以上
Access2003以上
VisualBasic6。
0
第六章系统测试运行
软件系统的开发过程中是一个自顶向下逐步细化的过程，而测试过程是经相反顺序进行的集成过程。
测试包括单元测试（模块测试）、集成测试、有效性测试、系统测试.
测试在系统设计阶段有两个时期，通常在编写每个模块后做单元测试即模块测试,另一个时期是对系统的综合测试也称整体测试或集成测试。
只有通过测试排错后才能更回完善系统。
（一）模块测试
通过测试发现该模块单元的子程序或过程的实际功能与该模块的功能和接口的描述是否相符,以及是否有编码错误存在。
高可靠性的模块是组成可靠系统的坚实基础。
在模块测试时我们主要从以下几个方面考虑：
1。
模块接口测试；
2.局部数据结构测试；
3.路
升级会员 