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