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()
''自动识别数据库路径
Data1.DatabaseName = App.Path & "\KFGL.mdb"
Data2.DatabaseName = App.Path & "\KFGL.mdb"
End Sub
Private Sub Form_Activate()
''当记录为零时，进入系统具有所有权限
If Data1.Recordset.RecordCount = 0 Then
MsgBox ("请先设置操作员密码和权限！")
Load main
main.Show
Unload Me
Else
Text1.SetFocus
End If
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Text2.SetFocus ''按回车键，text2获得焦点
End Sub
Private Sub text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Cmd1.SetFocus ''按回车键cmd1获得焦点
If KeyCode = vbKeyUp Then Text1.SetFocus
If KeyCode = vbKeyDown Then Cmd1.SetFocus
End Sub
Private Sub cmd1_Click()
main.StatusBar1.Panels(4).Text = Text1.Text ''赋值给main.StatusBar1.Panels(4).Text
''验证操作员及密码
If Data2.Recordset.BOF = False Then Data2.Recordset.MoveFirst
Data2.Recordset.FindFirst "操作员 like " + Chr(34) + Text1.BoundText + Chr(34) + ""
If Data2.Recordset.NoMatch Then
MsgBox ("操作员输入错误!")
Else
Data1.RecordSource = "select * from qxsz where 操作员=''" & Text1.BoundText & "''"
Data1.Refresh
If Text1.BoundText <> "" And Text2.Text <> "" And Text2.Text = Data1.Recordset.Fields("密码") Then
Load main
main.Show
Unload Me
Else
If TIM = 3 Then ''密码输错3次，退出系统
myval = MsgBox("密码输入错误,请向系统管理员查询!", 0, "")
If myval = vbOK Then End
End If
If Text1.BoundText = "" Then
MsgBox ("请输入操作员!")
Text1.SetFocus
Else
If Text1.BoundText <> Data1.Recordset.Fields("操作员") Then
MsgBox ("查无此操作员,请重新输入操作员!")
vb设计模拟密码输入器 Text1.SetFocus
Else
If Text2.Text = "" Then
MsgBox ("请输入操作员密码!")
Text2.SetFocus
Else
If Text2.Text <> Data1.Recordset.Fields("密码") Then
MsgBox ("密码错误,请重新输入密码!")
TIM = TIM + 1
Text2.SetFocus
End If
End If
End If
End If
End If
End If
End Sub
Private Sub cmd2_Click()
End6.2系统主程序窗口界面
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\Kfgl.MDB" ''自动识别数据库路径
End Sub
Private Sub Form_Activate() ''设置操作员权限
With Data1.Recordset
If .BOF = False Then .MoveFirst
.FindFirst "操作员 like " + Chr(34) + StatusBar1.Panels(4).Text + Chr(34) + ""
If .NoMatch Then
Else
main.zjyj.Enabled = .Fields("追加押金")
main.zsdj.Enabled = .Fields("住宿登记")
main.Label1.Enabled = .Fields("住宿登记")
main.tf.Enabled = .Fields("退宿登记")
main.Label2.Enabled = .Fields("退宿登记")
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论