數(shù)據(jù)庫(kù)原理與應(yīng)用課程設(shè)計(jì)報(bào)告-倉(cāng)庫(kù)管理系統(tǒng)

1、數(shù)據(jù)庫(kù)原理與應(yīng)用課程設(shè)計(jì)分析與設(shè)計(jì)報(bào)告題 目 倉(cāng)庫(kù)管理系統(tǒng) 專業(yè)班級(jí) 網(wǎng)絡(luò)0801 學(xué) 號(hào) 姓 名 指導(dǎo)老師 完成時(shí)間 2011.1.14 目 錄1. 任務(wù)設(shè)計(jì)與要求12. 需求分析23. 系統(tǒng)總體設(shè)計(jì)34. 數(shù)據(jù)庫(kù)設(shè)計(jì)45. 運(yùn)行結(jié)果與測(cè)試56.參考資料16 一 設(shè)計(jì)任務(wù)與要求1.1任務(wù)設(shè)計(jì)與要求隨著科學(xué)技術(shù)的不斷發(fā)展和完善，計(jì)算機(jī)逐漸地應(yīng)用與各個(gè)領(lǐng)域。當(dāng)然，現(xiàn)代化的辦公也離不開計(jì)算機(jī)這門先進(jìn)的技術(shù)地參與，從而實(shí)現(xiàn)高效率的辦公目的。著眼于現(xiàn)實(shí)生活中的倉(cāng)庫(kù)管理系統(tǒng)，我們選擇了倉(cāng)庫(kù)管理這個(gè)題目作為本次課程設(shè)計(jì)的主題，為的是能從實(shí)踐中真正的考量自己對(duì)課本知識(shí)的掌握程度和靈活應(yīng)用的能力，以便在以后的

2、工作中能夠游刃有余。 倉(cāng)庫(kù)管理系統(tǒng)的主要任務(wù)就是能夠?qū)崿F(xiàn)對(duì)貨物信息的錄入、修改和查詢的功能，以及對(duì)貨物資料、庫(kù)存資料進(jìn)行簡(jiǎn)單的管理，并且能夠?qū)崿F(xiàn)倉(cāng)庫(kù)出庫(kù)表、入庫(kù)表的打印等功能。我們通過vb編程建立數(shù)據(jù)庫(kù)，數(shù)據(jù)表，表單，視圖，報(bào)表等類，建立一個(gè)倉(cāng)庫(kù)基本信息管理及查詢的系統(tǒng)。這樣做的意義，就是能夠?yàn)閭}(cāng)庫(kù)和管理者提供便捷的服務(wù)，以便創(chuàng)造更大的社會(huì)價(jià)值。二.需求分析通過與多個(gè)中小企業(yè)后勤倉(cāng)庫(kù)負(fù)責(zé)人進(jìn)行溝通，詳細(xì)了解了企業(yè)的需求，得到該系統(tǒng)需要具備的功能，具體如下。1.系統(tǒng)管理l 可以將管理操作員，如增加操作員，設(shè)置修改操作員密碼；l 可以備份數(shù)據(jù)庫(kù)；l 可以恢復(fù)工資數(shù)據(jù)。2.數(shù)據(jù)管理l 可以新增入庫(kù)單

3、；l 可以新增出庫(kù)單；l 可以對(duì)入庫(kù)單進(jìn)行管理；l 可以對(duì)出庫(kù)單進(jìn)行管理；設(shè)置系統(tǒng)使用的輔助數(shù)據(jù)，如部門、職稱、職務(wù)等參照數(shù)據(jù)。3.查詢統(tǒng)計(jì)l 可以查詢?cè)谥贫ㄆ陂g的庫(kù)存信息；l 可以對(duì)指定期間內(nèi)的單據(jù)進(jìn)行查詢；l 可以統(tǒng)計(jì)在指定期間內(nèi)的貨物信息；l 可以對(duì)貨物在制定期間內(nèi)進(jìn)行出入統(tǒng)計(jì)4.打印票據(jù)l 可以打印出庫(kù)票據(jù)；l 可以打印入庫(kù)票據(jù)。4.登記信息l 可以登記貨物信息；l 可以登記倉(cāng)庫(kù)信息；l 可以登記供應(yīng)商信息；l 可以等級(jí)入庫(kù)經(jīng)辦人；l 可以等級(jí)出庫(kù)經(jīng)辦人。3 系統(tǒng)總體設(shè)計(jì) 通過前面的需求分析，對(duì)功能要求和性能要求有了大概了解，下面應(yīng)該確定系統(tǒng)的最終目標(biāo)及初步的功能結(jié)構(gòu)。（1） 系統(tǒng)目標(biāo)

