基于VB的酒店管理系统设计报告_课程设计

VB酒店管理系统设计报告

基于VB的酒店管理系统设计报告

目录

摘要 (2)

引言 (3)

一、系统功能设计 (4)

1.1、Visual Basic简介 (5)

1.2 系统功能分析 (5)

1.3 模块功能的设计 (6)

1.4系统结构分析和设计 (7)

二、数据库设计 (8)

2.1Microsoft office Access2003简介 (8)

2.2数据库表结构设计 (8)

2.2.1用户信息表（管理表） (8)

2.2.2登记信息表（入住表） (9)

2.2.3客房基础信息表（客房信息表） (9)

2.2.4退房登记信息表（退房登记表） (9)

2.2.5 客户基本信息表（客户表） (10)

三、系统实现 (10)

1.用户登录界面 (10)

2.用户注册界面 (11)

3.主界面 (13)

4.入住信息 (16)

5.退房信息 (19)

6、客房信息 (23)

7、报表打印 (23)

9、备份数据 (24)

10、系统简介 (25)

四、存在的问题 (26)

1.不能计时 (26)

2.不能计费 (26)

3.数据不能恢复 (26)

五．心德体会 (26)

摘要

当今社会，酒店种类和客流的不断增加，对于管理造成了困难。采用计算机来管理酒店和住客的信息，提高了查询的速度，节约了人力和物力资源，达到了预期的要求。

本系统根据酒店管理的现状及未来的发展方向，结合有关酒店管理当中的管理学实践，设计了酒店管理系统。

本系统是用于酒店服管理前台的系统软件。系统数据的管理采用了操作系统的最新管理方式，用户操作将会更简单、更直观、更方便。系统中各业务管理模块可以单机独立运行。使用本系统，可以大幅度提高酒店服务管理的工作效率。

该系统应充分利用信息技术提高酒店客房的管理水平、服务水平。酒店管理系统要实现以下功能：

（1）为用户提供方便、快捷的登录界面

（2）客房信息的维护与管理

（3）方便、快捷的查询

（4）库存模块管理

（5）数据库管理

关键词：Visual Basic语言；酒店管理系统；数据库

引言

酒店行业的激烈竞争似的争取客源、提高酒店满员率、制定正确营销策略已经成为一项重要的任务，而借助于当前蓬勃发展的IT工具来拓展销售能力，创造客观的经济效益已经成为许多酒店的首选。作为一有效的统计分析手段，计算机管理系统具有明显的优势，它在数据保存、数据交换等方面均能够做到快速可靠，是手工操作所不能完成的。

随着我国市场经济的迅速发展，人们在生活水平有了显著提高，旅游经济和各种商务活动更促进了酒店行业的快速发展。同时，随着酒店的数量越来越多，人们的要求也越来越高，酒店行业的竞争愈演愈烈。如何在激烈的市场竞争中生存和发展，是第一个酒店必须面临的问题。作为提供多功能服务的综合场所，吸引顾客是酒店生存的重要条件。提高酒店的经营管理，为顾客提供更优质的服务，同时降低酒店的运营成本是酒店发展的关健。面对信息时代的机遇和挑战，利用科技手段提高企业管理无疑是一条行之有效的途径。计算机的智能化管理技术可

以极大限度地提高服务管理水平，进行准确、快捷和高效的管理。因此，采用全新的计算机酒店管理系统，已成为提高酒店管理效率、改善服务水平的重要手段之一。酒店管理方面的信息化已成为现代化酒店的重要标志。

一、系统功能设计

1.1、Visual Basic简介

微软公司的Visual Basic 6.0是由微软公司于1998年推出的Windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。

微软公司在Visual Basic 6.0增加了ADO（ActiveX Data Objects）。ADO 是一个用于存取数据源的COM组件。它提供了编程语言和统一数据访问方式OLEDB的一个中间层。开发人员通过ADO，就可以很容易地编写出同时支持多种数据库的软件了。此外，借助COM/COM+强大的功能，使用Visual Basic可以轻松地开发多层结构的分布式应用程序以及高效的Web应用程序。

为什么选择Visual Basic来开发本系统呢？下面来介绍一下Visual Basic 的独到之处：

(1) Visual Basic主要特性

1易于学习和使用。Visual Basic的中心思想就是便于程序员使用，无论是新手还是专家，都能轻松上手并很快掌握它。Visual Basic基于图形界面的开发环境使开发者对各种功能一目了然、容易理解。用户仅仅通过鼠标的简单操作就可以构建出一个复杂的软件图形界面。

2 开发高效，功能强大。Visual Basic提供的图形用户界面和快速应用程序开发系统，使程序员可以轻松使用Visual Basic提供的各种功能的组件快速搭建一个应用程序。在数据库编程方面，使用微软提供的DAO、RDO、ADO等控件可以直观、高效地完成各种数据库操作。虽然Visual Basic易于使用，但这并不表明Visual Basic的功能薄弱，使用Visual Basic不仅可以开发简单的应用程序，还可以编写出商业级的客户端/服务器程序，以及强大的数据库应用程序。使用Visual Basic开发面向终端用户的具有良好界面的程序更是得以就手。

