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

.../...目錄第一章系統(tǒng)概述11.1系統(tǒng)開(kāi)發(fā)背景與意義1系統(tǒng)開(kāi)發(fā)背景1系統(tǒng)開(kāi)發(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ù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)16第四章數(shù)據(jù)庫(kù)系統(tǒng)實(shí)現(xiàn)204.1系統(tǒng)實(shí)現(xiàn)工具簡(jiǎn)介204.1.1開(kāi)發(fā)語(yǔ)言VisualBasic6．020SQLServer2000簡(jiǎn)介224.2人事管理系統(tǒng)數(shù)據(jù)庫(kù)實(shí)現(xiàn)23結(jié)束語(yǔ)46參考文獻(xiàn)47......系統(tǒng)概述1.1系統(tǒng)開(kāi)發(fā)背景與意義系統(tǒng)開(kāi)發(fā)背景天津中國(guó)青年旅行社創(chuàng)建于1986年,隸屬于共青團(tuán)天津市委員會(huì),為中國(guó)青旅集團(tuán)天津公司,是經(jīng)國(guó)家旅游局批準(zhǔn),具有國(guó)有獨(dú)資性質(zhì)的國(guó)際旅行社,公司已逐步發(fā)展成為一家專(zhuān)業(yè)的旅游服務(wù)機(jī)構(gòu),以自身良好的社會(huì)形象,完善的經(jīng)營(yíng)網(wǎng)絡(luò),先進(jìn)的服務(wù)手段,豐富的旅游產(chǎn)品,廣泛的客戶基礎(chǔ),完善并建成了現(xiàn)代化程度較高的旅行社。公司堅(jiān)持質(zhì)量為本,效益優(yōu)先的經(jīng)營(yíng)理念,將自身已有的國(guó)內(nèi)旅游服務(wù)網(wǎng)絡(luò)與豐富的旅游資源、先進(jìn)的服務(wù)理念及良好的服務(wù)質(zhì)量緊密結(jié)合,專(zhuān)業(yè)從事為企業(yè)及個(gè)人提供高品質(zhì)的全球旅游資訊及出行服務(wù)。業(yè)務(wù)范圍包括經(jīng)營(yíng)國(guó)內(nèi)旅游業(yè)務(wù)為主,組織團(tuán)隊(duì)、散客旅游,安排商務(wù)、會(huì)務(wù)、國(guó)內(nèi)外考察活動(dòng),代辦國(guó)內(nèi)、國(guó)際航班機(jī)票、火車(chē)票、輪船票,商務(wù)租車(chē)、會(huì)議安排、度假產(chǎn)品的預(yù)訂及自助旅行等全方位的服務(wù)。天津青旅的奮斗目標(biāo)：力創(chuàng)中國(guó)旅游行業(yè)"服務(wù)一流、實(shí)力一流、人才一流、業(yè)務(wù)一流"的業(yè)績(jī)。由于旅游線路的增加和參團(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í)代,公司有必要開(kāi)發(fā)一個(gè)完善的內(nèi)部管理系統(tǒng)。系統(tǒng)開(kāi)發(fā)意義我國(guó)的旅行社目前正處于一個(gè)科學(xué)技術(shù)日新月異飛速向前發(fā)展的環(huán)境中。信息技術(shù)和通信技術(shù)以令人目不暇接的速度發(fā)展,尤其是互聯(lián)網(wǎng)絡(luò)的廣泛流行,使得各種服務(wù)信息已近乎透明,且個(gè)性突出的游客們已不再滿足于死板的標(biāo)準(zhǔn)化的旅游項(xiàng)目,要求量身定做,旅游行業(yè)內(nèi)的競(jìng)爭(zhēng)日趨激烈。這就要求旅行社必須采取現(xiàn)代化的管理手段,利用計(jì)算機(jī)的發(fā)展成果結(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)游的各種管理和游客的各種管理等等,因此,它是一個(gè)比較復(fù)雜的管理系統(tǒng)。第二章系統(tǒng)需求分析2.1系統(tǒng)功能需求旅游管理系統(tǒng)由團(tuán)員信息表、線路信息表、團(tuán)隊(duì)信息表、游客團(tuán)隊(duì)信息表、密碼信息表五個(gè)信息表組成,主要來(lái)實(shí)現(xiàn)旅游團(tuán)隊(duì)、團(tuán)隊(duì)團(tuán)員及旅游路線相關(guān)信息的輸入、查詢和維護(hù),以及旅游團(tuán)隊(duì)和團(tuán)員信息的報(bào)表及輸出、旅游路線排行榜的發(fā)布和密碼的更改等各項(xiàng)功能。2.2需求分析概述人類(lèi)社會(huì)在經(jīng)歷過(guò)農(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ù)庫(kù)技術(shù)等等。信息技術(shù)的發(fā)展對(duì)人類(lèi)社會(huì)的方方面面都產(chǎn)生了不同程度的影響,包括旅游業(yè)。同時(shí)信息技術(shù)也推動(dòng)了旅游業(yè)的第二次革命,它對(duì)傳統(tǒng)的旅游管理、旅游服務(wù)、旅游經(jīng)營(yíng)和銷(xiāo)售手段等產(chǎn)生強(qiáng)大沖擊。隨著中國(guó)加入WTO,旅游行業(yè)競(jìng)爭(zhēng)變得日益地激烈,旅行社作為一個(gè)旅游企業(yè),在整個(gè)旅游中起著非常重要的作用。旅行社對(duì)信息化的要求也變得越來(lái)越高。旅行社信息化不僅是適應(yīng)信息時(shí)代快速變化的必然選擇,同時(shí)也可以增加目前旅行社管理中的科技含量。通過(guò)對(duì)本地多家旅行社進(jìn)行信息化實(shí)施情況的調(diào)研,從實(shí)際情況中我們發(fā)現(xiàn)旅行社一般都配有電腦、電話、傳真、計(jì)算機(jī)網(wǎng)絡(luò)等信息化設(shè)備,工作人員使用電腦也比較熟練,其中有些旅行社有自己的網(wǎng)站,通過(guò)Internet宣傳自己。但是旅行社信息化發(fā)展滯后于旅游業(yè)的整體發(fā)展、重硬件輕軟件,幾乎沒(méi)有自己的管理信息系統(tǒng)。我們發(fā)現(xiàn)旅行社日常業(yè)務(wù)工作比較復(fù)雜,日常業(yè)務(wù)的操作基本上完全依靠手工勞動(dòng),員工工作強(qiáng)度較大,尤其在五一、十一黃金周期間。在目前的旅行社經(jīng)營(yíng)活動(dòng)中,業(yè)務(wù)操作不夠成熟規(guī)范,對(duì)游客和員工的信息資料管理也不夠系統(tǒng)化和規(guī)范化。如何降低人力成本,跟上全球信息化的腳步,實(shí)現(xiàn)"無(wú)紙化’辦公,越來(lái)越成為旅游企業(yè)要解決的問(wèn)題。建立一個(gè)良好的管理信息系統(tǒng)相當(dāng)必要。通過(guò)調(diào)研,我們發(fā)現(xiàn)目前為使用管理信息系統(tǒng)的旅行社業(yè)務(wù)操作中存在以下問(wèn)題：〔1游客報(bào)名的基本信息以及銷(xiāo)售的旅游線路等信息均以文字形式記錄于紙上,于每天晚上呈報(bào)計(jì)調(diào)中心匯總；各種憑證為紙質(zhì),管理查詢均不方便。〔2旅游線路、車(chē)票等旅游產(chǎn)品的基本信息更新速度慢,但是旅游市場(chǎng)上旅游產(chǎn)品的價(jià)格改變非?？?基本上一天一變,現(xiàn)無(wú)法做到及時(shí)更新?！?由于旅行社有多個(gè)營(yíng)業(yè)點(diǎn)在同時(shí)銷(xiāo)售旅游產(chǎn)品,對(duì)某些需實(shí)時(shí)掌握的信息更困難。如剩余的座位號(hào)、當(dāng)前報(bào)名人數(shù)等等,更新的主要方式是通過(guò)電話和MSN以及傳真等設(shè)備。前臺(tái)銷(xiāo)售的員工接到游客的報(bào)名請(qǐng)求時(shí)就通過(guò)電話與計(jì)調(diào)部門(mén)聯(lián)系,看是否還可以安排,如有空座位則從MSN中獲得座位號(hào)等相關(guān)信息,報(bào)名流程結(jié)束要及時(shí)通知計(jì)調(diào)部門(mén)修改當(dāng)前信息,以便其他營(yíng)業(yè)點(diǎn)獲得最新的信息。操作比較復(fù)雜,加大了計(jì)調(diào)部員工和前臺(tái)銷(xiāo)售員的工作量。此外,還有可能忙中出錯(cuò),導(dǎo)致信息不一致。通過(guò)建立旅行社管理信息系統(tǒng)可以解決以上這些問(wèn)題。旅行社管理信息系統(tǒng)可以簡(jiǎn)化員工的手工操作,規(guī)范操作流程,提高工作效率,降低勞動(dòng)強(qiáng)度；可以實(shí)現(xiàn)信息的實(shí)時(shí)更新能方便游客接受更好,更快的服務(wù)；可以方便各部門(mén)信息的交流,改變傳統(tǒng)的文件滿天飛的局面；此外管理人員也可以通過(guò)該系統(tǒng)查詢當(dāng)前經(jīng)營(yíng)情況以及各種電子單證,隨時(shí)掌握企業(yè)經(jīng)營(yíng)動(dòng)態(tài),從而更好地進(jìn)行管理。2.3系統(tǒng)層次分析旅行社管理信息系統(tǒng)旅行社管理信息系統(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ǔ)密碼信息的更改2.4系統(tǒng)數(shù)據(jù)流圖操作員操作員登錄密碼驗(yàn)證處理旅游團(tuán)隊(duì)信息團(tuán)員信息線路信息圖2-2系統(tǒng)總數(shù)據(jù)流圖財(cái)務(wù)科P0以下為本系統(tǒng)數(shù)據(jù)字典的旅游管理系統(tǒng)財(cái)務(wù)科P0以下為本系統(tǒng)數(shù)據(jù)字典的旅游管理系統(tǒng)銷(xiāo)售統(tǒng)計(jì)表游客合同游客計(jì)調(diào)部門(mén)排團(tuán)計(jì)劃表計(jì)調(diào)部門(mén)圖圖2-3系統(tǒng)業(yè)務(wù)流程圖財(cái)務(wù)科財(cái)務(wù)科 D1團(tuán)員信息表D2線路信息表 F2銷(xiāo)售統(tǒng)計(jì)表P2排團(tuán)處理P1P2排團(tuán)處理P1團(tuán)員信息處理團(tuán)員 F1合同團(tuán)員 D3團(tuán)隊(duì)信息表計(jì)調(diào)部門(mén) F3排團(tuán)計(jì)劃表 F4排團(tuán)計(jì)調(diào)部門(mén)計(jì)劃表圖圖2-4系統(tǒng)業(yè)務(wù)流程圖2.5數(shù)據(jù)字典1..以下為本系統(tǒng)數(shù)據(jù)字典的數(shù)據(jù)項(xiàng)部分:1數(shù)據(jù)項(xiàng)編號(hào)：DNum2數(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)簡(jiǎn)述：某導(dǎo)游的代碼簡(jiǎn)述：某旅游線路的代碼類(lèi)別及寬度：字符型,5位類(lèi)別及寬度：字符型,4位取值范圍：G0001-G9999取值范圍：I001-I999,A001-A9993數(shù)據(jù)項(xiàng)編號(hào)：TYNum4數(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)簡(jiǎn)述：某團(tuán)員的代碼簡(jiǎn)述：某團(tuán)隊(duì)的代碼類(lèi)別及寬度：字符型,5位類(lèi)別及寬度：字符型,3位取值范圍：T0001-T9999 取值范圍：001-999 2.以下為本系統(tǒng)數(shù)據(jù)字典的數(shù)據(jù)流部分:1數(shù)據(jù)流編號(hào)：F1數(shù)據(jù)流名稱：合同簡(jiǎn)述：游客與旅行社簽訂的合同數(shù)據(jù)流來(lái)源：游客數(shù)據(jù)流去向：P1高峰流量：200份/天數(shù)據(jù)流組成：游客編號(hào)、姓名、性別、身份證號(hào)碼,聯(lián)系方式、地址、是否交款、會(huì)員。2數(shù)據(jù)流編號(hào)：F2數(shù)據(jù)流名稱：銷(xiāo)售統(tǒng)計(jì)表簡(jiǎn)述：外聯(lián)銷(xiāo)售部每天的收入情況數(shù)據(jù)流來(lái)源：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ì)劃表簡(jiǎn)述：對(duì)游客進(jìn)行團(tuán)隊(duì)編排的情況數(shù)據(jù)流來(lái)源：P2數(shù)據(jù)流去向：游客高峰流量：200份/天數(shù)據(jù)流組成：團(tuán)隊(duì)編號(hào)、導(dǎo)游編號(hào)、開(kāi)始時(shí)間、旅游天數(shù)、跟團(tuán)人數(shù)、旅游路線。4數(shù)據(jù)流編號(hào)：F4數(shù)據(jù)流名稱：排團(tuán)計(jì)劃表簡(jiǎn)述：對(duì)游客進(jìn)行團(tuán)隊(duì)編排的情況數(shù)據(jù)流來(lái)源：P2數(shù)據(jù)流去向：計(jì)調(diào)部門(mén)數(shù)據(jù)流組成：團(tuán)隊(duì)編號(hào)、導(dǎo)游編號(hào)、開(kāi)始時(shí)間、旅游天數(shù)、跟團(tuán)人數(shù)、旅游路線。3.以下為本系統(tǒng)數(shù)據(jù)字典的數(shù)據(jù)結(jié)構(gòu)卡片部分:數(shù)據(jù)結(jié)構(gòu)卡片數(shù)據(jù)結(jié)構(gòu)名稱：用戶管理卡片數(shù)據(jù)結(jié)構(gòu)簡(jiǎn)述：登記系統(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文件名：游客信息表簡(jiǎn)述：存儲(chǔ)游客基本信息的表組成：游客編號(hào)、姓名、性別、身份證號(hào)碼,聯(lián)系方式、地址、是否交款、會(huì)員。有關(guān)的數(shù)據(jù)流：P1-D1,D1-P2有無(wú)立即查詢要求：有2數(shù)據(jù)存儲(chǔ)卡片文件名：線路信息表簡(jiǎn)述：存儲(chǔ)旅游線路的具體信息的表組成：線路編號(hào)、旅游路線、市場(chǎng)價(jià)格、本店價(jià)格、預(yù)訂有關(guān)的數(shù)據(jù)流：P2-D2有無(wú)立即查詢要求：有3數(shù)據(jù)存儲(chǔ)卡片文件名：導(dǎo)游信息表簡(jiǎn)述：存儲(chǔ)導(dǎo)游的基本信息的表組成：導(dǎo)游編號(hào)、姓名、性別、身份證號(hào)碼、電話、地址、任職時(shí)間、級(jí)別、備注。有關(guān)的數(shù)據(jù)流：D3-P2有無(wú)立即查詢要求：有5.以下為本系統(tǒng)數(shù)據(jù)字典的邏輯處理部分:1編號(hào)：P1名稱：游客信息處理簡(jiǎn)述：處理游客信息輸入：游客編號(hào)、姓名、性別、身份證號(hào)碼,聯(lián)系方式、地址、是否交款、會(huì)員。輸出：游客信息表,銷(xiāo)售統(tǒng)計(jì)表處理：根據(jù)游客填寫(xiě)好的合同登記游客信息表,并對(duì)當(dāng)天的營(yíng)業(yè)額進(jìn)行統(tǒng)計(jì),上報(bào)財(cái)務(wù)科。2編號(hào)：P2名稱：排團(tuán)處理簡(jiǎn)述：對(duì)游客進(jìn)行團(tuán)隊(duì)編排。輸入：游客信息、線路信息、導(dǎo)游信息。輸出：排團(tuán)計(jì)劃表處理：將游客信息、旅游線路和導(dǎo)游信息進(jìn)行匯總,合理安排計(jì)劃,最終輸出排團(tuán)計(jì)劃表。6.以下為本系統(tǒng)數(shù)據(jù)字典的外部實(shí)體部分：1外部實(shí)體名稱：游客簡(jiǎn)述：旅行者輸入的數(shù)據(jù)流：排團(tuán)計(jì)劃表輸出的數(shù)據(jù)流：合同2外部實(shí)體名稱：財(cái)務(wù)科簡(jiǎn)述：無(wú)輸入的數(shù)據(jù)流：銷(xiāo)售統(tǒng)計(jì)表輸出的數(shù)據(jù)流：無(wú)3外部實(shí)體名稱：計(jì)調(diào)部門(mén)簡(jiǎn)述：負(fù)責(zé)安排接待〔房、餐、車(chē)、景點(diǎn)等事宜輸入的數(shù)據(jù)流：排團(tuán)計(jì)劃表輸出的數(shù)據(jù)流：無(wú)第三章系統(tǒng)總體設(shè)計(jì)3.1系統(tǒng)總體設(shè)計(jì)目標(biāo)旅游管理系統(tǒng)的目標(biāo)是對(duì)旅行社的導(dǎo)游人員以及客戶進(jìn)行管理和對(duì)團(tuán)隊(duì)進(jìn)行編排,以極大地提高業(yè)務(wù)信息記錄、統(tǒng)計(jì)、編排等信息管理的工作效率。盡量使系統(tǒng)的功能設(shè)計(jì),流程設(shè)計(jì)與實(shí)際操作吻合,有一定的可行性和現(xiàn)實(shí)意義。旅行社對(duì)旅游管理系統(tǒng)的要求有以下幾點(diǎn)：1、系統(tǒng)要本著服從和服務(wù)于企業(yè)戰(zhàn)略使命和長(zhǎng)期目標(biāo)要求,以及繼承與優(yōu)化相結(jié)合的原則,來(lái)制定信息系統(tǒng)開(kāi)發(fā)方案。2、系統(tǒng)既要解決現(xiàn)行系統(tǒng)存在的問(wèn)題,又要充分預(yù)計(jì)未來(lái)的需求變化,使系統(tǒng)具有足夠的適應(yīng)性和先進(jìn)性,還要方便運(yùn)行管理和維護(hù)。