4、根據(jù)需求分析的描述及與用戶的溝通，最終確定系統(tǒng)要實(shí)現(xiàn)的目標(biāo)如下。l 界面簡(jiǎn)潔、框架清晰、美觀大方；l 領(lǐng)會(huì)、快速的填寫倉(cāng)庫(kù)信息、入庫(kù)、出庫(kù)資料；l 對(duì)用戶輸入的數(shù)據(jù)，系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗(yàn)，盡可能排除人為輸入錯(cuò)誤；l 實(shí)現(xiàn)查詢統(tǒng)計(jì)功能，用來查詢統(tǒng)計(jì)員工工資數(shù)據(jù)；l 最大限度地實(shí)現(xiàn)系統(tǒng)的易維護(hù)性和易操作性；l 確保系統(tǒng)數(shù)據(jù)安全。（2） 系統(tǒng)功能結(jié)構(gòu)本系統(tǒng)主要包括倉(cāng)庫(kù)基本信息管理，數(shù)據(jù)處理，貨物信息錄入、查詢、修改，庫(kù)存信息的查詢統(tǒng)計(jì)，系統(tǒng)管理等部分其系統(tǒng)結(jié)構(gòu)如圖所示。 （3） 構(gòu)建開發(fā)環(huán)境本項(xiàng)目開發(fā)環(huán)境如下：l microsoft visual basic 6.0中文版；l access數(shù)據(jù)庫(kù)。

5、access是運(yùn)行在windows系列平臺(tái)之上的具備了多媒體與開放性的數(shù)據(jù)庫(kù)系統(tǒng)。它的直觀性、易用性、開放性及功能強(qiáng)大的特點(diǎn)，使其成為目前最受歡迎的pc數(shù)據(jù)庫(kù)軟件。（4） 系統(tǒng)特色介紹本系統(tǒng)特色有：l 操作簡(jiǎn)單，符合windows的風(fēng)格的操作界面，使用戶容易上手；l 減少數(shù)據(jù)重復(fù)錄入，大部分?jǐn)?shù)據(jù)都只需錄入一次，即可在其他模塊中引用。如供應(yīng)商、貨物資料、庫(kù)存等信息，都只需錄入一次。（5） 處理流程以“判斷能否錄入貨物信息”為例，可描述如下：l 處理過程：“判斷能否錄入貨物信息”；l 說明：根據(jù)貨物編號(hào)判斷是否屬于有效貨物；l 輸入：貨物編號(hào)、貨物貨物名稱、類別等有效信息；l 輸出：能否錄入貨物信

6、息；l 處理：如果屬于有效貨物編號(hào)，即可錄入，否則不可錄入。（6） 主要功能的原理用戶管理主要采用microsoftvisualbasic6.0制作的登錄界面和access制作的數(shù)據(jù)庫(kù)對(duì)員工的基本信息進(jìn)行管理；應(yīng)用vb對(duì)用戶的添加、刪除、修改進(jìn)行操作。4.數(shù)據(jù)庫(kù)設(shè)計(jì)4.1概念結(jié)構(gòu)設(shè)計(jì)供應(yīng)商信息表：供應(yīng)商編號(hào)，供應(yīng)商地址，供應(yīng)商名稱，電話，聯(lián)系人姓名，聯(lián)系人職稱貨物信息表：貨物編號(hào)，貨物名稱，貨物數(shù)量，類別，最低限量，最高限量種類表：類別編號(hào)，類別名稱客戶信息表：客戶編號(hào)，客戶名稱，聯(lián)系人，客戶電話倉(cāng)庫(kù)信息表：倉(cāng)庫(kù)編號(hào)，倉(cāng)庫(kù)名稱，倉(cāng)庫(kù)地址，用戶編號(hào)用戶信息表：用戶名，用戶密碼，用戶權(quán)限庫(kù)存信息表

