【文章內(nèi)容簡(jiǎn)介】 vbOK Then ‘提示用戶是否真的要?jiǎng)h除該條信息 OpenDB 第 11 頁(yè) 共 22 頁(yè) strSQL = delete from businfo where busno =39。 + CurrentBus + 39。 ‘從數(shù)據(jù)庫(kù)中刪除該條信息 (strSQL) CloseDB MsgBox 記錄已刪除 , vbOKOnly ‘提示用戶記錄已經(jīng)刪除 End If 查詢 汽車信息子模塊 面對(duì)繁多的汽車信息，本系統(tǒng)設(shè)計(jì)了汽車信息查詢功能，方便管理員用戶快捷，準(zhǔn)確地查出想要了解的汽車的信息。管理員輸入汽車編號(hào)和汽車型號(hào)，就可以在數(shù)據(jù)庫(kù)中找到相應(yīng)的汽車信息。設(shè)計(jì)界面如圖 8所示： 圖 8汽車信息查詢 界面 線路信息管理模塊設(shè)計(jì) 線路信息管理是長(zhǎng)途汽車站必須處理的事務(wù)，線路信息管理模塊的設(shè)計(jì)能給車站管理員提供科學(xué)，準(zhǔn)確的管理方式。因此，從四個(gè)方面設(shè)計(jì)了線路信息管理模塊，即線路信息的添加，線路信息的修改，刪除和查詢。在此模塊的設(shè)計(jì)過(guò)程中 ,同樣使用了 MSFlexGrid控件來(lái)顯示線路信息 ,使用 ShowTitle和 loadData兩個(gè)函數(shù)來(lái)初始化 MSFlexGrid 控件，加載后就在窗口顯示出長(zhǎng)途汽車站所有線路的相關(guān)信息。主要包括線路的編號(hào)，起始城市，到達(dá)城市，起始日期，起始時(shí)間，到達(dá)時(shí)間，汽車編號(hào)，車票價(jià)格和備 注信息。管理員可以通過(guò)該窗口了解到所有線路的詳細(xì)信息。四個(gè)過(guò)程模塊之間的關(guān)系圖如圖 9，以下將具體介紹各個(gè)功能的實(shí)現(xiàn)。 第 12 頁(yè) 共 22 頁(yè) 圖 9線路 信息管理模塊關(guān)系圖 添加線路 信息子模塊 隨著城市交通的飛速發(fā)展，當(dāng)長(zhǎng)途汽車站原先已有的線路信息不能滿足需求的時(shí)候，就需要添加新的汽車線路，有關(guān)他們的詳細(xì)信息必須由長(zhǎng)途汽車站管理員添加到數(shù)據(jù)庫(kù)，線路信息添加的設(shè)計(jì)界面如圖 10所示： 圖 10線路 信息 添加界面 在此模塊設(shè)計(jì)中，在 相應(yīng)得 文本框中輸入需要添加的內(nèi)容后，單 擊“添加”按鈕， 將 啟動(dòng) cmd_ok_Click 事件，將添加的線路信息插入 數(shù)據(jù)庫(kù)表中， 完成對(duì)線路信息的添加。 線路編號(hào) 車票價(jià)格 起始城市 到達(dá)城市 起始日期 起始時(shí)間 到達(dá)時(shí)間 汽車編號(hào) 線路信息管理 添加信息 修改信息 刪除信息 查詢信息 第 13 頁(yè) 共 22 頁(yè) 線路信息查詢子模塊 當(dāng)管理員需要查詢線路信息的時(shí)候，點(diǎn)擊查詢按鈕，進(jìn)入查詢線路信息模塊。在啟動(dòng)界面的時(shí)候，在兩個(gè)下拉式組合框中已經(jīng)載入了線路信息表中已有的起始城市和到達(dá)城市的信息，管理員在下拉列表中選中起始城市和到達(dá)城市，點(diǎn)擊查詢按鈕，就可以完成對(duì)線路信息的查詢。線路信息查詢子模塊的設(shè)計(jì)界面如圖11： 圖 11線路 信息 查詢界面 實(shí)現(xiàn)該查詢功能的核心代碼如下： Private Sub cmd_que_Click() ‘查詢按鈕函數(shù) Dim strSQL As String strSQL = Select * from buslineinfo where 1=1 If 0 Then ‘在下拉式組合框中選擇起始城市 strSQL = strSQL + and departcity=39。 + + 39。 End If If 0 Then ‘在下拉式組合框中選擇到達(dá)城市 strSQL = strSQL + and Arrivalcity=39。 + + 39。 End If End Sub 修改 線路信息子模塊 管理員需要根據(jù)實(shí)際情況來(lái)調(diào)整汽車的線路信息。當(dāng)管理員需要對(duì)某條汽車線路信息進(jìn)行修改的時(shí)候，選中需要修改的線路，點(diǎn)擊修改按鈕，出現(xiàn)修改該條線 路信息的界面，當(dāng)管理員完成對(duì)該條線路的信息的修改后，點(diǎn)擊修改按鈕，將啟動(dòng) cmd_ok_click 事件，更新數(shù)據(jù)庫(kù)，完成對(duì)該條線路信息的修改，設(shè)計(jì)界面 第 14 頁(yè) 共 22 頁(yè) 如圖 12： 圖 12線路 信息 修改界面 刪除 線路信息子模塊 當(dāng)已有的線路取消時(shí) ,該線路對(duì)應(yīng)的線路信息也將取消，這時(shí)就需要管理員將該線路信息從數(shù)據(jù)庫(kù)中刪除。管理員首先選中需要?jiǎng)h除的線路信息，點(diǎn)擊“刪除”按鈕，提示管理員是否確定刪除該條信息，管理員點(diǎn)擊“確定”按鈕，該條數(shù)據(jù)就成功從數(shù)據(jù)庫(kù)表中刪除。 車票信息管理模塊設(shè)計(jì) 在長(zhǎng)途汽車站的管理任務(wù)中，對(duì)車票信 息的管理更加顯得十分重要。管理員需要了解到某條線路的詳細(xì)的車票信息，包括汽車的起始和到達(dá)城市，車票日期和時(shí)間，車票價(jià)格和車票備注信息，通過(guò)了解這些信息，管理員可以方便的完成對(duì)相應(yīng)汽車線路車票信息的調(diào)整。車票信息管理模塊主要包括四個(gè)子模塊 ,其主要功能是對(duì)車站的汽車車票信息進(jìn)行添加 ,修改 ,刪除操作。四個(gè)子模塊之間關(guān)系如圖 13： 第 15 頁(yè) 共 22 頁(yè) 圖 13車票 信息管理模塊關(guān)系圖 車票信息管理模塊界面設(shè)計(jì)如圖 14： 圖 14車票信息管理界面 在這個(gè)界面中，同樣使用了 MSFlexGrid 控件來(lái)顯示車票信息。在窗口中顯示出車票信息后，管理員可以通過(guò)“添加”，“修改”，“刪除”，“查詢” 4個(gè)按鈕來(lái)對(duì)車票的編號(hào)，汽車編號(hào)，起始城市，到達(dá)城市，購(gòu)票日期，購(gòu)票時(shí)間，車票價(jià)格等信息進(jìn)行管理和操作。 車票信息添加子模塊 當(dāng)有新的汽車線路添加了的時(shí)候，管理員就需要設(shè)置相應(yīng)的新的車票信息。管理員通過(guò)車票信息管理界面進(jìn)入車票管理模塊，點(diǎn)擊添加按鈕，將出現(xiàn)添加車票信息的界面，管理員輸入車票編號(hào)，汽車編號(hào)，起始城市，到達(dá)城市，購(gòu)票日車票編號(hào) 備注信息 汽車編號(hào) 起始城市 到達(dá)城市 購(gòu)票日期 購(gòu)票時(shí)間 車票價(jià)格 車票信息管理 添加信息 修改信息 刪除信息 查詢信息 第 16 頁(yè) 共 22 頁(yè) 期，購(gòu)票時(shí)間，車票價(jià)格和備注后，點(diǎn)擊添加按鈕，完成對(duì)車票信 息的添加，設(shè)計(jì)界面如圖 15： 圖 15車票信息添加界面 車票信息 修改 子模塊 在該模塊的設(shè)計(jì)中，實(shí)現(xiàn)管理員對(duì)現(xiàn)有車票信息的修改，管理員首先選中需要修改的線路的車票信息，管理員在完成對(duì)相應(yīng)信息的修改后，點(diǎn)擊“修改”按鈕，將啟動(dòng) cmd_ok_click 事件，更新數(shù)據(jù)庫(kù)，完成對(duì)車票信息的修改，設(shè)計(jì)界面如圖 16： 圖 16車票信息修改界面 車票信息查詢子模塊 該模塊的設(shè)計(jì)主要是方便管理員對(duì)車票信息的查詢而設(shè)計(jì)的。管理員可以在該模塊中，根據(jù)數(shù)據(jù)庫(kù)現(xiàn)有車票的信息，在下拉列表中選擇所需要的起始城 市，到達(dá)城市，車票日期，車票時(shí)間就可以查詢到相關(guān)的車票信息，完成對(duì)車票信息 第 17 頁(yè) 共 22 頁(yè) 的查詢功能。設(shè)計(jì)界面如圖 17： 圖 17車票信息查詢界面 啟動(dòng)該界面時(shí)，需要載入 4 個(gè)下拉式組合框的信息，點(diǎn)擊查詢按鈕，啟動(dòng)cmd_que_Click 事件，在窗口中顯示出符合要求的購(gòu)票信息。實(shí)現(xiàn)該功能的核心代碼如下： OpenDB ‘選中起始城市的信息，載入下拉式組合框中 strSQL = Select Distinct departcity from ticketinfo ‘打開數(shù)據(jù)庫(kù)連接 strSQL, objConn, adOpenKeyset, adLockPessimistic ‘將起始城市信息載入下拉式組合框中 If Not Then ‘當(dāng)無(wú)該數(shù)據(jù)的時(shí)候跳出循環(huán) Do While Not (0).Value Loop Else ‘如果沒有該條信息，提示請(qǐng)先設(shè)置車票信息 CloseDB MsgBox 請(qǐng)先設(shè)置車票信息 , vbOKOnly Exit Sub End If ‘選中到達(dá)城市的信息，載入下拉式組合框中 strSQL = Select Distinct arrivalcity from ticketinfo strSQL, objConn, 1, 3 Do While Not ‘當(dāng)無(wú)該數(shù)據(jù)的時(shí)候跳出循環(huán) (0).Value 第 18 頁(yè) 共 22 頁(yè) Loop ‘選中到達(dá)日期的信息，載入下拉式組合框中 strSQL = Select Distinct ticketdate from ticketinfo strSQL, objConn, 1, 3 Do While Not (0).Value Loop ‘選中車票時(shí)間的信息，載入下拉式組合框中 strSQL = Select Distinct tickettime from ticketinfo strSQL, objConn, 1, 3 Do While Not ‘當(dāng)無(wú)該數(shù)據(jù)的時(shí)候就跳出循環(huán) (0).Value Loop ‘關(guān)閉數(shù)據(jù)庫(kù)連接和關(guān)閉數(shù)據(jù)庫(kù) CloseDB End Sub 4 測(cè)試 由于本系統(tǒng)的開發(fā) 使用了 visual basic 作為開發(fā)工具 ,具有可視化的編程環(huán)境 ,在編程的過(guò)程中就可以對(duì)所做的結(jié)果進(jìn)行運(yùn)行 ,以立即進(jìn)行改正。經(jīng)過(guò)不斷地修改和更正，本系統(tǒng)能很好地完成預(yù)期效果。 管理員在通過(guò)登錄界面的身份驗(yàn)證之后，進(jìn)入系統(tǒng)主界面，在主界面中，用戶可以通過(guò)菜單形式選擇進(jìn)入的模塊。在系統(tǒng)用戶管理中，可以添加，修改系統(tǒng)用戶信息；在汽車信息管理中，可以添加，查詢，修改，刪除汽車信息；在汽車線路信息管理中，可以添加，查詢，修改，刪除線路信息；在車票信息管理中，可以完成對(duì)車票信息的添加，查詢，修改和刪除車票信息。 第 19 頁(yè) 共 22 頁(yè) 結(jié) 論 經(jīng)過(guò)測(cè)試，根據(jù)車站對(duì) 長(zhǎng)途汽車信息管理 的需求而設(shè)計(jì)的功能全部能運(yùn)行正常。由于第一次獨(dú)立開發(fā)實(shí)際應(yīng)用的系統(tǒng)，整個(gè)開發(fā)過(guò)程經(jīng)歷了很多的波折。經(jīng)過(guò)不斷地查詢各種資料和信息，不斷地解決一個(gè)一個(gè)的問(wèn)題，當(dāng)然更加感謝指導(dǎo)老師的幫助，使得設(shè)計(jì)能夠順利進(jìn)行。然而由于時(shí)間的限制，使得該系統(tǒng)也存在很多沒有解決的問(wèn)題，這是比較遺憾的。比如說(shuō)在身份驗(yàn)證這一模塊，對(duì)于怎樣保證數(shù)據(jù)的安全性沒有很好的完成。 通過(guò)對(duì)整個(gè)畢業(yè)設(shè)計(jì)的開發(fā)，讓人學(xué)會(huì)怎樣去做一件事情，盡管從沒有做過(guò)，但是卻知道怎樣去利用一切可以利用的資源和尋求一 切可能得到的幫助去解決問(wèn)題，并且在解決問(wèn)題的同時(shí)不斷增加經(jīng)驗(yàn)和心得體會(huì)，為以后的生活和工作打下堅(jiān)實(shí)的基礎(chǔ)。 第 20 頁(yè) 共 22 頁(yè) 參考文獻(xiàn) [1] 劉瑞新 ,汪遠(yuǎn)征 .visual basic程序設(shè)計(jì)教程 [M].北京 :機(jī)械工業(yè)出版社 ,2021。 [2] 魯榮江 ,王立豐 .Visual Basic項(xiàng)目案例導(dǎo)航 [M].北京 :科學(xué)出版社 ,2021。 [3] 趙建敏 ,郭慶 .Visual Basic 編程指南 [M].北京 :航空工業(yè)出版社 ,2021。 [4] 盧毅 .Visual Basic 6數(shù)據(jù)庫(kù)設(shè)計(jì)實(shí)例導(dǎo)航 [M].北京 :科學(xué)出版社 ,2021。 [5] 張勇 .Visual Basic課程設(shè)計(jì)案例精編 [M].北京 :中國(guó)水利水電出版社 ,2021。 [6] [美 ]Mike Gunderloy著 .開發(fā)指南 ADO篇 [M].北京 :電子工業(yè)出版社 ,2021。 [7] 黃志峰 .Visual Basic高級(jí)編程實(shí)例精解 [M].北京 :國(guó)防工業(yè)出版社 ,2021。 第 21 頁(yè) 共 22 頁(yè) 致 謝 本文是在朱西平和陳念偉老師的熱情關(guān)心和指導(dǎo)下完成的，他們淵博的知識(shí)和嚴(yán)謹(jǐn)?shù)闹螌W(xué)作風(fēng)使我受益匪淺，對(duì)順利完成本課題 起到了極大的作用。在此向他們表示我最衷心的感謝！ 感謝 陳念偉老師 在課題研究初期給予的幫助，在 陳念偉老師 的幫助下課題才得以很好的展開，有了一個(gè)很好的開端！感謝陳行同學(xué)在課題開發(fā)過(guò)程中給予的幫助，因?yàn)樗膮f(xié)助，才得以高效率的完成了所有的開發(fā)工作！ 在論文完成過(guò)程中，本人還得到了其他老師和許多同學(xué)的熱心幫助，本人向他們表示深深的謝意！ 最后向在百忙之中評(píng)審本文的各位專家、老師表示衷心的感謝！