數(shù)據(jù)庫課程設(shè)計(jì)—旅行社管理信息系統(tǒng)

1、目錄第一章系統(tǒng)概述1系統(tǒng)開發(fā)背景與意義1系統(tǒng)開發(fā)背景1系統(tǒng)開發(fā)意義1第二章系統(tǒng)需求分析32.1 系統(tǒng)功能要求32.2. 需求分析概述32.3 系統(tǒng)層次分析42.4 系統(tǒng)數(shù)據(jù)流圖52.5 數(shù)據(jù)字典7第三章 系統(tǒng)總體設(shè)計(jì)123.1 系統(tǒng)總體設(shè)計(jì)目標(biāo)123.2 概念模型123.2.1 概念模式E-R123.3數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)16第四章 數(shù)據(jù)庫系統(tǒng)實(shí)現(xiàn)204.1 系統(tǒng)實(shí)現(xiàn)工具簡介204.1.1 開發(fā)語言Visual Basic 6020SQL Server 2000簡介22人事管理系統(tǒng)數(shù)據(jù)庫實(shí)現(xiàn)23結(jié)束語46參考文獻(xiàn)47第一章 系統(tǒng)概述系統(tǒng)開發(fā)背景 天津中國青年旅行社創(chuàng)立于1986年，隸屬于共青團(tuán)天

2、津市委員會(huì)，為中國青旅集團(tuán)天津公司，是經(jīng)國家旅游局批準(zhǔn)，具有國有獨(dú)資性質(zhì)的國際旅行社，公司已逐步開展成為一家專業(yè)的旅游效勞機(jī)構(gòu)，以自身良好的社會(huì)形象，完善的經(jīng)營網(wǎng)絡(luò)，先進(jìn)的效勞手段，豐富的旅游產(chǎn)品，廣泛的客戶根底，完善并建成了現(xiàn)代化程度較高的旅行社。公司堅(jiān)持質(zhì)量為本，效益優(yōu)先的經(jīng)營理念，將自身已有的國內(nèi)旅游效勞網(wǎng)絡(luò)與豐富的旅游資源、先進(jìn)的效勞理念及良好的效勞質(zhì)量緊密結(jié)合，專業(yè)從事為企業(yè)及個(gè)人提供高品質(zhì)的全球旅游資訊及出行效勞。業(yè)務(wù)范圍包括經(jīng)營國內(nèi)旅游業(yè)務(wù)為主，組織團(tuán)隊(duì)、散客旅游，安排商務(wù)、會(huì)務(wù)、國內(nèi)外考察活動(dòng)，代辦國內(nèi)、國際航班機(jī)票、火車票、輪船票，商務(wù)租車、會(huì)議安排、度假產(chǎn)品的預(yù)訂及自助旅行

3、等全方位的效勞。天津青旅的奮斗目標(biāo)：力創(chuàng)中國旅游行業(yè)“效勞一流、實(shí)力一流、人才一流、業(yè)務(wù)一流的業(yè)績。由于旅游線路的增加和參團(tuán)人員的增多和復(fù)雜性，舊的管理系統(tǒng)的處理能力和管理方法很難滿足現(xiàn)代化企業(yè)管理的需求，舊系統(tǒng)已成為實(shí)現(xiàn)企業(yè)戰(zhàn)略目標(biāo)的主要障礙。但是公司的內(nèi)部管理系統(tǒng)還不完善，還在進(jìn)行以人工統(tǒng)計(jì)和分配為主的工作，不但花費(fèi)了人工，而且由于數(shù)據(jù)復(fù)雜往往難以防止會(huì)出錯(cuò)，給企業(yè)造成一定的負(fù)面影響，降低了企業(yè)的工作效率。因此，在這個(gè)以計(jì)算機(jī)網(wǎng)絡(luò)技術(shù)為主流的時(shí)代，公司有必要開發(fā)一個(gè)完善的內(nèi)部管理系統(tǒng)。系統(tǒng)開發(fā)意義 我國的旅行社目前正處于一個(gè)科學(xué)技術(shù)日新月異飛速向前開展的環(huán)境中。信息技術(shù)和通信技術(shù)以令人目不

4、暇接的速度開展，尤其是互聯(lián)網(wǎng)絡(luò)的廣泛流行，使得各種效勞信息已近乎透明，且個(gè)性突出的游客們已不再滿足于死板的標(biāo)準(zhǔn)化的旅游工程，要求量身定做，旅游行業(yè)內(nèi)的競爭日趨劇烈。這就要求旅行社必須采取現(xiàn)代化的管理手段，利用計(jì)算機(jī)的開展成果結(jié)合旅行社的業(yè)務(wù)特點(diǎn)，建立高效的旅行社管理系統(tǒng)，以迅速、準(zhǔn)確地捕捉客戶要求，并加以高效回應(yīng)，使游客滿意，才能擺脫被擠出的危險(xiǎn)并在業(yè)內(nèi)脫穎而出。    旅行社管理信息系統(tǒng)是一個(gè)典型的多表操作系統(tǒng)，因?yàn)橐粋€(gè)旅行社涉及到導(dǎo)游的管理與查詢，導(dǎo)游與景點(diǎn)的分布，景點(diǎn)與游客的分布與查詢，導(dǎo)游、景點(diǎn)和游客三者之間的分布與查詢，還涉及到景點(diǎn)的各種管理、導(dǎo)游的各種

