毕业设计-毕业论文-客户管理系统设计与开发.doc

吉林省明日科技有限公司监制
摘要
【摘要】
在对目前市面上的客户管理系统（CRM）的广泛调查和研究之后，发现很多市面上的客户管理系统大多都是以产品为中心，忽略了客户管理中最重要的部分—客户关系。随着市场经济的不断发展，客户管理的重要性体现的越发明显。企业要想生存发展，就必须与与之息息相关的客户建立起良好的关系，不断发展新客户，以企业高质量的产品、优质的服务、良好的资信吸引新客户；经常维系与老客户的关系，以规范的客户管理方式、温馨的客户关怀、高效的客户服务来提升老客户的忠诚度。由此，客户管理系统应运而生。

【关键词】 CRM 客户关系 客户管理系统

– 31 –
目录
摘要 1
目录 1
0 引言 1
1 系统分析 2
1.1 需求分析 2
1.2 可行性分析 2
2 总体设计 2
2.1 项目规划 2
2.2 系统功能结构图 3
3 系统设计 3
3.1 设计目标 3
3.2 开发及运行环境 4
3.3 数据库设计 4
4 主要功能模块设计 5
4.1 公共模块设计（Mdl_Link模块） 5
4.2 主窗体设计 6
4.3 客户呼叫中心 9
4.4 邮件发送 错误！未定义书签。
4.5 客户投诉 12
4.6 客户投诉满意程度分析 14
4.7 客户信息查询 15
4.8 国内城市区号邮编查询 15
附录A 参考文献 15
附录B 数据表 15
附录C 文件架构图 15

0 引言
在全球一体化、企业互动和以INTERNET为核心的时代，企业面临着如何发展潜在客户，如何将社会关系资源变为企业的销售和发展资源的一系列难办棘手的问题。在上述背景下，客户管理系统应运而生。本系统本着把握客户多样化和个性化的特点；以最快的速度响应客户需求；吸引新客户，留住老客户为原则。即从过去的以产品（Product-Centric）为中心的管理策略转向以客户为中心的(Customer-Centric)管理理念。系统旨在改善企业与客户之间的关系，建立新型的运营机制。本系统以企业级的整体客户管理为解决方案，帮助企业建立统一的客户资源、拓展销售渠道、寻求最佳市场方式、规范企业销售流程、提供科学分析方法，建立持久的客户体系。其大容量客户数据处理能力，让您的企业从多渠道收集信息，快速发现核心客户和潜在伙伴，进而给企业带来无限的利润。
以客户为中心的理念在国外兴起于20世纪50年代，当时很多企业寄希望于通过改进技术、压缩生产周期、改善内部资源管理来提高生产增长率和利润，但事实上见效甚微。这样企业开始从强调降低经营成本的供应方发展策略转向了需求方策略。所谓需求方策略就是指与客户联系更加紧密，从客户关系方面挖掘新能源的策略，CRM应运而生。所不同的是，现在计算机可以帮助人们实现这些看似并不复杂而实际操作起来非常繁琐的工作。试想一下，当我们需要查找一个客户的电话号码时，只需敲几下键盘，就可以看到客户的详细资料（包括姓名、公司名称、电话、E-mail等），所有这些都是一个完善的客户管理系统所能完成的。

