課程設(shè)計(jì)---火車票網(wǎng)上售票系統(tǒng)

1、<p><b>　　課程設(shè)計(jì)說(shuō)明書</b></p><p>　　2011年6月30日</p><p>　課程名稱:軟件工程導(dǎo)論</p><p>　課程代碼:</p><p>　題 目:火車站網(wǎng)上訂票系統(tǒng)</p><p>　年級(jí)/專業(yè)/班:</p><p>　學(xué)

2、生姓名:</p><p>　學(xué) 號(hào):</p><p>　指導(dǎo)老師:</p><p>　開題時(shí)間:</p><p>　完成時(shí)間:2011年6月30日</p><p>　　課程設(shè)計(jì)任務(wù)書及成績(jī)?cè)u(píng)定</p><p>　　1、設(shè)計(jì)的目的與要求 </p><p>　　1）加強(qiáng)學(xué)

3、生的實(shí)踐能力；</p><p>　　2）理解小型系統(tǒng)開發(fā)的基本步驟；</p><p>　　3）本系統(tǒng)的功能包括：火車票信息查詢，預(yù)訂火車票，退訂火車票。 </p><p>　　2、設(shè)計(jì)進(jìn)度及完成情況</p><p><b>　　3、成績(jī)?cè)u(píng)定</b></p><p>　　設(shè)計(jì)成績(jī)：

4、 （教師填寫）</p><p>　　指導(dǎo)老師： （簽 字）</p><p>　　2011年 月 日</p><p><b>　　目 錄</b></p><p>　　第一章 項(xiàng)目開發(fā)計(jì)劃書1</p><p><b>　　1.

5、1引言1</b></p><p>　　1.1.1編寫目的1</p><p><b>　　1.1.2背景1</b></p><p><b>　　1.2項(xiàng)目概述1</b></p><p>　　1.2.1工作內(nèi)容1</p><p>　　1.2.2主要參加人員

6、2</p><p><b>　　1.2.3產(chǎn)品2</b></p><p><b>　　1.2.4服務(wù)2</b></p><p>　　1.2.5驗(yàn)收標(biāo)準(zhǔn)2</p><p>　　1.2.6本計(jì)劃的批準(zhǔn)者和批準(zhǔn)日期2</p><p><b>　　1.3實(shí)施計(jì)劃3

7、</b></p><p>　　1.3.1工作任務(wù)的分配與人員分工3</p><p><b>　　1.3.2進(jìn)度3</b></p><p><b>　　1.4支持條件3</b></p><p>　　1.4.1計(jì)算機(jī)系統(tǒng)支持3</p><p>　　第二章 可行

8、性分析5</p><p>　　2.1可行性研究前提5</p><p><b>　　2.1.1要求5</b></p><p><b>　　2.1.2目標(biāo)5</b></p><p>　　2.1.3決定可行性的因素5</p><p>　　2.2 技術(shù)可行性分析6<

9、/p><p>　　2.2.1系統(tǒng)簡(jiǎn)要描述6</p><p>　　2.2.2 系統(tǒng)主要功能流程圖6</p><p>　　2.3經(jīng)濟(jì)上可行性6</p><p>　　2.4 操作可行性7</p><p>　　2.5開發(fā)工具的選擇7</p><p><b>　　2.6 結(jié)論7</

10、b></p><p>　　第三章 需求分析8</p><p>　　3.1市場(chǎng)需求分析8</p><p>　　3.2系統(tǒng)功能性需求分析8</p><p>　　3.2.1 功能劃分8</p><p>　　3.2.2 功能描述8</p><p>　　3.2.2.1 注冊(cè)功能模塊8&

11、lt;/p><p>　　3.2.2.2 登錄功能模塊8</p><p>　　3.2.2.3 查詢功能模塊9</p><p>　　3.2.2.4 訂票功能模塊9</p><p>　　3.2.2.5 管理功能信息模塊9</p><p>　　3.3 系統(tǒng)非功能性需求9</p><p>　　3.3

12、.1 可用性9</p><p>　　3.3.2 可靠性9</p><p>　　3.3數(shù)據(jù)字典10</p><p>　　3.4實(shí)體-聯(lián)系圖10</p><p>　　第四章 系統(tǒng)設(shè)計(jì)12</p><p>　　4.1 總體設(shè)計(jì)12</p><p>　　4.1.1需求概述12</p&

13、gt;<p>　　4.1.2客戶關(guān)系管理系統(tǒng)功能設(shè)計(jì)12</p><p>　　4.1.3過(guò)程設(shè)計(jì)14</p><p>　　4.1.1程序流程圖14</p><p>　　4.2數(shù)據(jù)庫(kù)設(shè)計(jì)18</p><p>　　4.2.1數(shù)據(jù)庫(kù)詳細(xì)設(shè)計(jì)18</p><p>　　4.2.2數(shù)據(jù)結(jié)構(gòu)與程序關(guān)系19&

14、lt;/p><p>　　4.3功能模塊的設(shè)計(jì)與實(shí)現(xiàn)19</p><p>　　4.3.1會(huì)員注冊(cè)模塊19</p><p>　　4.3.1 站站查詢22</p><p>　　4.3.2 車次查詢23</p><p>　　4.3.3 站+車次查詢25</p><p>　　4.3.4 顯示數(shù)據(jù)庫(kù)內(nèi)

15、容到界面26</p><p>　　4.3.5 訂票實(shí)現(xiàn)27</p><p>　　4.3.6 退票實(shí)現(xiàn)29</p><p>　　第五章 系統(tǒng)測(cè)試31</p><p>　　5.1 測(cè)試的作用和意義31</p><p>　　5.2 測(cè)試方法31</p><p>　　5.3 測(cè)試內(nèi)容32&

