《數(shù)據(jù)庫原理》課程設(shè)計報告農(nóng)產(chǎn)品信息管理系統(tǒng)

1、 數(shù)據(jù)庫原理課程設(shè)計報告 農(nóng)產(chǎn)品信息管理系統(tǒng)系 部： 計算機與信息科學(xué)系 學(xué)生姓名： 指導(dǎo)教師： 專 業(yè)： 計算機與信息科學(xué) 班 級： 信本0902班 完成時間： 2011年6月15日 目 錄1 引 言12 設(shè)計目的與任務(wù)23 數(shù)據(jù)庫設(shè)計33.1 需求分析33.1.1 數(shù)據(jù)需求33.1.2 數(shù)據(jù)字典43.2 概念設(shè)計63.2.1 實體集63.2.2 e-r圖73.2.3 概念模型73.3 邏輯設(shè)計83.3.1 物理模型83.3.2 關(guān)系模型93.4 數(shù)據(jù)庫實現(xiàn)103.4.1建立數(shù)據(jù)庫模式及視圖103.4.2源代碼124 結(jié) 論405 致 謝416 參考文獻427 附 錄431 引 言隨著計算機

2、行業(yè)的興起，信息管理技術(shù)在現(xiàn)實生活中得到了越來越廣泛的應(yīng)用，信息管理系統(tǒng)的實施在技術(shù)上已逐步成熟。信息管理系統(tǒng)是一個不斷發(fā)展的新型學(xué)科，任何一個單位要生存要發(fā)展，要高效率地把內(nèi)部活動有機地組織起來，就必須建立與自身特點相適應(yīng)的管理系統(tǒng)。對于農(nóng)產(chǎn)品生產(chǎn)機構(gòu)而言，能有一個完善的農(nóng)產(chǎn)品信息的管理系統(tǒng)來方便快捷的完成對農(nóng)產(chǎn)品信息和倉庫管理員信息的查詢、修改和管理，在提高管理效率和查找農(nóng)產(chǎn)品信息效率上是不可缺少的。對于我們而言，通過完成每期的課程設(shè)計，不但可以不斷的提升自己的動手能力，加強的我們的團隊合作精神，培養(yǎng)我們敏捷的思維能力。還可以提升我們對專業(yè)認識，更好的理解和掌握我們的專業(yè)知識。2 設(shè)計目的

3、與任務(wù)通過本次課程設(shè)計，學(xué)習(xí)數(shù)據(jù)庫設(shè)計工具的使用，掌握數(shù)據(jù)庫設(shè)計的流程和基本方法。熟練vb與數(shù)據(jù)庫之間的鏈接，完成對某一小型數(shù)據(jù)庫設(shè)計和相應(yīng)文檔的編寫工作。從而更加深入地掌握數(shù)據(jù)庫系統(tǒng)分析與設(shè)計的基本概念和基本方法，提高從事數(shù)據(jù)庫系統(tǒng)建設(shè)和管理工作的基本技能和能力。本課程設(shè)計要求設(shè)計一個農(nóng)產(chǎn)品信息管理系統(tǒng)，能對數(shù)據(jù)庫中的農(nóng)產(chǎn)品信息隨時進行新增、修改和刪除。數(shù)據(jù)庫中包含農(nóng)產(chǎn)品信息表，職員信息表和倉庫信息表和用戶表。同時創(chuàng)建基本視圖，實現(xiàn)對數(shù)據(jù)的查詢、新增、修改和刪除。用戶登錄需驗證用戶的身份，對于不合權(quán)限的用戶，拒絕其登錄本系統(tǒng)。3 數(shù)據(jù)庫設(shè)計3.1 需求分析3.1.1 數(shù)據(jù)需求通過與農(nóng)產(chǎn)品信息