1 系统分析
1.1 需求分析
根据市场的需求，要求系统具有以下功能：
q 由于该系统的使用对象较多，要求有严密的权限管理。
q 具有数据备份及数据恢复的功能，确保系统的安全性。
q 方便的全方位的数据查询。
q 强大的报表打印功能。
q 在相应的权限下，可以删除或修改数据。
1.2 可行性分析
随着科技的发展，竞争也越发激烈、残酷，企业传统的管理方式对于现今社会的竞争已明显感觉到力不从心。客户作为市场的最大资源，已成为市场营销核心，谁争取到了最多的客户，谁就取的了最大的成功，对客户的把握将最终决定企业的命运。
客户关系管理系统正是在这种需求下经过深入的市场调研和专家系统化的指导应运而生。系统具有完善的基础信息维护和客户信息维护，强大的数据查询及图表分析功能，基本能够满足中小型企业的需要。
2 总体设计
2.1 项目规划
客户管理系统是一个非常有特点的管理软件，系统由基础信息维护、客户信息维护、客户服务、信息查询、数据管理、辅助工具、系统管理和帮助信息等几个功能模块组成，规划系统功能模块如下：
q 基础信息维护模块
基础信息维护模块主要包括区域信息设置、企业性质设置、企业类型设置、企业资信设置、客户级别设置和客户满意程度设置6部分。
q 客户信息维护模块
客户信息维护模块主要包括客户信息、联系人信息、业务往来、客户呼叫中心和发送邮件5个部分。
q 客户服务模块
客户服务模块主要包括客户反馈、客户投诉、客户反馈满意程度分析和客户投诉满意程度分析4个部分。
q 信息查询模块
信息查询模块主要包括客户信息查询、联系人信息查询、客户反馈满意程度查询、客户投诉满意程度查询、客户反馈查询、客户投诉查询和国内城市区号邮编查询7个部分。
q 数据管理模块
数据管理模块主要包括客户信封打印、客户信息列表、联系人信息列表和省份邮编信息打印4个部分。
q 辅助工具模块
辅助工具模块包括调用Word、调用Excel、计算器、登录Internet和工作业务备忘5个部分。
q 系统管理模块
系统管理模块主要包括操作员设置、密码修改、权限设置、系统数据清理、数据备份与恢复5个部分。
q 帮助信息模块
帮助信息模块主要包括本单位信息、关于、帮助等3个部分。
2.2 系统功能结构图

图1 客户管理系统功能结构图
3 系统设计
3.1 设计目标
本系统是根据中小企业的实际需求而开发的，完全能够实现企业对客户的自动化管理，通过本系统可以达到以下目标：
q 系统运行稳定，安全可靠。
q 界面设计美观，人机交互界面友好。
q 信息查询灵活、方便、快捷、准确，数据存储安全可靠。
q 满足键盘和鼠标的双重操作，完全支持回车键。
q 采用多种方式查询数据。
q 操作员可以随时修改自己的口令。
q 对用户输入的数据，系统进行严格的数据检验，尽可能排除人为的错误。
q 数据保密性强，为每个用户设置相应的权限级别。
q 强大的图表分析功能。
q 收录了全国各省市县的邮政编码及区号信息等二千多条记录。
q 不仅采用了传统的数据报表打印方式，还可以向Word中打印输出。
3.2 开发及运行环境
系统开发平台：Visual Basic 6.0
数据库管理系统软件：SQL Server 2000
运行平台：Windows xp/Windows 2000/Windows 98
分辨率：最佳效果 800*600
3.3 数据库设计
本系统采用SQL Server 2000 数据库，系统数据库名为db_Client，数据库db_Client中包括18个数据表。下面分别给出数据库概要说明和数据表的结构。
1．数据库概要说明
如图2所示的即为本系统中数据库中的数据表的树形结构图，该数据表树型结构图包含系统所有数据表。可以清晰地反应数据库信息。

图2 数据库概要说明
2．数据表结构
由于篇幅所限，关于数据库中的数据表请参见附录二
4 主要功能模块设计
4.1 公共模块设计（Mdl_Link模块）
通过使用模块可以减少程序的代码量。在本系统中，将通用的代码（如：数据库连接、Toolbar控件的按钮设置代码以及公共的全局变量等）都集中放置在一个数据模块Mdl_Link中，节省了代码量，提高了编程效率。
数据模块Mdl_Link中定义的公共变量如下所示：
Public PublicStr As String '定义公共变量用于ADODC控件的数据连接，使程序模块化
Public sql As String '定义字符变量存储SQL语句
Public Tb As String '存储数据表名称
Public Province As String '存储省份名称
Public Myflag As Boolean '标识
数据模块Mdl_Link中提供连接数据库的程序代码如下所示：
'数据连接模块
Public Function cnn() As ADODB.Connection '定义函数
Set cnn = New ADODB.Connection
'打开数据连接
cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_Client"
PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_Client"
End Function
数据模块Mdl_Link中关于Toolbar控件设置按钮状态的通用代码如下所示：
'定义设置Toolbar控件上按钮状态的函数
Public Function tlbState(tlb As Toolbar, state As Boolean)
With tlb
If state = True Then '如果状态变量为True
.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 '如果状态变量为False
.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 With
End Function
4.2 主窗体设计
主窗体是显示系统主要操作功能的面板，在系统主窗体的状态栏中，可以显示网址、当前的操作员、当前系统的日期、时间等信息，还可以通过菜单或单击窗体左侧的树状列表以及右侧的功能列表来控制其他功能子窗体，并且根据不同的操作员赋予相应的操作权限。
系统主窗体的运行结果如图3所示。

