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

系统平台：Windows 2000

数据库服务器：Microsoft SQL Server 2000 开发工具：Visual Basic 6.0 系统开发人员：

⒈编写目的

酒店在正常的运营中需要对客房资源、顾客信息、结算信息进行管理，利用宾馆管理信息系统及时了解各个环节中信息的变更，有利于提高管理效率。

⒉系统功能分析

系统开发的总体任务是实现宾馆各种信息的系统化、规范化和自动化。 主要完成功能：

● 有关客房标准的制定、标准信息的输入，包括标准编号、标准名称、房间面积、床位数量、住房单价、是否有空调、电视机、电话以及单独卫生间等。 ● 客房标准信息的修改、查询等。

● 客房基本信息的输入，包括客房编号、客房类型、客房位置、客房单价、备注等。

● 客房基本信息的查询、修改，包括客房编号、客房类型、客房位置、客房单价、备注等。

● 剩余客房信息的查询等。 ● 订房信息的输入，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、备注信息等。 ● 订房信息的修改和查询，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、备注信息等。

● 结算信息的输入，包括客房编号、客房种类、位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结算日期、备注信息等。 ● 结算信息的修改和查询，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结日期、备注信息等。

⒊系统功能模块设计 按结构化程序设计思想，分析得出如下系统功能模块图 1 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

宾馆管理信息系统 结算信息管理 订房信息管理 客房信息管理 系统管理 结算信息查询 结算信息修改 结算信息添加 订房信息查询 订房信息修改 订房信息添加 剩余客房信息查询 设置客房信息 设置客房标准 密码管理 用户管理 客房信息查询 客房信息修改 客房信息添加 客房标准修改 客房标准添加 图Ⅰ系统功能模块图 ⒋数据库设计 数据库设计步骤： ● 数据库需求分析 ● 数据库概念结构设计 ● 数据库逻辑结构设计 ①数据库需求分析

分析调查有关宾馆管理信息需求的基础上得本系统所处理的数据流程

2 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

客房标准设置 基本信息输入 客房登记 基本信息录入 客房信息管理 顾客登记 订房信息管理 订房信息管理 客房信息返回 结算信息输入 结算信息管理

图Ⅱ 宾馆管理信息系统数据流程图 针对一般宾馆管理信息系统的需求，通过对宾馆管理过程的内容和流程分析，设计如下面所示的数据项和数据结构： ● 客房标准信息，包括的数据项有：标准编号、标准名称、房间面积、床位数量、住房单价、是否有空调、电视、电话、单独卫生间等。 ● 客房信息，包括的数据项有：客房编号、客房种类、客房位置、客房单价、备注等。 ● 订房信息，包括的数据项有：订房编号、客房编号、客房种类、客房位置、客房备注信息、顾客姓名、顾客身份证号码、入住时间、折扣、备注等。 ● 结算信息，包括的数据项有：订房编号、客房编号、客房种类、客房位置、

客房备注信息、顾客姓名、顾客身份证号码、入住时间、折扣、结算时间、备注等。

②数据库概念结构设计

本系统根据以上的设计规划出的实体有：客房标准信息实体、客房信息实体、订房信息实体、结算信息实体。各个实体具体的描述Ｅ-Ｒ图如下：

3 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

客房标准信息实体 标准编号 标准名称 床位数量 客房单价 客房标准信息实体Ｅ-Ｒ图 客房信息实体 客房标准 客房编号 客房位置 客房单价 客房信息实体Ｅ-Ｒ图 订房信息实体 客房信息 顾客信息 折 扣 入住时间 订房信息实体Ｅ-Ｒ图

4 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

结算信息实体 客房信息 结算金额 顾客信息 结算时间

结算信息实体Ｅ-Ｒ图 客房标准信息 客房登记 客房信息管理 订 房 结算信息管理 订房信息管理 客房结算

实体之间关系Ｅ-Ｒ图 ③数据库逻辑结构设计 首先将宾馆管理信息系统的数据库概念结构转化为SQL 2000数据库系统所支持的实际数据模型，即：数据库的逻辑结构。其各个表格的设计结果如下 列名 数据类型 可否为空 说明 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 单价 5 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

