VB商店进存销管理系统设计报告

惠州学院商店进销存管理系统设计报告题目商店进销存管理系统系别电子科学系专业班级姓名翁铢炜林贵玉学号第一章绪论本设计主要解决在一个小型超市中，进行库存商品的管理、销售管理的程序设计。超市销售部门管理，是对商品、销售环节的管理，使超市管理中的一个大的问题。一个规范化、自动化的进销存管理系统使企业的物资管理层次分明、井然有序，为采购、销售提供依据。完善的小型超市管理功能，可对企业的存货进行全面的控制和管理，降低超市成本，增强企业的市场竞争力。超市管理系统是市场上最流行的超市上常用的系统之一，它主要包含以下几个模块：用户登陆管理、商品类型及商品的管理、进货和销售的管理、销售分析等。从而，实现对进货、销售及员工信息等实现全面、动态、及时的管理。本文系统的分析了软件开发的背景以过程；首先介绍了软件的开发环境，其次介绍了本软件的详细设计过程：数据库的设计、各个模块的设计和实现，以及具体界面的设计和功能。1.1应用背景随着科学技术的不断提高,计算机科学不断发展,其强大的功能已经被人们深刻认识,它已经进入了人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对产品库存信息进行管理,具有着人工管理无法比拟的优点,它检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等,可减少更多的人力物力,这些都能够极大地提高货品库存的管理效率,也是企业库存管理科学化、正规化,与世界接轨的重要条件。因此,开发一个仓库进销存管理系统是很有必要的,具有其特有的技术意义和管理意义。本文实现的企业销售部门管理系统基本上能够满足现代小型企业管理的需求。信息录入项目齐全、完整、系统。销售管理系统灵活使用表格对各种信息分门别类，可以方便地查询、阅读、修改。1.2设计意义对于超市管理者来说，大量复杂的销售、进货、报损管理、供应商管理等难于通过传统的方法进行管理。小型超市管理系统正是对上述的问题而开发的，通过计算机系统来管理货品销售与进货的情况，可以解决大量商品信息的查询和管理，便于更好的进行商品管理，同时也为销售员提供方便。概括的讲，企业对进销存系统的需求具有普遍性。企业应用进销存可有效减少盲目进货，降低进货成本，合理控制库存，减少资金占用并提高市场灵敏度，提升企业市场竞争力。在网络化，信息化飞速发展的今天，开发一套进销存管理系统作为软件应用平台，构建一个业务与财务一体化，多个环节一体化的进销存管理系统有着重要的现实意义。开发这个系统的目的就是帮助企业销售部门提高工作效率。通过本管理系统软件，能帮助工作人员利用计算机，快速方便的对企业商品的数据进行管理、输入、输出、查找的所需操作，使销售信息具体化、直观化、合理化等。1.3系统配置1．软件配置操作系统：Windows2000中文版或更高；数据库选择：MicrosoftAccess2000；开发平台：SQLSever20052．硬件配置CPU：PentiumII266或更高；内存：64MB或以上；硬盘：2G以上；显示器：VGA或更高；第2章系统分析2.1可行性分析2.1.1经济可行性因为通过网络传递销售信息可以不受距离的限制，因此可以借阅许多的人力和物力，方便管理，由此可以减少不必要的开支，同时该系统可以提高超市的销售效率，即提高了超市的经济效益，所以从经济上完全是可行的。2.1.2技术可行性在IT行业中从业的工作人员一般都要求掌握计算机技术，具有一定的软硬件基础，会使用各种管理软件，熟悉IT产品。因为，有的超市对员工的素质要求比较高，从管理层到下面的销售人员，都要求具有一定的计算机基础，所以在新系统投入使用时，只要对员工进行少量的培训，系统的功能和使用方法就基本上能够是系统顺利运行。2.1.3操作可行性界面设计时充分考虑浏览者的习惯，使得界面美观，大方，使用户感受到系统的专业和方便。由此，该系统的操作是可行的，有必要开发该系统。综合以上三方面，该系统具有很高的开发可行性，无论是从技术上或者经济上还是操作上。所以，可以设计该系统的数据流程图，建立数据字典。2.2需求分析2.2．1系统模块本系统主要包括四大模块，分别是人事管理模块，销售管理模块，进货管理模块，库存管理模块。每个模块的功能如下：1.人事管理模块功能：(1)实现职工信息的查询；(2)实现职工信息的更新，包括增加、删除、修改功能；(3)实现供货商信息的查询；(4)实现供货商信息的更新，包括增加、删除、修改功能。2.销售管理模块功能：(1)进行销售信息的查询、添加和修改；(2)将前台的销售与后台的数据库联系起来。3.进货管理模块功能：(2)实现进货信息的更新，包括增加、删除、修改功能。4.库存管理模块功能：(1)实现商品库存信息的查询、添加和修改；2.2.2流程分析超市管理系统工作流程为：登录系统后，超市管理员可对系统相关信息进行操作，包括商品基本信息、供应商信息、销售信息、库存信息、进货信息等过程进行管理。2.3系统设计E-R图采购部供货商经销部仓库（存储部）商品供应存销进职员编号姓名性别电话职称商品号名称数量进货价销售价单位利润1m管理员编号职称姓名性别电话职员编号姓名职称性别电话公司名称编号代表人（姓名）供应商品名称供应商品号性别联系方式地址1n1pkq进销存管理E-R图（供参考，版权所有，严禁盗版）第3章系统设计3.1功能模块设计根据系统功能分析，可以画出系统的功能模块图。如图3-1所示：进销存管理系统商品信息进货信息销售管理库存管理职工管理退出系统进货信息供货商信息1.库存管理模块对库存商品进行管理和配置，可以对商品的价格、数量等信息进行配置2.采购模块对产品的入库进行管理。3.销售模块对订单的处理和商品的管理。第4章系统模块和代码一、系统登录模块：DimitmXAsListItem'定义一个ListItem对象DimaDimkeyAsString'定义字符串变量'***用户登录按钮的事件代码***PrivateSubCommand1_Click()DimMPasswordAsStringAdodc1.RecordSource=select*from用户登录表where职工编号='&Text1.Text&'Adodc1.RefreshIfAdodc1.Recordset.RecordCount0Then职工密码=Adodc1.Recordset.Fields(职工密码)IfText2.Text=职工密码Then'判断数据的密码是否正确Name1=Text1.Text系统主窗体.Show'添加登录日志Open(App.Path&\系统日志.ini)ForInputAs#1DoWhileNotEOF(1)LineInput#1,IntextTStr=TStr+Intext+Chr(13)+Chr(10)LoopClose#1TStr=TStr++Name1++Format(Now,yyyy-mm-ddhh:mm:ss)++系统登录+Chr(13)+Chr(10)Open(App.Path&\系统日志.ini)ForOutputAs#1Print#1,TStrClose#1UnloadMeElseMsgBox密码不正确,请您确认后重新输入,,进销存管理系统Text2.Text=Text2.SetFocusEndIfElseMsgBox对不起没有此用户的信息,,进销存管理系统Text2.Text=Text1.Text=EndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()'使用代码连接数据库与数据表Adodc1.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=&App.Path&\进存销数据库.mdb;PersistSecurityInfo=FalseAdodc1.RecordSource=select*from用户登录表Adodc1.RefreshAdodc1.RecordSource=select*from用户登录表Adodc1.RefreshAdodc1.Recordset.MoveNextIfAdodc1.Recordset.RecordCount0ThenListView1.Enabled=TrueListView1.ListItems.ClearAdodc1.Recordset.MoveFirstDoWhileAdodc1.Recordset.EOF=False'将操作员信息添加到ListView控件当中key=Adodc1.Recordset.Fields(职工姓名)SetitmX=ListView1.ListItems.Add(,,key)Adodc1.Recordset.MoveNextLoopElseListView1.Enabled=FalseEndIfScreenCenterEndSubPrivateSubListView1_Click()Adodc1.RecordSource=select*from用户登录表where职工编号='&Text1.Text&'Adodc1.RefreshIfAdodc1.Recordset.RecordCount0ThenLabel2.Caption=职工姓名：&Adodc1.Recordset.Fields(2)Text2.SetFocusEndIfEndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13ThenText2.SetFocusEndIfEndSubPrivateSubText2_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13ThenCallCommand1_ClickEndIfEndSubPrivateSubForm_Unload(CancelAsInteger)系统主窗体.Enabled=TrueEndSubPrivateSubScreenCenter()Me.Left=(Screen.Width-Me.Width)/2Me.Top=(Screen.Height-Me.Height)/2EndSub二、系统主窗体三、商品信息模块PublicedittagAsBooleanPublicupdatenoAsStringPrivateSubCommand1_Click()editag=False修改商品信息.Command1.Caption=添加修改商品信息.ShowEndSubPrivateSubCommand2_Click()Dimrst1AsADODB.RecordsetDimdeletenoAsIntegerSetrst1=NewADODB.Recordsetrst1.ActiveConnection=provider=microsoft.jet.oledb.4.0;&_datasource=&App.Path&\进存销数据库.mdb;rst1.Open商品信息表,,adOpenKeyset,adLockOptimistic,_adCmdTableWithrst1DoUntil.EOFIf.Fields(商品编号)=DataGrid1.Columns(0)Then.DeleteExitDoEndIf.MoveNextLoopEndWithrst1.CloseSetrst1=Nothing商品消息.Adodc1.RefreshEndSubPrivateSubCommand3_Click()edittag=Trueupdateno=DataGrid1.Columns(0).Text修改商品信息.Command1.Caption=修改修改商品信息.Text1=DataGrid1.Columns(0)修改商品信息.Text2=DataGrid1.Columns(1)修改商品信息.Text3=DataGrid1.Columns(2)修改商品信息.T