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

惠州学院书店进销存管理系统设计报告课题名称：书店进销存管理系统设计与实现专业：电子信息工程班级: 11电信1班 学生姓名：陈锦荣 陈逸宝 吴潭辉学号：110703103 110703107 110703133指导老师：胡珏目 录 摘要该书店数据库管理系统设计报告全文共分为摘要、关键词、前言、系统分析、系统设计、数据库实现与设计、系统界面的设计与开发、小结、参考文献等八个部分详细阐述了系统分析、系统设计、数据库设计、系统界面的设计的方法及其内容。本系统以数据库的四大基本操作，添加，删除，查询，修改为基础操作完成了用户要求的全部功能。同时本系统还具有可靠性好，容错能力强，界面友好，易于维护和易于扩充等特点。关键词Visual Basic, Access,数据库,书店管理系统。前言随着计算机技术的不断发展, 它已经成为人们工作和生活中不可缺少的工具。早在1954年银行、大公司和大企业纷纷采用计算机进行帐户和账目管理、生产管理、库存管理、销售管理、统计报表等。从数据的收集、存储、整理到检索统计应用的范围日益扩大，使计算机的应用很快超过科学计算成为最大的计算机应用领域。数据处理应用的不断扩大，推动了数据库管理系统、表处理软件、以及用于分析和预测等软件的发展。数据处理是现代化管理的基础。它不仅适用于处理日常的事务且能支持科学的管理与决策。以一个企业为例，从市场预测到经营决策、生产管理、财务管理、销售服务等无不与数据处理有关。随着本书店规模的不断扩大，员工人数的不断增多，使得手操作管理模式的局限性越发突出而使用现有的书店管理系统又不能满足本书店的实际情况。如：会员只需在本书店保留会员卡号、个人基本资料而不需要在本书店存入一定数额的资金还有零售折扣的设置有别于其它书店管理系统本系统是根据图书类别来设置零售折扣的所以开发具有时代特点的具有高效管理能力的本书店进销存管理系统很有意义。第一章 系统分析1.1书店业务流程1.2 数据流图数据流图,简称DFD.数据流图是组织中信息运动的抽象。从系统的科学性、管理的合理性、实际运动的可行性角度出发,将信息处理功能和彼此之间的联系。 1.3 数据字典图书资料表字段名称数据类型长度小数位数说明图书编号字符型8书的编号有8位，第一二位是国家代号，第三四位是出版社代号。书名字符型40图书名称进价字符型102图书定价进货折扣数值型102进货时，供应商销售给书店的折扣库存量数值型10仓库现存量销售价数值型102零售价会员折扣数值型102折扣作者字符型40出版社字符型40简介字符型100与本书相关的信息进货总表字段名称类型长度小数位数说明进货单号整型4进货日期日期型8供应商名称字符型30进货折扣数值型102总数量整型4进货总价数值型82经手人字符型10录入这张进货单据的人员编号零售总表字段名称类型长度小数位数说明零售单号整型12前10位为日期时间，如“201206051101”2012年06月05号11点第01笔单总数量整型4总实洋数值型102零售日期日期型8操作人员字符型10操作人员编号零售信息字段名称类型长度小数位数说明零售单号整型4图书编号字符型8书名数量整型4销售价数值型102会员折扣数值型102总收入数值型102销售日期员工信息表字段名称类型宽度小数位数说明员工编号字符型10性别字符型2“男”或“女”职务字符型30出生日期日期型8出生日期，如:”2000-10-10”身份证号字符型20身份证号必须为18位联系地址字符型100联系地赴，如：安庭地址等联系电话字符型20供应商资料字段名称类型宽度说明供应商编号字符型10供应商名称字符型40供应商联系电话字符型20会员资料字段名称类型宽度小数位数说明会员卡号字符型10会员姓名字符型40会员邮箱字符型20会员联系电话字符型20会员等级数值型1会员折扣数值型102注册日期日期型8第二章 系统设计2.1 系统设计目标这个阶段的主要目标是将系统分析阶段所提出的反映了用户信息要求的系统逻辑方案转换成可以实施的基于计算机的物理方案。2.2 系统功能分析与设计书店管理系统的功能模块如图进货管理进货退货付款处理图书入库供应信息图书资料销售管理定购付款处理配送零售会员资料图书统计缺货统计畅销统计库存统计销售统计系统管理数据管理系统维护权限管理员工管理第三章 数据库设计3.1 概念结构设计ER设计方法是一种通过ER图来描述现实世界信息结构的DB设计方法。本系统的ER图如图所示。3.2 逻辑结构设计供应商信息：供应商代号，供应商名称，供应商联系电话。员工信息：员工编号，员工姓名，员工性别，职务，出生日期，身份证号，联系地址。图书资料：图书编号，书名，进价，进货折扣，库存量，销售价，会员折扣，作者，出版社，简介。会员信息：会员卡号，姓名，邮箱，联系电话，会员等级，会员折扣，注册日期。第四章 系统各模块详细介绍4.1 系统总控表单的介绍 人员管理，读者管理，图书管理4.2 进货管理的介绍4.3 销售管理的介绍2 4.4 内部管理的介绍.4.5 图书统计的介绍4.6 系统管理的介绍第五章 开发总结本团队在开发此书店管理系统秉着简单易用的原则，争取让使用者快速上手，从而极大的方便了小型书店经销商。5.1 结果分析由于团队技术水平有限，该系统只能在WIN7的桌面上才能正常运行，在其他的地址下，须修改ADO的属性值，重新联接方可再次重新正常运行。5.2 结束语第六章 软件截图第七章 软件源代码1，入口模块Private Sub Command1_Click()Dim usename As StringDim password As Stringusename = 胡老师password = qq123If usename = Text1.Text Then If password = Text2.Text Then MsgBox 胡老师，观迎您进入小菜书店管理系统. Loading.Hide Form2.Show Else: MsgBox Either your usename or password 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 Then EndEnd IfEnd SubPrivate Sub Form_Load()Text1.Text = 胡老师Text2.Text = qq123End Sub2，主界面模块Private Sub Exit_Click()MsgBox 作者：陈锦荣110703103，陈逸宝110703107，吴潭辉110703133Dim exitflag As Integerexitflag = MsgBox(Are you sure exit ?, 1)If exitflag = 1 Then EndEnd IfEnd SubPrivate Sub Form_Load() MsgBox 您好，该系统只能在D盘根目录下正常使用，请您检查存放路径！无误，请点击确定。End SubPrivate Sub MenFileClose_Click()EndEnd SubPrivate Sub MenManageChange_Click()Form2.HideLoading.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 Form2.Hide books.Show Case 2 Form2.Hide employee.Show Case 3 Form2.Hide reader.Show Case 4 MsgBox 前面，有闯红灯照相，限速60公里！ Case 5 MsgBox 施工中,请绕道。 Case 6 MsgBox 作者：陈锦荣110703103，陈逸宝110703107，吴潭辉110703133 End End SelectEnd Sub3，图书资料管理模块Private Sub Command1_Click() Command2.Enabled = True If Adodc1.Recordset.AbsolutePosition = 1 Then Command1.Enabled = False Else: Adodc1.Recordset.MovePrevious End IfEnd SubPrivate Sub Command2_Click() Command1.Enabled = True If Adodc1.Recordset.AbsolutePosition = Adodc1.Recordset.RecordCount Then Command2.Enabled = False Else: Adodc1.Recordset.MoveNext End IfEnd SubPrivate Sub Command3_Click() Adodc1.Recordset.Save Adodc1.Recordset.Update Adodc1.Recordset.MoveFirst Adodc1.Recordset.MoveLast MsgBox 图书数据成功保存！ Command3.Enabled = FalseEnd SubPrivate Sub Form_Load() Command1.Enabled = False Command3.Enabled = FalseEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case searchbook name1$ = 请输入要查询的供货商编号: name2$ = InputBox(name1, 查询记录) Adodc1.Recordset.Find 图书编号= & & name2$ & If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveFirst End If Case newbook Command3.Enabled = True MsgBox 增加完成后请点击确定! If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveLast Adodc1.Recordset.AddNew Else: Adodc1.Recordset.AddNew End If Case deletebook Dim delflag As Integer delflag = MsgBox(确定删除书籍相关信息？, vbOKCancel) If delflag = 1 Then Adodc1.Recordset.Delete Adodc1.Recordset.Update Adodc1.Recordset.MoveFirst Adodc1.Recordset.MoveLast MsgBox 删除书籍信息成功! Command1.Enabled = False Command2.Enabled = True End If Case modifybook Command3.Enabled = True Adodc1.Recordset.Save Command3.Enabled = False MsgBox 书籍信息修改成功！ Case exitb books.Hide Form2.Show End SelectEnd Sub4，员工管理程序模块Private Sub Command1_Click() Command2.Enabled = True If Adodc1.Recordset.AbsolutePosition = 1 Then Command1.Enabled = False Else: Adodc1.Recordset.MovePrevious End IfEnd SubPrivate Sub Command2_Click() Command1.Enabled = True If Adodc1.Recordset.AbsolutePosition = Adodc1.Recordset.RecordCount Then Command2.Enabled = False Else: Adodc1.Recordset.MoveNext End IfEnd SubPrivate Sub Command3_Click() Adodc1.Recordset.Save Adodc1.Recordset.Update Adodc1.Recordset.MoveFirst Adodc1.Recordset.MoveLast MsgBox 员工数据成功保存！ Command3.Enabled = FalseEnd SubPrivate Sub Form_Load() Command1.Enabled = False Command3.Enabled = FalseEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case searchemployee name1$ = 请输入要查询的员工编号: name2$ = InputBox(name1, 查询记录) Adodc1.Recordset.Find 编号= & & name2$ & If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveFirst End If Case newemployee Command3.Enabled = True MsgBox 增加完成后请点击确定! If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveLast Adodc1.Recordset.AddNew Else: Adodc1.Recordset.AddNew End If Case deleteemployee Dim delflag As Integer delflag = MsgBox(确定删除员工相关信息？, vbOKCancel) If delflag = 1 Then Adodc1.Recordset.Delete Adodc1.Recordset.Update Adodc1.Recordset.MoveFirst Adodc1.Recordset.MoveLast MsgBox 删除员工信息成功! Command1.Enabled = False Command2.Enabled = True End If Case modifyemployee Command3.Enabled = True Adodc1.Recordset.Save Command3.Enabled = False MsgBox 员工信息修改成功！ Case exite employee.Hide Form2.Show End SelectEnd Sub5，会员管理模块Private Sub Command1_Click() Command2.Enabled = True If Adodc2.Recordset.AbsolutePosition = 1 Then Command1.Enabled = False Else: Adodc2.Recordset.MovePrevious End IfEnd SubPrivate Sub Command2_Click() Command1.Enabled = True If Adodc2.Recordset.AbsolutePosition = Adodc2.Recordset.RecordCount Then Command2.Enabled = False Else: Adodc2.Recordset.MoveNext End IfEnd SubPrivate Sub Command3_Click() Adodc2.Recordset.Save Adodc2.Recordset.Update Adodc2.Recordset.MoveFirst Adodc2.Recordset.MoveLast MsgBox 会员数据成功保存！ Command3.Enabled = FalseEnd SubPrivate Sub Form_Load() Command1.Enabled = False Command3.Enabled = FalseEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case searchreader name1$ = 请输入要查询的会员卡号: name2$ = I