旅行社綜合管理系統(tǒng)計(jì)算機(jī)畢業(yè)論文

1、山東廣播電視大學(xué)畢業(yè)論文題 目 旅行社綜合管理系統(tǒng) 姓 名 韓小月 教育層次 專(zhuān)科 學(xué) 號(hào) 20087370131006 省級(jí)電大山東廣播電視大學(xué) 專(zhuān) 業(yè) 計(jì)算機(jī)信息管理 市級(jí)電大濱州廣播電視大學(xué) 指導(dǎo)教師 趙青成 教 學(xué) 點(diǎn) 鄒平電大 旅行社綜合管理系統(tǒng)摘要隨著國(guó)人生活水平的不斷提高，人們的生活方式不再僅限于普通的衣、食、住、行。人們不僅要在物質(zhì)方面得到提高，而且在精神方面也追求有一個(gè)質(zhì)的突變。于是，人們?cè)絹?lái)越多的選擇在周末或假期間外出旅游，換個(gè)環(huán)境來(lái)陶冶一下自己的情操，享受旅游給自己帶來(lái)的樂(lè)趣，擴(kuò)展視野。針對(duì)大眾的這種需求，許許多多的旅行社就由此孕育而生，各種各樣豐富多彩的旅游景點(diǎn)則需要由

2、一個(gè)合適的管理系統(tǒng)來(lái)規(guī)范，所以旅行社綜合管理系統(tǒng)的建立是十分必要的。 旅行社綜合管理系統(tǒng)是典型的信息管理系統(tǒng)(mis),其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。 本論文主要闡述旅行社綜合管理系統(tǒng)各個(gè)模塊的設(shè)計(jì)思想和實(shí)現(xiàn)的關(guān)鍵技術(shù)。在本系統(tǒng)中，當(dāng)使用者輸入合法的登錄信息后，就可以進(jìn)入到主菜單操作界面，使用者可以通過(guò)主操作界面上的菜單項(xiàng)進(jìn)行各項(xiàng)操作，以達(dá)到管理的目的。關(guān)鍵詞數(shù)據(jù)庫(kù)；綜合管理，模塊，規(guī)范性作者簡(jiǎn)介韓小月，鄒平縣九戶鎮(zhèn)韓杠村123號(hào)，生于1989年6月3

3、0號(hào)，現(xiàn)就職于山東鄒平縣宏誠(chéng)集團(tuán)。目 錄第一章前言4第二章課題來(lái)源及設(shè)計(jì)要求4（一） 課題來(lái)源4（二） 設(shè)計(jì)要求5第三章 設(shè)計(jì)中需要解決的幾個(gè)關(guān)鍵問(wèn)題5 （一） 研究中需要解決的幾個(gè)關(guān)鍵問(wèn)題5 （二） 具體實(shí)現(xiàn)中采用的關(guān)鍵技術(shù)5第四章系統(tǒng)設(shè)計(jì)5（一） 模塊劃分5（二） 數(shù)據(jù)結(jié)構(gòu)設(shè)計(jì)6第五章系統(tǒng)的實(shí)現(xiàn)9（一） 開(kāi)發(fā)環(huán)境及工具9（二） 模塊說(shuō)明及程序的流程設(shè)計(jì)9第六章系統(tǒng)運(yùn)行效果及改進(jìn)意見(jiàn)38第七章結(jié)束語(yǔ)39致謝39參考文獻(xiàn)39附錄40第一章：前言旅行社綜合管理系統(tǒng)是旅游部門(mén)及單位不可缺少的部分,它的內(nèi)容對(duì)于旅行社的管理者來(lái)說(shuō)至關(guān)重要,所以旅行社綜合管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵?/p>

4、手段。但一直以來(lái)人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時(shí)間一長(zhǎng),將產(chǎn)生大量的文件和數(shù)據(jù),這對(duì)于查找、更新和維護(hù)都帶來(lái)了不少的困難。隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類(lèi)社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)旅行社的各類(lèi)信息進(jìn)行管理,具有著手工管理所無(wú)法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高旅行社數(shù)據(jù)管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。因此，開(kāi)發(fā)這樣一套管理軟件成

5、為很有必要的事情,在下面的各章中我將以開(kāi)發(fā)一套旅行社綜合管理系統(tǒng)為例,談?wù)勂溟_(kāi)發(fā)過(guò)程和所涉及到的問(wèn)題及解決方法。本論文的編寫(xiě)主要為了使大家了解旅行社管理系統(tǒng)中各項(xiàng)管理的具體操作、各功能模塊的詳細(xì)介紹、數(shù)據(jù)獲取的方式、如何進(jìn)行數(shù)據(jù)的維護(hù)等等。使大家對(duì)旅行社的管理有一個(gè)了解。本人在此次課程編制中擔(dān)任所有的系統(tǒng)模塊的編寫(xiě)以及論文的寫(xiě)作。第二章：課題來(lái)源及設(shè)計(jì)要求（一）課題來(lái)源為什么要開(kāi)發(fā)一個(gè)旅行社綜合管理系統(tǒng)？計(jì)算機(jī)已成為我們生活、工作中不可缺少一部分。今天，計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉，性能卻有了長(zhǎng)足的進(jìn)步。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計(jì)算機(jī)之所以如此流行的原因主要有以下幾個(gè)方面：1.計(jì)算機(jī)可以代替人工進(jìn)

