【正文】 鐵行業(yè)或鐵路行業(yè)向科學(xué)化、正規(guī)化管理發(fā)展的必要條件，更是中國地鐵與世界接軌的重要條件。借此機(jī)會(huì)利用已經(jīng)掌握的各種專業(yè)知識(shí)，結(jié)合實(shí)際應(yīng)用，開發(fā)一個(gè)車輛管理信息系統(tǒng)來幫助各車輛段進(jìn)行有效的管理，并可將其作為畢業(yè)設(shè)計(jì)課題。對(duì)于開發(fā)工具而言，能夠編制Windows應(yīng)用程序的可視化編程工具還有很多，所針對(duì)的編程領(lǐng)域也各有側(cè)重，就微軟系列的可視化開發(fā)工具而言，就有VB，Visual C++, Visual J++, Visual Foxpro等，1. Visual Basic與Visual C++的對(duì)比VB與其家族中的老大VC相比，總體差距確實(shí)很明顯。VB在這方面所具備的優(yōu)勢就是快速、簡單、和功能完備。其中：2. Visual Basic與Visual FoxPro的對(duì)比Visual FoxPro主要面向中小型的開發(fā)，它憑借著自帶數(shù)據(jù)庫的優(yōu)勢，應(yīng)用也比較廣泛，但從程序執(zhí)行效率和通用性角度考慮，更多的人傾向于使用VB，因?yàn)橐粋€(gè)系統(tǒng)不僅僅就操縱數(shù)據(jù)庫這么簡單，它還包括界面設(shè)計(jì)及其他必要信息的獲取與輸出，在這方面，VB相對(duì)占有更多的優(yōu)勢。而且Delphi的編輯器是公認(rèn)最強(qiáng)的，至少強(qiáng)于VB，在做界面與其它控制方面，也似乎要超過VB?？傊甐B更大眾化一些，更易于學(xué)習(xí)，而Delphi更為嚴(yán)謹(jǐn)，適合開發(fā)更大或要求更高的管理信息系統(tǒng)。 后臺(tái)數(shù)據(jù)庫的對(duì)比后臺(tái)數(shù)據(jù)庫平臺(tái)的選用，主要從管理者的角度來綜合權(quán)衡，包括安全性、數(shù)據(jù)訪問機(jī)制、管理的靈活性等，目前主要的數(shù)據(jù)庫有：FoxPro、Access、Excel、Oracle、Sybase、Informix、SQL Server等，其中網(wǎng)絡(luò)型的Oracl、Sybase 、SQL Server產(chǎn)品安全性遠(yuǎn)遠(yuǎn)高于桌面型的：FoxPro、Access、Excel等數(shù)據(jù)庫。例如Access數(shù)據(jù)庫。Access有存儲(chǔ)文件單一（所有形式的相關(guān)數(shù)據(jù)都包含在一個(gè)以 .mdb為后綴名的數(shù)據(jù)庫文件中），支持長文件名，便于標(biāo)識(shí)與查找，面向?qū)ο蟮拈_發(fā)方式（開發(fā)應(yīng)用程序簡便），處理多種數(shù)據(jù)信息，界面友好、工作方式靈活（直接操作與應(yīng)用程序操作），強(qiáng)大的網(wǎng)絡(luò)功能（Assess數(shù)據(jù)可通過Internet傳送）。如：不能轉(zhuǎn)換為EXE文件，不能脫離Access運(yùn)行，與其他解釋性開發(fā)語言一樣，運(yùn)行效率較慢，作為后臺(tái)數(shù)據(jù)庫使用時(shí)數(shù)據(jù)安全性能差，多人同時(shí)訪問時(shí)就能導(dǎo)致MDB文件損壞或者并死。例如Oracl數(shù)據(jù)庫。但Oracle數(shù)據(jù)庫不常見，通常是很大型的系統(tǒng)或者平臺(tái)才會(huì)采用。另外在Oracle數(shù)據(jù)倉庫解決方案實(shí)施過程中，通常把匯總數(shù)據(jù)存儲(chǔ)在Express多維數(shù)據(jù)庫中，而將詳細(xì)數(shù)據(jù)存儲(chǔ)在Oracle關(guān)系數(shù)據(jù)庫中，當(dāng)需要詳細(xì)數(shù)據(jù)時(shí)，Express但目前的Express還不夠靈活，數(shù)據(jù)倉庫設(shè)計(jì)的一個(gè)變化往往導(dǎo)致數(shù)據(jù)庫的重構(gòu)。Visual Basic ：216。 事件驅(qū)動(dòng)的編程機(jī)制216。 結(jié)構(gòu)化的程序設(shè)計(jì)語言216。 支持用戶開發(fā)的ActiveX控件216。 完備的Help聯(lián)機(jī)幫助功能由于Visual Basic ，所以把Visual Basic 。 全面啟動(dòng)WEB特性。 集成的和可擴(kuò)展的分析服務(wù)216。 簡化的TSQL(事物處理－SQL)開發(fā)和調(diào)用216。 自動(dòng)實(shí)現(xiàn)數(shù)據(jù)庫的并發(fā)控制216。 與Windows操作系統(tǒng)的高度集成特性216。 第 2 章 系統(tǒng)設(shè)計(jì) 功能結(jié)構(gòu)圖如下：車輛檔案管理車輛檔案查詢車輛檔案錄入乘務(wù)員檔案管理乘務(wù)員檔案錄入乘務(wù)員檔案查詢車輛檔案修改乘務(wù)員檔案刪除車輛檔案刪除乘務(wù)員檔案修改車輛檔案列表乘務(wù)員檔案列表乘務(wù)員管理車輛管理掉 線事 故違 章獎(jiǎng) 勵(lì)系統(tǒng)維護(hù)數(shù)據(jù)恢復(fù)管理員設(shè)置查 詢添 加系統(tǒng)初始化清 空清 空臨 修異 動(dòng)添 加查 詢添 加查 詢清 空添 加查 詢清 空查 詢添 加清 空查 詢清 空添 加打 印退 出數(shù)據(jù)備份地鐵車輛管理信息系統(tǒng)圖21 地鐵車輛管理信息系統(tǒng)功能結(jié)構(gòu)圖l 車輛檔案 錄入：用于添加、修改、刪除車輛檔案信息。 清空：用于清空車輛檔案表中的所有信息。 查詢：查詢符合乘務(wù)員查詢條件的乘務(wù)員檔案信息。車輛管理中包括異動(dòng)、臨修和車輛掉線的信息。 查詢：查詢符合條件的車輛臨修信息。車輛異動(dòng)和車輛掉線的內(nèi)容均與車輛臨修相符，就不再一一介紹了。其中：l 乘務(wù)員違章 添加：用于添加、修改、刪除乘務(wù)員違章信息。清空：清空乘務(wù)員違章表中的所有信息。系統(tǒng)維護(hù)中包括系統(tǒng)初始化、管理員設(shè)置、數(shù)據(jù)恢復(fù)、數(shù)據(jù)備份。l 管理員設(shè)置：只有管理員才有權(quán)限做任何清空處理。 數(shù)據(jù)庫存儲(chǔ)設(shè)計(jì) 根據(jù)用戶的需求和車輛管理及人員管理數(shù)據(jù)流量的大小，同時(shí)結(jié)合SQL Server 2000數(shù)據(jù)庫的靈活性和可擴(kuò)展的數(shù)據(jù)轉(zhuǎn)換和與Windows操作系統(tǒng)的高度集成特性等優(yōu)點(diǎn)，在地鐵車輛管理信息系統(tǒng)中使用了SQL Server 2000數(shù)據(jù)庫為后臺(tái)數(shù)據(jù)庫。 為了把用戶的數(shù)據(jù)清晰明確的表達(dá)出來，通常建立一個(gè)概念型的數(shù)學(xué)模型。這種方法又稱為ER模型。它們的實(shí)體如下圖：車 輛車號(hào)類型所屬單位來段時(shí)間圖22 車輛實(shí)體圖乘務(wù)員姓名性別聯(lián)系電話駕駛車號(hào)技術(shù)級(jí)別駕齡出生年月所屬車輛段圖23 乘務(wù)員實(shí)體圖車輛異動(dòng)車號(hào)車次發(fā)現(xiàn)者異動(dòng)現(xiàn)象修復(fù)地點(diǎn)修復(fù)時(shí)間圖24 車輛異動(dòng)實(shí)體圖乘務(wù)員事故事故等級(jí)姓名車號(hào)事故發(fā)生經(jīng)過事故發(fā)生時(shí)間事故發(fā)生地點(diǎn)圖25 乘務(wù)員事故實(shí)體圖 關(guān)系描述的設(shè)計(jì)根據(jù)以上實(shí)體圖，經(jīng)過轉(zhuǎn)換，可以導(dǎo)出各個(gè)關(guān)系。根據(jù)規(guī)則直接給出所有關(guān)系。臨修（臨修車號(hào)、司機(jī)姓名、車長姓名、地勤司機(jī)、臨修日期、臨修原因、是否修復(fù)、是否扣車、備注）關(guān)鍵字為臨修車號(hào)。乘務(wù)員（駕駛員編號(hào)、駕駛證編號(hào)、乘務(wù)員姓名、性別、出生年月、家庭住址、技術(shù)級(jí)別、參加工作時(shí)間、聯(lián)系電話、司機(jī)駕齡、運(yùn)行安全公里、發(fā)證日期、所屬車輛段、備注）關(guān)鍵字為駕駛證編號(hào)。違章（違章乘務(wù)員、駕駛車號(hào)、違章原因、違章地點(diǎn)、違章時(shí)間、檢查人員、處理決定、備注）關(guān)鍵字為違章乘務(wù)員。 在考慮系統(tǒng)安全的前提下，需要增加用戶關(guān)系和使用關(guān)系，其關(guān)系模式如下： 用戶（用戶姓名、用戶密碼、用戶類型）關(guān)鍵字為用戶姓名。模塊中的程序代碼如下： Public adoCon As New Public adors As New Public Sub main() Set adoCon = New Provider=。Persist Security Info=False End Sub 系統(tǒng)模塊設(shè)計(jì)主界面車輛檔案管 理乘務(wù)員檔案管理車輛管 理駕駛員管理系統(tǒng)維 護(hù)圖26 軟件系統(tǒng)模塊結(jié)構(gòu)圖1. 主界面模塊：該模塊提供管理系統(tǒng)的主界面，是主系統(tǒng)的唯一出口。2. 車輛檔案管理模塊該模塊是提供所有車輛檔案的界面。4. 車輛管理模塊該模塊是提供對(duì)車輛異動(dòng)、車輛臨修、車輛掉線進(jìn)行的更改、刪除和添加的界面。6. 系統(tǒng)維護(hù)模塊 該模塊是提供對(duì)系統(tǒng)初始化、管理員設(shè)置、數(shù)據(jù)恢復(fù)、數(shù)據(jù)備份及退出進(jìn)行的操作。則數(shù)據(jù)源連接成功。則‘車輛檔案表’連接成功。代碼如下列所示： On Error Resume Next Call Rebind Set adors = (select distinct 車號(hào) from 車輛檔案表) On Error Resume Next Do (0) Loop Until 如何使用Connection對(duì)象連接SQL Server數(shù)據(jù)庫1. 在使用Connection對(duì)象連接數(shù)據(jù)庫之前，應(yīng)先聲明該對(duì)象，在本系統(tǒng)中的聲明對(duì)象是：Public adoCon As New 2. Provider=。Persist Security Info=False就可以和管理工具中的ODBC數(shù)據(jù)源連接。第 3 章 系統(tǒng)的實(shí)現(xiàn) 數(shù)據(jù)存儲(chǔ)的實(shí)現(xiàn) 創(chuàng)建數(shù)據(jù)庫 Server 2000的企業(yè)管理器，單擊并逐級(jí)展開當(dāng)前服務(wù)器，在“數(shù)據(jù)庫”目錄上單擊右鍵，選擇“新建數(shù)據(jù)庫”命令。如圖32 創(chuàng)建數(shù)據(jù)庫2 所示:圖32 創(chuàng)建數(shù)據(jù)庫2,更改數(shù)據(jù)庫文件路徑。如圖34 創(chuàng)建數(shù)據(jù)庫4 所示:圖34 創(chuàng)建數(shù)據(jù)庫45. 點(diǎn)擊“確定按鈕”創(chuàng)建數(shù)據(jù)庫完成。以“車輛檔案表”為例，介紹創(chuàng)建表的過程。3) 單擊鼠標(biāo)右鍵，在出現(xiàn)的快捷菜單中選擇“新建表”選項(xiàng)。5) 選擇適當(dāng)?shù)臄?shù)據(jù)類型，并設(shè)置長度。7) 輸入完成所有的字段名，單擊“保存”圖標(biāo)，將彈出“選擇名稱”對(duì)話框。 數(shù)據(jù)表結(jié)構(gòu)表31 用戶表列名數(shù)據(jù)類型長度允許空用戶姓名char20 否用戶密碼char10 是用戶類型char10 否表32 車輛檔案表列名數(shù)據(jù)類型長度允許空車號(hào)char10否車輛類型char10 否車輛所在單位char30是購置日期datetime8否來段時(shí)間datetime8是異動(dòng)否char6是備注varchar100是表33 乘務(wù)員檔案表列名數(shù)據(jù)類型長度允許空駕駛員編號(hào)varchar20否駕駛證編號(hào)varchar20否乘務(wù)員姓名char8否性別char2否出生年月datetime8否家庭住址char40是聯(lián)系電話bigint15是技術(shù)級(jí)別char6否參加工作時(shí)間datetime8是駕齡char10是運(yùn)行安全公里varchar10是發(fā)證日期datetime8是所屬車輛段char20是備注varchar100是表34 車輛臨修表列名數(shù)據(jù)類型長度允許空臨修車號(hào)char10否司機(jī)姓名char8否車長姓名char8否地勤司機(jī)char8否臨修日期datetime8否臨修原因varchar100否是否修復(fù)char4是是否扣車char4否備注varchar100是表35 車輛異動(dòng)表列名數(shù)據(jù)類型長度允許空異動(dòng)車號(hào)char10否車次char6是首先發(fā)現(xiàn)者char20否發(fā)現(xiàn)異動(dòng)時(shí)間datetime8是發(fā)現(xiàn)異動(dòng)地點(diǎn)char10是修復(fù)時(shí)間datetime8是修復(fù)地點(diǎn)char10是表36 乘務(wù)員檔案表列名數(shù)據(jù)類型長度允許空車號(hào)char10否車次char6否表號(hào)char6否廠修時(shí)間datetime8是架修時(shí)間datetime8是月修時(shí)間datetime8是掉線司機(jī)char8否掉線車長char8否事件車站char8是事件時(shí)間datetime8是事件過程varchar500否備注varchar100是表37 車輛類型表列名數(shù)據(jù)類型長度允許空類型char10否表38 乘務(wù)員事故表列名數(shù)據(jù)類型長度允許空事故等級(jí)char10否司機(jī)姓名char10否車長姓名char10否事故車號(hào)char8否發(fā)生事故地點(diǎn)char10否發(fā)生事故時(shí)間datetime8否發(fā)生事故經(jīng)過varchar600否處理決定varchar100否備注varchar50是表39 乘務(wù)員獎(jiǎng)勵(lì)表列名數(shù)據(jù)類型長度允許空乘務(wù)員姓名char8否駕駛證編號(hào)varchar20否所屬輪乘組char10是獎(jiǎng)勵(lì)級(jí)別char10是獎(jiǎng)勵(lì)原因varchar600否獎(jiǎng)勵(lì)金額money8否備注varchar30是表310 乘務(wù)員違章表列名數(shù)據(jù)類型長度允許空違章乘務(wù)員char8否駕駛車號(hào)char6是違章原因char30否違章地點(diǎn)char10否違章時(shí)間datetime8是檢查人員char20否處理決定varchar50否備注varchar30是表311 是否表列名數(shù)據(jù)類型長度允許空是否char10是 MDI主窗體設(shè)計(jì) 界面介紹 本系統(tǒng)主界面圖如下：狀態(tài)欄工具欄菜單欄圖35 主界面1. 菜單編輯器1）單擊“工具”/“菜單編輯器”菜單項(xiàng)，打開“菜單編輯器”對(duì)話框。3）“名稱”文本框用于設(shè)置菜單