庫存管理系統(tǒng)-ACCESS課程設(shè)計(jì)-Access大作業(yè)-(含數(shù)據(jù)庫)

1、數(shù)據(jù)庫原理及應(yīng)用 課程設(shè)計(jì)（論文）題目： 庫存管理系統(tǒng) 目 錄第1章 課程設(shè)計(jì)目的與要求11.1 課程設(shè)計(jì)目的11.2 課程設(shè)計(jì)的實(shí)驗(yàn)環(huán)境11.3 課程設(shè)計(jì)的預(yù)備知識11.4 課程設(shè)計(jì)要求1第2章 課程設(shè)計(jì)內(nèi)容22.1 系統(tǒng)功能分析22.2 數(shù)據(jù)庫模型32.3 設(shè)計(jì)窗體和報(bào)表72.4 窗體和報(bào)表模塊主要代碼7第3章 課程設(shè)計(jì)總結(jié)12參考文獻(xiàn)13數(shù)據(jù)庫應(yīng)用技術(shù)大作業(yè)的基本要求總體要求運(yùn)用Access所學(xué)功能，完成一份具有一定實(shí)際意義，且能解決一個(gè)具體問題的綜合實(shí)驗(yàn)。要求在Windows平臺上完成Access數(shù)據(jù)庫的表、查詢、窗體、報(bào)表及宏的建立，形成一個(gè)數(shù)據(jù)庫應(yīng)用系統(tǒng)（如：藏書管理系統(tǒng)，人員管理

2、系統(tǒng)，酒店管理系統(tǒng)等）?；疽?1) 作業(yè)量的基本指標(biāo)l 數(shù)據(jù)庫至少包含3個(gè)表 ，每個(gè)表中的記錄數(shù)不能少于10條（所設(shè)計(jì)的數(shù)據(jù)庫中應(yīng)包含求解該問題的相關(guān)數(shù)據(jù)）。l 至少包含兩個(gè)功能模塊，并且數(shù)據(jù)庫應(yīng)用系統(tǒng)要具有數(shù)據(jù)的增、刪、查、改功能。(2) 作業(yè)中涵蓋的知識點(diǎn)l 建立數(shù)據(jù)庫及庫中的數(shù)據(jù)表；l 設(shè)置表中的字段屬性（定義主鍵、字段大小、有效性規(guī)則、默認(rèn)值等）；l 表間關(guān)系的建立與修改：一對一關(guān)系或一對多關(guān)系，至少要有一個(gè)一對多關(guān)系；l 表對象的維護(hù)（增加、刪除、編輯記錄等基本操作）；l 創(chuàng)建多種不同類型的查詢（選擇查詢，交叉表查詢，參數(shù)查詢，操作查詢，SQL查詢）；l 建立某種形式的窗體（要包

3、含主子窗體），創(chuàng)建與用戶進(jìn)行交互操作的友好界面；建立某種形式的窗體，實(shí)現(xiàn)窗體數(shù)據(jù)與查詢條件的傳遞；l 建立某種形式的報(bào)表（要包含分組計(jì)算），實(shí)現(xiàn)對數(shù)據(jù)的統(tǒng)計(jì)與輸出；l 創(chuàng)建并運(yùn)行宏，使用宏可以將數(shù)據(jù)庫對象聯(lián)系在一起；l 創(chuàng)建一個(gè)主界面窗體，能夠通過該窗體訪問數(shù)據(jù)庫中的所有對象。作業(yè)設(shè)計(jì)提交形式將數(shù)據(jù)庫應(yīng)用系統(tǒng)（*.mdb）和相應(yīng)的大作業(yè)設(shè)計(jì)任務(wù)說明書（*.doc）放置以“學(xué)號+姓名”（如王五）命名的文件夾中。同時(shí)上交設(shè)計(jì)說明書的打印稿。大作業(yè)設(shè)計(jì)任務(wù)說明書撰寫框架（1）總體功能（2）各功能模塊聯(lián)系圖（3）表的結(jié)構(gòu)和表間關(guān)系（4）窗體、查詢和報(bào)表的設(shè)計(jì)和功能（5）系統(tǒng)開發(fā)體會第1章 課程設(shè)計(jì)目的