6、行許多繁雜的勞動(dòng)；2.計(jì)算機(jī)可以節(jié)省許多資源；3.計(jì)算機(jī)可以大大的提高人們的工作效率；4.計(jì)算機(jī)可以使敏感文檔更加安全，等等；5.計(jì)算機(jī)所擁有的網(wǎng)絡(luò)功能是其它操作方式所不能比擬的。在旅行社中使用計(jì)算機(jī)管理旅行社各種數(shù)據(jù)的實(shí)際意義：在目前國(guó)內(nèi)的旅游市場(chǎng)中，大部分的旅行社都借助于計(jì)算機(jī)來(lái)進(jìn)行管理，但管理軟件的版本較為陳舊且達(dá)不到圖文并茂，大部分的管理軟件都編寫(xiě)于基于系統(tǒng)下的foxbase及foxpro所開(kāi)發(fā)的，不太符合當(dāng)今旅游市場(chǎng)的需求。旅游市場(chǎng)也迫切的需要有一個(gè)規(guī)范化、標(biāo)準(zhǔn)化的管理軟件來(lái)進(jìn)行管理。歸納起來(lái)，旅行社綜合管理系統(tǒng)的好處大約有以下幾點(diǎn)：1、可以存儲(chǔ)景點(diǎn)、導(dǎo)游、游客的各類(lèi)信息；2、只需一

7、到二名檔案錄入員即可操作系統(tǒng)，節(jié)省大量人力；3、可以對(duì)各張表格進(jìn)行多選項(xiàng)查詢；4、采用目前比較常用的access數(shù)據(jù)進(jìn)行數(shù)據(jù)管理；5、采用圖片框的方式，使系統(tǒng)的界面盡量做到美觀、大方；6、定期的對(duì)數(shù)據(jù)進(jìn)行備份。（二）設(shè)計(jì)要求綜合管理系統(tǒng)的設(shè)計(jì)要求：1. 要使本管理系統(tǒng)的操作盡量簡(jiǎn)易化，使對(duì)計(jì)算機(jī)不太了解的人也可以方便的使用。2. 本管理系統(tǒng)的各個(gè)模塊的分布要合理，盡可能多的照顧到方方面面的操作。3. 本管理系統(tǒng)的數(shù)據(jù)安全性要得到加強(qiáng)，盡可能避免外來(lái)因素對(duì)數(shù)據(jù)的破壞。4. 本管理系統(tǒng)的查詢模塊要盡量做到方便、高效、準(zhǔn)確率高。5. 本管理系統(tǒng)的界面要盡可能的作到美觀、大方，突出旅游這個(gè)重點(diǎn)。第三章

8、：設(shè)計(jì)中需要解決的幾個(gè)關(guān)鍵問(wèn)題（一）研究中需要解決的幾個(gè)關(guān)鍵問(wèn)題1. 數(shù)據(jù)庫(kù)和visual basic的連接；2. 數(shù)據(jù)查詢模塊的制作；3. 報(bào)表功能模塊的制作；4. 在實(shí)際應(yīng)用中數(shù)據(jù)查詢的準(zhǔn)確性，查詢速度；5. 旅行社綜合管理系統(tǒng)所涉及到的數(shù)據(jù)表是否合理；（二）具體實(shí)現(xiàn)中采用的關(guān)鍵技術(shù)1在本系統(tǒng)中采用access2000數(shù)據(jù)庫(kù)與visual basic連接，通過(guò)adodc控件所編寫(xiě)的過(guò)程代碼來(lái)加載數(shù)據(jù)源。2制作查詢模塊中盡可能多的想到可供查詢的條件，使查詢系統(tǒng)不斷完善。3采用visual basic中的報(bào)表編輯器來(lái)完成報(bào)表的制作。4使sql查詢語(yǔ)言進(jìn)行系統(tǒng)中的數(shù)據(jù)查詢。5在具體使用中逐步的發(fā)

9、現(xiàn)問(wèn)題，解決問(wèn)題。第四章：系統(tǒng)設(shè)計(jì)（一）系統(tǒng)模塊的劃分在本系統(tǒng)中，我將建立起旅行社管理系統(tǒng)的旅游線路管理模塊、導(dǎo)游管理模塊、組團(tuán)管理模塊、游客管理模塊、報(bào)表打印模塊、系統(tǒng)設(shè)置模塊，其中旅游線路管理模塊又分為旅游線路管理和旅游線路查詢兩個(gè)子模塊，導(dǎo)游管理模塊又分為導(dǎo)游管理和導(dǎo)游查詢兩個(gè)子模塊，組團(tuán)管理模塊又分為組團(tuán)管理和組團(tuán)查詢兩個(gè)子模塊，報(bào)表打印模塊提供了四張功能報(bào)表的選擇打印，系統(tǒng)設(shè)置模塊分為添加用戶、修改密碼、備份數(shù)據(jù)三個(gè)子模塊。（具體見(jiàn)圖）其中，在幾個(gè)查詢模塊中，我要使用到sql查詢語(yǔ)言對(duì)表格進(jìn)行條件查詢操作，在打印報(bào)表中，我使用了vb自帶的數(shù)據(jù)報(bào)表功能制作了四份報(bào)表供使用者選擇打印，在

10、系統(tǒng)設(shè)置模塊中，我采用了利用權(quán)限等級(jí)進(jìn)行管理的方法，如你的登錄權(quán)限是user，你就不可以操作添加用戶模塊了。（二）數(shù)據(jù)庫(kù)結(jié)構(gòu)的創(chuàng)建1、旅行社管理數(shù)據(jù)庫(kù)與數(shù)據(jù)表的創(chuàng)建在創(chuàng)建該系統(tǒng)之前，我首先創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)（數(shù)據(jù)庫(kù)名是database.mdb）。在該數(shù)據(jù)庫(kù)中，創(chuàng)建五張數(shù)據(jù)表，即旅游線路數(shù)據(jù)表、導(dǎo)游管理數(shù)據(jù)表、游客管理數(shù)據(jù)表、密碼表以及組團(tuán)管理數(shù)據(jù)表。（本課程所涉及到的所有數(shù)據(jù)庫(kù)都為vb所默認(rèn)的 microsoft access數(shù)據(jù)庫(kù)類(lèi)型）。數(shù)據(jù)庫(kù)只是一個(gè)容器，它是數(shù)據(jù)表的集合。數(shù)據(jù)庫(kù)一經(jīng)創(chuàng)建，用戶就可以在數(shù)據(jù)庫(kù)中創(chuàng)建應(yīng)用系統(tǒng)制作所需要的數(shù)據(jù)表，在這里我們首先創(chuàng)建一個(gè)旅游線路數(shù)據(jù)表。數(shù)據(jù)表結(jié)構(gòu)就是對(duì)