3、系統(tǒng)反映的流程簡(jiǎn)潔,自動(dòng)化程度比較高.如能自動(dòng)打印報(bào)表,自動(dòng)進(jìn)行一些簡(jiǎn)單的結(jié)算,為管理人員提供相對(duì)準(zhǔn)確數(shù)據(jù),保證高效率運(yùn)作等。3.2概念模型概念模式〔E-R數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)是在需求分析的基礎(chǔ)上,設(shè)計(jì)出能夠滿足用戶需求的各種實(shí)體,以及它們之間的關(guān)系,為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。用E-R圖是描述數(shù)據(jù)實(shí)體關(guān)系的一種直觀描述工具,所以本系統(tǒng)采用了E-R圖方法進(jìn)行數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)。性別性別通信地址身份證號(hào)碼電話團(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)團(tuán)費(fèi)路線編號(hào)線路路線編號(hào)線路簡(jiǎn)介圖形簡(jiǎn)介圖形圖圖3-2線路的E-R圖線路編號(hào)團(tuán)隊(duì)編號(hào)線路編號(hào)團(tuán)隊(duì)編號(hào)返程日期團(tuán)隊(duì)返程日期團(tuán)隊(duì)出發(fā)日期團(tuán)員人數(shù)出發(fā)日期團(tuán)員人數(shù)圖圖3-3團(tuán)隊(duì)的E-R圖團(tuán)隊(duì)編號(hào)團(tuán)隊(duì)編號(hào)團(tuán)隊(duì)負(fù)責(zé)人盈虧團(tuán)隊(duì)負(fù)責(zé)人盈虧團(tuán)費(fèi)團(tuán)費(fèi)團(tuán)隊(duì)人數(shù)旅游團(tuán)隊(duì)團(tuán)隊(duì)人數(shù)旅游團(tuán)隊(duì)建團(tuán)時(shí)間愛(ài)你是否出發(fā)建團(tuán)時(shí)間愛(ài)你是否出發(fā)圖圖3-4旅游團(tuán)隊(duì)的E-R圖操作員密碼密碼操作員密碼密碼圖圖3-5密碼的E-R圖帶領(lǐng)帶領(lǐng)團(tuán)員團(tuán)隊(duì) 1 N團(tuán)員團(tuán)隊(duì)參加 N N參加1負(fù)責(zé)1負(fù)責(zé)旅游團(tuán)隊(duì) 1 旅游團(tuán)隊(duì)圖圖3-6系統(tǒng)的E-R圖3.3數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)概念結(jié)構(gòu)是獨(dú)立于實(shí)際數(shù)據(jù)模型的信息結(jié)構(gòu),必須將其轉(zhuǎn)化為邏輯結(jié)構(gòu)后才能進(jìn)行數(shù)據(jù)庫(kù)應(yīng)用的設(shè)計(jì)。也就是要將概念上的結(jié)構(gòu)轉(zhuǎn)化為BP數(shù)據(jù)庫(kù)系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型。團(tuán)員信息表結(jié)構(gòu)圖：圖3-7團(tuán)員信息表結(jié)構(gòu)圖團(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ù)庫(kù)系統(tǒng)實(shí)現(xiàn)4.1系統(tǒng)實(shí)現(xiàn)工具簡(jiǎn)介開(kāi)發(fā)語(yǔ)言VisualBasic6．0從1998年發(fā)布到20XX正式推出VisualBasic.NET簡(jiǎn)直吊足了開(kāi)發(fā)者的胃口。從20XX就開(kāi)始傳言的具有繼承、Try…Catch語(yǔ)句等新功能的全新VB7.0一直沒(méi)有露面。直到20XX,VisualStudio.NET的第一個(gè)BETA版問(wèn)世的時(shí)候,所有人都呆了——這是VisualBasic嗎？And語(yǔ)句變成了BitAnd,數(shù)組只能從0下標(biāo)開(kāi)始,而且連Dim語(yǔ)句的意義都變了,幾乎所有的窗體控件都變了,Long變成了Integer而Integer變成了Short,Variant不見(jiàn)了,Static不能用了……簡(jiǎn)直是翻天覆地,人們已經(jīng)無(wú)暇關(guān)注這個(gè)版本有什么改進(jìn),轉(zhuǎn)而擔(dān)心我怎么才能接受這個(gè)本本了。其實(shí)VisualBasic.NET完全是為了.NETFramework這一全新的平臺(tái)而設(shè)計(jì)的,VisualBasic.NET的設(shè)計(jì)者一開(kāi)始沒(méi)有掌握好新平臺(tái)和舊語(yǔ)言的平衡。到了BETA2中,很多東西回歸了6.0,如BitAnd又變回了And,數(shù)組的定義語(yǔ)句也變回了原有的意義,Static也回到了VisualBasic中。但是BETA1驚人的變化讓所有的VB開(kāi)發(fā)者怕了,他們覺(jué)得這種語(yǔ)言被改的千瘡百孔,有些人干脆轉(zhuǎn)去研究傳說(shuō)中的新語(yǔ)言C#。但是VisualBasic.NET渡過(guò)幾個(gè)BETA版本之后還是找到了正確的定位。VisualBasic.NET有對(duì)CLR最完善的支持,同時(shí)盡量保留著B(niǎo)ASIC易懂的語(yǔ)法風(fēng)格和易用性。這個(gè)版本新增加的功能已經(jīng)數(shù)不清,最重要的幾個(gè)是：1、繼承。至此,VisualBasic完成了向面向?qū)ο筠D(zhuǎn)變的道路。2、共享成員。3、Try…Catch結(jié)構(gòu)化異常處理。4、Delegate和Interface。5、名稱空間。6、對(duì)自由線程的支持。特別的是,VisualBasic.NET大大減少了VisualBasic語(yǔ)言的關(guān)鍵字,如GoSub、PSet等等。原先的VisualBasic有多達(dá)120個(gè)關(guān)鍵字,這給寫(xiě)程序帶來(lái)了很大的不便,現(xiàn)在經(jīng)過(guò)精簡(jiǎn),VisualBasic脫下了這個(gè)沉重的包袱。VisualBasic.NET現(xiàn)在是一門(mén)現(xiàn)代的、強(qiáng)壯的、面向?qū)ο蟮?、?jiǎn)單的可視化開(kāi)發(fā)語(yǔ)言。強(qiáng)大的語(yǔ)言功能吸引了很多開(kāi)發(fā)者。歷史是在不斷重演的,VisualBasic.NET如今的處境和VisualBasic4.0很相似,由于兼容性變差,人氣也降低了。同時(shí)由于依附于.NETFramework,程序發(fā)布造成了一定的困難?，F(xiàn)在國(guó)內(nèi)使用VisualBasic.NET的人相對(duì)于VisualBasic6.0來(lái)講顯得很少。但是憑借VisualBasic.NET強(qiáng)大的語(yǔ)言功能和MS的支持,VisualBasic.NET一定會(huì)顯出它的光輝來(lái)。2003-穩(wěn)中求變的新版本VisualBasic.NET2003是一個(gè)相當(dāng)穩(wěn)重的版本,改變很少,但對(duì)小處有很多改進(jìn)。首先VisualBasic6.0升級(jí)向?qū)ё隽撕艽蟾倪M(jìn),這給從老版本痛苦升級(jí)的人帶來(lái)了更多一些的希望。其次在IDE方面,VisualBasic.NET2003修正了許多錯(cuò)誤,還讓事件處理恢復(fù)了6.0的開(kāi)發(fā)體驗(yàn)。語(yǔ)言方面只有兩項(xiàng)改進(jìn)：1、在For、ForEach語(yǔ)句中聲明循環(huán)變量。2、增加了數(shù)學(xué)移位運(yùn)算符<<和>>。在這個(gè)比較成熟穩(wěn)定的新版本下,許多VisualBasic的愛(ài)好和開(kāi)始重新了解VisualBasic.NET,社區(qū)里面也漸漸熱鬧起來(lái)。但是,有些使用C#的開(kāi)發(fā)者堅(jiān)持認(rèn)為VisualBasic.NET是垃圾,盡管VisualBasic.NET擁有比C#更多的功能和更好的IDE。這說(shuō)明不了解VisualBasic.NET成為它普及的最大障礙。2005-完美主義的VisualBasic,能否再現(xiàn)輝煌？為了讓VisualBasic有最佳的開(kāi)發(fā)體驗(yàn),VisualBasic2005的設(shè)計(jì)者絞盡了腦汁。這次VisualBasic2005光語(yǔ)言上的改進(jìn)就足以讓VisualBasic的開(kāi)發(fā)人員高興一陣子。大家可以去看看我那篇介紹VisualBasic2005新增功能的貼子。挑重要的列在下邊：1、泛型2、運(yùn)算符重載3、PartialType4、窗體的默認(rèn)實(shí)例〔讓你用VB6的語(yǔ)法使用窗體5、語(yǔ)法的多種改進(jìn)現(xiàn)在用VisualBasic2005只要一行代碼就可以讀寫(xiě)注冊(cè)表、訪問(wèn)文件、讀寫(xiě)串口、獲取應(yīng)用程序信息……用VisualBasic2005完全可以稱作享受開(kāi)發(fā)。而泛型、運(yùn)算符重載等功能又可以讓VisualBasic的開(kāi)發(fā)人員深入.NETFramework的全部功能,開(kāi)發(fā)出最優(yōu)秀的應(yīng)用程序。SQLServer2000簡(jiǎn)介SQLServer是一個(gè)關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)它最初是由MicrosoftSybase和Ashton-Tate三家公司共同開(kāi)發(fā)的于1988年推出了第一個(gè)OS/2版本在WindowsNT推出后Microsoft與Sybase在SQLServer的開(kāi)發(fā)上就分道揚(yáng)鑣了Microsoft將SQLServer移植到WindowsNT系統(tǒng)上專(zhuān)注于開(kāi)發(fā)推廣SQLServer的WindowsNT版本Sybase則較專(zhuān)注于SQLServer在UNIX操作系統(tǒng)上的應(yīng)用在本書(shū)中介紹的是MicrosoftSQLServer以后簡(jiǎn)稱為SQLServer或MSSQLServerSQLServer2000是Microsoft公司推出的SQLServer數(shù)據(jù)庫(kù)管理系統(tǒng)的最新版本該版本繼承了SQLServer7.0版本的優(yōu)點(diǎn)同時(shí)又比它增加了許多更先進(jìn)的功能具有使用方便可伸縮性好與相關(guān)軟件集成程度高等優(yōu)點(diǎn)可跨越從運(yùn)行MicrosoftWindows98的膝上型電腦到運(yùn)行MicrosoftWindows2000的大型多處理器的服務(wù)器等多種平臺(tái)使用。SQLServer2000是為迅速提供可伸縮性電子商務(wù)、企業(yè)及數(shù)據(jù)倉(cāng)庫(kù)解決方案而開(kāi)發(fā)的完整數(shù)據(jù)庫(kù)與分析軟件產(chǎn)品。SQLSERVER2000定位于Internet背景下的數(shù)據(jù)庫(kù)應(yīng)用,它為用戶的Web應(yīng)用提供了一款完善的數(shù)據(jù)管理和數(shù)據(jù)分析解決方案。同時(shí)SQLSERVER2000還是WindowsDNA〔DistributedInternetArchitecture架構(gòu)的一個(gè)核心組件。它極大地縮短了用戶開(kāi)發(fā)電子商務(wù)、數(shù)據(jù)倉(cāng)庫(kù)應(yīng)用的時(shí)間。SQLSERVER2000還提供對(duì)XML<ExtensibleMarkupLanguage擴(kuò)展標(biāo)示語(yǔ)言支持>和HTTP的全方位支持。4.2旅行社管理系統(tǒng)數(shù)據(jù)庫(kù)實(shí)現(xiàn)1.登錄窗體新建窗體,窗體的name屬性改為loginform〔單元文件名為login.pas,caption屬性改為：登錄窗體圖登錄窗體用戶操作說(shuō)明：當(dāng)用戶名或密碼輸入錯(cuò)誤時(shí),系統(tǒng)會(huì)彈出對(duì)話框提示重新輸入。代碼：implementationusesmain;{$R*.dfm}//單擊"確定"按鈕procedureTLoginForm.Button1Click<Sender:TObject>;beginwithq_yhdobeginclose;//關(guān)閉yh數(shù)集sql.Clear;//清除sql.Add<'select*fromyhwhere用戶名=:aand密碼=:b'>;parambyname<'a'>.asstring:=trim<edit1.Text>;//在edit1中輸入用戶名parambyname<'b'>.AsString:=trim<edit2.text>;//在edit2中輸入密碼open;//打開(kāi)end;ifq_yh.recordcount>0thenmainform.showelseshowmessage<'用戶名或密碼錯(cuò)誤,請(qǐng)?jiān)佥斎?>;end;//單擊"取消"按鈕procedureTLoginForm.Button2Click<Sender:TObject>;beginclose; //關(guān)閉end;end.2.主窗體設(shè)計(jì)如圖所示界面〔mainform,單元文件名為main.pas。caption屬性改為"主窗體",用label實(shí)現(xiàn)顯示其他窗體的功能。圖主窗體用戶操作說(shuō)明：用戶單擊前六個(gè)標(biāo)簽就可進(jìn)入相應(yīng)窗體進(jìn)行操作。單擊"退出"則退出主窗體,進(jìn)入登錄窗體重新登錄。代碼：implementationusesyhglc,dyxxgl,xlxxgl,ykxxgl,ptxxgl,cxgl,login;{$R*.dfm}//單擊"用戶管理",進(jìn)入用戶管理窗體procedureTMainForm.Label1Click<Sender:TObject>;beginyhglForm.show;end;//單擊"導(dǎo)游信息管理",進(jìn)入導(dǎo)游信息管理窗體procedureTMainForm.Label2Click<Sender:TObject>;begindyxxglForm.show;end;//單擊"線路信息管理",進(jìn)入線路信息管理窗體procedureTMainForm.Label3Click<Sender:TObject>;beginxlxxglForm.show;end;//單擊"游客信息管理",進(jìn)入游客信息管理窗體procedureTMainForm.Label4Click<Sender:TObject>;beginykxxglForm.show;end;//單擊"排團(tuán)信息管理",進(jìn)入派團(tuán)信息管理窗體procedureTMainForm.Label5Click<Sender:TObject>;beginptxxglForm.show;end;//單擊"查詢管理",進(jìn)入查詢管理窗體procedureTMainForm.Label6Click<Sender:TObject>;begincxglForm.show;end;//單擊"退出",退出主窗體procedureTMainForm.Label7Click<Sender:TObject>;beginclose;loginForm.edit1.text:='';loginForm.edit2.text:='';end;end.3.用戶管理窗體創(chuàng)建窗體yhglform〔單元文件名為yhglc.pas。該窗體包含一個(gè)table組鍵和導(dǎo)航器,可方便地對(duì)用戶進(jìn)行操作。圖用戶管理窗體用戶操作說(shuō)明：操作人員通過(guò)導(dǎo)航器對(duì)用戶表進(jìn)行"添加、刪除、修改、保存"。本窗體無(wú)代碼。4.導(dǎo)游信息管理窗體創(chuàng)建窗體dyxxglForm<單元文件名為dyxxgl.pas>。該窗體包含一個(gè)table組鍵和導(dǎo)航器,可方便地對(duì)導(dǎo)游信息進(jìn)行操作。圖導(dǎo)游信息管理窗體用戶操作說(shuō)明：操作人員通過(guò)導(dǎo)航器對(duì)導(dǎo)游信息表進(jìn)行"添加、刪除、修改、保存"。本窗體無(wú)代碼。線路信息管理創(chuàng)建窗體xlxxglForm<單元文件名為xlxxgl.pas>。該窗體包含一個(gè)table組鍵和導(dǎo)航器,可方便地對(duì)旅游線路信息進(jìn)行操作。圖線路信息管理窗體用戶操作說(shuō)明：操作人員通過(guò)導(dǎo)航器對(duì)線路信息表進(jìn)行"添加、刪除、修改、保存"。單擊"打印"按鈕,生成打印報(bào)表。代碼：implementationusesxlxxdy;{$R*.dfm}//單擊"打印",顯示打印報(bào)表procedureTxlxxglForm.BitBtn3Click<Sender:TObject>;beginxlxxReportForm.show;end;end.6．游客信息管理窗體創(chuàng)建窗體ykxxglForm<單元文件名為ykxxgl.pas>。該窗體包含一個(gè)table組鍵和導(dǎo)航器,可方便地對(duì)游客信息進(jìn)行操作。圖游客信息管理窗體用戶操作說(shuō)明：操作人員通過(guò)導(dǎo)航器對(duì)游客信息表進(jìn)行"添加、刪除、修改、保存"。單擊"打印"按鈕,生成打印報(bào)表。代碼：implementationusesykxxdy;{$R*.dfm}//單擊"打印",顯示打印報(bào)表procedureTykxxglForm.BitBtn4Click<Sender:TObject>;beginykxxReportForm.show;end;end.7．查詢窗體創(chuàng)建窗體cxglForm<單元文件名為cxgl.pas>。在窗體中添加pagecontrol組件并新建四頁(yè),并更改其相關(guān)屬性。導(dǎo)游查詢圖查詢管理窗體--導(dǎo)游查詢用戶操作說(shuō)明:用戶可以按編號(hào)、姓名、性別、級(jí)別分別對(duì)導(dǎo)游信息進(jìn)行查詢,清空按鈕用來(lái)清除輸入內(nèi)容后可重新查詢,還可瀏覽全部數(shù)據(jù),并且對(duì)編號(hào)、姓名、性別進(jìn)行升序、降序排列,先選排序內(nèi)容再選排序方法。代碼：//查詢procedureTcxglForm.Button1Click<Sender:TObject>;beginwithQ_dycxdobeginclose;//關(guān)閉query組件sql.Clear;//清除原來(lái)SQL屬性內(nèi)容sql.Add<'select*fromdyxxwhere導(dǎo)游編號(hào)=:aor姓名=:bor性別=:cor級(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:=combobox2.Text;//將combobox2輸入內(nèi)容賦值給dopen;//執(zhí)行語(yǔ)句end;end;//清除procedureTcxglForm.Button2Click<Sender:TObject>;beginedit1.Clear;//清除edit1中輸入內(nèi)容edit2.Clear//清除edit2中輸入內(nèi)容//瀏覽全部數(shù)據(jù)procedureTcxglForm.CheckBox1Click<Sender:TObject>;beginifcheckbox1.CheckedthenwithQ_dycxdobeginclose;sql.Clear;sql.Add<'select*fromdyxx'>;open;end;end;//升序排序procedureTcxglForm.RadioButton1Click<Sender:TObject>;varcontext:string;beginif<radiogroup2.ItemIndex=0>thencontext:='導(dǎo)游編號(hào)'//按導(dǎo)游編號(hào)elseif<radiogroup2.ItemIndex=1>thencontext:='姓名'//按姓名elseif<radiogroup2.ItemIndex=2>thencontext:='級(jí)別';//按級(jí)別withQ_dycxdo//更新查詢beginclose;sql.Clear;sql.Add<'select*fromdyxxorderby'+context+''>;open;//開(kāi)始查詢end;end;//降序排序procedureTcxglForm.RadioButton2Click<Sender:TObject>;varcontext:string;beginif<radiogroup2.ItemIndex=0>thencontext:='導(dǎo)游編號(hào)'//按導(dǎo)游編號(hào)elseif<radiogroup2.ItemIndex=1>thencontext:='姓名'//按姓名elseif<radiogroup2.ItemIndex=2>thencontext:='級(jí)別';//按級(jí)別withQ_dycxdo//更新查詢beginclose;sql.Clear;sql.Add<'select*fromdyxxorderby'+context+'desc'>;open;//開(kāi)始查詢end;end;線路查詢圖查詢管理窗體--線路查詢用戶操作說(shuō)明:用戶可以按線路編號(hào)、本店價(jià)格分別對(duì)線路信息進(jìn)行查詢,可以查詢價(jià)格在一定范圍之內(nèi)的所有線路,清空按鈕用來(lái)清除輸入內(nèi)容后可重新查詢,還可瀏覽全部數(shù)據(jù),并且對(duì)編號(hào)、路線、本店價(jià)格進(jìn)行升序、降序排列,先選排序內(nèi)容再選排序方法。代碼：//查詢procedureTcxglForm.Button3Click<Sender:TObject>;beginifedit4.text<>''thenwithQ_xlcxdobeginclose;//關(guān)閉query組件sql.Clear;//清除原來(lái)SQL屬性內(nèi)容sql.Add<'select*fromxlxxwhere線路編號(hào)=:a'>;//添加新的SQL屬性內(nèi)容parambyname<'a'>.AsString:=edit4.Text;//將edit4輸入內(nèi)容賦值給aopen;//執(zhí)行語(yǔ)句end;if<combobox3.Text<>''>and<combobox4.Text<>''>thenwithQ_xlcxdobeginclose;//關(guān)閉query組件sql.Clear;//清除原來(lái)SQL屬性內(nèi)容sql.Add<'select*fromxlxxwhere本店價(jià)格between:band:c'>;//添加新的SQL屬性內(nèi)容parambyname<'b'>.AsCurrency:=strtoCurr<combobox3.Text>;//將combobox3輸入內(nèi)容賦值給bparambyname<'c'>.AsCurrency:=strtoCurr<combobox4.Text>;//將combobox4輸入內(nèi)容賦值給copen;//執(zhí)行語(yǔ)句end;end;//清除procedureTcxglForm.Button4Click<Sender:TObject>;beginedit4.Clear;//清除edit4中輸入內(nèi)容end;//瀏覽全部數(shù)據(jù)procedureTcxglForm.CheckBox2Click<Sender:TObject>;beginifcheckbox2.CheckedthenwithQ_xlcxdobeginclose;sql.Clear;sql.Add<'select*fromxlxx'>;open;end;end;//升序排序procedureTcxglForm.RadioButton3Click<Sender:TObject>;varcontext:string;beginif<radiogroup4.ItemIndex=0>thencontext:='線路編號(hào)'//按線路編號(hào)elseif<radiogroup4.ItemIndex=1>thencontext:='旅游路線'//按旅游路線elseif<radiogroup4.ItemIndex=2>thencontext:='本店價(jià)格';//按本店價(jià)格withQ_xlcxdo//更新查詢beginclose;sql.Clear;sql.Add<'select*fromxlxxorderby'+context+''>;open;//開(kāi)始查詢end;end;//降序排序procedureTcxglForm.RadioButton4Click<Sender:TObject>;varcontext:string;beginif<radiogroup4.ItemIndex=0>thencontext:='線路編號(hào)'//按線路編號(hào)elseif<radiogroup4.ItemIndex=1>thencontext:='旅游路線'//按旅游路線elseif<radiogroup4.ItemIndex=2>thencontext:='本店價(jià)格';//按本店價(jià)格withQ_xlcxdo//更新查詢beginclose;sql.Clear;sql.Add<'select*fromxlxxorderby'+context+'desc'>;open;//開(kāi)始查詢end;end;游客查詢圖查詢管理窗體--游客查詢用戶操作說(shuō)明:用戶可以按編號(hào)、姓名、性別、會(huì)員以及交款分別對(duì)游客信息進(jìn)行查詢,清空按鈕用來(lái)清除輸入內(nèi)容后可重新查詢,還可瀏覽全部數(shù)據(jù),并且對(duì)編號(hào)、姓名、會(huì)員、交款進(jìn)行升序、降序排列,先選排序內(nèi)容再選排序方法。代碼：//查詢procedureTcxglForm.Button5Click<Sender:TObject>;beginwithQ_ykcxdobeginclose;//關(guān)閉query組件sql.Clear;//清除原來(lái)SQL屬性內(nèi)容sql.Add<'select*fromykxxwhere游客編號(hào)=:aor姓名=:bor性別=:cor會(huì)員=:dor是否交款=:e'>;//添加新的SQL屬性內(nèi)容parambyname<'a'>.AsString:=edit5.Text;//將edit5輸入內(nèi)容賦值給aparambyname<'b'>.AsString:=edit6.Text;//將edit6輸入內(nèi)容賦值給bparambyname<'c'>.AsString:=combobox5.Text;//將combobox5輸入內(nèi)容賦值給cparambyname<'d'>.AsString:=combobox6.Text;//將combobox6輸入內(nèi)容賦值給dparambyname<'e'>.AsString:=combobox7.Text;//將combobox7輸入內(nèi)容賦值給eopen;//執(zhí)行語(yǔ)句end;end;//清除procedureTcxglForm.Button6Click<Sender:TObject>;beginedit5.Clear;//清除edit5中輸入內(nèi)容edit6.Clear;//清除edit6中輸入內(nèi)容//瀏覽全部數(shù)據(jù)procedureTcxglForm.CheckBox3Click<Sender:TObject>;beginifcheckbox3.CheckedthenwithQ_ykcxdobeginclose;sql.Clear;sql.Add<'select*fromykxx'>;open;end;end;//升序排序procedureTcxglForm.RadioButton5Click<Sender:TObject>;varcontext:string;beginif<radiogroup6.ItemIndex=0>thencontext:='游客編號(hào)'//按游客編號(hào)elseif<radiogroup6.ItemIndex=1>thencontext:='姓名'//按姓名elseif<radiogroup6.ItemIndex=2>thencontext:='會(huì)員'//按會(huì)員elseif<radiogroup6.ItemIndex=3>thencontext:='是否交款';//按是否交款withQ_ykcxdo//更新查詢beginclose;sql.Clear;sql.Add<'select*fromykxxorderby'+context+''>;open;//開(kāi)始查詢end;end;//降序排序procedureTcxglForm.RadioButton6Click<Sender:TObject>;varcontext:string;beginif<radiogroup6.ItemIndex=0>thencontext:='游客編號(hào)'//按游客編號(hào)elseif<radiogroup6.ItemIndex=1>thencontext:='姓名'//按姓名elseif<radiogroup6.ItemIndex=2>thencontext:='會(huì)員'//按會(huì)員elseif<radiogroup6.ItemIndex=3>thencontext:='是否交款';//按是否交款withQ_ykcxdo//更新查詢beginclose;sql.Clear;sql.Add<'select*fromykxxorderby'+context+'desc'>;open;//開(kāi)始查詢end;end;圖查詢管理窗體--排團(tuán)查詢用戶操作說(shuō)明:用戶可以按團(tuán)隊(duì)編號(hào)、導(dǎo)游編號(hào)、線路編號(hào)、旅游天數(shù)以及開(kāi)始時(shí)間分別對(duì)排團(tuán)信息進(jìn)行查詢,可以查詢開(kāi)始時(shí)間在一定范圍之內(nèi)的所有旅游線路,清空按鈕用來(lái)清除輸入內(nèi)容后可重新查詢,還可瀏覽全部數(shù)據(jù),并且對(duì)團(tuán)隊(duì)編號(hào)、導(dǎo)游編號(hào)、開(kāi)始時(shí)間進(jìn)行升序、降序排列,先選排序內(nèi)容再選排序方法。代碼：//查詢procedureTcxglForm.Button7Click<Sender:TObject>;beginif<edit7.text<>''>or<edit8.text<>''>or<edit9.Text<>''>thenwithQ_ptcxdobeginclose;//關(guān)閉query組件sql.Clear;//清除原來(lái)SQL屬性內(nèi)容sql.Add<'select*fromptxxwhere團(tuán)隊(duì)編號(hào)=:aor導(dǎo)游編號(hào)=:bor線路編號(hào)=:c'>;//添加新的SQL屬性內(nèi)容parambyname<'a'>.AsString:=edit7.Text;//將edit7輸入內(nèi)容賦值給aparambyname<'b'>.AsString:=edit8.Text;//將edit8輸入內(nèi)容賦值給bparambyname<'c'>.AsString:=edit9.Text;//將edit9輸入內(nèi)容賦值給copen;//執(zhí)行語(yǔ)句end;ifedit10.text<>''thenwithQ_ptcxdobeginclose;//關(guān)閉query組件sql.Clear;//清除原來(lái)SQL屬性內(nèi)容sql.Add<'select*fromptxxwhere旅游天數(shù)=:d'>;parambyname<'d'>.As