企业营销管理系统论文

1、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）班 学生姓名：蒋峥指导教师：王新胜、巫宗宾 职称：副教授、助教【摘要】伴随着中国经济从打算经济向市场经济转型，从卖方市场向买方市场过渡，以及全球性的产品过剩以及产品的同质化，导致市场竞争加剧。在这种状况之下，导致企业营销环境也在加速

2、变化，企业会经常面临着不能及时掌握销售人员业绩，对销售人职员作过程掌握不够，不能及时了解销售状况，不能对各地区销售分公司的销售数据进行有效治理，不能及时对销售数据进行分析及对市场行情进行预测，决策缓慢，不能及时调整商品的价格，延缓商机等问题。通过企业营销治理系统能够有效地解决这些问题。为企业提供一个高效、规范、轻松的营销工作环境，满足企业不断进展的需要。【关键词】 企业营销、治理系统、数据库治理系统Enterprise Marketing Management System【Abstract】As Chinas economy from a planned economy to market

3、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

4、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 dow

5、n 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

6、management system目录第一章 引言11系统开发的背景伴随着中国经济从打算经济向市场经济转型，从卖方市场向买方市场过渡，以及全球性的产品过剩以及产品的同质化，导致市场竞争加剧。在这种状况之下，导致企业营销环境也在加速变化，企业会经常面临着如下棘手的问题：1、不能及时掌握销售人员业绩。2、对销售人职员作过程掌握不够。3、不能及时了解销售状况。4、不能对各地区销售分公司的销售数据进行有效治理。5、不能及时对销售数据进行分析及对市场行情进行预测。6、决策缓慢，不能及时调整商品的价格，延缓商机。12课题中涉及的相关技术及概念121相关技术系统采纳了先进的access数据库技术，面向对象的

7、编程方法学以及软件工程方法学122 Visual Basic概念简介visual Basic 6.0中文版是一种应用程序开发工具。Visual Basic 6.0是在原有的Basic语言的基础上的进一步进展，他包含了数百条语句。函数及关键词，其中专门多与Windows GUI有直接的关系。Visual Basic 语言简单易学，只要稍有语言基础就能够专门快的掌握并进而精通。可视化的用户界面设计功能，把程序设计人员从繁琐复杂的截面设计中解脱出来；可视化编程环境的“所见即所得（WYSIWYG）”功能，是界面设计如积木游戏一般，编程变成了一种享受；强大的多媒体功能可轻而易举地开发出集声音，动画，影像

8、和图片于一体的多媒体应用程序；新增的网络功能提供了编写Internet程序的能力。Visual Basic 6.0 还支持用户自己开发ActiveX控件和制作ActiveX文档。VB的差不多特点有：VB提供可视化的编程工具VB向程序员提供图形对象（窗体，控件，菜单等）进行应用程序的界面设计，应用程序的界面相当于用工具画出来的，大大简化了程序员的编程工作。程序采取“事件驱动”方式VB改变了程序的机制，没有传统意义上的主程序，使程序执行的差不多方法是有“事件”来驱动子程序（或过程）的运行，如用鼠标点击命令按扭，就产生了一个命令按扭的“单击事件”，响应的执行一段程序（事件过程：Command1_Cl

9、ick()）。第二章 需求分析企业营销部门对信息的依靠日益加剧，例如：随着商品的市场覆盖面的扩大，就需要掌握比往常更多更及时的市场信息；从价格竞争进展到非价格竞争，为了有效地运用差异化、广告和促销等竞争工具，也需要更多的信息资源。随着科学技术的进展，对这些急剧增加信息的需要，已能够通过因特网、传真机等得到有效解决。然而，许多企业的信息处理还不够精细。许多公司还没有营销调研部门或只有小的营销调研部，许多经理对可利用的信息感到不中意。抱怨他们不了解重要的信息在哪里；他们不能利用的信息太多而真正有用的信息太少；重要的信息来得太迟；专门难可能收到的信息的准确性。第三章 总体设计3.1 系统结构设计C/

