生產(chǎn)企業(yè)內(nèi)部物資管理信息系統(tǒng)設計報告

課程設計說明書設計題目：生產(chǎn)企業(yè)內(nèi)部物資管理信息系統(tǒng)專業(yè)：物流工程設計人：學號山東科技大學2014年1月3日

課程設計任務書學院：機電學院專業(yè)：物流工程班級：11-2姓名：劉菲一、課程設計題目生產(chǎn)企業(yè)物資管理信息系統(tǒng)設計二、課程設計內(nèi)容與要求：（1）___________________________________________________________（2）___________________________________________________________（3）___________________________________________________________________________________________________________________________三、課程設計應解決主要問題：（1）___________________________________________________________（2）___________________________________________________________（3）___________________________________________________________________________________________________________________________四、課程設計相關附件（如：圖紙、軟件等）（1）____________________________________________________________（2）____________________________________________________________________________________________________________________________________________________________________________________________五、任務發(fā)出日期：____________課程設計完成日期：__2014-1-3__指導教師簽字：_______________系主任簽字：_____________指導教師對課程設計的評語 指導教師簽字：_____年____月____日目

錄1．課題簡介………11.1課題研究目的和意義………11.2課題主要研究內(nèi)容…………12．系統(tǒng)分析………12.1業(yè)務流程圖…………………12.2用戶需求分析………………12.3系統(tǒng)功能設計………………13．系統(tǒng)設計………13.1總體設計……………………13.2詳細設計……………………13.3數(shù)據(jù)結構設計………………14．系統(tǒng)實施……………………14.1各功能界面設計（每個功能作一小節(jié)）………………15．使用說明……………………16．參考資料……………………1課題簡介1.1項目背景物資管理系統(tǒng)是企業(yè)管理的一個重要內(nèi)容，隨著時代的進步，企業(yè)也逐漸變的龐大起來。如何管理好企業(yè)內(nèi)部物質的信息，成為企業(yè)管理中的一個大問題。在這種情況下，一個可以規(guī)范化，自動化的物資管理信息系統(tǒng)就顯得非常必要。最初的物資管理，都是靠人力來完成的。當企業(yè)規(guī)模比較小的時候，人力可以完成，隨著企業(yè)的規(guī)模越來越大，企業(yè)的進出物資數(shù)量也越來越多，依然維持著人力進行物資管理，必然會造成工作效率低，工作錯誤增高的問題。物資管理系統(tǒng)就是把分散的企事業(yè)單位的職工信息實行統(tǒng)一，集中，規(guī)范的收集管理，建立分類編號管理，電腦存儲查詢以及防火，防潮，防蛀，防盜等現(xiàn)代化，專業(yè)化的管理系統(tǒng)，為企事業(yè)單位和職工解除后顧之憂。1.2、項目研究目的和意義系統(tǒng)開發(fā)的總體任務是實現(xiàn)物資設備管理系統(tǒng)化、規(guī)范化和自動化，從而達到提高單位工作效率的目的。信息已成為繼勞動力、土地、資本之后的又一大資源。誰控制的信息越多，誰利用信息資源的效率越高，誰就會在各方面的競爭中占有一席之地，誰就會有更多的優(yōu)勢。物資供應部門是企業(yè)與生產(chǎn)單位之間的橋梁、紐帶，是企業(yè)正常生產(chǎn)的物資保障部門。正因為供應部門是關鍵的中轉環(huán)節(jié)，建立一套物資管理信息系統(tǒng)對于如何有效的把本單位生產(chǎn)資料及時、保質保量的供應上去，有著重要的意義。從微觀上講，建立一套物資管理信息系統(tǒng)能夠加快物資的周轉速度，提高生產(chǎn)效率，從而加強了管理的信息化手段，提高了本單位的經(jīng)濟效益。從宏觀上講，順應了社會的信息化、社會化潮流，縮短了整個社會化大生產(chǎn)的周期。系統(tǒng)分析2.1、業(yè)務流程圖出庫物資信息管理入庫物資信息管理物資余額信息管理物資調(diào)配物資基本信息管理基本信息錄入物資登記出庫物資信息管理入庫物資信息管理物資余額信息管理物資調(diào)配物資基本信息管理基本信息錄入物資登記2.2、用戶需求分析針對一般物資管理信息系統(tǒng)的需求，通過對上面物資調(diào)配工作過程的內(nèi)容和數(shù)據(jù)流程分析，設計如下面所示的數(shù)據(jù)項和數(shù)據(jù)結構：有關物資基本信息的輸入、包括物資編號、物資名稱、規(guī)格型號、種類和計量單位等；物資基本信息的查詢、修改；入庫信息的輸入、查詢、修改；出庫信息的輸入、查詢、修改；物質剩余物資的查詢、預覽。物資金額簡單的統(tǒng)計查詢2.3、系統(tǒng)功能設計系統(tǒng)管理物資基本信息管理物資出庫信息管理物資入庫信息管理物資余額信息管理用戶管理密碼管理物資基本信息添加物資基本信息查詢物資基本信息修改入庫物資信息添加入庫物資信息修改入庫物資信息查詢出庫物資信息添加出庫物資信息修改出庫物資信息查詢物資余額信息查詢物資余額信息瀏覽物資管理信息系統(tǒng)系統(tǒng)管理物資基本信息管理物資出庫信息管理物資入庫信息管理物資余額信息管理用戶管理密碼管理物資基本信息添加物資基本信息查詢物資基本信息修改入庫物資信息添加入庫物資信息修改入庫物資信息查詢出庫物資信息添加出庫物資信息修改出庫物資信息查詢物資余額信息查詢物資余額信息瀏覽物資管理信息系統(tǒng)系統(tǒng)設計3.1、系統(tǒng)詳細設計各個實體具體的描述E-R圖如下：物資基本信息實體物資基本信息實體計量單位物資編號計量單位物資編號物資名稱物資規(guī)格物資名稱物資規(guī)格物資基本信息實體E-R圖物資入庫信息實體物資入庫信息實體保管人物資基本信息保管人物資基本信息經(jīng)辦人入庫時間經(jīng)辦人入庫時間物資入庫信息實體E-R圖物資出庫信息實體物資出庫信息實體保管人物資基本信息保管人物資基本信息經(jīng)辦人出庫時間經(jīng)辦人出庫時間物資出庫信息實體E-R圖物資物資剩余信息實體倉庫物資基本信息倉庫物資基本信息數(shù)量金額數(shù)量金額物資余額信息實體E-R圖3.2、數(shù)據(jù)結構設計在上面的實體以及實體之間關系的基礎上，形成數(shù)據(jù)庫中的表格以及各個表格之間的關系。倉庫管理系統(tǒng)數(shù)據(jù)庫中各個表格的設計結果如下面的幾個表格所示。每個表格表示在數(shù)據(jù)庫中的一個表。物資信息表：管理表：入庫信息表：出庫信息表：余額信息表：系統(tǒng)實施4.1、各功能頁面設計：（1）、登陸界面設計及代碼：PrivateSubCmdLand_Click()StaticmiCountAsIntegerDimsqlstrAsStringsqlstr="select*from管理表where用戶名='"&Text1&"'"Adodc1.RecordSource=sqlstrAdodc1.RefreshIfAdodc1.Recordset.BOFThen'若沒有找到符合where條件的記錄MsgBox"用戶名錯誤,重新輸入",vbExclamation,"警告"Text1.Text=""Text1.SetFocusElseIfAdodc1.Recordset.Fields("密碼")=Text2Then首頁.ShowUnloadMeElseMsgBox"密碼錯誤,重新輸入",vbExclamation,"警告"Text2.Text=""Text2.SetFocusEndIfEndIfmiCount=miCount+1IfmiCount=3ThenUnloadMeEndSubPrivateSubcmdCancel_Click()UnloadMeEndSub（2）、首頁界面設計及代碼：PrivateSubclxsxxtj_Click()銷售額統(tǒng)計EndSubPrivateSubgccbtj_Click()工程成本統(tǒng)計.ShowEndSubPrivateSubPicture1_Click()EndSubPrivateSubsywzxxcx_Click()剩余物資查詢.ShowEndSubPrivateSubtc_Click()登錄.ShowUnloadMeEndSubPrivateSubwzrkxxcxcx_Click()入庫信息查詢.ShowEndSubPrivateSubwzrkxxtj_Click()入庫物資添加.ShowEndSubPrivateSubwzckxxcx_Click()出庫物資查詢.ShowEndSubPrivateSubwzckxxtjyxg_Click()物資出庫信息.ShowEndSubPrivateSubwzrkxxcx_Click()入庫信息查詢.ShowEndSubPrivateSubwzrkxxtjyxg_Click()物資入庫信息.ShowEndSubPrivateSubwzxxsc_Click()物資信息刪除.ShowEndSubPrivateSubwzxxtj_Click()物資信息添加.ShowEndSubPrivateSubwzxxxg_Click()物資信息修改.ShowEndSubPrivateSubxsetj_Click()銷售額統(tǒng)計.ShowEndSub（3）、物資信息添加設計及代碼：PrivateSubcmdedit_Click()CmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseCmdback.Enabled=TrueEndSubPrivateSubCmdAdd_Click()Adodc1.Recordset.AddNewCmdAdd.Enabled=FalseCmdDel.Enabled=FalseCmdOk.Enabled=TrueCmdEsc.Enabled=TrueEndSubPrivateSubCmddel_Click()X=MsgBox("確實要刪除此條記錄嗎？",vbYesNo+vbQuestion,"確認")IfX=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfElseAdodc1.RefreshEndSubPrivateSubcmdok_click()Adodc1.Recordset.UpdateCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseIfText1.Text=""ThenMsgBox"請輸入材料編碼",vbExclamation,"警告"Text1.Text=""Text.SetFocusCmdOk.Enabled=TrueElseMsgBox"添加成功"EndIfEndSubPrivateSubcmdesc_click()Adodc1.RefreshCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseEndSubPrivateSub返回_Click()首頁.ShowUnloadMeEndSub（4）物資信息修改設計及代碼：PrivateSubcmdedit_Click()IfAdodc1.Recordset.EOF=TrueOrAdodc1.Recordset.BOF=TrueThenMsgBox"請選擇要修改的行"ExitSubEndIf物資信息修改窗口.Show物資信息修改.HideEndSubPrivateSubcomback_Click()首頁.ShowUnloadMeEndSubPrivateSubcmdupdate_Click()物資信息修改.Adodc1.Recordset.Fields("材料編號")=Text1.Text物資信息修改.Adodc1.Recordset.Fields("材料名稱")=Text2.Text物資信息修改.Adodc1.Recordset.Fields("型號")=Text3.Text物資信息修改.Adodc1.Recordset.Fields("單位")=Text4.Text物資信息修改.Adodc1.Recordset.Update物資信息修改.Adodc1.RefreshMsgBox"修改成功"EndSubPrivateSubcomback_Click()Unload物資信息修改窗口物資信息修改.ShowEndSubPrivateSubForm_Load()Text1.Text=物資信息修改.Adodc1.Recordset.Fields("材料編號")Text2.Text=物資信息修改.Adodc1.Recordset.Fields("材料名稱")Text3.Text=物資信息修改.Adodc1.Recordset.Fields("型號")Text4.Text=物資信息修改.Adodc1.Recordset.Fields("單位")EndSub（5）物資信息刪除：PrivateSubCommand1_Click()首頁.ShowUnloadMeEndSubPrivateSubForm_Load()CmdDel.Enabled=TrueEndSubPrivateSubcmdedit_Click()IfAdodc1.Recordset.EOF=TrueOrAdodc1.Recordset.BOF=TrueThenMsgBox"請選擇要刪除的行"ExitSubEndIfEndSubPrivateSubCmddel_Click()X=MsgBox("確實要刪除當前記錄嗎?",vbYesNo+vbQuestion,"確認")IfX=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfAdodc1.RefreshEndIfEndSub（6）、入庫物資信息添加和修改及代碼：PrivateSubCommand1_Click()Adodc1.Recordset.AddNewCommand1.Visible=TrueText1.SetFocusEndSubPrivateSubCommand3_Click()Adodc1.RefreshEndSubPrivateSubCommand4_Click()首頁.ShowEndSubPrivateSubCommand2_Click()X=MsgBox("添加成功",vbOKOnly+vbInformation+0,"添加成功")Print"x=";X;EndSubPrivateSubcmdupdate_Click()IfAdodc1.Recordset.EOF=TrueOrAdodc1.Recordset.BOF=TrueThenMsgBox"請選擇要修改的行"EndIfAdodc1.Recordset.Fields("入庫單號碼")=Text11.TextAdodc1.Recordset.Fields("發(fā)票號碼")=Text12.TextAdodc1.Recordset.Fields("進庫日期")=Text13.TextAdodc1.Recordset.Fields("經(jīng)辦人")=Text14.TextAdodc1.Recordset.Fields("保管人")=Text15.TextAdodc1.Recordset.Fields("材料編碼")=Text16.TextAdodc1.Recordset.Fields("數(shù)量")=Text17.TextAdodc1.Recordset.Fields("單價")=Text18.TextAdodc1.Recordset.Fields("金額")=Text19.TextAdodc1.Recordset.Fields("材料名稱")=Text20.TextAdodc1.Recordset.UpdateAdodc1.RefreshMsgBox"修改成功"EndSub（7）、出庫信息添加修改及代碼;PrivateSubCommand1_Click()Adodc1.Recordset.AddNewCommand1.Visible=TrueText1.SetFocusEndSubPrivateSubCommand3_Click()Adodc1.RefreshEndSubPrivateSubCommand4_Click()首頁.ShowUnloadMeEndSubPrivateSubCommand2_Click()X=MsgBox("添加成功",vbOKOnly+vbInformation+0,"添加成功")Print"x=";X;EndSubPrivateSubcmdupdate_Click()IfAdodc1.Recordset.EOF=TrueOrAdodc1.Recordset.BOF=TrueThenMsgBox"請選擇要修改的行"EndIfAdodc1.Recordset.Fields("出庫單號碼")=Text11.TextAdodc1.Recordset.Fields("發(fā)票號碼")=Text12.TextAdodc1.Recordset.Fields("工程號")=Text13.TextAdodc1.Recordset.Fields("出庫日期")=Text14.TextAdodc1.Recordset.Fields("經(jīng)辦人")=Text15.TextAdodc1.Recordset.Fields("保管人")=Text16.TextAdodc1.Recordset.Fields("材料編碼")=Text17.TextAdodc1.Recordset.Fields("數(shù)量")=Text18.TextAdodc1.Recordset.Fields("單價")=Text19.TextAdodc1.Recordset.Fields("金額")=Text20.TextAdodc1.Recordset.Fields("物資名稱")=Text21.TextAdodc1.Recordset.UpdateAdodc1.RefreshMsgBox"修改成功"EndSubPrivateSubcomback_Click()首頁.ShowEndSubPrivateSubSSTab1_DblClick()Text11.Text=Adodc1.Recordset.Fields("出庫單號碼")Text12.Text=Adodc1.Recordset.Fields("發(fā)票號碼")Text13.Text=Adodc1.Recordset.Fields("工程號")Text14.Text=Adodc1.Recordset.Fields("出庫日期")Text15.Text=Adodc1.Recordset.Fields("經(jīng)辦人")Text16.Text=Adodc1.Recordset.Fields("保管人")Text17.Text=Adodc1.Recordset.Fields("材料編碼")Text18.Text=Adodc1.Recordset.Fields("數(shù)量")Text19.Text=Adodc1.Recordset.Fields("單價")Text20.Text=Adodc1.Recordset.Fields("金額")Text21.Text=Adodc1.Recordset.Fields("物資名稱")EndSub（8）、入庫信息查詢及代碼：PrivateSubCmd1_Click()DimstrAsStringstr="select*from入庫信息表where入庫信息表."&Combo1.Text&"like'"&Text1.Text&"%'"Adodc1.RecordSource=strAdodc1.RefreshEndSubPrivateSubCmd2_Click()首頁.ShowUnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem"材料名稱"Combo1.AddItem"材料編碼"Combo1.AddItem"入庫單號碼"Combo1.AddItem"發(fā)票號碼"Combo1.AddItem"數(shù)量"Combo1.AddItem"經(jīng)辦人"Combo1.Text="保管人"Text1.Text=""EndSub（9）、出庫信息查詢及代碼：PrivateSubCmd1_Click()DimstrAsStringstr="select*from出庫信息表where出庫信息表."&Combo1.Text&"like'"&Text1.Text&"%'"Adodc1.RecordSource=strAdodc1.RefreshEndSubPrivateSubCmd2_Click()首頁.ShowUnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem"物資名稱"Combo1.AddItem"材料編碼"Combo1.AddItem"出庫單號碼"Combo1.AddItem"發(fā)票號碼"Combo1.AddItem"數(shù)量"Combo1.AddItem"經(jīng)辦人"Combo1.Text="保管人"Text1.Text=""EndSub（10）、剩余物資設計及代碼：PrivateSubCmd1_Click()DimstrAsStringstr="select*from余額信息表where余額信息表."&Combo1.Text&"like'"&Text1.Text&"%'"Adodc1.RecordSource=strAdodc1.RefreshEndSubPrivateSubCmd2_Click()首頁.ShowUnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem"金額"Combo1.AddItem"材料編碼"Combo1.AddItem"數(shù)量"Combo1.AddItem"單價"Combo1.Text="材料名稱"Text1.Text=""EndSub（11）、銷售額統(tǒng)計及代碼：PrivateSubCmd1_Click()DimstrAsStringstr="select金額from出庫信息表where出庫日期>='"&Combo1.Text&"'and出庫日期<='"&Combo2.Text&"'"Adodc1.RecordSource=strAdodc1.RefreshEndSubPrivateSubCmd2_Click()首頁.ShowUnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem"2013-1-1"Combo1.AddItem"2013-1-2"Combo1.AddItem"2013-1-3"Combo1.AddItem"2013-1-4"Combo1.AddItem"2013-1-5"Combo1.AddItem"2013-1-6"Combo1.AddItem"2013-1-7"Combo1.AddItem"2013-2-1"Combo1.AddItem"2013-2-2"Combo2.AddItem"2013-1-1"Combo2.AddItem"2013-1-2"Combo2.AddItem"2013-1-3"Combo2.AddItem"2013-1-4"Combo2.AddItem"2013-1-5"Combo2.AddItem"2013-1-6"Combo2.AddItem"2013-1-7"Combo2.AddItem"2013-2-1"Combo2.AddItem"2013-2-2"Text1.Text=""EndSubPrivateSubText1_Change()rssum.Open"selectsum(金額)from出庫信息表where出庫日期>='"&Combo1.Text&"'and出庫日期<='"&Combo2.Text&"'"Text1.Text=rssum.Fields(0)EndSub（12）、工程成本設計及代碼：PrivateSubForm_Load()Combo1.AddItem"10101"Combo1.AddItem"10102"Text1.Text=""EndSubPrivateSubCmd1_Click()DimstrAsStringstr="select金額from出庫信息表where工程號='"&Combo1.Text&"'"Adodc1.RecordSource=strAdodc1.RefreshEndSubP