书店进销存数据库管理系统设计报告.doc

1、惠州学院书店进销存管理系统设计报告课题名称：书店进销存管理系统设计与实现专业：电子信息工程班级: 11 电信 1班 学生姓名：陈锦荣 陈逸宝 吴潭辉学号：110703103 110703107 110703133指导老师：胡珏目 录 摘要该书店数据库管理系统设计报告全文共分为摘要、关键词、前言、系统分析、系统设计、数据库实现与设计、系统界面的设计与开发、小结、参考文献等八个部分详细阐述了系统分析、系统设计、数据库设计、系统界面的设计的方法及其内容。本系统以数据库的四大基本操作，添加，删除，查询，修改为基础操作完成了用户要求的全部功能。同时本系统还具有可靠性好，容错能力强，界面友好，易于维护和易

2、于扩充等特点。关键词Visual Basic, Access,数据库, 书店管理系统。前言随着计算机技术的不断发展, 它已经成为人们工作和生活中不可缺少的工具。早在1954 年银行、大公司和大企业纷纷采用计算机进行帐户和账目管理、生产管理、库存管理、销售管理、统计报表等。从数据的收集、存储、整理到检索统计应用的范围日益扩大，使计算机的应用很快超过科学计算成为最大的计算机应用领域。数据处理应用的不断扩大，推动了数据库管理系统、表处理软件、以及用于分析和预测等软件的发展。数据处理是现代化管理的基础。它不仅适用于处理日常的事务且能支持科学的管理与决策。以一个企业为例，从市场预测 到经营决策、生产管理

3、、财务管理、销售服务等无不与数据处理有关。随着本书店规模的不断扩大，员工人数的不断增多，使得手操作管理模式的局限性越发突出而使用现有的书店管理系统又不能满足本书店的实际情况。如：会员只需在本书店保留会员卡号、个人基本资料而不需要在本书店存入一定数额的资金还有零售折扣的设置有别于其它书店管理系统 本系统是根据图书类别来设置零售折扣的所以开发具有时代特点的具有高效管理能力的本书店进销存管理系统很有意义。第一章 系统分析1.1 书店业务流程1.2 数据流图数据流图,简称 DFD.数据流图是组织中信息运动的抽象。从系统的科学性、管理的合理性、实际运动的可行性角度出发,将信息处理功能和彼此之间的联系。

4、1.3 数据字典图书资料表字段名称 数据类型 长度 小数位数 说明图书编号 字符型 8 书的编号有 8 位，第一二位是国家代号，第三四位是出版社代号。书名 字符型 40 图书名称进价 字符型 10 2 图书定价进货折扣 数值型 10 2 进货时，供应商销售给书店的折扣库存量 数值型 10 仓库现存量销售价 数值型 10 2 零售价会员折扣 数值型 10 2 折扣作者 字符型 40出版社 字符型 40简介 字符型 100 与本书相关的信息进货总表字段名称 类型 长度 小数位数 说明进货单号 整型 4进货日期 日期型 8供应商名称 字符型 30进货折扣 数值型 10 2总数量 整型 4进货总价 数

5、值型 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 “

6、男”或“女”职务 字符型 30出生日期 日期型 8 出生日期，如:”2000-10-10”身份证号 字符型 20 身份证号必须为 18 位联系地址 字符型 100 联系地赴，如：安庭地址等联系电话 字符型 20供应商资料字段名称 类型 宽度 说明供应商编号 字符型 10供应商名称 字符型 40供应商联系电话 字符型 20会员资料字段名称 类型 宽度 小数位数 说明会员卡号 字符型 10会员姓名 字符型 40会员邮箱 字符型 20会员联系电话 字符型 20会员等级 数值型 1会员折扣 数值型 10 2注册日期 日期型 8第二章 系统设计2.1 系统设计目标这个阶段的主要目标是将系统分析阶段所提出

