毕业设计（论文）-基于时间序列法的营销管理系统.doc

武汉纺织大学 2010 届毕业设计论文 1 目 录 1 概述.1 1.1 课题开发背景.1 1.2 课题研究现状.1 1.3 课题开发目标.2 2 相关理论支持.2 2.1 时间序列法.2 2.2 一元线性回归预测法.3 3 系统分析.5 3.1 需求分析.5 3.2 可行性分析.6 3.3 数据流程分析.6 3.4 数据字典.7 3.4.1 数据项描述 .7 3.4.2 数据结构描述 .8 3.4.3 数据流描述 .8 4 系统设计.9 4.1 开发及运行环境.9 4.2 系统总体结构设计.9 4.2.1 系统功能结构设计 .9 武汉纺织大学 2010 届毕业设计论文 2 4.2.2 主要模块说明 .9 4.3 数据库设计.11 4.3.1 数据库概念结构设计 .11 4.3.2 数据库表设计 .11 5 系统实施.15 5.1 主要功能界面设计.15 5.1.1 市场走势界面设计 .15 5.1.2 数据导入界面设计 .17 5.1.3 销售预测界面设计 .18 5.2 系统管理功能设计.20 6 总结与展望.23 6.1 课题总结.23 6.2 课题展望.23 武汉纺织大学 2010 届毕业设计论文 3 1 概述 1.1 课题开发背景 步入信息时代，世界各国经济密切联系，互相依赖，仅依靠传统的经济手 段已不能很好地促进经济发展。随着中国市场经济体制的建立，企业逐步走出 国门，走向世界，广阔的的国际市场给企业的发展不仅带来了机遇，更让企业 面临诸多挑战。营销作为企业业务重要的一环，在企业发展壮大的过程中，其 竞争环境也日益加剧1。 与大企业相比，中小企业的生存和竞争环境也发生了根本性的变化。对中 小企业而言，实现信息化管理是提升公司管理能力的一个重要方面。营销部门 作为企业业务管理中的重要一环，管理着企业的产品、业务人员及其他相关信 息，是 保证企业盈利、高效运转的关键环节之一，辅之以营销管理系统，结合网络技 术，再加上管理员的合理操作，则可让营销部门的管理工作更上一层楼。营销 管理系统的建立是以营销信息管理理论为支撑，以营销信息链为主线，打造企 业竞争的情报中心2。营销管理系统就是融合企业内部信息与外部信息、直接 信息与间接信息，以问题为导向，对信息进行搜集和整理、分析与使用，从而 确立信息对营销管理与决策的支撑地位。 1.2 课题研究现状 在中国经济崛起的背后，中小企业异军突起，国内外各个方面的环境给中 小企业带来了诸多机遇，同时也让它们面临诸多挑战。对中小企业而言，实现 信息化管理已是企业管理的方向，结合计算机网络技术和互联网技术，在加上 人工管理，可让企业内部的管理工作有条不紊。但多数企业仅仅看重管理，而 没有对企业管理进行深度剖析，从企业长远发展的角度看，管理值得重视，但 对相关数据进行挖掘和分析，则是完善企业管理的很好办法。 课题研究的是时间序列法等预测方法在企业产品销售中的应用。在当前市 面上，多数企业已在使用企业管理软件 ERP 或 SAP，ERP 是针对物质资源管理、 人力资源管理、财务资源管理、信息资源管理集成一体化的企业管理软件，它 已经囊括了一些预测内容，预测方法则根据企业的需求不同分为近期预测、短 期预测、中期预测、长期预测等。但对多数企业而言，将 ERP 应用到企业的管 理中也有其局限性。首先，ERP 的投入是一个系统工程，并不能立竿见影，它 所贯彻的主要是管理思想，这是企业管理中的一条红线。其次，ERP 的实施需 要复合型人才，他们既要懂计算机技术，又要懂管理，当前高校对复合型人才 的培养远远满足不了企业的需求。再者，ERP 运用到企业中，需要企业有一定 的经济实力。条件具备的企业要不失时机地运用 ERP 管理系统，不论只研究纯 武汉纺织大学 2010 届毕业设计论文 4 理论，要整理好企业内部管理的基本数据，选定或开发适合自己企业的 ERP 软 件。 但对中小企业而言，它们往往没有条件应用 RRP 系统，或是较为机械的使 用 ERP 对企业日常业务进行管理。把管理引向更深的层次是未来企业管理的趋 势，这需要对企业的各种数据做出综合归纳、整理、分析， 并将结果运用到企 业的战略管理中。 销售预测是让企业领导层做出生产计划的一个重要参考指标，但销售预测 准确率低则是众多营销管理者非常棘手的问题。销售预测准确率低会造成生产 计划无所适从，一方面，按计划生产出来的产品届时可能由于某些条件不满足 而不能发货，容易造成库存，另一方面，没有按计划生产产品又可能由于需求 量增加缺少货源。这既然营销部门不便管理，又降低了产品销售的竞争力。课 题只针对营销部门进行研究，在完善管理的同时又加入了分析、预测功能，可 以帮助中小企业分析销售业务，预测未来的销售情况，同时能为企业高层做出 合理决策提供依据。 1.3 课题开发目标 企业营销管理系统是一款中小规模的企业管理软件，是针对中小型企业来 开发的。在开发系统的过程中，本着经济、实用、高效的原则，为企业提供一 个便捷、高效、规范的营销工作环境，满足企业不断发展壮大的需求。研究本 课题需要弄清企业营销部门的业务流程，在理解相关预测方法的前提下，对企 业提供的销售数据进行分析，结合企业实际，分析企业未来的销售状况。 从系统功能上讲，要大致实现以下目标：实现美观友好的系统界面，数据 增删查改方便、灵活、准确，尽量避免人为管理的错误；根据业务员的销售业 绩情况，以图表的形式分析商品市场价格的走势；根据前期的销售数据，运用 时间序列法、一元线性回归分析法预测未来某一时期的销售情况；与 Excel 进 行关联，可直接从 Excel 表中导入销售数据；增设用户权限，实现用户分权管 理，确保系统的安全性；确保系统运行稳定、安全可靠；系统最大限度地实现 了易安装性、易维护性和易操作性1。 2 相关理论支持 2.1 时间序列法 时间序列法就是将过去的历史资料和数据按时间顺序排列起来的一组数字 序列。其特点是：假定影响未来市场需求和销售量的各种因素与过去的影响因 素大体相似，并且产品的需求形态有一定的规律。因而，只要将时间序列的倾 向性进行统计分析并加以延伸，便可以推测出市场需求的变化趋势，从而做出 武汉纺织大学 2010 届毕业设计论文 5 预测。 这种方法简单易行，应用较为普遍，但经济事件的未来状态不可能是过去 的简单重复，因此，这种方法适用于短期预测或中期预测。若时间序列的数据 虽时间的变化波动很大，或是市场环境变化很大，国家的经济政策有重大变化， 经济增长发生转折，一般不宜采用这种方法。 市场需求的变化随时间而变，一般都受两类因素的影响：一类是对市场需 求动态起主导作用的规律性因素；另一类是对市场需求动态起辅助性和临时性 作用的偶然性因素。时间序列分析法主要是要消除偶然性因素的影响，把时间 序列作为随机变量序列，采用数学平均或加权平均方法进行预测。经常使用的 时间序列分析法有简单平均法、加权平均法、指数平滑法和季节指数法。这里 仅介绍前两种分析方法。 如果产品的需求形态近似于平均形态或产品处于成熟期，可用简单平均法 进行预测，将过去的实际销售量的时间序列数据进行简单平均，把平均值作为 下一期的预测值。以下是简单平均法的计算公式： 过去各期实际销量之和 预测销售量 期数 如果过去的实际销售量有明显的增长(或下降)趋势，则使用加权平均法。即 逐步加大近期实际销售量在平均值中的权数，然后予以平均，确定下期的预测 值。以下是加权平均法的两种计算公式： 1 1 W n ii i n i i i i C D C 式中: W -预测值 D-i 期的销售额 C-i 期销售额的“ 权” 值 1 1 WC D C1 n ii i i i n i i i i 式中: W -预测值 D-期的销售额 C-期的销售额的“ 权” 值 公式（2- 1） 公式（2- 2） 公式（2- 3） 武汉纺织大学 2010 届毕业设计论文 6 2.2 一元线性回归预测法 一元线性回归预测法是分析一个因变量与一个自变量之间的线性关系的预 测方法，常用统计指标：平均数、增减量、平均增减量。 一元回归预测的基本思想是确定回归直线，得出回归直线方程，并依此得 出预测值。确定直线的方法是最小二乘法，其基本思想是：最有代表性的直线 应该是直线到各店距离最近，然后用这条直线进行预测。 一元线性回归预测模型的建立步骤：选取一元线性回归模型的变量；绘制 计算表和模拟合散点图；计算变量间的回归系数及其相关的显著性；回归分析 结果的应用。下面比较详细地描述一元回归直线的求法。 在取得两个变量的实验数据之后，若在普通直角坐标系上标出各个数据点， 若果各点的分布近似乎一条直线，则可考虑采用线性回归法求其表达式。一元 线性回归分析法的预测模型为： , t t t abx t Y a b Y 式中，x 代表期自变量的值 代表t 期因变量的值 代表一元线性回归方程的参数 a、b 参数由下列公式求得（用代表）： n i 1 为简便计算，我们作以下定义： ii XY XY nn 式中， 公式（2- 6） 公式（2- 5） 公式（2- 4） 武汉纺织大学 2010 届毕业设计论文 7 这样定义 a、b 后，参数由下列公式求得： 将 a、b 代入一元线性回归方程，就可以建立预测模型，那么， tt YabX 只要给定值，即可求出预测值 。 t X tY 在回归分析预测法中，需要对 X、Y 之间相关程度做出判断，这就要计算相 关系数 Y，其公式如下： 相关系数 r 的特征有：相关系数取值范围为：-1r1。r 与 b 符合相同。 当 r0，称正线性相关，Xi 上升，Yi 呈线性增加。当 r0，称负线性相关，Xi 上升，Yi 呈线性减少。|r|=0，X 与 Y 无线性相关关系；|r|=1，完全确定的线 性相关关系；0|r|0.7，为高度线 性相关；0.3 0 Then rs1.MoveLast rs1.MoveFirst nums = rs1.RecordCount Radium arrValues(1 To nums, 1 To 2) For i = 1 To nums arrValues(i, 1) = & rs1!跟踪月份 arrValues(i, 2) = rs1!市场价格 rs1.MoveNext 武汉纺织大学 2010 届毕业设计论文 19 Next i MSChart1.ChartData = arrValues End If rs1.Close MSChart1.Title = & cp & 市场价格走势图 End Sub 5.1.2 数据导入界面设计 销售数据导入模块主要是与 Excel 表的进行对接，实现从 Excel 表向数据 库表中导入数据。5-2 为导入销售数据的效果图。 图 5-2 销售数据导入效果图 销售数据导入模块代码： Dim newxls As Excel.Application Dim newbook As Excel.Workbook Dim newsheet As Excel.Worksheet Private Sub Label3_Click() Set newxls = CreateObject(Excel.Application) If Option1.Value = True Then xstb = 销售表 Else xstb = 销售计划表 End If Set newbook = newxls.Workbooks.Open(App.Path & & xstb & .xls) 武汉纺织大学 2010 届毕业设计论文 20 newxls.Visible = True End Sub Private Sub Command1_Click() CommonDialog1.ShowOpen CommonDialog1.Filter = Excel 文件(*.xls)|*.xls Text1 = CommonDialog1.FileName End Sub Private Sub Command2_Click() If Option1.Value = True Then xstb = 销售表 Else xstb = 销售计划表 End If Text2 = 正在导入数据. Set newxls = CreateObject (Excel.Application) Set newbook = newxls.Workbooks.Open(Text1) Set newsheet = newbook.Worksheets(xstb) Me.Enabled = False rs1.Open xstb, Cnn, adOpenKeyset, adLockOptimistic intOr = rs1.RecordCount For r = 2 To 2000 If newsheet.Cells(r, 1) Then rs1.AddNew For c = 1 To rs1.Fields.Count - 2 rs1.Fields(c - 1) = newsheet.Cells(r, c) Next c rs1.Update intNew = intNew + 1 End If Next r rs1.Close newxls.Quit Text2 = Text2 & Chr(13) & Chr(10) & 共成功导入 & intNew & 条数据。 Me.Enabled = True End Sub 武汉纺织大学 2010 届毕业设计论文 21 5.1.3 销售预测界面设计 销售预测主要是根据某个产品前一段时期的销售情况来绘制出其销售额的 走势图，同时采用加权平均法和简单平均法分别计算出下一期的销售额，预测 值与实际值进行比对分析之后，发现采用加权平均法进行预测更为科学，得到 的预测值更接近实际的销售额。图 5-3 为销售预测界面效果图。 图 5-3 销售预测界面效果图 预测功能主要代码如下： Dim rs1 As New ADODB.Recordset Dim i As Integer Dim k As Long Dim sum(11), A(11), j(11) As Long sum 为每月销售额*权值 ，A 记录每月销 售额，J 每月的权值 Private Sub Command1_Click() 按加权平均法预测下个月的销售额 If Text1(0).text = And Text1(1).text = And Text1(2).text = And Text1(3).text = And Text1(4).text = And Text1(5).text = _ And Text1(6).text = And Text1(7).text = And Text1(8).text = And Text1(9).text = And Text1(10).text = And Text1(11).text = Then MsgBox 至少提供两个月的销售额！, , 提示！ Text1(i).text = 0 End If For i = 0 To 6 A(i) = Val(Text1(i).text) text 数组控件传递每月销售额的值 武汉纺织大学 2010 届毕业设计论文 22 Next i For i = 0 To 6 sum(i) = Val(Text1(i).text) * Val(Text2(i).text) Next i Text1(7).text = sum(0) + sum(1) + sum(2) + sum(3) + sum(4) + sum(5) + sum(6) End Sub Private Sub Command6_Click() 按简单平均法预测 If Text3(0).text = And Text3(1).text = And Text3(2).text = And Text3(3).text = And Text3(4).text = And Text3(5).text = _ And Text3(6).text = And Text3(7).text = And Text3(8).text = And Text3(9).text = And Text3(10).text = And Text3(11).text = Then MsgBox 至少提供两个月的销售额！, , 提示！ Text1(i).text = 0 End If For i = 0 To 6 A(i) = Val(Text3(i).text) Next i k = A(0) + A(1) + A(2) + A(3) + A(4) + A(5) + A(6) Text3(7).text = k / 7 End Sub 5.2 系统管理功能设计 系统管理设计的一个重要模块，它负责管理系统操作员的账号和密码，设 置他们的管理权限，让系统操作员根据他们所具备的管理权限来管理相应的模 块。 同时此模块具备让初始化数据库表的功能，这样，方面管理员更新数据库表中 的 数据。图 5-4，图 5-5 分别为用户管理、数据初始化的效果图。 武汉纺织大学 2010 届毕业设计论文 23 图 5-4 用户管理效果图 图 5-5 数据初始化效果图 用户管理的主要代码： Dim rs1 As New ADODB.Recordset Dim i As Integer Private Sub form_load() Me.Caption = text rs1.Open 权限信息表, Cnn, adOpenKeyset, adLockOptimistic For i = 0 To Check1.UBound Check1(i).Caption = rs1.Fields(i).Name Next i 武汉纺织大学 2010 届毕业设计论文 24 rs1.Close Set rs1 = Nothing DataList1.text = ado1.Recordset.Fields(操作员) DataList1_Click End Sub Private Sub Command3_Click() 为操作员设置权限 For i = 0 To Check1.UBound If Check1(i).Value = 1 Then Cnn.Execute (update 权限信息表 set & Check1(i).Caption & =1 where 操作员= + DataList1.BoundText + ) Else Cnn.Execute (update 权限信息表 set & Check1(i).Caption & =0 where 操作员= + DataList1.BoundText + ) End If Next i Unload Me End Sub 初始化功能的设计代码： Dim i As Integer Private Sub form_load() Me.Caption = text Dim rstSchema As ADODB.Recordset Set rstSchema = Cnn.OpenSchema(adSchemaTables) Do Until rstSchema.EOF If left(rstSchema!TABLE_NAME,3) sys and Left(rstSchema!TABLE_NAME,3) dtp” then List1.AddItem rstSchema!TABLE_NAME End If rstSchema.MoveNext Loop rstSchema.Close End Sub Private Sub cmdDel_Click() 清除所选表中数据 Dim Counter As Integer 定义一个整型变量 Dim Workarea(250) As String 定义字符串变量 武汉纺织大学 2010 届毕业设计论文 25 ProgressBar1.Visible = True ProgressBar1.Max = UBound(Workarea) ProgressBar1.Min = LBound(Workarea) 设置进度的值为 Min ProgressBar1.Value = ProgressBar1.Min 在整个数组中循环 For Counter = LBound(Workarea) To UBound(Workarea) 设置数组中每项的初始值 W