【正文】 00 = 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 請先完成添加任務！！！, , 提示信息End IfEnd SubPrivate Sub cmdSave_Click()If 1 Then MsgBox 沒有要修改的內容，請“按添加按鈕”添加新內容?。。?！, 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。 \pics\) = LoadPicture( amp。 \pics\) = TrueEnd SubPrivate Sub Grdtab_Click() = 1orientation = If 2 Then = False Exit SubEnd IfDim sql As StringWhile = False If (0).Value = orientation Then39。 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。往msflexgrid填數(shù)據(jù)Private Sub filldata()Dim sql As Stringsql = select * from Maintenance 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 Exit SubEnd If Dim 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 iEnd Sub39。顯示記錄數(shù)據(jù)Public Function showdata()On Error Resume NextIf 0 Then = (0).Value = (1).Value = (2).Value = (3).Value = (4).ValueEnd IfEnd Function39。保存記錄Public Function savedata()On Error Resume Next (0).Value = Trim() (1).Value = Trim() (2).Value = Trim() (3).Value = Trim() (4).Value = Trim() End FunctionPublic Function ExecuteSql1(sql As String) As Boolean Set rs = New = con = adUseClient = adLockOptimistic = adOpenDynamic = sqlOn Error GoTo err1 ExecuteSql1 = True Exit Functionerr1: MsgBox ExecuteSql1 = FalseEnd Function第五章 系統(tǒng)測試系統(tǒng)開發(fā)完畢，還必須對對每個模塊進行測試來驗證系統(tǒng)的穩(wěn)定性，和可靠必，下面主要對系統(tǒng)中幾個主要模塊進行測試。1 、車輛信息模塊測試，以car00car002為列來進行測試，以上是車輛信息表中原始的數(shù)據(jù)，如下圖所示：以下為修改后的結果，測試結果表明，此模塊可以按照要求進行修改。如下圖所示：，以下的測試以維護IDMT0001,0002,0003為例來進行測試，下圖是數(shù)據(jù)表中原始的數(shù)據(jù)：以下為修改后的結果，測試結果表明，此模塊可以按照要求進行修改。如下圖所示：通過對系統(tǒng)中幾個主要模塊測試后，各項測試結果表明，系統(tǒng)可以按照要求進行添加，修改刪除信息，證明系統(tǒng)是穩(wěn)定的。總 結通過一個多月的系統(tǒng)開發(fā)，車輛管理系統(tǒng)開發(fā)完成。在系統(tǒng)的開發(fā)過程中，以前學習感到很抽象的課程，如軟件工程、數(shù)據(jù)庫原理、面向對象程序設等變得清晰起來。感覺到這幾門理論課程的重要性。以前做一些應用的系統(tǒng)開發(fā)，隨意性大，想到那里做到那里，沒有統(tǒng)一的規(guī)劃，一旦系統(tǒng)成型，出現(xiàn)錯誤返工修改工作量大，最終的系統(tǒng)可靠性不高。另外一直以來，進行程序設計均采用結構化開發(fā)方法，對系統(tǒng)的全貌難以在開發(fā)前看到，導致實現(xiàn)的系統(tǒng)不滿足需求。這次的畢業(yè)設計開發(fā)，主要有以下幾點收獲：1．對原型化的系統(tǒng)開發(fā)方法有了一定的了解。漸增式的原型化開發(fā)方法與面向對象的程序設計的結合不但能在系統(tǒng)開發(fā)初期讓用戶了解系統(tǒng)的概貌，而且能使系統(tǒng)開發(fā)模塊化，提高開發(fā)效率，減少出錯。對于后期的系統(tǒng)維護也提供了很大的幫助。2．通過實踐，提高了系統(tǒng)分析的能力，對數(shù)據(jù)流圖、數(shù)據(jù)字典、系統(tǒng)流程圖等系統(tǒng)設計工具的使用有了更深刻的認識。為以后的工作、學習的進一步提高打下了堅實的基礎。致 謝在此，首先要感謝我的導師，感謝他在百忙之中還抽出時間來指導我、幫助我順利地完成畢業(yè)設計。在本次畢業(yè)設計中，我從指導老師身上學到了很多東西。他認真負責的工作態(tài)度，嚴謹?shù)闹螌W精神和深厚的理論水平都使我受益匪淺。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到很大的提高，這對于我以后的工作和學習都是巨大的幫助，在學術上指導老師是一個嚴謹求實，認真負責的人。他不辭辛勞，為我選定課題的研究方向，對我的課題給予了大量的指導，提出了寶貴的意見，在此感謝他耐心的輔導。其次我要感謝計算機學院所有的老師們，沒有他們平時的教導，我不會順利完成我的畢業(yè)設計。是他們不辭辛苦、勤勤懇懇、任勞任怨、不厭其煩地給我們講解計算機的專業(yè)課程。面對專業(yè)知識不那么深厚的我們，老師們一遍又一遍試圖用最易懂的方式讓我們透徹理解那些高深的專業(yè)理論。參考文獻[1] 邵洋、谷宇、 FoxPro （第二版）人民郵電出版社[2] FoxPro 數(shù)據(jù)庫與程序設計 電子工業(yè)出版社，2002年11月[3] 郭贏發(fā)，張紅娟，趙偉華《Visual FoxPro 及其程序設計》 ，西安電子科技大學出版社 ， 2001[4] 郭贏發(fā)， 《數(shù)據(jù)庫原理與應用》（修訂版）西安電子科技大學出版社，1999[5] 陸惠恩，陸培恩．軟件工程．電子工業(yè)出版社．第二版．2000[6] 翁正科，《Visual FoxPro 數(shù)據(jù)庫開發(fā)教程》清華大學出版社，1999[7] , 《數(shù)據(jù)庫系統(tǒng)導論》,機械工業(yè)出版社, 2000[8] Hector GarcialMolina , Jeffrey , Jennifer Widom,《數(shù)據(jù)庫系統(tǒng)實現(xiàn)》, 2001[9] 林陳雷, 郭安源, 葛曉東, 《教育信息化系統(tǒng)開發(fā)實例導航》 , 人民郵電出版社,2003[10] 薛成華．管理信息系統(tǒng)．清華大學出版社．2000