4、與要求1.1 課程設(shè)計(jì)目的本課程的課程設(shè)計(jì)實(shí)際是計(jì)算機(jī)信息管理專業(yè)學(xué)生學(xué)習(xí)完數(shù)據(jù)庫原理及應(yīng)用（ACCESS 2000）課程后，進(jìn)行的一次全面的綜合訓(xùn)練，其目的在于加深對數(shù)據(jù)庫基礎(chǔ)理論和基本知識的理解，掌握運(yùn)用數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)軟件的基本方法。1.2 課程設(shè)計(jì)的實(shí)驗(yàn)環(huán)境硬件要求能運(yùn)行Windows 9.X操作系統(tǒng)的微機(jī)系統(tǒng)。數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)軟件可以選用Microsoft Access，或其他數(shù)據(jù)庫管理系統(tǒng)。1.3 課程設(shè)計(jì)的預(yù)備知識熟悉數(shù)據(jù)庫的基本知識及一種以上數(shù)據(jù)庫系統(tǒng)開發(fā)軟件。1.4 課程設(shè)計(jì)要求按課程設(shè)計(jì)指導(dǎo)書提供的課題，應(yīng)根據(jù)下一節(jié)給出的基本需求獨(dú)立完成八個(gè)方面的設(shè)計(jì)，標(biāo)有“可選”的部

5、分可根據(jù)設(shè)計(jì)時(shí)間的安排及工作量的大小適當(dāng)選擇。選用其他課題或不同的數(shù)據(jù)庫管理系統(tǒng)，可以組成設(shè)計(jì)小組，分模塊進(jìn)行,共同協(xié)作完成一個(gè)應(yīng)用系統(tǒng)的開發(fā)任務(wù)。要求書寫詳細(xì)的設(shè)計(jì)說明書，對復(fù)雜的代碼段和程序段，應(yīng)畫出程序流程圖。在界面設(shè)計(jì)中，畫出每個(gè)窗口的布局，有多個(gè)窗口時(shí)，按模塊調(diào)用的方式畫出窗口調(diào)用圖，用手工畫好報(bào)表和標(biāo)簽樣式，嚴(yán)禁相互抄襲。第2章 課程設(shè)計(jì)內(nèi)容2.1系統(tǒng)功能分析2.1.1 系統(tǒng)功能分析庫存管理系統(tǒng)實(shí)現(xiàn)以下幾項(xiàng)功能：（1）系統(tǒng)模塊：包括報(bào)表的打印及設(shè)置，操作日志的管理。（2）入庫模塊：包括填寫入庫單，更新，刪除入庫記錄，查看現(xiàn)有庫存信息，入庫記錄的查詢及打?。?）出庫模塊 ：包括填寫出

6、庫單，更新，刪除出庫記錄，查看現(xiàn)有庫存信息，出庫記錄的查詢及打?。?）還庫模塊 ：包括填寫還庫單，更新，刪除還庫記錄，還庫記錄的查詢及打印（5）需求模塊：包括填寫需求計(jì)劃表，更新，刪除采購計(jì)劃信息，查看現(xiàn)有采購信息，采購信息的查詢及打印，以及預(yù)測短期內(nèi)的需求計(jì)劃。2.1.2 系統(tǒng)功能模塊設(shè)計(jì)庫存管理系統(tǒng)入庫出庫還庫需求采購修改庫存保存日志系統(tǒng)功能模塊圖2.2數(shù)據(jù)庫模型2.2.1 數(shù)據(jù)庫需求分析數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)如下設(shè)備代碼表：設(shè)備號（主鍵），設(shè)備名稱。設(shè)備入庫表：設(shè)備號，入庫時(shí)間（主鍵），供應(yīng)商，供應(yīng)商電話，入庫數(shù)量，價(jià)格，采購員。設(shè)備出庫表：設(shè)備號，出庫時(shí)間（主鍵），使用部門，出庫情況，經(jīng)手人

