庫存管理系統(tǒng)設(shè)計(jì)說明書

第一章第二章獨(dú)立的庫存管理系統(tǒng)來提高公司工作效率,第三章庫單、領(lǐng)料單、臺(tái)賬、物料卡、報(bào)表等資料，這些資料能夠用作數(shù)據(jù)庫設(shè)計(jì)的根據(jù),1234567893.1

采購(gòu) 車 財(cái)務(wù)

3.1庫存管理系統(tǒng)業(yè)務(wù)流程圖外部環(huán) 解決過 決策過數(shù)據(jù)存 數(shù)據(jù)流3.25種類型。本庫存管理系統(tǒng)就采用了現(xiàn)在最流行的客戶機(jī)／服務(wù)器應(yīng)用程序構(gòu)造（C/S構(gòu)造，此時(shí)，客戶機(jī)提★網(wǎng)絡(luò)操作系統(tǒng)：Windows；★★服務(wù)器平臺(tái)：Windows；★第四章1VBAccess4.1庫存管理系統(tǒng)庫存管理系統(tǒng)系輸維查報(bào)協(xié)統(tǒng)入護(hù)看表助模模模模模模塊塊塊塊塊塊打顧日入出還需印客志庫庫庫求設(shè)管管模模模模立理理塊塊塊塊圖4.1 單單單在認(rèn)真調(diào)查公司庫存物資材料管理過程的基礎(chǔ)上，設(shè)計(jì)出本系統(tǒng)所解決的數(shù)據(jù)流程圖(圖4.3E-R圖及其關(guān)系描述以下：圖4.4庫存實(shí)體E-R圖4.5入庫實(shí)體E-R圖4.6出庫實(shí)體E-R設(shè)備 需求部 需求數(shù) 需求時(shí)圖4.7部門需求實(shí)體E-R圖4.8庫存實(shí)體E-R4.9E-R圖實(shí)體與實(shí)體間的關(guān)系E-R圖以下所示：4.10E-R圖NOT字段大小為字段大小為字段大小為字段大小為字段大小為NOT字段大小為日期/無字段大小為字段大小為字段大小為NOT字段大小為字段大小為日期/無字段大小為字段大小為字段大小為字段大小為NOT字段大小為6NOT字段大小為NOT字段大小為日期/無日期/無NOT字段大小為日期/無字段大小為字段大小為NOT字段大小為NOT字段大小為日期/NOT無NOT字段大小為6字段大小為日期/無設(shè)備號(hào)或零件 例如設(shè)備號(hào)或零件 A AWindows形式，鍵盤輸入(也能夠用條形碼讀取)ACCESS的數(shù)據(jù)庫安全設(shè)立，第五章5．1PrivateSubAdodc1.RecordSource=frmLogin.Adodc1.RecordSourceSetText4.DataSourceAdodc1Text4.DataField="密碼"IfText1=""MsgBox請(qǐng)輸入原密碼！修改密碼"ExitSubElseIfText1.TextAdodc1.Recordset.Fields("密碼ThenMsgBox"原密碼錯(cuò)誤！",,"修改密碼"ExitElseIfText2=""OrText3=""MsgBox請(qǐng)輸入新密碼??！修改密碼"ExitSubElseIfText2<>Text3MsgBox密碼不一致??！修改密碼"ExitSubText4.Text=Text2.TextMsgBox密碼修改成功??！修改密碼"UnloadMeEnd

End5.1.2顧客管理界面（程序略.2.3PrivateSubCommand1_Click()DimI,JAsDimSTRAsIfText1.Text=""OrText2=""OrCombo1.Text=""OrText4=""OrText5=""OrText6=""OrText7=""ThenMsgBox請(qǐng)輸入完整信息！"ExitSubElse設(shè)備入庫表.datPrimaryRS.Recordset.Fields("設(shè)備號(hào)設(shè)備入庫表.datPrimaryRS.Recordset.Fields("入庫數(shù)量")=Text2.Text設(shè)備入庫表.datPrimaryRS.Recordset.Fields("入庫時(shí)間Combo1.Text設(shè)備入庫表.datPrimaryRS.Recordset.Fields("供應(yīng)商")=Text4.Text設(shè)備入庫表.datPrimaryRS.Recordset.Fields("供應(yīng)商電話設(shè)備入庫表.datPrimaryRS.Recordset.Fields("價(jià)格")=Text6.Text設(shè)備入庫表.datPrimaryRS.Recordset.Fields("采購(gòu)員Text7.TextMsgBox"已經(jīng)成功入庫！"End設(shè)備入庫表.Adodc1.RecordSource"select*fromwhere設(shè)備號(hào)='"&Text1.Text&If設(shè)備入庫表.Adodc1.Recordset.RecordCount0設(shè)備入庫表.Text9.TextCInt(設(shè)備入庫表.Text9.Text)+J=設(shè)備入庫表.Text9設(shè)備入庫表MsgBox現(xiàn)有庫存量為：&STR現(xiàn)有庫存表中無此設(shè)備！&vbCrLf&請(qǐng)?jiān)谠O(shè)備代碼表和現(xiàn)有庫存表中手動(dòng)添加統(tǒng)計(jì)??！"MsgBoxSTRLoadfrm現(xiàn)有庫存表frm現(xiàn)有庫存表Callfrm現(xiàn)有庫存表.Command1_ClickFrmAddNewEqu.Text1.TextfrmInput.Text1.TextFrmAddNewEqu.Text2.TextfrmInput.Text2.TextLoadfrm設(shè)備代碼表frm設(shè)備代碼表EndEndPrivateSubcmdDelete_Click()OnErrorGoToDimYesNoAsYesNoMsgBox("刪除vbYesNo,刪除統(tǒng)計(jì)")IfYesNo=vbYesThenEnd

WithIf.EOFThen.MoveLastEndWithExitSubEndIfMsgBoxPrivateSubcmdUpdate_Click()OnErrorGoTodatPrimaryRS.Recordset.UpdateBatchadAffectAllExitSubMsgBoxEndPrivateSubCommand1_ClickDimi,J,kAsDimSTRAsfrm設(shè)備出庫表.Adodc1.RecordSourceselect*fromwhere設(shè)備號(hào)&Text1.Text&frm設(shè)備出庫表.Adodc1.Refreshfrm設(shè)備出庫表.DataGrid1.RefreshIfIsNumeric(Text2)=FalseThenMsgBox數(shù)量必須是數(shù)字！"ExitSubEndIfText1.Text=""OrText2=""OrCombo1.Text=""OrText4=""OrText5=""OrText6=""OrText7=""MsgBox請(qǐng)輸入完整信息！"ExitSubElseIffrm設(shè)備出庫表.Adodc1.Recordset.RecordCount<=0ThenSTR現(xiàn)有庫存表中無此設(shè)備！請(qǐng)檢查輸入與否對(duì)的??！"MsgBoxSTRExit

frm設(shè)備出庫表.datPrimaryRS.Recordset.Fields("設(shè)備號(hào)")=Text1.Textfrm設(shè)備出庫表.datPrimaryRS.Recordset.Fields("出庫數(shù)量Text2.Textfrm設(shè)備出庫表.datPrimaryRS.Recordset.Fields("出庫時(shí)間Combo1.Textfrm設(shè)備出庫表.datPrimaryRS.Recordset.Fields("經(jīng)手人")=Text4.Textfrm設(shè)備出庫表.datPrimaryRS.Recordset.Fields("領(lǐng)取人")=Text5.Textfrm設(shè)備出庫表.datPrimaryRS.Recordset.Fields("使用部門Text6.Textfrm設(shè)備出庫表.datPrimaryRS.Recordset.Fields("用途")=Text7.TextMsgBox"已經(jīng)成功存入設(shè)備出庫表庫！"EndIffrm設(shè)備出庫表.Adodc1.Recordset.RecordCount>0kCInt(frm設(shè)備出庫表.Text9.Text)-Ifk>=0frm設(shè)備出庫表.Text9.TextCInt(frm設(shè)備出庫表.Text9.Text)CInt(Text2.Text)frm設(shè)備出庫表.Text9.RefreshJfrm設(shè)備出庫表frm設(shè)備出庫表.Adodc1.Recordset.MoveFirstfrm設(shè)備出庫表.Adodc1.Recordset.Fields.Refreshfrm設(shè)備出庫表.DataGrid1.RefreshMsgBox現(xiàn)有庫存量為：&

MsgBox現(xiàn)有庫存量局限性！請(qǐng)輸入適宜數(shù)量！！"ExitSub

EndSTR現(xiàn)有庫存表中無此設(shè)備！請(qǐng)檢查輸入與否對(duì)的?。?MsgBoxSTREnd

EndPrivateSubcmdDelete_Click(OnErrorGoToDimYesNoAsYesNoMsgBox("刪除vbYesNo,刪除統(tǒng)計(jì)")IfYesNo=vbYesThenWithIf.EOFThen.MoveLastEndWithExitSubEndIfMsgBoxEnd5.2.6PrivateSubcmdAdd_Click()OnErrorGoToEnd

ExitSubMsgBox)datPrimaryRS.RecordSource"select*fromwhere現(xiàn)有庫存>最大庫存IfdatPrimaryRS.Recordset.RecordCount>0ThenMsgBoxMsgBoxEndEnddatPrimaryRS.RecordSource"select*fromwhere現(xiàn)有庫存<最小庫存"IfdatPrimaryRS.Recordset.RecordCount>0ThenMsgBoxMsgBoxEndIfEndsubPrivateSubTimer1_Timer()frmAlarm.datPrimaryRS.RecordSource"select*fromwhere現(xiàn)有庫存>最大庫存IffrmAlarm.datPrimaryRS.Recordset.RecordCount>0ThenMsgBox有設(shè)備庫存超出警戒庫存！&vbCrLf&請(qǐng)查看庫存報(bào)警統(tǒng)計(jì)Timer1.Enabled=FalseExitSubEndIfEndEnd

PrivateSubfrmAlarm.datPrimaryRS.RecordSource"select*fromwhere現(xiàn)有庫存<最小庫存"IffrmAlarm.datPrimaryRS.Recordset.RecordCount>0ThenMsgBox有設(shè)備庫存低于警戒庫存！&vbCrLf&請(qǐng)查看庫存報(bào)警統(tǒng)計(jì)Timer2.Enabled=FalseExitSubEndIfPrivateSubCommand2_Click()IfText1.Text=""OrCombo1.Text=""OrCombo2.Text=""MsgBox請(qǐng)輸入完整信息！"ExitSubfrmLog.Adodc1.Recordset.Fields("操作員")=Text1.TextfrmLog.Adodc1.Recordset.Fields("操作內(nèi)容Combo1.TextfrmLog.Adodc1.Recordset.Fields("操作時(shí)間Combo2.TextEnd

EndPrivateSubForm_Load()DimSTRtimeAsSTRtime