2022年2022年酒店管理信息系统 .pdf

《2022年2022年酒店管理信息系统 .pdf》由会员分享，可在线阅读，更多相关《2022年2022年酒店管理信息系统 .pdf（27页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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

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

3、号码、入住日期、折扣、结日期、备注信息等。系统功能模块设计按结构化程序设计思想，分析得出如下系统功能模块图宾馆管理信息系统结算信息管理订房信息管理客房信息管理系统管理结算信息查询结算信息修改结算信息添加订房信息查询名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 27 页 - - - - - - - - - 订房信息修改订房信息添加剩余客房信息查询设置客房信息设置客房标准密码管理用户管理客房信息查询客房信息修改客房信息添加客房标准修改客房标准添加图系统功能模块图数据库设计数

4、据库设计步骤：数据库需求分析数据库概念结构设计数据库逻辑结构设计数据库需求分析分析调查有关宾馆管理信息需求的基础上得本系统所处理的数据流程客房标准设置基本信息输入客房登记基本信息录入客房信息管理顾客登记订房信息管理订房信息管理结算信息输入结算信息管理客房信息返回图宾馆管理信息系统数据流程图针对一般宾馆管理信息系统的需求，通过对宾馆管理过程的内容和流程分析，设计如下面所示的数据项和数据结构：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 27 页 - - - - - - -

5、 - - 客房标准信息，包括的数据项有：标准编号、标准名称、房间面积、床位数量、住房单价、是否有空调、电视、电话、单独卫生间等。客房信息，包括的数据项有：客房编号、客房种类、客房位置、客房单价、备注等。订房信息，包括的数据项有：订房编号、客房编号、客房种类、客房位置、客房备注信息、顾客姓名、顾客身份证号码、入住时间、折扣、备注等。结算信息，包括的数据项有：订房编号、客房编号、客房种类、客房位置、客房备注信息、顾客姓名、顾客身份证号码、入住时间、折扣、结算时间、备注等。数据库概念结构设计本系统根据以上的设计规划出的实体有：客房标准信息实体、客房信息实体、订房信息实体、结算信息实体。各个实体具体的

6、描述- 图如下：客房标准信息实体标准编号标准名称床位数量客房单价客房标准信息实体- 图客房信息实体客房标准客房编号客房位置客房单价客房信息实体-图订房信息实体客房信息顾客信息折扣入住时间订房信息实体-图结算信息实体客房信息顾客信息结算时间结算金额结算信息实体-图客房标准信息客房登记客房信息管理订房订房信息管理结算信息管理客房结算名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 27 页 - - - - - - - - - 实体之间关系-图数据库逻辑结构设计首先将宾馆管理信息

7、系统的数据库概念结构转化为SQL 2000 数据库系统所支持的实际数据模型，即：数据库的逻辑结构。其各个表格的设计结果如下列名数据类型可否为空说明Typeid Varchar NOT NULL 标准编号Typename Varchar NOT NULL 标准名称Area Numeric NULL 房间面积Bednum Numeric NULL 床位数量Haircondition Varchar NULL 是否有空调Htelephone Varchar NULL 是否有电话Htelevision Varchar NULL 是否有电视Htoilet Varchar NULL 是否有单独卫生间Pri

8、ce Numeric NULL 单价Roomtype 客房标准信息表列名数据类型可否为空说明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 顾客姓名CustomID

9、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_Info CREATE TABLE dbo.user_Info1( user_IDchar(10) COLLATE

10、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 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 27 页 - - - - - - - - - ) ON PRIMARY 创建客房标准信息表格roomtype CREATE TABLE dbo.roomtype( type

11、idchar(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 NULL, htelephonechar(2) COLLATE Chinese_PRC_CI_AS NULL, htelevisionchar(2) COLLATE Chinese_PRC_CI_AS NULL

12、, htoiletchar(2) COLLATE Chinese_PRC_CI_AS NULL, pricenumeric(10,2)NULL ) ON PRIMARY 创建客房信息表格rooms CREATE 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,

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

14、LLATE 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, ammountnumeric(10,2) NULL ) ON PRIMARY TEXTIMAGE_ON PRIMARY 宾馆管理信息系统具体程序实现创建公用模块 Module1.bas 添加公共数据操

15、作函数，用以执行各种SQL语句。添加函数ExecuteSQL，代码如下：Public Function ExecuteSQL(ByValSQL As String,MsgString AsString)_ As ADODB.Recordset 执行 SQL语句，并返回记录集对象Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens() As String 异常处理名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - -

16、第 5 页，共 27 页 - - - - - - - - - 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.Recor

