【導(dǎo)讀】倉庫管理系統(tǒng)的開發(fā)研究

　　

【正文】 第 19 頁 共 35 頁 對(duì)應(yīng)的窗體。這幾個(gè)按鈕單擊事件得程序代碼如下： procedure (Sender: TObject)。 begin 。 //顯示倉庫管理窗體 end。 procedure (Sender: TObject)。 begin 。 // 顯示出入庫管理窗體 end。 procedure (Sender: TObject)。 begin 。 // 顯示統(tǒng)計(jì)窗體 end。 procedure (Sender: TObject)。 begin 。 // 顯示系統(tǒng)維護(hù)窗體 end。 退出按鈕用于關(guān)閉前面數(shù)據(jù)模塊 DataContrls 初始化中打開得四個(gè)數(shù)據(jù)庫表并正常退出應(yīng)用程序，程序代碼如下： procedure (Sender: TObject)。 begin 。 // 關(guān)閉貨物出庫數(shù)據(jù)表 。 // 關(guān)閉貨物入庫數(shù)據(jù)表 。 // 關(guān)閉貨物存儲(chǔ)數(shù)據(jù)表 。 // 關(guān)閉倉庫信息數(shù)據(jù)表 Close。 // 關(guān)閉主窗體，即關(guān)閉應(yīng)用程序 end。 倉庫管理窗體設(shè)計(jì) 倉庫管理窗體用來更新和維護(hù)系統(tǒng)中得倉庫信息，主要實(shí)現(xiàn)對(duì)倉庫數(shù)據(jù)，包括瀏覽、修改、插入和 刪除等得操作。在項(xiàng)目中選中 ckglForm 空白窗體，在窗體上添加一個(gè) TpageControl 組件，選中該組件對(duì)象，單擊鼠標(biāo)右鍵，在彈出得彈出式菜單中單擊 New Page 菜單項(xiàng)以產(chǎn)生一個(gè)新得頁面。將這兩個(gè)頁面（ TabSheet）得 Caption 屬性得值分別設(shè)置為“倉庫總表瀏覽”和“倉庫新增記錄”。分別按照?qǐng)D 47 和圖 48 對(duì)這兩個(gè)頁面進(jìn)行設(shè)計(jì)。 xx 學(xué)院學(xué)士學(xué)位論文 第 20 頁 共 35 頁 圖 47 倉庫管理窗體之倉庫總表瀏覽 圖 48 倉庫管理窗體之倉庫信息管理 在倉庫管理窗體中使用了許多具有數(shù)據(jù)感知（ DataAware）功能的數(shù)據(jù)控制組件， 如 TDBEdit 組件，它們通過數(shù)據(jù)源組件與數(shù)據(jù)表相連，能自動(dòng)顯示數(shù)據(jù)表中當(dāng)前記錄對(duì)應(yīng)字段的數(shù)據(jù)值。數(shù)據(jù)導(dǎo)航組件 TDBNavigator 用于實(shí)現(xiàn)數(shù)據(jù)導(dǎo)航和插入、刪除等操作，通過它們不需要編程就可實(shí)現(xiàn)對(duì)數(shù)據(jù)庫得常規(guī)操作，這是 Delphi 得特點(diǎn)和優(yōu)勢，也正是 Delphi 能快速開發(fā)數(shù)據(jù)庫應(yīng)用程序的原因。 在倉庫管理窗體中， BitBtn1 用于設(shè)置 DBGrid 得內(nèi)容可以修改 。BitBtn2和 BitBtn3 用于關(guān)閉倉庫管理窗體。它們的單擊事件處理的程序代碼如下： procedure (Sender: TObject)。 begin :=False。 //設(shè)置 DBGrid1 得內(nèi)容可以被修改 end。 procedure (Sender: TObject)。 begin xx 學(xué)院學(xué)士學(xué)位論文 第 21 頁 共 35 頁 Close。 //關(guān)閉倉庫管理窗體 end。 procedure (Sender: TObject)。 begin Close。 //關(guān)閉倉庫管理窗體 end。 出入庫 管理窗體設(shè)計(jì) 出入庫管理窗體包括貨物入庫管理、貨物出庫管理和貨物信息管理三個(gè)功能。在項(xiàng)目中選中 crkForm 空白表單，在窗體上添加一個(gè) TpageControl 組件對(duì)象，產(chǎn)生 3 個(gè)新的頁面。將這三個(gè)頁面得 Caption 屬性得值分別設(shè)置為“貨物入庫管理”、“貨物出庫管理”和“貨物信息管理”。下面分別介紹這三個(gè)頁面的實(shí)現(xiàn)。 貨物入庫管理 貨物入庫管理頁面得界面如圖 49 所示，按表的內(nèi)容設(shè)計(jì)好貨物出庫管理頁面。 圖 49 貨物入庫管理頁面 在 GroupBox2 中添加了若干按鈕組件來實(shí)現(xiàn)對(duì)貨物入庫數(shù)據(jù)表 中貨物信息的瀏覽、增加和刪除等功能。程序代碼如下： procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin xx 學(xué)院學(xué)士學(xué)位論文 第 22 頁 共 35 頁 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 if new_type then 。 // Save To hwcc。 new_type:=false。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 貨物出庫管理 貨物出庫管理頁面的界面如圖 410 所示，按表的內(nèi)容設(shè)計(jì)好貨物出庫管理頁面。 圖 410 貨物出庫管理頁面 xx 學(xué)院學(xué)士學(xué)位論文 第 23 頁 共 35 頁 其實(shí)現(xiàn)過程與貨物入庫管理模塊類同，程序代碼如下： procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 if new_type then 。 // Save To hwcc。 new_type:=false。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 貨物信息管理 貨物信息管理頁面的界面如圖 411 所示，按表的內(nèi)容設(shè)計(jì)好貨物信息管理頁面。 xx 學(xué)院學(xué)士學(xué)位論文 第 24 頁 共 35 頁 圖 411 貨物信息管理頁面 其實(shí)現(xiàn)過程與貨 物出入庫管理模塊類同，程序代碼如下： procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 //Initiate。 new_type:=true。 end。 procedure (Sender: TObject)。 begin 。 if new_type then 。 xx 學(xué)院學(xué)士學(xué)位論文 第 25 頁 共 35 頁 // Save To hwcc。 new_type:=false。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 系統(tǒng)維護(hù)窗體設(shè)計(jì) 系統(tǒng)維護(hù)窗體包括數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)和密碼管理三個(gè)功能。在項(xiàng)目中選中 xtwhForm 空白窗體，在窗體上添加一個(gè) TpageControl 組件，產(chǎn)生 3 個(gè)新的頁面。將這三個(gè)頁面得 Caption 屬性得值分別設(shè)置為“數(shù)據(jù)備份”，“數(shù)據(jù)恢復(fù)”和“密碼管理”。下面分別介紹這三個(gè)部分得實(shí)現(xiàn)。 數(shù)據(jù)備份 數(shù)據(jù)備份頁面的界面如圖 412 所示，其中用多個(gè) TTable 組件對(duì)象來顯示說明部分。 圖 412 數(shù)據(jù)備份頁面 “開始數(shù)據(jù)備份”按鈕將 4 個(gè)數(shù)據(jù)文件和一個(gè)密碼文件保存到移動(dòng)硬盤中。“開始數(shù)據(jù)備份”按鈕得單擊事件的程序代碼如下： procedure (Sender: TObject)。 var failure:boolean。 begin failure:=false。 if not copyfile(39。39。,39。H:\39。,false) then failure:=true。 if not copyfile(39。39。,39。H:\39。,false) then failure:=true。 xx 學(xué)院學(xué)士學(xué)位論文 第 26 頁 共 35 頁 if not copyfile(39。39。,39。H:\39。,false) then failure:=true。 if not copyfile(39。39。,39。H:\39。,false) then failure:=true。 if not copyfile(39。39。,39。H:\39。,false) then failure:=true。 if failure then ShowMessage(39。數(shù)據(jù)備份沒有成功 !39。) else ShowMessage(39。數(shù)據(jù)備份結(jié)束 !39。)。 end。 數(shù)據(jù)恢復(fù) 數(shù)據(jù)恢復(fù)得界面如圖 413 所示，其中用了多個(gè) TTable 組件對(duì)象來顯示說明部分。 圖 413 數(shù)據(jù)恢復(fù)頁面 “開始數(shù)據(jù)恢復(fù)”按鈕將移動(dòng)硬盤里的四個(gè)數(shù)據(jù)文件和一個(gè)密碼文件保存到應(yīng)用程序所在的路徑下并 將四個(gè)數(shù)據(jù)表打開?！伴_始數(shù)據(jù)備份”按鈕單擊事件的程序代碼如下： procedure (Sender: TObject)。 var failure:boolean。 begin failure:=False。 。 。 。 。 if FileExists(39。39。) then begin