长春欧亚超市:酒店信息管理系统

学号：2008010120

毕业设计(论文)

题目：  基于.NET酒店管理系统   

系 （部）：      软件工程系             

专    业：       软件技术              

班    级：    08软件技术307班        

学生姓名：        刘福明               

指导姓名：      李传科 老师            

起止时间：2010-10-15至2010-12-02      

海南软件职业技术学院

酒店信息管理系统

摘   要

随着社会经济的发展，在外出差已成为上班一族不可避免的生活环节，因此各星级的酒店就应运而生，而酒店对客房管理克不容缓，特别对一些专为外出人们提供住宿的酒店来说，酒店客房管理尤其重要，所以酒店管理系统能够为酒店管理人员提供一个快速安全可靠的管理平台。             

科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分, 而人工化管理已不能满足客户的需求，例如不能及时查询客房正常情况和人工管理的费时性，也为了使管理人员可以轻松快捷地完成酒店客房管理任务，实现无纸化，电子化，和智能化管理，了解整个酒店客房信息。这些优点能够极大地提高酒店管理的效率,也是酒店实现正规化管理开始。

酒店管理系统其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强.数据安全性好的数据库。而对于后者则要求应用程序功能完备,易使用等特点。

本软件针对酒店客房管理的工作特点，系统按酒店标准化业务程序流式设计功能模块，来宾接待(入住登记、客房预订、登记资料修改、公安系统导出)、查询统计（查询房间状态、查询预订信息、查询入住客人信息、查询客房）、收银结帐(退房、欠费一览表、打印账单)等三个模块。这三个模块包括了酒店管理的主要业务，应用本系统可以在计算机上灵活、方便地管理酒店客房，从而大大的提高了处理速率，使管理更加现代化。本系统是根据实际情况和具体内容，按照一定的要求，科学、合理的进行系统分析、设计，具体包括数据输入、查询、删除、修改等设计。从而使本系统完全能满足经济性、灵活性、系统性及可靠性的要求。

关键词    客房登记/查询统计/收银结帐/房客管理/数据库

目 录

中文摘要............................................. I

1 概论............................................... 1

1.1 背景........................................... 1

1.2 应用系统开发工具简介........................... 1

1.3 目标........................................... 1

2 系统需求分析....................................... 2

2.1 可行性分析..................................... 2

2.2 需求分析....................................... 2

2.3 功能需求....................................... 2

2.3.1功能划分.................................. 2

2.3.2功能描述.................................. 2

2.4 安全性需求..................................... 3

2.5 系统业务流程分析............................... 3

2.6 本章小结....................................... 3

3 系统总体设计....................................... 3

3.1系统简介....................................... 3

3.2系统开发原则................................... 4

3.3 系统模块图..................................... 4

3.4 本章小结....................................... 4

4 系统数据库设计..................................... 5

4.1客人实体....................................... 5

4.2查询实体....................................... 5

4.3客房实体....................................... 6

4.4退房实体....................................... 6

4.5系统实体E-R图................................. 6

4.6 本章小结....................................... 7

5 系统功能模块实现................................... 7

5.1 数据库的实现................................... 7

5.2 主要功能模块................................... 7

5.2.1用户登录.................................. 8

5.2.2系统主界面................................ 9

5.2.3 客房入住登记.............................. 9

6 系统前台界面设计.................................. 10

6.1 主界面设计.................................... 10

6.2 来宾接待界面设计.............................. 11

6.3查询统计界面设计.............................. 12

6.4 客房管理界面设计.............................. 18

6.5退房模块界面设计.............................. 18

6.6 本章小结...................................... 15

7 系统测试.......................................... 15

7.1 登陆测试...................................... 15

使用说明............................................ 15

总   结............................................. 16

参考文献............................................ 16

致  谢.............................................. 16

附录1 管理员登录设置部分代码........................ 17

附录2 系统主页面的主要代码.......................... 19

1 概论

1.1 背景                   

