frmsaleman.frm

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

         Left            =   240
         TabIndex        =   6
         Top             =   720
         Width           =   720
      End
   End
   Begin MSAdodcLib.Adodc Adodc1 
      Height          =   330
      Left            =   120
      Top             =   5760
      Visible         =   0   'False
      Width           =   1815
      _ExtentX        =   3201
      _ExtentY        =   582
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   8
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   ""
      OLEDBString     =   ""
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   ""
      Caption         =   "Adodc1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin MSAdodcLib.Adodc AdoCust 
      Height          =   330
      Left            =   120
      Top             =   6120
      Visible         =   0   'False
      Width           =   1815
      _ExtentX        =   3201
      _ExtentY        =   582
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   8
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   ""
      OLEDBString     =   ""
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   ""
      Caption         =   "AdoCust"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
End
Attribute VB_Name = "FrmSaleMan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim TmpSource As String
Dim iEmpId As Integer

Private Sub RefreshSaleChance()
  TmpSource = ""
  TmpSource = "SELECT s.Id AS 销售编号,s.CustId,s.CtId,s.PTypeId,s.EmpId," _
        + "s.ProName AS 项目名称,c.CustName AS 客户名称,a.CName AS 联系人," _
        + "t.TypeName AS 项目类型," _
        + "e.EmpName AS 销售人员,s.Status AS 状态,s.PPercent AS 目前进度," _
        + "s.SignDate AS 签约日期,s.SignSum AS 签约金额," _
        + "s.CreateDate AS 创建日期,s.Poster AS 创建人,s.Detail AS 其他内容" _
        + " FROM SaleChance s,Contact a,Customer c,Types t,Employees e " _
        + " WHERE s.CustId=c.CustId AND s.EmpId=e.EmpId AND s.CtId=a.Id" _
        + " AND s.PTypeId=t.Id "

  '客户名称
  If Len(Trim(dco_Customer.Text)) <> 0 Then
    TmpSource = TmpSource + " And s.CustId=" + Trim(dco_Customer.BoundText)
  End If
  '销售人员
  If Len(Trim(dco_Emps.Text)) <> 0 Then
    TmpSource = TmpSource + " And s.EmpId=" + Trim(Str(dco_Emps.BoundText()))
  End If
  '项目类型
  If Len(Trim(dco_PType.Text)) <> 0 Then
    TmpSource = TmpSource + " And s.PTypeId=" + Trim(dco_PType.BoundText())
  End If
  '项目状态
  If ComboStatus.ListIndex > 0 Then
    TmpSource = TmpSource + " And s.Status='" + Trim(ComboStatus.Text) + "'"
  End If
  
  TmpSource = TmpSource + " ORDER BY s.Id"
 ' MsgBox TmpSource
  Adodc1.ConnectionString = Conn
  Adodc1.RecordSource = TmpSource
  Adodc1.Refresh
  Set DataGrid1.DataSource = Adodc1
  DataGrid1.Columns(0).Width = 1000
  DataGrid1.Columns(1).Width = 0
  DataGrid1.Columns(2).Width = 0
  DataGrid1.Columns(3).Width = 0
  DataGrid1.Columns(4).Width = 0
  DataGrid1.Columns(5).Width = 2400
  DataGrid1.Columns(6).Width = 1300
  DataGrid1.Columns(7).Width = 1200
  DataGrid1.Columns(8).Width = 1000
  DataGrid1.Columns(9).Width = 1000
  DataGrid1.Columns(10).Width = 800
  DataGrid1.Columns(11).Width = 1200
  DataGrid1.Columns(12).Width = 1200
  DataGrid1.Columns(13).Width = 1200
  DataGrid1.Columns(14).Width = 1200
  DataGrid1.Columns(15).Width = 1200
  DataGrid1.Columns(16).Width = 1200
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("是否删除当前记录?", vbYesNo, "确认") = vbYes Then
    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
  If MsgBox("是否结束当前项目?", vbYesNo, "确认") = vbYes Then
    '结束项目
    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("是否启动当前项目?", vbYesNo, "确认") = vbYes Then '继续进行项目
    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 "请选择记录"
    Exit Sub
  End If
  '从客户单位中提取数据
  FrmSaleEdit.Modify = True
  FrmSaleEdit.txtSaleId = Trim(Adodc1.Recordset.Fields(0))
  FrmSaleEdit.OriSaleId = Trim(Adodc1.Recordset.Fields(0))
  FrmSaleEdit.txtPName = Trim(Adodc1.Recordset.Fields(5))
  FrmSaleEdit.dco_Customer.Text = Trim(Adodc1.Recordset.Fields(6))
  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.ComboPercent.Text = Trim(Adodc1.Recordset.Fields(11))
  FrmSaleEdit.lbl_CreateDate = Trim(Adodc1.Recordset.Fields(14))
  FrmSaleEdit.txtSignDate = Trim(Adodc1.Recordset.Fields(12))
  FrmSaleEdit.txtSum = Trim(Adodc1.Recordset.Fields(13))
  FrmSaleEdit.lbl_Poster = Trim(Adodc1.Recordset.Fields(15))
  FrmSaleEdit.txtDetail = Trim(Adodc1.Recordset.Fields(16))
  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("是否中止当前项目?", vbYesNo, "确认") = vbYes Then '中止项目
    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
    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)) = "启动" Then
    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)) = "中止" Then
    Cmd_Modi.Enabled = False
    Cmd_Del.Enabled = False
    Cmd_GoOn.Enabled = True
    Cmd_Stop.Enabled = False
    Cmd_Finish.Enabled = True
  ElseIf Trim(Adodc1.Recordset.Fields(10)) = "结束" Then
    Cmd_Modi.Enabled = False
    Cmd_Del.Enabled = True
    Cmd_GoOn.Enabled = True
    Cmd_Stop.Enabled = False
    Cmd_Finish.Enabled = False
  End If
