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

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

采購 車 財務

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

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

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

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

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

EndSTR現(xiàn)有庫存表中無此設備！請檢查輸入與否對的！！"MsgBoxSTREnd

EndPrivateSubcmdDelete_Click(OnErrorGoToDimYesNoAsYesNoMsgBox("刪除vbYesNo,刪除統(tǒng)計")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有設備庫存超出警戒庫存！&vbCrLf&請查看庫存報警統(tǒng)計Timer1.Enabled=FalseExitSubEndIfEndEnd

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

EndPrivateSubForm_Load()DimSTRtimeAsSTRtime