酒店管理系统

姓名：刘焕青

目 录 摘要„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„2 前言„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„3 第一章 绪论„„„„„„„„„„„„„„„„„„„„„„„„„„„„4 „„„„„„„„„„„„„„„„„„„36

附录 „„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„37 摘 要

酒店管理系统是信息管理系统,其开发的功能主要包括：通过计算机管理酒店人事，日常酒店事务，实现无纸化办公，分析单位现状和员工的工作表现，通 关键字：ADO、窗体、数据库。

随着中国加入WTO和经济全球化格局的形成，越来越多的人感到21世纪国际酒店的竞争激烈，从设备豪华到价格竞争发展到人才全方位的竞争。要竞争就必须创新。创新，是酒店的生命。商场如战场，成功的管理者及其管理需要刚柔结合。

近年来，随着改革开放步伐的加快和中西方文化的交流与发展，以及中国加入WTO和经济全球化格局的形成，我国人民生活水平显著提高，全社会对餐饮业的需求量也越来越大，伴随着消费着的持续增长，餐饮行业已经成为现代社会中

免费论文 购买论文 定做论文 发表论文 3A学习网(www.3a3b.com) 考试 3A3B书店 -- 零售书籍 预定书籍 批发服务 同行配书 QQ：1009874606

- 2 -

发展最快的行业之一。随着我国经济的快速发展和餐饮业的增多，餐饮业的竞争也越来越激烈。要想在激烈的市场竞争中生存，就必须在经营管理、餐饮服务等方面提高管理意识。而对酒店的经营状况起决定性作用的是对酒店日常营业的管理。如何利用先进的管理手段，提高酒店的管理水平，是对每一家酒店的经营者0年代末。由于计算机技术的飞速发展，无论是计算机的普及性，还是计算机系统工具和数据库技术的发展，都为酒店管理系统的阶段性发展提供了可能。第二代酒店管理系统基本上解决了第一代系统的主要缺陷，对非财务的酒店管理信息和薪资的历史信息都给予了考虑，其报表生成和薪资数据分析功能也都有了较大的改善。但这一代的系统主要是由计算机专业人员开发研制的，未能系统地考虑酒店管理的需求和理念，而且其非财务的酒店管理信息也不够系统和全面。 3.酒店管理系统的性变革出现在20世纪90年代末。由于市场竞争的需要，如何吸引和留住人才，激发员工的创造性、工作责任感和工作热情已成为关系企业兴衰的重要因素，人才已经成为企业最重要的资产之一。\"公正、公平、合理\"的企业管理理念和企业管理水平的提高，使社会对酒店管理系统有了更高的需求；同时由于个人电脑的普及，数据库技术、客户/服务器技术，特别是 为了便于酒店各部门操作人员和顾客使用本系统，以及更容易掌握本系统的各项功能，使人善于并乐于使用本系统，应使系统界面设计友好，各个功能设计合理并人性化。

怎样开发一个酒店管理系统 一. 编程环境的选择

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

二. 关系型数据库的实现

Sql server2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Sql server 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Sql server 允许创建自定义报表用于打印或输出数据库中的信息。Sql server也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Sql server 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Sql server 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。,查询超时,连接超时和缺省数据库这样的连接信息.

免费论文 购买论文 定做论文 发表论文 3A学习网(www.3a3b.com) 考试 3A3B书店 -- 零售书籍 预定书籍 批发服务 同行配书 QQ：1009874606

- 3 -

(2) Command对象

在建立Connection后,可以发出命令操作数据源.一般情况下,Command对象可以在数据库中添加,删除或更新数据,或者在表中进行数据查询.Command对象在定义查询参数或执行一个有输出参数的存储过程时非常有用.

(3) Recordset对象

Recordset对象只代表一个记录集,这个记录集是一个连接的数据库中的表,或者是Command对象的执行结果返回的记录集.在ADO对象模型中,是在行中检查和修改数据的最主要的方法,所有对数据的操作几乎都是在Recordset对象中完成的.Record对象用于指定行,移动行,添加,更改,删除记录. 下面就具体地说说如何用ADO存取数据：

在实际编程过程中使用ADO的一个典型的存取数据的步骤为： (1) 连接数据源 (2) 打开记录集对象 (3) 使用记录集 (4) 断开连接

那么具体怎么是用呢?分别来看.(我在最后将给出一个完整的使用ADO的实例给大家参考.)

(1) 如何连接数据源

利用Connection对象可以创建一个数据源的连接.应用的方法是Connection对象的Open方法. 语法:

