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