图3 系统主窗体的运行结果
1．窗体设计
（1）在“工程”中新建一个窗体，将窗体的“名称”设置为frm_Main，MaxButton属性设置为False，Caption属性设置为“客户管理系统”，StartUpPosition属性设置为2-屏幕中心。
（2）利用VB提供的菜单编辑器设计菜单。从“工具”菜单上，选取“菜单编辑器”命令即可打开菜单编辑器，也可以在“工具栏”上单击【菜单编辑器】按钮。用菜单编辑器可以创建应用程序的菜单，在已有的菜单上可以增加新的菜单项，或者修改和删除已有的菜单和菜单项。
通过菜单编辑器建立的菜单如图3所示，在菜单编辑器对话框中设计菜单时的界面如图4所示。

图4 菜单编辑器
本系统的菜单设置如图5所示。

图5 客户管理系统菜单设置
（3）向窗体上添加1个控件，设置其Align属性设置为1-vbAlignTop（默认设置）。1个ImageList控件，并将其与Toolbar控件相连，同时添加按钮和图片。
（4）将Toolbar控件与ImageList控件相连。
（5）向窗体上添加1个TreeView控件并将其与ImageList控件连接。
（6）向窗体中添加1个StatusBar控件，在StatusBar控件上单击鼠标右键选择“属性”，在弹出的属性页对话框中选择“窗格”选项卡，如图6所示，在图中单击【插入窗格】按钮，可以在StatusBar控件中添加窗格，同时可以设置添加后窗格的文本内容、工具栏提示文本信息和宽度等信息，如果想删除窗格，则通过“索引”旁边的箭头，选中要删除的窗格，然后单击【删除窗格】按钮即可删除。