列名 roomNO Roomtype Roomposition Roomprice Putup Roommemo 列名 Bookno Customname CustomID Roomno Indate Discount Inmeno Checkdate Amount Roomtype 客房标准信息表 数据类型 可否为空 Varchar NOT NULL Varchar NOT NULL Varchar NULL Numeric NULL Varchar NOT NULL Text NULL Rooms 客房信息表 数据类型 可否为空 Varchar NOT NULL Varchar NOT NULL Varchar NOT NULL Varchar NOT NULL Datetime NULL Numeric NULL Text NULL Datetime NULL Numeric NULL 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

6 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

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] ⒍宾馆管理信息系统具体程序实现 ⑴创建公用模块 Module1.bas 添加公共数据操作函数，用以执行各种SQL语句。添加函数ExecuteSQL，代码如下：

Public Function ExecuteSQL(ByValSQL As String,MsgString AsString)_

As ADODB.Recordset ‘执行SQL语句，并返回记录集对象 Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens() As String ‘异常处理

On Error GoTo ExecuteSQL_Error’

‘用Split函数产生一个包含各个子串的数组 sTokens=Split(SQL) Set cnn=NEW ADODB.Connection ‘打开连接

cnn.Open ConnectString

If InStr(“INSERT,DELETE,UPDATE”,UCase$(sTokens(0))) Then Cnn.Execute SQL

MsgString=sTokens(0)&”query successful” Else

Set rst=NEW ADODO.Recordset

7 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

rst.Open Trim$(SQL),cnn,adOpenKeyset,adLockOptimistic rst.MoveLast get RecordCount ‘返回记录集对象

Set ExecuteSQL=rst

MsgString=”查询到”&rst.RecordCount&”条记录” End If

ExecuteSQL_Exit: Set rst=Nothing Set cnn=Nothing Exit Function ExecuteSQL_Error:

MsgString=”查询错误:”&Err.Description Resume ExecuteSQL_Exit End Function

Public Sub EnterToTab(Keyasc As Integer) ‘判断是否为回车键

If Keyasc=13 Then ‘ Keyasc用来保存当前按键 ‘转换成Tab键 SendKeys”{TAB}” End If End sub

‘添加全局变量，用来记录各个窗口的读写状态，代码如下： Public flagTedit As Boolean ‘ 标示是否进入修改的窗体 Public flagRedit As Boolean Public flagBedit As Boolean Public flagCedit As Boolean Public gintCmode As Integer Public gintTmode As Integer ’记录是添加还是修改状态，1为添加，2为修

改 Public gintRmode As Integer Public gintBmode As Integer Public flagSedit As Boolean ⑵系统用户管理模块的创建 用户管理模块主要实现： ·用户登陆。 ·添加用户。

·修改用户

具体客房标准添加代码：

Private Sub Form_Load() ‘载入窗体后，判断所处状态 Dim intCount As Integer Dim MsgText As String Dim i As Integer

8 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

If gintTmode=1 Then ‘判断是否属于添加状态 Me.Caption=Me.Caption & ”添加” For i=0 To 3

Combo1(i).AddItem ”否” Combo1(i).AddItem ”是” Combo1(i).ListIndex=0 Next i

ElseIf gintTmode=2 Then ‘判断是否处于修改状态 Set mrc=ExecuteSql(txtSQL,MsgText) If mrc.EOF=false Then With mrc

For intCount=0 To 3

txtItem(intCount)=.Fields(intCount) Next intCount

txtItem(4)=.Fileds(8) For i=0 To 3

Combo1(i).Additem ”否” Combo1(i).Additem ”是” Combo1(i).ListIndex=0 Next i End With

txtItem(0).Enabled=False End If

Me.Caption=Me.caption&”修改” End If

mblChang=False End Sub Private Sub cmd_Click()’用户输入内容完毕后，单击cmdSave按钮触发Click事件

Dim intCount As Integer Dim sMeg As String Dim MsgText As String For intCount=0 To 4 ‘判断是否输入内容

If Trim(txtItem(intCount)&””)=”” Then Select Case intCount Case 0 sMeg=”标准编号” Case 1

