運輸企業(yè)車輛管理信息系統(tǒng)畢業(yè)論文

1、<p>　　運輸企業(yè)車輛管理信息系統(tǒng)</p><p>　　計算機科學與技術 </p><p>　　【摘要】隨著經濟的日益增長，信息化時代已經到來，生活中各種信息趨向數(shù)字化、清晰化。車輛管理系統(tǒng)就是在這樣的一個環(huán)境中誕生的，交通的日益發(fā)達，使得一個商業(yè)單位不再是簡單的一輛商務車，而是有很多輛車組成，而且車型也不再單一，這使得單位車輛信息復雜化。因此我們將發(fā)揮計算機的龐大的存儲

2、空間，高性能的處理能力，高度可靠的數(shù)據(jù)安全，清晰的可視化數(shù)據(jù)等這些優(yōu)勢來輔助單位對車輛進行管理，實現(xiàn)了計算機資源的合理利用，真正實現(xiàn)了減少勞動力提高勞動質量的目的。</p><p>　　本文主要分析了系統(tǒng)的主要組成情況，包括需求情況，系統(tǒng)的設計目標，數(shù)據(jù)結構，數(shù)據(jù)流程和系統(tǒng)的主要特點等，重點介紹了系統(tǒng)功能模塊的詳細思路和實現(xiàn)方法，以及對系統(tǒng)關鍵技術和部分源代碼的詳細說明。</p><p>

3、　　【關鍵詞】 車輛管理；信息系統(tǒng)；控件；窗體</p><p>　　【Abstract】As the development of economics and the coming of information epoch, all sorts of information in daily life tend to be digital and explicit. Unit vehicle managemen

4、t system is born in such an environment. Development of transportation increases the number of vehicles instead of only one commercial vehicle and meanwhile multiplies the varieties of them, which makes vehicle informati

5、on more complicated. Thereby, we intend to make full use of computers' gigantic storage space, high-technol</p><p>　　In this paper, the component parts of system, including requirements, designed purpose

6、, 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 origi

7、nal codes are expounded specifically.</p><p>　　【Keywords】vehicle management system； Information System; The Control; Windows</p><p><b>　　目 錄</b></p><p>　　１ 前言………………………

8、……………………………………………………… Ⅳ-3</p><p>　　２ 運輸企業(yè)車輛管理系統(tǒng)的主要開發(fā)工具……………………………………… Ⅳ-4</p><p>　?。?運輸企業(yè)車輛管理系統(tǒng)的后臺開發(fā)工具Sql Server 2000………………… Ⅳ-6</p><p>　?。?可行性研究……………………………………………………………………… Ⅳ-9</

9、p><p>　?。?需求分析………………………………………………………………………… Ⅳ-10</p><p>　　６ 系統(tǒng)分析與系統(tǒng)設計…………………………………………………………… Ⅳ-12</p><p>　　７ 系統(tǒng)配置………………………………………………………………………… Ⅳ-14</p><p>　?。?數(shù)據(jù)庫設計………………………

10、……………………………………………… Ⅳ-15</p><p>　?。?主程序界面設計詳解…………………………………………………………… Ⅳ-24</p><p>　?。保?結論…………………………………………………………………………… Ⅳ-37</p><p>　　附錄………………………………………………………………………………… Ⅳ-38</p>

11、<p>　　謝辭………………………………………………………………………………… Ⅳ-60</p><p>　　參考文獻…………………………………………………………………………… Ⅳ-61</p><p><b>　　1 前言</b></p><p><b>　　1.1引言</b></p>&l

12、t;p>　　隨著我國經濟的快速發(fā)展，汽車已成為人們不可缺少的交通工具。對于擁有大量車輛的運輸企業(yè)來說，車輛的管理成為日常事務中的一項重要工作。但一直以來人們使用傳統(tǒng)人工的方式進行車輛管理，這種管理方式存在著許多缺點,如:效率低、實時性差等,另外時間一長,將產生大量的文件和數(shù)據(jù),這對于查找、更新和維護都帶來了不少的困難。隨著科學技術的不斷提高,計算機科學日漸成熟,其強大的功能已為人們深刻認識,它已進入人類社會的各個領域并發(fā)揮著越來越

13、重要的作用。利用計算機可以集中管理車輛的運營、維修、事故、等一系列信息，可以有效管理企業(yè)每臺汽車的使用狀況，帶動企業(yè)進入車輛管理信息化、科學化、同時也可以節(jié)省人力、物力、財力、提高工作效率，使企業(yè)車輛管理更加科學、更加規(guī)范。</p><p>　　車輛管理信息系統(tǒng)針對企業(yè)業(yè)務流程并為其度身定制了集車輛檔案管理、駕駛員檔案管理、運營業(yè)務管理、車輛管理等為一體的系統(tǒng)，進行了統(tǒng)一、規(guī)范的管理設計，具有可視化的界面友好，操

14、作方法簡單易懂等特點，使用戶很快能熟練操作該系統(tǒng)。</p><p>　　該程序使用的是Visual Basic 6.0和Sql Server 2000完成實現(xiàn)。正規(guī)化的數(shù)據(jù)庫設計，使得數(shù)據(jù)的添加、修改、刪除、查詢更加合理、便捷、高效。</p><p>　　2 運輸企業(yè)車輛管理系統(tǒng)的主要開發(fā)工具</p><p>　　2.1 Visual Basic 6.0 簡介<

15、;/p><p>　　VB主要功能特點如下：</p><p>　　具有面向對象的可視化設計工具</p><p>　　在VB中，應用面向對象的程序設計方法〔OOP〕，把程序和數(shù)據(jù)封裝起來視為一個對象，每個對象都是可視的。程序員在設計時只需用現(xiàn)有工具根據(jù)界面設計的要求，直接在屏幕上畫出窗口、菜單、按鈕、滾動條等不同類型的對象，并為每個對象設置屬性。程序員的編程工作僅編寫針對對