在信息高度发达的今天,酒店业务涉及的各个工作环节已不再仅仅是传统的住宿,结帐业务,而是更广更全面的服务性行业的代表.酒店宾馆作为一个服务性行业,从客房的营销即客人的预定开始,到入住登记直至最后退房结帐,整个过程应该是能体现已宾客为中心,提高快捷,方便的服务,给宾客感受一种顾客之上的享受,提高酒店的管理水平,简化各种复杂操作,在最合理最短时间内完成酒店业务规范操作,这才能令旅客舒适难忘,增加宾客回头率。本套酒店管理系统正是为了解决酒店客房管理人员有效的管理客房,以提高酒店客房办公效率而开发的。

本系统实现了一个简单的酒店客房管理。在本系统里,主要是对来宾接待，客房的信息,经营情况以及收银结账的管理。为管理者提供迅速,高效的服务,减免手工处理的繁琐与误差,及时,准确地反映酒店的工作情况,经营情况。

以提供操作简单方便、快捷，易懂易用为开发目标，用户界面设计友好，操作使用方便，同时能保证用户数据的稳定。

1.2 应用系统开发工具简介

Visual Studio C#.NET是微软公司推出的全新集成开发环境Visual Studio.NET的重要成员之一，是新一代面向对象的可视化开发工具。具有面向对象、分布式、可移植等性能的多线程动态计算机编程语言。因其简单易学、开发快捷、功能强大的特点深受广大计算机程序开发人员的喜爱。C#.NET继承了C语言面向普通使用者和易学易用的优点，同时又引入了可视化图形界面的程序设计方法及面向对象的程序设计，成为当前人们使用最为广泛、最有影响的程序开发语言之一。

SQL Server Express 是一个免费、易用且便于管理的数据库。SQL Server Express 与 Microsoft Visual Studio 2005 集成在一起，可以轻松开发功能丰富、存储安全、可快速部署的数据驱动应用程序。SQL Server Express 是免费的，可以再分发（受制于协议），还可以起到客户端数据库以及基本服务器数据库的作用。SQL Server Express 是低端 ISV、低端服务器用户、创建 Web 应用程序的非专业开发人员以及创建客户端应用程序的编程爱好者的理想选择。

本系统主要的开发工具是　Microsoft Visual Basic 6.0，后台的数据库采用SQL SERVER 2005,通过 ADO.NET 对数据库进行连接。

1.3 目标

（1）能够实现登录系统、修改密码功能。

（2）客人入住登记、预订客房、收银结账等操作。

（3）预订信息、入住客人信息、欠费信息以及客房信息的查询功能。

（4）退房及系统维护等功能。最终的目标就是让酒店管理者能方便、高效、合理的对酒店进行管理。

2 系统需求分析

2.1 可行性分析

可行性分析也称为可行性研究，是在系统调查的基础上，针对新系统的开发是否具备必要性和可能性，对新系统的开发从技术、经济、社会的方面进行分析和研究，以避免投资失误，保证新系统的开发成功。可行性研究的目的就是用最小的代价在尽可能短的时间内确定问题是否能够解决。该系统的可行性分析包括以下几个方面的内容。

(1) 经济可行性：主要是对项目的经济效益进行评价，本系统作为一个毕业设计，不需要任何经费，对于我们学校在经济上完全没有问题的。而且本系统正式使用后，将会大大的提高酒店客房管理的效率。

(2) 技术可行性：技术上的可行性分析主要分析技术条件能否顺利完成开发工作，硬、软件能否满足开发者的需要等。本系统主要采用了Visual Basic 6.0和SQL Server2005进行相关的开发，而Visual Basic 6.0是面向对象的可视化软件开发工具，其对编程平台对数据库的访问做了很好的封装，数据库接口的转换只需动态更改控件的相关属性即可；另考虑到SQL Server数据库服务器用户，亦提供SQL Server数据库接口，微软公司的SQL Server数据库，它能够处理大量数据，同时保持数据的完整性并提供许多高级管理功能。它的灵活性、安全性和易用性为数据库编程提供了良好的条件。

2.2 需求分析

随着星级酒店规模的不断扩大，酒店客房间数的急剧增加，客人流动量也在不断成倍增长。面对庞大的信息量，就需要有酒店管理系统来提高客房管理工作的效率。通过这样的系统，我们可以做到信息的规范管理，从而减少了管理方面的工作量。

 传统手工的客房管理，管理过程繁琐而复杂，执行效率低，并且易于出错。通过这样的系统，我们可以做到信息的规范管理，实现了客房管理的系统化、规范化，这样不仅减少了管理工作量，还提高了管理效率，降低了管理成本。