16、lt;/p><p>　　5.4 測(cè)試結(jié)果32</p><p>　　5.4.1注冊(cè)和登錄模塊測(cè)試32</p><p>　　5.4.2 查詢、訂票和退票模塊測(cè)試33</p><p>　　5.4.3 用戶個(gè)人信息修改和刪除模塊測(cè)試35</p><p><b>　　5.4 結(jié)論36</b></

17、p><p><b>　　第六章 總結(jié)37</b></p><p><b>　　參考文獻(xiàn)38</b></p><p>　　第一章 項(xiàng)目開發(fā)計(jì)劃書</p><p><b>　　1.1引言 </b></p><p><b>　　1.1.1編寫目的&l

18、t;/b></p><p>　　此項(xiàng)目開發(fā)計(jì)劃書的編寫主要是為了給開發(fā)《火車站網(wǎng)上訂票系統(tǒng)》做主要的規(guī)劃和整合，在開發(fā)過(guò)程中起到引導(dǎo)作用，以及給使用者提供簡(jiǎn)要的說(shuō)明。</p><p><b>　　1.1.2背景</b></p><p>　　火車站市場(chǎng)的管理和規(guī)范問題，是困擾我們多年的一個(gè)老問題，也是政府管理中的一個(gè)難點(diǎn)，訂票是客運(yùn)業(yè)務(wù)中的

19、一個(gè)最基本的業(yè)務(wù)，表面上看，它只是火車站業(yè)務(wù)的一個(gè)簡(jiǎn)單的部分，但是它涉及到管理與客戶服務(wù)等多方面，因此，過(guò)去傳統(tǒng)的售票方式已經(jīng)不能滿足現(xiàn)代客運(yùn)業(yè)務(wù)流量劇增的客觀要求，這就要求一種全新的訂票方式——網(wǎng)上訂票，來(lái)緩解訂票高峰時(shí)期的客運(yùn)壓力，并為用戶提供方便快捷的訂票服務(wù)。</p><p>　　目前火車站售票的狀況是僅靠手工操作，以現(xiàn)有的工作人員很難應(yīng)付車票訂購(gòu)高峰時(shí)刻的大量數(shù)據(jù)處理問題。同時(shí)還會(huì)出現(xiàn)由此帶來(lái)的大量記錄

20、存放和管理所帶來(lái)的問題。本次設(shè)計(jì)擬開發(fā)一個(gè)火車站網(wǎng)上訂票系統(tǒng)，可以降低工作人員的工作量，提高工作人員的工作效率，同時(shí)方便顧客訂票。</p><p><b>　　1.2項(xiàng)目概述</b></p><p><b>　　1.2.1工作內(nèi)容</b></p><p>　　《火車站網(wǎng)上訂票系統(tǒng)》針對(duì)的用戶是需要查詢火車票信息、預(yù)訂火車票

21、以及退訂火車票的人；</p><p>　　該系統(tǒng)需要實(shí)現(xiàn)如下主要功能以及相關(guān)說(shuō)明：</p><p>　　火車票信息查詢：站與站的火車票信息查詢、火車車次的查詢以及用戶已訂票的信息查詢。</p><p>　　火車票預(yù)訂：在規(guī)定的有效時(shí)間段內(nèi)，預(yù)訂火車票，但要收取一定的手續(xù)費(fèi)。</p><p>　　火車票退訂：在車票的有效期之內(nèi)，能夠?qū)λA(yù)訂的火

22、車票進(jìn)行退訂，對(duì)于退還的金額有一定比例的扣除。</p><p>　　1.2.2主要參加人員 </p><p><b>　　組長(zhǎng)：張鵬</b></p><p>　　組員：蔡珀瑛 伍佳 鐘佳 尹唐文</p><p><b>　　1.2.3產(chǎn)品</b></p><p><b&

23、gt;　　1、系統(tǒng)開發(fā)計(jì)劃書</b></p><p><b>　　2、系統(tǒng)需求說(shuō)明書</b></p><p><b>　　3、系統(tǒng)設(shè)計(jì)說(shuō)明書</b></p><p><b>　　4、測(cè)試計(jì)劃</b></p><p>　　5、一個(gè)能正確運(yùn)行的可執(zhí)行程序，源程序清單&l

24、t;/p><p><b>　　1.2.4服務(wù)</b></p><p>　　安裝、維護(hù)和運(yùn)行支持從使用該系統(tǒng)開始，維護(hù)期限為一年。 </p><p>　　1.2.5驗(yàn)收標(biāo)準(zhǔn) </p><p>　　各個(gè)功能均能正常使用，滿足用戶的需求。</p><p>　　1.2.6本計(jì)劃的批準(zhǔn)者和批準(zhǔn)日期 </p

25、><p><b>　　批準(zhǔn)者：顏富強(qiáng)</b></p><p>　　批準(zhǔn)日期：2011年6月6日</p><p><b>　　1.3實(shí)施計(jì)劃 </b></p><p>　　1.3.1工作任務(wù)的分配與人員分工 </p><p>　　張鵬 任務(wù):（1）系統(tǒng)總的開發(fā)計(jì)劃書

26、（2）系統(tǒng)的總體設(shè)計(jì)</p><p>　　（3）組織小組討論 （4）項(xiàng)目開發(fā)進(jìn)度的管理</p><p>　?。?）團(tuán)隊(duì)的組織和協(xié)調(diào)</p><p>　　蔡珀瑛 任務(wù)：系統(tǒng)的可行性分析</p><p>　　鐘佳 任務(wù): 系統(tǒng)的需求分析</p><p>　　伍佳 任務(wù)：數(shù)據(jù)

27、庫(kù)的設(shè)計(jì)以及系統(tǒng)的開發(fā)</p><p>　　尹唐文 任務(wù)：系統(tǒng)測(cè)試</p><p><b>　　1.3.2進(jìn)度 </b></p><p>　　系統(tǒng)規(guī)劃階段: 項(xiàng)目標(biāo)志性事件 開始到完成</p><p>　　開發(fā)階段： 項(xiàng)目開發(fā)計(jì)劃書的完成 6.6-6.

