生產(chǎn)企業(yè)內(nèi)部物資管理信息系統(tǒng)課程設(shè)計(DOC 35頁).doc

課程設(shè)計說明書設(shè)計題目：生產(chǎn)企業(yè)內(nèi)部物資管理信息系統(tǒng)專 業(yè)：物流工程設(shè) 計 人：學(xué) 號山東科技大學(xué)2014年 1 月 3日課程設(shè)計任務(wù)書學(xué)院：機電學(xué)院 專業(yè)：物流工程 班級：11-2 姓名：劉菲一、課程設(shè)計題目生產(chǎn)企業(yè)物資管理信息系統(tǒng)設(shè)計二、課程設(shè)計內(nèi)容與要求：（1）_（2）_（3）_三、課程設(shè)計應(yīng)解決主要問題：（1）_（2）_（3）_四、課程設(shè)計相關(guān)附件（如：圖紙、軟件等）（1）_（2）_五、任務(wù)發(fā)出日期：_ 課程設(shè)計完成日期：_2014-1-3_指導(dǎo)教師簽字：_ 系主任簽字：_指導(dǎo)教師對課程設(shè)計的評語 指導(dǎo)教師簽字： _年_月_日目錄 1課題簡介11.1 課題研究目的和意義11.2 課題主要研究內(nèi)容12系統(tǒng)分析12.1 業(yè)務(wù)流程圖12.2 用戶需求分析12.3 系統(tǒng)功能設(shè)計13系統(tǒng)設(shè)計13.1 總體設(shè)計13.2 詳細(xì)設(shè)計13.3 數(shù)據(jù)結(jié)構(gòu)設(shè)計14系統(tǒng)實施14.1 各功能界面設(shè)計（每個功能作一小節(jié)）15使用說明16參考資料1一、 課題簡介1.1項目背景物資管理系統(tǒng)是企業(yè)管理的一個重要內(nèi)容，隨著時代的進(jìn)步，企業(yè)也逐漸變的龐大起來。如何管理好企業(yè)內(nèi)部物質(zhì)的信息，成為企業(yè)管理中的一個大問題。在這種情況下，一個可以規(guī)范化，自動化的物資管理信息系統(tǒng)就顯得非常必要。最初的物資管理，都是靠人力來完成的。當(dāng)企業(yè)規(guī)模比較小的時候，人力可以完成，隨著企業(yè)的規(guī)模越來越大，企業(yè)的進(jìn)出物資數(shù)量也越來越多，依然維持著人力進(jìn)行物資管理，必然會造成工作效率低，工作錯誤增高的問題。物資管理系統(tǒng)就是把分散的企事業(yè)單位的職工信息實行統(tǒng)一，集中，規(guī)范的收集管理，建立分類編號管理，電腦存儲查詢以及防火，防潮，防蛀，防盜等現(xiàn)代化，專業(yè)化的管理系統(tǒng)，為企事業(yè)單位和職工解除后顧之憂。1.2、項目研究目的和意義 系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)物資設(shè)備管理系統(tǒng)化、規(guī)范化和自動化，從而達(dá)到提高單位工作效率的目的。信息已成為繼勞動力、土地、資本之后的又一大資源。誰控制的信息越多，誰利用信息資源的效率越高，誰就會在各方面的競爭中占有一席之地，誰就會有更多的優(yōu)勢。物資供應(yīng)部門是企業(yè)與生產(chǎn)單位之間的橋梁、紐帶，是企業(yè)正常生產(chǎn)的物資保障部門。正因為供應(yīng)部門是關(guān)鍵的中轉(zhuǎn)環(huán)節(jié)，建立一套物資管理信息系統(tǒng)對于如何有效的把本單位生產(chǎn)資料及時、保質(zhì)保量的供應(yīng)上去，有著重要的意義。從微觀上講，建立一套物資管理信息系統(tǒng)能夠加快物資的周轉(zhuǎn)速度，提高生產(chǎn)效率，從而加強了管理的信息化手段，提高了本單位的經(jīng)濟效益。從宏觀上講，順應(yīng)了社會的信息化、社會化潮流，縮短了整個社會化大生產(chǎn)的周期。二、 系統(tǒng)分析 2.1、業(yè)務(wù)流程圖出庫物資信息管理入庫物資信息管理物資余額信息管理物資調(diào)配物資基本信息管理基本信息錄入物資登記 2.2、用戶需求分析針對一般物資管理信息系統(tǒng)的需求，通過對上面物資調(diào)配工作過程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計如下面所示的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)：l 有關(guān)物資基本信息的輸入、包括物資編號、物資名稱、規(guī)格型號、種類和計量單位等；l 物資基本信息的查詢、修改；l 入庫信息的輸入、查詢、修改；l 出庫信息的輸入、查詢、修改；l 物質(zhì)剩余物資的查詢、預(yù)覽。l 物資金額簡單的統(tǒng)計查詢2.3、系統(tǒng)功能設(shè)計系統(tǒng)管理物資基本信息管理物資出庫信息管理物資入庫信息管理物資余額信息管理用戶管理密碼管理物資基本信息添加物資基本信息查詢物資基本信息修改入庫物資信息添加入庫物資信息修改入庫物資信息查詢出庫物資信息添加出庫物資信息修改出庫物資信息查詢物資余額信息查詢物資余額信息瀏覽物資管理信息系統(tǒng)三、 系統(tǒng)設(shè)計3.1、系統(tǒng)詳細(xì)設(shè)計各個實體具體的描述E-R圖如下：物資基本信息實體計量單位物資編號物資名稱物資規(guī)格物資基本信息實體E-R圖物資入庫信息實體保管人物資基本信息經(jīng)辦人入庫時間物資入庫信息實體E-R圖物資出庫信息實體保管人物資基本信息經(jīng)辦人出庫時間物資出庫信息實體E-R圖物資剩余信息實體倉庫物資基本信息數(shù)量金額物資余額信息實體E-R圖3.2、數(shù)據(jù)結(jié)構(gòu)設(shè)計在上面的實體以及實體之間關(guān)系的基礎(chǔ)上，形成數(shù)據(jù)庫中的表格以及各個表格之間的關(guān)系。倉庫管理系統(tǒng)數(shù)據(jù)庫中各個表格的設(shè)計結(jié)果如下面的幾個表格所示。每個表格表示在數(shù)據(jù)庫中的一個表。物資信息表：管理表：入庫信息表：出庫信息表：余額信息表：四、 系統(tǒng)實施4.1、各功能頁面設(shè)計：（1）、登陸界面設(shè)計及代碼：Private Sub CmdLand_Click()Static miCount As IntegerDim sqlstr As Stringsqlstr = select*from 管理表 where 用戶名= & Text1 & Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.BOF Then 若沒有找到符合where條件的記錄MsgBox 用戶名錯誤,重新輸入, vbExclamation, 警告Text1.Text = Text1.SetFocusElseIf Adodc1.Recordset.Fields(密碼) = Text2 Then首頁.ShowUnload MeElseMsgBox 密碼錯誤,重新輸入, vbExclamation, 警告Text2.Text = Text2.SetFocusEnd IfEnd IfmiCount = miCount + 1If miCount = 3 Then Unload MeEnd SubPrivate Sub cmdCancel_Click()Unload MeEnd Sub（2）、首頁界面設(shè)計及代碼：Private Sub clxsxxtj_Click()銷售額統(tǒng)計End SubPrivate Sub gccbtj_Click()工程成本統(tǒng)計.ShowEnd SubPrivate Sub Picture1_Click()End SubPrivate Sub sywzxxcx_Click()剩余物資查詢.ShowEnd SubPrivate Sub tc_Click()登錄.ShowUnload MeEnd SubPrivate Sub wzrkxxcxcx_Click()入庫信息查詢.ShowEnd SubPrivate Sub wzrkxxtj_Click()入庫物資添加.ShowEnd SubPrivate Sub wzckxxcx_Click()出庫物資查詢.ShowEnd SubPrivate Sub wzckxxtjyxg_Click()物資出庫信息.ShowEnd SubPrivate Sub wzrkxxcx_Click()入庫信息查詢.ShowEnd SubPrivate Sub wzrkxxtjyxg_Click()物資入庫信息.ShowEnd SubPrivate Sub wzxxsc_Click()物資信息刪除.ShowEnd SubPrivate Sub wzxxtj_Click()物資信息添加.ShowEnd SubPrivate Sub wzxxxg_Click()物資信息修改.ShowEnd SubPrivate Sub xsetj_Click()銷售額統(tǒng)計.ShowEnd Sub（3）、物資信息添加設(shè)計及代碼 ：Private Sub cmdedit_Click()CmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseCmdback.Enabled = TrueEnd SubPrivate Sub CmdAdd_Click()Adodc1.Recordset.AddNewCmdAdd.Enabled = FalseCmdDel.Enabled = FalseCmdOk.Enabled = TrueCmdEsc.Enabled = TrueEnd SubPrivate Sub Cmddel_Click()X = MsgBox(確實要刪除此條記錄嗎？, vbYesNo + vbQuestion, 確認(rèn))If X = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfElse Adodc1.RefreshEnd SubPrivate Sub cmdok_click()Adodc1.Recordset.UpdateCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseIf Text1.Text = ThenMsgBox 請輸入材料編碼, vbExclamation, 警告Text1.Text = Text.SetFocusCmdOk.Enabled = TrueElseMsgBox 添加成功End IfEnd SubPrivate Sub cmdesc_click()Adodc1.RefreshCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub 返回_Click()首頁.ShowUnload MeEnd Sub（4）物資信息修改設(shè)計及代碼：Private Sub cmdedit_Click()If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True ThenMsgBox 請選擇要修改的行Exit SubEnd If物資信息修改窗口.Show物資信息修改.HideEnd SubPrivate Sub comback_Click()首頁.ShowUnload MeEnd SubPrivate Sub cmdupdate_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 修改成功End SubPrivate Sub comback_Click()Unload 物資信息修改窗口物資信息修改.ShowEnd SubPrivate Sub Form_Load()Text1.Text = 物資信息修改.Adodc1.Recordset.Fields(材料編號)Text2.Text = 物資信息修改.Adodc1.Recordset.Fields(材料名稱)Text3.Text = 物資信息修改.Adodc1.Recordset.Fields(型號)Text4.Text = 物資信息修改.Adodc1.Recordset.Fields(單位)End Sub（5）物資信息刪除：Private Sub Command1_Click()首頁.ShowUnload MeEnd SubPrivate Sub Form_Load()CmdDel.Enabled = TrueEnd SubPrivate Sub cmdedit_Click()If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True ThenMsgBox 請選擇要刪除的行Exit SubEnd IfEnd SubPrivate Sub Cmddel_Click()X = MsgBox(確實要刪除當(dāng)前記錄嗎?, vbYesNo + vbQuestion, 確認(rèn))If X = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastEnd IfAdodc1.RefreshEnd IfEnd Sub（6）、入庫物資信息添加和修改及代碼：Private Sub Command1_Click()Adodc1.Recordset.AddNewCommand1.Visible = TrueText1.SetFocusEnd SubPrivate Sub Command3_Click()Adodc1.RefreshEnd SubPrivate Sub Command4_Click()首頁.ShowEnd SubPrivate Sub Command2_Click()X = MsgBox(添加成功, vbOKOnly + vbInformation + 0, 添加成功)Print x = ; X;End SubPrivate Sub cmdupdate_Click()If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True ThenMsgBox 請選擇要修改的行End IfAdodc1.Recordset.Fields(入庫單號碼) = Text11.TextAdodc1.Recordset.Fields(發(fā)票號碼) = Text12.TextAdodc1.Recordset.Fields(進(jìn)庫日期) = 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 修改成功End Sub（7）、出庫信息添加修改及代碼;Private Sub Command1_Click()Adodc1.Recordset.AddNewCommand1.Visible = TrueText1.SetFocusEnd SubPrivate Sub Command3_Click()Adodc1.RefreshEnd SubPrivate Sub Command4_Click()首頁.ShowUnload MeEnd SubPrivate Sub Command2_Click()X = MsgBox(添加成功, vbOKOnly + vbInformation + 0, 添加成功)Print x = ; X;End SubPrivate Sub cmdupdate_Click()If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True ThenMsgBox 請選擇要修改的行End IfAdodc1.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 修改成功End SubPrivate Sub comback_Click()首頁.ShowEnd SubPrivate Sub SSTab1_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(物資名稱)End Sub（8）、入庫信息查詢及代碼：Private Sub Cmd1_Click()Dim str As Stringstr = select * from 入庫信息表 where 入庫信息表. & Combo1.Text & like & Text1.Text & %Adodc1.RecordSource = strAdodc1.RefreshEnd SubPrivate Sub Cmd2_Click()首頁.ShowUnload MeEnd SubPrivate Sub Form_Load()Combo1.AddItem 材料名稱Combo1.AddItem 材料編碼Combo1.AddItem 入庫單號碼Combo1.AddItem 發(fā)票號碼Combo1.AddItem 數(shù)量Combo1.AddItem 經(jīng)辦人Combo1.Text = 保管人Text1.Text = End Sub（9）、出庫信息查詢及代碼：Private Sub Cmd1_Click()Dim str As Stringstr = select * from 出庫信息表 where 出庫信息表. & Combo1.Text & like & Text1.Text & %Adodc1.RecordSource = strAdodc1.RefreshEnd SubPrivate Sub Cmd2_Click()首頁.ShowUnload MeEnd SubPrivate Sub Form_Load()Combo1.AddItem 物資名稱Combo1.AddItem 材料編碼Combo1.AddItem 出庫單號碼Combo1.AddItem 發(fā)票號碼Combo1.AddItem 數(shù)量Combo1.AddItem 經(jīng)辦人Combo1.Text = 保管人Text1.Text = End Sub（10）、剩余物資設(shè)計及代碼：Private Sub Cmd1_Click()Dim str As Stringstr = select * from 余額信息表 where 余額信息表. & Combo1.Text & like & Text1.Text & %Adodc1.RecordSource = strAdodc1.RefreshEnd SubPrivate Sub Cmd2_Click()首頁.ShowUnload MeEnd SubPrivate Sub Form_Load()Combo1.AddItem 金額Combo1.AddItem 材料編碼Combo1.AddItem 數(shù)量Combo1.AddItem 單價Combo1.Text = 材料名稱Text1.Text = End Sub（11）、銷售額統(tǒng)計及代碼：Private Sub Cmd1_Click()Dim str As Stringstr = select 金額 from 出庫信息表 where 出庫日期 = & Combo1.Text & and 出庫日期 = & Combo1.Text & and 出庫日期 = & Combo2.Text & Text1.Text = rssum.Fields(0)End Sub（12）、工程成本設(shè)計及代碼：Private Sub Form_Load()Combo1.AddItem 10101Combo1.AddItem 10102Text1.Text = End SubPrivate Sub Cmd1_Click()Dim str As Stringstr = select 金額 from 出庫信息表 where 工程號 = & Combo1.Text & Adodc1.RecordSource = strAdodc1.RefreshEnd SubPrivate Sub Cmd2_Click()首頁.ShowUnload MeEnd Sub五、 使用說明物資管理信息系統(tǒng)建立后，應(yīng)裝入大量物資記錄，進(jìn)入試運行及調(diào)試階段。 裝入物資數(shù)據(jù)往數(shù)據(jù)庫中裝入數(shù)據(jù)又稱為數(shù)據(jù)庫加載。由于數(shù)據(jù)庫中通常包含著一個組織內(nèi)多個部門的數(shù)據(jù)，這些數(shù)據(jù)的格式、規(guī)格都可能不同，所以在加載之前要對這些數(shù)據(jù)作嚴(yán)格地檢驗、整理，并建立嚴(yán)格的數(shù)據(jù)登錄和校驗規(guī)范，設(shè)計出完善的數(shù)據(jù)檢驗和校正程序，盡可能在加載之前把不合格的數(shù)據(jù)排除掉。然后，通過系統(tǒng)提供的工