Connection对象.Open ConnectionString, UserID, PassWord, OpenOptions 其中：

Connection对象为你定义的Connection对象的实例;

Tools/Custom，在列表中选中Microsoft Data Control复选框，确认后即可将此控件加入到工具箱中去。

二. 设置联接库 用鼠标单击Data1，按下F4，打开属性窗口，设置Connect属性为Foxpro2.5，设置DatabaseName 为c:\\foxprow\\student.dbf（假设磁盘上已有这个文件）。

三. 加入字段显示、编辑控件（数据库捆绑控件）

在Form窗口中加入DGrid控件，如不在此控件，可打开主菜单Tools/Custom，在列表中选择Apex Data BroundGrid复选框，确认后即可向工具箱中加入此控件。在Form窗口中单击选中此控件（DGrid1），按下F4打开属性窗口，设置Datasource属性为Data1，在Form窗口中用鼠标右键单击控件

免费论文 购买论文 定做论文 发表论文 3A学习网(www.3a3b.com) 考试 3A3B书店 -- 零售书籍 预定书籍 批发服务 同行配书 QQ：1009874606

- 4 -

DGrid1，选择 Retrieve Fields；再用鼠标右键单击控件DGrid1，选择Edit，用鼠标调整控件及有关字段大小；再用鼠标右键单击控件DGrid1，选择Properties（属性），在弹出窗口中，选择Colums标签，在下拉列表中选Colum1，将Caption属性改为“学号”，选择Colum2，Caption属性改为“姓名”，选择Colum3、4将Caption属性改为“性别”、“专业”，按下“确定”按钮。 再向Form窗口中加入一个按钮控件，将Caption属性设置为“退出”，双击该控件（Command1），在代码窗口中写入“END”，存盘。

此时，一个具备数据库读写、浏览功能的应用程序就建立了，按下F5运行，通过单击Data1的各按钮即可看出当前记录的变化情况。 在此基础上，我们还可以借助数据库控制控件的有关属性和方法进行更灵活的操作和控制。

1、 设置Data1.Visiable=False’将控件设为不可见

2、 将按钮Command2，3，4，5，6，7的Caption属性分别设置为“追加”、“首记录”、“上一条”、“下一条”、“尾记录”、“删除”，双击各按钮，分别写入事件代码：

Sub Command1-Click() ’关闭应用程序 End

End Sub

Sub Command2-Click() ’追加记录 Data1.Recordset .Addnew Data1.Recordset .Update Data1.Recordset .MoveLast

End Sub，而不对单个记录进行操作，可操作记录集，所有SQL 语句接受集合作为输入，返回集合作为输出。SQL的集合特性允许一条SQL语句的结果作为另一条SQL语句的输入。

SQL不要求用户指定对数据的存放方法， 这种特性使用户更易集中精力于要得到的结果；所有SQL语句使用查询优化器，它是RDBMS的一部分，由它决定对指定数据存取的最快速度的手段，查询优化器知道存在什么索引，在哪儿使用索引合适，而用户则从不需要知道表是否有索引、有什么类型的索引。

SQL可用于所有用户的DB活动模型，包括系统管理员、数据库管理员、 应用程序员、决策支持系统人员及许多其它类型的终端用户。基本的SQL 命令只需很少时间就能学会，最高级的命令在几天内便可掌握。 SQL为许多任务提供了命令，其中包括： ● 查询数据

● 在表中插入、修改和删除记录 ● 建立、修改和删除数据对象 ● 控制对数据和数据对象的存取

免费论文 购买论文 定做论文 发表论文 3A学习网(www.3a3b.com) 考试 3A3B书店 -- 零售书籍 预定书籍 批发服务 同行配书 QQ：1009874606

- 5 -

● 保证数据库一致性和完整性

以前的数据库管理系统为上述各类操作提供单独的语言，而SQL 将全部任务统一在一种语言中。

是所有关系数据库的公共语言

由于所有主要的关系数据库管理系统都支持SQL语言，用户可将使用SQL的技能从一个RDBMS(关系数据库管理系统)转到另一个，所有用SQL编写的程序都是可以移植的。

SQL语言的分类及语法

可执行的SQL语句的种类数目之多是惊人的。使用SQL，你可以执行任何功能：从一个简单的表查询，到创建表和存储过程，到设定用户权限。在这个章节中，我们将重点讲述如何从数据库中检索、更新和报告数据，也是基于这个目的，我们应该了解的最重要的SQL语句是： ● SELCET ● INSERT ● UPDATE ● DELETE ● CREAT ● DROP