16、象要完成哪些功能的程序，因而程序設計的效率可提高許多。</p><p><b>　　事件驅動的編程機制</b></p><p>　　事件驅動是非常適合圖形用戶界面的編程方式。傳統(tǒng)的編程方式是一種面向過程，按程序事先設計的流程進行。但在圖形用戶界面的應用程序中，用戶的動作即事件掌握著程序的運作流向，每個事件都能驅動一段程序的運行。程序員只要編寫響應用戶動作的代碼，各個動

17、作之間不一定有聯(lián)系。這樣的應用程序代碼較短，使得程序即易于編寫又易于維護。</p><p>　　提供了易學易用的應用程序集成開發(fā)環(huán)境</p><p>　　在VB集成開發(fā)環(huán)境中，用戶可設計界面、編寫代碼、調試程序、直至把應用程序編譯成可執(zhí)行文件，在WINDOWS中運行，使用戶在友好的開發(fā)環(huán)境中工作。</p><p>　　結構化的程序設計語言</p>&l

18、t;p>　　VB具有豐富的數(shù)據(jù)類型、眾多的內部函數(shù)和結構化程序結構，而且簡單易學。</p><p>　　支持多種數(shù)據(jù)庫系統(tǒng)的訪問</p><p>　　利用數(shù)據(jù)控件或OBBC能夠訪問的數(shù)據(jù)庫系統(tǒng)有，MICROSOFT ACCESS、BTRIEVE、DBASE、MICROSOFT FOXPRO和PARADOX等，也可訪問MICROSOFT EXCEL、LOTUS等多種電子表格。</

19、p><p><b>　　OLE技術</b></p><p>　　VB的核心就是其對對象的連接與嵌入OLE的支持，利用OLE，VB能夠開發(fā)集聲音、圖象、動畫、字處理、WEB等對象于一體的應用程序。</p><p><b>　　ACTIVE技術</b></p><p>　　Active技術發(fā)展了原有的OLE

20、技術，它使開發(fā)人員擺脫了特定語言的束縛?？煞奖愕厥褂脴藴实腶ctive部件，調用標準的接口，實現(xiàn)特定的功能。</p><p>　　完備的HELP聯(lián)機幫助功能</p><p>　　與Windows環(huán)境下的軟件一樣，在VB中，利用幫助菜單和F1功能鍵，用戶可隨時方便地得到所需的幫助信息；VB幫助窗口中顯示了有關的示例代碼，通過復制、粘貼操作可獲得大量的示例代碼，為用戶和學習和使用提供了捷徑。&

21、lt;/p><p>　　Visual Basic 6.0新功能特點</p><p><b>　　新增控件</b></p><p>　　新增了許多控件，如工具條控件COOLBAR、數(shù)據(jù)庫控件ADO DATA、日歷界面時間控件DATATIMEPICKER和MONTH VIEW、圖形組合控件IMAGECOMBO等。</p><p>

22、;<b>　　語言新功能</b></p><p>　　新增了較多的字符串函數(shù)，如篩選函數(shù)FILTER、連接函數(shù)JOIN，反向查找函數(shù)INSTRREV、分隔函數(shù)SPLIT、替換函數(shù)REPLACE等，還有日期等其他函數(shù)。</p><p>　　函數(shù)可以返回數(shù)組，動態(tài)數(shù)組可以賦值</p><p>　　增加了文件系統(tǒng)對象，能全面地實現(xiàn)驅動器、子目錄和文件

23、的管理。</p><p><b>　　數(shù)據(jù)庫功能的增強</b></p><p>　　新增了功能強大、使用方便的ADO技術，ADO是微軟制訂的應用程序級數(shù)據(jù)庫訪問接口，支持所有OLD DB數(shù)據(jù)庫廠商。ADO包括了現(xiàn)有的ODBC，而且占用內存少，訪問速度更快。同時提供的ADO控件，不但可以用最少的代碼創(chuàng)建數(shù)據(jù)庫應用程序，也可以取代DATA和RDO控件。</p>

24、<p><b>　　增強網絡功能</b></p><p>　　VB6.0最重要的新特性之一，是提供了DHTML設計工具。這種技術可以使WEB頁面設計者動態(tài)地創(chuàng)建和編輯頁面，使用戶在VB中開發(fā)多功能的網絡應用軟件。</p><p>　　新增了多個應用程序向導</p><p>　　VB新增的應用程序向導可以自動創(chuàng)建不同類型、不同功能的

25、應用程序。有數(shù)據(jù)向導、數(shù)據(jù)窗體向導、IIS應用程序和DHTML等；同時對已有的向導增強了功能。</p><p>　　3 運輸企業(yè)車輛管理系統(tǒng)的后臺開發(fā)工具Sql Server 2000</p><p>　　3.1 Sql server 2000簡介</p><p>　　本系統(tǒng)的操作系統(tǒng)采用SQL 2000 Server，它是一個后臺數(shù)據(jù)庫管理系統(tǒng),它功能強大操作簡便

26、,日益為廣大數(shù)據(jù)庫用戶所喜愛。越來越多的開發(fā)工具提供了與SQL Server的接口。SQL Server 是一個關系數(shù)據(jù)庫管理系統(tǒng)，它最初是由Microsoft、Sybase 和Ashton-Tate三家公司共同開發(fā)的。于1988 年推出了第一個OS/2 版本，在Windows NT 推出后，Microsoft與Sybase 在SQL Server 的開發(fā)上就分道揚鑣了，Microsoft 將SQL Server 移植到Windows

