企业营销管理系统论文

吉林省明日科技有限公司监制J I A N G S U U N I V E R S I Y本 科 毕 业 论 文 企业营销管理系统 Enterprise Marketing Management System专 业： 计算机科学与技术 班 级： 04计本（1） 姓 名： 蒋 峥 指导教师姓名： 王新胜、巫宗宾 指导教师职称： 副教授、助教 2008年6企业营销管理系统专业班级：04计算机（1）班 学生姓名：蒋峥指导教师：王新胜、巫宗宾 职称：副教授、助教【摘要】伴随着中国经济从计划经济向市场经济转型，从卖方市场向买方市场过渡，以及全球性的产品过剩以及产品的同质化，导致市场竞争加剧。在这种状况之下，导致企业营销环境也在加速变化，企业会经常面临着不能及时掌握销售人员业绩，对销售人员工作过程掌握不够，不能及时了解销售状况，不能对各地区销售分公司的销售数据进行有效管理，不能及时对销售数据进行分析及对市场行情进行预测，决策缓慢，不能及时调整商品的价格，延缓商机等问题。通过企业营销管理系统可以有效地解决这些问题。为企业提供一个高效、规范、轻松的营销工作环境，满足企业不断发展的需要。【关键词】 企业营销、管理系统、数据库管理系统Enterprise Marketing Management System【Abstract】As Chinas economy from a planned economy to market economy in transition, from a sellers market to a buyers market transition and the global surplus of products and the homogenization of products, leading to intensified market competition. In such a situation, corporate marketing environment has led to accelerated change, enterprises often face can not make the best of sales performance, the sales process have not and can not understand sales, not on the regional sales office Sales data for effective management, timely analysis of sales data and to predict the market prices, slow decision-making, timely adjustment of commodity prices, slow down business opportunities, and other issues. Through business marketing management system can effectively solve these problems. To provide an efficient, standardized, easy marketing environment, companies continue to meet the needs of the development.【Key words】marketing, management system, database management system 3 目录 第一章 引言11系统开发的背景伴随着中国经济从计划经济向市场经济转型，从卖方市场向买方市场过渡，以及全球性的产品过剩以及产品的同质化，导致市场竞争加剧。在这种状况之下，导致企业营销环境也在加速变化，企业会经常面临着如下棘手的问题：q1、不能及时掌握销售人员业绩。q2、对销售人员工作过程掌握不够。q3、不能及时了解销售状况。q4、不能对各地区销售分公司的销售数据进行有效管理。q5、不能及时对销售数据进行分析及对市场行情进行预测。q6、决策缓慢，不能及时调整商品的价格，延缓商机。12课题中涉及的相关技术及概念121相关技术系统采用了先进的access数据库技术，面向对象的编程方法学以及软件工程方法学122 Visual Basic概念简介visual Basic 6.0中文版是一种应用程序开发工具。Visual Basic 6.0是在原有的Basic语言的基础上的进一步发展，他包含了数百条语句。函数及关键词，其中很多与Windows GUI有直接的关系。Visual Basic 语言简单易学，只要稍有语言基础就可以很快的掌握并进而精通。可视化的用户界面设计功能，把程序设计人员从繁琐复杂的截面设计中解脱出来；可视化编程环境的“所见即所得（WYSIWYG）”功能，是界面设计如积木游戏一般，编程变成了一种享受；强大的多媒体功能可轻而易举地开发出集声音，动画，影像和图片于一体的多媒体应用程序；新增的网络功能提供了编写Internet程序的能力。Visual Basic 6.0 还支持用户自己开发ActiveX控件和制作ActiveX文档。VB的基本特点有：1） VB提供可视化的编程工具2） VB向程序员提供图形对象（窗体，控件，菜单等）进行应用程序的界面设计，应用程序的界面相当于用工具画出来的，大大简化了程序员的编程工作。3） 程序采取“事件驱动”方式4） VB改变了程序的机制，没有传统意义上的主程序，使程序执行的基本方法是有“事件”来驱动子程序（或过程）的运行，如用鼠标点击命令按扭，就产生了一个命令按扭的“单击事件”，响应的执行一段程序（事件过程：Command1_Click()）。第二章 需求分析企业营销部门对信息的依赖日益加剧，例如：随着商品的市场覆盖面的扩大，就需要掌握比以前更多更及时的市场信息；从价格竞争发展到非价格竞争，为了有效地运用差异化、广告和促销等竞争工具，也需要更多的信息资源。随着科学技术的发展，对这些急剧增加信息的需要，已能够通过因特网、传真机等得到有效解决。然而，许多企业的信息处理还不够精细。许多公司还没有营销调研部门或只有小的营销调研部，许多经理对可利用的信息感到不满意。抱怨他们不了解重要的信息在哪里；他们不能利用的信息太多而真正有用的信息太少；重要的信息来得太迟；很难估计收到的信息的准确性。第三章 总体设计3.1 系统结构设计C/S结构就是“客户端/服务端”的一种工作模式。一般来说，这种模式都会要求安装一个客户端程序，由这个程序和服务器端进行协同工作，因为由客户端来专门处理一些工作，所以C/S结构的程序一般都功能强大、界面漂亮，由于任务分散在服务器端和客户端分别进行，所以提高了硬件的利用效率，对于程序员来说，编程开发也更加的容易。基于以上原因，在设计企业营销管理系统时，采用了传统的基于两层的C/S结构。3.2 系统功能结构企业营销管理系统的功能结构如图1所示。图3-13.3 系统功能概述3.3.1基本资料管理基本资料管理为企业营销管理系统提供基础资料。其主要包括：区域管理、产品管理、销售训练项目设置和销售考核指标设置。3.3.2销售组织销售组织可有效地管理及控制企业的销售团队，提高销售员的专业水平，激励销售员做出更大的业绩。其主要包括：销售组织、业务员管理、销售训练、销售业绩考核。3.3.3市场管理市场管理主要根据收集产品在市场上的价格信息，对产品的市场走势以视图的形式进行显示，为企业决策者提供决策依据。其主要包括：市场反馈、市场跟踪、市场走势。3.3.4销售业务管理销售业务管理主要管理销售流程各环节的活动，是企业营销管理系统的核心部分。该模块将企业所有销售环节有机的组合起来，使其产品化。销售业务管理可实现销售数据的导入或录入，并根据销售数据对下一年度某一区域的销售情况进行预测及制订下一年的销售计划。其主要包括：销售数据导入、销售数据录入、销售预测、年销售计划。3.3.5销售分析销售分析主要对销售过程中各种数据进行分析，得出统计报表，如销售月报表、销售季报表。其主要包括：月销售分析、季销售分析、年销售分析。3.3.6营销资源管理营销资源管理用于管理企业营销活动中所应用到的资源，确保企业资源合理利用。实现了对企业名录、个人名录、邮件资源、营销礼品的灵活查询及管理，是进行客户拓展的资源基础，并为挖掘客户提供依据。其主要包括企业名录、个人名录、邮件资源、营销礼品。3.3.7系统管理登录系统时需要验证身份，只有合法的用户才可以进入企业营销管理系统，不同的用户拥有不同的使用权限。系统管理可以实现对用户的管理，并可对系统内的数据进行初始化操作，以清空系统内所有数据。其主要包括：用户管理、密码修改、数据初始化。3.3.8辅助工具辅助工具中提供了使用本系统的帮助及版权信息，并可通过相应模块登录到开发商网站。其主要包括：帮助、关于、网上明日。第四章 系统设计4.1 设计目标企业营销管理系统本着经济、实用、高效的原则，为企业提供一个高效、规范、轻松的营销工作环境，满足企业不断发展的需要。具体实现目标如下：q1、系统采用人机对话方式，界面美观友好，信息查询灵活、方便、快捷、准确，数据存储安全可靠。q2、对用户输入的数据，系统进行严格的数据检验，尽可能排除人为的错误。q3、万能查询器实现自由设置查询。q4、根据业务员的销售业绩完成比率，自动计算业务员的得分情况。q5、根据市场跟踪数据以图表形式显示产品的市场走势。q6、根据本年度的销售数据对下一年度的销售情况进行预测。q7、与Excel实现无缝连接，可将Excel表中的数据直接导入到系统中。q8、不同的操作员有不同的操作权限，增强了系统的安全性。q9、系统最大限度地实现了易安装性、易维护性和易操作性。q10、系统运行稳定、安全可靠。4.2 开发及运行环境系统开发平台：Visual Basic 6.0。数据库管理平台：SQL Server2000。运行平台：Windows XP/ Windows 2000。分辨率：最佳效果1024768。4.3 编码设计编码设计是数据库系统开发的前提条件，是系统不可缺少的重要内容。编码是指与原来名称对应的编号、符号或记号。它是进行信息交换、处理、传输和实现信息资源共享的关键。编码也用于指定数据的处理方法、区别数据类型，并指定计算机处理的内容等。本系统内部信息编码采用了统一的编码方式情况。如下所示：产品编号：该编号为5位数字编码，初始值为“00001”，后面的产品编号依次往下排。单据号：由当前系统日期、单据标识和4位数字编码组成。例如，销售单单据号为2005-10-12xs0001，销售计划单据号为2005-12-09xsjh0007。4.4 数据库设计本系统数据库采用SQL Server 2000数据库，系统数据库名称为db_Csell。数据库db_Csell中包含19张表。下面是数据表概要说明及数据表的结构。4.4.1数据表概要说明数据表树型结构如图2所示。图4-14.4.2数据表的结构q 产品表产品表用来保存产品基础信息，其结构如表1所示。表1 产品信息表的结构字段名数据类型长度产品编号varchar5品名规格varchar200单位varchar10单价money8备注text16q 考核指标表考核指标表用来保存考核指标信息，其结构如表2所示。表2 考核指标表的结构字段名数据类型长度IDbigint8考核指标varchar20q 销售考核表销售考核表用来保存销售考核详细信息，其结构如表3所示。表3 销售考核表的结构字段名数据类型长度IDbigint8业务员编号varchar4业务员姓名varchar20考核指标varchar20完成率varchar20分数numeric9年度varchar10考核日期datetime8q 市场跟踪表市场跟踪表用来保存市场跟踪的详细信息，其结构如表4所示。表4 市场跟踪表的结构字段名数据类型长度IDbigint8品名规格varchar200市场价格money8市场信息text16备注text16跟踪月份varchar10跟踪人varchar10录入日期datetime8q 销售表销售表用来保存产品销售详细信息，其结构如表5所示。表5 销售表的结构字段名数据类型长度产品编号varchar5品名规格varchar200单位varchar10单价money8月销量numeric9月销售额money8销售组织编号varchar5销售组织名称varchar50所在区域varchar200单据号varchar30所在月份varchar10录入日期datetime8q 预测表预测表用来保存销售预测信息，其结构如表6所示。表6 销售预测表的结构字段名数据类型长度IDbigint8产品编号varchar5品名规格varchar200预测年销量numeric9预测年销售额money8固定增长率varchar10预测日期datetime8q 个人名录表个人名录表结构如表7所示。表7 个人名录表的结构字段名数据类型长度IDbigint公司名称varchar50姓名varchar10职务varchar10地址varchar40邮编varchar10电话varchar20手机varchar30q 礼品表礼品表结构如表8所示。表8 礼品表的结构字段名数据类型长度IDbigint礼品名称varchar50规格varchar10单价money总数量nvarchar已发放数量nvarchar库存数量nvarchar特点varchar50q 企业名录表企业名录表结构如表9所示。表9 企业名录表的结构字段名数据类型长度IDbigint企业名称varchar200负责人varchar10地址varchar50邮编varchar10电话varchar20传真varchar10是否上市varchar2q 区域表区域表结构如表10所示。表10 区域表的结构字段名数据类型长度区域编号varchar50本级编号varchar20区域名称varchar20区域全称varchar200区域码varchar5邮政编码varchar10编码级次bigintq 市场反馈表市场反馈表结构如表11所示。表11 市场反馈表的结构字段名数据类型长度IDbigint业务员编号varchar4业务员名称varchar20反馈项目varchar200反馈内容varchar反馈时间datetime所属区域varchar200区域负责人varchar10q 销售计划表销售计划表结构如表12所示。表12 销售计划表的结构字段名数据类型长度IDbigint品名规格varchar200计划销量nvarchar计划销售额money销售区域varchar200计划年份varchar10单据号varchar30q 销售训练表q 销售训练表结构如表13所示。表13 销售训练表的结构字段名数据类型长度IDbigint业务员编号varchar4业务员姓名varchar20训练项目varchar50时数int开始时间datetime结束时间datetime成绩varchar10q 销售组织表销售组织表结构如表14所示。表14 销售组织表的结构字段名数据类型长度编号varchar5名称varchar50负责人varchar20所在区域varchar200地址varchar50电话varchar30Emailvarchar40邮编varchar10q 训练项目表训练项目表结构如表15所示。表15 训练项目表的结构字段名数据类型长度IDbigint训练项目varchar50q 业务员表业务员表结构如表16所示。表16 业务员表的结构字段名数据类型长度编号varchar4姓名varchar20性别varchar2身份证号varchar20联系电话varchar20手机号码varchar40其他联系方式varchar40联系地址varchar50备注varchar登记日期datetimeq 邮箱表邮箱表结构如表17所示。表17 邮箱表的结构字段名数据类型长度IDbigint邮箱varchar50q 预测表预测表结构如表18所示。表18 预测表的结构字段名数据类型长度IDbigint品名规格varchar200预测销量nvarchar预测销售额money预测年份varchar10销售区域varchar200录入日期datetime第五章 主要功能模块设计5.1 公用模块设计用公用模块来存放整个工程项目中公用的函数、全局变量等，使工程项目中的任何地方都可以调用公用模块中的函数、变量，极大地提高了程序开发效率和代码重复利用率。在营销资源管理系统中，就创建了这样一个模块，该模块的名称为Module1，其中包括自定义的全局变量、数据库连接函数、工具栏状态设置函数。5.1.1添加全局变量添加全局变量，用于存储操作员、表和SQL语句，代码如下：Public czy As String, tb As String, tb1 As String, jbxxtb As String, sql As String, sql1 As String, text As Stringtext变量主要用于存储菜单标题，以赋给各个窗体的Caption属性，这样为程序开发人员带来了方便，以免逐个设置窗体的Caption属性。添加全局变量，用来标记各个窗体数据添加或修改的状态，代码如下：Public blnAddCP As Boolean, blnAddYWY As Boolean, blnAddXSZZ As Boolean, blnAddQYML As BooleanPublic blnAddGRML As Boolean, blnAddLP As Boolean, blnAddXSXL As Boolean, blnAddXSKH As BooleanPublic blnAddSCGZ As BooleanblnAdd.变量用户记录数据添加还是修改状态，赋值为True为添加，赋值为False为修改。添加全局变量，用来记录返回到哪个窗体，代码如下：Public IntLoadDataTree As Integer, intCP As IntegerIntLoadDataTree变量用来记录返回到哪个窗体，赋值为1返回main_xszz_xszzgl_lr窗体；赋值为2返回main_xsyw_xsyc窗体；赋值为3返回main_xsyw_xsjh窗体。IntCP变量用来记录返回到哪个窗体，赋值为0返回main_scgl_sczs窗体，赋值为1返回main_scgl_scgzgl_lr窗体，赋值为2返回main_xsyw_xsyc窗体。添加全局变量，用来标记DataGrid控件中RowBuffer对象内部指定行的书签，代码如下：Public CPBookmark, YWYBookmark, XSZZBookmark, QYMLBookmark, GRMLBookmark, LPBookmarkPublic XSKHBookmark, XSXLBookmark, SCGZBookmark5.1.2定义数据库连接函数为了减少重复的数据连接和为日后修改程序提供接口，在公用模块（Module1）中建立了数据库连接函数cnn和cnStr。如果使用对象操作数据库，可以调用cnn函数；如果使用ADO控件访问数据库，则可以调用字符串函数cnStr，并将该函数值赋给ADO控件的ConnectionString属性。代码如下：Public Function cnstr() As String cnstr = Provider=SQLOLEDB;Persist Security Info=False;User ID=sa;Initial Catalog=db_CsellEnd FunctionPublic Function Cnn() As ADODB.Connection 定义函数 Set Cnn = New ADODB.Connection 返回一个数据库连接 Cnn.Open Driver=SQL Server;Server=(local);Database=db_Csell;Uid=sa;Pwd=End Function5.1.3定义用于设置Toolbar按钮状态的函数大部分功能窗体中都使用了Toolbar控件，为了控制其状态，定义了下面的函数，代码如下：定义用于设置Toolbar工具栏按钮状态的函数Public Function tlbState(tlb As Toolbar, state As Boolean) With tlb If state = True Then .Buttons(1).Enabled = False: .Buttons(2).Enabled = False: .Buttons(3).Enabled = False .Buttons(6).Enabled = False:.Buttons(4).Enabled = True: .Buttons(5).Enabled = True Else .Buttons(1).Enabled = True: .Buttons(2).Enabled = True:.Buttons(3).Enabled = True .Buttons(6).Enabled = True: .Buttons(4).Enabled = False: .Buttons(5).Enabled = False End If End WithEnd Function5.2 主界面设计软件界面是人与计算机之间的媒介，用户通过软件界面来与计算机进行信息交换，因此，软件界面的质量将直接关系到应用系统的性能能否充分发挥，尤其是主界面。但由于自身的力量缺乏，导致软件虽然功能强大，但却苦于没有人性化的精美主界面，因此影响了软件的整体形象。针对这种现状，企业营销管理系统的主界面改变了传统的设计风格，将美学思想整合进去，引入平面设计思想，真正实现了使用户准确、高效、轻松、愉快地工作。企业营销管理系统主界面的运行结果如图3所示。Outlook式导航栏动态菜单栏图3 主界面主界面担负着调用各个功能模块，赋予操作员不同的操作权限，显示当前操作员、操作状态和系统日期等任务，其中应用了动态创建列表项、动态定位列表等技术，具体步骤如下。1创建主窗体（1）选择“工程”“添加窗体”命令，在工程中添加一个新窗体，将该窗体的“名称”属性设置为frm_main，BorderStyle属性设置为2-Sizable，Caption属性设置为“企业营销管理系统”，Picture属性设置为事先设计好的背景图片。（2）在frm_main窗体上添加一个StatusBar控件和一个CommonDialog控件。2创建标准菜单选择“工具”“菜单编辑器”命令，打开菜单编辑器，在此创建如图4所示的菜单结构。图4 标准菜单的结构3创建动态菜单栏当鼠标移到动态菜单栏时，菜单项将凸起，菜单标题也由原来的“黑色”变为“红色”，结果如图5所示。 图5 动态菜单栏的结构创建动态菜单栏的步骤如下。（1）在frm_main窗体图片的动态菜单栏所在添加Label控件数组（Label2(0)Label2(7)），设置其BackStyle属性为0-Transparent，ForeColor属性为“&H&”，Caption属性分别为“产品管理”、“销售组织”、“销售训练”、“销售业绩考核”、“市场跟踪”、“市场走势”、“销售数据导入”、“销售预测”。（2）在窗体上添加一个Picture控件，默认名为Picture1，设置其BorderStyle属性为0-None；Picture属性为事先设计好的图片。（3）在Picture1控件里添加1个Label控件，设置“名称”属性为lblCaption；BackStyle属性为0-None；ForeColor属性为&H&。4创建Outlook式导航栏当单击Outlook式导航栏上的导航按钮时，该导航栏将展开，并显示相应的项，单击该项则调入相应的功能窗体，具体设计步骤如下。（1）在frm_main窗体上添加Picture控件数组（picMenu(0)picMenu(7)），设置其BorderStyle属性为0-None；Picture属性为事先设计好的图片。（2）在picMenu(0)picMenu(7)控件数组中各添加一个Label（lblMenu）控件数组，其index属性与picMenu控件数组的index属性相同，BackStyle属性为0-Transparent，ForeColor属性为“&H00FFFFFF&”，Caption属性分别为“基本资料管理”、“销售组织”、“市场管理”、“销售业务管理”、“销售分析”、“营销资源管理”、“系统管理”、“辅助”。（3）在窗体中添加ListView控件和ImageList控件。设置ListView控件的Appearance属性为0-ccFlat；BorderStyle属性为0-ccNone。（4）右键单击ListView控件，在弹出的菜单中选择“属性”命令，打开“属性页”对话框，在“图像列表”选项卡中，设置图标图像列表（普通）为ImageList1。5代码设计Private Declare Function ShellExecute Lib shell32.dll Alias ShellExecuteA (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFlie As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongDim rs1 As New ADODB.RecordsetDim i, j As IntegerPublic strMenu As String窗体载入时，添加状态栏，并设置相关属性，以显示操作员、当前系统日期等，代码如下：Private Sub Form_Load() lblMenu_Click (0) Dim pnlX As Panel 添加面板，并将它们设置为目录。 StatusBar1.Panels(1).AutoSize = sbrContents StatusBar1.Panels(1) = mytag Set pnlX = StatusBar1.Panels.Add pnlX.AutoSize = sbrContents pnlX.text = 当前操作员： & czy Set pnlX = StatusBar1.Panels.Add pnlX.Style = sbrDate Set pnlX = StatusBar1.Panels.Add pnlX.Style = sbrTimeEnd SubPrivate Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Label1(Index).ForeColor = &HC0&End Sub当鼠标移到动态菜单栏上的文字上时（Label2），Picture1控件可见，使其Left属性等于Label2控件数组的Left属性，同时设置Picture1控件中的lblCaption的Caption属性等于Label2控件数组的Caption属性，代码如下。Private Sub Label2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.Left = Label2(Index).Left - 10 Picture1.Visible = True lblCaption = Label2(Index).CaptionEnd Sub当鼠标移到窗体上时恢复相关控件的属性，代码如下。Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.Visible = False For i = 0 To 3 Label1(i).ForeColor = &HC0C0C0 Next iEnd SubPrivate Sub Label1_Click(Index As Integer) If Index 3 Then m8_Click (Index) End If If Index = 3 Then EndEnd Sub通过动态菜单栏显示的标题，调用相应菜单的Click事件过程，代码如下。Private Sub lblCaption_Click() Select Case lblCaption.Caption Case 产品管理 m1_Click (1) 此处代码省略，详细内容请参见光盘 End SelectEnd Sub单击导航栏上的导航按钮，动态调整导航按钮的高度、ListView控件的高度，并向ListView控件添加项，代码如下。Private Sub lblMenu_Click(Index As Integer) strMenu = lblMenu(Index).Caption Dim m As Integer For i = 1 To Index picMenu(i).Top = picMenu(i - 1).Top + picMenu.Item(i - 1).Height Next i ListView1.Top = picMenu(i - 1).Top + picMenu.Item(i - 1).Height If Index 0 Then If rs1.Fields(Index) = False Then MsgBox 对不起，您没有使用此项功能的权限！, vbInformation, 提示窗口 rs1.Close Exit Sub End If End If rs1.Close Select Case Index Case 0 Load main_jbzl_qygl main_jbzl_qygl.Show 1 Case 1 Load main_jbzl_cpgl main_jbzl_cpgl.Show 1 Case 2 jbxxtb = 训练项目表 Load main_jbzl_public main_jbzl_public.Show 1 Case 3 jbxxtb = 考核指标表 Load main_jbzl_public main_jbzl_public.Show 1 End SelectEnd SubPrivate Sub m2_Click(Index As Integer) text = m2(Index).Caption rs1.Open select * from 权限信息表 where 操作员= & czy & , Cnn, adOpenStatic If rs1.RecordCount 0 Then If rs1.Fields(Index + 11) = False Then MsgBox 对不起，您没有使用此项功能的权限！, vbInformation, 提示窗口 rs1.Close Exit Sub End If End If rs1.Close Select Case Index Case 0 Load main_xszz_xszzgl main_xszz_xszzgl.Show 1 Case 1 Load main_xszz_ywygl main_xszz_ywygl.Show 1 Case 2 Load main_xszz_xsxlgl main_xszz_xsxlgl.Show 1 Case 3 Load main_xszz_xsyjgl main_xszz_xsyjgl.Show 1 End SelectEnd Sub此处代码与上述代码的设计思路相同，因此省