5、管理和游客的各種管理等等，因此，它是一個(gè)比擬復(fù)雜的管理系統(tǒng)。第二章 系統(tǒng)需求分析 旅游管理系統(tǒng)由團(tuán)員信息表、線路信息表、團(tuán)隊(duì)信息表、游客團(tuán)隊(duì)信息表、密碼信息表五個(gè)信息表組成，主要來實(shí)現(xiàn)旅游團(tuán)隊(duì)、團(tuán)隊(duì)團(tuán)員及旅游路線相關(guān)信息的輸入、查詢和維護(hù)，以及旅游團(tuán)隊(duì)和團(tuán)員信息的報(bào)表及輸出、旅游路線排行榜的發(fā)布和密碼的更改等各項(xiàng)功能。人類社會(huì)在經(jīng)歷過農(nóng)業(yè)革命和工業(yè)革命之后，如今已經(jīng)如信息革命階段。信息革命的核心是當(dāng)今先進(jìn)生產(chǎn)力的代表信息技術(shù)。信息技術(shù)本身是一個(gè)龐大的擴(kuò)展的高新技術(shù)群，包括電腦技術(shù)、電信技術(shù)、播送電視技術(shù)、網(wǎng)絡(luò)技術(shù)、多媒體技術(shù)、數(shù)據(jù)庫技術(shù)等等。信息技術(shù)的開展對人類社會(huì)的方方面面都產(chǎn)生了不同程度的

6、影響，包括旅游業(yè)。同時(shí)信息技術(shù)也推動(dòng)了旅游業(yè)的第二次革命，它對傳統(tǒng)的旅游管理、旅游效勞、旅游經(jīng)營和銷售手段等產(chǎn)生強(qiáng)大沖擊。隨著中國參加WTO，旅游行業(yè)競爭變得日益地劇烈，旅行社作為一個(gè)旅游企業(yè)，在整個(gè)旅游中起著非常重要的作用。旅行社對信息化的要求也變得越來越高。旅行社信息化不僅是適應(yīng)信息時(shí)代快速變化的必然選擇，同時(shí)也可以增加目前旅行社管理中的科技含量。通過對本地多家旅行社進(jìn)行信息化實(shí)施情況的調(diào)研，從實(shí)際情況中我們發(fā)現(xiàn)旅行社一般都配有電腦、 、 、計(jì)算機(jī)網(wǎng)絡(luò)等信息化設(shè)備，工作人員使用電腦也比擬熟練，其中有些旅行社有自己的網(wǎng)站，通過Internet宣傳自己。但是旅行社信息化開展滯后于旅游業(yè)的整體開

7、展、重硬件輕軟件，幾乎沒有自己的管理信息系統(tǒng)。我們發(fā)現(xiàn)旅行社日常業(yè)務(wù)工作比擬復(fù)雜，日常業(yè)務(wù)的操作根本上完全依靠手工勞動(dòng)，員工工作強(qiáng)度較大，尤其在五一、十一黃金周期間。在目前的旅行社經(jīng)營活動(dòng)中，業(yè)務(wù)操作不夠成熟標(biāo)準(zhǔn)，對游客和員工的信息資料管理也不夠系統(tǒng)化和標(biāo)準(zhǔn)化。如何降低人力本錢，跟上全球信息化的腳步，實(shí)現(xiàn)“無紙化辦公，越來越成為旅游企業(yè)要解決的問題。建立一個(gè)良好的管理信息系統(tǒng)相當(dāng)必要。通過調(diào)研，我們發(fā)現(xiàn)目前為使用管理信息系統(tǒng)的旅行社業(yè)務(wù)操作中存在以下問題：1游客報(bào)名的根本信息以及銷售的旅游線路等信息均以文字形式記錄于紙上，于每天晚上呈報(bào)計(jì)調(diào)中心匯總；各種憑證為紙質(zhì)，管理查詢均不方便。2旅游線路

8、、車票等旅游產(chǎn)品的根本信息更新速度慢，但是旅游市場上旅游產(chǎn)品的價(jià)格改變非常快，根本上一天一變，現(xiàn)無法做到及時(shí)更新。3由于旅行社有多個(gè)營業(yè)點(diǎn)在同時(shí)銷售旅游產(chǎn)品，對某些需實(shí)時(shí)掌握的信息更困難。如剩余的座位號(hào)、當(dāng)前報(bào)名人數(shù)等等，更新的主要方式是通過 和MSN以及 等設(shè)備。前臺(tái)銷售的員工接到游客的報(bào)名請求時(shí)就通過 與計(jì)調(diào)部門聯(lián)系，看是否還可以安排，如有空座位那么從MSN中獲得座位號(hào)等相關(guān)信息，報(bào)名流程結(jié)束要及時(shí)通知計(jì)調(diào)部門修改當(dāng)前信息，以便其他營業(yè)點(diǎn)獲得最新的信息。操作比擬復(fù)雜，加大了計(jì)調(diào)部員工和前臺(tái)銷售員的工作量。此外，還有可能忙中出錯(cuò)，導(dǎo)致信息不一致。 通過建立旅行社管理信息系統(tǒng)可以解決以上這些問

9、題。旅行社管理信息系統(tǒng)可以簡化員工的手工操作，標(biāo)準(zhǔn)操作流程，提高工作效率，降低勞動(dòng)強(qiáng)度；可以實(shí)現(xiàn)信息的實(shí)時(shí)更新能方便游客接受更好，更快的效勞；可以方便各部門信息的交流，改變傳統(tǒng)的文件滿天飛的局面；此外管理人員也可以通過該系統(tǒng)查詢當(dāng)前經(jīng)營情況以及各種電子單證，隨時(shí)掌握企業(yè)經(jīng)營動(dòng)態(tài)，從而更好地進(jìn)行管理。旅行社管理信息系統(tǒng)旅游團(tuán)隊(duì)管理團(tuán)員管理線路管理團(tuán)隊(duì)信息的報(bào)表及輸出團(tuán)隊(duì)信息的維護(hù)團(tuán)隊(duì)信息的查詢團(tuán)員信息的輸入團(tuán)隊(duì)信息的輸入團(tuán)員信息的維護(hù)團(tuán)員信息的查詢團(tuán)員信息的報(bào)表及輸出線路信息的輸入線路信息的維護(hù)線路信息的查詢線路信息的發(fā)布表2-1系統(tǒng)層次分析密碼管理密碼信息的存儲(chǔ)密碼信息的更改操作員登錄密碼驗(yàn)證

