2024年2月8日发(作者：)

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系统登陆窗口界面

Dim TIM As Integer ''定义一个整型变量

Dim myval As String ''定义一个字符串变量

Private Sub Form_Load()

''自动识别数据库路径

seName = & ""

seName = & ""

End Sub

Private Sub Form_Activate()

''当记录为零时，进入系统具有所有权限

If Count = 0 Then

MsgBox ("请先设置操作员密码和权限！")

Load main

Unload Me

Else

us

End If

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyReturn Then us ''按回车键，text2获得焦点

End Sub

Private Sub text2_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyReturn Then us ''按回车键cmd1获得焦点

If KeyCode = vbKeyUp Then us

If KeyCode = vbKeyDown Then us

End Sub

Private Sub cmd1_Click()

(4).Text = ''赋值给(4).Text

''验证操作员及密码

If = False Then rst

rst "操作员 like " + Chr(34) + ext + Chr(34) + ""

If h Then

MsgBox ("操作员输入错误!")

Else

Source = "select * from qxsz where 操作员=''" & ext & "''"

h

If ext <> "" And <> "" And = ("密码") Then

Load main

Unload Me

Else

If TIM = 3 Then ''密码输错3次，退出系统

myval = MsgBox("密码输入错误,请向系统管理员查询!", 0, "")

If myval = vbOK Then End

End If

If ext = "" Then

MsgBox ("请输入操作员!")

us

Else

If ext <> ("操作员") Then

MsgBox ("查无此操作员,请重新输入操作员!")

us

Else

If = "" Then

MsgBox ("请输入操作员密码!")

us

Else

If <> ("密码") Then

MsgBox ("密码错误,请重新输入密码!")

TIM = TIM + 1

us

End If

End If

End If

End If

End If

End If

End Sub

Private Sub cmd2_Click()

End6.2系统主程序窗口界面

Private Sub Form_Load()

seName = & "" ''自动识别数据库路径

End Sub

Private Sub Form_Activate() ''设置操作员权限

With set

If .BOF = False Then .MoveFirst

.FindFirst "操作员 like " + Chr(34) + (4).Text + Chr(34) + ""

If .NoMatch Then

Else

d = .Fields("追加押金")

d = .Fields("住宿登记")

d = .Fields("住宿登记")

d = .Fields("退宿登记")

d = .Fields("退宿登记")

d = .Fields("调房登记")

d = .Fields("客房管理")

d = .Fields("客房查询")

d = .Fields("房态查看")

d = .Fields("客户结款")

d = .Fields("住宿查询")

d = .Fields("住宿查询")

d = .Fields("退宿查询")

d = .Fields("宿费提醒")

d = .Fields("宿费提醒")

d = .Fields("客房销售报表")

d = .Fields("客房销售统计报表")

d = .Fields("操作员设置")

d = .Fields("密码设置")

d = .Fields("初始化")

d = .Fields("权限设置")

End If

End With

End Sub

Private Sub label1_Click() ''调入住宿登记

zsdj_Click

End Sub

Private Sub label2_Click() ''调入退宿结帐

tf_Click

End Sub

Private Sub Label3_Click() ''调入住宿查询

zscx_Click

End Sub

Private Sub Label4_Click() ''调入客房销售报表

xsbb_Click

End Sub

Private Sub Label5_Click() ''调入宿费提醒

sftx_Click

End Sub

Private Sub label6_Click()

End

End Sub

Private Sub zjyj_Click() ''调入追加押金

Load main_zjyj

main_

d = False

End Sub

Private Sub tfdj_Click() ''调入调房登记

main_

d = False

End Sub

Private Sub tf_Click() ''调入退宿结帐

main_

d = False

End Sub

Private Sub kfsz_Click() ''调入客房管理

[10] ... >>

VB酒店客房管理系统数据流图+ER图+功能模块图

main_

d = False

End Sub

Private Sub kfcx_Click() ''调入客房查询

main_

d = False

End Sub

Private Sub ftck_Click() ''调入房态查看

main_

d = False

End Sub

Private Sub gzcx_Click() ''调入挂帐查询

Load main_gzcx

main_

d = False

End Sub

Private Sub khjk_Click() ''调入客户结款

Load main_khjk

main_

d = False

End Sub

Private Sub zscx_Click() ''调入住宿查询

Load main_zscx

main_

d = False

End Sub

Private Sub tfcx_Click()

Load main_tfcx

main_

d = False

End Sub

Private Sub sftx_Click()

Load main_xftx

main_

d = False

End Sub

Private Sub xsbb_Click()

main_

d = False

End Sub

Private Sub xstj_Click()

main_

d = False

End Sub

Private Sub czysz_Click()

Load main_czysz

main_

d = False

End Sub

Private Sub ma_Click()

main_

d = False

End Sub

Private Sub csh_Click()

main_

d = False

End Sub

Private Sub qxsz_Click()

main_

''调入退宿查询