7、：庫(kù)存編號(hào)，貨物編號(hào)，庫(kù)存數(shù)量，倉(cāng)庫(kù)編號(hào)入庫(kù)單：入庫(kù)單編號(hào)，貨物編號(hào)，經(jīng)辦人編號(hào)，入庫(kù)時(shí)間，貨物數(shù)量，倉(cāng)庫(kù)編號(hào)，供應(yīng)商編號(hào)出庫(kù)單：出庫(kù)單編號(hào)，貨物編號(hào)，經(jīng)辦人編號(hào)，出庫(kù)時(shí)間，出庫(kù)單價(jià)，客戶編號(hào)，倉(cāng)庫(kù)編號(hào)4.2邏輯結(jié)構(gòu)設(shè)計(jì)根據(jù)關(guān)系規(guī)范化理論和e-r轉(zhuǎn)換成關(guān)系模型的規(guī)則，整體e-r圖可轉(zhuǎn)換得到下列關(guān)系模式：供應(yīng)商（供應(yīng)商編號(hào)，供應(yīng)商地址，供應(yīng)商名稱，電話，聯(lián)系人姓名，聯(lián)系人職稱）貨物（貨物編號(hào)，貨物名稱，貨物數(shù)量，類別，最低限量，最高限量）種類（類別編號(hào)，類別名稱）客戶（客戶編號(hào)，客戶名稱，聯(lián)系人，客戶電話）倉(cāng)庫(kù)（倉(cāng)庫(kù)編號(hào)，倉(cāng)庫(kù)名稱，倉(cāng)庫(kù)地址，用戶編號(hào)）用戶（用戶名，用戶密碼，用戶權(quán)限）庫(kù)存（庫(kù)存

8、編號(hào)，貨物編號(hào)，庫(kù)存數(shù)量，倉(cāng)庫(kù)編號(hào)）入庫(kù)單（入庫(kù)單編號(hào)，貨物編號(hào)，經(jīng)辦人編號(hào)，入庫(kù)時(shí)間，貨物數(shù)量，倉(cāng)庫(kù)編號(hào)，供應(yīng)商編號(hào)）出庫(kù)單（出庫(kù)單編號(hào)，貨物編號(hào)，經(jīng)辦人編號(hào)，出庫(kù)時(shí)間，出庫(kù)單價(jià)，客戶編號(hào)，倉(cāng)庫(kù)編號(hào)）4.3物理結(jié)構(gòu)設(shè)計(jì)1.供應(yīng)商信息表列名數(shù)據(jù)類型長(zhǎng)度主鍵或外鍵約束中文名稱offernovarchar20主鍵not null供應(yīng)商編號(hào)offernamevarchar30not null 供應(yīng)商名稱addressvarchar20not null供應(yīng)商地址telvarchar20not null電話partnervarchar50not null聯(lián)系人姓名postvarchar20not nul

9、l聯(lián)系人職稱2.客戶信息表列名數(shù)據(jù)類型長(zhǎng)度主鍵或外鍵約束中文名稱cnovarchar10主鍵not null客戶編號(hào)cnamevarchar20not null客戶名稱partnervarchar20not null聯(lián)系人telvarchar20not null客戶電話3.貨物信息表列名數(shù)據(jù)類型長(zhǎng)度主鍵或外鍵約束中文名稱gnovarchar20主鍵not null貨物編號(hào)gnamevarchar20not null貨物名稱gnumvarchar10not null貨物數(shù)量gclavarchar10not null類別minvarchar20not null最低限量maxvarchar20not

