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

数据数据库库 课课程程设计设计 课题课题 酒店管理系统 班班级级 0904 学号学号 0942001458134 姓名姓名 罗 浩 成成绩绩 2010年年 10 月月 30 日日 酒店管理信息系统 编写目的 酒店在正常的运营中需要对客房资源 顾客信息 结算信息进行管理 利用 宾馆管理信息系统及时了解各个环节中信息的变更 有利于提高管理效率 系统功能分析 系统开发的总体任务是实现宾馆各种信息的系统化 规范化和自动化 主要完成功能 有关客房标准的制定 标准信息的输入 包括标准编号 标准名称 房 间面积 床位数量 住房单价 是否有空调 电视机 电话以及单独卫生间 等 客房标准信息的修改 查询等 客房基本信息的输入 包括客房编号 客房类型 客房位置 客房单价 备注等 客房基本信息的查询 修改 包括客房编号 客房类型 客房位置 客 房单价 备注等 剩余客房信息的查询等 订房信息的输入 包括客房编号 客房种类 客房位置 客房单价 顾 客姓名 顾客身份证号码 入住日期 折扣 备注信息等 订房信息的修改和查询 包括客房编号 客房种类 客房位置 客房单 价 顾客姓名 顾客身份证号码 入住日期 折扣 备注信息等 结算信息的输入 包括客房编号 客房种类 位置 客房单价 顾客姓 名 顾客身份证号码 入住日期 折扣 结算日期 备注信息等 结算信息的修改和查询 包括客房编号 客房种类 客房位置 客房单 价 顾客姓名 顾客身份证号码 入住日期 折扣 结日期 备注信息等 系统功能模块设计 按结构化程序设计思想 分析得出如下系统功能模块图 宾馆管理信息系统 结 算 信 息 管 理 订 房 信 息 管 理 客 房 信 息 管 理 系 统 管 理 结 算 信 息 查 询 结 算 信 息 修 改 结 算 信 息 添 加 订 房 信 息 查 询 订 房 信 息 修 改 订 房 信 息 添 加 剩 余 客 房 信 息 查 询 设 置 客 房 信 息 设 置 客 房 标 准 密 码 管 理 用 户 管 理 客 房 信 息 查 询 客 房 信 息 修 改 客 房 信 息 添 加 客 房 标 准 修 改 客 房 标 准 添 加 图 系统功能模块图 数据库设计 数据库设计步骤 数据库需求分析 数据库概念结构设计 数据库逻辑结构设计 数据库需求分析 分析调查有关宾馆管理信息需求的基础上得本系统所处理的数据流程 客房标准设置 基本信息输入 客房登记 基本信息录入 客房信息管理 顾客登记 订房信息管理 订房信息管理 结算信息输入 结算信息管理 客房信息返回 图 宾馆管理信息系统数据流程图 针对一般宾馆管理信息系统的需求 通过对宾馆管理过程的内容和流程分析 设计如下面所示的数据项和数据结构 客房标准信息 包括的数据项有 标准编号 标准名称 房间面积 床 位数量 住房单价 是否有空调 电视 电话 单独卫生间等 客房信息 包括的数据项有 客房编号 客房种类 客房位置 客房单 价 备注等 订房信息 包括的数据项有 订房编号 客房编号 客房种类 客房位 置 客房备注信息 顾客姓名 顾客身份证号码 入住时间 折扣 备 注等 结算信息 包括的数据项有 订房编号 客房编号 客房种类 客房位 置 客房备注信息 顾客姓名 顾客身份证号码 入住时间 折扣 结 算时间 备注等 数据库概念结构设计 本系统根据以上的设计规划出的实体有 客房标准信息实体 客房信息实体 订房信息实体 结算信息实体 各个实体具体的描述 图如下 客房标准信息实体 标准编号 标准名称床位数量 客房单价 客房标准信息实体 图 客房信息实体 客房标准 客房编号客房位置 客房单价 客房信息实体 图 订房信息实体 客房信息 顾客信息 折 扣 入住时间 订房信息实体 图 结算信息实体 客房信息 顾客信息结算时间 结算金额 结算信息实体 图 客房标准信息 客房登记 客房信息管理 订 房 订房信息管理 结算信息管理 客房结算 实体之间关系 图 数据库逻辑结构设计 首先将宾馆管理信息系统的数据库概念结构转化为 SQL 2000 数据库系统所支 持的实际数据模型 即 数据库的逻辑结构 其各个表格的设计结果如下 列名数据类型可否为空说明 TypeidVarcharNOT NULL 标准编号 TypenameVarcharNOT NULL 标准名称 AreaNumericNULL 房间面积 BednumNumericNULL 床位数量 HairconditionVarcharNULL 是否有空调 HtelephoneVarcharNULL 是否有电话 HtelevisionVarcharNULL 是否有电视 HtoiletVarcharNULL 是否有单独卫生间 PriceNumericNULL 单价 Roomtype 客房标准信息表 列名数据类型可否为空说明 roomNOVarcharNOT NULL 客房编号 RoomtypeVarcharNOT NULL 客房种类 RoompositionVarcharNULL 客房位置 RoompriceNumericNULL 单价 PutupVarcharNOT NULL 是否被预定 RoommemoTextNULL 备注 Rooms 客房信息表 列名数据类型可否为空说 明 Bookno VarcharNOT NULL 订房编号 CustomnameVarcharNOT NULL 顾客姓名 CustomIDVarcharNOT NULL 身份证号码 RoomnoVarcharNOT NULL 客房编号 IndateDatetimeNULL 入住日期 DiscountNumericNULL 折扣 InmenoTextNULL 备注 CheckdateDatetimeNULL 结算日期 AmountNumericNULL 金额 Bookin 订房信息表 数据库结构的实现 利用 SQL 2000 数据库系统中的查询分析实现数据库的逻辑结构 其表格如 下 创建系统用户表格 user Info CREATE TABLE dbo user Info1 user ID char 10 COLLATE Chinese PRC CI AS 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 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 bednum numeric 2 0 NULL haircondition char 2 COLLATE Chinese PRC CI AS NULL 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 创建客房信息表格 rooms CREATE TABLE dbo rooms roomNO char 10 COLLATE Chinese PRC CI AS NOT NULL roomtype char 10 COLLATE Chinese PRC CI AS NOT NULL roomposition char 20 COLLATE Chinese PRC CI AS NULL roomprice numeric 10 2 NULL putup char 2 COLLATE Chinese PRC CI AS NOT NULL roommemo text COLLATE Chinese PRC CI AS NULL ON PRIMARY TEXTIMAGE ON PRIMARY 创建订房信息表 bookin CREATE TABLE dbo bookin bookno char 14 COLLATE Chinese PRC CI AS NOT NULL customname char 10 COLLATE Chinese PRC CI AS NOT NULL customID char 18 COLLATE Chinese PRC CI AS NOT NULL roomno char 10 COLLATE Chinese PRC CI AS NOT NULL 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 宾馆管理信息系统具体程序实现 客房信息管理模块的创建 客房信息管理模块主要实现如下功能 添加客房信息 修改客房信息 删除客房信息 查询客房信息 具体实现代码如下 Private Sub From Load 载入窗体时 自动添加客房信息种类 Dim sSql As String Dim intCount As Integer Dim MsgText As String Dim mrcc As ADODB Recordset If gintRmode 1 Then 判断是否处于添加状态 Me Caption me Caption 添加 txtSQL select DISTINCT typename from roomtype Set mrc ExecuteSQL txtSQL MsgText If Not mrc EOF Then Do While Not mrc EOF cboItem 0 AddItem Trim mrc Fields 0 mrc MoveNext Loop cboItem 0 ListIndex 0 显示记录内容 Else MsgBox 请先进行客房标准设置 vbOKOnly vbExclamation 警告 cmdSave Enabled False Exit Sub End If mrc Close ElseIf gintRmode 2 Then 判断是否处于修改状态 Set mrcc ExecuteSQL txtSQL MsgText 设置 SQL 语句显示当 前选择记录 If mrcc EOF False Then With mrcc txtItem 0 Fields 0 For intCount 1 To 2 If Not IsNull Fields intCount 1 Then 判 断内容是否为空 txtItem intCount Fields intCount 1 End If Next intCount txtItem 3 Fields 5 txtSQL select DISTINCT typename from roomtype Set mrc ExecuteSQL txtSQL MsgText If Not mrc EOF Then Do While Not mrc EOF cboItem 0 AddItem Trim mrc Fields 0 mrc MoveNext Loop cboItem 0 ListIndex 0 Else MsgBox 请先进行客房标准设置 vbOKOnly vbExclamation 警告 cmdSave Enabled False Exit Sub End If mrc Close End With End If mrcc Close Me Caption Me Caption 修改 End If mblChange False End Sub Private Sub cmdSave Click 单击保存按钮触发事件 Dim intCount As Integer Dim sMeg As String Dim mrcc As ADODB Recordset Dim Msgtext As String For intCount 0 To 3 If Trim TxtItem intCount Then Select Case intCount Case 0 sMeg 客房编号 Case 1 sMeg 客房位置 End Select sMeg sMeg 不能为空 MsgBox sMeg vbOKOnly vbExclamation 警告 txtItem intCount SetFocus Exit Sub End If Next intCount If gintRmode 1 Then 判断是否有重复记录 txtSQL select from rooms where roomNO Trim txtItem 0 Set mrc ExecuteSQL txtSQL msgText If mrc EOF False Then MsgBox 已经存在此客房编号的记录 vbOKOnly vbExclamation 警告 txtItem 0 SetFocus Exit Sub End If mrc Close End If If gintRmode 2 Then 判断是否处于修改状态 txtSQL delete from rooms where roomNO Trim txtItem 0 Set mrc ExecuteSQL txtSQL MsgText End If txtSQL 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 2 If Trim txtItem intCount Then mrc Fields intCount 1 Null Else mrc Fields intCount 1 Trim txtItem intCount End If Next intCount mrc Fields 4 mrc Fields 5 Trim txtItem 3 mrc Update mrc Close If gintRmode 1 Then For intCount 0 To 3 txtItem intCount Next intCount mblChange False If flagRedit Then Unload frmRoom frmRoom txtSQL select from rooms 重新显示数据 frmRoom Show End If ElseIf gintRmode 2 Then Unload Me If flagRedit Then Unload frmRoom End If frmRoom txtSQL select from rooms frmRoom Show End If End Sub 修改客房信息 Private Sub menuModifyroom Click 选择修改房间信息 触 menuModifyroom 的 Click 事件 程序判断为 修改状态后 首先删除原有记录 然后把新 内容加入到数据库中 Dim intCount As Integer If flagRedit Then 判断记录窗体是否打开 If frmRoom msgList Rows 1 Then 判断客房信息列表内容是否为空 gintRmode 2 设置为修改状态 intCount frmRoom msgList Row 纪录当前记录位置 frmRoom1 txtSQL select from rooms where roomNO Trim frmRoom msgList TextMatrix intCount 1 frmRoom1 Show Else Call menuAddroom Click 添加记录 End If Else frmRoom txtSQL select from rooms frmRoom Show End If End Sub 删除客房信息 Private Sub menuDeleteroom Click Dim txtSQL As String Dim intCount As Integer Dim mrc As ADODB Recordset Dim MsgText As String If flagTedit Then If frmRoom msgList Rows 1 Then 判断客房信息列表内容是否为空 If MsgBox 真的要删除这条文件记录么 vbOKCancel vbExclamation 警告 vbOK Then intCount frmRoom msgList Row 记载当前记录位置 txtSQL delete from rooms where roomNO Trim frmRoom msgList TextMatrix intCount 1 Set mrc ExecuteSQL txtSQL MsgText 执行删除操作 Unload frmRoom frmRoom txtSQL select from rooms frmRoom Show End If End If End If End Sub 查询客房信息 Private Sub From Load 载入窗体时 将自动加入所有记录的入库时间 Dim i As Integer Dim j As Integer Dim sSql As String Dim txtSQL As String Dim MsgText As St