【文章內(nèi)容簡介】 計原則 系統(tǒng)設(shè)計是根據(jù)既定的功能要求，考慮實際條件，具體設(shè)計實現(xiàn)邏輯模型的技術(shù)方案，即設(shè)計新系統(tǒng)的物理模型。系統(tǒng) 界面簡潔大方，易操作，用戶可以在自己的權(quán)限范圍內(nèi)進(jìn)行相應(yīng)操作，確保系統(tǒng)的安全性。用戶通過此系統(tǒng)可以了解到 車輛和車庫 的相關(guān)信息，以及 車 庫管理員信息，管理 員可以通過此系統(tǒng)對 車輛信息進(jìn)行登記以及車輛 的相關(guān)信息進(jìn)行管理 [10]。 系統(tǒng)總體 功能結(jié)構(gòu) 設(shè)計 通過對系統(tǒng)需求的分析， 該系統(tǒng)模塊包括： 車庫信息 模塊、 車輛信息模塊 、 登陸模塊、 管理員車輛管理 模塊、 車庫設(shè)置相關(guān)模塊以及幫助模塊 ；下面給出系統(tǒng)總體功能結(jié)構(gòu)圖如圖 31所示 和硬件結(jié)構(gòu)圖如圖 32 所示 ： 圖 31 客運售票系統(tǒng)總體功能結(jié)構(gòu)圖 9 終 端終 端終 端數(shù) 據(jù) 庫 服 務(wù) 器 圖 32 系統(tǒng)硬件結(jié)構(gòu)圖 系統(tǒng) 詳細(xì) 設(shè)計 模塊設(shè)計說明 結(jié)構(gòu)化設(shè)計的 基本思想就是把系統(tǒng)設(shè)計成由相對獨立、功能單一的模塊組成的層次結(jié)構(gòu)。在進(jìn)行模塊的分解設(shè)計時要遵循自頂向下原則；模塊獨立性原則；高內(nèi)聚、低耦合， 作用 范圍在控制范圍之內(nèi)原則。 模塊描述 本系統(tǒng)的主要模塊有以下 6 個，其總體的功能結(jié)構(gòu)圖如圖 31所示，現(xiàn)對 各模塊進(jìn)行分解，詳述如下： 系統(tǒng) 模塊、 顧客查詢 模塊、 智能管理 模塊、 軟件設(shè)置 模塊、 幫助 模塊。 （ 1）系統(tǒng) 模塊 （系統(tǒng)信息，軟件信息，退出）：系統(tǒng)信息界面會顯示 ：當(dāng)前系統(tǒng)版本、當(dāng)前系統(tǒng)分辨率、當(dāng)前計算機用戶名、計算機名稱、物理內(nèi)存、系統(tǒng)的啟動時間；系統(tǒng)信息界面會 顯示當(dāng)前軟件的信息、 當(dāng)前 軟件版本信息。 （ 2）顧客查詢系統(tǒng) 模塊（顧客查詢，投訴）：顧客查詢界面： 通過顧客查詢界面顧客可以方便得 查詢到車輛進(jìn)入車庫的時間并且顯示出車輛的當(dāng)前信息，包括車牌號碼、車主姓名、車輛型號、入庫時間、到現(xiàn)在應(yīng)收取費用、并顯示車輛入庫時拍攝照片；顧客投訴界面：通過填入標(biāo)題及正文，能向系統(tǒng) 提交投訴 信息。 （ 3）智能管理模塊：通過錄像、拍照、 人工錄入及人工對車實現(xiàn) 小區(qū) 智能 車庫管理系統(tǒng) 高效的管理及人員配置。 （ 4）智能監(jiān)控模塊：支持錄像機錄像、監(jiān)控及拍照的功能，高度人性化的功能能實現(xiàn)車庫的安全監(jiān) 控。 （ 5）軟件選項 模塊：提供收費單價的設(shè)置及數(shù)據(jù)庫信息的導(dǎo)出。 （ 6）幫助模塊：在幫助界面中， 將會介紹智能車庫管理軟件的使用方法，及軟件的最新信息，建議經(jīng)常查閱。 10 代碼設(shè)計 代碼設(shè)計的好壞，將直接影響到系統(tǒng)的質(zhì)量、實用性與生命力。一個代碼的小修改，將會引起多個文件和程序的修改；代碼的大修改可能還會引起數(shù)據(jù)庫的重新設(shè)計和建立。所以對代碼的設(shè)計一定要做全面的考慮和仔細(xì)的推敲。 （ 1） 順序碼：這類代碼對代碼對象從頭開始按自然數(shù)進(jìn)行連續(xù)編碼。 以 入庫車輛編號 為例。 在車輛入庫 的過程 中， 系統(tǒng)要給每臺車輛自 動生成唯一的入庫編號，以便于車輛 的管理 。 （ 2） 助記碼：這種代碼將代碼對象名或縮寫符號作為代碼的一部分。如 car 表示 車牌 ， na 表示 車主姓名 ， intime 表示入庫時間等 。 （ 3） 密碼：它用于系統(tǒng)內(nèi)的控制口令，可用計算機能識別的任何符號編碼。 密碼為任何 計算機能識別的任何符號，屏幕顯示為 ******號。 數(shù)據(jù)庫設(shè)計 系統(tǒng)使用的是 Microsoft Access 2021作為后臺數(shù)據(jù)庫。 根據(jù) 系統(tǒng)主要數(shù)據(jù)庫實 本 描述及其 ER圖， 針對數(shù)據(jù)生成系統(tǒng)的功能需求，結(jié)合數(shù)據(jù)生成系統(tǒng)的內(nèi)容和數(shù)據(jù)流程分析，為 本系統(tǒng)設(shè)計如下的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu) 。主要數(shù)據(jù)表如下表 31 至表 35所示 [8]： 表 31 車輛信息 表 表名： car 字段名 數(shù)據(jù)類型 標(biāo)題 寬度 小數(shù)位數(shù) 是否主鍵 id 自動編號 系統(tǒng)自動編號 — car 文本 車牌號碼 20 — 是 na 文本 車主姓名 20 — — picture OLE 對象 車牌照片 — — style 文本 車輛型號 20 — intime 日期 /時間 入庫時間 — outtime 日期 /時間 出庫時間 — — duration 文本 入庫時長 20 — — money 文本 金額 20 — — 表 32 管理 員信息表 表名： user 字段名 數(shù)據(jù)類型 標(biāo)題 寬度 小數(shù)位數(shù) 是否主鍵 id 自動編號 系統(tǒng)自動 編號 — username 文本 管理員姓名 20 — Password 文本 密碼 20 — — Number 文本 管理員編號 2 — 是 Phone 文本 電話 10 — 11 表 33 投訴 信息 反饋 表 表名： plaint 字段名 數(shù)據(jù)類型 標(biāo)題 寬度 小數(shù)位數(shù) 是否主鍵 Id 自動編號 系統(tǒng)自動編號 — title 文本 標(biāo)題 — 是 Complaint 文本 投訴 內(nèi)容 — — 安全性設(shè)計 任何一個系統(tǒng)除了要具有全面的功能模塊，更要具有良好的安全性設(shè)計。它不僅能夠使系統(tǒng)不易受損，延長壽命，更能保證數(shù)據(jù)不被盜竊或損壞，提高管理效率。 本系統(tǒng)具有較好的安全性設(shè)計，主要體現(xiàn)如下： （ 1）本系統(tǒng)采用的后臺數(shù)據(jù)庫為 Microsoft Access 2021數(shù)據(jù)庫，該數(shù)據(jù)庫使用方便，數(shù)據(jù)移植性較好。它與本系統(tǒng)可以通過 DELPHI 的 數(shù)據(jù)庫接口 進(jìn)行連接，便于系統(tǒng)與數(shù)據(jù)庫的連接使用。 （ 2）在權(quán)限管理方面，系統(tǒng)操作人員現(xiàn)分 為：管理員 和 游客 。用戶選擇 登陸窗口 不同登陸選項 ，并輸入用戶名和密碼登錄 。若用戶名和密碼輸入錯誤，則提示“輸入不正確，請重新輸入 ”， 系統(tǒng)登錄操作流程圖如 圖 33 所示。 圖 33 系統(tǒng)登錄操作流程圖 12 4 車庫管理 系統(tǒng)實現(xiàn) 軟件開發(fā)工具 前端開發(fā)工具和腳本語言的選擇 Delphi，是 Windows 平臺下著名的快速應(yīng)用程序開發(fā)工具 (Rapid Application Development，簡稱 RAD)。它的前身，即是 DOS 時代盛行一時的“ BorlandTurbo Pascal”，最早的版本由美國 Borland（寶蘭）公司于 1995 年開發(fā)。主創(chuàng)者為 Anders Hejlsberg。經(jīng)過數(shù)年的發(fā)展，此產(chǎn)品也轉(zhuǎn)移至 Embarcadero 公司旗下。 Delphi 是一個集成開發(fā)環(huán)境（ IDE），使用的核心是由傳統(tǒng) Pascal 語言發(fā)展而來的 Object Pascal，以圖形用戶界面為開發(fā)環(huán)境，透過 IDE、 VCL 工具與編譯器，配合連結(jié)數(shù)據(jù)庫的功能，構(gòu)成一個以面向?qū)ο蟪绦蛟O(shè)計為中心的應(yīng)用程序開發(fā)工具。 Object Pascal 是一種高級編譯語言，具有強類型（對數(shù)據(jù)類型的檢查非常嚴(yán)格）特性，支持結(jié)構(gòu)化和面向?qū)ο缶幊?。它的?yōu)點包括代碼的易讀性、快速編譯，以及支持多個單元文件從而實現(xiàn)模塊化編程。 Microsoft Access 2021應(yīng)用程序是微軟公司推出的關(guān)系型數(shù)據(jù)庫管理系統(tǒng)，具有簡單易用、功能強大的特點。它是辦公軟件 Office 2021的一個組件，而且當(dāng)今的各種主頁空間有很多是支持 Access 的，所以系統(tǒng)選用了 Microsoft Access 2021，并使用Delphi 提供的數(shù)據(jù)庫接口 實現(xiàn)數(shù)據(jù)庫的連接。 軟件開發(fā)平臺的選擇 基于 object pascal 和 Microsoft Access 2021對運行環(huán)境的要求，采用了 Windows 7以上的操作系統(tǒng)作為系統(tǒng)開發(fā)、測試和運行的平臺 [6][7]。 系統(tǒng)界面的實現(xiàn) 登陸界面 登陸界面提供進(jìn)入管理軟件的 2 個通道，一個是顧客模式，一個是管理員模式，顧客模式可以瀏覽車庫的相關(guān)信息及車輛的相關(guān)信息 ； 管理員模式可以瀏覽包括車庫信息、車輛信息在內(nèi) ，還可以管理車庫車輛信息 ，其界面 如下圖 41所示： 13 圖 41 首頁登陸界面 登陸界面檢驗 功能流 程圖如圖 33所示。 登陸界面主要 代碼如下 [2]： //查詢數(shù)據(jù)庫 。 。 sqlstr:=39。select * from [admin] where [username]=39。+Quotedstr()+39。 and [password]=39。+Quotedstr()。 (sqlstr)。 。 //賬號密碼檢驗 case of 0:begin messagebox(handle,39。您輸入的用戶名或是密碼有誤！ 39。,39。提示 39。,64)。 Inc(i)。 //i:=i+1 if i2 then begin messagebox(handle,39。您已經(jīng)輸錯三次了！ 39。,39。提示 39。,64)。 。 end。 end。 1:begin AdminRecord:=39。Admin39。 :=mrOk。 //賬號密碼正確 end。 14 系統(tǒng)信息 界面 系統(tǒng)信息界面顯示當(dāng)前系統(tǒng)版本 、當(dāng)前系統(tǒng)分辨率、當(dāng)前計算機用戶名、計算機名稱、物理內(nèi)存、系統(tǒng)的啟動時間；系統(tǒng)信息界面會顯示當(dāng)前軟件的信息、 當(dāng)前軟件版本信息。 其 界面 如下圖 42所示： 圖 42 系統(tǒng)信息 界面 系統(tǒng)信息界面部分代碼如下： //操作系統(tǒng)版本 function Winversion :string。 var osvi:OSVERSIONINFO。 begin :=sizeof(osversioninfo)。 getversionex(osvi)。 case of VER_PLATFORM_WIN32s:result:=39。Windows 39。 VER_PLATFORM_WIN32_NT :result:=39。Windows 739。 VER_PLATFORM_WIN32_WINDOWS :result:=39。Windows 9x39。 end。 end。 車庫信息 界面 車庫信息界面顯示當(dāng)前該車庫的車庫容量，當(dāng)前車庫的已存車輛數(shù)，顯示車庫的高峰時段（可以通過車庫設(shè)置進(jìn)行設(shè)置），以及當(dāng)前車庫軟件的操作權(quán)限。 其 界面 如下圖43 所示： 15 圖 43 車庫信息 界面 車庫信息界面主要代碼如下： :=39。當(dāng)前車庫已存車輛 : 39。+IntToStr()。 //返回查詢數(shù) 顧客車輛查詢界面 通過顧 客車輛查詢界面，顧客可以用車牌號碼查找到車牌號碼對應(yīng)車主的姓名、車輛的型號、入庫時間、 應(yīng)交的費用，并會 現(xiàn)在車輛在入庫時候所拍攝的車輛照片。 其 界面 如下圖 44所示： 圖 44 顧客車輛查詢 界面 16 查詢功能流程圖如圖 45所示： 圖 45 查詢功能流程圖 顧客查詢界面查詢功能主要代碼如下： begin :=。 (39。請輸入車牌號碼 !39。,39。提示 39。,MB_OK)。 end else begin 。 。 (39。select * from car where car1 LIKE %39。 + + 39。%39。)。 。 if 1 then begin :=。 (39。查詢不到該車輛！ 39。, 39。警告 39。, MB_OK)。 Exit。 end else begin 17 :=。 :=(39。na39。).AsString。 :=(39。car139。).AsString。 :=(39。style139。).AsString。 :=(39。intime39。).AsString。 a:=(39。intime39。).AsString。 if Trim(a)39。39。 then begin b:=MinutesBetween(Now(),StrToDatetime(a))。 //顯示入庫時間長 //顯示收費 :=FloatToStr(b*)。 end else begin :=。 (39。時間信息錯誤！請聯(lián)系管理員！ 39。, 39。警告 39。, MB_OK)。 顧客投訴 界面 顧客 投訴界面提供了給顧客進(jìn)行投訴反饋的渠道，通過在投訴界面中輸入投訴的標(biāo)題及內(nèi)容（點擊提交時標(biāo)題跟內(nèi)容都不得為空），所填的信息將會儲存到服務(wù)器上的數(shù)據(jù)庫中，方便車庫管理人