【正文】 .................................... 76 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 6 1 倉(cāng)庫(kù)管理系統(tǒng)開(kāi)發(fā)環(huán)境簡(jiǎn)介 本倉(cāng)庫(kù)管理系統(tǒng)是在以 Visual Basic 為編程語(yǔ)言，以 ACCESS2020 作為后臺(tái)數(shù)據(jù)庫(kù)而開(kāi)發(fā)的一個(gè)數(shù)據(jù)庫(kù)管理系統(tǒng)。 由于時(shí)間緊迫，加之水平有限，設(shè)計(jì)中的缺點(diǎn)和不足之處在所難免，敬請(qǐng)導(dǎo)師批評(píng)指正，不勝感激。河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 1，網(wǎng)絡(luò)及計(jì)算機(jī)的引入使 管理 躍上了一個(gè)新的發(fā)展平臺(tái)。這些優(yōu)點(diǎn)能夠極大地提高 倉(cāng)庫(kù) 管理的效率 。 關(guān)鍵字 ： 倉(cāng)庫(kù)，管理系統(tǒng)，數(shù)據(jù)庫(kù) 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 3 Abstract The administrative system of the warehouse is designed for realizing the systematization , standardization and automization of enterprise39。 Visual Basic 提供了眾多的 ActiveX控件，提高了軟件開(kāi)發(fā)人員的編程效率。軟件開(kāi)發(fā)人員主要編寫(xiě)事件驅(qū)動(dòng)過(guò)程的代碼，使對(duì)象對(duì)用戶的操作做出反映。 2 系統(tǒng)可行性分析 可行性分析的 任務(wù) ,并不是所有問(wèn)題都有簡(jiǎn)單明顯的解決辦法，事實(shí)上，許多問(wèn)題不可能在預(yù)定的系統(tǒng)規(guī)模之內(nèi)解決。本系統(tǒng)幾乎在所有的企業(yè)、 公司使用，當(dāng)然它需要進(jìn)一步的完善和更新。 2. 經(jīng)濟(jì)可行性 。 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 10 所以從以上幾個(gè)方面的分析來(lái)看，開(kāi)發(fā)本軟件是完全可行的。在管理的過(guò)程中經(jīng)常會(huì)出現(xiàn)信息的重復(fù)傳遞；單據(jù)、報(bào)表種類繁多，各個(gè)部門管理規(guī)格不統(tǒng)一等問(wèn)題。系統(tǒng)功能 分析是在系統(tǒng)開(kāi)發(fā)的總體任務(wù)的基礎(chǔ)上完成。 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 12 圖 31 系統(tǒng)功能模塊圖。 ● 出庫(kù)單信息，包括的數(shù)據(jù)項(xiàng)有編號(hào)、貨物編號(hào)、經(jīng)辦人編號(hào)、出庫(kù)時(shí)間、出庫(kù)單價(jià)、出庫(kù)數(shù)量、 客戶編號(hào)、倉(cāng)庫(kù)編號(hào)、定單狀況、其它金額、備注等。 各個(gè)實(shí)體具體的描述 ER 圖如下： 現(xiàn)有庫(kù)存 信息實(shí)體 ER 圖如圖 42 所示。 圖 49 實(shí)體之間關(guān)系 ER圖 數(shù)據(jù)庫(kù) 邏輯結(jié)構(gòu)設(shè)計(jì) 現(xiàn)在需要將在上面的數(shù)據(jù)庫(kù)概念結(jié)構(gòu)轉(zhuǎn)化為 ACCESS 2020 數(shù)據(jù)庫(kù)系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型，也就是數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)。而 MDI 的程序中，有一個(gè)窗體是主窗體，可以包含其他窗體，他的類型是 MDI Form 。增加菜單可以增強(qiáng)應(yīng)用程序的功能。在設(shè)計(jì)或運(yùn)行時(shí)可以設(shè)置 Caption 屬性、 Enabled 和 Visible 屬性、Checked 屬性以及其他屬性。 shortcut— 可以訪問(wèn) 菜單的鍵盤按鍵組合。 （ 4） 在菜單編輯器的“ Name”文本框中，鍵入 將用來(lái)在代碼中引用該菜單控件的名字。 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 28 （ 8） 單擊“ Insert”可以在現(xiàn)有的控件之間增加一個(gè)菜單控件 。設(shè)置“ Name”屬性。 根據(jù)以上介紹的方法創(chuàng)建本設(shè)計(jì)的菜單結(jié)構(gòu)如圖 5－ 3 所示 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 29 基本信息 (amp。根據(jù)用戶權(quán)限來(lái)初始化菜單 If 權(quán)限類別 (3) = 0 Then M月盤點(diǎn) .Enabled = False (4).Enabled = False End If If 權(quán)限類別 (4) = 0 Then M供應(yīng)商 .Enabled = False 登記新供應(yīng)商 .MouseIcon = End If If 權(quán)限類別 (5) = 0 Then M往來(lái)客戶 .Enabled = False 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 31 登記新客戶 .MouseIcon = End If If 權(quán)限類別 (6) = 0 Then M單據(jù)查詢 .Enabled = False M庫(kù)存查詢 .Enabled = False M貨物出入統(tǒng)計(jì) .Enabled = False M職員操作統(tǒng)計(jì) .Enabled = False L貨物出入統(tǒng)計(jì) .MouseIcon = L職員操作統(tǒng)計(jì) .MouseIcon = L單據(jù)查詢 .MouseIcon = L庫(kù)存查詢 .MouseIcon = (5).Enabled = False (8).Enabled = False End If If 權(quán)限類別 (8) = 0 Then M打印入庫(kù)單 .Enabled = False M打印出庫(kù)單 .Enabled = False M打印借入單 .Enabled = False M打印借出單 .Enabled = False M打印調(diào)拔單 .Enabled = False M打印報(bào)損單 .Enabled = False M打印月盤點(diǎn) .Enabled = False (10).Enabled = False End If If 權(quán)限類別 (9) = 0 Then 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 32 M公司信息 .Enabled = False 修改公司信息 .MouseIcon = End If If 權(quán)限類別 (10) = 0 Then M職員信息 .Enabled = False 登記新職員 .MouseIcon = End If If 權(quán)限類別 (11) = 0 Then M倉(cāng)庫(kù)信息 .Enabled = False 創(chuàng)建新倉(cāng)庫(kù) .MouseIcon = End If If 權(quán)限類別 (12) = 0 Then M貨物信息 .Enabled = False 登記新貨物 .MouseIcon = End If If 權(quán)限類別 (13) = 0 Then M數(shù)據(jù)清除 .Enabled = False M系統(tǒng)初始化 .Enabled = False End If If 權(quán)限類別 (14) = 0 Then M備份數(shù)據(jù)庫(kù) .Enabled = False M還原數(shù)據(jù)庫(kù) .Enabled = False M還原到昨天數(shù)據(jù)庫(kù) .Enabled = False 備份數(shù)據(jù)庫(kù) .MouseIcon = 還原數(shù)據(jù)庫(kù) .MouseIcon = 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 33 End If If 權(quán)限類別 (15) = 0 Then M查看日志 .Enabled = False 查看日志 .MouseIcon = (12).Enabled = False End If If 權(quán)限類別 (16) = 0 Then = False L用戶管理 .MouseIcon = End If End Sub “ 菜單 ” 中的 各個(gè)“子菜單”的 程序代碼如下： 啟動(dòng)主窗體時(shí) 的需要的代碼 Private Sub Form_Load() 39。 點(diǎn)擊“退出”會(huì)退出系統(tǒng)，但在此之前系統(tǒng)首先會(huì)寫(xiě)入系統(tǒng)日志。 Private Sub mnuHelpAbout_Click() vbModal, Me End Sub “打印報(bào)表”菜單下的“ 頁(yè)面設(shè)置 ”子菜單的 Click 事件的程序代碼 如下。 Private Sub M 報(bào)損單 _Click() 報(bào)損單 .Show vbModal End Sub “維護(hù)設(shè)置”菜單下的“備份數(shù)據(jù)庫(kù)”子菜單的 Click 事件的程序代碼如下。 點(diǎn)擊 “ 打印 出庫(kù) 單 ” 會(huì)彈出 打印 出庫(kù) 單 窗口。 點(diǎn)擊 “ 打印入庫(kù)單 ” 會(huì)彈出 打印入庫(kù)單 窗口。 Private Sub M 還原數(shù)據(jù)庫(kù) _Click() On Error GoTo failure With dlgCommonDialog .DialogTitle = 數(shù)據(jù)庫(kù)還原于 ... .ShowOpen If Len(.filename) = 0 Then Exit Sub 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, .filename) = 1 Then InitAfterResume 39。 點(diǎn)擊 “調(diào)撥單管理” 會(huì)彈出調(diào)撥單管理窗口。啟動(dòng)登陸對(duì)話框 Dim fLogin As New frmLogin = 2411 vbModal If Not Then Exit Sub 39。 點(diǎn)擊 “供應(yīng) 商信息” 會(huì)彈出供應(yīng)商信息窗口。 點(diǎn)擊 “出庫(kù)單管理” 會(huì)彈出 出庫(kù)單管理 窗口。 點(diǎn)擊 “ 還原到昨天數(shù)據(jù)庫(kù) ” 會(huì) 還原到昨天用戶使用的數(shù)據(jù)庫(kù) 。 點(diǎn)擊 “ 打印借出單 ” 會(huì)彈出 打印借出單 窗口。 點(diǎn)擊 “查看日志” 會(huì)彈出 查看日志 窗口。 Private Sub mnuViewStatusBar_Click() = True = End Sub “視圖”菜單下的“工具欄”子菜單的 Click 事件的程序代碼 如下。 Private Sub mnuModifyPassword_Click() vbModal End Sub “維護(hù)設(shè)置”菜單下的“用戶管理”子菜單的 Click 事件的程序代碼， 如下。寫(xiě)入系統(tǒng)日志 InitPurview 39。D) … .工具欄 Ctrl+F6 … .狀態(tài)欄 Ctrl+F7 維護(hù)設(shè)置 (amp。）字符。在設(shè)計(jì)時(shí)，單擊一個(gè)菜單標(biāo)題可下拉其相應(yīng)的菜項(xiàng)。 (c) 如果命令在完成之前還需要附加信息，則在其名稱后面應(yīng)當(dāng)有一個(gè)省略號(hào)（ … ）。 （ 3） 在菜單編輯器的“ Caption”文本框中，為第一個(gè)菜單標(biāo)題鍵入希望在菜單欄上顯示的文本。或擊鼠標(biāo)右鍵，選擇彈出式菜單中的“ Menu Editor”。菜單項(xiàng)可以包含命令、分 隔條和子菜單標(biāo)題。 表 5－ 1 主窗體屬性設(shè)置 屬性 屬性取值 Name FrmMain Caption 倉(cāng)庫(kù)管理系統(tǒng) StartUpPosition CenterScreen WindowState Maximized 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 25 主窗體界面設(shè)計(jì)如圖 51 所示。 表 41 貨物 基本信息表 字段名稱 數(shù)據(jù)類型 字段大小 可否為空 編號(hào) 數(shù)字 長(zhǎng)整型 不可 貨物名稱 文本 64 不可 貨物類別 文本 50 可 現(xiàn)有庫(kù)存 入庫(kù) 出庫(kù) 借入 借出 調(diào)撥 報(bào)損 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 19 貨物規(guī)格 文本 50 可 計(jì)量單位 文本 50 可 最高限量 數(shù)字 長(zhǎng)整型 不可 最低限量 數(shù)字 長(zhǎng)整型 不可 備注 備注 可 表 42 為倉(cāng)庫(kù)信息表 表 42 倉(cāng)庫(kù)信息表 字段名稱 數(shù)據(jù)類型 字段大小 可否為空 編號(hào) 數(shù)字 長(zhǎng)整型 不可 倉(cāng)庫(kù)名稱 文本 50 不可 倉(cāng)庫(kù)地點(diǎn) 文本 255 可 保管理員編號(hào) 數(shù)字 長(zhǎng)整型 可 備注 備注 可 表 43 為庫(kù)存狀況信息表 表 43 庫(kù)存狀況信息表 字段名稱 數(shù)據(jù)類型 字段大小 可否為空