計(jì)算機(jī)畢業(yè)論文---網(wǎng)上火車票售票系統(tǒng)

1、<p><b>　　網(wǎng)上火車票售票系統(tǒng)</b></p><p><b>　　摘 要</b></p><p>　　系統(tǒng)分為兩大模塊：用戶模塊和管理員模塊，細(xì)節(jié)分為注冊(cè)模塊、售票模塊和系統(tǒng)管理模塊。其中系統(tǒng)管理模塊是進(jìn)行車次和用戶的添加、存儲(chǔ)和刪除，是系統(tǒng)運(yùn)行的基礎(chǔ)；查詢子模塊實(shí)現(xiàn)了對(duì)車次信息的遠(yuǎn)程查詢。登陸模塊是客戶端用戶通過(guò)自己的用

2、戶名以及密碼登陸系統(tǒng)，進(jìn)入界面時(shí)由系統(tǒng)按照類別進(jìn)入不同頁(yè)面，實(shí)現(xiàn)不同的功能。 </p><p>　　系統(tǒng)選用的開發(fā)軟件是ASP,后臺(tái)數(shù)據(jù)庫(kù)為ACCESS 2000。</p><p>　　關(guān)鍵字：售票 轉(zhuǎn)售 自動(dòng) 系統(tǒng)  ASP SQL語(yǔ)句</p><p><b>　　Abstract</b></p>

3、<p>　　System is two big modules mark: Consumer module and administrative person module, detail the module and system manage a module mark for the logon module, sells ticket. That the system administration among the

4、m module is the addition carrying out motorcoach number and the consumer , stores and deletes, is a working basis of system; Long-range that the module has realized to motorcoach number information inquires about inquiry

5、 son. The landing module is that the customer holds a consumer passing s</p><p>　　Key words: Sell ticket Be resold Automation System ASP SQL sentence</p><p><b>　　引 言</b><

6、;/p><p>　　坐火車出行旅游已經(jīng)成為現(xiàn)代社會(huì)必不可少的事情，而每一次的出行都伴隨這火車站人山人海的景象還沒(méi)有出行心情就已經(jīng)損失了一半。更糟糕的事情是出行高峰期的時(shí)候往往買不到車票不能不讓人著急。隨著計(jì)算機(jī)技術(shù)的發(fā)展，人們對(duì)計(jì)算機(jī)智能化的需求越來(lái)越大，對(duì)軟件的實(shí)用性、速度等性能的要求也越來(lái)越高但是并不能避免系統(tǒng)出問(wèn)題。這時(shí)候不論是對(duì)火車站還是出行的旅客都會(huì)造成極大的麻煩。但是火車站的發(fā)展趨勢(shì)是完全自動(dòng)化的售票信息

7、查詢，網(wǎng)絡(luò)訂票,智能化訂票,而且隨著計(jì)算機(jī)的普及，信息處理量的逐漸擴(kuò)大，手工處理方式已經(jīng)遠(yuǎn)遠(yuǎn)不能滿足人們管理活動(dòng)的需要，各種工作都逐漸由手工轉(zhuǎn)為自動(dòng)化，將使許多復(fù)雜、繁瑣、且需要很多人力的工作變得簡(jiǎn)單。在本此畢業(yè)設(shè)計(jì)中，由于水平的關(guān)系，當(dāng)然不可能做到這樣的程度，只不過(guò)是模擬用戶和售票員來(lái)操作的售票系統(tǒng)而已。</p><p>　　火車票售票管理是一件比較復(fù)雜但又非常重要的事情,它是涉及國(guó)家鐵路運(yùn)輸?shù)恼９ぷ鳌?guó)民經(jīng)

8、濟(jì)的發(fā)展和人民生活水平質(zhì)量的大事情?；疖囀燮鄙婕暗皆S多內(nèi)容，有登陸用戶的賬號(hào)密碼問(wèn)題，有乘客超載問(wèn)題，有經(jīng)濟(jì)結(jié)算問(wèn)題，有訂票管理問(wèn)題。因此，本畢業(yè)設(shè)計(jì)就是專門解決這些問(wèn)題的。但如上所述，由于鐵路火車票務(wù)管理的復(fù)雜性，本畢業(yè)設(shè)計(jì)與開發(fā)也僅是一個(gè)嘗試性的工作，但它很有啟發(fā)性，對(duì)于研究開發(fā)該類程序可以起一個(gè)拋磚引玉的作用。</p><p><b>　　目 錄</b></p><

9、;p><b>　　摘 要1</b></p><p>　　Abstract2</p><p><b>　　引 言3</b></p><p>　　一 網(wǎng)上火車站售票管理系統(tǒng)分析與設(shè)計(jì)5</p><p>　　1.1課題來(lái)源及意義5</p><p>　　1.2系統(tǒng)

10、功能需求簡(jiǎn)介與開發(fā)工具的選擇5</p><p>　　1.3本文所做工作5</p><p><b>　　二 概論6</b></p><p>　　2.1 ACCESS 歷史6</p><p><b>　　2.2 特性6</b></p><p>　　2.3 SQL語(yǔ)言基礎(chǔ)

11、6</p><p>　　三 數(shù)據(jù)庫(kù)開發(fā)工具7</p><p><b>　　四 系統(tǒng)的設(shè)計(jì)8</b></p><p>　　4.1系統(tǒng)需求分析8</p><p>　　4.1.1開發(fā)的背景8</p><p>　　4.1.2 業(yè)務(wù)現(xiàn)狀8</p><p>　　4.1.3用

12、戶平臺(tái)要求8</p><p>　　4.2可行性研究9</p><p>　　4.2.1系統(tǒng)目標(biāo)9</p><p>　　4.2.2存在的問(wèn)題9</p><p>　　4.2.3建立新系統(tǒng)9</p><p><b>　　4.2.4結(jié)論9</b></p><p>　　4.

13、3 數(shù)據(jù)庫(kù)設(shè)計(jì)9</p><p>　　五 系統(tǒng)的實(shí)現(xiàn)11</p><p>　　5.1系統(tǒng)的登錄與退出11</p><p>　　5.2用戶管理12</p><p>　　5.2.1用戶管理模塊的功能介紹12</p><p>　　5.2.2 用戶管理模塊的實(shí)現(xiàn)12</p><p><

