【正文】 和，具體包括成品、原材料、在制品、在途品、生產(chǎn)前物料、備品備件等。通常為物 品的１５ ２０％。 對Ｃ類物品盡可能使用簡便的控制，諸如定期目視檢查庫存實(shí)物、簡要記錄或以簡便標(biāo)志法表明補(bǔ)充存貨已經(jīng)訂貨，采用大庫存量與訂貨量以避免缺貨，安排車間日程計劃時給以低優(yōu)先級。訂貨往往不用 MRPII作計劃。 第二章 開發(fā)背景 企業(yè)的庫存物資管理往往是很復(fù) 雜、很繁瑣的。 第三章 系統(tǒng)分析 本系統(tǒng)采用了結(jié)構(gòu)化生命周期法， 結(jié)構(gòu)化生命周期法是最常用的管理信息系統(tǒng)開發(fā)方法，分為四個步驟，即系統(tǒng)調(diào)研分析、數(shù)據(jù)庫設(shè)計實(shí)現(xiàn)、界面設(shè)計實(shí)現(xiàn)和系統(tǒng)功能設(shè)計實(shí)現(xiàn)。 應(yīng)用程序結(jié)構(gòu)確定 從用戶 應(yīng)用角度來看，可把應(yīng)用程序系統(tǒng)的組成部分分成數(shù)據(jù)存儲層、業(yè)務(wù)處理層和界面表示層等 3 個層次，而應(yīng)用程序結(jié)構(gòu)可歸納為：集中式應(yīng)用程序結(jié)構(gòu)、單用戶應(yīng)用程序結(jié)構(gòu)、多層服務(wù)器應(yīng)用程序結(jié)構(gòu)、瀏覽器／服務(wù)器應(yīng)用程序結(jié)構(gòu)、客戶機(jī)／服務(wù)器應(yīng)用程序結(jié)構(gòu)等 5 種類型。為了降低系統(tǒng)成本，應(yīng)最大程度地利用現(xiàn)有的資源、兼容現(xiàn)有的環(huán)境，可確定使用下面的開發(fā)環(huán)境： ★ 網(wǎng)絡(luò)操作系統(tǒng)： Windows2021； ★ 數(shù)據(jù)庫服務(wù)器： MicrosoftAccessr2021； ★ 服務(wù)器平臺： Windows2021； ★ 客戶機(jī)平臺： Windows95／ 98／ NT／ 2021； ★ 前端開發(fā)工具： (企業(yè)版 )； ★ 數(shù)據(jù)訪問對象： ADO（本系統(tǒng)使用 ADO 控件，簡化編程） 。有些設(shè)備使用完畢需要及時歸還入庫，填寫還庫單。 ? 界面盡量簡單化，做到實(shí)用、方便，盡量滿足企業(yè)中不同層次員工的 7 需要。 ? 操作日志的管理 ? 庫存管理系統(tǒng)的使用幫助。 ? 現(xiàn)有庫存信 息。 ? 設(shè)備歸還信息。 庫存管理系統(tǒng)數(shù)據(jù)庫中的各個表的設(shè)計結(jié)果如下面的幾個表格所示，每個表格表示數(shù)據(jù)庫中的一個表。輸入輸出的設(shè)計考慮美觀實(shí)用和通俗易懂，圖文并茂。程序員的編程工作僅限于編寫相關(guān)對象要完成的功能程序，因而程序設(shè)計的效率可大大提高。 VB程序設(shè)計的概念就是面向?qū)ο蟮母拍?，對象就是?shù)據(jù)（ DATA）和代碼（ CODE）互相結(jié)合的綜合體。 屬性： 如同電視有黑白、彩色之分一樣，作為對象的 Windows中的窗口也是有大有小，文本框的位置不可能完全一樣，菜單要顯示出不同的功能，這些都是由對象的屬性決定的。每個控件都有各自的屬性、事件及方法。 Access還提供 windows 操作系統(tǒng)的高級應(yīng)用程序開發(fā)系統(tǒng)。你可以在查詢中選擇、更新、插入或刪除資料，也可以用查詢來建立新表。它可以讓你像堆積木一樣建立一個功能強(qiáng)大的 程序，而無須寫大量的代碼。 設(shè)備入庫表 . 設(shè)備入庫表 . If 設(shè)備入庫表 . 0 Then 18 將記錄加入現(xiàn)有庫存表中 設(shè)備入庫表 . = CInt(設(shè)備入庫表 .) + CInt() 設(shè)備入庫表 . J = 設(shè)備入庫表 .Text9 設(shè)備入庫表 . 設(shè)備入庫表 . 設(shè)備入庫表 . MsgBox 現(xiàn)有庫存量為： amp。 J Else MsgBox 現(xiàn)有庫存量不足！請輸入合適數(shù)量??！ Exit Sub End If Else STR = 現(xiàn)有庫存表中無此設(shè)備！請檢查輸入是否正確??！ 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 更新記錄程序同入庫的更新程序相同，在此略 設(shè)備采購模塊實(shí)現(xiàn)，程序略 現(xiàn)有模塊實(shí)現(xiàn)，程序略 設(shè)備代碼模塊實(shí)現(xiàn) 21 主要程序 Private Sub cmdAdd_Click( ) 添加設(shè)備 On Error GoTo AddErr Exit Sub AddErr: MsgBox End Sub 庫存報警模塊實(shí)現(xiàn) 主要程序 Private Sub Command1_Click() 顯示高于最大警戒庫存的設(shè)備 = select * from 現(xiàn)有庫存表 where 現(xiàn)有庫存 最大庫存 If 0 Then Beep MsgBox 表中設(shè)備已過量！ Else MsgBox 沒有設(shè)備庫存過量！ End If End Sub Private Sub Command2_Click()顯示低于于最小警戒庫存的設(shè)備 = select * from 現(xiàn)有庫存表 where 現(xiàn)有庫存 最小庫存 If 0 Then Beep MsgBox 表中設(shè)備庫存量已過警戒線！請采購?。? Else MsgBox 沒有設(shè)備庫存量過少！ End If End sub Private Sub Timer1_Timer() 自動報警程序 = select * from 現(xiàn)有庫存表 where 現(xiàn)有庫存 最大庫存 22 If 0 Then Beep MsgBox 有設(shè)備庫存超過警戒庫存！ amp。在此衷心感謝劉永軍老師的悉心指導(dǎo)。 請查看庫存報警記錄 = False Exit Sub End If End Sub 操作日志模塊實(shí)現(xiàn) 主要程序 Private Sub Command2_Click( ) 填寫日志記錄 If = Or = Or = Then MsgBox 請輸入完整信息！ Exit Sub Else (操作員 ) = (操作內(nèi)容 ) = (操作時間 ) = End If End Sub Private Sub Form_Load() 設(shè)置填寫時間 Dim STRtime As String STRtime = Now() = STRtime (STRtime) End Sub 23 還庫 操模塊實(shí)現(xiàn) 具體程序同出庫 還庫信息查詢界面 具體程序同其他查詢相似，在此略 第六章 系統(tǒng)使用說明 本系統(tǒng)使用簡單方便，各操作界面如第五章所示，在此不再累述。 amp。 16 本系統(tǒng)中 VB 與 Access2021 的連 接 5． 2 系統(tǒng)實(shí)現(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 用戶管理界面（程序略） VB 應(yīng)用程序 Access2021 數(shù)據(jù)庫 17 5..入庫模塊的實(shí)現(xiàn) Private Sub Command1_Click( ) 設(shè)備入庫程序 Dim I, J As Integer Dim STR As String If = Or Text2 = Or = Or Text4 = Or Text5 =