数据库设计酒店管理系统

合集下载

数据库酒店管理系统课程设计物理结构设计

数据库酒店管理系统课程设计物理结构设计

数据库酒店管理系统课程设计物理结构设计一、概述1.1 课程设计背景数据库酒店管理系统是一种应用广泛的管理系统,它能够帮助酒店进行客房管理、人员管理、财务管理等多种功能。

针对这一需求,本课程设计旨在设计一个数据库酒店管理系统的物理结构,以满足实际应用的需求。

1.2 课程设计目的本课程设计旨在通过对数据库酒店管理系统的物理结构进行设计,培养学生对数据库系统设计的能力,提高学生对数据库系统物理结构相关知识的掌握,并通过实际操作提高学生的实际操作能力。

二、数据库设计2.1 数据库设计概述数据库酒店管理系统是一个复杂的系统,需要考虑到数据的完整性、一致性以及安全性等方面的要求。

在设计数据库的物理结构时,需要充分考虑到这些因素,并进行合理的设计。

2.2 数据库表设计数据库表是数据库的基本组成单元,其设计需要考虑到各种实体之间的关系以及数据的存储方式等因素。

在设计数据库酒店管理系统的物理结构时,需要设计出合理的数据库表结构,以满足系统对数据的存储和管理需求。

2.3 索引设计索引是数据库中非常重要的一个方面,它能够加快数据库的查询速度,并提高系统的性能。

在设计数据库酒店管理系统的物理结构时,需要合理设计索引,以提高系统的性能和查询效率。

2.4 视图设计视图是数据库中的一个虚拟表,它能够提供用户所需的数据,同时隐藏了底层的复杂性。

在设计数据库酒店管理系统的物理结构时,需要合理设计视图,以提供给用户更加直观和易用的界面。

2.5 存储过程和触发器设计存储过程和触发器是数据库中的一种特殊对象,它们能够对数据进行操作,并且能够自动触发某些事件。

在设计数据库酒店管理系统的物理结构时,需要设计合理的存储过程和触发器,以满足系统对数据操作的需求。

三、数据库性能优化3.1 查询优化查询是数据库酒店管理系统中最为常见的操作,因此需要对查询进行优化,以提高系统的性能和响应速度。

在设计数据库的物理结构时,需要考虑到查询的优化问题,并设计合理的索引和视图,以提高查询效率。

数据库设计案例_酒店管理系统方案

数据库设计案例_酒店管理系统方案

酒店管理系统一、背景说明目前大多数酒店提供的服务多种多样,规模大小也各不相同,但稍具规模的酒店必含下面三类服务:饮食、住宿和娱乐。

由于我们对酒店行业没有具体的接触和实质性的了解。

此次数据库设计只能在一些收集到的基本材料与个人直观认识的基础上,简单模仿中等规模的酒店设计管理系统,并将其抽象成一个由三部门组成、实现三大服务的系统。

二、部门的划分1.饮食部门它是酒店基本部门之一。

它提供服务的特点是实时性强、持续时间短,强调效率。

例如,顾客人数、顾客所用的菜及其它饮料等种类繁多,数量不等;后勤各种活动如采购等频繁发生。

通过分析可发现,用人工完成此类操作比计算机更具实效与时效,且此类信息也没有长时间保留的必要,因此这些信息没有必要采用数据库管理。

对于饮食部门,需要较长时间保留的信息主要是财务信息,一方面便于期末汇总,另一方面便于向上级报告。

在规模较大的酒店餐饮服务部分,餐厅可分成几个等级或几个小部门,然后各自形成小系统,本系统为了简单起见,把饮食部门作为一个子系统,不再细分。

2.住宿管理部门它也是酒店基本部门之一。

住宿管理部门的主要职责有:A.给个房间布置各种设备、分类、编号、制定收费标准、分配服务人员。

B.登记旅客信息,确认其身份,登记其入住、退房时间。

C.统计各类房间的客满程度。

D.对本部门的财务流动进行登记处理。

以上信息处理可以通过计算机完成,其他不便于计算机操作的在此没有列出。

3.娱乐管理部门娱乐是酒店非主流服务,它的存在除了赢利,更多的是为了吸引顾客食宿。

娱乐部门的特点与饮食部门很相似,不便于使用计算机进行操作。

可以用计算机完成并且有必要用计算机完成的有:A.制定收费标准,分配负责人.B.收入支出财务处理:编号、财务来源去处的摘要、数量、单价、数额、结余、经手人等。

这些信息都需要长时间保留并上报。

4.经理部门经理部门的功能虽然不是面向顾客、不是酒店的服务项之一,但它的存在却是必不可少的。

它的主要职责有:A.管理员工。

酒店预订管理系统--数据库课程设计

酒店预订管理系统--数据库课程设计

酒店预订管理系统--数据库课程设计介绍
本文档旨在设计一个酒店预订管理系统,该系统将使用数据库来存储和管理酒店预订信息。

系统将实现以下功能:
- 客户信息管理:包括客户姓名、联系方式、住宿历史等。

- 酒店房间管理:包括房间类型、价格、房间状态等。

- 预订管理:客户可以预订酒店房间,并记录预订状态、预订日期等。

- 入住管理:当客户到达并入住时,将记录入住日期和房间状态。

- 结账管理:客户退房后,系统将自动结算费用并生成账单。

数据库设计
本系统将使用关系型数据库来存储数据。

下面是系统的数据库设计:
数据表
客户表(Customers)
房间表(Rooms)
预订表(Reservations)
入住表(Checkins)
账单表(Bills)
数据库关系
系统的数据库关系如下:
- Customers表与Reservations表之间是一对多关系,一个客户
可以有多个预订。

- Rooms表与Reservations表之间是一对多关系,一个房间可以有多个预订。

- Reservations表与Checkins表之间是一对一关系,一个预订只有一个入住记录。

- Reservations表与Bills表之间是一对一关系,一个预订只有
一个账单。

总结
本文档介绍了一个酒店预订管理系统的数据库课程设计。

通过
这个系统,我们可以实现客户信息管理、房间管理、预订管理、入
住管理和结账管理等功能。

通过合理的数据库设计和表之间的关系,我们可以实现数据的存储和管理,为酒店提供高效的预订管理服务。

数据库设计案例-酒店管理系统

数据库设计案例-酒店管理系统

------------------------------------------------------------------------------------酒店管理系统一、背景说明目前大多数酒店提供的服务多种多样,规模大小也各不相同,但稍具规模的酒店必含下面三类服务:饮食、住宿和娱乐。

由于我们对酒店行业没有具体的接触和实质性的了解。

此次数据库设计只能在一些收集到的基本材料与个人直观认识的基础上,简单模仿中等规模的酒店设计管理系统,并将其抽象成一个由三部门组成、实现三大服务的系统。

二、部门的划分1.饮食部门它是酒店基本部门之一。

它提供服务的特点是实时性强、持续时间短,强调效率。

例如,顾客人数、顾客所用的菜及其它饮料等种类繁多,数量不等;后勤各种活动如采购等频繁发生。

通过分析可发现,用人工完成此类操作比计算机更具实效与时效,且此类信息也没有长时间保留的必要,因此这些信息没有必要采用数据库管理。

对于饮食部门,需要较长时间保留的信息主要是财务信息,一方面便于期末汇总,另一方面便于向上级报告。

在规模较大的酒店餐饮服务部分,餐厅可分成几个等级或几个小部门,然后各自形成小系统,本系统为了简单起见,把饮食部门作为一个子系统,不再细分。

2.住宿管理部门它也是酒店基本部门之一。

住宿管理部门的主要职责有:A.给个房间布置各种设备、分类、编号、制定收费标准、分配服务人员。

B.登记旅客信息,确认其身份,登记其入住、退房时间。

C.统计各类房间的客满程度。

D.对本部门的财务流动进行登记处理。

以上信息处理可以通过计算机完成,其他不便于计算机操作的在此没有列出。

3.娱乐管理部门娱乐是酒店非主流服务,它的存在除了赢利,更多的是为了吸引顾客食宿。

娱乐部门的特点与饮食部门很相似,不便于使用计算机进行操作。

可以用计算机完成并且有必要用计算机完成的有:A.制定收费标准,分配负责人.B.收入支出财务处理:编号、财务来源去处的摘要、数量、单价、数额、结余、经手人等。

《2024年酒店管理信息系统的设计与实现》范文

《2024年酒店管理信息系统的设计与实现》范文

《酒店管理信息系统的设计与实现》篇一一、引言随着信息技术的飞速发展,酒店业面临着前所未有的挑战与机遇。

为了提升酒店的管理效率、优化客户体验,酒店管理信息系统的设计与实现显得尤为重要。

本文将详细阐述酒店管理信息系统的设计思路、技术实现及其实施效果,以期为相关领域的研究与实践提供有益的参考。

二、酒店管理信息系统的设计1. 系统需求分析酒店管理信息系统需要满足酒店日常运营的多种需求,包括客房管理、订单处理、财务管理、员工管理、客户信息管理等。

系统应具备实时性、可扩展性及易用性,以满足不同部门的需求。

2. 系统架构设计酒店管理信息系统采用B/S架构,以数据库为核心,通过浏览器访问。

系统分为前台和后台两部分,前台主要用于客户自助操作,后台则用于管理员对系统进行维护和管理。

系统架构设计需确保数据的安全性和稳定性。

3. 数据库设计数据库是酒店管理信息系统的核心,需要设计合理的表结构和字段,以存储酒店的各种信息。

数据库设计应遵循第三范式,确保数据的完整性和一致性。

同时,为了提高查询效率,需要合理设置索引。

三、技术实现1. 开发环境与工具酒店管理信息系统采用Java语言开发,使用Spring Boot框架,数据库采用MySQL。

