庫(kù)存管理系統(tǒng)設(shè)計(jì)說(shuō)明書(shū)-閱讀頁(yè)
2025-01-04 15:55本頁(yè)面
【正文】 2 Text3 Then MsgBox 密碼不一致??！ , , 修改密碼 Exit Sub Else = MsgBox 密碼修改成功??！ , , 修改密碼 Unload Me End If End Sub 用戶(hù)管理界面（程序略） 11 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)商電話(huà) ) = 設(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。 amp。 設(shè)備入庫(kù)表 . 設(shè)備入庫(kù)表 . If 設(shè)備入庫(kù)表 . 0 Then 將記錄加入現(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。 vbCrLf amp。 amp。 39。 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è)備已過(guò)量！ Else MsgBox 沒(méi)有設(shè)備庫(kù)存過(guò)量！ 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ù)存量已過(guò)警戒線！請(qǐng)采購(gòu)??！ Else MsgBox 沒(méi)有設(shè)備庫(kù)存量過(guò)少！ 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ù)存超過(guò)警戒庫(kù)存！ 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。 請(qǐng)查看庫(kù)存報(bào)警 記錄 = False Exit Sub End If End Sub 操作日志模塊實(shí)現(xiàn) 主要程序 Private Sub Command2_Click( ) 填寫(xiě)日志記錄 If = Or = Or = Then MsgBox 請(qǐng)輸入完整信息！ Exit Sub Else (操作員 ) = (操作內(nèi)容 ) = (操作時(shí)間 ) = End If End Sub P
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1