4、管理系統(tǒng)數(shù)據(jù)庫用戶的交談、團隊的分析、市場需求等方式，獲得了農(nóng)產(chǎn)品信息管理系統(tǒng)的數(shù)據(jù)需求。有多個用戶可以訪問該數(shù)據(jù)庫，為了數(shù)據(jù)庫的安全，對于每個用戶登錄前都需通過身份認證，認證通過后方能進入該系統(tǒng)。一個農(nóng)產(chǎn)品公司可生產(chǎn)多種農(nóng)產(chǎn)品，不同農(nóng)產(chǎn)品存放在不同的倉庫，每個倉庫有固定的管理員。每個農(nóng)產(chǎn)品信息包含產(chǎn)品編號、倉庫號、產(chǎn)品名、入庫時間、庫存量和總值。每個倉庫信息包含倉庫號、面積和電話號碼。每位管理員信息包括管理員號、姓名、性別、出生年月和聯(lián)系方式。圖3.11農(nóng)產(chǎn)品信息管理系統(tǒng)數(shù)據(jù)流圖3.1.2 數(shù)據(jù)字典 以下將對本數(shù)據(jù)庫設(shè)計中的各個數(shù)據(jù)表名稱進行解釋。表3.1農(nóng)產(chǎn)品信息管理清單表名解釋農(nóng)產(chǎn)品信息

5、表用來記錄農(nóng)產(chǎn)品的相關(guān)信息用戶用來記錄登錄用戶的用戶名和密碼職員表用來記錄管理員的相關(guān)信息倉庫信息表用來記錄倉庫里農(nóng)產(chǎn)品的相關(guān)信息表3.2農(nóng)產(chǎn)品信息表農(nóng)產(chǎn)品信息表是否主鍵屬性名數(shù)據(jù)類型長度可 空約 束缺省值備 注是產(chǎn)品編號char(10)10倉庫號char(10)10產(chǎn)品名char(10)10入庫時間char(20)10庫存量char(10)20總 值 char(10)10表3.3用戶信息表用戶是否主鍵屬性名數(shù)據(jù)類型長度可空約 束缺省值備 注是用戶名char(10)10密碼char(20)20表3.4職員信息表職員信息表是否主鍵屬性名數(shù)據(jù)類型長度可空約 束缺省值備 注是管理員號char(10)

6、10姓名char(10)10性別char(2)2出生年月char(40)40聯(lián)系方式char(14)14表3.5倉庫信息表倉庫信息表是否主鍵屬性名數(shù)據(jù)類型長度可 空約 束缺省值備 注是倉庫號char(10)10面 積char(20)10電話號碼char(14)103.2 概念設(shè)計3.2.1 實體集 本數(shù)據(jù)庫e-r圖設(shè)計中包含4個實體，其中4個實體都是強實體集。實體的具體屬性可見下表。表3.6農(nóng)產(chǎn)品信息管理系統(tǒng)實體集農(nóng)產(chǎn)品信息管理系統(tǒng)實體集實體集屬性農(nóng)產(chǎn)品信息表產(chǎn)品編號、倉庫號、產(chǎn)品名、入庫時間、庫存量、總值職員信息表管理員號、姓名、性別、出生年月、聯(lián)系方式倉庫信息表倉庫號、面積、電話號碼用戶用

