【正文】 = LoadPicture( + \) =True End Sub Private Sub Form_Resize() , 0, 0, , End Sub Private Sub Timer1_Timer() =100 If Then = 2 ElseIf 0 Then = 1 End If If = 1 Then = + 100 ElseIf = 2 Then = 100 End If 19 End Sub （ 3）登錄模塊界面 登錄模塊界面如圖 所示： 圖 登錄界面 主界面模塊編碼及實現(xiàn) （ 1）主界面代碼如下： Private Sub exit_Click() End End Sub Private Sub Form_click() Randomize For x = 1 To 255 green = Int(Rnd * 255 + 1) blue = Int(Rnd * 255 + 1) = 400 + x = 300 + x = RGB(x, green, blue) Print 歡迎來到旅游信息系統(tǒng)！ Next 20 End Sub Private Sub Form_Load() i = 0 = LoadPicture( + \) Dim nodx As Node Set nodx = (, , vs, 旅游信息管理系統(tǒng) , 1) Set nodx = (vs, tvwChild, vsvw, 景點信息管理 , 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。查找 Dim SqlStr As String = select * from vw Where vsbh =39。or vsname=39。 SqlStr = If Trim(Text1) Then SqlStr = where vsbh like 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。刪除 ret = MsgBox(是否要刪除 + Trim() + 號景點的記錄？ , vbYesNo, 提示 ) If ret = vbYes Then = SqlCon = delete from vw where vsbh= 39。Data Source= amp。其界面設(shè)計如圖 所示： 圖 導(dǎo)游信息界面 用戶登錄信息界面主要實現(xiàn)對用戶名、密碼以及用戶權(quán)限進(jìn)行更新的功能。 （ 2）軟件測試是有風(fēng)險的。 （ 6)測試用例需要認(rèn)真設(shè)計。 總之，測試是一項非常復(fù)雜、需要有創(chuàng)造性和高度智慧的任務(wù)。 ② 當(dāng)輸入密碼錯誤或者用戶名不正確時是否有相應(yīng)的系統(tǒng)提示信息。主界面的圖片是否可以循環(huán)轉(zhuǎn)換。 ② 對查詢過的信息進(jìn)行修改，能否修改成功。 。 測試結(jié)果： 輸入景點編號或者景點名稱，可以查到數(shù)據(jù)庫中現(xiàn)有的相對應(yīng)的數(shù)據(jù)信息；對查詢過已存在的信息，可以直接進(jìn)行修改，且可以修改成功。 測試結(jié)果： 點擊樹狀圖各個節(jié)點，依次可以彈出景點信息管理、游客信息管理、導(dǎo)游信息管理等界面；點擊窗體空白處，可以彈出“歡迎進(jìn)入旅游信息系統(tǒng)！”十個陰影文字；主界面圖片在時間控件的控制下可以依次循環(huán)轉(zhuǎn)換。 測試結(jié)果： 32 系統(tǒng)用戶在進(jìn)行登錄或者添加系統(tǒng)用戶的操作時的密碼框中的內(nèi)容以“ *”的形式出現(xiàn)，起到了保密的作用；當(dāng)輸入密碼或者不正確，會有相 應(yīng)的系統(tǒng)提示；當(dāng)權(quán)限選擇錯誤，會有相應(yīng)的提示。人是測試工作中最有價值也是最重要的資 源，沒有一個合格的、積極的測試小組，測試就不可能實現(xiàn)。 （ 8)并非所有的軟件錯誤都能修復(fù)。 （ 4)在設(shè)計測試用例時，應(yīng)當(dāng)包括合理的輸入條件和不合理的輸入條件 [14]?；蛘哒f，軟件測試是根據(jù)軟件開發(fā)各階段的規(guī)格說明和程序的內(nèi)部結(jié)構(gòu)而精心設(shè)計一批測試用例（集輸入數(shù)據(jù)及其預(yù)期的輸出結(jié)果），并利用這些測試用例去運行程序，以發(fā)現(xiàn)程序的錯誤過程 [15]。 \ = 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)景點信息管理界面 景點信息管理界面如圖 所示： 圖 景點信息管理界面 其他子界面編碼及設(shè)計效果 游客信息管理界面、導(dǎo)游信息管理界面以及酒店信息管理界面編碼內(nèi)容詳見附錄。 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=。 + Trim() + 39。 End If If Trim(Text2) Then 24 SqlStr = where vsname like 39。 amp。 amp。 (11 + i) amp。 Data Source= amp。 39。10 故宮 北京 建筑 80 北京故宮，舊稱為紫禁城，是中國明、清兩代 24 位皇帝的皇宮，它是漢族宮殿建筑之精華，無與倫 比的古代建筑杰作，也是世界上現(xiàn)存規(guī)模最大、保存最為完整的木質(zhì)結(jié)構(gòu)的古建筑群。其西和西南側(cè)為丘陵山地，東側(cè)以平原及水網(wǎng)為主。青海湖長 105公里，寬 63公里，湖面海拔 3196 米，是中國最大的內(nèi)陸湖泊和咸水湖。后因傳說軒轅黃帝曾 在此煉丹，故改名為“黃山”。華山 是道教主流全真派圣地，也是漢族民間廣泛崇奉的神祇，即西岳華山君神。自古以來，中國人就崇拜泰山，有“泰山安，四海皆安”的說法。 02 麗江古城 麗江 建筑 60 麗江古城，又名“大研古鎮(zhèn)”，海拔 2,400米，是麗江納西族自治縣的中心城市，是中國歷史文化名城之一，位于中國西南部云南省的麗江市，坐落在麗江壩中部，玉龍雪山下，北倚象山、金虹山、西枕獅子山；與同為第二批國家歷史文化名城的四川閬中、山西 平遙、安徽歙縣并稱為“保存最為完好的四大古城”。其中， “vsbh（景點編號） ”為主鍵。數(shù)據(jù)庫系統(tǒng)需要操作系統(tǒng)的支持。用戶登錄表的作用是驗證登錄時的用戶名和密碼，并判斷用戶的使用權(quán)限開始 登錄 用戶名密碼正確 確 是否有此權(quán)限 主界面 人員信息 景點信息 酒店信息 游客信息 導(dǎo)游信息 用戶信息 結(jié) 束 13 來啟動或關(guān)閉某些按鈕的操作；導(dǎo)游信息表的作用是存放導(dǎo)游的基本資料，便于及時查看和更新。如代碼設(shè)計、輸入輸出設(shè)計、人機對話設(shè)計等。 （ 3）詳細(xì)設(shè)計的基本任務(wù) ① 為每 個模塊進(jìn)行詳細(xì)的算法設(shè)計。 ER 圖能直觀、準(zhǔn)確地描繪系統(tǒng)的數(shù)據(jù)需求數(shù)據(jù)字典也是重要的，數(shù)據(jù)是把一個系統(tǒng)的各個組成元素連接在一起的“黏合劑”，為了成功地把所有系統(tǒng)元素連接起來，這些元素必須共享公共的數(shù)據(jù)定義，數(shù)據(jù)字典正是這些數(shù)據(jù)定義的集合算法同樣是重要的，分析的目的是確定系統(tǒng)必須做什么，廣義地說，任何一個計算機系統(tǒng)的基本功 能都是把輸入數(shù)據(jù)轉(zhuǎn)變成輸出信息，算法定義了轉(zhuǎn)變的規(guī)則 [12]。 圖 系統(tǒng)總體模塊圖 系統(tǒng)總體模塊 景點信息 游客信息 用戶信息 酒店信息 導(dǎo)游信息 11 3 詳細(xì)設(shè)計 詳細(xì)設(shè)計概述 （ 1） 詳細(xì)設(shè)計簡介 詳細(xì)設(shè)計是軟件工程中軟件開發(fā)的一個步驟，就是對概要設(shè)計的一個