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