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