【正文】 ？？39。 (39。 。)。 (39。 except (39。xxx 大學 xxx 學院 畢業(yè)論文( 設計) 29 62:begin//關(guān)于 gfunOpenAbout()。begin inherited。 if then 。 close。提示39。提示39。 :=false。 :=true。 。 exit。 :=false。then (39。IfInsure39。,39。 (39。 end。 。 :=false。 end。 end。DriverName39。 。end。select * from VehicleRecord a, DCType b where = and TypeName=:TypeName39。 if then 。//當車輛類型改變時，查詢相應的車輛記錄procedure (Sender: TObject)。 (39。 end。)。,39。 (39。)。 end。(39。 。end。是39。begin inherited。 :=false。沒有選擇要刪除的車輛39。保存數(shù)據(jù)出錯39。 :=true。 :=false。begin inherited。begin inherited。打開駕駛員檔案表錯誤39。提示39。 。 54:begin //數(shù)據(jù)恢復 gfunOpenRestore()。 (39。)。 。 (39。 。 end。 end。 end。 end。+sUserIDend。其功能比較全面，能有效地協(xié)助單位進行車輛的管理，管理方便，簡單，大大減少了管理人員作業(yè)量，減少出錯幾率，提高了工作效率。圖 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ù)庫。圖 42 系統(tǒng)主界面設計圖在主界面拖放控件 Mainmenu，并設置其菜單項分別為檔案管理，運營管理，車輛管理，駕駛員管理，系統(tǒng)維護，關(guān)于。 SQL Server2022 的同 一 個 數(shù)據(jù) 庫 引 擎 可 以 在 不 同 的 windows 平 臺 上 使 用 且 具有分 布 式 事 務 支 持 功 能 ， 能 充分 保 護 任 何 分 布 式 數(shù) 據(jù) 更 新 的 完 整 性 。 [3]xxx 大學 xxx 學院 畢業(yè)論文( 設計) 2 第二章 系統(tǒng)開發(fā)相關(guān)技術(shù) 編程工具的選擇本系統(tǒng)編譯工具為 Delphi，具體編譯工具版本為 Delphi7。人們越來越認識到計算機強大的信息處理功能，使之成為信息產(chǎn)業(yè)的基礎和支柱。 [1]隨著我國經(jīng)濟的快速發(fā)展，汽車已經(jīng)成為人們不可缺少的交通工具。Delphi 是美國 Borland Software Corporation 公司的編程工具產(chǎn)品。 SQL Server2022 還易于安裝和使用，S QL xxx 大學 xxx 學院 畢業(yè)論文( 設計) 3 Server 2022 中 包 括 一 系 列 管 理 和 開 發(fā) 工 具 ， 這 些 工 具 可 改 進 在 多 個 站 點 上 安 裝 、部 署 、 管 理 和 使 用 SQL Server 的 過 程 使 得 安 裝 和 使 用 方 便 。在菜單項檔案管理下設置其選項：車輛檔案錄入，車輛檔案查詢，車輛異動，車輛異動查詢，車輛報廢，車輛報廢查詢，車輛類型。程序中連接數(shù)據(jù)庫的控件較多，因此采用在datamodule 中放置一個 adoconnection 控件供多個 aodquery 控件連接數(shù)據(jù)庫的方法，如圖 45 所示。但是由于設計時間較短，在系統(tǒng)設計方面還有待改進的地方，比如對錄入不完整的時間數(shù)據(jù)的處理界面不夠友好，錄入時間數(shù)據(jù)的正確性不加判別，今后會在此方面予以改進，也請各位老師多提寶貴意見。procedure (Sender: TObject。 12:begin// 調(diào)用車輛檔案查詢 gfunOpenVehicleRecord()。 23:begin //清空運營表 if (39。 32:begin //車輛維修查詢 gfunOpenMaintenace()。 43:begin//駕駛員獎罰 gfunOpenDriverAward()。 。delete from VehicleOperation39。xxx 大學 xxx 學院 畢業(yè)論文( 設計) 28 。 //刪除車輛檔案 。delete from DCType39。 end。end。)。,39。 if not then else (39。 if not then else (39。 :=false。 :=true。,39。,39。 :=false。 if =dsBrowse then 。 then (39。//過程重寫，實現(xiàn)多肽procedure 。 (39。DriverName39。 4: //已異動車輛查詢 begin :=false。 。select * from VehicleRecord where IfInsure=039。錯誤39。 exit。 // 讀取車輛類型到 bobox3 中 while not do begin ((39。PlateNo39。begin inherited。end。 (39。 。).AsString)。 //讀取駕駛員名稱到 bobox2 中 while not do begin ((39。 exit。 。 6: //沒有年檢車輛車輛查詢 begin :=false。 :=false。 。)。查詢車輛檔案表出錯39。).AsInteger:=0 else (39。是39。 :=false。)。)。 :=true。 :=false。,39。,39。)。 end。 var Action: TCloseAction)。 end。 //刪除車輛類型記錄 。 。delete from VehicleScrap39。 //刪除車輛運營記錄 。 。 51:begin //系統(tǒng)初始化 if (39。 33:begin//添加零件 gfunOpenAddParts()。,39。 13:begin //調(diào)用車輛異動管理 gfunOpenAddTransaction()。begin if (39。這次畢業(yè)設計是在曹老師的悉心指導和幫助下完成的。Password=。在車輛管理菜單下設置其選項：車輛維修管理，車輛維修查詢，添加零件，車輛違章管理，車輛違章查詢，車輛事故管理，車輛事故查詢。 [7]xxx 大學 xxx 學院 畢業(yè)論文( 設計) 4 第三章 系統(tǒng)的分析和數(shù)據(jù)庫設計 需求分析單位車輛管理系統(tǒng)的目標是對實現(xiàn)車輛相關(guān)信息的計算機管理，使得管理科學化、規(guī)范化、自動化。Delphi 的主要特點體現(xiàn)在以下幾個方面：1)．編譯器速度較快且已編譯代碼的效率執(zhí)行效率較高。在傳統(tǒng)管理過程中，表單填寫與查詢管理都非常的耗費人力物力，同時由于采用手工操作，不可避免造成一些的錯誤，這種管理方式還存在著許多缺點，如效率低、保密性差且較為煩瑣。關(guān)鍵詞：車輛管理，Delphi7, SQL Server2022xxx 大學 xxx 學院 畢業(yè)論文( 設計)iDevelopment of Vehicle Management System Based on DelphiABSTRACTWith the economy growing, the vehicle quantity increases rapidly and the kind of the vehicle is in constant increase too,which will cause that the vehicles reference material will increase. Along with the reference material increase, the staff work load increases, file storage, query, such as office work and highefficiency requirements have bee increasingly prominent contradictions. In order to resolve this contradiction, that using the puter to manage vehicle will bee the inexorable trend.This paper mainly introduces how to use delphi and sql server to structure the vehicle management system. The paper analyzes the main ponents of the system, focusing on the system functional modules detailed ideas and methods. The system can assist the unit to manage the vehicles effectively,which is convenient and simple to be used , the system ca