vb課程設計--基于vb的賓館信息管理系統(tǒng)(編輯修改稿)
2025-02-12 05:27 本頁面
【文章內(nèi)容簡介】 5中用戶可以得到賓館的信息，也可以進行添加，修改，查詢數(shù)據(jù)庫中其他賓館信息。 總結(jié)和展望 本賓館信息管理系統(tǒng)是使用Visual + Access2003做為開發(fā)工具，基于C/S（客戶端/服務器端）模式下的小型管理系統(tǒng)。其功能特點都是針對當前旅游或出差過程中游客入住賓館時根據(jù)各人要求不同而提前選擇賓館，以及了解價格提前預定而設計，界面友好便于操作。與賓館信息管理系統(tǒng)相比針對性更強，便于移植修改。不足是功能上可以更加完善，安全性、保密性有待加強。用戶在選擇賓館之前可以先輸入用戶名和密碼，進入登陸界面。然后根據(jù)界面中輸入的信息，用戶可以選擇相應的賓館，也可以多家賓館進行比較，擇優(yōu)選擇。通過賓館提供的信息，提前預定。信息通訊技術在信息管理領域的快速發(fā)展,傳統(tǒng)管理系統(tǒng)正面臨著革命性的變化。基于C/S 結(jié)構(gòu)的賓館信息管理系統(tǒng)使用方便,維護簡單,不僅大大節(jié)省了人力資源,提高了工作效率,更有利于房客在入住方面更多的了解，比較，尤其在旅游的高峰期提前預定房間也給游客提供了極大地便利，具有一定的推廣前景使用價值。 附源代碼Public PasswordKey As StringPublic NameKey As StringPublic Try_times As IntegerPrivate Sub Cmd_Cancel_Click() EndEnd SubPrivate Sub Cmd_OK_Click() Dim j As Single 39。數(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。判斷用戶是否存在 If (NameKey) = False Then MsgBox 用戶名不存在 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關閉 DBapi_Disconnect End Else Exit Sub End If End If 39。判斷密碼是否正確 (NameKey) If PasswordKey Then MsgBox 密碼錯誤 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關閉 DBapi_Disconnect End Else Exit Sub End If End If 39。登錄成功，將當前用戶的信息保存在CurUser中 () 39。關閉自己 Unload MeEnd SubPublic Modify As BooleanPublic OriId As LongPublic OriAreaName, OriHotelName As StringPublic OriType As IntegerPrivate 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 = TrueEnd FunctionPrivate Sub Cmd_OK_Click() ‘檢查用戶輸入的地域數(shù)據(jù)是否有效 If Check = False Then Exit
高考資料相關推薦
鄂ICP備17016276號-1