28、7</p><p>　　需求分析階段: 系統(tǒng)需求說(shuō)明書完成 6.8-6.10</p><p>　　設(shè)計(jì)階段: 系統(tǒng)設(shè)計(jì)說(shuō)明書 6.11-6.15</p><p>　　編碼實(shí)現(xiàn): 項(xiàng)目的形成 6.16-6.23</p><p>　　測(cè)

29、試階段: 測(cè)試計(jì)劃 6.24-6.27</p><p>　　移交階段: 項(xiàng)目的遞交 6.28-6.30</p><p><b>　　1.4支持條件</b></p><p>　　1.4.1計(jì)算機(jī)系統(tǒng)支持</p><p>　　

30、操作系統(tǒng)需要 windows 2000以上；</p><p>　　操作系統(tǒng)環(huán)境：windows xp/windows 7；</p><p>　　數(shù)據(jù)庫(kù)需要Microsoft Access 95；</p><p>　　數(shù)據(jù)庫(kù)驅(qū)動(dòng)：Microsoft公司的sqljdbc驅(qū)動(dòng);</p><p>　　前臺(tái)開發(fā)工具：Visual Basic 6.0;&

31、lt;/p><p>　　前臺(tái)界面類型：windows 窗體應(yīng)用程序。</p><p><b>　　第二章 可行性分析</b></p><p>　　2.1可行性研究前提</p><p><b>　　2.1.1要求</b></p><p>　?。?）主要功能：為游客提供火車票信息查詢

32、以及訂票服務(wù)，方便火車站的售票工作，提高火車站的服務(wù)質(zhì)量和服務(wù)效率</p><p>　?。?）性能要求：游客提供的信息必須及時(shí)的反映在火車站的工作平臺(tái)上。售票系統(tǒng)的訂單必須無(wú)差錯(cuò)的存儲(chǔ)在火車站的主服務(wù)器上。對(duì)服務(wù)器上的數(shù)據(jù)必須進(jìn)行及時(shí)正確的刷新。</p><p>　?。?）輸出要求：數(shù)據(jù)完整，詳實(shí)。</p><p>　?。?）輸出要求：簡(jiǎn)捷，快速，實(shí)時(shí)。</p

33、><p>　?。?）安全與保密要求：服務(wù)器的管理員享有對(duì)火車車次信息庫(kù)及火車票票信息庫(kù)和售票票信息庫(kù)的管理與修改。售票員只享有對(duì)訂票信息庫(kù)的部分修改（寫入與讀出）。</p><p>　　（6）完成期限：預(yù)計(jì)六個(gè)月。</p><p><b>　　2.1.2目標(biāo)</b></p><p>　　系統(tǒng)實(shí)現(xiàn)后，大大提高火車站的火車票售票

34、服務(wù)效率。降低售票服務(wù)中的錯(cuò)誤發(fā)生率，減少信息交流的煩瑣過(guò)程及其帶來(lái)的開銷。</p><p>　　2.1.3決定可行性的因素</p><p>　　技術(shù)可行，現(xiàn)有技術(shù)可完全承擔(dān)開發(fā)任務(wù)。</p><p>　　操作可行，軟件能被原有工作人員快速接受</p><p>　　2.2 技術(shù)可行性分析</p><p>　　2.2.1

35、系統(tǒng)簡(jiǎn)要描述</p><p>　　在火車站中的終端是安裝了Windows XP的PC機(jī)，主要目的是向火車站的服務(wù)器傳遞數(shù)據(jù)。當(dāng)顧客在火車站進(jìn)行咨詢時(shí)，終端向服務(wù)器發(fā)出查詢請(qǐng)求，服務(wù)器根據(jù)火車信息庫(kù)的實(shí)時(shí)數(shù)據(jù)，向終端發(fā)送數(shù)據(jù)，顯示在終端的屏幕上。當(dāng)顧客向售票員售票時(shí)，終端向服務(wù)器發(fā)出發(fā)出查詢售票請(qǐng)求，服務(wù)器核對(duì)后，存入售票票信息庫(kù)，并修改售票信息庫(kù)，核對(duì)后，傳送機(jī)票確認(rèn)表單，終端打印出機(jī)票。</p>

36、<p>　　2.2.2 系統(tǒng)主要功能流程圖</p><p><b>　　圖1 系統(tǒng)流程圖</b></p><p><b>　　2.3經(jīng)濟(jì)上可行性</b></p><p>　　本系統(tǒng)其他應(yīng)用軟件、硬件系統(tǒng)也易于獲得.因此,開發(fā)成本較低。而引進(jìn)使用本系統(tǒng)后，與傳統(tǒng)方式相比，具有高效率、低成本、高質(zhì)量的特點(diǎn)，可以節(jié)省不

37、少人力、物力及財(cái)力。所以，從經(jīng)濟(jì)的角度來(lái)看，該系統(tǒng)可行。</p><p><b>　　2.4 操作可行性</b></p><p>　　系統(tǒng)采用菜單式，實(shí)現(xiàn)用戶與數(shù)據(jù)庫(kù)的交互，界面簡(jiǎn)潔友好，操作方便。</p><p>　　2.5開發(fā)工具的選擇</p><p>　　開發(fā)工具：Visual Basic 6.0 </p&g

38、t;<p>　　數(shù)據(jù)庫(kù)環(huán)境：Microsoft Access 95</p><p>　　系統(tǒng)環(huán)境：Microsoft Windows XP/ Microsoft Windows 7</p><p>　　系統(tǒng)實(shí)現(xiàn)依靠相對(duì)熟悉的VB語(yǔ)言和Microsoft Access 95數(shù)據(jù)庫(kù)系統(tǒng)，其基本操作實(shí)質(zhì)還是對(duì)數(shù)據(jù)庫(kù)進(jìn)行添加、刪除、查找等操作。</p><p>

