【正文】 , （ 4） 關(guān)閉數(shù)據(jù)對象和鏈接 沈陽大學(xué)畢業(yè)設(shè)計（論文） No9 Windows 環(huán)境 下的 VB 開發(fā) 環(huán)境 Visual Basic 軟件開發(fā)工具 ，無論是企業(yè)級用戶還是個人開發(fā)者，都能夠利用 Visual Basic 輕松、 簡便地開發(fā)應(yīng)用程序 ，備受廣大程序開發(fā)人員的好評。 Visual Basic 據(jù)庫開發(fā)組件，使數(shù)據(jù)庫應(yīng)用開發(fā)功能更強大，控制更靈活，編譯后的程序運行速度更快。 沈陽大學(xué)畢業(yè)設(shè)計（論文） No10 3 系統(tǒng)模型整體設(shè)計 系統(tǒng)設(shè)計分析 旅游管理系統(tǒng) 可以把各種旅游資源 進行 分類存儲管理，通過網(wǎng)絡(luò)實現(xiàn)資源 的 共享，不僅方便快捷，而且 方便 。此課題具有很強的實用性，既可以作為獨立的系統(tǒng)使用，也可以作為大型旅游企業(yè)綜合業(yè)務(wù)管理系統(tǒng)的一個重要組成部分。 系統(tǒng)前期設(shè)計 系統(tǒng)功能模塊 從功能描述的內(nèi)容可以看到，本程序可以實現(xiàn)的完整功能。 在功能模塊示意圖的樹狀結(jié)構(gòu)中，每一個葉節(jié)點都是一個最小的功能模塊。 系統(tǒng)開發(fā)的設(shè)計思想 通過數(shù)據(jù)庫技術(shù)分析數(shù)據(jù)庫中個人和他人的聯(lián)系信 息的基本信息，達到管理的目的： （ 1） 建立數(shù)據(jù)庫，旅游管理的基本資料就存放在其中。 （ 3） 用 VB開發(fā)出應(yīng)用程序連接數(shù)據(jù)庫。 系統(tǒng)功能描述 旅游管理系統(tǒng) 的主要功能包括以下幾方面： （ 1） 地域信息管理功能：主要可以實現(xiàn)添加地域信息、修改地域信息、刪除地域信息以及查看地域信息。 沈陽大學(xué)畢業(yè)設(shè)計（論文） No12 （ 3） 交通資源管理功能：主要對火車資源信息管理和飛機資源信息管理。 系統(tǒng)技術(shù)要點 在 旅游管理系統(tǒng) 的功能模塊之間的關(guān)系如圖 2 所示。當用戶需要生成一條旅游線路時，可以從旅游資源里提取到最新的數(shù)據(jù)。合理的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計可以提高數(shù)據(jù)存儲的效率，保證數(shù)據(jù)的完整 性 和一致 性 。設(shè)計數(shù)據(jù)庫系統(tǒng)時應(yīng)該首先充分了解用戶各個方面的需求，包括現(xiàn)有的以及將來可能增加的需求。 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計 地域是旅游行業(yè)的基本數(shù)據(jù)，所有的旅游資源都分布在不同的地域中，本 系統(tǒng) 采用的方法是將地域劃分為本市、外埠和國外 3 種類型。本市周邊的地域是最常用的，因此把它單獨作為一類；國內(nèi)其他地域統(tǒng)稱為外埠地域；所有國外的地域?qū)儆趪獾赜颉? 地域信息表用來保存地域信息。 表 1 地域信息表 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) 說明 1 Id Int 地域編號 2 Name Varchar40 地域名稱 3 Type Smallint 地域類型， 1本市地域、 2外埠地域、 3國外地域 景點資源信息表用來保存旅游景點信息。 表 2 景點資源信息表 Place 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) 說明 1 Pid Int 景點編號 2 Pname Varchar200 景點名稱 3 Contact Varchar100 聯(lián)系人 4 Phone Varchar100 聯(lián)系電話 5 Address Varchar100 通信 地址 6 Postcode Varchar10 郵政編碼 7 Adult_price Decimal10,2 成人票價 8 Child_price Decimal10,2 兒童票價 9 Id Int 所在地域 10 Input_time Char17 錄入日期和時間 火車資源信息表用來保存火車資源信息。 沈陽大學(xué)畢業(yè)設(shè)計（論文） No14 表 3 火車資源信息表 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) 說明 1 Tid Int 火車編號 2 Tno Varchar20 車次名稱 3 Sstation Varchar40 始發(fā)站 4 Estation Varchar40 抵達站 5 Stime Varchar40 開車時間 6 Etime Varchar40 抵達時間 7 PriceYz Decimal7,2 硬座報價 8 PriceRz Decimal7,2 軟座報價 9 PriceYw Decimal7,2 硬臥報價 10 PriceRw Decimal7,2 軟臥報價 11 Input_time Char17 錄入日期和時間 飛機資源信息表用來保存飛機資源信息。 表 4 飛機 資源信息表 Plane 編號 字段名稱 數(shù)據(jù)結(jié)構(gòu) 說明 1 Pid Int 飛機編號 2 AirCom Varchar50 航空公司 3 Pno Varchar20 航班號 4 Sairport Varchar40 起飛機場 5 Eairport Varchar40 抵達機場 6 Stime Varchar40 起飛時間 7 Etime Varchar40 抵達時間 8 Price1 Decimal7,2 公布票價 9 Price2 Decimal7,2 折扣票價 10 Cycle Char7 飛機航期。表 的 結(jié)構(gòu)如表 5所示。表的結(jié)構(gòu)如表 6所示。表的結(jié)構(gòu)如表 7所示。表的結(jié)構(gòu)如表 8所示。用戶提交后，到數(shù)據(jù)庫中的 Users 表中查詢。如果 3次輸入的用戶名和密碼都無法與數(shù)據(jù)庫匹配，則強制退出系統(tǒng)。 圖 3 登錄窗體的界面 登錄窗體中確定按鈕的代碼實現(xiàn)如下所示： Private Sub Cmd_OK_Click() Dim j As Single If txtUser = Then //數(shù)據(jù)有效性檢查 MsgBox 請輸入用戶名 Exit Sub End If If txtPwd = Then MsgBox 請輸入密碼 Exit Sub End If NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) 39。 在主窗體中添加一個工具欄控件，用于快捷操作，再添加一個 ImageList控件來存放工具欄所用的圖片，從而使工具欄上 的圖片顯示出來。下面還添加了一個狀態(tài)欄，主要是顯示系統(tǒng)的當前的臨日期和時間用的。 系統(tǒng)主界面如圖 4所示： 沈陽大學(xué)畢業(yè)設(shè)計（論文） No18 圖 4 系統(tǒng)主界面 地域信息管理模塊設(shè)計 地域信息管理界面可以通過對地域類型的選擇，來添加、修改、刪除地域信息的操作，當添加一個地域信息時 [14]須選擇一個地域類型，添加后在數(shù)據(jù)列表窗口中顯示地域名稱。 圖 5 地域信息管理界面 沈陽大學(xué)畢業(yè)設(shè)計（論文） No19 景點資源管理模塊設(shè)計 此界面主要通過對地域類型和地 域名稱來顯示相應(yīng)的地域景點信息，可以通過添加、刪除、修改按鈕來對景點的信息進行操作。 圖 6 旅游景點資源管理界面 景點資源管理界面窗體的 Adoc控件屬性表，主要完成屬性的設(shè)置，如下表 17所示。旅游線路管理界面如下圖 7所示。在此線路中可以添加景點、賓館、用餐以及娛樂設(shè)置的添加、修改和刪除的操作，也可以在交通設(shè)定和成本預(yù)算的列表框中手動輸入相關(guān)信息，如往返名稱、車票類型、車票價格、導(dǎo)游費用等。編輯線路信息界面如圖 8所示。用戶管理界面如圖 9所示。因此，本文的研究工作只是個開始，以上這些沒有解決的問題還需要在以后的研究工作中進一步 解決。剛拿到這個課題時，覺得這個課題太簡單了，但是現(xiàn)在回想一下，卻放發(fā)現(xiàn)是我錯誤的估計了形勢。經(jīng)過這次畢業(yè)論文設(shè)計，無形中提高了我很多的能力，而且?guī)椭液屠蠋?、同學(xué)之間建立了深厚的友誼。如果沒有導(dǎo)師的督促指導(dǎo)，以及一起工作的同學(xué)們的支持。 在這里首先要感謝我的導(dǎo)師劉天惠老師。在劉老師的悉心指導(dǎo)中，我不僅學(xué)到了扎實的計算機的專業(yè)知識，也在怎樣處人處事等方面收益很多；除了敬佩劉老師的專業(yè)水平外，她的治學(xué)嚴謹和科學(xué)研究的精神，還有她對工作的積極熱情、認真負責(zé)、有條不紊、實事求是的態(tài)度，給我留下了深刻的印象，使我受益非淺。同時，我要感謝我們信息工程學(xué)院給我們授課的 各位老師，正是由于他們的傳道、授業(yè)、解惑，讓我學(xué)到了專業(yè)知識，并從他們身上學(xué)到了如何求知治學(xué)、如何為人處事。 “長風(fēng)破浪會有時，直掛云帆濟滄海。就用這話作為這篇論文的一個結(jié)尾，也是一段生活的結(jié)束。時光如水，日月如梭，詩情畫意中的學(xué)術(shù)之旅行將結(jié)束。有太多的事歷歷在目 ，宛如昨日 , 記憶猶新。天下無不散之筵席，我會珍惜這一切美好的回憶，也祝愿大家一路走好