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

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

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