39、;<b>　　2.6 結(jié)論</b></p><p>　　綜上所述，火車售票系統(tǒng)在技術(shù)非常成熟，主客觀條件都具備，且具有良好的效益，因此開發(fā)此系統(tǒng)是可行的。為了提高售票效率，方便人們查找火車票信息，建議立即開發(fā)。</p><p><b>　　第三章 需求分析</b></p><p><b>　　3.1市場(chǎng)需求分析&

40、lt;/b></p><p>　　目前火車站售票的狀況是僅靠手工操作，以現(xiàn)有的工作人員很難應(yīng)付車票訂購(gòu)高峰時(shí)刻的大量數(shù)據(jù)處理問題。同時(shí)還會(huì)出現(xiàn)由此帶來(lái)的大量記錄存放和管理所帶來(lái)的問題。本次設(shè)計(jì)擬開發(fā)一個(gè)火車站網(wǎng)上訂票系統(tǒng)，可以降低工作人員的工作量，提高工作人員的工作效率，同時(shí)方便顧客訂票。</p><p>　　3.2系統(tǒng)功能性需求分析</p><p>　　3.

41、2.1 功能劃分</p><p>　　本系統(tǒng)的目標(biāo)使用人群是廣大的火車乘客，建成后將有助于緩解火車票售票人員的工作量。</p><p>　　因此本系統(tǒng)首先需要實(shí)現(xiàn)用戶對(duì)火車票的查詢的查詢功能，包括查詢火車的票價(jià)和座位號(hào)等，查詢到所需車票的用戶還可以進(jìn)行預(yù)訂，預(yù)訂時(shí)需填寫用戶的必要信息包括姓名、身份證號(hào)、收票地址等。預(yù)訂好車票的用戶因某些因素需要退票的，在火車發(fā)車前的規(guī)定時(shí)間內(nèi)，還可以進(jìn)行退

42、票。</p><p>　　3.2.2 功能描述</p><p>　　3.2.2.1 注冊(cè)功能模塊</p><p>　　對(duì)于想利用本系統(tǒng)進(jìn)行火車票查詢的用戶，首先需要注冊(cè)成為系統(tǒng)的用戶方能進(jìn)行查詢操作，系統(tǒng)保存用戶的注冊(cè)信息，在注冊(cè)用戶時(shí)僅需要輸入由用戶自定義的用戶名稱和密碼，注冊(cè)成功后頁(yè)面隨即轉(zhuǎn)入主頁(yè)（登錄界面）。</p><p>　　3.

43、2.2.2 登錄功能模塊</p><p>　　用于用戶的登錄，對(duì)于已經(jīng)在本系統(tǒng)注冊(cè)的用戶可以根據(jù)注冊(cè)時(shí)所用的用戶名和密碼登錄到本系統(tǒng)，但是用戶名和密碼必須正確，若是不正確的用戶名和密碼，系統(tǒng)便進(jìn)行錯(cuò)誤提示。系統(tǒng)確認(rèn)用戶名和密碼后便跳轉(zhuǎn)到查詢界面。</p><p>　　3.2.2.3 查詢功能模塊</p><p>　　查詢分為站站查詢，車次查詢以及已訂車票的信息查詢。

44、所有上網(wǎng)用戶都可以使用本系統(tǒng)的查詢功能，對(duì)車票信息有個(gè)基本的了解。用戶在查詢界面輸入框輸入所要查詢的出發(fā)站和目的站，或者是火車車次，系統(tǒng)則會(huì)根據(jù)輸入的信息進(jìn)行搜索，并給出搜索結(jié)果，用戶還可點(diǎn)擊搜索結(jié)果查看火車票的詳細(xì)信息。</p><p>　　3.2.2.4 訂票功能模塊</p><p>　　用戶在查詢界面查詢到自己所滿意的車票時(shí)，可以進(jìn)行網(wǎng)上訂票操作，所訂車票將自動(dòng)添加到用戶的個(gè)人信息當(dāng)

45、中，方便用戶日后進(jìn)行管理。</p><p>　　3.2.2.5 管理功能信息模塊</p><p>　　只有登錄后的用戶才可以管理自己的信息，在個(gè)人信息框中可以查看到用戶已訂的車票和用戶注冊(cè)時(shí)所填的個(gè)人信息。用戶由于某些個(gè)人因素需要退票的還可以進(jìn)行退票操作。</p><p>　　3.3 系統(tǒng)非功能性需求</p><p><b>　　3

46、.3.1 可用性</b></p><p>　　本系統(tǒng)的潛在用戶群具有的身份、背景可能會(huì)有較大的差異，因此對(duì)本系統(tǒng)的可操作性和易用性都提出了很高的要求。過(guò)于復(fù)雜的操作將不可避免的損失大量的用戶，本系統(tǒng)應(yīng)能讓任何用戶都不必借助任何操作手冊(cè)或相關(guān)的系統(tǒng)幫助就能順利地進(jìn)行各種操作。</p><p><b>　　3.3.2 可靠性</b></p>&l

47、t;p>　　系統(tǒng)建成后預(yù)計(jì)將有大量的用戶在此查詢火車票信息并進(jìn)行大量的預(yù)訂操作，因此對(duì)系統(tǒng)的穩(wěn)定性也有比較高的要求。一旦系統(tǒng)不能正常工作，會(huì)給用戶群帶來(lái)巨大的損失也將導(dǎo)致失去用戶對(duì)系統(tǒng)的信任。</p><p><b>　　3.3數(shù)據(jù)字典</b></p><p>　　通過(guò)系統(tǒng)需求分析，對(duì)網(wǎng)上訂票系統(tǒng)編制數(shù)據(jù)字典如下：</p><p>　　各

48、主要數(shù)據(jù)流的定義如表1至表4所示：</p><p><b>　　表1</b></p><p><b>　　表2</b></p><p><b>　　表 3</b></p><p><b>　　表4</b></p><p><b