开发环境包括IDEA、Git等工具,用于代码编写、版本控制等。

2. 关键技术实现(1)客房管理模块:实现客房信息的增删改查功能,包括房型、价格、状态等信息的录入和查询。

(2)订单处理模块:实现客户订单的接收、处理和结算功能,支持在线支付和现金结算方式。

(3)财务管理模块:实现收入、支出、报表等财务数据的统计和分析功能。

(4)员工管理模块:实现员工信息的录入、修改和查询功能,支持员工排班和考勤管理。

(5)客户信息管理模块:实现客户信息的录入、查询和分类功能,支持客户资料的长期保存和查询。

四、实施效果1. 提高管理效率酒店管理信息系统的实施,使得酒店各项管理工作更加高效。

系统自动处理大量数据,减少人工操作,提高工作效率。

酒店管理系统数据库设计

酒店管理系统数据库设计

数据库设计
黄20071300
数据库设计是系统设计的重要组成部分,它是通过管理系统的整体需求而制定的。

酒店管理系统数据库db_drinkery:包括台号表、菜系表、菜品表、消费单表、消费项目表、用户表,如下.
台号表tb_desk
菜系表tb_sort
菜品表tb_menu
消费单表tb_order_form
消费项目表tb_order_item
1.数据库概念设计
餐台和菜系是本系统中最简单的实体,在本系统中用来描述餐台信息的只有台号和座位数,描述菜系的主要是名称。

餐台信息表的E-R图如图1所示,菜系信息表的E—R图如图2所示。

在描述菜品实体时,加入了助记码,目的是为了实现智能化获取菜品功能,通过这一功能系统操作员可以快速地获取顾客的点菜信息。

消费单用来记录每次消费的相关信息.例如消费时使用的餐台、消费时间、消费金额等。

消费单信息表的E-R 图如图4所示。

消费项目用来记录每个消费单的消费菜品,记录的主要信息有所属的消费
单、消费单品的名称、消费数量、消费额。

消费项目信息表的E —R 图如图5所示。

2. 数据库逻辑结构设计
3.视图设计。

数据库设计_酒店管理系统

数据库设计_酒店管理系统

酒店管理系统一、背景说明目前大多数酒店提供的服务多种多样,规模大小也各不相同,但稍具规模的酒店必含下面三类服务:饮食、住宿和娱乐。

由于我们对酒店行业没有具体的接触和实质性的了解。

此次数据库设计只能在一些收集到的基本材料与个人直观认识的基础上,简单模仿中等规模的酒店设计管理系统,并将其抽象成一个由三部门组成、实现三大服务的系统。

二、部门的划分1.饮食部门它是酒店基本部门之一。

它提供服务的特点是实时性强、持续时间短,强调效率。

例如,顾客人数、顾客所用的菜及其它饮料等种类繁多,数量不等;后勤各种活动如采购等频繁发生。

通过分析可发现,用人工完成此类操作比计算机更具实效与时效,且此类信息也没有长时间保留的必要,因此这些信息没有必要采用数据库管理。

对于饮食部门,需要较长时间保留的信息主要是财务信息,一方面便于期末汇总,另一方面便于向上级报告。

在规模较大的酒店餐饮服务部分,餐厅可分成几个等级或几个小部门,然后各自形成小系统,本系统为了简单起见,把饮食部门作为一个子系统,不再细分。

2.住宿管理部门它也是酒店基本部门之一。

住宿管理部门的主要职责有:A.给个房间布置各种设备、分类、编号、制定收费标准、分配服务人员。

B.登记旅客信息,确认其身份,登记其入住、退房时间。

C.统计各类房间的客满程度。

D.对本部门的财务流动进行登记处理。

以上信息处理可以通过计算机完成,其他不便于计算机操作的在此没有列出。

3.娱乐管理部门娱乐是酒店非主流服务,它的存在除了赢利,更多的是为了吸引顾客食宿。

娱乐部门的特点与饮食部门很相似,不便于使用计算机进行操作。

可以用计算机完成并且有必要用计算机完成的有:A.制定收费标准,分配负责人.B.收入支出财务处理:编号、财务来源去处的摘要、数量、单价、数额、结余、经手人等。

这些信息都需要长时间保留并上报。

4.经理部门经理部门的功能虽然不是面向顾客、不是酒店的服务项之一,但它的存在却是必不可少的。

它的主要职责有:A.管理员工。

数据库课程设计酒店管理信息系统

数据库课程设计酒店管理信息系统

