宾馆管理信息系统论文-VB编程毕业设计

1、宾馆管理信息系统系统平台：Windows 2000数据库服务器：Microsoft SQL Server 2000开发工具：Visual Basic 6.0系统开发人员： 编写目的宾馆在正常的运营中需要对客房资源、顾客信息、结算信息进行管理，利用宾馆管理信息系统及时了解各个环节中信息的变更，有利于提高管理效率。系统功能分析 系统开发的总体任务是实现宾馆各种信息的系统化、规范化和自动化。主要完成功能： 有关客房标准的制定、标准信息的输入，包括标准编号、标准名称、房间面积、床位数量、住房单价、是否有空调、电视机、电话以及单独卫生间等。 客房标准信息的修改、查询等。 客房基本信息的输入，包括客房编号

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

3、住日期、折扣、结日期、备注信息等。系统功能模块设计 按结构化程序设计思想，分析得出如下系统功能模块图 宾馆管理信息系统结算信息管理订房信息管理客房信息管理系统管理结算信息查询结算信息修改结算信息添加订房信息查询订房信息修改订房信息添加剩余客房信息查询设置客房信息设置客房标准密码管理用户管理客房信息查询客房信息修改客房信息添加客房标准修改客房标准添加 图系统功能模块图数据库设计数据库设计步骤： 数据库需求分析 数据库概念结构设计 数据库逻辑结构设计数据库需求分析分析调查有关宾馆管理信息需求的基础上得本系统所处理的数据流程 客房标准设置基本信息输入客房登记基本信息录入客房信息管理顾客登记订房信息管

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

5、名、顾客身份证号码、入住时间、折扣、结算时间、备注等。数据库概念结构设计 本系统根据以上的设计规划出的实体有：客房标准信息实体、客房信息实体、订房信息实体、结算信息实体。各个实体具体的描述-图如下：客房标准信息实体标准编号标准名称床位数量客房单价客房标准信息实体-图客房信息实体客房标准客房编号客房位置客房单价客房信息实体-图订房信息实体客房信息顾客信息折 扣入住时间订房信息实体-图结算信息实体客房信息顾客信息结算时间结算金额结算信息实体-图客房标准信息客房登记客房信息管理订 房订房信息管理结算信息管理客房结算实体之间关系-图数据库逻辑结构设计 首先将宾馆管理信息系统的数据库概念结构转化为SQL

6、 2000数据库系统所支持的实际数据模型，即：数据库的逻辑结构。其各个表格的设计结果如下列名数据类型可否为空说明TypeidVarcharNOT NULL标准编号TypenameVarcharNOT NULL标准名称AreaNumericNULL房间面积BednumNumericNULL床位数量HairconditionVarcharNULL是否有空调HtelephoneVarcharNULL是否有电话HtelevisionVarcharNULL是否有电视HtoiletVarcharNULL是否有单独卫生间PriceNumericNULL单价Roomtype 客房标准信息表列名数据类型可否为空

7、说明roomNOVarcharNOT NULL客房编号RoomtypeVarcharNOT NULL客房种类RoompositionVarcharNULL客房位置RoompriceNumericNULL单价PutupVarcharNOT NULL是否被预定RoommemoTextNULL备注Rooms 客房信息表列名数据类型可否为空说明Bookno VarcharNOT NULL订房编号CustomnameVarcharNOT NULL 顾客姓名CustomIDVarcharNOT NULL身份证号码RoomnoVarcharNOT NULL客房编号IndateDatetimeNULL入住日期

8、DiscountNumericNULL折扣InmenoTextNULL备注CheckdateDatetimeNULL结算日期AmountNumericNULL金额Bookin 订房信息表数据库结构的实现利用SQL 2000数据库系统中的查询分析实现数据库的逻辑结构，其表格如下：创建系统用户表格 user_Info CREATE TABLE dbo.user_Info1( user_IDchar(10) COLLATE Chinese_PRC_CI_AS NOT NULL, user_PWD char (10) COLLATE Chinese_PRC_CI_AS NULL, user_Des c

9、har(10) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY 创建客房标准信息表格roomtype CREATE TABLE dbo.roomtype( typeidchar(10) COLLATE Chinese_PRC_CI_AS NOT NULL, typenamechar(10) COLLATE Chinese_PRC_CI_AS NOT NULL, areanumeric(5,0) NULL, bednumnumeric(2,0) NULL, hairconditionchar(2) COLLATE Chinese_PRC_CI_AS NUL

10、L, 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创建客房信息表格roomsCREATE TABLE dbo.rooms( roomNOchar(10) COLLATE Chinese_PRC_CI_AS NOT NULL, roomtypechar(10) COLLATE C

11、hinese_PRC_CI_AS NOT NULL, roompositionchar(20) COLLATE Chinese_PRC_CI_AS NULL, roompricenumeric(10,2) NULL, putupchar(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 Chin

12、ese_PRC_CI_AS NOT NULL, customnamechar(10) COLLATE Chinese_PRC_CI_AS NOT NULL, customIDchar(18) COLLATE Chinese_PRC_CI_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, am

13、mountnumeric(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.ConnectionDim rst As ADODB.RecordsetDim sTokens()

14、 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 rst.Open Trim$(

15、SQL),cnn,adOpenKeyset,adLockOptimistic rst.MoveLast get RecordCount 返回记录集对象 Set ExecuteSQL=rst MsgString=”查询到”&rst.RecordCount&”条记录” End IfExecuteSQL_Exit: Set rst=Nothing Set cnn=Nothing Exit FunctionExecuteSQL_Error: MsgString=”查询错误:”&Err.Description Resume ExecuteSQL_ExitEnd FunctionPublic Sub EnterToTab(Keyasc As Integer)判断是否为回车键 If Keyasc=13 Then Keyasc用来保存当前按键 转换成Tab键 SendKeys”TAB” End IfEnd sub添加全局变量，用来记录各个窗口的读写状态，代码如下：Public flagTedit As Boolean 标示是否进入修改的窗体Public flagRedit As BooleanPublic flag