【正文】 在本次畢業(yè)設(shè)計中，我從指導老師身上學到了很多東西。顯示記錄數(shù)據(jù)Public Function showdata()On Error Resume NextIf 0 Then = (0).Value = (1).Value = (2).Value = (3).Value = (4).ValueEnd IfEnd Function39。 Trim() Else MsgBox 輸入的日期格式不正確 amp。顯示記錄數(shù)據(jù)Public Function showdata()If 0 Then = (0).Value = (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = (6).ValueEnd IfEnd Function39。 \pics\) = True39。所以編制的程序在以上環(huán)境的機器中均可順利運行，并且本系統(tǒng)占用空間較小，主要依靠鼠標和鍵盤進行錄入。同時，Visual Basic還能直接編輯和訪問其他外部數(shù)據(jù)庫，如dBASE，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫格式都可以用Visual Basic編輯和處理。只需要按設(shè)計要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件”，即圖形對象，并設(shè)置這些圖形對象的屬性?，F(xiàn)在，市場上可以選購的應(yīng)用開發(fā)產(chǎn)品很多，流行的也有數(shù)十種?？梢詫?shù)據(jù)庫發(fā)布到網(wǎng)上，進行資源共享。 客戶明細模塊 錯誤！未定義書簽。管理系統(tǒng)是進行信息的采集、存儲、加工、維護和使用的系統(tǒng)。同時還列出了系統(tǒng)用到數(shù)據(jù)庫中所有表的表結(jié)構(gòu)，以便于參照表結(jié)構(gòu)來看待本系統(tǒng)?？偟膩碚f，Visual ：Visual Basic是一種可視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)計，可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。在設(shè)計Visual Basic程序的過程中，隨時可以運行程序，而在整個程序設(shè)計好之后，可以編譯生成可執(zhí)行文件(.EXE)，脫離Visual Basic環(huán)境，直接在Windows環(huán)境下運行。動態(tài)鏈接庫(DLL)Visual Basic是一種高級程序設(shè)計語言，不具備低級語言的功能，對訪問機器硬件的操作不太容易實現(xiàn)。 Format(Val(Right((0).Value, 3)) + 1, 0) Else = car001 End If = = = = = = CmdEdit(0).Caption = 保存 CmdEdit(1).Enabled = False CmdEdit(2).Enabled = False = False Exit Sub End If If CmdEdit(0).Caption = 保存 Then On Error GoTo err2 If checkdata = False Then Exit Sub End If ExecuteSql1 select * from cars where car_number=39。 orientation amp。 %39。 %39。另外一直以來，進行程序設(shè)計均采用結(jié)構(gòu)化開發(fā)方法，對系統(tǒng)的全貌難以在開發(fā)前看到，導致實現(xiàn)的系統(tǒng)不滿足需求。參考文獻[1] 邵洋、谷宇、 FoxPro （第二版）人民郵電出版社[2] FoxPro 數(shù)據(jù)庫與程序設(shè)計 電子工業(yè)出版社，2002年11月[3] 郭贏發(fā)，張紅娟，趙偉華《Visual FoxPro 及其程序設(shè)計》 ，西安電子科技大學出版社 ， 2001[4] 郭贏發(fā)， 《數(shù)據(jù)庫原理與應(yīng)用》（修訂版）西安電子科技大學出版社，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。感覺到這幾門理論課程的重要性。% amp。% amp。sql = select * from Cars where Car_number=39。（2）.軟件結(jié)構(gòu)設(shè)計。OLE技術(shù)是Microsoft公司對象技術(shù)的戰(zhàn)略，它把多個應(yīng)用程序合為一體，將每個應(yīng)用程序看作是一個對象進行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。Visual Basic語句簡單易懂，其編輯器支持彩色代碼，可自動進行語法錯誤檢查，同時具有功能強大且使用靈活的調(diào)試器和編譯器。它簡單易學、效率高，且功能強大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C++編程基礎(chǔ)。在做需求分析時，需要畫的業(yè)務(wù)流程圖和數(shù)據(jù)流程圖，我參考了大量的關(guān)于軟件工程方面的書籍，其中的一本是電子工業(yè)出版社出版本的《軟件工程》（第二版）是由陸惠恩、陸培恩編著的。使用計算機進行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。致 謝 錯誤！未定義書簽。而且，由于系統(tǒng)能夠在未來較長的一段時期內(nèi)穩(wěn)定地發(fā)揮作用，這對于車輛管理信息的自動化管理，企業(yè)管理企業(yè)的人力和財力都有很大的幫助。然而，語言的彈性和工具的便利性是密不可分的，只有便利的工具，卻沒有彈性的語言作支持，許多特殊化的處理動作必需要耗費數(shù)倍的工夫來處理，使得原來所標榜的效率提高的優(yōu)點失去了作用；相反，如果只強調(diào)程序語言的彈性，卻沒有便利的工具作配合，會使一些即使非常簡單的界面處理動作，也會嚴重地浪費程序設(shè)計師的寶貴時間。面向?qū)ο蟮某绦蛟O(shè)計 Basic支持面向?qū)ο蟮某绦蛟O(shè)計，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計語言(C++)不完全相同。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語言SQL數(shù)據(jù)標準，直接訪問服務(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)方案。系統(tǒng)分析的主要成果是系統(tǒng)的邏輯模型。MsgBox 139。 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。 _ 日期的格式為年月日 amp。1 、車輛信息模塊測試，以car00car002為列來進行測試，以上是車輛信息表中原始的數(shù)據(jù)，如下圖所示：以下為修改后的結(jié)果，測試結(jié)果表明，此模塊可以按照要求進行修改。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到很大的提高，這對于我以后的工作和學習都是巨大的幫助，在學術(shù)上指導老師是一個嚴謹求實，認真負責的人。為以后的工作、學習的進一步提高打下了堅實的基礎(chǔ)。 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。 \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 The