數(shù)據(jù)庫(kù)倉(cāng)庫(kù)管理系統(tǒng)方案

18/19.學(xué)號(hào)課程設(shè)計(jì)題目倉(cāng)庫(kù)管理系統(tǒng)設(shè)計(jì)教學(xué)院計(jì)算機(jī)學(xué)院專(zhuān)業(yè)班級(jí)一班姓名**指導(dǎo)教師2010年7月3日課程設(shè)計(jì)任務(wù)書(shū)2009～2010學(xué)年第二學(xué)期學(xué)生：專(zhuān)業(yè)班級(jí)：指導(dǎo)教師：工作部門(mén)：計(jì)算機(jī)學(xué)院一、課程設(shè)計(jì)題目倉(cāng)庫(kù)管理系統(tǒng)設(shè)計(jì)二、設(shè)計(jì)目的1．使學(xué)生更深入地理解和掌握該課程中的有關(guān)基本概念，程序設(shè)計(jì)思想和方法。2．培養(yǎng)學(xué)生綜合運(yùn)用所學(xué)知識(shí)獨(dú)立完成課題的能力。3．培養(yǎng)學(xué)生勇于探索、嚴(yán)謹(jǐn)推理、實(shí)事、有錯(cuò)必改，用實(shí)踐來(lái)檢驗(yàn)理論，全方位考慮問(wèn)題等科學(xué)技術(shù)人員應(yīng)具有的素質(zhì)。4．提高學(xué)生對(duì)工作認(rèn)真負(fù)責(zé)、一絲不茍，對(duì)同學(xué)團(tuán)結(jié)友愛(ài)，協(xié)作攻關(guān)的基本素質(zhì)。5．培養(yǎng)學(xué)生從資料文獻(xiàn)、科學(xué)實(shí)驗(yàn)中獲得知識(shí)的能力，提高學(xué)生從別人經(jīng)驗(yàn)中找到解決問(wèn)題的新途徑的悟性，初步培養(yǎng)工程意識(shí)和創(chuàng)新能力。6．對(duì)學(xué)生掌握知識(shí)的深度、運(yùn)用理論去處理問(wèn)題的能力、實(shí)驗(yàn)?zāi)芰?、課程設(shè)計(jì)能力、書(shū)面與口頭表達(dá)能力進(jìn)行考核。三、設(shè)計(jì)要求1．可組成設(shè)計(jì)小組，小組成員分工協(xié)作完成。要求每個(gè)成員有自己相對(duì)獨(dú)立的模塊，同時(shí)要了解其他組員完成的容。2．查閱相關(guān)資料，自學(xué)具體課題中涉與到的新知識(shí)。3．采用結(jié)構(gòu)化、模塊化程序設(shè)計(jì)方法，功能要完善，界面要美觀。4．所設(shè)計(jì)的系統(tǒng)原則上要能夠運(yùn)行無(wú)誤，結(jié)果準(zhǔn)確。5．按要求寫(xiě)出課程設(shè)計(jì)報(bào)告，并于設(shè)計(jì)結(jié)束后1周提交。其主要容包括：封皮、課程設(shè)計(jì)任務(wù)書(shū)，指導(dǎo)教師評(píng)語(yǔ)與成績(jī)、目錄、概述、軟件總體設(shè)計(jì)、詳細(xì)設(shè)計(jì)、軟件的調(diào)試、總結(jié)、啟、附錄：帶中文注釋的程序清單、參考文獻(xiàn)。報(bào)告一律用A4紙打印，中文字體為宋體，西文字體用TimeNewRoma，一律用小四號(hào)字，行距采用“固定值”20磅，首行縮進(jìn)2字符?？傮w設(shè)計(jì)應(yīng)配合軟件總體模塊結(jié)構(gòu)圖來(lái)說(shuō)明軟件應(yīng)具有的功能。詳細(xì)設(shè)計(jì)應(yīng)用傳統(tǒng)或N-S流程圖和屏幕抓圖說(shuō)明，調(diào)試的敘述應(yīng)配合出錯(cuò)場(chǎng)景的抓圖來(lái)說(shuō)明出現(xiàn)了哪些錯(cuò)誤，如何解決的。四、設(shè)計(jì)容任務(wù)說(shuō)明：一個(gè)存放商品的倉(cāng)庫(kù)，每天都有商品出庫(kù)和入庫(kù)。每種商品都有名稱(chēng)、生產(chǎn)廠家、型號(hào)、規(guī)格等。出入庫(kù)時(shí)必須填寫(xiě)出入庫(kù)單據(jù)，單據(jù)包括商品名稱(chēng)、生產(chǎn)廠家、型號(hào)、規(guī)格、數(shù)量、日期、時(shí)間、入庫(kù)單位（或出庫(kù)單位）名稱(chēng)、送貨（或提貨）人。設(shè)計(jì)要求：1)

