【導(dǎo)讀】車輛進(jìn)出庫(kù)管理、車輛監(jiān)控、數(shù)據(jù)庫(kù)備份恢復(fù)、顧客查詢等模塊。吸引力，應(yīng)用前景好，其水平達(dá)到了市場(chǎng)應(yīng)用水平。該生較好的動(dòng)手能力，是一份優(yōu)秀的作品。在地下的智能立體停車庫(kù)具有高密度的特點(diǎn)，是停車庫(kù)中最為先進(jìn)的形式。高，是各大城市解決停車難的最佳選擇。智能立體停車庫(kù)是集自動(dòng)化技術(shù)、機(jī)器人。成車輛的存取以及相關(guān)信息的管理。對(duì)該系統(tǒng)的開(kāi)發(fā)與研究，可以解決中國(guó)停車難。的問(wèn)題，具有非常大的理論意義和實(shí)用價(jià)值。停車難是因?yàn)榭赏＼嚨牡胤教伲y問(wèn)題的首選方案。另一方面，政府應(yīng)出臺(tái)鼓勵(lì)公共停車場(chǎng)建設(shè)的政策，采取優(yōu)惠。營(yíng)管理，應(yīng)適時(shí)引入和發(fā)展適合城市經(jīng)濟(jì)發(fā)展的公司制經(jīng)營(yíng)模式。預(yù)期設(shè)計(jì)目標(biāo)[1]。

　　

