宾馆管理信息系统.docx
《宾馆管理信息系统.docx》由会员分享，可在线阅读，更多相关《宾馆管理信息系统.docx（43页珍藏版）》请在冰豆网上搜索。
宾馆管理信息系统
宾馆管理信息系统
系统平台：
Windows2000
数据库服务器：
MicrosoftSQLServer2000
开发工具：
VisualBasic6.0
系统开发人员：
⒈编写目的
宾馆在正常的运营中需要对客房资源、顾客信息、结算信息进行管理，利用宾馆管理信息系统及时了解各个环节中信息的变更，有利于提高管理效率。
⒉系统功能分析
系统开发的总体任务是实现宾馆各种信息的系统化、规范化和自动化。
主要完成功能：
●有关客房标准的制定、标准信息的输入，包括标准编号、标准名称、房间面积、床位数量、住房单价、是否有空调、电视机、电话以及单独卫生间等。
●客房标准信息的修改、查询等。
●客房基本信息的输入，包括客房编号、客房类型、客房位置、客房单价、备注等。
●客房基本信息的查询、修改，包括客房编号、客房类型、客房位置、客房单价、备注等。
●剩余客房信息的查询等。
●订房信息的输入，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、备注信息等。
●订房信息的修改和查询，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、备注信息等。
●结算信息的输入，包括客房编号、客房种类、位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结算日期、备注信息等。
●结算信息的修改和查询，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结日期、备注信息等。
⒊系统功能模块设计
按结构化程序设计思想，分析得出如下系统功能模块图
图Ⅰ系统功能模块图
⒋数据库设计
数据库设计步骤：
●数据库需求分析
●数据库概念结构设计
●数据库逻辑结构设计
①数据库需求分析
分析调查有关宾馆管理信息需求的基础上得本系统所处理的数据流程
图Ⅱ宾馆管理信息系统数据流程图
针对一般宾馆管理信息系统的需求，通过对宾馆管理过程的内容和流程分析，设计如下面所示的数据项和数据结构：
●客房标准信息，包括的数据项有：
标准编号、标准名称、房间面积、床位数量、住房单价、是否有空调、电视、电话、单独卫生间等。
●客房信息，包括的数据项有：
客房编号、客房种类、客房位置、客房单价、备注等。
●订房信息，包括的数据项有：
订房编号、客房编号、客房种类、客房位置、客房备注信息、顾客姓名、顾客身份证号码、入住时间、折扣、备注等。
●结算信息，包括的数据项有：
订房编号、客房编号、客房种类、客房位置、客房备注信息、顾客姓名、顾客身份证号码、入住时间、折扣、结算时间、备注等。
②数据库概念结构设计
本系统根据以上的设计规划出的实体有：
客房标准信息实体、客房信息实体、订房信息实体、结算信息实体。
各个实体具体的描述Ｅ-Ｒ图如下：
客房标准信息实体Ｅ-Ｒ图
客房信息实体Ｅ-Ｒ图
订房信息实体Ｅ-Ｒ图
结算信息实体Ｅ-Ｒ图
实体之间关系Ｅ-Ｒ图
③数据库逻辑结构设计
首先将宾馆管理信息系统的数据库概念结构转化为SQL2000数据库系统所支持的实际数据模型，即：
数据库的逻辑结构。
其各个表格的设计结果如下
列名
数据类型
可否为空
说明
Typeid
Varchar
NOTNULL
标准编号
Typename
Varchar
NOTNULL
标准名称
Area
Numeric
NULL
房间面积
Bednum
Numeric
NULL
床位数量
Haircondition
Varchar
NULL
是否有空调
Htelephone
Varchar
NULL
是否有电话
Htelevision
Varchar
NULL
是否有电视
Htoilet
Varchar
NULL
是否有单独卫生间
Price
Numeric
NULL
单价
Roomtype客房标准信息表
列名
数据类型
可否为空
说明
roomNO
Varchar
NOTNULL
客房编号
Roomtype
Varchar
NOTNULL
客房种类
Roomposition
Varchar
NULL
客房位置
Roomprice
Numeric
NULL
单价
Putup
Varchar
NOTNULL
是否被预定
Roommemo
Text
NULL
备注
Rooms客房信息表
列名
数据类型
可否为空
说 明
Bookno
Varchar
NOTNULL
订房编号
Customname
Varchar
NOTNULL
顾客姓名
CustomID
Varchar
NOTNULL
身份证号码
Roomno
Varchar
NOTNULL
客房编号
Indate
Datetime
NULL
入住日期
Discount
Numeric
NULL
折扣
Inmeno
Text
NULL
备注
Checkdate
Datetime
NULL
结算日期
Amount
Numeric
NULL
金额
Bookin订房信息表
⒌数据库结构的实现
利用SQL2000数据库系统中的查询分析实现数据库的逻辑结构，其表格如下：
创建系统用户表格user_Info
CREATETABLE[dbo].[user_Info1]（
[user_ID][char]（10）COLLATEChinese_PRC_CI_ASNOTNULL,
[user_PWD][char]（10）COLLATEChinese_PRC_CI_ASNULL,
[user_Des][char]（10）COLLATEChinese_PRC_CI_ASNULL
）ON[PRIMARY]
创建客房标准信息表格 roomtype
CREATETABLE[dbo].[roomtype]（
[typeid][char]（10）COLLATEChinese_PRC_CI_ASNOTNULL,
[typename][char]（10）COLLATEChinese_PRC_CI_ASNOTNULL,
[area][numeric]（5,0）NULL,
[bednum][numeric]（2,0）NULL,
[haircondition][char]
（2）COLLATEChinese_PRC_CI_ASNULL,
[htelephone][char]
（2）COLLATEChinese_PRC_CI_ASNULL,
[htelevision][char]
（2）COLLATEChinese_PRC_CI_ASNULL,
[htoilet][char]
（2）COLLATEChinese_PRC_CI_ASNULL,
[price][numeric]（10,2）NULL
）ON[PRIMARY]
创建客房信息表格 rooms
CREATETABLE[dbo].[rooms]（
[roomNO][char]（10）COLLATEChinese_PRC_CI_ASNOTNULL,
[roomtype][char]（10）COLLATEChinese_PRC_CI_ASNOTNULL,
[roomposition][char]（20）COLLATEChinese_PRC_CI_ASNULL,
[roomprice][numeric]（10,2）NULL,
[putup][char]
（2）COLLATEChinese_PRC_CI_ASNOTNULL,
[roommemo][text]COLLATEChinese_PRC_CI_ASNULL
）ON[PRIMARY]TEXTIMAGE_ON[PRIMARY]
创建订房信息表bookin
CREATETABLE[dbo].[bookin]（
[bookno][char]（14）COLLATEChinese_PRC_CI_ASNOTNULL,
[customname][char]（10）COLLATEChinese_PRC_CI_ASNOTNULL,
[customID][char]（18）COLLATEChinese_PRC_CI_ASNOTNULL,
[roomno][char]（10）COLLATEChinese_PRC_CI_ASNOTNULL,
[indate][datetime]NULL,
[discount][numeric]（2,0）NULL,
[inmemo][text]COLLATEChinese_PRC_CI_ASNULL,
[checkdate][datetime]NULL,
[ammount][numeric]（10,2）NULL
）ON[PRIMARY]TEXTIMAGE_ON[PRIMARY]
⒍宾馆管理信息系统具体程序实现
⑴创建公用模块Module1.bas
添加公共数据操作函数，用以执行各种SQL语句。
添加函数ExecuteSQL，代码如下：
PublicFunctionExecuteSQL（ByValSQLAsString,MsgStringAsString）_AsADODB.Recordset
‘执行SQL语句，并返回记录集对象
DimcnnAsADODB.Connection
DimrstAsADODB.Recordset
DimsTokens（）AsString
‘异常处理
OnErrorGoToExecuteSQL_Error’
‘用Split函数产生一个包含各个子串的数组
sTokens=Split（SQL）
Setcnn=NEWADODB.Connection
‘打开连接
cnn.OpenConnectString
IfInStr（“INSERT,DELETE,UPDATE”,UCase$（sTokens（0）））Then
Cnn.ExecuteSQL
MsgString=sTokens（0）&”querysuccessful”
Else
Setrst=NEWADODO.Recordset
rst.OpenTrim$（SQL）,cnn,adOpenKeyset,adLockOptimistic
rst.MoveLast
getRecordCount
‘返回记录集对象
SetExecuteSQL=rst
MsgString=”查询到”&rst.RecordCount&”条记录”
EndIf
ExecuteSQL_Exit:
Setrst=Nothing
Setcnn=Nothing
ExitFunction
ExecuteSQL_Error:
MsgString=”查询错误:
”&Err.Description
ResumeExecuteSQL_Exit
EndFunction
PublicSubEnterToTab（KeyascAsInteger）
‘判断是否为回车键
IfKeyasc=13Then‘Keyasc用来保存当前按键
‘转换成Tab键
SendKeys”{TAB}”
En
升级会员 