49、>　　3.4實(shí)體-聯(lián)系圖</b></p><p>　　根據(jù)需求分析，可以畫出系統(tǒng)E-R圖如下：</p><p>　　圖2 火車站網(wǎng)上訂票系統(tǒng)E-R圖</p><p><b>　　第四章 系統(tǒng)設(shè)計(jì)</b></p><p><b>　　4.1 總體設(shè)計(jì)</b></p>

50、<p><b>　　4.1.1需求概述</b></p><p>　　本系統(tǒng)的目標(biāo)一方面為減少火車站售票人員在售票高峰期的工作壓力，另一方面為用戶提供一個(gè)查詢火車票信息和預(yù)定火車票的平臺(tái)。因此，本系統(tǒng)需要實(shí)現(xiàn)火車票信息的查詢功能，火車票預(yù)定和火車票退訂的功能。而為了讓用戶不丟失或者及時(shí)的修改信息，用戶需要在系統(tǒng)進(jìn)行簡(jiǎn)單的注冊(cè)，登錄，即系統(tǒng)還需實(shí)現(xiàn)用戶的注冊(cè)、登錄功能。</p&g

51、t;<p>　　4.1.2客戶關(guān)系管理系統(tǒng)功能設(shè)計(jì)</p><p>　　根據(jù)系統(tǒng)需求分析和系統(tǒng)功能模塊結(jié)構(gòu)圖來(lái)看，該系統(tǒng)應(yīng)具備如下基本功能：</p><p><b>　　列車信息查詢</b></p><p>　　已預(yù)訂火車票信息查詢</p><p><b>　　預(yù)訂火車票</b><

52、;/p><p><b>　　退訂火車票</b></p><p>　　本火車站網(wǎng)上訂票系統(tǒng)可劃分為信息查詢、網(wǎng)上訂票、取消訂票三個(gè)部分。其中信息查詢又可分為車次查詢和訂單查詢兩個(gè)部分。其層次圖如圖3.1所示。</p><p>　　其功能模塊結(jié)構(gòu)圖如下： </p><p>　　圖3 程序功能模塊圖</p><

53、p>　　圖4 站站查詢系統(tǒng)流程圖</p><p>　　圖5 車次信息查詢系統(tǒng)流程圖</p><p>　　圖6 訂票系統(tǒng)流程圖</p><p>　　圖7 退票系統(tǒng)流程圖</p><p><b>　　4.1.3過(guò)程設(shè)計(jì)</b></p><p>　　4.1.1程序流程圖</p>&l

54、t;p>　　本系統(tǒng)主界面為用戶設(shè)計(jì)了三個(gè)功能操作以供選擇：查詢，訂票，退票。另外，為方便用戶，還將“退出系統(tǒng)”也單另列了出來(lái)，用戶可以根據(jù)需要觸發(fā)不同事件。其處理流程如圖4.1所示。</p><p>　　系統(tǒng)管理員以及系統(tǒng)用戶操作處理流程</p><p>　　圖8 系統(tǒng)管理員及系統(tǒng)用戶操作流程圖</p><p>　　2.列車信息查詢流程</p>

55、<p>　　圖9 列車信息查詢流程圖</p><p><b>　　3.退票處理流程</b></p><p>　　圖10 退票處理流程圖</p><p><b>　　4.2數(shù)據(jù)庫(kù)設(shè)計(jì)</b></p><p>　　4.2.1數(shù)據(jù)庫(kù)詳細(xì)設(shè)計(jì)</p><p>　　數(shù)據(jù)庫(kù)文件

56、名：db_train</p><p>　　列車信息表結(jié)構(gòu)(db_info)</p><p><b>　　主鍵為：沒有主鍵</b></p><p>　?。?）注冊(cè)用戶表結(jié)構(gòu)(login)</p><p><b>　　主鍵為：沒有主鍵</b></p><p>　?。?）管理員登陸

57、表結(jié)構(gòu)(masterlogin)</p><p><b>　　主鍵為：沒有主鍵</b></p><p>　　4.2.2數(shù)據(jù)結(jié)構(gòu)與程序關(guān)系</p><p>　　程序各個(gè)模塊都要與數(shù)據(jù)庫(kù)系統(tǒng)聯(lián)系。物理數(shù)據(jù)結(jié)構(gòu)主要用于各模塊之間函數(shù)的信息傳遞。接口傳遞的信息將是以數(shù)據(jù)結(jié)構(gòu)封裝了的數(shù)據(jù)，以參數(shù)傳遞或返回值的形式在各模塊間傳輸。</p>&

58、lt;p>　　4.3功能模塊的設(shè)計(jì)與實(shí)現(xiàn)</p><p>　　4.3.1會(huì)員注冊(cè)模塊</p><p>　　用戶如果想要注冊(cè)，則按要求輸入信息，包括用戶名，密碼，確認(rèn)密碼。還要進(jìn)行身份信息驗(yàn)證，包括真實(shí)姓名，身份證號(hào)，聯(lián)系手機(jī)，收票地址。輸入完后點(diǎn)擊“注冊(cè)”，則系統(tǒng)自動(dòng)轉(zhuǎn)入登陸界面。注冊(cè)界面如下：</p><p><b>　　圖11 注冊(cè)界面</

59、b></p><p>　　具體方法代碼實(shí)現(xiàn)如下：</p><p>　　Private Sub Command1_Click()</p><p>　　If Not Text1.Text = "" And Not Text2.Text = "" And Not Text3.Text = "" And No

60、t Text4.Text = "" And Not Text5.Text = "" And Not Text6.Text = "" And Not Text7.Text = "" And Text2.Text = Text3.Text Then</p><p>　　Data1.RecordSource = "select *

61、 from login where usr='" & Text1.Text & "'"</p><p>　　Data1.Refresh</p><p>　　If Not Data1.Recordset.EOF Then</p><p>　　MsgBox "對(duì)不起用戶名已經(jīng)被占用！重新輸入&quo

