倉庫管理系統(tǒng)設計方案

1、2020年5月29日倉庫管理系統(tǒng)設計方案文檔僅供參考選題背景及系統(tǒng)目標 選題背景俗話說,兵馬未出,糧草先行.古代行兵打仗,最先要考慮的就是物資的準備和管理,否則要取得勝利是非常困難的一件事。商場如戰(zhàn)場,商家不但要掌握大量的物資,同時這些物資還要盡可能滿足顧客的需要,這樣才能在激烈的市場競爭中獲取勝利。然而管理物資卻是最煩瑣的事情,無論數(shù)量還是種類,都是數(shù)以萬計,用人手工來做,是非常困難的,而且很容易出錯誤,可是隨著科學技術的發(fā)展,社會進步,計算機迅速的發(fā)展,倉庫管理的方法也日新月異,以前全是由人管理的方法現(xiàn)存在很多的缺點:管理效率低,勞動強度大,信息處理速度低而且準確率也不夠令人滿意。為了提高

2、倉庫管理效率,減輕勞動強度提高,信息處理速度和準確性;為倉庫管理員提供更方便、科學的服務項目。為倉庫管理員提供的一種更先進、科學的服務系統(tǒng)。于是我們便選擇了由計算機來設計一個倉庫管理系統(tǒng)的方案。讓計算機對倉庫進行自動管理,倉庫管理員能夠直接在計算機上實現(xiàn)倉庫的信息管理,并能在一定程度上實現(xiàn)自動化。在計算機普及的今天,用電腦管理物資是必然的趨勢.現(xiàn)已某中小型公司的倉庫管理為例,開發(fā)一個借助電腦,把所有數(shù)據(jù)輸入數(shù)據(jù)庫,然后用系統(tǒng)對這些數(shù)據(jù)進 行管理,經(jīng)過統(tǒng)計和分析得到各種有用的信息的數(shù)據(jù)管理系統(tǒng),以方便對倉庫的統(tǒng)一管理。1.2系統(tǒng)目標倉庫管理主要是企業(yè)各種商品的管理。進貨時經(jīng)檢查合同確認為有效托收

3、后,進行驗收入庫,填寫入庫單,進行入庫登記。企業(yè)各個部門根據(jù)需要提出產(chǎn)品請求,計劃員根據(jù)整個企業(yè)的需求開出產(chǎn)品出庫單,倉庫管理人員根據(jù)出庫單核對發(fā)放產(chǎn)品。根據(jù)需要按照月進行統(tǒng)計分析,產(chǎn)生相應報表。倉庫管理的特點是信息處理量比較大,所管理的產(chǎn)品種類繁多,而且由于入庫單、出庫單、盤點單等單據(jù)發(fā)生量特別大,關聯(lián)信息多,查詢和統(tǒng)計的方式各不相同。因此在管理上實現(xiàn)起來有一定的困難。在管理的過程中經(jīng)常會出現(xiàn)信息的重復傳遞;單據(jù)、報表種類繁多,各個部門管理規(guī)格不統(tǒng)一等問題。 在本系統(tǒng)的設計過程中,為了克服這些困難,滿足計算機管理工作的需要,我們采取了下面的一些原則:(1)統(tǒng)一各種原始單據(jù)的格式,統(tǒng)一報表的格

4、式。(2)刪除不必要的管理冗余,實現(xiàn)管理規(guī)范化、科學化。(3)程序代碼標準化,軟件統(tǒng)一化,確保軟件的可維護性和實用性。(4)界面盡量簡單化,做到實用、方便,盡量滿足企業(yè)中不同層次員工的需要。(5)建立操作日志,系統(tǒng)自動記錄所進行和各種操作。 需求分析2.1 組織機構分析該倉庫企業(yè)的組織結(jié)構如圖所示。企業(yè)的主要決策和管理機構總經(jīng)理,總經(jīng)理分管財務和執(zhí)行兩大致系模塊;財務在倉庫管理的經(jīng)營中所扮演的角色是是一個相當重要的角色過程,相對來說,此部門是相對獨立的;日常事務的執(zhí)行的部分,分為采購部、庫存管理部、銷售部和人事部四個主要部門。庫存管理部的主要任務是根據(jù)銷售部提供的信息和采購及時聯(lián)系,使庫房貨源

