【正文】 還原到昨天數(shù)據(jù)庫 _Click() On Error GoTo failure If MsgBox(還原數(shù)據(jù)庫將導致現(xiàn)在數(shù)據(jù)庫數(shù)據(jù)丟失 ,您確信要還原數(shù)據(jù)庫嗎 ?, vbYesNo Or vbQuestion) = vbNo Then Exit Sub If ResumeData(DataPath, + \) = 1 Then InitAfterResume 39。 Private Sub M 出庫單 _Click() 出庫單 .Show vbModal End Sub “查詢統(tǒng)計”菜單下的“單據(jù)查詢”子菜單的 Click 事件的程序代碼如下。 河南理工大學本科畢業(yè)設計（論文） 43 Private Sub M 供應商 _Click() 供應商 .Show vbModal End Sub “維護設置 ”菜單下的“ 換用戶登錄 ”子菜單的 Click 事件的程序代碼 如下。 Private Sub M 換用戶登陸 _Click() 39。 Private Sub M 單據(jù)查詢 _Click() 單據(jù)查詢 .Show vbModal End Sub “單據(jù)中 心”菜單下的“調撥單管理”子菜單的 Click 事件的程序代碼如下。 點擊 “還原數(shù)據(jù)” 系統(tǒng)會還原你想還原的數(shù)據(jù)庫。 Private Sub M 打印借入單 _Click() Dim f As New 借入單 .left = 新增借入單 .left .Top = 新增借入單 .Top 新增借入單 .Visible = False .Visible = False .Visible = False vbModal Unload f End Sub “打印報表”菜單下的“ 打印入庫單 ”子菜單的 Click 事件的程序代碼如下。 Private Sub M 打印報損單 _Click() Dim f As New 報損單 .left = 新增報損單 .left .Top = 新增報損單 .Top 新增報損單 .Visible = False .Visible = False vbModal Unload f End Sub 河南理工大學本科畢業(yè)設計（論文） 38 “ 打印報表”菜單下的“ 打印 出庫 單 ”子菜單的 Click 事件的程序代 碼如下。 點擊 “報損單管理” 會彈出 報損單管理 窗口。 點擊 “關于倉庫管理系統(tǒng)” 會彈出系統(tǒng)幫助窗口。加載圖片 = LoadPicture( + \data\) End Sub “基本信息”菜單下的“退出”子菜單的 Click 事件的程序代碼 如下。初始化 17種權限狀態(tài) Dim i As Integer For i = 16 To 0 Step 1 If GetBit(Purview, i + 1) = 0 Then 權限類別 (16 i) = 0 Else 權限類別 (16 i) = 1 End If Next End Sub Private Sub InitMenu() 39。他們出現(xiàn)在菜單中相應菜單項的右邊。然后在“ Caption”文本框中鍵入一個連字符（－）。 （ 7） 創(chuàng)建新的菜單控件時，選取“ Next”命令。在菜單中，這一字符會自動加上一條下劃線。 Name— 代碼中用來引用菜單控件的名字。菜單控件使一個對象，與其他對象一樣，它具有定義它的外觀與行為的屬性。每項菜單有多項子菜單，具有一定的專門功能，用戶容易通過主菜單來訪問其下的子菜單。在 SDI 的程序中，每個窗體之間是獨 立的。 圖 48 報損 信息實體 ER 報損信息實體 編號 經(jīng)辦人編號 報損時間、單價、數(shù) 量 倉庫編號 調撥信息實體 編號 經(jīng)辦人編號 目標倉庫編號 原倉庫編號 河南理工大學本科畢業(yè)設計（論文） 18 實體和實體之間的關系 ER 圖如圖 49所示。 根據(jù)上面的設計規(guī)劃出的實體有： 現(xiàn)有庫存 信息 實體、 入庫 信息實體、 出庫 信息實體、 借入 信息實體、 借出 信 息實體、調撥信息實體圖和報損信息實體圖。 ● 入庫單信息，包括的數(shù)據(jù)項有編號、貨物編號、經(jīng)辦人編號、入庫時間、入庫單價、入庫數(shù)量、供應商編號、倉庫編號、定單狀況、其它金額、備注等。 系統(tǒng)功能模塊設計 在系統(tǒng)功能分析的基礎上，考慮到 Visual Basic 程序編制的特點，得到如圖 31所示的系統(tǒng)功能模塊圖。 系統(tǒng)功能需求分析 系統(tǒng)開發(fā)的總體任務是實現(xiàn)各種信息的系統(tǒng)化、規(guī)范化和自動化。因此在管理上實現(xiàn)起來有一定的困難。 本軟件是為 企業(yè)倉庫 的管理者開發(fā)的，所有本軟件的用戶對象是 企業(yè)倉庫的 工作人員，由于本軟件要設計成友好的界面，寫出詳細的使用說明，用戶只需懂得簡單的計算機操作知識，就能自由應用本軟件。由于本設計最重要體現(xiàn)的是實用性，所以，通過大量的社 會調查和分析，結合自己現(xiàn)有的技術水平加上導師的指導，還是能按期完成本畢業(yè)設計。所以從以上的分析原則來看，我所設計的倉庫信息管理系統(tǒng)是一個規(guī)模不太大的系統(tǒng)，但是目標明確 ，清晰的 描述了對目標系統(tǒng)的一切限制和約束。 本系統(tǒng)就是在以 ACCESS2020 作為后臺數(shù)據(jù)庫，以 Visual Basic 為編程語言為中小 型 企業(yè)管理倉庫而開發(fā)的一個數(shù)據(jù)庫管理系統(tǒng)。 3 面向對象的程序設計 ， VB 是面向對象的程序設計語言，他將代碼和數(shù)據(jù)結合在一個對象中，用戶只需要了解每個對象能完成何種任務而不需要知道對象是如何工做作的。它使用了面向對象的程序設計方法，大大的增強了程序的可重用性，進而簡化了程序設計。 倉庫管理系統(tǒng) 在運行階段，效果好 ， 數(shù)據(jù)準確性高，提高了工作效率，同時也實現(xiàn)了 倉庫 管理計算機化。 例如 :檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。 企業(yè)的各項管理都將向信息化方向 擴展，倉庫的管理對于企業(yè)來說尤為重要， 也正是基于這個原因我把畢業(yè)設計 的方向定在了 企業(yè) 的 倉庫 管理上。 河南理工大學本科畢業(yè)設計（論文） 2 摘要 倉庫管理系統(tǒng)是為了 實現(xiàn)企業(yè)產(chǎn)品管理的系統(tǒng)化、規(guī)范化和自動化，從而提高企業(yè)管理效率 而設計的 。下面簡要介紹一下中文Visual Basic 和 Access 2020。 VB 具有所見即所得的功能，在程序設計時，頭腦中所想象的應用程序界面，完全可以通過鍵盤和鼠標完成，而不用編制河南理工大學本科畢業(yè)設計（論文） 7 大量代碼，如果需要修改也可利用鍵盤或鼠標完成，而底層的一些程序代碼，可由 VB 自動生成或修改。 4 易學易用， 開發(fā)周期短 。 可行性研究的目的就是用最小的代價在盡可能短的時間內確定問題是否能夠解決。 從現(xiàn)實看，這還是有一定的實用價值的，從另一個角度看，現(xiàn)實 社會發(fā) 展飛速，尊重科技勢在必行 ，因此 這也是開發(fā) 本系統(tǒng) 的一個非常重 要的原因。所以成本計算只需計算開發(fā)期間開發(fā)者的生活消費，學校資源的消耗，所以開發(fā)本軟件的成本是非常低的。 開發(fā)設計思想 倉庫 管理主要是企業(yè)各種商品的 管理。 ● 統(tǒng)一各種原始單據(jù)的格式，統(tǒng)一報表的格式。 ● 倉庫管理各種信息的查詢、 統(tǒng)計、 修改和維護 ，包括貨物 、單據(jù)查詢，貨物出入、職員操作統(tǒng)計，各種信息的修改和維護等。收集基本數(shù)據(jù)、數(shù)據(jù)結構以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設計打下基礎。 ●系統(tǒng)日志信息，包括的數(shù)據(jù)項有用戶名、操作時間、操作內容等。 圖 43 入庫單 信息實體 ER 圖 出庫單 信息實體 ER 圖如圖 44 所示。每個表格所示在數(shù)據(jù)庫中的一個表。單擊工具欄中的 ADD MDI Form 按鈕，生成一個窗體。 1. 菜單簡介 菜單欄在窗體欄的標題欄下面，包含一個或多個菜單標題。 2. Visual Basic 菜單編輯器 菜單編輯器可以創(chuàng)建新的菜單和菜單 欄，也可以向現(xiàn)存的菜單中增加新的命令、用自己的命令替代現(xiàn)存的菜單命令、產(chǎn)生新的菜單和菜單欄，改變和刪除現(xiàn)存菜單和菜單欄。 （ 1） 選取待創(chuàng)建菜單的窗體，激活該窗體。 (b) 每一個項目名稱應當有一個用鍵盤選取命令的唯一的記憶訪問字符。 （ 10） 菜單控件創(chuàng)建好后，選取“ OK”可關閉菜單編輯器。 創(chuàng)建賦值訪問鍵和快捷鍵 為了提高應用程序的性能，為用戶提供 最方便、快捷的操作，可以定義菜單的訪問鍵和快捷鍵，改進鍵盤對菜單命令的訪問。B) … .新增入庫單 Ctrl+G … .新增出庫單 Ctrl+H … .新增 借入單 Ctrl+I … .新增借出單 Ctrl+J … .新增調撥單 Ctrl+K … .新增報損單 Ctrl+L … .— … .入庫單管理 Ctrl+M … .出庫單管理 Ctrl+N … .借入單管理 Ctrl+O … .借出單管理 Ctrl+P … .調撥單管理 Ctrl+Q … .報損單管理 Ctrl+R … .— … .進行月盤點 Ctrl+S 查詢統(tǒng)計 (amp。每天首次運行自動備份數(shù)據(jù)庫 = select 操作時間 from 系統(tǒng)日志 order by 操作時間 desc If 0 Then Dim t As String 河南理工大學本科畢業(yè)設計（論文） 34 t = (操作時間).Value 39。寫入系統(tǒng)日志 End Sub Private Sub mnuFileExit_Click() Unload Me End Sub “維護設置”菜單下的“修改密碼”子菜單的 Click 事件的程序代河南理工大學本科畢業(yè)設計（論文） 35 碼 如下。 Private Sub mnuFilePageSetup_Click() On Error Resume Next With dlgCommonDialog .DialogTitle = 頁面設置 .CancelError = True .ShowPrinter End With End Sub “視圖”菜單下的“狀態(tài)欄”子菜單的 Click 事件的程序代碼 如下。 Private Sub M 備份數(shù)據(jù)庫 _Click() On Error GoTo failure With dlgCommonDialog .DialogTitle = 數(shù)據(jù)庫備份為 .. .ShowSave If Len(.filename) = 0 Then Exit Sub 河南理工大學本科畢業(yè)設計（論文） 37 If BackupData(DataPath, .filename) = 1 Then MsgBox 備份成功 ! (備份數(shù)據(jù) ) 39。 點擊 “ 打印調拔單 ” 會彈出 打印調拔單 窗口。 點擊 “ 打印月盤點 ” 會彈出 打印月盤點 窗口。 點擊 “倉庫信息” 會彈出倉庫信息窗口。 點擊會彈出公司信息窗口。啟動主窗口