【正文】 參考文獻(xiàn)[1] 邵洋、谷宇、 FoxPro （第二版）人民郵電出版社[2] FoxPro 數(shù)據(jù)庫(kù)與程序設(shè)計(jì) 電子工業(yè)出版社，2002年11月[3] 郭贏發(fā)，張紅娟，趙偉華《Visual FoxPro 及其程序設(shè)計(jì)》 ，西安電子科技大學(xué)出版社 ， 2001[4] 郭贏發(fā)， 《數(shù)據(jù)庫(kù)原理與應(yīng)用》（修訂版）西安電子科技大學(xué)出版社，1999[5] 陸惠恩，陸培恩．軟件工程．電子工業(yè)出版社．第二版．2000[6] 翁正科，《Visual FoxPro 數(shù)據(jù)庫(kù)開發(fā)教程》清華大學(xué)出版社，1999[7] , 《數(shù)據(jù)庫(kù)系統(tǒng)導(dǎo)論》,機(jī)械工業(yè)出版社, 2000[8] Hector GarcialMolina , Jeffrey , Jennifer Widom,《數(shù)據(jù)庫(kù)系統(tǒng)實(shí)現(xiàn)》, 2001[9] 林陳雷, 郭安源, 葛曉東, 《教育信息化系統(tǒng)開發(fā)實(shí)例導(dǎo)航》 , 人民郵電出版社,2003[10] 薛成華．管理信息系統(tǒng)．清華大學(xué)出版社．2000。是他們不辭辛苦、勤勤懇懇、任勞任怨、不厭其煩地給我們講解計(jì)算機(jī)的專業(yè)課程。他不辭辛勞，為我選定課題的研究方向，對(duì)我的課題給予了大量的指導(dǎo)，提出了寶貴的意見，在此感謝他耐心的輔導(dǎo)。他認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我受益匪淺。致 謝在此，首先要感謝我的導(dǎo)師，感謝他在百忙之中還抽出時(shí)間來指導(dǎo)我、幫助我順利地完成畢業(yè)設(shè)計(jì)。2．通過實(shí)踐，提高了系統(tǒng)分析的能力，對(duì)數(shù)據(jù)流圖、數(shù)據(jù)字典、系統(tǒng)流程圖等系統(tǒng)設(shè)計(jì)工具的使用有了更深刻的認(rèn)識(shí)。漸增式的原型化開發(fā)方法與面向?qū)ο蟮某绦蛟O(shè)計(jì)的結(jié)合不但能在系統(tǒng)開發(fā)初期讓用戶了解系統(tǒng)的概貌，而且能使系統(tǒng)開發(fā)模塊化，提高開發(fā)效率，減少出錯(cuò)。另外一直以來，進(jìn)行程序設(shè)計(jì)均采用結(jié)構(gòu)化開發(fā)方法，對(duì)系統(tǒng)的全貌難以在開發(fā)前看到，導(dǎo)致實(shí)現(xiàn)的系統(tǒng)不滿足需求。感覺到這幾門理論課程的重要性。總 結(jié)通過一個(gè)多月的系統(tǒng)開發(fā)，車輛管理系統(tǒng)開發(fā)完成。如下圖所示：，以下的測(cè)試以維護(hù)IDMT0001,0002,0003為例來進(jìn)行測(cè)試，下圖是數(shù)據(jù)表中原始的數(shù)據(jù)：以下為修改后的結(jié)果，測(cè)試結(jié)果表明，此模塊可以按照要求進(jìn)行修改。保存記錄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)測(cè)試系統(tǒng)開發(fā)完畢，還必須對(duì)對(duì)每個(gè)模塊進(jìn)行測(cè)試來驗(yàn)證系統(tǒng)的穩(wěn)定性，和可靠必，下面主要對(duì)系統(tǒng)中幾個(gè)主要模塊進(jìn)行測(cè)試。往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 = 維護(hù)ID(1) = 800 = flexAlignCenterCenter = 2 = 維護(hù)車輛牌照號(hào)(2) = 1800 = flexAlignCenterCenter = 3 = 維護(hù)事項(xiàng)(3) = 1000 = flexAlignCenterCenter = 4 = 維護(hù)時(shí)間(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。 \pics\) = TrueEnd SubPrivate Sub Grdtab_Click() = 1orientation = If 2 Then = False Exit SubEnd IfDim sql As StringWhile = False If (0).Value = orientation Then39。 \pics\) = LoadPicture( amp。 %39。% amp。 amp。 vbCrLf amp。 vbCrLf amp。 Format(Val(Right((0).Value, 4)) + 1, 0) Else = MT0001 End If = = = Date = = 保存 = False = False = False Exit Sub End If If = 保存 Then If checkdata = False Then Exit Sub End If If MsgBox(確定要保存嗎?, vbQuestion + vbYesNo, 保存) = vbYes Then Call savedata MsgBox 保存成功, , 提示信息 Call Form_Load = 添加 = True = True = True = True = True = True = True Exit Sub End IfEnd IfEnd SubPrivate Sub cmdDelete_Click()If 2 Then MsgBox 請(qǐng)選擇你要?jiǎng)h除的行！, , 提示信息 Exit Sub End If If MsgBox(你確定要?jiǎng)h除嗎？, vbYesNo + vbInformation, 刪除) = vbYes Then (adAffectCurrent) MsgBox 刪除完成, , 提示信息 End If Call Form_LoadEnd SubPrivate Sub cmdFullshow_Click()If = 添加 Then = = Call Form_Load = True = True = True = TrueElse MsgBox 請(qǐng)先完成添加任務(wù)?。?！, , 提示信息End IfEnd SubPrivate Sub cmdqueryDate_Click()If = 添加 Then = = False = False = False = FalseIf Then If Trim() Like Then MsgBox 你查詢的日期為 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 = 牌照號(hào)碼(5) = 1000 = flexAlignCenterCenter = 6 = 任務(wù)地點(diǎn)(6) = 1000 = flexAlignCenterCenter = 7 = 任務(wù)開始時(shí)間(7) = 1000 = flexAlignCenterCenter = 8 = 任務(wù)結(jié)束時(shí)間(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 請(qǐng)先完成添加任務(wù)！??！, , 提示信息 End IfEnd SubPrivate Sub cmdSave_Click()If 1 Then MsgBox 沒有要修改的內(nèi)容，請(qǐng)“按添加按鈕”添加新內(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 showdata