5、充分;責任貨物的接收,并安排好貨物的存放事宜;對每天進出庫房的貨物進行詳細記錄,使基礎數(shù)據(jù)完備。 銷售部主要責任日常銷售工作,包括物品擺放、貨架整理、收銀臺等貨物銷售區(qū)的日常事務;及時準確地將銷售信息反饋給其它部門,以保證商品的及時供應更新;同時處理消費者提出的各種疑問和信息,為公司的整體運作提供實際銷售的基礎數(shù)據(jù)。 財務部負責一切與財務有關的各項事宜,全面記錄公司的所有收支資金流動,包括各種收入、支出、稅務、財務結(jié)算等。對進出貸款實行控制,定期分析資金走向,為公司的發(fā)展計劃做好準備。 2.2 系統(tǒng)功能分析系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務的基礎上完成。本倉庫管理系統(tǒng)需要完成功能主要有:(1)

6、倉庫管理各種信息的輸入,包括貨物、供應商、客戶、倉庫信息的輸入等。(2)倉庫管理各種信息的查詢、統(tǒng)計、修改和維護,包括貨物、單據(jù)查詢,貨物出入、職員操作統(tǒng)計,各種信息的修改和維護等。(3)打印報表的生成。(4)在貨物管理中加入最高儲備和最低儲備字段,對倉庫中的產(chǎn)品實現(xiàn)監(jiān)控和報警。(5)操作日志的管理。(6)倉庫管理系統(tǒng)的使用幫助。其系統(tǒng)功能圖如圖所示:倉庫管理系統(tǒng)基本信息單據(jù)中心查詢統(tǒng)計報表打印維護設置系統(tǒng)幫助新增單據(jù)單據(jù)管理查詢模塊統(tǒng)計模塊 圖2-2 系統(tǒng)功能圖2.3 業(yè)務流程調(diào)查與分析1)進貨員填寫入庫單并經(jīng)倉管查詢庫存臺帳檢查核對,不合格單據(jù)送回,合格后直接入庫并修改庫存臺帳,同時記錄在

7、商品購入流水帳中。如果是新產(chǎn)品,則還要在庫存臺帳中建立新帳頁然后入庫。2)商品出庫管理過程是管理人員根據(jù)銷售人員提供的商品出庫單,經(jīng)核查后合格付貨,有誤送回,同時登記商品的銷售流水帳。如果倉庫庫存不滿足,通知采購部進行采購。3)財務員盤點庫存數(shù)量,計算庫存成本。其業(yè)務流程圖如圖2-3所示: 圖2-3業(yè)務流程圖2.4 數(shù)據(jù)流程調(diào)查與分析負責進貨的人員首先填寫入庫單,然后倉庫管理人員對商品的質(zhì)量及數(shù)量進行核查不合格的返回入庫單讓進貨員重填,合格的入庫并返回確認單。然后更新庫存臺賬。商品出庫管理過程是管理人員根據(jù)銷售人員提供的商品出庫單,不合格出庫單返回重填,合格后,查詢庫存臺帳,若商品充分,倉庫管

8、理系統(tǒng)填寫發(fā)貨單,向客戶付貨并修改庫存臺帳,否則,通知生產(chǎn)部門生產(chǎn)。頂層: 圖2-4 頂層數(shù)據(jù)流圖負責進貨的人員首先填寫入庫單,然后倉庫管理人員對商品的質(zhì)量及數(shù)量進行核查不合格的返回入庫單讓進貨員重填,合格的入庫并返回確認單,如商品有記錄則錄入更新庫存臺賬并記入商品購入流水賬,如商品無記錄則建立新帳頁然后錄入,更新庫存臺賬并記入商品購入流水賬。商品出庫管理過程是管理人員根據(jù)銷售人員提供的商品出庫單,不合格出庫單返回重填,合格后,查詢庫存臺帳,若商品充分,倉庫管理系統(tǒng)填寫發(fā)貨單,向客戶付貨并修改庫存臺帳熟練并記入商品流出流水賬,否則,通知生產(chǎn)部門生產(chǎn)。財務人員盤點庫存,計算庫存成本。累計匯總出各

9、種商品當日的累計購入入庫量、累計銷售出庫量和庫存結(jié)余量等數(shù)據(jù),并將這些數(shù)據(jù)填入庫存臺帳。第一層圖2-4 第一層數(shù)據(jù)流程圖進貨員不合格入庫單入庫單確認單檢查P1.1D1庫存臺帳無記錄貨品入庫單有記錄貨品入庫單新賬建立P1.2入庫單錄入P1.3D2商品購入流水帳入庫信息第二層圖2-5 第二層數(shù)據(jù)流程圖 圖2-6 管理員數(shù)據(jù)流圖對于管理員來說,要對倉庫的信息進行核對注冊用戶,管理貨物的更改信息、入庫、出庫、核對信息等,其數(shù)據(jù)流圖如圖所示: 圖2-6 管理員數(shù)據(jù)流程圖管理員的入庫操作流程圖如圖2-7所示:圖2-7 入庫操作流程圖管理員的出庫操作流程圖如圖2-8所示: 圖2-8 出庫操作流程圖對于用戶來