11、一個(gè)數(shù)據(jù)中的字段名稱(chēng)、類(lèi)型、大小等的定義，在數(shù)據(jù)表結(jié)構(gòu)創(chuàng)建對(duì)話框中，不僅可以定制表的結(jié)構(gòu)，還可以對(duì)數(shù)據(jù)表進(jìn)行各種操作，如顯示每一個(gè)字段的結(jié)構(gòu)、增加或刪除字段、建立索引、對(duì)每一字段進(jìn)行有效性輸入規(guī)劃的定制等。在旅行社管理數(shù)據(jù)庫(kù)中我們將創(chuàng)建“旅游線路數(shù)據(jù)表”，其結(jié)構(gòu)如下：旅游線路數(shù)據(jù)表結(jié)構(gòu)字段名稱(chēng)字段類(lèi)型字段大小索引編號(hào)自動(dòng)編號(hào)默認(rèn)無(wú)名稱(chēng)文本20有（無(wú)重復(fù)）主要景點(diǎn)文本100無(wú)行程天數(shù)數(shù)字整型無(wú)報(bào)價(jià)貸幣默認(rèn)無(wú)交通文本50無(wú)住宿文本50無(wú)行程安排備注默認(rèn)無(wú)說(shuō)明備注默認(rèn)無(wú)在旅游線路表中，主要景點(diǎn)是對(duì)景名中幾個(gè)重要分景點(diǎn)的說(shuō)明；而交通則是說(shuō)明了交通方式的選擇；住宿同樣是說(shuō)明住宿的檔次；而行程安排則說(shuō)明了

12、在旅游中每一天的日程安排，以方便旅客們知道在每一天將做些什么。2、導(dǎo)游數(shù)據(jù)表的創(chuàng)建：在旅行社中，導(dǎo)游往往是不可缺少的，導(dǎo)游的管理是旅行社管理的一個(gè)重要方面，因此需要?jiǎng)?chuàng)建一個(gè)導(dǎo)游數(shù)據(jù)表，而且可以在系統(tǒng)中制作導(dǎo)游管理窗體，對(duì)導(dǎo)游進(jìn)行各種管理。導(dǎo)游數(shù)據(jù)表的結(jié)構(gòu)如下表所示：導(dǎo)游數(shù)據(jù)表結(jié)構(gòu)字段名稱(chēng)字段類(lèi)型字段大小索引編號(hào)自動(dòng)編號(hào)默認(rèn)無(wú)姓名文本20有（無(wú)重復(fù)）性別文本2無(wú)級(jí)別文本20無(wú)出生年月日期/時(shí)間默認(rèn)無(wú)電話文本20有（有重復(fù)）在導(dǎo)游數(shù)據(jù)表中，級(jí)別是為了說(shuō)明該導(dǎo)游所能帶的團(tuán)隊(duì)（有國(guó)內(nèi)和國(guó)際之分）。3、創(chuàng)建組團(tuán)管理數(shù)據(jù)表組團(tuán)管理同樣是旅行社的一個(gè)重要管理內(nèi)容，在系統(tǒng)設(shè)計(jì)中，我們創(chuàng)建了一個(gè)組團(tuán)管理數(shù)據(jù)表，

13、其數(shù)據(jù)結(jié)構(gòu)如下表所示：組團(tuán)管理數(shù)據(jù)表結(jié)構(gòu)字段名稱(chēng)字段類(lèi)型字段大小索引旅游團(tuán)號(hào)自動(dòng)編號(hào)默認(rèn)有（無(wú)重復(fù)）旅游團(tuán)名文本50無(wú)線路名稱(chēng)文本50無(wú)發(fā)出日期日期/時(shí)間默認(rèn)無(wú)結(jié)束日期日期/時(shí)間默認(rèn)無(wú)負(fù)責(zé)導(dǎo)游文本20有（有重復(fù)）人數(shù)數(shù)字10無(wú)單價(jià)貸幣默認(rèn)無(wú)備注備注默認(rèn)無(wú)在該數(shù)據(jù)表結(jié)構(gòu)中，我為負(fù)責(zé)導(dǎo)游創(chuàng)建了一個(gè)有（有重復(fù)）的索引，因?yàn)樵谝粋€(gè)組團(tuán)管理數(shù)據(jù)庫(kù)中，有可能在時(shí)間不沖突的情況下，一個(gè)導(dǎo)游在帶完一個(gè)團(tuán)隊(duì)后仍將帶領(lǐng)下一個(gè)團(tuán)隊(duì)；而旅游團(tuán)號(hào)則不可以重復(fù)，所以我給旅游團(tuán)號(hào)加了一個(gè)有（無(wú)重復(fù)）的索引。4、創(chuàng)建游客管理數(shù)據(jù)表一個(gè)旅行社的生存就依賴(lài)于游客的多少，游客對(duì)于一個(gè)旅行社來(lái)說(shuō)真乃是衣食父母，怎樣管理好游客，是每一