2.3 功能需求

2.3.1功能划分

酒店管理系统主要有以下功能：

A客房登记

B房客信息

c客房管理

d员工信息

e住宿结帐

f帮助

2.3.2功能描述

1、客房登记：包括来宾入住登记、客房预订、团队入住预定、登记资料修改、公安系统导出。

2、查询统计：查询房间状态、查询预订信息、查询入住客人信息、查询客房。

3、客房管理：对房间类型的预览和房间管理。

4、客房信息:对客人要求所入住的空房进行查询等

5、住宿结帐：退房、欠费一览表、打印账单。

2.4 安全性需求

每位用户根据自己的身份不同，所拥有的操作权限不同。收银员有权力行使对客人退房、打印账单、音乐播放器和计算器的功能，管理员可行使所有的功能。

2.5 系统业务流程分析

酒店管理系统业务流程图如图2.1所示。

查询有无空房间

（图2-1）

2.6 本章小结

本章是对本系统需求、功能、安全性等的说明，能使用户了解这个系统的基本情况，进而可以让使用者更容易学习使用本系统。

3 系统总体设计

3.1系统简介

本系统是一个小型的酒店管理系统，利用Visual Basic 6.0编写用户接口，以Microsoft SQL Server2005创建数据库而制作的图书管理系统。其中，用户名是经过最高权限的管理员进行指定委派的。由于本管理系统操作简单、界面明了，所以容易直观对相应的功能进行操作。设立超级管理员权限（即最高权限的管理员），能直接浏览数据库各个表项，并具有对各个用户和用户信息进行添加、删除、修改的权限。

3.2系统开发原则

为了设计出符合一般标准又具有特色的界面,系统开发时要遵循以下开发原则:

① 保证界面设计的风格具有一致性。

② 界面设计时，控件的摆放要协调和匀称。

③ 常用操作（如查询房间状态、入住登记 、退房等操作）应建立快捷方式，方便管理员日常操作。

④提供错误处理信息，在出现错误时，系统应该能检测出错误并提供错误处理的能；错误出现后，系统的状态不发生变化，或者系统要提供错误恢复的向导。

⑤ 为了方便管理员的管理应设置工具栏和状态栏。

3.3 系统模块图

本系统包括的主要有如下几个部分：来宾接待、查询统计、客房管理、系统维护、收银结帐、帮助。

其功能模块图如图3-1所示

客房登记

（图3-1）

3.4 本章小结

本章详细的介绍了开发这个系统的详细设计及详细功能。

4 系统数据库设计

E-R模型的“联系”用于刻画实体之间的关联。一种完整的方式是对局部结构中任意两个实体类型，依据需求分析的结果，考察局部结构中任意两个实体类型之间是否存在联系。若有联系，进一步确定是1:N，M:N，还是1:1等。还要考察一个实体类型内部是否存在联系，两个实体类型之间是否存在联系，多个实体类型之间是否存在联系，等等。根据上面的设计可以规划出的实体有：客人实体、查询实体、客房实体、系统管理实体和退房实体。

客人实体

查询实体

4.2查询实体

客房实体

4.3客房实体

客房实体的设计主要是针对不同的入住群体，根据不同入住者的不同需求来选择合适的房间类型。让入住者真正的感觉到酒店所提供的各种服务，让入住者认识到酒店是为大众群体所开设的。

退房实体

退房实体表的设计主要是针对客房实体、入住者信息以及入住的信息计算出入住者的费用。该实体可以根据客房表和入住者信息表对酒店进行管理，让使用者能快速、有效、准确的对入住费用进行计算，进而达到方便、高效的管理酒店的目的。

住宿

入住者根据情况入住客房，酒店管理者对入住者进行服务，当入住者要求退房时，酒店管理者可根据入住这在酒店享有的服务进行账目的结算，让管理者可根据这一系列的合理流程来更加有效的管理酒店。

4.6 本章小结

本章主要介绍了开发系统所用的数据库的设计以及数据库中表的详细说明，可以让使用者一目了然，方便的了解到表中的信息，进而可以快速高效的录入客人和客房信息。

5 系统功能模块实现

5.1 数据库的实现

