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