图6 设置StatusBar控件中的窗格
（7）向窗体上添加ListView控件。
2．代码设计
通过主窗体当中的菜单项，可以控制系统中各个子窗体，现以“辅助工具”菜单为例，介绍调用系统子窗体的代码。
Private Sub Menu6_Click(Index As Integer)
Select Case Index '辅助工具
Case 0 '调用Word
ShellExecute Me.hWnd, "open", "winword.exe", "", 1, 5
Case 1 '调用Excel
ShellExecute Me.hWnd, "open", "excel.exe", "", 1, 5
Case 2 '调用计算器
ShellExecute Me.hWnd, "open", "CALC.EXE", "", 1, 5
Case 3 '登录Internet
ShellExecute Me.hWnd, "open", "", 1, 1, 5
Case 5 '工作备忘
Load Frm_Fzgj_Gzbw Frm_Fzgj_Gzbw.Show 1
End Select
End Sub
在窗体启动的时候，首先查看工作备忘表（tb_Client_gzbw）中是否有要提醒的信息，如果有，则提示相应的信息，否则直接加载窗体。其实现的关键代码下：
Dim rs1 As New ADODB.Recordset '定义数据集对象
'打开数据连接
rs1.Open "select * from tb_Client_gzbw where gzbw_txrq='" + Str(Date) + "'", cnn, adOpenKeyset
If rs1.RecordCount > 0 Then '如果记录数大于零
If MsgBox("今日重要工作：" & Trim(rs1.Fields("gzbw_bt")) & ",是否查看详细信息？", 4, "信息提示") = vbYes Then
'将SQL语句赋给sql变量
sql = "select * from tb_Client_gzbw where gzbw_txrq='" + Str(Date) + "'"
'显示工作备忘窗体
Load Frm_Fzgj_Gzbw
Frm_Fzgj_Gzbw.Show 1
End If
End If
rs1.Close '关闭数据对象
在程序运行时，可通过单击Toolbar控件上的按钮，来调用相应的子功能窗体，实现增加、删除、修改和查找功能。其实现的代码如下：
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Load Frm_Khxxwh_kh '调用客户信息窗体
Frm_Khxxwh_kh.Show 1
Case 2
Load Frm_Khxxwh_Lxr '调用联系人信息窗体
Frm_Khxxwh_Lxr.Show 1
Case 3
Load Frm_Khxxwh_Yjfs '调用发送邮件窗体
Frm_Khxxwh_Yjfs.Show 1
Case 4
Load Frm_Xxcx_Khxxcx '调用客户信息查询窗体
Frm_Xxcx_Khxxcx.Show 1
Case 7
End '关闭退出
End Select
End Sub
在程序运行时，当用鼠标单击TreeView控件中的节点时，在右边的ListView控件中就可以显示该节点下的相应的子功能图标。该功能的实现是通过在TreeView1控件的NodeClick事件实现的。下面以“基础信息维护”菜单为例介绍其主要实现的方法。
If TreeView1.SelectedItem.key = "基础信息维护" Then
ListView1.ListItems.Clear '清除ListView中的项目
'向ListView控件中添加项目并设置图片
Set itmX = ListView1.ListItems.Add(, , "区域信息设置", 3)
Set itmX = ListView1.ListItems.Add(, , "企业性质设置", 4)
Set itmX = ListView1.ListItems.Add(, , "企业类型设置", 6)
Set itmX = ListView1.ListItems.Add(, , "企业资信设置", 5)
Set itmX = ListView1.ListItems.Add(, , "客户级别设置", 7)
Set itmX = ListView1.ListItems.Add(, , "客户满意程度设置", 8)
Exit Sub '退出本事件
End If
在程序运行时，StatusBar控件中的时间显示的是当前系统的时间，并跟随系统时间发生变化。其实现方式是：向窗体中添加时钟控件，并将其Enabled属性设置为True，Interval属性设置为60。并添加如下的代码：
Private Sub Timer1_Timer()
'显示系统时间
Frm_Main.StatusBar1.Panels(3).Text = Format(Date, "long date") + Format(Now, " hh点mm分ss秒")
End Sub
4.3 客户呼叫中心
客户呼叫中心是客户管理系统中比较重要的部分，是企业利用现代通信手段集中处理与客户交互过程的机构。在客户呼叫中心中能够根据客户的电话号码可以显示该客户简单的信息，同时可以呼叫该客户，并可查询该号码客户的详细信息，以及联系人的相关信息。
在程序运行时，单击“客户信息维护”主菜单下的“客户呼叫中心”子菜单，系统将调用“客户呼叫中心”窗体。“客户呼叫中心”窗体的运行结果如图7所示。

图7 客户呼叫中心窗体的运行结果
1．窗体设计
（1）在“工程”中新建一个窗体，将窗体的“名称”设置为Frm_Khxxwh_Hjzx，MaxButton属性设置为False。Caption属性设置为“客户呼叫中心”。
（2）向窗体上添加1个Frame控件，设置其Caption属性为空，在窗体中用于标识分组，使窗体显得规整。并向其中添加1个Label控件，将该标签控件的Caption属性设置为“请输入或选择客户公司电话”。
（3）向窗体上添加1个ComboBox控件，设置其“名称”属性为Cbx_Khdh，Text属性为Cbx_Khdh，Style属性为0–Dropdown Combo。该控件用于显示客户的公司电话。
（4）向窗体上添加2个Frame控件，分别设置其Caption属性值为“客户简单信息”和空，并向其中添加若干Label控件。
（5）向窗体上添加若干TextBox控件，并将其设置为控件数组。
（6）向窗体中添加1个MSComm控件，由于该控件属于ActiveX控件，在使用之前必须从“部件”对话框中添加到工具箱。添加方法如下：
在“工程”/“部件”对话框中勾选“Microsoft Comm Control 6.0”列表项，如图8所示。单击【确定】按钮之后即可将MSComm控件添加到工具箱当中。