10、處理旅游團(tuán)隊(duì)信息團(tuán)員信息線路信息圖 2-2 系統(tǒng)總數(shù)據(jù)流圖財(cái)務(wù)科 P0以下為本系統(tǒng)數(shù)據(jù)字典的旅游管理系統(tǒng) 銷售統(tǒng)計(jì)表游客合同計(jì)調(diào)部門排團(tuán)方案表圖 2-3系統(tǒng)業(yè)務(wù)流程圖財(cái)務(wù)科D1 團(tuán)員信息表 D2 線路信息表F2銷售統(tǒng)計(jì)表 P2排團(tuán)處理P1 團(tuán)員信息處理團(tuán)員F1合同D3 團(tuán)隊(duì)信息表計(jì)調(diào)部門F3排團(tuán)方案表F4排團(tuán) 方案表圖 2-4系統(tǒng)業(yè)務(wù)流程圖1.以下為本系統(tǒng)數(shù)據(jù)字典的數(shù)據(jù)項(xiàng)局部: 1數(shù)據(jù)項(xiàng)編號(hào)：DNum 2 數(shù)據(jù)項(xiàng)編號(hào)：XNum數(shù)據(jù)項(xiàng)名稱：導(dǎo)游編號(hào) 數(shù)據(jù)項(xiàng)名稱：線路編號(hào)別 名：導(dǎo)游編號(hào) 別 名：線路編號(hào)簡 述：某導(dǎo)游的代碼 簡 述：某旅游線路的代碼類別及寬度：字符型，5位 類別及寬度：字符型，4

11、位取值范圍：G0001-G9999 取值范圍：I001-I999,A001-A9993數(shù)據(jù)項(xiàng)編號(hào)：TYNum 4 數(shù)據(jù)項(xiàng)編號(hào)：TDNum數(shù)據(jù)項(xiàng)名稱：團(tuán)員編號(hào) 數(shù)據(jù)項(xiàng)名稱：團(tuán)隊(duì)編號(hào)別 名：團(tuán)員編號(hào) 別 名：團(tuán)隊(duì)編號(hào)簡 述：某團(tuán)員的代碼 簡 述：某團(tuán)隊(duì)的代碼類別及寬度：字符型，5位 類別及寬度：字符型，3位 取值 范圍：T0001-T9999取值 范圍：001-999:1數(shù)據(jù)流編號(hào)：F1數(shù)據(jù)流名稱：合同簡 述：游客與旅行社簽訂的合同數(shù)據(jù)流來源：游客數(shù)據(jù)流去向：P1頂峰 流量：200份/天數(shù)據(jù)流組成：游客編號(hào)、姓名、性別、身份證號(hào)碼，聯(lián)系方式、地址、是否交款、會(huì)員。2數(shù)據(jù)流編號(hào)：F2數(shù)據(jù)流名稱：銷售

12、統(tǒng)計(jì)表簡 述：外聯(lián)銷售部每天的收入情況數(shù)據(jù)流來源：P1數(shù)據(jù)流去向：財(cái)務(wù)科流 量：1份/天數(shù)據(jù)流組成：游客編號(hào)、單價(jià)、總金額、折扣率、日期、經(jīng)辦人。 3數(shù)據(jù)流編號(hào)：F3數(shù)據(jù)流名稱：排團(tuán)方案表簡 述：對游客進(jìn)行團(tuán)隊(duì)編排的情況數(shù)據(jù)流來源：P2數(shù)據(jù)流去向：游客頂峰 流量：200份/天 數(shù)據(jù)流組成：團(tuán)隊(duì)編號(hào)、導(dǎo)游編號(hào)、開始時(shí)間、旅游天數(shù)、跟團(tuán)人數(shù)、 旅游路線。 4數(shù)據(jù)流編號(hào)：F4數(shù)據(jù)流名稱：排團(tuán)方案表簡 述：對游客進(jìn)行團(tuán)隊(duì)編排的情況數(shù)據(jù)流來源：P2數(shù)據(jù)流去向：計(jì)調(diào)部門數(shù)據(jù)流組成：團(tuán)隊(duì)編號(hào)、導(dǎo)游編號(hào)、開始時(shí)間、旅游天數(shù)、跟團(tuán)人數(shù)、 旅游路線。3. 以下為本系統(tǒng)數(shù)據(jù)字典的數(shù)據(jù)結(jié)構(gòu)卡片局部:數(shù)據(jù)結(jié)構(gòu)卡片數(shù)據(jù)結(jié)

13、構(gòu)名稱：用戶管理卡片數(shù)據(jù)結(jié)構(gòu)簡述：登記系統(tǒng)用戶信息時(shí)所記錄的卡片數(shù)據(jù)結(jié)構(gòu)的組成：操作員、密碼4. 以下為本系統(tǒng)數(shù)據(jù)字典的數(shù)據(jù)存儲(chǔ)局部:數(shù)據(jù)存儲(chǔ)卡片主要用于描述數(shù)據(jù)存儲(chǔ)的結(jié)構(gòu)、有關(guān)的數(shù)據(jù)流和查詢要求。1數(shù)據(jù)存儲(chǔ)卡片 編號(hào)：D1文件名：游客信息表簡述：存儲(chǔ)游客根本信息的表組成：游客編號(hào)、姓名、性別、身份證號(hào)碼，聯(lián)系方式、地址、是否交款、會(huì)員。有關(guān)的數(shù)據(jù)流：P1-D1，D1-P2有無立即查詢要求：有 2數(shù)據(jù)存儲(chǔ)卡片文件名：線路信息表簡述：存儲(chǔ)旅游線路的具體信息的表組成：線路編號(hào)、旅游路線、市場價(jià)格、本店價(jià)格、預(yù)訂有關(guān)的數(shù)據(jù)流：P2-D2有無立即查詢要求：有3數(shù)據(jù)存儲(chǔ)卡片文件名：導(dǎo)游信息表簡述：存儲(chǔ)導(dǎo)

