【正文】 面對專業(yè)知識不那么深厚的我們，老師們一遍又一遍試圖用最易懂的方式讓我們透徹理解那些高深的專業(yè)理論。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到很大的提高，這對于我以后的工作和學習都是巨大的幫助，在學術(shù)上指導老師是一個嚴謹求實，認真負責的人。為以后的工作、學習的進一步提高打下了堅實的基礎(chǔ)。這次的畢業(yè)設(shè)計開發(fā)，主要有以下幾點收獲：1．對原型化的系統(tǒng)開發(fā)方法有了一定的了解。在系統(tǒng)的開發(fā)過程中，以前學習感到很抽象的課程，如軟件工程、數(shù)據(jù)庫原理、面向?qū)ο蟪绦蛟O(shè)等變得清晰起來。1 、車輛信息模塊測試，以car00car002為列來進行測試，以上是車輛信息表中原始的數(shù)據(jù)，如下圖所示：以下為修改后的結(jié)果，測試結(jié)果表明，此模塊可以按照要求進行修改。 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 請輸入維護事項!, vbInformation + vbOKOnly, 提示 Exit Function End If checkdata = TrueEnd Function39。order by mt_idExecuteSql sql = + 1 = + 1 = 0 = 0(0) = 300 = 1 = 維護ID(1) = 800 = flexAlignCenterCenter = 2 = 維護車輛牌照號(2) = 1800 = flexAlignCenterCenter = 3 = 維護事項(3) = 1000 = flexAlignCenterCenter = 4 = 維護時間(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。 order by mt_idExecuteSql sql = + 1 = + 1 = 0 = 0(0) = 300 = 1 = 維護ID(1) = 800 = flexAlignCenterCenter = 2 = 維護車輛牌照號(2) = 1800 = flexAlignCenterCenter = 3 = 維護事項(3) = 1000 = flexAlignCenterCenter = 4 = 維護時間(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。 _ 日期的格式為年月日 amp。 \pics\)End Sub 車輛維護模塊管理員車輛維護添加維護車輛信息修改維護車輛信息刪除維護車輛信息查詢維護車輛信息 本模塊主要是對維護中車輛信息的進行錄入,主要含有以下信息：維護ID、維護事項、牌照號、維護日期，備注等等主要信息,本模塊有添加,修改,修改，查詢功能. 本模塊界面如下所示: 本模塊代碼如下：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。order by client_idExecuteSql sql = + 1 = + 1 = 0 = 0(0) = 300 = 1 = 客戶ID(1) = 800 = flexAlignCenterCenter = 2 = 客戶名稱(2) = 1000 = flexAlignCenterCenter = 3 = 客戶電話(3) = 1000 = flexAlignCenterCenter = 4 = 客戶任務(wù)(4) = 1000 = flexAlignCenterCenter = 5 = 牌照號碼(5) = 1000 = flexAlignCenterCenter = 6 = 任務(wù)地點(6) = 1000 = flexAlignCenterCenter = 7 = 任務(wù)開始時間(7) = 1000 = flexAlignCenterCenter = 8 = 任務(wù)結(jié)束時間(8) = 1000 = flexAlignCenterCenter = 9 = 任務(wù)備注(9) = 1000 = flexAlignCenterCenterIf 1 Then 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。 _ 例如20050101, vbCritical + vbOKOnly, 提示信息