10、說,要操作數(shù)據(jù)庫的信息,首先要注冊賬號,設置密碼,登陸上去以后,才能對信息進行查詢、更改的操作,其數(shù)據(jù)流圖如圖所示:圖2-9 用戶數(shù)據(jù)流程圖 用戶的查詢操作如圖2-10所示: 圖2-10查詢數(shù)據(jù)流程圖用戶更改密碼的流程圖如圖2-11所示: 圖2-11 修改密碼數(shù)據(jù)流程圖2.5 典型數(shù)據(jù)字典分析經(jīng)過對企業(yè)倉庫管理的內(nèi)容和數(shù)據(jù)流程分析,設計數(shù)據(jù)項和數(shù)據(jù)結(jié)構如下:(1)貨物信息,包括的數(shù)據(jù)項有編號、貨物名稱、貨物類別、貨物規(guī)格、計量單位、最高限量、最低限量、備注等。(2)倉庫信息,包括的數(shù)據(jù)項有編號、倉庫名稱、倉庫地點、保管員編號、備注等。(3)庫存狀況信息,包括的數(shù)據(jù)項有編號、貨物編號、庫存數(shù)量、

11、倉庫編號等。(4)入庫單信息,包括的數(shù)據(jù)項有編號、貨物編號、經(jīng)辦人編號、入庫時間、入庫單價、入庫數(shù)量、供應商編號、倉庫編號、定單狀況、其它金額、備注等。(5)出庫單信息,包括的數(shù)據(jù)項有編號、貨物編號、經(jīng)辦人編號、出庫時間、出庫單價、出庫數(shù)量、客戶編號、倉庫編號、定單狀況、其它金額、備注等。(6)進行月盤點信息,包括的數(shù)據(jù)項有編號、倉庫編號、盤點時間、經(jīng)辦人編號、盤點數(shù)據(jù)等。(7)系統(tǒng)日志信息,包括的數(shù)據(jù)項有用戶名、操作時間、操作內(nèi)容等。(8)用戶管理信息,包括的數(shù)據(jù)項有用戶名、用戶密碼、用戶權限等。另外,還有借入單、借出單、報損單、調(diào)撥單信息等。它們與入庫單、出庫單信息基本類似。系統(tǒng)數(shù)據(jù)庫設計

12、3.1數(shù)據(jù)庫概念結(jié)構分析根據(jù)上面的設計規(guī)劃出的實體有:現(xiàn)有庫存信息實體、入庫信息實體、出庫信息實體、借入信息實體、借出信息實體、調(diào)撥信息實體圖和報損信息實體圖。各個實體具體的描述E-R圖如下:圖3-1 現(xiàn)有庫存信息實體E-R圖 圖3-2 入庫單信息實體E-R圖客戶編號出庫信息實體編號經(jīng)辦人編號入庫時間、單價、數(shù)量圖3-3 出庫信息實體E-R圖借入信息實體編號經(jīng)辦人編號借入時間、單價、數(shù)量貨物編號 圖3-4 借入信息實體E-R圖借出信息實體編號經(jīng)辦人編號借出時間、數(shù)量貨物編號 圖3-5 借出信息實體E-R圖調(diào)撥信息實體編號經(jīng)辦人編號目標倉庫編號原倉庫編號圖3-6 調(diào)撥信息實體E-R圖報損信息實體

13、編號經(jīng)辦人編號報損時間、單價、數(shù)量倉庫編號 圖3-7 報損信息實體E-R圖實體和實體之間的關系E-R圖如圖所示: 圖3-8 實體之間關系E-R圖 圖3-9 全局E_R圖3.2數(shù)據(jù)庫邏輯結(jié)構設計將在上面的數(shù)據(jù)庫概念結(jié)構轉(zhuǎn)化為數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型,也就是數(shù)據(jù)庫的邏輯結(jié)構。倉庫管理信息系統(tǒng)數(shù)據(jù)庫中各個表格的設計結(jié)果如下面表格所示。每個表格所示在數(shù)據(jù)庫中的一個表。表3-1 貨物基本信息表字段名稱數(shù)據(jù)類型字段大小可否為空貨物編號數(shù)字長整型不可貨物名稱文本16不可貨物類別文本16可貨物規(guī)格文本16可計量單位文本16可最高限量數(shù)字長整型不可最低限量數(shù)字長整型不可備注文本16可 表3-2 倉庫信息表

