【正文】 飛機(jī) Call (, 2) If 0 Then = 1 () 39。處理返程線路交通信息，情況與回程相似 Call (, 2) If 0 Then = 0 39。顯示機(jī)票價(jià)格 lblprice1 = Else 39。讀取飛機(jī)信息 () 39。顯示車票類型和票價(jià) Select Case Case 1 lbltype1 = 硬座 lblprice1 = Case 2 附錄 48 lbltype1 = 軟座 lblprice1 = Case 3 lbltype1 = 硬臥 lblprice1 = Case 4 lbltype1 = 軟臥 lblprice1 = End Select Else 39。讀取火車信息 () 39。讀取線路火車信息 Call (, 1) 39。 As 用餐類型 , _ + As 用餐次數(shù) , * As 價(jià)格 _ + FROM Restaurant r, lres l, Area a WHERE = + Trim() _ + And = And = And =2 SetresAmt End Sub Private Sub Refresh_lamuse() = SELECT As 所在地域 , As 娛樂廳名稱 , _ + As 娛樂項(xiàng)目 , As 娛樂次數(shù) , * As 價(jià)格 _ + FROM Amusement a, AmuseItem i, lamuse l, Area a1 WHERE = _ + Trim() + And = And = And = SetAmuseAmt End Sub Private Sub Load_traffic(ByVal TmpFlag As Integer) If TmpFlag = 1 Then 39。 As 用餐類型 , As 用餐次數(shù) , * As 價(jià)格 _ + FROM Restaurant r, lres l, Area a WHERE = + Trim() _ + And = And = And =1 UNION _ + SELECT As 所在地域 , As 餐廳名稱 , 39。 As 房間類型 , _ + As 住宿天數(shù) , * As 價(jià)格 _ + FROM Hotel h, lhotel l, Area a WHERE = + Trim() _ + And = And = And =4 附錄 47 SetHotelAmt End Sub Private Sub Refresh_lres() = SELECT As 所在地域 , As 餐廳名稱 , _ + 39。 As 房間類型 , _ + As 住宿天數(shù) , * As 價(jià)格 _ + FROM Hotel h, lhotel l, Area a WHERE = + Trim() _ + And = And = And =3 UNION _ + SELECT As 所在地域 , As 賓館名稱 , 39。 As 房間類型 , _ + As 住宿天數(shù) , * As 價(jià)格 _ + FROM Hotel h, lhotel l, Area a WHERE = + Trim() _ + And = And = And =2 UNION _ + SELECT As 所在地域 , As 賓館名稱 , 39。 As 房間類型 , As 住宿天數(shù) , * As 價(jià)格 _ + FROM Hotel h, lhotel l, Area a WHERE = + Trim() _ + And = And = And =1 UNION _ + SELECT As 所在地域 , As 賓館名稱 , 39。成人線路 = SELECT As 所在地域 , As 景點(diǎn)名稱 , _ + As 票價(jià) FROM Place p, lplace l, Area a WHERE = _ + Trim() + And = And = End If SetPlaceAmt End Sub Private Sub Refresh_lhotel() = SELECT As 所在地域 , As 賓館名稱 , _ + 39。檢查保險(xiǎn) If Val(txtInsFee) 0 Then MsgBox 保險(xiǎn)費(fèi)應(yīng)大于 0 = 0 = Len(Trim(txtInsFee)) Check = False 附錄 46 Exit Function End If End With Check = True End Function Private Sub Refresh_lplace() If = 0 Then 39。檢查行程天數(shù) If Val(txtDays) = 0 Then MsgBox 請(qǐng)輸入行程天數(shù) = 0 = Len(Trim(txtDays)) Check = False Exit Function End If 39。把所在地域的旅游線路裝入列表中 Xl_refresh End Sub Private Sub List1_click() Curlid = () End Sub Public Modify As Boolean Public Function Check() As Boolean With MyLine 39。設(shè)置地域類型 = 0 39。根據(jù)地域編號(hào) TmpId，讀取指定地域的所有線路 (TmpId) i = 0 39。否則進(jìn)入用戶編輯窗體，編輯自己的用戶信息 With FrmUserEdit .OriUser = .txtUserName = .txtPass = .txtPass2 = .txtEname = . = False .Modify = True .Show 1 End With End If End Sub 旅游線路管 代碼： 代碼如下： Public Curlid As Long Private Sub Xl_refresh() 附錄 43 Dim i As Integer Dim TmpId As Long 39。關(guān)閉自己 Unload Me End Sub 主窗口代碼如下 Private Sub Form_Load() 1 End Sub Private Sub Image1_Click() End Sub Private Sub ImgExit_Click() End End Sub Private Sub lblLine_Click() 1 End Sub Private Sub Lblplane_Click() 1 End Sub Private Sub lblamuse_Click() 1 End Sub Private Sub lblarea_Click() 1 End Sub 附錄 42 Private Sub lblexit_Click() DBapi_Disconnect End End Sub Private Sub lblhotel_Click() 1 End Sub Private Sub lblplace_Click() 1 End Sub Private Sub lblres_Click() 1 End Sub Private Sub lbltrain_Click() 1 End Sub Private Sub lblUsers_Click() 39。判斷密碼是否正確 (NameKey) If PasswordKey Then 附錄 41 MsgBox 密碼錯(cuò)誤 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。數(shù)據(jù)有效性檢查 If txtUser = Then MsgBox 請(qǐng)輸入用戶名 Exit Sub End If If txtPwd = Then MsgBox 請(qǐng)輸入密碼 Exit Sub End If NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) 39。 [2] 薩師煊 ,王珊 . 數(shù)據(jù)庫(kù)系統(tǒng)概論 [M] . 北京 :高等教育出版社 ,2021。本系統(tǒng)用 VB 編寫客戶端 ,以 SQL Server 為服務(wù)端 .。但是通過本次的畢業(yè)設(shè)計(jì)，對(duì)于系統(tǒng)的開發(fā)設(shè)計(jì)過程有了更深刻的理解，復(fù)習(xí)并強(qiáng)化了 信嬉戲統(tǒng)開發(fā)、軟件開發(fā)、數(shù)據(jù)庫(kù)等專業(yè)知識(shí)，并在實(shí)踐中考察了旅游管理體系、旅游管理系統(tǒng)的重要作用和優(yōu)劣標(biāo)準(zhǔn)。實(shí)時(shí)性強(qiáng)，性能穩(wěn)定可靠。 本 旅游 管理系統(tǒng)按照國(guó)家 旅游 管理標(biāo)準(zhǔn)，吸收了國(guó)際上流行的 旅游 管理模式，本 旅游 管理系統(tǒng)功能強(qiáng)大，包括 旅游 完整的前后臺(tái)管理功能。對(duì)系統(tǒng)進(jìn)行測(cè)試，主要是檢查系統(tǒng)在開發(fā)時(shí)是否出現(xiàn)錯(cuò)誤，通過不同的測(cè)試手段，使所開發(fā)的系統(tǒng)能更好的運(yùn)行xx 大學(xué) 2021屆成人 本科生畢業(yè)設(shè)計(jì)（論文） 38 第六章 總結(jié) 在當(dāng)今信息時(shí)代，現(xiàn)代化節(jié)奏越來越快，市場(chǎng)競(jìng)爭(zhēng)日趨激烈， 旅游 業(yè)如何面向市場(chǎng)，如何提高現(xiàn)代化管理水平，如何面臨與國(guó)際接軌 ......現(xiàn) 代化的酒店管理系統(tǒng)將成為 旅游業(yè)的唯一選擇。 本章主要進(jìn)行了系統(tǒng)的實(shí)施和測(cè)試。系統(tǒng)測(cè)試要在系統(tǒng)的實(shí)際運(yùn)行環(huán)境現(xiàn)場(chǎng)，在用戶的直接參與下進(jìn)行。 最后進(jìn)行系統(tǒng)測(cè)試。 經(jīng)過組裝測(cè)試，軟件已裝配完畢，接下來進(jìn)行確認(rèn)測(cè)試，將整個(gè)系統(tǒng)作為測(cè)試對(duì)象，采用的是黑盒測(cè)試方法。測(cè)試時(shí)采用了黑盒測(cè)試方法。 其錯(cuò)誤主要在于表中的字段設(shè)置了主建不能為空，其較好的是寫法： Private Sub cmdUpdate_Click() If =”” then MsgBox 請(qǐng)輸入姓名！ End if = End Sub 這樣的寫法就能避免程序報(bào)錯(cuò)。 對(duì) 登錄 模塊進(jìn)行測(cè)試的時(shí)候出現(xiàn)了模塊調(diào)用的錯(cuò)誤，具體錯(cuò)誤如下： Private Sub cmdUpdate_Click() = End Sub 當(dāng)運(yùn)行文件時(shí)系統(tǒng)報(bào)錯(cuò)如下 : 由于該字段中的 Required 屬性設(shè)置為真字段‘ 用戶表 .用戶名 ’不能包含 NULL 值。登錄過程需要完成以下任務(wù)： 1. 根據(jù)用戶名和密碼來判斷是否可能進(jìn)入系統(tǒng)； 2. 根據(jù)用戶類型決定用戶擁有的權(quán)限。 xx 大學(xué) 2021屆成人 本科生畢業(yè)設(shè)計(jì)（論文）