数据库课程设计酒店管理信息系统Word下载.docx

1、结算信息查询结算信息修改结算信息添加订房信息查询订房信息修改订房信息添加剩余客房信息查询设置客房信息设置客房标准密码管理用户管理客房信息查询客房信息修改客房信息添加客房标准修改客房标准添加 图系统功能模块图数据库设计数据库设计步骤： 数据库需求分析 数据库概念结构设计 数据库逻辑结构设计数据库需求分析分析调查有关宾馆管理信息需求的基础上得本系统所处理的数据流程图 宾馆管理信息系统数据流程图 针对一般宾馆管理信息系统的需求，通过对宾馆管理过程的内容和流程分析，设计如下面所示的数据项和数据结构： 客房标准信息，包括的数据项有：标准编号、标准名称、房间面积、床位数量、住房单价、是否有空调、电视、电话

2、、单独卫生间等。 客房信息，包括的数据项有：客房编号、客房种类、客房位置、客房单价、备注等。 订房信息，包括的数据项有：订房编号、客房编号、客房种类、客房位置、客房备注信息、顾客姓名、顾客身份证号码、入住时间、折扣、备注等。 结算信息，包括的数据项有：订房编号、客房编号、客房种类、客房位置、客房备注信息、顾客姓名、顾客身份证号码、入住时间、折扣、结算时间、备注等。数据库概念结构设计 本系统根据以上的设计规划出的实体有：客房标准信息实体、客房信息实体、订房信息实体、结算信息实体。各个实体具体的描述-图如下：客房标准信息实体-图客房信息实体-图订房信息实体-图结算信息实体-图实体之间关系-图数据库

3、逻辑结构设计 首先将宾馆管理信息系统的数据库概念结构转化为SQL 2000数据库系统所支持的实际数据模型，即：数据库的逻辑结构。其各个表格的设计结果如下列名数据类型可否为空说明TypeidVarcharNOT NULL标准编号Typename标准名称AreaNumericNULL房间面积Bednum床位数量Haircondition是否有空调Htelephone是否有电话Htelevision是否有电视Htoilet是否有单独卫生间Price单价Roomtype 客房标准信息表roomNO客房编号Roomtype客房种类Roomposition客房位置RoompricePutup是否被预定Ro

4、ommemoText备注Rooms 客房信息表说明Bookno 订房编号CustomnameNOT NULL 顾客姓名CustomID身份证号码RoomnoIndateDatetime入住日期Discount折扣InmenoCheckdate结算日期Amount金额Bookin 订房信息表数据库结构的实现利用SQL 2000数据库系统中的查询分析实现数据库的逻辑结构，其表格如下：创建系统用户表格 user_Info CREATE TABLE dbo.user_Info1（ user_IDchar（10） COLLATE Chinese_PRC_CI_AS NOT NULL, user_PWD

5、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（ 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

6、, 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创建客房信息表格roomsCREATE TABLE dbo.rooms（ roomNOchar（10） COLLATE Chinese_PRC_CI_

7、AS NOT NULL, roomtypechar（10） COLLATE Chinese_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

8、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_CI_AS NOT NULL, roomnochar（10） COLLATE Chinese_PRC_CI_AS NOT NULL, indatedatetime NULL, discountnumeric（2,0） NULL, inmemotext COLLATE Chinese_PRC

9、_CI_AS NULL, checkdatedatetime NULL, ammountnumeric（10,2） NULL） ON PRIMARY TEXTIMAGE_ON PRIMARY宾馆管理信息系统具体程序实现客房信息管理模块的创建 客房信息管理模块主要实现如下功能： 添加客房信息修改客房信息删除客房信息查询客房信息 具体实现代码如下：Private Sub From_Load（）载入窗体时，自动添加客房信息种类 Dim sSql As String Dim intCount As Integer Dim MsgText As String Dim mrcc As ADODB.Reco

10、rdset 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 “请先进行客房标准设置!”,v

11、bOKOnly+vbExclamation,“警告” 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）=

