frmcustomerman.frm

主要是基本的客户资源管理操作界面, 包含基本信息管理、客户管理商业管理等

         Height          =   180
         Left            =   6480
         TabIndex        =   11
         Top             =   360
         Width           =   900
      End
      Begin VB.Label lblSel 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "0"
         Height          =   180
         Left            =   8520
         TabIndex        =   13
         Top             =   840
         Width           =   90
      End
      Begin VB.Label lblTotal 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "0"
         Height          =   180
         Left            =   8520
         TabIndex        =   12
         Top             =   360
         Width           =   90
      End
      Begin VB.Label Label10 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "当前选择单位数"
         Height          =   180
         Left            =   6480
         TabIndex        =   10
         Top             =   840
         Width           =   1260
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "选择地域"
         Height          =   180
         Left            =   360
         TabIndex        =   9
         Top             =   360
         Width           =   720
      End
      Begin VB.Label Label7 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "客户类别"
         Height          =   180
         Left            =   360
         TabIndex        =   8
         Top             =   840
         Width           =   720
      End
   End
End
Attribute VB_Name = "FrmCustomerMan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Refresh_Customer()
  Dim TmpSource As String
  If CurArea.AreaId <= 0 And Check1.Value = 0 Then
    lblSel = 0
    Exit Sub
  End If
  
  '计算全部单位总数
  total_num = MyCust.CountCustomer(0)
  lblTotal = Trim(Str(total_num))
  
  TmpSource = "SELECT c.CustId,c.CustName as 单位名称,a.AreaName as 地域名称," _
            + "t.TypeName as 客户类型,t1.TypeName AS 所属行业,c.Address as 通信地址," _
            + "c.Postcode as 邮政编码,a.AreaId,c.EmpId,e.EmpName AS 销售人员 " _
            + "FROM Customer c,Employees e," _
            + "Area a,Types t,Types t1 WHERE c.CustTypeId = t.Id And " _
            + "c.BussTypeId=t1.Id AND c.EmpId=e.EmpId"
  '未选择地域
  If Check1.Value = 1 Then
    '全部类别
    If Len(Trim(dco_CType.Text)) = 0 Then
      TmpSource = TmpSource + " And c.AreaId=a.AreaId ORDER BY c.CustName"
    '选择类别
    Else
      TmpSource = TmpSource + " And c.AreaId=a.AreaId And c.CustTypeId=" _
                + Trim(dco_CType.BoundText) + " ORDER BY c.CustName"
    End If
  Else
    If CurArea.AreaType = 4 Then   '市
      '全部类别
      If Len(Trim(dco_CType.Text)) = 0 Then
        TmpSource = TmpSource + " And c.AreaId=a.AreaId And c.AreaId=" _
                  + Trim(Str(CurArea.AreaId)) + " ORDER BY c.CustName"
      Else
        TmpSource = TmpSource + " And c.AreaId=a.AreaId And c.AreaId=" _
                  + Trim(Str(CurArea.AreaId)) + " And c.CustTypeId=" _
                  + Trim(dco_CType.BoundText) _
                  + " ORDER BY c.CustName"
      End If
    Else        '省
      If Len(Trim(dco_CType.Text)) = 0 Then
        TmpSource = TmpSource + " And (c.AreaId=a.AreaId And a.UpperId=" _
                 + Trim(Str(CurArea.AreaId)) + " Or c.AreaId=a.AreaId And a.AreaId=" _
                 + Trim(Str(CurArea.AreaId)) + ") ORDER BY c.CustName"
      Else
        TmpSource = TmpSource + " And (c.AreaId=a.AreaId And a.UpperId=" _
                  + Trim(Str(CurArea.AreaId)) + " Or c.AreaId=a.AreaId And a.AreaId=" _
                  + Trim(Str(CurArea.AreaId)) + ") And c.CustTypeId=" _
                  + Trim(dco_CType.BoundText) _
                  + " ORDER BY c.CustName"
      End If
    End If
  End If
  Adodc1.ConnectionString = Conn
  Adodc1.RecordSource = TmpSource
  Adodc1.Refresh
  Set DataGrid1.DataSource = Adodc1
  lblSel = Trim(Str(Adodc1.Recordset.RecordCount))
  DataGrid1.Columns(0).Width = 0
  DataGrid1.Columns(1).Width = 2200
  DataGrid1.Columns(2).Width = 1400
  DataGrid1.Columns(3).Width = 1400
  DataGrid1.Columns(4).Width = 1400
  DataGrid1.Columns(5).Width = 1600
  DataGrid1.Columns(6).Width = 1200
  DataGrid1.Columns(7).Width = 0
  DataGrid1.Columns(8).Width = 0
  DataGrid1.Columns(9).Width = 1200
End Sub

Private Sub Check1_Click()
  If Check1.Value = 1 Then
    ComboArea.Enabled = False
    ComboArea.Text = "全部地域"
  Else
    ComboArea.Text = MyArea.GetName(CurArea.UpperId) + "  " + CurArea.AreaName
    ComboArea.Enabled = True
  End If
  
  Refresh_Customer
End Sub

Private Sub Check2_Click()
  If Check2.Value = 1 Then
    dco_CType.Enabled = False
    dco_CType.Text = "全部客户类型"
  Else
    dco_CType.Enabled = True
  End If
  
  Refresh_Customer