62、t;, vbOKOnly + vbInformation, "提示"</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p><b>　　

63、End If</b></p><p>　　If Data1.Recordset.EOF Then</p><p>　　Data1.Recordset.addnew</p><p>　　Data1.Recordset.Fields(0) = Text1.Text</p><p>　　Data1.Recordset.Fields(1)

64、 = Text2.Text</p><p>　　Data1.Recordset.Fields(2) = Text4.Text</p><p>　　Data1.Recordset.Fields(3) = Text5.Text</p><p>　　Data1.Recordset.Fields(4) = Text6.Text</p><p>　　D

65、ata1.Recordset.Fields(5) = Text7.Text</p><p>　　Data1.Recordset.Fields(6) = ""</p><p>　　Data1.Recordset.Fields(7) = ""</p><p>　　Data1.Recordset.Fields(8) = "

66、"</p><p>　　Data1.Recordset.Fields(9) = 0</p><p>　　Data1.Recordset.Fields(10) = ""</p><p>　　Data1.UpdateRecord</p><p>　　Text1.Text = ""</p>

67、;<p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　Text4.Text = ""</p><p>　　Text5.Text = ""</p><p>　　Text6.Text = &

68、quot;"</p><p>　　Text7.Text = ""</p><p>　　MsgBox "恭喜，注冊(cè)成功!", vbOKOnly + vbInformation, "提示"</p><p><b>　　Me.Hide</b></p><p>

69、;　　Form_Unload (0)</p><p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　MsgBox "您輸入或者提供的信息不正確，請(qǐng)您重新輸入!", vbOKOnly + vbInformation, "提示"<

70、;/p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Data1.DatabaseName = App.Path & "\db_train.mdb&q

71、uot;</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Unload(Cancel As Integer)</p><p>　　Train_ts.Show</p><p><b>　　End Sub</b></p><p

72、>　　Private Sub Timer1_Timer()</p><p>　　If Check1.Value = 1 Then</p><p>　　Command1.Enabled = True</p><p><b>　　End If</b></p><p>　　If Check1.Value = 0 Then

73、</p><p>　　Command1.Enabled = False</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Timer2_Timer()</p><p>　　If N

74、ot Text1.Text = "" Then</p><p>　　Label21.Caption = "√"</p><p><b>　　Else</b></p><p>　　Label21.Caption = ""</p><p><b>　　En

75、d If</b></p><p>　　If Not Text2.Text = "" Then</p><p>　　Label22.Caption = "√"</p><p><b>　　Else</b></p><p>　　Label22.Caption = "

76、;"</p><p><b>　　End If</b></p><p>　　If Text3.Text = Text2.Text And Not Text3.Text = "" Then</p><p>　　Label23.Caption = "√"</p><p>&l

77、t;b>　　Else</b></p><p>　　Label23.Caption = ""</p><p><b>　　End If</b></p><p>　　If Not Text4.Text = "" Then</p><p>　　Label12.Capti

78、on = "√"</p><p><b>　　Else</b></p><p>　　Label12.Caption = ""</p><p><b>　　End If</b></p><p>　　If Not Text5.Text = ""

79、 Then</p><p>　　Label14.Caption = "√"</p><p><b>　　Else</b></p><p>　　Label14.Caption = ""</p><p><b>　　End If</b></p>&l

80、t;p>　　If Not Text6.Text = "" Then</p><p>　　Label15.Caption = "√"</p><p><b>　　Else</b></p><p>　　Label15.Caption = ""</p><p>

81、<b>　　End If</b></p><p>　　If Not Text7.Text = "" Then</p><p>　　Label16.Caption = "√"</p><p><b>　　Else</b></p><p>　　Label16.Ca

82、ption = ""</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　4.3.1 站站查詢</p><p>　　站站查詢是用戶在界面輸入框輸入想要查詢的列車起始終點(diǎn)站城市名，即可查詢相應(yīng)的列車信息。<

83、/p><p><b>　　具體實(shí)現(xiàn)如下:</b></p><p><b>　　圖12</b></p><p><b>　　代碼:</b></p><p>　　If Not Text1.Text = "" And Not Text2.Text = "&q

84、uot; And Text3.Text = "" Then</p><p>　　ListView1.ListItems.Clear</p><p>　　On Error Resume Next</p><p>　　Data1.Recordset.MoveFirst</p><p>　　Data1.RecordSource

85、= "select * from tb_info where 發(fā)車站='" & Text1.Text & "'and 到達(dá)站='" & Text2.Text & "'"</p><p>　　Data1.Refresh</p><p><b>　　sign

86、= 0</b></p><p>　　Do While Not Data1.Recordset.EOF</p><p>　　Set itmX = ListView1.ListItems.Add()</p><p>　　If Data1.Recordset.RecordCount > 0 Then</p><p>　　itmX.

87、Text = Data1.Recordset.Fields(0)</p><p>　　itmX.SubItems(1) = Data1.Recordset.Fields(1)</p><p>　　itmX.SubItems(2) = Data1.Recordset.Fields(2)</p><p>　　itmX.SubItems(3) = Data1.Record

88、set.Fields(3)</p><p>　　itmX.SubItems(4) = Data1.Recordset.Fields(4)</p><p>　　itmX.SubItems(5) = Data1.Recordset.Fields(5)</p><p>　　itmX.SubItems(6) = Data1.Recordset.Fields(6)</p

89、><p>　　itmX.SubItems(7) = Data1.Recordset.Fields(7)</p><p>　　itmX.SubItems(8) = Data1.Recordset.Fields(8)</p><p>　　Data1.Recordset.MoveNext</p><p><b>　　sign = 1</

90、b></p><p><b>　　End If</b></p><p><b>　　Loop</b></p><p>　　If sign = 0 Then</p><p>　　MsgBox "抱歉，沒有查詢到從" & Text1.Text & "到