sMeg=”标准名称” Case 2

sMeg=”房间面积” Case 3

sMeg=”床位数量”

9 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

Case 4

sMeg=”床位单价” End Select

sMeg=sMeg&”不能为空!”

MsgBox sMeg,vbOkOnly+vbExclamation,”警告” txtItem(intCount).SetFocus Exit Sub End if

Next intCount ‘判断输入内容是否为数字 For intCount=2 To 4

If Not IsNumeric(Trim(txtItem(intCount))) Then Select Case intCount Case 2

sMeg=”房间面积” Case 3

sMeg=”床位数量” Case 4

sMeg=”床位单价” End Select

sMeg=sMeg&”请输入数字!” MsgBox sMeg,vbOKOnly+vbExclamation,”警告” txtItem(intCount).SeFocus Exit Sub End If Next intCount

If gintTmode=1 Then ‘判断是否有相同ID记录 txtSQL=”select*from roomtype where typeid_

=’”&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

txtSQL=”select * from roomtype where

typeid<>’”&Trim(txtItem(0))&”’and typename=’”&Trim(txtItem(1))&”’”

Set mrc=ExecuteSQL(txtSQL,MsgText) If mrc.EOF=False Then

MsgBox”已经存在相同客房标准的记录!”,vbOKOnly+vbExclamation,

10 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

“警告”

txtItem(1).Setfocus Exit Sub End If

txtSQL=”delete from roomtype where

typeid=’”&Trim(txtItem(0))&”’”‘删除已有记录

Set mrc=ExecuteSQL(txtSQL,MsgText)

txtSQL=”select *from roottype”‘添加新记录 Set mrc=ExecuteSQL(txtSQL,MsgText) mrc.AddNew

For intCount=0 To 3

mrc.Fields(intCount)=Trim(txtItem(intCount)) Next intCount

For intCount=0 To 3

mrc.Fields(intCount+4)=Trim(Combo1(intCount)) Next intCount

mrc.Fields(8)=Trim(txtItem(4)) mrc.Update ‘更新数据库 mrc.Close

if gintTmode=1 Then ‘判断是否属于添加状态

MsgBox “添加纪录成功!”,vbOKOnly+vbExclamtion,“添加记录” For intCount=0 To 4

txtItem(intCount)=”” ‘清除已经输入的内容 Next intCount

For intCount=0 To 3 Combo1(intCount).ListIndex=0 Next intCount mblChange=False’判断是否打开窗口 if flagTedit Then Unload frmRoomtype frmRoomtype.txtSQL=“select *from roomtype” frmRoomtype.Show End If ElseIf gintTmode=2 Then ‘判断是否处于修改状态 Unload Me If flagTedit Then Unload frmRoomtype EndIf

frmRoomtype.txtSQL=”select *from roomtype” frmRoomtype.Show End If End Sub

Private Sub txtItem_GotFocus(Index As Integer)’文本框获得焦点时触发该

11 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

事件，即自动选中输入的内容，便于修改

txtItem(Index).SelStart=0

txtItem(Index).SelLength=Len(txtItem(Index)) End Sub

Private Sub cmdExit_Click()’单击按钮cmdExit取消添加信息

If mblChange And cmdSave.Enabled Then

If MsgBox(“保存当前记录的变化

吗？”,vbOKCancel+vbExclamation,”警告”)=vbOK Then ‘保存 Call cmdSave_Click End If End If Unload Me End Sub

Private Sub txtItem_KeyDown(Index As Integer,KeyCode As Integer,Shift_ As Integer)‘输入完内容，单击回车键将自动进入下一个文本框，触发文本框的Keydown事件 EnterToTab KeyCode End Sub

⑶修改客房标准窗体的创建 Private Sub From_Load()

ShowTitle ShowData

flagTedit=True End Sub

Private Sub ShowTitle()‘调用showTitle函数，显示表头

Dim i As Integer With 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)=0 Next i

.FillStyle=flexFillRepeat‘表头项居中 .Col=0

12 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

.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=1 End With End Sub

Private Sub ShowData()‘调用showData函数，显示记录列表 Dim i As Integer

