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