課程設計---火車票網上售票系統

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

2、生姓名:</p><p>　學 號:</p><p>　指導老師:</p><p>　開題時間:</p><p>　完成時間:2011年6月30日</p><p>　　課程設計任務書及成績評定</p><p>　　1、設計的目的與要求 </p><p>　　1）加強學

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

4、 （教師填寫）</p><p>　　指導老師： （簽 字）</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工作內容1</p><p>　　1.2.2主要參加人員

6、2</p><p><b>　　1.2.3產品2</b></p><p><b>　　1.2.4服務2</b></p><p>　　1.2.5驗收標準2</p><p>　　1.2.6本計劃的批準者和批準日期2</p><p><b>　　1.3實施計劃3

7、</b></p><p>　　1.3.1工作任務的分配與人員分工3</p><p><b>　　1.3.2進度3</b></p><p><b>　　1.4支持條件3</b></p><p>　　1.4.1計算機系統支持3</p><p>　　第二章 可行

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

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

10、b></p><p>　　第三章 需求分析8</p><p>　　3.1市場需求分析8</p><p>　　3.2系統功能性需求分析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 系統非功能性需求9</p><p>　　3.3

12、.1 可用性9</p><p>　　3.3.2 可靠性9</p><p>　　3.3數據字典10</p><p>　　3.4實體-聯系圖10</p><p>　　第四章 系統設計12</p><p>　　4.1 總體設計12</p><p>　　4.1.1需求概述12</p&

13、gt;<p>　　4.1.2客戶關系管理系統功能設計12</p><p>　　4.1.3過程設計14</p><p>　　4.1.1程序流程圖14</p><p>　　4.2數據庫設計18</p><p>　　4.2.1數據庫詳細設計18</p><p>　　4.2.2數據結構與程序關系19&

14、lt;/p><p>　　4.3功能模塊的設計與實現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 顯示數據庫內

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

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

17、p><p><b>　　第六章 總結37</b></p><p><b>　　參考文獻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ā)《火車站網上訂票系統》做主要的規(guī)劃和整合，在開發(fā)過程中起到引導作用，以及給使用者提供簡要的說明。</p><p><b>　　1.1.2背景</b></p><p>　　火車站市場的管理和規(guī)范問題，是困擾我們多年的一個老問題，也是政府管理中的一個難點，訂票是客運業(yè)務中的

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

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

21、以及退訂火車票的人；</p><p>　　該系統需要實現如下主要功能以及相關說明：</p><p>　　火車票信息查詢：站與站的火車票信息查詢、火車車次的查詢以及用戶已訂票的信息查詢。</p><p>　　火車票預訂：在規(guī)定的有效時間段內，預訂火車票，但要收取一定的手續(xù)費。</p><p>　　火車票退訂：在車票的有效期之內，能夠對所預訂的火

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

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

24、t;/p><p><b>　　1.2.4服務</b></p><p>　　安裝、維護和運行支持從使用該系統開始，維護期限為一年。 </p><p>　　1.2.5驗收標準 </p><p>　　各個功能均能正常使用，滿足用戶的需求。</p><p>　　1.2.6本計劃的批準者和批準日期 </p

25、><p><b>　　批準者：顏富強</b></p><p>　　批準日期：2011年6月6日</p><p><b>　　1.3實施計劃 </b></p><p>　　1.3.1工作任務的分配與人員分工 </p><p>　　張鵬 任務:（1）系統總的開發(fā)計劃書

26、（2）系統的總體設計</p><p>　?。?）組織小組討論 （4）項目開發(fā)進度的管理</p><p>　?。?）團隊的組織和協調</p><p>　　蔡珀瑛 任務：系統的可行性分析</p><p>　　鐘佳 任務: 系統的需求分析</p><p>　　伍佳 任務：數據

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

28、7</p><p>　　需求分析階段: 系統需求說明書完成 6.8-6.10</p><p>　　設計階段: 系統設計說明書 6.11-6.15</p><p>　　編碼實現: 項目的形成 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計算機系統支持</p><p>　　

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

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