27、NT系統(tǒng)上，專注于開發(fā)推廣SQL Server 的Windows NT 版本。</p><p>　　SQL Server 2000 是Microsoft公司推出的SQL Server 數(shù)據(jù)庫管理系統(tǒng)的最新版本，該版本繼承了SQL Server 7.0 版本的優(yōu)點，同時又比它增加了許多更先進的功能、具有使用方便、可伸縮性好與相關軟件集成程度高等優(yōu)點?？煽缭綇倪\行Microsoft Windows 98 的膝上型電腦

28、到運行Microsoft Windows 2000 的大型多處理器的服務器等多種平臺使用。MSSQL Server不但可以應用于大中型數(shù)據(jù)庫管理中，建立分布式關系數(shù)據(jù)庫，并且也可以開發(fā)桌面數(shù)據(jù)庫。事實上，SQL Server數(shù)據(jù)庫處理的基本結構，采取關系型數(shù)據(jù)庫模式，盡管如此，相信大家都可以輕易的發(fā)現(xiàn)，在SQL Server的數(shù)據(jù)庫處理方式，則是使用面向對象的操作方式與精神，也就是說，SQL Server的所有功能，都可以基于系統(tǒng)已經建

29、立好的一些對象來達成，是相當OO（面向對象）的一個系統(tǒng)結構。</p><p>　　SQL Server 企業(yè)管理器是 SQL Server 的主要管理工具，它提供了一個遵從 MMC 標準的用戶界面，使用戶得以： </p><p>　　· 定義 SQL Server 實例組。</p><p>　　· 將個別服務器注冊到組中。&l

30、t;/p><p>　　· 為每個已注冊的服務器配置所有 SQL Server 選項。</p><p>　　· 在每個已注冊的服務器中創(chuàng)建并管理所有 SQL Server 數(shù)據(jù)庫、對象、登錄、用戶和權限。</p><p>　　· 在每個已注冊的服務器上定義并執(zhí)行所有 SQL Server 管理任務。</p&

31、gt;<p>　　· 通過喚醒調用 SQL 查詢分析器，交互地設計并測試 SQL 語句、批處理和腳本。</p><p>　　· 喚醒調用為 SQL Server 定義的各種向導。</p><p>　　3.2 SQL Server 2000的特性</p><p>　　Microsoft SQL Server 200

32、0包括以下特性：</p><p>　　Internet集成</p><p>　　SOLServer 2000數(shù)據(jù)庫引擎提供完整的XML支持。它還具有構成最大的Web站點的數(shù)據(jù)存儲組件所需的可伸縮性、可用性和安全功能。SQL Server2000程序設計模型與Windows DNA集成，用于開發(fā)Web應用程序，并且SQL Server 2000支持English Query和Microsof

33、t搜索服務等功能，在Web應用程序中包含了用戶友好的查詢和強大的搜索功能。</p><p><b>　　可伸縮性和可用性</b></p><p>　　同一個數(shù)據(jù)庫引擎可以在不同的平臺上使用，從運行Windows 98的便攜式電腦，到運行Windows 2000數(shù)據(jù)中心的大型多處理器服務器。SQL Server 2000企業(yè)版支持聯(lián)合服務器、索引視圖和大型內存支持等功能

34、，使其得以升級到最大Web站點所需的性能級別。</p><p><b>　　企業(yè)級數(shù)據(jù)庫功能</b></p><p>　　SQL Server 2000關系數(shù)據(jù)庫引擎支持當今苛刻的數(shù)據(jù)處理環(huán)境所需的功能。數(shù)據(jù)庫引擎充分保護數(shù)據(jù)完整性，同時將管理上千個并發(fā)修改數(shù)據(jù)庫的用戶的殲銷減到最小。SQLServer 2000分布式查詢使用戶得以引用來自不同數(shù)據(jù)源的數(shù)據(jù)，就好像這些

35、數(shù)據(jù)是SQLServer 2000數(shù)據(jù)庫的一部分，同時分布式事務充分保護任何分布式數(shù)據(jù)更新的完整性。復制同樣使用戶得以維護多個數(shù)據(jù)副本，同時確保單獨的數(shù)據(jù)副本與數(shù)據(jù)保持同步。可將一組數(shù)據(jù)復制到多個移動用戶，使這些用戶自主地工作，然后將他們所做的修改合并回發(fā)布服務器。</p><p>　　易于安裝、部署和使用</p><p>　　SQL Server2000中包括一系列管理和開發(fā)工具，這些工

36、具可改進在多個站點上安裝、部署、管理和使用SOL Server的過程。SQL Server2000還支持基于標準的、與WindowsDNA集成的程序設計模型，使SQL Server數(shù)據(jù)庫和數(shù)據(jù)倉庫的使用成為生成強大的可伸縮系統(tǒng)的無縫部分。這些功能使用戶得以快速交付SQL Server應用程序，使客戶只需最少的安裝和管理開銷即可實現(xiàn)這些應用程序。</p><p><b>　　數(shù)據(jù)倉庫</b>&

37、lt;/p><p>　　SQL Server 2000中包括提取和分析匯總數(shù)據(jù)以進行聯(lián)機分析處理(OLAP)的工具。SQL Server中還包括一些工具，可用來直觀地設計數(shù)據(jù)庫并通過English Query來分析數(shù)據(jù)。</p><p>　　SQL Server 系統(tǒng)數(shù)據(jù)庫與系統(tǒng)表</p><p>　　SQL Server 2000的6個系統(tǒng)數(shù)據(jù)庫 </p>

