《毕业设计（论文）基于VBA的商场销售管理系统设计与实现.doc》由会员分享，可在线阅读，更多相关《毕业设计（论文）基于VBA的商场销售管理系统设计与实现.doc（20页珍藏版）》请在三一办公上搜索。
1、河北科技师范学院毕业论文（设 计）题 目：电子商城系统 学 生 姓名： 指 导 教师： 系（院）别：数学与信息科技学院 专业、班级：应用技术 0802 完 成 时间：2010年6月06日 河北科技师范学院教务处制目录摘要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 系统测试的原则
2、和方法14总结15致谢17参考文献18Abstract19基于VBA的商场销售管理系统设计与实现河北科技师范学院数学与信息科技学院应用技术2008级指导教师： 摘 要在网络技术迅速成熟与普及的今天，电子商务作为一种新的信息交流与货物交易媒介在国际贸易领域发挥者日益重要的作用。电子商务给我国国际贸易的发展带来了显著降低国际贸易成本，交易效率显著提高等优势，这都是得力于有两网站的建设，而网站的建设与推广至关重要，其难免在我国的发展中存在着消费观念,法律法规等问题并且针对我国的具体情况提出了相应的对策。引言随着无纸化办公的发展，计算机已经完全进入了现代工作中，因为计算机具有准确，稳定，能够存储信息的
3、特点，所以利用计算机进行管理能够使工作得心应手.关于网上购物：随着互联网在中国的进一步普及应用，网上购物逐渐成为人们的消费行为之一。据悉，CNNIC采用电话调查方式，在2008年6月对19个经济发达城市进行调查，4个直辖市为北京、上海、重庆和天津，15个副省级城市为广州、深圳、沈阳、哈尔滨、长春等。访问对象是半年内上过网且在网上买过东西的网民。报告显示，在被调查的19个城市中，上半年网络购物金额达到了162亿元。从性别比例看，男性网购总金额为84亿元，女性网购金额略低于男性，达到78亿元。其中，学生半年网购总金额已达31亿，是非学生半年网购总金额的近1/4。 据中国互联网络信息中心（CNNIC
4、）发布第27次中国互联网络发展状况调查统计报告，截至2010年底，我国网民规模达到4.57亿，网络购物成为增长最快的互联网应用，网购市场金额预计可达5231亿元。网购的好处首先，对于消费者来说： 第一，可以在家“逛商店”，订货不受时间、地点的限制； 第二，获得较大量的商品信息，可以买到当地没有的商品； 第三，网上支付较传统拿现金支付更加安全，可避免现金丢失或遭到抢劫； 第四，从订货、买货到货物上门无需亲临现场，既省时又省力； 第五，由于网上商品省去租店面、召雇员及储存保管等一系列费用，总的来说其价格较一般商场的同类商品更便宜。 其次，对于商家来说，由于网上销售没有库存压力、经营成本低、经营规模
5、不受场地限制等。在将来会有更多的企业选择网上销售，通过互联网对市场信息的及时反馈适时调整经营战略，以此提高企业的经济效益和参与国际竞争的能力。 再次，对于整个市场经济来说，这种新型的购物模式可在更大的范围内、更广的层面上以更高的效率实现资源配置。 综上可以看出，网上购物突破了传统商务的障碍，无论对消费者、企业还是市场都有着巨大的吸引力和影响力，在新经济时期无疑是达到“多赢”效果的理想模式。系统介绍所谓电子商城，其实质就是建立一个虚拟的购物超市，当在超市选购商品时，首先应该将商品放到购物车中，待挑选好所有商品之后就可以到收银台去开收货单，根据收货单据付款。制作电子商务系统的原理与在超市购物的原理
6、是一样的。首先客户应该在网页中选购自己需要的商品并将商品放入购物车中，当然也可以改变购买商品的数或清空购物车中的商品。选购好商品后就可以到收银台，在收银台进行填写收货人信息、提交收货人信息、查看账单等操作2 总体设计2.1设计思想对于商场来说，货物的处理主要在进货，存货，出货这三个方面上，而且对于每一件商品都是按照进货，存货，出货这个流程进行的。所以，本管理系统也将按照这个过程全程对货物进行监管。具体过程如下，当商场购进货物的时候，对货物进行建立档案，记录相关细节如名称、型号、产地、数量、进价、批价、零售价等。当货物卖出时再次记录相关内容，其中关于商品信息这部分内容系统将直接调用进货时候的记录
7、，只需记录售卖出的件数以及价格。利用VBA调用进货，出货这两个表记录的数据，根据公式计算出进货总价、出货总价、商品库存信息等数据。2.2商场销售管理系统流程本着结构简单，操作容易的原则，设计其系统主界面如图2.1所示：图2.1系统主界面由图可看出，从主界面可以进入各个子界面，但是为了便于子界面之间的切换，将设计一个工具条进行管理操作，这将大大提高系统的工作效率。其界面如图2.2所示：图2.2 工具条2.3商场销售管理系统数据库的设置通过对商场实际运作的考察，确定商场销售管理系统的主要开发内容，确定数据库中表的主要内容，以及表与表之间关系的确立，具体内容看下表。该系统主要包含商品信息，销售记录，
8、供货记录，存货统计这几个表，在这几个表的基础上进行添加，删除，查询，修改等一系列操作，其中供货记录，销售记录里面商品信息的内容从商品信息这个表中得到，存货统计的内容通过供货记录，和销售记录得到。图2.3表间关系图3 详细设计与实现3.1系统主界面3.1.1界面视图用户浏览界面分为进货数据录入、进货报表、销售数据录入、销售报表、商品存货查询、销售业绩,商品存货统计,商品明细帐。 参见图2.13.1.2界面代码具体设置信息如下Private Sub Workbook_Open() Show_Enable_Sheet 显示各工作表 Application.Caption = 欢迎使用： Dim my
9、bar 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.Cont
10、rols.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
11、= 销售 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) m
12、ybutton1.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.OnAc
13、tion = 进货报表 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.F
14、aceId = 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 = 商品
15、明细账 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进货数据录入及进货报表视图在这个模块
16、里面可以进行商品信息的录入以及对进货数据的录入，具体界面如图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(供货)
17、.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 A
18、s 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
19、, 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商品查询和库存记录视图这两部分分别通过对商品进货记录以及商品销售记录
20、的比对得出结果，其各自界面如图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:
21、=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_ .
22、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) + .
23、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) = =S
24、UM(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).Numbe
25、rFormatLocal = #,#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 系统测试和维护 系统测试是系统开发周期中一个十分重要而漫长的阶段。其重要性体现在它是保证系统质量与可靠性的最后关口，是对整个系统开发过程包括系统分析，系统设计和系统实现的最终审查。系统测试的对象不仅仅
26、是源程序，而应是整个系统，它把需求分析，概要设计，详细设计以及程序设计各阶段的开发文档，包括需求规格说明，概要设计说明，详细设计说明以及源程序，都作为测试的对象。测试的目的就是发现系统的错误9。 4.1 系统测试的原则和方法 4.1.1系统测试的原则 （1）测试工作应避免由原开发系统的个人或小组来承担。 （2）设计测试方案时，不仅要包括确定的输入数据，而且包括从系统功能出发预期的测试结果。 （3）测试用例不仅要包括合理，有效的输入数据，还要包括无效的或不合理的输入数据10。 （4）不仅要检验程序是否做了该做的事，还要检查程序是否同时做了不该做的事。 （5）保留测试用例，作为软件文档的组成部分。
27、 4.1.2 系统测试的方法 系统测试一般有单元测试，组装测试，确认测试和系统测试四个步骤11，每一步都是在前一步的基础上进行的。 （1）单元测试 单元测试是测试程序模块及其接口与设计说明的要求是否一致，目的是发现程序编写阶段的错误。它以单个程序模块为测试单位。单元测试是采用白盒测试的方法，根据详细设计的描述，从模块的内部结构出发设计测试用例，进行测试。由于每个模块在整个软件中不是孤立的，尽管它可以单独编译12，但不能单独进行测试。因此在测试时，应考虑它与调用和被调用模块的相互联系。 （2）组装测试 对每个模块完成了单元测试以后，需要按照设计时做出的层次模块图把它们连接起来，进行组装测试。在资
28、料管理信息系统中我采用了自底向上测试的组装顺序。先从一个最底模块开始，从下向上逐步添加模块，组成和程序的一个分支，对每个分支重复上述过程，直到所有的分支组装完成。最后将所有分支组成整个程序。 （3）确认测试 经过组装，软件己装配完毕，接下来进行的确认测试是以整个软件作为测试对象，且采用黑盒测试方法。确认测试内容主要包括以下几部分。 功能测试：检测系统需求规格说明书的内容是否全部实现。 性能测试：检查系统的可移植性，兼容性，错误恢复能力以及可维护性等性能指标，以检测系统功能实现的程序。本系统只要安装了Internet Information Server(IIS)就可以使用，对于出错发生，系统可
29、以自动警告。 配置审查：检查被测系统的全部构成是否齐全，质量是否合乎要求，应有维护所需的全部细节，并且是否编好目录。 （4）系统测试 系统测试是将信息系统的所有组成部分包括软件，硬件，用户以及环境等综合在一起进行测试，要在系统的实际运行环境现场，在用户的直接参与下进行13。包括集成功能测试，可靠性与适应性测试，系统自我保护及恢复能力的测试，安全性测试，强度测试。在基于 ASP 的学生成绩管理系统的测试过程中，采用了目前常用的测试方法：人工测试和机器测试。人工测试包括个人复审，走查和会审。机器测试包括黑盒和白盒测试。在人工测试中先采用个人复审，在源程序编写完成以后，自己先对源程序各个部分进行详细
30、的检查，然后请经验丰富的老师检验一遍，以便发现问题14。经过人工测试后，再进行机器测试。通过在计算机上直接运行本系统以发现程序中错误。 总结 在老师的指导和督促下，经过三个月的紧张设计与开发，我的毕业设计基于VBA的商场销售绩管理系统终于开发完成了。通过本系统的开发使我所学的专业知识得到了综合的运用，对以前很多抽象、枯燥的理论知识加深了理解，同时也使我学会了利用结构化程序设计思想开发管理信息系统，并用模块化方法加以实现。 通过本次的系统开发，我深刻地认识到信息系统开发的每一步都是以上一步为基础的。因此每一步文档的编写都必须正确、完整，否则就会给下一步的工作带来不必要的麻烦，加大工作量。因为系统是为用户服务的，所以要充分了解用户的需求，考虑用户的特点和使用方面的习惯，以协调人机关系。在系统实施