图8 添加MSComm控件
（7）在窗体上添加4个CommandButton控件，分别将其“名称”属性和Caption属性设置为Cmd_Hj和“开始呼叫”、Cmd_Kh和“客户详细信息”、Cmd_Lxr和“联系人信息”、Cmd_Exit和“退出”。其摆放位置如图9所示。

图9 客户呼叫中心窗体的设计界面
2．代码设计
在窗体加载时，向Cbx_khdh组合框中添加客户电话，当用户在该文本框中选择相应的项目时，在下面的“客户简单信息”框架中就可以显示出相应的信息，其实现的代码如下：
Private Sub Form_Load()
Dim rs1 As New ADODB.Recordset '定义数据集对象
rs1.Open "select * from tb_khxx ", cnn, adOpenKeyset '打开数据连接
If rs1.RecordCount > 0 Then '如果记录数大于零
For i = 0 To rs1.RecordCount - 1 '从零开始到记录总数减1作循环
Cbx_Khdh.AddItem Trim(rs1.Fields("khxx_gsdh")) '向Cbx_Khdb组合框中添加数据项目
rs1.MoveNext '数据对象向下移动一条记录
Next i '循环加一
If Cbx_Khdh.ListCount > 0 Then '如果Cbx_Khdh中的数据项目数不为零
Cbx_Khdh.ListIndex = 0 '在Cbx_Khdh中显示第一条数据项
Else '否则
Cbx_Khdh.Text = "请选择" '显示“请选择”信息
End If
End If
rs1.Close '关闭数据集对象
End Sub
根据公司的电话号码，单击【开始呼叫】按钮，可以呼叫该用户。如下面的代码所示：
Private Sub Cmd_Hj_Click() '开始呼叫
If Cbx_Khdh.Text = "" Then '如果组合框为空
MsgBox "请您输入电话号码!", vbInformation, "客户管理系统"
Cbx_Khdh.SetFocus '将焦点设置在组合框上
Else '否则
MSComm1.CommPort = 1 '设置通信端口号
MSComm1.Settings = "4800,N,8,1" '设置波特率、奇偶校验位、数据位和停止位参数
MSComm1.PortOpen = True
MSComm1.Output = "ATDT" & Cbx_Khdh.Text & vbCr
MsgBox "请听电话！", vbpuestion, "客户管理系统"
MSComm1.PortOpen = False
End If
End Sub
单击【客户详细信息】按钮，可以调用“客户信息”窗体。通过定义的公共字符变量sql，可以在调用“客户信息”窗体时，直接显示该客户的信息。其实现的关键代码如下：
Private Sub Cmd_Kh_Click() '调用客户详细信息
Dim rs3 As New ADODB.Recordset '定义数据集变量
'打开数据对象
rs3.Open "select * from tb_khxx where khxx_gsdh='" + Cbx_Khdh.Text + "'", cnn, adOpenKeyset
If rs3.RecordCount > 0 Then '如果数据记录大于零
sql = "select * from tb_khxx where khxx_gsdh='" + Cbx_Khdh.Text + "'" '将SQL语句赋给sql字符变量
Load Frm_Khxxwh_kh '调用客户信息窗体
Frm_Khxxwh_kh.Show 1
End If
End Sub
在本窗体关闭前，将sql变量清空，避免对其他窗体造成影响。其实现代码如下：
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
sql = "" '清空sql变量
End Sub
4.4 客户投诉
客户投诉是企业了解客户意见的重要手段之一。在本系统中用户可以通过点击客户服务菜单下的客户投诉子菜单，进入到客户投诉窗体中。该窗体具有对客户投诉信息进行增加、删除、修改和查找的功能，并可以通过单击DataGrid控件来浏览客户投诉信息。
客户投诉窗体的运行结果如图13所示。

