【正文】 點擊 “換用戶登錄” 會彈出 換用戶登錄 窗口。點擊“單據(jù)查詢”會彈出單據(jù)查詢窗口。初始化還原后的信息 MsgBox 還原成功 ! Else 河南理工大學本科畢業(yè)設計（論文） 41 failure: MsgBox 還原失敗 ! End If End Sub “維護設置”菜單下的“還原數(shù)據(jù)”子菜單的 Click 事件的程序代碼如下。 點擊 “ 打印借入單 ” 會彈出 打印借入單 窗口。 點擊 “ 打印報損單 ” 會彈出 打印報損單 窗口。 Private Sub mnuViewToolbar_Click() = True = End Sub “單據(jù)中心”菜單下的“報損單管理”子菜單的 Click 事件的程序代碼如下。 Private Sub mnuUserManage_Click() 用戶管理 .Show vbModal End Sub “幫助”菜單下的“關于倉庫管理系統(tǒng)”子菜單的 Click 事件的程序代碼 如下。初始化菜單 39。H) … .關于倉庫管理系統(tǒng) F1 河南理工大學本科畢業(yè)設計（論文） 30 圖 53 倉庫管理系統(tǒng)菜單結構 系統(tǒng)初始化菜單的代碼如下： Private Declare Function GetWindow Lib user32 (ByVal hwnd As Long, ByVal wCmd As Long) As Long Public Sub InitPurview() 39。快捷鍵的賦值包括功能鍵與控制鍵的組合，如 CTRL+F1鍵或 CTRL+A 鍵。單擊左、右箭頭按鈕使新菜單項縮進到與它要隔開的菜單項同級。 （ 6） 如果需要，還可以設置控件的其他屬性。）字符。 5－ 2 菜單編輯器 河南理工大學本科畢業(yè)設計（論文） 27 菜單編輯器的基本屬性如下： Caption— 出現(xiàn)在控件上的文本。 為了使應用程序簡單好用，應該將菜單相按功能進行分組。所謂菜單，即是指應用程序中為用戶提供的一組命令，這些命令出現(xiàn)在應用程序界面的頂部。 創(chuàng)建 系統(tǒng) 主窗體 Visual Basic 創(chuàng)建的應用程序可以是 SDI（單文檔界面）和 MDI（多文檔界面）。 圖 47 調(diào)撥 信息實體 ER 報損 信息實體 ER 圖如圖 44 所 示。 數(shù)據(jù)庫概念結構設計 得到上面的數(shù)據(jù)項和數(shù)據(jù)結構以后，就可以設計出能夠滿足用戶需求的各種實體結構，以及他們之間的關系，為以后的邏輯結構設計打下基礎 。 ● 庫存狀況信息，包括的數(shù)據(jù)項有編號、貨物編號、庫存數(shù)量、 倉庫編號等。 ● 倉庫管理系統(tǒng)的使用幫助。 ● 建立操作日志，系統(tǒng)自動記錄所進行和各種操作。 倉庫管理的特點是信息處理量比較大，所管理的產(chǎn)品種類繁多，而且由于入庫單、出庫單、盤點單等單據(jù)發(fā)生量特別大，關聯(lián)信息多，查詢和統(tǒng)計的方式各不相同。 3. 操作可行性 。鑒于本人在上學期數(shù)據(jù)庫課程設計中已用 Visual ＋Access2020 開發(fā)過 網(wǎng)上圖書銷售管理信息系統(tǒng)，而且通過 三 個月 畢業(yè)實習中 的學習和實踐，對開發(fā)管理信息系統(tǒng)又有了新的認識 和提高， 使自己在開發(fā)管理信息系統(tǒng)方面的技術更加成熟。 因此，可行性研究實質(zhì)上是要進行一次大大壓縮簡化了的系統(tǒng)分析和設計的過程，也就是在較高層次上以較抽象的方式進行的系統(tǒng)分析和設計的過程。 ACCESS2020 的功能也十分強大，利用它可以方便的實現(xiàn)對信息保存、維護、查詢、統(tǒng)計等，而且它可以十分方便地與 OFFICE 其他組件交流數(shù)據(jù)，這些功能對一個普通用戶來說已經(jīng)足夠了。響應是指執(zhí)行一段應用程序，它不沿預定的路線執(zhí)行而 是在響應不同事件時執(zhí)行不同的代碼，因此 VB 編程重點是在編寫事件驅動過程的代碼。Visual Basic 還是一個快速可視化程序開發(fā)工具，是極有特色和功能強大 的軟件。 本系統(tǒng)是在以 ACCESS2020 作為后臺數(shù)據(jù)庫，以 Visual Basic 為編程語言來開發(fā)的。 作為計算機應用的一部分 ,使用計算機對 倉庫 信息進行管理 ， 有著手工管理所無法比擬的 優(yōu)點 。 倉庫 管理系統(tǒng)是一個 企業(yè) 不可缺少的部分 ,它的內(nèi)容對于 企業(yè) 的決策者和管理者來說都至關重要 ,所以 倉庫 管理系統(tǒng)應該能夠為用戶提供充足的信息和快捷的查詢手段。 它完全取代了原來一直用人工管理的工作方式， 避免了由于管理人員的工作疏 忽以及管理質(zhì)量問題所造成的各種錯誤，為及時、準確、高效的完成倉庫管理 提供了強有力的工具和管理手段。 中文 Visual Basic 簡介 Visual Basic 提供了開發(fā) Windows 應用程序最迅速、最簡潔的方法，它提供了一整套工具，供用戶開發(fā)應用程序。 VB 為用戶提供了大量“控件”，這些“控件”對于熟悉“ Windows 應用成序”的用戶而言，也 許是一點也不陌生，如“標簽” ,“組合框” ,“命令按扭”“文本框” ,“單選框”等等，用戶只需要用鼠標或鍵盤把這些“控件”拖到所需的位置并設置他們的大小形狀屬性等，即可得到所需要的應用程序界面。 VB 簡單易學，界面友好，容易使用。必須記住，可行性研究的目的不是解決問題，而是確定問題是否值得去解。 21 世紀是計算機的時代，它必然取代一部分人的工作，高科技的監(jiān)控系統(tǒng)進入社會生活的方方面面是發(fā)展的趨勢 。效益方面：為 企業(yè) 開發(fā)一個完整、合理的 倉庫 管理系統(tǒng)，可大大節(jié)余人力，以前需要多人干的工作，使用本系統(tǒng)只需一個人或幾個人就能完成，且工作量和勞動強度大大降低。進貨時經(jīng)檢查合同確認為有效托收后，進行驗收入庫，填寫入庫單，進行入庫登記。 ● 刪除不必要的管理冗余，實現(xiàn)管理規(guī)范化、科學化。 ● 打印報表的生成。 仔細分析調(diào)查有關 倉庫 管理信息需求的基礎上，得到如圖 4－ 1 所示的本系統(tǒng)所處理的數(shù)據(jù)流程。 ●用戶管理信息，包括的數(shù)據(jù)項有用戶名、用戶密碼、用戶權限等。 圖 44 出 庫 信息實體 ER 圖 出庫信息實體 編號 經(jīng)辦人編號 入庫時間、單價、數(shù)量 客戶編號 入庫信息實體 編號 經(jīng)辦人編號 入庫時間、單價、數(shù)量 供應商編號 河南理工大學本科畢業(yè)設計（論文） 16 借入 信息實體 ER 圖如圖 43 所示。 表 41 為 貨物 基本信息 表。窗體的屬性設置見表5－ 1。當單擊一個菜單 標題，包含菜單項目的列表就被拉下來。 要打開菜單編輯器，在“ Tools”菜單中選擇“ Menu Editor”選項。 （ 2） 從菜單欄的“ Tools”菜單中，選取“ Menu Editor”并單擊（或在“工具欄”上單擊“ Menu Editor”按鈕）。訪問字符通常是菜單標題的第一個字母；每個菜單標題不能用同一個字符。 創(chuàng)建的菜單標題將顯示在窗體上。 訪問鍵 ， 要在菜單編輯器中給菜單控件賦值訪問鍵，先選取要賦值訪問鍵的菜單項，在該菜單項“ Caption”框中，要在作為訪問鍵字符的前面鍵入一個（ amp。C) … .單據(jù)查詢 Ctrl+T … .庫存查詢 Ctrl+U … .— … .貨物出入統(tǒng)計 Ctrl+V … .職員操作統(tǒng)計 Ctrl+W 打印報表 … .打印入庫單 Ctrl+X … .打印出庫單 Ctrl+Y … .打印借入單 Ctrl+Z … .打印借出單 Ctrl+F1 … .打印調(diào)撥單 Ctrl+F2 … .打印報損單 Ctrl+F3 … .— … .打印月盤點 Ctrl+F4 … .— … .頁面設置 Ctrl+F5 視圖 (amp。如果今天從未有人登陸 ,備份數(shù)據(jù)庫 If InStr(1, t, Str(Date)) 1 Then BackupData DataPath, + \ End If Else BackupData DataPath, + \ End If (登陸系統(tǒng) ) 39。 點擊 “修改密碼” 會彈出修改當前用戶密碼窗口。河南理工大學本科畢業(yè)設計（論文） 36 點擊 “狀態(tài)欄” 主窗體會隱藏狀態(tài)欄。寫入系統(tǒng)日志 Else failure: MsgBox 備份失敗 ! End If End With End Sub “維護設置”菜單下的“查看日志”子菜單的 Click 事件的程序代碼如下。 Private Sub M 打印調(diào)拔單 _Click() Dim f As New 調(diào)拔單 .left = 新增調(diào)拔單 .left .Top = 新增調(diào)拔單 .Top 新增調(diào)拔單 .Visible = False .Visible = False vbModal Unload f End Sub “打印報表”菜單下的“ 打印借出單 ”子菜單的 Click 事件的程序代碼如下。 Private Sub M 打印月盤點 _Click() 打 印月盤點 .Show vbModal End Sub “維護設置”菜單下的“ 還原到昨天數(shù)據(jù)庫 ”子菜單的 Click 事件的程序代碼 如下。 河南理工大學本科畢業(yè)設計（論文） 42 Private Sub M 倉庫信息 _Click() 倉庫 .Show vbModal End Sub “ 單據(jù)中心 ”菜單下的“ 出庫單管理 ”子菜單的 Click 事件的程序代碼 如下。 Private Sub M 公司信息 _Click() 公司信息 .Show vbModal End Sub “基本信息”菜單下的“供應商信息”子菜單的 Click 事件的程序代碼如下。登錄失敗，退出應用程序 End If Unload fLogin Unload Me 39。 Private Sub M 調(diào)拔單 _Click() 調(diào)拔單 .Show vbModal End Sub “維護設置”菜單下的“公司信息”子菜單的 Click 事件的程序代碼發(fā)如下。初始化還原后的信息 MsgBox 還原成功 ! Else failure: MsgBox 還原失敗 ! End If End With End Sub “基本信息”菜單下的“倉庫信息”子菜單的 Click 事件的程序代碼如下。 Private Sub M 打印入庫單 _Click() 河南理工大學本科畢業(yè)設計（論文） 40 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 新增