【文章內(nèi)容簡介】 Ctrl+T….庫存查詢 Ctrl+U….—….貨物出入統(tǒng)計(jì) Ctrl+V….職員操作統(tǒng)計(jì) Ctrl+W打印報(bào)表….打印入庫單 Ctrl+X….打印出庫單 Ctrl+Y….打印借入單 Ctrl+Z….打印借出單 Ctrl+F1….打印調(diào)撥單 Ctrl+F2….打印報(bào)損單 Ctrl+F3….—….打印月盤點(diǎn) Ctrl+F4….—….頁面設(shè)置 Ctrl+F5視圖(amp。D)….工具欄 Ctrl+F6….狀態(tài)欄 Ctrl+F7維護(hù)設(shè)置(amp。E)….公司信息 Ctrl+F8….職員信息 Ctrl+F9….—….查看日志 Ctrl+F11….數(shù)據(jù)清除 Ctrl+F12….系統(tǒng)初始化 Shift+F1….—….備份數(shù)據(jù)庫 Shift+F2….還原數(shù)據(jù)庫 Shift+ F3….—….修改密碼 Shift+F5….用戶管理 Shift+F6幫助(amp。H)….關(guān)于倉庫管理系統(tǒng) F1圖53 倉庫管理系統(tǒng)菜單結(jié)構(gòu) 系統(tǒng)初始化菜單的代碼如下：Private Declare Function GetWindow Lib user32 (ByVal hwnd As Long, ByVal wCmd As Long) As LongPublic Sub InitPurview() 39。初始化17種權(quán)限狀態(tài) Dim i As Integer For i = 16 To 0 Step 1 If GetBit(Purview, i + 1) = 0 Then 權(quán)限類別(16 i) = 0 Else 權(quán)限類別(16 i) = 1 End If NextEnd SubPrivate Sub InitMenu() 39。根據(jù)用戶權(quán)限來初始化菜單 If 權(quán)限類別(3) = 0 Then = False (4).Enabled = False End If If 權(quán)限類別(4) = 0 Then = False = End If If 權(quán)限類別(5) = 0 Then = False = End If If 權(quán)限類別(6) = 0 Then = False = False = False = False = = = = (5).Enabled = False (8).Enabled = False End If If 權(quán)限類別(8) = 0 Then = False = False = False = False = False = False = False (10).Enabled = False End If If 權(quán)限類別(9) = 0 Then = False = End If If 權(quán)限類別(10) = 0 Then = False = End If If 權(quán)限類別(11) = 0 Then = False = End If If 權(quán)限類別(12) = 0 Then = False = End If If 權(quán)限類別(13) = 0 Then = False = False End If If 權(quán)限類別(14) = 0 Then = False = False = False = = End If If 權(quán)限類別(15) = 0 Then = False = (12).Enabled = False End If If 權(quán)限類別(16) = 0 Then = False = End IfEnd Sub“菜單”中的各個(gè)“子菜單”的程序代碼如下：啟動(dòng)主窗體時(shí)的需要的代碼Private Sub Form_Load() 39。初始化m_checkado = DataConnectString = False 39。每天首次運(yùn)行自動(dòng)備份數(shù)據(jù)庫 = select 操作時(shí)間 from 系統(tǒng)日志 order by 操作時(shí)間 desc If 0 Then Dim t As String t = (操作時(shí)間).Value 39。如果今天從未有人登陸,備份數(shù)據(jù)庫 If InStr(1, t, Str(Date)) 1 Then BackupData DataPath, + \ End If Else BackupData DataPath, + \ End If (登陸系統(tǒng)) 39。寫入系統(tǒng)日志 InitPurview 39。初始化各種權(quán)限類別 InitMenu 39。初始化菜單 39。加載圖片 = LoadPicture( + \data\)End Sub “基本信息”菜單下的“退出”子菜單的Click事件的程序代碼如下。點(diǎn)擊“退出”會(huì)退出系統(tǒng)，但在此之前系統(tǒng)首先會(huì)寫入系統(tǒng)日志。Private Sub Form_Unload(Cancel As Integer) (退出系統(tǒng)) 39。寫入系統(tǒng)日志End SubPrivate Sub mnuFileExit_Click() Unload MeEnd Sub “維護(hù)設(shè)置”菜單下的“修改密碼”子菜單的Click事件的程序代碼如下。點(diǎn)擊“修改密碼”會(huì)彈出修改當(dāng)前用戶密碼窗口。Private Sub mnuModifyPassword_Click() vbModalEnd Sub “維護(hù)設(shè)置”菜單下的“用戶管理”子菜單的Click事件的程序代碼，如下。點(diǎn)擊“用戶管理”會(huì)彈出用戶管理窗口。Private Sub mnuUserManage_Click() vbModalEnd Sub “幫助”菜單下的“關(guān)于倉庫管理系統(tǒng)”子菜單的Click事件的程序代碼如下。點(diǎn)擊“關(guān)于倉庫管理系統(tǒng)”會(huì)彈出系統(tǒng)幫助窗口。Private Sub mnuHelpAbout_Click() vbModal, MeEnd Sub “打印報(bào)表”菜單下的“頁面設(shè)置”子菜單的Click事件的程序代碼如下。點(diǎn)擊“頁面設(shè)置”會(huì)彈出頁面設(shè)置對話框。Private Sub mnuFilePageSetup_Click() On Error Resume Next With dlgCommonDialog .DialogTitle = 頁面設(shè)置 .CancelError = True .ShowPrinter End WithEnd Sub “視圖”菜單下的“狀態(tài)欄”子菜單的Click事件的程序代碼如下。點(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() vbModalEnd Sub“維護(hù)設(shè)置”菜單下的“備份數(shù)據(jù)庫”子菜單的Click事件的程序代碼如下。點(diǎn)擊“備份數(shù)據(jù)庫”系統(tǒng)會(huì)提示是否備份數(shù)據(jù)庫，如果點(diǎn)擊“是”，系統(tǒng)會(huì)備份數(shù)據(jù)庫。Private Sub M備份數(shù)據(jù)庫_Click() On Error GoTo failure With dlgCommonDialog .DialogTitle = 數(shù)據(jù)庫備份為.. .ShowSave If Len(.filename) = 0 Then Exit Sub If BackupData(DataPath, .filename) = 1 Then MsgBox 備份成功! (備份數(shù)據(jù)) 39。寫入系統(tǒng)日志 Elsefailure: MsgBox 備份失敗! End If End With End Sub “維護(hù)設(shè)置”菜單下的“查看日志”子菜單的Click事件的程序代碼如下。點(diǎn)擊“查看日志”會(huì)彈出查看日志窗口。Private Sub M查看日志_Click() 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)損單 = = = False = False vbModal Unload f End Sub “打印報(bào)表”菜單下的“打印出庫單”子菜單的Click事件的程序代碼如下。點(diǎn)擊“打印出庫單”會(huì)彈出打印出庫單窗口。Private Sub M打印出庫單_Click() Dim f As New 出庫單 = = = False = False = False vbModal Unload fEnd 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)拔單 = =