38、<p>　?。?）Master數(shù)據(jù)庫是SQL Server系統(tǒng)最重要的數(shù)據(jù)庫，它記錄了SQL Server系統(tǒng)的所有系統(tǒng)信息。這些系統(tǒng)信息包括所有的登錄信息、系統(tǒng)設置信息、SQL Server的初始化信息和其它系統(tǒng)數(shù)據(jù)庫及用戶數(shù)據(jù)庫的相關信息。</p><p>　?。?）Model數(shù)據(jù)庫是所有用戶數(shù)據(jù)庫和Tempdb數(shù)據(jù)庫的模板數(shù)據(jù)庫，它含有Master數(shù)據(jù)庫所有系統(tǒng)表的子集，這些系統(tǒng)數(shù)據(jù)庫是每個用

39、戶定義數(shù)據(jù)庫需要的。</p><p>　?。?）Msdb數(shù)據(jù)庫是代理服務數(shù)據(jù)庫，為其警報、任務調度和記錄操作員的操作提供存儲空間。</p><p>　?。?）Tempdb是一個臨時數(shù)據(jù)庫，它為所有的臨時表、臨時存儲過程及其它臨時操作提供存儲空間。</p><p>　?。?）Pubs和Northwind數(shù)據(jù)庫是兩個實例數(shù)據(jù)庫，它們可以作為SQL Server的學習工具

40、。</p><p>　　3．3．2 SQL Server 系統(tǒng)表</p><p>　　系統(tǒng)目錄是由描述SQL Server 系統(tǒng)的數(shù)據(jù)庫、基表、視圖和索引等對象的結構的系統(tǒng)表組成。SQL Server 經常訪問系統(tǒng)目錄，檢索系統(tǒng)正常運行所需的必要信息。</p><p>　　幾個最重要的系統(tǒng)表 </p><p>　　1. Sysobjects

41、表</p><p>　　SQL Server 的主系統(tǒng)表sysobjects出現(xiàn)在每個數(shù)據(jù)庫中，它對每個數(shù)據(jù)庫對象含有一行記錄。</p><p>　　2. Syscolumns表</p><p>　　系統(tǒng)表syscolumns出現(xiàn)在master數(shù)據(jù)庫和每個用戶自定義的數(shù)據(jù)庫中，它對基表或者視圖的每個列和存儲過程中的每個參數(shù)含有一行記錄。</p><

42、;p>　　3. Sysindexes表</p><p>　　系統(tǒng)表sysindexes出現(xiàn)在master數(shù)據(jù)庫和每個用戶自定義的數(shù)據(jù)庫中，它對每個索引和沒有聚簇索引的每個表含有一行記錄，它還對包括文本/圖像數(shù)據(jù)的每個表含有一行記錄。</p><p>　　4. Sysusers表</p><p>　　系統(tǒng)表sysusers出現(xiàn)在master數(shù)據(jù)庫和每個用戶自定義

43、的數(shù)據(jù)庫中，它對整個數(shù)據(jù)庫中的每個Windows NT用戶、Windows NT用戶組、SQL Server 用戶或者SQL Server 角色含有一行記錄。</p><p>　　5. Sysdatabases表</p><p>　　系統(tǒng)表sysdatabases對SQL Server 系統(tǒng)上的每個系統(tǒng)數(shù)據(jù)庫和用戶自定義的數(shù)據(jù)庫含有一行記錄，它只出現(xiàn)在master數(shù)據(jù)庫中。</p&g

44、t;<p>　　6. Sysdepends表</p><p>　　系統(tǒng)表Sysdepends對表、視圖和存儲過程之間的每個依賴關系含有一行記錄，它出現(xiàn)在master數(shù)據(jù)庫和每個用戶自定義的數(shù)據(jù)庫中。</p><p>　　7. Sysconstraints表</p><p>　　系統(tǒng)表sysconstraints對使用CREATE TABLE或者ALTE

45、R TABLE語句為數(shù)據(jù)庫對象定義的每個完整性約束含有一行記錄，它出現(xiàn)在master數(shù)據(jù)庫和每個用戶自定義的數(shù)據(jù)庫中。</p><p><b>　　4 可行性研究</b></p><p>　　4.1可行性研究的前提</p><p><b>　　研究目標</b></p><p>　　隨著我國經濟的快速

46、發(fā)展，汽車已成為人們不可缺少的交通工具。對于擁有大量車輛的運輸企業(yè)一直采用手工管理車輛信息，工作量大，查找車輛信息不方便，為規(guī)范企業(yè)內部管理，提高企業(yè)管理質量，更好的服務于廣大客戶，所以開發(fā)這樣一套管理軟件成為很有必要的事情。</p><p><b>　　主要內容</b></p><p>　　該管理系統(tǒng)具備方便、實用、快捷等優(yōu)點。能夠有效的對車輛信息進行綜合管理，從而

47、大大的提高辦公效率，使企業(yè)能及時有效的對車輛進行管理。1.提高效率2.便于管理3.符合社會的發(fā)展4.便于業(yè)務的擴展5.提供高質量的服務</p><p>　　4.2對現(xiàn)有系統(tǒng)的分析</p><p>　　原始的車輛管理使用手工處理信息，工作量大，查找車輛信息不方便，使用軟件來管理車輛信息，既方便又迅速，而且統(tǒng)計的報表也快捷。所以很多長期從事車輛管理工作的人員一直希望使用電腦來處理這些

48、繁重的工作，也正因為這樣，目前絕大部分運輸企業(yè)都已經使用了軟件來管理。本軟件系統(tǒng)主要由司機檔案管理，車輛檔案管理，車輛管理、運營信息管理等功能模塊構成，，實現(xiàn)車輛管理信息化。</p><p><b>　　技術可行性分析</b></p><p>　　運用Visual Basic 6.0作為軟件開發(fā)環(huán)境、SQL Server 2000開發(fā)數(shù)據(jù)庫進行系統(tǒng)開發(fā)，能夠保證系統(tǒng)的