Set mrc=ExecuteSQL(txtSQL,MsgText)‘根据需要设置SQL语句，显示需要的记录

With msgList .Rows=1

Do While Not mrc.EOF .Rows=Rows+1

For i=1 To mrc.Fields.Count Select Case mrc.Fields(i-1).Type Case adDBDate .TextMatrix(.Rows-1,i)=Format(mrc.Fields(i-1)&””,”yyyy-mm-dd”)

Case Else .TextMatrix(.Rows-1,i)=mrc.Fields(i-1)&”” End Select Next i Mrc.MoveNext Loop

End With mrc.Close End Sub

Private Sub msgList_MouseUp(Button As Integer,Shift As Integer,x As

Single,y As Single)‘选择记录，然后单击鼠标右键，触发MouseUp事件

If Button=2 And Shift=0 Then

13 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

PopupMenu fMainFrom.menuRoomtype End If End Sub

Private Sub menuModifyroomtype_Click() Dim intCount As Integer

If flagTedit Then ‘判断是否打开记录窗体 If frmRoomtype.msgList.Rows>1 Then fintTmode=2‘设置为修改状态

intCount=frmRoomtype.msgList.Row‘记下选择记录 frmRoomtype1.txtSQL=”select*from roomtype where

typeid’”&Trim(frmRoomtype.msgList.TextMatrix(intCount,1))&”’”

frmRoomtype1.Show Else

Call menuAddroomtype_Click End If Else

frmRoomtype.txtSQL=”select*from roomtype” frmRoomtype.Show End If End Sub

Private Sub From_Resize()‘窗体变化时，调整标签和表格位置，使标签处于窗体的最上方，而表格始终处于标签下方

If Me.WindowState<>vbMinimized And

fMainFrom.WindowState<>vbMinimized Then‘边界处理

If Me.Scaleheight<10*lblTitle.Height Then Exit Sub End If If Me.ScaleWidth⑷删除客房标准

Private Sub menuDeleteroomtype_Click() Dim txtSQL As String Dim intCount As Integer

14 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

Dim mrc As ADODB.Recordset Dim MsgText As String

If flagTedit Then ‘判断是否打开记录窗体 If frmRoomtype.msgList.Rows>1 Then

If MsgBox(“真的要删除这条文件记录么？”，

vbOKCancel+vbExclamation,”警告”)=vbOK Then

intCount=frmRoomtype.msgList.Row txtSQL=”delete from roomtype where

typeid’”&Trim(frmRoomtype.msgList.TextMatrix(intCount,1))&”’”

Set mrc=ExecuteSQL(txtSQL,MsgText) Unload frmRoomtype‘关闭记录窗体 frmRoomtype.txtSQL=”select*from roomtype”‘重新选择所有记录

frmRoomtype.Show End If End If End If End Sub

⑸客房信息管理模块的创建

客房信息管理模块主要实现如下功能： ·添加客房信息 ·修改客房信息 ·删除客房信息 ·查询客房信息 具体实现代码如下： 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,

15 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

“警告”

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

16 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

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

17 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

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

18 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

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 String Dim mrc As ADODB.Recordset txtSQL=”select DISTINCT typename from roomtype”‘初始化客房种类 Set mrc=ExecuteSQL(txtSQL,MsgText) If Not mrc.EOF Then Do While Not mrc.EOF

Combo1.AddItem Trim(mrc.Fields(0)) Mrc.MoveNext Loop

Combo1.ListIndex=0 Else

MsgBox “请先进行客房标准设置!”,vbOKOnly+vbExclamation,”警告”

19 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

Exit Sub End If mrc.Close End Sub

Private Sub cmdOK_Click()‘设置完查询内容和方式后，单击cmdOk按钮查询 Dim sQSql As String

If chkItem(0).Value=vbChecked Then

sQSql=”roomNO=’”&Trim(txtItem(0)&””)&”’” End If

If chkItem(1).Value=vbChecked Then If Trim(sQSql&””)=”” Then

sQSql=”roomtype=’”&Trim(Combo1&””)&”’” Else

sQSql=sQSql&”and roomtype=’”&Trim(Combo1&””)&”’” End If End If