14、個(gè)旅行社都應(yīng)該注意的問(wèn)題。在本課程中，我創(chuàng)建了一個(gè)游客管理數(shù)據(jù)表，其數(shù)據(jù)庫(kù)結(jié)構(gòu)如下表所示。旅客管理數(shù)據(jù)表結(jié)構(gòu)字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小索引編號(hào)自動(dòng)編號(hào)默認(rèn)無(wú)姓名文本20無(wú)性別文本2有（有重復(fù)）年齡數(shù)字3無(wú)工作單位文本50無(wú)電話文本20有（有重復(fù)）參加旅游團(tuán)文本50無(wú)5、創(chuàng)建密碼表在本課程中，我將創(chuàng)建一個(gè)密碼數(shù)據(jù)表，專(zhuān)門(mén)用于管理用戶密碼。用戶可以在系統(tǒng)在使用密碼，也可以在系統(tǒng)中維護(hù)密碼。密碼數(shù)據(jù)表結(jié)構(gòu)如下表所示：密碼數(shù)據(jù)表結(jié)構(gòu)字段名稱(chēng)字段類(lèi)型字段大小索引用戶名文本20無(wú)密碼文本20有（無(wú)重復(fù)）權(quán)限文本20無(wú)其中，我對(duì)密碼創(chuàng)建了有（無(wú)重復(fù)），因?yàn)橐粋€(gè)用戶只能有一個(gè)密碼。6、 關(guān)系型數(shù)據(jù)庫(kù)的實(shí)現(xiàn)acc

15、ess2000 就是關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)工具，數(shù)據(jù)庫(kù)能匯集各種信息以供查詢、存儲(chǔ)和檢索。access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類(lèi)似于 excel 的電子表格，可以使數(shù)據(jù)庫(kù)一目了然。另外，access 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫(kù)中的信息。access也提供了數(shù)據(jù)存儲(chǔ)庫(kù)，可以使用桌面數(shù)據(jù)庫(kù)文件把數(shù)據(jù)庫(kù)文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫(kù)。access 是一種關(guān)系數(shù)據(jù)庫(kù)工具，關(guān)系數(shù)據(jù)庫(kù)是已開(kāi)發(fā)的最通用的數(shù)據(jù)庫(kù)之一。如上所述，access 作為關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫(kù)的便利和關(guān)系數(shù)據(jù)庫(kù)的強(qiáng)大功能。

16、微軟的jet數(shù)據(jù)庫(kù)引擎提供了與數(shù)據(jù)庫(kù)打交道的途徑，我們是通過(guò)它以及visual basic 來(lái)訪問(wèn)數(shù)據(jù)庫(kù)并對(duì)其進(jìn)行各種操作。visual basic、access以及其他微軟的軟件產(chǎn)品都是通過(guò)共用jet數(shù)據(jù)庫(kù)引擎，從而給用戶提供了豐富的數(shù)據(jù)類(lèi)型。adodc控件在數(shù)據(jù)庫(kù)中的信息與將信息顯示給用戶看的visual basic程序之間架起了一座橋梁。我們可以設(shè)置adodc控件的各個(gè)屬性，告訴它要調(diào)用那個(gè)數(shù)據(jù)庫(kù)的哪個(gè)部分。缺省情況下， adodc控件根據(jù)數(shù)據(jù)庫(kù)中的一個(gè)或多個(gè)數(shù)據(jù)表建立一個(gè)dynaset-type（動(dòng)態(tài)集合）類(lèi)型的記錄集合。一個(gè)記錄集合是動(dòng)態(tài)的也就意味著，當(dāng)原來(lái)的數(shù)據(jù)表中的容改變了以后，

17、該記錄集合中的記錄也會(huì)隨之改變。adodc控件還提供了用來(lái)瀏覽不同記錄的各種跳轉(zhuǎn)按鈕。將adodc控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫(kù)之間建立聯(lián)系。第五章：系統(tǒng)的實(shí)現(xiàn)（一）開(kāi)發(fā)環(huán)境及工具1、開(kāi)發(fā)所需的硬件環(huán)境：奔騰iii450, 內(nèi)存64m以上，硬盤(pán)空間800m以上。2、開(kāi)發(fā)所需的軟件環(huán)境：windows98中文版或更高，visual basic 6.0中文企業(yè)版，microsoft access 2000。3、 開(kāi)發(fā)所使用的工具：微軟公司的visual basic 6.0是windows應(yīng)用程序開(kāi)發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_(kāi)發(fā)工具。visual bas

18、ic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過(guò)程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。故而，實(shí)現(xiàn)本系統(tǒng)vb是一個(gè)相對(duì)較好的選擇。在本系統(tǒng)中，我將采用visual basic 6.0中的外部數(shù)據(jù)連接使之和access2000中所創(chuàng)建好的數(shù)據(jù)源連接，以達(dá)到操作數(shù)據(jù)的目的。（二） 模塊說(shuō)明及程序流程設(shè)計(jì)1、模塊說(shuō)明：在本系統(tǒng)中，我將建立起旅行社管理系統(tǒng)的旅游線路管理模塊、導(dǎo)游管理模塊、組團(tuán)管理模塊、游客管理模塊、報(bào)表打印模塊、系統(tǒng)設(shè)置模塊，其中旅游線路管理模塊又分為旅游線路管理和旅游線路查詢兩個(gè)子模塊，導(dǎo)游管理模塊又分為導(dǎo)游管理和導(dǎo)游查