49、可行性及數(shù)據(jù)的安全性。</p><p><b>　　經濟可行性分析</b></p><p>　　行業(yè)發(fā)展迅速，企業(yè)規(guī)模在不斷的擴大，其開發(fā)費用在可承受范圍內。</p><p><b>　　營運可行性分析</b></p><p>　　本系統(tǒng)的界面十分人性化，所以管理人員無需進行專門培訓就能輕松的使用。

50、</p><p><b>　　5 需求分析</b></p><p>　　運輸企業(yè)車輛管理信息系統(tǒng)的開發(fā)不僅僅是一個應用程序編寫的過程，更重要的是在系統(tǒng)分析和設計階段所作的工作。需求分析是開發(fā)運輸企業(yè)車輛管理信息系統(tǒng)中重要的一步。</p><p><b>　　5.1 理解需求</b></p><p>

51、　　下面是一份文本需求說明，是通過對系統(tǒng)的終端用戶（模擬）進行調研后編寫的。其中部分：</p><p>　　在進入系統(tǒng)之后首先是登陸系統(tǒng)，根據(jù)用戶輸入的內容判斷用戶的合法身份</p><p>　　進入司機檔案管理管理界面可以進行司機檔案管理：（司機信息添加、修改、查詢、打?。?lt;/p><p>　　進入車輛檔案管理管理界面可以進行車輛檔案管理：（車輛信息添加、修改、查

52、詢、打印）</p><p>　　進入車輛管理界面：車輛維修信息的管理（添加、修改、查詢、打印），車輛事故信息的管理（添加、修改、查詢、打印）</p><p>　　進入運營業(yè)務管理界面:企業(yè)車輛運營業(yè)務的管理（添加、修改、查詢、打印）</p><p><b>　　5.2功能分析</b></p><p>　　系統(tǒng)功能分析是在

53、系統(tǒng)開發(fā)總體任務的基礎上完成的。運輸企業(yè)車輛管理系統(tǒng)功能主要包括：司機檔案管理、車輛檔案管理、車輛管理、運營業(yè)務管理等功能。</p><p>　　系統(tǒng)初始化、用戶管理、密碼管理</p><p>　　司機檔案管理（司機信息添加、修改、查詢、打?。?lt;/p><p>　　車輛檔案管理（車輛信息的錄入、車輛信息的查詢、修改、打?。?lt;/p><p>　

54、　車輛管理（車輛維修信息的管理、車輛事故信息的管理）</p><p><b>　　運營業(yè)務管理</b></p><p><b>　　5.3 實現(xiàn)目標</b></p><p>　　由人工管理過渡到機械自動化、系統(tǒng)化、規(guī)范化管理</p><p>　　維修車輛、事故車輛的信息一目了然</p>

55、<p>　　及時掌握車輛的運營情況，提高車輛的利用率和企業(yè)的經濟效率</p><p>　　6 系統(tǒng)分析與系統(tǒng)設計</p><p><b>　　6.1系統(tǒng)流程</b></p><p>　　該運輸企業(yè)車輛管理系統(tǒng)的系統(tǒng)流程如圖所示</p><p><b>　　系統(tǒng)流程圖</b></p&

56、gt;<p><b>　　6.2系統(tǒng)邏輯模型</b></p><p>　　結合運輸企業(yè)車輛管理系統(tǒng)實際的運作流程，具體聯(lián)系如下圖（關聯(lián)圖）</p><p><b>　　F1司機登記單</b></p><p><b>　　F2車輛登記單</b></p><p>&l

57、t;b>　　F6打印報表</b></p><p><b>　　F3車輛維修單</b></p><p><b>　　F4運營登記單</b></p><p><b>　　F5事故登記單</b></p><p><b>　　6.2.1數(shù)據(jù)流圖</b&

58、gt;</p><p>　　在了解了公司的整體經營管理活動以及管理對信息系統(tǒng)的要求，在此基礎上，對各個部門的逐一調查，從系統(tǒng)的科學性、管理得合理性、實際運行的可行性出發(fā)將信息處理功能和彼此的關系自頂向下，逐層分解，在邏輯上精確地描述系統(tǒng)應該有的功能、數(shù)據(jù)輸入、數(shù)據(jù)輸出、數(shù)據(jù)存儲以及數(shù)據(jù)來源河去向。通過數(shù)據(jù)流圖來描述管理業(yè)務活動。</p><p><b>　　F1司機登記單<

59、/b></p><p><b>　　D1司機信息</b></p><p><b>　　F2車輛登記單</b></p><p><b>　　D2車輛信息</b></p><p><b>　　F3維修登記單</b></p><p&g

60、t;<b>　　F6報表</b></p><p><b>　　D3維修信息</b></p><p><b>　　F4運營登記單</b></p><p><b>　　D4運營信息</b></p><p><b>　　F5事故登記單</b>

61、;</p><p><b>　　D5事故信息</b></p><p><b>　　數(shù)據(jù)流圖頂層圖</b></p><p><b>　　6.2.2數(shù)據(jù)詞典</b></p><p>　　在系統(tǒng)分析中編制了許多數(shù)據(jù)詞典，限于篇幅，舉一例說明。</p><p>

62、　　6.3系統(tǒng)總體結構設計</p><p>　　6.3.1系統(tǒng)功能分解圖</p><p><b>　　7 系統(tǒng)配置</b></p><p>　　根據(jù)用戶對系統(tǒng)的穩(wěn)定性要求、系統(tǒng)的容量以及用戶的維護水平，確定了運輸企業(yè)車輛管理信息系統(tǒng)的系統(tǒng)配置。</p><p><b>　　7.1 軟件配置</b>&