7、，出庫數(shù)量，領(lǐng)取人，用途?，F(xiàn)有庫存表：設(shè)備號，現(xiàn)有庫存，最小庫存，最大庫存，總數(shù)。部門需求表：設(shè)備號，部門名稱，需求數(shù)量，需求開始時(shí)間，需求結(jié)束時(shí)間。設(shè)備還庫表：設(shè)備號，還庫時(shí)間，倉庫管理員，歸還數(shù)量，歸還人。操作日志表：操作員，操作內(nèi)容，操作時(shí)間。設(shè)備采購計(jì)劃表：設(shè)備號，現(xiàn)有庫存，總庫存，最大庫存，購買數(shù)量，供應(yīng)商，價(jià)格，計(jì)劃采購時(shí)間（主鍵）。2.2.2 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì)根據(jù)以上分析，規(guī)劃出的實(shí)體有：現(xiàn)有庫存實(shí)體、出庫實(shí)體、設(shè)備采購實(shí)體、設(shè)備還庫實(shí)體、部門需求實(shí)體。以下為E-R圖現(xiàn)有庫存設(shè)備號庫存信息庫存數(shù)量總數(shù)入庫設(shè)備號供應(yīng)商價(jià)格數(shù)量采購員出庫設(shè)備號使用部門需求數(shù)量需求時(shí)間現(xiàn)有庫存設(shè)備采

8、購部門需求設(shè)備還庫入庫出庫還庫設(shè)備號還庫信息還庫數(shù)量經(jīng)手人設(shè)備采購設(shè)備號數(shù)量供應(yīng)商信息時(shí)間2.2.3 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)2.2.4 數(shù)據(jù)庫連接說明2.2.5 查詢設(shè)計(jì)庫存不足查詢SELECT 現(xiàn)有庫存表.設(shè)備號, 現(xiàn)有庫存表.現(xiàn)有庫存, 現(xiàn)有庫存表.最小庫存FROM 現(xiàn)有庫存表WHERE (現(xiàn)有庫存表.現(xiàn)有庫存)最大庫存);使用SUM函數(shù)查詢SELECT Sum(現(xiàn)有庫存表!總數(shù)) AS 所有庫存數(shù)量FROM 現(xiàn)有庫存表設(shè)備號總類COUNT函數(shù)查詢SELECT Count(設(shè)備代碼表!設(shè)備號) AS 設(shè)備總類數(shù)FROM 現(xiàn)有庫存表;2.3 設(shè)計(jì)窗體和報(bào)表切換面板入庫窗體出庫窗體還庫窗體需求窗體

9、采購窗體顯示報(bào)表窗體設(shè)計(jì)圖2.4 設(shè)計(jì)窗體和報(bào)表模塊主要代碼 窗體 報(bào)表切換面板（用戶主界面）入庫窗體其他窗體與入庫窗體界面一致，只是內(nèi)容功能不同。 操作日志報(bào)表主要代碼：入庫窗體代碼如下：Option Compare DatabaseOption ExplicitPrivate Sub cmdadd_Click()On Error GoTo Err_cmdadd_Click DoCmd.GoToRecord , , acNewRecExit_cmdadd_Click: Exit SubErr_cmdadd_Click: MsgBox Err.Description Resume Exit_c

10、mdadd_Click End SubPrivate Sub cmdmod_Click()Dim curdb As DatabaseDim currs As RecordsetDim devicecnt As IntegerSet curdb = CurrentDbSet currs = curdb.OpenRecordset(selece * from device where 設(shè)備號= & 設(shè)備號.Value & )If Not currs.EOF Thendevivecnt = currs.Fields(現(xiàn)有庫存)devivecnt = devivecnt + CInt(入庫數(shù)量.Val

11、ue)curdv.Execute update device set 現(xiàn)有庫存= & devicecnt & ,總數(shù)= & currs.Fields(總數(shù)).Value + CInt(入庫數(shù)量.Value) & where 設(shè)備號= & 設(shè)備號.Value & ElseWith currs.AddNew.Fields(設(shè)備號) = 設(shè)備號.Value.Fields(現(xiàn)有庫存) = CInt(入庫數(shù)量.Value).Fields(最大庫存) = CInt(入庫數(shù)量.Value) + 10.Fields(最小庫存) = CInt(入庫數(shù)量.Value) - 10.Fields(總數(shù)) = CInt

