宾馆管理信息系统论文说明

宾馆管理信息系统系统平台：Windows 2000数据库服务器：Microsoft SQL Server 2000开发工具：Visual Basic 6.0系统开发人员：⒈编写目的宾馆在正常的运营中需要对客房资源、顾客信息、结算信息进行管理，利用宾馆管理信息系统及时了解各个环节中信息的变更，有利于提高管理效率。

⒉系统功能分析系统开发的总体任务是实现宾馆各种信息的系统化、规范化和自动化。

主要完成功能：●有关客房标准的制定、标准信息的输入，包括标准编号、标准名称、房间面积、床位数量、住房单价、是否有空调、电视机、电话以及单独卫生间等。

●客房标准信息的修改、查询等。

●客房基本信息的输入，包括客房编号、客房类型、客房位置、客房单价、备注等。

●客房基本信息的查询、修改，包括客房编号、客房类型、客房位置、客房单价、备注等。

●剩余客房信息的查询等。

●订房信息的输入，包括客房编号、客房种类、客房位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、备注信息等。

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

●结算信息的输入，包括客房编号、客房种类、位置、客房单价、顾客姓名、顾客身份证号码、入住日期、折扣、结算日期、备注信息等。

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

⒊系统功能模块设计按结构化程序设计思想，分析得出如下系统功能模块图图Ⅰ系统功能模块图⒋数据库设计数据库设计步骤：●数据库需求分析●数据库概念结构设计●数据库逻辑结构设计①数据库需求分析分析调查有关宾馆管理信息需求的基础上得本系统所处理的数据流程图Ⅱ宾馆管理信息系统数据流程图针对一般宾馆管理信息系统的需求，通过对宾馆管理过程的内容和流程分析，设计如下面所示的数据项和数据结构：●客房标准信息，包括的数据项有：标准编号、标准名称、房间面积、床位数量、住房单价、是否有空调、电视、电话、单独卫生间等。

●客房信息，包括的数据项有：客房编号、客房种类、客房位置、客房单价、备注等。

●订房信息，包括的数据项有：订房编号、客房编号、客房种类、客房位置、客房备注信息、顾客姓名、顾客身份证号码、入住时间、折扣、备注等。

●结算信息，包括的数据项有：订房编号、客房编号、客房种类、客房位置、客房备注信息、顾客姓名、顾客身份证号码、入住时间、折扣、结算时间、备注等。

②数据库概念结构设计本系统根据以上的设计规划出的实体有：客房标准信息实体、客房信息实体、订房信息实体、结算信息实体。