63、lt;/p><p>　　數(shù)據(jù)庫軟件 ： SQL Server 2000備選操作系統(tǒng)： Windows NT , Windows 2000 Server , Windows XP7.2 硬件配置</p><p>　　客戶端硬件選擇 ：CPU:奔騰4處理器  256MSDRAM</p><p>　　服務器端硬件選擇 ：Xeo

64、n 雙 CPU/1GB/RAID5 3x72GB</p><p><b>　　8 數(shù)據(jù)庫設計</b></p><p><b>　　8.1 實體聯(lián)系圖</b></p><p><b>　　8.2數(shù)據(jù)表概述</b></p><p>　　8.2.1表詳細設計</p>&

65、lt;p>　　1. driver (司機基本信息表)</p><p>　　2．vehicle（車輛基本信息表）</p><p>　　3．Vehicle2(車輛附加信息表) </p><p>　　4. statistic (運營信息表)</p><p>　　5. repair (車輛維修信息表) </p><p>

66、　　6. accident(事故信息表) </p><p>　　7．repairunit(維修單位信息表)</p><p>　　8.User(用戶表)</p><p><b>　　8.3創(chuàng)建數(shù)據(jù)庫</b></p><p>　　8.3.1 創(chuàng)建‘司機基本信息’數(shù)據(jù)表</p><p>　　CREATE

67、 TABLE [dbo].[driver] (</p><p>　　[sjid] [char] (10) NOT NULL ,</p><p>　　[sjname] [char] (10) NOT NULL ,</p><p>　　[sjsex] [char] (2) NULL ,</p><p>　　[sjbirthday] [datet

68、ime] NULL ,</p><p>　　[sjaddress] [char] (30) NULL ,</p><p>　　[sjfirstdate] [datetime] NULL ,</p><p>　　[sjtype] [char] (10) NOT NULL ,</p><p>　　[sjbegin_date] [datetime

69、] NULL ,</p><p>　　[sjend_date] [datetime] NULL </p><p>　　) ON [PRIMARY]</p><p><b>　　GO</b></p><p>　　8.3.2 創(chuàng)建‘車輛基本信息’數(shù)據(jù)表</p><p>　　CREATE TABLE [

70、dbo].[vehicle] (</p><p>　　[clid] [char] (10) NOT NULL ,</p><p>　　[clkind] [char] (20) NOT NULL ,</p><p>　　[clpassenger] [numeric](2, 0) NULL ,</p><p>　　[clcolor] [cha

71、r] (4) NULL </p><p>　　) ON [PRIMARY]</p><p><b>　　GO</b></p><p>　　8.3.3 創(chuàng)建‘用戶’數(shù)據(jù)表</p><p>　　CREATE TABLE [dbo].[User] (</p><p>　　[UserID] [varch

72、ar] (50) NOT NULL ,</p><p>　　[UserPassword] [varchar] (50) NOT NULL </p><p>　　) ON [PRIMARY]</p><p><b>　　GO</b></p><p>　　8.3.4 創(chuàng)建‘車輛附加信息’數(shù)據(jù)表</p>&l

73、t;p>　　CREATE TABLE [dbo].[Vehicle2] (</p><p>　　[clowner] [varchar] (50) NOT NULL ,</p><p>　　[Clcode1] [varchar] (50) NOT NULL ,</p><p>　　[Clcode2] [varchar] (50) NULL ,</p&g

74、t;<p>　　[Clcode3] [varchar] (50) NULL ,</p><p>　　[cltotal] [varchar] (50) NULL ,</p><p>　　[Clregist-date] [datetime] NULL ,</p><p>　　[Clcertifi-date] [datetime] NULL </p

75、><p>　　) ON [PRIMARY]</p><p><b>　　GO</b></p><p>　　8.3.5 創(chuàng)建‘事故信息’數(shù)據(jù)表</p><p>　　CREATE TABLE [dbo].[accident] (</p><p>　　[sgid] [char] (10) NOT NULL

76、 ,</p><p>　　[sgdriver] [char] (10) NULL ,</p><p>　　[sgdate] [datetime] NOT NULL ,</p><p>　　[sgplace] [char] (30) NOT NULL ,</p><p>　　[sgreason] [char] (30) NULL ,<

77、/p><p>　　[sgopp_id] [char] (10) NULL ,</p><p>　　[sgopp_dept] [char] (30) NULL ,</p><p>　　[sgmode] [char] (30) NULL ,</p><p>　　[sgvalue] [numeric](10, 2) NULL ,</p>

78、;<p>　　[sgmemo] [text] NULL </p><p>　　) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]</p><p><b>　　GO</b></p><p>　　8.3.6 創(chuàng)建‘維修信息’數(shù)據(jù)表</p><p>　　CREATE TABLE [dbo

79、].[repair] (</p><p>　　[wxid] [char] (10) NOT NULL ,</p><p>　　[wxdate] [datetime] NOT NULL ,</p><p>　　[wxdept] [char] (30) NULL ,</p><p>　　[wxcontent] [char] (40) NULL

80、 ,</p><p>　　[wxprice] [numeric](10, 2) NULL ,</p><p>　　[wxslave] [char] (30) NULL ,</p><p>　　[wxmemo] [text] COLLATE NULL </p><p>　　) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY

