毕业设计（论文）基于VBA的商场销售管理系统设计与实现

河北科技师范学院毕业论文河北科技师范学院毕业论文（设 计）题 目：电子商城系统 学 生 姓名： 指 导 教师： 系（院）别：数学与信息科技学院 专业、班级：应用技术 0802 完 成 时间：2010年6月06日 河北科技师范学院教务处制18目录摘要1引言11 关于计算机信息管理系统与VBA21.1 计算机管理信息系统的发展状况21.2 关于VBA22 总体设计22.1 设计思想22.2 商场销售管理系统结构22.3 商场销售管理系统数据库的设置33 详细设计与实现43.1 系统主界面43.2 进货数据录入及进货报表63.3 销售数据录入及进货报表83.4 商品查询和库存记录124 系统测试和维护144.1 系统测试的原则和方法14总结15致谢17参考文献18Abstract19基于VBA的商场销售管理系统设计与实现河北科技师范学院数学与信息科技学院应用技术2008级指导教师： 摘 要在网络技术迅速成熟与普及的今天，电子商务作为一种新的信息交流与货物交易媒介在国际贸易领域发挥者日益重要的作用。电子商务给我国国际贸易的发展带来了显著降低国际贸易成本，交易效率显著提高等优势，这都是得力于有两网站的建设，而网站的建设与推广至关重要，其难免在我国的发展中存在着消费观念,法律法规等问题并且针对我国的具体情况提出了相应的对策。引言随着无纸化办公的发展，计算机已经完全进入了现代工作中，因为计算机具有准确，稳定，能够存储信息的特点，所以利用计算机进行管理能够使工作得心应手.关于网上购物：随着互联网在中国的进一步普及应用，网上购物逐渐成为人们的消费行为之一。据悉，CNNIC采用电话调查方式，在2008年6月对19个经济发达城市进行调查，4个直辖市为北京、上海、重庆和天津，15个副省级城市为广州、深圳、沈阳、哈尔滨、长春等。访问对象是半年内上过网且在网上买过东西的网民。报告显示，在被调查的19个城市中，上半年网络购物金额达到了162亿元。从性别比例看，男性网购总金额为84亿元，女性网购金额略低于男性，达到78亿元。其中，学生半年网购总金额已达31亿，是非学生半年网购总金额的近1/4。 据中国互联网络信息中心（CNNIC）发布第27次中国互联网络发展状况调查统计报告，截至2010年底，我国网民规模达到4.57亿，网络购物成为增长最快的互联网应用，网购市场金额预计可达5231亿元。网购的好处首先，对于消费者来说： 第一，可以在家“逛商店”，订货不受时间、地点的限制； 第二，获得较大量的商品信息，可以买到当地没有的商品； 第三，网上支付较传统拿现金支付更加安全，可避免现金丢失或遭到抢劫； 第四，从订货、买货到货物上门无需亲临现场，既省时又省力； 第五，由于网上商品省去租店面、召雇员及储存保管等一系列费用，总的来说其价格较一般商场的同类商品更便宜。 其次，对于商家来说，由于网上销售没有库存压力、经营成本低、经营规模不受场地限制等。在将来会有更多的企业选择网上销售，通过互联网对市场信息的及时反馈适时调整经营战略，以此提高企业的经济效益和参与国际竞争的能力。 再次，对于整个市场经济来说，这种新型的购物模式可在更大的范围内、更广的层面上以更高的效率实现资源配置。 综上可以看出，网上购物突破了传统商务的障碍，无论对消费者、企业还是市场都有着巨大的吸引力和影响力，在新经济时期无疑是达到“多赢”效果的理想模式。系统介绍所谓电子商城，其实质就是建立一个虚拟的购物超市，当在超市选购商品时，首先应该将商品放到购物车中，待挑选好所有商品之后就可以到收银台去开收货单，根据收货单据付款。制作电子商务系统的原理与在超市购物的原理是一样的。首先客户应该在网页中选购自己需要的商品并将商品放入购物车中，当然也可以改变购买商品的数或清空购物车中的商品。选购好商品后就可以到收银台，在收银台进行填写收货人信息、提交收货人信息、查看账单等操作2 总体设计2.1设计思想对于商场来说，货物的处理主要在进货，存货，出货这三个方面上，而且对于每一件商品都是按照进货，存货，出货这个流程进行的。所以，本管理系统也将按照这个过程全程对货物进行监管。具体过程如下，当商场购进货物的时候，对货物进行建立档案，记录相关细节如名称、型号、产地、数量、进价、批价、零售价等。当货物卖出时再次记录相关内容，其中关于商品信息这部分内容系统将直接调用进货时候的记录，只需记录售卖出的件数以及价格。利用VBA调用进货，出货这两个表记录的数据，根据公式计算出进货总价、出货总价、商品库存信息等数据。2.2商场销售管理系统流程本着结构简单，操作容易的原则，设计其系统主界面如图2.1所示：图2.1系统主界面由图可看出，从主界面可以进入各个子界面，但是为了便于子界面之间的切换，将设计一个工具条进行管理操作，这将大大提高系统的工作效率。其界面如图2.2所示：图2.2 工具条2.3商场销售管理系统数据库的设置通过对商场实际运作的考察，确定商场销售管理系统的主要开发内容，确定数据库中表的主要内容，以及表与表之间关系的确立，具体内容看下表。该系统主要包含商品信息，销售记录，供货记录，存货统计这几个表，在这几个表的基础上进行添加，删除，查询，修改等一系列操作，其中供货记录，销售记录里面商品信息的内容从商品信息这个表中得到，存货统计的内容通过供货记录，和销售记录得到。图2.3表间关系图3 详细设计与实现3.1系统主界面3.1.1界面视图用户浏览界面分为进货数据录入、进货报表、销售数据录入、销售报表、商品存货查询、销售业绩,商品存货统计,商品明细帐。 参见图2.13.1.2界面代码具体设置信息如下Private Sub Workbook_Open() Show_Enable_Sheet 显示各工作表 Application.Caption = 欢迎使用： Dim mybar As CommandBar, mybutton1 As CommandBarButton On Error Resume Next Set mybar = Application.CommandBars.Add(Name:=AppName, Temporary:=True) mybar.Position = msoBarFloating mybar.Left = 45 向右移动 mybar.Top = 110 向下移动 mybar.Visible = True mybar.Protection = msoBarNoCustomize Set mybutton1 = mybar.Controls.Add(msoControlButton) mybutton1.FaceId = 720 mybutton1.Style = msoButtonIconAndCaption mybutton1.Caption = 进货 mybutton1.OnAction = 供货单 mybutton1.Visible = True Set mybutton1 = mybar.Controls.Add(msoControlButton) mybutton1.FaceId = 59 mybutton1.Style = msoButtonIconAndCaption mybutton1.Caption = 销售 mybutton1.OnAction = 销货单 mybutton1.Visible = True Set mybutton1 = mybar.Controls.Add(msoControlButton) mybutton1.FaceId = 46 mybutton1.Style = msoButtonIconAndCaption mybutton1.Caption = 商品查询 mybutton1.OnAction = 查询 mybutton1.Visible = True Set mybutton1 = mybar.Controls.Add(msoControlButton) mybutton1.FaceId = 226 mybutton1.Style = msoButtonIconAndCaption mybutton1.Caption = 存货统计 mybutton1.OnAction = 统计 mybutton1.Visible = True Set mybutton1 = mybar.Controls.Add(msoControlButton) mybutton1.FaceId = 226 1951 mybutton1.Style = msoButtonIconAndCaption mybutton1.Caption = 进货报表 mybutton1.OnAction = 进货报表 mybutton1.Visible = True Set mybutton1 = mybar.Controls.Add(msoControlButton) mybutton1.FaceId = 226 1951 mybutton1.Style = msoButtonIconAndCaption mybutton1.Caption = 销售报表 mybutton1.OnAction = 销售报表 mybutton1.Visible = True Set mybutton1 = mybar.Controls.Add(msoControlButton) mybutton1.FaceId = 226 1951 mybutton1.Style = msoButtonIconAndCaption mybutton1.Caption = 销售业绩 mybutton1.OnAction = 销售业绩 mybutton1.Visible = True Set mybutton1 = mybar.Controls.Add(msoControlButton) mybutton1.FaceId = 226 mybutton1.Style = msoButtonIconAndCaption mybutton1.Caption = 明细账 mybutton1.OnAction = 商品明细账 mybutton1.Visible = True Set mybutton1 = mybar.Controls.Add(msoControlButton) mybutton1.FaceId = 202 mybutton1.Style = msoButtonIconAndCaption mybutton1.Caption = 返回 mybutton1.OnAction = 返回 mybutton1.Visible = True 返回End Sub以上代码的具体内容就是将Excel里面的单元格设置属性，设置为按钮。3.2 进货数据录入及进货报表3.2.1进货数据录入及进货报表视图在这个模块里面可以进行商品信息的录入以及对进货数据的录入，具体界面如图3.1，3.2，所示：图3.1商品供货录入图3.2商品信息数据录入3.2.2进货数据录入及进货报表代码具体代码如下代码1Sub 录入商品信息() ActiveWindow.SmallScroll Down:=21 Range(B28).SelectEnd Sub代码2Sub 读入进货数据() Dim x As Integer With Sheets(商品明细账) x = 2 j = 7 Do While Not (IsEmpty(Sheets(供货).Cells(x, 2).value) If DateValue(Sheets(供货).Cells(x, 1) = DateValue(.Cells(2, 5) And _ DateValue(Sheets(供货).Cells(x, 1) = DateValue(.Cells(2, 5) And _ DateValue(Sheets(销货).Cells(x, 1) = DateValue(.Cells(2, 3) And _ DateValue(Sheets(销货).Cells(x, 1) datEnd Then MsgBox 起始日期应小于或等于结束日期 Else 生成销售报表a End IfEnd Sub代码4Sub 销货输入() Dim x As Integer, i As Integer, j As Integer Call 手动计算 Sheets(销货).Select x = 2 从第2行开始 判断第2列的最后一行(即空行的上一行) Do While Not (IsEmpty(Cells(x, 2).value) x = x + 1 在最后一行加一行即为空行 Loop With Sheets(销货单) For i = 1 To 8 If Not IsEmpty(.Cells(4 + i, 2) Then Sheets(销货).Cells(x, 1) = .Cells(3, 7) 销售时间 Sheets(销货).Cells(x, 10) = .Cells(3, 3) 购货人 Sheets(销货).Cells(x, 11) = .Cells(15, 9) 销售人员 For j = 2 To 9 Sheets(销货).Cells(x, j) = .Cells(4 + i, j) Next j x = x + 1 End If Next i .Range(b5:b12) = .Range(e5:e12) = .Range(h5:h12) = .Cells(15, 3) = .Cells(3, 3) = End With Call 自动计算End Sub3.4商品查询和库存记录3.4.1商品查询和库存记录视图这两部分分别通过对商品进货记录以及商品销售记录的比对得出结果，其各自界面如图3.4，3.5所示：图3.4库存记录界面图3.5商品查询界面3.4.2商品查询和库存记录代码这两部分主要通过对前面销售，进货两者的记录进行筛选得出的结果。具体代码如下Sub 计算存货() Dim x As Integer, rngTemp As Range With Sheets(商品明细账) 将进货、销售数据按日期排序 Set rngTemp = .Range(A7).CurrentRegion rngTemp.Sort Key1:=.Range(A7), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ SortMethod:=xlPinYin, DataOption1:=xlSortNormal j = j - 1 .Cells(7, 9) = .Cells(7, 3) - .Cells(7, 6) .Cells(7, 11).NumberFormatLocal = #,#0.00_ .Cells(7, 11) = (.Cells(7, 3) - .Cells(7, 6) * .Cells(7, 4) .Cells(7, 10).NumberFormatLocal = #,#0.00_ .Cells(7, 10) = .Cells(7, 11) / .Cells(7, 9) For x = 8 To j .Cells(x, 9) = .Cells(x - 1, 9) + .Cells(x, 3) - .Cells(x, 6) 结存数量 .Cells(x, 11).NumberFormatLocal = #,#0.00_ If IsEmpty(.Cells(x, 3) Then 销售 .Cells(x, 11) = .Cells(x, 9) * .Cells(x - 1, 10) 结存金额 Else 进货 .Cells(x, 11) = .Cells(x - 1, 11) + .Cells(x, 5) End If .Cells(x, 10).NumberFormatLocal = #,#0.00_ .Cells(x, 10) = .Cells(x, 11) / .Cells(x, 9) 结存单价 Next .Cells(x, 1) = 合计 .Cells(x, 3) = =SUM(R & 7 - x & C:R-1C) 进货数量合计 .Cells(x, 5).NumberFormatLocal = #,#0.00_ .Cells(x, 5).FormulaR1C1 = =SUM(R & 7 - x & C:R-1C) 进货金额合计 .Cells(x, 6) = =SUM(R & 7 - x & C:R-1C) 销售数量合计 .Cells(x, 8).NumberFormatLocal = #,#0.00_ .Cells(x, 8).FormulaR1C1 = =SUM(R & 7 - x & C:R-1C) 销售金额合计 .Cells(x, 9) = =SUM(R & 7 - x & C:R-1C) 结存数量合计 .Cells(x, 11).NumberFormatLocal = #,#0.00_ .Cells(x, 11).FormulaR1C1 = =SUM(R & 7 - x & C:R-1C) 结存金额合计 .Cells(x, 10).NumberFormatLocal = #,#0.00_ .Cells(x, 10) = .Cells(x, 11) / .Cells(x, 9) 结存单价 .Range(.Cells(7, 1), .Cells(x, 11).Select 设置边框 .Select .Range(A7).Select End With Sheets(商品明细账).Protect Password:=wyhEnd Sub4 系统测试和维护 系统测试是系统开发周期中一个十分重要而漫长的阶段。其重要性体现在它是保证系统质量与可靠性的最后关口，是对整个系统开发过程包括系统分析，系统设计和系统实现的最终审查。系统测试的对象不仅仅是源程序，而应是整个系统，它把需求分析，概要设计，详细设计以及程序设计各阶段的开发文档，包括需求规格说明，概要设计说明，详细设计说明以及源程序，都作为测试的对象。测试的目的就是发现系统的错误9。 4.1 系统测试的原则和方法 4.1.1系统测试的原则 （1）测试工作应避免由原开发系统的个人或小组来承担。 （2）设计测试方案时，不仅要包括确定的输入数据，而且包括从系统功能出发预期的测试结果。 （3）测试用例不仅要包括合理，有效的输入数据，还要包括无效的或不合理的输入数据10。 （4）不仅要检验程序是否做了该做的事，还要检查程序是否同时做了不该做的事。 （5）保留测试用例，作为软件文档的组成部分。 4.1.2 系统测试的方法 系统测试一般有单元测试，组装测试，确认测试和系统测试四个步骤11，每一步都是在前一步的基础上进行的。 （1）单元测试 单元测试是测试程序模块及其接口与设计说明的要求是否一致，目的是发现程序编写阶段的错误。它以单个程序模块为测试单位。单元测试是采用白盒测试的方法，根据详细设计的描述，从模块的内部结构出发设计测试用例，进行测试。由于每个模块在整个软件中不是孤立的，尽管它可以单独编译12，但不能单独进行测试。因此在测试时，应考虑它与调用和被调用模块的相互联系。 （2）组装测试 对每个模块完成了单元测试以后，需要按照设计时做出的层次模块图把它们连接起来，进行组装测试。在资料管理信息系统中我采用了自底向上测试的组装顺序。先从一个最底模块开始，从下向上逐步添加模块，组成和程序的一个分支，对每个分支重复上述过程，直到所有的分支组装完成。最后将所有分支组成整个程序。 （3）确认测试 经过组装，软件己装配完毕，接下来进行的确认测试是以整个软件作为测试对象，且采用黑盒测试方法。确认测试内容主要包括以下几部分。 功能测试：检测系统需求规格说明书的内容是否全部实现。 性能测试：检查系统的可移植性，兼容性，错误恢复能力以及可维护性等性能指标，以检测系统功能实现的程序。本系统只要安装了Internet Information Server(IIS)就可以使用，对于出错发生，系统可以自动警告。 配置审查：检查被测系统的全部构成是否齐全，质量是否合乎要求，应有维护所需的全部细节，并且是否编好目录。 （4）系统测试 系统测试是将信息系统的所有组成部分包括软件，硬件，用户以及环境等综合在一起进行测试，要在系统的实际运行环境现场，在用户的直接参与下进行13。包括集成功能测试，可靠性与适应性测试，系统自我保护及恢复能力的测试，安全性测试，强度测试。在基于 ASP 的学生成绩管理系统的测试过程中，采用了目前常用的测试方法：人工测试和机器测试。人工测试包括个人复审，走查和会审。机器测试包括黑盒和白盒测试。在人工测试中先采用个人复审，在源程序编写完成以后，自己先对源程序各个部分进行详细的检查，然后请经验丰富的老师检验一遍，以便发现问题14。经过人工测试后，再进行机器测试。通过在计算机上直接运行本系统以发现程序中错误。 总结 在老师的指导和督促下，经过三个月的紧张设计与开发，我的毕业设计基于VBA的商场销售绩管理系统终于开发完成了。通过本系统的开发使我所学的专业知识得到了综合的运用，对以前很多抽象、枯燥的理论知识加深了理解，同时也使我学会了利用结构化程序设计思想开发管理信息系统，并用模块化方法加以实现。 通过本次的系统开发，我深刻地认识到信息系统开发的每一步都是以上一步为基础的。因此每一步文档的编写都必须正确、完整，否则就会给下一步的工作带来不必要的麻烦，加大工作量。因为系统是为用户服务的，所以要充分了解用户的需求，考虑用户的特点和使用方面的习惯，以协调人机关系。在系统实施中应结合各方面的要求，尽可能选择自己熟悉的程序设计语言。系统测试中要根据实际情况设计有效的测试方法。 在系统设计过程中， 从用户的角度出发， 在系统的可用性和易用性上做了很多功夫，力求能达到最好的效果。但由于我的编程实现能力和毕业设计的时间都有限，我对学生成绩管理这一系列工作的具体内容也不是特别地了解，所以目前我还不能把学生成绩管理这个系统较为完善地实现出来，希望以后有机会能够弥补这个遗憾。 由于这是我第一次完整地开发一个系统，在系统分析、设计、实现过程中都遇到了不少困难。例如，如何细化用户的需求并将需求合理地安排在系统中，特别是在构建系统模型上，需要尽量满足用户需求，设计方面也要做到合理、完善，因此颇费了一番周折。在开发进入尾声时，最大的感受就是用户的需求调查和系统分析对系统的开发是否成功起着决定性作用，若这一部分没有做好，在开发过程中将困难重重，甚至会导致系统开发失败。经过艰辛劳动和不懈努力，虽然系统在小细节上有些漏洞，但系统在流程上得到了成功。 在系统开发过程中，问题不断的出现，又不断的得到解决，一步一步地前进，随着系统的逐步完善，我对以前所学知识的领悟程度得到了提升，编程能力得到了提高，所学的知识得到了综合运用。通过这次系统的开发， 我对专业知识的运用得到了一次升华。虽然以前也曾经参与过其他项目的系统开发，但毕竟只是接触，而没有像这次毕业设计那样非常系统地去完成，也没有系统开发设计的经验，而且毕业设计的时间有限，这些都使得本系统在某些方面表现得并不是非常的完善。但是，通过这次系统开发，将学习的理论与实践相结合，使我对学生成绩管理系统和数据库的设计与开发有了更真实、具体的体会，使我得到了一次很有价值的实践。 致谢在这半年多的毕业设计中，我真诚地感谢老师和同学的帮助，在他们的帮助下我才顺利的完成毕业设计。特别感谢李玉香老师的帮助，她对我的系统提出了很多改进的意见，对我的论文中一些不足的地方也一一地指出。没有她的帮助，我也不可能很好的完成这次毕业设计，我再次衷心地对李老师表示感谢。 参考文献陈军，PHP+MYSQL 经典案例分析，北京：清华大学出版社，2008许登旺，PHP程序开始范例宝典，北京:人民邮电出版社，2007陈争航，PHP 5+MY SQL 5 WEB 应用开发宝典，北京：电子工业出版社，2008王石，精通PHP+MYSQL应用开发，北京：人民邮电出版社，2006曹培强，PHOTOSHOP CS2 平面设计实战从入门到精通，北京：人民邮电出版社 2007（美）Eric Van der Vlist,Web 2.0 高级编程，北京：人民邮电出版社 2008Sales Management System Design and Implementation by VBANetwork Engineering0602,College of Mathematics and Information Technology，Hebei Normal University of Science & Technology shaojie-liAdvisor： yuxiang-liABSTRACTThe development of market sales management system mainly includes the establishment of the relationship with table and the development of the macro. The former is required a database with the consistency, integrity and safety of data. As for the latter, it is asked for characteristics like complete application procedure functions, easy usage and so on. At present, Chinas office automation is developing fast. With the social development, economic era bloom, expansion of shopping centers scale and numerous product categories, market sales management has become an exceptionally important part of market management. Considering its importance, we use VBA as a developing tool and we developed a market sales management system based on VBA and Excel. The system includes several parts: product information, sales records, supplier records and inventory statistics. In these parts, data is added, deleted, queried, and modified and so on.Keywords：VBA；EXCEL；Modularization；Market sales management