本系统通过SQL Server数据库和前台界面通过后台.NET代码进行连接，采用的数据库为Microsoft公司的SQL Server 2005，数据库共有5个表。用户表主要是用来记录用户的信息，包括用户名、密码及用户的权限信息等等。管理员可以对普通用户的信息进行修改，管理员可以对客房、来宾信息进行增加、删除、修改、查询。

5.2 主要功能模块

5.2.1用户登录

登录界面如图所示,登录时，需要输入用户名、密码及角色，并单击“登录”按钮，完成登录过程。

如图5-1

功能：本模块的主要功能是对操作用户身份的验证，只有系统的默认用户才能进入系统。在进行系统登录过程中，登录模块将调用数据库里的用户表，并对用户名和密码进行验证，只有输入了正确的用户名和密码后，系统登录才会成功，否则提示错误。并在输入了错误的或者是不存在的用户名和密码时，系统会给出出错信息提示，指明登录过程中的错误输入或错误操作，以便用户进行正确的登录。

5.2.2系统主界面

当管理员想进入系统时，在登录窗口(图5-2)中输入用户名和密码，点击登录按钮，就可进入酒店管理系统的主窗体界面(图5-4)，从这个界面中用户可以进行不同的操作。

系统主界面如果登录者的输入是正确的，则直接进入“酒店管理系统”模块的主界面，如下图：

6.系统主页界面设计

一个系统前台的界面是很重要的、界面的美观，及界面的友好性，都是决定着一个系统成败的关键。

本系统的主界面（图6-1）采用的是，先把系统的全部功能模块分为八大功能模块。八大功能模块的按钮放在系统的左边，点击按钮则会在系统的中间位置，显示出本模块含有的功能模块，而系统的上面也有八大模块的主菜单，点击会弹出含有本模块的几个小模块的下拉菜单，在主菜单下面还有几个快速启动的按钮。是比较常用的几个功能模块，点击后会直接启动功能模块，是比较方便的。

6.6 本章小结

    本章所讲述的是本系统中各个功能模块的界面设计、及其其中所使用的效果和后台所使用的代码。

7 系统测试

软件测试是保证软件质量，提高软件可靠性的最主要的活动之一。它实施对软件规格说明、设计规格说明和编码的最终审核。软件测试的目的是以最少的人力、物力和时间投入，尽可能多地找出软件中潜在的各种错误和缺陷。测试的结果为软件可靠性分析提供了依据。设计测试用例的方法一般有两种：黑盒法以及白盒法。本次测试采用的是黑盒测试，将大部分可能的值来检查系统程序的正确性，并通过测试得到的结果进行必要的调试和功能改进。

7.1 登陆测试

当没有输入用户名时，便会提示该用户存在，请重新输入的错误。便会有图7.1的提示。

（图7.1）

当没有输入密码时，便会提示请输入密码，便会有图7.2的提示。

（图7.2）

使用说明

该系统的使用说明大致分为：运行环境、性能说明和操作说明三部分。

(1) 运行环境

硬件平台：硬盘空间：5G以上；

   内存：256M以上；

   CPU：PIII500以上；

操作系统：Windows 2000/windows XP

其它软件：浏览器：IE浏览器 5.0以上

          数据库：SQL Sever 2005

          Visual Basic 6.0

(2) 性能说明

时间特性

响应时间：用户应该在1s-1min时间内得到服务器的响应。

更新处理时间：2s可能受到网络状况影响

运行时间：依据网络状况决定

适应性

可以在windows的任何版本的操作系统下运行。软件接口主要通过用户浏览器实现。

(3) 操作说明

前台主要是提供用户登陆，用户在用户主界面通过选择需要进行的操作，点击确定按钮，系统将用户信息同时存入数据库。其使用比较简单，和普通系统的使用方法相同。要注意的是用户在记录和执行查询客户信息操作时，请按照要求进行，否则将无法成功。

后台则是提供管理员对酒店信息进行操作的，管理员的登陆账号是admini；密码123456，而用户必须先获得用户名和密码之后登录进行操作。

管理员通过登录进入管理员系统首页，再通过选择，进入客户登记页面。首先填写客户信息，若需要增加新的信息，则先进入修改界面。其删除、修改和查询功能类似将不再一一解释。

总   结