图13 客户投诉窗体的运行结果
1．窗体设计
（1）在“工程”中新建一个窗体，将窗体的“名称”设置为Frm_Khfw_Khts，Caption属性设置为“客户投诉”，MaxButton属性设置为False。
（2）向窗体上添加1个Toolbar控件，1个ImageList控件，并将两个控件相连。
（3）向窗体上添加2个ComboBox控件，将控件的Style属性设置为0–Dropdown Combo。“名称”属性分别设置为Cbx_Khmc和Cbx_Myd，分别用于存储客户名称和客户满意度信息。
（4）向窗体上添加1个DTPicker控件，“名称”属性设置为Dtp_Tsrq，用于显示客户投诉日期。
（5）向窗体上添加1个ADO控件和1个DataGrid控件，设置DataGrid控件的“名称”为Dgr_Khts，DataSource属性设置为Adodc1，AllowUpdate属性设置为False。Adodc1控件的RecordSource属性设置为tb_Client_khts，CommandType属性设置为2–adCmdTable，Visible属性设置为False。其中ADO控件用于连接客户投诉表，DataGrid控件用于显示客户投诉表中的数据信息。
（6）向窗体上添加若干个Label控件和TextBox控件，并设置TextBox控件为控件名为Text1的控件数组。
2．代码设计
在“客户投诉”窗体加载的时候，首先建立数据连接，然后调用自定义过程来设置数据表的表头。并将客户名称和客户满意度信息添加到ComboBox控件中，并设置其显示第一条记录。其实现的关键代码如下：
Private Sub Form_Load()
Adodc1.ConnectionString = PublicStr '连接数据库
Call Dgr_Title '调用本模块中的过程
tlbState Toolbar1, False '调用公共模块中的自定义过程
Dim rs2 As New ADODB.Recordset '定义数据集对象
rs2.Open "select * from tb_khxx ", cnn, adOpenKeyset '建立数据连接
If rs2.RecordCount > 0 Then '如果记录数大于零
For i = 0 To rs2.RecordCount - 1 '从零到记录数减1作循环
Cbx_Khmc.AddItem Trim(rs2.Fields("khxx_mc")) '向添加Cbx_Khmc中添加数据项
rs2.MoveNext '数据记录移至下一条
Next i '循环加一
End If
If Cbx_Khmc.ListCount = 0 Then '如果Cbx_Khmc中的数据项为0
Cbx_Khmc.Text = "" '显示空
Else '否则
Cbx_Khmc.ListIndex = 0 '显示第一条记录
End If
rs2.Close '关闭记录集
Dim rs3 As New ADODB.Recordset
rs3.Open "select * from tb_Client_khmyd ", cnn, adOpenKeyset
If rs3.RecordCount > 0 Then
For i = 0 To rs3.RecordCount - 1
Cbx_Myd.AddItem Trim(rs3.Fields("khmyd_myd")) '向Cbx_Myd中添加数据项
rs3.MoveNext
Next i
End If
If Cbx_Myd.ListCount = 0 Then
Cbx_Myd.Text = ""
Else
Cbx_Myd.ListIndex = 0
End If
rs3.Close
Call view_data '调用本模块中的子定义过程显示数据信息
For i = 0 To Text1.UBound
Text1(i).Enabled = False
Next i
Dtp_Tsrq.Value = Date: Cbx_Khmc.Enabled = False : Cbx_Myd.Enabled = False : Dtp_Tsrq.Enabled = False
End Sub
本系统中的数据库采用的是英文字段，因此在数据表显示的时候，将会显示英文字段，所以，在程序运行时，当遇到用于显示数据信息的时候，先调用自定义过程，设置DataGrid控件中的表头为中文，自定义过程的代码如下：
Sub Dgr_Title() '设置DataGrid控件的标题
Dgr_Khts.Columns(0).Caption = "客户投诉编号" : Dgr_Khts.Columns(1).Caption = "企业名称"
Dgr_Khts.Columns(2).Caption = "投诉人" : Dgr_Khts.Columns(3).Caption = "投诉主题"
Dgr_Khts.Columns(4).Caption = "投诉内容" : Dgr_Khts.Columns(5).Caption = "投诉日期"
Dgr_Khts.Columns(6).Caption = "处理办法" : Dgr_Khts.Columns(7).Caption = "客户满意度"
Dgr_Khts.Columns(8).Caption = "投诉受理人" : Dgr_Khts.Columns(9).Caption = "备注信息"
End Sub
在本窗体中将数据信息显示定义为自定义过程，在显示数据信息时，调用自定义过程，这样可避免同样的代码重复编写，提高程序代码的可重用性。数据信息显示自定义过程的关键代码如下：
Sub view_data()
If Adodc1.Recordset.RecordCount > 0 Then
Text1(0).Text = Dgr_Khts.Columns(0) : Cbx_Khmc.Text = Dgr_Khts.Columns(1)
Text1(1).Text = Dgr_Khts.Columns(2) : Text1(2).Text = Dgr_Khts.Columns(3)
Text1(3).Text = Dgr_Khts.Columns(4) : Dtp_Tsrq.Value = Dgr_Khts.Columns(5)
Text1(4).Text = Dgr_Khts.Columns(6) : Cbx_Myd.Text = Dgr_Khts.Columns(7)
Text1(5).Text = Dgr_Khts.Columns(8) : Text1(6).Text = Dgr_Khts.Columns(9)
End If
End Sub
4.5 客户投诉满意程度分析
“客户投诉满意程度分析”窗体可以根据客户投诉的满意程度，以不同的形式（条形、线形、三维、列表）显示客户对投诉处理的满意程度。在程序运行时，单击“客户服务”主菜单下的“客户投诉满意程度分析”子菜单，即可进入到“客户投诉满意程度分析”窗体中。该窗体的运行结果如图14所示。

