vb課程設(shè)計--基于vb的賓館信息管理系統(tǒng)-閱讀頁
2025-06-23 05:59本頁面
【正文】 圖 23 主界面 在圖 23 的界面中輸入相應(yīng)信息，也可對界面內(nèi)容進(jìn)行添加，修改，查詢，刪除等功能。用戶 可根據(jù)提供的信息進(jìn)行選擇。 總結(jié)和展望 本賓館信息管理系統(tǒng)是使用 Visual + Access2021 做為開發(fā)工具，基于 C/S（客戶端 /服務(wù)器端）模式下的小型 管理系統(tǒng)。與賓館信息管理系統(tǒng)相比針對性更強(qiáng)，便于移植修改。用戶在選擇賓館之前可以先輸入用戶名和密碼，進(jìn)入登陸界面。通 9 過賓館提供的信息，提前預(yù)定?；?C/S 結(jié)構(gòu)的賓館信息管 理系統(tǒng)使用方便 ,維護(hù)簡單 ,不僅大大節(jié)省了人力資源 ,提高了工作效率 ,更有利于房客在入住方面更多的了解，比較，尤其在旅游的高峰期提前預(yù)定房間也給游客提供了極大地便利，具有一定的推廣前景使用價值。數(shù)據(jù)有效性檢查 If txtUser = Then MsgBox 請輸入用戶名 Exit Sub End If If txtPwd = Then MsgBox 請輸入密碼 Exit Sub End If 將用戶輸入賦值到變量中 NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) 39。判斷密碼是否正確 (NameKey) If PasswordKey Then MsgBox 密碼錯誤 11 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 DBapi_Disconnect End Else Exit Sub End If End If 39。關(guān)閉自己 Unload Me End Sub Public Modify As Boolean Public OriId As Long Public OriAreaName, OriHotelName As String Public OriType As Integer Private Function Check() As Boolean If Trim(txtHotel) = Then MsgBox 請輸入地域名稱 Check = False Exit Function End If If Trim(txtHotel) = Then MsgBox 請輸入賓館名稱 Check = False Exit Function End If Check = True End Function Private Sub Cmd_OK_Click() ‘檢查用戶輸入的地域數(shù)據(jù)是否有效 If Check = False Then Exit Sub End If 12 With MyHotel ‘把用戶輸入的地域數(shù)據(jù)賦值到 MyHotel 對象的成員變量中 .Hname = MakeStr(txtHotel) .Hlevel = .Contact = MakeStr(txtContact) .Phone = MakeStr(txtPhone) .Address = MakeStr(txtAddress) .Postcode = MakeStr(txtCode) .Price1 = Val(txtPrice1) .Price2 = Val(txtPrice2) .Price3 = Val(txtPrice3) .Price4 = Val(txtPrice4) .AreaId = (ComboName) 39。 + Trim() + 39。判斷當(dāng)前記錄是否出現(xiàn)在線路中 If (TmpId) 0 Then MsgBox 此賓館在線路中使用，不能刪除 Exit Sub End If 39。賓館編號 = ((1)) 39。賓館名稱 = Trim((1)) = Trim((1)) 39。聯(lián)系人 16 = Trim((3)) 39。通信地址 = Trim((5)) 39。經(jīng)濟(jì)間報價 = (7) 39。三人間報價 = (9)
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1