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

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

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

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

4、 （教師填寫）</p><p>　　指導(dǎo)老師： （簽 字）</p><p>　　2011年 月 日</p><p><b>　　目 錄</b></p><p>　　第一章 項目開發(fā)計劃書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項目概述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驗收標(biāo)準(zhǔn)2</p><p>　　1.2.6本計劃的批準(zhǔn)者和批準(zhǔn)日期2</p><p><b>　　1.3實施計劃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ī)系統(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)簡要描述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市場需求分析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 注冊功能模塊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實體-聯(lián)系圖10</p><p>　　第四章 系統(tǒng)設(shè)計12</p><p>　　4.1 總體設(shè)計12</p><p>　　4.1.1需求概述12</p&

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

14、lt;/p><p>　　4.3功能模塊的設(shè)計與實現(xiàn)19</p><p>　　4.3.1會員注冊模塊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ù)庫內(nèi)

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

16、lt;/p><p>　　5.4 測試結(jié)果32</p><p>　　5.4.1注冊和登錄模塊測試32</p><p>　　5.4.2 查詢、訂票和退票模塊測試33</p><p>　　5.4.3 用戶個人信息修改和刪除模塊測試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>　　第一章 項目開發(fā)計劃書</p><p><b>　　1.1引言 </b></p><p><b>　　1.1.1編寫目的&l

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

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

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

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

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

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

24、t;/p><p><b>　　1.2.4服務(wù)</b></p><p>　　安裝、維護(hù)和運行支持從使用該系統(tǒng)開始，維護(hù)期限為一年。 </p><p>　　1.2.5驗收標(biāo)準(zhǔn) </p><p>　　各個功能均能正常使用，滿足用戶的需求。</p><p>　　1.2.6本計劃的批準(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實施計劃 </b></p><p>　　1.3.1工作任務(wù)的分配與人員分工 </p><p>　　張鵬 任務(wù):（1）系統(tǒng)總的開發(fā)計劃書

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

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

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

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

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

31、lt;/p><p>　　前臺界面類型：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>　?。?）性能要求：游客提供的信息必須及時的反映在火車站的工作平臺上。售票系統(tǒng)的訂單必須無差錯的存儲在火車站的主服務(wù)器上。對服務(wù)器上的數(shù)據(jù)必須進(jìn)行及時正確的刷新。</p><p>　?。?）輸出要求：數(shù)據(jù)完整，詳實。</p><p>　?。?）輸出要求：簡捷，快速，實時。</p

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

34、服務(wù)效率。降低售票服務(wù)中的錯誤發(fā)生率，減少信息交流的煩瑣過程及其帶來的開銷。</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)簡要描述</p><p>　　在火車站中的終端是安裝了Windows XP的PC機(jī)，主要目的是向火車站的服務(wù)器傳遞數(shù)據(jù)。當(dāng)顧客在火車站進(jìn)行咨詢時，終端向服務(wù)器發(fā)出查詢請求，服務(wù)器根據(jù)火車信息庫的實時數(shù)據(jù)，向終端發(fā)送數(shù)據(jù)，顯示在終端的屏幕上。當(dāng)顧客向售票員售票時，終端向服務(wù)器發(fā)出發(fā)出查詢售票請求，服務(wù)器核對后，存入售票票信息庫，并修改售票信息庫，核對后，傳送機(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ì)量的特點，可以節(jié)省不

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