If Trim(sQSql)=”” Then MsgBox “请设置查询条件！”,vbOKOnly+vbExclamation,“警告” Exit Sub Else

If flagRedit Then Unload frmRoom End If

frmRoom.txtSQL=”select*from rooms where”&sQSql frmRoom.Show End If Me.Hide End Sub

⑹订房信息管理模块的创建

订房信息管理模块主要实现如下功能： ·查询剩余客房信息 ·添加订房信息 ·修改订房信息 ·删除订房信息 ·查询订房库信息 具体实现代码如下：

Private Sub From_Load()‘载入窗体时，程序将自动加入客房种类和客房单价 Dim txtSQL As String Dim MsgText As String

Dim mrc As ADODB.Recordset

txtSQL=”select distinct typename from roomtype”‘选择所有客房种类 Set mrc=ExecuteSQL(txtSQL,MsgText) If Not mrc.EOF Then

20 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

Do While Not mrc.EOF

Combo1(0).AddItem mrc.Fields(0) mrc.MoveNext Loop End If mrc.Close

txtSQL=”select distinct price from roomtype” Set mrc=ExecuteSQL(txtSQL,MsgText) If Not mrc.EOF Then

Do While Not mrc.EOF

Combo1(1).AddItem mrc.Fields(0) Combo1(2).AddItem mrc.Fields(0) mrc.MoveNext Loop End If mrc.Close End Sub

Private Sub cmdOK_Click() Dim sQSql As String

If chkItem(0).Value=vbChecked Then sQSql=”roomtype=’”&Trim(Combo1(0)&””)&”’” End if

If chkItem(1).Value=vbChecked Then If Trim(sQSql&””)=”” Then

If Trim(Combo1(1)&””)<>””And Trim(Combo1(2)&””)<>””

Then

sQSql=”roomprice<=’”&Trim(Combo1(1)&””)&And roomprice >=’”&Trim(Combo1(2)&””)”’”

ElseIf Trim(Combo1(1)&””)=””And

Trim(Combo1(2)&””)<>””Then

sQSql=”roomprice >=’”&Trim(Combo1(2)&””)&”’” ElseIf Trim(Combo1(1)&””)<>””And

