《数据库原理》课程设计报告-农产品信息管理系统

1、 数据库原理课程设计报告 农产品信息管理系统系 部： 计算机与信息科学系 学生姓名： 指导教师： 专 业： 计算机与信息科学 班 级： 信本0902班 完成时间： 2011年6月15日 目 录1 引 言12 设计目的与任务23 数据库设计33.1 需求分析33.1.1 数据需求33.1.2 数据字典43.2 概念设计63.2.1 实体集63.2.2 E-R图73.2.3 概念模型73.3 逻辑设计83.3.1 物理模型83.3.2 关系模型93.4 数据库实现10建立数据库模式及视图10源代码124 结 论405 致 谢416 参考文献427 附 录431 引 言随着计算机行业的兴起，信息管理

2、技术在现实生活中得到了越来越广泛的应用，信息管理系统的实施在技术上已逐步成熟。信息管理系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理系统。对于农产品生产机构而言，能有一个完善的农产品信息的管理系统来方便快捷的完成对农产品信息和仓库管理员信息的查询、修改和管理，在提高管理效率和查找农产品信息效率上是不可缺少的。对于我们而言，通过完成每期的课程设计，不但可以不断的提升自己的动手能力，加强的我们的团队合作精神，培养我们敏捷的思维能力。还可以提升我们对专业认识，更好的理解和掌握我们的专业知识。2 设计目的与任务通过本次课程设

3、计，学习数据库设计工具的使用，掌握数据库设计的流程和基本方法。熟练VB与数据库之间的链接，完成对某一小型数据库设计和相应文档的编写工作。从而更加深入地掌握数据库系统分析与设计的基本概念和基本方法，提高从事数据库系统建设和管理工作的基本技能和能力。本课程设计要求设计一个农产品信息管理系统，能对数据库中的农产品信息随时进行新增、修改和删除。数据库中包含农产品信息表，职员信息表和仓库信息表和用户表。同时创建基本视图，实现对数据的查询、新增、修改和删除。用户登录需验证用户的身份，对于不合权限的用户，拒绝其登录本系统。3 数据库设计3.1 需求分析 数据需求通过与农产品信息管理系统数据库用户的交谈、团队

4、的分析、市场需求等方式，获得了农产品信息管理系统的数据需求。·有多个用户可以访问该数据库，为了数据库的安全，对于每个用户登录前都需通过身份认证，认证通过后方能进入该系统。·一个农产品公司可生产多种农产品，不同农产品存放在不同的仓库，每个仓库有固定的管理员。·每个农产品信息包含产品编号、仓库号、产品名、入库时间、库存量和总值。·每个仓库信息包含仓库号、面积和 号码。·每位管理员信息包括管理员号、姓名、性别、出生年月和联系方式。图3.11农产品信息管理系统数据流图 数据字典 以下将对本数据库设计中的各个数据表名称进行解释。农产品信息管理清单表名解释

5、农产品信息表用来记录农产品的相关信息用户用来记录登录用户的用户名和密码职员表用来记录管理员的相关信息仓库信息表用来记录仓库里农产品的相关信息农产品信息表农产品信息表是否主键属性名数据类型长度可 空约 束缺省值备 注是产品编号Char(10)10仓库号Char(10)10产品名Char(10)10入库时间Char(20)10库存量Char(10)20总 值 Char(10)10用户信息表用户是否主键属性名数据类型长度可空约 束缺省值备 注是用户名Char(10)10密码Char(20)20职员信息表职员信息表是否主键属性名数据类型长度可空约 束缺省值备 注是管理员号Char(10)10姓名Cha

6、r(10)10性别Char(2)2出生年月Char(40)40联系方式Char(14)14仓库信息表是否主键属性名数据类型长度可 空约 束缺省值备 注是仓库号Char(10)10面 积Char(20)10 号码Char(14)103.2 概念设计 实体集 本数据库E-R图设计中包含4个实体，其中4个实体都是强实体集。实体的具体属性可见下表。农产品信息管理系统实体集农产品信息管理系统实体集实体集属性农产品信息表产品编号、仓库号、产品名、入库时间、库存量、总值职员信息表管理员号、姓名、性别、出生年月、联系方式仓库信息表仓库号、面积、 号码用户用户名、密码 E-R图图3.22 农产品信息管理系统数据