10、S结构确实是“客户端/服务端”的一种工作模式。一般来讲，这种模式都会要求安装一个客户端程序，由那个程序和服务器端进行协同工作，因为由客户端来专门处理一些工作，因此C/S结构的程序一般都功能强大、界面漂亮，由于任务分散在服务器端和客户端分不进行，因此提高了硬件的利用效率，关于程序员来讲，编程开发也更加的容易。基于以上缘故，在设计企业营销治理系统时，采纳了传统的基于两层的C/S结构。3.2 系统功能结构企业营销治理系统的功能结构如图1所示。图3-13.3 系统功能概述3.3.1差不多资料治理差不多资料治理为企业营销治理系统提供基础资料。其要紧包括：区域治理、产品治理、销售训练项目设置和销售考核指标

11、设置。3.3.2销售组织销售组织可有效地治理及操纵企业的销售团队，提高销售员的专业水平，激励销售员做出更大的业绩。其要紧包括：销售组织、业务员治理、销售训练、销售业绩考核。3.3.3市场治理市场治理要紧依照收集产品在市场上的价格信息，对产品的市场走势以视图的形式进行显示，为企业决策者提供决策依据。其要紧包括：市场反馈、市场跟踪、市场走势。3.3.4销售业务治理销售业务治理要紧治理销售流程各环节的活动，是企业营销治理系统的核心部分。该模块将企业所有销售环节有机的组合起来，使其产品化。销售业务治理可实现销售数据的导入或录入，并依照销售数据对下一年度某一区域的销售情况进行预测及制订下一年的销售打算。

12、其要紧包括：销售数据导入、销售数据录入、销售预测、年销售打算。3.3.5销售分析销售分析要紧对销售过程中各种数据进行分析，得出统计报表，如销售月报表、销售季报表。其要紧包括：月销售分析、季销售分析、年销售分析。3.3.6营销资源治理营销资源治理用于治理企业营销活动中所应用到的资源，确保企业资源合理利用。实现了对企业名录、个人名录、邮件资源、营销礼品的灵活查询及治理，是进行客户拓展的资源基础，并为挖掘客户提供依据。其要紧包括企业名录、个人名录、邮件资源、营销礼品。3.3.7系统治理登录系统时需要验证身份，只有合法的用户才能够进入企业营销治理系统，不同的用户拥有不同的使用权限。系统治理能够实现对用

13、户的治理，并可对系统内的数据进行初始化操作，以清空系统内所有数据。其要紧包括：用户治理、密码修改、数据初始化。3.3.8辅助工具辅助工具中提供了使用本系统的关心及版权信息，并可通过相应模块登录到开发商网站。其要紧包括：关心、关于、网上明日。第四章 系统设计4.1 设计目标企业营销治理系统本着经济、有用、高效的原则，为企业提供一个高效、规范、轻松的营销工作环境，满足企业不断进展的需要。具体实现目标如下：1、系统采纳人机对话方式，界面美观友好，信息查询灵活、方便、快捷、准确，数据存储安全可靠。2、对用户输入的数据，系统进行严格的数据检验，尽可能排除人为的错误。3、万能查询器实现自由设置查询。4、依

14、照业务员的销售业绩完成比率，自动计算业务员的得分情况。5、依照市场跟踪数据以图表形式显示产品的市场走势。6、依照本年度的销售数据对下一年度的销售情况进行预测。7、与Excel实现无缝连接，可将Excel表中的数据直接导入到系统中。8、不同的操作员有不同的操作权限，增强了系统的安全性。9、系统最大限度地实现了易安装性、易维护性和易操作性。10、系统运行稳定、安全可靠。4.2 开发及运行环境系统开发平台：Visual Basic 6.0。数据库治理平台：SQL Server2000。运行平台：Windows XP/ Windows 2000。分辨率：最佳效果1024768。4.3 编码设计编码设计

15、是数据库系统开发的前提条件，是系统不可缺少的重要内容。编码是指与原来名称对应的编号、符号或记号。它是进行信息交换、处理、传输和实现信息资源共享的关键。编码也用于指定数据的处理方法、区不数据类型，并指定计算机处理的内容等。本系统内部信息编码采纳了统一的编码方式情况。如下所示：产品编号：该编号为5位数字编码，初始值为“00001”，后面的产品编号依次往下排。单据号：由当前系统日期、单据标识和4位数字编码组成。例如，销售单单据号为2005-10-12xs0001，销售打算单据号为2005-12-09xsjh0007。4.4 数据库设计本系统数据库采纳SQL Server 2000数据库，系统数据库名

