簡(jiǎn)單的汽車(chē)站售票系統(tǒng)

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

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

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

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

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

6、0c1b1a129:3040c2b2a2313:0040c3b3a3416:0040c4b4a4三、關(guān)鍵技術(shù)(1)建立文本文件并輸入已知數(shù)據(jù)的代碼如下Private Sub bc_Click()Open myfile.txt For Output As #1Write #1, 當(dāng)前售票情況：Write #1, 班次發(fā)車(chē)時(shí)間載客量 已售票數(shù) 已退票數(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)判斷是否已過(guò)發(fā)車(chē)時(shí)間2）判斷是否已過(guò)發(fā)車(chē)時(shí)間。程序段如下：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）按旅客選擇實(shí)現(xiàn)相應(yīng)班次的售票業(yè)務(wù)程序段如下：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）按旅客選擇實(shí)現(xiàn)相應(yīng)班次的退票業(yè)務(wù)程序段如下：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 = 打開(kāi)文件 myfile.txt 用于讀出數(shù)據(jù)，文件號(hào)為判斷文件是否結(jié)束讀一行數(shù)據(jù)送入變量 abc 將讀出的數(shù)據(jù)添加到文本框末尾關(guān)閉文件Open myfile.txt For Input As #11Do While Not EOF(1)Line Input #1, cbaText1.Text = Text1.Text + cba + vbCrLfLoopClose #1End Sub六、參考文獻(xiàn)求是科技著 visual basic 6.0 信息管理系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航 人民郵電 出版社 2005年 4月韓亞萍等 visual basic 6.0 基礎(chǔ)培訓(xùn)百例 機(jī)械工業(yè)出版社 2006年 7 月鄭海春 謝維成主編 visual basic 6.0 編程及實(shí)例分析教程 清華大學(xué)出 版社 2007年 4 月以下無(wú)正文僅供個(gè)人用于學(xué)習(xí)、研究；不得用于商業(yè)用途 , , .For personal use only in study and research; not for commercial u