本次毕业设计我首先通过学院图书馆、网络资源等各种途径对数据仓库相关知识进行了学习，了解了信息管理系统的基本知识，掌握了酒店管理系统的基本的方法。然后参考学校学生指南，对我校附近酒店管理现状进行了充分的需求分析和功能分析，为后面模型的研究创建奠定了基础。

由于时间和能力方面的原因加上无法对教材管理系统的需求进行完整分析，本次设计仅从来宾接待、查询统计、客房管理、系统维护、收银结帐等几个大方面设计，各模块的实现都需数据库的支持.模块和数据库表之间实现信息的输入和输出流动，并取得了预期的成果。

因时间和能力方面的关系，本次毕业设计酒店管理系统的研究仍有很多不足之处。如需求分析的不全面使无法实现酒店管理系统所有功能需求。换房功能尚未实现，有待于进一步的开发与完善。

计算机技术浩瀚无边，需要我们学习的知识非常之多，比如像软件编程，就有VB.NET、JAVA、ASP.Net、C#等，我们不可能一一都学会，但是我们要选择有代表性的来学，比如JAVA、C++。就我们所使用的VB.NET来说，我们所使用的不过是它的很小的一方面，还有其他知识需要掌握，比如用它来做Web网页等的知识我没有学过，但需要我们在学习的过程中不断地来学习。所以我认为编程要不断地学习，不断地学习他人的新技术才能进步。而借鉴地学习他人的技术的同时也要不断地自己去探索。本系统的开发，无论是从技术上还是对环境的适应能力上讲，对我今后步入社会都打下了一个良好的基础。

通过本次毕业设计，我不但学到了很多书本上课堂上无法学到的东西，而且在应用知识解决实际问题的方面有了很大的提高。在学习思维和动手能力上面对自己都有很大的提高。回顾系统的开发与论文撰写过程，有几多收获，也有诸多不尽人意之处，更需进一步的努力和开拓。

参考文献

[1]刘斌，李文革．Delphi7数据库高级教程．北京：清华大学出版社，2004

[2]李军， 张桂英，徐波． Delphi7项目开发实践．北京：中国铁道出版社，2003

[3]黄明，梁旭，周绍斌．Delphi课程设计．北京：电子工业出版社，2006

[4]付军，Delphi7实例编程100例．北京：中国铁道出版社，2005

[5]王学庆，Delphi 6数据库设计实例导航．北京：科学出版社，2003

[6]郭永灿,孟凡奇，王军网页美工设计.上海:上海交通大学出版社，2002

致   谢

经过一个多月的努力，在老师的悉心指导下，本次毕业设计即将结束。我们的大学生活也将画上一个句号了。通过本次毕业设计，我们从中可以说是收益非浅。

由于我们平时的课程理论知识学的还可以，所以自己总是认为自己的知识水平已经能处理许多的现实问题了。而当自己真正的深入到设计实践当中,深入到问题当中时。我们竟然发现自己无从下手，我们开始怀疑我们是否真正的学到了知识。也只有到了那个时候，我们才真正体会到学会运用自己的能力与知识是何等的重要，知识是在课堂上，是老师教授的，我们不仅要从书本中、老师那里学知识，更要学会如何运用知识解决实际问题。在毕业设计的整个过程中，老师从获取知识和运用知识解决实际问题方面给予我很大的帮助和指导。为我毕业设计的顺利完成给予了很大的帮助。

在毕业设计整个过程中，我们深刻体会到，平时知识学习的重要性以及自己在动手能力方面的提高。这些提高与老师的悉心指导和学校的重视是分不开的。在次我感谢所有曾经教导过我的老师和关心过我的同学，他们在我成长过程中给予了我很大的帮助。本设计能够顺利的完成，要特别感谢我们的指导老师的关怀和教导！同时还要感谢系和学院的领导、老师们两年来的关心指导。最后向三年来一直陪我度过大学生活、给予我理解和帮助的同学、好友表示感谢。忠心谢谢你们！

由于本人水平有限、时间仓促，文中错误之处在所难免，请老师和同学们指正！

     附录1 管理员登录设置部分代码

默认的管理员登陆系统账号：admini：

Option Explicit

Public db As DAO.Database

Public rs As DAO.Recordset

Public LoginSucceeded As Boolean

Private Sub Form_Load()

Set db = OpenDatabase("旅店.mdb")