16、称为db_Csell。数据库db_Csell中包含19张表。下面是数据表概要讲明及数据表的结构。4.4.1数据表概要讲明数据表树型结构如图2所示。图4-14.4.2数据表的结构产品表产品表用来保存产品基础信息，其结构如表1所示。表1 产品信息表的结构字段名数据类型长度产品编号varchar5品名规格varchar200单位varchar10单价money8备注text16考核指标表考核指标表用来保存考核指标信息，其结构如表2所示。表2 考核指标表的结构字段名数据类型长度IDbigint8考核指标varchar20销售考核表销售考核表用来保存销售考核详细信息，其结构如表3所示。表3 销售考核表的

17、结构字段名数据类型长度IDbigint8业务员编号varchar4业务员姓名varchar20考核指标varchar20完成率varchar20分数numeric9年度varchar10考核日期datetime8市场跟踪表市场跟踪表用来保存市场跟踪的详细信息，其结构如表4所示。表4 市场跟踪表的结构字段名数据类型长度IDbigint8品名规格varchar200市场价格money8市场信息text16备注text16跟踪月份varchar10跟踪人varchar10录入日期datetime8销售表销售表用来保存产品销售详细信息，其结构如表5所示。表5 销售表的结构字段名数据类型长度产品编号va

18、rchar5品名规格varchar200单位varchar10单价money8月销量numeric9月销售额money8销售组织编号varchar5销售组织名称varchar50所在区域varchar200单据号varchar30所在月份varchar10录入日期datetime8预测表预测表用来保存销售预测信息，其结构如表6所示。表6 销售预测表的结构字段名数据类型长度IDbigint8产品编号varchar5品名规格varchar200预测年销量numeric9预测年销售额money8固定增长率varchar10预测日期datetime8个人名录表个人名录表结构如表7所示。表7 个人名录表

19、的结构字段名数据类型长度IDbigint公司名称varchar50姓名varchar10职务varchar10地址varchar40邮编varchar10电话varchar20手机varchar30礼品表礼品表结构如表8所示。表8 礼品表的结构字段名数据类型长度IDbigint礼品名称varchar50规格varchar10单价money总数量nvarchar已发放数量nvarchar库存数量nvarchar特点varchar50企业名录表企业名录表结构如表9所示。表9 企业名录表的结构字段名数据类型长度IDbigint企业名称varchar200负责人varchar10地址varchar50

20、邮编varchar10电话varchar20传真varchar10是否上市varchar2区域表区域表结构如表10所示。表10 区域表的结构字段名数据类型长度区域编号varchar50本级编号varchar20区域名称varchar20区域全称varchar200区域码varchar5邮政编码varchar10编码级次bigint市场反馈表市场反馈表结构如表11所示。表11 市场反馈表的结构字段名数据类型长度IDbigint业务员编号varchar4业务员名称varchar20反馈项目varchar200反馈内容varchar2147483647反馈时刻datetime所属区域varchar2

21、00区域负责人varchar10销售打算表销售打算表结构如表12所示。表12 销售打算表的结构字段名数据类型长度IDbigint品名规格varchar200打算销量nvarchar打算销售额money销售区域varchar200打算年份varchar10单据号varchar30销售训练表销售训练表结构如表13所示。表13 销售训练表的结构字段名数据类型长度IDbigint业务员编号varchar4业务员姓名varchar20训练项目varchar50时数int开始时刻datetime结束时刻datetime成绩varchar10销售组织表销售组织表结构如表14所示。表14 销售组织表的结构字段

22、名数据类型长度编号varchar5名称varchar50负责人varchar20所在区域varchar200地址varchar50电话varchar30Emailvarchar40邮编varchar10训练项目表训练项目表结构如表15所示。表15 训练项目表的结构字段名数据类型长度IDbigint训练项目varchar50业务员表业务员表结构如表16所示。表16 业务员表的结构字段名数据类型长度编号varchar4姓名varchar20性不varchar2身份证号varchar20联系电话varchar20手机号码varchar40其他联系方式varchar40联系地址varchar50备注v

