VB酒店客房管理系统数据流图+ER图+功能模块图.docx
- 文档编号:9242690
- 上传时间:2023-02-03
- 格式:DOCX
- 页数:17
- 大小:19.87KB
VB酒店客房管理系统数据流图+ER图+功能模块图.docx
《VB酒店客房管理系统数据流图+ER图+功能模块图.docx》由会员分享,可在线阅读,更多相关《VB酒店客房管理系统数据流图+ER图+功能模块图.docx(17页珍藏版)》请在冰豆网上搜索。
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 功能模块