19、詢兩個(gè)子模塊，組團(tuán)管理模塊又分為組團(tuán)管理和組團(tuán)查詢兩個(gè)子模塊，報(bào)表打印模塊提供了四張功能報(bào)表的選擇打印，系統(tǒng)設(shè)置模塊分為添加用戶、修改密碼、備份數(shù)據(jù)三個(gè)子模塊其中：旅游線路管理功能模塊的作用是對(duì)旅游線路進(jìn)行增加、修改、刪除以及條件查詢等操作；其中，旅游線路管理子模塊的作用是對(duì)旅游線路進(jìn)行編輯，而旅游線路查詢子模塊的作用是對(duì)旅游線路進(jìn)行條件查詢。導(dǎo)游管理功能模塊的作用是對(duì)導(dǎo)游數(shù)據(jù)進(jìn)行增加、修改、刪除以及條件查詢等操作；其中，導(dǎo)游管理子模塊的作用是對(duì)導(dǎo)游信息進(jìn)行編輯，而導(dǎo)游查詢子模塊的作用是對(duì)導(dǎo)游具體信息進(jìn)行條件查詢。組團(tuán)管理功能模塊的作用是對(duì)組團(tuán)信息進(jìn)行增加、修改、刪除以及條件查詢等操作；其中，

20、組團(tuán)管理子模塊的作用是對(duì)組團(tuán)信息進(jìn)行編輯，而組團(tuán)查詢子模塊的作用是對(duì)組團(tuán)信息進(jìn)行條件查詢，此操作適用于游客選擇旅游線路。游客管理功能模塊的作用是對(duì)游客信息進(jìn)行增加、修改、刪除以及條件查詢等操作；其中，游客管理子模塊的作用是對(duì)游客信息進(jìn)行編輯，而游客查詢子模塊的作用是對(duì)游客信息進(jìn)行條件查詢。報(bào)表功能模塊的作用是利用visual basic中的報(bào)表編輯器編輯各數(shù)據(jù)表的報(bào)表，這對(duì)一個(gè)旅行社分析旅游線路的開(kāi)發(fā)數(shù)量、旅游組團(tuán)的各理性、導(dǎo)游信息的完善、游客信息的完善、游客所喜歡的旅行線路等是十分必要的。系統(tǒng)權(quán)限維護(hù)功能模塊是一個(gè)完整的管理系統(tǒng)中不可少的一部分，它起到了維護(hù)系統(tǒng)的安全性、保密性以及規(guī)范化等作

21、用。其中添加用戶模塊是對(duì)本系統(tǒng)軟件的操作者進(jìn)行增加操作，在登錄時(shí)使用權(quán)限為system的才可以增加操作者，而user權(quán)限不行操作。密碼更改模塊是對(duì)本系統(tǒng)的用戶操作密碼進(jìn)行修改，不斷的修改密碼對(duì)于系統(tǒng)的保密工作是十分有成效的。數(shù)據(jù)備份模塊在一個(gè)完整的管理系統(tǒng)不可缺少，數(shù)據(jù)的完整性、安全性都依賴(lài)于它的存在。2、系統(tǒng)流程設(shè)計(jì)（1） 創(chuàng)建系統(tǒng)啟動(dòng)封面系統(tǒng)啟動(dòng)封面是一個(gè)應(yīng)用系統(tǒng)開(kāi)始的界面，通常是進(jìn)行系統(tǒng)介紹的，人們一看見(jiàn)封面就可以知道這個(gè)系統(tǒng)是干什么的。創(chuàng)建系統(tǒng)啟動(dòng)封面也就意味著創(chuàng)建系統(tǒng)的開(kāi)始，此處，我采用創(chuàng)建數(shù)據(jù)工程的方法創(chuàng)建本系統(tǒng)，創(chuàng)建系統(tǒng)啟動(dòng)界面的過(guò)程如下：1. 啟動(dòng)visual basic應(yīng)用程

22、序，進(jìn)入開(kāi)發(fā)平臺(tái)主界面。2. 在開(kāi)發(fā)平臺(tái)中，創(chuàng)建一個(gè)新的工程，此處我選擇創(chuàng)建數(shù)據(jù)工程。3. 在工程類(lèi)型選擇面板中選擇“數(shù)據(jù)工程”。4. 單擊“打開(kāi)”按鈕，出現(xiàn)一個(gè)數(shù)據(jù)工程，其中包括一個(gè)數(shù)據(jù)工程窗體，一個(gè)數(shù)據(jù)源環(huán)境和數(shù)據(jù)報(bào)表的設(shè)計(jì)器。數(shù)據(jù)工程的關(guān)鍵在于使用數(shù)據(jù)源，為數(shù)據(jù)工程創(chuàng)建數(shù)據(jù)源的方法如下：1. 在工程窗口中單擊設(shè)計(jì)器/數(shù)據(jù)環(huán)境條目，出現(xiàn)一個(gè)數(shù)據(jù)環(huán)境中的連接界面，如圖.1所示。右擊連接條目connection1,出現(xiàn)一個(gè)彈出式菜單，在彈出式菜單中單擊“屬性”菜單項(xiàng)，即出現(xiàn)數(shù)據(jù)源驅(qū)動(dòng)程序類(lèi)型，也即數(shù)據(jù)源提供者類(lèi)型選擇對(duì)話框。如圖.2所示。2. 選擇microsoft

