客户管理系统课程设计范例.doc

吉林省明日科技有限公司监制客户管理系统学 院专 业班 级学 号姓 名指导教师年月日 13 目录1 系统2需求分析22 总体设计22.1 系统主要功能2.2 系统功能结构图33 系统设计33.1 设计目标33.2 开发及运行环境43.3 数据库设计44 主要功能模块设计54.1 公共模块设计（Mdl_Link模块）54.2 主窗体设计64.3 客户呼叫中心94.4 邮件发送错误！未定义书签。4.5 客户投诉124.6 客户投诉满意程度分析144.7 客户信息查询154.8 国内城市区号邮编查询15附录A 参考文献15151 系统分析需求分析根据市场的需求，要求系统具有以下功能：q 由于该系统的使用对象较多，要求有严密的权限管理。q 具有数据备份及数据恢复的功能，确保系统的安全性。q 方便的全方位的数据查询。q 强大的报表打印功能。q 在相应的权限下，可以删除或修改数据。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 数据保密性强，为每个用户设置相应的权限级别。3.2 开发及运行环境系统开发平台：Visual FoxPro 6.0运行平台：Windows xp/Windows 2000/Windows 983.3 数据库设计本系统采用Visual FoxPro 6.0设计数据库，本系统中包括如下数据表。下面分别给出数据表的结构。数据表结构（1）tb_Client_mydtj（满意度统计表）满意度统计表主要用于在客户满意度分析窗体中统计客户对企业满意程度的信息。该表结构如表B.1所示。表B.1 满意度统计表字段名数据类型长度描述mydtj_mydvarchar30满意度名称mydtj_slnumeric9满意度数量（2）tb_Client_lxrxx（联系人信息表）联系人信息表主要保存联系人的详细信息。该数据表的结构如表B.2所示。表B.2 联系人信息表字段名数据类型长度描述lxrxx_idvarchar20联系人编号lxrxx_qymcvarchar20企业名称lxrxx_xmvarchar30联系人姓名lxrxx_xbvarchar5联系人性别lxrxx_csnydatetime8出生年月lxrxx_nlvarchar5联系人年龄lxrxx_zwvarchar30联系人职位lxrxx_bgdhvarchar30联系人办公电话lxrxx_Emailvarchar50联系人电子邮件lxrxx_sjvarchar20联系人手机lxrxx_grjjtext16个人简介lxrxx_djrqdatetime8登记日期lxrxx_xxdjrvarchar30信息登记人lxrxx_bzvarchar50备注（3）tb_khxx（客户信息表）客户信息表主要用于保存客户的详细信息。该数据表的结构如表B.3所示表B.3 客户信息表字段名数据类型长度描述khxx_idvarchar30客户编号khxx_mcvarchar50企业名称khxx_qyxzvarchar30企业性质khxx_qylxvarchar30企业类型khxx_qyzxvarchar30企业资信khxx_qydzvarchar50企业地址khxx_szsfvarchar30所属省份khxx_szcsvarchar30所属城市khxx_gsybvarchar6公司邮编khxx_frdbvarchar20法人代表khxx_khyhvarchar50开户银行khxx_yhzhvarchar50银行帐号khxx_nshvarchar50纳税号khxx_ICcardvarchar50客户IC卡号khxx_gswzvarchar50公司网址khxx_gsdhvarchar20公司电话khxx_gsczvarchar20公司传真khxx_lxrvarchar30主要联系人khxx_lxrdhvarchar20联系人电话khxx_khjbvarchar20客户级别khxx_bztext16备注信息4 主要功能模块设计4.1 主窗体设计主窗体是显示系统主要操作功能的面板，在系统主窗体的状态栏中，可以显示网址、当前的操作员、当前系统的日期、时间等信息，还可以通过菜单或单击窗体左侧的树状列表以及右侧的功能列表来控制其他功能子窗体，并且根据不同的操作员赋予相应的操作权限。系统主窗体的运行结果如图3所示。图3 系统主窗体的运行结果4.2 客户呼叫中心客户呼叫中心是客户管理系统中比较重要的部分，是企业利用现代通信手段集中处理与客户交互过程的机构。在客户呼叫中心中能够根据客户的电话号码可以显示该客户简单的信息，同时可以呼叫该客户，并可查询该号码客户的详细信息，以及联系人的相关信息。在程序运行时，单击“客户信息维护”主菜单下的“客户呼叫中心”子菜单，系统将调用“客户呼叫中心”窗体。“客户呼叫中心”窗体的运行结果如图7所示。图7 客户呼叫中心窗体的运行结果代码设计在窗体加载时，向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 IfEnd Ifrs1.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 = TrueMSComm1.Output = ATDT & Cbx_Khdh.Text & vbCrMsgBox 请听电话！, vbpuestion, 客户管理系统MSComm1.PortOpen = FalseEnd IfEnd 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, adOpenKeysetIf 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 1End IfEnd Sub在本窗体关闭前，将sql变量清空，避免对其他窗体造成影响。其实现代码如下：Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)sql = 清空sql变量End Sub4.3 客户投诉客户投诉是企业了解客户意见的重要手段之一。在本系统中用户可以通过点击客户服务菜单下的客户投诉子菜单，进入到客户投诉窗体中。该窗体具有对客户投诉信息进行增加、删除、修改和查找的功能，并可以通过单击DataGrid控件来浏览客户投诉信息。客户投诉窗体的运行结果如图13所示。图13 客户投诉窗体的运行结果代码设计在“客户投诉”窗体加载的时候，首先建立数据连接，然后调用自定义过程来设置数据表的表头。并将客户名称和客户满意度信息添加到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 = FalseEnd Sub4.4 客户信息查询在“客户信息查询”窗体中，用户可以根据客户信息(tb_khxx)表中的任何关键字及查询条件，查询客户的相关信息。单击“信息查询”菜单下的“客户信息查询”子菜单，即可进入到客户信息查询窗体中，该窗体的运行结果如图15所示。图15 客户信息查询窗体运行结果代码设计在窗体加载时，将客户表中的字段信息，添加到Cbx_Field控件中，其实现的关键代码如下：Private Sub Form_Load() Adodc1.ConnectionString = PublicStr Adodc1.RecordSource = select * from tb_khxx Adodc1.Refresh Set Dgr_Kh.DataSource = Adodc1 Call Dgr_Title 调用过程 For i = 0 To Adodc1.Recordset.Fields.Count - 1 Cbx_Field.AddItem Dgr_Kh.Columns(i).Caption 向控件中添加数据项 Next i Cbx_Field.ListIndex = 0 显示数据项中的第一条记录 Cbx_Oper.AddItem (like): Cbx_Oper.AddItem (): Cbx_Oper.AddItem (=) Cbx_Oper.AddItem (=): Cbx_Oper.AddItem (): Cbx_Oper.AddItem (=) Cbx_Oper.AddItem (): Cbx_Oper.ListIndex = 0End Sub当用户选择和输入相应的查询条件，单击【确定】按钮，触发该控件的Click事件的时候，执行相应的查询语句，实现的代码如下：Private Sub Cmd_Ok_Click() Fld1 = Adodc1.Recordset.Fields.Item(Cbx_Field.ListIndex).Name Select Case Adodc1.Recordset.Fields(Cbx_Field.ListIndex).Type Case 200 字符数据 If Cbx_Oper.Text = like Then sql = select * from tb_khxx where & Fld1 & like+ %+ + Txt_Key + +% Else sql = select * from tb_khxx where & Fld1 & Cbx_Oper & + Txt_Key + End If Case 135 日期数据 If Cbx_Oper.Text = like Then MsgBox 日期型数据不能选用“Like”作为运算符！, , 提示窗口 Cbx_Oper.ListIndex = 1 End If If IsDate(Txt_Key) = False Then MsgBox 请输入正确的日期！, , 提示窗口 rs.Close Exit Sub End If sql = select * from tb_khxx where & Fld1 & Cbx_Oper & + Txt_Key + Case 6 货币数据 If IsNumeric(Txt_Key) = False Then MsgBox 请输入正确的数据！, , 提示窗口 rs.Close Exit Sub End If If Cbx_Oper.Text = like Then MsgBox 货币数据不能选用“Like”作为运算符！, , 提示窗口 Cbx_Oper.List