10、 null最高限量4.倉(cāng)庫(kù)信息表列名數(shù)據(jù)類型長(zhǎng)度主鍵或外鍵約束中文名稱snovarchar10外鍵not nul倉(cāng)庫(kù)編號(hào)snamevarchar20not null倉(cāng)庫(kù)名稱saddvarcahr30not null倉(cāng)庫(kù)地址unamevarcahr20外鍵not null用戶名5.用戶信息表列名數(shù)據(jù)類型長(zhǎng)度主鍵或外鍵約束中文名稱unamevarchar10主鍵not null用戶名upassvarchar20not null用戶密碼uwordvarchar10not null用戶權(quán)限6.種類信息表列名數(shù)據(jù)類型長(zhǎng)度主鍵或外鍵中文名稱clnovarchar20主鍵類別編號(hào)clnamevarchar1

11、0類別名稱7.入庫(kù)單信息表列名數(shù)據(jù)類型長(zhǎng)度主鍵或外鍵中文名稱inputnovarchar20主鍵入庫(kù)單編號(hào)gnovarchar20貨物編號(hào)passnernovarchar10經(jīng)辦人編號(hào)inputtimevarchar10入庫(kù)時(shí)間numbervarchar10貨物數(shù)量snovarchar10倉(cāng)庫(kù)編號(hào)offernovarchar10供應(yīng)商編號(hào)8.出庫(kù)單編號(hào)列名數(shù)據(jù)類型長(zhǎng)度主鍵或外鍵中文名稱outputnovarchar20主鍵出庫(kù)單編號(hào)gnovarchar20貨物編號(hào)passnernovarchar10經(jīng)辦人編號(hào)outputtimevarchar10出庫(kù)時(shí)間cnovarchar10客戶編號(hào)snov

12、archar10倉(cāng)庫(kù)編號(hào)5 運(yùn)行結(jié)果和測(cè)試（1）倉(cāng)庫(kù)管理系統(tǒng)運(yùn)行界面和對(duì)應(yīng)原代碼（上面為運(yùn)行界面，對(duì)應(yīng)原代碼在下面）如以下各圖所示： 圖1. 登陸界面 private sub form_load() on error resume nextadodc1.connectionstring = dataconnectstring adodc1.recordsource = select * from 用戶管理 where 用戶名=username adodc1.refreshend subprivate sub modify_click() if oldpas.text userpas then

13、msgbox 原密碼錯(cuò)誤! exit sub end if if newpas1.text newpas2.text then msgbox 兩次密碼不一致! exit sub end if on error resume next 查找用戶名 if adodc1.recordset.fields(用戶名) = username then 設(shè)置新密碼 set adors = adocon.execute(update 用戶管理 set 用戶密碼= + newpas1.text + where 用戶名= + username + ) adodc1.refresh msgbox 修改成功! end

14、 if unload me end subprivate sub newpas1_keydown(keycode as integer, shift as integer)if keycode = 13 then 如果按下的是回車鍵，則光標(biāo)落到文本框當(dāng)中newpas2.setfocusend ifend sub 圖2. 登記信息 圖3.單據(jù)管理 圖4.查詢統(tǒng)計(jì)圖2.圖3.圖4的原代碼如下所示：private sub 操作信息_resize() shape1.left = 0 shape1.width = 操作信息.width shape2.left = 0 shape2.width = 操作信

15、息.width end subprivate sub 查看庫(kù)存狀況_mousedown(button as integer, shift as integer, x as single, y as single) if button 1 then exit sub m庫(kù)存狀況_clickend subprivate sub 查看日志_mousedown(button as integer, shift as integer, x as single, y as single) if button 1 then exit sub if 權(quán)限類別(15) 0 then m查看日志_clickend