免费论文 购买论文 定做论文 发表论文 3A学习网(www.3a3b.com) 考试 3A3B书店 -- 零售书籍 预定书籍 批发服务 同行配书 QQ：1009874606

- 6 -

第五章 系统总体规划

一．需求分析 系统实现目标

酒店管理系统主要包括出入库管理、点菜管理、结帐管理、数据统计分析及报表打印管理等几部分。原材料出入库管理是对酒店日常消费的必需品和原材料进行管理；点菜管理能够实现点菜、转台、并台和查询点菜信息等功能；结帐管理中具有多次结帐的功能；数据统计分析包括日结统计、日结冲帐和数据分析三部分，分别实现对营业额的结算、销毁冲帐和分析营业数据的功能；报表打印管理中能够实现对菜单、出入库、入库单和客户消费单中的打印功能。 系统功能

出入库信息管理。完成酒店日常营业中原材料出入库的管理及维护，主要能够实现信息增加、删除、查询、修改等基本功能。 期初设置。在酒店管理系统中期设置主要包括菜单信息录入和房台信息录入两部分，分别实现对菜单信息的维护和房台信息的维护。 点菜管理。点菜管理是系统功能的核心，也是频率最高的模块，能够完成点菜、转台和并台的功能。

网络通信。实现在局域网内通讯、发送和接收电子邮件以及将营业数据上传等功能。

结帐管理。根据现代社会发展的需要，本系统中的结帐管理设计了具有多次结帐的功能，并且能够根据帐单编号随时查询某一帐单的信息。

统计分析管理。统计分析模块由统计日结、日结冲帐和数据分析三部分组成。统计日结能够完成一天或者多天的营业额结算，日结之后的数据则不能再进行日结，如需要再日结，应该进行日结冲帐。数据分析可以分析某一段时间内的营业数据，并且将数据分析结果通过图表显示出来。

系统维护管理。系统维护包括数据备份、数据恢复和操作员设置等几部分。数据备份是对数据库中的所有数据进行备份；数据恢复是对以前进行备份的数据进行恢复，以保证数据库的安全性和可靠性，避免因为数据意外丢失而造成的不必要损失；操作员设置可以给不同的操作员分配不同的权限。

打印报表管理。实现打印菜单、出库单、入库单和顾客消费单的功能。

在系统登陆界面中，使用了ListView控件以大图标的方式显示操作员，使得界面更形象、更直观。

免费论文 购买论文 定做论文 发表论文 3A学习网(www.3a3b.com) 考试 3A3B书店 -- 零售书籍 预定书籍 批发服务 同行配书 QQ：1009874606

- 7 -

在ListView控件中显示操作员的具体代码如下： Private Sub Form_Load() If App.PrevInstance Then

MsgBox \"对不起,酒店管理系统已经处于运行状态,请您关闭应用程序后再运行程序!!\酒店管理系统\" End Else End If

Me.Left = (Screen.Width - Me.Width) / 2 Me.Top = (Screen.Height - Me.Height) / 2

Adodc1.RecordSource = \"select * from Table_xtdl\" Adodc1.Refresh

If Adodc1.Recordset.RecordCount > 0 Then ListView1.Enabled = True ListView1.ListItems.Clear Adodc1.Recordset.MoveFirst Do While Adodc1.Recordset.EOF = False key = Text3.Text Set itmX = ListView1.ListItems.Add(, , key, 1) Adodc1.Recordset.MoveNext Loop Else ListView1.Enabled = False End If Time_dl = Format(Now, \"yyyy-mm-dd hh:mm:ss\") End Sub

2.主界面

免费论文 购买论文 定做论文 发表论文 3A学习网(www.3a3b.com) 考试 3A3B书店 -- 零售书籍 预定书籍 批发服务 同行配书 QQ：1009874606

- 8 -

图-10

系统主界面的设计过程如下：

在Visual Basic 6.0中新建一个工程，将工程命名为“酒店管理系统”。在工程中添加一个窗体，命名为“frm_main”。

在“frm_main”窗体中加入一个Label控件、一个Toolbar控件、一个Imagelist控件、一个Adodc控件和10个Check控件，根据需要，有些控件在程序运行的时候是隐藏不显示的。

在主界面中，通过系统菜单和Toolbar按钮来控制和调用其他子程序，完成相关的操作，运行结果如图-9所示。

在主窗体中Toolbar控件的相关程序代码如下：

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) S

支持一般PII或更高档微机、笔记本电脑。 服务器