14、b>　　結(jié) 論25</b></p><p><b>　　參考文獻(xiàn)25</b></p><p>　　一 網(wǎng)上火車站售票管理系統(tǒng)分析與設(shè)計(jì)</p><p>　　1.1課題來(lái)源及意義</p><p>　　一個(gè)大型的計(jì)算機(jī)管理系統(tǒng)必須有一個(gè)正確的設(shè)計(jì)指導(dǎo)思想，通過(guò)合理的選擇數(shù)據(jù)結(jié)構(gòu)，操作系統(tǒng)以及開發(fā)環(huán)境，構(gòu)

15、成一個(gè)完善的網(wǎng)絡(luò)系統(tǒng)，才能充分發(fā)揮計(jì)算機(jī)信息管理優(yōu)勢(shì)。現(xiàn)代化的車站售票是集預(yù)定車票、售票 、退票、車次查詢及其它各種服務(wù)，車站售票組織龐大，服務(wù)項(xiàng)目多，信息量大，要想提高勞動(dòng)生產(chǎn)，降低成本，提高服務(wù)質(zhì)量和管理水平，進(jìn)而促進(jìn)經(jīng)濟(jì)效益，必須借助計(jì)算機(jī)來(lái)進(jìn)行現(xiàn)代化的信息管理。</p><p>　　傳統(tǒng)手工的車站售票管理，管理過(guò)程繁瑣而復(fù)雜，執(zhí)行效率低，并且易于出錯(cuò)。通過(guò)這樣的系統(tǒng)，我們可以做到信息的規(guī)范管理和快速查詢，

16、實(shí)現(xiàn)了車站售票管理的系統(tǒng)化、規(guī)范化和自動(dòng)化，這樣不僅減少了管理工作量，還提高了管理效率，降低了管理成本。</p><p>　　1.2系統(tǒng)功能需求簡(jiǎn)介與開發(fā)工具的選擇</p><p>　　一個(gè)完善的車站售票計(jì)算機(jī)管理信息系統(tǒng)應(yīng)當(dāng)包括系統(tǒng)應(yīng)具有售票、查詢、管理和維護(hù)等功能，系統(tǒng)管理員可以進(jìn)行對(duì)車次的更改、票價(jià)的變動(dòng)及調(diào)度功能，票價(jià)的修改可以通過(guò)修改運(yùn)價(jià)來(lái)進(jìn)行，車次調(diào)度可通過(guò)對(duì)發(fā)車時(shí)刻表的修改來(lái)

17、進(jìn)行，維護(hù)功能即可對(duì)表進(jìn)行修改。設(shè)計(jì)從始至終貫穿著這樣的原則：</p><p>　　1．以用戶需求為目標(biāo)，以方便用戶為原則，系統(tǒng)將在統(tǒng)一的WINDOWS 操作系統(tǒng)圖形界面下提供各種實(shí)用功能，盡可能降低使用前的學(xué)習(xí)、實(shí)施和使用中的維護(hù)時(shí)間。</p><p>　　2．不同于手工的操作，直觀的圖形用戶界面，美觀、友好、只需點(diǎn)選簡(jiǎn)單易用：所有菜單，窗口，操作方式均為win98風(fēng)格。操作方便，充分考

18、慮前臺(tái)操作人員操作條件及習(xí)慣，有良好的易用性。</p><p>　　3．利用簡(jiǎn)單易操作的開發(fā)工具ASP語(yǔ)言, 既可使用ACCESS,FOXPRO等中小型數(shù)據(jù)庫(kù)，又使其支持SQL SERVER，SYBASE，ORACLE,DB2等各種大型數(shù)據(jù)庫(kù)。</p><p><b>　　1.3本文所做工作</b></p><p>　　1. 盡可能的簡(jiǎn)單化操作

19、，只需簡(jiǎn)單的輸入與點(diǎn)選用戶就能完成查詢，購(gòu)票，轉(zhuǎn)售車票和退票。</p><p>　　2. 管理員只需登陸查看就可已查看售票的記錄并且知道車票的途徑和出售狀況。</p><p>　　3. 對(duì)車次的修改和添加工作簡(jiǎn)單易行可視化用戶管理直觀簡(jiǎn)介。</p><p>　　4. 用戶實(shí)名登記降低囤積車票的可能，管理員可以隨時(shí)查看并找到用戶資料。</p><p

20、><b>　　二 概論</b></p><p>　　2.1 ACCESS 歷史</p><p>　　Microsoft Access 1.0 版本在1992年11月發(fā)布。微軟指定它對(duì)系統(tǒng)最小要求為視窗3.0配以4兆節(jié)內(nèi)存．6兆節(jié)內(nèi)存配以最小8兆節(jié)硬盤空間（建議最好有14兆節(jié)硬盤空間）則為建議的系統(tǒng)要求．當(dāng)時(shí)軟件以7張1.44兆節(jié)軟碟發(fā)布的載體．</p>

21、;<p><b>　　2.2 特性</b></p><p>　　一好處進(jìn)入從程序員視角在它的有關(guān)兼容性有SQL-質(zhì)問(wèn)可能被觀看并且作為SQL語(yǔ)句編輯，并且SQL語(yǔ)句直接在巨視和VBA模里可以被使用操作進(jìn)入桌子。用戶可能混合并且使用兩個(gè)VBA并且"宏"編程形式和邏輯既沒(méi)提供面向?qū)ο蟮目赡苄浴?lt;/p><p>　　導(dǎo)入導(dǎo)出報(bào)表的生成程序，

