【正文】 (8)批發(fā)價 Money(8)零售價 Money(8) 否供應(yīng)商編號 Varchar(30)供應(yīng)商名稱 Varchar(30)備注 Varchar(50)商品入庫信息:表 24 商品入庫信息表字段名稱 字段類型 是否為空供應(yīng)商編號 Varchar(30) 否供應(yīng)商名稱 Varchar(30)入庫編號 Varchar(30)商品名稱 Varchar(20)商品規(guī)格 Varchar(12)商品單位 Varchar(10)商品數(shù)量 Varchar(10)商品單價 Float(8)入庫日期 DateTime(8)經(jīng)手人 Varchar(12)備注 Varchar(50)商品出庫信息：表 25 商品出庫信息表字段名稱 字段類型 是否為空出庫編號 Varchar(30) 否商品編號 Varchar(30)商品名稱 Varchar(20)商品單位 Varchar(10)商品數(shù)量 Varchar(10)商品單價 Float(8)出庫日期 DateTime(8)經(jīng)手人 Varchar(12)備注 Varchar(50)庫存表：表 26 庫存表字段名稱 字段類型 是否為空商品名稱 Varchar(20) 否商品單位 Varchar(10)商品規(guī)格 Varchar(12)商品單價 Float(8)商品數(shù)量 Varchar(10) 處理過程分析商品入庫處理過程分析：商品入庫是一個從供應(yīng)商進(jìn)貨的過程，在進(jìn)貨時需要記錄供應(yīng)商信息、商品入庫信息，所以在商品入庫時需要進(jìn)行登記，記錄從哪個供應(yīng)商進(jìn)了哪些商品，以及商品數(shù)量、金額等信息。在商品入庫過程中，關(guān)鍵之處是修改商品庫存，用戶在保存信息時，程序除了檢查用戶錄入信息是否有錯誤，還要修改商品庫存，如果用戶錄入的商品在庫存中不存在，則向庫存中插入商品信息（商品名稱、商品數(shù)量等），如果存在，則在庫存中修改該商品庫存數(shù)量。商品入庫管理業(yè)務(wù)流程圖：商品登記錄入商品信息錄入商品入庫信息保存到庫存表圖 25 商品入庫管理業(yè)務(wù)流程圖商品出庫處理過程分析：商品出庫是一個提貨的過程。在商品出庫時，首先進(jìn)行商品出庫登記，然后錄入提貨的商品信息，最后修改庫存，保存提貨信息。商品出庫業(yè)務(wù)流程圖：錄入商品信息錄入商品出庫信息保存到庫存表圖 26 商品出庫業(yè)務(wù)流程圖7 系統(tǒng)編碼與實(shí)現(xiàn) 系統(tǒng)管理界面模塊系統(tǒng)管理界面模塊分為登錄界面模塊和主界面模塊，前者的功能是用戶登錄，起驗證作用，后者的功能主要是提供倉儲管理相關(guān)的功能的入口，列出了商品入庫、商品出庫、庫存查詢、供應(yīng)商信息、商品信息和密碼修改等功能。用戶通過登錄界面模塊登錄，進(jìn)入系統(tǒng)主界面模塊進(jìn)行所需操作。3． 登錄界面模塊：圖 31 登錄界面啟動程序后，連接數(shù)據(jù)庫，進(jìn)入登錄界面。通過在“用戶名”的ComboBox 組件形成的下拉菜單中，選取登錄用戶名，然后鍵入密碼，進(jìn)行登錄。這里是提供給倉儲管理員進(jìn)行登錄及管理操作的，一般職員無用戶名則無權(quán)限進(jìn)入倉儲管理系統(tǒng)。在此處供選擇的用戶名及需輸入的密碼是數(shù)據(jù)庫中用戶表中的信息。ComboBox 組件下拉顯示的執(zhí)行代碼為：procedure (Sender: TObject)。begin (39。用戶名稱 39。, ,[])。 。end。procedure (Sender: TObject)。var i:integer。begin 。 。 if (0) then 。 for i:=0 to do begin //得到所有用戶名稱 ((39。用戶名稱39。).AsString)。 。 end。end。退出按鈕的激發(fā)代碼為：procedure (Sender: TObject)。begin 。end。4． 主界面模塊：圖 32 主界面成功登錄后，進(jìn)入到主界面。在主界面可以進(jìn)行供應(yīng)商信息、商品基本信息、商品入庫信息、商品出庫信息的管理操作。還可以進(jìn)行商品庫存查詢，密碼修改設(shè)置，數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)等操作。主界面清新、簡潔，而且使用方便、操作簡單，各按鈕位置編排有序規(guī)整。在主界面上還調(diào)用了 Windows 的計算器和記事本，使倉儲管理員使用起來更方便、快捷。點(diǎn)擊按鈕的創(chuàng)建窗體類的實(shí)現(xiàn)，如密碼修改設(shè)置按鈕的激發(fā)代碼為：begin (TMMXG,MMXG)。 。 。end。 基本信息管理模塊基本信息管理模塊分為供應(yīng)商基本信息模塊、供應(yīng)商基本信息編輯模塊、商品基本信息模塊、商品基本信息編輯模塊。在此可對供應(yīng)商基本信息和商品基本信息進(jìn)行查看、添加、修改、保存、取消等編輯操作，還可刪除其相關(guān)信息。5． 供應(yīng)商基本信息模塊：圖 33 供應(yīng)商信息主窗體在此窗體可查看數(shù)據(jù)庫中供應(yīng)商基本信息表中的內(nèi)容，由 DBGrid 組件負(fù)責(zé)連接數(shù)據(jù)庫并顯示其內(nèi)容?？蓪?yīng)商信息進(jìn)行編輯、刪除等操作。在這里，可查看到供應(yīng)商編號、供應(yīng)商名稱、供應(yīng)商地址、聯(lián)系人、聯(lián)系電話等供應(yīng)商的相關(guān)信息，并可以對其進(jìn)行刪除操作，還可以點(diǎn)擊“編輯”進(jìn)入編輯窗體進(jìn)行編輯。如果不再需要訪問此窗體，可點(diǎn)擊“退出”關(guān)閉掉此窗體。打開此窗體時，連接數(shù)據(jù)庫獲取供應(yīng)商基本信息表中內(nèi)容的代碼為：Procedure (Sender: TObject)。begin //創(chuàng)建窗體時，打開數(shù)據(jù)表 with do begin close。 。 (39。select * from 供應(yīng)商基本信息39。)。 open。 end。 。end。6． 供應(yīng)商基本信息編輯模塊：圖 34 供應(yīng)商信息編輯窗體點(diǎn)擊圖 33 中“編輯”按鈕得到此窗體。在此可對供應(yīng)商相關(guān)信息進(jìn)行添加和修改。點(diǎn)擊“添加”按鈕，可添加新的供應(yīng)商相關(guān)信息并加以保存；點(diǎn)擊“修改” ，可對現(xiàn)有的供應(yīng)商信息進(jìn)行修改。信息保存到供應(yīng)商基本信息表中。供應(yīng)商編號、名稱、地址等相關(guān)信息能夠詳細(xì)記錄倉儲管理中商品供應(yīng)商的詳細(xì)資料，能夠方便管理經(jīng)營等。如在添加或修改過程中，不再需要添加或修改，可點(diǎn)擊“取消”以撤消新建的或已更改的信息。公開聲明：Procedure bh。 //自動編號function CanSave: Boolean。//判斷是否保存procedure posting。 //提交數(shù)據(jù)procedure GetAll。 //獲得所有數(shù)據(jù)procedure tr。 //去除空字符 “添加”按鈕的點(diǎn)擊事件代碼為：procedure (Sender: TObject)。begin //添加時，控件初始化 :=True。 :=False。 :=True。 :=True。 。 。 …… 。 。 。 。 ActionCD:= 39。N39。 bh。 。 :=False。end。7． 商品基本信息模塊：圖 35 商品基本信息主窗體此窗體顯示商品基本信息表中內(nèi)容，與供應(yīng)商基本信息窗體的功能類似?？刹榭瓷唐肪幪枴⑸唐访Q、商品簡稱、規(guī)格、保持期、產(chǎn)地、單位、進(jìn)價等商品基本信息，也可對其進(jìn)行刪除操作和點(diǎn)擊進(jìn)入編輯窗體進(jìn)行具體的編輯操作。點(diǎn)擊“編輯”按鈕的事件代碼為：procedure (Sender: TObject)。begin (TSPJBXX,SPJBXX)。 。 ActionCD:=39。M39。 。 。end。8． 商品基本信息編輯模塊：圖 36 商品基本信息編輯窗體此窗體可對商品基本信息進(jìn)行添加、修改等管理操作。信息保存到商品基本信息表中。通過商品編號、商品名稱、商品簡稱、保質(zhì)期、規(guī)格、進(jìn)價等詳細(xì)地記錄下商品基本信息，精確到供應(yīng)商名稱與價格之間的對應(yīng)聯(lián)系等。在備注一欄內(nèi)可注明各商品的具體情況。在這里可以添加新的商品基本信息和修改已有商品信息。 商品庫存管理模塊商品庫存管理模塊分為商品入庫信息模塊、商品入庫信息編輯模塊、商品出庫信息模塊、商品出庫信息編輯模塊、商品庫存查詢模塊。在此可對商品的入庫和出庫信息進(jìn)行查看、添加、保存和刪除等編輯操作，入庫和出庫的信息非常詳細(xì)，可編輯其供應(yīng)商和商品相關(guān)指數(shù)，還有入/出庫編號、入/出庫時間及經(jīng)手人等。還可按商品名稱進(jìn)行查詢和查看全部庫存。4． 商品入庫信息模塊：圖 37 商品入庫信息主窗體此窗體顯示商品入庫信息表中的內(nèi)容，包括入庫編號、供應(yīng)商編號、供應(yīng)商名稱、商品名稱、商品規(guī)格、商品單位、商品數(shù)量、商品單價等商品入庫信息?？蓪ζ溥M(jìn)行刪除和編輯操作。商品出庫信息模塊與此模塊相似，可對出庫編號、供應(yīng)商相關(guān)信息、商品相關(guān)信息等商品出庫信息進(jìn)行查看、編輯和刪除操作?！皠h除”按鈕的事件代碼為：procedure (Sender: TObject)。begin if =0 then //判斷數(shù)據(jù)庫內(nèi)是否有記錄 begin (39。已無記錄可刪除!39。,39。提示39。,0+MB_ICONINFORMATION)。 exit。 end。 if then exit。 if ID_YES=(39。確實(shí)要刪除這條記錄嗎？39。,39。提示39。,MB_YESNO) then begin 。 end。end。5． 商品入庫信息編輯模塊：圖 38 商品入庫信息編輯窗體在此窗體可對商品入庫信息進(jìn)行添加、保存等，添加新信息是保存在商品入庫信息表中的。這里沒有了商品基本信息編輯窗體中的“修改”按鈕，是為了不能被倉儲管理員或者其它職員隨意改動入庫記錄信息，防止任何個人行為帶給公司、企業(yè)經(jīng)濟(jì)損失和管理障礙。如果在添加完成后，發(fā)現(xiàn)錯誤信息，可對其進(jìn)行刪除，再重新添加整個入庫記錄信息。通過供應(yīng)商編號和名稱及商品名稱，與入庫日期和經(jīng)手人最終落實(shí)到每一次入庫記錄。商品出庫信息編輯模塊與此模塊相似，可對商品出庫信息進(jìn)行添加、保存等操作。供應(yīng)商編號下拉顯示的代碼為：procedure (Sender: TObject)。var i:integer。begin //將數(shù)據(jù)庫內(nèi)的供應(yīng)商編號顯示在 ComboBox1 中 。 with do begin 。 := 39。select DISTINCT 供應(yīng)商編號 from 商品基本信息39。 Close。 Active := False。 prepared := False。 prepared := True。 Active := True。 if (recordcount 0) then first。 for i := 0 to recordcount 1 do begin (FieldByName(39。供應(yīng)商編號39。).asstring)。 next。 end。 。 。 。 。 。 end。end。6． 商品庫存查詢模塊：圖 39 商品庫存查詢窗體在此窗體，可對商品庫存進(jìn)行查詢。可通過商品名稱查詢，也可查看全部庫存，通過 DBGrid 組件顯示出來。用戶可查看到查詢到的商品名稱、商品單位、商品規(guī)格、商品單價、商品數(shù)量等信息，這些信息都是存放在數(shù)據(jù)庫中的庫存表中的?！安樵儭卑粹o的點(diǎn)擊事件代碼為：procedure (Sender: TObject)。begin if 39。39。 then //通過商品名稱進(jìn)行模糊查詢 begin with do begin Close。 。 :=39。Select * from 庫存表 where 商品名稱 like39。+39+39。%39。+trim()+39。%39。+39。 Open。 :=。 end。 end。end。 “全部庫存”的點(diǎn)擊事件代碼為：procedure (Sender: TObject)。begin 。 //查詢數(shù)據(jù)庫內(nèi)所有數(shù)據(jù) with do begin Close。 。 (39。Select * from 庫存表39。)。 Open。 end。 :=。end。 密碼管理模塊在此模塊中可對用戶密碼進(jìn)行修改。圖 310 密碼修改窗體在此窗體可修改密碼。首先鍵入要修改密碼的用戶名，再輸入正確的原密碼，再自定義新密碼以及確認(rèn)。如果用戶名與原密碼不正確，修改不能成功；如果新密碼與確認(rèn)密碼不一致，修改也不能成功。這里的密碼修改，只能是成功登錄后才能進(jìn)行的操作。當(dāng)倉儲管理員不在計算機(jī)前工作時，本系統(tǒng)又嘗未退出，若有人想更改管理員的密碼，在沒有原密碼的情況下，是不能成功的。這就有效的防止了他人惡意更改用戶密碼，給系統(tǒng)、公司、企業(yè)帶來損失。判斷 Edit 組件是否為空的代碼為：if (=39。39。) then begin (39。用戶名稱不能為空！39。,39。提示信息39。,0+MB_ICONINFORMATION)。 exit。 end。刷新數(shù)據(jù)表內(nèi)容的