23、archar2147483647登记日期datetime邮箱表邮箱表结构如表17所示。表17 邮箱表的结构字段名数据类型长度IDbigint邮箱varchar50预测表预测表结构如表18所示。表18 预测表的结构字段名数据类型长度IDbigint品名规格varchar200预测销量nvarchar预测销售额money预测年份varchar10销售区域varchar200录入日期datetime第五章 要紧功能模块设计5.1 公用模块设计用公用模块来存放整个工程项目中公用的函数、全局变量等，使工程项目中的任何地点都能够调用公用模块中的函数、变量，极大地提高了程序开发效率和代码重复利用率。在营销资

24、源治理系统中，就创建了如此一个模块，该模块的名称为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属性。添加全局变量，用来标记各个窗

25、体数据添加或修改的状态，代码如下：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为修改。添加全局变量，用来记录返回到哪个窗体，

26、代码如下：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对象内部指定行的书签，代码如下：P

27、ublic CPBookmark, YWYBookmark, XSZZBookmark, QYMLBookmark, GRMLBookmark, LPBookmarkPublic XSKHBookmark, XSXLBookmark, SCGZBookmark5.1.2定义数据库连接函数为了减少重复的数据连接和为日后修改程序提供接口，在公用模块（Module1）中建立了数据库连接函数cnn和cnStr。假如使用对象操作数据库，能够调用cnn函数；假如使用ADO控件访问数据库，则能够调用字符串函数cnStr，并将该函数值赋给ADO控件的ConnectionString属性。代码如下：Public

28、 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 Function

29、5.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:.Butt

30、ons(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 主界面设计软件界面是人与计算机之间的媒介，用户通过软件界面来与计算机进行信息交换，因此，软件界

31、面的质量将直接关系到应用系统的性能能否充分发挥，尤其是主界面。但由于自身的力量缺乏，导致软件尽管功能强大，但却苦于没有人性化的精美主界面，因此阻碍了软件的整体形象。针对这种现状，企业营销治理系统的主界面改变了传统的设计风格，将美学思想整合到里面去，引入平面设计思想，真正实现了使用户准确、高效、轻松、愉快地工作。企业营销治理系统主界面的运行结果如图3所示。Outlook式导航栏动态菜单栏Outlook式导航栏动态菜单栏图3 主界面主界面担负着调用各个功能模块，给予操作员不同的操作权限，显示当前操作员、操作状态和系统日期等任务，其中应用了动态创建列表项、动态定位列表等技术，具体步骤如下。1创建主窗

32、体（1）选择“工程”“添加窗体”命令，在工程中添加一个新窗体，将该窗体的“名称”属性设置为frm_main，BorderStyle属性设置为2-Sizable，Caption属性设置为“企业营销治理系统”，Picture属性设置为事先设计好的背景图片。（2）在frm_main窗体上添加一个StatusBar控件和一个CommonDialog控件。2创建标准菜单选择“工具”“菜单编辑器”命令，打开菜单编辑器，在此创建如图4所示的菜单结构。图4 标准菜单的结构3创建动态菜单栏当鼠标移到动态菜单栏时，菜单项将凸起，菜单标题也由原来的“黑色”变为“红色”，结果如图5所示。 图5 动态菜单栏的结构创建动

33、态菜单栏的步骤如下。（1）在frm_main窗体图片的动态菜单栏所在添加Label控件数组（Label2(0)Label2(7)），设置其BackStyle属性为0-Transparent，ForeColor属性为“&H80000012&”，Caption属性分不为“产品治理”、“销售组织”、“销售训练”、“销售业绩考核”、“市场跟踪”、“市场走势”、“销售数据导入”、“销售预测”。（2）在窗体上添加一个Picture控件，默认名为Picture1，设置其BorderStyle属性为0-None；Picture属性为事先设计好的图片。（3）在Picture1控件里添加1个Label控件，设置“

34、名称”属性为lblCaption；BackStyle属性为0-None；ForeColor属性为&H00000080&。4创建Outlook式导航栏当单击Outlook式导航栏上的导航按钮时，该导航栏将展开，并显示相应的项，单击该项则调入相应的功能窗体，具体设计步骤如下。（1）在frm_main窗体上添加Picture控件数组（picMenu(0)picMenu(7)），设置其BorderStyle属性为0-None；Picture属性为事先设计好的图片。（2）在picMenu(0)picMenu(7)控件数组中各添加一个Label（lblMenu）控件数组，其index属性与picMenu控

35、件数组的index属性相同，BackStyle属性为0-Transparent，ForeColor属性为“&H00FFFFFF&”，Caption属性分不为“差不多资料治理”、“销售组织”、“市场治理”、“销售业务治理”、“销售分析”、“营销资源治理”、“系统治理”、“辅助”。（3）在窗体中添加ListView控件和ImageList控件。设置ListView控件的Appearance属性为0-ccFlat；BorderStyle属性为0-ccNone。（4）右键单击ListView控件，在弹出的菜单中选择“属性”命令，打开“属性页”对话框，在“图像列表”选项卡中，设置图标图像列表（一般）为I

36、mageList1。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 Integ

37、erPublic 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

38、 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控件可见

39、，使其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).Captio