End Sub

Private Sub dco_Customer_Click(Area As Integer)
  RefreshSaleChance
End Sub

Private Sub dco_Emps_Click(Area As Integer)
  RefreshSaleChance
End Sub

Private Sub dco_PType_Click(Area As Integer)
  RefreshSaleChance
End Sub

Private Sub Form_Load()
  '装入客户信息
  AdoCust.ConnectionString = Conn
  AdoCust.RecordSource = "SELECT * FROM Customer ORDER BY CustName"
  AdoCust.Refresh
  Set dco_Customer.RowSource = AdoCust
  dco_Customer.ListField = "CustName"
  dco_Customer.BoundColumn = "CustId"
  '装入项目类型信息
  AdoPType.ConnectionString = Conn
  AdoPType.RecordSource = "SELECT * FROM Types WHERE Flag=4 ORDER BY Id"
  AdoPType.Refresh
  Set dco_PType.RowSource = AdoPType
  dco_PType.ListField = "TypeName"
  dco_PType.BoundColumn = "Id"
  '载入项目状态
  ComboStatus.AddItem "全部", 0
  ComboStatus.AddItem "启动", 1
  ComboStatus.AddItem "中止", 2
  ComboStatus.AddItem "结束", 3
  RefreshSaleChance
  '读取销售人员数据数据
  AdoEmps.ConnectionString = Conn
  AdoEmps.RecordSource = "SELECT EmpId,EmpName FROM Employees Order By EmpName"
  AdoEmps.Refresh
  Set dco_Emps.RowSource = AdoEmps
  dco_Emps.ListField = "EmpName"
  dco_Emps.BoundColumn = "EmpId"
  
  Cmd_Modi.Enabled = False
  Cmd_Del.Enabled = False
  Cmd_GoOn.Enabled = False
  Cmd_Stop.Enabled = False
  Cmd_Finish.Enabled = False
End Sub