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

1、免责声明：中国文档网致力于为会员提供高质量文档。网站所有资料均来自 internet 和会员，中国文档网不保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。1酒店管理信息系统系统平台：Windows 2000数据库服务器：Microsoft SQL Server 2000开发工具：Visual Basic 6.0系统开发人员： 编写目的酒店在正常的运营中需要对客房资源、顾客信息、结算信息进行管理，利用宾馆管理信息系统及时了解各个环节中信息的变更，有利于提高管理效率。系统功能分析系统开发的总体任务是实现宾馆各种信息的系统化、规范化和自动化。主要完

2、成功能： 有关客房标准的制定、标准信息的输入，包括标准编号、标准名称、房间面积、床位数量、住房单价、是否有空调、电视机、电话以及单独卫生间等。 客房标准信息的修改、查询等。 客房基本信息的输入，包括客房编号、客房类型、客房位置、客房单价、备注等。 客房基本信息的查询、修改，包括客房编号、客房类型、客房位置、客房单价、备注等。 剩余客房信息的查询等。 订房信息的输入，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、备注信息等。 订房信息的修改和查询，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、备注信息等。 结算信息的

3、输入，包括客房编号、客房种类、位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结算日期、备注信息等。 结算信息的修改和查询，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结日期、备注信息等。系统功能模块设计按结构化程序设计思想，分析得出如下系统功能模块图免责声明：中国文档网致力于为会员提供高质量文档。网站所有资料均来自 internet 和会员，中国文档网不保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。2宾馆管理信息系统结算信息管理订房信息管理客房信息管理系统管理结算信息查询结算信息修改结算

4、信息添加订房信息查询订房信息修改订房信息添加剩余客房信息查询设置客房信息设置客房标准密码管理用户管理客房信息查询客房信息修改客房信息添加客房标准修改客房标准添加图系统功能模块图数据库设计数据库设计步骤： 数据库需求分析 数据库概念结构设计 数据库逻辑结构设计数据库需求分析分析调查有关宾馆管理信息需求的基础上得本系统所处理的数据流程免责声明：中国文档网致力于为会员提供高质量文档。网站所有资料均来自 internet 和会员，中国文档网不保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。3客房标准设置基本信息输入客房登记基本信息录入客房信息管理顾客

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

6、信息、顾客姓名、顾客身份证号码、入住时间、折扣、结算时间、备注等。数据库概念结构设计本系统根据以上的设计规划出的实体有：客房标准信息实体、客房信息实体、免责声明：中国文档网致力于为会员提供高质量文档。网站所有资料均来自 internet 和会员，中国文档网不保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。4订房信息实体、结算信息实体。各个实体具体的描述-图如下：客房标准信息实体标准编号标准名称 床位数量客房单价客房标准信息实体-图客房信息实体客房标准客房编号 客房位置客房单价客房信息实体-图订房信息实体客房信息顾客信息折 扣入住时间订房信息实

7、体-图免责声明：中国文档网致力于为会员提供高质量文档。网站所有资料均来自 internet 和会员，中国文档网不保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。5结算信息实体客房信息顾客信息 结算时间结算金额结算信息实体-图客房标准信息客房登记客房信息管理订 房订房信息管理结算信息管理客房结算实体之间关系-图数据库逻辑结构设计首先将宾馆管理信息系统的数据库概念结构转化为 SQL 2000 数据库系统所支持的实际数据模型，即：数据库的逻辑结构。其各个表格的设计结果如下列名 数据类型 可否为空 说明Typeid Varchar NOT NULL

8、标准编号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 单价免责声明：中国文档网致力于为会员提供高质量文档。网站所有资料均来自 internet 和会员，中国文档网不保证其内容的合法性、准确性或有效性，文档版权属于提供

9、者所有。中国文档网不承担与此相关的任何法律责任。6Roomtype 客房标准信息表列名 数据类型 可否为空 说明roomNO Varchar NOT NULL 客房编号Roomtype Varchar NOT NULL 客房种类Roomposition Varchar NULL 客房位置Roomprice Numeric NULL 单价Putup Varchar NOT NULL 是否被预定Roommemo Text NULL 备注Rooms 客房信息表列名 数据类型 可否为空 说 明Bookno Varchar NOT NULL 订房编号Customname Varchar NOT NULL