7、的反映了用户信息要求的系统逻辑方案转换成可以实施的基于计算机的物理方案。2.2 系统功能分析与设计书店管理系统的功能模块如图进货管理图书资料 进货退货供应信息 图书入库 付款处理销售管理第三章 数据库设计3.1 概念结构设计ER 设计方法是一种通过 ER 图来描述现实世界信息结构的 DB 设计方法。本系统的ER 图如图所示。会员资料 定购零售 配送 付款处理图书统计销售统计 库存统计 畅销统计 缺货统计系统管理员工管理 权限管理 系统维护 数据管理3.2 逻辑结构设计供应商信息：供应商代号，供应商名称，供应商联系电话。员工信息：员工编号，员工姓名，员工性别，职务，出生日期，身份证号，联系地址。

8、图书资料：图书编号，书名，进价，进货折扣，库存量，销售价，会员折扣，作者，出版社，简介。会员信息：会员卡号，姓名，邮箱，联系电话，会员等级，会员折扣，注册日期。第四章 系统各模块详细介绍4.1 系统总控表单的介绍人员管理，读者管理，图书管理4.2 进货管理的介绍4.3 销售管理的介绍2 4.4 内部管理的介绍.4.5 图书统计的介绍4.6 系统管理的介绍第五章 开发总结本团队在开发此书店管理系统秉着简单易用的原则，争取让使用者快速上手，从而极大的方便了小型书店经销商。5.1 结果分析由于团队技术水平有限，该系统只能在 WIN7 的桌面上才能正常运行，在其他的地址下，须修改 ADO 的属性值，重

9、新联接方可再次重新正常运行。5.2 结束语第六章 软件截图第七章 软件源代码1，入口模块Private Sub Command1_Click()Dim usename As StringDim password As Stringusename = “胡老师“password = “qq123“If usename = Text1.Text ThenIf password = Text2.Text ThenMsgBox “胡老师，观迎您进入小菜书店管理系统.“Loading.HideForm2.ShowElse: MsgBox “Either your usename or password

10、is not true. Please try again.“End IfElse: MsgBox “Either your usename or password is not true. Please try again.“End IfEnd SubPrivate Sub Command2_Click()Dim exflag As Integerexflag = MsgBox(“确认退出？“, 1)If exflag = 1 ThenEndEnd IfEnd SubPrivate Sub Form_Load()Text1.Text = “胡老师“Text2.Text = “qq123“En

11、d Sub2，主界面模块Private Sub Exit_Click()MsgBox “作者：陈锦荣 110703103，陈逸宝 110703107，吴潭辉 110703133“Dim exitflag As Integerexitflag = MsgBox(“Are you sure exit ?“, 1)If exitflag = 1 ThenEndEnd IfEnd SubPrivate Sub Form_Load()MsgBox “ 您好，该系统只能在D 盘根目录下正常使用，请您检查存放路径！无误，请点击确定。“End SubPrivate Sub MenFileClose_Click

12、()EndEnd SubPrivate Sub MenManageChange_Click()Form2.HideLoading.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.IndexCase 1Form2.Hidebooks.ShowCase 2Form2.Hideemployee.ShowCase 3Form2.Hidereader.ShowCase 4MsgBox “前面，有闯红灯照相，限速 60 公里！“Case 5MsgBox “施工

13、中,请绕道。“Case 6MsgBox “作者：陈锦荣 110703103，陈逸宝 110703107，吴潭辉 110703133“EndEnd SelectEnd Sub3，图书资料管理模块Private Sub Command1_Click()Command2.Enabled = TrueIf Adodc1.Recordset.AbsolutePosition = 1 ThenCommand1.Enabled = FalseElse: Adodc1.Recordset.MovePreviousEnd IfEnd SubPrivate Sub Command2_Click()Command1

