酒店管理系統(tǒng)—免費畢業(yè)設(shè)計(文件)

　

【正文】 aption = 添加新客房 39。顯示為模式窗體 .Show vbModal End With End Sub Private Sub cmdDelete_Click() With If .EOF True And .BOF True Then If !RoomStatus Then MsgBox 當前房間有客人居住，您不能刪除該房間！ , vbOKOnly + vbInformation, 提示 Exit Sub End If If MsgBox(確認要刪除當前記錄嗎？ , vbYesNo + vbQuestion + vbDefaultButton2, 確認框 ) = 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。豪華間 . = 1 End If If !RoomType Then 39。顯示在主窗體的中央 = ( ) / 2 = ( ) / 4 dtgRoomRefresh End Sub 2. 修改客房標準窗體的創(chuàng)建 選擇“客房信息管理 |設(shè)置客房標準 |修改客房標準”菜單，將出現(xiàn)如圖所示的窗體，窗體中放置一個表格控件。表頭寬度設(shè)為兩行 .HeadLines = 2 39。第二列標題和寬度 .Columns(1).Caption = 房間級別 .Columns(1).Width = 80 .Columns(1). = 5 .Columns(1). = 標準間 .Columns(1). = 豪華間 .Columns(1). = 未知 .Columns(1).AllowSizing = False 39。 Trim() amp。選擇相應(yīng)記錄，單擊鼠標 右鍵，選擇彈出式菜單，將刪除當前記錄， 客房信息管理模塊主要實現(xiàn)功能： 添加客房信息； 修改客房信息 ； 刪除客房信息 ； 查詢客房信息。 載入窗體時，將自動添加客房種類信息， Option Explicit Private Sub dtgRoomRefresh() With 39。不允許修改（設(shè)為只讀） .AllowAddNew = False .AllowDelete = False .AllowUpdate = False 39。第四列標題和寬度 .Columns(3).Caption = 房間價格 (元 ) .Columns(3).Width = 80 .Columns(3).AllowSizing = False 39。默認班級類型為第一項 If . = 0 Then . = 1 Else . = 0 End If 39。學(xué)員編號，設(shè)為不可修改 . = !RoomNo . = True If !RoomGrade Then 39。雙人間 . = 1 End If .txtRoomRate = !RoomRate .Show vbModal End With End If End Sub Private Sub cmdExit_Click() 39。選擇需要修改的記錄，在如圖 121 所示的彈出式菜單中選擇“修改客房信息”，出現(xiàn)圖窗體，然后進行修改。選擇方式為整行選中 .MarqueeStyle = dbgHighlightRow 39。第三列標題和寬度 .Columns(2).Caption = 房間類型 .Columns(2).Width = 80 .Columns(2). = 5 .Columns(2). = 單人間 .Columns(2). = 雙人間 .Columns(2). = 未知 .Columns(2).AllowSizing = False 39。清空班級編號并設(shè)為可修改 . = False . = 39。窗體標題 .Caption = 修改客房信息 39。單人間 . = 0 Else 39。綁定 Set .DataSource = .AllowRowSizing = False 39。第一列標題和寬度 .Columns(0).Caption = 房間編號 .Columns(0).Width = 60 .Columns(0).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。默認教師為第一項 If . = 0 Then . = 1 Else . = 0 End If .txtRoomRate = 39。清空班級編號并設(shè)為可修改 . = False . = 39。第三列標題和寬度 .Columns(2).Caption = 房間類型 .Columns(2).Width = 80 .Columns(2). = 5 .Columns(2). = 單人間 .Columns(2). = 雙人間 .Columns(2). = 未知 .Columns(2).AllowSizing = False 39。選擇方式為整行選中 .MarqueeStyle = dbgHighlightRow 39。退出窗體 Unload Me End Sub Private Sub Form_Load() 39。標準間 . = 0 Else 39。默認教師為第一項 If . = 0 Then . = 1 Else . = 0 End If .txtRoomRate = 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。第一列標題和寬度 .Columns(0).Caption = 房間編號 .Columns(0).Width = 60 .Columns(0).AllowSizing = False 39。綁定 Set .DataSource = .AllowRowSizing = False 39。顯示在主窗體的中央 = ( ) / 2 = ( ) / 4 dtgRoomRefresh End Sub 2. 修改客房信息 選擇“客房信息管理 |設(shè)置客房信息 |修改客房信息”菜單，將出現(xiàn)如圖所示的體。豪華間 . = 1 End If If !RoomType Then 39。顯示為模式窗體 .Show vbModal End With End Sub Private Sub cmdDelete_Click() With If .EOF True And .BOF True Then If !RoomStatus Then MsgBox 當前房間有客人居住，您不能刪除該房間！ , vbOKOnly + vbInformation, 提示 Exit Sub End If If MsgBox(確認要刪除當前記錄嗎？ , vbYesNo + vbQuestion + vbDefaultButton2, 確認框 ) = 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。窗體標題 .Caption = 添加新客房 39。第二列標題和寬度 .Columns(1).Caption = 房間級別 .Columns(1).Width = 80 .Columns(1). = 5 .Columns(1). = 標準間 .Columns(1). = 豪華間 .Columns(1). = 未知 .Columns(1).AllowSizing = False 39。表頭寬度設(shè)為兩行 .HeadLines = 2 39。 添加客房信息窗體 窗體中各個控件屬性這里就不一一介紹。 39。第四列標題和寬度 .Columns(3).Caption = 房間價格 (元 ) .Columns(3).Width = 80 .Columns(3).AllowSizing = 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 Priv