16、 subprivate sub 查詢統(tǒng)計(jì)_mousedown(button as integer, shift as integer, x as single, y as single) if button 1 then exit sub end subprivate sub 創(chuàng)建新倉(cāng)庫(kù)_mousedown(button as integer, shift as integer, x as single, y as single) if button 1 then exit sub if 權(quán)限類別(11) 0 then m倉(cāng)庫(kù)信息_clickend subprivate sub l單據(jù)查詢_m

17、ousedown(button as integer, shift as integer, x as single, y as single) if button 1 then exit sub if 權(quán)限類別(6) 0 then m單據(jù)查詢_clickend subprivate sub 當(dāng)前日期_click()表.show vbmodalend subprivate sub 登記新供應(yīng)商_mousedown(button as integer, shift as integer, x as single, y as single) if button 1 then exit sub if

18、權(quán)限類別(4) 0 then m供應(yīng)商_clickend subprivate sub 登記新貨物_mousedown(button as integer, shift as integer, x as single, y as single) if button 1 then exit sub if 權(quán)限類別(12) 0 then m貨物信息_clickend subprivate sub 登記新客戶_mousedown(button as integer, shift as integer, x as single, y as single) if button 1 then exit s

19、ub if 權(quán)限類別(5) 0 then m往來客戶_clickend subprivate sub 登記新職員_mousedown(button as integer, shift as integer, x as single, y as single) if button 1 then exit sub if 權(quán)限類別(10) 0 then 職員信息.show vbmodalend subprivate sub 給作者寫信_(tái)mousedown(button as integer, shift as integer, x as single, y as single) if button

20、1 then exit sub shellexecute 0, , mailto:smmhliu, , , 5end subprivate sub 更換用戶登陸_mousedown(button as integer, shift as integer, x as single, y as single) if button 1 then exit sub frmlogin.show vbmodalend subprivate sub l貨物出入統(tǒng)計(jì)_mousedown(button as integer, shift as integer, x as single, y as single)

21、 if button 1 then exit sub if 權(quán)限類別(6) 0 then m貨物出入統(tǒng)計(jì)_clickend subprivate sub l庫(kù)存查詢_mousedown(button as integer, shift as integer, x as single, y as single) if button 1 then exit sub if 權(quán)限類別(6) 0 then m庫(kù)存查詢_clickend sub 圖6.庫(kù)存狀況private sub datagrid1_click()end subprivate sub form_load() adodc1.connect

22、ionstring = dataconnectstring sql = adodc1.recordsource set datagrid1.datasource = adodc1 adodc1.refresh adodc1.visible = false adodc2.connectionstring = dataconnectstring set datacombo1.rowsource = adodc2 datacombo1.listfield = 倉(cāng)庫(kù)名稱 adodc2.refresh adodc2.visible = false adodc3.connectionstring = da

23、taconnectstring set datagrid1.datasource = adodc1 adodc1.refresh adodc1.visible = false initdatagrid1 end sub 圖7.入庫(kù)單rivate sub datagrid1_headclick(byval colindex as integer) on error resume next dim caption as string caption = datagrid1.columns(colindex).caption if caption = 經(jīng)辦人 then caption = 姓名 if

24、 caption = 金額 then exit sub if caption = 備注 then caption = 入庫(kù)單.備注 if caption = 編號(hào) then caption = 入庫(kù)單.編號(hào) if caption = 供應(yīng)商 then caption = 供應(yīng)商名稱 if caption = 存放倉(cāng)庫(kù) then caption = 倉(cāng)庫(kù)名稱 adodc1.recordsource = sql + order by + caption order(colindex) = true - order(colindex) if order(colindex) = true then a

25、dodc1.recordsource = adodc1.recordsource + asc else adodc1.recordsource = adodc1.recordsource + desc end if saveinit adodc1.refresh resumeinit end subprivate sub form_load() adodc1.connectionstring = dataconnectstring sql = adodc1.recordsource set datagrid1.datasource = adodc1 adodc1.refresh initdat

