VB酒店客房管理系统数据流图+ER图+功能模块图.docx
- 文档编号:23927353
- 上传时间:2023-05-22
- 格式:DOCX
- 页数:16
- 大小:18.74KB
VB酒店客房管理系统数据流图+ER图+功能模块图.docx
《VB酒店客房管理系统数据流图+ER图+功能模块图.docx》由会员分享,可在线阅读,更多相关《VB酒店客房管理系统数据流图+ER图+功能模块图.docx(16页珍藏版)》请在冰豆网上搜索。
VB酒店客房管理系统数据流图+ER图+功能模块图
VB酒店客房管理系统数据流图+ER图+功能模块图
第一章、系统概述
1.1项目研究的意义
第二章、系统需求分析
2.1编写目的……………………………………………………………1
2.2开发背景……………………………………………………………2
2.3参考资料……………………………………………………………2
2.4任务概述
2.4.1实现目标…………………………………………………………2
2.4.2运行环境…………………………………………………………3
2.3条件限制……………………………………………………………3
2.5数据描述
2.5.1信息需求…………………………………………………………3
2.5.2处理需求…………………………………………………………3
2.6数据流图……………………………………………………………4
2.7数据字典……………………………………………………………6
2.8功能需求
2.8.1功能模块…………………………………………………………6
2.8.2系统主要功能描述………………………………………………7
2.9性能需求
2.9.1数据精度…………………………………………………………7
2.9.2时间特性…………………………………………………………7
2.10运行需求…………………………………………………………7
2.11其他要求…………………………………………………………7
第三章、数据库概念结构设计
3.1E-R图 ………………………………………………………………8
3.1.1局部E-R图………………………………………………………8
3.1.2总E-R图…………………………………………………………9
第四章、数据库的逻辑结构设计(详细设计)
4.1关系模式………………………………………………………………10
4.2基本表…………………………………………………………………10
4.3接口设计………………………………………………………………12
第五章、系统的实现与调试
5.1系统流程设计…………………………………………………………13
第六章系统的界面设计及源代码
6.1登陆窗口界面及代码…………………………………………………14
6.2系统主窗口界面………………………………………………………15
6.3.住宿管理设计…………………………………………………………19
6.3.1住宿登记……………………………………………………………19
6.3.2追加押金……………………………………………………………25
6.3.3调房登记……………………………………………………………28
6.3.4退房结帐……………………………………………………………31
6.4客房管理………………………………………………………………36
6.4.1客房设置……………………………………………………………36
6.4.2.客房查询……………………………………………………………38
6.4.3.房态查看……………………………………………………………39
6.5挂帐管理………………………………………………………………41
6.6查询统计………………………………………………………………42
6.6.1.住宿查询……………………………………………………………42
6.6.2退宿查询……………………………………………………………42
6.6.3宿费提醒……………………………………………………………43
6.7日结设计………………………………………………………………44
6.7.1客房销售报表………………………………………………………44
6.8系统设置………………………………………………………………46
6.8.1操作员设置…………………………………………………………46
6.8.2密码设置……………………………………………………………47
6.8.3权限设置……………………………………………………………321
[10] ... >>
酒店客房管理系统
系统的界面设计及源代码
6.1系统登陆窗口界面
DimTIMAsInteger ''定义一个整型变量
DimmyvalAsString ''定义一个字符串变量
PrivateSubForm_Load()
''自动识别数据库路径
Data1.DatabaseName=App.Path&"\KFGL.mdb"
Data2.DatabaseName=App.Path&"\KFGL.mdb"
EndSub
PrivateSubForm_Activate()
''当记录为零时,进入系统具有所有权限
IfData1.Recordset.RecordCount=0Then
MsgBox("请先设置操作员密码和权限!
")
Loadmain
main.Show
UnloadMe
Else
Text1.SetFocus
EndIf
EndSub
PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
IfKeyCode=vbKeyReturnThenText2.SetFocus ''按回车键,text2获得焦点
EndSub
PrivateSubtext2_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
IfKeyCode=vbKeyReturnThenCmd1.SetFocus ''按回车键cmd1获得焦点
IfKeyCode=vbKeyUpThenText1.SetFocus
IfKeyCode=vbKeyDownThenCmd1.SetFocus
EndSub
PrivateSubcmd1_Click()
main.StatusBar1.Panels(4).Text=Text1.Text ''赋值给main.StatusBar1.Panels(4).Text
''验证操作员及密码
IfData2.Recordset.BOF=FalseThenData2.Recordset.MoveFirst
Data2.Recordset.FindFirst"操作员like"+Chr(34)+Text1.BoundText+Chr(34)+""
IfData2.Recordset.NoMatchThen
MsgBox("操作员输入错误!
")
Else
Data1.RecordSource="select*fromqxszwhere操作员=''"&Text1.BoundText&"''"
Data1.Refresh
IfText1.BoundText<>""AndText2.Text<>""AndText2.Text=Data1.Recordset.Fields("密码")Then
Loadmain
main.Show
UnloadMe
Else
IfTIM=3Then ''密码输错3次,退出系统
myval=MsgBox("密码输入错误,请向系统管理员查询!
",0,"")
Ifmyval=vbOKThenEnd
EndIf
IfText1.BoundText=""Then
MsgBox("请输入操作员!
")
Text1.SetFocus
Else
IfText1.BoundText<>Data1.Recordset.Fields("操作员")Then
MsgBox("查无此操作员,请重新输入操作员!
")
Text1.SetFocus
Else
IfText2.Text=""Then
MsgBox("请输入操作员密码!
")
Text2.SetFocus
Else
IfText2.Text<>Data1.Recordset.Fields("密码")Then
MsgBox("密码错误,请重新输入密码!
")
TIM=TIM+1
Text2.SetFocus
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndSub
PrivateSubcmd2_Click()
End6.2系统主程序窗口界面
PrivateSubForm_Load()
Data1.DatabaseName=App.Path&"\Kfgl.MDB" ''自动识别数据库路径
EndSub
PrivateSubForm_Activate() ''设置操作员权限
WithData1.Recordset
If.BOF=FalseThen.MoveFirst
.FindFirst"操作员like"+Chr(34)+StatusBar1.Panels(4).Text+Chr(34)+""
If.NoMatchThen
Else
main.zjyj.Enabled=.Fields("追加押金")
main.zsdj.Enabled=.Fields("住宿登记")
main.Label1.Enabled=.Fields("住宿登记")
main.tf.Enabled=.Fields("退宿登记")
main.Label2.Enabled=.Fields("退宿登记")
main.tfdj.Enabled=.Fields("调房登记")
main.kfsz.Enabled=.Fields("客房管理")
main.kfcx.Enabled=.Fields("客房查询")
main.ftck.Enabled=.Fields("房态查看")
main.khjk.Enabled=.Fields("客户结款")
main.zscx.Enabled=.Fields("住宿查询")
main.Label3.Enabled=.Fields("住宿查询")
main.tfcx.Enabled=.Fields("退宿查询")
main.sftx.Enabled=.Fields("宿费提醒")
main.Label5.Enabled=.Fields("宿费提醒")
main.Label4.Enabled=.Fields("客房销售报表")
main.xstj.Enabled=.Fields("客房销售统计报表")
main.czysz.Enabled=.Fields("操作员设置")
main.ma.Enabled=.Fields("密码设置")
main.csh.Enabled=.Fields("初始化")
main.qxsz.Enabled=.Fields("权限设置")
EndIf
EndWith
EndSub
PrivateSublabel1_Click() ''调入住宿登记
zsdj_Click
EndSub
PrivateSublabel2_Click() ''调入退宿结帐
tf_Click
EndSub
PrivateSubLabel3_Click() ''调入住宿查询
zscx_Click
EndSub
PrivateSubLabel4_Click() ''调入客房销售报表
xsbb_Click
EndSub
PrivateSubLabel5_Click() ''调入宿费提醒
sftx_Click
EndSub
PrivateSublabel6_Click()
End
EndSub
PrivateSubzjyj_Click() ''调入追加押金
Loadmain_zjyj
main_zjyj.Show
main.Enabled=False
EndSub
PrivateSubtfdj_Click() ''调入调房登记
main_tfdj.Show
main.Enabled=False
EndSub
PrivateSubtf_Click() ''调入退宿结帐
main_tf.Show
main.Enabled=False
EndSub
PrivateSubkfsz_Click() ''调入客房管理
[10] ... >>
VB酒店客房管理系统数据流图+ER图+功能模块图
main_kfgl.Show
main.Enabled=False
EndSub
PrivateSubkfcx_Click() ''调入客房查询
main_kfcx.Show
main.Enabled=False
EndSub
PrivateSubftck_Click() ''调入房态查看
main_ftcx.Show
main.Enabled=False
EndSub
PrivateSubgzcx_Click() ''调入挂帐查询
Loadmain_gzcx
main_gzcx.Show
main.Enabled=False
EndSub
PrivateSubkhjk_Click() ''调入客户结款
Loadmain_khjk
main_khjk.Show
main.Enabled=False
EndSub
PrivateSubzscx_Click() ''调入住宿查询
Loadmain_zscx
main_zscx.Show
main.Enabled=False
EndSub
PrivateSubtfcx_Click() ''调入退宿查询
Loadmain_tfcx
main_tfcx.Show
main.Enabled=False
EndSub
PrivateSubsftx_Click() ''调入宿费提醒
Loadmain_xftx
main_xftx.Show
main.Enabled=False
EndSub
PrivateSubxsbb_Click() ''调入客房销售报表
main_xsbb.Show
main.Enabled=False
EndSub
PrivateSubxstj_Click() ''调入客房销售统计
main_xstj.Show
main.Enabled=False
EndSub
PrivateSubczysz_Click() ''调入操作员设置
Loadmain_czysz
main_czysz.Show
main.Enabled=False
EndSub
PrivateSubma_Click() ''调入密码设置
main_mmsz.Show
main.Enabled=False
EndSub
PrivateSubcsh_Click() ''调入初始化
main_csh.Show
main.Enabled=False
EndSub
PrivateSubqxsz_Click() ''调入权限设置
main_qxsz.Show
main.Enabled=False
EndSub
PrivateSubtc_Click()
End
EndSub
6.3住宿管理设计
6.3.1住宿登记
`
PrivateSubZSDJ_Change(IndexAsInteger)
SelectCaseIndex
Case6
ZSDJ(7).Text=Format(Val(ZSDJ(6).Text)*Val(ZSDJ(5).Text),"0.00") ''计算折前宿费
ZSDJ(9).Text=ZSDJ(7).Text ''赋值给ZSDJ(9)
ZSDJ(8).Text=100
DTP3.Value=DTP1.Value+Val(ZSDJ(6).Text) ''计算退宿日期
Case8
ZSDJ(9).Text=Format(Val(ZSDJ(7).Text)*Val(ZSDJ(8).Text)/100,"0.00") ''计算实际宿费
Case10
IfZSDJ(10).Text<>""Then
ZSDJ(10).Text=Val(ZSDJ(10).Text) ''用val函数将字符串转换为数字
DTP2.Value=DTP1.Value+Int(Val(ZSDJ(10).Text)/Val(ZSDJ(5).Text)) ''计算提醒日期
If(Val(ZSDJ(10).Text)-Int(Val(ZSDJ(10).Text)/Val(ZSDJ(5).Text)))>0.5*Val(ZSDJ(5).Text)Then
tim2.Value=#6:
00:
00PM#
Else
tim2.Value=#12:
00:
00AM#
EndIf
EndIf
EndSelect
EndSub
PrivateSubZSDJ_KeyDown(IndexAsInteger,KeyCodeAsInteger,ShiftAsInteger)
SelectCaseIndex
Case0
IfKeyCode=vbKeyReturnThenCombo1.SetFocus ''按回车键Combo1获得焦点
Case1
IfKeyCode=vbKeyReturnThenZSDJ
(2).SetFocus ''按回车键ZSDJ
(2)获得焦点
Case2
IfKeyCode=vbKeyReturnThenZSDJ(3).SetFocus ''按回车键ZSDJ(3)获得焦点
Case3
IfKeyCode=vbKeyReturnThenDBCombo1.SetFocus ''按回车键ZSDJ
(2)获得焦点
Case4
IfKeyCode=vbKeyReturnThenZSDJ(5).SetFocus ''按回车键ZSDJ(5)获得焦点
Case5
SetFocus ''按回车键ZSDJ(10)获得焦点
Case10
IfKeyCode=vbKeyReturnThenZSDJ(11).SetFocus ''ZSDJ(11)获得焦点
Case11
IfKeyCode=vbKeyReturnThenComok.SetFocus ''按回车键Comok获得焦点
EndSelect
EndSub
PrivateSubCombo1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
IfKeyCode=vbKeyReturnThenZSDJ
(1).SetFocus ''按回车键ZSDJ
(1)获得焦点
EndSub
PrivateSubDTP2_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
IfKeyCode=vbKeyReturnThentim3.SetFocus ''按回车键tim3获得焦点
EndSub
PrivateSubDTP3_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
IfKeyCode=vbKeyReturnThentim4.SetFocus ''按回车键tim4获得焦点
EndSub
PrivateSubtim3_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
IfKeyCode=vbKeyReturnThenDTP3.SetFocus ''按回车键DTP3获得焦点
EndSub
PrivateSubtim4_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
IfKeyCode=vbKeyReturnThenText10.SetFocus ''按回车键Text10获得焦点
EndSub
PrivateSubDBCombo1_Change()
''查询空闲房间信息
Data2.RecordSource="select*fromkfwhere房间号=''"&DBCombo1.Text&"''and房态=''空房''"
Data2.Refresh
''查询住宿登记信息
Data1.RecordSource="select*fromdjbwhere房间号=''"&DBCombo1.Text&"''and标志=''1''"
Data1.Refresh
IfData2.Recordset.RecordCount>0Then
IfData1.Recordset.RecordCount=0Then
ZSDJ(4).Text=Data2.Recordset.Fields("房间类型") ''赋值给ZSDJ(4)
ZSDJ(5).Text=Data2.Recordset.Fields("价格") ''赋值给ZSDJ(5)
Else
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 酒店客房 管理 系统 数据流 ER 功能模块