14、游的根本信息的表組成：導(dǎo)游編號(hào)、姓名、性別、身份證號(hào)碼、 、地址、任職時(shí)間、級(jí)別、備注。有關(guān)的數(shù)據(jù)流：D3-P2有無立即查詢要求：有5. 以下為本系統(tǒng)數(shù)據(jù)字典的邏輯處理局部:1編號(hào)：P1名稱：游客信息處理簡述：處理游客信息輸入：游客編號(hào)、姓名、性別、身份證號(hào)碼，聯(lián)系方式、地址、是否交款、會(huì)員。輸出：游客信息表，銷售統(tǒng)計(jì)表處理：根據(jù)游客填寫好的合同登記游客信息表，并對當(dāng)天的營業(yè)額進(jìn)行統(tǒng)計(jì)，上報(bào)財(cái)務(wù)科。2編號(hào)：P2名稱：排團(tuán)處理簡述：對游客進(jìn)行團(tuán)隊(duì)編排。輸入：游客信息、線路信息、導(dǎo)游信息。輸出：排團(tuán)方案表處理：將游客信息、旅游線路和導(dǎo)游信息進(jìn)行匯總，合理安排方案，最終輸出排團(tuán)方案表。 6.以下為本

15、系統(tǒng)數(shù)據(jù)字典的外部實(shí)體局部： 1外部實(shí)體名稱：游客簡述：旅行者輸入的數(shù)據(jù)流：排團(tuán)方案表輸出的數(shù)據(jù)流：合同2外部實(shí)體名稱：財(cái)務(wù)科簡述：無輸入的數(shù)據(jù)流：銷售統(tǒng)計(jì)表輸出的數(shù)據(jù)流：無3外部實(shí)體名稱：計(jì)調(diào)部門簡述：負(fù)責(zé)安排接待房、餐、車、景點(diǎn)等事宜輸入的數(shù)據(jù)流：排團(tuán)方案表輸出的數(shù)據(jù)流：無第三章系統(tǒng)總體設(shè)計(jì)3.1 系統(tǒng)總體設(shè)計(jì)目標(biāo)旅游管理系統(tǒng)的目標(biāo)是對旅行社的導(dǎo)游人員以及客戶進(jìn)行管理和對團(tuán)隊(duì)進(jìn)行編排，以極大地提高業(yè)務(wù)信息記錄、統(tǒng)計(jì)、編排等信息管理的工作效率。盡量使系統(tǒng)的功能設(shè)計(jì),流程設(shè)計(jì)與實(shí)際操作吻合,有一定的可行性和現(xiàn)實(shí)意義。旅行社對旅游管理系統(tǒng)的要求有以下幾點(diǎn)：1、系統(tǒng)要本著服從和效勞于企業(yè)戰(zhàn)略使命和

16、長期目標(biāo)要求，以及繼承與優(yōu)化相結(jié)合的原那么，來制定信息系統(tǒng)開發(fā)方案。2、系統(tǒng)既要解決現(xiàn)行系統(tǒng)存在的問題，又要充分預(yù)計(jì)未來的需求變化，使系統(tǒng)具有足夠的適應(yīng)性和先進(jìn)性，還要方便運(yùn)行管理和維護(hù)。3、系統(tǒng)反映的流程簡潔，自動(dòng)化程度比擬高.如能自動(dòng)打印報(bào)表，自動(dòng)進(jìn)行一些簡單的結(jié)算，為管理人員提供相對準(zhǔn)確數(shù)據(jù)，保證高效率運(yùn)作等。3.2 概念模型 概念模式E-R 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì)是在需求分析的根底上，設(shè)計(jì)出能夠滿足用戶需求的各種實(shí)體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下根底。用E-R圖是描述數(shù)據(jù)實(shí)體關(guān)系的一種直觀描述工具，所以本系統(tǒng)采用了E-R圖方法進(jìn)行數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì)。性別通信地址身份證號(hào)碼

17、團(tuán)員姓名團(tuán)員編號(hào)團(tuán)隊(duì)編號(hào)路線編號(hào)備注團(tuán)費(fèi)交否圖3-1團(tuán)員的E-R圖線路名稱團(tuán)費(fèi)路線編號(hào)線路簡介圖形圖3-2 線路的E-R圖線路編號(hào)團(tuán)隊(duì)編號(hào)返程日期團(tuán)隊(duì)出發(fā)日期團(tuán)員人數(shù)圖3-3團(tuán)隊(duì)的E-R圖團(tuán)隊(duì)編號(hào)團(tuán)隊(duì)負(fù)責(zé)人盈虧團(tuán)費(fèi)團(tuán)隊(duì)人數(shù)旅游團(tuán)隊(duì)建團(tuán)時(shí)間愛你是否出發(fā)圖3-4旅游團(tuán)隊(duì)的E-R圖操作員密碼密碼圖3-5密碼的E-R圖帶著團(tuán)員團(tuán)隊(duì)1N參加NN1負(fù)責(zé)旅游團(tuán)隊(duì)1圖3-6系統(tǒng)的E-R圖 3.3 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)概念結(jié)構(gòu)是獨(dú)立于實(shí)際數(shù)據(jù)模型的信息結(jié)構(gòu)，必須將其轉(zhuǎn)化為邏輯結(jié)構(gòu)后才能進(jìn)行數(shù)據(jù)庫應(yīng)用的設(shè)計(jì)。也就是要將概念上的結(jié)構(gòu)轉(zhuǎn)化為BP數(shù)據(jù)庫系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型。團(tuán)員信息表結(jié)構(gòu)圖： 圖3-7團(tuán)員信息表結(jié)構(gòu)圖

