企业客户关系管理系统的设计与实现 - 图文(7)

内蒙古大学工程硕士学位论文

MsgBox \没有权限\ Exit Sub End If End Sub

Private Sub mn_UserMan_Click() If CurUser.UserName = \ FrmUserMan.Show 1 Else

MsgBox \没有权限\ End If End Sub

5.4功能模块的实现

5.4.1客户信息跟踪管理

产品在进行销售之后，需要进行老客户跟踪的操作，为公司挖掘更多的潜在客户或者创造销售机会，若锁定之后尽可能成为成交客户。客户一旦成交，则可以对其进行客户管理。而在确定销售机会之后，要努力使其变为成功的订单，签订合同后进行发货出来，售后方面可以采用电话回访和当面拜访的形式进行。

下图5-3、图5-4分别为客户信息跟踪管理和编辑客户跟踪信息结果。

图5-3 客户跟踪信息管理

Figure 5-3 The Customer information management

25

内蒙古大学工程硕士学位论文

图5-4 编辑客户跟踪信息

Figure 5-4 The Edit the customer tracking information

5.4.2商业机会管理

商业机会管理模块除了对项目进行添加、修改、删除等操作外，还可以对已签过合同的项目进行启动、终止、查看进度等操作。操作时需要选择项目名称、项目类型、销售人员等。下图5-5为商业机会管理界面。

图5-5 商业机会管理界面

Figure 5-5 The Business opportunity management interface

主要实现代码如下： Public OriCustId As Long

26

内蒙古大学工程硕士学位论文

Public OriId As Long Public Modify As Boolean Private Sub Cmd_Cancel_Click() Unload Me End Sub

Private Sub Cmd_OK_Click() If Len(Trim(txtSaleId)) = 0 Then MsgBox \商业机会编号情输入\ txtSaleId.SetFocus Exit Sub End If

If Len(Trim(dco_Emps.Text)) = 0 Then MsgBox \请选择销售人员\ ComboName.SetFocus Exit Sub End If

If Len(Trim(txtTaskDate)) = 0 Then MsgBox \请输入拜访日期\ txtTaskDate.SetFocus Exit Sub End If

If Len(Trim(ComboBy.Text)) = 0 Then MsgBox \请选择拜访方式\ ComboBy.SetFocus Exit Sub End If

If Len(Trim(dco_Contact.Text)) = 0 Then MsgBox \请选择拜访人员\ dco_Contact.SetFocus Exit Sub End If

If Len(Trim(txtPurpose)) = 0 Then MsgBox \请输入拜访目的\

27

内蒙古大学工程硕士学位论文

txtPurpose.SetFocus Exit Sub End If With MyTask

.EmpId = Val(dco_Emps.BoundText()) .TaskDate = Trim(txtTaskDate) .TaskBy = Trim(ComboBy.Text) .CtId = Val(dco_Contact.BoundText) .Place = Trim(txtPlace) .Purpose = Trim(txtPurpose) .StartTime = Trim(txtSTime) If Modify = False Then

'判断是否存在此商业机会编号

If MyChance.In_DB(Trim(txtSaleId)) = False Then MsgBox \不存在此销售编号，请重新输入\ txtSaleId.SetFocus Exit Sub End If

.SaleId = Trim(txtSaleId) .Insert Else

.Update (OriId) End If End With Unload Me End Sub

Private Sub Cmd_Search_Click() If Len(Trim(txtSaleId)) = 0 Then MsgBox \输入商业机会编号\ Exit Sub End If RefreshSale End Sub

Public Sub RefreshSale()

28

内蒙古大学工程硕士学位论文

AdoChance.ConnectionString = Conn

TmpSource = \项目名称,\ + \客户名称,a.CName AS 联系人,\ + \项目类型,e.EmpName AS 销售人员,\ + \状态,s.PPercent AS 目前进度,\ + \签约日期,s.SignSum AS 签约金额,\ + \其他内容,s.CustId,s.EmpId \

+ \ + \ + \ AdoChance.RecordSource = TmpSource AdoChance.Refresh

Set dg_Chance.DataSource = AdoChance dg_Chance.Columns(0).Width = 1400 dg_Chance.Columns(11).Width = 0 LoadSaleContact End Sub

Private Sub Form_Load() '读取销售人员数据数据

AdoEmps.ConnectionString = Conn

AdoEmps.RecordSource = \EmpId,EmpName FROM Employees EmpName\ AdoEmps.Refresh

Set dco_Emps.RowSource = AdoEmps dco_Emps.ListField = \ dco_Emps.BoundColumn = \ '载入拜访方式

ComboBy.AddItem \面谈\ ComboBy.AddItem \电话\ ComboBy.AddItem \电子邮件\End Sub

Private Sub LoadSaleContact() TmpSource = \

29

Order By

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库企业客户关系管理系统的设计与实现 - 图文(7)在线全文阅读。