【正文】 最后，再次向指導(dǎo)老師致以真誠的感謝！謝謝您！ 。我想，一個優(yōu)秀的教師就應(yīng)該是這樣的吧。 要感謝的人很多，但是最值得我感謝的人，是我的指導(dǎo)老師。 49 致謝 這次畢業(yè)設(shè)計所作的系統(tǒng)開發(fā)，其結(jié)果是成功的，但過程也是艱難的。 [8]、 孫明珠 《 VB 程序設(shè)計實習(xí)指導(dǎo) 》 [M]． 天津：天津大學(xué)出版社 ， 2021。 [6]、 劉志嫵 《 .基于 VB 和 SQL 的數(shù)據(jù)庫編程技術(shù) 》 [M]． 北京：清華大學(xué)出版社 ， 2021。 [4]、 楊富國 ， 王健等 《 Visual Basic 程序開發(fā)案例解析 》 [M]． 北京：北京交通大學(xué)出版社 ， 2021。 [2]、 柴相花 《 Visual Basic 實例精通 》 [M]． 北京：機(jī)械出版社 ， 2021。 由于本人水平有限，在設(shè)計思路和技巧方法上可能比較愚鈍，在開發(fā)語言的掌握上可能相對膚淺，所以，反映到系統(tǒng)中，難免存在許多的不足之處，殷切希望各位老師批評、指正。今后我會繼續(xù)努力學(xué)習(xí)，不斷充實自己，提高自己。 本系統(tǒng)界面美觀，設(shè)計合理，能夠?qū)崿F(xiàn)預(yù)計的功能，但系統(tǒng)的容錯性還不是很完善。真正重要的反而是那些在編程之前所需做的工作。由始至終的開發(fā)過程，讓我深刻體會到軟件工程這門學(xué)科對于程序開發(fā)的重要性。我終于完成了這個“汽車租賃管理系統(tǒng)”。測試結(jié)果如圖 514： 46 圖 514 綜上所述，測試證明本系統(tǒng)的工作狀態(tài)良好，各測試模塊均能達(dá)到設(shè)計功能，能夠滿足用戶的需求。駕照證號：“ 8845872”；駕照類型：“ C”；駕齡：“ 5”；發(fā)證日期：“ 202177 ”；失效時間：“ 202177”；抵押證件：“身份證”；擔(dān)保人：“李四”；擔(dān)保人身份證號：“ 231002196005142054”；擔(dān)保人單位：“黑龍江省水利成功添加 姓名：“張三”；客戶編號：“ B502”；性別：“男”；年齡：“ 38”；身份證號：“”；電話：“ 13766606987”；工作單位：“哈爾濱水利勘測設(shè)計院”；地址：“南崗區(qū)請濱路124 號”；郵編：“ 157002”；： 。聯(lián)系人：“李明” 添加成功 公司名稱“”；聯(lián)系電話：“ 02186789455” 傳真：“ 02186789456”；聯(lián)系地址：“浦東新區(qū)”；郵編： 123456；電子郵箱： 。如果選擇一個其他的用戶，則彈出對話框提示“是否刪除當(dāng)前用戶”，選擇“是”，則系統(tǒng)刪除選擇的記錄，并彈出對話框提示“成功刪除”，最后刷 新 datalist 控件內(nèi)所顯示的用戶信息。依次設(shè)置各個控件屬性，最后編寫代碼。如將窗體的名稱屬性設(shè)為 Frmreturn,caption 屬性設(shè)為“車輛租賃歸還管理”，字體設(shè)置為“宋體”， Startupposit 屬性設(shè)為 2，即窗體首次出現(xiàn)時位置開 始選 擇添 加 刪 除修 改 查 找結(jié) 束39 在屏幕中 心，然后編寫代碼如下： Private Sub Form_Load() GridRefresh 歸還 , 0 歸還審核 , 1 = False End Sub 系統(tǒng)用戶管理菜單實現(xiàn) 用戶信息窗體的實現(xiàn) 本模塊用來實現(xiàn)對系統(tǒng)用戶信息的添加和刪除。 當(dāng)添加完窗體上的各個控件后，進(jìn)行窗體布局，屬性設(shè)置。 汽車歸還窗體實現(xiàn) 本模塊設(shè)計用來對車輛歸還業(yè)務(wù)的實現(xiàn)，通過本模塊可對已租車輛實現(xiàn)歸還，信息修改，結(jié)算審核和查詢操作 ，其程序流程圖 422 如下： 38 圖 422 程序流程圖 其窗體布局 423 如圖： 圖 423 汽車租賃歸還窗體 當(dāng)有一項新的歸還業(yè)務(wù)發(fā)生時，打開此窗體，單擊命令按鈕“歸還”，打開“車輛歸還結(jié)算審核”，之后按發(fā)生租賃業(yè)務(wù)時所創(chuàng)建的合同編號，查找到相應(yīng)的車輛信息，即可盡心歸還操作。 當(dāng)單擊“添加”命令按鈕后，將觸發(fā)“添加”命令按鈕的單擊事件。當(dāng)車輛處于“出租審核”狀態(tài)后，可對車輛執(zhí)行“續(xù)租”命令，執(zhí)行續(xù)租后，車輛狀態(tài)變“續(xù)租”。 當(dāng)執(zhí)行“添加”操作并成功添加一條心的租賃信息后，將在 DataGrid 控件中顯示出這條新的記錄，其中“狀態(tài)”欄內(nèi)衛(wèi)“出租”，此時，可對 這一條記開 始選 擇添 加 刪 除修 改出 租 審核續(xù) 租結(jié) 束續(xù) 租 審核37 錄執(zhí)行“刪除”“修改”操作，添加車輛出租信息后，確定所添數(shù)據(jù)無誤，則應(yīng)執(zhí)行“出租審核”命令，“審核”意為確定。完成后，進(jìn)行各個控件的屬性設(shè)置、如對于組合框，組合框是一個獨立的控件，但它兼有列表框和文本框的功能。車輛的狀態(tài)由Lease 表中狀態(tài)字段指定，車輛租賃模塊的系統(tǒng)流程如圖 419： 36 圖 419 系統(tǒng)流程圖 本窗體上設(shè)置有一個 Adodc 控件，一個 DataGrid 控件，一個組合框，一個標(biāo)簽控件，七個命令按鈕控件。 日常業(yè)務(wù)管理菜單實現(xiàn) 汽車租賃 窗體實現(xiàn) 車輛租賃的實現(xiàn)是本系統(tǒng)的關(guān)鍵，要客戶提出出租車的要求時，租賃公司通過系統(tǒng)的這一模塊向數(shù)據(jù)庫的 Lease 表中添加新的租賃記錄。該載入事件的源代碼： Private Sub Form_load() GridRefresh End Sub 其中， GridRefresh 為一個函數(shù)條用語句，這個函數(shù)是在窗體模塊內(nèi)部定義的一個私有過程，在過程中設(shè)置了 Adodc 控件的兩個屬性，分別為Connectionstring 屬性和 Recordsource 屬性。最后編寫窗體及各個空間的源代碼?！皠h除”與之前描述的“注銷會員”操作類似，這里就不講了。命令按鈕“注銷會員”單擊事件策劃年供需源代碼如下： Private Sub Cmd_OffMember_Click() If = True Then MsgBox 請選擇記錄 Exit Sub End If If MsgBox(是否確定要注銷會員資格 , vbYesNo, 請確認(rèn) ) = vbNo Then Exit Sub End If = 0 (Trim((0))) MsgBox 注銷會員 成功 , vbInformation GridRefresh 34 End Sub 會員類型定義窗體實現(xiàn) 本窗體用來實現(xiàn)對會員類型的定義，即對會員等級進(jìn)行分類，比如分為鉆石卡用戶，金卡用戶，銀卡用戶等，不同等級的用戶享受的租賃價格的折扣不同。接著對其它控件的屬性進(jìn)行設(shè)置。 會員信息窗體程序流程圖 415 如下： 圖 415 程序流程圖 本窗體上設(shè)置有四個命令按鈕，一個 Adodc 控件，一個 Dategrid 控件，一個標(biāo)簽控件和一個文本框。 命令按鈕“刪除”單擊事件源代碼如下： Private Sub Cmd_Del_Click() If = True Then MsgBox 請選擇記錄 Exit Sub End If If MsgBox(是否確定要刪除 , vbYesNo, 請確認(rèn) ) = vbNo Then Exit Sub End If 32 (Trim((0))) GridRefresh End Sub 會員信息窗體實現(xiàn) 會員信息窗體為用戶提供了對會員信息如基本信息、駕駛證信息、抵押擔(dān)保信息、會員類型信息的查找、修改、注銷功能。如對于命令按鈕：“刪除”，當(dāng)放置好按鈕位置后，將其名稱屬性設(shè)置為“ Cmd_del”，對于 Caption 屬性則設(shè)置為：“刪除”，字體屬性設(shè)置為“華文行楷”， Enabled 和 Visible 屬性設(shè)置為 true。命令按鈕分別取名為“添加”“修改”“刪除”“查找”“加入會員”“退出”。并且提供將普通客戶加入會員的服務(wù)。一個 ADODC 控件，一個 Datagrid 控件，一個標(biāo)簽控件和一個文本框，其窗體布局 412 如下圖： 開 始選 擇添 加 刪 除修 改 查 找結(jié) 束30 圖 412 車輛信息窗體 Adodc 控件的使用，可以為控件和數(shù)據(jù)庫之間快速建立連接，它提供了一個易于使用的界面，使用戶用較少的代碼創(chuàng)建數(shù)據(jù)庫應(yīng)用程序，以實現(xiàn)對數(shù)據(jù)庫的訪問，本模塊對 ADODC 控件 connectionstring 和 recordsource 屬性的設(shè)置在本窗體的 private sub gridrefresh()過程中完成。 查看保險車輛按鈕的 單機(jī)源代碼如下： 開 始選 擇添 加 刪 除修 改 查 詢查 看 保 險車 輛結(jié) 束29 Private Sub Cmd_ViewCars_Click() = 2 = Trim((1)) = (0) = Trim((1)) = 查看保險公司保險汽車 = 保險公司名稱 1 End Sub 車輛信息窗體設(shè)計 本窗體用來向用戶提供對車輛信息的查找，修改，添加，刪除功能，可處理的信息包括車輛的基本信息如車牌號碼，車輛類型。另外還可根據(jù)用戶選擇的保險公司名稱查詢已在其處辦理了保險業(yè)務(wù)的車輛保險信息，其程序流程圖 49 如： 28 圖 49 程序流程圖 此窗體設(shè)有六個命令按鈕。刷新 DataGrid 表格的內(nèi)容 End Sub 保險公司信息窗體設(shè)計 此窗體用于向用戶提供對保險公司信息如：保險公司的公司名稱，聯(lián)系地址，聯(lián)系電話，傳真，郵政編碼，電子郵箱，聯(lián)系人。初始化 FrmCompanyEdit 信息 = = 銷售商 = = = = = = = 1 39。將 Modify 變量設(shè)置為 False，表示當(dāng)前狀態(tài)為插入新記錄 = False = 1 39。打開編輯類型信息的窗體 1 End Sub 銷售商信息窗體設(shè)計 此窗體用于向用戶提供對車輛銷售商信息如：銷售商的公司名稱，聯(lián)系地址，26 聯(lián)系電話，傳真，郵政編碼，電子郵箱，聯(lián)系人，備注等的添加，修改，刪除，查詢操作，另外還可以根據(jù)用戶選擇的銷售商名稱查詢該廠商向公司出售的車輛信息，其程序流程圖 47 如下 圖 47 程序流程圖 窗體布局 48 如下： 圖 48銷售商信息窗體 此窗體上設(shè)置六和命令按鈕，一個 ADODC 控件，一個 Datagrid 控件，一個開 始選 擇添 加 修 改 刪 除 查 詢查 看 銷 售車 輛結(jié) 束27 標(biāo)簽控件和一個文本框。 Private Sub Cmd_Add_Click() 39。修改刪除操作。類型設(shè)置 End Sub Private Sub m_UserManage_Click() 39。車輛歸還管理 End Sub Private Sub m_Sales_Click() 1 39。會員信息管理 End Sub Private Sub m_MemberType_Click() 1 39。保險公司管理 End Sub Private Sub m_Lease_Click() 1 39。車輛管理 End Sub Private Sub m_Customer_Click() 1 39。Persist Security Info=False 39。Data Source= amp。載入圖片 39。 工具欄單擊事件源代碼如下： Private Sub Form Load () Dim Pic Path As String Pic Path = + \Img\ 39。在窗體上添加 “ 圖像列表控件 ” ，用于保存工具欄按鈕所使用的圖像，在窗體上添加 “ 工具欄控件 ”，將其與圖像控制列表控件 相關(guān)聯(lián)。 22 圖 44 系統(tǒng)主界面 首先點擊工具欄內(nèi)新建工具按鈕，新建一個工程，自動產(chǎn)生了一個空窗體，在窗體上單擊右鍵，在彈出的菜單欄上點擊“菜單編輯器”命令，打開菜單編輯器。 例如：將第二個命令按鈕的控制名設(shè)為“ cmd cancel”， caption 屬性設(shè)為“ 取消 ” ，字體設(shè)為 “ 華文行楷 ” ， enable 和 eisible 屬性均設(shè)為 “ ture” ,編寫按鈕單擊源代碼如下： Private Sub Cmd_Cancel_Click () End E