12、(入庫數(shù)量.Value).UpdatableEnd WithEnd Ifcurdb.Execute insert into howdo(操作員,操作內(nèi)容,操作時(shí)間)values (管理員,設(shè)備入庫, & CDate(入庫時(shí)間.Value) & )cmdadd.Enabled = turecmdadd.SetFocuscmdmod.Enabled = FalseEnd SubPrivate Sub cmdsearch_Click()On Error GoTo Err_cmdsearch_Click Screen.PreviousControl.SetFocus DoCmd.DoMenuItem

13、acFormBar, acEditMenu, 10, , acMenuVer70Exit_cmdsearch_Click: Exit SubErr_cmdsearch_Click: MsgBox Err.Description Resume Exit_cmdsearch_ClickEnd Sub其他窗體代碼略有修改。以下為報(bào)表代碼：Option Compare DatabasePrivate Sub cmdcancel_Click()DoCmd.Close acForm, 報(bào)表顯示End SubPrivate Sub cmdshow_Click()If chkqd.Value = -1 The

14、nDoCmd.OpenReport 庫存清單, acViewPreviewEnd IfIf chkbz.Value = -1 ThenDoCmd.OpenReport 庫存不足, acViewPreviewEnd IfIf chkgd.Value = -1 ThenDoCmd.OpenReport 庫存過多, acViewPreviewEnd IfIf chkcz.Value = -1 ThenDoCmd.OpenReport 操作日志, acViewPreviewEnd IfDoCmd.Close acForm, 報(bào)表顯示End Sub 在工具-啟動中設(shè)置自動啟動切換面板，可以在打開時(shí)按住S

15、hift進(jìn)入設(shè)計(jì)界面。點(diǎn)擊主窗口的庫存管理系統(tǒng)可啟動宏，提示版權(quán)信息：版權(quán)所有：李智勇2006-11-30第3章 課程設(shè)計(jì)總結(jié)通過這次的課程設(shè)計(jì)，使我增加了對數(shù)據(jù)庫基本概念的理解，提高對知識的理解和應(yīng)用能力，并且對數(shù)據(jù)庫的應(yīng)用都有了更深的了解，使我的數(shù)據(jù)庫編寫水平又有了明顯的提高。在WINDOWS的環(huán)境中，用ACCESS和VBA代碼構(gòu)建一個(gè)庫存管理系統(tǒng)。讓我了解到了在實(shí)際的環(huán)境下編寫數(shù)據(jù)庫的應(yīng)用。在這次的課程設(shè)計(jì)中，使我對數(shù)據(jù)庫的知識有了更深刻了解，增加可我對數(shù)據(jù)庫這門課興趣，強(qiáng)化了我的實(shí)際動手能力。同時(shí)也找到自己的不足。我一定會繼續(xù)學(xué)習(xí)增加自己的數(shù)據(jù)庫知識，在今后的學(xué)習(xí)中我會更加的努力，增加自己的知識儲備。對倉庫管理系統(tǒng)的開發(fā),我付出了大量的時(shí)間,但是,我得到的收獲遠(yuǎn)遠(yuǎn)不是這些時(shí)間可以衡量的,它將是我終生的財(cái)富,必將給我今后的學(xué)習(xí)和工作帶來更多的收益.通過對此管理系統(tǒng)的開發(fā),使我對軟件開發(fā)有了一個(gè)比較清楚的認(rèn)識,體會到理論和實(shí)踐的重要性.由于自己的分析設(shè)計(jì)和程序經(jīng)驗(yàn)不足,該系統(tǒng)設(shè)計(jì)和實(shí)現(xiàn)過程中,還有許多沒有完善的地方,比如,用戶界面設(shè)計(jì)不夠美觀,異常出錯(cuò)處理比較差等多方面問題,這些都有待進(jìn)一步完善和提高。參考文獻(xiàn)1 葉杰宏 等編著.Access2003經(jīng)典案例.冶金工業(yè)出版.