【導(dǎo)讀】師的指導(dǎo)下進(jìn)行的研究工作及取得的成果。盡我所知，除文中特別加。而使用過的材料。均已在文中作了明確的說明并表示了謝意。除了文中特別加以標(biāo)注引用的內(nèi)容外，本論文。不包含任何其他個(gè)人或集體已經(jīng)發(fā)表或撰寫的成果作品。究做出重要貢獻(xiàn)的個(gè)人和集體，均已在文中以明確方式標(biāo)明。全意識(shí)到本聲明的法律后果由本人承擔(dān)。同意學(xué)校保留并向國(guó)家有關(guān)部門或機(jī)構(gòu)送交論文的復(fù)印件和電子版，允許論文被查閱和借閱。本人授權(quán)大學(xué)可以將本學(xué)位。印或掃描等復(fù)制手段保存和匯編本學(xué)位論文。涉密論文按學(xué)校規(guī)定處理。文科類論文正文字?jǐn)?shù)不少于萬(wàn)字。合國(guó)家技術(shù)標(biāo)準(zhǔn)規(guī)范。摘要旅游信息系統(tǒng)是對(duì)旅游信息資源進(jìn)行管理的，面向現(xiàn)實(shí)的系統(tǒng)。滿足人們對(duì)信息實(shí)時(shí)更新變化的需求。理恰恰為旅游業(yè)提供了一個(gè)更為高效、更為方便的管理方法。基礎(chǔ)上，實(shí)現(xiàn)了通過VB平臺(tái)對(duì)數(shù)據(jù)庫(kù)信息進(jìn)行查找、刪除、增加，修改的功能。因此，旅行社和游客可以通過此平臺(tái)獲取相關(guān)的信息來滿足自己的需要。

　　

