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

　　

【正文】 密碼 Exit Sub ElseIf Text2 Text3 Then MsgBox 密碼不一致！！ , , 修改密碼 Exit Sub Else = MsgBox 密碼修改成功?。?, , 修改密碼 Unload Me 6.. 現(xiàn) 入庫模塊，進行日常的物料入庫操作。入庫是進行庫存管理業(yè)務的第一步。物料首先要入庫，然后進行其他的業(yè)務操作。入庫模塊包括入庫界面和入庫信息驗證。需要登記入庫物料的所屬公司、入庫的日期等等。 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。 amp。 amp。 39。 設備入庫表 . 設備入庫表 . If 設備入庫表 . 0 Then 將記錄加入現(xiàn)有庫存表中 設備入庫表 . = CInt(設備入庫表 .) + CInt() 設備入庫表 . J =設備入庫表 .Text9 設備入庫表 . 設備 入庫表 . 設備入庫表 . MsgBox 現(xiàn)有庫存量為： amp。 J Else STR = 現(xiàn)有庫存表中無此設備！ amp。 vbCrLf amp。 請在設備代碼表和現(xiàn)有庫存表中手動添加記錄?。? MsgBox STR Load frm 現(xiàn)有庫存表 frm 現(xiàn)有庫存表 .Show Call frm 現(xiàn)有庫存表 .Command1_Click = = Load frm 設備代碼表 frm 設備代碼表 .Show 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 Private Sub cmdUpdate_Click( )更新紀錄程序 On Error GoTo UpdateErr adAffectAll Exit Sub UpdateErr: MsgBox Sub 出庫 模塊實現(xiàn) 出庫模塊，進行日常的物料出庫操作。出庫模塊包括出庫界面和出庫信息驗證。與入庫模塊類似，只多增加一個查詢功能。當使用者使用管理系統(tǒng)進行查詢時，首先要了解倉庫的庫存情況。在輸入 了出庫的物料的名稱、所屬公司和規(guī)格后，就可以查看在庫內(nèi)的物料數(shù)量 等消息。 Private Sub Command1_Click( )設備出庫程序 Dim i, J, k As Integer Dim STR As String frm 設備出庫表 . = select * from 現(xiàn)有庫存表 where 設備號 =39。 amp。 amp。 39。 frm 設備出庫表 . frm 設備出庫表 . 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 請輸入完整信息！ Exit Sub ElseIf frm 設備出庫表 . = 0 Then STR = 現(xiàn)有庫存表中無此設備！請檢查輸入是否正確！！ MsgBox STR Exit Sub Else frm 設備出庫表 .(設備號 ) = frm 設備出庫表 .(出庫數(shù)量 ) = frm 設備出庫表 .(出庫時間 ) = frm 設備出庫表 .(經(jīng)手人 ) = frm 設備出庫表 .(領取人 ) = frm 設備出庫表 .(使用部門 ) = frm 設備出庫表 .(用途 ) = MsgBox 已經(jīng)成功存入設備出庫表庫！ End If If frm 設 備出庫表 . 0 Then k = CInt(frm 設備出庫表 .) CInt() If k = 0 Then frm 設備出庫表 . = CInt(frm 設備出庫表 .) CInt() frm 設備出庫表 . J = frm 設備出庫表 .Text9 frm 設備出庫表 . frm 設備出庫表 . frm 設備出庫表 . MsgBox 現(xiàn)有庫存量為： 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)加強企業(yè)的管理，實現(xiàn)了企業(yè)管理的自動化和高效化，隨時了解企業(yè)的設備狀態(tài)。 主要程序 Private Sub cmdAdd_Click( ) 添加設備 On Error GoTo AddErr Exit Sub AddErr: MsgBox End Sub 庫存報警模塊實現(xiàn) 庫存報警模塊的實現(xiàn)有利于及時了解庫存情況，及時增加或減少庫存，提高企業(yè)的效率和降低成本，追求企業(yè)的最大利潤。 主要程序 Private Sub Command1_Click()顯示高于最大警戒庫存的設備 = select * from 現(xiàn)有庫存表 where 現(xiàn)有庫存 最大庫存 If 0 Then Beep MsgBox 表中設備已過量！ Else MsgBox 沒有設備庫存過量！ End If End Sub Private Sub Command2_Click()顯示低于于最小警戒庫存的設備 = select * from 現(xiàn)有庫存表 where 現(xiàn)有庫存 最小庫存 If 0 Then Beep MsgBox 表中設備庫存量已過警戒