Set rs = db.OpenRecordset("系统信息")

End Sub

Private Sub cmdCancel_Click()

    Unload Me

End Sub

Private Sub cmdOK_Click()

    If txtUserName.Text = "" Then

        MsgBox "请输入管理员姓名", vbOKOnly + vbExclamation, "提示"

        txtUserName.SetFocus

        ElseIf txtPassword = "" Then

            MsgBox "请输入密码", vbOKOnly + vbExclamation, "提示"

            txtPassword.SetFocus

            End If

    '检查正确的密码

    While Not rs.EOF

        If txtPassword.Text = rs.Fields("系统密码").Value And txtUserName.Text = rs.Fields("管理员姓名").Value Then

             '将代码放在这里传递

             '成功到 calling 函数

             '设置全局变量时最容易的

             txt = txtUserName.Text

              Unload Me

              Load 主页

             主页.Show

             Me.Hide

        End If

        rs.MoveNext

    Wend

    If txt = "" Then

   MsgBox "无效的用户名或密码，请重试!", vbOKOnly + vbExclamation, "登录"

End If

End Sub

Private Sub txtUserName_GotFocus()

    txtUserName.SelStart = 0

    txtUserName.SelLength = Len(txtUserName.Text)

End Sub

Private Sub txtPassword_GotFocus()

    txtPassword.SelStart = 0

    txtPassword.SelLength = Len(txtPassword.Text)

End Sub

附录 2 主界面的主要的设计代码为

Option Explicit

Dim db As DAO.Database

Dim rs As DAO.Recordset

  '网站链接方法声明

    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

     '滚动字幕通用声明

    Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long

    Private Declare Function GetTickCount Lib "kernel32" () As Long

    Const DT_BOTTOM As Long = &H8

    Const DT_CALCRECT As Long = &H400

    Const DT_CENTER As Long = &H1

    Const DT_WORDBREAK As Long = &H10

    Private Type RECT

    Left As Long

    Top As Long

    Right As Long

    Bottom As Long

    End Type

    Const ScrollText As String = "使用说明" & vbCrLf & vbCrLf & "作者:星辰开发小组"

    Dim isend As Boolean

    Private Sub 主页()

    Dim LastFrameTime As Long

    '设置时间间隔,即滚动速度

    Const IntervalTime As Long = 23

    Dim rt As Long

    Dim DrawingRect As RECT '定义一个矩形区域

    '设置所画矩形的左边位置

    Dim tmpX As Long, tmpY As Long

    Dim RectHeight As Long

    '显示窗体

    '获得所画矩形的尺寸

    rt = DrawText(Picture2.hdc, ScrollText, -1, DrawingRect, DT_CALCRECT)

    If rt = 0 Then

    MsgBox "Error", vbExclamation

    isend = True

    Else

    '设置矩形的位置

    DrawingRect.Top = Picture2.ScaleHeight / 2

    DrawingRect.Left = 0

    DrawingRect.Right = Picture2.ScaleWidth

    '设置矩形的高度

    RectHeight = DrawingRect.Bottom

    DrawingRect.Bottom = DrawingRect.Bottom + Picture2.ScaleHeight

    End If

    Do While Not isend

    If GetTickCount() - LastFrameTime > IntervalTime Then

    Picture2.Cls

    DrawText Picture2.hdc, ScrollText, -1, DrawingRect, DT_CENTER Or DT_WORDBREAK

    DrawingRect.Top = DrawingRect.Top - 1

    DrawingRect.Bottom = DrawingRect.Bottom - 1

    '控制文本的循环滚动

    If DrawingRect.Top < -(RectHeight) Then

    DrawingRect.Top = Picture2.ScaleHeight

    DrawingRect.Bottom = RectHeight + Picture2.ScaleHeight

    End If

    Picture2.Refresh

    LastFrameTime = GetTickCount()

    End If

    DoEvents

    Loop

    End Sub

Private Sub about_Click()

Load 关于信息

关于信息.Show

End Sub

Private Sub ConsumeAnnal_Click()

消费记录.Show

End Sub

Private Sub ConsumeIn_Click()

消费入账.Show

End Sub

Private Sub destineTobook_Click()

预订转入住登记.Show

End Sub

Private Sub EmployeeInfon_Click()

员工信息查询.Show

