【正文】 = con = adUseClient = adLockOptimistic = adOpenDynamic = sql On Error GoTo err1 ExecuteSql1 = True Exit Functionerr1: MsgBox ExecuteSql1 = FalseEnd FunctionFunction checkdata() As Boolean If = Then MsgBox 請(qǐng)輸入車(chē)輛名稱(chēng)!, vbInformation + vbOKOnly, 提示 Exit Function End If If = Then MsgBox 請(qǐng)輸入車(chē)輛顏色!, vbInformation + vbOKOnly, 提示 Exit Function End If If = Then MsgBox 請(qǐng)輸入車(chē)輛牌照號(hào)碼!, vbInformation + vbOKOnly, 提示 Exit Function End If If = Then MsgBox 請(qǐng)輸入車(chē)輛描述信息!, vbInformation + vbOKOnly, 提示 Exit Function End If If = Then MsgBox 請(qǐng)輸入車(chē)輛保險(xiǎn)時(shí)間!, vbInformation + vbOKOnly, 提示 Exit Function End If If txtBuyDate = Then MsgBox 請(qǐng)輸入車(chē)輛購(gòu)入時(shí)間!, vbInformation + vbOKOnly, 提示 Exit Function End If checkdata = TrueEnd Function 客戶(hù)明細(xì)模塊 本模塊主要是對(duì)用車(chē)客戶(hù)信息的進(jìn)行錄入,主要含有以下信息：客戶(hù)ID、客戶(hù)姓名、客戶(hù)電話(huà)、客戶(hù)任務(wù)、牌照號(hào)、任務(wù)地點(diǎn)、任務(wù)開(kāi)始時(shí)間、任務(wù)結(jié)束時(shí)間，備注等等主要信息,本模塊有添加,修改,刪除，:管理員客戶(hù)信息添加客戶(hù)信息修改客戶(hù)信息刪除客戶(hù)信息 本模塊界面如下所示:本模塊代碼如下：Private Sub cmdAdd_Click() If = 添加 Then = False = False = False = False ExecuteSql1 select top 1 client_ID from client order by client_ID desc If 0 Then = client amp。 orientation amp。If ConnectToServer = True And ExecuteSql(sql) = True Then39。 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。詳細(xì)調(diào)查的重點(diǎn)是對(duì)管理業(yè)務(wù)的流程進(jìn)行描述，通過(guò)采用系統(tǒng)流程圖中部分圖工具來(lái)描述管理活動(dòng)，進(jìn)行規(guī)范化說(shuō)明。動(dòng)態(tài)鏈接庫(kù)(DLL)Visual Basic是一種高級(jí)程序設(shè)計(jì)語(yǔ)言，不具備低級(jí)語(yǔ)言的功能，對(duì)訪問(wèn)機(jī)器硬件的操作不太容易實(shí)現(xiàn)。Visual Basic提供開(kāi)放式數(shù)據(jù)連接，即ODBC功能，可通過(guò)直接訪問(wèn)或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫(kù)，如SQL Server，Oracle等。在設(shè)計(jì)Visual Basic程序的過(guò)程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之后，可以編譯生成可執(zhí)行文件(.EXE)，脫離Visual Basic環(huán)境，直接在Windows環(huán)境下運(yùn)行。Visual Basic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫(xiě)實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計(jì)的效率?？偟膩?lái)說(shuō)，Visual ：Visual Basic是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開(kāi)發(fā)Windows環(huán)境下的種類(lèi)應(yīng)用程序。目前在我國(guó)市場(chǎng)上最為流行、使用最多、最為先進(jìn)的可用作企業(yè)級(jí)開(kāi)發(fā)工具的產(chǎn)品有：Microsoft公司的Visual BasicMicrosoft公司的Visual CMicrosoft公司的Visual FoxProBorland公司的Delphi Powersoft公司的PowerBuliderJava等等在目前市場(chǎng)上這些眾多的程序開(kāi)發(fā)工具中，有些強(qiáng)調(diào)程序語(yǔ)言的彈性與執(zhí)行效率；有些則偏重于可視化程序開(kāi)發(fā)工具所帶來(lái)的便利性與效率的得高，各有各的優(yōu)點(diǎn)和特色，也滿(mǎn)足了不同用戶(hù)的需求。同時(shí)還列出了系統(tǒng)用到數(shù)據(jù)庫(kù)中所有表的表結(jié)構(gòu)，以便于參照表結(jié)構(gòu)來(lái)看待本系統(tǒng)。① 提高管理效率降低人工成本②及時(shí)調(diào)整營(yíng)銷(xiāo)策略，防止價(jià)格流失③ 強(qiáng)化財(cái)務(wù)監(jiān)控制實(shí)現(xiàn)的經(jīng)濟(jì)效益 系統(tǒng)可行性分析 本系統(tǒng)開(kāi)發(fā)簡(jiǎn)單但要耗去一定的時(shí)間，所用的開(kāi)發(fā)工具和軟件都差不多是免費(fèi)的。管理系統(tǒng)是進(jìn)行信息的采集、存儲(chǔ)、加工、維護(hù)和使用的系統(tǒng)。 車(chē)輛維護(hù)模塊 錯(cuò)誤！未定義書(shū)簽。 客戶(hù)明細(xì)模塊 錯(cuò)誤！未定義書(shū)簽。尤其對(duì)于復(fù)雜的信息管理，計(jì)算機(jī)能夠充分發(fā)揮它的優(yōu)越性。可以將數(shù)據(jù)庫(kù)發(fā)布到網(wǎng)上，進(jìn)行資源共享。在做數(shù)據(jù)庫(kù)設(shè)計(jì)時(shí)，我根據(jù)系統(tǒng)的實(shí)際情況畫(huà)出了系統(tǒng)ER圖，以便于老師更深入的了解本系統(tǒng)?，F(xiàn)在，市場(chǎng)上可以選購(gòu)的應(yīng)用開(kāi)發(fā)產(chǎn)品很多，流行的也有數(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)、開(kāi)放式數(shù)據(jù)訪問(wèn)(ODBC)等技術(shù)，可以高效、快速地開(kāi)發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。只需要按設(shè)計(jì)要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫(huà)出各種“部件”，即圖形對(duì)象，并設(shè)置這些圖形對(duì)象的屬性。Visual Basic是解釋型語(yǔ)言，在輸入代碼的同時(shí)，解釋系統(tǒng)將高級(jí)語(yǔ)言分解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令，并判斷每個(gè)語(yǔ)句的語(yǔ)法錯(cuò)誤。同時(shí)，Visual Basic還能直接編輯和訪問(wèn)其他外部數(shù)據(jù)庫(kù)，如dBASE，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫(kù)格式都可以用Visual Basic編輯和處理。利用OLE技術(shù)，可以方便地建立復(fù)合式文檔(pound document)，這種文檔由來(lái)自多個(gè)不同應(yīng)用程序的對(duì)象組成，文檔中的每個(gè)對(duì)象都與原來(lái)的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來(lái)應(yīng)用程序完全相同的操作。所以編制的程序在以上環(huán)境的機(jī)器中均可順利運(yùn)行，并且本系統(tǒng)占用空間較小，主要依靠鼠標(biāo)和鍵盤(pán)進(jìn)行錄入。系統(tǒng)功能圖如下：登錄車(chē)輛管理客戶(hù)明細(xì)車(chē)輛維護(hù)車(chē)輛信息添加車(chē)輛信息刪除車(chē)輛信息修改客戶(hù)信息添加客戶(hù)信息刪除客戶(hù)信息查詢(xún)維護(hù)信息添加維護(hù)信息修改維護(hù)信息刪除客戶(hù)信息修改維護(hù)信息查詢(xún) 系統(tǒng)ER圖車(chē)輛ID車(chē)輛牌照號(hào)貓畫(huà)號(hào)車(chē)輛名稱(chēng)車(chē)輛保險(xiǎn)時(shí)間表車(chē)輛顏色購(gòu)買(mǎi)時(shí)間車(chē)輛描述車(chē)輛信息客戶(hù)ID客戶(hù)姓名客戶(hù)電話(huà)客戶(hù)任務(wù)車(chē)輛牌照任務(wù)地點(diǎn)任務(wù)開(kāi)始時(shí)間任務(wù)結(jié)束時(shí)間客戶(hù)明細(xì)維護(hù)ID維護(hù)事項(xiàng)車(chē)輛牌照號(hào)維護(hù)日期備注車(chē)輛維護(hù)第四章 系統(tǒng)實(shí)現(xiàn) 系統(tǒng)登錄模塊：?jiǎn)?dòng)系統(tǒng)后，展示屏幕停留后顯示登錄窗體 系統(tǒng)主界模塊如下所示: 車(chē)輛信息模塊 本模塊主要是對(duì)車(chē)輛信息進(jìn)行錄入,主要含有以下信息：車(chē)輛ID、牌照號(hào)、車(chē)輛名稱(chēng)、車(chē)輛顏色、購(gòu)買(mǎi)時(shí)間、保險(xiǎn)時(shí)間、車(chē)輛描述等等主要信息,本模塊有添加,修改,：管理員車(chē)輛信息添加車(chē)輛信息修改車(chē)輛信息刪除車(chē)輛信息 本模塊界面如下所示:本模塊代碼如下：Private Sub CmdEdit_Click(Index As Integer)If Index = 0 Then If CmdEdit(0).Caption = 添加 Then = False = False = False = False ExecuteSql1 select top 1 car_ID from cars order by car_ID desc If 0 Then = car amp。 \pics\) = True39。 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。 Trim() amp。 Trim() Else MsgBox 輸入的日期格式不正確 amp。 Trim() amp。顯示記錄數(shù)據(jù)Public Function showdata()On Error Resume NextIf 0 Then = (0).Value = (1).Value = (2).Value = (3).Value = (4).ValueEnd IfEnd Function39。以前做一些應(yīng)用的系統(tǒng)開(kāi)發(fā)，隨意性大，想到那里做到那里，沒(méi)有統(tǒng)一的規(guī)劃，一旦系統(tǒng)成型，出現(xiàn)錯(cuò)誤返工修改工作量大，最終的系統(tǒng)可靠性不高。在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師身上學(xué)到了很多東