81、]</p><p><b>　　GO</b></p><p>　　8.3.7 創(chuàng)建‘維修單位’數(shù)據(jù)表</p><p>　　CREATE TABLE [dbo].[repairunit] (</p><p>　　[wxunit] [varchar] (50) NOT NULL ,</p><p>

82、　　[wxaddress] [varchar] (50) NOT NULL ,</p><p>　　[wxcall] [numeric](18, 0) NULL </p><p>　　) ON [PRIMARY]</p><p><b>　　GO</b></p><p>　　8.3.8創(chuàng)建‘運營信息’數(shù)據(jù)表</p

83、><p>　　CREATE TABLE [dbo].[statistic] (</p><p>　　[yyid] [char] (10) NOT NULL ,</p><p>　　[yydriver] [char] (10) NOT NULL ,</p><p>　　[yybegin_date] [datetime] NOT NULL ,&l

84、t;/p><p>　　[yyend_date] [datetime] NOT NULL ,</p><p>　　[yydistance] [numeric](8, 2) NULL ,</p><p>　　[yywaste] [numeric](8, 2) NULL </p><p>　　) ON [PRIMARY]</p><

85、p><b>　　GO</b></p><p>　　9 主程序界面設計詳解</p><p>　　在本章中，我將詳細介紹運輸企業(yè)信息管理系統(tǒng)的界面及相關的程序，并對其功能加以描述和解釋。由于本程序主要由五大板塊構成，即系統(tǒng)管理，司機檔案管理、車輛檔案管理、運營管理、車輛管理，我將分別論述。</p><p><b>　　9.1 功能概

86、述</b></p><p><b>　　管理員登錄</b></p><p><b>　　密碼修改</b></p><p>　　司機檔案信息的添加、修改、刪除、查詢</p><p>　　車輛檔案信息的添加、修改、刪除、查詢</p><p>　　運營信息的添加、修改、

87、查詢</p><p><b>　　車輛管理的信息</b></p><p>　　9.2 功能詳細設計</p><p>　　9.2.1 登錄界面</p><p>　　用戶輸入用戶名和密碼登錄，系統(tǒng)根據(jù)不同的用戶名賦予不同的權限。</p><p><b>　　關鍵代碼：</b>&l

88、t;/p><p>　　private sub cmdok_click（）</p><p>　　Dim txtSQL As string</p><p>　　Dim mrc As ADODB.Recordset</p><p>　　Dim MsgText As string</p><p>　　UserName=＂＂<

89、/p><p>　　If trim（txtUserName.Text=＂＂）then</p><p>　　MsgBox＂沒有這個用戶，請重新輸入用戶名?。?，vbokonly＋vbexclamation,＂警告＂</p><p>　　TxtUserName.SetFocus</p><p><b>　　Else</b></

90、p><p>　　TxtSQL=＂select*form user_info where user_ID=＂＆txtUserName.Text＆＂＂</p><p>　　Set mrc=ExecuteSQL（txtSQL,MsgText）</p><p>　　If mrc.EOF=True Then</p><p>　　MsgBox＂沒有這個用戶，

91、請重新輸入用戶名?。ⅲ瑅bokonly＋vbexclamation,＂警告＂</p><p>　　TxtUserName.SetFocus</p><p><b>　　Else</b></p><p>　　If trim（mrc.Fields（1））=Trim（txtpassword.Text）Then</p><p>

92、<b>　　Ok=true</b></p><p><b>　　Mrc,Close</b></p><p><b>　　Me.Hide</b></p><p>　　UserName=Trim（textUserName.Text）</p><p><b>　　Else&

93、lt;/b></p><p>　　MsgBox＂輸入密碼不正確，請重新輸入！＂，vbokonly＋vbexclamation,＂警告＂</p><p>　　TxtPassword.SetFocus</p><p>　　TxtPassword.Text=＂＂</p><p><b>　　End if</b></

94、p><p><b>　　End if</b></p><p><b>　　End if </b></p><p>　　Micount=micount+1</p><p>　　If miCount=3 Then</p><p><b>　　Me.Hide</b>

95、;</p><p><b>　　End IF</b></p><p><b>　　Exit Sub</b></p><p><b>　　End sub</b></p><p>　　9.2.2 進入主界面</p><p>　　下圖為成功登錄后的界面：<

96、;/p><p>　　9.2.3 司機檔案管理</p><p>　　司機檔案管理模塊主要實現(xiàn)如下功能:</p><p><b>　　添加司機信息</b></p><p><b>　　修改司機信息</b></p><p><b>　　打印司機基本信息</b>&l

97、t;/p><p><b>　　查詢司機信息</b></p><p>　　一、添加司機信息窗體的創(chuàng)建</p><p>　　關鍵代碼:（見附錄一）</p><p>　　二、修改司機信息窗體</p><p>　　關鍵代碼：（見附錄二）</p><p><b>　　三、查詢窗

98、體</b></p><p><b>　　關鍵代碼：</b></p><p>　　Private Sub cmdOK_Click()</p><p>　　Dim txtSQL As String</p><p>　　If chkItem(0).Value = vbChecked Then</p>

99、<p>　　txtSQL = " sjname ='" & Trim(txtItem(0) & " ") & "'"</p><p><b>　　End If</b></p><p>　　If chkItem(1).Value = vbChecked Then

100、</p><p>　　If Trim(txtSQL & " ") = "" Then</p><p>　　txtSQL = " sjtype ='" & Trim(txtItem(1) & " ") & "'"</p><p

101、><b>　　Else</b></p><p>　　txtSQL = txtSQL & " and sjtype ='" & Trim(txtItem(1) & " ") & "'"</p><p><b>　　End If</b>&

102、lt;/p><p><b>　　End If</b></p><p><b>　　Me.Hide</b></p><p>　　If Trim(txtSQL) = "" Then</p><p>　　MsgBox "請設置查詢方式！", vbOKOnly + vbE