各个实体具体的描述Ｅ-Ｒ图如下：客房标准信息实体Ｅ-Ｒ图客房信息实体Ｅ-Ｒ图订房信息实体Ｅ-Ｒ图结算信息实体Ｅ-Ｒ图实体之间关系Ｅ-Ｒ图③数据库逻辑结构设计首先将宾馆管理信息系统的数据库概念结构转化为SQL 2000数据库系统所支⒌数据库结构的实现利用SQL 2000数据库系统中的查询分析实现数据库的逻辑结构，其表格如下：创建系统用户表格 user_InfoCREATE TABLE [dbo].[user_Info1]([user_ID][char](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]([typeid][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL,[typename][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL,[area][numeric](5,0) NULL,[bednum][numeric](2,0) NULL,[haircondition][char](2) COLLATE Chinese_PRC_CI_AS NULL,[htelephone][char](2) COLLATE Chinese_PRC_CI_AS NULL,[htelevision][char](2) COLLATE Chinese_PRC_CI_AS NULL,[htoilet][char](2) COLLATE Chinese_PRC_CI_AS NULL,[price][numeric](10,2)NULL) ON [PRIMARY]创建客房信息表格roomsCREATE TABLE [dbo].[rooms]([roomNO][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL,[roomtype][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL,[roomposition][char](20) COLLATE Chinese_PRC_CI_AS NULL,[roomprice][numeric](10,2) NULL,[putup][char](2) COLLATE Chinese_PRC_CI_AS NOT NULL,[roommemo][text] COLLATE Chinese_PRC_CI_AS NULL) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]创建订房信息表bookinCREATE TABLE [dbo].[bookin]([bookno][char](14) COLLATE Chinese_PRC_CI_AS NOT NULL,[customname][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL,[customID][char](18) COLLATE Chinese_PRC_CI_AS NOT NULL,[roomno][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL,[indate][datetime] NULL,[discount][numeric](2,0) NULL,[inmemo][text] COLLATE Chinese_PRC_CI_AS NULL,[checkdate][datetime] NULL,[ammount][numeric](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() As String‘异常处理On Error GoTo ExecuteSQL_Error’‘用Split函数产生一个包含各个子串的数组sTokens=Split(SQL)Set cnn=NEW ADODB.Connection‘打开连接cnn.Open ConnectStringIf InStr(“INSERT,DELETE,UPDATE”,UCase$(sTokens(0))) ThenCnn.Execute SQLMsgString=sTokens(0)&”query successful”ElseSet rst=NEW ADODO.Recordsetrst.Open Trim$(SQL),cnn,adOpenKeyset,adLockOptimisticrst.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)‘判断是否为回车键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 IntegerPublic gintTmode As Integer ’记录是添加还是修改状态，1为添加，2为修改Public gintRmode As IntegerPublic gintBmode As IntegerPublic flagSedit As Boolean⑵系统用户管理模块的创建用户管理模块主要实现：·用户登陆。

·添加用户。

·修改用户具体客房标准添加代码：Private Sub Form_Load() ‘载入窗体后，判断所处状态Dim intCount As IntegerDim MsgText As StringDim i As IntegerIf 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)=.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 IntegerDim sMeg As StringDim MsgText As StringFor intCount=0 To 4 ‘判断是否输入内容If Trim(txtItem(intCount)&””)=”” ThenSelect Case intCountCase 0sMeg=”标准编号”Case 1sMeg=”标准名称”Case 2sMeg=”房间面积”Case 3sMeg=”床位数量”Case 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&”请输入数字!”MsgBox sMeg,vbOKOnly+vbExcl amation,”警告”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 IfMrc.CloseEnd IftxtSQL=”select * from roomtype where typeid<>’”&Trim(txtItem(0))&”’andtypename=’”&Trim(txtItem(1))&”’”Set mrc=ExecuteSQL(txtSQL,MsgText)If mrc.EOF=False ThenMsgBox”已经存在相同客房标准的记录!”,vbOKOnly+vbExclamation,“警告”txtItem(1).SetfocusExit SubEnd IftxtSQL=”delete from roomt ype where typeid=’”&Trim(txtItem(0))&”’”‘删除已有记录Set mrc=ExecuteSQL(txtSQL,MsgText)txtSQL=”select *from roottype”‘添加新记录Set mrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewFor intCount=0 To 3mrc.Fields(intCount)=Trim(txtItem(intCount))Next intCountFor intCount=0 To 3mrc.Fields(intCount+4)=Trim(Combo1(intCount))Next intCountmrc.Fields(8)=Trim(txtItem(4))mrc.Update ‘更新数据库mrc.Closeif gintTmode=1 Then ‘判断是否属于添加状态MsgBox “添加纪录成功!”,vbOKOnly+vbExclamtion,“添加记录”For intCount=0 To 4txtItem(intCount)=”” ‘清除已经输入的内容Next intCountFor intCount=0 To 3Combo1(intCount).ListIndex=0Next intCountmbl Change=False’判断是否打开窗口if flagTedit ThenUnload frmRoomtypefrmRoomtype.txtSQL=“select *from roomtype”frmRoomtype.ShowEnd IfElseIf gintTmode=2 Then ‘判断是否处于修改状态Unload MeIf flagTedit ThenUnload frmRoomtypeEndIffrmRoomtype.txtSQL=”select *from roomtype”frmRoomtype.ShowEnd IfEnd SubPrivate Sub txtItem_GotFocus(Index As Integer)’文本框获得焦点时触发该事件，即自动选中输入的内容，便于修改txtItem(Index).SelStart=0txtItem(Index).SelLength=Len(txtItem(Index))End SubPrivate Sub cmdExit_Click()’单击按钮cmdExit取消添加信息If mblChange And cmdSave.Enabled ThenIf MsgBox(“保存当前记录的变化吗？”,vbOKCancel+vbExclam ation,”警告”)=vbOK Then ‘保存 Call cmdSave_ClickEnd IfEnd IfUnload MeEnd SubPrivate Sub txtItem_KeyDown(Index As Integer,KeyCode As Integer,Shift_ As Integer)‘输入完内容，单击回车键将自动进入下一个文本框，触发文本框的Keydown事件EnterToTab KeyCodeEnd Sub⑶修改客房标准窗体的创建Private Sub From_Load()ShowTitleShowDataflagTedit=TrueEnd SubPrivate Sub ShowTitle()‘调用showTitle函数，显示表头Dim i As IntegerWith msgList.Cols=10.TextMatrix(0,1)=”标准编号”.TextMatrix(0,2)=”标准名称”.TextMatrix(0,3)=”房间面积”.TextMatrix(0,4)=”床位数量”.TextMatrix(0,5)=”是否有空调”.TextMatrix(0,6)=”是否有电话”.TextMatrix(0,7)=”是否有电视”.TextMatrix(0,8)=”是否有卫生间”.TextMatrix(0,9)=”房间单价”.FixedRows=1‘固定表头For i=0 To 9 ‘设置各列的对齐方式.ColAlignment(i)=0Next i.FillStyle=flexFillRepeat‘表头项居中.Col=0.Row=0.RowSel=1.ColSel=.Cols-1.CellAlignment=4.ColWidth(0)=300‘设置单元大小.ColWidth(1)=1000.ColWidth(2)=2000.ColWidth(3)=2000.ColWidth(4)=1000.ColWidth(5)=1000.ColWidth(6)=1000.ColWidth(7)=1000.ColWidth(8)=1000.ColWidth(9)=1000.Row=1End WithEnd SubPrivate Sub ShowData()‘调用showData函数，显示记录列表Dim i As IntegerSet mrc=ExecuteSQL(txtSQL,MsgText)‘根据需要设置SQL语句，显示需要的记录With msgList.Rows=1Do While Not mrc.EOF.Rows=Rows+1For i=1 To mrc.Fields.CountSelect Case mrc.Fields(i-1).TypeCase adDBDate.TextMatrix(.Rows-1,i)=Format(mrc.Fields(i-1)&””,”yyyy-mm-dd”)Case Else.TextMatrix(.Rows-1,i)=mrc.Fields(i-1)&””End SelectNext iMrc.MoveNextLoopEnd Withmrc.CloseEnd SubPrivate Sub msgList_MouseUp(Button As Integer,Shift As Integer,x As Single,y As Single)‘选择记录，然后单击鼠标右键，触发MouseUp事件If Button=2 And Shift=0 ThenPopupMenu fMainFrom.menuRoomtypeEnd IfEnd SubPrivate Sub menuModifyroomtype_Click()Dim intCount As IntegerIf flagTedit Then ‘判断是否打开记录窗体If frmRoomtype.msgList.Rows>1 ThenfintTmode=2‘设置为修改状态intCount=frmRoomtype.msgList.Row‘记下选择记录f rmRoomtype1.txtSQL=”select*from roomtype wheretypeid’”&Trim(frmRoomtype.msgList.TextMatrix(intCount,1))&”’”frmRoomtype1.ShowElseCall menuAddroomtype_ClickEnd IfElsefrmRoomtype.txtSQL=”select*from roomtype”frmRoomtype.ShowEnd IfEnd SubPrivate Sub From_Resize()‘窗体变化时，调整标签和表格位置，使标签处于窗体的最上方，而表格始终处于标签下方If Me.WindowState<>vbMinimized And fMainFrom.WindowState<>vbMinimized Then‘边界处理If Me.Scaleheight<10*lblTitle.Height ThenExit SubEnd IfIf Me.ScaleWidth<lblTitle.Width+lblTitle.Width/2 ThenExit SubEnd IflblTitle.Top=lblTitle.Height‘控制控件的位置lblTitle.Left=(Me.Width-lblTitle.Width)/2msgList.Top=lblTitle.Top+lblTitle.Height+lblTitle.Height/2 msgList.Width=Me.ScaleWidth-200msgList.Left=Me.ScaleLeft+100msgList.Height=Me.ScaleHeight-msgList.Top-200End IfEnd Sub⑷删除客房标准Private Sub menuDeleteroomtype_Click()Dim txtSQL As StringDim intCount As IntegerDim mrc As ADODB.RecordsetDim MsgText As StringIf flagTedit Then ‘判断是否打开记录窗体If frmRoomtype.msgList.Rows>1 ThenIf MsgBox(“真的要删除这条文件记录么？”，vbOKCancel+vbExclamation,”警告”)=vbOK ThenintCount=frmRoomtype.msgList.RowtxtSQL=”delete from roomtype wheretypeid’”&Trim(frmRoomt ype.msgList.TextMatrix(intCount,1))&”’”Set mrc=ExecuteSQL(txtSQL,MsgText)Unload frmRoomtype‘关闭记录窗体frmRoomtype.txtSQL=”select*from roomtype”‘重新选择所有记录frmRoomtype.ShowEnd IfEnd IfEnd IfEnd Sub⑸客房信息管理模块的创建客房信息管理模块主要实现如下功能：·添加客房信息·修改客房信息·删除客房信息·查询客房信息具体实现代码如下：Private Sub From_Load()‘载入窗体时，自动添加客房信息种类Dim sSql As StringDim intCount As IntegerDim MsgText As StringDim mrcc As ADODB.RecordsetIf gintRmode=1 Then ‘判断是否处于添加状态Me.Caption=me.Caption&“添加”txtSQL=”select DISTINCT typename from roomtype”Set mrc=ExecuteSQL(txtSQL,MsgText)If Not mrc.EOF ThenDo While Not mrc.EOFcboItem(0).AddItem Trim(mrc.Fields(0))mrc.MoveNextLoopcboItem(0).ListIndex=0‘显示记录内容ElseMsgBox “请先进行客房标准设置!”,vbOKOnly+vbExclamation,“警告”cmdSave.Enabled=FalseExit SubEnd Ifmrc.CloseElseIf gintRmode=2 Then ‘判断是否处于修改状态Set mrcc=ExecuteSQL(txtSQL,MsgText)‘设置SQL语句显示当前选择记录If mrcc.EOF=False ThenWith mrcctxtItem(0)=.Fields(0)For intCount=1 To 2If Not IsNull(.Fields(intCount+1))Then‘判断内容是否为空txtItem(intCount)=.Fields(intCount+1) End IfNext intCounttxtItem(3)=.Fields(5)txtSQL=”select DISTINCT typename from roomtype” Set mrc=ExecuteSQL(txtSQL,MsgText)If Not mrc.EOF ThenDo While Not mrc.EOFcboItem(0).AddItem Trim(mrc.Fields(0)) mrc.MoveNextLoopcboItem(0).ListIndex=0ElseMsgBox“请先进行客房标准设置!”,vbOKOnly+vbExclamation,“警告”cmdSave.Enabled=FalseExit SubEnd Ifmrc.CloseEnd WithEnd Ifmrcc.CloseMe.Caption=Me.Caption&“修改”End IfmblChange=FalseEnd SubPrivate Sub cmdSave_Click()‘单击保存按钮触发事件Dim intCount As IntegerDim sMeg As StringDim mrcc As ADODB.RecordsetDim Msgtext As StringFor intCount=0 To 3If Trim(TxtItem(intCount)&””)=”” ThenSelect Case intCountCase 0sMeg=“客房编号”Case 1sMeg=“客房位置”End SelectsMeg=sMeg&“不能为空！”MsgBox sMeg,vbOKOnly+vbExclamation,“警告”txtItem(intCount).SetFocusExit SubEnd IfNext intCountIf gintRmode=1 Then‘判断是否有重复记录txtSQL=”select* from rooms where roomNO=‘”&Trim(txtItem(0))&”’”Set mrc=ExecuteSQL(txtSQL,msgText)If mrc.EOF=False ThenMsgBox “已经存在此客房编号的记录！”,vbOKOnly+vbExclamation,“警告”txtItem(0).SetFocusExit SubEnd Ifmrc.CloseEnd IfIf gintRmode=2 Then ‘判断是否处于修改状态txtSQL=”delete from rooms where roomNO=‘”&Trim(txtItem(0))&”’”Set mrc=ExecuteSQL(txtSQL,MsgText)End IftxtSQL=”select*from rooms”‘再加入新记录Set mrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNew‘为数据库对象添加记录mrc.Fields(0)=Trim(txtItem(0))mrc.Fields(1)=Trim(txtItem(0))For intCount=1 To 2If Trim(txtItem(intCount)&””)=”” Thenmrc.Fields(intCount+1)=NullElsemrc.Fields(intCount+1)=Trim(txtItem(intCount))End IfNext intCountmrc.Fields(4)=””mrc.Fields(5)=Trim(txtItem(3))mrc.Updatemrc.CloseIf gintRmode=1 ThenFor intCount=0 To 3txtItem(intCount)=””Next intCountmblChange=FalseIf flagRedit ThenUnload frmRoomfrmRoom.txtSQL=”select*from rooms”‘重新显示数据frmRoom.ShowEnd IfElseIf gintRmode=2 ThenUnload MeIf flagRedit ThenUnload frmRoomEnd IffrmRoom.txtSQL=”select*from rooms”frmRoom.ShowEnd IfEnd Sub·修改客房信息Private Sub menuModifyroom_Click()‘选择修改房间信息，触menuModifyroom的Click事件,程序判断为修改状态后，首先删除原有记录，然后把新内容加入到数据库中Dim intCount As IntegerIf flagRedit Then ‘判断记录窗体是否打开If frmRoom.msgList.Rows>1 Then‘判断客房信息列表内容是否为空gintRmode=2‘设置为修改状态intCount=frmRoom.msgList.Row‘纪录当前记录位置frmRoom1.txtSQL=”select*from rooms where roomNO=’”&Trim(frmRoom.msgList.TextMatrix(intCount,1))&”’”frmRoom1.ShowElseCall menuAddroom_Click‘添加记录End IfElsefrmRoom.txtSQL=”select*from rooms”frmRoom.ShowEnd IfEnd Sub·删除客房信息Private Sub menuDeleteroom_Click()Dim txtSQL As StringDim intCount As IntegerDim mrc As ADODB.RecordsetDim MsgText As StringIf flagTedit ThenIf frmRoom.msgList.Rows>1 Then‘判断客房信息列表内容是否为空If MsgBox(“真的要删除这条文件记录么？”,vbOKCancel+vbExclamation,“警告”)=vbOK ThenintCount=frmRoom.msgList.Row‘记载当前记录位置txtSQL=”delete from rooms where roomNO=‘”&Trim(frmRoom.msgList.TextMatrix(intCount,1)&”’” Set mrc=ExecuteSQL(txtSQL,MsgText)‘执行删除操作Unload frmRoomfrmRoom.txtSQL=”select*from rooms”frmRoom.ShowEnd IfEnd IfEnd IfEnd Sub·查询客房信息Private Sub From_Load()‘载入窗体时，将自动加入所有记录的入库时间Dim i As IntegerDim j As IntegerDim sSql As StringDim txtSQL As StringDim MsgText As StringDim mrc As ADODB.RecordsettxtSQL=”select DISTINCT typename from roomtype”‘初始化客房种类 Set mrc=ExecuteSQL(txtSQL,MsgText)If Not mrc.EOF ThenDo While Not mrc.EOFCombo1.AddItem Trim(mrc.Fields(0))Mrc.MoveNextLoopCombo1.ListIndex=0ElseMsgBox “请先进行客房标准设置!”,vbOKOnly+vbExclamation,”警告” Exit SubEnd Ifmrc.CloseEnd SubPrivate Sub cmdOK_Click()‘设置完查询内容和方式后，单击cmdOk按钮查询 Dim sQSql As StringIf chkItem(0).Value=vbChecked ThensQSql=”roomNO=’”&Trim(txtItem(0)&””)&”’”End IfIf chkItem(1).Value=vbChecked ThenIf Trim(sQSql&””)=”” ThensQSql=”roomtype=’”&Trim(Combo1&””)&”’”ElsesQSql=sQSql&”and roomtype=’”&Trim(Combo1&””)&”’”End IfEnd IfIf Trim(sQSql)=”” ThenMsgBox “请设置查询条件！”,vbOKOnly+vbExclamation,“警告”Exit SubElseIf flagRedit ThenUnload frmRoomEnd IffrmRoom.txtSQL=”select*from rooms where”&sQS qlfrmRoom.ShowEnd IfMe.HideEnd Sub⑹订房信息管理模块的创建订房信息管理模块主要实现如下功能：·查询剩余客房信息·添加订房信息·修改订房信息·删除订房信息·查询订房库信息具体实现代码如下：Private Sub From_Load()‘载入窗体时，程序将自动加入客房种类和客房单价 Dim txtSQL As StringDim MsgText As StringDim mrc As ADODB.RecordsettxtSQL=”select distinct typename from roomtype”‘选择所有客房种类 Set mrc=ExecuteSQL(txtSQL,MsgText)If Not mrc.EOF ThenDo While Not mrc.EOFCombo1(0).AddItem mrc.Fields(0)mrc.MoveNextLoopEnd Ifmrc.ClosetxtSQL=”select distinct price from roomtype”Set mrc=ExecuteSQL(txtSQL,MsgText)If Not mrc.EOF ThenDo While Not mrc.EOFCombo1(1).AddItem mrc.Fields(0)Combo1(2).AddItem mrc.Fields(0)mrc.MoveNextLoopEnd Ifmrc.CloseEnd SubPrivate Sub cmdOK_Click()Dim sQSql As StringIf chkItem(0).Value=vbChecked ThensQSql=”roomtype=’”&Trim(Combo1(0)&””)&”’”End ifIf chkItem(1).Value=vbChecked ThenIf Trim(sQSql&””)=”” ThenIf Trim(Combo1(1)&””)<>””And Trim(Combo1(2)&””)<>””ThensQSql=”roomprice<=’”&Trim(Combo1(1)&””)&Androomprice >=’”&Trim(Combo1(2)&””)”’”ElseIf Trim(Combo1(1)&””)=””AndTrim(Combo1(2)&””)<>””ThensQSql=”roomprice >=’”&Trim(Combo1(2)&””)&”’”ElseIf Trim(Combo1(1)&””)<>””AndTrim(Combo1(2)&””=””ThensQSql=”roomprice<=’”&Trim(Combo1(1)&””)&”’”End IfElseIf Trim(Combo1(1)&””)<>””AndTrim(Combo1(2)&””)<>””ThensQSql=sQSql&”and roomprice>=’”&Trim(Combo1(1)&””)&”’androomprice >=’”&Trim(Combo1(2)&””)&”’”ElseIf Trim(Combo1(1)&””)=””AndTrim(Comb o1(2)&””)<>””ThensQSql=sQSql&”androomprice >=’”&Trim(Combo1(2)&””)&”’”ElseIf Trim(Combo1(1)&””)<>””AndTrim(Combo1(2)&””)=””ThensQSql=sQSql&”androomprice<=’”&Trim(Combo1(1)&””)&”’” End IfEnd IfIf Trim(sQSql)=”” ThenMsgBox “请设置查询条件!”,vbOKOnly+vbExclamation,“警告”Exit SubElseIf flagRedit ThenUnload frmRoomEnd IffrmRoom.txtSQL=”select*from rooms where”&sQSql&”andputup”<>’y’”frmRoom.ShowflagSedit=TrueEnd IfMe.HideEnd SubPrivate Sub From_Load()‘添加订房信息，载入窗体时把所有未预定的客房信息加入其中Dim sSql As StringDim intCount As IntegerDim MsgText As StringIf flagSedit Then ‘判断打开方式Set mrc=ExecuteSQL(txtSQL,MsgText)If Not mrc.EOF ThenFor intCount=0 To 3cboItem(intCount).AddItem mrc.Fields(intCount)cboItem(intCount).ListIndex=0Next intCounttxtItem(5)=mrc.Fields(5)End Ifmrc.ClosetxtNo=GetRkno()gintBmode=1ElseIf gintBmode=1 ThenMe.Caption=Me.Caption&“添加”txtSQL=”select DISTINCT roomNO from rooms where putup<>’y’” Set mrc=ExecuteSQL(txtSQL.MsgText)If Not mrc.EOF ThenDo While Not mrc.EOFcboItem(0).AddItem Trim(mrc.Fields(0))mrc.MoveNextLoopElseMsgBox “请先进行客房登记!”,vbOKOnly+vbExclamation,“警告” cmdSave.Enabled=FalseExit SubEnd Ifmrc.ClosetxtNo=GetRknoElseIf gintBmode=2 ThenSet mrc.ExecuteSQL(txtSQL,MsgText)If mrc.EOF ThenWith mrctxtNO=!booknoFor intCount=0 To 1If Not IsNull(.Fields(intCount+1)) ThentxtItem(intCount)=.Fields(intCount+1)End IfNext intCountcboItem(0).AddItem !roomnocboItem(0).ListIndex=0For intCount=2 To 4If Not IsNull(.Fields(intCount+2)) ThentxtItem(intCount)=.Fields(intCount+2)End IfNext intCountEnd WithEnd Ifmrc.CloseMe.Caption=Me.Caption&“修改”txtSQL=”select*from rooms whereroomNO=’”&Trim(cboItem(0))&”’”Set mrc=ExecuteSQL(txtSQL,MsgText)If Not mrc.EOF ThenFor intCount=1 To 3cboItem(intCount).AddItem mrc.Fields(intCount)cboItem(intCount).ListIndex=0Next intCounttxtItem(5)=mrc.Fields(5)End Ifmrc.CloseEnd IfEnd IfmblChange=FalseEnd SubPrivate Sub cmdSave_Click()‘添加记录到数据库中Dim intCount As IntegerDim sMeg As StringDim mrcc As ADODB.RecordsetDim MsgText As StringFor intCount=0 To 3‘判断输入内容是否为空If Trim(txtItem(intCount)&””)=”” ThenSelect Case intCountCase 0sMeg=“顾客姓名”Case 1sMeg=“身份证号码”Case 2sMeg=“折扣”Case 3sMeg=“入住时间”End SelectsMeg=sMeg&“不能为空!”MsgBox sMeg,vbOKOnly+vbExclamation,“警告”txtItem(intCount).SetFocusExit SubEnd IfNext intCountFor intCount=0 To 3If Trim(vboItem(intCount)&””)=””ThenSelect Case intCountCase 0sMeg=“客房编号”Case 1sMeg=“客房种类”Case 2sMeg=“客房位置”Case 3sMeg=“客房单价”End SelectsMeg=sMeg&“不能为空！”MsgBox sMeg,vbOKOnly+vbExclamation,“警告”cboItem(intCount).SetFocusExit SubEnd IfNext intCountIf IsDate(txtItem(2)) ThentxtItem(2)=Format(txtItem(2),”yyyy-mm-dd”)ElseMsgBox “入库时间应输入日期(yyyy-mm-dd)!”,vbOKOnly+vbExclamation,”警告”txtItem(2).SetFocusExit SubEnd IfFor intCount=1 To 3 Step 2If Not IsNumeric(txtItem(intCount)) ThenMsgBox “请输入数字”,vbOKOnly+vbExclamation,“警告”txtItem(intCount).SetFocusExit SubEnd IfNext intCountIf gintBmode =2 ThentxtSQL=”delete from booking where bookno=’”&Trim(txtNo)&”’” Set mrcc=ExecuteSQL(txtSQL,MsgText)End IftxtSQL=”select*from booking”Set mrcc=ExecuteSQL(txtSQL,MsgText)mrcc.AddNewmrcc.Fields(0)=txtNOFor intCount=0 To 1mrcc.Fields(intCount+1)=txtItem(intText)Next intCountmrcc.Fields(3)=cboItem(0)For intCount=2 To 4mrcc.Fields(intCount+2)=txtItem(intCount)Next intCountmrcc.Fields(8)=0mrcc.Updatemrcc.ClosetxtSQL=”select*from rooms whereroomNO=’”&Trim(vboItem(0))&”’”Set mrcc=ExecuteSQL(txtSQL,MsgText)If Not mrcc.EOf Thenmrcc!putup=”y”End Ifmrcc.Updatemrcc.CloseIf gintBmode=1 ThenMsgBox “添加订房信息成功!”,vbOKOnly+vbExclamation,“添加订房消息”Unload MeIf flagBedit ThenUnload frmBookinEnd IffrmBookin.txtSQL=”selectbookno,customname,customID,roomno,indate,discount,inmemo from booking whereamount=’0’”frmBookin.ShowElseMsgBox“修改订房信息成功!”,vbOKOnly+vbExclamation,“修改订房信息”Unload MeIf flagBedit ThenUnload frmBookinEnd IffrmBookin.txtSQL=”selectbookno,customname,customID,roomno,indate,discount,inmemo from booking where amount=’0’”frmBookin.ShowEnd IfEnd Sub⑺结算信息管理模块的创建结算信息管理模块主要实现如下功能：·添加结算信息·修改结算信息·查询结算信息具体实现代码如下：Private Sub From_Load()‘窗体载入时，自动加入所有未结算客房信息Dim sSql As StringDim intCount As IntegerDim MsgText As StringIf gintCmode=1 Then ‘判断是否处于添加状态Me.Caption=Me.Caption&“添加”txtSQL=”select DISTINCT roomno from booking where amount=’0’”‘初始化客房编号，选择所有未结算客房编号Set mrc=ExecuteSQL(txtSQL,MsgText)If Not mrc.EOF ThenDo While Not mrc.EOFcboItem(0).AddItem Trim(mrc!roomno)mrc.MoveNextLoopElseMsgBox “没有顾客入住!”,vbOKOnly+vbExclamation,“警告”cmdSave.Enabled=FalseExit SubEnd Ifmrc.CloseElseIf gintCmode=2 Then‘判断是否处于修改状态Set mrc=ExecuteSQL(txtSQL,MsgText)If mrc.EOF=False ThenWith mrctxtNo =mrc.Fields(0)For intCount=0 To 1txtItem(intCount)=.Fields(intCount+1)Next intCountcboItem(0).AddItem.fields(3)cboItem(0).ListIndex=0For intCount=2 To 3If Not IsNull(.Fields(intCount+2)) ThentxtItem(intCount)=.Fields(intCount+2)End IfNext intCounttxtItem(5)=.Fields(6)txtItem(4)=.Fields(7)End WithEnd Ifmrc.ClosetxtSQL=”select*from rooms where roomNO=’”&cboItem(0)&”’” Set mrc=ExecuteSQL(txtSQL,MsgText)If mrc.EOF=False ThenWith mrcFor intCount=1 To 3cboItem(intCount).AddItem.Fields(intCount)cboItem(intCount).ListIndex=0Next intCountEnd WithEnd Ifmrc.CloseFor intCount =0 To 3txtItem(intCount).Enabled=FalseNext intCountMe.Caption=Me.Caption&“修改”End IfmblChange=FalseEnd SubPrivate Sub cboItem_Click(Index As Integer)‘选择不同客房，触发cboItem 下拉式文本框的click事件，显示相应的顾客信息Dim sSql As StringDim MsgText StringDim mrcc As ADODB.RecordsetDim intCount As IntegerIf gintCmode =1 Then ‘判断是否处于添加状态，否则将退出If Index=0 ThencboItem(1).Enabled=TruecboItem(2).Enabled=TruecboItem(3).Enabled=TruecboItem(1).Clear‘清除原有内容cboItem(2).ClearcboItem(3).CleartxtSQL=”select roomNO,roomtype,roomposition,roomprice from where roomNo =’”&Trim(cboItem(0))&”’” ‘显示有关客房的具体信息Set mrcc=ExecuteSQL(txtSQL,MsgText)If Not mrcc.EOF ThencboItem(1).AddItem mrcc!roomtypecboItem(2).AddItem mrcc!roompositioncboItem(3).AddItem mrcc!roompricecboItem(1).Enabled=FalsecboItem(2).Enabled=FalsecboItem(3).Enabled=FalsecboItem(1).ListIndex=0cboItem(2).ListIndex=0cboItem(3).ListIndex=0cmdSave.Enabled=TrueElseMsgBox “没有订房信息!”,vbOKOnly+vbExclamation, “警告” cmdSave.Enabled=FalseExit SubEnd Ifmrcc.ClosetxtSQl=”select*from booking where amount=’0’and roomno=’”&Trim(cboItem(0))&”’”‘显示相关顾客信息Set mrcc=ExecuteSQL(txtSQL,MsgText)If Not mrcc.EOF ThentxtNO=mrcc!booknotxtItem(0)=mrcc!customnametxtItem(1)=mrcc!customIDtxtItem(2)=mrcc!indatetxtItem(3)=mrcc!discounttxtItem(5)=mrcc!inmemoFor intCount =0 To 3txtItem(intCount).Enabled=FalseNext intCountEnd Ifmrcc.CloseEnd IfEnd IfExit SubEnd SubPrivte Sub cmdSave_Click()Dim intCount As IntegerDim sMeg As StringDim mrcc As ADODB.RecordsetDim MsgText As StringDim bYear As IntegerDim eYear As IntegerDim bDays As IntegerDim eDays As IntegerDim aDays As IntegerDim amMount As DoubleIf Trim(txtItem(4)&””)=””ThenMsgBox sMeg,vbOKOnly+vbExclamation,“警告”txtItem(4).SetFocusExit SubEnd IfIf IsDate(txtItem(4)) ThentxtItem(4)=Format(txtItem(4),”yyyy-mm-dd”)ElseMsgBox “入库时间应输入日期（yyyy-mm-yy）!”,vbOKOnly+vbExclamation,“警告”txtItem(4).SetFocusExit SubEnd IftxtSQl=”select *from booking where bookno=’”&Trim(txtNo)&”’”‘加入新记录Set mrcc=ExecuteSQL(txtSQL,MsgText)mrcc.Fields(6)=txtItem(5)mrcc.Fields(7)=txtItem(4)bYear=DatePart(“yyyy”,txtItem(2))‘获得入住日期和结算日期年代eYear=DatePart(“yyyy”,txtItem(4))bDays=DatePart(“y”,txtItem(2))‘获得入住日期和结算日期天数eDays=DatePart(“y”,txtItem(4))If bYear=eYear ThenaDays=eDays-bDaysElseaDays=(eYear-bYear-1)*365+(365-bDays)+eDaysEnd Ifmrcc.Fields=aDays*Trim(cboItem(3))*Trim(txtItem(3))/100‘计算应交房费amMount=aDays*Trim(cboItem(3))*Trim(txtItem(3))/100mrcc.Update‘更新数据mrcc.ClosetxtSQL=”select*from rooms where roomNO=’”&cboItem(0)&”’”Set mrcc=ExecuteSQL(txtSQL,MsgText)If Not mrcc.EOF Thenmrcc!putup=””End If。