23、 jet4.0 ole db provider,單擊下一步按鈕，出現(xiàn)數(shù)據(jù)庫(kù)設(shè)置對(duì)話框，選擇前面創(chuàng)建的數(shù)據(jù)庫(kù)即可，如圖.3所示。該數(shù)據(jù)庫(kù)即作為整個(gè)數(shù)據(jù)工程的數(shù)據(jù)源的數(shù)據(jù)庫(kù)。數(shù)據(jù)源是否連接成功，可以通過(guò)測(cè)試連接按鈕進(jìn)行檢驗(yàn)。3. 單擊“確定”按鈕之后即成功引入數(shù)據(jù)源?？梢园l(fā)現(xiàn)成功連接數(shù)口的連接字符屬性中，出現(xiàn)它的字符串 provider=microsoft.jet.oledb.4.0;persist security info=false;data source=database.mdb這樣整個(gè)數(shù)據(jù)工程將使用該數(shù)據(jù)連接和數(shù)據(jù)庫(kù)。4. 我還添加了一個(gè)模塊，其目的是為了在系統(tǒng)調(diào)用的時(shí)候自

24、動(dòng)調(diào)入數(shù)據(jù)源以及調(diào)入一些公有的變量。其模塊設(shè)計(jì)代碼如下：通用 聲明public conn as new adodb.connectionpublic rs as new adodb.recordsetpublic dataname as stringpublic connectionstring as stringpublic glymc as stringpublic quanxian as stringpublic flag as integer通用 mainsub main()dataname = app.path & database.mdb 兩句為加載數(shù)據(jù)源connectionstr

25、ing = provider=microsoft.jet.oledb.4.0;persist security info=false;data source= & datanamefirst_f.showend sub接下來(lái)，我將創(chuàng)建系統(tǒng)啟動(dòng)封面，在工程管理器中打開(kāi)數(shù)據(jù)工程已經(jīng)創(chuàng)建的第一個(gè)窗體first_f。保存工程和該窗體到磁盤(pán)路徑之中，接下來(lái)設(shè)計(jì)first_f，該窗體作為系統(tǒng)啟動(dòng)的封面，其布局如圖.4所示。據(jù)源之后，在屬性窗其制作過(guò)程如下：1.設(shè)置窗體first_f的基本屬性如下表所示。系統(tǒng)啟動(dòng)窗體first_f的主要屬性屬性項(xiàng)名屬性設(shè)置內(nèi)容border stylenones

26、tartupposition2-屏幕中心windowsstate2-maximizedpicture選定的圖片文件2.在窗體中放入一個(gè)標(biāo)簽控件，設(shè)其caption屬性為“系統(tǒng)登錄”并為該標(biāo)簽控件賦予一個(gè)過(guò)程代碼，當(dāng)用戶單擊該標(biāo)簽時(shí)即進(jìn)入系統(tǒng)權(quán)限認(rèn)證窗體。其過(guò)程代碼如下：private sub label1_click()login_f.show end sub3.再放入一個(gè)標(biāo)簽控件，設(shè)其caption屬性為“旅行社綜合管理系統(tǒng)”，用于說(shuō)明該系統(tǒng)的名稱(chēng)。4.最后放入一個(gè)標(biāo)簽控件，設(shè)其caption屬性為“退出系統(tǒng)”，用于退出系統(tǒng)，其過(guò)程代碼如下：private sub label2_click(

27、)end 用于退出系統(tǒng)end sub（2） 創(chuàng)建系統(tǒng)登錄界面系統(tǒng)登錄界面是一個(gè)管理系統(tǒng)進(jìn)行權(quán)限認(rèn)證中不可缺少的一環(huán)，它主要用來(lái)驗(yàn)證系統(tǒng)使用的合法身份。保證系統(tǒng)的安全運(yùn)行。其制作過(guò)程如下：1.在工程中增加一個(gè)新的窗體login_f；窗體布局如圖.1所示。2.在login_f窗體中放入兩個(gè)文本框控件用來(lái)接收用戶名和密碼信息。在具體制作中將密碼框的passwordchar的屬性改為*，作用是為了保證輸入密碼時(shí)不被他人看見(jiàn)。3.在兩個(gè)文本框的邊上放入兩個(gè)標(biāo)簽控件，設(shè)兩個(gè)標(biāo)簽的caption屬性分別為“用戶名和密碼”。用于說(shuō)明兩個(gè)文本框的作用。4在窗體中放入兩個(gè)按鈕控件，分別設(shè)置其capt

28、ion屬性為“進(jìn)入”、“退出”。用于系統(tǒng)登錄和退出啟動(dòng)界面之用。登錄按鈕的過(guò)程代碼如下：進(jìn)入按鈕的過(guò)程代碼如下：private sub command1_click()text1.text = replace(text1.text, , )text1.text = replace(text1.text, chr(34), )text2.text = replace(text2.text, , )text2.text = replace(text2.text, chr(34), )sql = select * from 密碼表 where 用戶名= & text1.text & and 密碼=

29、& text2.text & 查詢密碼和用戶是否與表中的相符set rs = conn.execute(sql)if rs.eof or rs.bof then 若其中至少有一個(gè)不相符，則不能登錄。msgbox 帳號(hào)口令錯(cuò)誤,請(qǐng)檢查后重新進(jìn)入!, vbokonly + vbexclamation, 警告elseglymc = rs(用戶名)quanxian = rs(權(quán)限)unload memdiform1.showend ifend sub返回按鈕的過(guò)程代碼如下：private sub command2_click()unload me 放棄登錄，返回啟動(dòng)界面end sub（3） 創(chuàng)建系統(tǒng)主

30、控界面：系統(tǒng)主控界面是集中管理系統(tǒng)的界面，它主要通過(guò)菜單或命令按鈕對(duì)其他窗體進(jìn)行調(diào)用，對(duì)報(bào)表進(jìn)行顯示或打印，其制作過(guò)程如下：1. 在工程中增加一個(gè)新的mdi窗體mdiform1，并加入一個(gè)圖片框picture1用于放入在系統(tǒng)啟動(dòng)后加載的圖片。保存后創(chuàng)建系統(tǒng)主菜單。2. 右鍵單窗體，出現(xiàn)彈出式菜單，選擇“菜單編輯器”菜單項(xiàng)，進(jìn)入菜單編輯對(duì)話框，菜單編輯器如圖.1所示。3. 在菜單編輯器中添加系統(tǒng)各個(gè)模塊的信息，添加好后的系統(tǒng)界面如圖.2所示。4在系統(tǒng)使用中，若你登錄時(shí)的權(quán)限選擇為user，你就不可以使用添加用戶菜單，只有當(dāng)你的選擇權(quán)限為system時(shí)，你才可使用。其認(rèn)