3支持多种数据库访问机制。Visual Basic 6.0具有强大的数据库管理功能。利用其提供的ADO访问机制和ODBC数据库连接机制，可以访问多种数据库，如Access、SQL Server等。

1.2 系统功能分析

通过对用户需求的分析，得出该系统大致可分为九个功能：酒店管理、客房

管理、客户管理、报表打印、备份数据、帮助和退出。系统的功能框图如图1.1所示。

1.3 模块功能的设计

总模块

1.4系统结构分析和设计

在开发小型酒店管理系统时，对客户的信息的管理必不可少，通过对系统进行的需求分析、业务流程设计以及系统功能结构的确定，规划出系统中使用的数据库实体对象及实体E-R图。

客房入住需要以客人信息及入住信息进行登记，这就存在一个登记信息实体，其实体如图所示：

客人退房时需要对退房信息进行登记，退房登记实体包含人的基本信息以及对房费进行结算登记的信息，退房登记实体图如图所示：

二、数据库设计

2.1Microsoft office Access2003简介

Microsoft Access是一种关系式数据库，是由微软公司开发的。关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。表与表之间可以建立关系（或称关联，连接），以便查询相关联的信息。Access数据库以文件形式保存，文件的扩展名是MDB。Access 数据库由六种对象组成，它们是表、查询、窗体、报表、宏和模块。表(Table)是数据库的基本对象，是创建其他5种对象的基础。表由记录组成，记录由字段组成，表用来存贮数据库的数据，故又称数据表。查询(Query)可以按索引快速查找到需要的记录，按要求筛选记录并能连接若干个表的字段组成新表。窗体(Form) 提供了一种方便的浏览、输入及更改数据的窗口。还可以创建子窗体显示相关联的表的内容。窗体也称表单。报表(Report) 的功能是将数据库中的数据分类汇总，然后打印出来，以便分析。宏(Macro) 相当于DOS中的批处理，用来自动执行一系列操作。模块(Module) 的功能与宏类似，但它定义的操作比宏更精细和复杂，用户可以根据自己的需要编写程序。

2.2数据库表结构设计

该系统使用了Access数据库，名称为data.mdb，其各表的功能和具体设计结构如下：

2.2.1用户信息表（管理表）

功能是保存系统的用户数据，表如下所示：

2.2.2登记信息表（入住表）

功能是用来保存客人住宿时的住宿登记信息，表如下所示：

2.2.3客房基础信息表（客房信息表）

功能是用来保存客房基础信息，表如下所示：

2.2.4退房登记信息表（退房登记表）

功能是用来保存客人退宿登记信息，表如下所示：

2.2.5 客户基本信息表（客户表）

功能是用来保存客户的基本信息，表如下所示：

三、系统实现

1.用户登录界面

如果你有用户名，那你就登录，它可以识别用户合不合法，如果合法，就登录成功，进入到下一个界面；如果不合法，就登录失败，重新登录。如果你没有用户名，你也可以在这里点击注册新用户。界面如下：

代码如下：

Dim sql As String

Dim rs_login As New ADODB.Recordset

Dim conn As New ADODB.Connection

conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\data.mdb"

If Trim(Text1.Text) = "" Then

MsgBox "用户名不能为空，请重新输入！"

Text1.SetFocus

Else

sql = "select * from 管理表where 姓名='" & Trim(Text1.Text) & "'"

rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic

If rs_login.EOF = True Then

MsgBox "没有这个用户,请重输入！", vbOKOnly + vbExclamation, ""

Text1.Text = ""

Text1.SetFocus

Else

username = Text1.Text

If Trim(rs_login.Fields(1)) = Trim(Text2.Text) Then

Unload Me

Form2.Show

Form1.Hide

Else

MsgBox "密码不正确,请重输入！", vbOKOnly + vbExclamation, ""

Text2.SetFocus

Text2.Text = ""

End If

End If

End If

cnt = cnt + 1

If cnt = 3 Then

Unload Me

End If

2.用户注册界面

新用户在这里注册，如果你所输入的用户名己存在，它就会提示“用户名己存在，请重新注册！”密码和确认密码要一致，否则就会提示“两次密码不一致，请重新输入！”。

界面如下：

代码如下：

Dim rs_bookstyle As New ADODB.Recordset

Dim conn As New ADODB.Connection

Dim sql As String

findform = False

sql = "select * from 管理表where 姓名= '" & Text1.Text & "'"

conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\data.mdb"

rs_bookstyle.CursorLocation = adUseClient

rs_bookstyle.Open sql, conn, adOpenKeyset, adLockPessimistic

If Text1.Text = "" Then

MsgBox "用户名不能为空，请输入用户名！", vbOK0nly + vbExclamation, ""

Text1.SetFocus

ElseIf Text2.Text = "" Then

MsgBox "密码不能为空，请输入密码！", vbOK0nly + vbExclamation, ""

Text2.SetFocus

ElseIf rs_bookstyle.EOF Then

Dim hh

hh = MsgBox("确信要注册新用户吗?", vbYesNo, "")

If hh = vbYes Then

rs_bookstyle.AddNew