End Sub

Private Sub Form_Load()

 MsgBox "业务员  " & txt & "欢迎您！", vbOKOnly + vbExclamation, "提示"

Dim db As DAO.Database

Dim rs As DAO.Recordset

Set db = OpenDatabase("旅店.mdb")

Set rs = db.OpenRecordset("系统信息")

Picture1.Picture = LoadPicture("photos/客房图片.jpg")

Me.Height = 9165

Me.ScaleHeight = 8385

'Me.MinButton = 1

Me.BorderStyle = 1

'主页上的网站链接网址

URL1 = "www.google.com"

URL2 = "www.sohu.com"

URL3 = "www.163.com"

'picture2中滚动字幕的的颜色和大小设置

  Picture2.ForeColor = vbGreen

  Picture2.FontSize = 14

End Sub

Private Sub back_Click()

Load 散客退房

散客退房.Show

End Sub

Private Sub destine_Click()

Load 散客预定登记

散客预定登记.Show

End Sub

Private Sub FullMoney_Click()

Load 会员充值管理

会员充值管理.Show

End Sub

Private Sub groupBack_Click()

Load 团队退房登记

团队退房登记.Show

End Sub

Private Sub groupBook_Click()

Load 团队入住登记

团队入住登记.Show

End Sub

Private Sub HomeeState_Click()

Load 客房状态

客房状态.Show

End Sub

Private Sub information_Click()

Load 房客信息显示

房客信息显示.Show

End Sub

Private Sub MemberIfon_Click()

Load 会员管理信息

会员管理信息.Show

End Sub

Private Sub payMoney_Click()

Load 团队入住付款

团队入住付款.Show

End Sub

Private Sub PriceManage_Click()

Load 价格管理信息

价格管理信息.Show

End Sub

Private Sub quit_Click()

End

End Sub

Private Sub Remanage_Click()

Dim Cancel As Boolean

 If MsgBox("您确定要切换管理员吗？", vbYesNo + vbQuestion, "确认") = vbYes Then

 Unload Me

更改管理员.Show

Else

Cancel = True

End If

End Sub

Private Sub RePassword_Click()

更改密码.Show

End Sub

Private Sub takebook_Click()

Load 散客入住登记

散客入住登记.Show

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)  'toolbar 按钮链接窗体

Select Case Button.Index

Case 1

 Load 散客入住登记

散客入住登记.Show

Case 2

Load 团队入住登记

团队入住登记.Show

Case 3

Load 散客退房

散客退房.Show

Case 4

Load 散客结账

散客结账.Show

Case 5

Load 团队入住付款

团队入住付款.Show

Case 6

Load 预订转入住登记

预订转入住登记.Show

Case 7

Load 房客信息显示

房客信息显示.Show

Case 8

Load 客房状态

客房状态.Show

Case 9

Load 会员管理信息

会员管理信息.Show

Case 10

Load 消费入账

消费入账.Show

Case 11

Load 员工信息查询

员工信息查询.Show

Case 12

End

End Select

End Sub

Private Sub form_unload(Cancel As Integer)

    Dim frm As Form

    isend = True

    For Each frm In Forms

    Unload frm

     Next frm

    End Sub

'链接网站

Private Sub URL1_Click()

ShellExecute 0&, vbNullString, "http://www.google.com", vbNullString, vbNullString, vbNormalFocus

End Sub

Private Sub URL2_Click()

ShellExecute 0&, vbNullString, "http://www.sohu.com", vbNullString, vbNullString, vbNormalFocus

End Sub

Private Sub URL3_Click()

ShellExecute 0&, vbNullString, "www.163.com", vbNullString, vbNullString, vbNormalFocus

End Sub

Private Sub 房客住宿结账_Click()

散客结账.Show

End Sub

Private Sub 会员付账_Click()

Form1.Show

End Sub

Private Sub 系统清理_Click()

If txt = "admini" Then

Form3.Show

Else

MsgBox "只有系统管理员（admini）才具有此权限！", vbOKOnly + vbExclamation, "提示"

End If

End Sub

Private Sub 业务员管理_Click()

If txt = "admini" Then

Form2.Show

Else

MsgBox "只有系统管理员（admini）才具有此权限！", vbOKOnly + vbExclamation, "提示"

End If

End Sub