22、當(dāng)時(shí)有能力和到這項(xiàng)任務(wù)的復(fù)雜報(bào)告創(chuàng)造，沒(méi)有另一受歡迎數(shù)據(jù)庫(kù)報(bào)表程序的生成程序充滿特色和強(qiáng)有力-水晶報(bào)告。MSDE(微軟公司SQL服務(wù)器桌面發(fā)動(dòng)機(jī))2000，袖珍版本的MSSQL服務(wù)器2000，被包括開發(fā)版的辦公室XP并且被用于進(jìn)入可能作為除之外的另一種選擇JET數(shù)據(jù)庫(kù)引擎。(盡快的*版本的MSDE和微軟公司交換服務(wù)器實(shí)際上使用這臺(tái)噴氣發(fā)動(dòng)機(jī)處理巨大大量數(shù)據(jù)并且安置一“贗品”在它之上的那些應(yīng)用的應(yīng)用層。大約這事實(shí)的缺乏知識(shí)因進(jìn)入/噴口家庭

23、的軟件產(chǎn)品而為不該受不敬做貢獻(xiàn)，特別是關(guān)于"大"工程。)</p><p>　　進(jìn)入分割和粘貼功能性能使它有用工具在其它數(shù)據(jù)庫(kù)之間連結(jié)(例如，在數(shù)據(jù)或者數(shù)據(jù)庫(kù)變換期間的Oracle和微軟公司SQL服務(wù)器)。進(jìn)入與給與窗子和其它平臺(tái)應(yīng)用一起的積分的各種各樣進(jìn)口和退場(chǎng)門特征一起來(lái)，一經(jīng)請(qǐng)求從應(yīng)用的里面或者手工由用戶其中幾可以被執(zhí)行。例如非常緊密SNP完全格式化的為分享的形式與沒(méi)有全部的進(jìn)入軟件的人們

24、報(bào)告。它也能容易被升級(jí)到微軟公司SQL服務(wù)器。</p><p>　　與一般的RDBMS完全不同，它缺乏數(shù)據(jù)庫(kù)觸發(fā)和預(yù)存程序。自從MS Access 2000 (Jet 4.0)，開發(fā)人員可以在查詢中設(shè)定參數(shù)，這跟預(yù)存程序很相似的，但這些“預(yù)存程序”只能處理一個(gè)程序．當(dāng)資料表內(nèi)數(shù)據(jù)發(fā)生變化時(shí)，它確實(shí)允許形式包含被引發(fā)的代碼，使用是普通的透過(guò)查詢和其它技術(shù)在進(jìn)入營(yíng)運(yùn)儲(chǔ)存的程序在方面RDBMS支持這些的。</p&

25、gt;<p>　　2.3 SQL語(yǔ)言基礎(chǔ)</p><p>　　SQL:Structured Query Language,1974年Boyce和Chamberlin提出：</p><p>　　數(shù)據(jù)定義 :CREATE,DROP</p><p>　　數(shù)據(jù)庫(kù)查詢:SELECT</p><p>　　數(shù)據(jù)操縱 :INSERT,UPDAT

26、E,DELETE</p><p>　　數(shù)據(jù)控制 :GRANT,REVOKE</p><p><b>　　三 數(shù)據(jù)庫(kù)開發(fā)工具</b></p><p>　　ASP是Active Server Page的縮寫，意為“動(dòng)態(tài)服務(wù)器頁(yè)面”。ASP是微軟公司開發(fā)的代替CGI腳本程序的一種應(yīng)用,它可以與數(shù)據(jù)庫(kù)和其它程序進(jìn)行交互，是一種簡(jiǎn)單、方便的編程工具。AS

27、P的網(wǎng)頁(yè)文件的格式是.asp，現(xiàn)在常用于各種動(dòng)態(tài)網(wǎng)站中。 ASP是一種服務(wù)器端腳本編寫環(huán)境，可以用來(lái)創(chuàng)建和運(yùn)行動(dòng)態(tài)網(wǎng)頁(yè)或Web應(yīng)用程序。ASP網(wǎng)頁(yè)可以包含HTML標(biāo)記、普通文本、腳本命令以及COM組件等。利用ASP可以向網(wǎng)頁(yè)中添加交互式內(nèi)容（如在線表單），也可以創(chuàng)建使用HTML網(wǎng)頁(yè)作為用戶界面的web應(yīng)用程序。</p><p>　　ASP( Application Service Provider,應(yīng)用軟體租賃服

28、務(wù)提供者 )即是指「透過(guò)網(wǎng)路以租賃方式提供應(yīng)用軟體服務(wù)的業(yè)者」,即是指業(yè)者以應(yīng)用軟體為主體,透過(guò)網(wǎng)路一對(duì)多地傳遞服務(wù),這種以服務(wù)為主的交易模式促使企業(yè)可藉由租賃的方式,以更符合成本效益的方式擁有軟體的使用權(quán),并且亦能因?yàn)闃I(yè)者集中式的管理而大幅降低企業(yè)維護(hù)的成本。</p><p>　　基本上,ASP即具有「軟體服務(wù)化,服務(wù)網(wǎng)路化」,「資訊委外服務(wù)與網(wǎng)路結(jié)合」與「產(chǎn)品通路化,通路產(chǎn)品化」等三大特性,其甚至可以被視為是

29、ISP（Internet Service Provider）與ITS（Information Technology Service）的結(jié)合，根據(jù)流行的觀點(diǎn)，ASP有如下五個(gè)核心內(nèi)涵： </p><p>　　a. ASP著重應(yīng)用為中心，提供對(duì)于應(yīng)用方面的訪問(wèn)和管理。 </p><p>　　b. ASP服務(wù)可以為用戶提供沒(méi)有在服務(wù)器、人員、系統(tǒng)和系統(tǒng)授權(quán)等前期資源投入情況下就可以在“定制”的全

30、新應(yīng)用系統(tǒng)環(huán)境進(jìn)行訪問(wèn)的服務(wù)，如ISP，而這樣的服務(wù)一般按月份ASP收取服務(wù)費(fèi)。 </p><p>　　c. ASP采用集中管理的方式---ASP一般都有一個(gè)管理中心，所有的客戶通過(guò)INTERNET來(lái)進(jìn)行遠(yuǎn)程訪問(wèn)，獲得技術(shù)支持和咨詢服務(wù)。 </p><p>　　d. 一對(duì)多的服務(wù)，也就是講，ASP提供的是標(biāo)準(zhǔn)化的產(chǎn)品包，產(chǎn)品都是最低程度的自定義或者沒(méi)有實(shí)現(xiàn)客戶定制化，對(duì)于行業(yè)用戶來(lái)講已經(jīng)達(dá)

