【正文】 SDK所具有的功能。動(dòng)態(tài)數(shù)據(jù)交換(DDE)利用動(dòng)態(tài)數(shù)據(jù)交換(Dynamic Data Exchange)技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動(dòng)態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程序建立起一條動(dòng)態(tài)數(shù)據(jù)鏈路。一個(gè)對(duì)象可能會(huì)產(chǎn)生多個(gè)事件，每個(gè)事件都可以通過(guò)一段程序來(lái)響應(yīng)。在一般的面向?qū)ο蟪绦蛟O(shè)計(jì)語(yǔ)言中，對(duì)象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而Visual Basic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法(OOP)，把程序和數(shù)據(jù)封裝起來(lái)作為一個(gè)對(duì)象，并為每個(gè)對(duì)象賦予應(yīng)有的屬性，使對(duì)象成為實(shí)在的東西。在Visual Basic環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Windows內(nèi)部的應(yīng)用程序接口(API)函數(shù)，以及動(dòng)態(tài)鏈接庫(kù)(DLL)、動(dòng)態(tài)數(shù)據(jù)交換(DDE)、對(duì)象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(wèn)(ODBC)等技術(shù)，可以高效、快速地開發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。Visual Basic是美國(guó)微軟公司的第一個(gè)編程工具和系統(tǒng)開發(fā)的第一個(gè)產(chǎn)品，Visual Basic以優(yōu)良的性能、較強(qiáng)的系統(tǒng)開發(fā)功能、完美的視覺界面和簡(jiǎn)單易學(xué)的特點(diǎn)，已經(jīng)贏得了全世界廣大用戶的偏愛。對(duì)系統(tǒng)的簡(jiǎn)單的介紹，有點(diǎn)類似于產(chǎn)品說(shuō)明書，使老師容易地知道系統(tǒng)的使用方法。由此可見在，開發(fā)此系統(tǒng)在經(jīng)濟(jì)上是完全可行的。隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。參考文獻(xiàn) 錯(cuò)誤！未定義書簽。 系統(tǒng)主界模塊如下所示: 錯(cuò)誤！未定義書簽。計(jì)算機(jī)的最大好處在于利用它能夠進(jìn)行信息管理。因此，開發(fā)這樣一套管理軟件成為很有必要的事情,車輛管理系統(tǒng)提供了強(qiáng)大的車輛管理管理功能。還有論文前面的摘要及其翻譯、論文附錄部分的外文資料及其翻譯?？紤]到使用的數(shù)據(jù)量不大，數(shù)據(jù)庫(kù)的建立使用的是Microsoft Access, 這是因?yàn)镸icrosoft Access與其他的數(shù)據(jù)庫(kù)軟件相比，其理解和使用都更為簡(jiǎn)單易懂,容易讓一般企業(yè)人員接受。Visual Basic是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。有時(shí)候，這種編程編譯修改的操作可能要反復(fù)多次，大大影響了軟件開發(fā)效率。結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)言Visual Basic是在BASIC語(yǔ)言的基礎(chǔ)上發(fā)展起來(lái)的，具有高級(jí)程序設(shè)計(jì)語(yǔ)言的語(yǔ)句結(jié)構(gòu)，接近于自然語(yǔ)言和人類的邏輯思維方式。這些過(guò)程分別面向不同的對(duì)象，由用戶操作引發(fā)某個(gè)事件來(lái)驅(qū)動(dòng)完成某種特定的功能，或者由事件驅(qū)動(dòng)程序調(diào)用通用過(guò)程來(lái)執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。對(duì)象的鏈接與嵌入(OLE)對(duì)象的鏈接與嵌入(OLE)將每個(gè)應(yīng)用程序都看作是一個(gè)對(duì)象(object)，將不同的對(duì)象鏈接(link)起來(lái)，再嵌入(embed)某個(gè)應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動(dòng)畫、文字等各種信息的集合式的文件。(2）數(shù)據(jù)需求通過(guò)調(diào)查和研究，本系統(tǒng)僅提供一個(gè)數(shù)據(jù)庫(kù)，但該數(shù)據(jù)庫(kù)包含各項(xiàng)所需信息，（Access表結(jié)構(gòu)）。通過(guò)對(duì)系統(tǒng)調(diào)研與分析，系統(tǒng)主要應(yīng)完成的功能如下：車輛信息的添加、刪除、修改，客戶明細(xì)資料的添加、刪除、修改，維護(hù)中車輛的添加、刪除、修改，以及按車牌號(hào)、按時(shí)間查詢等功能。 vbCrLf amp。 MsgBox cstr((4).Value ) showdata GoTo lebal End If Wendlebal:39。ExecuteSql select * from Cars End SubPrivate Sub Timer1_Timer()If a = False Then = + 25 If = 2160 Then a = True End IfElse = 25 If = 360 Then a = False End IfEnd IfEnd Sub39。 _ 例如20050101, vbCritical + vbOKOnly, 提示信息 = Exit SubEnd 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_Load End SubPrivate Sub cmdFullshow_Click()If = 添加 Then = Call Form_Load = True = True = True = TrueElse MsgBox 請(qǐng)先完成添加任務(wù)?。。?！, , 提示信息End IfEnd SubPrivate Sub cmdqueryName_Click()Set rctlist = NothingIf = 添加 Then = False = False = False = Falsesql = select * from client where client_number like 39。 \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 Then = MT amp。 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 = = = = 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 查詢內(nèi)容不能為空, , 提示信息 End If Exit SubElse MsgBox 請(qǐng)先完成添加任務(wù)！?。? , 提示信息End IfEnd SubPrivate Sub cmdqueryNum_Click()If = 添加 Then = = False = False = False = FalseDim sql As Stringsql = select * from Maintenance where mt_number like 39。 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