簡單的汽車站售票系統(tǒng)

1、For personal use only in study and research; not for commercial use沈陽航空航天大學課程設計學 號 2009040301004班級 94030101姓名 劉曦指導教師 劉學平2011年 3 月 18 日沈陽航空航天大學課程設計任務書學院：航宇 專業(yè)：飛行器制造 班級： 94030101學號： 2009040301004題目： 簡單的汽車站售票系統(tǒng)一、課程設計時間2011 年 3月 7日11日（第 1周），共計 1 周。二、課程設計內容假設每天“沈陽植物園”有 4 個班次的汽車，具體的數(shù)據如下：班次發(fā)車時間載客量已售票數(shù)106:4

2、0500209:30400313:00400416:00400數(shù)據保存在文本文件或 Access 數(shù)據庫中，請你為售票員開發(fā)一個程序，實現(xiàn)每天的“沈陽植 物園”的售票、退票等業(yè)務。要求：售票時按旅客要求選擇班次，如果某個班次已過了發(fā)車時間，則 該班次今天不再售票， 如果某個班次的票已售完， 則也不能再售票。 用戶界面中的菜單至少應包括 “售 票”、“退票”、“顯示當前售票情況” 、“退出” 4 項三、課程設計要求程序質量：貫徹事件驅動的程序設計思想。 用戶界面友好，功能明確操作方便；可以加以其它功能或修飾。 代碼應適當縮進，并給出必要的注釋，以增強程序的可讀性。課程設計說明書： 課設結束后，上

3、交課程設計說明書和源程序。課程設計說明書的內容參見提 供的模板。四、指導教師和學生簽字指導教師： 學生簽名： 五、成績六、教師評語目錄 TOC o 1-5 h z 一、需求分析 4二、設計分析 5 HYPERLINK l bookmark28 o Current Document 三、關鍵技術 6四、總結 1 1五、完整的源程序 12 HYPERLINK l bookmark48 o Current Document 六、參考文獻 1 5、需求分析簡單的汽車售票系統(tǒng)，主要指“售票”和“退票”這 兩種業(yè)務。由于每班車都有規(guī)定的發(fā)車時間及最大載客 量，所以系統(tǒng)必須能夠判斷是否已過發(fā)車時間， 累計每

4、個 班次的售票量。 應旅客要求實現(xiàn) “售票”和“退票” 業(yè)務， 并顯示當前每班車次的售票情況。要求：（ 1）在文本文件中創(chuàng)建 myfile. txt 文件并保存數(shù)據， 以“已售票數(shù)” 、“ 已退票數(shù)”和“實售票數(shù)” 3 方 面信息。此文本應包括以下內容的數(shù)據：班次、發(fā) 車時間、載客量、已售票數(shù)、 已退票數(shù)、 實售票數(shù)。（2）能夠在售票時按旅客要求選擇班次。（3）能夠判斷是否已過發(fā)車時間，實現(xiàn)相應售退票 業(yè)務。（4）能夠判斷每個班次的票是否售完，實現(xiàn)相應售 退票業(yè)務。（5）能夠保存售退票數(shù)，顯示當前各個班次的售退 票情況。、設計分析基本原理： 建立程序設計與文本文件的聯(lián)系， 用 Write# 語

5、句把數(shù)據寫入文件，并通過使用 Input# 語句，從文件中按原來的數(shù)據類型讀出數(shù)據并分 別賦予指定變量。2) 總體設計 ：圖 1 總體設計3)詳細設計 ：圖 2 詳細設計4)文本設計 ：文本設計是總體設計階段的一個環(huán)節(jié)。 本程序的文本文件包括 6 個內容， 即班次、發(fā)車時間、載客量、已售票數(shù)、已退票數(shù)、實售票數(shù)。1) 汽車各班次具體情況( myfile. txt ) 汽車各班次具體情況 (myfile. txt)用于記錄“班次、發(fā)車時間、 載客量、 已售票數(shù)、已退票數(shù)、實售票數(shù)”這些信息，其結構如文本 1 所示。文本 1 汽車各班次具體情況班次發(fā)車時間載客量已售票數(shù)已退票數(shù)實售票數(shù)16:405

6、0c1b1a129:3040c2b2a2313:0040c3b3a3416:0040c4b4a4三、關鍵技術(1)建立文本文件并輸入已知數(shù)據的代碼如下Private Sub bc_Click()Open myfile.txt For Output As #1Write #1, 當前售票情況：Write #1, 班次發(fā)車時間載客量 已售票數(shù) 已退票數(shù) 實際售票 Write #1, 106：4050 & Space(5) & c1 & Space(12) & b1 & Space(8)& a1Write #1, 209：3040 & Space(5) & c2 & Space(12) & b2 &