17、dset rst.Open Trim$(SQL),cnn,adOpenKeyset,adLockOptimistic rst.MoveLast get RecordCount 返回记录集对象 Set ExecuteSQL=rst MsgString=”查询到” &rst.RecordCount&”条记录” End If ExecuteSQL_Exit: Set rst=Nothing Set cnn=Nothing Exit Function ExecuteSQL_Error: MsgString=”查询错误 : ”&Err.Description Resume ExecuteSQL_Exit

18、 End Function Public Sub EnterToTab(Keyasc As Integer) 判断是否为回车键 If Keyasc=13 Then Keyasc 用来保存当前按键转换成Tab 键 SendKeys”TAB” End If End sub 添加全局变量，用来记录各个窗口的读写状态，代码如下：Public flagTedit As Boolean 标示是否进入修改的窗体Public flagRedit As Boolean Public flagBedit As Boolean Public flagCedit As Boolean Public gintCmode

19、 As Integer Public gintTmode As Integer 记录是添加还是修改状态，1 为添加， 2 为修改Public gintRmode As Integer Public gintBmode As Integer Public flagSedit As Boolean 系统用户管理模块的创建名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 27 页 - - - - - - - - - 用户管理模块主要实现：用户登陆。添加用户。修改用户具体客房标准添

20、加代码：Private Sub Form_Load() 载入窗体后，判断所处状态 Dim intCount As Integer Dim MsgText As String Dim i As Integer If gintTmode=1 Then 判断是否属于添加状态 Me.Caption=Me.Caption & ”添加” For i=0 To 3 Combo1(i).AddItem ”否” Combo1(i).AddItem ”是” Combo1(i).ListIndex=0 Next i ElseIf gintTmode=2 Then 判断是否处于修改状态 Set mrc=Execute

21、Sql(txtSQL,MsgText) If mrc.EOF=false Then With mrc For intCount=0 To 3 txtItem(intCount)=.Fields(intCount) Next intCount txtItem(4)=.Fileds(8) For i=0 To 3 Combo1(i).Additem ”否” Combo1(i).Additem ”是” Combo1(i).ListIndex=0 Next i End With txtItem(0).Enabled=False End If Me.Caption=Me.caption&”修改”End

22、If mblChang=False End Sub Private Sub cmd_Click()用户输入内容完毕后，单击cmdSave按钮触发Click事件 Dim intCount As Integer Dim sMeg As String Dim MsgText As String For intCount=0 To 4 判断是否输入内容 If Trim(txtItem(intCount)&” )= ” Then Select Case intCount Case 0 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精

23、心整理 - - - - - - - 第 7 页，共 27 页 - - - - - - - - - sMeg=”标准编号” Case 1 sMeg=”标准名称” Case 2 sMeg=”房间面积” Case 3 sMeg=”床位数量” Case 4 sMeg=”床位单价” End Select sMeg=sMeg&”不能为空 ! ” MsgBox sMeg,vbOkOnly+vbExclamation,”警告” txtItem(intCount).SetFocus Exit Sub End if Next intCount 判断输入内容是否为数字 For intCount=2 To 4 If