31、到實(shí)用方便的標(biāo)準(zhǔn)。 </p><p>　　e. 按照合同交付，在ASP客戶的眼中，ASP是一家根據(jù)客戶協(xié)議內(nèi)容提供相關(guān)服務(wù)，保證應(yīng)用服務(wù)系統(tǒng)服務(wù)可以得到確實(shí)履行的機(jī)構(gòu)。</p><p><b>　　四 系統(tǒng)的設(shè)計(jì)</b></p><p><b>　　4.1系統(tǒng)需求分析</b></p><p>　　4

32、.1.1開發(fā)的背景</p><p>　　網(wǎng)上火車站售票管理系統(tǒng)是針對(duì)當(dāng)前買票難的問(wèn)題而研發(fā)的，同在火車站買票的方式一樣但是基于網(wǎng)絡(luò)技術(shù)他將變的更加簡(jiǎn)單快捷。隨著因特網(wǎng)發(fā)展的日新月異，人們利用網(wǎng)絡(luò)來(lái)</p><p>　　實(shí)現(xiàn)相互之間的協(xié)同工作以及資源共享越來(lái)越成為時(shí)代的潮流，一個(gè)不可扭轉(zhuǎn)的趨勢(shì)。目前，因特網(wǎng)已經(jīng)深入到我們生活的各個(gè)領(lǐng)域——學(xué)校，銀行，醫(yī)院，公司，企業(yè)等等。因此，我們?cè)谶@里用因

33、特網(wǎng)來(lái)實(shí)現(xiàn)網(wǎng)上火車站售票管理更是順應(yīng)了時(shí)代發(fā)展的方向。</p><p>　　這個(gè)系統(tǒng)主要是面向大眾，他們的想法只是想容易的買到自己想要的車票，而管理員這只是對(duì)其進(jìn)行管理。要做到這一點(diǎn)首先應(yīng)當(dāng)了解大眾的需求與他們的操作能力。系統(tǒng)的開發(fā)過(guò)程基于ASP簡(jiǎn)單直觀。整個(gè)實(shí)現(xiàn)時(shí)間約1個(gè)月。</p><p>　　4.1.2 業(yè)務(wù)現(xiàn)狀</p><p>　　系統(tǒng)的業(yè)務(wù)流程如下：<

34、;/p><p>　　4.1.3用戶平臺(tái)要求</p><p>　　火車站網(wǎng)上售票系統(tǒng)的實(shí)現(xiàn)需要服務(wù)器端和客戶端。因此服務(wù)器端需要安裝win2000 server或是其它的服務(wù)器操作系統(tǒng)和DBMS的支持。對(duì)客戶端沒(méi)有什么特別的需求，一般的win 98 即可。</p><p><b>　　4.2可行性研究</b></p><p>

35、　　4.2.1系統(tǒng)目標(biāo) </p><p>　　開發(fā)一個(gè)火車售票系統(tǒng)，實(shí)現(xiàn)對(duì)火車售票自動(dòng)化,輕松方便大家的交通運(yùn)輸。用戶可以在任何一個(gè)站點(diǎn)購(gòu)買任何兩站間的火車票,可以大大減輕買票的煩索步驟,同時(shí)也可以訂票。</p><p>　　4.2.2存在的問(wèn)題</p><p>　　范圍太大，開發(fā)人數(shù)太少，開發(fā)人員技術(shù)有限。</p><p>　　4.2.3建

36、立新系統(tǒng)</p><p>　　根據(jù)系統(tǒng)的長(zhǎng)期目標(biāo)，以及現(xiàn)行系統(tǒng)存在的主要問(wèn)題，建立系統(tǒng)可分以下幾步實(shí)現(xiàn)。</p><p>　?。?）對(duì)新系統(tǒng)實(shí)現(xiàn)的硬件條件</p><p>　　顯然該系統(tǒng)只是一個(gè)軟件系統(tǒng),它若要真正放于現(xiàn)實(shí),則尚須相應(yīng)的硬件支持,如打印機(jī)等。</p><p>　　（2）新系統(tǒng)可能產(chǎn)生的影響</p><p&g

37、t;　　要對(duì)火車站售票工作人員進(jìn)行此系統(tǒng)軟件的使用，使其逐步適應(yīng)計(jì)算機(jī)化的要求。</p><p><b>　?。?）效益分析</b></p><p>　　該系統(tǒng)提高了大家買票的方便度,全國(guó)各地的客戶可以在任何火車站購(gòu)買到任何兩地間的火車票,方便了大家的生活。</p><p><b>　　4.2.4結(jié)論</b></p&

38、gt;<p>　　由于該系統(tǒng)在國(guó)內(nèi)外是一個(gè)技術(shù)上成熟的系統(tǒng)，并且有工程技術(shù)方面的保證，以及負(fù)責(zé)人采取的積極態(tài)度，因此該系統(tǒng)是可行的。</p><p><b>　　4.3 數(shù)據(jù)庫(kù)設(shè)計(jì)</b></p><p>　　數(shù)據(jù)庫(kù)中一共設(shè)有5個(gè)表包括，用戶表，列車表，列車座位表，用戶購(gòu)票表，充值表。詳細(xì)結(jié)構(gòu)如下：</p><p><b&g

39、t;　　ER圖設(shè)計(jì)：</b></p><p><b>　　用戶</b></p><p><b>　　結(jié)果</b></p><p><b>　　五 系統(tǒng)的實(shí)現(xiàn)</b></p><p>　　5.1系統(tǒng)的登錄與退出</p><p>　　系統(tǒng)的登陸

40、中只要輸入正確的用戶名和密碼再與數(shù)據(jù)庫(kù)表里的值進(jìn)行對(duì)比，如果一致則登陸成功進(jìn)行跳轉(zhuǎn)，推出則只需用一個(gè)鏈接即可。登陸有兩種類型用SELECT CASE 控制。具體效果及代碼如下：</p><p>　　<!--#include file="conn.asp"--></p><p><b>　　<%</b></p><

41、;p>　　dim yhm,mm,dx</p><p>　　yhm=Trim(request.Form("yhm"))</p><p>　　mm=Trim(request.Form("mm"))</p><p>　　dx=Trim(request.Form("sd"))</p><p