12、.Fields（intCount+1） End If Next intCount txtItem（3）=.Fields（5） cboItem（0）.ListIndex=0 MsgBox“请先进行客房标准设置! End With mrcc.Close Me.Caption=Me.Caption&“修改” mblChange=FalseEnd SubPrivate Sub cmdSave_Click（）单击保存按钮触发事件 Dim sMeg As String Dim Msgtext As String For intCount=0 To 3 If Trim（TxtItem（intCount）&”

13、）=” Then Select Case intCount Case 0 sMeg=“客房编号” Case 1 sMeg=“客房位置” End Select sMeg=sMeg&“不能为空！” MsgBox sMeg,vbOKOnly+vbExclamation,“警告” txtItem（intCount）.SetFocus If gintRmode=1 Then判断是否有重复记录 txtSQL=”select * from rooms where roomNO=”&Trim（txtItem（0）&” Set mrc=ExecuteSQL（txtSQL,msgText） If mrc.EOF=

14、False Then MsgBox “已经存在此客房编号的记录！ txtItem（0）.SetFocus If gintRmode=2 Then 判断是否处于修改状态 txtSQL=”delete from rooms where roomNO=”& txtSQL=”select*from rooms”再加入新记录 mrc.AddNew为数据库对象添加记录 mrc.Fields（0）=Trim（txtItem（0） mrc.Fields（1）=Trim（txtItem（0） If Trim（txtItem（intCount）& mrc.Fields（intCount+1）=Null Else

15、mrc.Fields（intCount+1）=Trim（txtItem（intCount） mrc.Fields（4）=” mrc.Fields（5）=Trim（txtItem（3） mrc.Update If gintRmode=1 Then txtItem（intCount）=” If flagRedit Then Unload frmRoom frmRoom.txtSQL=”select*from rooms”重新显示数据 frmRoom.Show ElseIf gintRmode=2 Then Unload Me frmRoom.txtSQL=”select*from rooms”Pr

16、ivate Sub menuModifyroom_Click（）选择修改房间信息，触menuModifyroom的Click事件,程序判断为修改状态后，首先删除原有记录，然后把新内容加入到数据库中 If flagRedit Then 判断记录窗体是否打开 If frmRoom.msgList.Rows1 Then判断客房信息列表内容是否为空 gintRmode=2设置为修改状态 intCount=frmRoom.msgList.Row纪录当前记录位置frmRoom1.txtSQL=”select*from rooms where roomNO=”&Trim（frmRoom.msgList.Te

17、xtMatrix（intCount,1）&frmRoom1.Show Call menuAddroom_Click添加记录End If ElseEnd IfEnd Sub Private Sub menuDeleteroom_Click（） Dim txtSQL As String Dim mrc As ADODB.Recordset If flagTedit Then If MsgBox（“真的要删除这条文件记录么？”,vbOKCancel+vbExclamation,“警告”）=vbOK Then intCount=frmRoom.msgList.Row记载当前记录位置 txtSQL=”d

18、elete from rooms where roomNO=”&Trim（frmRoom.msgList.TextMatrix（intCount,1）& Set mrc=ExecuteSQL（txtSQL,MsgText）执行删除操作Unload frmRoomPrivate Sub From_Load（）载入窗体时，将自动加入所有记录的入库时间 Dim i As Integer Dim j As Integer txtSQL=”select DISTINCT typename from roomtype”初始化客房种类 Combo1.AddItem Trim（mrc.Fields（0） Mr

19、c.MoveNext Combo1.ListIndex=0”,vbOKOnly+vbExclamation,”警告”Private Sub cmdOK_Click（）设置完查询内容和方式后，单击cmdOk按钮查询 Dim sQSql As String If chkItem（0）.Value=vbChecked Then sQSql=”roomNO=”&Trim（txtItem（0）&”）& If chkItem（1）.Value=vbChecked Then If Trim（sQSql& sQSql=”roomtype=”&Trim（Combo1& If Trim（sQSql）=” Then MsgBox “请设置查询条件！ frmRoom.txtSQL=”select*from rooms where”&sQSql Me.Hide7小结对于本次课程设计主要从三方面，即知识、技能和态度，学生采用自我评估方式来检查自己，这样可以产生这种日常性的，内省方式的自我评估，以检查自己的学习进度和成绩，改进学习方法和增强学习自信心。