40、nEnd 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 =

41、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).C

42、aption 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

43、 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 m

44、2_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 Lo

45、ad 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此处代码与上述代码的设计思路相同，因此省略，详细内容可参见光盘5.3 产品治理产品治理模块要紧用于对企业内部产品进行有效的治理，建立详细的产品档案，实现产品信息的添

46、加、修改、删除及查询功能，其中查询可通过万能查询器对产品信息进行多种条件查询。产品治理模块的运行结果如图6所示。图6 产品治理单击“增加”按钮，添加新的产品信息，如图7所示。图7 产品信息添加单击“修改”按钮，修改产品信息，如图8所示。图8 产品信息修改单击“查找”按钮，打开万能查询器，可实现产品信息的多种条件查询，如图9所示。图9 产品查询1父窗体设计（1）选择“工程”“添加窗体”命令，添加一个窗体，将该窗体的“名称”属性设置为main_jbzl_cpgl。（2）在窗体中设计如图6所示的工具栏。（3）在窗体上添加一个ADO控件和一个DataGrid控件。（4）要紧控件的属性设置如表1所示。表

47、1 要紧控件对象的属性列表对象属性值功能Adodc1CommandTypeConnectionStringRecordSourceVisible2-adCmdTextProvider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_CSellselect * from 产品信息表False提供数据绑定DataGrid1DataSourceAdodc1显示产品信息（5）程序代码。Private Sub Form_Activate() If sql1 Then Adodc1.RecordSource = sq

48、l1 Adodc1.Refresh End IfEnd SubPrivate Sub Form_Load() Me.Caption = textEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) sql1 = 清空查询字符串End SubPrivate Sub DataGrid1_DblClick() If Adodc1.Recordset.RecordCount 0 Then blnAddCP = False CPBookmark = DataGrid1.Bookmark Load mai

49、n_jbzl_cpgl_lr main_jbzl_cpgl_lr.Show 1 Else MsgBox 系统没有要修改的数据！, , 提示窗口 End IfEnd Sub单击工具栏按钮，调出相应窗体或执行相应操作，代码如下。Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case add 添加状态 blnAddCP = True Load main_jbzl_cpgl_lr main_jbzl_cpgl_lr.Show 1 Case modify 修改状态，调

50、用DataGrid1_DblClick过程 DataGrid1_DblClick Case delete 删除指定记录 If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.Delete Adodc1.Refresh Else MsgBox 系统没有要删除的数据！, , 提示窗口 End If Case find 调出万能查询器 tb1 = 产品信息表 Load main_fzfind main_fzfind.Show 1 Case all 显示所有记录 Adodc1.RecordSource = select * from 产品信息表

51、 order by 产品编号 Adodc1.Refresh Case close Unload Me End SelectEnd Sub2子窗体设计（1）在工程中添加一个新窗体，将该窗体的”名称”属性设置为main_jbzl_cpgl_lr。（2）在窗体上添加TextBox控件数组（text1(0)text1(4)）和两个CommandButton控件。（3）程序代码。Dim rs1 As New ADODB.Recordset窗体载入时，将首先通过布尔型变量blnAddCP推断是添加依旧修改。假如是添加状态，由系统将自动生成产品编号，并清空除“产品编号”以外的文本框中的内容；假如是修改状态，