42、>　　Session("yhm")=yhm</p><p>　　select case dx</p><p><b>　　case "用戶"</b></p><p>　　set rs=server.CreateObject("ADODB.Recordset")</p>

43、<p>　　rs.open "select * from yhb where yhm='"&yhm&"'",conn,1,1</p><p>　　if not(rs.eof and rs.bof) then</p><p>　　if yhm=rs("yhm") and mm=rs(&

44、quot;mm") then</p><p>　　response.Redirect "index.asp"</p><p><b>　　else</b></p><p>　　response.Redirect "dlcw.asp"</p><p><b>　

45、　end if</b></p><p><b>　　else</b></p><p>　　response.Redirect "dlcw.asp"</p><p><b>　　end if</b></p><p>　　case "管理員"<

46、/p><p>　　set rs=server.CreateObject("ADODB.Recordset")</p><p>　　rs.open "select * from yhb where yhm='"&yhm&"'",conn,1,1</p><p>　　if not(

47、rs.eof and rs.bof) then</p><p>　　if yhm=rs("yhm") and mm=rs("mm") and rs(10)="gly" then</p><p>　　response.Redirect "glyym.asp"</p><p><b&g

48、t;　　else</b></p><p>　　response.Redirect "dlcw.asp"</p><p><b>　　end if</b></p><p><b>　　else</b></p><p>　　response.Redirect &quo

49、t;dlcw.asp"</p><p><b>　　end if</b></p><p>　　end select</p><p><b>　　%></b></p><p>　　<!--#include file="close.asp"--></

50、p><p><b>　　5.2用戶管理</b></p><p>　　5.2.1用戶管理模塊的功能介紹</p><p>　　在用戶登陸后有多種選項(xiàng)顯示方式以左右框架顯示。用戶可用操作有：列車車次查詢，車站查詢，列車站到站查詢，買票，買票記錄，充值，查看他人售票，賣票，買票記錄，轉(zhuǎn)售車票，取消轉(zhuǎn)售，退票，返回首頁(yè)。如下圖：</p><

51、;p>　　5.2.2 用戶管理模塊的實(shí)現(xiàn)</p><p><b>　　1.列車車次查詢：</b></p><p>　　在這項(xiàng)查詢中需要用戶輸入要查詢的車次，然后對(duì)輸入的值進(jìn)行檢索并輸入記錄，具體實(shí)現(xiàn)過(guò)程如下：</p><p>　　<p>以下是您查詢的信息： 若下方為空，則說(shuō)明您查詢的列車不在查詢范圍內(nèi)?。?！</p>

52、</p><p>　　<!--#include file="conn.asp"--></p><p><b>　　<table></b></p><p><b>　　<%</b></p><p><b>　　dim lcm</b>

53、;</p><p>　　lcm=Trim(request.Form("cc"))</p><p>　　set rs1=server.CreateObject("ADODB.Recordset")</p><p>　　rs1.open "select * from lcb where lcm like '&qu

54、ot;&lcm&"%' or lcm like '%"&lcm&"'",conn,1,1</p><p><b>　　%></b></p><p><b>　　<tr></b></p><p>　　<td

55、 rowspan="3" align="center"><img src="../image/天使.gif" width="58" height="64" /></td></p><p>　　<td align="center">列車名</td&g

56、t;</p><p>　　<td align="center">列車類型</td></p><p>　　<td align="center">始發(fā)站</td></p><p>　　<td align="center">終點(diǎn)站</td>&

57、lt;/p><p><b>　　</tr></b></p><p><b>　　<tr></b></p><p>　　<td>&nbsp;</td></p><p>　　<td>&nbsp;</td></p&g

58、t;<p>　　<td>&nbsp;</td></p><p>　　<td>&nbsp;</td></p><p><b>　　</tr></b></p><p><b>　　<tr></b></p><

59、;p>　　<td align="center"><%=rs1(1)%></td></p><p>　　<td align="center"><%=rs1(2)%></td></p><p>　　<td align="center"><f

60、ont size="+1" color="#FF0000"><%=rs1(3)%></td></p><p>　　<td align="center"><font size="+1" color="#FF0000"><%=rs1(4)%></t

61、d></p><p><b>　　</tr></b></p><p><b>　　</table></b></p><p>　　<p>&nbsp;</p></p><p>　　<table width="97%"

62、 border="1" align="center" cellpadding="5" cellspacing="5" bordercolor="#000000" bgcolor="#FFFFFF"></p><p><b>　　<tr></b></p

63、><p>　　<td align="center">到達(dá)站</td></p><p>　　<td align="center">到達(dá)時(shí)間</td></p><p>　　<td align="center">發(fā)車時(shí)間</td></p&g

64、t;<p>　　<td align="center">停車時(shí)間</td></p><p>　　<td align="center">運(yùn)行時(shí)間</td></p><p>　　<td align="center">運(yùn)行里程</td></p>

65、;<p>　　<td align="center">硬座/軟座</td></p><p>　　<td align="center">硬臥(上/中/下)</td></p><p>　　<td align="center">軟臥(上/下)</td>&

66、lt;/p><p><b>　　</tr></b></p><p><b>　　<%</b></p><p>　　set rs=server.CreateObject("ADODB.Recordset")</p><p>　　rs.open "select

67、 * from lcb where lcm like '"&lcm&"%' or lcm like '%"&lcm&"'",conn,1,1</p><p>　　do while not rs.eof</p><p><b>　　%></b><

68、/p><p><b>　　<tr></b></p><p>　　<td align="center"><%=rs(5)%></td><td align="center"><%=rs(6)%></td><td align="center

69、"><%=rs(7)%></td><td align="center"><%=rs(8)%></td><td align="center"><%=rs(9)%></td><td align="center"><%=rs(10)%></td

70、></p><p>　　<td align="center"><%=rs(11)%>/<%=rs(12)%></td><td align="center"><%=rs(13)%>/<%=rs(14)%>/<%=rs(15)%></td><td align=

71、"center"><%=rs(16)%>/<%=rs(17)%></td></p><p><b>　　</tr></b></p><p><b>　　<%</b></p><p>　　rs.movenext</p><p&

72、gt;<b>　　loop</b></p><p>　　set rs=nothing</p><p><b>　　%></b></p><p><b>　　</table></b></p><p><b>　　<p></b>&

73、lt;/p><p>　　<!--#include file="close.asp"--></p><p><b>　　</p></b></p><p>　　<p>&nbsp;</p></p><p>　　<p>-----＞＞＞<a

74、href="cccx.asp">返回查詢頁(yè)</a></p></p><p>　　<table width="100%" border="0" background="../image/shuipingxian.gif"></p><p><b>　　<t

75、r></b></p><p>　　<td>&nbsp;</td></p><p><b>　　</tr></b></p><p><b>　　</table></b></p><p>　　<p>&nbsp;

76、</p></p><p><b>　　2.車站查詢</b></p><p>　　列車車站查詢和車次查詢類同都是需要用戶輸入再對(duì)表中檢索，但是到達(dá)這個(gè)車站的列車有很多所以需要一個(gè)查看明細(xì)的頁(yè)面，明細(xì)頁(yè)面只需接受一個(gè)編號(hào)傳值顯示與當(dāng)前記錄相關(guān)的記錄即可。由于車站查詢和車次查詢?nèi)绯鲆晦H這里就不做介紹了。</p><p><b>