32、以及訂票服務，方便火車站的售票工作，提高火車站的服務質量和服務效率</p><p>　?。?）性能要求：游客提供的信息必須及時的反映在火車站的工作平臺上。售票系統的訂單必須無差錯的存儲在火車站的主服務器上。對服務器上的數據必須進行及時正確的刷新。</p><p>　?。?）輸出要求：數據完整，詳實。</p><p>　?。?）輸出要求：簡捷，快速，實時。</p

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

48、主要數據流的定義如表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實體-聯系圖</b></p><p>　　根據需求分析，可以畫出系統E-R圖如下：</p><p>　　圖2 火車站網上訂票系統E-R圖</p><p><b>　　第四章 系統設計</b></p><p><b>　　4.1 總體設計</b></p>

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

51、t;<p>　　4.1.2客戶關系管理系統功能設計</p><p>　　根據系統需求分析和系統功能模塊結構圖來看，該系統應具備如下基本功能：</p><p><b>　　列車信息查詢</b></p><p>　　已預訂火車票信息查詢</p><p><b>　　預訂火車票</b><

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

53、p>　　圖4 站站查詢系統流程圖</p><p>　　圖5 車次信息查詢系統流程圖</p><p>　　圖6 訂票系統流程圖</p><p>　　圖7 退票系統流程圖</p><p><b>　　4.1.3過程設計</b></p><p>　　4.1.1程序流程圖</p>&l

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

55、<p>　　圖9 列車信息查詢流程圖</p><p><b>　　3.退票處理流程</b></p><p>　　圖10 退票處理流程圖</p><p><b>　　4.2數據庫設計</b></p><p>　　4.2.1數據庫詳細設計</p><p>　　數據庫文件

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

57、表結構(masterlogin)</p><p><b>　　主鍵為：沒有主鍵</b></p><p>　　4.2.2數據結構與程序關系</p><p>　　程序各個模塊都要與數據庫系統聯系。物理數據結構主要用于各模塊之間函數的信息傳遞。接口傳遞的信息將是以數據結構封裝了的數據，以參數傳遞或返回值的形式在各模塊間傳輸。</p>&

58、lt;p>　　4.3功能模塊的設計與實現</p><p>　　4.3.1會員注冊模塊</p><p>　　用戶如果想要注冊，則按要求輸入信息，包括用戶名，密碼，確認密碼。還要進行身份信息驗證，包括真實姓名，身份證號，聯系手機，收票地址。輸入完后點擊“注冊”，則系統自動轉入登陸界面。注冊界面如下：</p><p><b>　　圖11 注冊界面</

59、b></p><p>　　具體方法代碼實現如下：</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 "對不起用戶名已經被占用！重新輸入&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>　　站站查詢是用戶在界面輸入框輸入想要查詢的列車起始終點站城市名，即可查詢相應的列車信息。<

83、/p><p><b>　　具體實現如下:</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 到達站='" & 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>　　單獨的車次查詢是在沒有輸入列車起始終點站城市名情況下，輸入列車車次，點擊查詢即可顯示所有該次列車的詳細信息。</p><p><b>　　具體實現如下:</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>　　站站+車次查詢是在精確輸入列車起始終點站城市名和列車車次的情況下，點擊查詢即可顯示所有該次列車的詳細信息。</p><p><b>　　具體實現如下:</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 到達站=&

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 顯示數據庫內容到界面</p><p>　　以上面的三種方式查詢列車信息，程序搜索數據庫，如果

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

118、以消息框的形式顯示。購買成功，text11.text-1，并且更新數據庫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 "座票已經售完！當前您購買無座票", vbO

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

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 到達站='" & 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 退票實現</p><p>　　退票的實現和買票類似，乘客首先查詢需要退票的列車信息，點擊退票，如果退票成功，text11.text+1，并且更新數據庫。</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("確認退票？", vbYesNo + vb

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

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