24、Not IsNumeric(Trim(txtItem(intCount) Then Select Case intCount Case 2 sMeg=”房间面积” Case 3 sMeg=”床位数量” Case 4 sMeg=”床位单价” End Select sMeg=sMeg&”请输入数字! ”MsgBox sMeg,vbOKOnly+vbExclamation,”警告”txtItem(intCount).SeFocus Exit Sub End If Next intCount If gintTmode=1 Then 判断是否有相同ID 记录 txtSQL=” select*from r

25、oomtype where typeid_ = ” &Trim(txtItem(0)&” ” Set mrc=ExecuteSQL(txtSQL,MsgText) If mrc.EOF=False Then MsgBox “已经存在此标准编号的记录! ” ,vbOKOnly+vbExclamation,”警告” txtItem(0).SetFocus Exit Sub End If Mrc.Close End If 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 27 页

26、 - - - - - - - - - txtSQL=”select * from roomtype where typeid”&Trim(txtItem(0)&”and typename=” &Trim(txtItem(1)&” Set mrc=ExecuteSQL(txtSQL,MsgText) If mrc.EOF=False Then MsgBox”已经存在相同客房标准的记录! ”,vbOKOnly+vbExclamation,“警告” txtItem(1).Setfocus Exit Sub End If txtSQL=”delete from roomtype where typei

27、d=” &Trim(txtItem(0)&”删除已有记录 Set mrc=ExecuteSQL(txtSQL,MsgText) txtSQL=”select *from roottype”添加新记录 Set mrc=ExecuteSQL(txtSQL,MsgText) mrc.AddNew For intCount=0 To 3 mrc.Fields(intCount)=Trim(txtItem(intCount) Next intCount For intCount=0 To 3 mrc.Fields(intCount+4)=Trim(Combo1(intCount) Next intCou

28、nt mrc.Fields(8)=Trim(txtItem(4) mrc.Update 更新数据库 mrc.Close if gintTmode=1 Then 判断是否属于添加状态 MsgBox “添加纪录成功! ”,vbOKOnly+vbExclamtion,“添加记录” For intCount=0 To 4 txtItem(intCount)=”清除已经输入的内容 Next intCount For intCount=0 To 3 Combo1(intCount).ListIndex=0 Next intCount mblChange=False判断是否打开窗口 if flagTedit

29、 Then Unload frmRoomtype frmRoomtype.txtSQL=“select *from roomtype” frmRoomtype.Show End If ElseIf gintTmode=2 Then 判断是否处于修改状态 Unload Me If flagTedit Then Unload frmRoomtype EndIf frmRoomtype.txtSQL=”select *from roomtype” frmRoomtype.Show 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精

30、心整理 - - - - - - - 第 9 页，共 27 页 - - - - - - - - - End If End Sub Private Sub txtItem_GotFocus(Index As Integer)文本框获得焦点时触发该事件，即自动选中输入的内容，便于修改txtItem(Index).SelStart=0 txtItem(Index).SelLength=Len(txtItem(Index) End Sub Private Sub cmdExit_Click()单击按钮cmdExit 取消添加信息If mblChange And cmdSave.Enabled Then

31、If MsgBox(“保存当前记录的变化吗？”,vbOKCancel+vbExclamation,”警告” )=vbOK Then 保存 Call cmdSave_Click End If End If Unload Me End Sub Private Sub txtItem_KeyDown(Index As Integer,KeyCode As Integer,Shift_ As Integer) 输入完内容，单击回车键将自动进入下一个文本框，触发文本框的Keydown事件 EnterToTab KeyCode End Sub 修改客房标准窗体的创建Private Sub From_Loa

32、d() ShowTitle ShowData flagTedit=True End Sub Private Sub ShowTitle()调用 showTitle函数，显示表头Dim i As Integer With msgList .Cols=10 .TextMatrix(0,1)=”标准编号” .TextMatrix(0,2)=”标准名称” .TextMatrix(0,3)=”房间面积” .TextMatrix(0,4)=”床位数量” .TextMatrix(0,5)=”是否有空调” .TextMatrix(0,6)=”是否有电话” .TextMatrix(0,7)=”是否有电视” .T

33、extMatrix(0,8)=”是否有卫生间” .TextMatrix(0,9)=”房间单价” .FixedRows=1固定表头 For i=0 To 9 设置各列的对齐方式 .ColAlignment(i)=0 Next i .FillStyle=flexFillRepeat表头项居中名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 27 页 - - - - - - - - - .Col=0 .Row=0 .RowSel=1 .ColSel=.Cols-1 .CellA

34、lignment=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=1 End With End Sub Private Sub ShowData()调用 showData 函数，显示记录列表 Dim i As Integer Set mrc=ExecuteSQL(

35、txtSQL,MsgText)根据需要设置SQL语句，显示需要的记录 With msgList .Rows=1 Do While Not mrc.EOF .Rows=Rows+1 For i=1 To mrc.Fields.Count Select Case mrc.Fields(i-1).Type Case adDBDate .TextMatrix(.Rows-1,i)=Format(mrc.Fields(i-1)&” , ”yyyy-mm-dd”) Case Else .TextMatrix(.Rows-1,i)=mrc.Fields(i-1)&” End Select Next i Mr

36、c.MoveNext Loop End With mrc.Close End Sub Private Sub msgList_MouseUp(Button As Integer,Shift As Integer,x As Single,y As Single)选择记录，然后单击鼠标右键，触发MouseUp事件 If Button=2 And Shift=0 Then PopupMenu fMainFrom.menuRoomtype End If 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - -

37、 - 第 11 页，共 27 页 - - - - - - - - - End Sub Private Sub menuModifyroomtype_Click() Dim intCount As Integer If flagTedit Then 判断是否打开记录窗体 If frmRoomtype.msgList.Rows1 Then fintTmode=2设置为修改状态 intCount=frmRoomtype.msgList.Row记下选择记录 frmRoomtype1.txtSQL=”select*from roomtype where typeid” &Trim(frmRoomtype

38、.msgList.TextMatrix(intCount,1)&” frmRoomtype1.Show Else Call menuAddroomtype_Click End If Else frmRoomtype.txtSQL=” select*from roomtype” frmRoomtype.Show End If End Sub Private Sub From_Resize()窗体变化时，调整标签和表格位置，使标签处于窗体的最上方，而表格始终处于标签下方 If Me.WindowStatevbMinimized And fMainFrom.WindowStatevbMinimize

39、d Then边界处理 If Me.Scaleheight10*lblTitle.Height Then Exit Sub End If If Me.ScaleWidth1 Then 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 27 页 - - - - - - - - - If MsgBox(“真的要删除这条文件记录么？”，vbOKCancel+vbExclamation,”警告” )=vbOK Then intCount=frmRoomtype.msgList.Ro

40、w txtSQL=”delete from roomtype where typeid”&Trim(frmRoomtype.msgList.TextMatrix(intCount,1)&” Set mrc=ExecuteSQL(txtSQL,MsgText) Unload frmRoomtype关闭记录窗体 frmRoomtype.txtSQL=”select*from roomtype”重新选择所有记录 frmRoomtype.Show End If End If End If End Sub 客房信息管理模块的创建客房信息管理模块主要实现如下功能：添加客房信息修改客房信息删除客房信息查询客

41、房信息具体实现代码如下：Private Sub From_Load()载入窗体时，自动添加客房信息种类 Dim sSql As String Dim intCount As Integer Dim MsgText As String Dim mrcc As ADODB.Recordset If gintRmode=1 Then 判断是否处于添加状态 Me.Caption=me.Caption&“添加” txtSQL=”select DISTINCT typename from roomtype” Set mrc=ExecuteSQL(txtSQL,MsgText) If Not mrc.EOF

42、 Then Do While Not mrc.EOF cboItem(0).AddItem Trim(mrc.Fields(0) mrc.MoveNext Loop cboItem(0).ListIndex=0显示记录内容 Else MsgBox “请先进行客房标准设置! ”,vbOKOnly+vbExclamation,“警告” cmdSave.Enabled=False Exit Sub End If mrc.Close ElseIf gintRmode=2 Then 判断是否处于修改状态 Set mrcc=ExecuteSQL(txtSQL,MsgText)设置 SQL语句显示当前选择记

43、录 If mrcc.EOF=False Then 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 27 页 - - - - - - - - - With mrcc txtItem(0)=.Fields(0) For intCount=1 To 2 If Not IsNull(.Fields(intCount+1)Then判断内容是否为空 txtItem(intCount)=.Fields(intCount+1) End If Next intCount txtItem(

44、3)=.Fields(5) 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“请先进行客房标准设置! ”,vbOKOnly+vbExclamation,“警告” cmdSave.Enabled=False Exit Su

45、b End If mrc.Close End With End If mrcc.Close Me.Caption=Me.Caption&“修改” End If mblChange=False End Sub Private Sub cmdSave_Click()单击保存按钮触发事件 Dim intCount As Integer Dim sMeg As String Dim mrcc As ADODB.Recordset Dim Msgtext As String For intCount=0 To 3 If Trim(TxtItem(intCount)&” )= ” Then Select

46、Case intCount Case 0 sMeg=“客房编号” Case 1 sMeg=“客房位置” End Select 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 14 页，共 27 页 - - - - - - - - - sMeg=sMeg&“不能为空！” MsgBox sMeg,vbOKOnly+vbExclamation,“警告” txtItem(intCount).SetFocus Exit Sub End If Next intCount If gintRmode

47、=1 Then判断是否有重复记录 txtSQL=”select * from rooms where roomNO=” &Trim(txtItem(0)&” Set mrc=ExecuteSQL(txtSQL,msgText) If mrc.EOF=False Then MsgBox “已经存在此客房编号的记录！”,vbOKOnly+vbExclamation,“警告” txtItem(0).SetFocus Exit Sub End If mrc.Close End If If gintRmode=2 Then 判断是否处于修改状态 txtSQL=”delete from rooms whe

48、re roomNO=” &Trim(txtItem(0)&” Set mrc=ExecuteSQL(txtSQL,MsgText) End If txtSQL=”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 2 If Trim(txtItem(intCount)&” )= ” Then mrc.Fields(intCount+

49、1)=Null Else mrc.Fields(intCount+1)=Trim(txtItem(intCount) End If Next intCount mrc.Fields(4)=” mrc.Fields(5)=Trim(txtItem(3) mrc.Update mrc.Close If gintRmode=1 Then For intCount=0 To 3 txtItem(intCount)=” Next intCount mblChange=False If flagRedit Then Unload frmRoom frmRoom.txtSQL=”select*from ro

50、oms”重新显示数据名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 15 页，共 27 页 - - - - - - - - - frmRoom.Show End If ElseIf gintRmode=2 Then Unload Me If flagRedit Then Unload frmRoom End If frmRoom.txtSQL=”select*from rooms” frmRoom.Show End If End Sub 修改客房信息Private Sub menuM