18、 團(tuán)員信息表實(shí)例圖： 圖3-8團(tuán)員信息表實(shí)例圖線路信息表結(jié)構(gòu)圖：圖3-9線路信息表結(jié)構(gòu)圖線路信息表實(shí)例圖：圖3-10線路信息表實(shí)例圖團(tuán)隊(duì)信息表結(jié)構(gòu)圖：圖3-11團(tuán)隊(duì)信息表結(jié)構(gòu)圖團(tuán)隊(duì)信息表實(shí)例圖：圖3-12團(tuán)隊(duì)信息表實(shí)例圖旅游信息表結(jié)構(gòu)圖：圖3-13旅游信息表結(jié)構(gòu)圖旅游信息表實(shí)例圖：圖3-14旅游信息表實(shí)例圖密碼信息表結(jié)構(gòu)圖：圖3-15密碼信息表結(jié)構(gòu)圖密碼信息表實(shí)例圖：圖3-16密碼信息表實(shí)例圖第四章 數(shù)據(jù)庫系統(tǒng)實(shí)現(xiàn)4.1 系統(tǒng)實(shí)現(xiàn)工具簡介 開發(fā)語言Visual Basic 60 從1998年發(fā)布到2002年正式推出Visual Basic. NET簡直吊足了開發(fā)者的胃口。從2000年就開始傳言

19、的具有繼承、TryCatch語句等新功能的全新VB7.0一直沒有露面。直到2001年，Visual Studio.NET的第一個(gè)BETA版問世的時(shí)候，所有人都呆了這是Visual Basic嗎？And語句變成了BitAnd，數(shù)組只能從0下標(biāo)開始，而且連Dim語句的意義都變了，幾乎所有的窗體控件都變了，Long變成了Integer而Integer變成了Short，Variant不見了，Static不能用了簡直是翻天覆地，人們已經(jīng)無暇關(guān)注這個(gè)版本有什么改良，轉(zhuǎn)而擔(dān)憂我怎么才能接受這個(gè)本本了。其實(shí)Visual Basic. NET完全是為了.NET Framework這一全新的平臺(tái)而設(shè)計(jì)的，Visu

20、al Basic. NET的設(shè)計(jì)者一開始沒有掌握好新平臺(tái)和舊語言的平衡。到了BETA2中，很多東西回歸了6.0，如BitAnd又變回了And，數(shù)組的定義語句也變回了原有的意義，Static也回到了Visual Basic中。但是BETA1驚人的變化讓所有的VB開發(fā)者怕了，他們覺得這種語言被改的千瘡百孔，有些人干脆轉(zhuǎn)去研究傳說中的新語言C#。但是Visual Basic. NET渡過幾個(gè)BETA版本之后還是找到了正確的定位。Visual Basic. NET有對CLR最完善的支持，同時(shí)盡量保存著BASIC易懂的語法風(fēng)格和易用性。這個(gè)版本新增加的功能已經(jīng)數(shù)不清，最重要的幾個(gè)是： 1、 繼承。至此，

21、Visual Basic完成了向面向?qū)ο筠D(zhuǎn)變的道路。 2、 共享成員。 3、 TryCatch結(jié)構(gòu)化異常處理。 4、 Delegate和Interface。 5、 名稱空間。 6、 對自由線程的支持。 特別的是，Visual Basic. NET大大減少了Visual Basic語言的關(guān)鍵字，如GoSub、PSet等等。原先的Visual Basic有多達(dá)120個(gè)關(guān)鍵字，這給寫程序帶來了很大的不便，現(xiàn)在經(jīng)過精簡，Visual Basic脫下了這個(gè)沉重的包袱。 Visual Basic. NET現(xiàn)在是一門現(xiàn)代的、強(qiáng)壯的、面向?qū)ο蟮?、簡單的可視化開發(fā)語言。強(qiáng)大的語言功能吸引了很多開發(fā)者。歷史是在不

22、斷重演的，Visual Basic. NET如今的處境和Visual Basic 4.0很相似，由于兼容性變差，人氣也降低了。同時(shí)由于依附于.NET Framework，程序發(fā)布造成了一定的困難?，F(xiàn)在國內(nèi)使用Visual Basic. NET的人相對于Visual Basic 6.0來講顯得很少。但是憑借Visual Basic. NET強(qiáng)大的語言功能和MS的支持，Visual Basic. NET一定會(huì)顯出它的光芒來。 2003-穩(wěn)中求變的新版本 Visual Basic. NET 2003是一個(gè)相當(dāng)穩(wěn)重的版本，改變很少，但對小處有很多改良。首先Visual Basic 6.0升級(jí)向?qū)ё隽撕?/p>

23、大改良，這給從老版本痛苦升級(jí)的人帶來了更多一些的希望。其次在IDE方面，Visual Basic. NET 2003修正了許多錯(cuò)誤，還讓事件處理恢復(fù)了6.0的開發(fā)體驗(yàn)。語言方面只有兩項(xiàng)改良： 1、 在For、For Each語句中聲明循環(huán)變量。 2、 增加了數(shù)學(xué)移位運(yùn)算符<<和>>。 在這個(gè)比擬成熟穩(wěn)定的新版本下，許多Visual Basic的愛好和開始重新了解Visual Basic. NET，社區(qū)里面也漸漸熱鬧起來。但是，有些使用C#的開發(fā)者堅(jiān)持認(rèn)為Visual Basic. NET是垃圾，盡管Visual Basic. NET擁有比C#更多的功能和更好的IDE。這

