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

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 数据库实现103.4.1建立数据库模式及视图103.4.2源代码124 结 论405 致 谢416 参考文献427 附 录431 引 言随着计算机

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

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

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

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

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

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

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

9、ldf, size=1, Filegrowth=10%, maxsize=5)1.建立农产品信息表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) P

10、RIMARY KEY ,姓 名 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 V

11、IEW 职员信息（管理员号，姓名，性别，出生年月，联系方式）ASSELECT 管理员号，姓名，性别，出生年月，联系方式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 请不起，您无权登录本系统！, 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 请不起，您无权登录本系统！, 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 请不起，您无权修改本用户密码！, 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农产品信息查询

23、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, 提示信息 Text1.Text = Text1.SetFocus Exit Sub End If Text2.Text =

24、Adodc1.Recordset(产品编号) 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 Integer i = MsgBox(确定要删除当前记录吗？, 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 产品名= & 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(仓

27、库号) Text4.Text = Adodc1.Recordset(产品名) 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(确定要删除当前记录吗？, 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(联系方式)End SubPrivate Sub Command6_Click() Dim i As Integer i = MsgBox(确定要删除

33、当前记录吗？, 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(联系方式) End IfEnd Sub新增农产品信息Private Sub Command2_Click() If Text1.Text = Then MsgBox 请输入农产品编名！, vbExclamation Text1.SetFocus Exit Sub End If If Text2.Text = Then MsgBox 请输入农产品名！, vbExclamation Text2.SetFocus

36、Exit Sub End If If Text3.Text = Then MsgBox 请输入农产品入库号！, vbExclamation Text3.SetFocus Exit Sub End If Adodc1.Refresh Adodc1.Recordset.Find (产品编号= & Text1.Text & ) If Not Adodc1.Recordset.EOF Then MsgBox 产品号重复，请重新输入！, vbExclamation Text1.SetFocus Exit Sub End If Adodc1.Recordset.Find (产品名= & Text3.Tex

37、t & ) If Not Adodc1.Recordset.EOF Then MsgBox 产品名重复，请重新输入！, 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 农产品信息已经添加成功！, 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 请输入农产品编名！, vbExclamation Text1.SetFocus Exit Sub End If If Text2.Text = Then MsgBox 请输入农产品名！, vbExclamation Text2.SetFocus Exit Sub End If If Text3.Text = Then MsgBox 请输入农产品入库号！, vbExclamation Text3.SetFocus Exit Sub End If Adodc1.Refresh Adodc1.Reco

40、rdset.Find (产品编号= & Text1.Text & ) If Not Adodc1.Recordset.EOF Then MsgBox 产品号重复，请重新输入！, vbExclamation Text1.SetFocus Exit Sub End If Adodc1.Recordset.Find (产品名= & Text3.Text & ) If Not Adodc1.Recordset.EOF Then MsgBox 产品名重复，请重新输入！, 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 农产品信息已经添加成功！, 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 仓库号重复，请重新输入！, vbExclamation Text1.SetFocus Exit Sub Else