7、 Space(8)& a2Write #1, 313：0040 & Space(5) & c3 & Space(12) & b3 & Space(8)& a3Write #1, 416：0040 & Space(5) & c4 & Space(12) & b4 & Space(8)& a4Close #1End Sub圖 3 窗體 - 售退票系統(tǒng)判斷是否已過發(fā)車時間2）判斷是否已過發(fā)車時間。程序段如下：Private Sub Form_Load()Form1.AutoRedraw = TruePrint TimeIf Time = #6:40:00 AM# ThenOption1.Enable

8、d = FalseEnd IfIf Time = #9:30:00 AM# ThenOption2.Enabled = FalseEnd IfIf Time = #1:00:00 PM# ThenOption3.Enabled = FalseEnd IfIf Time = #4:00:00 PM# ThenOption4.Enabled = False End IfEnd Sub3）按旅客選擇實現(xiàn)相應班次的售票業(yè)務程序段如下：Private Sub sell_Click()Text1.Text = a1Text2.Text = a2Text3.Text = a3Text4.Text = a4I

9、f Option1 Then a1 = a1 + 1 c1 = a1 + b1If a1 50 Then a1 = 50 c1 = a1 + b1End IfElseIf Option2 Then a2 = a2 + 1 c2 = a2 + b2If a2 40 Then a2 = 40 c2 = a2 + b2End IfElseIf Option3 Then a3 = a3 + 1 c3 = a3 + b3If a3 40 Then a3 = 40 c3 = a3 + b3End IfElseIf Option4 Then a4 = a4 + 1 c4 = a4 + b4If a4 40

10、Then a4 = 40 c4 = a4 + b4End IfEnd IfText1.Text = a1Text2.Text = a2Text3.Text = a3Text4.Text = a4End Sub4）按旅客選擇實現(xiàn)相應班次的退票業(yè)務程序段如下：Private Sub refund_Click()Text1.Text = a1Text2.Text = a2Text3.Text = a3Text4.Text = a4If Option1 Thena1 = a1 - 1b1 = c1 - a1If a1 = 0 Thena1 = 0b1 = c1End IfElseIf Option2

11、Thena2 = a2 - 1b2 = c2 - a2If a2 = 0 Thena2 = 0b2 = c2End IfElseIf Option3 Thena3 = a3 - 1b3 = c3 - a3If a3 = 0 Thena3 = 0b3 = c3End IfElseIf Option4 Thena4 = a4 - 1b4 = c4 - a4If a4 = #6:40:00 AM# ThenOption1.Enabled = FalseEnd IfIf Time = #9:30:00 AM# Then Option2.Enabled = False End IfIf Time = #

12、1:00:00 PM# Then Option3.Enabled = False End IfIf Time = #4:00:00 PM# Then Option4.Enabled = False End IfEnd SubPrivate Sub refund_Click()Text1.Text = a1Text2.Text = a2Text3.Text = a3Text4.Text = a4If Option1 Then a1 = a1 - 1 b1 = c1 - a1If a1 = 0 Then a1 = 0 b1 = c1End IfElseIf Option2 Then a2 = a2

13、 - 1 b2 = c2 - a2If a2 = 0 Then a2 = 0 b2 = c2End IfElseIf Option3 Then a3 = a3 - 1 b3 = c3 - a3If a3 = 0 Then a3 = 0 b3 = c3End IfElseIf Option4 Then a4 = a4 - 1 b4 = c4 - a4If a4 50 Then a1 = 50 c1 = a1 + b1 End IfElseIf Option2 Then a2 = a2 + 1 c2 = a2 + b2If a2 40 Then a2 = 40 c2 = a2 + b2 End I

14、fElseIf Option3 Then a3 = a3 + 1 c3 = a3 + b3If a3 40 Then a3 = 40 c3 = a3 + b3End IfElseIf Option4 Then a4 = a4 + 1 c4 = a4 + b4If a4 40 Then a4 = 40 c4 = a4 + b4 End IfEnd IfText1.Text = a1Text2.Text = a2Text3.Text = a3Text4.Text = a4End SubPrivate Sub show_Click()Form2.showEnd SubPrivate Sub Comm

15、and1_Click()Form2.HideEnd SubPrivate Sub Form_Load()Dim abc As StringText1.Text = 打開文件 myfile.txt 用于讀出數(shù)據，文件號為判斷文件是否結束讀一行數(shù)據送入變量 abc 將讀出的數(shù)據添加到文本框末尾關閉文件Open myfile.txt For Input As #11Do While Not EOF(1)Line Input #1, cbaText1.Text = Text1.Text + cba + vbCrLfLoopClose #1End Sub六、參考文獻求是科技著 visual basic 6.0 信息管理系統(tǒng)開發(fā)實例導航 人民郵電 出版社 2005年 4月韓亞萍等 visual basic 6.0 基礎培訓百例 機械工業(yè)出版社 2006年 7 月鄭海春 謝維成主編 visual basic 6.0 編程及實例分析教程 清華大學出 版社 2007年 4 月以下無正文僅供個人用于學習、研究；不得用于商業(yè)用途 , , .For personal use only in study and research; not for commercial u