31、證代碼如下：private sub mdiform_load()picture1.picture = loadpicture(app.path & wuyi.jpg)if quanxian = system then 當(dāng)權(quán)限為system時(shí)，增加用戶可用 adduser_menu.enabled = trueelse adduser_menu.enabled = falseend ifend sub其余菜單的過(guò)程代碼基本為打開(kāi)其它窗體，在此不一一列出。完成窗體設(shè)置后，保存退出。（4） 創(chuàng)建旅游線路管理窗體旅游線路管理是旅行社管理的一個(gè)重要的管理方面，該窗體主要用于對(duì)一個(gè)旅行社的旅游線路數(shù)據(jù)進(jìn)行

32、增加、修改、刪除等操作，創(chuàng)建該管理窗體的基本方法如下：1.在工程中增加一個(gè)新的窗體，并將該窗體的名稱(chēng)修改為lyxlgl。設(shè)置該窗體的基本屬性，如下表所示：窗體lyxlgl的主要屬性屬性項(xiàng)名屬性設(shè)置內(nèi)容borderstyle1-fixedstartupposition2-屏幕中心windowsstate0-normal2.在窗體中放入一個(gè)adodc1控件，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過(guò)編制命令后再進(jìn)行各種使用，比較麻煩，因此我們?nèi)圆捎檬褂胊dodc1控件引入數(shù)據(jù)源的方法,在窗體調(diào)用時(shí)，數(shù)據(jù)源就已經(jīng)加載，其代碼如下：private

33、sub form_load()adodc1.connectionstring = conn.connectionstringadodc1.commandtype = adcmdunknownsql = select * from 旅游線路表adodc1.recordsource = sqladodc1.refreshdatagrid1.allowaddnew = falsedatagrid1.allowdelete = falsedatagrid1.allowupdate = falseif adodc1.recordset.eof = false then adodc1.recordset.

34、movefirstend ifset datagrid1.datasource = adodc1end sub3在窗體中放入一個(gè)表格控件datagrid1，該控件的主要作用是顯示數(shù)據(jù)，對(duì)數(shù)據(jù)進(jìn)行編輯，其表格控件的基本屬性如下表所示。表格控件datagird1的基本屬性屬性項(xiàng)名屬性設(shè)置內(nèi)容namedatagrid1caption旅游線路管理表格allowaddnewtrueallowdeletetrueallowupdatatruedatasourceadodc14在窗體中再放入八個(gè)按鈕控件，分別設(shè)置其caption為，詳細(xì)信息、增加、刪除、修改、首記錄、前一個(gè)、下一個(gè)、尾記錄。其作用是為了對(duì)數(shù)

35、據(jù)庫(kù)進(jìn)行操作。其操作過(guò)程代碼如下：詳細(xì)信息按鈕代碼：private sub command1_click()flag = 3lyxledit.show 1end sub增加按鈕代碼：private sub command2_click()flag = 1lyxledit.show 1end sub刪除按鈕代碼：private sub command3_click()if adodc1.recordset.eof then msgbox 不能刪除空記錄!, vbcritical + vbexclamation, 警告elsedim ok as integerok = msgbox(確認(rèn)刪除!,

36、vbokcancel + vbexclamation, 確認(rèn))if ok = 1 thenadodc1.recordset.deleteend ifend ifend sub修改按鈕代碼：private sub command4_click()flag = 2lyxledit.show 1end sub首記錄按鈕代碼：private sub command5_click()adodc1.recordset.movefirstend sub前一條按鈕代碼：private sub command6_click()if adodc1.recordset.bof = true thenmsgbox 已

37、到文件首部！elseadodc1.recordset.movepreviousend ifend sub后一條按鈕代碼：private sub command7_click()if adodc1.recordset.eof thenmsgbox 已經(jīng)在文件尾部！elseadodc1.recordset.movenextend ifend sub尾記錄按鈕代碼：private sub command8_click()adodc1.recordset.movelastend sub5其中，詳細(xì)信息按鈕、數(shù)據(jù)的增加和修改按鈕所打開(kāi)的都是同一個(gè)窗體，只是其變量flag的值不同，它們的單擊事件是通過(guò)判斷

38、flag的值不同來(lái)對(duì)窗體lyxledit進(jìn)行查看詳細(xì)、修改記錄、增加記錄。而窗體lyxledit創(chuàng)建步驟如下：1) 添加一個(gè)窗體，命名為lyxledit；2) 在窗體中放入八個(gè)標(biāo)簽控件，八個(gè)文本框控件，一個(gè)組合框控件，其中text(4)和組合框是重合的，八個(gè)標(biāo)簽控件是為了說(shuō)明八個(gè)文本框控的作用；此外，再放入二個(gè)按鈕控件。其過(guò)程代碼如下：option explicitdim i as integerdim sql as string系統(tǒng)初始化過(guò)程代碼：private sub init() 初始化 text1(0).text = text1(1).text = text1(2).text = te