91、" & Text2.Text & "的列車信息！", vbOKOnly + vbInformation, "提示"</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　4.3.2 車次查詢&

92、lt;/p><p>　　單獨(dú)的車次查詢是在沒有輸入列車起始終點(diǎn)站城市名情況下，輸入列車車次，點(diǎn)擊查詢即可顯示所有該次列車的詳細(xì)信息。</p><p><b>　　具體實(shí)現(xiàn)如下:</b></p><p><b>　　圖13</b></p><p><b>　　代碼如下:</b><

93、;/p><p>　　If Text1.Text = "" And Text2.Text = "" And Not Text3.Text = "" Then</p><p>　　ListView1.ListItems.Clear</p><p><b>　　sign = 0</b></

94、p><p>　　On Error Resume Next</p><p>　　Data1.Recordset.MoveFirst</p><p>　　Data1.RecordSource = "select * from tb_info where 車次='" & Text3.Text & "'"&

95、lt;/p><p>　　Data1.Refresh</p><p>　　Do While Not Data1.Recordset.EOF</p><p>　　Set itmX = ListView1.ListItems.Add()</p><p>　　If Data1.Recordset.RecordCount > 0 Then</p

96、><p>　　itmX.Text = Data1.Recordset.Fields(0)</p><p>　　itmX.SubItems(1) = Data1.Recordset.Fields(1)</p><p>　　itmX.SubItems(2) = Data1.Recordset.Fields(2)</p><p>　　itmX.SubI

97、tems(3) = Data1.Recordset.Fields(3)</p><p>　　itmX.SubItems(4) = Data1.Recordset.Fields(4)</p><p>　　itmX.SubItems(5) = Data1.Recordset.Fields(5)</p><p>　　itmX.SubItems(6) = Data1.Rec

98、ordset.Fields(6)</p><p>　　itmX.SubItems(7) = Data1.Recordset.Fields(7)</p><p>　　itmX.SubItems(8) = Data1.Recordset.Fields(8)</p><p>　　Data1.Recordset.MoveNext</p><p>&l

99、t;b>　　sign = 1</b></p><p><b>　　End If</b></p><p><b>　　Loop</b></p><p>　　If sign = 0 Then</p><p>　　MsgBox "抱歉，沒有查詢到車次為" &

100、Text3.Text & "的列車信息！", vbOKOnly + vbInformation, "提示"</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　4.3.3 站+車次查詢</p>

101、<p>　　站站+車次查詢是在精確輸入列車起始終點(diǎn)站城市名和列車車次的情況下，點(diǎn)擊查詢即可顯示所有該次列車的詳細(xì)信息。</p><p><b>　　具體實(shí)現(xiàn)如下:</b></p><p><b>　　圖14</b></p><p><b>　　代碼如下:</b></p><

102、;p>　　If Not Text1.Text = "" And Not Text2.Text = "" And Not Text3.Text = "" Then</p><p>　　ListView1.ListItems.Clear</p><p><b>　　sign = 0</b></p>

103、;<p>　　On Error Resume Next</p><p>　　Data1.Recordset.MoveFirst</p><p>　　Data1.RecordSource = "select * from tb_info where 發(fā)車站='" & Text1.Text & "'and 到達(dá)站=&

104、#39;" & Text2.Text & "'and 車次='" & Text3.Text & "'"</p><p>　　Data1.Refresh</p><p>　　Do While Not Data1.Recordset.EOF</p><p>　　Se

105、t itmX = ListView1.ListItems.Add()</p><p>　　If Data1.Recordset.RecordCount > 0 Then</p><p>　　itmX.Text = Data1.Recordset.Fields(0)</p><p>　　itmX.SubItems(1) = Data1.Recordset.Fie

106、lds(1)</p><p>　　itmX.SubItems(2) = Data1.Recordset.Fields(2)</p><p>　　itmX.SubItems(3) = Data1.Recordset.Fields(3)</p><p>　　itmX.SubItems(4) = Data1.Recordset.Fields(4)</p>&

107、lt;p>　　itmX.SubItems(5) = Data1.Recordset.Fields(5)</p><p>　　itmX.SubItems(6) = Data1.Recordset.Fields(6)</p><p>　　itmX.SubItems(7) = Data1.Recordset.Fields(7)</p><p>　　itmX.SubI

108、tems(8) = Data1.Recordset.Fields(8)</p><p>　　Data1.Recordset.MoveNext</p><p><b>　　sign = 1</b></p><p><b>　　End If</b></p><p><b>　　Loop<

109、/b></p><p>　　If sign = 0 Then</p><p>　　MsgBox "抱歉，沒有查詢到從" & Text1.Text & "到" & Text2.Text & " 車次為" & Text3.Text & "的列車信息！", vbO

110、KOnly + vbInformation, "提示"</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　4.3.4 顯示數(shù)據(jù)庫(kù)內(nèi)容到界面</p><p>　　以上面的三種方式查詢列車信息，程序搜索數(shù)據(jù)庫(kù)，如果

111、查詢到相關(guān)信息便顯示在listview 框中，便于購(gòu)票(退票)者查詢閱讀。</p><p><b>　　具體實(shí)現(xiàn)如下:</b></p><p><b>　　圖15</b></p><p><b>　　代碼如下:</b></p><p>　　Data1.Recordset.Mov

112、eFirst</p><p>　　Data1.RecordSource = "select * from tb_info where 發(fā)車站='" & Text1.Text & "'and 到達(dá)站='" & Text2.Text & "'and 車次='" & Text3.

113、Text & "'"</p><p>　　Data1.Refresh</p><p>　　Do While Not Data1.Recordset.EOF</p><p>　　Set itmX = ListView1.ListItems.Add()</p><p>　　If Data1.Recordset.

114、RecordCount > 0 Then</p><p>　　itmX.Text = Data1.Recordset.Fields(0)</p><p>　　itmX.SubItems(1) = Data1.Recordset.Fields(1)</p><p>　　itmX.SubItems(2) = Data1.Recordset.Fields(2)<