52、则显示当前所选择的记录。Private Sub Form_Load() If blnAddCP = True Then Me.Caption = 产品信息添加 rs1.Open select * from 产品信息表 order by 产品编号, Cnn, adOpenKeyset If rs1.RecordCount 0 Then rs1.MoveLast Text1(0) = Format(Val(rs1.Fields(产品编号) + 1, 00000) Else Text1(0) = 00001 End If rs1.Close For i = 1 To Text1.UBound Tex

53、t1(i) = Next i Else Me.Caption = 产品信息修改 With main_jbzl_cpgl.Adodc1.Recordset For i = 0 To Text1.UBound Text1(i) = .Fields(i) Next i End With End IfEnd Sub用户输入内容完毕后，单击【保存】按钮，触发Click事件，代码如下。Private Sub Command1_Click() On Error GoTo SaveErr If blnAddCP = True Then Cnn.Execute (insert into 产品信息表 values

54、( + Text1(0) + , + Text1(1) + , + Text1(2) + _ , + Text1(3) + , + Text1(4) + ) Else Cnn.Execute (update 产品信息表 set 品名规格 = + Text1(1) + ,单位 = + Text1(2) + _ ,单价 = + Text1(3) + ,备注= + Text1(4) + where 产品编号 = + Text1(0) + ) End If main_jbzl_cpgl.Adodc1.Refresh main_jbzl_cpgl.DataGrid1.Bookmark = CPBookm

55、ark Unload Me Exit SubSaveErr: MsgBox Err.DescriptionEnd Sub5.4 销售组织销售组织模块要紧实现对企业的销售分公司、销售网点等进行有效治理，其中包括销售组织信息的添加、修改、删除及查找等功能。销售组织模块的运行结果如图10所示。图10 销售组织模块的运行结果单击“增加”按钮，添加新的销售组织信息，如图11所示。图11 销售组织添加单击“修改”按钮，修改销售组织信息，如图12所示。图12 销售组织修改1父窗体设计（1）选择“工程”“添加窗体”命令，添加一个窗体，将该窗体的“名称”属性设置为main_xszz_xszzgl。（2）在窗体中

56、设计如图10所示的工具栏。（3）在窗体上添加一个ADODC控件和一个DataGrid控件。（4）要紧控件的属性设置如表2所示。表2 要紧控件对象的属性列表对象属性值功能Adodc1RecordSourcselect * from 销售组织表提供数据绑定DataGrid1DataSourceAdodc1显示销售组织信息（5）程序代码。Private Sub Form_Activate() If sql1 Then Adodc1.RecordSource = sql1 Adodc1.Refresh End IfEnd SubPrivate Sub Form_Load() Me.Caption =

57、textEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) sql1 = 清空查询字符串End Sub双击DataGrid表格，进入修改状态，同时调出main_xszz_xszzgl_lr窗体，代码如下。Private Sub DataGrid1_DblClick() If Adodc1.Recordset.RecordCount 0 Then blnAddXSZZ = False XSZZBookmark = DataGrid1.Bookmark Load main_xszz_xszzgl

58、_lr main_xszz_xszzgl_lr.Show 1 Else MsgBox 系统没有要修改的数据！, , 提示窗口 End IfEnd Sub单击工具栏按钮，调出相应窗体或执行相应操作，代码如下。Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case add 添加状态 blnAddXSZZ = True Load main_xszz_xszzgl_lr main_xszz_xszzgl_lr.Show 1 Case modify 修改状态，调用Da

59、taGrid1_DblClick过程 DataGrid1_DblClick Case delete 删除指定的记录 If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.Delete Adodc1.Refresh Else MsgBox 系统没有要删除的数据！, , 提示窗口 End If Case find 调出万能查询器 tb1 = 销售组织表 Load main_fzfind main_fzfind.Show 1 Case all 显示所有记录 Adodc1.RecordSource = select * from 销售组织表 o

60、rder by 编号 Adodc1.Refresh Case close Unload Me End SelectEnd Sub2子窗体设计（1）在工程中添加一个新窗体，将该窗体的“名称”属性设置为main_xszz_xszzgl_lr。（2）在窗体上添加TextBox控件数组（text1(0)text1(10)）和3个CommandButton控件。（3）在窗体上添加一个DTPicker控件，默认名称为DTPicker1。该控件属于ActiveX控件，在使用前应先将其添加到工具箱中。具体添加方法如下：在“部件”对话框中选中Micrsoft Windows Common Controls-2