【正文】 If = True Then = False = True = True = True = False = FalseEnd If 39。更新記錄源 = strsql If = True Then = True = False = False = True = FalseEnd IfEnd SubPrivate Sub opt5_Click()If = True Then = True = False = True = False = TrueEnd IfEnd SubPrivate Sub opt6_Click()If = True Then = True = False = False = True = FalseEnd IfEnd Sub：Private Sub Form_Load()39。關(guān)閉當(dāng)前窗體，顯示新窗體: 管理員總控 .Show計算機學(xué)院軟件工程課程設(shè)計42End SubPrivate Sub opt1_Click()If = True Then = True = False = True = True = False = FalseEnd If 39。刪除記錄 = True 39。 amp。關(guān)閉當(dāng)前窗體，顯示新窗體: 管理員總控 .ShowEnd SubPrivate Sub Image2_Click()39。更新記錄源 = strsql End IfIf = 5000 元—9999 元 Then strsql = select * from 財務(wù)表 where 利潤 between 5000 and 9999 = adCmdText 39。強制定義變量Dim strsql As StringPrivate Sub Combo1_Click()39。如果當(dāng)前記錄位置位于 Recordset 對象的最后一個記錄之后 MsgBox 用戶名錯誤！, vbExclamation + vbOKOnly, 警告 = Else 39。啟動拖放moveit = Truecx = X: cy = YEnd Sub計算機學(xué)院軟件工程課程設(shè)計33Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If moveit = True Then 39。Password=。在此，向給我?guī)椭?、關(guān)心、支持我的老師、朋友、同學(xué)，表達(dá)我最真誠的謝意。在測試過程中發(fā)現(xiàn)的系統(tǒng)錯誤必須及時改正，為了改正錯誤往往需要修正原來的設(shè)計，則必須通盤考慮統(tǒng)籌兼顧，以盡量避免在調(diào)試過程中引進新錯誤。測試界面如下圖所示：圖 導(dǎo)游查詢測試輸入為空圖圖 10時導(dǎo)游查詢圖計算機學(xué)院軟件工程課程設(shè)計28圖 1時導(dǎo)游查詢圖以上測試結(jié)果基本上達(dá)到預(yù)期目標(biāo)，只有在導(dǎo)游查詢時，如果輸入的導(dǎo)游編號為空，那么顯示的應(yīng)該是空信息，但是測試時顯示的卻是所有導(dǎo)游帶領(lǐng)的游客信息，所以在這個查詢時還是有待改正的。 系統(tǒng)測試本系統(tǒng)的測試和糾錯信息流程如圖 所示。用戶登錄系統(tǒng)的處理流程圖如圖 所示。在本系統(tǒng)中，輸出頁面的設(shè)計，盡量滿足用戶的信息需要，并有相關(guān)的提示信息。旅游管理系統(tǒng)的輸入界面主要包括用戶登錄，信息查詢，信息更新和游客登記等，輸入設(shè)計的內(nèi)容包括以下幾點：，包括確定輸入數(shù)據(jù)項名稱、數(shù)據(jù)內(nèi)容、精度、數(shù)值范圍。(3) 導(dǎo)游信息管理。通過這個階段的工作將劃分出組成系統(tǒng)的物理元素——程序，數(shù)據(jù)庫，文檔等等。數(shù)據(jù)庫管理系統(tǒng)（DBMS）用一定的機制來檢查數(shù)據(jù)庫中的數(shù)據(jù)是否滿足規(guī)定的條件——完整性約束條件，數(shù)據(jù)的約束條件是語義的體現(xiàn)，將作為模式的一部分存入數(shù)據(jù)庫中。通常人們先將現(xiàn)實世界抽象為概念世界，然后再將概念世界轉(zhuǎn)為機器世界。 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計概念結(jié)構(gòu)設(shè)計是數(shù)據(jù)庫設(shè)計的核心。數(shù)據(jù)字典的任務(wù)是對于數(shù)據(jù)流程圖中出現(xiàn)的元素的名字都有一個確切的解釋。計算機學(xué)院軟件工程課程設(shè)計6圖 旅游管理系統(tǒng)第一層數(shù)據(jù)流圖用戶首先的登錄系統(tǒng)，正確登錄進入系統(tǒng)后用戶可以進行如下操作：：主要查詢景點、導(dǎo)游、線路、財務(wù)報表的信息。硬件方面，在科技飛速發(fā)展的今天，硬件更新速度越來越快，可靠性越來越高，價格越來越便宜，因此硬件平臺也能夠滿足本系統(tǒng)所需。，使前臺的用戶操作方便簡單，突出旅游特點，具有較美觀的界面設(shè)計，保證系統(tǒng)安全穩(wěn)定的運行。實現(xiàn)旅游信息的增加、查詢、刪除、修改以及接受游客的查詢等。學(xué)習(xí)版適用于普通學(xué)習(xí)者及大多數(shù)使用 Visual Basic開發(fā)一般 Windows應(yīng)用程序的人員，但是；專業(yè)版適用于計算機專業(yè)開發(fā)人員，包括了學(xué)習(xí)版的全部內(nèi)容功能以及Inter控件開發(fā)工具之類的高級特性；企業(yè)版除包含專業(yè)版全部的內(nèi)容外，還有自動化構(gòu)件管理器等工具，使得專業(yè)編程人員能夠開發(fā)功能強大的組骨子里分布式應(yīng)用程序。數(shù)據(jù)庫的研究范圍是十分廣泛的，概括地講可以包括以下三個領(lǐng)域：；；；數(shù)據(jù)庫學(xué)；計算機領(lǐng)域中其他新興技術(shù)的發(fā)展對數(shù)據(jù)庫技術(shù)產(chǎn)生了重大影響。計算機學(xué)院軟件工程課程設(shè)計2，處于不安全的狀態(tài)，許多信息容易泄露。旅游行政管理部門存在管理方式落后，缺乏信息化管理手段，信息溝通渠道不通暢等問題.，面對困難和挑戰(zhàn)，我國旅游業(yè)必須轉(zhuǎn)變觀念，創(chuàng)新思維，以信息化建設(shè)為突破口和新手段，整合各種資源，從而實現(xiàn)整個行業(yè)的新跨越。我國旅游產(chǎn)業(yè)仍然基礎(chǔ)薄弱，管理手段滯后，信息化程度低，企業(yè)效益較差。由于信息面廣，信息量大，因此要對其中某些資源進行統(tǒng)一管理、調(diào)配是需要花費大量的人工。因此，作為信息系統(tǒng)核心和基礎(chǔ)的數(shù)據(jù)庫技術(shù)得到越來越廣泛的應(yīng)用，從小型單項事務(wù)處理系統(tǒng)到大型信息系統(tǒng)，從聯(lián)機事務(wù)處理到聯(lián)機分析處理，從一般企業(yè)管理到計算機輔助設(shè)計與制造（CAD/CAM ） 、計算機集成制造系統(tǒng)（ CIMS） 、辦公信息系統(tǒng)（OIS） 、地理信息系統(tǒng)（GIS）等，越來越多新的應(yīng)用領(lǐng)域采用數(shù)據(jù)庫存儲和處理他們的信息資源。 Visual Basic有學(xué)習(xí)版、專業(yè)版和企業(yè)版三種版本，以滿足不同的開發(fā)需要。本系統(tǒng)要根據(jù)旅游行業(yè)的這種現(xiàn)狀，提出解決問題的一個可行性方法：采用 VB 技術(shù)建立系統(tǒng)框架，建立 ER關(guān)系模型，以和 ACCESS 為后臺數(shù)據(jù)庫實現(xiàn)了數(shù)據(jù)集成和信息集成，對旅游的各類信息、資源進行協(xié)同集中管理。，將各種煩瑣的管理工作通過系統(tǒng)來管理，用最少的人力和物力提高管理水平，方便發(fā)布各種旅游信息，對各種旅游信息進行增刪改查，以及對用戶信息進行增刪改查。因此本系統(tǒng)的開發(fā)平臺已成熟可行。用 戶用戶信息 旅游管理系統(tǒng)信息報表用 戶圖 頂層數(shù)據(jù)流圖（圖 ）主要描述了整個旅游管理系統(tǒng)的數(shù)據(jù)流，表明用戶通過身份驗證直接進入旅游管理系統(tǒng)進行相關(guān)操作。進一步定義和描述所有的數(shù)據(jù)流、數(shù)據(jù)項的詳細(xì)邏輯內(nèi)容與特征的工具。采用范式減少了數(shù)據(jù)冗余，節(jié)約了存儲空間，同時加快了增、刪、改的速度。它從用戶的觀點出發(fā)對信息進行建模，主要用于數(shù)據(jù)庫的概念設(shè)計。DBMS 為 了 保 證 其 獨 立 性 與 可 移 植 性 ， 大 部 分 物 理 數(shù) 據(jù) 模 型 實 現(xiàn) 工 作 由 系 統(tǒng) 自 動 完成 ， 而 設(shè) 計 者 只 設(shè) 計 索 引 、 聚 集 等 特 殊 結(jié) 構(gòu) ， 由 上 面 圖 數(shù) 據(jù) 庫 設(shè) 計 CDM 圖 可以 得 到 PDM 圖 如 下 ：計算機學(xué)院軟件工程課程設(shè)計12圖 數(shù)據(jù)庫設(shè)計 PDM圖經(jīng)過上述步驟的設(shè)計，可以得到如下數(shù)據(jù)庫信息表：表 31 游客信息表字段名稱 數(shù)據(jù)類型 長度 是否為空 說明游客編號 Char 6 否 主鍵姓名 Char 10 否 性別 Char 4 否身份證號 Char 18 否 年齡 Int 否 職業(yè) Char 30 聯(lián)系電話 Char 15 否表 32 管理員信息表字段名稱 數(shù)據(jù)類型 長度 是否為空 說明用戶名 Char 6 否 主鍵 密碼 Char 20 否 表 33 導(dǎo)游信息表字段名稱 數(shù)據(jù)類型 長度 是否為空 說明導(dǎo)游編號 Char 4 否 主鍵導(dǎo)游名稱 Char 30 否 計算機學(xué)院軟件工程課程設(shè)計13導(dǎo)游年齡 Char 30 否 導(dǎo)游性別 Char 4 否 特長 Char 30工作經(jīng)驗 Char 30表 34 景點信息表字段名稱 數(shù)據(jù)類型 長度 是否為空 說明景點編號 Char 4 否 主鍵景點名稱 Char 30 否 所在地 Char 80 否 特色 Char 30 否表 35 員工信息表字段名稱 數(shù)據(jù)類型 長度 是否為空 說明用戶名 Char 6 否 主鍵密碼 Char 20 否表 36 財務(wù)報表信息表字段名稱 數(shù)據(jù)類型 長度 是否為空 說明編號 Char 4 否 主鍵所交費用 Int 30 否 雜費 Int 30 否 組團人數(shù) Char 30 否利潤 Char 30計算機學(xué)院軟件工程課程設(shè)計14 數(shù)據(jù)庫安全性和完整性數(shù)據(jù)庫的完整性是指數(shù)據(jù)的正確性和相容性。 系統(tǒng)總體設(shè)計階段的基本目的是用比較抽象概括的方式確定系統(tǒng)如何完成預(yù)定的任務(wù)，也就是說，應(yīng)該確定系統(tǒng)的物理配置方案，并且進行確定組成系統(tǒng)的每個程序的結(jié)構(gòu)。管理員可以對每個景點的信息，包括景點名稱，所在地，特色等進行管理。3. 財務(wù)管理，管理員可以對所有游客的財務(wù)進行管理，包括游客所交費用，所花費計算機學(xué)院軟件工程課程設(shè)計16用，以及所獲利潤等，同時還可以將所有的財務(wù)報表打印出來，包括旅客人員表，導(dǎo)游信息表，景點信息表，財務(wù)表。輸出格式設(shè)計要滿足使用者的要求和習(xí)慣，達(dá)到格式清晰、美觀、易于閱讀和理解的要求。該系統(tǒng)采用方便簡單、形象直觀的交互式界面和菜單。測試目的在于：測試是指“用意在發(fā)現(xiàn)錯誤而執(zhí)行一個程序的過程” ；一個好的測試用例是指這個測試用例有很高的概率可以發(fā)現(xiàn)一個尚未發(fā)現(xiàn)的錯誤；一個成功的測試是指它成功地發(fā)現(xiàn)一個尚未發(fā)現(xiàn)的錯誤。編號 關(guān)鍵字為真，輸入“1” 返回的是 1 號導(dǎo)游所帶領(lǐng)的游客信息。局限性：由于我們所具備的相關(guān)知識及技術(shù)的欠缺,使模塊無法完全實現(xiàn)預(yù)期的功能。不僅學(xué)到就更多的理論知識，擴展了知識面，提高了自己的實際操作能力；而且學(xué)會了如何去學(xué)習(xí)新的知識，學(xué)會了面對困難和挑戰(zhàn)，學(xué)會了團結(jié)合作，互助互利。根據(jù)目錄所在的位置，改變 ADO所使用的的連接字符串 Dim strConn As String strConn = Provider=。調(diào)用函數(shù)獲得鼠標(biāo)位置，未知信息存放在變量 zb 中 GetCursorPos zb * 15 cx 65, * 15 cy 350 End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)moveit = FalseEnd SubPrivate Sub Form_Unload(Cancel As Integer)Unload MeEnd SubPrivate Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)39。 = adCmdText = txtsqlIf = True Then 39。如果當(dāng)前記錄位置位于 Recordset 對象的最后一個記錄之后 MsgBox 密碼錯誤！, vbExclamation + vbOKOnly, 警告 = Else 計算機學(xué)院軟件工程課程設(shè)計34 Unload Me End If End IfEnd SubPrivate Sub Label5_Click() = = End SubPrivate Sub Label6_Click()EndEnd Sub：Private Sub Form_Load() = 8910 = 11100 = 2115