77、　　3.列車站到站查詢</b></p><p>　　列車站到站查詢需要對(duì)兩個(gè)值進(jìn)行檢索，同樣需要明細(xì)頁(yè)查看具體的列車走向。具體實(shí)現(xiàn)如下：</p><p>　　<p>以下是您查詢的信息： 若下方為空，則說(shuō)明您查詢的列車不在查詢范圍內(nèi)?。。?lt;/p></p><p>　　<!--#include file="conn.a

78、sp"--></p><p>　　<table width="97%" border="1" align="center" cellpadding="5" cellspacing="10" bordercolor="#000000" bgcolor="#FFFFF

79、F"></p><p><b>　　<tr></b></p><p>　　<td align="center">列車名</td></p><p>　　<td align="center">列車類型</td></p>

80、<p>　　<td align="center">始發(fā)站</td></p><p>　　<td align="center">終點(diǎn)站</td></p><p>　　<td align="center">經(jīng)過(guò)站1</td></p><

81、;p>　　<td align="center">經(jīng)過(guò)站2</td></p><p>　　<td align="center">到達(dá)時(shí)間</td></p><p>　　<td align="center">發(fā)車時(shí)間</td></p><

82、p>　　<td align="center">硬座/軟座</td></p><p>　　<td align="center">硬臥（上/中/下）</td></p><p>　　<td align="center">軟臥（上/下）</td></p&g

83、t;<p>　　<td align="center">查看</td></p><p><b>　　</tr></b></p><p><b>　　<%</b></p><p><b>　　dim z1,z2</b></p

84、><p>　　z1=Trim(request.Form("z1"))</p><p>　　z2=Trim(request.Form("z2"))</p><p>　　set rs=conn.execute("select * from lcb where cz='"&z1&"

85、' ")</p><p>　　set rs1=conn.execute("select * from lcb where cz='"&z2&"' ")</p><p>　　do while not rs1.eof </p><p><b>　　%></b&

86、gt;</p><p><b>　　<tr></b></p><p>　　<tdalign="center"><%=rs1(1)%></td><td align="center"><%=rs1(2)%></td><td align=&quo

87、t;center"><%=rs1(3)%></td><td align="center"><%=rs1(4)%></td><tdalign="center"><fontcolor="#FF0000"><%=rs(5)%></td><tdalign=&

88、quot;center"><font color="#FF0000"><%=rs1(5)%></td><td align="center"><%=rs1(6)%></td><td align="center"><%=rs1(7)%></td><td

89、align="center"><%=rs1(11)%>/<%=rs1(12)%></td><td align="center"><%=rs1(13)%>/<%=rs1(14)%>/<%=rs1(15)%></td><td align="center"><%=r

90、s1(16)%>/<%=rs1(17)%></td><td align="center"><a</p><p><b>　　</tr></b></p><p><b>　　<%</b></p><p>　　rs1.movenext<

91、/p><p><b>　　loop</b></p><p>　　set rs=nothing</p><p><b>　　%></b></p><p><b>　　</table></b></p><p><b>　　<p&

92、gt;</b></p><p>　　<!--#include file="close.asp"--></p><p><b>　　</p></b></p><p>　　<p>&nbsp;</p></p><p>　　<p>

93、-----＞＞＞<a href="zzcx.asp">返回查詢頁(yè)</a></p></p><p><b>　　4.買票功能</b></p><p>　　用戶買票可以說(shuō)是他來(lái)到這的目的了，他要買票需要填寫他的信息而有些記錄這不用填寫，因?yàn)槭菍?shí)名登記所以用戶名和他的身份證就不需要填寫。直接從表記錄中調(diào)出來(lái)就可以了效果

94、如圖：</p><p>　　用戶填寫完成信息以后就是買票的過(guò)程操作了。過(guò)程中我們要考慮很多問(wèn)題如是否有車票，有幾節(jié)車廂，每節(jié)車廂有幾個(gè)座位，如何知道這節(jié)車廂已經(jīng)滿員，怎樣扣除用戶金額并更新等等。只有我們考慮的到位才不會(huì)出錯(cuò)這里只對(duì)硬座車票的實(shí)現(xiàn)給出代碼其它類同。實(shí)現(xiàn)如下：</p><p>　　dim cz,cc,sfz,cplx,n,ye,y,r,d,rq,wl,zw,lxfs,i<

95、/p><p>　　cz=Trim(request.Form("cz"))</p><p>　　cc=Trim(request.Form("cc"))</p><p>　　sfz=Trim(request.Form("sfz"))</p><p>　　cplx=Trim(request.F

96、orm("cplx"))</p><p>　　lxfs=Trim(request.Form("lxfs"))</p><p>　　n=Trim(request.Form("n"))</p><p>　　y=Trim(request.Form("y"))</p><p&

97、gt;　　r=Trim(request.Form("r"))</p><p><b>　　rq=n&y&r</b></p><p>　　if cdate(rq)<date() or r>31 then</p><p>　　response.Redirect "xianssb1.asp&q

