《數(shù)據(jù)庫原理與應(yīng)用》課程設(shè)計(jì)報告?zhèn)}庫管理系統(tǒng)

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

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

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

4、根據(jù)需求分析的描述及與用戶的溝通，最終確定系統(tǒng)要實(shí)現(xiàn)的目標(biāo)如下。l 界面簡潔、框架清晰、美觀大方；l 領(lǐng)會、快速的填寫倉庫信息、入庫、出庫資料；l 對用戶輸入的數(shù)據(jù)，系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗(yàn)，盡可能排除人為輸入錯誤；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)主要包括倉庫基本信息管理，數(shù)據(jù)處理，貨物信息錄入、查詢、修改，庫存信息的查詢統(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ù)庫。

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

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

7、：庫存編號，貨物編號，庫存數(shù)量，倉庫編號入庫單：入庫單編號，貨物編號，經(jīng)辦人編號，入庫時間，貨物數(shù)量，倉庫編號，供應(yīng)商編號出庫單：出庫單編號，貨物編號，經(jīng)辦人編號，出庫時間，出庫單價，客戶編號，倉庫編號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)商編號，供應(yīng)商地址，供應(yīng)商名稱，電話，聯(lián)系人姓名，聯(lián)系人職稱）貨物（貨物編號，貨物名稱，貨物數(shù)量，類別，最低限量，最高限量）種類（類別編號，類別名稱）客戶（客戶編號，客戶名稱，聯(lián)系人，客戶電話）倉庫（倉庫編號，倉庫名稱，倉庫地址，用戶編號）用戶（用戶名，用戶密碼，用戶權(quán)限）庫存（庫存

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

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

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

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

12、archar10倉庫編號5 運(yùn)行結(jié)果和測試（1）倉庫管理系統(tǒng)運(yùn)行界面和對應(yīng)原代碼（上面為運(yùn)行界面，對應(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 原密碼錯誤! 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 查看庫存狀況_mousedown(button as integer, shift as integer, x as single, y as single) if button 1 then exit sub 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)限類別(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)建新倉庫_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倉庫信息_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 給作者寫信_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庫存查詢_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庫存查詢_clickend sub 圖6.庫存狀況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 = 倉庫名稱 adodc2.refresh adodc2.visible = false adodc3.connectionstring = da

23、taconnectstring set datagrid1.datasource = adodc1 adodc1.refresh adodc1.visible = false initdatagrid1 end sub 圖7.入庫單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 = 入庫單.備注 if caption = 編號 then caption = 入庫單.編號 if caption = 供應(yīng)商 then caption = 供應(yīng)商名稱 if caption = 存放倉庫 then caption = 倉庫名稱 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新增入庫單.enabled = false if 權(quán)限類別(1) = 0 then datagrid1.allowupdate = false if 權(quán)限類別(2) = 0 then 退出入庫單.enabled = false 刪除入庫單.enabled = false end if if 權(quán)限類別(8) = 0 then 打印入庫單.enabled = false end sub 圖8.出庫單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 = 出庫單.備注 if caption = 編號 then caption = 出庫單.編號 if caption = 客戶 then caption = 客戶名稱 if caption = 存放倉庫 then caption = 倉庫

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新增出庫單.enabled = false if 權(quán)限類別(1) = 0 then datagrid1.allowupdate = false if 權(quán)限類別(2) = 0 then 退出出庫單.enabled = false 刪除出庫單.enabled = false

30、end if if 權(quán)限類別(8) = 0 then 打印出庫單.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 出庫單.編號,貨物信息.貨物名稱,貨物信息.貨物類別,貨物信息

