vb課程設(shè)計-酒店管理系統(tǒng)(編輯修改稿)
2024-12-11 19:15 本頁面
【文章內(nèi)容簡介】 以利用工具欄中的 picturebox 控件來改變窗體的背景圖案。如下圖 10 所示。 沈 陽 大 學 課程 設(shè)計說明書 圖 9 添加旅客信息的創(chuàng)建 圖 10 添加退房信息的創(chuàng)建 沈 陽 大 學 課程 設(shè)計說明書 4 系統(tǒng)運行結(jié)果 在如圖 11 所示的登錄頁面上輸入用戶名和密碼，點擊進入，就進入到如圖 12 所示的酒店客房管理系統(tǒng)的主頁面中。 圖 11 輸入用戶名和密碼 圖 12 酒店客房管理系統(tǒng)主頁面 沈 陽 大 學 課程 設(shè)計說明書 在主頁面，可以根據(jù)需要進行如圖 13 和 14 所示的添加 旅客信息和添加退房信息的操作。 圖 13 添加旅客信息運行頁面 圖 14 添加退房信息的運行頁面 沈 陽 大 學 課程 設(shè)計說 明書 5 總結(jié) 課程設(shè)計是培養(yǎng)學生綜合運用所學知識 ,發(fā)現(xiàn) ,提出 ,分析和解決實際問題 ,鍛煉實踐能力的重要環(huán)節(jié) ,是對學生實際工作能力的具體訓練和考察過程。 通過這次課程設(shè)計使我懂得了理論與實際相結(jié)合是很重要的，只有理論知識是遠遠不夠的，只有把所學的理論知識與實踐相結(jié)合起來，從理論中得出結(jié)論，才能真正為社會服務(wù)，從而提高自己的實際動手能力和獨立思考的能力。在設(shè)計的過程中遇到問題，可以說得是困難重重，遇到了各種各樣的問題，在設(shè)計的過程中也發(fā)現(xiàn)了自己的不足之處，對以前所學過 的知識理解得不夠深刻，掌握得不夠牢固。 通過這次課程設(shè)計，我的專業(yè)能力和綜合素質(zhì)都得到了提升，同時也讓我對今后的學習、工作充滿了激情和期待。 6 參考文獻 [1] 劉天惠 . Visual Basic程序設(shè)計教程 [M].北京 :清華大學出版社 , [2] 劉新民 ,蔡瓊 ,白康生 .Visual Basic 程序設(shè)計 [M].北京 :清華大學出版社 , [3] 周升 ,李靜 .Visual Basic 程序設(shè)計藝術(shù) [M].南京 :南京大學出版社 , [4] 李微 ,周見明 .Visual Basic 數(shù)據(jù)庫 開發(fā)應用 .[M].上海 :上海交大出版社 , [5] 魏知名 ， 李密 .Visual Basic 應用開發(fā) 100 例 .[M].天津 :天津大學出版社 ， [6] 蔣伏加 ,Visual Basic 程序設(shè)計教程 [M].北京 :北京郵電大學出版社， [7] 曾強聰 ,Visual 程序設(shè)計教程 [M].北京 :中國水利水電出版社 , 7 附錄 酒店 客房管理系統(tǒng)程序代碼 Private Sub CmdOK_Click() Dim s1 As String Dim i As Integer Dim j As Integer Dim a(18) As String j = Len() s1 = 沈 陽 大 學 課程 設(shè)計說明書 Dim c As Integer c = 1 For i = 1 To j a(i) = Mid(s1, i, 1) 39。逐一判斷字符的合格化 If a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = ~ Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = , Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = 39。 Then MsgBox Error, vbOKOnly, Error 沈 陽 大 學 課程 設(shè)計說明書 Exit Sub End If c = c + 1 Next i Dim strusername As String Dim strpassword As String Static intlogintimes As Integer If Trim() = Then MsgBox 用戶名不能為空！ , vbOKOnly + vbCritical, 錯誤 Exit Sub End If opentable adousers, usersinfo
公司管理相關(guān)推薦
鄂ICP備17016276號-1