【正文】 39。 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)擊 “ 打印 出庫 單 ” 會(huì)彈出 打印 出庫 單 窗口。 Private Sub mnuHelpAbout_Click() vbModal, Me End Sub “打印報(bào)表”菜單下的“ 頁面設(shè)置 ”子菜單的 Click 事件的程序代碼 如下。根據(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。設(shè)置“ Name”屬性。 （ 4） 在菜單編輯器的“ Name”文本框中，鍵入 將用來在代碼中引用該菜單控件的名字。在設(shè)計(jì)或運(yùn)行時(shí)可以設(shè)置 Caption 屬性、 Enabled 和 Visible 屬性、Checked 屬性以及其他屬性。而 MDI 的程序中，有一個(gè)窗體是主窗體，可以包含其他窗體，他的類型是 MDI Form 。 各個(gè)實(shí)體具體的描述 ER 圖如下： 現(xiàn)有庫存 信息實(shí)體 ER 圖如圖 42 所示。 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 12 圖 31 系統(tǒng)功能模塊圖。在管理的過程中經(jīng)常會(huì)出現(xiàn)信息的重復(fù)傳遞；單據(jù)、報(bào)表種類繁多，各個(gè)部門管理規(guī)格不統(tǒng)一等問題。 2. 經(jīng)濟(jì)可行性 。 2 系統(tǒng)可行性分析 可行性分析的 任務(wù) ,并不是所有問題都有簡(jiǎn)單明顯的解決辦法，事實(shí)上，許多問題不可能在預(yù)定的系統(tǒng)規(guī)模之內(nèi)解決。 Visual Basic 提供了眾多的 ActiveX控件，提高了軟件開發(fā)人員的編程效率。這些優(yōu)點(diǎn)能夠極大地提高 倉庫 管理的效率 。 由于時(shí)間緊迫，加之水平有限，設(shè)計(jì)中的缺點(diǎn)和不足之處在所難免，敬請(qǐng)導(dǎo)師批評(píng)指正，不勝感激。它有其獨(dú)特的特點(diǎn)，主要特點(diǎn)如下： 1 可視化設(shè)計(jì) 。如果問題沒有可行的解，那么花費(fèi)這項(xiàng)開發(fā)工程上的任何時(shí)間、資源、人力和經(jīng)費(fèi)都是無謂的浪費(fèi)。 成本方面：由于本畢業(yè)設(shè)計(jì)屬于計(jì)算機(jī)科學(xué) (本科 )教學(xué)的最后一個(gè)環(huán)節(jié)，所以人力消耗免費(fèi)，資源學(xué)校提供，指導(dǎo)老師義務(wù)指導(dǎo)。 在本系 統(tǒng)的設(shè)計(jì)過程中，為了克服這些困難，滿足計(jì)算機(jī)管理工作的需要，我們采取了下面的一些原則。 4 數(shù)據(jù)庫設(shè)計(jì) 數(shù)據(jù)庫需求分析 用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新 和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。 圖 42 現(xiàn)有庫存信息實(shí)體 ER 圖 現(xiàn)有庫存信息實(shí)體 編號(hào) 貨物名稱 最低限量 最高限量 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 15 入庫單 信息實(shí)體 ER 圖如圖 43 所示。本設(shè)計(jì)采用多文檔界面，這樣可以使程序更加美觀、整齊有序。菜單控件只包含一個(gè)事件，即 Click 事件，當(dāng)用鼠標(biāo)或鍵盤選中該菜單控件時(shí)，將調(diào)用該事件。命名菜單控件的規(guī)則如下： (a) 菜單中項(xiàng)目名稱應(yīng)當(dāng)唯一，但不同菜單中相似動(dòng)作項(xiàng)目可以重名。“ OK” ,關(guān)閉菜單編輯器。初始化 m_checkado = DataConnectString = False 39。 點(diǎn)擊 “ 頁面設(shè)置 ” 會(huì)彈出 頁面設(shè)置 對(duì)話框。 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)表”菜單下的“ 打印調(diào)拔單 ”子菜單的 Click 事件的程序代碼如下。初始化還原后的信息 MsgBox 還原成功 ! Else failure: MsgBox 還原失敗 ! End If End With End Sub “基本信息”菜單下的“倉庫信息”子菜單的 Click 事件的程序代碼如下。登錄失敗，退出應(yīng)用程序 End If Unload fLogin Unload Me 39。 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 42 Private Sub M 倉庫信息 _Click() 倉庫 .Show vbModal End Sub “ 單據(jù)中心 ”菜單下的“ 出庫單管理 ”子菜單的 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 事件的程序代碼如下。河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 36 點(diǎn)擊 “狀態(tài)欄” 主窗體會(huì)隱藏狀態(tài)欄。如果今天從未有人登陸 ,備份數(shù)據(jù)庫 If InStr(1, t, Str(Date)) 1 Then BackupData DataPath, + \ End If Else BackupData DataPath, + \ End If (登陸系統(tǒng) ) 39。 訪問鍵 ， 要在菜單編輯器中給菜單控件賦值訪問鍵，先選取要賦值訪問鍵的菜單項(xiàng)，在該菜單項(xiàng)“ Caption”框中，要在作為訪問鍵字符的前面鍵入一個(gè)（ amp。訪問字符通常是菜單標(biāo)題的第一個(gè)字母；每個(gè)菜單標(biāo)題不能用同一個(gè)字符。 要打開菜單編輯器，在“ Tools”菜單中選擇“ Menu Editor”選項(xiàng)。窗體的屬性設(shè)置見表5－ 1。 圖 44 出 庫 信息實(shí)體 ER 圖 出庫信息實(shí)體 編號(hào) 經(jīng)辦人編號(hào) 入庫時(shí)間、單價(jià)、數(shù)量 客戶編號(hào) 入庫信息實(shí)體 編號(hào) 經(jīng)辦人編號(hào) 入庫時(shí)間、單價(jià)、數(shù)量 供應(yīng)商編號(hào) 河南理工大學(xué)本科畢業(yè)設(shè)計(jì)（論文） 16 借入 信息實(shí)體 ER 圖如圖 43 所示。 仔細(xì)分析調(diào)查有關(guān) 倉庫 管理信息需求的基礎(chǔ)上，得到如圖 4－ 1 所示的本系統(tǒng)所處理的數(shù)據(jù)流程。 ● 刪除不必要的管理冗余，實(shí)現(xiàn)管理規(guī)范化、科學(xué)化。效益方面：為 企業(yè) 開發(fā)一個(gè)完整、合理的 倉庫 管理系統(tǒng)，可大大節(jié)余人力，以前需要多人干的工作，使用本系統(tǒng)只需一個(gè)人或幾個(gè)人就能完成，且工作量和勞動(dòng)強(qiáng)度大大降低。必須記住，可行性研究的目的不是解決問題，而是確定問題是否值得去解。 VB 為用戶提供了大量“控件”，這些“控件”對(duì)于熟悉“ Windows 應(yīng)用成序”的用戶而言，也 許是一點(diǎn)也不陌生，如“標(biāo)簽” ,“組合框” ,“命令按扭”“文本框” ,“單選框”等等，用戶只需要用鼠標(biāo)或鍵盤把這些“控件”拖到所需的位置并設(shè)置他們的大小形狀屬性等，即可得到所需要的應(yīng)用程序界面。 它完全取代了原來一直用人工管理的工作方式， 避免了由于管理人員的工作疏 忽以及管理質(zhì)量問題所造成的各種錯(cuò)誤，為及時(shí)、準(zhǔn)確、高效的完成倉庫管理 提供了強(qiáng)有力的工具和管理手段。 作為計(jì)算機(jī)應(yīng)用的一部分 ,使用計(jì)算機(jī)對(duì) 倉庫 信息進(jìn)行管理 ， 有著手工管理所無法比擬的 優(yōu)點(diǎn) 。Visual Basic 還是一個(gè)快速可視化程序開發(fā)工具，是極有特色和功能強(qiáng)大 的軟