【導(dǎo)讀】個(gè)新的發(fā)展平臺(tái)。企業(yè)的各項(xiàng)管理都將向信息化方向擴(kuò)展，倉(cāng)庫(kù)的管理。充足的信息和快捷的查詢手段。但一直以來(lái)人們使用傳統(tǒng)人工的方式管。理產(chǎn)品，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差等。品都帶來(lái)了不少的困難。手工管理所無(wú)法比擬的優(yōu)點(diǎn)。存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高倉(cāng)。由于時(shí)間緊迫，加之水平有限，設(shè)計(jì)中的缺點(diǎn)和不足之處在所難免，敬請(qǐng)導(dǎo)師批評(píng)指正，不勝感激。化，從而提高企業(yè)管理效率而設(shè)計(jì)的。它完全取代了原來(lái)一直用人工管。倉(cāng)庫(kù)管理系統(tǒng)是一個(gè)中小型數(shù)據(jù)庫(kù)管理系統(tǒng)，它界面美。觀、操作簡(jiǎn)單、安全性高，基本滿足了倉(cāng)庫(kù)管理的要求。本信息、單據(jù)中心、查詢統(tǒng)計(jì)、報(bào)表打印、維護(hù)設(shè)置、幫助等模塊組成。程語(yǔ)言來(lái)開(kāi)發(fā)的。倉(cāng)庫(kù)管理系統(tǒng)在運(yùn)行階段，效果好，數(shù)據(jù)準(zhǔn)確性高，提高了工作效率，同時(shí)也實(shí)現(xiàn)了倉(cāng)庫(kù)管理計(jì)算機(jī)化。

　　

