【正文】 Last End With Else Exit SubEnd IfDeleteErr: MsgBox End SubPrivate Sub cmdUpdate_Click( ) 更新紀錄程序 On Error GoTo UpdateErr adAffectAll Exit SubUpdateErr: MsgBox End Sub 出庫模塊實現(xiàn)Private Sub Command1_Click( )設備出庫程序 Dim i, J, k As Integer Dim STR As String = select * from 現(xiàn)有庫存表 where 設備號=39。 amp。 amp。 39。 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 = 0 Then STR = 現(xiàn)有庫存表中無此設備！請檢查輸入是否正確?。? MsgBox STR Exit Sub Else (設備號) = (出庫數(shù)量) = (出庫時間) = (經手人) = (領取人) = (使用部門) = (用途) = MsgBox 已經成功存入設備出庫表庫！ End If If 0 Then k = CInt() CInt() If k = 0 Then = CInt() CInt() J = MsgBox 現(xiàn)有庫存量為： amp。 J Else MsgBox 現(xiàn)有庫存量不足！請輸入合適數(shù)量??！ Exit Sub End If Else STR = 現(xiàn)有庫存表中無此設備！請檢查輸入是否正確！！ MsgBox STR End IfEnd SubPrivate 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 SubEnd IfDeleteErr: MsgBox End Sub更新記錄程序同入庫的更新程序相同，在此略 （程序略） 主要程序 Private Sub cmdAdd_Click( ) 添加設備 On Error GoTo AddErr Exit Sub AddErr: MsgBox End Sub 庫存報警模塊實現(xiàn) 主要程序Private Sub Command1_Click() 顯示高于最大警戒庫存的設備 = select * from 現(xiàn)有庫存表 where 現(xiàn)有庫存最大庫存 If 0 Then Beep MsgBox 表中設備已過量！ Else MsgBox 沒有設備庫存過量！ End IfEnd SubPrivate Sub Command2_Click()顯示低于于最小警戒庫存的設備 = select * from 現(xiàn)有庫存表 where 現(xiàn)有庫存最小庫存 If 0 Then Beep MsgBox 表中設備庫存量已過警戒線！請采購??！ Else MsgBox 沒有設備庫存量過少！ End If End subPrivate Sub Timer1_Timer() 自動報警程序 = select * from 現(xiàn)有庫存表 where 現(xiàn)有庫存最大庫存 If 0 Then Beep MsgBox 有設備庫存超過警戒庫存！ amp。 vbCrLf amp。 請查看庫存報警記錄 = False Exit Sub End If End SubPrivate Sub Timer2_Timer() = select * from 現(xiàn)有庫存表 where 現(xiàn)有庫存最小庫存 If 0 Then Beep MsgBox 有設備庫存低于警戒庫存！ amp。 vbCrLf amp。 請查看庫存報警記錄 = False Exit Sub End IfEnd Sub 操作日志模塊實現(xiàn) 主要程序 Private Sub Command2_Click( ) 填寫日志記錄 If = Or = Or = Then MsgBox 請輸入完整信息！ Exit Sub Else (操作員) = (操作內容) = (操作時間) = End If End Sub Private Sub Form_Load() 設置填寫時間 Dim STRtime As String STRtime = Now() = STRtime (STRtime) End Sub 具體程序同出庫 還庫信息查詢界面 具體程序同其他查詢相似，在此略 第六章 系統(tǒng)使用說明 本系統(tǒng)使用簡單方便，各操作界面如第五章所示，在此不再累述。系統(tǒng)經調試，可以安裝使用。主界面如下:參考文獻 【1】庫系統(tǒng)原理教程 王珊 陳紅 清華大學出版社 【2】理信息系統(tǒng) 王虎 張俊 武漢理工大學出版社 【3】Visual Basic 數(shù)據(jù)庫開發(fā) , , 著 清華大學出版社 【4】 PowerBuilder 何旭洪 余建英 人民郵電出版社 【5】 VB6從入門道精通 『美』Gary cornell 著 北京希望電子出版社 【6】managing Information Systems David 清華大學出版社 【7】 Management Information Systems Raymond Mcleod,Jc George Schell 著 北京大學出版社 31