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

客户管理系统课程设计范例内容摘要：

amp。 vbCr MsgBox 请听电话。 , vbpuestion, 客户管理系统 = False End If End Sub 单击【客户详细信息】按钮，可以调用“客户信息”窗体。 通过定义的公共字符变量 sql，可以在调用“客户信息”窗体时，直接显示该客户的信息。 其实现的关键代码如下： Private Sub Cmd_Kh_Click() 39。 调用客户详细信息 Dim rs3 As New 39。 定义数据集变量 39。 打开数据对象 select * from tb_khxx where khxx_gsdh=39。 + + 39。 , n, adOpenKeyset If 0 Then 39。 如果数据记录大于零 sql = select * from tb_khxx where khxx_gsdh=39。 + + 39。 39。 将 SQL语句赋给 sql字符变量 Load Frm_Khxxwh_kh 39。 调用客户信息窗体 1 End If End Sub 在本窗体关闭前，将 sql变量清空，避免对其他窗体造成影响。 其实现代码如下： Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) sql = 39。 清空 sql变量 End Sub 吉林省明日科技有限公司监制 – 8 – 客户投诉 客户投诉是企业了解客户意见的重要手段之一。 在本系统中用户可以通过点击客户服务菜单下的客户投诉子菜单，进入到客户投诉窗体中。 该窗体具有对客户投诉信息进行增加、删除、修改和查找的功能，并可以通过单击 DataGrid 控件来浏览客户投诉信息。 客户投诉窗体的运行结果如图 13 所示。 图 13 客户投诉窗体的运 行结果 代码设计 在“客户投诉”窗体加载的时候，首先建立数据连接，然后调用自定义过程来设置数据表的表头。 并将客户名称和客户满意度信息添加到 ComboBox 控件中，并设置其显示第一条记录。 其实现的关键代码如下： Private Sub Form_Load() = PublicStr 39。 连接数据库 Call Dgr_Title 39。 调用本模块中的过程 tlbState Toolbar1, False 39。 调用公共模块中的自定义过程 Dim rs2 As New 39。 定义数据集对象 select * from tb_khxx , n, adOpenKeyset 39。 建立数据连接 If 0 Then 39。 如果记录数大于零 For i = 0 To 1 39。 从零到记录数减 1作循环 Trim((khxx_mc)) 39。 向添加 Cbx_Khmc中添加数据项 39。 数据记录移至下一条 Next i 39。 循环加一 End If If = 0 Then 39。 如果 Cbx_Khmc中的数据项为 0 = 39。 显示空 Else 39。 否则 = 0 39。 显示第一条记录 End If 39。 关闭记录集 Dim rs3 As New 吉林省明日科技有限公司监制 – 9 – select * from tb_Client_khmyd , n, adOpenKeyset If 0 Then For i = 0 To 1 Trim((khmyd_myd)) 39。 向 Cbx_Myd中添加数据项 Next i End If If = 0 Then = Else = 0 End If Call view_data 39。 调用本模块中的子定义过程显示数据信息 For i = 0 To Text1(i).Enabled = False Next i = Date: = False : = False : = False End Sub 客户信息查询 在“客户信息查询”窗体中，用户可以根据客户信息 (tb_khxx)表中的任何关键字及查询条件，查询客户的相关信息。 单击“信息查询”菜单下的“客户信息查询”子菜单，即可进入到客户信息查询窗体中，该窗体的运行结果如图 15 所示。 图 15 客户信息查询窗体运行结果 代码设计 在窗体加载时，将客户表中的字段信息，添加到 Cbx_Field 控件中，其实现的关键 代码如下： Private Sub Form_Load() = PublicStr = select * from tb_khxx Set = Adodc1 Call Dgr_Title 39。 调用过程 For i = 0 To 1 吉林省明日科技有限公司监制 – 10 – (i).Caption 39。 向控件中添加数据项 Next i = 0 39。 显示数据项中的第一条记录 (like): (): (=) (=): (): (=) (): = 0 End Sub 当用户选择和输入相应的查询条件，单击【确定】按钮，触发该控件的 Click 事件的时候，执行相应的查询语句，实现的代码如下： Private Sub Cmd_Ok_Click() Fld1 = ().Name Select Case ().Type Case 200 39。 字符数据 If = like Then sql = select * from tb_khxx where amp。 Fld1 amp。 like+ 39。 %39。 +39。 + Txt_Key + 39。 +39。 %39。 Else sql = select * from tb_khxx where amp。 Fld1 amp。 Cbx_Oper amp。 39。 + Txt_Key + 39。 End If Case 135 39。 日期数据 If = like Then MsgBox 日期型数据不能选用“ Like”作为运算符。 , , 提示窗口 = 1 End If If IsDate(Txt_Key) = False Then MsgBox 请输入正确的日期。 , , 提示窗口 Exit Sub End If sql = select * from tb_khxx where amp。 Fld1 amp。 Cbx_Oper amp。 39。 + Txt_Key + 39。 Case 6 39。 货币数据 If IsNumeric(Txt_Key) = False Then MsgBox 请输入正确的数据。 , , 提示窗口 Exit Sub End If If = like Then MsgBox 货币数据不能选用“ Like”作为运算符。 , , 提示窗口 = 1 End If sql = select * from tb_khxx where amp。 Fld1 amp。 Txt_Key Case 131 39。 数字数据 If = like Then MsgBox 数字数据不能选用“ Like”作为运算符。 , , 提示窗口 = 1 End If If IsNumeric(Txt_Key) = False Then MsgBox 请输入正确的数据。 , , 提示窗口 吉林省明日科技有限公司监制 – 11 – Exit Sub End If sql = se。