10、 顾客姓名CustomID Varchar NOT NULL 身份证号码Roomno Varchar NOT NULL 客房编号Indate Datetime NULL 入住日期Discount Numeric NULL 折扣Inmeno Text NULL 备注Checkdate Datetime NULL 结算日期Amount Numeric NULL 金额Bookin 订房信息表数据库结构的实现利用 SQL 2000 数据库系统中的查询分析实现数据库的逻辑结构，其表格如下：创建系统用户表格 user_InfoCREATE TABLE dbo.user_Info1(user_IDchar(

11、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创建客房标准信息表格 roomtypeCREATE TABLE dbo.roomtype(typeidchar(10) COLLATE Chinese_PRC_CI_AS NOT NULL,typenamechar(10) COLLATE Chinese_PRC_CI_AS NOT NULL,area

12、numeric(5,0) NULL,bednumnumeric(2,0) NULL,hairconditionchar(2) COLLATE Chinese_PRC_CI_AS NULL,htelephonechar(2) COLLATE Chinese_PRC_CI_AS NULL,htelevisionchar(2) COLLATE Chinese_PRC_CI_AS NULL,htoiletchar(2) COLLATE Chinese_PRC_CI_AS NULL,pricenumeric(10,2)NULL) ON PRIMARY创建客房信息表格 rooms免责声明：中国文档网致力于

13、为会员提供高质量文档。网站所有资料均来自 internet 和会员，中国文档网不保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。7CREATE TABLE dbo.rooms(roomNOchar(10) COLLATE Chinese_PRC_CI_AS NOT NULL,roomtypechar(10) COLLATE Chinese_PRC_CI_AS NOT NULL,roompositionchar(20) COLLATE Chinese_PRC_CI_AS NULL,roompricenumeric(10,2) NULL,putu

14、pchar(2) COLLATE Chinese_PRC_CI_AS NOT NULL,roommemotext COLLATE Chinese_PRC_CI_AS NULL) ON PRIMARY TEXTIMAGE_ON PRIMARY创建订房信息表 bookinCREATE TABLE dbo.bookin(booknochar(14) COLLATE Chinese_PRC_CI_AS NOT NULL,customnamechar(10) COLLATE Chinese_PRC_CI_AS NOT NULL,customIDchar(18) COLLATE Chinese_PRC_C

15、I_AS NOT NULL,roomnochar(10) COLLATE Chinese_PRC_CI_AS NOT NULL,indatedatetime NULL,discountnumeric(2,0) NULL,inmemotext COLLATE Chinese_PRC_CI_AS NULL,checkdatedatetime NULL,ammountnumeric(10,2) NULL) ON PRIMARY TEXTIMAGE_ON PRIMARY宾馆管理信息系统具体程序实现创建公用模块 Module1.bas添加公共数据操作函数，用以执行各种 SQL 语句。添加函数Execut

16、eSQL，代码如下：Public Function ExecuteSQL(ByValSQL As String,MsgString AsString)_ As ADODB.Recordset 执行 SQL 语句，并返回记录集对象Dim cnn As ADODB.ConnectionDim rst As ADODB.RecordsetDim sTokens() As String异常处理On Error GoTo ExecuteSQL_Error用 Split 函数产生一个包含各个子串的数组sTokens=Split(SQL)Set cnn=NEW ADODB.Connection打开连接cnn

17、.Open ConnectStringIf InStr(“INSERT,DELETE,UPDATE”,UCase$(sTokens(0) ThenCnn.Execute SQLMsgString=sTokens(0)&”query successful”ElseSet rst=NEW ADODO.Recordset免责声明：中国文档网致力于为会员提供高质量文档。网站所有资料均来自 internet 和会员，中国文档网不保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。8rst.Open Trim$(SQL),cnn,adOpenKeyset,a

18、dLockOptimisticrst.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)判断是否为回车

19、键If Keyasc=13 Then Keyasc 用来保存当前按键 转换成 Tab 键SendKeys”TAB”End IfEnd sub添加全局变量，用来记录各个窗口的读写状态，代码如下：Public flagTedit As Boolean 标示是否进入修改的窗体Public flagRedit As BooleanPublic flagBedit As BooleanPublic flagCedit As BooleanPublic gintCmode As Integer Public gintTmode As Integer 记录是添加还是修改状态， 1 为添加，2 为修改Publ

20、ic gintRmode As IntegerPublic gintBmode As Integer Public flagSedit As Boolean系统用户管理模块的创建用户管理模块主要实现：用户登陆。添加用户。修改用户具体客房标准添加代码：Private Sub Form_Load() 载入窗体后，判断所处状态Dim intCount As IntegerDim MsgText As String Dim i As Integer免责声明：中国文档网致力于为会员提供高质量文档。网站所有资料均来自 internet 和会员，中国文档网不保证其内容的合法性、准确性或有效性，文档版权属于提

21、供者所有。中国文档网不承担与此相关的任何法律责任。9If 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 判断是否处于修改状态Set mrc=ExecuteSql(txtSQL,MsgText)If mrc.EOF=false ThenWith mrcFor intCount=0 To 3txtItem(intCount)=.

22、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 事件Dim intCount As Intege

23、rDim sMeg As StringDim MsgText As StringFor intCount=0 To 4 判断是否输入内容If Trim(txtItem(intCount)&”)=” ThenSelect Case intCountCase 0sMeg=”标准编号”Case 1sMeg=”标准名称”Case 2sMeg=”房间面积”Case 3sMeg=”床位数量”免责声明：中国文档网致力于为会员提供高质量文档。网站所有资料均来自 internet 和会员，中国文档网不保证其内容的合法性、准确性或有效性，文档版权属于提供者所有。中国文档网不承担与此相关的任何法律责任。10Case

24、 4sMeg=”床位单价”End SelectsMeg=sMeg&”不能为空!”MsgBox sMeg,vbOkOnly+vbExclamation,”警告”txtItem(intCount).SetFocusExit SubEnd ifNext intCount 判断输入内容是否为数字For intCount=2 To 4If Not IsNumeric(Trim(txtItem(intCount) ThenSelect Case intCountCase 2sMeg=”房间面积”Case 3sMeg=”床位数量”Case 4sMeg=”床位单价”End SelectsMeg=sMeg&”请

25、输入数字!”MsgBox sMeg,vbOKOnly+vbExclamation,”警告”txtItem(intCount).SeFocusExit SubEnd IfNext intCountIf gintTmode=1 Then 判断是否有相同 ID 记录txtSQL=”select*from roomtype where typeid_ =”&Trim(txtItem(0)&”Set mrc=ExecuteSQL(txtSQL,MsgText)If mrc.EOF=False ThenMsgBox “已经存在此标准编号的记录!”,vbOKOnly+vbExclamation,”警告”txtItem(0).SetFocusExit SubEnd If Mrc.CloseEnd IftxtSQL=”select * from roomtype where typeid”&Trim(txtItem(0)&”and typename=”&Trim(txtItem(1)&” Set mrc=ExecuteSQL(txtSQL,MsgText)If mrc.EOF=False ThenMsgBox”已经存在相同客房标准的记录!”,