【正文】 ate 結(jié)束時間 日期 /時間 中日期 是 否 yydistance 運行公里 數(shù)字 8 否 否 yywaste 油耗 數(shù)字 8 否 否 表 44 為車輛維修數(shù)據(jù)表，命名為 repair。 表 44 車輛維修數(shù)據(jù)表 repair 字段名 字段說明 數(shù)據(jù)類 長度（字節(jié)） 必填字段 主鍵 wxid 車號 文本 10 是 是 Wxdata 時間 日期 /時間 中日期 是 否 wxdept 維修單位 文本 30 否 否 本科畢業(yè)論文 22 wxcontent 維修內(nèi)容 文本 40 否 否 wxprice 價格 數(shù)字 10 否 否 wxslave 配件 文本 30 否 否 wxmemo 備注 文本 50 否 否 表 45 為車輛事故數(shù)據(jù)表，命名為 accident。 表 45 車輛事故數(shù)據(jù)表 accident 字段名 字段說明 數(shù)據(jù)類型 長度（字節(jié)） 必填字段 主鍵 sgid 車號 文本 10 是 是 sgdriver 司機 文本 10 是 否 sgdate 時間 日期 /時間 中日期 是 否 sgplace 地點 文本 30 是 否 sgreason 原因 文本 30 否 否 Sgopp_id 對方車號 文本 10 否 否 Sgopp_dept 對方單位 文本 30 否 否 sgmode 處理方式 文本 30 否 否 sgvalue 處理金額 數(shù)字 10 否 否 sgmemo 備注信息 文本 40 否 否 表 46 為用戶管理數(shù)據(jù)表，命名為 yh。 表 46 用戶管理數(shù)據(jù)表 yh 字段名 字段說明 數(shù)據(jù)類型 長度（字節(jié)） 必填字段 主鍵 Yhid 用戶編號 數(shù)字 自動編號 是 是 yhname 用戶姓名 文本 10 是 否 yhpwd 用戶密碼 文本 10 是 否 yhtape 用戶權(quán)限 文本 10 是 否 本科畢業(yè)論文 23 4． 1． 4 數(shù)據(jù)庫的生成 管理系統(tǒng)的開發(fā)主要包括開發(fā)語言的設(shè)計和后臺數(shù)據(jù)庫設(shè)計。 車輛管理系統(tǒng)主要包括前臺管理程序 以及后臺數(shù)據(jù)庫兩個方面。而對于后者則要求建立起數(shù)據(jù)一致性、完整性和安全性的功能。 Visual Basic 能夠快速的開發(fā)友好的用戶界面，而且有良好的數(shù)據(jù)庫接口，因此，系統(tǒng)開發(fā)選擇了 Visual Basic 。 數(shù)據(jù)庫的建立 打開 MIC SQL SERVER 企業(yè)管理器。需要新建 6 個表。這樣數(shù)據(jù)庫就建成了。 4． 1． 5 數(shù)據(jù)庫的連接 先要利用 SQL 腳本生成車輛系統(tǒng)數(shù)據(jù)庫。 本系統(tǒng)采用的是通過 ODBC 對數(shù)據(jù)庫進行訪問，配置相關(guān)選項，完成數(shù)據(jù)庫的配置。 Visual Basic 提供了大量的控件，這些控件可用于設(shè)計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計過 程，從而有效的提高了應(yīng)用程序的運行效率和可靠性。 VB 還提供了軟件發(fā)布功能，使得開發(fā)、調(diào)試到發(fā)布可以一步完成。 Visual 是一門面向?qū)ο蟮某绦蛟O(shè)計語言，在開發(fā)過程中以對象為開發(fā)元素，每一個對象都具有一些特性和行為（屬性、事件和 方法）。同時，用戶還可以自己開發(fā)控件，從而滿足用戶的不同的需求，這樣變使得應(yīng)用程序具有可通用性可說擴展性和強有力的功能。接著在“工程資源管理器”中，選擇“工程 1”，將其重命名為“ VEHICLE_MIS”。此模塊主要功能是定義全局公共變量。連接數(shù)據(jù)庫的字符串定義如例程 51 例程 51 Public Function ConnectString() _ 本科畢業(yè)論文 25 As String 39。UID=sa。代碼如 例程 52 例程 52 Sub Main() Dim fLogin As New frmLogin vbModal If Not Then End End If Unload fLogin Set fMainForm = New frmMain End Sub 5． 1． 3 登錄模塊 用戶要登錄系統(tǒng)，填寫相關(guān)信息，例程 53 登錄的具體實現(xiàn)代碼。程序的運行過程：檢查用戶和密碼，用戶或密碼不正確的話就會提示重新輸入 。 本科畢業(yè)論文 26 圖 51 登錄界面視圖 否 是 圖 52 系統(tǒng)登錄程圖 例程 53 登錄界面的實現(xiàn)代碼 Private Sub cmdOK_Click() 39。check for correct password If = Then OK = True Else 登陸系統(tǒng) 輸入密碼 正確？ 進入系統(tǒng) 本科畢業(yè)論文 27 MsgBox Invalid Password, try again!, , Login = 0 = Len() End If End Sub 主界面的設(shè)計 主界面的功能主要包括調(diào)用各子窗口和顯示相應(yīng)的數(shù)據(jù)表。 MDI 窗體的“ CAPTION”屬性設(shè)置為“物流車輛管理系統(tǒng)”。 為了方便用戶的操作，設(shè)置在主界面上右擊，會彈出四個選項“添加 XX 信息、修改 XX 信息、刪除 XX 信息、查詢 XX 信息”。以司機檔案為例，修改和刪除響應(yīng)代碼如例程 54 本科畢業(yè)論文 28 例程 54 If 1 Then If MsgBox(真的要刪除這條文件記錄么？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then intCount = txtSQL = delete from driver where sjid=39。 Trim((, 1)) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) Unload frmDriver = select * from driver End If End If End Sub 5． 2 司機信息管理模塊 本模塊主要實現(xiàn)司機信息的添加、修改、刪除和查詢。修改各控件的 CAPTION 屬性并調(diào)整各控件的位置，得到如圖 54 操作界面 。程序首先檢驗姓名、執(zhí)照號碼和準駕車型是不是為空，如果是空的話，程序會提示“不能為空”。 ) = Then Select Case intCount Case 0 sMeg = 執(zhí)照號碼 Case 1 sMeg = 姓名 End Select sMeg = sMeg amp。 ) = Then MsgBox 準駕車型不能為空！ , vbOKOnly + vbExclamation, 警告 txtItem(6).SetFocus Exit Sub End If 在添加到數(shù)據(jù)表之前，程序還會檢驗是不是存在相同的 ID 記錄。用戶要繼續(xù)操作就會刪除以前的記錄，把新的信息添加到數(shù)據(jù)表中。在窗體添加一個MSFlexGrid 控件。 FRMDRIVER 的窗體界面如圖 56 所示。 本科畢業(yè)論文 31 圖 56 FRMDRIVER 窗體截面 例程 57 控件顯示內(nèi)容過程部分實現(xiàn)代碼 Set mrc = ExecuteSQL(txtSQL, MsgText) With msgList .Rows = 1 Do While Not .Rows = .Rows + 1 For i = 1 To Select Case (i 1).Type Case adDBDate .TextMatrix(.Rows 1, i) = Format((i 1) amp。 End Select Next i Loop 數(shù)據(jù)表字段設(shè)計時通常使用英文字段名，如果直接將這些字段名 顯示在控件中，就會造成版面不整潔、識別困難。實現(xiàn)代碼如例程 58。這里就不再儡述了。在窗體添加控件，使其界面如圖 57。圖 58 為 查詢流程圖。 amp。 ) amp。 End If If chkItem(1).Value = vbChecked Then If Trim(txtSQL amp。 amp。 ) amp。 Else txtSQL = txtSQL amp。 amp。 ) amp。 End If End If 輸入查詢條件 提示信息 查詢信息 正確 ? 完否 ? 否 是 查詢結(jié)束 是 否 本科畢業(yè)論文 34 If Trim(txtSQL) = Then MsgBox 請設(shè)置查詢方式！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else If flagdEdit Then Unload frmDriver End If = select * from driver where amp。設(shè)計界面如圖59 所示，這里就不再敘述。 圖 59 添加車輛信息的操作界面 5． 4 車輛業(yè)務(wù)管理模塊 車輛業(yè)務(wù)管理模塊中分為運營管理，維修管理和事故管理三個模本科畢業(yè)論文 35 塊。不過在添加運營管理、維修管理和事故管理前，要先建立司機和車輛檔案。以運營管理為例，用戶在建立司機或車輛檔案前要添加運 營信息，程序就會提示如圖 510。 圖 510 提醒建立檔案的界面 例程 510 If gintsMode = 1 Then = amp。初始化部門 txtSQL = select DISTINCT sjname from driver Set mrc = ExecuteSQL(txtSQL, MsgText) If Not Then Do While Not cboItem(1).AddItem Trim(mrc!sjname) Loop cboItem(1).ListIndex = 0 Else MsgBox 請先建立司機檔案！ , vbOKOnly + vbExclamation, 警告 = False Exit Sub End If 5． 5 用戶管理模塊 5． 5． 1 用戶密碼的修改 工程中添加一個窗體，命名為 form2,添加控件并調(diào)整各控件的位置，得到如圖 511 所示的界面，實現(xiàn)代碼 如程 511。密碼修改 Dim sqlst As String If = Or = Or _ = Then MsgBox 不能空白！ Exit Sub End If 39。新密碼核對 If Then MsgBox 密碼不一致！ Exit Sub End If 39。 amp。 _