【正文】 存臺賬、零部件物料卡等單據(jù)和報表的實物樣式在此略去，有興趣者請參考有關類似企業(yè)的樣本即可。用戶需求調研結束之后，應該立即進行用戶需求分析。數(shù)據(jù)存儲層放在服務器上，業(yè)務處理層和界面表示層放在客戶機上，因此又被 稱為“靈敏的客戶機”結構。 確定系統(tǒng)開發(fā)環(huán)境 由于大多數(shù)公司內部使用的計算機平臺都是基于 Windows 環(huán)境的。 第四章 系統(tǒng)設計 4． 1 總體設計 系統(tǒng)目標設計 系統(tǒng)開發(fā)的總體任務是實現(xiàn)企業(yè)物資設備管理的系統(tǒng)化、規(guī)范化和自動化，從而達到企業(yè)倉庫庫存管理效率的目的。計劃員根據(jù)整個 企業(yè)的需求開出物資設備出庫單，倉庫管理員根據(jù)出庫單核對發(fā)放設備、原材料及零部件。所管理的物資設備、原材料及零部件種類繁多，而且由于入庫單、出庫單、需求單等單據(jù)發(fā)生量特別大，關聯(lián)信息多，查詢和統(tǒng)計的方式各不相同，因此在管理上實現(xiàn)起來有一定的困難。 程序代碼標準化，軟件統(tǒng)一化，確保軟件的可維護性和實用性。 庫存管理的各種信息的查詢、修改和維護。 操作日志的管理 庫存管理系統(tǒng)的使用幫助。 c. 管理員或其他用戶可以修改自己的密碼。 現(xiàn)有庫存信息。數(shù)目。 設備歸還信息。 有了上面的數(shù)據(jù)結構、數(shù)據(jù)項和數(shù)據(jù)流程，就可以進行下面的數(shù)據(jù)庫設計。 庫存管理系統(tǒng)數(shù)據(jù)庫中的各個表的設計結果如下面的幾個表格所示，每個表格表示數(shù)據(jù)庫中的一個表。物品數(shù)居中，通常占物品的３０ ４０％。輸入輸出的設計考慮美觀實用和通俗易懂，圖文并茂。 VB 簡介 Visual 意為“可視化的”，指的是一種開發(fā)圖形用戶界面的方法，所以 Visual Basic 是基于 Basic 的可視化的程序設計語言。程序員的編程工作僅限于編寫相關對象要完成的功能程序，因而程序設計的效率可大大提高。 提供了易學易用的應用程序集成開發(fā)環(huán)境 在 VB 集成開發(fā)環(huán)境中，用戶可設計界面、編寫代碼、調試程序，直至把應用程序編譯成可執(zhí)行文件在 Windows中運行，使用戶在友好的開發(fā)環(huán)境中工作。 VB 程序設計的概念就是面向對象的概念，對象就是數(shù)據(jù)（ DATA）和代碼（ CODE）互相結合的綜合體。 編寫 VB 程序較為簡單，首先將各個對象放在空白窗體上，然后將程序代碼分別添加給對象或圖標，將它們組合起來就可以隨意運行了。 屬性：如同電視有黑白、彩色之分一樣，作為對象的 Windows 中的窗口也是有大有小，文本框的位置不可能完全一樣，菜單要顯示出不同的功能，這些都是由對象的屬性決定的。 事件：就是對象對用戶各種操作的反映情況。每個控件都有各自的屬性、事件及方法。 Access2022 數(shù)據(jù)庫簡介 作為 Microsoft 的 office 套件產(chǎn)品之一 ,access 已經(jīng)成為世界上最流行的桌面數(shù)據(jù)庫系統(tǒng)。 Access 還提供 windows 操作系統(tǒng)的高級應用程序開發(fā)系統(tǒng)。每一個表都包含有關某個主體的信息。你可以在查詢中選擇、更新 、插入或刪除資料，也可以用查詢來建立新表。 Access 2022 為我們提供了強大的（同時也是相當方便的向導）來建立標準的 Windows 窗體。它可以讓你像堆積木一樣建立一個功能強大的程序，而無須寫大量的代碼。 本系統(tǒng)中 VB 與 Access2022 的連接 5． 2 系統(tǒng)實現(xiàn) 系統(tǒng)管理菜單 修改用戶密碼程序 Private Sub Command1_Click() = Set = Adodc1 = 密碼 If Text1 = Then MsgBox 請輸入原密碼！ , , 修改密碼 Exit Sub ElseIf (密碼 ) Then MsgBox 原密碼錯誤！ , , 修改密碼 Exit Sub ElseIf Text2 = Or Text3 = Then MsgBox 請輸入新密碼?。?, , 修改密碼 Exit Sub ElseIf Text2 Text3 Then MsgBox 密碼不一致！！ , , 修改密碼 Exit Sub Else = MsgBox 密碼修改成功！！ , , 修改密碼 Unload Me End If End Sub 用戶管理界面（程序略） 5.. 入庫模塊的實現(xiàn) Private Sub Command1_Click( ) 設備入庫程序 Dim I, J As Integer Dim STR As String If = Or Text2 = Or = Or Text4 = Or Text5 = Or Text6 = Or Text7 = Then MsgBox 請輸入完整信息！ Exit Sub Else 將記錄存入入庫記錄表 設備入庫表 .(設備號 ) = 設備入庫表 .(入庫數(shù)量 ) = 設備入庫表 .(入庫時間 ) = 設備入庫表 .(供應商 ) = 設備入庫表 .(供應商電話 ) = 設備入庫表 .(價格 ) = 設備入庫表 .(采購員 ) = MsgBox 已經(jīng)成功入庫！ End If 設備入庫表 . = select * from 現(xiàn)有庫存表 where 設備號 =39。 設備入庫表 . 設備入庫表 . If 設備入庫表 . 0 Then vb 企業(yè)庫存管理系統(tǒng)論文 (流程圖 +ER 圖 +概述 ) 將記錄加入現(xiàn)有庫存表中 設備入庫表 . = CInt(設備入庫表 .) + CInt() 設備入庫表 . J = 設備入庫表 .Text9 設備入庫表 . 設備入庫表 . 設備入庫表 . MsgBox 現(xiàn)有庫存量為： amp。 amp。 J Else MsgBox 現(xiàn)有庫存量不足！請輸入合適數(shù)量??！ Exit Sub End If Else STR = 現(xiàn)有庫存表中無此設備！請檢查輸入是否正確！！ MsgBox STR End If End Sub Private Sub cmdDelete_Click( )刪除出庫記錄 On Error GoTo DeleteErr Dim YesNo As String YesNo = MsgBox(刪除 , vbYesNo, 刪除記錄 ) If YesNo = vbYes Then With .Delete .MoveNext If .EOF Then .MoveLast End With Else Exit Sub End If DeleteErr: MsgBox End Sub 更新記錄程序同入庫的更新程序相同，在此略 設備采購模塊實現(xiàn)，程序略 現(xiàn)有模塊實現(xiàn)，程序略 設備代碼模塊實現(xiàn) 主要程序 Private Sub cmdAdd_Click( ) 添加設備 On Error GoTo AddErr Exit Sub AddErr: MsgBox End Sub 庫存報警模塊實現(xiàn)