14、字段名稱數(shù)據(jù)類型字段大小可否為空倉庫編號數(shù)字長整型不可倉庫名稱文本16不可倉庫地點文本255可管理員編號數(shù)字長整型可備注文本16可 表3-3 庫存狀況信息表字段名稱數(shù)據(jù)類型字段大小可否為空庫存狀況編號數(shù)字長整型不可貨物編號數(shù)字長整型不可庫存數(shù)量數(shù)字長整型不可倉庫編號數(shù)字長整型不可 表3-4 入庫單信息表字段名稱數(shù)據(jù)類型字段大小可否為空入庫單編號數(shù)字長整型不可貨物編號數(shù)字長整型不可經(jīng)辦人編號數(shù)字長整型不可入庫時間日期/時間不可入庫單價貨幣不可入庫數(shù)量數(shù)字長整型不可供應商編號數(shù)字長整型可倉庫編號數(shù)字長整型不可訂單狀況文本16不可其它金額貨幣可備注備注可 表3-5 出庫單信息表字段名稱數(shù)據(jù)類型字段大

15、小可否為空出庫單編號數(shù)字長整型不可貨物編號數(shù)字長整型不可經(jīng)辦人編號數(shù)字長整型不可出庫時間日期/時間不可出庫單價貨幣不可出庫數(shù)量數(shù)字長整型不可客戶編號數(shù)字長整型可倉庫編號數(shù)字長整型不可訂單狀況文本16不可其它金額貨幣可備注文本16可表3-6 借入單信息表字段名稱數(shù)據(jù)類型字段大小可否為空借入單編號數(shù)字長整型不可貨物編號數(shù)字長整型不可經(jīng)辦人編號數(shù)字長整型不可借入時間日期/時間不可借入數(shù)量數(shù)字長整型不可供應商編號數(shù)字長整型可倉庫編號數(shù)字長整型不可訂單狀況文本16不可其它金額貨幣可備注文本16可表3-7 借出單信息表字段名稱數(shù)據(jù)類型字段大小可否為空借出單編號數(shù)字長整型不可貨物編號數(shù)字長整型不可經(jīng)辦人編號

16、數(shù)字長整型不可借出時間日期/時間不可借出數(shù)量數(shù)字長整型不可供應商編號數(shù)字長整型可倉庫編號數(shù)字長整型不可訂單狀況文本16不可其它金額貨幣可備注文本16可表3-8 調(diào)撥單信息表字段名稱數(shù)據(jù)類型字段大小可否為空調(diào)撥單編號數(shù)字長整型不可貨物編號數(shù)字長整型不可經(jīng)辦人編號數(shù)字長整型不可調(diào)撥時間日期/時間不可調(diào)撥數(shù)量數(shù)字長整型不可原倉庫編號數(shù)字長整型不可目標倉庫編號數(shù)字長整型不可其它金額貨幣可備注文本16可表3-9 報損單信息表字段名稱數(shù)據(jù)類型字段大小可否為空報損單編號數(shù)字長整型不可貨物編號數(shù)字長整型不可經(jīng)辦人編號數(shù)字長整型不可報損時間日期/時間不可報損單價貨幣不可報損數(shù)量數(shù)字長整型不可倉庫編號數(shù)字長整型不

17、可其它金額貨幣可備注文本16可表3-10 盤點單信息表字段名稱數(shù)據(jù)類型字段大小可否為空盤點單編號數(shù)字長整型不可倉庫編號數(shù)字長整型不可盤點時間日期/時間不可經(jīng)辦人編號數(shù)字長整型不可盤點數(shù)據(jù)數(shù)字長整型不可表3-11 系統(tǒng)日志信息表字段名稱數(shù)據(jù)類型字段大小可否為空用戶名Char16不可操作時間日期/時間不可操作內(nèi)容文本16不可表3-12 用戶管理信息表字段名稱數(shù)據(jù)類型字段大小可否為空用戶名Char16不可用戶密碼Char16不可用戶權限數(shù)字長整型不可3.3數(shù)據(jù)庫物理結(jié)構設計物理結(jié)構設計的任務就是根據(jù)具體計算機系統(tǒng)的特點,為給定的數(shù)據(jù)庫系統(tǒng)確定合理的存儲結(jié)構和存儲方法。所謂的”合理”主要有兩個含義:一

18、個是要使設計出的物理數(shù)據(jù)庫占有較少的存儲空間。另一個是要對數(shù)據(jù)庫的操作具有盡可能高的速度。建立索引(1)對”貨物基本信息”表,在屬性列”貨物編號”上建立唯一性索引。(2)對”倉庫信息”表,在屬性列”倉庫編號”上建立唯一性索引。(3)對”庫存狀況信息”表,在屬性列”庫存狀況編號”上建立唯一性索引。(4)對”入庫單信息”表,在屬性列”入庫單編號”上建立唯一性索引。(5)對”出庫單信息”表,在屬性列”出庫單編號”上建立唯一性索引。(6)對”借入單信息”表,在屬性列”借入單編號”上建立唯一性索引。(7)對”借出單信息”表,在屬性列”借出單編號”上建立唯一性索引。(8)對”調(diào)撥單信息”表,在屬性列”調(diào)撥

