内蒙古大学工程硕士学位论文
AdoContact.ConnectionString = Conn
AdoContact.RecordSource = \ + \
+ \ + \ AdoContact.Refresh
Set dco_Contact.RowSource = AdoContact dco_Contact.ListField = \ dco_Contact.BoundColumn = \End Sub
商业机会管理主要实现代码如下： Dim TmpSource As String Dim iEmpId As Integer
Private Sub RefreshSaleChance() TmpSource = \
TmpSource = \销售编号,s.CustId,s.CtId,s.PTypeId,s.EmpId,\ + \项目名称,c.CustName AS 客户名称,a.CName AS 联系人,\ + \项目类型,\
+ \销售人员,s.Status AS 状态,s.PPercent AS 目前进度,\ + \签约日期,s.SignSum AS 签约金额,\
+ \创建日期,s.Poster AS 创建人,s.Detail AS 其他内容\ + \ + \ + \ '客户名称
If Len(Trim(dco_Customer.Text)) <> 0 Then
TmpSource = TmpSource + \ End If '销售人员
If Len(Trim(dco_Emps.Text)) <> 0 Then
TmpSource = TmpSource + \ End If
30
内蒙古大学工程硕士学位论文
End If
TmpSource = TmpSource + \ ' MsgBox TmpSource
Adodc1.ConnectionString = Conn Adodc1.RecordSource = TmpSource Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1 DataGrid1.Columns(0).Width = 1000 End Sub
Private Sub Cmd_Add_Click() FrmSaleEdit.Modify = False
FrmSaleEdit.ComboPercent.ListIndex = 0 FrmSaleEdit.lbl_Status = \启动\ FrmSaleEdit.lbl_CreateDate = Date FrmSaleEdit.lbl_Poster = CurUser.UserName FrmSaleEdit.Show 1 RefreshSaleChance End Sub
Private Sub Cmd_Del_Click()
If Adodc1.Recordset.EOF = True Then MsgBox \记录选择\ Exit Sub End If
If MsgBox(\是否删除当前记录?\确认\ Call MyContact.Delete(Adodc1.Recordset.Fields(0)) RefreshSaleChance End If End Sub
Private Sub Cmd_Finish_Click() If Adodc1.Recordset.EOF = True Then MsgBox \记录选择\ Exit Sub End If
31
内蒙古大学工程硕士学位论文
If MsgBox(\是否结束当前项目?\确认\ '结束项目
MyChance.Status = \结束\
MyChance.UpdateStatus (Trim(Adodc1.Recordset.Fields(0))) MsgBox \项目已结束\ RefreshSaleChance End If End Sub
Private Sub Cmd_GoOn_Click() If Adodc1.Recordset.EOF = True Then MsgBox \记录选择\ Exit Sub End If
If MsgBox(\是否启动当前项目?\确认\继续进行项目 MyChance.Status = \启动\
MyChance.UpdateStatus (Trim(Adodc1.Recordset.Fields(0))) MsgBox \项目已启动\ RefreshSaleChance End If End Sub
Private Sub Cmd_Reset_Click() dco_Customer.Text = \ dco_PType.Text = \ dco_Emps.Text = \ ComboStatus.ListIndex = 0 RefreshSaleChance End Sub
Private Sub Cmd_Back_Click() Unload Me End Sub
Private Sub Cmd_Modi_Click() If Adodc1.Recordset.EOF = True Then MsgBox \记录选择\
32
内蒙古大学工程硕士学位论文
Exit Sub End If
'从客户单位中提取数据 FrmSaleEdit.Modify = True
FrmSaleEdit.txtSaleId = Trim(Adodc1.Recordset.Fields(0)) FrmSaleEdit.LoadContact
FrmSaleEdit.dco_Contact.Text = Trim(Adodc1.Recordset.Fields(7)) FrmSaleEdit.dco_PType.Text = Trim(Adodc1.Recordset.Fields(8)) FrmSaleEdit.dco_Emps.Text = Trim(Adodc1.Recordset.Fields(9)) '载入地域名称
MyCust.GetInfo (Adodc1.Recordset.Fields(1)) '取得客户信息 FrmSaleEdit.txtArea = Trim(MyArea.GetName(MyCust.AreaId)) '提取联系人职务名称
FrmSaleEdit.txtTitle = MyContact.GetTitle(Adodc1.Recordset.Fields(2)) FrmSaleEdit.lbl_Status = Trim(Adodc1.Recordset.Fields(10)) FrmSaleEdit.txtSaleId.Enabled = False FrmSaleEdit.Show 1 RefreshSaleChance End Sub
Private Sub Cmd_Stop_Click()
If Adodc1.Recordset.EOF = True Then MsgBox \请选择记录\ Exit Sub End If
If MsgBox(\是否中止当前项目?\确认\中止项目 MyChance.Status = \中止\
MyChance.UpdateStatus (Trim(Adodc1.Recordset.Fields(0))) MsgBox \项目已中止\ RefreshSaleChance End If End Sub
Private Sub Cmd_ViewTask_Click() If Adodc1.Recordset.EOF = True Then
33
内蒙古大学工程硕士学位论文
MsgBox \请选择记录\ Exit Sub End If
FrmTaskView.sSaleId = Trim(Adodc1.Recordset.Fields(0)) FrmTaskView.lbl_ProName = Trim(Adodc1.Recordset.Fields(5)) FrmTaskView.Show 1 End Sub
Private Sub ComboStatus_Click() RefreshSaleChance End Sub
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) If Trim(Adodc1.Recordset.Fields(10)) = \启动\ Cmd_Modi.Enabled = True Cmd_Del.Enabled = True Cmd_GoOn.Enabled = True Cmd_Stop.Enabled = True Cmd_Finish.Enabled = True
ElseIf Trim(Adodc1.Recordset.Fields(10)) = \中止\ Cmd_Modi.Enabled = False Cmd_Del.Enabled = False
ElseIf Trim(Adodc1.Recordset.Fields(10)) = \结束\ Cmd_Modi.Enabled = False End If End Sub
5.4.3客户基本信息模块的实现
基本信息管理模块包括地域信息管理,客户类别管理，行业分类管理，职务名称管理，项
目类型管理和销售人员管理。以上几个模块的实现情况类似，下面以地域信息管理为例来说明。下图5-6为地域信息管理界面。
34