進(jìn)行需求分析，編寫(xiě)數(shù)據(jù)字典。2)

設(shè)計(jì)E-R圖。設(shè)計(jì)數(shù)據(jù)庫(kù)對(duì)象（表、視圖、存儲(chǔ)過(guò)程等）3)

設(shè)計(jì)出入庫(kù)單據(jù)的錄入。4)

實(shí)現(xiàn)按商品名稱(chēng)、出入庫(kù)日期的查詢(xún)。5)

實(shí)現(xiàn)分別按日、月和年對(duì)出入庫(kù)商品數(shù)量的統(tǒng)計(jì)。三、課程設(shè)計(jì)工作計(jì)劃2010年2010年2010年6月2010年7月2010年教研室主任簽字：年月日目錄一．引言………….4二．系統(tǒng)分析…………………….51．實(shí)驗(yàn)?zāi)康摹?2．?dāng)?shù)據(jù)描述……………………53．?dāng)?shù)據(jù)流圖……………………64．E-R圖………………………65．?dāng)?shù)據(jù)字典……………………76．功能描述……………………8三．系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)…………….11.1．職員操作統(tǒng)計(jì)………………….112．月盤(pán)點(diǎn)………….133．入庫(kù)單………………………..15四．小結(jié)…………..17.第一章引言倉(cāng)庫(kù)在現(xiàn)實(shí)生活中用途十分廣泛，各種商城、超市要利用倉(cāng)庫(kù)存放物資，藥房、醫(yī)院等要利用倉(cāng)庫(kù)存放藥品，企業(yè)、工廠等要利用倉(cāng)庫(kù)存放原材料、生產(chǎn)成品，因此倉(cāng)庫(kù)的管理成了一項(xiàng)十分重要的工作。人工管理倉(cāng)庫(kù)既費(fèi)時(shí)又費(fèi)力，而且容易造成混亂，嚴(yán)重時(shí)會(huì)影響商城、企業(yè)的正常運(yùn)作，造成惡劣的后果。隨著信息技術(shù)的發(fā)展，辦公自動(dòng)化的普與，如何快速，高效，便捷的管理倉(cāng)庫(kù)受到了高度的關(guān)注；因此為了解決這個(gè)問(wèn)題我們提供這個(gè)系統(tǒng)以滿(mǎn)足倉(cāng)庫(kù)管理需求，本系統(tǒng)是基于超市倉(cāng)庫(kù)的管理系統(tǒng)。本系統(tǒng)模擬倉(cāng)庫(kù)管理，系統(tǒng)主要針對(duì)于日常庫(kù)存信息的管理，包括物資管理、倉(cāng)庫(kù)管理、入庫(kù)操作、入庫(kù)查詢(xún)統(tǒng)計(jì)、出庫(kù)操作、出庫(kù)查詢(xún)統(tǒng)計(jì)、庫(kù)存查詢(xún)統(tǒng)計(jì)等處理情況。用戶(hù)可以通過(guò)相應(yīng)的模塊，對(duì)倉(cāng)庫(kù)里的物品的基本情況和庫(kù)存數(shù)量進(jìn)行查詢(xún)，管理員通過(guò)簡(jiǎn)單的操作即可輕松的管理倉(cāng)庫(kù)，查詢(xún)各項(xiàng)相關(guān)信息，并能進(jìn)行入庫(kù)和出庫(kù)操作等。通過(guò)倉(cāng)庫(kù)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)，使我們鞏固和加深對(duì)數(shù)據(jù)庫(kù)基礎(chǔ)理論和基本知識(shí)的理解，進(jìn)一步掌握了使用數(shù)據(jù)庫(kù)進(jìn)行軟件設(shè)計(jì)的基本思想和方法，提高了運(yùn)用數(shù)據(jù)庫(kù)理論解決實(shí)際問(wèn)題的能力，鍛煉了實(shí)際動(dòng)手能力、創(chuàng)新能力，培養(yǎng)了調(diào)查研究、查閱技術(shù)文獻(xiàn)、資料、手冊(cè)以與編寫(xiě)文檔的能力。第二章系統(tǒng)分析2.1實(shí)驗(yàn)?zāi)繕?biāo)本軟件是一個(gè)簡(jiǎn)單的倉(cāng)庫(kù)管理系統(tǒng)，在滿(mǎn)足用戶(hù)需求的基礎(chǔ)上，用計(jì)算機(jī)來(lái)實(shí)現(xiàn)系統(tǒng)的信息處理邏輯模型中規(guī)定的輸入、輸出與部處理等多項(xiàng)功能，本軟件產(chǎn)品是一項(xiàng)獨(dú)立的軟件。相應(yīng)的需求有：⑴能分類(lèi)管理物資信息。⑵系統(tǒng)能管理多個(gè)倉(cāng)庫(kù)。⑶能進(jìn)行入庫(kù)操作，能按物資種類(lèi)、名稱(chēng)、入庫(kù)時(shí)間等信息查詢(xún)統(tǒng)計(jì)出入庫(kù)的數(shù)量、金額等信息。⑷能進(jìn)行出庫(kù)操作，能按物資種類(lèi)、名稱(chēng)、入庫(kù)時(shí)間等信息查詢(xún)統(tǒng)計(jì)出出庫(kù)的數(shù)量、金額等信息。如果物資數(shù)量小于出庫(kù)數(shù)量不允許進(jìn)行出庫(kù)操作。⑸能按各種方式查詢(xún)庫(kù)存信息。2.2數(shù)據(jù)描述2.2.1靜態(tài)數(shù)據(jù)所謂靜態(tài)數(shù)據(jù)，指在運(yùn)行過(guò)程中主要作為參考的數(shù)據(jù)，它們?cè)诤荛L(zhǎng)的一段時(shí)間不會(huì)變化，一般不隨運(yùn)行而改變。本系統(tǒng)中的實(shí)體倉(cāng)庫(kù)、物資、職工、供應(yīng)商與其屬性屬于靜態(tài)數(shù)據(jù)，一般不會(huì)改變。2.2.2動(dòng)態(tài)數(shù)據(jù)所謂動(dòng)態(tài)數(shù)據(jù)，包括所有在運(yùn)行中要發(fā)生變化的數(shù)據(jù)以與在運(yùn)行中要輸入、輸出的數(shù)據(jù)。本系統(tǒng)中的動(dòng)態(tài)數(shù)據(jù)包括庫(kù)存表、入庫(kù)表和出庫(kù)表。2.3數(shù)據(jù)流圖圖1管理員數(shù)據(jù)流圖圖2用戶(hù)數(shù)據(jù)流圖2.4E-R圖圖3物資與其屬性圖圖4庫(kù)存表與其屬性圖圖5出庫(kù)表與其屬性圖2.5數(shù)據(jù)字典名字：物資名字：物資別名：描述：唯一的標(biāo)識(shí)一個(gè)物資的信息集合定義：物資=物資號(hào)+物資名+供應(yīng)商號(hào)+類(lèi)別+每箱單價(jià)+每箱體積位置：存儲(chǔ)在數(shù)據(jù)庫(kù)名字：倉(cāng)庫(kù)別名：描述：唯一的標(biāo)識(shí)一個(gè)倉(cāng)庫(kù)的信息集合定義：倉(cāng)庫(kù)=倉(cāng)庫(kù)號(hào)+職工號(hào)+剩余容量+地址位置：存儲(chǔ)在數(shù)據(jù)庫(kù)名字：供應(yīng)商別名：描述：唯一的標(biāo)識(shí)一個(gè)供應(yīng)商特征的信息集合定義：供應(yīng)商=供應(yīng)商號(hào)+供應(yīng)商名+地址++密碼位置：存儲(chǔ)在數(shù)據(jù)庫(kù)名字：職工別名：描述：唯一的標(biāo)識(shí)一個(gè)職工特征的信息集合定義：職工=職工號(hào)+XX++密碼位置：存儲(chǔ)在數(shù)據(jù)庫(kù)名字：庫(kù)存表別名：描述：倉(cāng)庫(kù)存儲(chǔ)物資的情況定義：庫(kù)存表=倉(cāng)庫(kù)號(hào)+物資號(hào)+總數(shù)量位置：存儲(chǔ)在數(shù)據(jù)庫(kù)名字：入庫(kù)表別名：描述：物資的入庫(kù)信息定義：入庫(kù)表=物資號(hào)+倉(cāng)庫(kù)號(hào)+入庫(kù)時(shí)間+數(shù)量位置：存儲(chǔ)在數(shù)據(jù)庫(kù)名字：出庫(kù)表別名：描述：物資的出庫(kù)信息定義：出庫(kù)表=物資號(hào)+倉(cāng)庫(kù)號(hào)+出庫(kù)時(shí)間+數(shù)量位置：存儲(chǔ)在數(shù)據(jù)庫(kù)2.6功能需求圖11系統(tǒng)層次圖2.7功能劃分管理員：入庫(kù)操作、出庫(kù)操作、查詢(xún)庫(kù)存信息、入庫(kù)信息、出庫(kù)信息、倉(cāng)庫(kù)信息、職工信息與供應(yīng)商信息，更改信息與注冊(cè)。用戶(hù)：查詢(xún)?cè)撚脩?hù)的物資的入庫(kù)、出庫(kù)與庫(kù)存情況、更改密碼與注冊(cè)。2.8功能描述管理員：入庫(kù)操作通過(guò)將要入庫(kù)的物資信息更改倉(cāng)庫(kù)、物資、庫(kù)存表與入庫(kù)表。出庫(kù)操作通過(guò)將要出庫(kù)的物資信息更改倉(cāng)庫(kù)、物資、庫(kù)存表與出庫(kù)表。3、查詢(xún)根據(jù)管理員的需要查看相關(guān)信息，其中包括入庫(kù)信息、出庫(kù)信息、庫(kù)存信息、物資信息、職工信息、倉(cāng)庫(kù)信息和供應(yīng)商信息等。4、更改信息4.1增加倉(cāng)庫(kù)4.2刪除倉(cāng)庫(kù)4.3更改自己賬號(hào)的密碼5、注冊(cè)用戶(hù)：1、查詢(xún)查詢(xún)?cè)撚脩?hù)的物資的入庫(kù)、出庫(kù)與庫(kù)存情況更改密碼注冊(cè)三系統(tǒng)設(shè)計(jì)總體設(shè)計(jì)物資管理系統(tǒng)是對(duì)物資的入庫(kù)出庫(kù)等信息進(jìn)行記錄并查詢(xún)，包括管理員和用戶(hù)的操作。管理員可以對(duì)倉(cāng)庫(kù)進(jìn)行出庫(kù)入庫(kù)與修改倉(cāng)庫(kù)信息，用戶(hù)只能查看自己物資的相關(guān)情況。以下是對(duì)倉(cāng)庫(kù)各種操作的流程圖。1.職員操作統(tǒng)計(jì)PrivateSub進(jìn)行統(tǒng)計(jì)_Click()If限定倉(cāng)庫(kù).Value=1AndDataCombo1.Text=""ThenMsgBox"請(qǐng)選擇倉(cāng)庫(kù)名稱(chēng)!":ExitSubDim倉(cāng)庫(kù)編號(hào)AsLong倉(cāng)庫(kù)編號(hào)=-1OnErrorResumeNextIf倉(cāng)庫(kù)編號(hào)<>-1Thens=s+"and倉(cāng)庫(kù)編號(hào)="+Str(倉(cāng)庫(kù)編號(hào))EndIfs=s+")as入庫(kù)次數(shù),"'出庫(kù)單s=s+"(selectcount(編號(hào))from出庫(kù)單where經(jīng)辦人編號(hào)=職員信息.編號(hào)IfT出入時(shí)間.Text<>"無(wú)限制"Thens=s+"and出庫(kù)時(shí)間"+T出入時(shí)間.Text+"#"+t+"#"EndIfIf倉(cāng)庫(kù)編號(hào)<>-1Thens=s+"and倉(cāng)庫(kù)編號(hào)="+Str(倉(cāng)庫(kù)編號(hào))EndIfs=s+")as出庫(kù)次數(shù),"'借入單s=s+"(selectcount(編號(hào))from借入單where經(jīng)辦人編號(hào)=職員信息.編號(hào)”IfT出入時(shí)間.Text<>"無(wú)限制"Thens=s+"and借入時(shí)間"+T出入時(shí)間.Text+"#"+t+"#"EndIfIf倉(cāng)庫(kù)編號(hào)<>-1Thens=s+"and倉(cāng)庫(kù)編號(hào)="+Str(倉(cāng)庫(kù)編號(hào))EndIfs=s+")as借入次數(shù),"'借出單s=s+"(selectcount(編號(hào))from借出單where經(jīng)辦人編號(hào)=職員信息.編號(hào)IfT出入時(shí)間.Text<>"無(wú)限制"Thens=s+"and借出時(shí)間"+T出入時(shí)間.Text+"#"+t+"#"EndIfIf倉(cāng)庫(kù)編號(hào)<>-1Thens=s+"and倉(cāng)庫(kù)編號(hào)="+Str(倉(cāng)庫(kù)編號(hào))EndIfs=s+")as借出次數(shù),"'調(diào)拔單s=s+"(selectcount(編號(hào))from調(diào)拔單where經(jīng)辦人編號(hào)=職員信息.編"IfT出入時(shí)間.Text<>"無(wú)限制"Thens=s+"and調(diào)拔時(shí)間"+T出入時(shí)間.Text+"#"+t+"#"EndIfEndSub2．月盤(pán)點(diǎn)PrivateSubForm_Resize()ChangeBackColor'新增盤(pán)點(diǎn)單If編號(hào).Text=""Then日期.Text=Date打印月盤(pán)點(diǎn)單.Visible=False更改背景.Visible=False'初始化編號(hào)fMainForm.m_checkado.RecordSource="select編號(hào)from盤(pán)點(diǎn)單"fMainForm.m_checkado.RefreshIffMainForm.m_checkado.Recordset.RecordCount>0ThenfMainForm.m_checkado.Recordset.MoveLast編號(hào).Text=fMainForm.m_checkado.Recordset.Fields("編號(hào)").Value+1Else編號(hào).Text=1EndIfElse'打印盤(pán)點(diǎn)單'初始化數(shù)據(jù)fMainForm.m_checkado.RecordSource="select倉(cāng)庫(kù).倉(cāng)庫(kù)名稱(chēng),職員信息.as經(jīng)辦人,盤(pán)點(diǎn)單.盤(pán)點(diǎn)數(shù)據(jù),盤(pán)點(diǎn)單.盤(pán)點(diǎn)時(shí)間from倉(cāng)庫(kù),職員信息,盤(pán)點(diǎn)單where倉(cāng)庫(kù).編號(hào)=盤(pán)點(diǎn)單.倉(cāng)庫(kù)編號(hào)and職員信息.編號(hào)=盤(pán)點(diǎn)單.經(jīng)辦人編號(hào)and盤(pán)點(diǎn)單.編號(hào)="+編號(hào).Text+"and盤(pán)點(diǎn)時(shí)間>"+GetMinDatefMainForm.m_checkado.RefreseOnErrorResumeNextn=n+1i=j+1j=InStr(i,data,";")WendEndIf進(jìn)行月盤(pán)點(diǎn).Visible=FalselockcontrolEndIfEndSub'寫(xiě)入系統(tǒng)日志fMainForm.WriteLog("新增月盤(pán)點(diǎn)")保存月盤(pán)點(diǎn).Visible=False更改背景.Visible=True打印月盤(pán)點(diǎn)單.Visible=TrueEndSub3．入庫(kù)單PrivateSub刪除入庫(kù)單_Click()OnErrorGoToquitIfDataGrid1.Columns(12).Text="已退出"ThenGoToconIfMsgBox("建議用[退出入庫(kù)單],而不要直接刪除,以免數(shù)據(jù)丟失.您確信要?jiǎng)h除該入庫(kù)單嗎?",vbYesNoOrvbQuestion)=vbNoThenExitSubcon:OnErrorResumeNextDimcode,code1,code2AsLongcode=DataGrid1.Columns(0).TextfMainForm.m_checkado.RecordSource="select貨物編號(hào),入庫(kù)數(shù)量,倉(cāng)庫(kù)編號(hào)from入庫(kù)單where編號(hào)="+Str(code)fMainForm.m_checkado.RefreshDimnum1,num2AsLongcode1=fMainForm.m_checkado.Recordset.Fields("貨物編號(hào)").Valuenum1=fMainForm.m_checkado.Recordset.Fields("入庫(kù)數(shù)量").Valuecode2=fMainForm.m_checkado.Recordset.Fields("倉(cāng)庫(kù)編號(hào)").Value'如果是已退出入庫(kù)單則直接刪除IfDataGrid1.Columns(12).Text="已退出"ThenIfMsgBox("您確信要?jiǎng)h除該入庫(kù)退出單嗎?",vbYesNoOrvbQuestion)=vbNoThenExitSubfMainForm.m_checkado.RecordSource="select*from入庫(kù)單where編號(hào)="+Str(code)fMainForm.m_checkado.RefreshfMainForm.m_checkado.Recordset.DeletefMainForm.m_checkado.RefreshSaveInitAdodc1.RefreshResumeInitExitSubEndIfMainForm.m_checkado.RecordSource="select庫(kù)存數(shù)量from庫(kù)存狀況where貨物編號(hào)="+Str(code1)+"and倉(cāng)庫(kù)編號(hào)="+Str(code2)fMainForm.m_checkado.Refresh'當(dāng)前庫(kù)存數(shù)量num2num2=fMainForm.m_checkado.Recordset.Fields("庫(kù)存數(shù)量").Value'庫(kù)存不足Ifnum2<num1ThenIfMsgBox("庫(kù)存不足,庫(kù)存量為"+Str(num2)+",需求量為"+Str(num1)+","+"要忽略它并強(qiáng)制刪除嗎?",vbQuestionOrvbYesNo)=vbNoThenExitSubEndIf'更新庫(kù)存狀況Ifnum2-num1>0ThenfMainForm.m_checkado.Recordset.Fields("庫(kù)存數(shù)量").Value=num2-num1fMainForm.m_checkado.Recordset.updateElse'如果庫(kù)存為零清空f(shuō)MainForm.m_checkado.Recordset.DeleteEndIffMainForm.m_checkado.Refresh'更新入庫(kù)單fMainForm.m_checkado.RecordSource="select*from入庫(kù)單where編號(hào)="+Str(code)fMainForm.m_checkado.RefreshfMainForm.m_checkado.Recordset.Delete