98、uot;</p><p><b>　　else</b></p><p>　　set rs=conn.execute("select * from yhb where yhm='"&Session("yhm")&"'")</p><p>　　setrs1

99、=conn.execute("select * from lcb where lcm like '%"&cc&"%' and cz='"&cz&"'")</p><p>　　if rs1.bof and rs1.eof then</p><p>　　response.

100、Redirect "xianssb1.asp"</p><p><b>　　else</b></p><p>　　if rs(8)>rs1(11) then</p><p>　　set rs4=server.CreateObject("ADODB.Recordset")</p

101、><p>　　rs4.open "select * from lczb where lcm='"&rs1(1)&"'",conn,3,3</p><p>　　if rs4(4)-1>1 then'檢查是否有剩余車廂</p><p>　　if rs4(5)+1>rs4(3)

102、then'檢查是否有剩余座位</p><p>　　rs4(4)=rs4(4)-1</p><p>　　rs4(5)=1</p><p>　　ye=rs(8)-rs1(11)'更新余額</p><p>　　set rs3=server.CreateObject("ADODB.Recordset&q

103、uot;)'進(jìn)行買票記錄</p><p>　　rs3.open "select * from yhzl ",conn,3,3</p><p>　　rs3.addnew </p><p>　　rs3("yhm")=rs(1)</p><p>　　rs3("ye")=ye

104、 </p><p>　　rs3("mpjl")=rs3("mpjl")+1</p><p>　　rs3("ccm")=cc</p><p>　　rs3("kcsj")=rs1(6)</p><p>　　rs3("cprq")=n&

105、"年"&y&"月"&r&"日"</p><p>　　rs3("xm")=rs(5)</p><p>　　rs3("sfz")=rs(6)</p><p>　　rs3("lxfs")=lxfs</p>&

106、lt;p>　　rs3("cpfx")=rs1(3)&"-"&cz</p><p>　　rs3("zw")=rs4(4)&"車"&rs4(5)&"號(hào) 硬座"</p><p>　　rs3("gprq")=date()</p&

107、gt;<p>　　rs3("gpyh")="網(wǎng)絡(luò)"</p><p>　　rs3("zt")=0</p><p>　　rs3.update</p><p><b>　　rs3.close</b></p><p>　　set rs3=nothing&l

108、t;/p><p>　　set rs4=conn.execute("update lczb set sscj="&rs4(4)&",sscz="&rs4(5)&" where lcm='"&rs1(1)&"'")'更新列車數(shù)據(jù)</p><p>

109、;　　set rs=conn.execute("update yhb set zhye="&ye&" where yhm='"&Session("yhm")&"'")'更新用戶數(shù)據(jù)</p><p>　　response.Redirect "xianscg.asp&

110、quot;</p><p><b>　　else </b></p><p>　　ye=rs(8)-rs1(11)</p><p>　　rs4(5)=rs4(5)+1</p><p>　　set rs3=server.CreateObject("ADODB.Recordset")'進(jìn)行買票記

111、錄</p><p>　　rs3.open "select * from yhzl ",conn,3,3</p><p>　　rs3.addnew </p><p>　　rs3("yhm")=rs(1)</p><p>　　rs3("ye")=ye</p><p&g

112、t;　　rs3("mpjl")=rs3("mpjl")+1</p><p>　　rs3("ccm")=cc</p><p>　　rs3("kcsj")=rs1(6)</p><p>　　rs3("cprq")=n&"年"&y&

113、;"月"&r&"日"</p><p>　　rs3("xm")=rs(5)</p><p>　　rs3("sfz")=rs(6)</p><p>　　rs3("lxfs")=lxfs rs3("cpfx&q

114、uot;)=rs1(3)&"-"&cz</p><p>　　rs3("zw")=rs4(4)&"車"&rs4(5)&"號(hào) 硬座"</p><p>　　rs3("gprq")=date()</p><p>　　rs3("

115、gpyh")="網(wǎng)絡(luò)"</p><p>　　rs3("zt")=0</p><p>　　rs3.update</p><p><b>　　rs3.close</b></p><p>　　set rs3=nothing</p><p>　　set r

116、s4=conn.execute("update lczb set sscz="&rs4(5)&" where lcm='"&rs1(1)&"'")'更新列車數(shù)據(jù)</p><p>　　set rs=conn.execute("update yhb set zhye="&

117、;ye&" where yhm='"&Session("yhm")&"'")'更新用戶數(shù)據(jù)response.Redirect "xianscg.asp"</p><p><b>　　end if</b></p><p&g

118、t;<b>　　else</b></p><p>　　set rs4=server.CreateObject("ADODB.Recordset")</p><p>　　rs4.open "select * from lczb where lcm='"&rs1(1)&"'",co

119、nn,3,3</p><p>　　if rs4(5)+1<rs4(3) then</p><p>　　rs4(5)=rs4(5)+1</p><p>　　ye=rs(8)-rs1(11)</p><p>　　set rs3=server.CreateObject("ADODB.Recordset")'進(jìn)

120、行買票記錄</p><p>　　rs3.open "select * from yhzl ",conn,3,3</p><p>　　rs3.addnew </p><p>　　rs3("yhm")=rs(1)</p><p>　　rs3("ye")=ye</p><

121、;p>　　rs3("mpjl")=rs3("mpjl")+1</p><p>　　rs3("ccm")=cc</p><p>　　rs3("kcsj")=rs1(6)</p><p>　　rs3("cprq")=n&"年"&y

122、&"月"&r&"日"</p><p>　　rs3("xm")=rs(5)</p><p>　　rs3("sfz")=rs(6)</p><p>　　rs3("lxfs")=lxfs rs3("cp

123、fx")=rs1(3)&"-"&cz</p><p>　　rs3("zw")=rs4(4)&"車"&rs4(5)&"號(hào) 硬座"</p><p>　　rs3("gprq")=date()</p><p>　　rs3(&q

124、uot;gpyh")="網(wǎng)絡(luò)"</p><p>　　rs3("zt")=0</p><p>　　rs3.update</p><p><b>　　rs3.close</b></p><p>　　set rs3=nothing</p><p>　　s

125、et rs4=conn.execute("update lczb set sscz="&rs4(5)&" where lcm='"&rs1(1)&"'")'更新列車數(shù)據(jù)</p><p>　　set rs=conn.execute("update yhb set zhye="

126、&ye&" where yhm='"&Session("yhm")&"'")'更新用戶數(shù)據(jù)</p><p>　　response.Redirect "xianscg.asp"</p><p><b>　　else</b><

