客房管理系统设计与实现.doc

客房管理系统设计一、 需求分1.1 系统需求分析 “客房管理信息系统”以实现宾馆客房各种信息的系统化、规范化、自动化为目标,具体要达到以下几个基本要求：（一）客户入住管理。通过该管理功能,系统可以通过计算机对客户的一些基本信息进行录入,成为客房管理信息系统查询的数据资料。（1）新客人信息的录入。（2）客人信息的修改。（3）客人信息的查询。（4）客人信息的删除。（5）客人信息的保存。（6）客房信息的查询。（二）结算管理（1）退房结算：输入客户房号,查找该客户信息、住房信息以及费用情况。（2）收银处理：确认客户总费用,并自动登记总费用帐。同时,自动将房间用房标志（占）改为（空）；并将客户信息保存。1.2数据分析通过进行系统调查,了解用户需求、分析应用软件系统的功能需求。总结出了系统逻辑模型,即系统业务流程图、数据流图、应用软件功能结构图和数据字典等。各流程图如下面的图所示：客房管理系统操作员客房客户操作查询返回信息1.2.1 客房管理系统业务流程图客户操作员返回结果交钱结账结账费用入住登记返回信息返回结果查询要求核对账单返回账单信息入住管理结算处理结算账单入住信息客房信息P1P2D1D2D3要求1.2.2 客房管理系统数据流图客房管理系统入住管理结算管理信息查询客户登记退房结算收银处理1.2.3 客房管理系统功能模块客户查询客房查询1.2.4 数据字典 根据绘制出的数据流图,定义出本系统的数据字典。如下列所示：数据项客户编号含义说明唯一标识每个客户别名类型整型长度4取值范围0000-9999取值含义按客户顺序编号与其他数据项的逻辑关系数据项房号含义说明唯一标识每个房间别名房间编号类型整型长度4取值范围100-411取值含义每层楼的房间顺序与其他数据项的逻辑关系数据项账单编号含义说明唯一标识每个账单别名类型整型长度4取值范围0000-9999取值含义按账单顺序编号与其他数据项的逻辑关系数据结构客户含义说明客房管理系统的主体数据结构，定义了一个客户的相关信息组成客户编号，客户姓名，性别，年龄，身份证号，户籍数据结构客房含义说明客房管理系统的主体数据结构，定义一个客房的相关信息组成房号，房间类型，房间价格，房间状态数据流结算账单含义说明客户入住的消费结果数据流来源结算处理数据流去向操作员组成账单编号，房号，住店天数，总费用数据存储客户信息表说明记录入住的客户的综合信息流入数据流客户信息流出数据流入住信息组成客户，入住时间，离店时间，押金，账单编号，房号二、数据库概念结构设计 经考察和分析,本案例客房管理系统包括以下实体：客户实体、客房实体、操作员实体、结算账单实体,它们的E-R图如以下所示。客房操作员退房结算账单结算返回 1n11n1入住登记m1客户编号客户姓名年龄性别操作员姓名操作员编号房间状态房号户籍住店天数总费用账单编号离店时间身份证号住店时间押金房间类型房间价格职称房号密码客户2.5客房管理系统E-R图三、数据库逻辑结构设计根据E-R图,将图转换为关系模型即：将实体、实体的属性和实体之间的联系转换为关系模式,然后对数据模型进行优化得到如下关系数据表。客户：客户编号,姓名,性别,年龄,身份证号,原住地址,押金,住店时间,离店时间,房号,账单编号客房：房号,房间类型,房间状态,房间价格操作员：操作员编号,操作员姓名,职称结算账单：账单编号,住房天数,总费用,操作员编号,房号关系数据表确定后要进行数据表的逻辑结构设计,即定义关系数据表中字段名称、数据结构、是否允许为空、关键字、说明等。（1）客户表用于存放客户的入住信息,例如：客户名,房号等。表3.1 客户表字段名称数据结构是否允许为空说明客户编号IntNOT NULL ,主键姓名Varchar（8）NULL入住客户的姓名性别Varchar（2）NULL年龄IntNULL身份证号Varchar（18）NULL客户的身份证号原住地址Varchar（50）NULL客户的户籍地址住店时间Varchar（15）NOT NULL离店时间Varchar（15）NULL押金IntNULL房号IntNOT NULL账单编号IntNULL字段名称数据结构是否允许为空说明房号IntNOT NULL,主键唯一标识每个房间房间类型Varchar（18）NOT NULL房间价格IntNOT NULL房间状态Varchar（2）NOT NULL（2）客房表 用于存放客房的相关信息,例如：房号,房间类型,房间状态等。表3.2 客房表（3）结算账单表结算帐单表用于存放客户消费的信息。表3.3 结算账单表字段名称数据结构是否允许为空说明账单编号IntNOT NULL,主键唯一标识每个账单房号IntNOT NULL姓名Varchar（8）NULL押金IntNULL入住时间Varchar（18）NOT NULL离店时间Varchar（18）NOT NULL住店天数IntNOT NULL房间价格IntNOT NULL总费用IntNOT NULL（4）操作员表用于存放操作员的的信息,例如：操作员的编号,密码等。表3.4 操作员表字段名称数据结构是否允许为空说明操作员编号IntNOT NULL,主键用于登陆和识别身份操作员姓名Varchar（8）NULL职称Varchar（10）NULL密码Varchar（10）NULL用于登陆输入密码四、数据库物理结构设计在进行了数据表的逻辑结构定义后,需要为每个数据表创建其物理结构,即在数据库系统中定义数据表具体存放的格式、位置等。这里列出利用SQL Server2000 自带的数据库创建的数据表的物理结构。 1.“客房”表的物理结构 “客房”表的物理结构如图4.1所示,关键字为”房号”图 4.12. “客户”表的物理结构 “客户”表的物理结构如图4.2所示,关键字为”客户编号”,利用”房号”可与”结算账单”表和”客房”表建立联系。图 4.23.“结算账单”表的物理结构“结算账单”表的物理结构如图4.3所示,关键字为”账单编号”。 图 4.34. “操作员”表的物理结构 “操作员”表的物理结构如图4.4所示,关键字为”操作员编号”。图 4.45. “操作员_VIEW”视图的物理结构是客房和客户的连接。图 4.5五、数据库的实现根据以上所进行的调查、设计和进行方案,建立并实施数据库。此系统运用SQL Server 2005进行数据库的开发。1.数据库建表语句 名称: 客户表“客户” 标识：客户建表语句如下： create table 客户 ( 客户编号 int not null, 客户姓名 varchar(8) null, 年龄 int null, 性别 varchar(2) null, 身份证号 varchar(18) null, 户籍 varchar(50) null, 房号 int not null, 住店时间 varchar(15) null, 离店时间 varchar(15) null, 押金 int null, 账单编号 int null, constraint PK_客户 primary key (客户编号)go 名称: 客房表“客房” 标识：客房建表语句如下： create table 客房 ( 房号 int not null, 房间类型 varchar(10) not null, 房间价格 int not null, 房间状态 varchar(2) not null, constraint PK_客房 primary key (房号)go 名称: 操作员表“操作员” 标识：操作员建表语句如下： create table 操作员 ( 操作员编号 int not null, 操作员姓名 varchar(8) null, 职称 varchar(10) null, 密码 varchar(10) null, constraint PK_操作员 primary key (操作员编号)go 名称: 结算账单表“结算账单”标识：结算账单建表语句如下： create table 结算账单 ( 账单编号 int not null, 住房天数 int not null, 总费用 int not null, 操作员编号 int not null, 房号 int not null, constraint PK_结算账单 primary key (账单编号)go2.数据库的建视图语句 名称:“操作员_VIEW”SELECT dbo.客房.房号, dbo.客房.房间类型, dbo.客房.房间价格, dbo.客房.房间状态, dbo.客户.客户姓名, dbo.客户.年龄, dbo.客户.性别, dbo.客户.身份证号, dbo.客户.户籍, dbo.客户.住店时间, dbo.客户.离店时间, dbo.客户.押金FROM dbo.客房 INNER JOIN dbo.客户 ON dbo.客房.房号 = dbo.客户.房号六、数据库运行结果根据以上所做的准备以及SQL Server 2005建立好的表、试图及各种关系，运用Visual Basic 6.0 为前台开发工具，开发出客户管理系统，主要运用了ADODC控件和DataGrid控件。1. 系统登陆界在进入主界面之前有一个用户登陆界面,用户键入用户名和密码,系统自行判定是否存在,然后进入主界面。输入：用户名,密码。 处理：判断用户名和密码是否有效。填入用户名和密码后点击【登录】按钮,系统将自动从数据库中判断是否存在相同的用户名和密码,如果有则进入系统,如果不存在则提示用户名和密码有错误信息。 输出：登录成功,进入系统的主页面并出现欢迎使用系统的对话框,不成功则显示错误信息页面。系统登陆界面如图6.1所示图 6.12. 系统主界面主界面包括系统的主要功能包括新建客户信息、客房信息查询、客户信息查询、结算信息账单，四个主要的功能。用户可以根据需要点击自己想使用的功能进入功能界面。图6.23. 客户信息查询界面 打开界面后左面显示所有客户的信息，中间显示编号为0的客户信息，右边为查询条件，查询结果显示在中间的部分。如图6.3所示。图6.34. 新建客户信息界面填写新入住客户的基本信息以及部分入住信息。先单击“添加新用户”，然后输入信息，最后单击“确认添加”完成操作。新建客户界面如图6.4所示。图6.45.客户结算信息界面此界面综合显示了客户的入住信息和所入住的客房信息，能够便于操作员方便快速的结算出客户的总费用。结算信息界面如图6.5所示 图6.56.客房信息查询界面 类似于客户信息查询。左边为客房总体信息预览，右上角为查询条件即客房的房号，右下角为查询结果显示区域。 客房信息查询界面如图6.6所示。图6.6参考文献1 王珊,陈红.数据库系统原理教程M.北京：清华大学出版社,1998.7.2 王珊,萨师煊.数据库系统概论（第四版）M.北京：高等教育出版社,2006.5.3 虞益诚,孙莉.SQL Server 2000 数据库应用技术M.北京：中国铁道出版社,2004.11.4 刘钢.Visual Basic 程序设计与应用案例M.北京：高等教育出版社,2003.9.5 Abraham Silberschatz, Henry F.Korth ,S.Sudarshan.Database System Concepts（Fourth Edition）. Higher Education Press.6 罗运模.完全掌握SQL Server 2000J.北京：人民邮电出版社，2001.7 白尚旺.PowerDesigner软件工程技术M.北京：电子工业出版社，2004.附录客房管理系统部分程序代码 登陆验证代码代码如下：Private Sub Command1_Click() Dim conn As New ADODB.Connection conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=客房管理系统;Data Source=WWW-4FDE9FFEC01" conn.Open 连接并打开数据库 Dim rs, rss As New ADODB.RecordsetSet rs = conn.Execute("select * from 操作员 where 操作员编号='" & Text1.Text & "'")Set rss = conn.Execute("select * from 操作员 where 密码='" & Text2.Text & "'") If rs.EOF Then MsgBox "不存在此用户" Text1.Text = "" Text1.SetFocus 验证用户名 Else If rss.EOF Then MsgBox "密码错误！" Text2.Text = "" Text2.SetFocus验证密码 ElseUnload Me Form1.Show 进入主界面 MsgBox (Text1.Text + ",欢迎您使用冰舞奇迹客房管理系统")End IfEnd IfEnd Sub 将新建客户信息写入数据库代码代码如下：Private Sub Command4_Click()Dim cn As New ADODB.ConnectionDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=客房管理系统;Data Source=WWW-4FDE9FFEC01"cn.Open 连接并打开数据库Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11 As Stringa1 = Text1.Texta2 = Text2.Texta3 = Text3.Texta4 = Text4.Texta5 = Text5.Texta6 = Text6.Texta7 = Text7.Texta8 = Text8.Texta9 = Text9.Texta10 = Text10.Texta11 = Text11.Textsql = "insert into 客户 values('" & a1 & "','" & a2 & "','" & a3 & "','" & a4 & "','" & a5 & "','" & a6 & "','" & a7 & "','" & a8 & "','" & a9 & "','" & a10 & "','" & a11 & "')"cn.Execute (sql) 执行代码将变量值负值给客户表cn.CloseEnd Sub 查询客户信息代码代码如下：Private Sub Command3_Click()fanghao = Text12.TextAdodc1.Recordset.Find "房号=" & Val(fanghao)End Sub 根据房号查询客户信息Private Sub Command5_Click()kehubianhao = Text13.TextAdodc1.Recordset.Find "客户编号=" & Val(kehubianhao)End Sub 根据客户编号查询Private Sub Command6_Click()kehuming = Text14.TextAdodc1.Recordset.Find "客户姓名=" & Val(kehuming)End Sub 根据客户姓名查询客房信息查询代码如下：Private Sub Command2_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=客房管理系统;Data Source=WWW-4FDE9FFEC01"cn.Open 连接并打开数据库fanghao = Text5.TextAdodc1.Recordset.Find "房号=" & Val(fanghao)cn.Close 查询指定房号的房间状态End Sub(5)空房信息查询 按照条件查询使结果显示在DataGrid控件里，代码如下：Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As String cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=客房管理系统;Data Source=WWW-4FDE9FFEC01"cn.Openrs.Open "select * from 客房 where 房间状态='空'", cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd Sub15