【正文】 l Basic是一種高級(jí)程序設(shè)計(jì)語言，不具備低級(jí)語言的功能，對訪問機(jī)器硬件的操作不太容易實(shí)現(xiàn)。但它可以通過動(dòng)態(tài)鏈接庫技術(shù)將C/C++或匯編語言編寫的程序加入到Visual Basic應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。此外，通過動(dòng)態(tài)鏈接庫，還可以調(diào)用Windows應(yīng)用程序接口(API)函數(shù)，實(shí)現(xiàn)SDK所具有的功能。第三章 系統(tǒng)設(shè)計(jì) 系統(tǒng)詳細(xì)調(diào)查（1）功能需求基于以上的開發(fā)目標(biāo)，系統(tǒng)開發(fā)的范圍確定如下：本系統(tǒng)只涉及車輛資料部分，包括庫存車輛、運(yùn)輸中車輛以及維護(hù)中車輛等功能；本系統(tǒng)提供強(qiáng)大的查詢功能，可進(jìn)行不同類型查詢，提供多種索引；本系統(tǒng)提供記錄的添加，刪除和修改；本系統(tǒng)可單條或多條輸出信息。根據(jù)車輛管理的需要，開發(fā)一個(gè)“車輛管理系統(tǒng)”，應(yīng)能實(shí)現(xiàn)的功能如下：①. 能夠?qū)λ熊囕v基本信息進(jìn)行維護(hù)、查詢，②. 能夠?qū)μ幱谌蝿?wù)狀態(tài)（使用中）的車輛信息進(jìn)行維護(hù)、查詢③．能夠?qū)μ幱诰S護(hù)中車輛信息進(jìn)行維護(hù)、查詢。(2）數(shù)據(jù)需求通過調(diào)查和研究，本系統(tǒng)僅提供一個(gè)數(shù)據(jù)庫，但該數(shù)據(jù)庫包含各項(xiàng)所需信息，（Access表結(jié)構(gòu)）。（3）運(yùn)行環(huán)境大多數(shù)單位，對計(jì)算機(jī)的要求并不高，所以計(jì)算機(jī)的配置約為普通配置，DDR256M內(nèi)存，17英寸純平顯示器，80G硬盤，標(biāo)準(zhǔn)鍵盤和鼠標(biāo)， Windows 98/xp/me/2000操作系統(tǒng)等。，所以編制的程序在以上環(huán)境的機(jī)器中均可順利運(yùn)行，并且本系統(tǒng)占用空間較小，主要依靠鼠標(biāo)和鍵盤進(jìn)行錄入。詳細(xì)調(diào)查的重點(diǎn)是對管理業(yè)務(wù)的流程進(jìn)行描述，通過采用系統(tǒng)流程圖中部分圖工具來描述管理活動(dòng)，進(jìn)行規(guī)范化說明。系統(tǒng)分析的主要成果是系統(tǒng)的邏輯模型。本系統(tǒng)的邏輯模型主要是以系統(tǒng)的數(shù)據(jù)流圖和數(shù)據(jù)字典為主要描述工具。即在圖書管理方式和業(yè)務(wù)流程進(jìn)行認(rèn)真分析和研究的基礎(chǔ)上，排除現(xiàn)有組織機(jī)構(gòu)和業(yè)務(wù)分工所造成的信息障礙。完全從業(yè)務(wù)管理功能和管理對象出發(fā)，按照信息系統(tǒng)中應(yīng)有的數(shù)據(jù)流和數(shù)據(jù)結(jié)構(gòu)來勾畫系統(tǒng)的概貌（1）.系統(tǒng)方案確定。通過對系統(tǒng)調(diào)研與分析，系統(tǒng)主要應(yīng)完成的功能如下：車輛信息的添加、刪除、修改，客戶明細(xì)資料的添加、刪除、修改，維護(hù)中車輛的添加、刪除、修改，以及按車牌號(hào)、按時(shí)間查詢等功能。（2）.軟件結(jié)構(gòu)設(shè)計(jì)。系統(tǒng)功能圖如下：登錄車輛管理客戶明細(xì)車輛維護(hù)車輛信息添加車輛信息刪除車輛信息修改客戶信息添加客戶信息刪除客戶信息查詢維護(hù)信息添加維護(hù)信息修改維護(hù)信息刪除客戶信息修改維護(hù)信息查詢 系統(tǒng)ER圖車輛ID車輛牌照號(hào)貓畫號(hào)車輛名稱車輛保險(xiǎn)時(shí)間表車輛顏色購買時(shí)間車輛描述車輛信息客戶ID客戶姓名客戶電話客戶任務(wù)車輛牌照任務(wù)地點(diǎn)任務(wù)開始時(shí)間任務(wù)結(jié)束時(shí)間客戶明細(xì)維護(hù)ID維護(hù)事項(xiàng)車輛牌照號(hào)維護(hù)日期備注車輛維護(hù)第四章 系統(tǒng)實(shí)現(xiàn) 系統(tǒng)登錄模塊：啟動(dòng)系統(tǒng)后，展示屏幕停留后顯示登錄窗體 系統(tǒng)主界模塊如下所示: 車輛信息模塊 本模塊主要是對車輛信息進(jìn)行錄入,主要含有以下信息：車輛ID、牌照號(hào)、車輛名稱、車輛顏色、購買時(shí)間、保險(xiǎn)時(shí)間、車輛描述等等主要信息,本模塊有添加,修改,：管理員車輛信息添加車輛信息修改車輛信息刪除車輛信息 本模塊界面如下所示:本模塊代碼如下：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。 Format(Val(Right((0).Value, 3)) + 1, 0) Else = car001 End If = = = = = = CmdEdit(0).Caption = 保存 CmdEdit(1).Enabled = False CmdEdit(2).Enabled = False = False Exit Sub End If If CmdEdit(0).Caption = 保存 Then On Error GoTo err2 If checkdata = False Then Exit Sub End If ExecuteSql1 select * from cars where car_number=39。 amp。 Trim() amp。 39。 If 0 Then MsgBox 牌照不可能一樣！請重新輸入?。?！, vbInformation, 提示 = Exit Sub End If If MsgBox(確定要保存嗎?, vbQuestion + vbYesNo, 保存) = vbYes Then Call savedata MsgBox 保存成功, , 提示信息 Call Form_Load CmdEdit(0).Caption = 添加 CmdEdit(1).Enabled = True CmdEdit(2).Enabled = True = True = True = True = True = True Exit Sub End Iferr2: MsgBox 日期的格式不對?。?！ amp。 vbCrLf amp。 日期的格式為年月日, , 提示信息 (adAffectCurrent) txtBuyDate = Exit Sub End IfElseIf Index = 1 ThenIf 1 Then MsgBox 沒有要修改的內(nèi)容，請?zhí)砑有聝?nèi)容！?。。? vbInformation, 提示信息 Exit Sub End If If MsgBox(確定要修改嗎??！, vbQuestion + vbYesNo, 修改) = vbYes Then If checkdata = True Then Call savedata MsgBox 修改成功, , 提示信息 Call Form_Load End If End IfElseIf Index = 2 ThenIf txtid = Then MsgBox 請選擇你要?jiǎng)h除的行！, , 提示信息 Exit Sub End If If MsgBox(你確定要?jiǎng)h除嗎？, vbYesNo + vbInformation, 提示信息) = vbYes Then (adAffectCurrent) MsgBox 刪除完成, , 提示信息 Call Form_Load End IfEnd IfEnd SubPrivate Sub Cmdfirst_Click()If 0 Then showdataEnd IfEnd SubPrivate Sub cmdlast_Click()If 0 Then showdataEnd IfEnd SubPrivate Sub cmdnext_Click()If 0 Then If = True Then MsgBox 已經(jīng)到記錄末尾！, , 提示信息 End If showdataEnd IfEnd SubPrivate Sub CmdPrevious_Click()If 0 Then If = True Then MsgBox 已經(jīng)到記錄頭！, , 提示信息 End If showdataEnd IfEnd SubPrivate Sub Form_Load()ConnectToServerfilldataIf 0 ThenshowdataElse = = = = = = = End If = LoadPicture( amp。 \pics\) = True39。If ConnectToServer = True And ExecuteSql(sql) = True Then39。MsgBox 139。Else39。MsgBox 239。End IfEnd SubPrivate Sub Grdtab_Click() = 4orientation = If 1 Then = False Exit SubEnd IfDim sql As StringWhile = False If (3).Value = orientation Then39。 MsgBox cstr((4).Value ) showdata GoTo lebal End If Wendlebal:39。sql = select * from Cars where Car_number=39。 amp。 orientation amp。 39。39。ExecuteSql (sql)39。 = CStr((0).Value)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。往msflexgrid填數(shù)據(jù)Private Sub filldata()sql