【導(dǎo)讀】力和人力，有利于賓館提高工作效率和賓館效益。面對(duì)龐大的信息量，賓館在正。統(tǒng)及時(shí)了解保個(gè)環(huán)節(jié)中信息的變更，有利于提高管理的效率.通過(guò)這樣的系統(tǒng)，本課題數(shù)據(jù)庫(kù)采用的是SQLServer2021，通過(guò)建立數(shù)據(jù)源，VB與后臺(tái)的數(shù)。據(jù)庫(kù)連接來(lái)運(yùn)行。1）系統(tǒng)部分：主要完成安全權(quán)限。論文主要介紹了本課題的開(kāi)發(fā)背景，所要完成的功能和開(kāi)發(fā)的過(guò)程。說(shuō)明了系統(tǒng)設(shè)計(jì)的重點(diǎn)，設(shè)計(jì)思想、難點(diǎn)技術(shù)和解決方案。通過(guò)這樣的系統(tǒng)，我們可以做到信息的規(guī)范管理和快速查詢，實(shí)現(xiàn)了客房信

　　

【正文】 en 39。單人間 . = 0 Else 39。雙人間 . = 1 End If .txtRoomRate = !RoomRate .Show vbModal End With End If End Sub Private Sub cmdExit_Click() 39。退出窗體 Unload Me End Sub Private Sub Form_Load() 39。顯示在主窗體的中央 = ( ) / 2 = ( ) / 4 dtgRoomRefresh End Sub 2. 修改客房信息 選擇“客房信息管理 |設(shè)置客房信息 |修改客房信息”菜單，將出現(xiàn)如圖所示的體。 修改客房信息窗體 窗體中放置了一個(gè)表格控件，所有客房記錄都顯示在里面。選擇需要修改的記錄，在如圖 121 所示的彈出式菜單中選擇“修改客房信息”，出現(xiàn)圖窗體，然后進(jìn)行修改。 Option Explicit Private Sub dtgRoomRefresh() With 39。綁定 Set .DataSource = .AllowRowSizing = False 39。表頭寬度設(shè)為兩行 .HeadLines = 2 39。選擇方式為整行選中 .MarqueeStyle = dbgHighlightRow 39。不允許修改（設(shè)為只讀） .AllowAddNew = False .AllowDelete = False .AllowUpdate = False 39。第一列標(biāo)題和寬度 .Columns(0).Caption = 房間編號(hào) .Columns(0).Width = 60 .Columns(0).AllowSizing = False 39。第二列標(biāo)題和寬度 .Columns(1).Caption = 房間級(jí)別 .Columns(1).Width = 80 .Columns(1). = 5 .Columns(1). = 標(biāo)準(zhǔn)間 .Columns(1). = 豪華間 .Columns(1). = 未知 .Columns(1).AllowSizing = False 39。第三列標(biāo)題和寬度 .Columns(2).Caption = 房間類型 .Columns(2).Width = 80 .Columns(2). = 5 .Columns(2). = 單人間 .Columns(2). = 雙人間 .Columns(2). = 未知 .Columns(2).AllowSizing = False 39。第四列標(biāo)題和寬度 .Columns(3).Caption = 房間價(jià)格 (元 ) .Columns(3).Width = 80 .Columns(3).AllowSizing = False 39。.Columns(4).Visible = False .Columns(4).Caption = 狀態(tài) .Columns(4).Width = 40 .Columns(4). = 5 .Columns(4). = 在住 .Columns(4). = 空房 .Columns(4). = 未知 .Columns(4).AllowSizing = False End With End Sub Private Sub cmdAddNew_Click() With frmRoomInfoEdit 39。窗體標(biāo)題 .Caption = 添加新客房 39。清空班級(jí)編號(hào)并設(shè)為可修改 . = False . = 39。默認(rèn)班級(jí)類型為第一項(xiàng) If . = 0 Then . = 1 Else . = 0 End If 39。默認(rèn)教師為第一項(xiàng) If . = 0 Then . = 1 Else . = 0 End If .txtRoomRate = 39。顯示為模式窗體 .Show vbModal End With End Sub Private Sub cmdDelete_Click() With If .EOF True And .BOF True Then If !RoomStatus Then MsgBox 當(dāng)前房間有客人居住，您不能刪除該房間！ , vbOKOnly + vbInformation, 提示 Exit Sub End If If MsgBox( 確 認(rèn) 要 刪 除 當(dāng) 前 記 錄 嗎 ？ , vbYesNo + vbQuestion + vbDefaultButton2, 確認(rèn)框 ) = vbYes Then .Delete End If End If End With Exit Sub End Sub Private Sub cmdEdit_Click() If True And True Then With frmRoomInfoEdit 39。窗體標(biāo)題 .Caption = 修改客房信息 39。學(xué)員編號(hào)，設(shè)為不可修改 . = !RoomNo . = True If !RoomGrade Then 39。標(biāo)準(zhǔn)間 . = 0 Else 39。豪華間 . = 1 End If If !RoomType Then 39。單人間 . = 0 Else 39。雙人間 . = 1 End If .txtRoomRate = !RoomRate .Show vbModal End With End If End Sub Private Sub cmdExit_Click() 39。退出窗體 Unload Me End Sub Private Sub Form_Load() 39。顯示在主窗體的中央 = ( ) / 2 = ( ) / 4 dtgRoomRefresh End Sub 3. 刪除客房信息 在客房記錄列表中選擇記錄，然后選擇菜單中的“產(chǎn)出房間信息”，將刪除當(dāng)前記錄， Option Explicit Private Sub dtgRoomRefresh() With 39。綁定 Set .DataSource = .AllowRowSizing = False 39。表頭寬度設(shè)為兩行 .HeadLines = 2 39。選擇方式為整行選中 .MarqueeStyle = dbgHighlightRow 39。不允許修改（設(shè)為只讀） .AllowAddNew = False .AllowDelete = False .AllowUpdate = False 39。第一列標(biāo)題和寬度 .Columns(0).Caption = 房間編號(hào) .Columns(0).Width = 60 .Columns(0).AllowSizing = False 39。第二列標(biāo)題和寬度 .Columns(1).Caption = 房間級(jí)別 .Columns(1).Width = 80 .Columns(1). = 5 .Columns(1). = 標(biāo)準(zhǔn)間 .Columns(1). = 豪華間 .Columns(1). = 未知 .Columns(1).AllowSizing = False 39。第三列標(biāo)題和寬度 .Columns(2).Caption = 房間類型 .Columns(2).Width = 80 .Columns(2). = 5 .Columns(2). = 單人間 .Columns(2). = 雙人間 .Columns(2). = 未知 .Columns(2).AllowSizing = False 39。第四列標(biāo)題和寬度 .Columns(3).Caption = 房間價(jià)格 (元 ) .Columns(3).Width = 80 .Columns(3).AllowSizing = False 39。.Columns(4).Visible = False .Columns(4).Caption = 狀態(tài) .Columns(4).Width = 40 .Columns(4). = 5 .Columns(4). = 在住 .Columns(4). = 空房 .Columns(4). = 未知 .Columns(4).AllowSizing = False End With End Sub Private Sub cmdAddNew_Click() With frmRoomInfoEdit 39。窗體標(biāo)題 .Caption = 添加新客房 39。清空班級(jí)編號(hào)并設(shè)為可修改 . = False . = 39。默認(rèn)班級(jí)類型為第一項(xiàng) If . = 0 Then . = 1 Else . = 0 End If 39。默認(rèn)教師為第一項(xiàng) If . = 0 Then . = 1 Else . = 0 End If .txtRoomRate = 39。顯示為模式窗體 .Show vbModal End With End Sub Private Sub cmdDelete_Click() With If .EOF True And .BOF True Then If !RoomStatus Then MsgBox 當(dāng)前房間有客人居住，您不能刪除該房間！ , vbOKOnly + vbInformation, 提示 Exit Sub End If