【正文】 Ctrl+I … .新增借出單 Ctrl+J … .新增調(diào)撥單 Ctrl+K … .新增報(bào)損單 Ctrl+L … .— … .入庫單管理 Ctrl+M … .出庫單管理 Ctrl+N … .借入單管理 Ctrl+O … .借出單管理 Ctrl+P … .調(diào)撥單管理 Ctrl+Q … .報(bào)損單管理 Ctrl+R … .— … .進(jìn)行月盤點(diǎn) Ctrl+S 查詢統(tǒng)計(jì) (amp。D) … .工具欄 Ctrl+F6 … .狀態(tài)欄 Ctrl+F7 維護(hù)設(shè)置 (amp。H) … .關(guān)于倉庫管理系統(tǒng) F1 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 30 圖 53 倉庫管理系統(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。根據(jù)用戶權(quán)限來初始化菜單 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往來客戶 .Enabled = False 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 31 登記新客戶 .MouseIcon = End If If 權(quán)限類別 (6) = 0 Then M單據(jù)查詢 .Enabled = False M庫存查詢 .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庫存查詢 .MouseIcon = (5).Enabled = False (8).Enabled = False End If If 權(quán)限類別 (8) = 0 Then M打印入庫單 .Enabled = False M打印出庫單 .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倉庫信息 .Enabled = False 創(chuàng)建新倉庫 .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ù)庫 .Enabled = False M還原數(shù)據(jù)庫 .Enabled = False M還原到昨天數(shù)據(jù)庫 .Enabled = False 備份數(shù)據(jù)庫 .MouseIcon = 還原數(shù)據(jù)庫 .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。每天首次運(yùn)行自動(dòng)備份數(shù)據(jù)庫 = 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)日志 InitPurview 39。初始化菜單 39。 點(diǎn)擊“退出”會退出系統(tǒng)，但在此之前系統(tǒng)首先會寫入系統(tǒng)日志。寫入系統(tǒng)日志 End Sub Private Sub mnuFileExit_Click() Unload Me End Sub “維護(hù)設(shè)置”菜單下的“修改密碼”子菜單的 Click 事件的程序代河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 35 碼 如下。 Private Sub mnuModifyPassword_Click() vbModal End Sub “維護(hù)設(shè)置”菜單下的“用戶管理”子菜單的 Click 事件的程序代碼， 如下。 Private Sub mnuUserManage_Click() 用戶管理 .Show vbModal End Sub “幫助”菜單下的“關(guān)于倉庫管理系統(tǒng)”子菜單的 Click 事件的程序代碼 如下。 Private Sub mnuHelpAbout_Click() vbModal, Me End Sub “打印報(bào)表”菜單下的“ 頁面設(shè)置 ”子菜單的 Click 事件的程序代碼 如下。 Private Sub mnuFilePageSetup_Click() On Error Resume Next With dlgCommonDialog .DialogTitle = 頁面設(shè)置 .CancelError = True .ShowPrinter End With End Sub “視圖”菜單下的“狀態(tài)欄”子菜單的 Click 事件的程序代碼 如下。 Private Sub mnuViewStatusBar_Click() = True = End Sub “視圖”菜單下的“工具欄”子菜單的 Click 事件的程序代碼 如下。 Private Sub mnuViewToolbar_Click() = True = End Sub “單據(jù)中心”菜單下的“報(bào)損單管理”子菜單的 Click 事件的程序代碼如下。 Private Sub M 報(bào)損單 _Click() 報(bào)損單 .Show vbModal End Sub “維護(hù)設(shè)置”菜單下的“備份數(shù)據(jù)庫”子菜單的 Click 事件的程序代碼如下。 Private Sub M 備份數(shù)據(jù)庫 _Click() On Error GoTo failure With dlgCommonDialog .DialogTitle = 數(shù)據(jù)庫備份為 .. .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ǎn)擊 “ 打印報(bào)損單 ” 會彈出 打印報(bào)損單 窗口。 點(diǎn)擊 “ 打印 出庫 單 ” 會彈出 打印 出庫 單 窗口。 點(diǎn)擊 “ 打印調(diào)拔單 ” 會彈出 打印調(diào)拔單 窗口。 點(diǎn)擊 “ 打印借出單 ” 會彈出 打印借出單 窗口。 點(diǎn)擊 “ 打印借入單 ” 會彈出 打印借入單 窗口。 點(diǎn)擊 “ 打印入庫單 ” 會彈出 打印入庫單 窗口。 點(diǎn)擊 “ 打印月盤點(diǎn) ” 會彈出 打印月盤點(diǎn) 窗口。 點(diǎn)擊 “ 還原到昨天數(shù)據(jù)庫 ” 會 還原到昨天用戶使用的數(shù)據(jù)庫 。初始化還原后的信息 MsgBox 還原成功 ! Else 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 41 failure: MsgBox 還原失敗 ! End If End Sub “維護(hù)設(shè)置”菜單下的“還原數(shù)據(jù)”子菜單的 Click 事件的程序代碼如下。 Private Sub M 還原數(shù)據(jù)庫 _Click() On Error GoTo failure With dlgCommonDialog .DialogTitle = 數(shù)據(jù)庫還原于 ... .ShowOpen If Len(.filename) = 0 Then Exit Sub If MsgBox(還原數(shù)據(jù)庫將導(dǎo)致現(xiàn)在數(shù)據(jù)庫數(shù)據(jù)丟失 ,您確信要還原數(shù)據(jù)庫嗎 ?, vbYesNo Or vbQuestion) = vbNo Then Exit Sub If ResumeData(DataPath, .filename) = 1 Then InitAfterResume 39。 點(diǎn)擊 “倉庫信息” 會彈出倉庫信息窗口。 點(diǎn)擊 “出庫單管理” 會彈出 出庫單管理 窗口。點(diǎn)擊“單據(jù)查詢”會彈出單據(jù)查詢窗口。 點(diǎn)擊 “調(diào)撥單管理” 會彈出調(diào)撥單管理窗口。 點(diǎn)擊會彈出公司信息窗口。 點(diǎn)擊 “供應(yīng) 商信息” 會彈出供應(yīng)商信息窗口。 點(diǎn)擊 “換用戶登錄” 會彈出 換用戶登錄 窗口。啟動(dòng)登陸對話框 Dim fLogin As New frmLogin = 2411 vbModal If Not Then Exit Sub 39。啟動(dòng)主窗口