【正文】 掉線(xiàn)司機(jī)char8否掉線(xiàn)車(chē)長(zhǎng)char8否事件車(chē)站char8是事件時(shí)間datetime8是事件過(guò)程varchar500否備注varchar100是表37 車(chē)輛類(lèi)型表列名數(shù)據(jù)類(lèi)型長(zhǎng)度允許空類(lèi)型char10否表38 乘務(wù)員事故表列名數(shù)據(jù)類(lèi)型長(zhǎng)度允許空事故等級(jí)char10否司機(jī)姓名char10否車(chē)長(zhǎng)姓名char10否事故車(chē)號(hào)char8否發(fā)生事故地點(diǎn)char10否發(fā)生事故時(shí)間datetime8否發(fā)生事故經(jīng)過(guò)varchar600否處理決定varchar100否備注varchar50是表39 乘務(wù)員獎(jiǎng)勵(lì)表列名數(shù)據(jù)類(lèi)型長(zhǎng)度允許空乘務(wù)員姓名char8否駕駛證編號(hào)varchar20否所屬輪乘組char10是獎(jiǎng)勵(lì)級(jí)別char10是獎(jiǎng)勵(lì)原因varchar600否獎(jiǎng)勵(lì)金額money8否備注varchar30是表310 乘務(wù)員違章表列名數(shù)據(jù)類(lèi)型長(zhǎng)度允許空違章乘務(wù)員char8否駕駛車(chē)號(hào)char6是違章原因char30否違章地點(diǎn)char10否違章時(shí)間datetime8是檢查人員char20否處理決定varchar50否備注varchar30是表311 是否表列名數(shù)據(jù)類(lèi)型長(zhǎng)度允許空是否char10是風(fēng)行下載安裝 皮皮播放器下載 uusee網(wǎng)絡(luò)電視2010下載 MDI主窗體設(shè)計(jì) 界面介紹 本系統(tǒng)主界面圖如下：狀態(tài)欄工具欄菜單欄圖35 主界面1. 菜單編輯器1）單擊“工具”/“菜單編輯器”菜單項(xiàng)，打開(kāi)“菜單編輯器”對(duì)話(huà)框。以“車(chē)輛檔案表”為例，介紹創(chuàng)建表的過(guò)程。Persist Security Info=False就可以和管理工具中的ODBC數(shù)據(jù)源連接。6. 系統(tǒng)維護(hù)模塊 該模塊是提供對(duì)系統(tǒng)初始化、管理員設(shè)置、數(shù)據(jù)恢復(fù)、數(shù)據(jù)備份及退出進(jìn)行的操作。模塊中的程序代碼如下： Public adoCon As New Public adors As New Public Sub main() Set adoCon = New Provider=。臨修（臨修車(chē)號(hào)、司機(jī)姓名、車(chē)長(zhǎng)姓名、地勤司機(jī)、臨修日期、臨修原因、是否修復(fù)、是否扣車(chē)、備注）關(guān)鍵字為臨修車(chē)號(hào)。 為了把用戶(hù)的數(shù)據(jù)清晰明確的表達(dá)出來(lái)，通常建立一個(gè)概念型的數(shù)學(xué)模型。清空：清空乘務(wù)員違章表中的所有信息。車(chē)輛管理中包括異動(dòng)、臨修和車(chē)輛掉線(xiàn)的信息。 與Windows操作系統(tǒng)的高度集成特性216。 全面啟動(dòng)WEB特性。 事件驅(qū)動(dòng)的編程機(jī)制216。但Oracle數(shù)據(jù)庫(kù)不常見(jiàn)，通常是很大型的系統(tǒng)或者平臺(tái)才會(huì)采用。例如Access數(shù)據(jù)庫(kù)。其中：2. Visual Basic與Visual FoxPro的對(duì)比Visual FoxPro主要面向中小型的開(kāi)發(fā)，它憑借著自帶數(shù)據(jù)庫(kù)的優(yōu)勢(shì)，應(yīng)用也比較廣泛，但從程序執(zhí)行效率和通用性角度考慮，更多的人傾向于使用VB，因?yàn)橐粋€(gè)系統(tǒng)不僅僅就操縱數(shù)據(jù)庫(kù)這么簡(jiǎn)單，它還包括界面設(shè)計(jì)及其他必要信息的獲取與輸出，在這方面，VB相對(duì)占有更多的優(yōu)勢(shì)。然而使用計(jì)算機(jī)對(duì)車(chē)輛檔案信息進(jìn)行管理，有著手工管理所無(wú)法比擬的優(yōu)點(diǎn)，如：檢索迅速、查找方便、可靠性高、儲(chǔ)存量大、保密性好、壽命長(zhǎng)、成本低等，這些優(yōu)點(diǎn)能夠極大地提高車(chē)輛檔案管理的效率，也是地鐵行業(yè)或鐵路行業(yè)向科學(xué)化、正規(guī)化管理發(fā)展的必要條件，更是中國(guó)地鐵與世界接軌的重要條件。為規(guī)范企業(yè)的內(nèi)部管理，提高企業(yè)管理質(zhì)量，更好的服務(wù)與廣大乘客，有效跟蹤管理每組列車(chē)的使用狀況，帶動(dòng)企業(yè)進(jìn)入車(chē)輛管理信息化、科學(xué)化，使企業(yè)的車(chē)輛管理更加科學(xué)、更加規(guī)范。 需求分析 車(chē)輛信息管理是地鐵公司每個(gè)車(chē)輛段都必須面對(duì)的工作，特別是近兩年，隨著地鐵線(xiàn)路的擴(kuò)展，車(chē)輛不斷的增多，人員不斷的添加，從而給每個(gè)車(chē)輛段的車(chē)輛管理方面和人員管理方面都帶來(lái)不少的沖擊，特別是對(duì)于車(chē)輛段來(lái)說(shuō)，地鐵車(chē)輛管理工作是至關(guān)重要的，但是一直以來(lái)我們都在使用傳統(tǒng)的人工方式管理車(chē)輛檔案和人員檔案，這種方式存在著許多缺點(diǎn)，如：效率低、保密性差。 因此，開(kāi)發(fā)一個(gè)能夠?yàn)橛脩?hù)提供充足的信息和快捷的查詢(xún)手段的車(chē)輛管理信息系統(tǒng)，將是非常必要的，也是十分及時(shí)地。3. Visual Basic與Delphi的對(duì)比Delphi在系統(tǒng)開(kāi)發(fā)方面同樣具有快速、簡(jiǎn)單的優(yōu)勢(shì)。Access是一種關(guān)系型數(shù)據(jù)庫(kù)，利用Access系統(tǒng)開(kāi)發(fā)數(shù)據(jù)管理軟件，一般不需要寫(xiě)程序，只要根據(jù)任務(wù)提出的要求，通過(guò)鍵盤(pán)和鼠標(biāo)器，選擇必需的命令，就能夠開(kāi)發(fā)出簡(jiǎn)單、實(shí)用、美觀(guān)大方的應(yīng)用軟件，有效地處理日常數(shù)據(jù)。因?yàn)槠鋵?duì)硬件要求比較高，所以不是很常見(jiàn)，不是很實(shí)用。 易學(xué)易懂的集成開(kāi)發(fā)環(huán)境216。216。 支持XML（擴(kuò)展標(biāo)記語(yǔ)言）、支持用戶(hù)自定義函數(shù)、支持OLE DB、分布式的分區(qū)視圖等特性由于SQL Server 2000具有上述特點(diǎn)，因此在做本系統(tǒng)應(yīng)用時(shí)可以選擇其作為后臺(tái)的數(shù)據(jù)庫(kù)。其中：l 車(chē)輛臨修 添加：用于添加、修改、刪除車(chē)輛臨修信息。乘務(wù)員事故和乘務(wù)員獎(jiǎng)懲的內(nèi)容均與乘務(wù)員違章內(nèi)容相符。最常用的表示概念的數(shù)學(xué)模型的方法是實(shí)體——聯(lián)系方法（Entity Relationship Approach）。掉線(xiàn)（車(chē)號(hào)、車(chē)次、表號(hào)、廠(chǎng)修時(shí)間、架修時(shí)間、月修時(shí)間、掉線(xiàn)司機(jī)、掉線(xiàn)車(chē)長(zhǎng)、事件車(chē)站、事件時(shí)間、事件過(guò)程、備注）關(guān)鍵字為車(chē)號(hào)。Data Source= car。風(fēng)行下載安裝 皮皮播放器下載 uusee網(wǎng)絡(luò)電視2010下載 設(shè)計(jì)中遇到的問(wèn)題及解決 Server 2000數(shù)據(jù)庫(kù)連接庫(kù)連接：在“Adodc屬性”對(duì)話(huà)框中單擊[生成]按鈕，彈出“數(shù)據(jù)鏈接屬性”窗體，在提供程序中選擇“Microsoft OLE DB Provider for ODBC Drivers”提供者，然后單擊[下一步]按鈕；在“連接”選項(xiàng)卡中指定數(shù)據(jù)源（本系統(tǒng)中的數(shù)據(jù)源為“car” ），設(shè)置完成后單擊[測(cè)試連接]按鈕，提示成功后單擊[確定]按鈕。由于car數(shù)據(jù)源中默認(rèn)數(shù)據(jù)庫(kù)為car，所以也就等于和SQL Server 2000中的car數(shù)據(jù)庫(kù)連接。2) 展開(kāi)要?jiǎng)?chuàng)建表的系統(tǒng)數(shù)據(jù)庫(kù)“car”，單擊“表”選項(xiàng)。2）在菜單編輯器窗口中，“標(biāo)題”文本框用于設(shè)置菜單項(xiàng)的標(biāo)題，它對(duì)應(yīng)著菜單的caption屬性?！?〕 向ImageList空間中添加圖像l 在窗體上添加一個(gè)ImageList控件。〔3〕 創(chuàng)建并設(shè)計(jì)工具欄。1. 窗體界面設(shè)計(jì)新建一窗體，設(shè)置該窗體的名稱(chēng)為“frmchelu”，Caption屬性為“車(chē)輛檔案錄入窗體”，BorderStyle屬性為“1Fixed Single”，MDIChild的屬性為“True”。所以在本系統(tǒng)中添加了DTPicker控件，由于該控件屬于ActiveX控件，在“部件”對(duì)話(huà)框中勾選“Microsoft Windows Common Controls2 （SP4）”選項(xiàng)，然后單擊[確定]按鈕。在【添加】按鈕的Click事件下添加代碼如下： Private Sub Command1_Click()Unlockctl Text1 = : Text2 = : Text3 = : Text4 = : = DK16 = 是 = True: = True = False: = False = False: = True i = 1End Sub（6）在【修改】按鈕的Click事件下添加代碼如下：Private Sub Command2_Click() Unlockctl i = 2 = True: = True = False: = False = False: = FalseEnd Sub（7）使用Delete語(yǔ)句刪除車(chē)輛信息。 amp。 Combo1 amp。 amp。 Combo2 amp。 Combo1 amp。 amp。 Combo2 amp。 Text1 amp。在窗體上添加1個(gè)ADO控件，默認(rèn)名為“Adodc1”。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。選擇“系統(tǒng)DSN”選項(xiàng)卡，然后單擊“添加”按鈕。若要修改該數(shù)據(jù)源，單擊該數(shù)據(jù)源，然后單擊“配置”按鈕，若要?jiǎng)h除該數(shù)據(jù)源，單擊該數(shù)據(jù)源，然后單擊“刪除”按鈕。[確定]，關(guān)閉[工程屬性]對(duì)話(huà)框，再在[制作 ]對(duì)話(huà)框中選取[確定]，編譯和連接該執(zhí)行文件。“壓縮文件選項(xiàng)”對(duì)話(huà)框中，選擇創(chuàng)建一個(gè)的大的或多個(gè)壓縮文件的包，單擊“下一步”。 amp。 問(wèn)題二當(dāng)點(diǎn)擊查詢(xún)窗體時(shí)，體統(tǒng)會(huì)出現(xiàn)“編譯錯(cuò)誤。超級(jí)管理員39。 這樣一來(lái)，保證了開(kāi)發(fā)者在用戶(hù)表中永遠(yuǎn)有一條記錄，用戶(hù)可以通過(guò)這條原始記錄進(jìn)入系統(tǒng)。蘇明老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我受益匪淺。 If 0 Then On Error Resume Next 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。另外，在系統(tǒng)開(kāi)發(fā)過(guò)程中還有各位同學(xué)們同樣給與我不少幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)開(kāi)發(fā)完成，這里一并表示感謝！參 考 文 獻(xiàn)[1] Basic ，2001年2月出版 [2] ，2004年1月出版 [3] 郭瑞軍、唐邦民、謝晗昕 Basic 數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例精粹. ，2005年1月出版 [4] 塞奎春、高春艷、李俊民、 Basic 信息系統(tǒng)開(kāi)發(fā)實(shí)例精選.，2005年7月出版[5] 劉瑞新、張二峰、齊暉、 Basic 管理信息系統(tǒng)開(kāi)發(fā).，2005年3月出版[6] 明日科技、高春艷、李俊民、劉彬彬. Visual Basic ，2006年7月[7] 徐孝凱 . 中央廣播電視大學(xué)出版，2003年7月出版[8] , .Visual Basic 、2000年7月第三次出版[9] (英） Server ,2006.[10] Server 2005. ,2008.[11] Server 2005開(kāi)發(fā)者指南. ,2008.附 錄： Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 1 Call mnuchelu_Click Case 2 Call mnuyitian_Click Case 4 Call mnurenlu_Click Case 5 Call mnuweitian_Click Case 11 Call mnuExit_Click End SelectEnd SubPrivate Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As ) Select Case Case 1 Call mnuchecha_Click Case 2 Call mnurencha_Click Case 4 Call mnuyicha_Click Case 5 Call mnulincha_Click Case 6 Call mnudiaocha_Click Case 8 Call mnuweicha_Click Case 9 Call mnushicha_Click Case 10 Call mnujiangcha_Click End SelectEnd Sub：Dim i As IntegerPrivate Sub Lockctl() = False: = False: = False = False: = False: = False = False: = False: = False = False: = False: = False = False: = FalseEnd SubPrivate Sub Unlockctl() = True: = True: = True = True: = True: = True = True: = True: = True = Tr