【正文】 VB 的核心就是其對對象的連接與嵌入 OLE 的支持，利用 OLE， VB 能夠開發(fā)集聲音、圖象、動畫、字處理、 WEB 等對象于一體的應(yīng)用程序。這樣的應(yīng)用程序代碼較短，使得程序即易于編寫又易于維護。 事件驅(qū)動的編程機制 事件驅(qū)動是非常適合圖形用戶界面的編程方式。正規(guī)化的數(shù)據(jù)庫設(shè)計，使得數(shù)據(jù)的添加、修改、刪除、查詢更加合理、便捷、高效。隨著科學(xué)技術(shù)的不斷提高 ,計算機科學(xué)日漸成熟 ,其強大的功能已為人們深刻認(rèn)識 ,它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。 The Control。因此我們將發(fā)揮計算機的龐大的存儲空間，高性能的處理能力，高度可靠的數(shù)據(jù)安全，清晰的可視化數(shù)據(jù)等這些優(yōu)勢來輔助單位對車輛進行管理，實現(xiàn)了計算機資源的合理利用，真正實現(xiàn)了減少勞動力提高勞動質(zhì)量的目的。車輛管理系統(tǒng)就是在這樣的一個環(huán)境中誕生的，交通的日益發(fā)達(dá)，使得一個商業(yè)單位不再是簡單的一輛商務(wù)車，而是有很多輛車組成，而且車型也不再單一，這使得單位車輛信息復(fù)雜化。 gigantic storage space, hightechnological processing ability, highreliable data safety and explicit visualized data to assist unit vehicle management, to improve rational use of puter resources, to realize the purpose of reducing labor force and augmenting labor quality. In this paper, the ponent parts of system, including requirements, designed purpose, data structure and the feature of data process and system, are analyzed. In addition, detailed thoughts and fulfilling ways of system functional model are emphasized, and systematic crucial technique and parts of original codes are expounded specifically. 【 Keywords】 vehicle management system； Information System。但一直以來人們使用傳統(tǒng)人工的方式進行車輛管理，這種管理方式存在著許多 缺點 ,如 :效率低、實時性差等 ,另外時間一長 ,將產(chǎn)生大量的文件和數(shù)據(jù) ,這對于查找、更新和維護都帶來了不少的困難。 該程序 使用的是 Visual Basic 和 Sql Server 2021 完成實現(xiàn)。程序員的編程工作僅編寫針對對象要完成哪些功能的程序，因而程序設(shè)計的效率可提高許多。程序員只要編寫響應(yīng)用戶動作的代碼，各個動作之間不一定有聯(lián)系。 支持多種數(shù)據(jù)庫系統(tǒng)的訪問 利用數(shù)據(jù)控件或 OBBC 能夠訪問的數(shù)據(jù)庫系統(tǒng)有， MICROSOFT ACCESS、 BTRIEVE、DBASE、 MICROSOFT FOXPRO 和 PARADOX 等，也可訪問 MICROSOFT EXCEL、 LOTUS 等多種電子表格。 完備的 HELP 聯(lián)機幫助功能 與 Windows 環(huán)境 下的軟件一樣，在 VB 中，利用幫助菜單和 F1 功能鍵，用戶可隨時方便地得到所需的幫助信息； VB 幫助窗口中顯示了有關(guān)的示例代碼，通過復(fù)制、粘貼操作可獲得大量的示例代碼，為用戶和學(xué)習(xí)和使用提供了捷徑。 數(shù)據(jù)庫功能的增強 新增了功能強大、使用方便的 ADO 技術(shù)， ADO 是微軟制訂的應(yīng)用程序級數(shù)據(jù)庫訪問接口，支持所有 OLD DB 數(shù)據(jù)庫廠商。這種技術(shù)可以使 WEB 頁面設(shè)計者動態(tài)地創(chuàng)建和編輯頁面，使用戶在 VB 中開發(fā)多功能的網(wǎng)絡(luò)應(yīng)用軟件。越來越多的開發(fā)工具提供了與 SQL Server的接口?？煽缭綇倪\行 Microsoft Windows 98 的膝上型電腦到運 行 Microsoft Windows 2021 的大型多處理器的服務(wù)器等多種平臺使用。 定義 SQL Server 實例組。 為每個已注冊的服務(wù)器配置所有 SQL Server 選項。 在每個已注冊的服務(wù)器上定義并執(zhí)行所有 SQL Server 管理任務(wù)。 喚醒調(diào)用為 SQL Server 定義的各種向?qū)А? 可伸縮性和可用性 同一個數(shù)據(jù)庫引擎可以在不同的平臺上使用，從運行 Windows 98 的便攜式電腦，到運行 Windows 2021 數(shù)據(jù)中心的大型多處理器服務(wù)器。 SQLServer 2021 分布式查詢使用戶得以引用來自不同數(shù)據(jù)源的數(shù)據(jù)，就好像這些數(shù)據(jù)是 SQLServer 2021 數(shù)據(jù)庫的一部分，同時分布式事務(wù)充分保護任何分布式數(shù)據(jù)更新的完整性。 SQL Server2021 還支持基于標(biāo)準(zhǔn)的、與WindowsDNA 集成的程序設(shè)計模型，使 SQL Server 數(shù)據(jù)庫和數(shù)據(jù)倉庫的使用成為生成強大的可伸縮系統(tǒng)的無縫部分。 SQL Server 系統(tǒng)數(shù)據(jù)庫與系統(tǒng)表 SQL Server 2021 的 6 個系統(tǒng)數(shù)據(jù)庫 （ 1） Master 數(shù)據(jù)庫是 SQL Server 系統(tǒng)最重要的數(shù)據(jù)庫，它記錄了 SQL Server 系統(tǒng)的所有系統(tǒng)信息。 （ 4） Tempdb 是一個臨時數(shù)據(jù)庫，它為所有的臨時表、臨時存儲過程及其它臨時操作提供存儲空間。 幾個最重要的系統(tǒng)表 1. Sysobjects 表 SQL Server 的主系統(tǒng)表 sysobjects 出現(xiàn)在每個數(shù)據(jù)庫中，它對每個數(shù)據(jù)庫對象含有一行記錄。 5. Sysdatabases 表 系統(tǒng)表 sysdatabases對 SQL Server 系統(tǒng)上的每個系統(tǒng)數(shù)據(jù)庫和用戶自定義的數(shù)據(jù)庫含有一行記錄，它只出現(xiàn)在 master 數(shù)據(jù)庫中。對于擁有大量車輛的運輸企業(yè)一直采用手工管理車輛信息，工作量大，查找車輛信息不方 便，為規(guī)范企業(yè)內(nèi)部管理，提高企業(yè)管理質(zhì)量，更好的服務(wù)于廣大客戶，所以開發(fā)這樣一套管理軟件成為很有必要的事情。所以很多長期從事車輛管 理工作的人員一直希望使用電腦來處理這些繁重的工作，也正因為這樣，目前絕大部分運輸企業(yè)都已經(jīng)使用了軟件來管理。 ? 營運可行性分析 本系統(tǒng)的界面十分人性化，所以管理人員無需 進行專門培訓(xùn)就能輕松的使用。其中部分： （ 1） 在進入系統(tǒng)之后首先是登陸系統(tǒng)，根據(jù)用戶輸入的內(nèi)容判斷用戶的合法身份 （ 2） 進入 司機檔案管理 管理界面可以進行 司機檔案管理：（司機信息添加、修改、查詢、打印） （ 3） 進入 車輛檔案管理 管理界面可以進行 車輛檔案管理 ：（車輛信息添加、修改、查詢、打?。? （ 4） 進入車輛管理界面：車輛維修信息的管理（添加、修改、查詢、打?。?，車輛事故信息的管理（添加、修改、查詢、打?。? （ 5） 進入 運營業(yè)務(wù)管理界面 :企業(yè)車輛運營業(yè)務(wù)的管理（添加、修改、查詢、打?。? 功能分析 系統(tǒng)功能分析是在系統(tǒng)開發(fā)總體任務(wù)的基礎(chǔ)上完成的。 F1 司機登記單 D1 司機信息 F2 車輛登記單 D2 車輛信息 F3 維修登記單 F6 報表 D3 維修信息 F4 運營登記單 D4 運營信息 F5 事故登記單 D5 事故信息 數(shù)據(jù)流圖頂層圖 企業(yè)人事部門 1 司機檔案管理 維修單位 2 車輛檔案管理 車主 3 維修信息管理 司機 4 運營信息管理 5 事故信息管理 6 打印報表 企業(yè)主管 Ⅳ 13 數(shù)據(jù)詞典 在系統(tǒng)分析中編制了許多數(shù)據(jù)詞典，限于篇幅，舉一例說明。 功能概述 （ 1） 管理員登錄 （ 2） 密碼修改 （ 3） 司機檔案信息的添加、修改、刪除、查詢 （ 4） 車輛檔案信息的添加、修改、刪除、查詢 （ 5） 運營信息的添加、修改、查詢 （ 6） 車輛管理的信息 功 能詳細(xì)設(shè)計 登錄界面 （ 1） 用戶輸入用戶名和密碼登錄，系統(tǒng)根據(jù)不同的用戶名賦予不同的權(quán)限。 ) amp。 amp。 Else txtSQL = txtSQL amp。 ) amp。 amp。 amp。刪除記錄 Public Sub RecordDelete() Ⅳ 32 Dim sSql As String Dim intCount As Integer On Error GoTo myErr If 1 Then If MsgBox(真的要刪除這條文件記錄么？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then intCount = sSql = delete from amp。 Trim((, 1)) amp。 Format((, 2), yyyymmdd) amp。 msTableName amp。 39。 39。 Format(DateAdd(m, 1, Now), yyyymmdd) amp。 msTableName amp。 amp。 End If If chkItem(1).Value = vbChecked Then dBeginDate = Format(CDate(cboYear(0) amp。 ) = Then txtSQL = wxdate=39。 and wxdate=39。 Else Ⅳ 34 txtSQL = txtSQL amp。 39。 39。使我學(xué)到了很多實用的東西，也體會到了開發(fā)一個完整系統(tǒng)的不易。 ) = Then MsgBox 準(zhǔn)駕車型不能為空！ , vbOKOnly + vbExclamation, 警告 txtItem(6).SetFocus Exit Sub End If If Trim(txtItem(8) amp。 ) Then If Not IsDate(txtItem(5)) Then MsgBox 初次領(lǐng)證時應(yīng)輸入日期（ yyyymmdd）！ , vbOKOnly + vbExclamation, 警告 txtItem(5).SetFocus Exit Sub Else txtItem(5) = Format(txtItem(5), yyyymmdd) End If End If 39。 39。 Trim(txtItem(0)) amp。 添加 ElseIf gintdMode = 2 Then Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then With mrc For intCount = 0 To 8 If Trim(.Fields(intCount) amp?？刂瓶丶奈恢? Ⅳ 42 = = ( ) / 2 = + + / 2 = 200 = + 100 = 200 End If End Sub Public Sub RecordEdit() Dim intCount As Integer If 1 Then gintmode = EDIT intCount = gsSql = where sjid=39。 1 ShowData Call MovCursor(intCount, msgList) Else Call RecordAdd End If End Sub Public Sub FormClose() flagdEdit = False gintdMode = 0 Unload Me End Sub 39。 a