14、.Enabled = TrueIf Adodc1.Recordset.AbsolutePosition = Adodc1.Recordset.RecordCount ThenCommand2.Enabled = FalseElse: Adodc1.Recordset.MoveNextEnd IfEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.SaveAdodc1.Recordset.UpdateAdodc1.Recordset.MoveFirstAdodc1.Recordset.MoveLastMsgBox “图书数据成功保存！“Comm

15、and3.Enabled = FalseEnd SubPrivate Sub Form_Load()Command1.Enabled = FalseCommand3.Enabled = FalseEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.KeyCase “searchbook“name1$ = “请输入要查询的供货商编号:“name2$ = InputBox(name1, “查询记录“)Adodc1.Recordset.Find “图书编号=“ &

16、“ & name2$ & “If Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveFirstEnd IfCase “newbook“Command3.Enabled = TrueMsgBox “增加完成后请点击确定!“If Adodc1.Recordset.RecordCount 0 ThenAdodc1.Recordset.MoveLastAdodc1.Recordset.AddNewElse: Adodc1.Recordset.AddNewEnd IfCase “deleteemployee“Dim delflag As Integerdelfl

17、ag = MsgBox(“确定删除员工相关信息？“, vbOKCancel)If delflag = 1 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.UpdateAdodc1.Recordset.MoveFirstAdodc1.Recordset.MoveLastMsgBox “删除员工信息成功!“Command1.Enabled = FalseCommand2.Enabled = TrueEnd IfCase “modifyemployee“Command3.Enabled = TrueAdodc1.Recordset.SaveCommand3.E

18、nabled = FalseMsgBox “员工信息修改成功！“Case “exite“employee.HideForm2.ShowEnd SelectEnd Sub5，会员管理模块Private Sub Command1_Click()Command2.Enabled = TrueIf Adodc2.Recordset.AbsolutePosition = 1 ThenCommand1.Enabled = FalseElse: Adodc2.Recordset.MovePreviousEnd IfEnd SubPrivate Sub Command2_Click()Command1.Ena

19、bled = TrueIf Adodc2.Recordset.AbsolutePosition = Adodc2.Recordset.RecordCount ThenCommand2.Enabled = FalseElse: Adodc2.Recordset.MoveNextEnd IfEnd SubPrivate Sub Command3_Click()Adodc2.Recordset.SaveAdodc2.Recordset.UpdateAdodc2.Recordset.MoveFirstAdodc2.Recordset.MoveLastMsgBox “会员数据成功保存！“Command3

20、.Enabled = FalseEnd SubPrivate Sub Form_Load()Command1.Enabled = FalseCommand3.Enabled = FalseEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.KeyCase “searchreader“name1$ = “请输入要查询的会员卡号:“name2$ = InputBox(name1, “查询记录“)Adodc2.Recordset.Find “会员卡号=“ & “ &

21、 name2$ & “If Adodc2.Recordset.EOF ThenAdodc2.Recordset.MoveFirstEnd IfCase “newreader“Command3.Enabled = TrueMsgBox “增加完成后请点击确定!“If Adodc2.Recordset.RecordCount 0 ThenAdodc2.Recordset.MoveLastAdodc2.Recordset.AddNewElse: Adodc2.Recordset.AddNewEnd IfCase “deletereader“Dim delflag As Integerdelflag

22、= MsgBox(“确定删除会员相关信息？“, vbOKCancel)If delflag = 1 ThenAdodc2.Recordset.DeleteAdodc2.Recordset.UpdateAdodc2.Recordset.MoveFirstAdodc2.Recordset.MoveLastMsgBox “删除图书信息成功!“Command1.Enabled = FalseCommand2.Enabled = TrueEnd IfCase “modifyreader“Command3.Enabled = TrueAdodc2.Recordset.SaveCommand3.Enabled = FalseMsgBox “会员信息修改成功！“Case “exitr“reader.HideForm2.ShowEnd SelectEnd Sub第八章 参考文献1，宁波电子通信大学 VB 教程2， Visual Basic 程序设计标准教程3， Visual Basic 范例完全自学手册