【正文】 言，用 SQL Server 2020 開發(fā)后臺數(shù)據(jù)庫， 本系統(tǒng) 主要包含了系統(tǒng)用戶 管理， 汽車 線路 信息管理， 汽車基本 信息管理， 車票 信息管理 四 大模塊，可以實現(xiàn) 對汽車線路 信息 ，汽車基本信息和車票信息的 錄入，查詢，修改，刪除等功能，能滿足 長途車站汽車 管理工作方面的基本要求。 長途汽車 信息管理系統(tǒng)是 長途 汽車 車站 信息匯總 和管理的重要組成部分，是一種典型的信息管理系統(tǒng)，囊括了對 長途汽車車站相關(guān) 信息的管理， 可以化簡繁瑣的工作過程，使 車站的 管理更加合理化和科學(xué)化 ，大大提高工作效率 和節(jié)省運(yùn)營成本 。 一個性能良 好的長途汽車信息管理系統(tǒng)能夠使管理員快速方便地對長途汽車站的相關(guān) 信息 ,如長途汽車線路信息 , 汽車基本信息 ,車票信息等 進(jìn)行 各種諸如添加，查詢，刪除，修改操作。這些優(yōu)點能夠極大地提高長途汽車信息管理的效率。 在一些 偏遠(yuǎn)的 小城市 ，小車站 卻 仍然采用 傳統(tǒng)的手工 管理方式來管理汽車站的相關(guān)信息 ，這樣的管理方式與現(xiàn)代的信息化社會脫離，不但浪費(fèi) 寶貴的人力，物力 資源，而且管理不科學(xué)， 錯誤率高， 大大降低了工作效率。對于應(yīng)用程序的開發(fā)，要求應(yīng)用程序功能完善，方便使用的特點。 它是軟件系統(tǒng)體系結(jié)構(gòu)，通過它可以充分利用兩端硬件環(huán)境的優(yōu)勢，將 任務(wù)合理分配到 Client 端和 Server 端來實現(xiàn)，降低了系統(tǒng)的通訊開銷。 （ 2） 數(shù)據(jù)的儲存管理功能較為透明。航空運(yùn)輸普遍費(fèi)用太高，火車運(yùn)輸又太過于煩悶，而且這兩種方式都 只 適合于 遠(yuǎn)距離的交通運(yùn)輸 。 通過對用戶需求的分析 ,本系統(tǒng)具有以下特點 ： (1)由于 一項新的軟件在被使用之前 ,對于使用者來說是陌生和嶄新的 ,所以要求系統(tǒng)為用戶提供簡單，友好，易于操作的 界面。系統(tǒng)整體的簡單模塊圖 如 圖 1 所示 ，以下將對具體功能需求進(jìn)行描述。管理員也可以在整個數(shù)據(jù)庫中查尋 相關(guān)汽車信息。 車票信息管理 管理員可以在車票管理模塊實現(xiàn)對線路車票信息的管理。因此，在設(shè)計數(shù)據(jù)庫表的時候設(shè)計了系統(tǒng)用戶表、汽車線路信息表、汽車信息表和車票信息表用來存儲對應(yīng)的信息 。 表 2 汽車線路 信息表 字段名稱 數(shù)據(jù)類型 字段大小 必填字段 描述 字段說明 buslineNO nvarchar 10 是 線路 編號 主鍵 departCity nvarchar 20 是 起始城市 無 arricalCity nvarchar 20 是 到達(dá)城市 無 departdate nvarchar 20 是 起始日期 無 arrivaltime nvarchar 20 是 到達(dá)時間 無 busNO nvarchar 10 是 汽車編號 無 第 5 頁 共 22 頁 Price float 8 否 車票價格 無 memo nvarchar 50 否 備注 無 該表存放了汽車的基本信息，包括 汽車的編號，車型，購買時間，使用時間，座位數(shù)，有無空調(diào)，電視和備注信息。 管理員要登錄本系統(tǒng)，首先需要輸入用戶名和密碼，在登錄 過程中驗證用戶名和密碼是否正確，是否為空，如果不正確或者為空， 就會彈出相應(yīng)的對話框，提示用戶輸入錯誤， 不能進(jìn)入該系統(tǒng)。主要 實現(xiàn)管理員 對用戶的管理 。主要包括汽車的編號，汽車的型號，購買時間，使用時間，座位數(shù)量，有無電視，有無空調(diào)和備注 信息。在 添加汽車信息子模塊 的設(shè)計時候 ,使用 text 文本框添加汽車信息 ,包括 添加 汽車編號 ,汽車類型 ,購買日期，使用時間，座位個數(shù)，有無電視，有無空調(diào)和備注信息，當(dāng)用戶按要求填寫了相應(yīng)的文本框之后點擊添加按鈕 ,將啟動 cmd_OK_Click 事件，將添加的汽車信息放入數(shù)據(jù)庫表中。 + CurrentBus + 39。 因此， 從四個方面設(shè)計了線路信息管理模塊，即線路信息的 添加，線路信息的修改，刪除和查詢。四個過程模塊之間的關(guān)系圖如圖 9，以下將具體介紹各個功能的實現(xiàn)。 線路信息查詢子模塊 的 設(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。 End If End Sub 修改 線路信息子模塊 管理員需要根據(jù)實際情況來調(diào)整汽車的線路信息。管理員需要了解到某條線路的詳細(xì)的車票信息，包括 汽車的起始和到達(dá)城市，車票日期和時間，車票價格和車票備注信息，通過了解這些信息，管理員可以方便的完成對相應(yīng)汽車線路 車票信息的 調(diào)整。 車票信息添加子模塊 當(dāng)有新的汽車線路 添加了 的時候， 管理員 就 需要設(shè)置 相應(yīng)的 新的車票信息 。實現(xiàn)該功能的 核心代碼如下： OpenDB ‘選中起始城市的信息，載入下拉式組合框 中 strSQL = Select Distinct departcity from ticketinfo ‘打開數(shù)據(jù)庫 連接 strSQL, objConn, adOpenKeyset, adLockPessimistic ‘將起始城市信息載入下拉式組合框中 If Not Then ‘當(dāng)無該數(shù)據(jù)的時候跳出循環(huán) Do While Not (0).Value Loop Else ‘如果沒有該條信息，提示請先設(shè)置車票信息 CloseDB MsgBox 請先設(shè)置車票信息 , vbOKOnly Exit Sub End If ‘選中到達(dá)城市的信息，載入下拉式組合框中 strSQL = Select Distinct arrivalcity from ticketinfo strSQL, objConn, 1, 3 Do While Not ‘ 當(dāng)無該數(shù)據(jù)的時候跳出循環(huán) (0).Value 第 18 頁 共 22 頁 Loop ‘選中到達(dá)日期的信息，載入下拉式組合框中 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 ‘當(dāng)無 該 數(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ìn)行運(yùn)行 ,以立即進(jìn)行改正。 第 19 頁 共 22 頁 結(jié) 論 經(jīng)過測試，根據(jù) 車站對 長途汽車信息管理 的需求 而設(shè)計的功能 全部能運(yùn)行正常 。比如說在身份驗證這一模塊，對于怎樣保證數(shù)據(jù)的安全性沒有很好的完成。 [3] 趙建敏 ,郭慶 .Visual Basic 編程指南 [M].北京 :航空工業(yè)出版社 ,2020。 [7] 黃志峰 .Visual Basic 高級編程實例精解 [M].北京 :國防工業(yè)出版社 ,2020。除非另有說明，本文的工作是原始性工作。 （ 4）學(xué)?？稍试S學(xué)位論文被查