【正文】 = ExecuteSQL(txtSQL, MsgText) Unload frmDriver = select * from driver End If End IfEnd Sub5．2 司機(jī)信息管理模塊本模塊主要實(shí)現(xiàn)司機(jī)信息的添加、修改、刪除和查詢。MDI窗體的“CAPTION”屬性設(shè)置為“物流車(chē)輛管理系統(tǒng)”。代碼如例程52例程52Sub Main() Dim fLogin As New frmLogin vbModal If Not Then End End If Unload fLogin Set fMainForm = New frmMain End Sub5．1．3 登錄模塊 用戶要登錄系統(tǒng)，填寫(xiě)相關(guān)信息，例程53登錄的具體實(shí)現(xiàn)代碼。接著在“工程資源管理器”中，選擇“工程1”，將其重命名為“VEHICLE_MIS”。Visual Basic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過(guò)程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。需要新建6個(gè)表。 車(chē)輛管理系統(tǒng)主要包括前臺(tái)管理程序以及后臺(tái)數(shù)據(jù)庫(kù)兩個(gè)方面。表43 車(chē)輛運(yùn)營(yíng)數(shù)據(jù)表statistic字段名字段說(shuō)明數(shù)據(jù)類(lèi)型長(zhǎng)度（字節(jié)）必填字段主鍵yyid車(chē)號(hào)文本10是是yydriver司機(jī)文本10是否Yybegin_date開(kāi)始時(shí)間日期/時(shí)間中日期是否Yyend_date結(jié)束時(shí)間日期/時(shí)間中日期是否yydistance運(yùn)行公里數(shù)字8否否yywaste油耗數(shù)字8否否表44為車(chē)輛維修數(shù)據(jù)表，命名為repair。本系統(tǒng)一共有六個(gè)表組成。車(chē)輛維修記錄車(chē)輛維修記錄ID車(chē)牌號(hào)時(shí)間維修單位維修內(nèi)容價(jià)格配件備注 圖44 車(chē)輛維修管理實(shí)體關(guān)系模型 車(chē)輛事故管理 {事故記錄ID，車(chē)牌號(hào)，司機(jī)，時(shí)間，地點(diǎn)，原因，對(duì)方車(chē)號(hào)，對(duì)方單位，處理方式，處理金額，備注信息}。4．1．2 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì) 通過(guò)上述總體分析，就能設(shè)計(jì)出滿足用戶需求的各種實(shí)體，可以得到實(shí)體關(guān)系模型（ER模型）如下： 司機(jī)檔案實(shí)體 {司機(jī)ID，司機(jī)姓名，性別，生日，住址，初次領(lǐng)證時(shí)間，執(zhí)照號(hào)碼，準(zhǔn)駕車(chē)型，有效期起始日期，有效期結(jié)束日期}。司機(jī)ID必須唯一。查詢有兩種方式，分別是按車(chē)號(hào)和時(shí)間。添加維修管理時(shí)用戶需要輸入車(chē)號(hào)，時(shí)間，維修單位，維修內(nèi)容，價(jià)格，配件等。 運(yùn)營(yíng)管理模塊用戶通過(guò)此模塊進(jìn)行車(chē)輛運(yùn)營(yíng)管理前，需要戶先建立車(chē)輛檔案。保存后，這些信息將添加到對(duì)應(yīng)的數(shù)據(jù)表中。最后得到如圖33所示的系統(tǒng)功能模塊圖。在數(shù)據(jù)庫(kù)環(huán)境下,二者通過(guò)中間件進(jìn)行交互。其主要是運(yùn)行使用戶產(chǎn)生其服務(wù)請(qǐng)求的程序,將數(shù)據(jù)庫(kù)請(qǐng)求發(fā)送到服務(wù)器。 硬件環(huán)境要求CPU主頻：586/133MHZ，最好選擇400M顯示屏：1024*768或更高分辨率的顯示器內(nèi)存：64M以上顯存：2M以上硬盤(pán)空間：至少剩余200M 鼠標(biāo)：Microsoft兼容鼠標(biāo)第三章 系統(tǒng)概要設(shè)計(jì)3．1 系統(tǒng)的總體結(jié)構(gòu)設(shè)計(jì)3．1．1 系統(tǒng)設(shè)計(jì)目標(biāo)本系統(tǒng)主要完成車(chē)輛管理中司機(jī)和車(chē)輛的單據(jù)管理，為此系統(tǒng)必須能夠維護(hù)這些操作信息的數(shù)據(jù)表。 在敏感性分析方面，該系統(tǒng)的設(shè)計(jì)周期為一個(gè)月，一般查詢的處理速度小于3秒，關(guān)鍵數(shù)據(jù)的查詢速度小于2秒。因此在用戶使用方面，開(kāi)發(fā)車(chē)輛管理系統(tǒng)是可行的。一般地，軟件領(lǐng)域的可行性分析主要考慮3個(gè)要素：經(jīng)濟(jì)、技術(shù)和社會(huì)環(huán)境。e) 事故管理：包括司機(jī)、車(chē)牌號(hào)、事故時(shí)間、地點(diǎn)、原因等等。運(yùn)輸管理的軟件體系結(jié)構(gòu)和強(qiáng)大的后臺(tái)數(shù)據(jù)處理，為企業(yè)處理大量業(yè)務(wù)、提供了可靠保障，并且還提供了與倉(cāng)儲(chǔ)、配送、貨代軟件，以及各種財(cái)務(wù)軟件的接口，既可以獨(dú)立使用，又可以整和在整個(gè)物流軟件體系中。隨著國(guó)民經(jīng)濟(jì)快速發(fā)展，交通基礎(chǔ)設(shè)施的不斷完備，運(yùn)輸行業(yè)也得到快速發(fā)展。目前，我國(guó)MIS已經(jīng)有了相當(dāng)?shù)钠占奥剩瑤缀醺采w了各個(gè)行業(yè)及各個(gè)部門(mén)。第三個(gè)因素也不能忽視，企業(yè)的管理數(shù)據(jù)是MIS正常運(yùn)行的基礎(chǔ)。例如，日本開(kāi)發(fā)的直達(dá)運(yùn)輸系統(tǒng)，目的在于選擇最接近用戶的倉(cāng)庫(kù)，然后對(duì)用戶實(shí)行快速直達(dá)運(yùn)輸。當(dāng)建立了企業(yè)數(shù)據(jù)庫(kù)，有了計(jì)算機(jī)網(wǎng)絡(luò)從而達(dá)到數(shù)據(jù)共享后，從系統(tǒng)觀點(diǎn)出發(fā)，實(shí)施全局規(guī)劃和設(shè)計(jì)信息系統(tǒng)時(shí)，就達(dá)到管理信息系統(tǒng)的階段。計(jì)算機(jī)軟件技術(shù)應(yīng)用于信息管理是發(fā)展的必然。其中系統(tǒng)管理模塊包括：登錄系統(tǒng)、更改系統(tǒng)的登錄密碼、退出系統(tǒng)三大功能；司機(jī)管模塊主要完成司機(jī)信息的增加、刪除、修改和查詢；車(chē)輛、運(yùn)營(yíng)、維修、事故管理模塊主要功能和司機(jī)管理模塊很相似。本管理系統(tǒng)具有以下幾個(gè)特點(diǎn)：具有快速和大容量的信息交換能力,使決策人員能獲得最新、完整、穩(wěn)定、可靠的信息；具有快速的查詢能力，改變目前工作效率低、信息反應(yīng)速度慢、秩序混亂的局面，為管理人員的信息查詢服務(wù)提供了可靠的保障；具有較強(qiáng)的數(shù)據(jù)容錯(cuò)能力和良好的人機(jī)交互界面，從而保證了員工資料信息的準(zhǔn)確性。作為計(jì)算機(jī)應(yīng)用的一部分，充分發(fā)揮計(jì)算機(jī)的優(yōu)勢(shì)，將大量復(fù)雜的數(shù)據(jù)交給計(jì)算機(jī)來(lái)處理，有著手工管理所無(wú)法比擬的優(yōu)點(diǎn)。隨著計(jì)算機(jī)技術(shù)的進(jìn)步和人們對(duì)系統(tǒng)的需求進(jìn)一步提高，更加強(qiáng)調(diào)管理信息系統(tǒng)能否支持企業(yè)高層領(lǐng)導(dǎo)的決策這一功能，更側(cè)重于企業(yè)外部信息的收集、綜合數(shù)據(jù)庫(kù)、模型庫(kù)、方法庫(kù)和其他人工智能工具能否直接面向決策者，這是決策支持系統(tǒng)（DSS，Decision Support System）的任務(wù)。廣東省水泥管理調(diào)運(yùn)系統(tǒng)利用線形規(guī)劃以最低流通費(fèi)用為目標(biāo)，用計(jì)算機(jī)進(jìn)行數(shù)據(jù)處理，取得了較好經(jīng)濟(jì)效益。廣義地說(shuō)，各項(xiàng)管理制度是MIS建設(shè)成功的基礎(chǔ)。近20年間，國(guó)外大公司出現(xiàn)了3種變化：l 抓管理著重于建立MIS系統(tǒng)，使管理技術(shù)走向成熟。而大量車(chē)輛的運(yùn)營(yíng)安排需要科學(xué)的管理，這也成為運(yùn)輸行業(yè)中的一項(xiàng)重要工作。此外，還強(qiáng)調(diào)了模塊間的相對(duì)獨(dú)立性，可根據(jù)客戶的需要和業(yè)務(wù)流程進(jìn)行組合，還滿足客戶個(gè)性化的需求，隨時(shí)擴(kuò)展系統(tǒng)的應(yīng)用。第二章 系統(tǒng)需求分析2．1可行性分析 2．1．1 問(wèn)題的提出運(yùn)輸在一個(gè)公司的整個(gè)供應(yīng)鏈中起著至關(guān)重要的作用，如果不能保證有效的對(duì)司機(jī)和車(chē)輛的控制，將會(huì)導(dǎo)致管理費(fèi)用的增加，從而影響公司的工作的效率。1．技術(shù)方面的可行性車(chē)輛管理系統(tǒng)開(kāi)發(fā)已經(jīng)具備了完備、成熟的理論和體系結(jié)構(gòu)，VB編程與數(shù)據(jù)庫(kù)相結(jié)合進(jìn)行開(kāi)發(fā)的技術(shù)也日趨成熟。3．經(jīng)濟(jì)方面的可行性系統(tǒng)的經(jīng)濟(jì)方面可行性應(yīng)該從項(xiàng)目開(kāi)發(fā)的投入金額、收益、收益投資比、投資回收周期和敏感性分析這幾個(gè)方面來(lái)考慮。 綜上所述，該系統(tǒng)的開(kāi)發(fā)在經(jīng)濟(jì)方面是完全可行的。與此同時(shí)還要維護(hù)這些操作信息中包含的各種輔助項(xiàng)目信息，例如維修信息、事故信息和運(yùn)營(yíng)信息等?？蛻魴C(jī)主要實(shí)現(xiàn)的功能包括:管理用戶接口、從用戶處接受數(shù)據(jù)、處理應(yīng)用邏輯、產(chǎn)生數(shù)據(jù)庫(kù)請(qǐng)求、向服務(wù)器發(fā)送數(shù)據(jù)庫(kù)請(qǐng)求、從服務(wù)器接收結(jié)果并格式化接收到的結(jié)果。中間件(Middleware)是一種程序設(shè)計(jì)公共接口,在網(wǎng)絡(luò)數(shù)據(jù)庫(kù)編程中它們也是依靠服務(wù)器的擴(kuò)展程序。事故管理模塊添加、修改、刪除、 查詢車(chē)輛事故信息添加、修改、刪除、查詢車(chē)輛維修信息業(yè)務(wù)管理模塊維修管理模塊運(yùn)營(yíng)管理模塊添加、修改、刪除、查詢車(chē)輛運(yùn)營(yíng)信息修改密碼用戶管理模塊車(chē)輛管理系統(tǒng)添加車(chē)輛檔案修改車(chē)輛檔案刪除車(chē)輛檔案查詢車(chē)輛檔案案 案 案 案添加用戶車(chē)輛檔案管理模塊檔案管理模塊添加司機(jī)檔案修改司機(jī)檔案刪除司機(jī)檔案查詢司機(jī)檔案案 案 案 案司機(jī)檔案管理模塊登錄窗體模塊圖 33 系統(tǒng)功能模塊設(shè)計(jì)下面分別對(duì)一些主要功能模塊進(jìn)行介紹。查詢則有兩種方式，一種是按姓名查詢，另外一種是按準(zhǔn)駕車(chē)型進(jìn)行查詢。車(chē)輛檔案建立完成后才能對(duì)車(chē)輛運(yùn)營(yíng)管理進(jìn)行添加、修改、刪除、查詢。保存后，這些信息將添加到對(duì)應(yīng)的后臺(tái)數(shù)據(jù)表中。完成查詢操作后，有關(guān)車(chē)輛的信息將顯示在相應(yīng)的數(shù)據(jù)綁定控件中。用戶可對(duì)車(chē)輛檔案進(jìn)行添加、修改和刪除操作，并能通過(guò)車(chē)號(hào)，類(lèi)型和登記時(shí)間等項(xiàng)目對(duì)車(chē)輛檔案進(jìn)行查詢。司機(jī)檔案實(shí)體關(guān)系模型如圖41所示。其實(shí)體關(guān)系模型如圖45所示。表41為司機(jī)檔案數(shù)據(jù)表，命名為driver。包括車(chē)號(hào)、時(shí)間、維修單位、維修內(nèi)容、價(jià)格、配件和備注等信息。對(duì)于前者要求應(yīng)用程序功能強(qiáng)大、界面友好、易于使用。分別是DRIVER，VEHICLE，statistic，repair，accident和YH。VB同時(shí)提供的一套完善的編譯和調(diào)試系統(tǒng)，使得在開(kāi)發(fā)過(guò)程中可以很好的解決開(kāi)發(fā)過(guò)程中出現(xiàn)的一系列問(wèn)題。然后將該工程保存，選擇保存路徑，并命名為“”選擇菜單命令“工程”中的“添加模塊”，在工程中添加一個(gè)模塊，命名為“Module1”并保存。登錄界面如圖51所示。用菜單編輯器設(shè)計(jì)主界面上的菜單 ，得到如圖53的系統(tǒng)主界面圖53系統(tǒng)的主界面接下來(lái)為每個(gè)菜單添加響應(yīng)函數(shù)，實(shí)現(xiàn)系統(tǒng)主窗體的各項(xiàng)功能，這里主要是激活各相應(yīng)的子窗口。5．2．1 添加司機(jī)信息在工程中新建一個(gè)窗體。如果存在的話，程序會(huì)提示已經(jīng)存在該ID。 , yyyymmdd) Case Else .TextMatrix(.Rows 1, i) = (i 1) amp。用戶要查詢司機(jī)信息時(shí)候，先要選擇查詢類(lèi)型，填寫(xiě)查詢內(nèi)容后，單擊確定后，程序就會(huì)執(zhí)行查詢命令，并把查詢到的內(nèi)容顯示在GRID控件中，部分實(shí)現(xiàn)代碼如程59。 ) = Then txtSQL = sjtype =39。 Trim(txtItem(1) amp。而這三個(gè)管理模塊的界面和司機(jī)車(chē)輛管理界面和代碼又很相似，所以這里就不在敘述了。圖512為用戶修改密碼流程圖圖511 FORM2的操作界面更改登錄密碼輸入原密碼正確？新密碼新新同？修改成功原密碼錯(cuò)誤密碼不一致 否 是 是圖512用戶修改密碼流程圖程511 FORM2的操作界面的實(shí)現(xiàn)代碼Private Sub Command2_Click()Unload MeEnd SubPrivate Sub Command1_Click() 39。圖514為添加用戶的流程圖。 39。 amp。正確認(rèn)識(shí)測(cè)試的目標(biāo)是十分重要的，測(cè)試目標(biāo)決定了測(cè)試方案的設(shè)計(jì)，如果為了表明程序是正確的而進(jìn)行測(cè)試，就會(huì)設(shè)計(jì)一些不易暴露錯(cuò)誤的測(cè)試方案。因此測(cè)試用例的設(shè)計(jì)和編制是系統(tǒng)測(cè)試活動(dòng)中最重要的。 驗(yàn)收測(cè)試：把軟件實(shí)體作為單一的實(shí)體進(jìn)行測(cè)試；主要測(cè)試軟件的功能。 進(jìn)行刪除司機(jī)信息測(cè)試，先選中記錄，然后選擇刪除，看能否進(jìn)行正常的刪除。在這段時(shí)間里，我學(xué)到了很多知識(shí)也有很多感受，從對(duì)管理系統(tǒng)的一無(wú)所知，對(duì)VB ，SQL SERVER，ADO等相關(guān)技術(shù)很不了解的狀態(tài)，我開(kāi)始了獨(dú)立的學(xué)習(xí)和試驗(yàn)，查看相關(guān)的資料和書(shū)籍，讓自己頭腦中模糊的概念逐漸清晰，使自己非常稚嫩作品一步步完善起來(lái)，每一次改進(jìn)都是我學(xué)習(xí)的收獲，每一次試驗(yàn)的成功都會(huì)讓我興奮好一段時(shí)間。從論文選題、課題研究到學(xué)位論文完成，都有他們的一份辛勤汗水。在課題研究中，得到了同學(xué)們熱心的關(guān)心和幫助。我認(rèn)識(shí)到無(wú)論是做數(shù)據(jù)庫(kù)還是做應(yīng)用軟件開(kāi)發(fā)都不能盲目出發(fā)，而是要綜合分析問(wèn)題，把問(wèn)題考慮全面。6．5測(cè)試結(jié)論與預(yù)期結(jié)果數(shù)據(jù)的偏差：功能測(cè)試基本無(wú)偏差。 測(cè)試設(shè)計(jì)約束規(guī)定：僅對(duì)軟件的功能、可靠性、穩(wěn)定性進(jìn)行測(cè)試。測(cè)試用例是按一定順序執(zhí)行的與測(cè)試目標(biāo)相關(guān)的一系列測(cè)試。6．3測(cè)試用例影響系統(tǒng)測(cè)試的因素有很多，例如系統(tǒng)本身的復(fù)雜程度、開(kāi)發(fā)人員（包括分析、設(shè)計(jì)、編程和測(cè)試的人員）的素質(zhì)、測(cè)試方法和技術(shù)的運(yùn)用等。 39。 39。添加一個(gè)用戶到數(shù)據(jù)庫(kù) sqlstr = INSERT INTO yh sqlstr = sqlstr amp。原密碼核對(duì)If yhPwd Then MsgBox 原密碼錯(cuò)誤！ Exit SubEnd If39。不然程序就會(huì)提示用戶先建立司機(jī)或車(chē)輛檔案。 39。 Trim(txtItem(1) amp。圖57 FRMDRIVER2窗體的界面輸入查詢條件提示信息查詢信息正確?完否?否是查詢結(jié)束是否圖58查詢流程圖程59 FRMDRIVER2窗體的實(shí)現(xiàn)代碼Private Sub cmdOK_Click() Dim txtSQL As String If chkItem(0).Value = vbChecked Then txtSQL = sjname =39。所以要修改表頭，使表頭顯示自己定義的中文字段，便于用戶查看。如例程56例程56保存過(guò)程的實(shí)現(xiàn)