基于VB的汽車客運(yùn)售票系統(tǒng)

1、基于VB的汽車客運(yùn)售票系統(tǒng)單 位 分院(系)班 級 學(xué) 號 學(xué)生姓名 指導(dǎo)教師 完成日期 年 月 日 摘要隨著社會的發(fā)展，人與人之間相互聯(lián)系越來越密切，因此人們的出行也越來越頻繁，客運(yùn)中心對于人們的出行起著更加重要的作用。特別在社會迅猛發(fā)展的今天，一個(gè)功能強(qiáng)大、設(shè)計(jì)合理、使用方便的汽車售票系統(tǒng)對于客運(yùn)中心來說顯得尤為重要。汽車售票管理系統(tǒng)可以對售票、退票、車次、票價(jià)、售票員和售票點(diǎn)情況等信息和數(shù)據(jù)加以科學(xué)管理，還可以完成客票收入的統(tǒng)計(jì)工作使客運(yùn)中心的日常管理事務(wù)得以正常運(yùn)轉(zhuǎn)，從而滿足人們出行和社會發(fā)展的需要。該系統(tǒng)是信息管理系統(tǒng)在售票管理方面的一個(gè)分支和具體運(yùn)用,是為長治客運(yùn)中心而設(shè)計(jì)的管理售

2、票、車次、票價(jià)及客票收入統(tǒng)計(jì)等日常事物的系統(tǒng)。此系統(tǒng)選擇Visual Basic 6.0作為開發(fā)工具來實(shí)現(xiàn)客運(yùn)中心汽車售票所要求的各種功能。本文主要介紹了開發(fā)此管理系統(tǒng)的背景、必要性、可行性以及如何在Visual Basic 6.0環(huán)境下開發(fā)出高效、科學(xué)而又實(shí)用的客運(yùn)中心汽車售票管理系統(tǒng)，同時(shí)也具體論述了如何實(shí)現(xiàn)客運(yùn)中心汽車售票系統(tǒng)的各種功能,并進(jìn)行了系統(tǒng)總體結(jié)構(gòu)設(shè)計(jì)、數(shù)據(jù)庫設(shè)計(jì)以及系統(tǒng)實(shí)現(xiàn)、系統(tǒng)運(yùn)行和評價(jià)等。關(guān)鍵詞：信息; 數(shù)據(jù)庫; 售票管理系統(tǒng); 系統(tǒng)設(shè)計(jì)系統(tǒng)實(shí)現(xiàn)選題的意義1.運(yùn)用學(xué)到的Visual Basic 6.0和Access 2000知識進(jìn)行實(shí)踐，以便更好地鞏固所學(xué)知識，同時(shí)通過此

3、次開發(fā)實(shí)踐，提高自己的理論及實(shí)踐能力，并在相關(guān)方面做進(jìn)一步的深入研究。2.為長治汽車客運(yùn)中心做一個(gè)實(shí)用的售票系統(tǒng)，可以方便乘客的查詢、購票和退票及工作人員對系統(tǒng)信息的數(shù)據(jù)維護(hù)。3.該系統(tǒng)的研制將對提高長治汽車客運(yùn)中心的信息化管理有著重要的意義，并且提高了工作人員的工作效率，降低了工作強(qiáng)度，減少了由人工管理帶來的弊病。4.爭取開發(fā)的界面良好并在技術(shù)上有所創(chuàng)新。5.促進(jìn)信息管理在各行各業(yè)中的進(jìn)一步推廣。系統(tǒng)功能需求分析需求分析車票管理系統(tǒng)應(yīng)具有查詢、瀏覽、數(shù)據(jù)維護(hù)和數(shù)據(jù)統(tǒng)計(jì)的功能，因考慮到本系統(tǒng)的安全性，當(dāng)?shù)顷憰r(shí)，可分為高級管理員和普通管理員。高級管理員可以對系統(tǒng)進(jìn)行維護(hù)，而普通管理員只能查詢有關(guān)

