超級車輛管理系統的開發與設計畢業論文-資料下載頁

　　

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