【正文】 End If If = Then MsgBox 請輸入維護(hù)事項!, vbInformation + vbOKOnly, 提示 Exit Function End If checkdata = TrueEnd Function39。在系統(tǒng)的開發(fā)過程中，以前學(xué)習(xí)感到很抽象的課程，如軟件工程、數(shù)據(jù)庫原理、面向?qū)ο蟪绦蛟O(shè)等變得清晰起來。為以后的工作、學(xué)習(xí)的進(jìn)一步提高打下了堅實的基礎(chǔ)。面對專業(yè)知識不那么深厚的我們，老師們一遍又一遍試圖用最易懂的方式讓我們透徹理解那些高深的專業(yè)理論。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到很大的提高，這對于我以后的工作和學(xué)習(xí)都是巨大的幫助，在學(xué)術(shù)上指導(dǎo)老師是一個嚴(yán)謹(jǐn)求實，認(rèn)真負(fù)責(zé)的人。這次的畢業(yè)設(shè)計開發(fā)，主要有以下幾點收獲：1．對原型化的系統(tǒng)開發(fā)方法有了一定的了解。1 、車輛信息模塊測試，以car00car002為列來進(jìn)行測試，以上是車輛信息表中原始的數(shù)據(jù)，如下圖所示：以下為修改后的結(jié)果，測試結(jié)果表明，此模塊可以按照要求進(jìn)行修改。order by mt_idExecuteSql sql = + 1 = + 1 = 0 = 0(0) = 300 = 1 = 維護(hù)ID(1) = 800 = flexAlignCenterCenter = 2 = 維護(hù)車輛牌照號(2) = 1800 = flexAlignCenterCenter = 3 = 維護(hù)事項(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。 _ 日期的格式為年月日 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。 Format(Val(Right((0).Value, 4)) + 1, 0) Else = client0001 End If = = = = = = Date = = = 保存 = False = False = False Exit Sub End If If = 保存 Then If checkdata = False Then Exit Sub End If If And Like Then Else MsgBox 輸入的日期格式不正確 amp。 39。MsgBox 139。 amp。系統(tǒng)分析的主要成果是系統(tǒng)的邏輯模型。但它可以通過動態(tài)鏈接庫技術(shù)將C/C++或匯編語言編寫的程序加入到Visual Basic應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語言SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問服務(wù)器上的數(shù)據(jù)庫，并提供了簡單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機制和網(wǎng)絡(luò)數(shù)據(jù)庫的SQL的編程技術(shù)，為單機上運行的數(shù)據(jù)庫提供了SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實現(xiàn)客戶/服務(wù)器(client/server)方案。事件驅(qū)動編程機制Visual Basic通過事件來執(zhí)行對象的操作。面向?qū)ο蟮某绦蛟O(shè)計 Basic支持面向?qū)ο蟮某绦蛟O(shè)計，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計語言(C++)不完全相同。它簡單易學(xué)、效率高，且功能強大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C++編程基礎(chǔ)。然而，語言的彈性和工具的便利性是密不可分的，只有便利的工具，卻沒有彈性的語言作支持，許多特殊化的處理動作必需要耗費數(shù)倍的工夫來處理，使得原來所標(biāo)榜的效率提高的優(yōu)點失去了作用；相反，如果只強調(diào)程序語言的彈性，卻沒有便利的工具作配合，會使一些即使非常簡單的界面處理動作，也會嚴(yán)重地浪費程序設(shè)計師的寶貴時間。系統(tǒng)功能設(shè)計即系統(tǒng)的功能框圖，以便于用戶能夠?qū)Ρ鞠到y(tǒng)所實現(xiàn)的各項功能一目了然，從而更好地應(yīng)用。而且，由于系統(tǒng)能夠在未來較長的一段時期內(nèi)穩(wěn)定地發(fā)揮作用，這對于車輛管理信息的自動化管理，企業(yè)管理企業(yè)的人力和財力都有很大的幫助。它是隨著管理科學(xué)和技術(shù)科學(xué)的發(fā)展而形成的。致 謝 錯誤！未定義書簽。 車輛信息模塊 錯誤！未定義書簽。使用計算機進(jìn)行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。更適合大型數(shù)據(jù)庫的管理。在做需求分析時，需要畫的業(yè)務(wù)流程圖和數(shù)據(jù)流程圖，我參考了大量的關(guān)于軟件工程方面的書籍，其中的一本是電子工業(yè)出版社出版本的《軟件工程》（第二版）是由陸惠恩、陸培恩編著的。采用的是當(dāng)前流行的主流操作系統(tǒng)微軟公司的WindowsXP。它簡單易學(xué)、效率高，且功能強大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C++編程基礎(chǔ)。Visual Basic提供了可視化設(shè)計工具，把Windows界面設(shè)計的復(fù)雜性“封裝”起來，開發(fā)人員不必為界面設(shè)計而編寫大量程序代碼。Visual Basic語句簡單易懂，其編輯器支持彩色代碼，可自動進(jìn)行語法錯誤檢查，同時具有功能強大且使用靈活的調(diào)試器和編譯器。訪問數(shù)據(jù)庫Visual Basic具有強大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫，并提供了強大的數(shù)據(jù)存儲和檢索功能。OLE技術(shù)是Microsoft公司對象技術(shù)的戰(zhàn)略，它把多個應(yīng)用程序合為一體，將每個應(yīng)用程序看作是一個對象進(jìn)行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。（3）運行環(huán)境大多數(shù)單位，對計算機的要求并不高，所以計算機的配置約為普通配置，DDR256M內(nèi)存，17英寸純平顯示器，80G硬盤，標(biāo)準(zhǔn)鍵盤和鼠標(biāo)， Windows 98/xp/me/2000操作系統(tǒng)等。（2）.軟件結(jié)構(gòu)設(shè)計。 日期的格式為年月日, , 提示信息 (adAffectCurrent) txtBuyDate = Exit Sub End IfElseIf Index = 1 ThenIf 1 Then MsgBox 沒有要修改的內(nèi)容，請?zhí)砑有聝?nèi)容?。。。? vbInformation, 提示信息 Exit Sub End If If MsgBox(確定要修改嗎?。? vbQuestion + vbYesNo, 修改) = vbYes Then If checkdata = True Then Call savedata MsgBox 修改成功, , 提示信息 Call Form_Load