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

数据库课程设计课题酒店管理系统第0904级学号34名字罗浩成绩2010年10月30日酒店管理信息系统制作目的酒店需要正常运营管理客房资源、客户信息、结算信息，利用酒店管理信息系统及时理解各环节信息的变更，有助于提高管理效率。系统功能分析系统开发的整体任务是实现酒店各种信息的系统化、规范化、自动化。主要功能：客房标准的制定、基准信息的输入包括基准号码、基准名称、房间面积、床数、住宅单价、有无空调、电视、电话、厕所等。客房标准信息的修改、查询等。客房基本信息的输入包括客房编号、客房类型、客房位置、客房单价、备注等。客房号码、客房类型、客房位置、客房单价、备注等，客房基本信息的查询、修正。剩馀客房信息的查询等。预约信息的输入包括客房号码、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、打折、备注信息等。预约信息的修改和查询包括客房号码、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、打折、备注信息等。结算信息的输入包括客房号码、客房种类、场所、客房单价、客户名称、客户身份证号码、入住日期、折扣、结算日期、评论信息等。结算信息的修改和查询包括客房号码、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、打折、结算日期、备注信息等。系统功能模块设计根据结构化程序设计思想，分析了以下系统功能框图酒店管理信息系统结算信息管理预约信息管理客房信息管理系统管理结算信息查询结算信息的修改添加结算信息预约信息查询修改预约信息添加预约信息剩馀客房信息查询设置客房信息制定客房标准密码管理用户管理客房信息查询修改房间信息添加房间信息客房标准的修改客房标准的追加图系统功能框图数据库设计数据库设计步骤：数据库需求分析数据库概念结构设计数据库逻辑结构设计数据库需求分析在分析调查酒店管理信息需求的基础上，得到了本系统处理的数据流客房标准设置基本信息输入客房登记基本信息输入客房信息管理客户注册预约信息管理预约信息管理结算信息输入结算信息管理客房信息返回图酒店管理信息系统数据流程图针对一般酒店管理信息系统的需要，通过酒店管理流程的内容和流程分析，设计出以下数据项目和数据结构客房标准信息包括标准号码、标准名称、房间面积、床数、住宅单价、有无空调、电视、电话、厕所等。客房信息包括客房编号、客房的种类、客房的场所、客房单价、评论等。预约信息包括预约号码、客房号码、客房的种类、客房的场所、客房备忘录信息、顾客名称、顾客身份证号码、入住时间、打折、备忘录等。结算信息包括预约号码、客房号码、客房种类、客房位置、客房评论信息、顾客名称、顾客身份证号码、入住时间、打折、结算时间、评论等。数据库概念结构设计本系统基于以上设计策划的实体为客房标准信息实体、客房信息实体、预约信息实体、结算信息实体。 各实体的具体说明E-R图如下所示客房标准信息实体标准编号标准名称床位数客房单价客房标准信息实体E-R图客房信息实体客房标准房间号码客房的地方客房单价客房信息实体E-R图预约信息实体客房信息顾客信息打折入住时间预约信息实体E-R图结算信息实体客房信息顾客信息结算时间结算金额结算信息实体E-R图客房标准信息客房登记客房信息管理预订房间。预约信息管理结算信息管理客房结算实体之间的关系E-R图数据库逻辑结构设计首先，将酒店管理信息系统的数据库概念结构转换为SQL 2000数据库系统支持的实际数据模型，即数据库的逻辑结构。 各表的设计结果如下列名数据类型是否是空说明类型idVarcharNOT NULL标准编号TypenameVarchar非空值标准名称AreaNumeric空值房间面积BednumNumeric空值床位数海尔康迪tionVarchar空值有没有空调HtelephoneVarchar空值有没有电话htelevenISIONVarchar空值有没有电视HtoiletVarchar空值有没有厕所？普莱斯Numeric空值单价room类型房间标准信息表列名数据类型是否是空说明roomNOVarchar非空值房间号码room类型Varchar非空值客房的种类room位置Varchar空值客房的地方room价格Numeric空值单价PutupVarchar非空值是否被预定了Roommemo文本空值备注Rooms房间信息表列名数据类型是否是空说明图书否Varchar非空值预约号码顾客名称Varchar非空值客户名称自定义身份。Varchar非空值身份证号码RoomnoVarchar非空值房间号码indate.indate日期时间空值入住日期DiscountNumeric空值打折Inmeno文本空值备注检查日期日期时间空值结算日期金额Numeric空值金额Bookin预约信息表数据库结构的实现使用SQL 2000数据库系统的查询分析来实现数据库的逻辑结构。 表格如下：创建系统用户表user_Info创建表 dbo . user _ info1 ( user _ id char (10 ) collate Chinese _ PRC _ ci _ ass not null user _ pwd char (10 ) collate Chinese _ PRC _ ci _ as null user _ des char (10 ) collate Chinese _ PRC _ ci _ as null) ON PRIMARY创建房间标准信息表roomtype创建表 dbo . room type (类型 char (10 ) collate Chinese _ PRC _ ci _ ass not null typename char (10 ) collate Chinese _ PRC _ ci _ ass not null“区域”“数字”(5，0 )空值“bed num”“numeric”(2，0 ) null hair condition char (2) collate Chinese _ PRC _ ci _ as null htelephone char (2) collate Chinese _ PRC _ ci _ as null htelevenision char (2) collate Chinese _ PRC _ ci _ as null hto ileset char (2) collate Chinese _ PRC _ ci _ as null“price”“numeric”(10，2 ) null) ON PRIMARY工作室信息表rooms的建立创建表 dbo . rooms ( roomno char (10 ) collate Chinese _ PRC _ ci _ ass not null room type char (10 ) collate Chinese _ PRC _ ci _ ass not null“room位置”“char”(20 ) collate Chinese _ PRC _ ci _ as null“room price”“numeric”(10，2 ) null putup char (2) collate Chinese _ PRC _ ci _ ass not nullroom memo 文本 collate Chinese _ PRC _ ci _ as null) on 主文本图像_ on 主预约信息表bookin的制作创建表 dbo . book in (“book no”“char”(14 ) collate Chinese _ PRC _ ci _ ass not null customname char (10 ) collate Chinese _ PRC _ ci _ ass not null“custom id”“char”(18 ) collate Chinese _ PRC _ ci _ ass not null roomno char (10 ) collate Chinese _ PRC _ ci _ ass not nullindate 日期 null“discount”“numeric”(2，0 ) null内存 文本 collate Chinese _ PRC _ ci _ as null检查日期date日期空值“ammount”“numeric”(10，2 ) null) on 主文本图像_ on 主酒店管理信息系统的具体程序的实现客房信息管理模块的建立客房信息管理模块主要实现以下功能添加房间信息修改客房信息删除房间信息查询客房信息具体的实现代码如下所示privatesubfrom_load ()。Dim sSql As StringDim intCount As IntegerDim MsgText As StringDim mrcc As ADODB.Recordset判断是否是If gintRmode=1 Then 追加状态Me.Caption=me.Caption“添加”txtsql=“selectdistincttypenamefromroomtype”set MRC=执行SQL (txtsql，MsgText )If Not mrc.EOF ThenDo While Not mrc.EOFCBO item (0).additem trim (MRC.fields (0) )mrc.MoveNextLoopcboItem(0).ListIndex=0显示记录的内容ElseMsgBox“请进行客房的标准设定！ ”，vbOKOnly vbExclamation，“警告”cmdSave.Enabled=False退出子最终PSmrc.Close判断是否为ElseIf gintRmode=2 Then 修正状态设置Set mrcc=ExecuteSQL(txtSQL，msgtext)sql语句以显示当前选择的记录If mr