39、xt1(3).text = text1(4).text = text1(5).text = text1(6).text = text1(7).text = combo1.text = end sub增加用戶時(shí)所調(diào)用窗體的過(guò)程代碼：private sub command1_click() if text1(0).text = then msgbox 請(qǐng)輸入線路名稱(chēng)！, vbokonly + vbexclamation, 警告！ text1(0).setfocus exit sub end if if text1(1).text = then msgbox 請(qǐng)輸入主要景點(diǎn)！, vbokonly +

40、 vbexclamation, 警告！ text1(1).setfocus exit sub end if if text1(2).text = then msgbox 請(qǐng)輸入行程天數(shù)！, vbokonly + vbexclamation, 警告！ text1(2).setfocus exit sub end if if text1(3).text = then msgbox 請(qǐng)輸入報(bào)價(jià)！, vbokonly + vbexclamation, 警告！ text1(3).setfocus exit sub end if if combo1.text = then msgbox 請(qǐng)輸入交通方式！,

41、 vbokonly + vbexclamation, 警告！ combo1.setfocus exit sub end if if text1(5).text = then msgbox 請(qǐng)輸入住宿標(biāo)準(zhǔn)！, vbokonly + vbexclamation, 警告！ text1(5).setfocus exit sub end if if text1(6).text = then 以上均為在輸入為空的警告 msgbox 請(qǐng)輸入行程安排！, vbokonly + vbexclamation, 警告！ text1(6).setfocus exit sub end if if flag = 1 th

42、en 添加操作 sql = select * from 旅游線路表 where 名稱(chēng)= + text1(0).text + rs.cursorlocation = aduseclient rs.open sql, conn, adopenkeyset, adlockoptimistic if rs.eof = false then 判斷是否已經(jīng)存在記錄 msgbox 已經(jīng)存在這個(gè)旅游線路的記錄！, vbokonly + vbexclamation, 警告！ text1(0).setfocus rs.close else rs.addnew rs!名稱(chēng) = text1(0).text rs!主要

43、景點(diǎn) = text1(1).text rs!行程天數(shù) = text1(2).text rs!報(bào)價(jià) = text1(3).text rs!交通 = combo1.text rs!住宿 = text1(5).text rs!行程安排 = text1(6).text rs!說(shuō)明 = text1(7).text rs.update rs.close set rs = nothing msgbox 記錄已經(jīng)成功添加！, vbokonly + vbexclamation, 添加結(jié)果！ lyxlgl.adodc1.recordsource = select * from 旅游線路表 lyxlgl.adodc

44、1.refresh unload me end if elseif flag = 2 then 修改操作 rs.open select * from 旅游線路表 where 名稱(chēng)= + text1(0).text + , conn, 1, 3 if rs.eof then exit sub rs!名稱(chēng) = text1(0).text rs!主要景點(diǎn) = text1(1).text rs!行程天數(shù) = text1(2).text rs!報(bào)價(jià) = text1(3).text rs!交通 = combo1.text rs!住宿 = text1(5).text rs!行程安排 = text1(6).t

45、ext rs!說(shuō)明 = text1(7).text rs.update rs.close set rs = nothing msgbox 記錄已經(jīng)成功修改！, vbokonly + vbexclamation, 修改結(jié)果！ lyxlgl.adodc1.recordsource = select * from 旅游線路表 lyxlgl.adodc1.refresh unload me end ifend sub退出按鈕過(guò)程代碼：private sub command2_click() unload me exit subend sub窗體調(diào)用時(shí)加載信息的過(guò)程代碼：private sub form

46、_load() if lyxlgl.adodc1.recordset.eof = false and lyxlgl.adodc1.recordset.bof = false then for i = 0 to 7 text1(i) = lyxlgl.adodc1.recordset.fields(i + 1) next i if not isnull(lyxlgl.adodc1.recordset.fields(5) then combo1.text = lyxlgl.adodc1.recordset.fields(5) else combo1.text = lyxlgl.adodc1.ref

47、resh else for i = 0 to 7 text1(i) = next i combo1.text = end if with combo1 添加交通方式選項(xiàng) .additem 雙飛 .additem 單飛 .additem 雙臥 .additem 旅行大巴 end with if flag = 1 then 判斷為添加信息 me.caption = 添加 + me.caption call init combo1.listindex = 0 elseif flag = 2 then 判斷為修改信息 me.caption = 修改 + me.caption else me.capti

48、on = me.caption & 詳細(xì)信息 判斷為查詢?cè)敿?xì)信息 command1.enabled = false command1.visible = false command2.caption = 返回 end ifend sub（5）創(chuàng)建旅游線路查詢窗體1.在工程中增加一個(gè)新的窗體，并將該窗體的名稱(chēng)修改為lyxlcx。該窗體的主要目的是用于對(duì)旅游線路進(jìn)行條件查詢，設(shè)置該窗體的基本屬性，如下表所示：窗體lyxlcx的主要屬性屬性項(xiàng)名屬性設(shè)置內(nèi)容borderstyle1-fixedstartupposition2-屏幕中心windowsstate0-normal2.在窗體中放入一個(gè)adod

49、c1控件，作為該窗體的數(shù)據(jù)源，注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源，但使用數(shù)據(jù)環(huán)境往往需要通過(guò)編制命令后再進(jìn)行各種使用，比較麻煩，因此我們?nèi)圆捎檬褂胊dodc1控件引入數(shù)據(jù)源的方法,在窗體調(diào)用時(shí)，數(shù)據(jù)源就已經(jīng)加載，其代碼如下：private sub form_load()adodc1.connectionstring = conn.connectionstringadodc1.commandtype = adcmdunknownsql = select * from 旅游線路表adodc1.recordsource = sqladodc1.refreshdatagrid1.allowaddnew = falsedatagrid1.allowdelete = falsedatagrid1.allowupdate = falseif adodc1.recordset.eof = false then adodc1.recordset.movefirstend ifset datag