【正文】 txtId = = = = = = = Date = = MsgBox 沒有找到你要找的信息, , 提示信息 Exit SubEnd IfDim i As IntegerDim j As IntegerOn Error Resume NextFor i = 1 To 1 = i For j = 1 To 1 = j = Trim((j 1)) Next j Next iElse MsgBox 請先完成添加任務(wù)?。。?！, , 提示信息 End IfEnd SubPrivate Sub cmdqueryNum_Click()If = 添加 Then = = False = False = False = Falsesql = select * from client where client_number like 39。 %39。 \pics\)End Sub 車輛維護(hù)模塊管理員車輛維護(hù)添加維護(hù)車輛信息修改維護(hù)車輛信息刪除維護(hù)車輛信息查詢維護(hù)車輛信息 本模塊主要是對維護(hù)中車輛信息的進(jìn)行錄入,主要含有以下信息：維護(hù)ID、維護(hù)事項(xiàng)、牌照號、維護(hù)日期，備注等等主要信息,本模塊有添加,修改,修改，查詢功能. 本模塊界面如下所示: 本模塊代碼如下：Private Sub cmdAdd_Click()If = 添加 Then = False = False = False = False ExecuteSql1 select top 1 mt_ID from Maintenance order by mt_ID desc If 0 Then = MT amp。 Trim() Else MsgBox 輸入的日期格式不正確 amp。 _ 日期的格式為年月日 amp。 _ 例如20050101, vbCritical + vbOKOnly, 提示信息 = Exit SubEnd IfDim sql As Stringsql = select * from Maintenance where mt_date= amp。 order by mt_idExecuteSql sql = + 1 = + 1 = 0 = 0(0) = 300 = 1 = 維護(hù)ID(1) = 800 = flexAlignCenterCenter = 2 = 維護(hù)車輛牌照號(2) = 1800 = flexAlignCenterCenter = 3 = 維護(hù)事項(xiàng)(3) = 1000 = flexAlignCenterCenter = 4 = 維護(hù)時間(4) = 1000 = flexAlignCenterCenter = 5 = 備注(5) = 1000 = flexAlignCenterCenterIf 1 Then = = = = Date = MsgBox 沒有找到你要找的信息, , 提示信息 Exit SubEnd IfDim i As IntegerDim j As IntegerOn Error Resume NextFor i = 1 To 1 = i For j = 1 To 1 = j = Trim((j 1)) Next j Next iElse MsgBox 查詢內(nèi)容不能為空, , 提示信息 End If Exit SubElse MsgBox 請先完成添加任務(wù)！??！, , 提示信息End IfEnd SubPrivate Sub cmdqueryNum_Click()If = 添加 Then = = False = False = False = FalseDim sql As Stringsql = select * from Maintenance where mt_number like 39。 Trim() amp。order by mt_idExecuteSql sql = + 1 = + 1 = 0 = 0(0) = 300 = 1 = 維護(hù)ID(1) = 800 = flexAlignCenterCenter = 2 = 維護(hù)車輛牌照號(2) = 1800 = flexAlignCenterCenter = 3 = 維護(hù)事項(xiàng)(3) = 1000 = flexAlignCenterCenter = 4 = 維護(hù)時間(4) = 1000 = flexAlignCenterCenter = 5 = 備注(5) = 1000 = flexAlignCenterCenterIf 1 Then = = = = Date = MsgBox 沒有找到你要找的信息, , 提示信息 Exit SubEnd IfDim i As IntegerDim j As IntegerOn Error Resume NextFor i = 1 To 1 = i For j = 1 To 1 = j = Trim((j 1)) Next j Next iElse MsgBox 請先完成添加任務(wù)?。。? , 提示信息End IfEnd SubPrivate Sub cmdSave_Click()If 1 Then MsgBox 沒有要修改的內(nèi)容，請“按添加按鈕”添加新內(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 IfEnd SubPrivate Sub Form_Load()ConnectToServerfilldataIf 0 Then showdataElse = = = = Date = End If = LoadPicture( amp。 \pics\) = LoadPicture( amp。 MsgBox cstr((4).Value ) showdata GoTo lebal End If Wendlebal:End SubPrivate Sub Timer1_Timer()If a = False Then = + 20If = 4800 Then a = TrueEnd IfElse = 20If = 2760 Thena = FalseEnd 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 SubFunction checkdata() As Boolean If = Then MsgBox 請輸入車牌號!, vbInformation + vbOKOnly, 提示 Exit Function End If If = Then MsgBox 請輸入維護(hù)事項(xiàng)!, vbInformation + vbOKOnly, 提示 Exit Function End If checkdata = TrueEnd Function39。顯示記錄數(shù)據(jù)Public Function showdata()On Error Resume NextIf 0 Then = (0).Value = (1).Value = (2).Value = (3).Value = (4).ValueEnd IfEnd Function39。1 、車輛信息模塊測試，以car00car002為列來進(jìn)行測試，以上是車輛信息表中原始的數(shù)據(jù)，如下圖所示：以下為修改后的結(jié)果，測試結(jié)果表明，此模塊可以按照要求進(jìn)行修改。如下圖所示：通過對系統(tǒng)中幾個主要模塊測試后，各項(xiàng)測試結(jié)果表明，系統(tǒng)可以按照要求進(jìn)行添加，修改刪除信息，證明系統(tǒng)是穩(wěn)定的。在系統(tǒng)的開發(fā)過程中，以前學(xué)習(xí)感到很抽象的課程，如軟件工程、數(shù)據(jù)庫原理、面向?qū)ο蟪绦蛟O(shè)等變得清晰起來。以前做一些應(yīng)用的系統(tǒng)開發(fā)，隨意性大，想到那里做到那里，沒有統(tǒng)一的規(guī)劃，一旦系統(tǒng)成型，出現(xiàn)錯誤返工修改工作量大，最終的系統(tǒng)可靠性不高。這次的畢業(yè)設(shè)計開發(fā)，主要有以下幾點(diǎn)收獲：1．對原型化的系統(tǒng)開發(fā)方法有了一定的了解。對于后期的系統(tǒng)維護(hù)也提供了很大的幫助。為以后的工作、學(xué)習(xí)的進(jìn)一步提高打下了堅實(shí)的基礎(chǔ)。在本次畢業(yè)設(shè)計中，我從指導(dǎo)老師身上學(xué)到了很多東西。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到很大的提高，這對于我以后的工作和學(xué)習(xí)都是巨大的幫助，在學(xué)術(shù)上指導(dǎo)老師是一個嚴(yán)謹(jǐn)求實(shí)，認(rèn)真負(fù)責(zé)的人。其次我要感謝計算機(jī)學(xué)院所有的老師們，沒有他們平時的教導(dǎo)，我不會順利完成我的畢業(yè)設(shè)計。面對專業(yè)知識不那么深厚的我們，老師們一遍又一遍試圖用最易懂的方式讓我們透徹理解那些高深的專業(yè)理