End Sub

Private Sub Cmd_Add_Click()
  '设置添加信息
  FrmCustomerEdit.Modify = False
  FrmCustomerEdit.ComboArea.Text = ""
  FrmCustomerEdit.Show 1
  Refresh_Customer
End Sub

Private Sub Cmd_AddCt_Click()
  If Adodc1.Recordset.BOF = True Then
    MsgBox "请选择记录"
    Exit Sub
  End If
  FrmContactEdit.Modify = False
  FrmContactEdit.OriCustId = Adodc1.Recordset.Fields(0)
  FrmContactEdit.lbl_CustName = Trim(Adodc1.Recordset.Fields(1))
  FrmContactEdit.ComboSex.ListIndex = 1
  FrmContactEdit.Show 1
End Sub

Private Sub Cmd_Back_Click()
  Unload Me
End Sub

Private Sub Cmd_Del_Click()
  If Adodc1.Recordset.BOF = True Then
    MsgBox "请选择记录"
    Exit Sub
  End If
  '是否存在此客户的商业机会
  If MyChance.HaveCustomer(Adodc1.Recordset.Fields(0)) = True Then
    MsgBox "商业机会中存在此客户信息，不能删除！"
    Exit Sub
  End If
  '确认删除
  If MsgBox("是否确定要删除客户信息，删除时同时删除客户联系人信息", vbYesNo, "请确认") = vbNo Then
    Exit Sub
  End If
  '删除客户信息
  Call MyCust.Delete(Adodc1.Recordset.Fields(0))
  '删除对应的联系人信息
  Call MyContact.DeleteByCustId(Adodc1.Recordset.Fields(0))
  Refresh_Customer
End Sub

Private Sub Cmd_Modi_Click()
  Dim TmpAreaId As Long
  If Adodc1.Recordset.BOF = True Then
    MsgBox "请选择记录"
    Exit Sub
  End If
  '客户单位
  FrmCustomerEdit.OriCustId = Adodc1.Recordset.Fields(0)
  FrmCustomerEdit.txtName = Trim(Adodc1.Recordset.Fields(1))
  '地域
  FrmCustomerEdit.ComboArea.Text = Trim(Adodc1.Recordset.Fields(2))
  '类别
  FrmCustomerEdit.dco_CType.Text = Trim(Adodc1.Recordset.Fields(3))
  '所属行业
  FrmCustomerEdit.dco_BType.Text = Trim(Adodc1.Recordset.Fields(4))
  '通信地址
  FrmCustomerEdit.txtAddr = Trim(Adodc1.Recordset.Fields(5))
  '邮政编码
  FrmCustomerEdit.txtCode = Trim(Adodc1.Recordset.Fields(6))
  '销售人员
  FrmCustomerEdit.dco_Emps.Text = Trim(Adodc1.Recordset.Fields(9))
  '保存CurArea对象
  TmpAreaId = CurArea.AreaId
  CurArea.AreaId = Adodc1.Recordset.Fields(7)
  FrmCustomerEdit.Modify = True
  FrmCustomerEdit.Show 1
  '恢复CurArea的值
  CurArea.AreaId = TmpAreaId
  CurArea.GetInfo (CurArea.AreaId)
  '刷新数据
  Refresh_Customer
End Sub


Private Sub Cmd_ViewCt_Click()
  If Adodc1.Recordset.BOF = True Then
    MsgBox "请选择记录"
    Exit Sub
  End If
  FrmContactView.SchId = Adodc1.Recordset.Fields(0)
  FrmContactView.lbl_CustName = Trim(Adodc1.Recordset.Fields(1))
  FrmContactView.Show 1
End Sub

Private Sub Cmd_ViewSC_Click()
  If Adodc1.Recordset.BOF = True Then
    MsgBox "请选择记录"
    Exit Sub
  End If
  FrmSaleView.SchId = Adodc1.Recordset.Fields(0)
  FrmSaleView.lbl_CustName = Trim(Adodc1.Recordset.Fields(1))
  FrmSaleView.Show 1
End Sub

Private Sub ComboArea_GotFocus()
  Check1.SetFocus
  '设置显示菜单的位置
  FrmAreaSel.AreaLevel = 6
  FrmAreaSel.Left = Me.Left + ComboArea.Left + 350
  FrmAreaSel.Top = Me.Top + ComboArea.Top + ComboArea.Height + 450
  FrmAreaSel.Show 1
  
  If FrmAreaSel.ClickOK = True Then
    CurArea.GetInfo (CurArea.AreaId)
    ComboArea.Text = MyArea.GetName(CurArea.UpperId) + "  " + CurArea.AreaName
  End If
  Refresh_Customer
End Sub

Private Sub dco_CType_Click(Area As Integer)
  Refresh_Customer
End Sub

Private Sub Form_Load()
  CurArea.Init
  '装入客户类别
  AdoType.ConnectionString = Conn
  AdoType.RecordSource = "SELECT * FROM Types WHERE Flag=1"
  AdoType.Refresh
  Set dco_CType.RowSource = AdoType
  dco_CType.ListField = "TypeName"
  dco_CType.BoundColumn = "Id"
  dco_CType.Enabled = False
  Check2.Value = 1
  Check1.Value = 1
  Refresh_Customer
End Sub