旅行社酒店預定管理系統(tǒng)畢業(yè)論文word格式-資料下載頁
2025-09-03 10:30本頁面
【導讀】在高節(jié)奏生活的今天，人們整天在各個城市穿梭忙碌著，在過去跑到哪個城市后才能進行預定客房，現(xiàn)在看來是否顯得太麻煩,目前很多酒店都已經(jīng)和旅行社建成互聯(lián)關系，通過它們就能進行酒店客房預訂系統(tǒng)。通過本次設計主要是旅行社通過客戶選擇的酒店，幫客戶進行客房預訂，實現(xiàn)旅行社自行管理的系統(tǒng)。讓客戶足不出戶坐在家里就能預訂出自己想要的客房。微軟公司的VisualBasic，使目前最為廣泛的、易學易用的面向?qū)ο蟮拈_發(fā)工具。VisualBasic，這些控件可用于設計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的運行效率和可靠性。VB是可視化設計具有“所見即所得”的功能。如果需要修改，也可利用鍵盤或鼠標完成，而底層的一些程序代碼可由VB自動生成或修改。VB是事件驅(qū)動編程,在VB中把窗體及控件稱為對象。(響應就是指執(zhí)行一段應用程序，它不沿預定的路徑執(zhí)行，而是在響應不同事件時執(zhí)行不同的代碼
【正文】 密碼驗證部分用戶登錄界面如圖72所示。測試如下： 選擇用戶名后，輸入密碼有誤，則提示“密碼錯誤，請重新輸入！”圖72 用戶登錄界面 結(jié) 論通過這次畢業(yè)設計，同時復習了關于軟件工程以及數(shù)據(jù)庫方面的知識。在整個系統(tǒng)開發(fā)過程中遇到了許多的難題，比如查詢操作中，如何使得數(shù)據(jù)庫中的數(shù)據(jù)保持一致；生成樣式這一功能如何實現(xiàn)；應該把插入圖片放入到系統(tǒng)路徑的文件夾中，否則在別的機器上無法看到插入圖片，必填項的功能如何實現(xiàn)等等問題。數(shù)據(jù)庫經(jīng)過多次修改已逐漸完備。在眾多問題的解決過程中，我不斷地從圖書管借閱相關書籍，從網(wǎng)上搜索信息，從指導老師那里得到點撥，從同學處獲取幫助，終于在這四個月的短暫時間里完成了一個較為完善的酒店預定系統(tǒng)。當然，由于各方面知識的缺乏，這樣一個系統(tǒng)還遠不夠成熟。其中缺陷頗多。比如客戶與管理員之間的溝通還不夠全面，填寫信息各項的格式自己還不會設置等等。這些問題都是需要在以后的學習和工作中需要解決和提高的。 參考文獻1． ：2． . 北京：3． Basic實用培訓教程. 北京：4． Basic課程設計與系統(tǒng)開發(fā)案例. 北京：5． Basic課程設計案例精編. 北京：6． .Visual Basic6數(shù)據(jù)庫處理從入門到精通. 北京：7． Basic . 北京：8．. 北京：9． Basic數(shù)據(jù)庫開發(fā)實例精粹. 北京：10． Basic篇. 北京：11． Basic數(shù)據(jù)庫系統(tǒng)項目開發(fā)實踐. 北京：12．：13．. 北京：14．. 北京：15．. 北京：16．. 北京： 附錄 程序源代碼1. *登錄窗體代碼Private Sub cmdOK_Click()Dim Uname As String Dim Upassword As String If = Then MsgBox 請輸入用戶名。, vbInformation + vbOKOnly, 錯誤 Exit Sub End IfUname = Upassword = 用戶名稱 = 39。 amp。 Uname amp。 39。 If Then MsgBox 沒有這個用戶！請確認用戶名。, vbInformation + vbOKOnly, 錯誤 = 0 = Len(Uname)Exit SubEnd IfIf Upassword (2) Then MsgBox 密碼輸入不正確！請確認密碼。, vbInformation + vbOKOnly, 錯誤 = 0 = Len(Upassword)Exit SubEnd IfUserID = (0) UserName = Uname password = Upassword JDGL = CBool((3)) DDGL = CBool((4)) YWGL = CBool((5))YHGL = CBool((6)) = JDGL = DDGL = YWGL = YHGL = 旅行社酒店預訂系統(tǒng)當前用戶： amp。 UserName Unload Me End Sub2. *酒店信息管理代碼Private Sub Command1_Click()If editing = False Then editing = True = = = 0 = 放棄 = True = False = False = TrueElse If MsgBox(確定取消添加新記錄？, vbQuestion + vbYesNo, 取消？) = vbYes Then editing = False Call DataGrid1_ClickEnd IfEnd IfEnd SubPrivate Sub Command4_Click() If = ThenMsgBox 請輸入酒店名稱！Exit SubEnd IfIf = ThenMsgBox 請輸入酒店地址！Exit SubEnd IfIf = True Then If 0 Then 名稱 = 39。 amp。 amp。 39。 If Not Then MsgBox 該酒店的記錄已經(jīng)存在！將取消添加。, vbInformation + vbOKCancel, 錯誤editing = FalseCall DataGrid1_ClickExit SubEnd IfEnd If (1) = (2) = + 1(3) = adAffectAllChapters Else (1) = (2) = + 1(3) = adAffectAllChapters End Ifediting = FalseCall DataGrid1_ClickEnd SubIf editing = False Thenediting = True = 放棄 = False = True = False = TrueElse If MsgBox(確定取消修改當前記錄？, vbQuestion + vbYesNo, 取消？) = vbYes Then editing = False adAffectAllChapters Call DataGrid1_ClickEnd IfEnd IfEnd SubPrivate Sub Command3_Click()If MsgBox(確定刪除當前記錄？, vbQuestion + vbYesNo, 刪除？) = vbYes Then If Then If 0 Then End If End If Call DataGrid1_Click End IfEnd Sub 致 謝經(jīng)過一個學期的努力，飯店預定系統(tǒng)的開發(fā)暫時告一段落了。在整個軟件的開發(fā)過程中，我學到了不少的知識，也積累了許多關于數(shù)據(jù)庫軟件的開發(fā)經(jīng)驗。在此，感謝我的指導老師趙慶水老師的指導和督促，在整個的開發(fā)步驟上，趙慶水老師給我們列出了詳細的工作計劃，使我們在開發(fā)進程上，不致于茫然。每周一次的師生見面會上，在設計思路和系統(tǒng)功能結(jié)構(gòu)方面，老師給我們提出了許多寶貴的意見，同時不斷地給我們提出更高的要求。另外，感謝在我的畢業(yè)設計過程中給過我?guī)椭乃型瑢W，是大家的努力才得以完成我的這個預定系統(tǒng)。最后衷心感謝四年來辛勤教育我們的老師，感謝朝暮相處的同學！
教學課件相關推薦
鄂ICP備17016276號-1