书店进销存数据库管理系统设计报告.docx
《书店进销存数据库管理系统设计报告.docx》由会员分享，可在线阅读，更多相关《书店进销存数据库管理系统设计报告.docx（25页珍藏版）》请在冰豆网上搜索。
书店进销存数据库管理系统设计报告
惠州学院
《书店进销存管理系统》
设计报告
课题名称：
书店进销存管理系统设计与实现
专业：
电子信息工程
班级:
11电信1班
学生姓名：
陈锦荣陈逸宝吴潭辉
学号：
***************************
指导老师：
***
摘要
该书店数据库管理系统设计报告全文共分为摘要、关键词、前言、系统分析、系统设计、数据库实现与设计、系统界面的设计与开发、小结、参考文献等八个部分详细阐述了系统分析、系统设计、数据库设计、系统界面的设计的方法及其内容。
本系统以数据库的四大基本操作，添加，删除，查询，修改为基础操作完成了用户要求的全部功能。
同时本系统还具有可靠性好，容错能力强，界面友好，易于维护和易于扩充等特点。
关键词
VisualBasic,Access,数据库,书店管理系统。
前言
随着计算机技术的不断发展,它已经成为人们工作和生活中不可缺少的工具。
早在1954年银行、大公司和大企业纷纷采用计算机进行帐户和账目管理、生产管理、库存管理、销售管理、统计报表等。
从数据的收集、存储、整理到检索统计应用的范围日益扩大，使计算机的应用很快超过科学计算成为最大的计算机应用领域。
数据处理应用的不断扩大，推动了数据库管理系统、表处理软件、以及用于分析和预测等软件的发展。
数据处理是现代化管理的基础。
它不仅适用于处理日常的事务且能支持科学的管理与决策。
以一个企业为例，从市场预测到经营决策、生产管理、财务管理、销售服务等无不与数据处理有关。
随着本书店规模的不断扩大，员工人数的不断增多，使得手操作管理模式的局限性越发突出而使用现有的书店管理系统又不能满足本书店的实际情况。
如：
会员只需在本书店保留会员卡号、个人基本资料而不需要在本书店存入一定数额的资金还有零售折扣的设置有别于其它书店管理系统本系统是根据图书类别来设置零售折扣的所以开发具有时代特点的具有高效管理能力的本书店进销存管理系统很有意义。
第一章系统分析
1.1书店业务流程
1.2数据流图
数据流图,简称DFD.数据流图是组织中信息运动的抽象。
从系统的科学性、管理的合理性、实际运动的可行性角度出发,将信息处理功能和彼此之间的联系。
1.3数据字典
图书资料表
字段名称
数据类型
长度
小数位数
说明
图书编号
字符型
8
书的编号有8位，第一二位是国家代号，第三四位是出版社代号。
书名
字符型
40
图书名称
进价
字符型
10
2
图书定价
进货折扣
数值型
10
2
进货时，供应商销售给书店的折扣
库存量
数值型
10
仓库现存量
销售价
数值型
10
2
零售价
会员折扣
数值型
10
2
折扣
作者
字符型
40
出版社
字符型
40
简介
字符型
100
与本书相关的信息
进货总表
字段名称
类型
长度
小数位数
说明
进货单号
整型
4
进货日期
日期型
8
供应商名称
字符型
30
进货折扣
数值型
10
2
总数量
整型
4
进货总价
数值型
8
2
经手人
字符型
10
录入这张进货单据的人员编号
零售总表
字段名称
类型
长度
小数位数
说明
零售单号
整型
12
前10位为日期时间，如“201206051101”2012年06月05号11点第01笔单
总数量
整型
4
总实洋
数值型
10
2
零售日期
日期型
8
操作人员
字符型
10
操作人员编号
零售信息
字段名称
类型
长度
小数位数
说明
零售单号
整型
4
图书编号
字符型
8
书名
数量
整型
4
销售价
数值型
10
2
会员折扣
数值型
10
2
总收入
数值型
10
2
销售日期
员工信息表
字段名称
类型
宽度
小数位数
说明
员工编号
字符型
10
性别
字符型
2
“男”或“女”
职务
字符型
30
出生日期
日期型
8
出生日期，如:
”2000-10-10”
身份证号
字符型
20
身份证号必须为18位
联系地址
字符型
100
联系地赴，如：
安庭地址等
联系电话
字符型
20
供应商资料
字段名称
类型
宽度
说明
供应商编号
字符型
10
供应商名称
字符型
40
供应商联系电话
字符型
20
会员资料
字段名称
类型
宽度
小数位数
说明
会员卡号
字符型
10
会员姓名
字符型
40
会员邮箱
字符型
20
会员联系电话
字符型
20
会员等级
数值型
1
会员折扣
数值型
10
2
注册日期
日期型
8
第二章系统设计
2.1系统设计目标
这个阶段的主要目标是将系统分析阶段所提出的反映了用户信息要求的系统逻辑方案转换成可以实施的基于计算机的物理方案。
2.2系统功能分析与设计
书店管理系统的功能模块如图
第三章数据库设计
3.1概念结构设计
E—R设计方法是一种通过E—R图来描述现实世界信息结构的DB设计方法。
本系统的E—R图如图所示。
3.2逻辑结构设计
供应商信息：
供应商代号，供应商名称，供应商联系电话。
员工信息：
员工编号，员工姓名，员工性别，职务，出生日期，身份证号，联系地址。
图书资料：
图书编号，书名，进价，进货折扣，库存量，销售价，会员折扣，作者，出版社，简介。
会员信息：
会员卡号，姓名，邮箱，联系电话，会员等级，会员折扣，注册日期。
第四章系统各模块详细介绍
4.1系统总控表单的介绍
人员管理，读者管理，图书管理
4.2进货管理的介绍
4.3销售管理的介绍
24.4内部管理的介绍.
4.5图书统计的介绍
4.6系统管理的介绍
第五章开发总结
本团队在开发此书店管理系统秉着简单易用的原则，争取让使用者快速上手，从而极大的方便了小型书店经销商。
5.1结果分析
由于团队技术水平有限，该系统只能在WIN7的桌面上才能正常运行，在其他的地址下，须修改ADO的属性值，重新联接方可再次重新正常运行。
5.2结束语
第六章软件截图
第七章软件源代码
1，入口模块
PrivateSubCommand1_Click（）
DimusenameAsString
DimpasswordAsString
usename="胡老师"
password="qq123"
Ifusename=Text1.TextThen
Ifpassword=Text2.TextThen
MsgBox"胡老师，观迎您进入小菜书店管理系统."
Loading.Hide
Form2.Show
Else:
MsgBox"Eitheryourusenameorpasswordisnottrue.Pleasetryagain."
EndIf
Else:
MsgBox"Eitheryourusenameorpasswordisnottrue.Pleasetryagain."
EndIf
EndSub
PrivateSubCommand2_Click（）
DimexflagAsInteger
exflag=MsgBox（"确认退出？
",1）
Ifexflag=1Then
End
EndIf
EndSub
PrivateSubForm_Load（）
Text1.Text="胡老师"
Text2.Text="qq123"
EndSub
2，主界面模块
PrivateSubExit_Click（）
MsgBox"作者：
陈锦荣110703103，陈逸宝110703107，吴潭辉110703133"
DimexitflagAsInteger
exitflag=MsgBox（"Areyousureexit?
",1）
Ifexitflag=1Then
End
EndIf
EndSub
PrivateSubForm_Load（）
MsgBox"您好，该系统只能在'D盘'根目录下正常使用，请您检查存放路径！
无误，请点击'确定'。
"
EndSub
PrivateSubMenFileClose_Click（）
End
EndSub
PrivateSubMenManageChange_Click（）
Form2.Hide
Loading.Show
EndSub
PrivateSubToolbar1_ButtonClick（ByValButtonAsMSComctlLib.Button）
SelectCaseButton.Index
Case1
Form2.Hide
books.Show
Case2
Form2.Hide
employee.Show
Case3
Form2.Hide
reader.Show
Case4
MsgBox"前面，有闯红灯照相，限速60公里！
"
Case5
MsgBox"施工中,请绕道。
"
Case6
MsgBox"作者：
陈锦荣110703103，陈逸宝110703107，吴潭辉110703133"
End
EndSelect
EndSub
3，图书资料管理模块
PrivateSubCommand1_Click（）
Command2.Enabled=True
IfAdodc1.Recordset.AbsolutePosition=1Then
Command1.Enabled=False
Else:
Adodc1.Recordset.MovePrevious
EndIf
EndSub
PrivateSubCommand2_Click（）
Command1.Enabled=True
IfAdodc1.Recordset.AbsolutePosition=Adodc1.Recordset.RecordCountThen
Command2.Enabled=False
Else:
Adodc1.Recordset.MoveNext
EndIf
EndSub
PrivateSubCommand3_Click（）
Adodc1.Recordset.Save
Adodc1.Recordset.Update
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.MoveLast
MsgBox"图书数据成功保存！
"
Command3.Enabled=False
EndSub
PrivateSubForm_Load（）
Command1.Enabled=False
Command3.Enabled=False
EndSub
PrivateSubToolbar1_ButtonClick（ByValButtonAsMSComctlLib.Button）
SelectCaseButton.Key
Case"searchbook"
name1$="请输入要查询的供货商编号:
"
name2$=InputBox（name1,"查询记录"）
Adodc1.Recordset.Find"图书编号="&"'"&name2$&"'"
IfAdodc1.Recordset.EOFThen
Adodc1.Recordset.MoveFirst
EndIf
Case"newbook"
Command3.Enabled=True
MsgBox"增加完成后请点击确定!
"
IfAdodc1.Recordset.RecordCount<>0Then
Adodc1.Recordset.MoveLast
Adodc1.Recordset.AddNew
Else:
Adodc1.Recordset.AddNew
EndIf
Case"deletebook"
DimdelflagAsInteger
delflag=MsgBox（"确定删除书籍相关信息？
",vbOKCancel）
Ifdelflag=1Then
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.MoveLast
MsgBox"删除书籍信息成功!
"
Command1.Enabled=False
Command2.Enabled=True
EndIf
Case"modifybook"
Command3.Enabled=True
Adodc1.Recordset.Save
Command3.Enabled=False
MsgBox"书籍信息修改成功！
"
Case"exitb"
books.Hide
Form2.Show
EndSelect
EndSub
4，员工管理程序模块
PrivateSubCommand1_Click（）
Command2.Enabled=True
IfAdodc1.Recordset.AbsolutePosition=1Then
Command1.Enabled=False
Else:
Adodc1.Recordset.MovePrevious
EndIf
EndSub
PrivateSubCommand2_Click（）
Command1.Enabled=True
IfAdodc1.Recordset.AbsolutePosition=Adodc1.Recordset.RecordCountThen
Command2.Enabled=False
Else:
Adodc1.Recordset.MoveNext
EndIf
EndSub
PrivateSubCommand3_Click（）
Adodc1.Recordset.Save
Adodc1.Recordset.Update
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.MoveLast
MsgBox"员工数据成功保存！
"
Command3.Enabled=False
EndSub
PrivateSubForm_Load（）
Command1.Enabled=False
Command3.Enabled=False
EndSub
PrivateSubToolbar1_ButtonClick（ByValButtonAsMSComctlLib.Button）
SelectCaseButton.Key
Case"searchemployee"
name1$="请输入要查询的员工编号:
"
name2$=InputBox（name1,"查询记录"）
Adodc1.Recordset.Find"编号="&"'"&name2$&"'"
IfAdodc1.Recordset.EOFThen
Adodc1.Recordset.MoveFirst
EndIf
Case"newemployee"
Command3.Enabled=True
MsgBox"增加完成后请点击确定!
"
IfAdodc1.Recordset.RecordCount<>0Then
Adodc1.Recordset.MoveLast
Adodc1.Recordset.AddNew
Else:
Adodc1.Recordset.AddNew
EndIf
Case"deleteemployee"
DimdelflagAsInteger
delflag=MsgBox（"确定删除员工相关信息？
",vbOKCancel）
Ifdelflag=1Then
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.MoveLast
MsgBox"删除员工信息成功!
"
Command1.Enabled=False
Command2.Enabled=True
EndIf
Case"modifyemployee"
Command3.Enabled=True
Adodc1.Recordset.Save
Command3.Enabled=False
MsgBox"员工信息修改成功！
"
Case"exite"
employee.Hide
Form2.Show
EndSelect
EndSub
5，会员管理模块
PrivateSubCommand1_Click（）
Command2.Enabled=True
IfAdodc2.Recordset.AbsolutePosition=1Then
Command1.Enabled=False
Else:
Adodc2.Recordset.MovePrevious
EndIf
EndSub
PrivateSubCommand2_Click（）
Command1.Enabled=True
IfAdodc2.Recordset.AbsolutePosition=Adodc2.Recordset.RecordCountThen
Command2.Enabled=False
Else:
Adodc2.Recordset.MoveNext
EndIf
EndSub
PrivateSubCommand3_Click（）
Adodc2.Recordset.Save
Adodc2.Recordset.Update
Adodc2.Recordset.MoveFirst
Adodc2.Recordset.MoveLast
MsgBox"会员数据成功保存！
"
Command3.Enabled=False
EndSub
PrivateSubForm_Load（）
Command1.Enabled=False
Command3.Enabled=False
EndSub
PrivateSubToolbar1_ButtonClick（ByValButtonAsMSComctlLib.Button）
SelectCaseButton.Key
Case"searchreader"
name1$="请输入要查询的会员卡号:
"
name2$=InputBox（name1,"查询记录"）
Adodc2.Recordset.Find"会员卡号="&"'"&name2$&"'"
IfAdodc2.Recordset.EOFThen
Adodc2.Recordset.MoveFirst
EndIf
Case"newreader"
Command3.Enabled=True
MsgBox"增加完成后请点击确定!
"
IfAdodc2.Recordset.RecordCount<>0Then
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Else:
Adodc2.Recordset.AddNew
EndIf
Case"deletereader"
DimdelflagAsInteger
delflag=MsgBox（"确定删除会员相关信息？
",vbOKCancel）
Ifdelflag=1Then
Adodc2.Recordset.Delete
Adodc2.Recordset.Update
Adodc2.Recordset.MoveFirst
Adodc2.Recordset.MoveLast
MsgBox"删除图书信息成功!
"
Command1.Enabled=False
Command2.Enabled=True
EndIf
Case"modifyreader"
Command3.Enabled=True
Adodc2.Recordset.Save
Command3.Enabled=False
MsgBox"会员信息修改成功！
"
Case"exitr"
reader.Hide
Form2.Show
EndSelect
EndSub
第八章参考文献
1，宁波电子通信大学VB教程
2，VisualBasic程序设计标准教程
3，VisualBasic范例完全自学手册
升级会员 