19、單編號”上建立唯一性索引。(9)對”報損單信息”表,在屬性列”報損單編號”上建立唯一性索引。(10)對”盤點單信息”表,在屬性列”盤點單編號”上建立唯一性索引。(11)對”系統(tǒng)日志信息”表,在屬性列”用戶名”操作時間”上建立唯一性索引。(12)對”用戶管理信息表”表,在屬性列”用戶名”用戶密碼”上建立唯一性索引。2)建立個唯一性索引對應的代碼如下:(1)creat unique index 貨物信息-編號on 貨物基本信息表(貨物編號);(2)creat unique index 倉庫信息-編號on 倉庫基本信息表(倉庫編號);(3)creat unique index 庫存狀況信息-編號on

20、庫存狀況信息表(庫存狀況編號);(4)creat unique index 入庫單信息-編號on 入庫單信息表(入庫單編號);(5)creat unique index 出庫單信息-編號on 出庫單信息表(出庫單編號);(6)creat unique index 借入單信息-編號on 借入單信息表(借入單編號);(7)creat unique index 借出單信息-編號on 借出單信息表(借出單編號);(8)creat unique index 調(diào)撥單信息-編號on 調(diào)撥單信息表(調(diào)撥單編號);(9)creat unique index 報損單信息-編號on 報損單信息表(報損單編號);(1

21、0)creat unique index 盤點單信息-編號on 盤點單信息表(盤點單編號);(11)creat unique index 系統(tǒng)日志信息-編號on 系統(tǒng)日志信息表(用戶名,操作時間);(12)creat unique index 用戶管理信息-編號on 用戶管理信息表(用戶名,用戶密碼);3)存儲結(jié)構確定數(shù)據(jù)庫的存儲結(jié)構主要指確定數(shù)據(jù)的存放位置和存儲結(jié)構,包括確定關系、索引、日志、備份等的存儲安排及存儲結(jié)構,以及確定系統(tǒng)存儲參數(shù)的配置。將日志文件和數(shù)據(jù)庫對象(表、索引等)分別放在不同的存盤,能夠改進系統(tǒng)的性能,提高系統(tǒng)的安全性。因此,系統(tǒng)應將日志文件和數(shù)據(jù)文件放在不同的磁盤上。3

22、.4數(shù)據(jù)庫關系設計表3-13 貨物基本信息表 表3-14 倉庫信息表 表3-15 庫存狀況信息表表3-16 入庫信息表 表3-17 出庫單信息表表 3-18 借入單信息表 表3-19 借出單信息表 表3-20 調(diào)撥單信息表 表3-21 報損單信息表 表3-22 盤點單信息表 表3-23 系統(tǒng)日志信息表 表3-24 用戶管理信息表 表3-25 各表關系圖系統(tǒng)主要功能模塊設計與實現(xiàn)4.1系統(tǒng)登錄界面設計思路與要點:用戶運行程序后,輸入用戶名與密碼,程序根據(jù)用戶名到后臺數(shù)據(jù)庫查詢用戶名和密碼是否正確,如果正確,則根據(jù)用戶名給出用戶所屬的級別,并根據(jù)級別給出相應的權限。如沒有經(jīng)過驗證,則給出沒有經(jīng)過驗

23、證的原因。系統(tǒng)登錄界面如圖4-1所示: 圖4-1 系統(tǒng)登錄界面單擊登陸時,其對應的代碼如下:Private Sub cmdOK_Click() Dim con As ADODB.Connection Dim rs As ADODB.Recordset Set con = New ADODB.Connection Set rs = New ADODB.Recordset con.Open dsn=xue, sa, rs.Open select * from 用戶 where 用戶名= + Trim(txtUserName.Text) + , con, adOpenStatic, adLockOp