24、說明不了解Visual Basic. NET成為它普及的最大障礙。 2005-完美主義的Visual Basic，能否再現(xiàn)輝煌？ 為了讓Visual Basic有最正確的開發(fā)體驗(yàn)，Visual Basic 2005的設(shè)計(jì)者絞盡了腦汁。這次Visual Basic 2005光語言上的改良就足以讓Visual Basic的開發(fā)人員快樂一陣子。大家可以去看看我那篇介紹Visual Basic 2005新增功能的貼子。挑重要的列在下邊： 1、 泛型 2、 運(yùn)算符重載 3、 Partial Type 4、 窗體的默認(rèn)實(shí)例讓你用VB6的語法使用窗體 5、 語法的多種改良 現(xiàn)在用Visual Basic 2

25、005只要一行代碼就可以讀寫注冊表、訪問文件、讀寫串口、獲取應(yīng)用程序信息 用Visual Basic 2005完全可以稱作享受開發(fā)。而泛型、運(yùn)算符重載等功能又可以讓Visual Basic的開發(fā)人員深入.NET Framework的全部功能，開發(fā)出最優(yōu)秀的應(yīng)用程序。4.1.2 SQL Server 2000簡介 SQL Server 是一個(gè)關(guān)系數(shù)據(jù)庫管理系統(tǒng)它最初是由Microsoft Sybase 和Ashton-Tate三家公司共同開發(fā)的于1988 年推出了第一個(gè)OS/2 版本在Windows NT 推出后Microsoft與Sybase 在SQL Server 的開發(fā)上就分道揚(yáng)鑣了Mic

26、rosoft 將SQL Server 移植到Windows NT系統(tǒng)上專注于開發(fā)推廣SQL Server 的Windows NT 版本Sybase 那么較專注于SQL Server在UNIX 操作系統(tǒng)上的應(yīng)用在本書中介紹的是Microsoft SQL Server 以后簡稱為SQL Server或MS SQL ServerSQL Server 2000 是Microsoft 公司推出的SQL Server 數(shù)據(jù)庫管理系統(tǒng)的最新版本該版本繼承了SQL Server 7.0 版本的優(yōu)點(diǎn)同時(shí)又比它增加了許多更先進(jìn)的功能具有使用方便可伸縮性好與相關(guān)軟件集成程度高等優(yōu)點(diǎn)可跨越從運(yùn)行Microsoft W

27、indows 98 的膝上型電腦到運(yùn)行Microsoft Windows 2000 的大型多處理器的效勞器等多種平臺(tái)使用。SQL Server 2000是為迅速提供可伸縮性電子商務(wù)、企業(yè)及數(shù)據(jù)倉庫解決方案而開發(fā)的完整數(shù)據(jù)庫與分析軟件產(chǎn)品。SQL SERVER 2000定位于Internet背景下的數(shù)據(jù)庫應(yīng)用，它為用戶的Web應(yīng)用提供了一款完善的數(shù)據(jù)管理和數(shù)據(jù)分析解決方案。同時(shí)SQL SERVER 2000還是Windows DNADistributed Internet Architecture架構(gòu)的一個(gè)核心組件。它極大地縮短了用戶開發(fā)電子商務(wù)、數(shù)據(jù)倉庫應(yīng)用的時(shí)間。SQL SERVER 200

28、0還提供對XML(Extensible Markup Language擴(kuò)展標(biāo)示語言支持)和HTTP的全方位支持。旅行社管理系統(tǒng)數(shù)據(jù)庫實(shí)現(xiàn)1.登錄窗體新建窗體，窗體的name屬性改為loginform單元文件名為，caption屬性改為：登錄窗體圖 登錄窗體用戶操作說明：當(dāng)用戶名或密碼輸入錯(cuò)誤時(shí)，系統(tǒng)會(huì)彈出對話框提示重新輸入。代碼：implementationuses main;$R *.dfm/單擊“確定按鈕procedure TLoginForm.Button1Click(Sender: TObject);begin with q_yh do begin close; /關(guān)閉yh數(shù)集 sql

