【正文】 但它與一般的面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言(C++)不完全相同。在設(shè)計(jì)對(duì)象時(shí)，不必編寫(xiě)建立和描述每個(gè)對(duì)象的程序代碼，而是用工具畫(huà)在界面上，Visual Basic自動(dòng)生成對(duì)象的程序代碼并封裝起來(lái)。結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)言Visual Basic是在BASIC語(yǔ)言的基礎(chǔ)上發(fā)展起來(lái)的，具有高級(jí)程序設(shè)計(jì)語(yǔ)言的語(yǔ)句結(jié)構(gòu)，接近于自然語(yǔ)言和人類(lèi)的邏輯思維方式。Visual Basic是解釋型語(yǔ)言，在輸入代碼的同時(shí)，解釋系統(tǒng)將高級(jí)語(yǔ)言分解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令，并判斷每個(gè)語(yǔ)句的語(yǔ)法錯(cuò)誤。事件驅(qū)動(dòng)編程機(jī)制Visual Basic通過(guò)事件來(lái)執(zhí)行對(duì)象的操作。例如，命令按鈕是一個(gè)對(duì)象，當(dāng)用戶(hù)單擊該按鈕時(shí)，將產(chǎn)生一個(gè)“單擊”(CLICK)事件，而在產(chǎn)生該事件時(shí)將執(zhí)行一段程序，用來(lái)實(shí)現(xiàn)指定的操作。這些過(guò)程分別面向不同的對(duì)象，由用戶(hù)操作引發(fā)某個(gè)事件來(lái)驅(qū)動(dòng)完成某種特定的功能，或者由事件驅(qū)動(dòng)程序調(diào)用通用過(guò)程來(lái)執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。同時(shí)，Visual Basic還能直接編輯和訪(fǎng)問(wèn)其他外部數(shù)據(jù)庫(kù)，如dBASE，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫(kù)格式都可以用Visual Basic編輯和處理。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢(xún)語(yǔ)言SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪(fǎng)問(wèn)服務(wù)器上的數(shù)據(jù)庫(kù)，并提供了簡(jiǎn)單的面向?qū)ο蟮膸?kù)操作指令和多用戶(hù)數(shù)據(jù)庫(kù)訪(fǎng)問(wèn)的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的SQL的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫(kù)提供了SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶(hù)/服務(wù)器(client/server)方案。當(dāng)原始數(shù)據(jù)變化時(shí)，可以自動(dòng)更新鏈接的數(shù)據(jù)。對(duì)象的鏈接與嵌入(OLE)對(duì)象的鏈接與嵌入(OLE)將每個(gè)應(yīng)用程序都看作是一個(gè)對(duì)象(object)，將不同的對(duì)象鏈接(link)起來(lái)，再嵌入(embed)某個(gè)應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動(dòng)畫(huà)、文字等各種信息的集合式的文件。利用OLE技術(shù)，可以方便地建立復(fù)合式文檔(pound document)，這種文檔由來(lái)自多個(gè)不同應(yīng)用程序的對(duì)象組成，文檔中的每個(gè)對(duì)象都與原來(lái)的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來(lái)應(yīng)用程序完全相同的操作。但它可以通過(guò)動(dòng)態(tài)鏈接庫(kù)技術(shù)將C/C++或匯編語(yǔ)言編寫(xiě)的程序加入到Visual Basic應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語(yǔ)言編寫(xiě)的函數(shù)。第三章 系統(tǒng)設(shè)計(jì) 系統(tǒng)詳細(xì)調(diào)查（1）功能需求基于以上的開(kāi)發(fā)目標(biāo)，系統(tǒng)開(kāi)發(fā)的范圍確定如下：本系統(tǒng)只涉及車(chē)輛資料部分，包括庫(kù)存車(chē)輛、運(yùn)輸中車(chē)輛以及維護(hù)中車(chē)輛等功能；本系統(tǒng)提供強(qiáng)大的查詢(xún)功能，可進(jìn)行不同類(lèi)型查詢(xún)，提供多種索引；本系統(tǒng)提供記錄的添加，刪除和修改；本系統(tǒng)可單條或多條輸出信息。(2）數(shù)據(jù)需求通過(guò)調(diào)查和研究，本系統(tǒng)僅提供一個(gè)數(shù)據(jù)庫(kù)，但該數(shù)據(jù)庫(kù)包含各項(xiàng)所需信息，（Access表結(jié)構(gòu)）。所以編制的程序在以上環(huán)境的機(jī)器中均可順利運(yùn)行，并且本系統(tǒng)占用空間較小，主要依靠鼠標(biāo)和鍵盤(pán)進(jìn)行錄入。系統(tǒng)分析的主要成果是系統(tǒng)的邏輯模型。即在圖書(shū)管理方式和業(yè)務(wù)流程進(jìn)行認(rèn)真分析和研究的基礎(chǔ)上，排除現(xiàn)有組織機(jī)構(gòu)和業(yè)務(wù)分工所造成的信息障礙。通過(guò)對(duì)系統(tǒng)調(diào)研與分析，系統(tǒng)主要應(yīng)完成的功能如下：車(chē)輛信息的添加、刪除、修改，客戶(hù)明細(xì)資料的添加、刪除、修改，維護(hù)中車(chē)輛的添加、刪除、修改，以及按車(chē)牌號(hào)、按時(shí)間查詢(xún)等功能。系統(tǒng)功能圖如下：登錄車(chē)輛管理客戶(hù)明細(xì)車(chē)輛維護(hù)車(chē)輛信息添加車(chē)輛信息刪除車(chē)輛信息修改客戶(hù)信息添加客戶(hù)信息刪除客戶(hù)信息查詢(xún)維護(hù)信息添加維護(hù)信息修改維護(hù)信息刪除客戶(hù)信息修改維護(hù)信息查詢(xún) 系統(tǒng)ER圖車(chē)輛ID車(chē)輛牌照號(hào)貓畫(huà)號(hào)車(chē)輛名稱(chēng)車(chē)輛保險(xiǎn)時(shí)間表車(chē)輛顏色購(gòu)買(mǎi)時(shí)間車(chē)輛描述車(chē)輛信息客戶(hù)ID客戶(hù)姓名客戶(hù)電話(huà)客戶(hù)任務(wù)車(chē)輛牌照任務(wù)地點(diǎn)任務(wù)開(kāi)始時(shí)間任務(wù)結(jié)束時(shí)間客戶(hù)明細(xì)維護(hù)ID維護(hù)事項(xiàng)車(chē)輛牌照號(hào)維護(hù)日期備注車(chē)輛維護(hù)第四章 系統(tǒng)實(shí)現(xiàn) 系統(tǒng)登錄模塊：?jiǎn)?dòng)系統(tǒng)后，展示屏幕停留后顯示登錄窗體 系統(tǒng)主界模塊如下所示: 車(chē)輛信息模塊 本模塊主要是對(duì)車(chē)輛信息進(jìn)行錄入,主要含有以下信息：車(chē)輛ID、牌照號(hào)、車(chē)輛名稱(chēng)、車(chē)輛顏色、購(gòu)買(mǎi)時(shí)間、保險(xiǎn)時(shí)間、車(chē)輛描述等等主要信息,本模塊有添加,修改,：管理員車(chē)輛信息添加車(chē)輛信息修改車(chē)輛信息刪除車(chē)輛信息 本模塊界面如下所示:本模塊代碼如下：Private Sub CmdEdit_Click(Index As Integer)If Index = 0 Then If CmdEdit(0).Caption = 添加 Then = False = False = False = False ExecuteSql1 select top 1 car_ID from cars order by car_ID desc If 0 Then = car amp。 amp。 39。 vbCrLf amp。 \pics\) = True39。MsgBox 139。MsgBox 239。 MsgBox cstr((4).Value ) showdata GoTo lebal End If Wendlebal:39。 amp。 39。ExecuteSql (sql)39。ExecuteSql select * from Cars End SubPrivate Sub Timer1_Timer()If a = False Then = + 25 If = 2160 Then a = True End IfElse = 25 If = 360 Then a = False End IfEnd IfEnd Sub39。顯示記錄數(shù)據(jù)Public Function showdata()If 0 Then = (0).Value = (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = (6).ValueEnd IfEnd Function39。 Format(Val(Right((0).Value, 4)) + 1, 0) Else = client0001 End If = = = = = = Date = = = 保存 = False = False = False Exit Sub End If If = 保存 Then If checkdata = False Then Exit Sub End If If And Like Then Else MsgBox 輸入的日期格式不正確 amp。 _ 日期的格式為年月日 amp。 _ 例如20050101, vbCritical + vbOKOnly, 提示信息 = Exit SubEnd If If MsgBox(確定要保存嗎?, vbQuestion + vbYesNo, 保存) = vbYes Then Call savedata MsgBox 保存成功, , 提示信息 Call Form_Load = 添加 = True = True = True = True = True = True = True Exit Sub End IfEnd IfEnd SubPrivate Sub cmdDelete_Click()If 2 Then MsgBox 請(qǐng)選擇你要?jiǎng)h除的行！, , 提示信息 Exit Sub End If If MsgBox(你確定要?jiǎng)h除嗎？, vbYesNo + vbInformation, 刪除) = vbYes Then (adAffectCurrent) MsgBox 刪除完成, , 提示信息 End If Call Form_Load End SubPrivate Sub cmdFullshow_Click()If = 添加 Then = Call Form_Load = True = True = True = TrueElse MsgBox 請(qǐng)先完成添加任務(wù)?。。?！, , 提示信息End IfEnd SubPrivate Sub cmdqueryName_Click()Set rctlist = NothingIf = 添加 Then = False = False = False = Falsesql = select * from client where client_number like 39。 Trim() amp。order by client_idExecuteSql sql = + 1 = + 1 = 0 = 0(0) = 300 = 1 = 客戶(hù)ID(1) = 800 = flexAlignCenterCenter = 2 = 客戶(hù)名稱(chēng)(2) = 1000 = flexAlignCenterCenter = 3 = 客戶(hù)電話(huà)(3) = 1000 = flexAlignCenterCenter = 4 = 客戶(hù)任務(wù)(4) = 1000 = flexAlignCenterCenter = 5 = 牌照號(hào)碼(5) = 1000 = flexAlignCenterCenter = 6 = 任務(wù)地點(diǎn)(6) = 1000 = flexAlignCenterCenter = 7 = 任務(wù)開(kāi)始時(shí)間(7) = 1000 = flexAlignCenterCenter = 8 = 任務(wù)結(jié)束時(shí)間(8) = 1000 = flexAlignCenterCenter = 9 = 任務(wù)備注(9) = 1000 = flexAlignCenterCenterIf 1 Then