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