根据应用的规模，服务器可采用各种专用的服务器（如：SUN服务器等）也可使用操作系统为Linux的小型服务器。 数据库软件

根据服务器操作系统平台选择sql server以上版本的数据库 软件接口

运行与WINDOWS95/98/Me/2000/NT，切具有WIN32 API的操作系统之上。

免费论文 购买论文 定做论文 发表论文 3A学习网(www.3a3b.com) 考试 3A3B书店 -- 零售书籍 预定书籍 批发服务 同行配书 QQ：1009874606

- 9 -

第七章 结束语

经过一个多月的设计和开发，该酒店管理系统基本开发完毕。其功能基本符合客户需求。对于数据的一致性的问题也通过程序进行了有效的解决。但是由于毕业设计时间以及水平有限，所以该系统还有许多不尽如人意的地方，比如功能较少等多方面问题。这些都有待进一步改善.也希望老师们能够多多指教,好让我能够不断进步.

免费论文 购买论文 定做论文 发表论文 3A学习网(www.3a3b.com) 考试 3A3B书店 -- 零售书籍 预定书籍 批发服务 同行配书 QQ：1009874606

- 10 -

主要参考文献:

[1] Visual Basic 6.0 使用指南

作者：Bob Reselman , Richard Peasley , Wayne Pruchniak. 出版社：电子工业出版社

[2] 中文Sql server 2000 24学时教程 作者：Craig Eddy ，Timothy Buchanan 出版社：机械工业出版社

免费论文 购买论文 定做论文 发表论文 3A学习网(www.3a3b.com) 考试 3A3B书店 -- 零售书籍 预定书籍 批发服务 同行配书 QQ：1009874606

- 11 -

致 谢

在本次毕业设计中，我要非常感谢指导老师从何落手的时候给了我指点方向,在我感觉到自己知识有所贫乏的时候给了我细心的指导和技术上的支持。使我本身的能力得到了不少的提高，这对于我以后的工作和学习都有一种巨大的帮助，感谢他耐心的辅导。

还有感谢这四年以来不厌其烦的给我传授大学知识的老师们，感谢在生活上以及学习上给我照顾和教诲的班主任们。感谢培养我的学院。感谢给我一片学习生存的地方。感谢大家！！

免费论文 购买论文 定做论文 发表论文 3A学习网(www.3a3b.com) 考试 3A3B书店 -- 零售书籍 预定书籍 批发服务 同行配书 QQ：1009874606

- 12 -

附 录

附部分程序原码： 点菜管理：

Private Sub ListView1_Click()

Adodc1.RecordSource = \"select * from Table_ftsz_ft where 房台名称='\" + ListView1.SelectedItem + \"'\" End Sub

Private Sub Cmd_sq_Click() '操作员授权 Call main

Adodc1.RecordSource = \"select * from Table_xtdl order by 编号\" ' Adodc1.Refresh If Adodc1.Recordset.RecordCount > 0 Then Adodc1.Recordset.MoveLast Text5.Text = Adodc1.Recordset.Fields(\"编号\") Text5.Text = Val(Text5.Text) + 1 Else Text5.Text = 1 End If

Text7.Text = Adodc1.Recordset.Fields(\"用户名\") Text8.Text = Adodc1.Recordset.Fields(\"密码\") Adodc1.Recordset.Delete

Set adoRs = adoCon.Execute(\"insert into Table_xtdl values(\" & Text5 & \& \"','\" & Text8 & \"','\" & Check1 & \"','\" & Check2 & \"','\" & Check3 & \"','\" & Check4 & \"','\" & Check5 & \"','\" & Check6 & \"','\" & Check7 & \"','\" & Check8 & \"','\" &

免费论文 购买论文 定做论文 发表论文 3A学习网(www.3a3b.com) 考试 3A3B书店 -- 零售书籍 预定书籍 批发服务 同行配书 QQ：1009874606

- 13 -

Check9 & \"','\" & Check10 & \"')\")

MsgBox \"成功授权!!\酒店管理系统\" Cmd_sq.Enabled = False adoCon.Close End Sub

顾客开台

Private Sub Command1_Click() '顾客开台设置代码 Call main

If Text6.Text = \"\" Then

MsgBox \"请输入顾客姓名\酒店管理系统\" Else

If c = 1 Then c = c + 1

Command1.Enabled = True

免费论文 购买论文 定做论文 发表论文 3A学习网(www.3a3b.com) 考试 3A3B书店 -- 零售书籍 预定书籍 批发服务 同行配书 QQ：1009874606

- 14 -