VB学生公寓管理系统版Word文档下载推荐.docx
《VB学生公寓管理系统版Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《VB学生公寓管理系统版Word文档下载推荐.docx（22页珍藏版）》请在冰豆网上搜索。
4.5查询窗口………………………………………………………………………………17
5系统测试……………………………………………………………………………………20
6总结…………………………………………………………………………………………21
参考文献………………………………………………………………………………………22
李迎宝
（青海师范大学数学系2010级c班，青海西宁，810000）
摘要：
本软件的前台设计由VisualBasic6.0实现，后台数据库用ACCESS数据库表进行创建和管理。
本系统界面设计大方、简洁、实用，操作简单方便。
该系统具有卫生评比、来客登记和公寓信息功能。
卫生评比管理模块提供对卫生评比信息的管理功能，违纪处理管理模块实现违纪处理信息的管理，来客登记管理模块提供对来访人员信息的管理功能，房间信息管理模块提供房间信息维护功能。
关键词：
公寓管理系统；
VisualBasic6.0；
Access数据库
Studentapartmentmanagementsystem
LiYingbao
（QinghaiNormalUniversityDepartmentofmathematics2010Cclass,QinghaiXining,810008）
Abstract:
TheforegroundofthesoftwarebyVisualBasic6,backgrounddatabaseusingACCESSdatabasetablesarecreatedandmanaged.Thesysteminterfacedesigngenerous,concise,practical,simpleandconvenientoperation.Thesystemhasthehealthassessment,visitorregistrationandapartmentinformationfunction.Healthassessmentmanagementmoduleprovidesthehealthassessmentinformationmanagementfunctions,andprocessingmanagementmoduletoachievethelawtodealwithinformationmanagement,visitorregistrationmanagementmoduleprovidesthevisitorinformationmanagementfunctions,roominformationmanagementmoduleprovidestheroominformationmaintenancefunction.
Keywords:
Theapartmentmanagementsystem;
VisualBasic6;
Accessdatabasetable
1.课题描述
字典
各个学校对学生宿舍的管理已经有了很长的历史，并且已经具备了一定的规模和形态，同时对学生公寓的服务和管理也要求很高.诸如对学生入住情况的详细了解，以及来访者的情况都要求宿舍管理人员做的好，做的完善。
这样要求公寓管理人员对学生宿舍管理进行宏观的和微观的细致管理，其中最好的办法是用计算机操作的学生宿舍管理系统来实现对学生宿舍的管理。
学生宿舍管理系统在各个学校中都具有广泛的应用，它具有卫生评比、来客登记和公寓信息功能。
它不仅具有检索迅速、查找方便、操作简单、可靠性高、存储量大、保密性好、寿命长和成本低的优点，还可以极大地提高宿舍管理员的工作效率和质量。
开发工具：
VisualBasic6.0
2需求分析
2.1可行性研究
可行性研究的目的，就是用最小的代价在尽可能短的时间内确定问题是否能够解决，是否值得去解。
我们从三个方面来进行可行性研究，即技术可行性、经济可行性和操作可行性。
2.1.1技术可行性
学生宿舍管理系统，采用VisualBasic6.0进行编程和界面设计，以Access为后台数据库来实现的，全面采用以窗口、表单、对话框和联机帮助为特征的图形用户界面的技术和操作方法。
系统操作简单，功能大，使用方便，具有很强的技术可行性。
2.1.2经济可行性
学生公寓管理是一个很大的项目，在早期，还没有利用计算机管理时，一切都是利用人工进行管理的，这样管理起来既烦琐又复杂，资料也很容易被丢失，而且耗时、耗资金。
而利用本系统，可以高效地对学生宿舍进行统一管理与控制，资料也不容易被丢失，这样大大节省了人力与资源，提高了管理效率，给管理人员带来很多方便。
2.1.3操作可行性
操作可行性也即实用性。
随着计算机技术的发展以及网络的发展，对学生宿舍的管理与控制越来越实用并且得到管理者的证实，无论是查询还是修改都有很方便，查询的信息一目了然。
因此，它具有很强的实用性。
因此本系统在操作上也可行。
根据上述三个方面的研究得出：
可以开发本系统。
2.2功能需求
基于系统需求分析，该系统需要实现以下基本功能：
卫生评比管理模块，主要完成评比信息的录入、修改和删除以及评比结果的查询功能。
来客登记管理模块，主要提供来访登记、离开登记和来访信息查询功能。
宿舍信息管理模块，主要是提供对房间信息的录入、修改、删除功能，同时提供房房间信息查询功能。
数据库管理：
对现有的数据库进行管理，包括数据备份和恢复，以方便用户对数据库的管理和维护工作，提高系统的数据安全性。
2.3性能需求
系统运行环境：
Windows2000及其以上
数据库：
ACCESS数据库
3系统设计
3.1系统层次模块图
3.2数据库物理设计
系统建立的数据库表主要有四个，如下图所示。
字段名
数据类型
字段长度与格式
关键字
学号
varchar
50
是
姓名
否
籍贯
出生日期
院系
民族
电话
专业
班级
性别
学制
图3.6“宿舍人员”信息表结构
被访人员
来访时间
离开时间
被访宿舍
来访人员
图3.7“来访”信息表结构
宿舍号
宿舍名
卫生等级
时间
图3.8“宿舍卫生”信息表结构
密码
图3.9“用户账号”信息表结构
4系统实现
4.1系统用户管理模块
说明：
1.登录界面，这个系统本来是学生和管理员公用系统，通过类别选择学生还是管理人员，我只简单的设计了学生登陆后的系统，第一个界面有一个注册账号通过它可以注册登录的新的账号和密码。
登录界面代码
PrivateSubCombo1_Click（）
IfForm1.Combo1.Text="
宿舍管理员"
Then
Form1.Label2="
工号：
"
Form1.Label3="
密码：
Else
学号：
EndIf
EndSub
PrivateSubCommand1_Click（）
End
PrivateSubCommand2_Click（）
IfText1.Text="
user"
Text2.SetFocus
Else
IfText1.Text<
>
"
MsgBox"
请输入正确用户名！
64,"
注意"
Form1.Text1.Text="
EndIf
AndText2.Text="
123456"
Form1.Hide
学生1.Show
IfText2.Text<
请输入正确密码！
Form1.Text2.Text="
abc"
PrivateSubLabel4_Click（）
账号.Show
4.2人员信息管理
登录进去之后是：
宿舍人员信息、宿舍卫生信息、来访信息、人员信息的查询这么几个按钮。
通过“添加信息”按钮进入下面的界面，可添加、删除、修改宿舍人员信息，然后把信息保存到ACCESS表中以便于后续的查询管理。
主要代码如下：
OnErrorResumeNext
Command3.Enabled=NotCommand3.Enabled
Command4.Enabled=NotCommand4.Enabled
Command5.Enabled=NotCommand5.Enabled
IfCommand1.Caption="
确定输入"
Command1.Caption="
确认"
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
Data1.UpdateRecord
Data1.Refresh
学生3.Hide
PrivateSubCommand3_Click（）
Command1.Enabled="
Command5.Enabled="
修改"
Command1.Enabled=True
Command2.Enabled=True
Command3.Enabled=True
Command4.Enabled=True
Command5.Enabled=False
Data1.UpdateControls
Data1.Recordset.MoveNext
PrivateSubCommand4_Click（）
DimIAsInteger
I=MsgBox（"
是否删除当前记录"
19,"
警告"
）
IfI=6Then
Data1.Recordset.Delete
IfData1.Recordset.EOFThen
Data1.Recordset.MoveLast
PrivateSubCommand5_Click（）
Command1.Enabled=NotCommand1.Enabled
Command2.Enabled=NotCommand2.Enabled
IfCommand5.Caption="
Command5.Caption="
确定"
Data1.Recordset.Edit
Data1.Recordset.Update
Data1.UpdateRecord
PrivateSubCommand6_Click（）
PrivateSubCommand7_Click（）
4.3宿舍卫生情况
通过按第一个界面的“宿舍卫生状况”进入下面的“卫生情况界面”，卫生评比选项卡可以通过对宿舍地面、窗台、床铺等各个角落的卫生良好输入综合评估出宿舍总体卫生状况，然后添加信息保存到ACCESS表中，可通过“登记记录”选项卡进行查看总的记录。
卫生2.Hide
IfCommand2.Caption="
评分等级"
Command2.Caption="
Text1.SetFocus
DimaAsInteger
DimbAsInteger
DimcAsInteger
DimdAsInteger
优=3
一般=2
差=0
IfCombo1.Text="
优"
a=3
ElseIfCombo1.Text="
一般"
a=2
a=0
IfCombo2.Text="
b=3
ElseIfCombo2.Text="
b=2
b=0
IfCombo3.Text="
c=3
ElseIfCombo3.Text="
c=2
c=0
IfCombo4.Text="
d=3
ElseIfCombo4.Text="
d=2
d=0
Loss1=a+b+c+d
IfLoss1<
6Then
Combo5.Text="
差"
ElseIfLoss1>
9Then
优"
Else'
6<
Loss1<
一般"
4.4探访界面
这个窗口是用来记录学生亲属或朋友对他进行来访是的信息的记录，通过输入保存到ACCESS表中，对宿舍人员财产等安全做到保障。
选项卡“来访信息”中显示总的来访信息。
拜访1.Hide
添加访问"
Data1.Recordset.AddNew
拜访2.Show
4.5查询界面
查询窗口可以通过选择宿舍号/学号/姓名，查询相对应的个人信息/宿舍卫生情况/来访信息。
查询.Hide
DimstrSQLAsString
DimstrCon（3）AsString
DimintCountAsInteger
intCount=0
'
获得所有的查询条件
IfText1.Text<
strCon
（1）="
宿舍号码='
&
Text1.Text&
IfText2.Text<
strCon
（2）="
学号='
Text2.Text&
IfText3.Text<
strCon（3）="
姓名='
Text3.Text&
IfstrCon
（1）="
AndstrCon
（2）="
AndstrCon（3）="
strSQL="
select*from来访信息"
select*from来访信息where"
ForI=1To3
IfstrCon（I）<
intCount=intCount+1
IfintCount=1Then
strSQL=strSQL+strCon（I）
strSQL=strSQL+"
and"
+strCon（I）
Next
5系统测试
系统测试的目标为了发现程序系统可能存在的错误。
测试的原则是：
尽量不由程序设计者进行测试；
要注重测试用例的选择；
充分注意测试中的群集现象。
本软件在操作过程中，操作方便、简单容易入手，各个控件功能的实现都是如我所设计一样。
应用程序设计完成后，最后的工作就是编译成可执行文件，并且制作一个可在其他客户端机器上安装的程序。
通过VisualBasic6.0集成的安装向导来制作安装程序，注意附带文件的安装路径。
设置基本信息，特性设置，安装类型，升级路径，添加指定的程序内容，设置目标系统,定制安装对话框，定义安装系统要求和操作，最后发布安装
6总结：
经过将近三个月的设计和开发，学生公寓管理系统基
升级会员 