7、库E-R图 概念模型由图3.1的E-R图中实体之间的联系，利用powerdesigner工具概念模型。最终概念模型图如图2所示图3.23农产品信息管理系统数据库概念模型 3.3 逻辑设计 物理模型根据图3.2的概念模型图，可以利用powerdesigner导出农产品管理系统数据库的物理模型图。1农产品信息管理系统数据库物理模型 关系模型根据关系模式转换规则，把图1E-R图转换为关系模式，如下所示(有实下划线的为主码)：·农产品信息=(产品编号,仓库号,产品名,入库时间，库存量，总值)·仓库信息=(仓库号,面积， 号码)·职员信息=(管理员号，姓名，性别，出生年月，

8、联系方式)·用户=(用户名,密码)·管理=(仓库号，管理员号)3.4 数据库实现建立数据库模式及视图 以下将对数据库进行实现，实现的环境为SQLSERVER2008。create database 农产品信息管理on primary( Name=农产品信息管理_data, Filename=' D:数据库课程设计农产品信息.mdf ' , size=10, Filegrowth=10%, maxsize=unlimited )log on( Name=农产品信息管理_log, Filename='D: 数据库课程设计农产品信息.ldf', s

9、ize=1, Filegrowth=10%, maxsize=5)农产品信息表CREATE TABLE 农产品信息表 ( 产品编号 CHAR(10) PRIMARY KEY ,仓库号 CHAR(10) 产品名 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) PRIMARY KEY