29、.Clear; /去除 sql.Add('select * from yh where 用戶名=:a and 密碼=:b'); parambyname('a').asstring:=trim(edit1.Text); /在edit1中輸入用戶名 parambyname('b').AsString:=trim(edit2.text); /在edit2中輸入密碼 open; /翻開 end; if q_yh.recordcount>0 then else showmessage('用戶名或密碼錯(cuò)誤，請?jiān)佥斎?#39;);end;/單擊“

30、取消按鈕procedure TLoginForm.Button2Click(Sender: TObject);beginclose;/關(guān)閉end;end.2.主窗體設(shè)計(jì)如下圖界面mainform，單元文件名為。caption屬性改為“主窗體，用label實(shí)現(xiàn)顯示其他窗體的功能。圖 主窗體用戶操作說明：用戶單擊前六個(gè)標(biāo)簽就可進(jìn)入相應(yīng)窗體進(jìn)行操作。單擊“退出那么退出主窗體，進(jìn)入登錄窗體重新登錄。代碼：implementationuses yhglc, dyxxgl, xlxxgl, ykxxgl, ptxxgl, cxgl,login;$R *.dfm/單擊“用戶管理，進(jìn)入用戶管理窗體proced

31、ure TMainForm.Label1Click(Sender: TObject);begin yhglForm.show;end;/單擊“導(dǎo)游信息管理，進(jìn)入導(dǎo)游信息管理窗體procedure TMainForm.Label2Click(Sender: TObject);begin dyxxglForm.show;end;/單擊“線路信息管理，進(jìn)入線路信息管理窗體procedure TMainForm.Label3Click(Sender: TObject);beginxlxxglForm.show;end;/單擊“游客信息管理，進(jìn)入游客信息管理窗體procedure TMainForm.L

32、abel4Click(Sender: TObject);beginykxxglForm.show;end;/單擊“排團(tuán)信息管理，進(jìn)入派團(tuán)信息管理窗體procedure TMainForm.Label5Click(Sender: TObject);beginptxxglForm.show;end;/單擊“查詢管理，進(jìn)入查詢管理窗體procedure TMainForm.Label6Click(Sender: TObject);begincxglForm.show;end;/單擊“退出，退出主窗體procedure TMainForm.Label7Click(Sender: TObject);be

33、ginclose;loginForm.edit1.text :=''loginForm.edit2.text :=''end;end.3.用戶管理窗體創(chuàng)立窗體yhglform單元文件名為yhglc.pas。該窗體包含一個(gè)table組鍵和導(dǎo)航器，可方便地對用戶進(jìn)行操作。圖 用戶管理窗體用戶操作說明：操作人員通過導(dǎo)航器對用戶表進(jìn)行“添加、刪除、修改、保存。本窗體無代碼。創(chuàng)立窗體dyxxglForm(單元文件名為dyxxgl.pas)。該窗體包含一個(gè)table組鍵和導(dǎo)航器，可方便地對導(dǎo)游信息進(jìn)行操作。圖 導(dǎo)游信息管理窗體用戶操作說明：操作人員通過導(dǎo)航器對導(dǎo)游信息表進(jìn)行

34、“添加、刪除、修改、保存。本窗體無代碼。5 線路信息管理創(chuàng)立窗體xlxxglForm(單元文件名為xlxxgl.pas)。該窗體包含一個(gè)table組鍵和導(dǎo)航器，可方便地對旅游線路信息進(jìn)行操作。 圖 線路信息管理窗體用戶操作說明：操作人員通過導(dǎo)航器對線路信息表進(jìn)行“添加、刪除、修改、保存。單擊“打印按鈕，生成打印報(bào)表。代碼：implementationuses xlxxdy;$R *.dfm/單擊“打印，顯示打印報(bào)表procedure TxlxxglForm.BitBtn3Click(Sender: TObject);begin xlxxReportForm.show;end;end.6游客信息

35、管理窗體創(chuàng)立窗體ykxxglForm(單元文件名為ykxxgl.pas)。該窗體包含一個(gè)table組鍵和導(dǎo)航器，可方便地對游客信息進(jìn)行操作。圖 游客信息管理窗體用戶操作說明：操作人員通過導(dǎo)航器對游客信息表進(jìn)行“添加、刪除、修改、保存。單擊“打印按鈕，生成打印報(bào)表。代碼：implementationuses ykxxdy;$R *.dfm/單擊“打印，顯示打印報(bào)表procedure TykxxglForm.BitBtn4Click(Sender: TObject);beginykxxReportForm.show;end;end.7查詢窗體創(chuàng)立窗體cxglForm(單元文件名為cxgl.pas)

36、。在窗體中添加pagecontrol組件并新建四頁，并更改其相關(guān)屬性。（1） 導(dǎo)游查詢圖 查詢管理窗體-導(dǎo)游查詢用戶操作說明:用戶可以按編號(hào)、姓名、性別、級(jí)別分別對導(dǎo)游信息進(jìn)行查詢，清空按鈕用來去除輸入內(nèi)容后可重新查詢，還可瀏覽全部數(shù)據(jù)，并且對編號(hào)、姓名、性別進(jìn)行升序、降序排列，先選排序內(nèi)容再選排序方法。 代碼： /查詢 procedure TcxglForm.Button1Click(Sender: TObject);beginwith Q_dycx dobeginclose; /關(guān)閉query組件sql.Clear; /去除原來SQL屬性內(nèi)容sql.Add('select * fr

37、om dyxx where 導(dǎo)游編號(hào)=:a or 姓名=:b or 性別=:c or 級(jí)別=:d '); /添加新的SQL屬性內(nèi)容parambyname('a').AsString:=edit1.Text;/將edit1輸入內(nèi)容賦值給aparambyname('b').AsString:=edit2.Text; /將edit2輸入內(nèi)容賦值給bparambyname('c').AsString:=combobox1.Text; /將combobox1輸入內(nèi)容賦值給cparambyname('d').AsString:=com

38、bobox2.Text;/ 將combobox2輸入內(nèi)容賦值給dopen; /執(zhí)行語句end;end;/去除procedure TcxglForm.Button2Click(Sender: TObject);beginedit1.Clear; /去除edit1中輸入內(nèi)容 /去除edit2中輸入內(nèi)容 /瀏覽全部數(shù)據(jù)procedure TcxglForm.CheckBox1Click(Sender: TObject);beginif checkbox1.Checked thenwith Q_dycx dobeginclose;sql.Clear;sql.Add('select * from

39、 dyxx');open;end;end;/升序排序procedure TcxglForm.RadioButton1Click(Sender: TObject); var context:string;beginif (radiogroup2.ItemIndex=0) then context:='導(dǎo)游編號(hào)' /按導(dǎo)游編號(hào)else if (radiogroup2.ItemIndex=1) then context:='姓名' /按姓名else if (radiogroup2.ItemIndex=2) then context:='級(jí)別'

40、/按級(jí)別with Q_dycx do /更新查詢beginclose;sql.Clear ;sql.Add('select * from dyxx order by '+context+' ');open; /開始查詢end;end; /降序排序procedure TcxglForm.RadioButton2Click(Sender: TObject); var context:string;beginif (radiogroup2.ItemIndex=0) then context:='導(dǎo)游編號(hào)' /按導(dǎo)游編號(hào)else if (radiogro

41、up2.ItemIndex=1) then context:='姓名' /按姓名else if (radiogroup2.ItemIndex=2) then context:='級(jí)別' /按級(jí)別 with Q_dycx do /更新查詢beginclose;sql.Clear ;sql.Add('select * from dyxx order by '+context+' desc ');open; /開始查詢end;end;（2） 線路查詢圖 查詢管理窗體-線路查詢用戶操作說明:用戶可以按線路編號(hào)、本店價(jià)格分別對線路信息進(jìn)行查

42、詢，可以查詢價(jià)格在一定范圍之內(nèi)的所有線路，清空按鈕用來去除輸入內(nèi)容后可重新查詢，還可瀏覽全部數(shù)據(jù)，并且對編號(hào)、路線、本店價(jià)格進(jìn)行升序、降序排列，先選排序內(nèi)容再選排序方法。代碼：/查詢procedure TcxglForm.Button3Click(Sender: TObject);beginif edit4.text<>'' thenwith Q_xlcx dobeginclose; /關(guān)閉query組件sql.Clear; /去除原來SQL屬性內(nèi)容sql.Add('select * from xlxx where 線路編號(hào)=:a '); /添加新的

43、SQL屬性內(nèi)容parambyname('a').AsString:=edit4.Text; /將edit4輸入內(nèi)容賦值給aopen; /執(zhí)行語句end;if (combobox3.Text<>'') and (combobox4.Text<>'') then with Q_xlcx dobeginclose; /關(guān)閉query組件sql.Clear; /去除原來SQL屬性內(nèi)容sql.Add('select * from xlxx where 本店價(jià)格 between :b and :c '); /添加新的S

44、QL屬性內(nèi)容parambyname('b').AsCurrency:=strtoCurr(combobox3.Text);/將combobox3輸入內(nèi)容賦值給bparambyname('c').AsCurrency:=strtoCurr(combobox4.Text); /將combobox4輸入內(nèi)容賦值給copen; /執(zhí)行語句end;end;/去除procedure TcxglForm.Button4Click(Sender: TObject);beginedit4.Clear; /去除edit4中輸入內(nèi)容end;/瀏覽全部數(shù)據(jù)procedure Tcxgl

45、Form.CheckBox2Click(Sender: TObject);beginif checkbox2.Checked thenwith Q_xlcx dobeginclose;sql.Clear;sql.Add('select * from xlxx');open;end;end;/升序排序procedure TcxglForm.RadioButton3Click(Sender: TObject);var context:string;beginif (radiogroup4.ItemIndex=0) then context:='線路編號(hào)' /按線路編

46、號(hào)else if (radiogroup4.ItemIndex=1) then context:='旅游路線' /按旅游路線else if (radiogroup4.ItemIndex=2) then context:='本店價(jià)格' /按本店價(jià)格with Q_xlcx do /更新查詢beginclose;sql.Clear;sql.Add('select * from xlxx order by '+context+' ');open; /開始查詢end;end; /降序排序procedure TcxglForm.RadioBu

47、tton4Click(Sender: TObject);var context:string;beginif (radiogroup4.ItemIndex=0) then context:='線路編號(hào)' /按線路編號(hào)else if (radiogroup4.ItemIndex=1) then context:='旅游路線' /按旅游路線else if (radiogroup4.ItemIndex=2) then context:='本店價(jià)格' /按本店價(jià)格with Q_xlcx do /更新查詢beginclose;sql.Clear ;sql.

48、Add('select * from xlxx order by '+context+' desc ');open; /開始查詢end;end;（3） 游客查詢圖 查詢管理窗體-游客查詢用戶操作說明:用戶可以按編號(hào)、姓名、性別、會(huì)員以及交款分別對游客信息進(jìn)行查詢，清空按鈕用來去除輸入內(nèi)容后可重新查詢，還可瀏覽全部數(shù)據(jù)，并且對編號(hào)、姓名、會(huì)員、交款進(jìn)行升序、降序排列，先選排序內(nèi)容再選排序方法。代碼：/查詢procedure TcxglForm.Button5Click(Sender: TObject);begin with Q_ykcx dobeginclose;

49、 /關(guān)閉query組件sql.Clear; /去除原來SQL屬性內(nèi)容sql.Add('select * from ykxx where 游客編號(hào)=:a or 姓名=:b or 性別=:c or 會(huì)員=:d or 是否交款=:e'); /添加新的SQL屬性內(nèi)容parambyname('a').AsString:=edit5.Text; /將edit5輸入內(nèi)容賦值給aparambyname('b').AsString:=edit6.Text; /將edit6輸入內(nèi)容賦值給bparambyname('c').AsString:=comb

50、obox5.Text; /將combobox5輸入內(nèi)容賦值給cparambyname('d').AsString:=combobox6.Text; /將combobox6輸入內(nèi)容賦值給dparambyname('e').AsString:=combobox7.Text; /將combobox7輸入內(nèi)容賦值給eopen; /執(zhí)行語句end;end;/去除procedure TcxglForm.Button6Click(Sender: TObject);beginedit5.Clear; /去除edit5中輸入內(nèi)容edit6.Clear; /去除edit6中輸入內(nèi)容

51、/瀏覽全部數(shù)據(jù)procedure TcxglForm.CheckBox3Click(Sender: TObject);begin if checkbox3.Checked thenwith Q_ykcx dobeginclose;sql.Clear;sql.Add('select * from ykxx');open;end;end;/升序排序procedure TcxglForm.RadioButton5Click(Sender: TObject);var context:string;beginif (radiogroup6.ItemIndex=0) then contex

52、t:='游客編號(hào)' /按游客編號(hào)else if (radiogroup6.ItemIndex=1) then context:='姓名' /按姓名else if (radiogroup6.ItemIndex=2) then context:='會(huì)員' /按會(huì)員else if (radiogroup6.ItemIndex=3) then context:='是否交款' /按是否交款with Q_ykcx do /更新查詢beginclose;sql.Clear ;sql.Add('select * from ykxx order by '+context+' ');open; /開始查詢end;end;/降序排序procedure TcxglForm.RadioButton6Click(Sender: TObject);var cont