115、;/p><p>　　itmX.SubItems(3) = Data1.Recordset.Fields(3)</p><p>　　itmX.SubItems(4) = Data1.Recordset.Fields(4)</p><p>　　itmX.SubItems(5) = Data1.Recordset.Fields(5)</p><p>　

116、　itmX.SubItems(6) = Data1.Recordset.Fields(6)</p><p>　　itmX.SubItems(7) = Data1.Recordset.Fields(7)</p><p>　　itmX.SubItems(8) = Data1.Recordset.Fields(8)</p><p>　　Data1.Recordset.Mo

117、veNext</p><p><b>　　End If</b></p><p><b>　　Loop</b></p><p>　　4.3.5 訂票實(shí)現(xiàn)</p><p>　　當(dāng)售票工作人員把售票信息列表顯示出來(lái)后，乘客可以選擇購(gòu)票，如果余票足夠多，乘客可以買到有座票，本系統(tǒng)沒有詳細(xì)設(shè)計(jì)車票打印程序，只

118、以消息框的形式顯示。購(gòu)買成功，text11.text-1，并且更新數(shù)據(jù)庫(kù)Data1.UpdateRecord。</p><p><b>　　圖16</b></p><p>　　如果余票不足，乘客購(gòu)買無(wú)座票</p><p><b>　　圖17</b></p><p><b>　　具體代碼如下

119、:</b></p><p>　　If Text11.Text > 0 Then</p><p>　　Text11.Text = Text11.Text - 1</p><p><b>　　Else</b></p><p>　　MsgBox "座票已經(jīng)售完！當(dāng)前您購(gòu)買無(wú)座票", vbO

120、KOnly + vbInformation, "提示"</p><p><b>　　End If</b></p><p>　　Data1.RecordSource = "select * from tb_info where 發(fā)車站='" & Text4.Text & "'and 到達(dá)

121、站='" & Text5.Text & "'and 車次='" & Text6.Text & "'"</p><p>　　Data1.Refresh</p><p>　　Data1.Recordset.Edit</p><p>　　Data1.Recor

122、dset.Fields(7) = Text11.Text</p><p>　　Data1.UpdateRecord</p><p>　　ListView1.ListItems.Clear</p><p>　　On Error Resume Next</p><p>　　Data1.Recordset.MoveFirst</p>

123、<p>　　Data1.RecordSource = "select * from tb_info where 發(fā)車站='" & Text4.Text & "'and 到達(dá)站='" & Text5.Text & "'"</p><p>　　Data1.Refresh</p&

124、gt;<p>　　Do While Not Data1.Recordset.EOF</p><p>　　Set itmX = ListView1.ListItems.Add()</p><p>　　If Data1.Recordset.RecordCount > 0 Then</p><p>　　itmX.Text = Data1.Records

125、et.Fields(0)</p><p>　　itmX.SubItems(1) = Data1.Recordset.Fields(1)</p><p>　　itmX.SubItems(2) = Data1.Recordset.Fields(2)</p><p>　　itmX.SubItems(3) = Data1.Recordset.Fields(3)</p&

126、gt;<p>　　itmX.SubItems(4) = Data1.Recordset.Fields(4)</p><p>　　itmX.SubItems(5) = Data1.Recordset.Fields(5)</p><p>　　itmX.SubItems(6) = Data1.Recordset.Fields(6)</p><p>　　itm

127、X.SubItems(7) = Data1.Recordset.Fields(7)</p><p>　　itmX.SubItems(8) = Data1.Recordset.Fields(8)</p><p>　　Data1.Recordset.MoveNext</p><p><b>　　End If</b></p><p

128、><b>　　Loop</b></p><p>　　Data1.RecordSource = "select * from login where usr='" & Label5.Caption & "'"</p><p>　　Data1.Refresh</p><p&g

129、t;　　Data1.Recordset.Edit</p><p>　　Data1.Recordset.Fields(6) = Text4.Text</p><p>　　Data1.Recordset.Fields(7) = Text5.Text</p><p>　　Data1.Recordset.Fields(8) = Text6.Text</p>&

130、lt;p>　　Data1.Recordset.Fields(9) = Text10.Text</p><p>　　Data1.Recordset.Fields(10) = Text12.Text</p><p>　　Data1.UpdateRecord</p><p>　　Text4.Text = ""</p><p&g

131、t;　　Text5.Text = ""</p><p>　　Text6.Text = ""</p><p>　　Text7.Text = ""</p><p>　　Text8.Text = ""</p><p>　　Text9.Text = ""

132、;</p><p>　　Text10.Text = ""</p><p>　　Text11.Text = ""</p><p>　　Text12.Text = ""</p><p>　　MsgBox "訂票成功！請(qǐng)您盡快去支付平臺(tái)付款！", vbOKOnly +

133、vbInformation, "成功購(gòu)買"</p><p><b>　　End Sub</b></p><p>　　4.3.6 退票實(shí)現(xiàn)</p><p>　　退票的實(shí)現(xiàn)和買票類似，乘客首先查詢需要退票的列車信息，點(diǎn)擊退票，如果退票成功，text11.text+1，并且更新數(shù)據(jù)庫(kù)。</p><p>&l

134、t;b>　　圖19</b></p><p><b>　　具體代碼:</b></p><p>　　On Error Resume Next</p><p>　　Dim iii As Integer</p><p>　　iii = MsgBox("確認(rèn)退票？", vbYesNo + vb

135、Information, "提示")</p><p>　　If iii = 6 Then</p><p>　　Data1.RecordSource = "select * from tb_info where 發(fā)車站='" & Text8.Text & "'and 到達(dá)站='" &

136、 Text9.Text & "'and 車次='" & Text10.Text & "'"</p><p>　　Data1.Refresh</p><p>　　Data1.Recordset.Edit</p><p>　　Data1.Recordset.Fields(7) = D