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