10、,姓 名 CHAR(10)，性 别 CHAR(10)，出生年月 CHAR(10)，联系方式CHAR(10)，)4.用户CREATE TABLE 用户( 用户名 CHAR(10) PRIMARY KEY ，密 码 CHAR(30)*新建视图*建立农产品信息视图CREATE VIEW 农产品信息（产品编号，仓库号，入库时间，库存量，总值）ASSELECT 产品编号，仓库号，入库时间，库存量，总值FROM 农产品信息表建立仓库信息视图CREATE VIEW 仓库信息（仓库号，面积， 号码）ASSELECT 仓库号，面积， 号码FROM 仓库信息表建立职员信息CREATE VIEW 职员信息（管理员号

11、，姓名，性别，出生年月，联系方式）ASSELECT 管理员号，姓名，性别，出生年月，联系方式FROM 管理员信息表源代码用户登录Private Sub Command1_Click() Adodc1.Recordset.Find "用户名='" & Text1.Text & " '" SQL = "SELECT 用户名 FROM 用户 WHREE 用户名 LIKE Text1.Text" Adodc1.RecordSource = SQL Static i As Integer If Adodc1.Re

12、cordset.EOF And i < 3 Then MsgBox "用户名错误，请重新输入！", 32, "提示信息" i = i + 1 Text1.Text = "" Exit Sub End If Adodc1.Recordset.Find "密码='" & Text2.Text & " '" SQL = "SELECT 密码 FROM 用户 WHREE 用户名 LIKE Text1.Text" Adodc1.RecordSour

13、ce = SQL If Adodc1.Recordset.EOF And i < 3 Then MsgBox "密码错误，请重新输入！", 32, "提示信息" i = i + 1 Text2.Text = "" Exit Sub End If If i = 3 Then MsgBox "请不起，您无权登录本系统！", 16, "提示信息" Exit Sub End If Text1.Text = "" Text2.Text = ""End SubP

14、rivate Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Adodc1.Recordset.Find "用户名='" & Text1.Text & " '" SQL = "SELECT 用户名 FROM 用户 WHREE 用户名 LIKE Text1.Text" Adodc1.RecordSource = SQL Static i As Integerordset.EOF And i < 3

15、Then MsgBox "用户名错误，请重新输入！", 32, "提示信息" i = i + 1 Text1.Text = "" Exit Sub End If Adodc1.Recordset.Find "密码='" & Text2.Text & " '" SQL = "SELECT 密码 FROM 用户 WHREE 用户名 LIKE Text1.Text" Adodc1.RecordSource = SQL If Adodc1.Record

16、set.EOF And i < 3 Then MsgBox "密码错误，请重新输入！", 32, "提示信息" i = i + 1 Text2.Text = "" Exit Sub End If If i = 3 Then MsgBox "请不起，您无权登录本系统！", 16, "提示信息" Exit Sub End If Text1.Text = "" Text2.Text = "" End IfEnd Sub密码修改Private Sub Com

17、mand1_Click() If Text2.Text <> Text3.Text Then MsgBox "两次新密码输入不一致，请重新输入！", 32, "提示信息" Text2.Text = "" Text3.Text = "" Exit Sub End If If KeyCode = 13 And Text2.Text = Text3.Text Then Adodc1.Recordset.Find "用户名='" & Text4.Text & &quo

18、t; '" SQL = "SELECT 用户名 FROM 用户 WHREE 用户名 LIKE Text4.Text"urce = SQL Adodc1.Recordset("用户名") = Trim$(Text4.Text) Adodc1.Recordset("密码") = Trim$(Text2.Text) MsgBox "密码修改成功！", vbInformation Text1.Text = "" Text2.Text = "" Text3.Text

19、= "" Text4.Text = "" Exit Sub End IfEnd SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Adodc1.Recordset.Find "密码='" & Text1.Text & " '" SQL = "SELECT 密码 FROM 用户 WHREE 用户名 LIKE Text4.Text" Adodc1.

20、RecordSource = SQL If Adodc1.Recordset.EOF And i < 3 Then MsgBox "旧密码密码输入错误，请重新输入！", 32, "提示信息" i = i + 1 Text1.Text = "" Exit Sub End If If i = 3 Then MsgBox "请不起，您无权修改本用户密码！", 16, "提示信息" Exit Sub End If End IfEnd SubPrivate Sub Text3_KeyUp(KeyCo

21、de As Integer, Shift As Integer) If KeyCode = 13 And Text2.Text <> Text3.Text Then MsgBox "两次新密码输入不一致，请重新输入！", 32, "提示信息" Text2.Text = "" Text3.Text = "" Exit Sub End If If KeyCode = 13 And Text2.Text = Text3.Text Then Adodc1.Recordset.Find "用户名=

22、9;" & Text4.Text & " '" SQL = "SELECT 用户名 FROM 用户 WHREE 用户名 LIKE Text4.Text" Adodc1.RecordSource = SQL Adodc1.Recordset("用户名") = Trim$(Text4.Text) Adodc1.Recordset("密码") = Trim$(Text2.Text) MsgBox "密码修改成功！", vbInformation Text1.Text

23、= "" 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.Recordset.Find "用户名='" & Text4.Text & " '" SQL = "SELE

24、CT 用户名 FROM 用户 WHREE 用户名 LIKE Text4.Text" Adodc1.RecordSource = SQL Static i As Integer If Adodc1.Recordset.EOF Then MsgBox "用户名输入错误，请重新输入！", 32, "提示信息" Text4.Text = "" Exit Sub End IfetFocus End IfEnd Sub农产品信息查询Private Sub Command1_Click() Adodc1.Recordset.Find &q

25、uot;产品名='" & Text1.Text & " '" SQL = "SELECT 产品名 FROM 农产品信息表 WHREE 产品名 LIKE Text1.Text" Adodc1.RecordSource = SQLecordset.EOF Then MsgBox "请不起，暂时还没有您要查找的信息！", 32, "提示信息" Text1.Text = "" Exit Sub End If Text2.Text = Adodc1.Records

26、et("产品编号") Text3.Text = Adodc1.Recordset("仓库号") Text4.Text = Adodc1.Recordset("产品名") Text5.Text = Adodc1.Recordset("入库时间") Text6.Text = Adodc1.Recordset("库存量") Text7.Text = Adodc1.Recordset("总值")End SubPrivate Sub Command6_Click() Dim i As

27、Integer i = MsgBox("确定要删除当前记录吗？", 4 + 48, "警告") If i = vbYes Then Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" MsgBox "删除成功！", vbInfo

28、rmation, "提示信息" End IfEnd SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Adodc1.Recordset.Find "产品名='" & Text1.Text & " '" SQL = "SELECT 产品名 FROM 农产品信息表 WHREE 产品名 LIKE Text1.Text" Adodc1.RecordSource = SQL

29、 If Adodc1.Recordset.EOF Then MsgBox "请不起，暂时还没有您要查找的信息！", 32, "提示信息" Text1.Text = "" Exit Sub End If Text2.Text = Adodc1.Recordset("产品编号") Text3.Text = Adodc1.Recordset("仓库号") Text4.Text = Adodc1.Recordset("产品名") Text5.Text = Adodc1.Records

30、et("入库时间") Text6.Text = Adodc1.Recordset("库存量") Text7.Text = Adodc1.Recordset("总值") End IfEnd Sub仓库信息查询Private Sub Command1_Click() Adodc1.Recordset.Find "仓库号='" & Text1.Text & " '" SQL = "SELECT 仓库号 FROM 仓库信息表 WHREE 仓库号 LIKE Tex

31、t1.Text" Adodc1.RecordSource = SQL If Adodc1.Recordset.EOF Then MsgBox "请不起，暂时还没有您要查找的信息！", 32, "提示信息" Text1.Text = "" Exit Sub End If Text2.Text = Adodc1.Recordset("仓库号") Text3.Text = Adodc1.Recordset("面积") Text7.Text = Adodc1.Recordset("

32、号码")End SubPrivate Sub Command4_Click() Dim i As Integer i = MsgBox("确定要删除当前记录吗？", 4 + 48, "警告") If i = vbYes Then Text1.Text = "" Text2.Text = "" Text3.Text = "" Text7.Text = "" MsgBox "删除成功！", vbInformation, "提示信息"

33、; End IfEnd SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Adodc1.Recordset.Find "仓库号='" & Text1.Text & " '" SQL = "SELECT 仓库号 FROM 仓库信息表 WHREE 仓库号 LIKE Text1.Text" Adodc1.RecordSource = SQL If Adodc1.Recordset.EOF

34、Then MsgBox "请不起，暂时还没有您要查找的信息！", 32, "提示信息" = "" Exit Sub End If Text2.Text = Adodc1.Recordset("仓库号") Text3.Text = Adodc1.Recordset("面积") Text7.Text = Adodc1.Recordset(" 号码") End IfEnd Sub职员信息查询Private Sub Command1_Click() Adodc1.Recordset.

35、Find "姓名='" & Text1.Text & " '" SQL = "SELECT 姓名 FROM 职员信息表 WHREE 姓名 LIKE Text1.Text " Adodc1.RecordSource = SQL If Adodc1.Recordset.EOF Then MsgBox "请不起，暂时还没有您要查找的信息！", 32, "提示信息" Text1.Text = "" Exit Sub End If Text2.Text

36、= Adodc1.Recordset("管理员号") Text3.Text = Adodc1.Recordset("姓名") Text4.Text = Adodc1.Recordset("性别") Text5.Text = Adodc1.Recordset("出生年月") Text6.Text = Adodc1.Recordset("联系方式")End SubPrivate Sub Command6_Click() Dim i As Integer i = MsgBox("确定要删除当

37、前记录吗？", 4 + 48, "警告") If i = vbYes Then Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" MsgBox "删除成功！", vbInformation, "提示信息" End IfEnd SubPrivate Sub Text1_

38、KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Thenrst Adodc1.Recordset.Find "姓名='" & Text1.Text & " '" SQL = "SELECT 姓名 FROM 职员信息表 WHREE 姓名 LIKE Text1.Text" Adodc1.RecordSource = SQL If Adodc1.Recordset.EOF Then MsgBox "请不起，暂时还没有您要查找的信

39、息！", 32, "提示信息" Text1.Text = "" Exit Sub End If Text2.Text = Adodc1.Recordset("管理员号") Text3.Text = Adodc1.Recordset("姓名") Text4.Text = Adodc1.Recordset("性别") Text5.Text = Adodc1.Recordset("出生年月") Text6.Text = Adodc1.Recordset("联系方

40、式") End IfEnd Sub新增农产品信息Private Sub Command2_Click() If Text1.Text = "" Then MsgBox "请输入农产品编名！", vbExclamation Exit Sub End If If Text2.Text = "" Then MsgBox "请输入农产品名！", vbExclamation Exit Sub End If If Text3.Text = "" Then MsgBox "请输入农产品入库

41、号！", vbExclamation Exit Sub End If Adodc1.Recordset.Find ("产品编号= '" & Text1.Text & " ' ") If Not Adodc1.Recordset.EOF Then MsgBox "产品号重复，请重新输入！", vbExclamation Exit Sub End If Adodc1.Recordset.Find ("产品名= '" & Text3.Text & &quo

42、t; ' ") If Not Adodc1.Recordset.EOF Then MsgBox "产品名重复，请重新输入！", vbExclamation Exit Sub Else 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) = Trim$(Text4.Text) A

43、dodc1.Recordset.Fields(4) = Trim$(Text5.Text) Adodc1.Recordset.Fields(5) = Trim$(Text6.Text) MsgBox "农产品信息已经添加成功！", vbInformation Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" End

44、IfEnd SubPrivate Sub Text6_Change() If KeyCode = 13 Then If Text1.Text = "" Then MsgBox "请输入农产品编名！", vbExclamation Exit Sub End If If Text2.Text = "" Then MsgBox "请输入农产品名！", vbExclamation Exit Sub End If If Text3.Text = "" Then MsgBox "请输入农产品入库号

45、！", vbExclamation Exit Sub End If Adodc1.Recordset.Find ("产品编号= '" & Text1.Text & " ' ") If Not Adodc1.Recordset.EOF Then MsgBox "产品号重复，请重新输入！", vbExclamation Exit Sub End If Adodc1.Recordset.Find ("产品名= '" & Text3.Text & "

46、; ' ") If Not Adodc1.Recordset.EOF Then MsgBox "产品名重复，请重新输入！", vbExclamation Exit Sub Else 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) = Trim$(Text4.Text) Ad

47、odc1.Recordset.Fields(4) = Trim$(Text5.Text) Adodc1.Recordset.Fields(5) = Trim$(Text6.Text) MsgBox "农产品信息已经添加成功！", vbInformation Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" End I

48、f End IfEnd Sub新增仓库信息Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "请输入仓库号！", vbExclamation Exit Sub End If If Text2.Text = "" Then MsgBox "请输入面积！", vbExclamation Exit Sub End If Adodc1.Recordset.Find ("仓库号= '" & Text1.Text &

49、; " ' ") If Not Adodc1.Recordset.EOF Then MsgBox "仓库号重复，请重新输入！", vbExclamation Exit Sub ElsedNew Adodc1.Recordset.Fields(0) = Trim$(Text1.Text) Adodc1.Recordset.Fields(1) = Trim$(Text2.Text) Adodc1.Recordset.Fields(2) = Trim$(Text3.Text) MsgBox "仓库信息已经添加成功！", vbInfo

50、rmation Text1.Text = "" Text2.Text = "" Text3.Text = "" End IfEnd Sub新增职员信息Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "请输入管理员号！", vbExclamation Exit Sub End If If Text2.Text = "" Then MsgBox "请输入管理员姓名！", vbExclama

51、tion Exit Sub End If Adodc1.Recordset.Find ("管理员号= '" & Text1.Text & " ' ") If Not Adodc1.Recordset.EOF Then MsgBox "管理员号重复，请重新输入！", vbExclamation Exit Sub Else Adodc1.Recordset.Fields(0) = Trim$(Text1.Text) Adodc1.Recordset.Fields(1) = Trim$(Text2.Text)

52、 Adodc1.Recordset.Fields(2) = Trim$(Text3.Text) Adodc1.Recordset.Fields(3) = Trim$(Text4.Text) Adodc1.Recordset.Fields(4) = Trim$(Text5.Text) MsgBox "管理员信息添加成功！", vbInformation Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Tex

53、t = "" End IfEnd SubPrivate Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = ""End SubPrivate Sub Text5_Change() If KeyCode = 13 Then If Text1.Text = "" Then MsgBox "请输入管理员号！&q

54、uot;, vbExclamation Exit Sub End If If Text2.Text = "" Then MsgBox "请输入管理员姓名！", vbExclamation Exit Sub End If Adodc1.Recordset.Find ("管理员号= '" & Text1.Text & " ' ") If Not Adodc1.Recordset.EOF Then MsgBox "管理员号重复，请重新输入！", vbExclamation Exit Sub Else 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) = Trim$(Text4.Text) Adodc1.Recordset.Fields(4) = Trim$(Text5.Text) MsgBox "管理员信息添加成功！&