【正文】 。 但也 還有許多需要改進(jìn) 的地方，比如 整個(gè)系統(tǒng)頁(yè)面簡(jiǎn)單，缺乏靈活性；組件層雖然具有通用性，但由于數(shù)據(jù)訪問(wèn)與業(yè)務(wù)邏輯混合，導(dǎo)致修改后端數(shù)據(jù)庫(kù)較困難；以及系統(tǒng)用戶管理功能待后期進(jìn)運(yùn)輸企業(yè)信息管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 32 一步完善。該系統(tǒng)設(shè)計(jì)操作簡(jiǎn)單，易于使用，對(duì)于數(shù)據(jù)的一致性的問(wèn)題也通過(guò)程序進(jìn)行了有效的解決。 4. 系統(tǒng)管理模塊 , 本模塊完成對(duì)系統(tǒng)用戶的管理，包括添加系統(tǒng)的使用用戶 和 用戶密碼的修改等 ,同時(shí)該模塊完成退出系統(tǒng)的管理。 2. 車輛信息管理模塊 ,包括對(duì)車輛基本信息的添加、修改、查詢等。 本 系統(tǒng)在 功能模塊，數(shù)據(jù)庫(kù)結(jié)構(gòu)等 幾方面做了詳細(xì)的設(shè)計(jì) 。通過(guò)測(cè)試的可執(zhí)行文件，就可以進(jìn)行 運(yùn)行 了。編譯通過(guò)后，生成可執(zhí)行文件 Vehicle Misexe。 最后選擇 “ Mis Misexe” 菜單，開(kāi)始編譯。這涉及到工程項(xiàng)目屬性的 設(shè)置，可執(zhí)行應(yīng)用程序的生成 [15]。利用這些 SQL 語(yǔ)句，在查詢分析器中打開(kāi)該語(yǔ)句后執(zhí)行該 sql 文件即可生成相關(guān)的數(shù)據(jù)庫(kù)和所需的各個(gè)表格 [14]?，F(xiàn)在就可以在SQLServer2020 數(shù)據(jù)庫(kù)系統(tǒng)中實(shí)現(xiàn)該邏輯結(jié)構(gòu) ， 這是利用 SQL Server2020 數(shù)據(jù)庫(kù)系統(tǒng)中的SQL 查詢分析器實(shí)現(xiàn)的 [13]。 圖 418 運(yùn)輸管理信息系統(tǒng)查詢事故信息圖 運(yùn)輸企業(yè)信息管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 31 滿足查詢要求的記錄都將在記錄列表中 顯示出來(lái)。 ⑶ 查詢事故信息。 選擇 “ 事故信息管理 |修改事故信息 ” 菜單，將出現(xiàn)如圖所示的窗體。最后通過(guò)校驗(yàn)后，將記錄添加到相應(yīng)的數(shù)據(jù)庫(kù)表中。 運(yùn)輸企業(yè)信息管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 30 圖 運(yùn)輸管理信息系統(tǒng)事故信息圖 輸入完畢后，點(diǎn)擊保存按鈕，觸發(fā)該按鈕的 click 事件。類似的有在車輛基本信息表中查詢得到所有不同變化的車輛編號(hào)作為組合框 2 的值。 選擇 “ 事故信息管理添加事故信息 ” 菜單，將出現(xiàn)如圖所示的窗體。 查詢事故信息。 修改事故信息。 圖 415 運(yùn)輸管理信息查詢維修信息圖 滿足查詢要求的記錄都將在記錄列表中顯示出來(lái)。 ⑶ 查詢維修信息窗體的創(chuàng)建。 選擇 “ 維修管理修改維修信息 ” 菜單，將出現(xiàn)如圖所示的窗體。 錄入內(nèi)容完成后，首先檢查內(nèi)容是否符合格式要求，然后檢查是否有重復(fù)記錄，最后添加到數(shù)據(jù)庫(kù)。 選擇 “ 維修管理添加維修信息 ” 菜單，將出現(xiàn)如圖所示的窗體。 查詢維 修信息。 修改維修信息。 運(yùn)輸企業(yè)信息管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 28 圖 運(yùn)輸管理信息系統(tǒng)查詢運(yùn)營(yíng)信息圖 滿足查詢要求的記錄都將出現(xiàn)在記錄列表框中。 選擇 “ 運(yùn)營(yíng)管理查詢運(yùn)營(yíng)信息 ” 菜單，將出現(xiàn)如圖 所示的窗體。選擇彈出式菜單中的 “ 刪除運(yùn)營(yíng)信息 ” ，就可以刪除當(dāng)前記錄。 選擇 “ 運(yùn)營(yíng)管理修改運(yùn)營(yíng)信息 “ 菜單，將出現(xiàn)如圖 所示的窗體。 實(shí)現(xiàn)向數(shù)據(jù)庫(kù)添加記錄的方法和前面添加司機(jī)基本信息的方法一樣，可以參考源代碼。 ⑴ 添加運(yùn)營(yíng)信息窗體的創(chuàng)建。 刪除運(yùn)營(yíng)信息。 運(yùn) 營(yíng)管理模塊的創(chuàng)建 運(yùn)營(yíng)管理模塊主要實(shí)現(xiàn)如下功能： 添加運(yùn)營(yíng)信息。在這里可以按照各種方式以及它們的組合進(jìn)行查詢。 ⑶ 查詢車輛信息。 程序判斷為修改狀態(tài)，首先刪除原有記錄，然后把新內(nèi)容加入到數(shù)據(jù)中。 圖 運(yùn)輸管理信息系統(tǒng)修改車輛信息圖 窗體中放置一個(gè)表格控件，所有車輛信息都顯示在里面。源代碼部分參見(jiàn)附錄源代碼清單： 運(yùn)輸企業(yè)信息管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 26 ⑵ 修改車輛信息。 輸入完內(nèi)容，當(dāng)即 “ 保存 ” 按鈕，觸發(fā) Click 事件，首先檢查文本內(nèi)容是否符合格式要求，然后判斷是否有重復(fù)記錄，最后添加內(nèi)容到數(shù)據(jù)庫(kù)，添加記錄到數(shù)據(jù)庫(kù)以前，需要判斷輸入內(nèi)容是否為空，格式是否滿足要求。將各種文本框放在窗體的框架中，組成 “ 車輛基本信息 ” ， “ 車輛相關(guān)信 息 ” 兩個(gè)部分。 選擇 “ 車輛信息管理添加車輛信息 ” 菜單，將出現(xiàn)如圖所示的窗體。 查詢車輛信息。 修改車輛信息。 運(yùn)輸企業(yè)信息管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 25 圖 運(yùn)輸管理信 息系統(tǒng)司機(jī)列表圖 調(diào)用 showTitle 函數(shù)，顯示表頭，代碼完成的事件：指定列數(shù)，設(shè)置標(biāo)題，列名，對(duì)齊方式，單元大小。 載入窗體時(shí)，觸發(fā)窗體的 Load 事件，顯示當(dāng)前數(shù)據(jù)庫(kù)中所有的記錄 。 ⑵ 修改員工基本信息窗體的創(chuàng)建。這些控件的屬性見(jiàn)下表： 表 運(yùn)輸管理信息系統(tǒng)添加司機(jī)信息菜單窗體屬性表 控件 屬性 屬性取值 Frmdriver(from) name frmdriver caption 司機(jī)信息 mdichild true Txtitem(0)~ Txtitem(8) name Txtitem(0)~ Txtitem(8) Label1 caption 姓名 Label2 caption 性別 Label3 caption 生日 Label4 caption 住址 Label5 caption 初次領(lǐng)證時(shí)間 Label6 caption 執(zhí)照號(hào)碼 Label7 caption 有效期起始時(shí)間 Label8 caption 有效期結(jié)束時(shí)間 用 戶輸入內(nèi)容完畢后，單擊按鈕 cmdsave 將觸發(fā) click 事件，程序首先對(duì)是否輸入內(nèi)容進(jìn)行判斷，然后進(jìn)行格式判斷。 選擇 “ 司機(jī)信息管理添加司機(jī)信息 ” 菜單，將出現(xiàn)如圖所示的窗體 。 運(yùn)輸企業(yè)信息管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 24 查詢司機(jī)信息。 修改司機(jī)信息。 表 運(yùn)輸管理信息系統(tǒng)添加用戶窗體屬性表 控件 屬性 屬性取值 Frmadduser (Form) Name Frmadduser Caption 添加用戶 StartUpPosition CenterScreen WindowState Nomal txtusername name txtusername Txtpassword1 name Txtpassword1 passwordchar * Txtpassword2 name Txtpassword2 passwordchar * cmdok name Cmdok caption 確定 cmdcanel Name cmdcanel caption 取消 Label1 caption 請(qǐng)輸入用戶名 Label2 caption 請(qǐng)輸入密碼 Label3 caption 請(qǐng)確認(rèn)密碼 二次輸入密碼后，單擊 cmdok 按鈕，將觸發(fā) click 事件判斷是否修改密碼 。 ⑵ 添加用戶窗體的創(chuàng)建。公用模塊中的 main（）過(guò)程將根據(jù) ok 的值來(lái)決定是退出，還是進(jìn)入系統(tǒng)。用戶登錄成功，全局變量 ok 將被賦值為 true。 用戶如果沒(méi)有輸入用戶名和用戶密碼，將出現(xiàn)消息框提示，如果輸入的用戶名在用戶表中沒(méi)有找到，將提示重新輸入用戶名，文本框 txtusername 將重新獲得輸入焦點(diǎn)。 表 輸管理信息系統(tǒng)用戶登錄窗體屬性表 控件 屬性 屬性取值 FrmLogin(Form) Name frmLogin Caption 登錄 StartUpPosition CenterScreen WindowState Nomal Txtusername name Txtusername txtpassword name txtpassword passwordchar * cmdok name Cmdok caption 確定 cmdcanel Name cmdcanel caption 取消 Label1 caption 運(yùn)輸信息管理系統(tǒng) Label2 caption 用戶名 Label3 caption 用戶密碼 文本框 txtpassword 的 passwordchar 屬性是用指定的字符來(lái)掩蓋用戶輸入的密碼。 圖 運(yùn)輸管理信息系統(tǒng)用戶登錄圖 用戶登錄窗體中放置了二個(gè)文本框 (TextBox)，用來(lái)輸入用戶名和用戶密碼：二個(gè)按運(yùn)輸企業(yè)信息管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 22 鈕 (CommandButton)用來(lái)確定或者取消登錄：三個(gè)標(biāo)簽 (Label)用來(lái)標(biāo)示窗體的信息。 系統(tǒng)啟動(dòng)后，將首先出現(xiàn)如圖所示的用戶登錄窗體，用戶首先輸入用戶名，然后輸入密碼。 修改用戶 密碼。 系統(tǒng)用戶管理模塊的創(chuàng)建 用戶管理模塊主要實(shí)現(xiàn)： 用戶登錄。如果登錄者是授權(quán)用戶，將進(jìn)入系統(tǒng)，否則將停止程序的執(zhí)行。一旦按下回車鍵，將返回 Tab鍵，下一個(gè)控件自動(dòng)獲得輸入焦點(diǎn)。PWD= End Function 在錄入有關(guān)信息時(shí)，需要回車來(lái)進(jìn)入下一個(gè)文本框，這樣對(duì)軟件使用者非常方便。returns a DB ConnectString ConnectString = FileDSN=。 _ 條記錄 End If ExecuteSQL_Exit: Set rst = Nothing Set n = Nothing Exit Function ExecuteSQL_Error: MsgString = 查詢錯(cuò)誤 : amp。get RecordCount Set ExecuteSQL = rst MsgString = 查詢到 amp。 _ query successful Else Set rst = New Trim$(SQL), n, _ adOpenKeyset, _ adLockOptimistic 39。 代碼如下： Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As 39。 由于系統(tǒng)中各個(gè)功能模塊都將頻繁使用數(shù)據(jù)庫(kù)中的各種數(shù)據(jù)，因此需要一個(gè)公開(kāi)的數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種 SQL 語(yǔ)句。在項(xiàng)目資源管理器中為項(xiàng)目添加一個(gè) Module，保存為 Module bas。 圖 運(yùn)輸管理信息系統(tǒng)菜單結(jié)構(gòu)圖 創(chuàng)建公用模塊 在 Visual Basic 中可以用公用模塊來(lái)存放整個(gè)工程項(xiàng)目公用的函數(shù)，過(guò)程和全局變量等 [12]。面板 1 用來(lái)顯示各種文本信息，面板 2 用來(lái)顯示當(dāng)前日期，面板 3 用來(lái)顯示當(dāng)前時(shí)間。狀態(tài)欄空件需要在通常的屬性窗口中設(shè)置一般屬性，還需要在其特有的彈出式菜單中進(jìn)行設(shè)置。 表 運(yùn)輸管理信息系統(tǒng)主窗體屬性表 控件 屬性 屬性取值 Frmmain(form) name frmmain caption 運(yùn)輸信息管理系統(tǒng) startupposition centerscreen windowstate maximized Sbstatusbar(statusbar) name sbstatusbar Panels(1) style sbrtext Panels(2) style sbrdate Panels(3) style sbrtime 創(chuàng)建好的窗體如圖 4－ 1 所示。 創(chuàng)建企業(yè)人事信息管理系統(tǒng)的主窗體 這個(gè)項(xiàng)目我們使用多文檔界面，單擊工具欄中的 ADD MDI Form 按鈕產(chǎn) 生一個(gè)窗體。 創(chuàng)建工