【正文】 ...................... 51 設(shè)置工具欄屬性 ................................ 52 設(shè)置主窗體狀態(tài)欄 ................................... 56 6 系統(tǒng)模塊設(shè)計(jì) ............................................. 57 基本信息模塊設(shè)計(jì) ................................... 57 創(chuàng)建貨物信息窗體 .............................. 57 創(chuàng)建倉庫信息窗體 .............................. 58 創(chuàng)建庫存狀況信息窗體 .......................... 59 單據(jù)中心模塊設(shè)計(jì) ................................... 60 創(chuàng)建新增入庫單窗體 ............................ 61 創(chuàng)建入庫單管理窗體 ............................ 62 創(chuàng)建月盤點(diǎn)窗體 ................................ 63 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 5 查詢統(tǒng)計(jì)模塊設(shè)計(jì) ................................... 63 創(chuàng)建單據(jù)查詢窗體 .............................. 64 創(chuàng)建庫存查詢窗體 .............................. 64 創(chuàng)建貨物出入統(tǒng)計(jì)窗體 .......................... 65 創(chuàng)建職員操作統(tǒng)計(jì)窗體 .......................... 66 報(bào)表打印模塊設(shè)計(jì) ................................... 67 創(chuàng)建打印入庫單窗體 ............................ 67 創(chuàng)建打印月盤點(diǎn)窗體 ............................ 68 維護(hù)設(shè)置模塊設(shè)計(jì) ................................... 69 公司和職員信息 ................................ 70 查看日志 ...................................... 70 數(shù)據(jù)清除 ...................................... 71 系統(tǒng)初始化 .................................... 71 備份數(shù)據(jù)庫 .................................... 71 還原數(shù)據(jù)庫和還原到昨天數(shù)據(jù)庫 .................. 72 用戶管理 ...................................... 72 幫助模塊設(shè)計(jì) ....................................... 72 總結(jié) ....................................................... 74 致謝 ....................................................... 75 參考文獻(xiàn) ................................................... 76 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 6 1 倉庫管理系統(tǒng)開發(fā)環(huán)境簡介 本倉庫管理系統(tǒng)是在以 Visual Basic 為編程語言，以 ACCESS2020 作為后臺數(shù)據(jù)庫而開發(fā)的一個(gè)數(shù)據(jù)庫管理系統(tǒng)。 Visual Basic 在原有 BASIC 語言的基礎(chǔ)上進(jìn)一步發(fā)展，至今包含了數(shù)百條語句、函數(shù)和關(guān)鍵詞，其中很多和 Windows GUI 有直接關(guān)系，專業(yè)人員可以用 Visual Basic 實(shí)現(xiàn)其他任何 Windows 編程語言的功能，而初學(xué)者只要掌握幾個(gè)關(guān)鍵詞就可以建立簡單的應(yīng)用程序。它有其獨(dú)特的特點(diǎn)，主要特點(diǎn)如下： 1 可視化設(shè)計(jì) 。這些對象組成了與用戶交互的圖形界面（也稱為用戶接口用戶界面）再設(shè)計(jì)應(yīng)用程序時(shí)必須考慮到用戶如何與程序進(jìn)行交互，用戶通過鼠標(biāo)和鍵盤與應(yīng)用程序進(jìn)行交互是最直接最方便的，這時(shí)那些對象必須對鼠標(biāo)鍵盤操作所引起的事件做出響應(yīng)。但因 VB 沒有多態(tài)等面向?qū)ο蟮奶匦?，所以也有人稱 VB 是一種準(zhǔn)面向?qū)ο蟮某绦蛟O(shè)計(jì)語言。 ACCESS2020 簡介 ASSESS 是一個(gè)數(shù)據(jù)庫管理系統(tǒng)， 它 簡單易學(xué)，一個(gè)普通的計(jì)算機(jī)河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 8 用戶可以很快的掌握它。如果問題沒有可行的解，那么花費(fèi)這項(xiàng)開發(fā)工程上的任何時(shí)間、資源、人力和經(jīng)費(fèi)都是無謂的浪費(fèi)。必須分析幾種主要的可能解法的利弊，從而判斷原定的系統(tǒng)目標(biāo)和規(guī)模是否現(xiàn)實(shí)，系統(tǒng)完成后所能帶來的效益是否大到值得投資開發(fā)這個(gè)系統(tǒng)的程度。 在使用過程中，要看它能不能帶來效益，畢竟在河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 9 現(xiàn)今社會效率是第一位的。 本設(shè)計(jì)“ 倉庫管理系統(tǒng)”是為企業(yè)倉庫管理人員開發(fā) 的。 成本方面：由于本畢業(yè)設(shè)計(jì)屬于計(jì)算機(jī)科學(xué) (本科 )教學(xué)的最后一個(gè)環(huán)節(jié)，所以人力消耗免費(fèi)，資源學(xué)校提供，指導(dǎo)老師義務(wù)指導(dǎo)。 從以上分析看開發(fā)本軟件在經(jīng)濟(jì)上是可行的。 3 系統(tǒng)總體設(shè)計(jì) 系統(tǒng)目標(biāo)設(shè)計(jì) 系統(tǒng)開發(fā)的 總體任務(wù)是實(shí)現(xiàn)企業(yè)產(chǎn)品管理的系統(tǒng)化、規(guī)范化和自動(dòng)化，從而達(dá)到提高企業(yè)管理效率的目的。根據(jù)需要按照月進(jìn)行統(tǒng)計(jì)分析，產(chǎn)生相應(yīng)報(bào)表。 在本系 統(tǒng)的設(shè)計(jì)過程中，為了克服這些困難，滿足計(jì)算機(jī)管理工作的需要，我們采取了下面的一些原則。 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 11 ● 界面盡量簡單化，做到實(shí)用、方便，盡量滿足企業(yè)中不同層次員工的需要。本倉庫管理 系統(tǒng)需要完 成功能主要有： ● 倉庫管理各種信息的輸入，包括 貨物、供應(yīng)商、客戶、倉庫 信息的輸入等。 ● 操作日志的管理。 4 數(shù)據(jù)庫設(shè)計(jì) 數(shù)據(jù)庫需求分析 用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新 和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。 ● 倉庫信息，包括的數(shù)據(jù)項(xiàng)有編號、倉庫名稱、倉庫地點(diǎn)、保管員編號、備注等。 ● 進(jìn)行月盤點(diǎn)信息，包括的數(shù)據(jù)項(xiàng)有編號 、倉庫編號、盤點(diǎn)時(shí)間、倉庫現(xiàn)有庫存 匯總、處理 各種單據(jù) 產(chǎn)品入庫 產(chǎn)品出庫 報(bào)表打印 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 14 經(jīng)辦人編號、盤點(diǎn)數(shù)據(jù)等。它們與入庫單、出庫單信息基本類似，這里不再一一例舉。 圖 42 現(xiàn)有庫存信息實(shí)體 ER 圖 現(xiàn)有庫存信息實(shí)體 編號 貨物名稱 最低限量 最高限量 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 15 入庫單 信息實(shí)體 ER 圖如圖 43 所示。 圖 46 借出 信息實(shí)體 ER 借出信息實(shí)體 編號 經(jīng)辦人編號 借出時(shí)間、數(shù)量 貨物編號 借入信息實(shí)體 編號 經(jīng)辦人編號 借入時(shí)間、單價(jià)、數(shù)量 貨物編號 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 17 調(diào)撥 信息實(shí)體 ER 圖如圖 47 所示 。 倉庫 管理信息系統(tǒng)數(shù)據(jù)庫中各個(gè)表格的設(shè)計(jì)結(jié)果如下面表格所示。這里我們刪除這個(gè)窗體，單擊 FileSave Projiect 菜單，將這個(gè)工程項(xiàng)目命名為 倉庫管理系統(tǒng)。本設(shè)計(jì)采用多文檔界面，這樣可以使程序更加美觀、整齊有序。 圖 5－ 1 系統(tǒng)主窗體 創(chuàng)建主窗體 菜單 熟悉 Windows 下應(yīng)用程序的用戶對菜單一定有比較深的印象。下面將介紹菜單及菜單的編輯和使用。用戶看到的每個(gè) 菜單項(xiàng)和在“ Menu Editor”中定河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 26 義的一個(gè)菜單控件相對應(yīng)。菜單控件只包含一個(gè)事件，即 Click 事件，當(dāng)用鼠標(biāo)或鍵盤選中該菜單控件時(shí)，將調(diào)用該事件。彈出菜單編輯器窗口如圖 5－ 2 所示。 以上介紹了菜單編輯器的基本情況和屬性，接下來將來介紹利用菜單編輯器創(chuàng)建菜單的過程。如果希望某一字符成為該菜單項(xiàng)的訪問鍵，也可以在該字符前加上一個(gè)（ amp。命名菜單控件的規(guī)則如下： (a) 菜單中項(xiàng)目名稱應(yīng)當(dāng)唯一，但不同菜單中相似動(dòng)作項(xiàng)目可以重名。 （ 5） 單擊向左或向右箭頭按鈕，可以改變該控件的縮進(jìn)級。 （ 9） 單擊向上與向下的箭頭按鈕，可以在現(xiàn)有菜單控件之中移動(dòng)控件。 創(chuàng)建分隔符 ， 如果在設(shè)計(jì)的菜單中創(chuàng)建分隔符條，只需在想要分隔開來的菜單項(xiàng)之間插入一個(gè)菜單控件。“ OK” ,關(guān)閉菜單編輯器。 快捷鍵 ， 快捷鍵提供了一種鍵盤單步的訪問方法，按下時(shí)會立刻運(yùn)行一個(gè)菜單項(xiàng)。A) … .貨物信息 Ctrl+A … .倉庫信息 Ctrl+B … .供應(yīng)商信息 Ctrl+C … .往來客戶 Ctrl+D … .庫存狀況信息 Ctrl+E … .— … .退出 Ctrl+F 單據(jù)中心 (amp。E) … .公司信息 Ctrl+F8 … .職員信息 Ctrl+F9 … .— … .查看日志 Ctrl+F11 … .數(shù)據(jù)清除 Ctrl+F12 … .系統(tǒng)初始化 Shift+F1 … .— … .備份數(shù)據(jù)庫 Shift+F2 … .還原數(shù)據(jù)庫 Shift+ F3 … .— … .修改密碼 Shift+F5 … .用戶管理 Shift+F6 幫助 (amp。初始化 m_checkado = DataConnectString = False 39。初始化各種權(quán)限類別 InitMenu 39。 Private Sub Form_Unload(Cancel As Integer) (退出系統(tǒng) ) 39。 點(diǎn)擊 “用戶管理” 會彈出用戶管理窗口。 點(diǎn)擊 “ 頁面設(shè)置 ” 會彈出 頁面設(shè)置 對話框。點(diǎn)擊 “工具欄” 主窗體會隱藏工具欄。 點(diǎn)擊 “備份數(shù)據(jù)庫” 系統(tǒng)會提示是否備份數(shù)據(jù)庫，如果點(diǎn)擊“是”，系統(tǒng)會備份數(shù)據(jù)庫。 Private Sub M 查看日志 _Click() 系統(tǒng)日志 .Show vbModal End Sub “打印報(bào)表”菜單下的“ 打印報(bào)損單 ”子菜單的 Click 事件的程序代碼如下。 Private Sub M 打印出庫單 _Click() Dim f As New 出庫單 .left = 新增出庫單 .left .Top = 新增出庫單 .Top 新增出庫單 .Visible = False .Visible = False .Visible = False vbModal Unload f End Sub “打印報(bào)表”菜單下的“ 打印調(diào)拔單 ”子菜單的 Click 事件的程序代碼如下。 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 39 Private Sub M 打印借出單 _Click() Dim f As New 借出單 .left = 新增借出單 .left .Top = 新增借出單 .Top 新增借出單 .Visible = False .Visible = False