rs_bookstyle("姓名") = Trim(Text1.Text)

rs_bookstyle("密码") = Trim(Text2.Text)

If Text2.Text = Text3.Text Then

rs_bookstyle.Update

MsgBox "恭喜，您已经注册成功！" & "您的用户名是：" & Text1.Text & "，密码是" & Text2.Text & "，请牢记！", vbOKOnly, ""

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Else

MsgBox "两次密码不一致，请重新输入！"

End If

Else

MsgBox "已取消注册!", vbOKOnly, ""

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End If

Else

MsgBox "用户名已存在，请重新注册！", vbOKOnly + vbExclamation, ""

End If

3.主界面

本界面是系统的主界面，主要有菜单栏和工具栏。点击菜单栏或工具栏的任何一个选项，都可以进入到相关界面，有更详细的介绍或功能。

界面如下：

菜单栏的设置

按钮的设置

按钮功能代码如下：

Select Case Button.Index

Case "1"

Form14.Show

Form2.Hide ‘调出客户信息

Case "2"

Form13.Show

Form2.Hide ‘调出入住信息

Case "3"

Form15.Show

Form2.Hide ‘调出退房信息

Case "4"

Form19.Show

Form2.Hide ‘调出客房信息Case "5"

Form23.Show

Form2.Hide ‘调出入住信息浏览Case "6"

Form24.Show

Form2.Hide ‘调出退房信息浏览Case "7"

Form22.Show

Form2.Hide ‘调出客户信息浏览Case Else

Form25.Show

Form2.Hide ‘调出客房信息浏览

End Select

4.入住信息

可以查询用户的入住信息，增加用户入住的信息，修改用户的入住信息，删除用户的入住信息，更新用户的入住信息。如果你在增加、修改、删除用户的入住信息，先点击上面的按钮，然后在表里进行增加、修改、删除，最后保存的时候你就点击更新就可以保存了。

代码如下：

全局变量

Dim rs_tushu As New ADODB.Recordset

Load事件

Private Sub Form_Load()

Dim conn As New ADODB.Connection

Dim sql As String

sql = "select * from 入住表"

conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\data.mdb" rs_tushu.CursorLocation = adUseClient

rs_tushu.Open sql, conn, adOpenKeyset, adLockPessimistic

DataGrid1.AllowAddNew = False

DataGrid1.AllowUpdate = False

DataGrid1.AllowDelete = False

Set DataGrid1.DataSource = rs_tushu

End Sub

4.0.1

增加信息提示框

增加的代码

Dim answer As String

answer = MsgBox("真的增加吗？", vbYesNo, "增加")

If answer = vbYes Then

DataGrid1.AllowAddNew = True

DataGrid1.AllowUpdate = True

rs_tushu.AddNew

MsgBox "真的增加吗？", 1 + 48, "增加"

Else

Exit Sub

End If

4.0.2

修改信息提示框

修改的代码

Dim answer As String

answer = MsgBox("真的修改吗？", vbYesNo, "修改")

If answer = vbYes Then

DataGrid1.AllowUpdate = True

'rs_tushu.Update

'DataGrid1.Refresh

Else

End If

4.0.3查询的代码

Dim rs_book As New ADODB.Recordset

Dim conn As New ADODB.Connection

Dim sql As String

sql = "select * from 入住表where 登记号='" & Text1.Text & "'"

conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\data.mdb" rs_book.CursorLocation = adUseClient

rs_book.Open sql, conn, adOpenKeyset, adLockPessimistic

If rs_book.EOF = True Then

MsgBox "没有这个用户，请重新输入！", vbOKOnly + vbExclamation, ""

Text1.Text = ""

Text1.SetFocus

Else

Set DataGrid1.DataSource = rs_book

DataGrid1.AllowAddNew = False

DataGrid1.AllowUpdate = False

DataGrid1.AllowDelete = False

End If

4.0.4

删除信息提示框

删除的代码

Dim answer As String

answer = MsgBox("真的删除吗？", vbYesNo, "删除")

If answer = vbYes Then

DataGrid1.AllowDelete = True

rs_tushu.Delete

rs_tushu.Update

DataGrid1.Refresh

Else

Exit Sub

End If

4.0.5更新的代码

rs_tushu.Update

DataGrid1.Refresh

界面如下：

代码如下：

Dim sql As String

Dim conn As New ADODB.Connection

Dim rs_bookstyle As New ADODB.Recordset

If Trim(Text1.Text) = "" Then

MsgBox "登记号不能为空", vbOKOnly + vbExclamation, ""

Text1.SetFocus

Exit Sub

End If

If Trim(Text2.Text) = "" Then

MsgBox "房间号不能为空", vbOKOnly + vbExclamation, ""

Text2.SetFocus

Exit Sub

End If

conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\data.mdb"

sql = "select * from 退房登记表where 登记号='" & Trim(Text1.Text) & "'"

rs_bookstyle.Open sql, conn, adOpenKeyset, adLockPessimistic

If rs_bookstyle.EOF Then

rs_bookstyle.AddNew

rs_bookstyle.Fields(0) = Trim(Text1.Text)

rs_bookstyle.Fields(1) = Trim(Text7.Text)