毕业论文(宾馆管理系统)

毕业论文(宾馆管理系统)

新乡电力宾馆管理系统毕业论文

(系统VB6.0)

指导教师：张敏

计算机专业：裴文龙

前言

随着21世纪的钟声敲响，人类正以惊人的速度走出工业文明，步入超高速发展的信息时代。当人们昨天还在沉浸在4 86，586带来的高速、便捷时，而在今天，世界上又超乎人们想象地诞生了P42.4,P43.6……，对于明天，我们无法预想，因为计算机正以摩尔令人难以致信的速度发展。信息时代的来临仅改变着我们的生活，也不断改变着我们的思维方式和学习方式，以及我们周围的一切。可以说，计算机注定要伴随我们一生。电子信息的网络化，各行各业的高度信息化不断推动着社会的高度发展。对于我们新世纪的大学生，并且又是计算机专业的大学生，我们不仅仅要掌握计算机的基本技能，而且要精通计算机的科学技术及其应用。在现代化的经济时代里，信息化竞争已经越来越趋于白热化，具有先进的信息化技术，无论是个人也好，还是企业也罢，都能占据先机，从而有效地拓宽与发展。对于已经加入WTO的中国，我们已经别无选择了……

酒店管理系统是一个酒店行业不可缺少的部分,它的内容对于酒店的决策者和管理者来说都至关重要,所以酒店管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一旦长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。

随着科学技术的不断提高,计算机科学日渐成熟,其强

大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对教学信息进行管理,具有手工管理所无法比拟的优点.

例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高酒店管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。

1.总体设计

1.1设计目的

宾馆在正常的运营中需要对客房资源、顾客信息、结算信息进行管理，利用宾馆管理信息系统及时了解各个环节中信息的变更，有利于提高管理效率。

1.2系统功能分析

系统开发的总体任务是实现宾馆各种信息的系统化、规范化和自动化。主要完成功能：

● 有关客房标准的制定、标准信息的输入，包括标准编号、标准名称、房间面积、床位数量、住房单价、是否有空调、电视机、电话以及单独卫生间等。

● 客房标准信息的修改、查询等。

● 客房基本信息的输入，包括客房编号、客房类型、客房位置、客房单价、备注等。

● 客房基本信息的查询、修改，包括客房编号、客房类型、客房位置、客房单价、备注等。

● 剩余客房信息的查询等。

● 订房信息的输入，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、备注信息等。

● 订房信息的修改和查询，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、备注信息等。

● 结算信息的输入，包括客房编号、客房种类、位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结算日期、备注信息等。

● 结算信息的修改和查询，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结日期、备注信息等。

1.3系统功能模块设计

按结构化程序设计思想，当然最终设计考虑到自己的编程水平和能力，分析得出如下系统功能模块图

2.系统运行需求

2.1运行环境

操作系统：windows2000/xp

数据库：ACCESS

语言：VB6.0

2.2尚未问决的问题

功能尚不完善，有待于继续开发。

2.3功能概述及界面图示

1）系统登陆

2）系统主框架

系统欢迎界面。

3）系统设置

完成对操作员的增加、对密码的更改操作

添加操作员

4）客房管理

客房设置、客房查询、房态设置功能

客房设置

客房查询

房态设置

5）住宿管理

完成住宿登记、调房登记、住宿查询、退宿查询功能

住宿登记

调房登记

住宿查询6）员工管理

完成添加员工、查询员工功能。

查询员工

7）消费品管理

完成添加新消费品、消费品查询功能

添加新消费品

消费品查询8）账务管理

完成追加押金、退宿结账、挂账结款功能

9）关于

完成对系统和开发的介绍

3数据库设计

数据库设计步骤：

● 数据库需求分析

● 数据库概念结构设计

● 数据库逻辑结构设计

首先将宾馆管理信息系统的数据库概念结构转化为ACCESS2003数据库系统所支持的实际数据模型，即：数据库的逻辑结构。其各个表格的设计结果如下：

3.1 表格

表—djb

表—gzmx

表—kf

表—kfyd

表—qxsz

表—tfd

表—xfp

表—ygb

3.2宾馆管理信息系统几个代表窗口的具体程序实现:

房态查询代码实现：

Private Sub Form_Activate()

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

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

Dim mydb1 As Database '定义数据库

Dim myrs1 As Recordset '定义字段

Dim myrs2 As Recordset

Dim myrs3 As Recordset

Set mydb1 = Workspaces(0).OpenDatabase(App.Path & "\db.mdb") '定义数据环境

Set myrs1 = mydb1.OpenRecordset("kf", dbOpenSnapshot) '定义数据表

'入住房间查询

SQL = "select * from kf where kf.房态like " + Chr(34) + "入住" + Chr(34) + ""

Set myrs2 = mydb1.OpenRecordset(SQL)

'维修房间查询