酒店管理信息系统系统平台: Windows 2000数据库服务器: MicrosoftSQL Server 2000开发工具: Visual Basic 6.0系统开发人员:⒈编写目地酒店在正常地运营中需要对客房资源、顾客信息、结算信息进行管理 , 利用宾馆管理信息系统及时了解各个环节中信息地变更, 有利于提高管理效率 . b5E2RGbCAP⒉系统功能分析系统开发地总体任务是实现宾馆各种信息地系统化、规范化和自动化.主要完成功能:●有关客房标准地制定、标准信息地输入 , 包括标准编号、标准名称、房间面积、床位数量、住房单价、是否有空调、电视机、电话以及单独卫生间等 . p1EanqFDPw●客房标准信息地修改、查询等.●客房基本信息地输入 , 包括客房编号、客房类型、客房位置、客房单价、备注等 .●客房基本信息地查询、修改 , 包括客房编号、客房类型、客房位置、客房单价、备注等 .●剩余客房信息地查询等 .●订房信息地输入 , 包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、备注信息等 . DXDiTa9E3d●订房信息地修改和查询, 包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、备注信息等 . RTCrpUDGiT●结算信息地输入 , 包括客房编号、客房种类、位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结算日期、备注信息等 . 5PCzVD7HxA●结算信息地修改和查询 , 包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结日期、备注信息等 . jLBHrnAILg⒊系统功能模块设计按结构化程序设计思想 , 分析得出如下系统功能模块图宾馆管理信息系统结订客算房房系信信信统息息息管管管管理理理理剩结结结订订订余设设算算算房房房客置置密用信信信信信信房客客码户息息息息息息信房房管管查修添查修添息信标理理询改加询改加查息准询客客客客客房房房房房信信信标标息息息准准查修添修添询改加改加xHAQX74J0X图Ⅰ系统功能模块图⒋数据库设计数据库设计步骤:●数据库需求分析●数据库概念结构设计●数据库逻辑结构设计①数据库需求分析分析调查有关宾馆管理信息需求地基础上得本系统所处理地数据流程客房标准设置客房登记基本信息输入基本信息录入客房信息管理顾客登记订房信息管理订房信息管理客房信息返回结算信息输入结算信息管理LDAYtRyKfE图Ⅱ 宾馆管理信息系统数据流程图针对一般宾馆管理信息系统地需求, 通过对宾馆管理过程地内容和流程分析,设计如下面所示地数据项和数据结构:Zzz6ZB2Ltk●客房标准信息 , 包括地数据项有:标准编号、标准名称、房间面积、床位数量、住房单价、是否有空调、电视、电话、单独卫生间等 . dvzfvkwMI1●客房信息 , 包括地数据项有:客房编号、客房种类、客房位置、客房单价、备注等 .●订房信息 , 包括地数据项有:订房编号、客房编号、客房种类、客房位置、客房备注信息、顾客姓名、顾客身份证号码、入住时间、折扣、备注等 . rqyn14ZNXI●结算信息 , 包括地数据项有:订房编号、客房编号、客房种类、客房位置、客房备注信息、顾客姓名、顾客身份证号码、入住时间、折扣、结算时间、备注等 . EmxvxOtOco②数据库概念结构设计本系统根据以上地设计规划出地实体有:客房标准信息实体、客房信息实体、订房信息实体、结算信息实体. 各个实体具体地描述E-R图如下:SixE2yXPq5客房标准信息实体标准编号客房单价标准名称床位数量客房标准信息实体E - R图客房信息实体客房标准客房单价客房编号客房位置客房信息实体E - R图订房信息实体客房信息折扣顾客信息入住时间订房信息实体E - R图结算信息实体客房信息结算金额顾客信息结算时间结算信息实体E - R图客房标准信息客房登记客房信息管理订房结算信息管理订房信息管理客房结算实体之间关系E - R图③数据库逻辑结构设计首先将宾馆管理信息系统地数据库概念结构转化为SQL 2000数据库系统所支持地实际数据模型, 即:数据库地逻辑结构 . 其各个表格地设计结果如下6ewMyirQFL列名数据类型可否为空说明Typeid Varchar NOT NULL标准编号Typename Varchar NOT NULL标准名称Area Numeric NULL房间面积Bednum Numeric NULL床位数量Haircondition Varchar NULL是否有空调Htelephone Varchar NULL是否有电话Htelevision Varchar NULL是否有电视Htoilet Varchar NULL是否有单独卫生间Price Numeric NULL单价Roomtype 客房标准信息表列名数据类型 可否为空 说明 roomNO Varchar NOT NULL 客房编号 Roomtype Varchar NOT NULL 客房种类 Roomposition Varchar NULL 客房位置RoompriceNumeric NULL 单价PutupVarchar NOT NULL 是否被预定RoommemoText NULL备注Rooms 客房信息表列名数据类型 可否为空 说 明 BooknoVarchar NOT NULL 订房编号 Customname Varchar NOT NULL 顾客姓名 CustomID Varchar NOT NULL 身份证号码 Roomno Varchar NOT NULL 客房编号 Indate Datetime NULL 入住日期Discount Numeric NULL折扣 Inmeno Text NULL 备注 Checkdate Datetime NULL 结算日期AmountNumeric NULL金额Bookin 订房信息表⒌数据库结构地实现利用 SQL 2000 数据库系统中地查询分析实现数据库地逻辑结构 , 其表格如下: 创建系统用户表格 user_Info CREATE TABLE [dbo].[user_Info1]([user_ID][char](10> COLLATE Chinese_PRC_CI_AS NOT NULL, kavU42VRUs [user_PWD] [char] (10> COLLATE Chinese_PRC_CI_AS NULL, y6v3ALoS89 [user_Des] [char](10> COLLATE Chinese_PRC_CI_AS NULL M2ub6vSTnP > ON [PRIMARY]创建客房标准信息表格 roomtype CREATE TABLE [dbo].[roomtype]([typeid][char](10> COLLATE Chinese_PRC_CI_AS NOT NULL, [typename][char](10> COLLATE Chinese_PRC_CI_AS NOT NULL, [area][numeric](5,0> NULL,0YujCfmUCweUts8ZQVRd [bednum][numeric](2,0> NULL, [haircondition][char](2> COLLATE Chinese_PRC_CI_ASNULL,sQsAEJkW5T[htelephone][char](2> COLLATE Chinese_PRC_CI_AS NULL, [htelevision][char](2> COLLATE Chinese_PRC_CI_AS NULL,[htoilet][char](2> COLLATE Chinese_PRC_CI_AS NULL, [price][numeric](10,2>NULL> ON [PRIMARY]GMsIasNXkATIrRGchYzg创建客房信息表格 roomsCREATE TABLE [dbo].[rooms]([roomNO][char](10> COLLATE Chinese_PRC_CI_AS NOT NULL, 7EqZcWLZNX [roomtype][char](10> COLLATE Chinese_PRC_CI_AS NOT NULL,lzq7IGf02E [roomposition][char](20> COLLATE Chinese_PRC_CI_AS NULL,zvpgeqJ1hk [roomprice][numeric](10,2> NULL,[putup][char](2> COLLATE Chinese_PRC_CI_AS NOT NULL, NrpoJac3v1[roommemo][text] COLLATE Chinese_PRC_CI_AS NULL>ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]创建订房信息表 bookin CREATETABLE [dbo].[bookin]([bookno][char](14> COLLATE Chinese_PRC_CI_AS NOT NULL,1nowfTG4KI[customname][char](10>COLLATE Chinese_PRC_CI_AS NOT NULL,fjnFLDa5Zo[customID][char](18> COLLATE Chinese_PRC_CI_AS NOT NULL,tfnNhnE6e5 [roomno][char](10> COLLATE Chinese_PRC_CI_AS NOT NULL,HbmVN777sL [indate][datetime] NULL,[discount][numeric](2,0> NULL,[inmemo][text] COLLATE Chinese_PRC_CI_AS NULL,[checkdate][datetime] NULL,[ammount][numeric](10,2> NULL> ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]⒍宾馆管理信息系统具体程序实现⑴创建公用模块Module1.bas添加公共数据操作函数 , 用以执行各种 SQL 语句 . 添加函数 ExecuteSQL, 代码如下:Public Function ExecuteSQL(ByValSQL As String,MsgString AsString>_ As ADODB.Recordset V7l4jRB8Hs‘执行 SQL语句 , 并返回记录集对象Dim cnn As ADODB.ConnectionDim rst As ADODB.RecordsetDim sTokens(> As String‘异常处理On Error GoTo ExecuteSQ L_Error ’‘用 Split函数产生一个包含各个子串地数组sTokens=Split(SQL>Set cnn=NEW ADODB.Connection‘打开连接cnn.Open ConnectStringIf InStr( “INSERT,DELETE,UPDATE”,UCase$(sTokens(0>>> Then83lcPA59W9Cnn.Execute SQLMsgString=sTokens(0>& ”query successful”ElseSet rst=NEW ADODO.Recordsetrst.Open Trim$(SQL>,cnn,adOpenKeyset,adLockOptimisticmZkklkzaaP rst.MoveLastget RecordCount‘返回记录集对象Set ExecuteSQL=rstMsgString= ”查询到” &rst.RecordCount& ”条记录”End IfExecuteSQL_Exit:Set rst=NothingSet cnn=NothingExit FunctionExecuteSQL_Error:MsgString= ”查询错误 : ”&Err.DescriptionResume ExecuteSQL_ExitEnd FunctionPublic Sub EnterToTab(Keyasc As Integer>‘判断是否为回车键If Keyasc=13 Then ‘ Keyasc 用来保存当前按键‘转换成 Tab 键SendKey s”{TAB}”End IfEnd sub‘添加全局变量 , 用来记录各个窗口地读写状态, 代码如下:Public flagTedit As Boolean ‘标示是否进入修改地窗体Public flagRedit As BooleanPublic flagBedit As BooleanPublic flagCedit As BooleanPublic gintCmode As IntegerPublic gintTmode As Integer’记录是添加还是修改状态,1 为添加 ,2 为修改Public gintRmode As IntegerPublic gintBmode As IntegerPublic flagSedit As Boolean⑵系统用户管理模块地创建用户管理模块主要实现:·用户登陆 .·添加用户 .·修改用户具体客房标准添加代码:Private Sub Form_Load(>‘载入窗体后,判断所处状态Dim intCount As IntegerDim MsgText As StringDim i As IntegerIf gintTmode=1 Then‘判断是否属于添加状态Me.Caption=Me.Caption& ”添加”For i=0 To 3Combo1(i>.AddItem”否”Combo1(i>.AddItem”是”Combo1(i>.ListIndex=0Next iElseIf gintTmode=2 Then‘判断是否处于修改状态Setmrc=ExecuteSql(txtSQL,MsgText>If mrc.EOF=false ThenWith mrcFor intCount=0 To 3txtItem(intCount>=.Fields(intCount>Next intCounttxtItem(4>=.Fileds(8>For i=0 To 3Combo1(i>.Additem ”否”Combo1(i>.Additem ”是”Combo1(i>.ListIndex=0Next iEnd WithtxtItem(0>.Enabled=FalseEnd IfMe.Caption=Me.caption& ”修改”End IfmblChang=FalseEnd SubPrivate Sub cmd_Click(>’用户输入内容完毕后, 单击 cmdSave 按钮触发Click 事件AVktR43bpwDim intCount As IntegerDim sMeg As StringDim MsgText As StringFor intCount=0 To 4‘判断是否输入内容If Trim(txtItem(intCount>&”” >=”” ThenSelect Case intCountCase 0sMeg=”标准编号”Case 1sMeg=”标准名称”Case 2sMeg=”房间面积”Case 3sMeg=”床位数量”Case 4sMeg=”床位单价”End SelectsMeg=sMeg&”不能为空 ! ”MsgBox sMeg,vbOkOnly+vbExclamation, ”警告”txtItem(intCount>.SetFocusExit SubEnd ifNext intCount ‘判断输入内容是否为数字 ForintCount=2 To 4If Not IsNumeric(Trim(txtItem(intCount>>> ThenSelect Case intCountCase 2sMeg=”房间面积”Case 3sMeg=”床位数量”Case 4sMeg=”床位单价”End SelectsMeg=sMeg&”请输入数字 ! ”MsgBox sMeg,vbOKOnly+vbExclamation, ”警告”txtItem(intCount>.SeFocusExit SubEnd IfNext intCountIf gintTmode=1 Then‘判断是否有相同ID记录txtSQL=”sel ect*from roomtype where typeid_ =’” &Trim(txtItem(0>>&”’” ORjBnOwcEdSet mrc=ExecuteSQL(txtSQL,MsgText>If mrc.EOF=False ThenMsgBox“已经存在此标准编号地记录! ”,vbOKOnly+vbExclamation, ”警告”txtItem(0>.SetFocusExit SubEnd IfMrc.CloseEnd IftxtSQL=”select* from roomtype where typeid<> ’” &Trim(txtItem(0>>& ”’andtypename=’” &Trim(txtItem(1>>& ”’”2MiJTy0dTTSet mrc=ExecuteSQL(txtSQL,MsgText>If mrc.EOF=False ThenMsgBox”已经存在相同客房标准地记录! ”,vbOKOnly+vbExclamation,“警告”txtItem(1>.SetfocusExit SubEnd IftxtSQL=”delete from roomtype where typeid= ’” &Trim(txtItem(0>>& ”’”‘删除已有记录gIiSpiue7ASet mrc=ExecuteSQL(txtSQL,MsgText>txtSQL=”select *from roottype ”‘添加新记录 Setmrc=ExecuteSQL(txtSQL,MsgText>mrc.AddNewFor intCount=0 To 3mrc.Fields(intCount>=Trim(txtItem(intCount>>Next intCountFor intCount=0 To 3mrc.Fields(intCount+4>=Trim(Combo1(intCount>>Next intCountmrc.Fields(8>=Trim(txtItem(4>>mrc.Update‘更新数据库mrc.Closeif gintTmode=1 Then‘判断是否属于添加状态MsgBox “添加纪录成功 ! ”,vbOKOnly+vbExclamtion, “添加记录”For intCount=0 To 4txtItem(intCount>= ”” ‘清除已经输入地内容Next intCountFor intCount=0 To 3Combo1(intCount>.ListIndex=0Next intCountmblChange=False’判断是否打开窗口if flagTedit ThenUnload frmRoomtypefrmRoomtype.txtSQL=“select *from roomtype”frmRoomtype.ShowEnd IfElseIf gintTmode=2 Then‘判断是否处于修改状态Unload MeIf flagTedit ThenUnload frmRoomtypeEndIffrmRoomtype.txtSQL= ”select *from roomtype”frmRoomtype.ShowEnd IfEnd SubPrivate Sub txtItem_GotFocus(Index As Int eger>’文本框获得焦点时触发该事件 , 即自动选中输入地内容 , 便于修改uEh0U1YfmhtxtItem(Index>.SelStart=0txtItem(Index>.SelLength=Len(txtItem(Index>>End SubPrivate Sub cmdExit_Click(>’单击按钮cmdExit取消添加信息If mblChange And cmdSave.Enabled ThenIf MsgBox(“保存当前记录地变化吗?”,vbOKCancel+vbExcl amation, ”警告”>=vbOK Then ‘保存IAg9qLsgBXCall cmdSave_ClickEnd IfEnd IfUnload MeEnd SubPrivate Sub txtItem_KeyDown(Index As Integer,KeyCode As Integer,Shift_ As Integer> ‘输入完内容 , 单击回车键将自动进入下一个文本框 , 触发文本框地 Keydown事件WwghWvVhPEEnterToTab KeyCodeEnd Sub⑶修改客房标准窗体地创建Private Sub From_Load(>ShowTitleShowDataflagTedit=TrueEnd SubPrivate Sub ShowTitle(>‘调用showTitle函数,显示表头Dim i As IntegerWith msgList.Cols=10.TextMatrix(0,1>=”标准编号”.TextMatrix(0,2>=”标准名称”.TextMatrix(0,3>=”房间面积”.TextMatrix(0,4 >=”床位数量”.TextMatrix(0,5 >=”是否有空调”.TextMatrix(0,6 >=”是否有电话”.TextMatrix(0,7 >=”是否有电视”.TextMatrix(0,8 >=”是否有卫生间”.TextMatrix(0,9 >=”房间单价”.FixedRows=1‘固定表头For i=0 To 9‘设置各列地对齐方式.ColAlignment(i>=0Next i.FillStyle=flexFillRepeat‘表头项居中.Col=0.Row=0.RowSel=1.ColSel=.Cols-1.CellAlignment=4.ColWidth(0>=300‘设置单元大小.ColWidth(1>=1000.ColWidth(2>=2000.ColWidth(3>=2000.ColWidth(4>=1000.ColWidth(5>=1000.ColWidth(6>=1000.ColWidth(7>=1000.ColWidth(8>=1000.ColWidth(9>=1000.Row=1End WithEnd SubPrivate Sub ShowData(> ‘调用 showData 函数 , 显示记录列表Dim i As IntegerSet mrc=ExecuteSQL(txtSQL,MsgText>‘根据需要设置SQL 语句 , 显示需要地记录 asfpsfpi4kWith msgList.Rows=1Do While Not mrc.EOF.Rows=Rows+1For i=1 To mrc.Fields.CountSelect Case mrc.Fields(i-1>.TypeCase adDBDate.TextMatrix(.Rows-1,i>=Format(mrc.Fields(i-1>&”” , ”yyyy -mm-dd”>ooeyYZTjj1Case Else.TextMatrix(.Rows-1,i>=mrc.Fields(i-1>&””End SelectNext iMrc.MoveNextLoopEnd Withmrc.CloseEnd SubPrivate Sub msgList_MouseUp(Button As Integer,Shift As Integer,x As Single,y As Single>‘选择记录 , 然后单击鼠标右键 , 触发MouseUp事件BkeGuInkxIIf Button=2 And Shift=0 ThenPopupMenu fMainFrom.menuRoomtypeEnd IfEnd SubPrivate Sub menuModifyroomtype_Click(>Dim intCount As IntegerIf flagTedit Then‘判断是否打开记录窗体If frmRoomtype.msgList.Rows>1 ThenfintTmode=2‘设置为修改状态intCount=frmRoomtype.msgList.Row‘记下选择记录frmRoomtype1.txtSQL= ”select*from roomtype where typeid ’”&Trim(frmRoomtype.msgList.TextMatrix(intCount,1>>& ”’”PgdO0sRlMofrmRoomtype1.ShowElseCall menuAddroomtype_ClickEnd IfElsefrmRoomtype.txtSQL= ”select*from roomtype ”frmRoomtype.ShowEnd IfEnd SubPrivate Sub From_Resize(>‘窗体变化时,调整标签和表格位置,使标签处于窗体地最上方 , 而表格始终处于标签下方3cdXwckm15If Me.WindowState<>vbMinimized And fMainFrom.WindowState<>vbMinimizedThen‘边界处理h8c52WOngMIf Me.Scaleheight<10*lblTitle.Height ThenExit SubEnd IfIf Me.ScaleWidth<lblTitle.Width+lblTitle.Width/2Then v4bdyGiousExit SubEnd IflblTitle.Top=lblTitle.Height ‘控制控件地位置lblTitle.Left=(Me.Width-lblTitle.Width>/2msgList.Top=lblTitle.Top+lblTitle.Height+lblTitle.Height/2J0bm4qMpJ9msgList.Width=Me.ScaleWidth-200msgList.Left=Me.ScaleLeft+100msgList.Height=Me.ScaleHeight-msgList.Top-200End IfEnd Sub⑷删除客房标准Private Sub menuDeleteroomtype_Click(>Dim txtSQL As StringDim intCount As IntegerDim mrc As ADODB.RecordsetDim MsgText AsString If flagTedit Then‘判断是否打开记录窗体If frmRoomtype.msgList.Rows>1 ThenIf MsgBox(“真地要删除这么?”, vbOKCancel+vbExclamation,条文件记录”警告”>=vbOKThen XVauA9grYPintCount=frmRoomtype.msgList.RowtxtSQL=”delete from roomtype wheretypeid ’” &Trim(frmR oomtype.msgList.TextMatrix(intCount,1>>& ”’”bR9C6TJscwSet mrc=ExecuteSQL(txtSQL,MsgText>Unload frmRoomtype‘关闭记录窗体frmRoomtype.txtSQL= ”select*from roomtype”‘重新选择所有记录frmRoomtype.ShowEnd IfEnd IfEnd IfEnd Sub⑸客房信息管理模块地创建客房信息管理模块主要实现如下功能:·添加客房信息·修改客房信息·删除客房信息·查询客房信息具体实现代码如下:Private Sub From_Load(>‘载入窗体时,自动添加客房信息种类Dim sSql As StringDim intCount As IntegerDim MsgText As StringDim mrcc As ADODB.RecordsetIf gintRmode=1 Then ‘判断是否处于添加状态Me.Caption=me.Caption& “添加”txtSQL=”select DISTINCT typename from roomtype ”Set mrc=ExecuteSQL(txtSQL,MsgText> If Not mrc.EOF ThenDo While Not mrc.EOFcboItem(0>.AddItem Trim(mrc.Fields(0>>mrc.MoveNextLoopcboItem(0>.ListIndex=0Else‘显示记录内容MsgBox “请先进行客房标准设置 ! ”,vbOKOnly+vbExclamation, “警告”cmdSave.Enabled=FalseExit SubEnd Ifmrc.CloseElseIf gintRmode=2 Then‘判断是否处于修改状态Set mrcc=ExecuteSQL(txtSQL,MsgText>‘设置SQL 语句显示当前选择记录pN9LBDdtrdIf mrcc.EOF=False ThenWith mrcctxtItem(0>=.Fields(0>For intCount=1 To 2If Not IsNull(.Fields(intCount+1>>Then‘ 判断内容是否为空txtItem(intCount>=.Fields(intCount+1>End IfNext intCounttxtItem(3>=.Fields(5>txtSQL=”select DISTINCT typename fromroomtype ”Set mrc=ExecuteSQL(txtSQL,MsgText>If Not mrc.EOF ThenDo While Not mrc.EOFcboItem(0>.AddItem Trim(mrc.Fields(0>>mrc.MoveNextLoopcboItem(0>.ListIndex=0ElseMsgBox“ 请先进行客房标准设置! ”,vbOKOnly+vbExclamation, “警告”cmdSave.Enabled=FalseExit SubEnd Ifmrc.CloseEnd WithEnd Ifmrcc.CloseMe.Caption=Me.Caption&“修改”End IfmblChange=FalseEnd SubPrivate Sub cmdSave_Click(>‘单击保存按钮触发事件Dim intCount As IntegerDim sMeg As StringDim mrcc As ADODB.RecordsetDim Msgtext As StringFor intCount=0 To 3If Trim(TxtItem(intCount>&”” >=””ThenSelect Case intCountCase 0sMeg=“客房编号”Case 1sMeg=“客房位置”End SelectsMeg=sMeg&“不能为空!”MsgBox sMeg,vbOKOnly+vbExclamation,“警告”txtItem(intCount>.SetFocusExit SubEnd IfNext intCountIf gintRmode=1 Then‘判断是否有重复记录txtSQL=”select*from rooms where roomNO=‘ ”&Trim(txtItem(0>>&”’” DJ8T7nHuGTSet mrc=ExecuteSQL(txtSQL,msgText>If mrc.EOF=False ThenMsgBox“已经存在此客房编号地记录!” ,vbOKOnly+vbExclamation, “警告”txtItem(0>.SetFocusExit SubEnd Ifmrc.CloseEnd IfIf gintRmode=2 Then‘判断是否处于修改状态txtSQL=”delete from rooms where roomNO=‘ ”&Trim(txtItem(0>>&”’” QF81D7bvUASet mrc=ExecuteSQL(txtSQL,MsgText>End IftxtSQL=”select*from rooms ”‘再加入新记录Set mrc=ExecuteSQL(txtSQL,MsgText>mrc.AddNew‘为数据库对象添加记录mrc.Fields(0>=Trim(txtItem(0>>mrc.Fields(1>=Trim(txtItem(0>>For intCount=1 To 2If Trim(txtItem(intCount>& ”” >=”” Thenmrc.Fields(intCount+1>=NullElsemrc.Fields(intCount+1>=Trim(txtItem(intCount>>End IfNext intCountmrc.Fields(4>=””mrc.Fields(5>=Trim(txtItem(3>>mrc.Updatemrc.CloseIf gintRmode=1 ThenFor intCount=0 To 3txtItem(intCount>=””Next intCountmblChange=FalseIf flagRedit ThenUnload frmRoomfrmRoom.txtSQL=”select*from rooms ”‘重新显示数据frmRoom.ShowEnd IfElseIf gintRmode=2 ThenUnload MeIf flagRedit ThenUnload frmRoomEnd IffrmRoom.txtSQL=”select*from rooms”frmRoom.ShowEnd IfEnd Sub·修改客房信息Private Sub menuModifyroom_Click(>‘选择修改房间信息,触menuModifyroom 地 Click事件,程序判断为修改状态后 , 首先删除原有记录 , 然后把新内容加入到数据库中4B7a9QFw9hDim intCount As IntegerIf flagRedit Then‘判断记录窗体是否打开If frmRoom.msgList.Rows>1 Then‘判断客房信息列表内容是否为空gintRmode=2‘设置为修改状态intCount=frmRoom.msgList.Row‘纪录当前记录位置frmRoom1.txtSQL=”select*from rooms whereroomNO=’” &Trim(frmRoom.msgList.TextMatrix(intCount,1>>&”’” ix6iFA8xoXfrmRoom1.ShowElseCall menuAddroom_Click‘添加记录End IfElsefrmRoom.txtSQL=”select*from rooms”frmRoom.ShowEnd IfEnd Sub·删除客房信息Private Sub menuDeleteroom_Click(>Dim txtSQL As StringDim intCount As IntegerDim mrc As ADODB.RecordsetDim MsgText As StringIf flagTedit ThenIf frmRoom.msgList.Rows>1 Then ‘判断客房信息列表内容是否为空 If MsgBox( “真地要删除这条文件记录么?” ,vbOKCancel+vbExclamation,“警告” >=vbOK Then wt6qbkCyDEintCount=frmRoom.msgList.Row‘记载当前记录位置txtSQL=”delete from rooms where roomNO=‘” &Trim(frmRoom.msgList.TextMatrix(intCount,1>&”’”Kp5zH46zRkSet mrc=ExecuteSQL(txtSQL,MsgText>‘执行删除操作Unload frmRoomfrmRoom.txtSQL=”select*from rooms ”frmRoom.ShowEnd IfEnd IfEnd IfEnd Sub·查询客房信息Private Sub From_Load(>‘载入窗体时,将自动加入所有记录地入库时间Dim i As IntegerDim j As IntegerDim sSql As StringDim txtSQL As StringDim MsgText As StringDim mrc As ADODB.Recordsettx tSQL=”select DISTINCT typename from roomtype ” ‘初始化客房种类Yl4HdOAA61Set mrc=ExecuteSQL(txtSQL,MsgText>If Not mrc.EOF ThenDo While Not mrc.EOFCombo1.AddItem Trim(mrc.Fields(0>>Mrc.MoveNextLoopCombo1.ListIndex=0ElseMsgBox “请先进行客房标准设置! ”,vbOKOnly+vbExclamation, ”警告”Exit SubEnd Ifmrc.CloseEnd SubPrivate Sub cmdOK_Click(>‘设置完查询内容和方式后,单击cmdOk按钮查询Dim sQSql As StringIf chkItem(0>.Value=vbChecked ThensQSql=”roomNO=’”&Trim(txtItem(0>& ””>&”’”End IfIf chkItem(1>.Value=vbChecked ThenIf Trim(sQSql&”” >=”” ThensQSql=”roomtype=’” &Trim(Combo1&”” >&”’”ElsesQSql=sQSql&”and roomtype= ’” &Trim(Combo1&”” >&”’”End IfEnd IfIf Trim(sQSql>=”” ThenMsgBox “请设置查询条件!” ,vbOKOnly+vbExclamation, “警告” Exit SubElseIf flagRedit ThenUnload frmRoomEnd IffrmRoom.txtSQL=”select*from rooms where ”&sQSqlfrmRoom.ShowEnd IfMe.HideEnd Sub⑹订房信息管理模块地创建订房信息管理模块主要实现如下功能:·查询剩余客房信息·添加订房信息·修改订房信息·删除订房信息·查询订房库信息具体实现代码如下:Private Sub From_Load(> ‘载入窗体时 , 程序将自动加入客房种类和客房单价Dim txtSQL As StringDim MsgText As StringDim mrc As ADODB.RecordsettxtSQL=”select distinct typename from roomtype”‘选择所有客房种类 ch4PJx4BlISet mrc=ExecuteSQL(txtSQL,MsgText>If Not mrc.EOF ThenDo While Not mrc.EOFCombo1(0>.AddItem mrc.Fields(0>mrc.MoveNextLoopEnd Ifmrc.ClosetxtSQL=”select distinct price from roomtype”Set mrc=ExecuteSQL(txtSQL,MsgText>If Not mrc.EOF ThenDo While Not mrc.EOFCombo1(1>.AddItem mrc.Fields(0>Combo1(2>.AddItem mrc.Fields(0>mrc.MoveNextLoopEnd Ifmrc.CloseEnd SubPrivate Sub cmdOK_Click(>Dim sQSql As StringIf chkItem(0>.Value=vbChecked ThensQSql=”roomtype=’” &Trim(Combo1(0>&”” >&”’” End ifIf chkItem(1>.Value=vbChecked ThenIf Trim(sQSql&”” >=”” ThenIf Trim(Combo1(1>&”” ><>”” AndTrim(Combo1(2>&”” ><>””qd3YfhxCzoThensQSql=”roomprice<= ’” &Trim(Combo1(1>&”” >&Androomprice >=’” &Trim(Combo1(2>&”” >”’”E836L11DO5ElseIf Trim(Combo1(1>&”” >=”” AndTrim(Combo1(2>&”” ><>”” Then S42ehLvE3MsQSql=”roomprice >= ’” &Trim(Combo1(2>&”” >&”’”ElseIf Trim(Combo1(1>&”” ><>”” And Trim(Combo1(2>&””=”” Then501nNvZFissQSql=”roomprice<= ’” &Trim(Combo1(1>&”” >&”’”End IfElseIf Trim(Combo1(1>&”” ><>”” AndTrim(Combo1(2>&”” ><>”” Then jW1viftGw9sQSql=sQSql&”androomprice>= ’” &Trim(Combo1(1>&”” >&”’ androomprice>=’” &Trim(Combo1(2>&”” >&”’” xS0DOYWHLPElseIf Trim(Combo1(1>&”” >=”” AndTrim(Combo1(2>&”” ><>””Then LOZMkIqI0w sQSql=sQSql&”androomprice>=’” &Trim(Combo1(2>&”” >&”’” ZKZUQsUJedElseIf Trim(Combo1(1>&”” ><>”” AndTrim(Combo1(2>&”” >=”” Then dGY2mcoKtTsQSql=sQSql&”androomprice<= ’” &Trim(Combo1(1>&”” >&”’”rCYbSWRLIAEnd IfEnd IfIf Trim(sQSql>=”” ThenMsgBox“请设置查询条件 ! ”,vbOKOnly+vbExclamation, “警告”Exit SubElseIf flagRedit ThenUnload frmRoomEnd IffrmRoom.txtSQL=”select*from rooms where”&sQSql&”andputup ”<>’y’”FyXjoFlMWhfrmRoom.ShowflagSedit=TrueEnd IfMe.HideEnd SubPrivate Sub From_Load(>‘添加订房信息,载入窗体时把所有未预定地客房信息加入其中TuWrUpPObXDim sSql As StringDim intCount As IntegerDim MsgText As StringIf flagSedit Then‘判断打开方式Set mrc=ExecuteSQL(txtSQL,MsgText>If Not mrc.EOF ThenFor intCount=0 To 3cboItem(intCount>.AddItem mrc.Fields(intCount>cboItem(intCount>.ListIndex=0Next intCounttxtItem(5>=mrc.Fields(5>End Ifmrc.ClosetxtNo=GetRkno(>gintBmode=1ElseIf gintBmode=1 ThenMe.Caption=Me.Caption&“添加”txtSQL=”select DISTINCT roomNO from rooms whereputup<>’y’”7qWAq9jPqESet mrc=ExecuteSQL(txtSQL.MsgText>If Not mrc.EOF ThenDo While Not mrc.EOFcboItem(0>.AddItem Trim(mrc.Fields(0>>mrc.MoveNextLoopElseMsgBox“请先进行客房登记!” ,vbOKOnly+vbExclamation,“警告”cmdSave.Enabled=FalseExit SubEnd Ifmrc.ClosetxtNo=GetRknoElseIf gintBmode=2 ThenSet mrc.ExecuteSQL(txtSQL,MsgText>If mrc.EOF ThenWith mrctxtNO=!booknoFor intCount=0 To 1If Not IsNull(.Fields(intCount+1>> ThentxtItem(intCount>=.Fields(intCount+1>End IfNext intCountcboItem(0>.AddItem !roomnocboItem(0>.ListIndex=0For intCount=2 To 4If Not IsNull(.Fields(intCount+2>> ThentxtItem(intCount>=.Fields(intCount+2>End IfNext intCountEnd WithEnd Ifmrc.CloseMe.Caption=Me.Caption&“修改”txtSQL=”select*from rooms where roomNO=’”&Trim(cboItem(0>>& ”’”llVIWTNQFkSet mrc=ExecuteSQL(txtSQL,MsgText>If Not mrc.EOF ThenFor intCount=1 To 3cboItem(intCount>.AddItem mrc.Fields(intCount>cboItem(intCount>.ListIndex=0Next intCounttxtItem(5>=mrc.Fields(5>End Ifmrc.CloseEnd IfEnd IfmblChange=FalseEnd SubPrivate Sub cmdSave_Click(>‘添加记录到数据库中Dim intCount As IntegerDim sMeg As StringDim mrcc As ADODB.RecordsetDim MsgText As StringFor intCount=0 To 3‘判断输入内容是否为空If Trim(txtItem(intCount>&”” >=””ThenSelect Case intCountCase 0sMeg=“顾客姓名”Case 1sMeg=“身份证号码”Case 2sMeg=“折扣”Case 3sMeg=“入住时间”End SelectsMeg=sMeg&“不能为空 ! ”MsgBox sMeg,vbOKOnly+vbExclamation, “警告”txtItem(intCount>.SetFocusExit SubEnd IfNext intCountFor intCount=0 To 3If Trim(vboItem(intCount>&”” >=”” ThenSelect Case intCountCase 0sMeg=“客房编号”Case 1sMeg=“客房种类”Case 2sMeg=“客房位置”Case 3sMeg=“客房单价”End SelectsMeg=sMeg&“不能为空!”MsgBox sMeg,vbOKOnly+vbExclamation,“警告”cboItem(intCount>.SetFocusExit SubEnd IfNext intCountIf IsDate(txtItem(2>> ThentxtItem(2>=Format(txtItem(2>,”yyyy -mm-dd”>ElseMsgBox“入库时间应输入日期(yyyy-mm-dd>! ”,vbOKOnly+vbExclamation,”警告” yhUQsDgRT1txtItem(2>.SetFocusExit SubEnd IfFor intCount=1 To 3 Step 2If Not IsNumeric(txtItem(intCount>> ThenMsgBox“请输入数字” ,vbOKOnly+vbExclamation, “警告”txtItem(intCount>.SetFocusExit SubEnd IfNext intCountIf gintBmode =2 Thenwhere txtS QL=”delete from bookingbookno=’” &Trim(txtNo>& ”’”MdUZYnKS8ISet mrcc=ExecuteSQL(txtSQL,MsgText>End IftxtSQL=”select*from booking”Set mrcc=ExecuteSQL(txtSQL,MsgText>mrcc.AddNewmrcc.Fields(0>=txtNOFor intCount=0 To 1mrcc.Fields(intCount+1>=txtItem(intText>Next intCountmrcc.Fields(3>=cboItem(0>For intCount=2 To 4mrcc.Fields(intCount+2>=txtItem(intCount>Next intCountmrcc.Fields(8>=0mrcc.Updatemrcc.ClosetxtSQL=”select*from rooms where roomNO=’”&Trim(vboItem(0>>& ”’”09T7t6eTnoSet mrcc=ExecuteSQL(txtSQL,MsgText>If Not mrcc.EOf Thenmrcc!putup= ”y”End Ifmrcc.Updatemrcc.CloseIf gintBmode=1 ThenMsgBox“添加订房信息成功 ! ”,vbOKOnly+vbExclamation, “添加订房消息”Unload MeIf flagBedit ThenUnload frmBookinEnd IffrmBookin.txtSQL= ”selectbookno,customname,customID,roomno,indate,discount,inmemo from booking whereamount=’0’”e5TfZQIUB5frmBookin.ShowElseMsgBox “修改订房信息成功 ! ”,vbOKOnly+vbExclamation, “修改订房信息”Unload MeIf flagBedit ThenUnload frmBookinEnd IffrmBookin.txtSQL= ”selectbookno,customname,customID,roomno,indate,discount,inmemo from booking where amount=’0’”s1SovAcVQMfrmBookin.ShowEnd IfEnd Sub⑺结算信息管理模块地创建结算信息管理模块主要实现如下功能:·添加结算信息·修改结算信息·查询结算信息具体实现代码如下:Private Sub From_Load(>‘窗体载入时,自动加入所有未结算客房信息Dim sSql As StringDim intCount As IntegerDim MsgText As StringIf gintCmode=1 Then ‘判断是否处于添加状态Me.Caption=Me.Caption& “添加”txtSQL=”select DISTINCT roomno from booking whereamount=’0’”‘初始化客房编号 , 选择所有未结算客房编号GXRw1kFW5s Set mrc=ExecuteSQL(txtSQL,MsgText>If Not mrc.EOF ThenDo While Not mrc.EOFcboItem(0>.AddItem Trim(mrc!roomno>mrc.MoveNextLoopElseMsgBox“没有顾客入住 ! ”,vbOKOnly+vbExclamation, cmdSave.Enabled=FalseExit SubEnd Ifmrc.CloseElseIf gintCmode=2 Then‘判断是否处于修改状态Set mrc=ExecuteSQL(txtSQL,MsgText>If mrc.EOF=False ThenWith mrctxtNo =mrc.Fields(0>For intCount=0 To 1txtItem(intCount>=.Fields(intCount+1>Next intCountcboItem(0>.AddItem.fields(3>cboItem(0>.ListIndex=0For intCount=2 To 3If Not IsNull(.Fields(intCount+2>> ThentxtItem(intCount>=.Fields(intCount+2>End IfNext intCounttxtItem(5>=.Fields(6>txtItem(4>=.Fields(7>End WithEnd Ifmrc.ClosetxtSQL=”select*from rooms “警告”whereroomNO=’” &cboItem(0>&”’”UTREx49Xj9 Set mrc=ExecuteSQL(txtSQL,MsgText>If mrc.EOF=False ThenWith mrcFor intCount=1 To 3cboItem(intCount>.AddItem.Fields(intCount>cboItem(intCount>.ListIndex=0Next intCountEnd WithEnd If。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

酒店管理系统一、背景说明目前大多数酒店提供地服务多种多样,规模大小也各不相同,但稍具规模地酒店必含下面三类服务:饮食、住宿和娱乐•由于我们对酒店行业没有具体地接触和实质性地了解•此次数据库设计只能在一些收集到地基本材料与个人直观认识地基础上,简单模仿中等规模地酒店设计管理系统,并将其抽象成一个由三部门组成、实现三大服务地系统.b5E2RGbCAP二、部门地划分1.饮食部门它是酒店基本部门之一•它提供服务地特点是实时性强、持续时间短,强调效率•例如,顾客人数、顾客所用地菜及其它饮料等种类繁多,数量不等;后勤各种活动如采购等频繁发生•通过分析可发现,用人工完成此类操作比计算机更具实效与时效,且此类信息也没有长时间保留地必要,因此这些信息没有必要采用数据库管理•对于饮食部门,需要较长时间保留地信息主要是财务信息,一方面便于期末汇总,另一方面便于向上级报告.plEanqFDPw在规模较大地酒店餐饮服务部分,餐厅可分成几个等级或几个小部门,然后各自形成小系统,本系统为了简单起见,把饮食部门作为一个子系统,不再细分.DXDiTa9E3d2.住宿管理部门它也是酒店基本部门之一•住宿管理部门地主要职责有: A.给个房间布置各种设备、分类、编号、制定收费标准、分配服务人员.B.登记旅客信息,确认其身份,登记其入住、退房时间.C.统计各类房间地客满程度.D.对本部门地财务流动进行登记处理•以上信息处理可以通过计算机完成,其他不便于计算机操作地在此没有列出.RTCrpUDGiT3.娱乐管理部门娱乐是酒店非主流服务,它地存在除了赢利,更多地是为了吸引顾客食宿•娱乐部门地特点与饮食部门很相似,不便于使用计算机进行操作.可以用计算机完成并且有必要用计算机完成地有: A.制定收费标准,分配负责人.B.收入支岀财务处理:编号、财务来源去处地摘要、数量、单价、数额、结余、经手人等•这些信息都需要长时间保留并上报.5PCzVD7HxA4.经理部门经理部门地功能虽然不是面向顾客、不是酒店地服务项之一,但它地存在却是必不可少地.它地主要职责有:A.管理员工•给员工编号,登记其基本信息;根据员工地平时表现及工龄确定工资;此外,还要给员工分配工作部门及职务等等.B.划分部门•给个部门编号、命名、确定其职责范围、任命部门经理、分配员工.C•对本部门地财务进行核算<支付工资等).D.期末对酒店地收益情况进行核算 jLBHrnAlLg三、功能需求虽然酒店按功能可以划分成四个部门,但是饮食部门地大部分工作手工操作比计算机操作更具有效率,电脑操作只有财务处理•在划分子系统时,考虑到各子系统都有各自地财务处理,且有相似性,所以就把它们归为统一地一个“财务子系统”•同时“饮食子系统”取消,因为它地所有需要涵盖地功能都已包含在“财务子系统”中•因此系统共划分为四部分:总经理子系统、财务子系统、住宿子系统和娱乐子系统.XHAQX74J0X1.总经理子系统A・对新来地员工进行编号、登记、分配工作•{员工号、姓名、性别、年龄、工龄、级别、部门号、职务、其他备注}B.对于被辞退地员工从系统中级联删除其信息 ,如从员工表中删除其基本信息,从它所服务地工作部门中删除该员工地工作名额,结算支付其工资、奖金;同时补充新地员工,代替它地工 作^ LDAYtRyKfEC. 对新增部门作各种初始工作•如编号、命名、任命经理等.{部门号、名称、部门经理、员工数量}D. 取消某个部门时,核算该部门地财务情况,并作备份;同时对该部门地员工重新分配工作E. 其他情况地处理.图1总经煙址的前工-前订昏逕埶懈淀田「锻线娜分]2. 财务子系统A. 每天地收入、支出登记{编号、发票号、摘要、数量、单位、数额、经手人、日期 }B. 期末各子系统地财务汇总{编号、上月余额、总收入、总支出、余额、经手人、日期 } C. 期末酒店汇总个部门地财务报表,结算本酒店收益都仃恃恵酹退昴工当前工作本開门射铸題新后的制门惜冊?7曹子部门肘务信息酒店财务总汇信息图2 财勞子系统数据流图(个子部门财务结算及总会数据粽图)(编号、部门号、部门名称、收入、支出、净收入、经手人、日期>3. 住宿子系统A. 来客登记若多人住同一房间,只作一个记录.客人信息{房间号、房间类别、客人数量、联系人名、身份、证件名称 <类型)、证件号码、入住时间、退出时间}Zzz6ZB2LtkB. 房间管理旅客入住 <旅客退出)除了登记 <删除)客人信息之外,还应对相关地记录进行修改,如房间地状态 等.房间类别{类别号、名称、设备、收费标准、总数量、剩余量、管理人员 }房间{房间号,房间类型、状态}(该部门地财务处理与饮食子系统同,归到财务子系统>子部门收入支崔况收入情况部门营业惰况图孑住房孑系城数据霍團(壺线都分)4 •娱乐子系统A. 添加新地娱乐工程娱乐工程{娱乐工程号、名称、收费标准、负责人}B. 取消某娱乐工程<财务处理 <同饮食子系统) 归到财务子系统>四、数据字典1.数据项编号 数据项名 称 说明部分编 号 数据项名 称说明部分1 员工号整数类型;有唯一性2姓名 文本类型长度为10字符 3「性别 「枚举类型:男、女 4年龄整数类型 18 (100)性房单价袄项艮情息E4螟乐于至绩教馆混囲减线那分水坏门收入2.数据结构3.数据流4.数据存储5.处理过程概念结构设计过程本公司开发酒店管理系统,经过可行性分析、详细调查以及多次讨论,确定了该系统由娱乐管理部门、经理管理部门、宿舍管理部门和财务管理部门四个子系统组成.dvzfvkwMIl 本过程结构设计过程采用自底向上地设计方法,即首先定义各局部应用地概念结构,然后将它们集成起来,得到全局概念结构.rqyn14ZNXI下面给出各个子系统地分析及分E-R图地设计及对其进行地各项调整.本开发小组成员经过调查、信息流程分析、数据收集,并结合需求分析,明确了——子系统地功能:A.管理员工:给员工编号,登记其基本信息.根据员工地平时表现确定其岀勤工资及根据等级确定其固定工资,从而确定其实际工资,此外还要给员工分配工作部门等.EmxvxOtOcoB.划分部门:给各部门编号、命名、确定其职责范围、任命部门经理、分配员工C.对本部门地财务进行核算<支付工资等).根据要求分析给岀地数据流图,参照数据字典中地详细描述,给岀经理管理部门地分E-R图:员工对E-R图调整地准则:现实世界中地事物能作为属性对待地尽量作为属性对待;属性和实体地划分:属性中不具有需要描述地信息,即属性是不可分地数据项,不再包含其他信息.实体属性定义:员工(员工号、姓名、性别、年龄、工龄、级别、部门、职务、备注>工资(员工号、等级、实际工资、基本工资、岀勤工资>部门(部门号、名称、部门经理、员工数量>账单< 编号、发票号、摘要、收入数、支出数、日期、经手人、备注)具体调整如下:1.本来员工还应对应一个领导关系,但这里为了简便,就用员工地”等级”属性来表示员工之间地领导关系;2.工资本应作为员工地一个属性,但这里需强调员工对应地岀勤工资<由岀勤情况决定),因此将它单独作为一个实体;SixE2yXPq53.部门对应地账单本应属于财务子系统地内容,这里为了简化财务子系统,先在各个子系统中进行财务总结,因此,将账单也作为一个实体.6ewMyirQFL本开发小组成员经过调查、信息流程分析、数据收集,并结合需求分析,明确了——子系统地功能:A.为各个工程制定收费标准,分配负责人;B.收入支岀财务处理:编号、财务来源去处地摘要、数量、单价、数额、结余、经手人等信息;C.对在部门内进行娱乐地顾客进行收费,并根据折扣规则给与顾客相应地折扣;D.对部门内部进行帐务处理;根据要求分析给岀地数据流图,参照数据字典中地详细描述,给岀经理管理部门地分E-R图:实体属性定义:工程(编号、名称、所在位置、收费标准、负责人>员工(员工号、姓名、性别、年龄、工龄、级别、部门、职务、备注>顾客(顾客号、级别、姓名、年龄、性别、证件号码、证件名称、所选工程、使用时间、备注> 款项(顾客号、级别、使用时间、应收款、实际收款、折扣>折扣规则(级别、折扣情况>账单<编号、发票号、摘要、收入数、支出数、日期、经手人、备注)对E-R图调整地准则:现实世界中地事物能作为属性对待地尽量作为属性对待;属性和实体地划分:属性中不具有需要描述地信息,即属性是不可分地数据项,不再包含其他信息.具体调整如下:1 •本来员工还应对应一个领导关系,但这里为了简便,就用员工地“等级”属性来表示员工之间地领导关系;2•款项本可以作为顾客地一个属性来设置,但这里为了强调对顾客地折扣情况,需要对款项进行进一步地描述,因此这里作为一个实体;y6v3ALoS893 •对顾客所采取地折扣规则,本应该根据顾客地实际消费量来划定,这里为了方便起见,给每位顾客添加了一个“级别”属性,用以对应采取地折扣规则;M2ub6vSTnP4•部门对应地账单本应属于财务子系统地内容,这里为了简化财务子系统,先在各个子系统中进行财务总结,因此,将账单也作为一个实体;OYujCfmUCw本开发小组成员经过调查、信息流程分析、数据收集,并结合需求分析,明确了——子系统地功能:A.给个房间布置设备、分类、编号、制定收费标准、分配服务人员B.登记旅客信息,确认其身份,登记其入住、退岀时间;C.接受顾客地预定服务,对于已预定地客房进行登记地处理;D.统计各类房间地客满程度;E.对本部门地财务流动进行登记处理.实体属性定义:顾客(顾客号、级别、姓名、年龄、性别、证件类型、证件号码、入住时间、退岀时间、备注> 客房<客房号、类别、位置、设备、收费标准、管理人员、状态)员工(员工号、姓名、性别、年龄、工龄、级别、部门、备注>款项(顾客号、级别、使用时间、应收款、实际收款、折扣>折扣规则(级别、折扣情况>订单(订单号、时间、房间号、经手人、备注>账单<编号、发票号、摘要、收入数、支出数、日期、经手人、备注)对E-R图调整地准则:现实世界中地事物能作为属性对待地尽量作为属性对待;属性和实体地划分:属性中不具有需要描述地信息,即属性是不可分地数据项,不再包含其他信息具体调整如下:1 •本来员工还应对应一个领导关系,但这里为了简便,就用员工地“等级”属性来表示员工之间地领导关系;2•款项本可以作为顾客地一个属性来设置,但这里为了强调对顾客地折扣情况,需要对款项进行进一步地描述,因此这里作为一个实体;sQsAEJkW5T3 •对顾客所采取地折扣规则,本应该根据顾客地实际消费量来划定,这里为了方便起见,给每位顾客添加了一个“级别”属性,用以对应应采取地折扣规则; GMslasNXkA4•部门对应地账单本应属于财务子系统地内容,这里为了简化财务子系统,先在各个子系统中进行财务总结,因此,将账单也作为一个实体.TlrRGchYzg财务管理子系统本开发小组成员经过调查、信息流程分析、数据收集,并结合需求分析,明确了——子系统地功能:A.对各个部门上交上来地收支情况进行汇总,得岀各个部门地损益情况;B.对整个酒店各个部门地损益情况进行汇总登记,得岀本期酒店地损益;C.将整个酒店地收益情况下发给各个部门,帐务公开,集思广益.分E-R图如下:实体属性定义:部门(部门号、名称、部门经理、员工数量>员工(员工号、姓名、性别、年龄、工龄、级别、部门、职务、备注>账单<编号、发票号、摘要、收入数、支出数、日期、经手人、备注)总帐(编号、部门号、收入、支出、净利、日期、经手人、备注>财务状况<时期、总收入、总支岀、净利润)对E-R图调整地准则:现实世界中地事物能作为属性对待地尽量作为属性对待;属性和实体地划分:属性中不具有需要描述地信息,即属性是不可分地数据项,不再包含其他信息具体调整如下:员工应对应一个领导关系,但为了简便起见,就用员工地“等级”属性来表示员工之间地领导关系.视图集成以上便是四个子系统地分E-R图设计及其调整地整个过程,接着要做地就是将所有地分E-R图进行综合,合成一个系统地总E-R图.7EqZcWLZNX由于本系统比较简单,分E-R图规模也比较小,所以E-R图合成过程采用一次将四个子系统分E-R图集成总E-R图地方式.lzq7IGfO2E分两步进行:第一步:合并.解决各分E-R图之间地冲突,将各分E-R图合并起来生成初步E-R图.各分E-R图之间地冲突主要有三类:1.属性冲突:<1)属性域冲突,即属性值地类型、取值范围或取值集合不同.由于本系统较简单,所以并不存在这种冲突;<2 )属性取值单位冲突.由于本系统较简单,不存在这类冲突;2.命名冲突:(1)同名异义:由于本系统较简单,所以不存在这类冲突;(2)异名同义:由于本系统较小,所以不存在这类冲突;3.结构冲突:(1)同一对象在不同应用中具有不同地抽象:本系统在需求分析阶段原本存在这种冲突,考虑到后期地简化合并,我们在设计各个分E-R图就早先解决了这个问题,即将在任何一个分E-R图中作为实体出现地属性全部作为实体;zvpgeqJIhk(2)同一实体在不同分E-R图中所包含地属性个数和属性排列次序不完全相同:由于本系统较简单,所以并不存在这种冲突;NrpoJac3v1第二步:修改和重构.消除不必要地冗余,生成基本E-R图.由于本系统涵盖地内容比较少,基本不存在冗余地现象,所以初步E-R图就是基本E-R图,不必再进行调整.下面给出E-R图.1nowfTG4KI总E-R图:员工(员工号、姓名、性别、年龄、工龄、级别、部门号、职务、备注>;工资(员工号、等级、实际工资、基本工资、岀勤工资>;部门(部门号、名称、部门经理、员工数量、财务状况编号>;工程(工程编号、部门号码、名称、所在位置、收费标准、负责人号>;顾客(顾客编号、级别、姓名、年龄、性别、证件号码、证件名称、所选工程、使用时间、备注>;客房<客房号、类别、部门号、位置、设备、收费标准、管理人员号、状态);款项(款项编号、顾客号、工程号、折扣级别、使用时间、应收款、实际收款>;折扣规则(折扣级别、折扣情况>;订单(订单号、顾客号、经手人号、备注>;账单< 账单编号、总帐编号、发票号、收入数、支出数、日期、经手人号、备注);总帐(总帐编号、部门号、财务状况编号、收入、支出、净利、日期、经手人号、备注逻辑结构设计.与总E-R 图对应地关系模式1、 实体所对应地关系模式:员工(员工号、姓名、性别、年龄、工龄、级别、部门号、职务、备注>;>工资(员工号、等级、实际工资、基本工资、岀勤工资>;部门(部门号、名称、部门经理、员工数量、财务状况编号>;工程(工程编号、部门号码、名称、所在位置、收费标准、负责人号>;顾客(顾客编号、级别、姓名、年龄、性别、证件号码、证件名称、所选工程、使用时间、备注>;客房< 客房号、类别、部门号、位置、设备、收费标准、管理人员号、状态);款项(款项编号、顾客号、工程号、折扣级别、使用时间、应收款、实际收款>;折扣规则(折扣级别、折扣情况>;订单(订单号、顾客号、经手人号、备注>;账单< 账单编号、总帐编号、发票号、摘要、收入数、支出数、日期、经手人号、备注);总帐(总帐编号、部门号、财务状况编号、收入、支出、净利、日期、经手人号、备注>;财务状况V财务状况编号、时期、总收入、总支出、净利润);说明:1.下加横线部分表示关系地码2.以上关系地详细内容说明请参照概念结构设计中地具体内容3.上面地各个关系对概念结构设计中地相关内容了作了修改,主要加了各个实体中间地联系,尤其是一对多地联系,纳为属性.HbmVN777sL2、联系所对应地关系模式:1)、把客房和订单之间地n : m地预约联系转化为相应地关系模式如下:预约<订单号、客房号、始定时间、结束时间);2)、把顾客和房间之间地n : m地住宿联系转化为相应地关系模式如下:住宿<顾客号、房间号码、住宿时间);3)、把顾客和工程之间地n : m地选择联系转化为相应地关系模式如下:选择< 顾客号、工程号、发生时间、经受人号、备注);4)、其他联系处理说明如下:工资和员工之间地1:1联系与员工关系合并;顾客和订单之间地1:1联系与订单关系合并;折扣规则和款项之间地1:1联系与款项关系合并;员工和部门之间地n:1联系与员工关系合并;部门和财务状况之间地n:1联系与部门关系合并;客房和部门之间地n:1联系与客房关系合并;工程和部门之间地n:1联系与工程关系合并;总帐和财务状况之间地n:1联系与总帐关系合并;帐单和总帐之间地n:1联系与帐单关系合并;帐单和工程之间地n:1联系与工程关系合并;二.优化后地数据模型1、按照数据依赖对关系模式进行逐一分析,并进行极小化处理:员工(员工号、姓名、性别、年龄、工龄、级别、部门号、职务、备注> ;BCNF工资(员工号、等级、实际工资、基本工资、岀勤工资>;BCNF部门(部门号、名称、部门经理、员工数量、财务状况编号>;BCNF工程(工程编号、部门号码、名称、所在位置、收费标准、负责人号>;BCNF顾客(顾客编号、级别、姓名、年龄、性别、证件号码、证件名称、所选工程、备注>;BCNF优化说明:删除了使用时间,一是因为“使用时间”对于顾客地属性必要性不强,二是因为使用时间在别地关系中也可以查询到.V7l4jRB8Hs客房<客房号、类别、部门号、位置、设备、收费标准、管理人员号、状态);BCNF款项(款项编号、顾客号、工程号、折扣级别、使用时间、应收款、实际收款>;BCNF折扣规则(折扣级别、折扣情况>;BCNF订单(订单号、顾客号、经手人号、备注>;BCNF账单<账单编号、总帐编号、发票号、摘要、收入数、支出数、日期、经手人号、备注);BCNF总帐(总帐编号、部门号、财务状况编号、收入、支出、日期、经手人号、备注>;BCNF 优化说明:删除了净利,这一项可以根据收入、支出可以计算,而且并不经常对它进行查询.财务状况<财务状况编号、时期、总收入、总支出、净利润);1NF优化说明:净利润没有删除,因为在这一项上查询比较频繁,如果每次查询都计算,必然使系统计算增加,性能降低.保留下来虽然造成了一定地冗余,但提高了查询地效率,利大于弊.83ICPA59W9 预约<订单号、客房号、始定时间、结束时间);3NF住宿<顾客号、房间号码、住宿时间);3NF选择<顾客号、工程号、发生时间、经受人号、备注);3NF2、对关系模式进行必要地分解:因公司内人员进行查询时,一般只用到自己所属单位地信息,故可把“人员”关系按部门进行水平分解,以提高查询效率.mZkklkzaaP水平分解:员工(员工号、姓名、性别、年龄、工龄、级别、部门号、职务、备注>改为:负责人员(员工号、姓名、性别、年龄、工龄、级别、部门号、职务、备注>;服务人员(员工号、姓名、性别、年龄、工龄、级别、部门号、职务、备注>;经手人员(员工号、姓名、性别、年龄、工龄、级别、部门号、职务、备注>;三、用户子模式设计1经理子系统用户子模式员工(员工号、姓名、级别、部门号、职务、部门经理、实际工资>;因为经理对于员工其他情况不会经常关注,经常使用地只有以上各项,所以在经理子系统上设立员工关系.2.住宿子系统用户子模式客房<客房号、位置、设备、收费标准、管理人员号、状态);因为管理员工对于客房地其他情况不会经常使用,经常使用地只有以上各项,所以在住宿子系统上设立客房关系3.经营管理子系统用户子模式顾客<顾客编号、住宿号、姓名、级别、应收款、使用时间、备注)因为对于顾客地情况管理经常使用是以上各项,所以在经营管理子系统上设立顾客关系.物理结构设计一.存储结构设计经过分析可知,本酒店管理系统中信息处理地特点如下:<1)饮食、住宿、娱乐三大部门地数据不仅经常需要查询,而且更新速度快,例如住宿部门地来客查询与登记,房间地动态分配等.AVktR43bpw<2)各个部门信息要求共享地信息较多.例如员工信息,来客信息等•但财务信息一般不共,享]-<3)经理部门有一定地特殊职能:汇总财务信息;对于被辞退地员工从系统中级联删除其信息、如从员工表中删除其基本信息、从它所服务地工作部门中删除该员工地工作名额,结算支付其工资、奖金;同时补充新地员工,代替它地工作• ORjBnOwcEd针对这些特点,设计如下:1.确定数据库地存放位置为了提高系统性能,现根据应用情况将数据按照易变部分和稳定部分、经常存取部分和存取频率较低地部分分别在两个磁盘上存放•同时,考虑到本系统是多用户地,为了提高效率数据库地备份地数据和日志文件将保存在磁带中• 2MiJTy0dTT经常存取部分:员工(员工号、姓名、性别、年龄、工龄、级别、部门号、职务、备注>;工资(员工号、等级、实际工资、基本工资、岀勤工资>;客房<客房号、类别、部门号、位置、设备、收费标准、管理人员号、状态);款项(款项编号、顾客号、工程号、折扣级别、使用时间、应收款、实际收款>;折扣规则(折扣级别、折扣情况>;工程(工程编号、部门号码、名称、所在位置、收费标准、负责人号>;顾客(顾客编号、级别、姓名、年龄、性别、证件号码、证件名称、所选工程、备注>;存取频率较低地部分:部门(部门号、名称、部门经理、员工数量、财务状况编号>;账单<账单编号、总帐编号、发票号、摘要、收入数、支出数、日期、经手人号、备注);订单(订单号、顾客号、经手人号、备注>;总帐(总帐编号、部门号、财务状况编号、收入、支出、日期、经手人号、备注>;财务状况<财务状况编号、时期、总收入、总支出、净利润);2.确定系统配置酒店管理系统需要地微机数量和规模都不必太大,但在系统设计时应考虑到酒店地发展需求,在选择硬件设备、服务器操作系统、数据库时都考虑到能够逐步地增加和扩展.gliSpiue7A本酒店管理系统选用了Windows9x系统作为微机地操作系统,它能够有较好地使用界面并能够充分发挥出微机硬件地作用,比较适合酒店这样地机构;另外,选用了目前应用最多地ORACLE数据库.uEhOU1Yfmh由于涉及到酒店地财务管理,数据地完整性和安全性显得尤其重要.系统中地数据一旦丢失,将需要很长时间进行恢复,有时甚至使信息系统不得不从系统初始化阶段重新开始运行.每天进行数据备份是保障系统安全地重要手段.数据备份需要严格按照事先制定地备份与故障恢复策略进行,并落实备份登记和检查措施」Ag9qLsgBX具体地系统配置应当根据系统实际运行情况做进一步地调整。

相关文档
最新文档