【文章內(nèi)容簡介】 eld TYPENODBLoolupCombobox1 dataField DRIVERNODBEdit2 dataField CAPACITYDBEdit3 dataField USINGDEPTDBEdit4 dataField BELONGDEPTDBEdit5 dataField ENGINEMODELDBEdit6 dataField FRAMENODBEdit7 dataField FACTORYPLATENODBEdit8 dataField ReviewDBEdit9 dataField InsuredataField ACQUISITIONDATE DBEdit10共有屬性 dataSource dsVehicle 車輛檔案查詢設計設置 Form 屬性 caption 為車輛檔案查詢，name 為 frmVehicleRecord。添加控件 panel，DBGrid，adoquery，datasource 到 frmVehicleRecord 中，控件位置如圖 44，控件屬性見表 44，代碼見附錄 B部分代碼。圖 44 控件位置圖xxx 大學 xxx 學院 畢業(yè)論文( 設計) 14 表 44 控件屬性表控件名 屬性 值Panel1 caption 車輛檔案查詢caption 按車牌號Radiobutton1Tag 1 caption 按駕駛員Radiobutton2Tag 2 caption 按車輛類型Radiobutton3Tag 3 caption 異動車輛Radiobutton4Tag 4caption 以報廢車輛Radiobutton5Tag 5caption 沒有年檢車輛Radiobutton6Tag 6caption 沒有保險車輛Radiobutton7Tag 7 Radiobutton 共有 Onclick radioButton1click Combobox1 onclick Combobox1changeCombobox2 onclick Combobox2changeCombobox3 onclick Combobox3changeAdoquery1 name aqryQueryAdoquery2 name aqryVehicleAdoquery3 name aqryDCTypeAdoquery4 name aqryDriverAdoquery 共有 Connection name dsQuery Datasource1Dataset aqryQuery 數(shù)據(jù)庫連接設計本系統(tǒng)使用的數(shù)據(jù)庫為 sql server2022，程序使用 ado 控件的connectionstring 屬性連接數(shù)據(jù)庫。程序中連接數(shù)據(jù)庫的控件較多，因此采用在datamodule 中放置一個 adoconnection 控件供多個 aodquery 控件連接數(shù)據(jù)庫的方法，如圖 45 所示。xxx 大學 xxx 學院 畢業(yè)論文( 設計) 15 圖 45 數(shù)據(jù)庫連接設計圖各控件屬性圖如表 45 所示表 45 控件屬性表控件名 屬性 值name connOracleLoginPrompt falseAdoconnectionConnectionstringProvider=。Password=。Persist Security Info=True。User ID=sa。Initial Catalog=student。Data Source=jkxxx 大學 xxx 學院 畢業(yè)論文( 設計) 16 第五章 系統(tǒng)實現(xiàn) 系統(tǒng)環(huán)境 CPU Intel Pentium II / 233 MHz 以上 內(nèi) 存 至少 128M 硬盤空間 至少 950M 操作系統(tǒng) windows98/2022/xp 系統(tǒng)運行情況 用戶登錄界面圖 51 用戶登錄界面此界面用于登錄系統(tǒng)，用戶分管理員與普通用戶，普通用戶的操作受到限制，管理員則擁有所有操作權限，而管理員賬戶 123（密碼也為 123）為初始管理員，當管理員進行系統(tǒng)初始化時，除初始管理員 123 外的其余所有賬戶，都被清除。 系統(tǒng)主界面圖 52 車輛管理系統(tǒng)主界面xxx 大學 xxx 學院 畢業(yè)論文( 設計) 17 在系統(tǒng)主界面中有六個菜單為檔案管理、運營管理、車輛管理、駕駛員管理、系統(tǒng)維護、關于。各個菜單下又有若干選項，單擊可進行相應操作。同時主界面中還設置了一些快捷圖標，可直接進行相應操作。 車輛檔案管理界面圖 53 車輛檔案信息管理界面此界面對車輛檔案信息進行管理如增加、刪除、修改，同時可查看檔案信息，但要完整填寫檔案信息首先要完成車輛類型信息與駕駛員檔案信息的錄入。 車輛檔案信息查詢界面圖 54 車輛檔案查詢xxx 大學 xxx 學院 畢業(yè)論文( 設計) 18 駕駛員信息管理和查詢界面圖 55 駕駛員管理界面圖 56 駕駛員檔案查詢界面可以對駕駛員信息進行管理和查詢，但要完整填寫駕駛員的信息需要首先完成車輛類型信息的錄入。xxx 大學 xxx 學院 畢業(yè)論文( 設計) 19 車輛類型管理界面圖 57 車輛類型管理界面車輛類型管理是完整錄入駕駛員信息與車輛檔案信息的基礎。在此界面可以對車輛類型進行錄入、刪除、作廢三項操作。xxx 大學 xxx 學院 畢業(yè)論文( 設計) 20 結(jié)束語經(jīng)過兩個多月的設計和開發(fā)，該車輛管理系統(tǒng)基本開發(fā)完畢。其功能比較全面，能有效地協(xié)助單位進行車輛的管理，管理方便，簡單，大大減少了管理人員作業(yè)量，減少出錯幾率，提高了工作效率。但是由于設計時間較短，在系統(tǒng)設計方面還有待改進的地方，比如對錄入不完整的時間數(shù)據(jù)的處理界面不夠友好，錄入時間數(shù)據(jù)的正確性不加判別，今后會在此方面予以改進，也請各位老師多提寶貴意見。xxx 大學 xxx 學院 畢業(yè)論文( 設計) 21 致謝在畢業(yè)設計即將結(jié)束之際,首先衷心感謝我的指導老師 xxx 老師。這次畢業(yè)設計是在曹老師的悉心指導和幫助下完成的。在整個畢業(yè)設計中，曹老師一直非常關心我的畢業(yè)設計的完成情況，每個星期都會和我進行交流，并針對我的設計提出非常寶貴的建議。每一次交給老師的報告，老師都及時認真的審閱，并耐心的指導我。曹老師認真負責的態(tài)度，是我學習的榜樣。此外，向支持我的其他各位老師表示衷心的感謝。因為，在設計過程中，由于所學知識有限及應用不靈活等原因經(jīng)常會出現(xiàn)一些疑難問題，在解決設計中的各種問題時，他們給予我很大的幫助。最后，在這里對以上幫助我的老師再次表示感謝，正是由于他們的幫助使我充實了平時所學的知識，掌握了實際的工作技能，真正的將理論與實際相結(jié)合，使我獲益匪淺，在此表達我最真摯的謝意！xxx 大學 xxx 學院 畢業(yè)論文( 設計) 22 參考文獻[1] 車輛管理系統(tǒng)論文. [2] 雍殿書. 管理信息技術與系統(tǒng). 南京：南京大學出版社，[3] 車輛管理系統(tǒng). [4] 何鵬飛. Delphi 7 程序設計教程. 北京：清華大學出版社，2022,.7[5] 封玲等. 現(xiàn)代數(shù)據(jù)庫系統(tǒng)實用教程. 北京：人民郵電出版社，[6] 王晶. SQL Server 2022 管理與應用開發(fā)教程. 北京：人民郵電出版社，[7] 宋一兵等. Delphi17 基礎教程. 北京：機械工業(yè)出版社，xxx 大學 xxx 學院 畢業(yè)論文( 設計) 23 附錄 A數(shù)據(jù)庫表表 1 用戶表字段名 類型 長度 是否空 含義UserID nvarchar 50 否 登陸名Password nvarchar 50 否 登陸密碼Status Real 4 否 是否為管理員表 2 車輛記錄表字段名 類型 長度 是否空 含義PlateNo nvarchar 50 否 車牌號DriverNo nvarchar 50 否 司機號TypeNo nvarchar 50 否 車類型號IfReview int 4 否 是否年檢IfInsure int 4 否 是否參保acquisitiondate datatime 8 否 購置日期capacit Real 4 否 載重usingdepy nvarchar 50 否 使用單位Belongdept nvarchar 50 否 所在單位enginemodel nvarchar 50 否 發(fā)動機號frameno nnvarchar 50 否 車架號factoryplateno nvarchar 50 否 車牌型號review int 4 否 已年檢Insure Int 4 否 已參保表 3 運營管理表字段名 類型 長度 是否空 含義PlateNo nvarchar 50 否 車牌號perationdate datatime 8 否 運營日期Operationin Money 8 是 收入Operationontime Datatime 8 否 運營時間表 4 車輛維修記錄表字段名 類型 長度 是否空 含義PlateNo nvarchar 50 否 車牌號partsname nvarchar 50 否 維修部件maintenancedate Datatime 8 否 維修日期neednumber Money 8 否 所需費用表 5 事故表字段名 類型 長度 是否空 含義PlateNo nvarchar 50 否 車牌號AccidentDate Datatime 8 否 事故日期accidentundertaker nvarchar 50 否 承擔者Companysum Money 8 否 公司負責金額insurancesum Money 8 否 保險理賠金額oppositesum Money 8 否 對方理賠金額oppositename nvarchar 50 否 對方姓名xxx 大學 xxx 學院 畢業(yè)論文( 設計) 24 opposiredamage nvarchar 50 否 對方損壞程度Oppositedept nvarchar 50 否 對方單位accidentgeneral Nvarchar 50 是 事故概要表 6 違章車輛表字段名 類型 長度 是否空 含義PlateNo nvarchar 50 否 車牌號nfringedate Datatime 8 否 違章日期infringereason Nvarchar 50 否 違章原因Punishment nvarchar 50 否 是否處罰infringeremark Nvarchar 50 是 備注表 7 駕駛員記錄表字段名 類型 長度 是否空 含義DriverNo nvarchar 50 否 司機編號DriverName nvarchar 50 否 司機姓名birthday Datatime 8 是 出生日期licensend nvarchar 50 否 駕駛證號dateexpires Datatime 8 否 獲證日期drivedyard nvarchar 50 否 駕齡表 8 車輛類型表字段名 類型 長度 是否空 含義Ifvoid Int 4 否 是否作廢TypeNo nvarchar 50 否 類型號TypeName nvarchar 50 否 類型名表 9 車輛異動表字段名 類型 長度 是否空 含義PlateNo nvarchar 50 否 車牌號Transactiondate Datatime 8 否 異動時間Transac