26、agrid1 通過權(quán)限來初始化控件性質(zhì) if 權(quán)限類別(0) = 0 then b新增入庫(kù)單.enabled = false if 權(quán)限類別(1) = 0 then datagrid1.allowupdate = false if 權(quán)限類別(2) = 0 then 退出入庫(kù)單.enabled = false 刪除入庫(kù)單.enabled = false end if if 權(quán)限類別(8) = 0 then 打印入庫(kù)單.enabled = false end sub 圖8.出庫(kù)單private sub datagrid1_headclick(byval colindex as integer) o

27、n error resume next dim caption as string caption = datagrid1.columns(colindex).caption if caption = 經(jīng)辦人 then caption = 姓名 if caption = 金額 then exit sub if caption = 備注 then caption = 出庫(kù)單.備注 if caption = 編號(hào) then caption = 出庫(kù)單.編號(hào) if caption = 客戶 then caption = 客戶名稱 if caption = 存放倉(cāng)庫(kù) then caption = 倉(cāng)庫(kù)

28、名稱 adodc1.recordsource = sql + order by + caption order(colindex) = true - order(colindex) if order(colindex) = true then adodc1.recordsource = adodc1.recordsource + asc else adodc1.recordsource = adodc1.recordsource + desc end if saveinit adodc1.refresh resumeinit end subprivate sub form_load() ado

29、dc1.connectionstring = dataconnectstring sql = adodc1.recordsource set datagrid1.datasource = adodc1 adodc1.refresh initdatagrid1 通過權(quán)限來初始化控件性質(zhì) if 權(quán)限類別(0) = 0 then b新增出庫(kù)單.enabled = false if 權(quán)限類別(1) = 0 then datagrid1.allowupdate = false if 權(quán)限類別(2) = 0 then 退出出庫(kù)單.enabled = false 刪除出庫(kù)單.enabled = false

30、end if if 權(quán)限類別(8) = 0 then 打印出庫(kù)單.enabled = false end sub 圖9.單據(jù)查詢private sub form_load()on error goto quit adodc1.connectionstring = dataconnectstring adodc1.visible = false adodc2.connectionstring = dataconnectstring adodc2.visible = false adodc1.recordsource = select 出庫(kù)單.編號(hào),貨物信息.貨物名稱,貨物信息.貨物類別,貨物信息

31、.貨物規(guī)格,職員信息.姓名 as 領(lǐng)走人,出庫(kù)單.出庫(kù)時(shí)間,出庫(kù)單.出庫(kù)單價(jià),貨物信息.計(jì)量單位,出庫(kù)單.出庫(kù)數(shù)量,(出庫(kù)單.出庫(kù)單價(jià)*出庫(kù)單.出庫(kù)數(shù)量) as 金額,客戶.客戶名稱 as 部門,出庫(kù)單.定單狀況,出庫(kù)單.備注 as 工程名稱 from 出庫(kù)單,貨物信息,職員信息,客戶,倉(cāng)庫(kù) where 貨物信息.編號(hào)=出庫(kù)單.貨物編號(hào) and 職員信息.編號(hào)=出庫(kù)單.經(jīng)辦人編號(hào) and 客戶.編號(hào)=出庫(kù)單.經(jīng)辦人編號(hào) and 倉(cāng)庫(kù).編號(hào)=出庫(kù)單.倉(cāng)庫(kù)編號(hào) set datagrid1.datasource = adodc1 adodc1.refresh 制單時(shí)間.year = year(date) 制單時(shí)間.month = month(date) 制單時(shí)間.day = day(date) t制單時(shí)間.text = 無(wú)限制 t貨物數(shù)量.text = 無(wú)限制 t其它金額.text = 無(wú)限制 quit:end sub 圖10.供應(yīng)商信息private sub datagrid1_afterdelete() 寫入系統(tǒng)日志 fmainform.writelog (刪除供應(yīng)商)end subprivate sub datagrid1_afterupdate() 寫入系統(tǒng)日志 fmainform.writelog (更新供應(yīng)商)end sub 圖11.增加新貨物pr