''调入宿费提醒

''调入客房销售报表

''调入客房销售统计

''调入操作员设置

''调入密码设置

''调入初始化

''调入权限设置

d = False

End Sub

Private Sub tc_Click()

End

End Sub

6.3住宿管理设计

6.3.1住宿登记

`

Private Sub ZSDJ_Change(Index As Integer)

Select Case Index

Case 6

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

= + Val(ZSDJ(6).Text) ''计算退宿日期

Case 8

ZSDJ(9).Text = Format(Val(ZSDJ(7).Text) * Val(ZSDJ(8).Text) / 100, "0.00") ''计算实际宿费

Case 10

If ZSDJ(10).Text <> "" Then

ZSDJ(10).Text = Val(ZSDJ(10).Text) ''用val函数将字符串转换为数字

= + 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

= #6:00:00 PM#

Else

= #12:00:00 AM#

End If

End If

End Select

End Sub

Private Sub ZSDJ_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)

Select Case Index

Case 0

If KeyCode = vbKeyReturn Then us ''按回车键Combo1获得焦点

Case 1

If KeyCode = vbKeyReturn Then ZSDJ(2).SetFocus ''按回车键ZSDJ(2)获得焦点

Case 2

If KeyCode = vbKeyReturn Then ZSDJ(3).SetFocus ''按回车键ZSDJ(3)获得焦点

Case 3

If KeyCode = vbKeyReturn Then us ''按回车键ZSDJ(2)获得焦点

Case 4

If KeyCode = vbKeyReturn Then ZSDJ(5).SetFocus ''按回车键ZSDJ(5)获得焦点

Case 5

SetFocus ''按回车键ZSDJ(10)获得焦点

Case 10

If KeyCode = vbKeyReturn Then ZSDJ(11).SetFocus ''ZSDJ(11)获得焦点

Case 11

If KeyCode = vbKeyReturn Then us ''按回车键Comok获得焦点

End Select

End Sub

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyReturn Then ZSDJ(1).SetFocus ''按回车键ZSDJ(1)获得焦点

End Sub

Private Sub DTP2_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyReturn Then us ''按回车键tim3获得焦点

End Sub

Private Sub DTP3_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyReturn Then us ''按回车键tim4获得焦点

End Sub

Private Sub tim3_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyReturn Then us ''按回车键DTP3获得焦点

End Sub

Private Sub tim4_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyReturn Then us ''按回车键Text10获得焦点

End Sub

Private Sub DBCombo1_Change()

''查询空闲房间信息

Source = "select * from kf where 房间号=''" & & "''and 房态=''空房''"

h

''查询住宿登记信息

Source = "select * from djb where 房间号=''" & & "''and 标志=''1''"

h

If Count > 0 Then

If Count = 0 Then

ZSDJ(4).Text = ("房间类型") ''赋值给ZSDJ(4)

ZSDJ(5).Text = ("价格") ''赋值给ZSDJ(5)

Else

MsgBox ("此房间已占用或停止使用!!")

End If

End If

End Sub

Private Sub DBCombo1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyReturn Then ZSDJ(5).SetFocus ''ZSDJ(5)获得焦点

End Sub

Private Sub comdj_Click()

''查询空闲房间信息

Source = "select * from kf where 房态=''空房''"

h

Source = "select * from kf where 房态=''空房''"

h

''生成凭证号码

Source = "select * from djb order by 凭证号码"

h

If Not Then st

If = "" Then = Date & "d" & Format(1, "###000")

If <> "" Then

= Month(Date)

= Month(Left(, 10))

If = Then

= Date & "d" & Format(Val(Right(, 3)) + 1, "###000")

End If

[10] ... >>

酒店客房管理系统VB源代码

If <> Then

= Date & "d" & Format(1, "###000")

End If

End If

''清空数据

For i = 0 To 6

ZSDJ(i).Text = ""

ZSDJ(i).Enabled = True

Next i

ZSDJ(8).Text = "": ZSDJ(10).Text = "": ZSDJ(11).Text = "": = "": = ""

''设置控件有效或无效

d = True: d = False: d = False: ZSDJ(8).Enabled = True

ZSDJ(10).Enabled = True: ZSDJ(11).Enabled = True: d = True: d = True

d = True: ZSDJ(0).SetFocus ''ZSDJ(0)获得焦点

End Sub

Private Sub comok_Click()

Dim mydb1 As Database

Dim myrs1 As Recordset

Set mydb1 = Workspaces(0).OpenDatabase( & "")

Set myrs1 = cordset("djys", dbOpenTable)

rst "房间号 like" + Chr(34) + + Chr(34) + "and 标志 like" + Chr(34) + "1" + Chr(34)

+ ""

If h Then

''添加住宿信息

If <> "" Then ("凭证号码") =

If ZSDJ(0).Text <> "" Then ("姓名") = ZSDJ(0).Text

If <> "" Then ("证件名称") =

If ZSDJ(1).Text <> "" Then ("证件号码") = ZSDJ(1).Text

If ZSDJ(2).Text <> "" Then ("详细地址") = ZSDJ(2).Text

If ZSDJ(3).Text <> "" Then ("出差事由") = ZSDJ(3).Text

If <> "" Then ("房间号") = Val()

If ZSDJ(4).Text <> "" Then ("客房类型") = ZSDJ(4).Text

If <> "" Then ("住宿日期") =

If <> "" Then ("住宿时间") =

If ZSDJ(5).Text <> "" Then ("客房价格") = Val(ZSDJ(5).Text)

If ZSDJ(6).Text <> "" Then ("住宿天数") = ZSDJ(6).Text

If ZSDJ(8).Text <> "" Then ("折扣") = ZSDJ(8).Text

If ZSDJ(7).Text <> "" Then ("宿费") = ZSDJ(7).Text

If <> "" Then ("结款方式") =

If ZSDJ(9).Text <> "" Then ("应收宿费") = ZSDJ(9).Text

If ZSDJ(10).Text <> "" Then ("预收金额") = Val(ZSDJ(10).Text)

If <> "" Then ("提醒日期") =

If <> "" Then ("提醒时间") =

If <> "" Then ("退宿日期") =

If <> "" Then ("退宿时间") =

If ZSDJ(11).Text <> "" Then ("备注") = ZSDJ(11).Text

("日期") = Date

("时间") = Time

("BZ") = Left(Date, 4) & Right(Left(Date, 7), 2) & Right(Date, 2) & Left(Time, 2) & Left(Right(Time,

5), 2)

("标志") = "1"

''更新记录

''添加住宿预收信息

If <> "" Then ("凭证号码") =

If ZSDJ(0).Text <> "" Then ("姓名") = ZSDJ(0).Text

If <> "" Then ("证件名称") =

If ZSDJ(1).Text <> "" Then ("证件号码") = ZSDJ(1).Text

If ZSDJ(2).Text <> "" Then ("详细地址") = ZSDJ(2).Text

If ZSDJ(3).Text <> "" Then ("出差事由") = ZSDJ(3).Text

If <> "" Then ("房间号") = Val()

If ZSDJ(5).Text <> "" Then ("客房价格") = Val(ZSDJ(5).Text)

If <> "" Then ("住宿日期") =

If <> "" Then ("住宿时间") =

If ZSDJ(6).Text <> "" Then ("住宿天数") = ZSDJ(6).Text

If <> "" Then ("结款方式") =

If ZSDJ(8).Text <> "" Then ("折扣") = ZSDJ(8).Text

If ZSDJ(7).Text <> "" Then ("宿费") = ZSDJ(7).Text

If ZSDJ(9).Text <> "" Then ("应收宿费") = ZSDJ(9).Text

If ZSDJ(10).Text <> "" Then ("预收金额") = Val(ZSDJ(10).Text)

If <> "" Then ("提醒日期") =

If <> "" Then ("提醒时间") =

If <> "" Then ("退宿日期") =

If <> "" Then ("退宿时间") =

If ZSDJ(11).Text <> "" Then ("备注") = ZSDJ(11).Text

("日期") = Date

("时间") = Time

("BZ") = Left(Date, 4) & Right(Left(Date, 7), 2) & Right(Date, 2) & Left(Time, 2) & Left(Right(Time, 5),

2)

("标志") = "1"

''更新记录

''更新房间状态

rst "房间号 like " + Chr(34) + + Chr(34) + ""

("房态") = "入住"

''设置控件有效或无效

For i = 0 To 6

ZSDJ(i).Enabled = False

Next i

ZSDJ(8).Enabled = False: ZSDJ(10).Enabled = False: ZSDJ(11).Enabled = False

d = False: d = False

End If

d = False: d = True: d = True

us

End Sub

Private Sub comcancel_Click() ''取消操作

For i = 0 To 11

ZSDJ(i).Enabled = False

Next i

d = False: d = False: d = False

d = False: d = False: d = False: d = False

d = False: d = False: d = True

End Sub

Private Sub comprint_Click() ''打印住宿登记单据

= 8000: = 8000

tX = 1100: tY = 300

ze = 12

"龙海宾馆 (住宿证) "

Dim A, B, C, D As Integer

A = 100: B = 500: C = 4800: D = 400

ze = 10

tX = 100 + A

tY = B + 200

Date & " " & Time & " NO." &

B = B + D

(A, B + 100)-(C, B + 100)

tX = 100 + A

tY = B + 200

"姓名：" & ZSDJ(0).Text

B = B + D

tX = 100 + A

tY = B + 200

"房间号:" &

B = B + D

tX = 100 + A

tY = B + 200

"押金:" & Format(ZSDJ(10).Text, "0.00")

B = B + D

tX = 100 + A

tY = B + 200

& ":" & ZSDJ(8).Text &