24、timistic If rs.RecordCount 0 Then rs.MoveFirst If Trim(txtPassword.Text) = Trim(rs.Fields(密碼) Then Form1.Show LoginSucceeded = True Me.Hide Else MsgBox 密碼錯誤,請重新輸入!, , 確定 txtPassword.SetFocus SendKeys Home+End End If Else MsgBox 密碼錯誤,請重新輸入, 確定 txtPassword.SetFocus SendKeys Home+End End IfEnd Sub 圖4-2

25、 倉庫管理系統(tǒng)密碼錯誤界面單擊退出時,對應的代碼如下:Private Sub cmdCancel_Click()End SubPrivate Sub cmdOK_Click() Dim con As ADODB.Connection Dim rs As ADODB.Recordset Set con = New ADODB.Connection Set rs = New ADODB.Recordset con.Open dsn=xue, sa, rs.Open select * from 用戶 where 用戶名= + Trim(txtUserName.Text) + , con, adOpe

26、nStatic, adLockOptimistic If rs.RecordCount 0 Then rs.MoveFirst If Trim(txtPassword.Text) = Trim(rs.Fields(密碼) Then Form1.Show LoginSucceeded = True Me.Hide Else MsgBox 無效的密碼,請重試!, , 登錄 txtPassword.SetFocus SendKeys Home+End End If Else MsgBox 無效的用戶名,請重試!, , 登錄 txtPassword.SetFocus SendKeys Home+End

27、 End IfEnd Sub如果用戶名或密碼錯誤,系統(tǒng)會分別提示,防止非法用戶進入系統(tǒng)操作。4.2 系統(tǒng)主界面設計思路與要點:用戶登錄經(jīng)過后,進入系統(tǒng)的主界面。主界面的菜單如果是灰色顯示,則表明此用戶沒有權限操作此功能。在主界面的狀態(tài)欄會顯示當前用戶名和用戶權限。界面如圖4-3所示: 圖4-3 倉庫管理系統(tǒng)主界面 其對應的代碼如下:Private Sub2系統(tǒng)管理模塊系統(tǒng)管理模塊主是功能是進行本系統(tǒng)的一些常見管理工作,共有四個子模塊:重新登錄,修改密碼,用戶管理,退出。重新登錄功能進入系統(tǒng)后,可選擇重新登錄在不現(xiàn)用戶之間進行切換。界面如圖4-4所示: 圖4-4 系統(tǒng)重登陸界面其對應的代碼如下:

28、Private Sub cmdRelude -Click() Relude Me 重新登錄倉庫管理系統(tǒng)End Sub修改密碼功能設計思路和要點:用戶如需修改自己的登錄密碼,需輸入舊密碼與新密碼,程序在數(shù)據(jù)庫中修改用戶的密碼。界面如圖4-5所示: 圖4-5 修改密碼界面其對應的代碼如下:Private Sub From-Loud() TxtOldPWD=CurrentUserPassword 顯示用戶密碼Eed Sub實現(xiàn)密碼輸入驗證:Private Sub txtNewPWD-KeyPress(Index As Integer,KeyAscii As Integer) If KeyAscii=

29、vbKeyRurn ThenSecondKeys”Tab” ElseIf Not (KeyAsscii=vbKey0 And KeyAsscii=Asc(a)And KeyAscii=Asc(A)And KeyAscii=Asc(Z)-Or KeyAsscii=vbKeyBack )ThenKeyAsscii=0 Eed IfEnd Sub單擊確認,保存新密碼,Private Sub cmdSave-Click() If txtNewPWD(1) txtNewPWD(9)Then MsgBox”兩次輸入的密碼必須相等!”,vbExclamation,”修改密碼” txtNewPWD(0).Se

30、tFocus txtNewPWD(0).SetStart=0 txtNewPWD(0).SetLength=Len(txtNewPWD(0) Else 修改原來的密碼 With Drug-Stor.rsSysUsers .Open .Find ”編號=”&CurrentUserNumner&” .Fields(”密碼”)=Trim(txtNewPWD(0) .Update End With MsgBox ”密碼已修改End Sub單擊取消,關閉倉庫管理窗體Private Sub cmdExit-Click() Unload Me 關閉密碼修改窗體End Sub用戶管理功能設計思路和要點:用戶管

31、理是對使用此系統(tǒng)的所有用戶進行管理。分為增加,刪除以及修改用戶信息。此功能只有管理員和超級用戶才能使用。普通用戶不能執(zhí)行此操作。界面如圖4-6所示: 圖4-6 用戶管理界面其對應的代碼如下: 定義窗體級變量,用于表示當前是否處于添加記錄狀態(tài)Dim isAdding As Boolean實現(xiàn)記錄導航Private Sub cmdMove-Click(Index As Integer) With Drug-Store.rsSysUsers Case 0 使第一個記錄成為當前記錄 If .RecordCont0 And Not .BOF Then .MoveFirst Case 1 使上一個記錄成為

32、當前記錄 If .RecordCont0 And Not .BOF Then .MovePrevious If.BOF Then .MoveFirst End If Case 2 使下一個記錄成為當前記錄 If .RecordCont0 And Not .BOF Then .MoveNext If . BOF Then .MoveLast End If Case 3 使最后一個記錄成為當前記錄 If .RecordCont0 And Not .BOF Then .MoveLastEnd SelectIf And . BOF Then txtNews=”記錄:無”ElsetxtNews=”記錄:

33、”&.AbsolutePossition&”/”&.RecordCountEnd IfEnd WithEnd Sub驗證用戶信息輸入,在輸入用戶名、密碼和權限代碼時,執(zhí)行驗證操作,Private Sub txtUser-KeyPress(KeyAscii As Integer) If Not(KeyAscii=vbKey0 And KeyAscii=Asc(a)And KeyAscii=Asc(A)And KeyAscii=vbKey0 And KeyAscii=Asc(a)And KeyAscii=Asc(A)And KeyAscii0 Then. MoveLastEed If Eed If

34、 Eed IfEed WithEnd Sub單擊關閉時,實現(xiàn)關閉窗體操作Private Sub cmdExit-Click()Unload Me 關閉系統(tǒng)用戶管理窗體End Sub退出功能退出即退出本系統(tǒng)。選擇系統(tǒng)管理下的退出即可。如圖4-7所示: 圖4-7 退出系統(tǒng)界面其對應的代碼如下:Private Sub cmdExit-Click() Unload Me 關閉倉庫管理窗體End Sub4.4倉庫管理模塊倉庫管理模塊是本系統(tǒng)的核心模塊。根據(jù)倉庫的日常操作共分有六個子模塊,分別是:入庫操作,出庫操作,退料操作,增料操作,倉位管理和盤點損益。已基本包括了倉庫管理的主要功能。4.4.1入庫操作

35、設計思路和要點:入庫操作即倉庫的收料,系統(tǒng)規(guī)定收料只能根據(jù)訂單來進行。沒有訂單就不能完成收料。每個訂單都對應一個入庫操作。這樣能夠大大減少因人為因素產(chǎn)生的錯誤。規(guī)范化倉庫收料操作。選擇訂單號碼后,相關的訂單信息已會顯示出來。訂單號碼是由訂單管理模塊產(chǎn)生。倉庫人員沒有權限產(chǎn)生訂單。界面如圖4-8所示: 圖4-8 入庫操作界面其對應的代碼如下:單擊入庫時,Private Sub cmdAdd-Click() If cmdAdd.Caption=”入庫” ThencmdAdd.Caption=”查詢”StockData.Visible= FalseStockIn.Visible=TrueisStor

36、king= TruecmdDelet.Enabled= FalsecmbName.ListIndex=0 設置入庫數(shù)據(jù)默認的產(chǎn)品名稱和編號cmbNum.ListIndex=0Else cmdRefresh.Value= TruecmdAdd.Caption=”入庫”StockData.Visible= TrueStockIn.Visible= FalseisStorking= FalsecmdDelet.Enabled= TrueEed IfEnd Sub點擊關閉時,退出入庫窗體Private Sub cmdExit-Click() Unload Me 關閉入庫窗體End Sub4.4.2 出

37、庫操作設計思想和要點:出庫操作即倉庫的發(fā)料,本系統(tǒng)規(guī)定倉庫的發(fā)料需根據(jù)生產(chǎn)計劃來進行。沒有生產(chǎn)計劃則不能發(fā)料。生產(chǎn)計劃的產(chǎn)生由專門模塊實現(xiàn)。生產(chǎn)計劃用工單來區(qū)分。每個工單的發(fā)料可有兩種方式 ,一種是按工單發(fā)料,即一次性將一個工單的全部所需物料全部發(fā)至生產(chǎn)線。另一種是按物料,即根據(jù)生產(chǎn)狀況,一個一個將物料發(fā)至生產(chǎn)線。選擇選擇發(fā)料類型,按工單或按物料。按工單的話,則選擇工單號即生產(chǎn)計劃號,系統(tǒng)自動將此工單的所有料發(fā)至生產(chǎn)線。界面如圖4-9和圖4-10所示: 圖4-9出庫操作按工作界面 圖4-10 出庫操作按物料界面其對應的代碼如下:Private Sub cmdAdd-Click() If cmd

38、Add.Caption=”出庫” ThencmdAdd.Caption=”查詢”StockData.Visible= FalseStockIn.Visible=TrueisStorking= TruecmdDelet.Enabled= FalsecmbName.ListIndex=0 設置出庫數(shù)據(jù)默認的產(chǎn)品名稱和編號cmbNum.ListIndex=0Else cmdRefresh.Value= TruecmdAdd.Caption=”入庫”StockData.Visible= TrueStockIn.Visible= FalseisStorking= FalsecmdDelet.Enable

39、d= TrueEed IfEnd Sub點擊關閉時,退出出庫窗體Private Sub cmdExit-Click() Unload Me 關閉出庫窗體End Sub4.4.3 借入操作設計思路和要點:借入操作即由于生產(chǎn)損耗而需要增料。為了核算成本,增料需根據(jù)生產(chǎn)計劃號來進行增料操作,這樣就能夠清楚列出每次生產(chǎn)的損耗。界面如圖4-11所示: 圖4-11借入操作界面其對應的代碼如下:Private Sub cmdAdd-Click() If cmdAdd.Caption=”借入” ThencmdAdd.Caption=”查詢”StockData.Visible= FalseStockIn.Vis

40、ible=TrueisStorking= TruecmdDelet.Enabled= FalsecmbName.ListIndex=0 設置借入數(shù)據(jù)默認的產(chǎn)品名稱和編號cmbNum.ListIndex=0Else cmdRefresh.Value= TruecmdAdd.Caption=”借入”StockData.Visible= TrueStockIn.Visible= FalseisStorking= FalsecmdDelet.Enabled= TrueEed IfEnd Sub點擊關閉時,退出借入窗體Private Sub cmdExit-Click() Unload Me 關閉借入窗

41、體End Sub借出操作設計思路和要點:借出操作是針對生產(chǎn)線由于各種原因產(chǎn)生的生產(chǎn)中多領的物料退回倉庫。借出時需選擇所退物料的料號及數(shù)量。程序會根據(jù)這些信息在數(shù)據(jù)庫中作出相應的調(diào)整。界面如圖4-12所示: 圖4-12 借出操作界面 其對應的代碼如下:Private Sub cmdAdd-Click() If cmdAdd.Caption=”借出” ThencmdAdd.Caption=”查詢”StockData.Visible= FalseStockIn.Visible=TrueisStorking= TruecmdDelet.Enabled= FalsecmbName.ListIndex=0

42、 設置借出數(shù)據(jù)默認的產(chǎn)品名稱和編號cmbNum.ListIndex=0Else cmdRefresh.Value= TruecmdAdd.Caption=”借出”StockData.Visible= TrueStockIn.Visible= FalseisStorking= FalsecmdDelet.Enabled= TrueEed IfEnd Sub點擊關閉時,退出借出窗體Private Sub cmdExit-Click() Unload Me 關閉借出窗體End Sub盤點模塊設計思路和要點:每次盤點后,需根據(jù)盤點結(jié)果進行某些物料的調(diào)整。調(diào)整分為收益和虧損。界面如圖4-13所示: 圖4

43、-13 盤點界面4.5.1報表查詢模塊此模塊的主要功能是查詢及報表。4.5.2查詢設計思路和要點:根據(jù)各種查詢條件查詢物料信息。物料信息包含三部分,一為基本信息,二為訂單信息,三為生產(chǎn)計劃信息。適合所有使用者。界面如圖4-14所示: 圖4-14 查詢界面其對應的代碼如下:Private Sub CodSelect_Click() With Wage-Manage-Data.rsStuffData Adodc1.RecordSource = select * from 倉庫基本信息 where 倉位= Text3.Text Adodc1.Refresh Text1.Text = Adodc1.R

44、ecordset.Fields(物料代碼) End With cmdMove(0).Value=True End SubPrivate Sub cmdExit-Click() Unload Me 關閉查詢窗體End Sub4.5.3查詢?nèi)粘２僮髟O計思路與要點:對系統(tǒng)的每一次操作能應及時地記錄下來,以便日后查詢。因此在數(shù)據(jù)庫中單獨創(chuàng)立一張表,用于記錄系統(tǒng)的日常操作,即倉庫的各種日常操作。經(jīng)過此功能,可能追溯系統(tǒng)數(shù)據(jù)的整個變化過程。使整個系統(tǒng)的運行都在控制之內(nèi)。界面如圖4-15所示: 圖4-15 操作日志界面其對應的代碼如下:Private Sub CodSelect_Click() With W

45、age-Manage-Data.rsStuffData Adodc1.RecordSource = select * from 系統(tǒng)日志信息 where 操作員= Text1.Text And”操作內(nèi)容”= Text2.Text And”日期從”= Text3.Text And”日期到”=Text4.Text Adodc1.Refresh End With cmdMove(0).Value=True End SelectEnd SubPrivate Sub cmdExit-Click() Unload Me 關閉操作日志窗體End Sub4.5.4盤點報表設計思路和要點:盤點報表能夠根據(jù)盤點的需要,按物料編碼或按倉位生成。盤點報表將列出當前時刻,倉庫中所有物料的數(shù)量及存放地點,以便盤點時參考。同時此報表還能夠輸出成各種格式,以方便用戶使用。界面如圖4-16所示: 圖4-16 盤點報表界面其對應的代碼如下Private Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.index Case 1: M庫存狀況_Click Case 4: M月盤點_Click C