103、xclamation, "警告"</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　If flagdEdit Then</p><p>　　Unload frmDriver</p><p&g

104、t;<b>　　End If</b></p><p>　　frmDriver.txtSQL = "select * from driver where" & txtSQL</p><p>　　frmDriver.Show</p><p><b>　　End If</b></p>&

105、lt;p><b>　　End Sub</b></p><p>　　9.2.4 車輛檔案管理</p><p>　　車輛檔案管理模塊主要實現(xiàn)如下功能:</p><p><b>　　添加司機信息</b></p><p><b>　　修改司機信息</b></p>&

106、lt;p><b>　　打印司機基本信息</b></p><p><b>　　查詢司機信息</b></p><p>　　一、添加車輛信息窗體的創(chuàng)建</p><p>　　關鍵代碼：（見附錄三）</p><p><b>　　二、修改車輛信息</b></p><

107、;p><b>　　代碼：（見附錄四）</b></p><p>　　三、查詢車輛信息窗體</p><p><b>　　代碼：（見附錄五）</b></p><p>　　9.2.5運營業(yè)務管理</p><p>　　運營業(yè)務管理模塊主要實現(xiàn)如下功能:</p><p><b

108、>　　添加運營信息</b></p><p><b>　　修改運營信息</b></p><p><b>　　刪除運營基本信息</b></p><p><b>　　查詢運營信息</b></p><p><b>　　一、運營信息窗體</b>&l

109、t;/p><p>　　代碼：與添加司機基本信息的方法一樣，在此略過</p><p><b>　　二、修改運營信息</b></p><p>　　代碼：與修改司機的窗體類適</p><p><b>　　三、查詢運營信息</b></p><p>　　9.2.6車輛維修業(yè)務管理</

110、p><p>　　維修業(yè)務管理模塊主要實現(xiàn)如下功能:</p><p><b>　　添加維修信息</b></p><p><b>　　修改維修信息</b></p><p><b>　　刪除維修基本信息</b></p><p><b>　　查詢維修信息&

111、lt;/b></p><p>　　一、維修信息窗體的建立</p><p>　　關鍵代碼：（見附錄六）</p><p><b>　　二、修改維修信息</b></p><p>　　Public Sub RecordEdit()</p><p>　　Dim intCount As Integer&

112、lt;/p><p>　　If msgList.Rows > 1 Then</p><p>　　gintmode = EDIT</p><p>　　intCount = msgList.Row</p><p>　　gsSql = " where wxid='" & Trim(msgList.TextMatr

113、ix(msgList.Row, 1)) & "' and wxdate=cdate('" & Format(msgList.TextMatrix(msgList.Row, 2), "yyyy-mm-dd") & "')"</p><p>　　frmRepair1.Show 1</p><

114、p><b>　　ShowData</b></p><p>　　Call MovCursor(intCount, msgList)</p><p><b>　　Else</b></p><p>　　Call RecordAdd</p><p><b>　　End If</b>

115、;</p><p><b>　　End Sub</b></p><p>　　Public Sub FormClose()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p><

116、b>　　'刪除記錄</b></p><p>　　Public Sub RecordDelete()</p><p>　　Dim sSql As String</p><p>　　Dim intCount As Integer</p><p>　　On Error GoTo myErr</p><p

117、>　　If msgList.Rows > 1 Then</p><p>　　If MsgBox("真的要刪除這條文件記錄么？", vbOKCancel + vbExclamation, "警告") = vbOK Then</p><p>　　intCount = msgList.Row</p><p>　　sSql

118、 = "delete from " & msTableName & " where wxid='" & Trim(msgList.TextMatrix(msgList.Row, 1)) & "' and wxdate=cdate('" & Format(msgList.TextMatrix(msgList.Row,

119、 2), "yyyy-mm-dd") & "')"</p><p>　　dbHuaxia.Execute sSql, dbSQLPassThrough</p><p><b>　　ShowData</b></p><p>　　If msgList.Rows > 1 Then</

120、p><p>　　If intCount = msgList.Rows Then</p><p>　　MovCursor msgList.Rows - 1, msgList</p><p><b>　　Else</b></p><p>　　MovCursor intCount, msgList</p><p

121、><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　Exit Sub</

122、b></p><p><b>　　myErr:</b></p><p><b>　　ShowError</b></p><p><b>　　End Sub</b></p><p>　　Public Sub RecordRefresh()</p><p&

123、gt;<b>　　'設置msSql</b></p><p>　　msSql = msSelect & msTableName & " where wxdate>='" & Format(DateAdd("m", -1, Now), "yyyy-mm-dd") & "&#

124、39; and wxdate<='" & Format(Now, "yyyy-mm-dd") & "'" & msOrderBy</p><p><b>　　'顯示數(shù)據(jù)</b></p><p>　　msBarText = "當前數(shù)據(jù)時間范圍："

125、& Format(DateAdd("m", -1, Now), "yyyy-mm-dd") & "至" & Format(Now, "yyyy-mm-dd")</p><p>　　sOrder0 = "+ {wxdate}"</p><p>　　sOrder1 = &

126、quot;"</p><p><b>　　ShowData</b></p><p><b>　　End Sub</b></p><p>　　Public Sub RecordAdd()</p><p>　　gintmode = Add</p><p>　　frmRe

127、pair1.Show 1</p><p><b>　　ShowData</b></p><p><b>　　End Sub</b></p><p>　　Public Sub RecordFind()</p><p>　　frmRepair2.Show 1</p><p>　　

128、If Trim(frmRepair2.sQSql & " ") <> "" Then</p><p>　　msSql = msSelect & msTableName & " where" & frmRepair2.sQSql & msOrderBy</p><p><b&