4、信息。經(jīng)過分析后確定系統(tǒng)應(yīng)具備以下功能：（1）、查詢功能1.按班次查詢2.按終點(diǎn)站查詢3.按發(fā)車時(shí)間查詢4. 按班次號查詢5. 旅客基本信息（2）、售票功能 銷售車票 退票（3）打印報(bào)表功能打印制定班次的報(bào)表數(shù)據(jù)流程圖使用結(jié)構(gòu)化分析方法，確定系統(tǒng)的數(shù)據(jù)主要是班次、類型、起點(diǎn)站、終點(diǎn)站、發(fā)車時(shí)間、到達(dá)時(shí)間、行車時(shí)間、額定載量、已定票人數(shù)、票價(jià)、當(dāng)前狀態(tài)，對數(shù)據(jù)的操作主要有修改表中的各個(gè)字段以及新增、刪除等功能，可以確定系統(tǒng)的處理邏輯和流程，得到如下所示的系統(tǒng)數(shù)據(jù)流圖： 車票管理系統(tǒng)查詢?yōu)g覽數(shù)據(jù)維護(hù)按班次終點(diǎn)站所有班次旅客信息售票退票打印報(bào)表系統(tǒng)設(shè)計(jì)后臺數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫設(shè)計(jì)過程分析與每張數(shù)據(jù)表的簡

5、介：在Mcrosoft Office Access 中建立名為“售票系統(tǒng)數(shù)據(jù)庫”的數(shù)據(jù)庫其中共包含兩個(gè)表?？蛙嚢啻位拘畔⒈砗吐每突拘畔⒈怼？蛙嚢啻位拘畔⒈戆缦伦侄?字段名稱 數(shù)據(jù)類型 長度說明班次號文本終點(diǎn)城市文本發(fā)車時(shí)間文本座位數(shù)量數(shù)字旅客基本信息表中包含如下字段字段名稱數(shù)據(jù)類型長度 說明姓名文本身份證號數(shù)字班次號數(shù)字座位號數(shù)字前臺應(yīng)用程序設(shè)計(jì)第一個(gè)窗體form1為登陸界面:第二個(gè)窗體form2為查詢?yōu)g覽窗體在這個(gè)窗體上，有4個(gè)命令按鈕，依次是客車班次基本信息、旅客基本信息、售/退票和打印。按下客車班次基本信息按鈕，會在窗體上顯示客車班次基本信息，按下旅客基本信息按鈕會在窗體上顯示

6、旅客基本信息，按下售/退票按鈕會進(jìn)入第三個(gè)窗體，按下打印按鈕會打印報(bào)表。第三個(gè)窗體form3為售/退票窗體在這個(gè)窗體上可以按班次號、發(fā)車時(shí)間、終點(diǎn)城市和座位數(shù)量進(jìn)行查詢，也可以在右邊的窗體上進(jìn)行售票和退票操作系統(tǒng)實(shí)現(xiàn)用戶登錄界面客車班次查詢旅客基本信息查詢售/退票車票查詢報(bào)表打印總結(jié) 1.總結(jié) 經(jīng)過一周的課程設(shè)計(jì)，讓我從中學(xué)習(xí)了不少的知識，不僅單單學(xué)會了以前的理論知識和以前照著書上搬下來的程序，還讓我學(xué)會了不少我們教材以外的知識，對Visual Basic更加的了解，讓我從中得到了不少收獲。當(dāng)然，這次系統(tǒng)設(shè)計(jì)也使我傷了不少的腦筋，特別是設(shè)置系統(tǒng)班次的當(dāng)前狀態(tài)，我整整一個(gè)下午都在設(shè)計(jì)這個(gè)小模塊，

