酒店客房管理信息系統(tǒng)設計與開發(fā)論文(編輯修改稿)
2025-07-24 22:18 本頁面
【文章內容簡介】 ox 請輸入補交押金的金額！， vbOKOnly + vbExclamation， 錯誤 Exit Sub End If = + Val()Dim rs_bookstyle As New Dim conn As Stringconn = Provider=。Data Source=。Persist Security Info=FalseDim sql As Stringsql = select * from djb where 房號=39。 amp。 amp。 39。 sql， conn， adOpenKeyset， adLockPessimistic(4) = Trim() MsgBox 押金補交成功！， vbOKOnly， = 操作員通過對系統(tǒng)操作查詢客房的相關信息，那么系統(tǒng)會根據已存在的信息提取到客房的使用情況。Private Sub DataReport_Error(ByVal JobType As ， ByVal Cookie As Long， ByVal ErrObj As ， ShowError As Boolean)End SubPrivate Sub Command3_Click() Dim answer As StringOn Error GoTo delerrorDim a As Stringa = (房號)answer = MsgBox(確定要刪除 amp。 a amp。 嗎？， vbYesNo， )If answer = vbYes Then MsgBox 成功刪除！， vbOKOnly + vbExclamation， Else Exit SubEnd Ifdelerror:If 0 Then MsgBox End IfEnd SubPrivate Sub Command1_Click()Dim rs_chang As New If = Then MsgBox 房號不能為空！， vbOKOnly + vbExclamation， 錯誤 Exit SubEnd IfIf = Then MsgBox 類別不能為空！， vbOKOnly + vbExclamation， 錯誤 Exit SubEnd IfIf = Then MsgBox 樓層不能為空！， vbOKOnly + vbExclamation， 錯誤 Exit SubEnd IfIf = Then MsgBox 狀態(tài)不能為空！， vbOKOnly + vbExclamation， 錯誤 Exit SubEnd IfIf = Then MsgBox 標準價不能為空！， vbOKOnly + vbExclamation， 錯誤 Exit SubEnd IfIf = Then MsgBox 容納人數不能為空！， vbOKOnly + vbExclamation， 錯誤 Exit SubEnd If Dim sql As String Dim conn As String conn = Provider=。Data Source=。Persist Security Info=False sql = select * from kf where 房號=39。 amp。 amp。 39。 sql， conn， adOpenKeyset， adLockPessimistic (1) = (2) = (3) = (4) = (5) = MsgBox 修改成功！， vbOKOnly + vbExclamation， = = = = = = End Sub Private Sub Command2_Click()Unload MeEnd SubPrivate Sub DBCombo1_Change() 房號=39。 amp。 amp。 39。 = (類別) = (樓層) = (狀態(tài)) = (單價) = (容納人數)End SubPrivate Sub creat_Click() 39。清空選定表中的數據 = True = UBound(workarea) = For Counter = LBound(workarea) To UBound(workarea) workarea(Counter) = initial value amp。 Counter = Counter Set db = Workspaces(0).OpenDatabase( amp。 \) If = 1 Then sql = delete * from djb sql End If If = 1 Then sql = delete * from kf sql End If If = 1 Then sql = delete * from yd sql End If If = 1 Then sql = delete * from qxsz sql End If Next Counter = False = End Sub數據庫詳細設計 數據庫環(huán)境配置1．軟件支撐環(huán)境本系統(tǒng)采用中文Windows XP平臺，Office 2000中的Access為數據庫，Visual Basic ，軟件開發(fā)在Windows XP平臺下運行，最終產品可脫離Visual Basic ，在Windows 9X/2000/XP平臺下運行。2．硬件支撐環(huán)境CPU：內存：SDR 64M以上顯卡：VGA 16M顯存以上硬盤：50M以上硬盤剩余空間表設計及其關系設置數據庫包含以下4張表：系統(tǒng)用戶表，客房狀態(tài)表，客房預定表，客人入住表。表5 系統(tǒng)用戶表編號字段名稱數據類型說明1用戶名文本，長度為50用戶的登錄名， 必填字段2密碼文本，長度40密碼， 必填字段3權限文本，長度40用戶的權限， 必填字段系統(tǒng)管理員可根據酒店的實際需要，增加系統(tǒng)使用人員，并設置權限。用戶可根據系統(tǒng)管理員提供的用戶名和初始化密碼進入系統(tǒng)，然后可以更改密碼，進行系統(tǒng)操作。表6 客房信息表編號字段名稱數據類型說明1房號數字，整數客房的房號2類別文本，長度為50客房的類別3樓層文本，長度20客房所在的樓層4狀態(tài)文本，長度50客房的狀態(tài)5單價數字，整數客房的單價6容納人數數字，整數客房容納的人數 房信息表是反映酒店客房入住狀態(tài)的重要渠道，通過它我們可以查詢不同類型的客房、不同樓層客房的入住信息，然后通過此信息作出相關的準備工作，同時也可以新建新的客房信息。表7 客房預訂表編號字段名稱數據類型說明1房號數字，整數預定客房的房號2姓名文本，長度50預定客戶的姓名3類別文本，長度50預定客房的類別4標準價數字，整數預定客房的標準價5證件號碼文本，長度50預定客戶的證件號碼6押金數字，整數預定客戶交納的押金7聯(lián)系電話文本，長度50預定客戶的聯(lián)系電話8操作員文本，長度20預定操作的操作員9摘要文本，長度100預定操作的摘要客房預訂表是客人提前預訂酒店客房，方便到時候直接入住，而不需要辦理這樣或者那樣的手續(xù)。而通過本表已經說細記錄了客人的相關信息，包括已經預訂好的房號、類型、價格，同時也記錄了客人的與詳細信息，包括姓名、證件號碼、聯(lián)系電話、摘要等等。表8 客人入住表編號字段名稱數據類型說明1房號數字，整數客人入住的房號2客人姓名文本，長度50入住客人的姓名3標準價數字，整數客人入住客房的價格4押金數字，整數客人交納的押金5類別文本，
法律信息相關推薦
鄂ICP備17016276號-1