31、.貨物規(guī)格,職員信息.姓名 as 領(lǐng)走人,出庫單.出庫時間,出庫單.出庫單價,貨物信息.計(jì)量單位,出庫單.出庫數(shù)量,(出庫單.出庫單價*出庫單.出庫數(shù)量) as 金額,客戶.客戶名稱 as 部門,出庫單.定單狀況,出庫單.備注 as 工程名稱 from 出庫單,貨物信息,職員信息,客戶,倉庫 where 貨物信息.編號=出庫單.貨物編號 and 職員信息.編號=出庫單.經(jīng)辦人編號 and 客戶.編號=出庫單.經(jīng)辦人編號 and 倉庫.編號=出庫單.倉庫編號 set datagrid1.datasource = adodc1 adodc1.refresh 制單時間.year = year(dat

32、e) 制單時間.month = month(date) 制單時間.day = day(date) t制單時間.text = 無限制 t貨物數(shù)量.text = 無限制 t其它金額.text = 無限制 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.增加新貨物private sub 增加新貨

33、物_click() if 貨物編號.text = then msgbox 請?zhí)顚懾浳锞幪?, vbquestion: exit sub if 貨物名稱.text = then msgbox 請?zhí)顚懾浳锩Q!, vbquestion: exit sub if 最低限量.text = then msgbox 請?zhí)顚懽畹拖蘖?, vbquestion: exit sub if 最高限量.text = then msgbox 請?zhí)顚懽罡呦蘖?, vbquestion: exit sub if 計(jì)量單位.text = then msgbox 請?zhí)顚懹?jì)量單位!, vbquestion: exit sub

34、on error resume next saveinit adodc2.recordset.addnew adodc2.recordset.fields(編號) = 貨物編號.text adodc2.recordset.fields(貨物名稱) = 貨物名稱.text adodc2.recordset.fields(貨物類別) = datagrid1.columns(0).text adodc2.recordset.fields(貨物規(guī)格) = 貨物規(guī)格.text adodc2.recordset.fields(計(jì)量單位) = 計(jì)量單位.text adodc2.recordset.field

35、s(最低限量) = 最低限量.text adodc2.recordset.fields(最高限量) = 最高限量.text adodc2.recordset.fields(備注) = 備注.text adodc2.recordset.update adodc2.recordset.requery initdatagrid3 adodc2.refresh resumeinit 貨物編號.text = 貨物編號.text + 1 寫入系統(tǒng)日志 fmainform.writelog (增加新貨物) msgbox 保存成功, vbokonly, 同時把文本清空，以便填寫下一個 貨物名稱.text =

36、計(jì)量單位.text = 貨物規(guī)格.text = end sub(2) 對在調(diào)試中發(fā)現(xiàn)的問題進(jìn)行說明。6 參考資料visual basic高級編程及其項(xiàng)目應(yīng)用開發(fā) 李存斌 郭曉鵬 編著 中國水利水電出版社visual basic編程實(shí)例教程 北京希望電子出版社 總策劃 袁帥 郭月強(qiáng) 焦祝軍 等 編寫ut2apodfxxc02gybkskcww97mrqqwhoj5tl15zt6jipyytycummtarp3v1n5luizi3xh3bhwyreko8d9g7nmzqowpjetldrw08gvs8dsdqqygc3ce7moo2tlf0jf1gk74iuxybmtivr97ckrfvqult5

37、fn2t6mpjr6rbzvpsortzvij5nb5ndvvsr4iwr1twlfkglspzuhrjq3cmzu98euouijdlszqpmvrw9zkupxf8wfug9l2g9277g2rtipa1ypczeuqxpkbhtvdcooqozxuz3vjrzmocijym62zchmeootyes8ebmm932tbz2yo09rtszeys8zrd2yktj8l6jeazvajnfbtrylvsm6ofbftoxvrffn7owiygjlamkunxjybz5rrb7r4vsur9zpfzfmfsjhcfca37lnw2vvlrkn7r8psz1bn6oric5hu5z6hcxayqynpog8duybawqsl20csg06dh2sm8hltgpkicskrgopdpuhbj1lmpk7lydvc6nnmwl3fwhzftfvyaary7lhssxj10v3ph3y19bxyr77ib7cpzsu2tijqe3hkqkkau9kskcphkxuikvvyjzpg2yijrkqfbggovyqkuxnwi9omnjtt6qilzxtyrf7d20fbmabcfiixrqkusvnxbppfuxyq1fjskfsubkgs2duvqc9sz4jkbgn4qqv66pyoarjurnfj3txyfclzieeptwfjthpheipdfnqnr2hj