宿舍财务管理系统 Word 文档Word下载.docx
《宿舍财务管理系统 Word 文档Word下载.docx》由会员分享，可在线阅读，更多相关《宿舍财务管理系统 Word 文档Word下载.docx（33页珍藏版）》请在冰点文库上搜索。
学生基本信息录入
学生财物登记
按学号查询
按班级查询
按姓名查询
按寝室号查询
楼号管理
宿舍管理
用户登录
修改密码
系统管理模块
公寓管理模块
学生管理模块
信息查询模块
信息修改模块
维修管理
来访管理
按寝室查询
系统功能模块图
在整体设计中，我们将宿舍管理系统分为五个大的模块：
系统管理模块、公寓管理模块、学生管理模块、信息查询模块、信息修改模块。
每个模块将实现不同的功能。
下面将具体进行介绍。
系统管理模块
系统管理模块包括：
用户登录、用户密码修改两个部分。
公寓管理模块
公寓管理模块包括：
公寓管理、宿舍管理、来访管理、宿舍维修管理。
学生管理模块
学生管理模块包括：
学生基本信息录入、学生财物登记二项功能.。
信息查询模块
信息查询模块基本上包括：
按公寓进行查询、按学号进行查询、按姓名进行查询、按班级查询、按寝室号查询五个部分。
信息修改模块
信息修改模块包括：
学生基本信息修改、个人财物信息修改二个功能。
2.系统E-R图
在我所设计的模块中，主要涉及学生、楼房、寝室这三个实体，所以在E-R图中我只是将这三个实体的属性进行了详细说明。
系统E-R图
3.系统所需表
综合以上分析，要实现上面的所有功能模块，共需要设计7个表，它们分别是：
用户表、学生基本情况表、寝室表、公寓表、学生财产表、班级表、、宿舍维修表。
表1
用户表（yonghu）
字段名
描述
数据类型
数据长度
NULL
Primarykey
用户
用户名
varchar
10
N
Y
Pass
用户密码
表2
学生基本情况表（user）
Stu_Id
学号
char
20
Stu_Name
姓名
nchar
Stu_Sex
性别
nvarchar
2
Dor_Id
寝室号
F
Stu_Enr
入学日期
N
Stu_Study
年制
Stu_Class
班级
Dor_Tel
宿舍电话
50
Stu_Des
备注
表3
寝室表（qinshi）
Hou_id
公寓号
表4
公寓表（gongyu）
Hou_Id
表5
班级表（class）
班级号
Class
表6宿舍维修表（weixiu）
楼房号
Fix_OVER
是否完成
Fix_time
维修日期
Nvarchar
Fix_sti
负责人
100
Fix_thing
维修物品
表7学生资产表（zichan）
Zc_Time
日期
HOU_ID
公寓
ZC_NAME
名称
ZC_MANY
数量
ZC_MONEY
单价
ZC_ZJ
总价
ZC_ZJA
用法
第三部分功能实现
一、数据库的链接实现
根据数据表设计结果，在access中进行对应设计
学生基本信息表的设计如下：
图1.1
二、系统功能结构
用户必需先要登陆到系统，用户表单独存储在文件当前目录下。
用户登陆到主界面后，可根据要求选择不同的操作先项
（1）系统管理
用户可以进行用户管理，进行添加、修改、删除用户的功能。
（2）公寓管理
这个模块有三个子模块，第一个模块是公寓设置，可以添加、修改、删除公寓。
第二个模块，寝室设置，可以添加、修改、删除寝室。
第三个模块，班级设置，可以添加、修改、删除寝室。
（3）公寓财产
可以添加财产、查询财产
查询财产分为两个子模块。
第一个是按照时间查询资产，第二个是按照公寓查找资产。
（4）信息管理
可以对学生信息进行条件查询功能，一共有5种查询功能，分别为：
按公寓查找、按寝室查找、按姓名查找、按班级查找、按学号查找。
（5）值班记录
此模块为特色模块，管理者可以记录最近发生的一些事情，并可以查询记录。
三、模块功能介绍
登陆界面设计
图3.1
当用户没有输入密码系统要进行提示，如下
图3.2
当用户输入错误的用户名、密码系统都要进行提示，如下
图3.3
数据库链接代码
DimconstrAsString
constr="
Provider=Microsoft.Jet.OLEDB.4.0;
DataSource="
+App.Path+"
\db.mdb;
PersistSecurityInfo=False"
'
定义数据库连接
conn.Openconstr
登陆条件选择代码
If（Text1.Text="
"
）Or（text2.Text="
）Then
MsgBox"
用户名或密码不能为空!
vbOKOnly,"
登陆错误"
ExitSub
EndIf
coon=Text1.Text
coom=text2.Text
sql="
select*fromyonghuwhere用户='
+coon+"
andpass='
+coom+"
Setrs=conn.Execute（sql）
Ifrs.EOFThen
用户名或密码错误!
Text1.Text="
text2.Text="
Text1.SetFocus
Else
UnloadMemainMDI.Showconn.Close
系统进入主界面
图3.4
登陆页面工具栏目选择代码
SelectCaseButton.Index
Case1
add.Show
Case2
shezhi.Show
Case3
find.Show
Case4
wupinlook.Show
Case5
weixiu.Show
Case6
riji.Show
Case7
guanyu.Show
Case8
UnloadMe
EndSelect
帐号管理
包括用户添加，用户删除，密码修改，管理用户查询。
点击【添加】后方可以添加新用户内容
图3.5
点击【删除】后就可以删除想删除的账户了
图3.6
点击【编辑】后就可以修改账户信息以及密码了
图3.7
添加用户代码
OnErrorResumeNext
IfCommand1.Caption="
添加"
Then
Command2.Enabled=FalseCommand5.Enabled=FalseCommand6.Enabled=False
Command1.Caption="
确定"
Command3.Caption="
取消"
Adodc1.Recordset.AddNew
Option1.Enabled=TrueOption2.Enabled=True
Text1.Enabled=TrueText2.Enabled=TrueText3.Enabled=True
Text2.Text="
ElseIfText1.Text="
用户名不能为空！
48,"
提示"
ElseIfText2.Text="
密码不能为空！
ElseIfText2.Text<
>
Text3.TextThen
密码两次需一致！
ElseIfText4.Text="
请选择所建用户类型！
Command2.Enabled=TrueCommand3.Enabled=TrueCommand5.Enabled=True
Command6.Enabled=True
Command3.Caption="
编辑"
Command1.Caption="
Adodc1.Recordset.Update
Text1.Enabled=FalseText2.Enabled=FalseText3.Enabled=False
Text4.Enabled=False
Option1.Value=FalseOption2.Value=False
Option1.Enabled=FalseOption2.Enabled=False
公寓管理
包括公寓设置、寝室设置、班级设置还有维修管理。
点击【公寓设置】
图3.8
进入公寓设置模块，默认是公寓设置，可以对公寓进行添加、修改、删除等功能。
点击【寝室管理】
图3.9
寝室设置可以对寝室进行添加、修改、删除功能。
点击【班级设置】
图3.10
班级设置可以对班级进行添加、修改、删除功能。
公寓设置代码
PublicFunctionstartree1（）
Adodc1.Refresh
Adodc2.Refresh
TreeView1.Nodes.Clear
DimIAsInteger
TreeView1.LineStyle=tvwRootLines'
根线
Setnod1=TreeView1.Nodes.add（,,"
公寓管理系统"
"
）
ForI=1ToAdodc1.Recordset.RecordCount
Setnod2=TreeView1.Nodes.add（"
tvwChild,"
child"
&
I,Adodc1.Recordset.Fields（"
公寓名称"
））
Adodc4.Mode=adModeReadWrite
Adodc4.ConnectionString=provider&
"
;
datasource
Adodc1.Recordset.MoveNext
Adodc4.CommandType=adCmdText
Adodc4.RecordSource="
select寝室fromqinshiwhere公寓名称='
nod2.Text&
Adodc4.Refresh
DimkAsLong
DoWhileNotAdodc4.Recordset.EOF
CallTreeView1.Nodes.add（nod2,tvwChild,"
childdorm"
CStr（k）,Adodc4.Recordset.Fields（"
寝室"
k=k+1
Adodc4.Recordset.MoveNext
Loop
Next
EndFunction
点击【维修管理】
图3.11
可以进行对需要维修物品的登记
如何没有输入信息就点击【登记】时就会出现登记错误提示
图3.12
如果填写正确
图3.13
点击【登记】，就把输入的记录登记进去了
图3.14
维修模块代码
PrivateSubCommand1_Click（）
IfText1.Text="
OrText2.Text="
OrText3.Text="
MsgBox"
请输入详细信息！
,"
WithAdodc1
.Recordset.AddNew
.Recordset.Fields（0）.Value=Text1.Text
.Recordset.Fields
（1）.Value=Text2.Text
.Recordset.Fields
（2）.Value=Text3.Text
.Recordset.Fields（3）.Value=Text4.Text
.Recordset.Fields（4）.Value=Text5.Text
.Recordset.Fields（5）.Value=Text6.Text
.Recordset.Update
EndWith
EndSub
公寓财产模块
包括添加物品功能、按时间查询资产功能、按公寓查询资产功能。
点击【添加物品】
图3.15
就会出现添加物品栏目，按照要求添加就能将信息成功填写进数据表里面了
点击【按时间查询资产功能】
图3.16
当输入错误格式时候显示
图3.17
当正确填写查询资产的时侯，就会显示出要求信息
图3.18
点击【按公寓查询资产功能】
图3.19
当输入错误的格式时候就显示
图3.20
当正确填写信息后，就会显示出要求查询的信息
图3.21
点击窗口中的【查询资产功能】
图3.22
也可以按照时间查询，公寓查询，也可以全部查询。
点击【全部查看】
图3.23
资产查询代码
IfOption1.Value=TrueThen
Adodc1.ConnectionString="
Adodc1.CommandType=adCmdUnknown
Adodc1.RecordSource="
select*fromzichan"
DataGrid1.Visible=True
ElseIfOption2.Value=TrueThen
IfIsDate（Text1.Text）=FalseThen
请输入正确的日期格式"
Text1.Text="
Text1.SetFocus
Else
Adodc1.ConnectionString="
Adodc1.CommandType=adCmdUnknown
Adodc1.RecordSource="
select*fromzichanwhere[日期]=#"
+Text1.Text+"
#"
Adodc1.Refresh
DataGrid1.Visible=True
EndIf
ElseIfOption3.Value=TrueThen
DimstAsString
st=StrReverse（Text2.Text）
IfMid（st,1,3）<
寓公号"
请输入正确的公寓要求格式"
select*fromzichanwhere[公寓]='
+Text2.Text+"
DataGrid1.Refresh
EndIfEndIf
信息管理模块
包括按信息条件查询和学生信息修改模块。
点击【按信息查询】
其他操作按照相应步骤进行查询
图3.30
学生信息修改
图3.31
直接将寝室改成666确认就可以把寝室号修改
图3.32
学生信息查询代码
DimstAsString
st=StrReverse（Text1.Text）
IfMid（st,1,3）<
Adodc1.CursorLocation=adUseClient
select*fromuserswhere[公寓]='
DataGrid1.Refresh
Endsub
值班记录模块
包含每日记录功能
点击【每日记录】
图3.35
将显示每日记录的页面，其功能包括查看旧记录，添加新记录。
点击【下一条】就显示上一次写的记录内容
图3.36
点击【增加】就可以添加记录
图3.37‘
在这里就可以填写信息了
日记代码
PrivateSubcmdAdd_Click（）
Me.Tag="
addnew"
frminput.Show
PrivateSubcmdDelete_Click（）
IftxtDate="
请选择记录!
每日一记"
DimResult
IfgiRecordCount=0ThenExitSub
Result=MsgBox（"
确定删除记录吗？
不可恢复"
vbQuestion+vbYesNo,"
电子日记本"
IfResult=vbYesThen
DeleteData
gbFirst=False
IfgiCurrentRecord>
1Thengi
升级会员 