【導讀】第二章開發(fā)背景····································4. 第三章系統(tǒng)分析·····································4. 第四章系統(tǒng)設(shè)計·····································6. 第五章系統(tǒng)實施·····································13. 第六章系統(tǒng)使用說明································24. 息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理倉庫中的各種。的文件和數(shù)據(jù),這對于查找、更新和維護都帶來了不少的困難。認識,它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。壽命長、成本低等。這些優(yōu)點能夠極大地提高人事勞資管理的效率,也是企業(yè)的?？茖W化、正規(guī)化管理,與世界接軌的重要條件。因此，開發(fā)這樣一套庫存管理軟件成為很有必要的事情。以及前端應(yīng)用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強.數(shù)據(jù)安全。而對于后者則要求應(yīng)用程序功能完備,易使用等特點。出用戶滿意的可行系統(tǒng)。

　　

【正文】 現(xiàn)有庫存表 frm 現(xiàn)有庫存表 .Show Call frm 現(xiàn)有庫存表 .Command1_Click = = Load frm 設(shè)備代碼表 frm 設(shè)備代碼表 .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 End Sub 5.. 出庫模塊實現(xiàn) 19 Private Sub Command1_Click( )設(shè)備出庫程序 Dim i, J, k As Integer Dim STR As String frm 設(shè)備出庫表 . = select * from 現(xiàn)有庫存表 where 設(shè)備號 =39。 amp。 amp。 39。 frm 設(shè)備出庫表 . frm 設(shè)備出庫表 . 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 設(shè)備出庫表 . = 0 Then STR = 現(xiàn)有庫存表中 無此設(shè)備！請檢查輸入是否正確?。? MsgBox STR Exit Sub Else frm 設(shè)備出庫表 .(設(shè)備號 ) = frm 設(shè)備出庫表 .(出庫數(shù)量 ) = frm 設(shè)備出庫表 .(出庫時間 ) = frm 設(shè)備出庫表 .(經(jīng)手人 ) = frm 設(shè)備出庫表 .(領(lǐng)取人 ) = frm 設(shè)備出庫表 .(使用部門 ) = frm 設(shè)備出庫表 .(用途 ) = MsgBox 已經(jīng)成功存入設(shè)備出庫表庫！ End If If frm 設(shè)備出庫表 . 0 Then k = CInt(frm 設(shè)備出庫表 .) CInt() If k = 0 Then frm 設(shè)備出庫表 . = CInt(frm 設(shè)備出庫表 .) CInt() frm 設(shè)備出庫表 . J = frm 設(shè)備出庫表 .Text9 20 frm 設(shè)備出庫表 . frm 設(shè)備出庫表 . frm 設(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è)備采購模塊實現(xiàn)，程序略 現(xiàn)有模塊實現(xiàn)，程序略 設(shè)備代碼模塊實現(xiàn) 21 主要程序 Private Sub cmdAdd_Click( ) 添加設(shè)備 On Error GoTo AddErr Exit Sub AddErr: MsgBox End Sub 庫存報警模塊實現(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。 vbCrLf amp。 請查看庫存報警記錄 = False Exit Sub End If End Sub Private Sub Timer2_Timer() = select * from 現(xiàn)有庫存表 where 現(xiàn)有庫存 最小庫存 If 0 Then Beep MsgBox 有設(shè)備庫存低于警戒庫存！ amp。 vbCrLf amp。 請查看庫存報警記錄 = False Exit Sub End If End Sub 操作日志模塊實現(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 還庫 操模塊實現(xiàn) 具體程序同出庫 還庫信息查詢界面 具體程序同其他查詢相似，在此略 第六章 系統(tǒng)使用說明 本系統(tǒng)使用簡單方便，各操作界面如第五章所示，在此不再累述。 系統(tǒng)經(jīng)調(diào)試，可以安裝使用。 主界面如下： 24 參考文獻： 1． 數(shù)據(jù)庫系統(tǒng)原理教程 王珊 陳紅 清華大學出版社 2． 管理信息系統(tǒng) 王虎 張俊 武漢理工大學出版社 3． Visual Basic 數(shù)據(jù)庫開發(fā) , , 著 清華大學出版社 4． PowerBuilder 數(shù)據(jù)庫系統(tǒng)開發(fā)實例導航 何旭洪 余建英 人民郵電出版社 5． VB6 從入門道精通 『美』 Gary cornell 著 北京希望電子出版社 6. managing Information Systems David 著 清華大學出版社 7. Management Information Systems Raymond Mcleod,Jc Gee Schell 著 北京大學出版社 謝辭： 在劉永軍老師的指導下，通過三個月的不懈努力，我終于把畢業(yè)設(shè)計搞定。系統(tǒng)開發(fā)其間遇到了許多困難，但我還是一個個的解決掉了。在此衷心感謝劉永軍老師的悉心指導。