图14 客户满意程度分析运行结果
1．窗体设计
（1）在“工程”中新建一个窗体，将窗体的“名称”设置为Frm_Khfw_Tsmydfx，Caption属性设置为“客户投诉满意程度分析”，MaxButton属性设置为False。
（2）向窗体中添加1个MSChart控件，由于该控件属于ActiveX控件，在使用之前必须从“部件”对话框中添加到工具箱。添加方法如下：
在“工程”/“部件”对话框中勾选“Microsoft Chart Control 6.0 (SP4)”列表项，单击【确定】按钮之后即可将MSChart控件添加到工具箱当中。MSChart控件用于图形显示分析结果。
（3）向窗体中添加1个DataGrid控件和1个ADO控件，设置DataGrid控件的“名称”属性为Dgr_Mydfx，设置Caption属性为“客户满意程度分析表”，DataSource属性为Adodc1。CommandType属性设置为2–adCmdTable，Adodc1的RecordSorce属性设置为tb_Client_mydtj， Visible属性设置为False。其中ADO控件用于连接满意度统计表，DataGrid控件用于显示满意度统计信息。
（4）向窗体上添加5个CommandButton控件。
2．代码设计
在窗体加载时，统计客户投诉表中的数据信息，并根据客户满意度设置表中的满意度级别，将相应的满意度级别和该级别的数量统计并添加到满意度统计表中，根据该表中的数据信息在MSChart控件或DataGrid控件中显示相应的信息。
Private Sub Form_Load()
Adodc1.ConnectionString = PublicStr '数据连接
'清空满意度统计数据表中的数据信息
cnn.Execute "delete tb_Client_mydtj select * from tb_Client_mydtj"
rs1.Open "select * from tb_Client_khmyd", cnn, adOpenKeyset '打开数据连接
If rs1.RecordCount > 0 Then '如果记录数大于零
S1 = rs1.RecordCount '将记录数赋给变量S1
For i = 0 To rs1.RecordCount - 1 '从零到记录总数减一作循环