7、戶名、密碼3.2.2 e-r圖圖3.22 農(nóng)產(chǎn)品信息管理系統(tǒng)數(shù)據(jù)庫e-r圖3.2.3 概念模型由圖3.1的e-r圖中實體之間的聯(lián)系，利用powerdesigner工具概念模型。最終概念模型圖如圖2所示圖3.23農(nóng)產(chǎn)品信息管理系統(tǒng)數(shù)據(jù)庫概念模型 3.3 邏輯設(shè)計3.3.1 物理模型根據(jù)圖3.2的概念模型圖，可以利用powerdesigner導(dǎo)出農(nóng)產(chǎn)品管理系統(tǒng)數(shù)據(jù)庫的物理模型圖。圖3.31農(nóng)產(chǎn)品信息管理系統(tǒng)數(shù)據(jù)庫物理模型3.3.2 關(guān)系模型根據(jù)關(guān)系模式轉(zhuǎn)換規(guī)則，把圖1e-r圖轉(zhuǎn)換為關(guān)系模式，如下所示(有實下劃線的為主碼)：農(nóng)產(chǎn)品信息=(產(chǎn)品編號,倉庫號,產(chǎn)品名,入庫時間，庫存量，總值)倉庫信息=(

8、倉庫號,面積，電話號碼)職員信息=(管理員號，姓名，性別，出生年月，聯(lián)系方式)用戶=(用戶名,密碼)管理=(倉庫號，管理員號)3.4 數(shù)據(jù)庫實現(xiàn)3.4.1建立數(shù)據(jù)庫模式及視圖 以下將對數(shù)據(jù)庫進行實現(xiàn)，實現(xiàn)的環(huán)境為sqlserver2008。create database 農(nóng)產(chǎn)品信息管理on primary( name=農(nóng)產(chǎn)品信息管理_data, filename= d:數(shù)據(jù)庫課程設(shè)計農(nóng)產(chǎn)品信息.mdf , size=10, filegrowth=10%, maxsize=unlimited )log on( name=農(nóng)產(chǎn)品信息管理_log, filename=d: 數(shù)據(jù)庫課程設(shè)計農(nóng)產(chǎn)品信息.

9、ldf, size=1, filegrowth=10%, maxsize=5)1.建立農(nóng)產(chǎn)品信息表create table 農(nóng)產(chǎn)品信息表 ( 產(chǎn)品編號 char(10) primary key ,倉庫號 char(10) 產(chǎn)品名 char(10),入庫時間 char(10) not null,庫存量char(10)總 值char(10)2.倉庫信息表create table 倉庫信息表( 倉庫號 char(10) primary key ,面 積 char(10) not null,電話號碼 char(10)，)3.職員信息表create table 職員信息表( 管理員號char(10) p

10、rimary key ,姓 名 char(10)，性 別 char(10)，出生年月 char(10)，聯(lián)系方式char(10)，)4.用戶create table 用戶( 用戶名 char(10) primary key ，密 碼 char(30)*新建視圖*建立農(nóng)產(chǎn)品信息視圖create view 農(nóng)產(chǎn)品信息（產(chǎn)品編號，倉庫號，入庫時間，庫存量，總值）asselect 產(chǎn)品編號，倉庫號，入庫時間，庫存量，總值from 農(nóng)產(chǎn)品信息表建立倉庫信息視圖create view 倉庫信息（倉庫號，面積，電話號碼）asselect 倉庫號，面積，電話號碼from 倉庫信息表建立職員信息create v

11、iew 職員信息（管理員號，姓名，性別，出生年月，聯(lián)系方式）asselect 管理員號，姓名，性別，出生年月，聯(lián)系方式from 管理員信息表3.4.2源代碼用戶登錄private sub command1_click() adodc1.recordset.movefirst adodc1.recordset.find 用戶名= & text1.text & sql = select 用戶名 from 用戶 whree 用戶名 like text1.text adodc1.recordsource = sql static i as integer if adodc1.recordset.eof

12、 and i 3 then msgbox 用戶名錯誤，請重新輸入！, 32, 提示信息 i = i + 1 text1.text = text1.setfocus exit sub end if adodc1.recordset.movefirst adodc1.recordset.find 密碼= & text2.text & sql = select 密碼 from 用戶 whree 用戶名 like text1.text adodc1.recordsource = sql if adodc1.recordset.eof and i 3 then msgbox 密碼錯誤，請重新輸入！, 3

13、2, 提示信息 i = i + 1 text2.text = text2.setfocus exit sub end if if i = 3 then msgbox 請不起，您無權(quán)登錄本系統(tǒng)！, 16, 提示信息 form3.show form2.hide exit sub end if form5.show form2.hide text1.text = text2.text = end subprivate sub text2_keyup(keycode as integer, shift as integer) if keycode = 13 then adodc1.recordset.

14、movefirst adodc1.recordset.find 用戶名= & text1.text & sql = select 用戶名 from 用戶 whree 用戶名 like text1.text adodc1.recordsource = sql static i as integer if adodc1.recordset.eof and i 3 then msgbox 用戶名錯誤，請重新輸入！, 32, 提示信息 i = i + 1 text1.text = text1.setfocus exit sub end if adodc1.recordset.movefirst ado

15、dc1.recordset.find 密碼= & text2.text & sql = select 密碼 from 用戶 whree 用戶名 like text1.text adodc1.recordsource = sql if adodc1.recordset.eof and i 3 then msgbox 密碼錯誤，請重新輸入！, 32, 提示信息 i = i + 1 text2.text = text2.setfocus exit sub end if if i = 3 then msgbox 請不起，您無權(quán)登錄本系統(tǒng)！, 16, 提示信息 form3.show form2.hide

16、 exit sub end if form5.show form2.hide text1.text = text2.text = end ifend sub密碼修改private sub command1_click() if text2.text text3.text then msgbox 兩次新密碼輸入不一致，請重新輸入！, 32, 提示信息 text2.text = text3.text = text2.setfocus exit sub end if if keycode = 13 and text2.text = text3.text then adodc1.recordset.m

17、ovefirst adodc1.recordset.find 用戶名= & text4.text & sql = select 用戶名 from 用戶 whree 用戶名 like text4.text adodc1.recordsource = sql adodc1.recordset(用戶名) = trim$(text4.text) adodc1.recordset(密碼) = trim$(text2.text) adodc1.recordset.update msgbox 密碼修改成功！, vbinformation text1.text = text2.text = text3.tex

18、t = text4.text = exit sub end ifend subprivate sub text1_keyup(keycode as integer, shift as integer) if keycode = 13 then adodc1.recordset.movefirst adodc1.recordset.find 密碼= & text1.text & sql = select 密碼 from 用戶 whree 用戶名 like text4.text adodc1.recordsource = sql if adodc1.recordset.eof and i 3 th

19、en msgbox 舊密碼密碼輸入錯誤，請重新輸入！, 32, 提示信息 i = i + 1 text1.text = text1.setfocus exit sub end if if i = 3 then msgbox 請不起，您無權(quán)修改本用戶密碼！, 16, 提示信息 form2.show form4.hide exit sub end if text2.setfocus end ifend subprivate sub text3_keyup(keycode as integer, shift as integer) if keycode = 13 and text2.text tex

20、t3.text then msgbox 兩次新密碼輸入不一致，請重新輸入！, 32, 提示信息 text2.text = text3.text = text2.setfocus exit sub end if if keycode = 13 and text2.text = text3.text then adodc1.recordset.movefirst adodc1.recordset.find 用戶名= & text4.text & sql = select 用戶名 from 用戶 whree 用戶名 like text4.text adodc1.recordsource = sql

21、adodc1.recordset(用戶名) = trim$(text4.text) adodc1.recordset(密碼) = trim$(text2.text) adodc1.recordset.update msgbox 密碼修改成功！, vbinformation text1.text = text2.text = text3.text = text4.text = exit sub end ifend subprivate sub text4_keyup(keycode as integer, shift as integer) if keycode = 13 then adodc1

22、.recordset.movefirst adodc1.recordset.find 用戶名= & text4.text & sql = select 用戶名 from 用戶 whree 用戶名 like text4.text adodc1.recordsource = sql static i as integer if adodc1.recordset.eof then msgbox 用戶名輸入錯誤，請重新輸入！, 32, 提示信息 text4.text = text4.setfocus exit sub end if text1.setfocus end ifend sub農(nóng)產(chǎn)品信息查詢

23、private sub command1_click() adodc1.recordset.movefirst adodc1.recordset.find 產(chǎn)品名= & text1.text & sql = select 產(chǎn)品名 from 農(nóng)產(chǎn)品信息表 whree 產(chǎn)品名 like text1.text adodc1.recordsource = sql if adodc1.recordset.eof then msgbox 請不起，暫時還沒有您要查找的信息！, 32, 提示信息 text1.text = text1.setfocus exit sub end if text2.text =

24、adodc1.recordset(產(chǎn)品編號) text3.text = adodc1.recordset(倉庫號) text4.text = adodc1.recordset(產(chǎn)品名) text5.text = adodc1.recordset(入庫時間) text6.text = adodc1.recordset(庫存量) text7.text = adodc1.recordset(總值)end subprivate sub command6_click() dim i as integer i = msgbox(確定要刪除當(dāng)前記錄嗎？, 4 + 48, 警告) if i = vbyes t

25、hen adodc1.recordset.delete adodc1.recordset.movenext text1.text = text2.text = text3.text = text4.text = text5.text = text6.text = text7.text = msgbox 刪除成功！, vbinformation, 提示信息 end ifend subprivate sub text1_keyup(keycode as integer, shift as integer) if keycode = 13 then adodc1.recordset.movefirs

26、t adodc1.recordset.find 產(chǎn)品名= & text1.text & sql = select 產(chǎn)品名 from 農(nóng)產(chǎn)品信息表 whree 產(chǎn)品名 like text1.text adodc1.recordsource = sql if adodc1.recordset.eof then msgbox 請不起，暫時還沒有您要查找的信息！, 32, 提示信息 text1.text = text1.setfocus exit sub end if text2.text = adodc1.recordset(產(chǎn)品編號) text3.text = adodc1.recordset(倉

27、庫號) text4.text = adodc1.recordset(產(chǎn)品名) text5.text = adodc1.recordset(入庫時間) text6.text = adodc1.recordset(庫存量) text7.text = adodc1.recordset(總值) end ifend sub倉庫信息查詢private sub command1_click() adodc1.recordset.movefirst adodc1.recordset.find 倉庫號= & text1.text & sql = select 倉庫號 from 倉庫信息表 whree 倉庫號 l

28、ike text1.text adodc1.recordsource = sql if adodc1.recordset.eof then msgbox 請不起，暫時還沒有您要查找的信息！, 32, 提示信息 text1.text = text1.setfocus exit sub end if text2.text = adodc1.recordset(倉庫號) text3.text = adodc1.recordset(面積) text7.text = adodc1.recordset(電話號碼)end subprivate sub command4_click() dim i as in

29、teger i = msgbox(確定要刪除當(dāng)前記錄嗎？, 4 + 48, 警告) if i = vbyes then adodc1.recordset.delete adodc1.recordset.movenext text1.text = text2.text = text3.text = text7.text = msgbox 刪除成功！, vbinformation, 提示信息 end ifend subprivate sub text1_keyup(keycode as integer, shift as integer) if keycode = 13 then adodc1.r

30、ecordset.movefirst adodc1.recordset.find 倉庫號= & text1.text & sql = select 倉庫號 from 倉庫信息表 whree 倉庫號 like text1.text adodc1.recordsource = sql if adodc1.recordset.eof then msgbox 請不起，暫時還沒有您要查找的信息！, 32, 提示信息 text1.text = text1.setfocus exit sub end if text2.text = adodc1.recordset(倉庫號) text3.text = ado

31、dc1.recordset(面積) text7.text = adodc1.recordset(電話號碼) end ifend sub職員信息查詢private sub command1_click() adodc1.recordset.movefirst adodc1.recordset.find 姓名= & text1.text & sql = select 姓名 from 職員信息表 whree 姓名 like text1.text adodc1.recordsource = sql if adodc1.recordset.eof then msgbox 請不起，暫時還沒有您要查找的信息

32、！, 32, 提示信息 text1.text = text1.setfocus exit sub end if text2.text = adodc1.recordset(管理員號) text3.text = adodc1.recordset(姓名) text4.text = adodc1.recordset(性別) text5.text = adodc1.recordset(出生年月) text6.text = adodc1.recordset(聯(lián)系方式)end subprivate sub command6_click() dim i as integer i = msgbox(確定要刪除

33、當(dāng)前記錄嗎？, 4 + 48, 警告) if i = vbyes then adodc1.recordset.delete text1.text = text2.text = text3.text = text4.text = text5.text = text6.text = msgbox 刪除成功！, vbinformation, 提示信息 end ifend subprivate sub text1_keyup(keycode as integer, shift as integer) if keycode = 13 then adodc1.recordset.movefirst ado

34、dc1.recordset.find 姓名= & text1.text & sql = select 姓名 from 職員信息表 whree 姓名 like text1.text adodc1.recordsource = sql if adodc1.recordset.eof then msgbox 請不起，暫時還沒有您要查找的信息！, 32, 提示信息 text1.text = text1.setfocus exit sub end if text2.text = adodc1.recordset(管理員號) text3.text = adodc1.recordset(姓名) text4.

35、text = adodc1.recordset(性別) text5.text = adodc1.recordset(出生年月) text6.text = adodc1.recordset(聯(lián)系方式) end ifend sub新增農(nóng)產(chǎn)品信息private sub command2_click() if text1.text = then msgbox 請輸入農(nóng)產(chǎn)品編名！, vbexclamation text1.setfocus exit sub end if if text2.text = then msgbox 請輸入農(nóng)產(chǎn)品名！, vbexclamation text2.setfocus

36、exit sub end if if text3.text = then msgbox 請輸入農(nóng)產(chǎn)品入庫號！, vbexclamation text3.setfocus exit sub end if adodc1.refresh adodc1.recordset.find (產(chǎn)品編號= & text1.text & ) if not adodc1.recordset.eof then msgbox 產(chǎn)品號重復(fù)，請重新輸入！, vbexclamation text1.setfocus exit sub end if adodc1.recordset.find (產(chǎn)品名= & text3.tex

37、t & ) if not adodc1.recordset.eof then msgbox 產(chǎn)品名重復(fù)，請重新輸入！, vbexclamation text2.setfocus exit sub else adodc1.recordset.addnew adodc1.recordset.fields(0) = trim$(text1.text) adodc1.recordset.fields(1) = trim$(text2.text) adodc1.recordset.fields(2) = trim$(text3.text) adodc1.recordset.fields(3) = tri

38、m$(text4.text) adodc1.recordset.fields(4) = trim$(text5.text) adodc1.recordset.fields(5) = trim$(text6.text) adodc1.recordset.update msgbox 農(nóng)產(chǎn)品信息已經(jīng)添加成功！, vbinformation adodc1.refresh text1.text = text2.text = text3.text = text4.text = text5.text = text6.text = end ifend subprivate sub text6_change()

39、 if keycode = 13 then if text1.text = then msgbox 請輸入農(nóng)產(chǎn)品編名！, vbexclamation text1.setfocus exit sub end if if text2.text = then msgbox 請輸入農(nóng)產(chǎn)品名！, vbexclamation text2.setfocus exit sub end if if text3.text = then msgbox 請輸入農(nóng)產(chǎn)品入庫號！, vbexclamation text3.setfocus exit sub end if adodc1.refresh adodc1.reco

40、rdset.find (產(chǎn)品編號= & text1.text & ) if not adodc1.recordset.eof then msgbox 產(chǎn)品號重復(fù)，請重新輸入！, vbexclamation text1.setfocus exit sub end if adodc1.recordset.find (產(chǎn)品名= & text3.text & ) if not adodc1.recordset.eof then msgbox 產(chǎn)品名重復(fù)，請重新輸入！, vbexclamation ext2.setfocus exit sub else adodc1.recordset.addnew a

41、dodc1.recordset.fields(0) = trim$(text1.text) adodc1.recordset.fields(1) = trim$(text2.text) adodc1.recordset.fields(2) = trim$(text3.text) adodc1.recordset.fields(3) = trim$(text4.text) adodc1.recordset.fields(4) = trim$(text5.text) adodc1.recordset.fields(5) = trim$(text6.text) adodc1.recordset.up

42、date msgbox 農(nóng)產(chǎn)品信息已經(jīng)添加成功！, vbinformation adodc1.refresh text1.text = text2.text = text3.text = text4.text = text5.text = text6.text = end if end ifend sub新增倉庫信息private sub command1_click() if text1.text = then msgbox 請輸入倉庫號！, vbexclamation text1.setfocus exit sub end if if text2.text = then msgbox 請輸入面積！, vbexclamation text2.setfocus exit sub end if adodc1.refresh adodc1.recordset.find (倉庫號= & text1.text & ) if not adodc1.recordset.eof then msgbox 倉庫號重復(fù)，請重新輸入！, vbexclamation text1.setfocus exit sub else adodc1