【正文】 的大學(xué)生涯也接近尾聲了。這次的畢業(yè)設(shè)計(jì)過(guò)程讓我認(rèn)識(shí)到，書(shū)本上的 專業(yè)知識(shí)真正運(yùn)用到實(shí)際才是真正的學(xué)到了，會(huì)自己去思考去探索，學(xué)得 才會(huì)更加的深刻。 學(xué)習(xí)不是一件急于求成的事，是需要恒心、細(xì)心和虛心的。 28 參考文獻(xiàn) [1] 葉核亞 編著：《 Delphi 程序設(shè)計(jì) 》， 人民郵電出版社 ， [2] 鄭啟華編著 ：《 PASCAL 程序設(shè)計(jì) 》，清華大學(xué)出版社， [3] 明日科技 ：《 Delphi 組件參考大全 》， 人民郵電出版社 ， 第 1版 （ 2021年 12月 1日 ） [4] 明日科技：《 Delphi 函數(shù)參考大全》， 人民郵電出版社 ， 第 1版 (2021年 12月 1日 ) [5] 李文立 , 劉強(qiáng) , 梁冰 編著：《 Delphi數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)案例精選 》， 人民郵電出版社 ， 第 1版 (2021年 5月 1日 ) [6] 賽奎春 , 陳紫紅編著：《 Delphi數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析》，機(jī)械工業(yè)出版社，第 2版 (2021年 1月1日 ) [7] 宋坤 , 鄒天思編著：《 Delphi數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)完全手冊(cè) 》，人民郵電出版社，第 1版 (2021年3月 1日 ) [8] 賽奎春編著：《 Delphi信息系統(tǒng)開(kāi)發(fā)實(shí)例精選》 機(jī)械工業(yè)出版社，第 1版 (2021年 8月 1日 ) [9] Marco Cant249。編著：《 Delphi 2021 HANDBOOK》， CreateSpace， 20210228 [10] John Barrow, Linda Miller, Katherine Malan Helene 編著：《 Introducing Delphi Programming》， Oxford University Press, USA， 20210728 29 附 錄 1 登陸 界面 關(guān)鍵代碼 var sqlstr:String。 begin if =39。39。 then begin messagebox(handle,39。請(qǐng)輸入用戶名。 39。,39。提示 39。,64)。 Exit。 end。 if =39。39。 then begin messagebox(handle,39。請(qǐng)輸入用密碼。 39。,39。提示 39。,64)。 Exit。 end。 。 。 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)輸錯(cuò)三次了！ 39。,39。提示 39。,64)。 。 end。 end。 1:begin AdminRecord:=39。Admin39。 :=mrOk。 //賬號(hào)密碼正確 end。 30 end。 end。 2 主界面 顯示左邊標(biāo)題欄及右 邊主窗口 關(guān)鍵代碼 //設(shè)置動(dòng)態(tài)創(chuàng)建的左邊窗體屬性 procedure 。 begin :=Panel2。 :=0。 :=0。 。 :=。 :=。 end。 //設(shè)置動(dòng)態(tài)創(chuàng)建的右邊窗體屬性 procedure 。 begin :=Panel3。 :=0。 :=0。 。 :=。 :=。 end。 3 攝像頭關(guān)鍵代碼 //代碼定義 const WM_CAP_START=WM_USER。 const WM_CAP_STOP=WM_CAP_START+68。 const WM_CAP_DRIVER_CONNECT=WM_CAP_START+10。 const WM_CAP_DRIVER_DISCONNECT=WM_CAP_START+11。 const WM_CAP_SAVEDIB=WM_CAP_START+25。 const WM_CAP_GRAB_FRAME=WM_CAP_START+60。 const WM_CAP_SEQUENCE=WM_CAP_START+62。 const WM_CAP_FILE_SET_CAPTURE_FILEA=WM_CAP_START+20。 const WM_CAP_SEQUENCE_NOFILE=WM_CAP_START+63。 const WM_CAP_SET_OVERLAY=WM_CAP_START+51。 31 const WM_CAP_SET_PREVIEW=WM_CAP_START+50。 const WM_CAP_SET_CALLBACK_VIDEOSTREAM=WM_CAP_START+6。 const WM_CAP_SET_CALLBACK_ERROR=WM_CAP_START+2。 const WM_CAP_SET_CALLBACK_STATUSA=WM_CAP_START+3。 //狀態(tài) const WM_CAP_SET_CALLBACK_FRAME=WM_CAP_START+5。 const WM_CAP_SET_SCALE=WM_CAP_START+53。 const WM_CAP_SET_PREVIEWRATE=WM_CAP_START+52。 function capCreateCaptureWindowA(lpszWindowName:PChar。 dwStyle:LongInt。 x:Integer。 y:Integer。 nWidth:Integer。 nHeight:Integer。 ParentWin:Hwnd。 nID:Integer):Hwnd。 stdcall external 39。39。 4 進(jìn)出庫(kù)相關(guān)主要 代碼 //進(jìn)庫(kù)主要代碼 var Stem:TMemoryStream。 begin if trim()=39。39。 then begin :=。 (39。車牌號(hào)碼不能為空 !39。,39。提示 39。,MB_OK)。 end else begin 。 。 。 (39。car139。).AsString:=。 (39。na39。).AsString:=。 (39。style139。).AsString:=。 (39。intime39。).AsString:=。 Stem:=。 (Stem)。 tblobfield((39。picture39。)).LoadFromStream(Stem)。 。 。 。 32 :=。 (39。車輛入庫(kù)登記成功！ 39。,39。提示 39。,MB_OK)。 end。 :=。 end。 //車輛檢索 procedure (Sender: TObject)。 var a:string。 b:Double。 S:TMemoryStream。 begin if trim()=39。39。 then begin :=。 (39。車牌號(hào)碼不能為空 !39。,39。提示 39。,MB_OK)。 end else begin 。 。 (39。select * from car where car1 LIKE %39。 + + 39。%39。)。 。 if 0 then begin :=。 :=(39。car139。).AsString。 :=(39。na39。).AsString。 :=(39。style139。).AsString。 :=(39。intime39。).AsString。 a:=(39。intime39。).AsString。 if Trim(a)39。39。 then begin b:=MinutesBetween(Now(),StrToDatetime(a))。 //顯示入庫(kù)時(shí)間長(zhǎng) :=FloatToStr(b)+39。分鐘 39。 //顯示收費(fèi) 33 :=FloatToStr(b*)+39。元 39。 end else begin (39。時(shí)間信息錯(cuò)誤！請(qǐng)聯(lián)系管理員！ 39。,39。提示 39。,MB_OK)。 end。 S:=。 tblobfield((39。picture39。)).SaveToStream(S)。 :=0。 :=True。 (S)。 :=True。 。 。 。 end else begin :=。 (39。未找到該車輛！ 39。,39。提示 39。,mb_ok)。 end。 end。 :=。 end。 //出庫(kù)主要代碼 begin if Trim()39。39。 then begin 。 。 (39。select * from car where car1 LIKE %39。 + + 39。%39。)。 。 if 0 then begin :=39。Update car SET outtime=:outtime where car1 LIKE %39。 + + 39。%39。 :=39。Update car SET time1=:time1 where car1 LIKE %39。 + + 39。%39。 34 :=39。Update car SET money1=:money1 where car1 LIKE %39。 + + 39。%39。 // (39。Update YourTABLE SET 字段 4=:字段 439。)。 // (39。outtime39。).Value:=trim()。 。 :=。 (39。車輛出庫(kù)登記成功！ 39。,39。提示 39。,MB_OK)。 end else begin :=。 (39。未檢索到車輛，不能進(jìn)行車輛出庫(kù)！ 39。,39。提示 39。,MB_OK)。 end。 end else begin :=。 (39。未檢索到車輛，不能進(jìn)行車輛出庫(kù)！ 39。,39。提示 39。,MB_OK)。 end。 :=。 end。 5 數(shù)據(jù)庫(kù)導(dǎo)出技術(shù)關(guān)鍵 代碼 var i,j,row,nall:integer。 //定義變量， i 用以儲(chǔ)存記錄的數(shù)目， j是記錄的列數(shù) row 是 EXCEL 的行數(shù) nall 是記錄的總數(shù) if then // 打開(kāi)保存窗口，讓用戶選擇保存的文件名 begin if then // 打開(kāi)保存窗口，讓用戶選擇保存的文 件名 begin //inintial excel 初始化 EXCEL 。 (Null,0)。 ([1])。 ([1] as _WorkSheet)。 begin nall:=。 //保存記錄的數(shù)量 35 row:=0。 //初始化行，定位在第一 行 for j:=0 to do // column name，統(tǒng)計(jì)共有的列數(shù)目，把列名逐列導(dǎo)出到 EXCEL 第一行 begin [1, j+1] := [j].DisplayName //.DisplayLabel。 end。 end。 for i:=0 to nall1 do // total rows 正規(guī)記錄，從第一條記錄一直到最后