【正文】 素的控制信息是很有價(jià)值的。使用，價(jià)格等信息。本章主要敘述前者。而所選用的程序設(shè)計(jì)語(yǔ)言的特點(diǎn)及編碼風(fēng)格也將對(duì)程序的可靠性、可讀性、可測(cè)試性和可維護(hù)性也將產(chǎn)生深遠(yuǎn)的影響。為了提高數(shù)據(jù)的安全性，系統(tǒng)設(shè)置了防止非法人員進(jìn)入系統(tǒng)的功能。如果連續(xù)三次輸入錯(cuò)誤，則退出登錄，程序流程如下：密碼正確結(jié)束開(kāi)始主界面密碼是否輸入超過(guò)三次否圖42 登錄模塊程序流程圖 下圖是登錄模塊窗體：窗體上設(shè)有三個(gè)變遷空間，兩個(gè)命令按鈕，一個(gè)加框，兩個(gè)文本框和一個(gè)框架。圖44 主界面窗體首先點(diǎn)擊工具欄內(nèi)新建工具按鈕，新建一個(gè)工程，自動(dòng)產(chǎn)生了一個(gè)空窗體，在窗體上單擊右鍵，在彈出的菜單欄上點(diǎn)擊“菜單編輯器”命令，打開(kāi)菜單編輯器。工具欄單擊事件源代碼如下： Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case aa Load FrmType vbModal Case bb Load FrmSales vbModal Case cc Load FrmInsurance vbModal Case dd Load FrmLease vbModal Case ee Load FrmReturn vbModal Case gg Load FrmMembers vbModal End SelectEnd Sub 基本信息管理菜單設(shè)計(jì) 類型信息窗體設(shè)計(jì) 進(jìn)入該窗體，用戶先選擇要操作的對(duì)象是車輛還是保險(xiǎn)，選擇后，文本框內(nèi)將出現(xiàn)數(shù)據(jù)庫(kù)內(nèi)現(xiàn)存的有關(guān)該類型的資料，用戶即可執(zhí)行對(duì)車輛類型或者保險(xiǎn)類型的添加。首先按設(shè)計(jì)添加窗體，做好各控件的布局，設(shè)置相應(yīng)屬性，如：datagrid控件名稱屬性設(shè)置為datagrid1,dragmode屬性設(shè)置為0，allowaddnew屬性設(shè)為False,Allowdelete 屬性設(shè)置為False,“宋體“，Enable和Visible屬性均設(shè)為Ture. 其添加命令按鈕單擊事件源代碼如下：Private Sub Cmd_Add_Click() = False = 1 = = 銷售商 = = = = = = = 1 GridRefreshEnd Sub 此窗體用于向用戶提供對(duì)保險(xiǎn)公司信息如：保險(xiǎn)公司的公司名稱，聯(lián)系地址，聯(lián)系電話，傳真，郵政編碼，電子郵箱，聯(lián)系人。查看保險(xiǎn)車輛按鈕的單機(jī)時(shí)間源代碼如下：Private Sub Cmd_ViewCars_Click() = 2 = Trim((1)) = (0) = Trim((1)) = 查看保險(xiǎn)公司保險(xiǎn)汽車 = 保險(xiǎn)公司名稱 1End Sub 本窗體用來(lái)向用戶提供對(duì)車輛信息的查找，修改，添加，刪除功能，可處理的信息包括車輛的基本信息如車牌號(hào)碼，車輛類型。并且提供將普通客戶加入會(huì)員的服務(wù)。如對(duì)于命令按鈕：“刪除”，當(dāng)放置好按鈕位置后，將其名稱屬性設(shè)置為“Cmd_del”，對(duì)于Caption屬性則設(shè)置為：“刪除”，字體屬性設(shè)置為“華文行楷”，Enabled和Visible屬性設(shè)置為true。 會(huì)員信息窗體程序流程圖如下：開(kāi)始結(jié)束選擇修改注銷會(huì)員查找圖416 會(huì)員信息模塊程序流程圖本窗體上設(shè)置有四個(gè)命令按鈕，一個(gè)Adodc控件，一個(gè)Dategrid控件，一個(gè)標(biāo)簽控件和一個(gè)文本框。命令按鈕“注銷會(huì)員”單擊事件策劃年供需源代碼如下：Private Sub Cmd_OffMember_Click() If = True Then MsgBox 請(qǐng)選擇記錄 Exit Sub End If If MsgBox(是否確定要注銷會(huì)員資格 , vbYesNo, 請(qǐng)確認(rèn)) = vbNo Then Exit Sub End If = 0 (Trim((0))) MsgBox 注銷會(huì)員成功, vbInformation GridRefreshEnd Sub 會(huì)員類型定義窗體實(shí)現(xiàn) 本窗體用來(lái)實(shí)現(xiàn)對(duì)會(huì)員類型的定義，即對(duì)會(huì)員等級(jí)進(jìn)行分類，比如分為鉆石卡用戶，金卡用戶，銀卡用戶等，不同等級(jí)的用戶享受的租賃價(jià)格的折扣不同。最后編寫窗體及各個(gè)空間的源代碼。 日常業(yè)務(wù)管理菜單實(shí)現(xiàn)日常業(yè)務(wù)管理菜單樹(shù)如圖：圖421 日常業(yè)務(wù)管理菜單樹(shù) 車輛租賃窗體實(shí)現(xiàn) 車輛租賃的實(shí)現(xiàn)是本系統(tǒng)的關(guān)鍵，要客戶提出出租車的要求時(shí)，租賃公司通過(guò)系統(tǒng)的這一模塊向數(shù)據(jù)庫(kù)的Lease表中添加新的租賃記錄。完成后，進(jìn)行各個(gè)控件的屬性設(shè)置、如對(duì)于組合框，組合框是一個(gè)獨(dú)立的控件，但它兼有列表框和文本框的功能。當(dāng)車輛處于“出租審核”狀態(tài)后，可對(duì)車輛執(zhí)行“續(xù)租”命令，執(zhí)行續(xù)租后，車輛狀態(tài)變“續(xù)租”。 車輛歸還窗體實(shí)現(xiàn) 本模塊設(shè)計(jì)用來(lái)對(duì)車輛歸還業(yè)務(wù)的實(shí)現(xiàn)，通過(guò)本模塊可對(duì)已租車輛實(shí)現(xiàn)歸還，信息修改，結(jié)算審核和查詢操作，其程序流程圖如下：開(kāi)始結(jié)束選擇修改添加刪除查找圖424 車輛歸還模塊程序流程圖其窗體布局如圖：圖425 車輛租賃歸還窗體當(dāng)有一項(xiàng)新的歸還業(yè)務(wù)發(fā)生時(shí)，打開(kāi)此窗體，單擊命令按鈕“歸還”，打開(kāi)“車輛歸還結(jié)算審核”，之后按發(fā)生租賃業(yè)務(wù)時(shí)所創(chuàng)建的合同編號(hào)，查找到相應(yīng)的車輛信息，即可盡心歸還操作。如將窗體的名稱屬性設(shè)為Frmreturn,caption屬性設(shè)為“車輛租賃歸還管理”，字體設(shè)置為“宋體”，Startupposit屬性設(shè)為2，即窗體首次出現(xiàn)時(shí)位置在屏幕中心，然后編寫代碼如下： Private Sub Form_Load() GridRefresh 歸還, 0 歸還審核, 1 = FalseEnd Sub 系統(tǒng)用戶管理菜單實(shí)現(xiàn)系統(tǒng)用戶菜單樹(shù)如圖： 圖426 系統(tǒng)用戶管理菜單樹(shù) 用戶信息窗體的實(shí)現(xiàn)本模塊用來(lái)實(shí)現(xiàn)對(duì)系統(tǒng)用戶信息的添加和刪除。如果選擇一個(gè)其他的用戶，則彈出對(duì)話框提示“是否刪除當(dāng)前用戶”，選擇“是”，則系統(tǒng)刪除選擇的記錄，并彈出對(duì)話框提示“成功刪除”，最后刷心datalist控件內(nèi)所顯示的用戶信息。本窗體使用三個(gè)標(biāo)簽控件，利用標(biāo)簽的Caption屬性，記錄不顯示了軟件的名稱，開(kāi)發(fā)者的姓名即指導(dǎo)老師。駕照證號(hào)：“8845872”；駕照類型：“C”；駕齡：“5”；發(fā)證日期：“200577”；失效時(shí)間：“201277”；抵押證件：“身份證”；擔(dān)保人：“劉長(zhǎng)榮”；擔(dān)保人身份證號(hào)：“231002196005142054”；擔(dān)保人單位：“黑龍江省水利廳”成功添加姓名：“吳新”；客戶編號(hào)：“B502”；性別：“男”；年齡：“38”；身份證號(hào)：“”；電話：“13766606987”；工作單位：“哈爾濱水利勘測(cè)設(shè)計(jì)院”；地址：“南崗區(qū)請(qǐng)濱路124號(hào)”；郵編：“157002”；：wu。我終于完成了這個(gè)“汽車租賃管理系統(tǒng)”。真正重要的反而是那些在編程之前所需做的工作。今后我會(huì)繼續(xù)努力學(xué)習(xí)，不斷充實(shí)自己，提高自己。在這里，我要感謝所有幫助過(guò)我的老師和同學(xué)。不但要把知識(shí)傳授給學(xué)生，而且要以自己的言行舉止去影響學(xué)生，去教會(huì)他們?nèi)绾巫鋈?，這才是最重要的。老師雖然平時(shí)的工作特別繁忙，可是對(duì)于指導(dǎo)我們的設(shè)計(jì)，卻從不敷衍，他的認(rèn)真和敬業(yè)精神給我們留下了深刻的印象。 由于本人水平有限，在設(shè)計(jì)思路和技巧方法上可能比較愚鈍，在開(kāi)發(fā)語(yǔ)言的掌握上可能相對(duì)膚淺，所以，反映到系統(tǒng)中，難免存在許多的不足之處，殷切希望各位老師批評(píng)、指正。 本系統(tǒng)界面美觀，設(shè)計(jì)合理，能夠?qū)崿F(xiàn)預(yù)計(jì)的功能，但系統(tǒng)的容錯(cuò)性還不是很完善。由始至終的開(kāi)發(fā)過(guò)程，讓我深刻體會(huì)到軟件工程這門學(xué)科對(duì)于程序開(kāi)發(fā)的重要性。測(cè)試結(jié)果如圖： 綜上所述，測(cè)試證明本系統(tǒng)的工作狀態(tài)良好，各測(cè)試模塊均能達(dá)到設(shè)計(jì)功能，能夠滿足用戶的需求。聯(lián)系人：“李明”顯示“添加成功”公司名稱“”；聯(lián)系電話：“02186789455” 傳真：“02186789456”；聯(lián)系地址：“浦東新區(qū)”；郵編：123456；電子郵箱：qirui。憂郁本系統(tǒng)不屬于龐大系統(tǒng)，所以本窗體在系統(tǒng)中的地位并不十分重要，功能結(jié)構(gòu)均比較簡(jiǎn)單，一次在這里不再贅述細(xì)節(jié)。依次設(shè)置各個(gè)控件屬性，最后編寫代碼。 當(dāng)添加完窗體上的各個(gè)控件后，進(jìn)行窗體布局，屬性設(shè)置。 當(dāng)單擊“添加”命令按鈕后，將觸發(fā)“添加”命令按鈕的單擊事件。 當(dāng)執(zhí)行“添加”操作并成功添加一條心的租賃信息后，將在DataGrid控件中顯示出這條新的記錄，其中“狀態(tài)”欄內(nèi)衛(wèi)“出租”，此時(shí)，可對(duì)這一條記錄執(zhí)行“刪除”“修改”操作，添加車輛出租信息后，確定所添數(shù)據(jù)無(wú)誤，則應(yīng)執(zhí)行“出租審核”命令，“審核”意為確定。車輛的狀態(tài)由Lease表中狀態(tài)字段指定，車輛租賃模塊的系統(tǒng)流程如圖：開(kāi)始結(jié)束選擇修改添加刪除出租審核續(xù)租續(xù)租審核圖421 車輛租賃模塊程序流程圖 本窗體上設(shè)置有一個(gè)Adodc控件，一個(gè)DataGrid控件，一個(gè)組合框，一個(gè)標(biāo)簽控件，七個(gè)命令按鈕控件。該載入事件的源代碼： Private Sub Form_load() GridRefresh End Sub 其中，GridRefresh為一個(gè)函數(shù)條用語(yǔ)句，這個(gè)函數(shù)是在窗體模塊內(nèi)部定義的一個(gè)私有過(guò)程，在過(guò)程中設(shè)置了Adodc控件的兩個(gè)屬性，分別為Connectionstring屬性和Recordsource屬性。“刪除”與之前描述的“注銷會(huì)員”操作類似，這里就不講了。接著對(duì)其它控件的屬性進(jìn)行設(shè)置。 命令按鈕“刪除”單擊事件源代碼如下：Private Sub Cmd_Del_Click() If = True Then MsgBox 請(qǐng)選擇記錄 Exit Sub End If If MsgBox(是否確定要?jiǎng)h除 , vbYesNo, 請(qǐng)確認(rèn)) = vbNo Then Exit Sub End If (Trim((0))) MsgBox 成功, vbInformation GridRefreshEnd Sub 會(huì)員信息窗體實(shí)現(xiàn) 會(huì)員信息窗體為用戶提供了對(duì)會(huì)員信息如基本信息、駕駛證信息、抵押擔(dān)保信息、會(huì)員類型信息的查找、修改、注銷功能。命令按鈕分別取名為“添加”“修改”“刪除”“查找”“加入會(huì)員”“退出”。一個(gè)ADODC控件，一個(gè)Datagrid控件，一個(gè)標(biāo)簽控件和一個(gè)文本框，其窗體布局如下圖：圖412 車牌號(hào)窗口Adodc控件的使用，可以為控件和數(shù)據(jù)庫(kù)之間快速建立連接，它提供了一個(gè)易于使用的界面，使用戶用較少的代碼創(chuàng)建數(shù)據(jù)庫(kù)應(yīng)用程序，以實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的訪問(wèn)，本模塊對(duì)ADODC控件connectionstring和recordsource屬性的設(shè)置在本窗體的private sub gridrefresh()過(guò)程中完成。另外還可根據(jù)用戶選擇的保險(xiǎn)公司名稱查詢已在其處辦理了保險(xiǎn)業(yè)務(wù)的車輛保險(xiǎn)信息，其程序流程圖如：開(kāi)始結(jié)束選擇修改添加刪除查詢查看保險(xiǎn)車輛圖49 保險(xiǎn)公司信息模塊程序流程圖此窗體設(shè)有六個(gè)命令按鈕。其程序流程圖如下保險(xiǎn)類型操作車輛類型操作開(kāi)始結(jié)束選擇圖45 類型信息模塊程序流程圖類型信息窗體上設(shè)有一個(gè)datalist控件，兩個(gè)單選按鈕，一個(gè)adodc控件，四個(gè)名利按鈕，其窗體如下：圖46 類型信息窗體首先按設(shè)計(jì)添加窗體，做好各控件的布局，設(shè)置相應(yīng)屬性，例如：將左邊的“單選按鈕”名稱屬性設(shè)為“optsel”,caption屬性設(shè)為“車輛類型“,indexs屬性設(shè)為0，字體屬性設(shè)為”華文行楷“，value值設(shè)為”True“，而命令按鈕設(shè)置也如此，如對(duì)”添加“按鈕的設(shè)置，設(shè)置完成后編寫源代碼。在窗體上添加“圖像列表控件“，用于保存工具欄按鈕所使用的圖像，在窗體上添加”工具欄控件“，將其與“”圖像控制列表控件“相關(guān)聯(lián)。 例如：將第二個(gè)命令按鈕的控制名設(shè)為“cmd_cancel“,caption屬性設(shè)為”取消“，字體設(shè)為”華文行楷“，enable和eisible屬性均設(shè)為”ture“,編寫按鈕單擊時(shí)間源代碼如下： Private Sub Cmd_Cancel_Click() EndEnd Sub 主界面設(shè)計(jì) 用戶登錄成功后，即進(jìn)入系統(tǒng)主界面。首先進(jìn)入用戶登陸界面，在由操作人員輸入用戶名和密碼后，系統(tǒng)進(jìn)行判定其進(jìn)入系統(tǒng)的合法身份，此后，方可正式進(jìn)入該系統(tǒng)。Visual ，而在程序的編碼過(guò)程中，應(yīng)遵循源程序的邏輯簡(jiǎn)明，易讀易懂的原則。座位軟件工程的一個(gè)階段，編碼是對(duì)設(shè)計(jì)的進(jìn)一步具體化。租還車時(shí)間等業(yè)務(wù)信息定義：lease=contractno