【正文】 件的程序代河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 35 碼 如下。 點(diǎn)擊 “修改密碼” 會(huì)彈出修改當(dāng)前用戶密碼窗口。 Private Sub mnuModifyPassword_Click() vbModal End Sub “維護(hù)設(shè)置”菜單下的“用戶管理”子菜單的 Click 事件的程序代碼， 如下。 點(diǎn)擊 “用戶管理” 會(huì)彈出用戶管理窗口。 Private Sub mnuUserManage_Click() 用戶管理 .Show vbModal End Sub “幫助”菜單下的“關(guān)于倉(cāng)庫(kù)管理系統(tǒng)”子菜單的 Click 事件的程序代碼 如下。 點(diǎn)擊 “關(guān)于倉(cāng)庫(kù)管理系統(tǒng)” 會(huì)彈出系統(tǒng)幫助窗口。 Private Sub mnuHelpAbout_Click() vbModal, Me End Sub “打印報(bào)表”菜單下的“ 頁(yè)面設(shè)置 ”子菜單的 Click 事件的程序代碼 如下。 點(diǎn)擊 “ 頁(yè)面設(shè)置 ” 會(huì)彈出 頁(yè)面設(shè)置 對(duì)話框。 Private Sub mnuFilePageSetup_Click() On Error Resume Next With dlgCommonDialog .DialogTitle = 頁(yè)面設(shè)置 .CancelError = True .ShowPrinter End With End Sub “視圖”菜單下的“狀態(tài)欄”子菜單的 Click 事件的程序代碼 如下。河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 36 點(diǎn)擊 “狀態(tài)欄” 主窗體會(huì)隱藏狀態(tài)欄。 Private Sub mnuViewStatusBar_Click() = True = End Sub “視圖”菜單下的“工具欄”子菜單的 Click 事件的程序代碼 如下。點(diǎn)擊 “工具欄” 主窗體會(huì)隱藏工具欄。 Private Sub mnuViewToolbar_Click() = True = End Sub “單據(jù)中心”菜單下的“報(bào)損單管理”子菜單的 Click 事件的程序代碼如下。 點(diǎn)擊 “報(bào)損單管理” 會(huì)彈出 報(bào)損單管理 窗口。 Private Sub M 報(bào)損單 _Click() 報(bào)損單 .Show vbModal End Sub “維護(hù)設(shè)置”菜單下的“備份數(shù)據(jù)庫(kù)”子菜單的 Click 事件的程序代碼如下。 點(diǎn)擊 “備份數(shù)據(jù)庫(kù)” 系統(tǒng)會(huì)提示是否備份數(shù)據(jù)庫(kù)，如果點(diǎn)擊“是”，系統(tǒng)會(huì)備份數(shù)據(jù)庫(kù)。 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。寫(xiě)入系統(tǒng)日志 Else failure: MsgBox 備份失敗 ! End If End With End Sub “維護(hù)設(shè)置”菜單下的“查看日志”子菜單的 Click 事件的程序代碼如下。 點(diǎn)擊 “查看日志” 會(huì)彈出 查看日志 窗口。 Private Sub M 查看日志 _Click() 系統(tǒng)日志 .Show vbModal End Sub “打印報(bào)表”菜單下的“ 打印報(bào)損單 ”子菜單的 Click 事件的程序代碼如下。 點(diǎn)擊 “ 打印報(bào)損單 ” 會(huì)彈出 打印報(bào)損單 窗口。 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)擊 “ 打印 出庫(kù) 單 ” 會(huì)彈出 打印 出庫(kù) 單 窗口。 Private Sub M 打印出庫(kù)單 _Click() 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ào)拔單 ”子菜單的 Click 事件的程序代碼如下。 點(diǎn)擊 “ 打印調(diào)拔單 ” 會(huì)彈出 打印調(diào)拔單 窗口。 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 事件的程序代碼如下。 點(diǎn)擊 “ 打印借出單 ” 會(huì)彈出 打印借出單 窗口。 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 39 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)表”菜單下的“ 打印借入單 ”子菜單的 Click 事件的程序代碼如下。 點(diǎn)擊 “ 打印借入單 ” 會(huì)彈出 打印借入單 窗口。 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 事件的程序代碼如下。 點(diǎn)擊 “ 打印入庫(kù)單 ” 會(huì)彈出 打印入庫(kù)單 窗口。 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)表”菜單下的“ 打印月盤(pán)點(diǎn) ”子菜單的 Click 事件的程序代碼如下。 點(diǎn)擊 “ 打印月盤(pán)點(diǎn) ” 會(huì)彈出 打印月盤(pán)點(diǎn) 窗口。 Private Sub M 打印月盤(pán)點(diǎn) _Click() 打 印月盤(pán)點(diǎn) .Show vbModal End Sub “維護(hù)設(shè)置”菜單下的“ 還原到昨天數(shù)據(jù)庫(kù) ”子菜單的 Click 事件的程序代碼 如下。 點(diǎn)擊 “ 還原到昨天數(shù)據(jù)庫(kù) ” 會(huì) 還原到昨天用戶使用的數(shù)據(jù)庫(kù) 。 Private Sub M 還原到昨天數(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。初始化還原后的信息 MsgBox 還原成功 ! Else 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 41 failure: MsgBox 還原失敗 ! End If End Sub “維護(hù)設(shè)置”菜單下的“還原數(shù)據(jù)”子菜單的 Click 事件的程序代碼如下。 點(diǎn)擊 “還原數(shù)據(jù)” 系統(tǒng)會(huì)還原你想還原的數(shù)據(jù)庫(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。初始化還原后的信息 MsgBox 還原成功 ! Else failure: MsgBox 還原失敗 ! End If End With End Sub “基本信息”菜單下的“倉(cāng)庫(kù)信息”子菜單的 Click 事件的程序代碼如下。 點(diǎn)擊 “倉(cāng)庫(kù)信息” 會(huì)彈出倉(cāng)庫(kù)信息窗口。 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 42 Private Sub M 倉(cāng)庫(kù)信息 _Click() 倉(cāng)庫(kù) .Show vbModal End Sub “ 單據(jù)中心 ”菜單下的“ 出庫(kù)單管理 ”子菜單的 Click 事件的程序代碼 如下。 點(diǎn)擊 “出庫(kù)單管理” 會(huì)彈出 出庫(kù)單管理 窗口。 Private Sub M 出庫(kù)單 _Click() 出庫(kù)單 .Show vbModal End Sub “查詢統(tǒng)計(jì)”菜單下的“單據(jù)查詢”子菜單的 Click 事件的程序代碼如下。點(diǎn)擊“單據(jù)查詢”會(huì)彈出單據(jù)查詢窗口。 Private Sub M 單據(jù)查詢 _Click() 單據(jù)查詢 .Show vbModal End Sub “單據(jù)中 心”菜單下的“調(diào)撥單管理”子菜單的 Click 事件的程序代碼如下。 點(diǎn)擊 “調(diào)撥單管理” 會(huì)彈出調(diào)撥單管理窗口。 Private Sub M 調(diào)拔單 _Click() 調(diào)拔單 .Show vbModal End Sub “維護(hù)設(shè)置”菜單下的“公司信息”子菜單的 Click 事件的程序代碼發(fā)如下。 點(diǎn)擊會(huì)彈出公司信息窗口。 Private Sub M 公司信息 _Click() 公司信息 .Show vbModal End Sub “基本信息”菜單下的“供應(yīng)商信息”子菜單的 Click 事件的程序代碼如下。 點(diǎn)擊 “供應(yīng) 商信息” 會(huì)彈出供應(yīng)商信息窗口。 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 43 Private Sub M 供應(yīng)商 _Click() 供應(yīng)商 .Show vbModal End Sub “維護(hù)設(shè)置 ”菜單下的“ 換用戶登錄 ”子菜單的 Click 事件的程序代碼 如下。 點(diǎn)擊 “換用戶登錄” 會(huì)彈出 換用戶登錄 窗口。 Private Sub M 換用戶登陸 _Click() 39。啟動(dòng)登陸對(duì)話框 Dim fLogin As New frmLogin = 2411 vbModal If Not Then Exit Sub 39。登錄失敗，退出應(yīng)用程序 End If Unload fLogin Unload Me 39。啟動(dòng)主窗口