酒店管理系統—免費畢業設計-文庫吧在線文庫

　　

【正文】 Else 39。退出整個程序 End If 39。查找用戶名 Name=39。 amp。 1. 添加客房標準窗體的創建 選擇“客房信息管理設置客房標準添加客房標準”菜單，將出現如圖所示的窗體。第一列標題和寬度 .Columns(0).Caption = 房間編號 .Columns(0).Width = 60 .Columns(0).AllowSizing = False 39。默認教師為第一項 If . = 0 Then . = 1 Else . = 0 End If .txtRoomRate = 39。退出窗體 Unload Me End Sub Private Sub Form_Load() 39。第一列標題和寬度 .Columns(0).Caption = 房間編號 .Columns(0).Width = 75 .Columns(0).AllowSizing = False 39。)) dtgRoomQueryRefresh End Sub Private Sub txtRoomNo_KeyPress(KeyAscii As Integer) If (KeyAscii 48 Or KeyAscii 57) And KeyAscii 8 Then KeyAscii = 0 End If End Sub Private Sub Form_Load() = ( ) / 2 = ( ) / 2 OpenTable , select * from Room order by RoomNo,RoomRate dtgRoomQueryRefresh = False = False = False = False = False = False = False End Sub Private Sub Option5_Click() If Then OpenTable , SELECT * From Room where ((()=1)) ElseIf Then OpenTable , SELECT * From Room where ((()=1)) ElseIf Then OpenTable , SELECT * From Room where ((()=1)) End If dtgRoomQueryRefresh End Sub Private Sub Option6_Click() If Then OpenTable , SELECT * From Room where ((()=0)) ElseIf Then OpenTable , SELECT * From Room where ((()=0)) ElseIf Then OpenTable , SELECT * From Room where ((()=0)) End If dtgRoomQueryRefresh End Sub Private Sub optRoomStatus_Click() = False = False = True = 房間狀態 = 在住 = 空房 = False = False End Sub Private Sub optRoomType_Click() = False = False = True = 房間類型 = 單人間 = 雙人間 = False = False End Sub Private Sub optRoomGrade_Click() = False = False = True = 房間級別 = 標準間 = 豪華間 = False = False End Sub Private Sub optRoomNo_Click() = = True = True = False SendKeys {TAB} End Sub 3. 刪除客房標準 選擇 “客房信息管理 |設置客房標準 |刪除客房標準”菜單，將出現記錄列表。選擇方式為整行選中 .MarqueeStyle = dbgHighlightRow 39。清空班級編號并設為可修改 . = False . = 39。單人間 . = 0 Else 39。表頭寬度設為兩行 .HeadLines = 2 39。窗體標題 .Caption = 添加新客房 39。豪華間 . = 1 End If If !RoomType Then 39。不允許修改（設為只讀） .AllowAddNew = False .AllowDelete = False .AllowUpdate = False 39。默認班級類型為第一項 If . = 0 Then . = 1 Else . = 0 End If 39。第四列標題和寬度 .Columns(3).Caption = 房間價格 (元 ) .Columns(3).Width = 80 .Columns(3).AllowSizing = False 39。顯示在主窗體的中央 = ( ) / 2 = ( ) / 4 dtgRoomRefresh End Sub 3. 刪除客房信息 在客房記錄列表中選擇記錄，然后選擇菜單中的“產出房間信息”，將刪除當前記錄， Option Explicit Private Sub dtgRoomRefresh() With 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。第二列標題和寬度 .Columns(1).Caption = 房間級別 .Columns(1).Width = 80 .Columns(1). = 5 .Columns(1). = 標準間 .Columns(1). = 豪華間 .Columns(1). = 未知 .Columns(1).AllowSizing = False 39。 修改客房信息窗體 窗體中放置了一個表格控件，所有客房記錄都顯示在里面。窗體標題 .Caption = 修改客房信息 39。第三列標題和寬度 .Columns(2).Caption = 房間類型 .Columns(2).Width = 80 .Columns(2). = 5 .Columns(2). = 單人間 .Columns(2). = 雙人間 .Columns(2). = 未知 .Columns(2).AllowSizing = False 39。將各種文本框放在窗體的框架中，組成“客房信息”欄。 amp。實施綁定 .AllowRowSizing = False 39。標準間 . = 0 Else 39。.Columns(4).Visible = False .Columns(4).Caption = 狀態 .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。綁定 Set .DataSource = .AllowRowSizing = False 39。沒找到記錄 strUserName = strPassword = End If If strPassword = And = Then !Name = strUserName !Password = NewPassword 39。, , adSearchForward, 1 39。對于每個客房標準，有不同的硬件設施和服務。顯示主窗體 Else 39。 amp。打開數據庫中的 Users 表 39。選中狀態欄控件，單擊鼠標右鍵，選中 Property 菜單，然后設置屬性。 7. 結算信息的修改和查詢，包括客房編號、客房種類 、客房設置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、結算日起、備注信息等。 表 客房標準信息表 列名 數據類型 可否為空 說明 typeid varchar NOT NULL 標準編號 typename varchar NOT NULL 標準名稱 area numeric NULL 房間面積 benumbs numeric NULL 床位數量 haircondition varchar NULL 是否有空調 htelephone varchar NULL 是否有電話 htelevision varchar NULL 是否有電視 htoilet varchar NULL 是否有單獨衛生間 price numeric NULL 單價 表 為客房信息表格 表 客房信息表格 列名 數據類型 可否為空 說明 roomNO varchar NOT NULL 客房編號 roomtypen varchar NOT NULL 客房種類 roomposition varchar NULL 客房位置 roomprice numeric NULL 單價 putup varchar NULL 是否被鎖定 客房信息管理 訂房 結算信息管理 客房結算 訂房信息管理 roommemo text NOT NULL 備注 表 為訂房信息表 表 訂房信息表 列名 數據類型 可否為空 說明 bookno varchar NOT NULL 訂房編號 customname varchar NOT NULL 顧