畢業(yè)設計-倉庫管理系統(tǒng)設計與實現(xiàn)-資料下載頁
2024-12-03 19:23本頁面
【導讀】據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面。起數(shù)據(jù)一致性和完整性強.數(shù)據(jù)安全性好的庫。而對于后者則要求應用程。序功能完備,易使用等特點。據(jù)庫的智能化對象,短期內(nèi)就可以開發(fā)出用戶滿意的可行系統(tǒng)。提供充足的信息和快捷的查詢手段。品、生產(chǎn)前物料、備品備件等。雖然持有一些庫存是必要的，過量的庫存。對那些采購量特別大、采購件市場價格有波動的物料庫存，加強庫。因此，平衡公司庫存投資與其它資金需求至關(guān)重要。和采購補償成為題中應有之義。通過調(diào)查，我們得知任何庫存均可分為如。庫存總值幾乎可以忽略不計，只占５-１０％。評審，從供應商按大合同訂單頻繁交貨，對車間緊密跟蹤以壓縮提前期。對Ｂ類物品做正?？刂?，包括良好的記錄與常規(guī)的關(guān)注。以避免缺貨，安排車間日程計劃時給以低優(yōu)先級。
【正文】 Dim i, J, k As Integer Dim STR As String 第 24 頁 共 29 頁 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 設備出庫表 .(領(lǐng)取人 ) = 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 第 25 頁 共 29 頁 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) 主要程序 Private Sub cmdAdd_Click( ) 添加設備 On Error GoTo AddErr Exit Sub AddErr: MsgBox End Sub 庫存報警模塊實現(xiàn) 第 26 頁 共 29 頁 主要程序 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 表中設備庫存量已過警戒線！請采購??！ Else MsgBox 沒有設備庫存量過少！ End If End sub Private Sub Timer1_Timer() 自動報警程序 = select * from 現(xiàn)有庫存表 where 現(xiàn)有庫存 最大庫存 If 0 Then Beep MsgBox 有設備庫存超過警戒庫存！ amp。 vbCrLf amp。 請查看庫存 報警記錄 = False Exit Sub End If End Sub 第 27 頁 共 29 頁 Private Sub Timer2_Timer() = select * from 現(xiàn)有庫存表 where 現(xiàn)有庫存 最小庫存 If 0 Then Beep MsgBox 有設備庫存低于警戒庫存！ 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() 設置填寫時間 Dim STRtime As String STRtime = Now() = STRtime 第 28 頁 共 29 頁 (STRtime) End Sub 第六章 系統(tǒng)使用說明 本系統(tǒng)使用簡單方便，各操作界面如第五章所示，在此不再累述。 系統(tǒng)經(jīng)調(diào)試，可以安裝使用。 主界面如下： 第 29 頁 共 29 頁 參考文獻： 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 GeeSchell 著 北京大學出版社 .
公司管理相關(guān)推薦
鄂ICP備17016276號-1