7、可是它就是不出來，但又坐了下來重新研究我的程序，細(xì)心的一點(diǎn)一點(diǎn)的看，又經(jīng)過老師的指導(dǎo)，終于把它研究出來，當(dāng)它正確運(yùn)行時(shí)，內(nèi)心充滿了高興之情。通過這一系列使我明白， 以后作任何事情都要認(rèn)真、細(xì)心，只有這樣，才可能有成功的結(jié)果。另外，在這次的課程設(shè)計(jì)中，讓我深深地體現(xiàn)到進(jìn)行軟件開發(fā)不是一件簡單的事情，它需要設(shè)計(jì)者具有全面的專業(yè)知識、縝密的思維、嚴(yán)謹(jǐn)?shù)墓ぷ鲬B(tài)度以及較高的分析問題、解決問題的能力，而我在很多方面還有欠缺。所以，我以后一定會更加努力的學(xué)習(xí)軟件知識，希望能成為一名優(yōu)秀的系統(tǒng)分析師。最后，我要衷心感謝老師在我的設(shè)計(jì)過程中給予我的極大幫助，使我能夠及時(shí)、順利地完成此次的課程設(shè)計(jì)。同時(shí)，也要感謝

8、我的同學(xué)們在本次課程設(shè)計(jì)過程中給予我的支持和鼓勵(lì)。2.存在的問題 本售票系統(tǒng)還存在許多不完善之處，如數(shù)據(jù)庫設(shè)計(jì)不太合理，程序運(yùn)行界面不太美觀，有些功能無法實(shí)現(xiàn)等問題。相信在我的不斷摸索與時(shí)間的過程中，這個(gè)程序能臻于完善。參考文獻(xiàn)1. HYPERLINK 5:8080/markbook/BookSearch.jsp l # Visual Basic 6.0課程設(shè)計(jì)與系統(tǒng)開發(fā)案例， 伍俊良，清華大學(xué)出版社2. HYPERLINK 5:8080/markbook/BookSearch.jsp l # Visual Basic+Access數(shù)據(jù)庫項(xiàng)目開發(fā)實(shí)踐，周國民，中國鐵道出版社3. MSDN源代碼

9、：第一個(gè)窗體FORM1代碼：Private Sub Command1_Click() Dim a As String, b As Long a = Text1.Text b = Text2.Text If a = 007 And b = 007 Then Form1.Hide Form2.Show Else MsgBox 密碼錯(cuò)誤, vbOKOnly Text1.Text = Text2.Text = Text1.SetFocus End IfEnd Sub第二個(gè)窗體FORM2代碼：Private Sub Command1_Click() Frame1.Visible = True Frame

10、2.Visible = FalseEnd SubPrivate Sub Command2_Click() Frame1.Visible = False Frame2.Visible = TrueEnd SubPrivate Sub Command3_Click() Form3.Show Form2.HideEnd SubPrivate Sub Command4_Click() DataReport1.ShowEnd SubPrivate Sub Form_Activate() Data1.Refresh Data2.RefreshEnd SubPrivate Sub Form_Load() F

11、rame1.Visible = False Frame2.Visible = FalseEnd Sub第三個(gè)窗體FORM3代碼：Private Sub Command1_Click() Dim Wherestring As String If Text1.Text Then If Combo1.Text = 按班次號 Then Wherestring = where 班次號= & Text1.Text & ElseIf Combo1.Text = 按發(fā)車時(shí)間 Then Wherestring = where 發(fā)車時(shí)間= & Text1.Text & ElseIf Combo1.Text = 按

12、終點(diǎn)城市 Then Wherestring = where 終點(diǎn)城市= & Text1.Text & Else Wherestring = where 座位數(shù)量= & Text1.Text & End If Else Wherestring = End If Data1.RecordSource = select * from 客車班次基本信息 & Wherestring Data1.RefreshEnd SubPrivate Sub Command2_Click() Dim a As String, b As Long, c As Integer, d As Integer a = Text

13、2.Text b = Text3.Text Text4.Text = Int(Rnd * 100 + 1) c = Text4.Text d = Text5.Text Data2.RecordSource = select * from 旅客基本信息 Data2.Recordset.AddNew Data2.Recordset.Fields(姓名) = a Data2.Recordset.Fields(身份證號) = b Data2.Recordset.Fields(座號) = c Data2.Recordset.Fields(班次) = d Data2.Recordset.Update Data2.Refresh Form3.Hide Form2.ShowEnd SubPrivate Sub Command3_Click() Dim a As String, b As String, c As String a = Text2.Text b = Text3.Text c = Text4.Text Data2.Re