【正文】 oadPicture( + \) Dim nodx As Node Set nodx = (, , vs, 旅游信息管理系統(tǒng) , 1) Set nodx = (vs, tvwChild, vsvw, 景點(diǎn)信息管理 , 2) Set nodx = (vs, tvwChild, vsry, 人員信息管理 , 2) Set nodx = (vs, tvwChild, vsjd, 酒店信息管理 , 2) Set nodx = (vsry, tvwChild, qr1, 游客信息 , 3) Set nodx = (vsry, tvwChild, qr2, 導(dǎo)游信息 , 3) Set nodx = (vsry, tvwChild, qr3, 用戶登錄信 息 , 3) End Sub Private Sub Image1_Click() If = True Then = Flase Else = True End If End Sub Private Sub open_Click() On Error Resume Next Dim StrTxt$ 21 = c:\ = Word 文檔 (*.doc)|*.doc|文本文件 _(*.txt)|*.txt| 所有文件 (*.*)|*.* = 2 = Open For Input As 1 If = 0 Then Do While Not EOF(1) Line Input 1, StrTxt Text1 = Text1 + StrTxt + vbCrLf Loop Close 1 End If End Sub Private Sub print_Click() Dim i As Integer End Sub Private Sub save_Click() On Error Resume Next = c:\ = Word 文檔 (*.doc)|*.doc|文本文件 _(*.txt)|*.txt| 所有文件 (*.*)|*.* = *.Txt Open For Output As 2 22 For i = 1 To Len(Text1) Print 2, Mid$(Text1, i, 1) Next i Close 2 End Sub Private Sub Timer1_Timer() Static i As Integer =2800 i = (i + 1) Mod 5 = LoadPicture( amp。 \ amp。 (11 + i) amp。 .jpg) End Sub Private Sub TreeView1_NodeClick(ByVal Node As ) If = 景點(diǎn)信息管理 Then End If If = 游客信息 Then End If If = 導(dǎo)游信息 Then End If If = 用戶登錄信息 Then End If If = 酒店信息管理 Then End If 23 End Sub （ 2）主界面效果圖 主界面設(shè)計(jì)效果如圖 所示： 圖 主界面 景點(diǎn)信息編碼及實(shí)現(xiàn) （ 1）景點(diǎn)信息界面編碼如下： Private SqlCon As New Private SqlRes As New Private SqlCmd As New Private Sub Command1_Click() 39。查找 Dim SqlStr As String = select * from vw Where vsbh =39。 amp。 amp。 39。or vsname=39。 amp。 amp。 39。 SqlStr = If Trim(Text1) Then SqlStr = where vsbh like 39。% + Trim() + %39。 End If If Trim(Text2) Then 24 SqlStr = where vsname like 39。% + Trim() + %39。 End If SqlStr = select * from vw + SqlStr SqlStr, SqlCon, adOpenDynamic, adLockPessimistic If Not Then = SqlRes(vsbh) = SqlRes(vsname) = SqlRes(price) = SqlRes(area) = SqlRes(type) = SqlRes(info) Else MsgBox 沒有此信息 !, vbOKOnly + vbCritical, 警 告 End If End Sub Private Sub Command2_Click() 39。增加 Dim SqlStr As String SqlStr = select * from vw where vsbh=39。 + Trim() + 39。 SqlStr, SqlCon, adOpenDynamic, adLockPessimistic If Not Then SqlRes(vsname) = SqlRes(price) = SqlRes(area) = SqlRes(type) = SqlRes(info) = Else If = Then 25 MsgBox 景點(diǎn)編號(hào)不能為空！ , vbCritical, 提 示 Else SqlRes(vsbh) = SqlRes(vsname) = SqlRes(price) = SqlRes(area) = SqlRes(type) = SqlRes(info) = End If End If End Sub Private Sub Command3_Click() 39。刪除 ret = MsgBox(是否要?jiǎng)h除 + Trim() + 號(hào)景點(diǎn)的記錄？ , vbYesNo, 提示 ) If ret = vbYes Then = SqlCon = delete from vw where vsbh= 39。 + Trim() + 39。 End If End Sub Private Sub Command4_Click() = = 26 = = = End Sub Private Sub Command5_Click() End Sub Private Sub font_Click() On Error Resume Next = cdlCFEffects = = = = = = = End Sub Private Sub Form_Load() Provider=。Persist Security Info=False。Data Source= amp。 amp。 \ = LoadPicture( + \) =False =2 =建筑 建筑 27 湖泊 石刻 山峰 海濱 End Sub Private Sub Form_Resize() , 0, 0, , End Sub Private Sub Form_Unload(Cancel As Integer) End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 1 Command2_Click Case 2 Command3_Click Case 3 Command1_Click Case 4 Command5_Click Case 5 Command4_Click Case 6 End Select End Sub 28 (2)景點(diǎn)信息管理界面 景點(diǎn)信息管理界面如圖 所示： 圖 景點(diǎn)信息管理界面 其他子界面編碼及設(shè)計(jì)效果 游客信息管理界面、導(dǎo)游信息管理界面以及酒店信息管理界面編碼內(nèi)容詳見附錄。 游客信息管理界面如圖 所示： 圖 游客信息界面 29 導(dǎo)游信息管理界面主要實(shí)現(xiàn)導(dǎo)游信息的增加、刪除、修改、添加等功能。其界面設(shè)計(jì)如圖 所示： 圖 導(dǎo)游信息界面 用戶登錄信息界面主要實(shí)現(xiàn)對(duì)用戶名、密碼以及用戶權(quán)限進(jìn)行更新的功能。其界面如圖 所示： 圖 用戶信息界面 30 酒店信息管理界面如圖 所示： 圖 酒店信息界面 31 5 軟件測(cè)試 軟件測(cè)試的定義 軟件測(cè)試是為了發(fā)現(xiàn)錯(cuò)誤而執(zhí)行程序的過程 [13]?；蛘哒f，軟件測(cè)試是根據(jù)軟件開發(fā)各階段的規(guī)格說明和程序的內(nèi)部結(jié)構(gòu)而精心設(shè)計(jì)一批測(cè)試用例（集輸入數(shù)據(jù)及其預(yù)期的輸出結(jié)果），并利用這些測(cè)試用例去運(yùn)行程序，以發(fā)現(xiàn)程序的錯(cuò)誤過程 [15]。 測(cè)試的基本準(zhǔn)則 軟件測(cè)試的基本原則是： （ 1）完全測(cè)試程序是不可能的。 （ 2）軟件測(cè)試是有風(fēng)險(xiǎn)的。 （ 3)程序員應(yīng)避免檢查自己的程 序。 （ 4)在設(shè)計(jì)測(cè)試用例時(shí)，應(yīng)當(dāng)包括合理的輸入條件和不合理的輸入條件 [14]。 （ 5)測(cè)試無法顯示潛在的軟件風(fēng)險(xiǎn)。 （ 6)測(cè)試用例需要認(rèn)真設(shè)計(jì)。 （ 7)找到的軟件錯(cuò)誤越多，就說明存在的軟件錯(cuò)誤越多。 （ 8)并非所有的軟件錯(cuò)誤都能修復(fù)。 （ 9)妥善保存測(cè)試計(jì)劃、測(cè)試用例、出錯(cuò)統(tǒng)計(jì)和最終分析報(bào)告等相關(guān)文檔資料，可以為維護(hù)提供方便 [15]。 總之，測(cè)試是一項(xiàng)非常復(fù)雜、需要有創(chuàng)造性和高度智慧的任務(wù)。雖然已經(jīng)有了一些測(cè)試方法，但都不是很完善，使用時(shí)仍然需要測(cè)試人員的經(jīng)驗(yàn)和創(chuàng)造力。人是測(cè)試工作中最有價(jià)值也是最重要的資 源，沒有一個(gè)合格的、積極的測(cè)試小組，測(cè)試就不可能實(shí)現(xiàn)。 系統(tǒng)模塊測(cè)試 （ 1） 登錄模塊測(cè)試 測(cè)試內(nèi)容： ① 輸入密碼時(shí)， 登錄界面密碼框中顯示的字符是否以“ *”代替。 ② 當(dāng)輸入密碼錯(cuò)誤或者用戶名不正確時(shí)是否有相應(yīng)的系統(tǒng)提示信息。 ③ 用戶名和密碼正確，權(quán)限選擇錯(cuò)誤時(shí)是否會(huì)有提示。 測(cè)試結(jié)果： 32 系統(tǒng)用戶在進(jìn)行登錄或者添加系統(tǒng)用戶的操作時(shí)的密碼框中的內(nèi)容以“ *”的形式出現(xiàn)，起到了保密的作用；當(dāng)輸入密碼或者不正確，會(huì)有相 應(yīng)的系統(tǒng)提示；當(dāng)權(quán)限選擇錯(cuò)誤，會(huì)有相應(yīng)的提示。 （ 2）主界面模塊測(cè)試 測(cè)試內(nèi)容： ① 點(diǎn)擊樹狀圖下各個(gè)節(jié)點(diǎn)，是否能彈出相對(duì)應(yīng)的界面。主界面的圖片是否可以循環(huán)轉(zhuǎn)換。 ② 點(diǎn)擊窗體空白處是否會(huì)出現(xiàn)七彩文字。 測(cè)試結(jié)果： 點(diǎn)擊樹狀圖各個(gè)節(jié)點(diǎn)，依次可以彈出景點(diǎn)信息管理、游客信息管理、導(dǎo)游信息管理等界面；點(diǎn)擊窗體空白處，可以彈出“歡迎進(jìn)入旅游信息系統(tǒng)！”十個(gè)陰影文字；主界面圖片在時(shí)間控件的控制下可以依次循環(huán)轉(zhuǎn)換。 （ 3）景點(diǎn)信息管理界面測(cè)試 測(cè)試內(nèi)容： ① 輸入景點(diǎn)編號(hào)或者景點(diǎn)名稱，點(diǎn)擊“查詢 ” 按鈕，是否可以查到相對(duì)應(yīng)的景點(diǎn)信息。 ② 對(duì)查詢過的信息進(jìn)行修改，能否修改成功。 ③ 加入新的信息，能否成功添加。 測(cè)試結(jié)果： 輸入景點(diǎn)編號(hào)或者景點(diǎn)名稱，可以查到數(shù)據(jù)庫(kù)中現(xiàn)有的相對(duì)應(yīng)的數(shù)據(jù)信息；對(duì)查詢過已存在的信息，可以直接進(jìn)行修改，且可以修改成功。對(duì)新的數(shù)據(jù)信息，可以在輸入相對(duì)應(yīng)的編號(hào)和名稱后點(diǎn)擊“添加”按鈕，可以添加成功。