127、;/p><p>　　response.Redirect "xianssb.asp"</p><p><b>　　end if</b></p><p><b>　　end if</b></p><p>　　response.Redirect "xianssb.asp"

128、;</p><p><b>　　else </b></p><p>　　response.Redirect "xianssb.asp"</p><p><b>　　end if</b></p><p><b>　　5.買票記錄</b></p>

129、<p>　　買票記錄是記錄用戶在一定時(shí)間內(nèi)的購(gòu)票操作，這對(duì)用戶和管理員同樣重要。用戶心知肚明把錢花在明處，管理用明察秋毫知道是否有非法操作，這項(xiàng)功能非常簡(jiǎn)單只要顯示記錄即可就不多說(shuō)了。</p><p><b>　　6.充值</b></p><p>　　用戶需要買票當(dāng)然需要錢來(lái)買而沒(méi)錢了充值就是必須的。充值和登錄異曲同工，都是對(duì)輸入的值進(jìn)行比較檢索并為用戶的余

130、額加上充值卡的金額即可在這里就不給出代碼了。</p><p><b>　　7.查看他人售票</b></p><p>　　賣票的人不一定是管理員，某人有事需要改變車次，而又不想因退票被扣除手續(xù)費(fèi)就可以掛單賣給其它人，只要車票沒(méi)有過(guò)期都可以進(jìn)行上架，當(dāng)然如果車票過(guò)期了都沒(méi)人買走的話就作廢了，功能的實(shí)現(xiàn)只要把做有標(biāo)號(hào)且沒(méi)有過(guò)期的記錄顯示出來(lái)就可以了，就不做詳細(xì)論述了。<

131、;/p><p><b>　　8.賣票</b></p><p>　　賣票這個(gè)過(guò)程就不需要多說(shuō)了只要把用戶的車票做個(gè)記號(hào)就可以了。</p><p><b>　　具體實(shí)現(xiàn)</b></p><p>　　<!--#include file="conn.asp"--></p&g

132、t;<p><b>　　<%</b></p><p><b>　　dim id,jg</b></p><p>　　id=request.QueryString("id")</p><p>　　jg=Trim(request.Form("jg"))</p>

133、;<p>　　set rs=conn.execute("update yhzl set zt=1,mapjg="&jg&" where 編號(hào)="&id&"")</p><p><b>　　%></b></p><p><b>　　9.票已售出&l

134、t;/b></p><p>　　這個(gè)是買票里的附帶功能加在這里是為了更好的理解，買他人售票是個(gè)雙向的操作同時(shí)要扣除買票用戶的金額和記錄車票的值還要為賣票的人加上所售金額并為其進(jìn)行記錄以供管理員查看，賣票記錄，出售中的車票和取消售票的實(shí)現(xiàn)過(guò)程就細(xì)說(shuō)了和出售車票是一樣的只要給車票進(jìn)行標(biāo)注就可以了。接下來(lái)給出票被買走的實(shí)現(xiàn)代碼：</p><p>　　<!--#include file

135、="conn.asp"--></p><p><b>　　<%</b></p><p><b>　　dim id</b></p><p>　　id=request.QueryString("id")</p><p>　　set rs=server.

136、CreateObject("ADODB.Recordset")</p><p>　　rs.open "select * from yhzl where 編號(hào)="&id&"",conn,3,3</p><p>　　set rs2=conn.execute("select * from yhb where y

137、hm='"&Session("yhm")&"'"</p><p>　　set rs3=server.CreateObject("ADODB.Recordset")'進(jìn)行買票記錄</p><p>　　rs3.open "select * from yhzl "

138、,conn,3,3</p><p>　　rs3.addnew </p><p>　　rs3("yhm")=rs2(1)</p><p>　　rs3("ye")=rs2(8)-rs(7)</p><p>　　rs3("mpjl")=rs3("mpjl")+1<

139、/p><p>　　rs3("ccm")=rs(8)</p><p>　　rs3("kcsj")=rs(9)</p><p>　　rs3("cprq")=rs(10)</p><p>　　rs3("xm")=rs2(5)</p><p>　　rs

140、3("sfz")=rs2(6)</p><p>　　rs3("lxfs")=rs2(7)</p><p>　　rs3("cpfx")=rs(11)</p><p>　　rs3("zw")=rs(12)</p><p>　　rs3("gprq")

141、=date()</p><p>　　rs3("gpyh")="轉(zhuǎn)售"&rs(1)</p><p>　　rs3("zt")=0</p><p>　　rs3.update</p><p><b>　　rs3.close</b></p><

142、p>　　set rs3=nothing</p><p>　　set rs1=conn.execute("update yhzl set zt=2 where 編號(hào)="&id&"")</p><p>　　set rs4=conn.execute("update yhb set zhye=zhye+"&r

143、s(7)&" where yhm='"&rs(1)&"'")</p><p>　　response.Write "<script>alert('\n 購(gòu)買成功 \n ');window.location.href='trsp.asp';</script>"&l

144、t;/p><p><b>　　%></b></p><p><b>　　10.退票</b></p><p>　　退票是個(gè)很必要的過(guò)程當(dāng)車票快要過(guò)期而又沒(méi)有購(gòu)買的時(shí)候退票的就成了必然了，由于本人表結(jié)構(gòu)的設(shè)計(jì)退票時(shí)需要截取字符串但是實(shí)現(xiàn)的方法還是一樣的，只要退票的記錄為用戶加上退票的金額就可以了一下是實(shí)現(xiàn)代碼：</p&

145、gt;<p>　　<!--#include file="conn.asp"--></p><p><b>　　<%</b></p><p>　　dim id,str,str1,z</p><p>　　id=request.QueryString("id")</p>