38、t;<p>　　數(shù)據(jù)庫環(huán)境：Microsoft Access 95</p><p>　　系統(tǒng)環(huán)境：Microsoft Windows XP/ Microsoft Windows 7</p><p>　　系統(tǒng)實現(xiàn)依靠相對熟悉的VB語言和Microsoft Access 95數(shù)據(jù)庫系統(tǒng)，其基本操作實質(zhì)還是對數(shù)據(jù)庫進(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市場需求分析&

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

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

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

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

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

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

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

47、t;p>　　系統(tǒng)建成后預(yù)計將有大量的用戶在此查詢火車票信息并進(jìn)行大量的預(yù)訂操作，因此對系統(tǒng)的穩(wěn)定性也有比較高的要求。一旦系統(tǒng)不能正常工作，會給用戶群帶來巨大的損失也將導(dǎo)致失去用戶對系統(tǒng)的信任。</p><p><b>　　3.3數(shù)據(jù)字典</b></p><p>　　通過系統(tǒng)需求分析，對網(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實體-聯(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è)計</b></p><p><b>　　4.1 總體設(shè)計</b></p>

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

51、t;<p>　　4.1.2客戶關(guān)系管理系統(tǒng)功能設(shè)計</p><p>　　根據(jù)系統(tǒng)需求分析和系統(tǒng)功能模塊結(jié)構(gòu)圖來看，該系統(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)上訂票、取消訂票三個部分。其中信息查詢又可分為車次查詢和訂單查詢兩個部分。其層次圖如圖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過程設(shè)計</b></p><p>　　4.1.1程序流程圖</p>&l

54、t;p>　　本系統(tǒng)主界面為用戶設(shè)計了三個功能操作以供選擇：查詢，訂票，退票。另外，為方便用戶，還將“退出系統(tǒng)”也單另列了出來，用戶可以根據(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ù)庫設(shè)計</b></p><p>　　4.2.1數(shù)據(jù)庫詳細(xì)設(shè)計</p><p>　　數(shù)據(jù)庫文件

56、名：db_train</p><p>　　列車信息表結(jié)構(gòu)(db_info)</p><p><b>　　主鍵為：沒有主鍵</b></p><p>　?。?）注冊用戶表結(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>　　程序各個模塊都要與數(shù)據(jù)庫系統(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è)計與實現(xiàn)</p><p>　　4.3.1會員注冊模塊</p><p>　　用戶如果想要注冊，則按要求輸入信息，包括用戶名，密碼，確認(rèn)密碼。還要進(jìn)行身份信息驗證，包括真實姓名，身份證號，聯(lián)系手機(jī)，收票地址。輸入完后點擊“注冊”，則系統(tǒng)自動轉(zhuǎn)入登陸界面。注冊界面如下：</p><p><b>　　圖11 注冊界面</

59、b></p><p>　　具體方法代碼實現(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 "對不起用戶名已經(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 "恭喜，注冊成功!", 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 "您輸入或者提供的信息不正確，請您重新輸入!", 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>　　站站查詢是用戶在界面輸入框輸入想要查詢的列車起始終點站城市名，即可查詢相應(yīng)的列車信息。<

83、/p><p><b>　　具體實現(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>　　單獨的車次查詢是在沒有輸入列車起始終點站城市名情況下，輸入列車車次，點擊查詢即可顯示所有該次列車的詳細(xì)信息。</p><p><b>　　具體實現(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>　　站站+車次查詢是在精確輸入列車起始終點站城市名和列車車次的情況下，點擊查詢即可顯示所有該次列車的詳細(xì)信息。</p><p><b>　　具體實現(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ù)庫內(nèi)容到界面</p><p>　　以上面的三種方式查詢列車信息，程序搜索數(shù)據(jù)庫，如果

111、查詢到相關(guān)信息便顯示在listview 框中，便于購票(退票)者查詢閱讀。</p><p><b>　　具體實現(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 訂票實現(xiàn)</p><p>　　當(dāng)售票工作人員把售票信息列表顯示出來后，乘客可以選擇購票，如果余票足夠多，乘客可以買到有座票，本系統(tǒng)沒有詳細(xì)設(shè)計車票打印程序，只

118、以消息框的形式顯示。購買成功，text11.text-1，并且更新數(shù)據(jù)庫Data1.UpdateRecord。</p><p><b>　　圖16</b></p><p>　　如果余票不足，乘客購買無座票</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)前您購買無座票", 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 "訂票成功！請您盡快去支付平臺付款！", vbOKOnly +

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