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