Trim(Combo1(2)&””=””Then

sQSql=”roomprice<=’”&Trim(Combo1(1)&””)&”’” End If Else If Trim(Combo1(1)&””)<>””And

Trim(Combo1(2)&””)<>””Then

sQSql=sQSql&”androomprice>=’”&Trim(Combo1(1)&””)&”’and

roomprice >=’”&Trim(Combo1(2)&””)&”’”

21 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

ElseIf

Trim(Combo1(1)&””)=””And

Trim(Combo1(2)&””)<>””Then

sQSql=sQSql&”and

roomprice >=’”&Trim(Combo1(2)&””)&”’”

ElseIf Trim(Combo1(1)&””)<>””And

Trim(Combo1(2)&””)=””Then

sQSql=sQSql&”and

roomprice<=’”&Trim(Combo1(1)&””)&”’”

End If End If

If Trim(sQSql)=”” Then

MsgBox “请设置查询条件!”,vbOKOnly+vbExclamation,“警告” Exit Sub Else

If flagRedit Then Unload frmRoom End If

frmRoom.txtSQL=”select*from rooms where”&sQSql&”and putup”<>’y’” frmRoom.Show flagSedit=True End If Me.Hide End Sub

Private Sub From_Load()‘添加订房信息，载入窗体时把所有未预定的客房信息加入其中

Dim sSql As String Dim intCount As Integer Dim MsgText As String If flagSedit Then ‘判断打开方式

Set mrc=ExecuteSQL(txtSQL,MsgText) If Not mrc.EOF Then For intCount=0 To 3 cboItem(intCount).AddItem mrc.Fields(intCount) cboItem(intCount).ListIndex=0 Next intCount

txtItem(5)=mrc.Fields(5) End If mrc.Close

txtNo=GetRkno() gintBmode=1 Else

22 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

If gintBmode=1 Then

Me.Caption=Me.Caption&“添加” txtSQL=”select DISTINCT roomNO from rooms where putup<>’y’” 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 Else

MsgBox “请先进行客房登记!”,vbOKOnly+vbExclamation,“警告” cmdSave.Enabled=False Exit Sub End If

mrc.Close

txtNo=GetRkno

ElseIf gintBmode=2 Then

Set mrc.ExecuteSQL(txtSQL,MsgText) If mrc.EOF Then With mrc

txtNO=!bookno

For intCount=0 To 1 If Not IsNull(.Fields(intCount+1)) Then txtItem(intCount)=.Fields(intCount+1) End If Next intCount cboItem(0).AddItem !roomno cboItem(0).ListIndex=0 For intCount=2 To 4 If Not IsNull(.Fields(intCount+2)) Then txtItem(intCount)=.Fields(intCount+2) End If Next intCount End With End If mrc.Close Me.Caption=Me.Caption&“修改” txtSQL=”select*from rooms where

roomNO=’”&Trim(cboItem(0))&”’”

Set mrc=ExecuteSQL(txtSQL,MsgText) If Not mrc.EOF Then For intCount=1 To 3

cboItem(intCount).AddItem mrc.Fields(intCount)

23 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

cboItem(intCount).ListIndex=0 Next intCount

txtItem(5)=mrc.Fields(5) End If mrc.Close End If 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=“身份证号码” Case 2

sMeg=“折扣” Case 3 sMeg=“入住时间” End Select sMeg=sMeg&“不能为空!”

MsgBox sMeg,vbOKOnly+vbExclamation,“警告” txtItem(intCount).SetFocus Exit Sub End If Next intCount For intCount=0 To 3 If Trim(vboItem(intCount)&””)=””Then Select Case intCount Case 0 sMeg=“客房编号” Case 1

sMeg=“客房种类” Case 2

sMeg=“客房位置” Case 3

sMeg=“客房单价”

24 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

End Select

sMeg=sMeg&“不能为空！”

MsgBox sMeg,vbOKOnly+vbExclamation,“警告” cboItem(intCount).SetFocus Exit Sub End If Next intCount

If IsDate(txtItem(2)) Then

txtItem(2)=Format(txtItem(2),”yyyy-mm-dd”) Else

MsgBox “入库时间应输入日期

(yyyy-mm-dd)!”,vbOKOnly+vbExclamation,”警告”

txtItem(2).SetFocus Exit Sub End If

For intCount=1 To 3 Step 2

If Not IsNumeric(txtItem(intCount)) Then MsgBox “请输入数字”,vbOKOnly+vbExclamation,“警告” txtItem(intCount).SetFocus Exit Sub End If Next intCount

If gintBmode =2 Then txtSQL=”delete from booking where bookno=’”&Trim(txtNo)&”’” Set mrcc=ExecuteSQL(txtSQL,MsgText) End If

txtSQL=”select*from booking” Set mrcc=ExecuteSQL(txtSQL,MsgText) mrcc.AddNew mrcc.Fields(0)=txtNO For intCount=0 To 1 mrcc.Fields(intCount+1)=txtItem(intText) Next intCount mrcc.Fields(3)=cboItem(0) For intCount=2 To 4 mrcc.Fields(intCount+2)=txtItem(intCount) Next intCount mrcc.Fields(8)=0 mrcc.Update mrcc.Close

txtSQL=”select*from rooms where

roomNO=’”&Trim(vboItem(0))&”’”

25 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

Set mrcc=ExecuteSQL(txtSQL,MsgText) If Not mrcc.EOf Then mrcc!putup=”y” End If

mrcc.Update mrcc.Close

If gintBmode=1 Then

MsgBox “添加订房信息成功!”,vbOKOnly+vbExclamation,“添加订房消

息”

Unload Me

If flagBedit Then Unload frmBookin End If

frmBookin.txtSQL=”select

bookno,customname,customID,roomno,indate,discount,inmemo from booking where amount=’0’”

frmBookin.Show Else

MsgBox“修改订房信息成功!”,vbOKOnly+vbExclamation,“修改订房信息”

Unload Me

If flagBedit Then Unload frmBookin End If

frmBookin.txtSQL=”select bookno,customname,customID,roomno,indate,discount,inmemo from booking where amount =’0’”

frmBookin.Show End If End Sub ⑺结算信息管理模块的创建

结算信息管理模块主要实现如下功能： ·添加结算信息 ·修改结算信息 ·查询结算信息

具体实现代码如下：

Private Sub From_Load()‘窗体载入时，自动加入所有未结算客房信息 Dim sSql As String

Dim intCount As Integer Dim MsgText As String

If gintCmode=1 Then ‘判断是否处于添加状态

26 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

Me.Caption=Me.Caption&“添加”

txtSQL=”select DISTINCT roomno from booking where amount=’0’”‘初始化客房编号，选择所有未结算客房编号 Set mrc=ExecuteSQL(txtSQL,MsgText) If Not mrc.EOF Then

Do While Not mrc.EOF

cboItem(0).AddItem Trim(mrc!roomno) mrc.MoveNext Loop Else

MsgBox “没有顾客入住!”,vbOKOnly+vbExclamation,“警告” cmdSave.Enabled=False Exit Sub End If mrc.Close

ElseIf gintCmode=2 Then‘判断是否处于修改状态 Set mrc=ExecuteSQL(txtSQL,MsgText) If mrc.EOF=False Then With mrc

txtNo =mrc.Fields(0) For intCount=0 To 1

txtItem(intCount)=.Fields(intCount+1) Next intCount cboItem(0).AddItem.fields(3) cboItem(0).ListIndex=0 For intCount=2 To 3 If Not IsNull(.Fields(intCount+2)) Then txtItem(intCount)=.Fields(intCount+2) End If Next intCount txtItem(5)=.Fields(6) txtItem(4)=.Fields(7) End With End If mrc.Close txtSQL=”select*from rooms where roomNO=’”&cboItem(0)&”’” Set mrc=ExecuteSQL(txtSQL,MsgText) If mrc.EOF=False Then With mrc

For intCount=1 To 3

cboItem(intCount).AddItem.Fields(intCount) cboItem(intCount).ListIndex=0 Next intCount

27 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

End With End If mrc.Close

For intCount =0 To 3

txtItem(intCount).Enabled=False Next intCount

Me.Caption=Me.Caption&“修改” End If

mblChange=False End Sub

Private Sub cboItem_Click(Index As Integer)‘选择不同客房，触发cboItem下拉式文本框的click事件，显示相应的顾客信息 Dim sSql As String Dim MsgText String

Dim mrcc As ADODB.Recordset Dim intCount As Integer

If gintCmode =1 Then ‘判断是否处于添加状态，否则将退出 If Index=0 Then

cboItem(1).Enabled=True cboItem(2).Enabled=True cboItem(3).Enabled=True

cboItem(1).Clear‘清除原有内容 cboItem(2).Clear cboItem(3).Clear txtSQL=”select roomNO,roomtype,roomposition,roomprice from where roomNo =’”&Trim(cboItem(0))&”’” ‘显示有关客房的具体信息 Set mrcc=ExecuteSQL(txtSQL,MsgText) If Not mrcc.EOF Then cboItem(1).AddItem mrcc!roomtype cboItem(2).AddItem mrcc!roomposition cboItem(3).AddItem mrcc!roomprice cboItem(1).Enabled=False cboItem(2).Enabled=False cboItem(3).Enabled=False cboItem(1).ListIndex=0 cboItem(2).ListIndex=0 cboItem(3).ListIndex=0 cmdSave.Enabled=True Else

MsgBox “没有订房信息!”,vbOKOnly+vbExclamation, “警告” cmdSave.Enabled=False Exit Sub End If

28 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

mrcc.Close

txtSQl=”select*from booking where amount=’0’and roomno=’”&Trim(cboItem(0))&”’”‘显示相关顾客信息 Set mrcc=ExecuteSQL(txtSQL,MsgText) If Not mrcc.EOF Then txtNO=mrcc!bookno

txtItem(0)=mrcc!customname txtItem(1)=mrcc!customID txtItem(2)=mrcc!indate txtItem(3)=mrcc!discount txtItem(5)=mrcc!inmemo For intCount =0 To 3

txtItem(intCount).Enabled=False Next intCount End If mrcc.Close End If End If Exit Sub End Sub

Privte Sub cmdSave_Click() Dim intCount As Integer Dim sMeg As String Dim mrcc As ADODB.Recordset Dim MsgText As String Dim bYear As Integer Dim eYear As Integer Dim bDays As Integer Dim eDays As Integer Dim aDays As Integer Dim amMount As Double If Trim(txtItem(4)&””)=””Then

MsgBox sMeg,vbOKOnly+vbExclamation,“警告” txtItem(4).SetFocus Exit Sub End If

If IsDate(txtItem(4)) Then

txtItem(4)=Format(txtItem(4),”yyyy-mm-dd”) Else

MsgBox “入库时间应输入日期（yyyy-mm-yy）!”,vbOKOnly+vbExclamation,“警告” txtItem(4).SetFocus Exit Sub

29 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

End If

txtSQl=”select *from booking where bookno=’”&Trim(txtNo)&”’”‘加入新记录

Set mrcc=ExecuteSQL(txtSQL,MsgText) mrcc.Fields(6)=txtItem(5) mrcc.Fields(7)=txtItem(4)

bYear=DatePart(“yyyy”,txtItem(2))‘获得入住日期和结算日期年代 eYear=DatePart(“yyyy”,txtItem(4))

bDays=DatePart(“y”,txtItem(2))‘获得入住日期和结算日期天数 eDays=DatePart(“y”,txtItem(4)) If bYear=eYear Then aDays=eDays-bDays Else

aDays=(eYear-bYear-1)*365+(365-bDays)+eDays End If

mrcc.Fields=aDays*Trim(cboItem(3))*Trim(txtItem(3))/100‘计算应交房费

amMount=aDays*Trim(cboItem(3))*Trim(txtItem(3))/100 mrcc.Update‘更新数据 mrcc.Close

txtSQL=”select*from rooms where roomNO=’”&cboItem(0)&”’” Set mrcc=ExecuteSQL(txtSQL,MsgText) If Not mrcc.EOF Then mrcc!putup=”” End If mrcc.Update mrcc.Close

If gintCmode =1 Then Unload Me mblChange=False MsgBox “金额为”amMount&“元，结算完毕！”,vbOKOnly+vbExclamation,“添加结算信息”

If flagCedit Then Unload frmCheckout End If frmCheckout.txtSQL=”select*from booking where ammount<>’0’” frmCheckout.Show

ElseIf gintCmode=2 Then

MsgBox “金额为”&amMount&“ 元，结算信息修改完毕！”,vbOKOnly+vbExclamation,“修改结算信息 ” Unload Me

If falgCedit Then Unload frmCheckout

30 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

End If

frmCheckout.txtSQL=”select*from ammount<>’0’”

frmCheckout.Show End If End Sub

附：各模块视图

booking where

·用户登陆窗口

·添加客房信息

31 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

·查询客房信息

·查询剩余客房信息

32 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

·添加订房信息

33 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。

宾馆客房管理系统的数据项： 数据项名称 数据类型及长度 预定人 预定人电话 客人姓名 客人性别 客人身份证号 VIP 订单编号 入住单号 客房编号 帐单编号 客房类型 客房价格 客房状态 抵店时间 入住人数 住几天 订单状态 入住单状态 入住时间 退房时间 消费金额 备注 字符，可变长度10 字符，可变长度15 字符，可变长度10 字符，可变长度2 字符，可变长度18 字符，可变长度2 字符，可变长度36 字符，可变长度36 字符，可变长度6 字符，可变长度36 字符，可变长度10 货币型 字符，可变长度2 日期型 字符，可变长度10 字符，可变长度10 字符，可变长度4 字符，可变长度4 日期型 日期型 货币型 字符，可变长度40 说明 不能为空 不能为空 不能为空 不能为空 不能为空 不能为空 不能为空 不能为空 不能为空 不能为空 34 网站所有资料均来自internet和会员，中国文档网不免责声明：中国文档网致力于为会员提供高质量文档。

保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。