庫(kù)存管理系統(tǒng)設(shè)計(jì)說明書-資料下載頁(yè)

【導(dǎo)讀】1 蚄螂襖蒁薀螁羇芄蒆螀聿葿莂蝿膁節(jié)蟻袈袁肅薇袇羃芀蒃袇肅肅荿袆裊艿蒞裊羇膁蚃襖肀莇蕿袃膂膀蒅袂袂蒞莁羈羄膈蝕羈肆莄薆羀腿膆薂罿羈蒂蒈薅肁芅莄薄膃蒀螞薄袃芃薈薃羅蒈蒄螞肇芁莀蟻腿肄蠆蝕衿芀蚅蠆肁肂薁蚈膄莈蕆蚈袃膁莃蚇羆莆螞蚆肈腿薈螅膀莄蒄螄袀膇莀螃莃芆螃膅膅蚄螂襖蒁薀螁羇芄蒆螀聿葿莂蝿膁節(jié)蟻袈袁肅薇袇羃芀蒃袇肅肅荿袆裊艿蒞裊羇膁蚃襖肀莇蕿袃膂膀蒅袂袂蒞莁羈羄膈蝕羈肆莄薆羀腿膆薂罿羈蒂蒈薅肁芅莄薄膃蒀螞薄袃芃薈薃羅蒈蒄螞肇芁莀蟻腿肄蠆蝕衿芀蚅蠆肁肂薁蚈膄莈蕆蚈袃膁莃蚇羆莆螞蚆肈腿薈螅膀莄蒄螄袀膇莀螃莃芆螃膅膅蚄螂襖蒁薀螁羇芄蒆螀聿葿莂蝿膁節(jié)蟻袈袁肅薇袇羃芀蒃袇肅肅荿袆裊艿蒞裊羇膁蚃襖肀莇蕿袃膂膀蒅袂袂蒞莁羈羄膈蝕羈肆莄薆羀腿膆薂罿羈蒂蒈薅肁芅莄薄膃蒀螞薄袃芃薈薃羅蒈蒄螞肇芁莀蟻腿肄蠆蝕衿芀蚅蠆肁肂薁蚈膄莈蕆蚈袃膁莃蚇羆莆螞蚆肈腿薈螅膀莄蒄螄袀膇莀螃莃芆螃膅膅蚄螂襖蒁薀螁羇芄蒆螀聿葿莂蝿膁節(jié)

　　

【正文】 備出庫(kù)表 . = select * from 現(xiàn)有庫(kù)存表 where 設(shè)備號(hào) =39。 amp。 amp。 39。 frm 設(shè)備出庫(kù)表 . frm 設(shè)備出庫(kù)表 . If IsNumeric(Text2) = False Then MsgBox 數(shù)量必須是數(shù)字！ Exit Sub End If If = Or Text2 = Or = Or Text4 = Or Text5 = Or Text6 = Or Text7 = Then MsgBox 請(qǐng)輸入完整信息！ Exit Sub ElseIf frm 設(shè)備出庫(kù)表 . = 0 Then STR = 現(xiàn)有庫(kù)存表中無(wú)此設(shè)備！請(qǐng)檢查輸入是否正確！！ MsgBox STR Exit Sub Else frm 設(shè)備出庫(kù)表 .(設(shè)備號(hào) ) = 13 frm 設(shè)備出庫(kù)表 .(出庫(kù)數(shù)量 ) = frm 設(shè)備出庫(kù)表 .(出庫(kù)時(shí)間 ) = frm 設(shè)備出庫(kù)表 .(經(jīng)手人 ) = frm 設(shè)備出庫(kù)表 .(領(lǐng)取人 ) = frm 設(shè)備出庫(kù)表 .(使用部門 ) = frm 設(shè)備出庫(kù)表 .(用途 ) = MsgBox 已經(jīng)成功存入設(shè)備出庫(kù)表庫(kù)！ End If If frm 設(shè)備出庫(kù)表 . 0 Then k = CInt(frm 設(shè)備出庫(kù)表 .) CInt() If k = 0 Then frm 設(shè)備出庫(kù)表 . = CInt(frm 設(shè)備出庫(kù)表 .) CInt() frm 設(shè)備出庫(kù)表 . J = frm 設(shè)備出庫(kù)表 .Text9 frm 設(shè)備出庫(kù)表 . frm 設(shè)備出庫(kù)表 . frm 設(shè)備出庫(kù)表 . MsgBox 現(xiàn)有庫(kù)存量為： amp。 J Else MsgBox 現(xiàn)有庫(kù)存量不足！請(qǐng)輸入合適數(shù)量！ ！ Exit Sub End If Else STR = 現(xiàn)有庫(kù)存表中無(wú)此設(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)，程序略 14 設(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) 主要程序 Private Sub Command1_Click() 顯示高于最大警戒庫(kù)存的設(shè)備 = select * from 現(xiàn)有庫(kù)存表 where 現(xiàn)有庫(kù)存 最大庫(kù)存 If 0 Then Beep MsgBox 表中設(shè)備已過量！ Else MsgBox 沒有設(shè)備庫(kù)存過量！ End If End Sub Private Sub Command2_Click()顯示低于于最小警戒庫(kù)存的設(shè)備 = select * from 現(xiàn)有庫(kù)存表 where 現(xiàn)有庫(kù)存 最小庫(kù)存 15 If 0 Then Beep MsgBox 表中設(shè)備庫(kù)存量已過警戒線！請(qǐng)采購(gòu)！！ Else MsgBox 沒有設(shè)備庫(kù)存量過少！ End If End sub Private Sub Timer1_Timer() 自動(dòng)報(bào)警程序 = select * from 現(xiàn)有庫(kù)存表 where 現(xiàn)有庫(kù)存 最大庫(kù)存 If 0 Then Beep MsgBox 有設(shè)備庫(kù)存超過警戒庫(kù)存！ amp。 vbCrLf amp。 請(qǐng)查看庫(kù)存報(bào)警記錄 = False Exit Sub End If End Sub Private Sub Timer2_Timer() = select * from 現(xiàn)有庫(kù)存表 where 現(xiàn)有庫(kù)存 最小庫(kù)存 If 0 Then Beep MsgBox 有設(shè)備庫(kù)存低于警戒庫(kù)存！ amp。 vbCrLf amp。 請(qǐng)查看庫(kù)存報(bào)警 記錄 = False Exit Sub End If End Sub 操作日志模塊實(shí)現(xiàn) 主要程序 Private Sub Command2_Click( ) 填寫日志記錄 If = Or = Or = Then MsgBox 請(qǐng)輸入完整信息！ Exit Sub Else (操作員 ) = (操作內(nèi)容 ) = (操作時(shí)間 ) = End If End Sub