frmmenu.frm

客户管理是CRM的基础核心部分

VERSION 5.00
Begin VB.Form frmMenu 
   Caption         =   "Menu"
   ClientHeight    =   3825
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   5430
   LinkTopic       =   "Form1"
   ScaleHeight     =   3825
   ScaleWidth      =   5430
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu mnuClient 
      Caption         =   "客户管理"
      Begin VB.Menu mnuClientDetails 
         Caption         =   "详细资料(&I)..."
      End
      Begin VB.Menu mnuClientNew 
         Caption         =   "新建资料(&N)..."
      End
      Begin VB.Menu mnuClientDel 
         Caption         =   "删除资料(&D)"
      End
   End
   Begin VB.Menu mnuPlan 
      Caption         =   "工作计划"
      Begin VB.Menu mnuPlanDetails 
         Caption         =   "详细资料(&I)..."
      End
      Begin VB.Menu mnuPlanNew 
         Caption         =   "新建资料(&N)..."
      End
      Begin VB.Menu mnuPlanDel 
         Caption         =   "删除资料(&D)"
      End
   End
   Begin VB.Menu mnuCalendar 
      Caption         =   "日历"
      Begin VB.Menu mnuCalendarViewOne 
         Caption         =   "显示该天计划(&I)"
      End
      Begin VB.Menu mnuCalendarViewAll 
         Caption         =   "显示全部计划(&A)"
      End
      Begin VB.Menu mnuCalendarNew 
         Caption         =   "新建该天计划(&N)..."
      End
   End
End
Attribute VB_Name = "frmMenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

''''''''''''''''''''''''
' 本模块只是处理"菜单" '
''''''''''''''''''''''''
Option Explicit

Private Sub mnuCalendarNew_Click()
    Dim dtDate As Date
    dtDate = gPlanFrm.mvwPlan.SelStart
    Call gPlanFrm.NewPlan(dtDate)
End Sub

Private Sub mnuCalendarViewAll_Click()
    Call gPlanFrm.ReFlashListView
End Sub

Private Sub mnuCalendarViewOne_Click()
    Dim dtDate As Date
    dtDate = gPlanFrm.mvwPlan.SelStart
    Call gPlanFrm.ShowPlan(dtDate)
End Sub

Private Sub mnuClientDel_Click()
    Dim nIndex As Integer
    If gClientFrm.lstvwClientInfo.ListItems.Count > 0 Then
        nIndex = gClientFrm.lstvwClientInfo.SelectedItem.Index
        Call gClientFrm.DeleteClient(nIndex)
    End If
End Sub

Private Sub mnuClientDetails_Click()
    Dim nIndex As Integer
    If gClientFrm.lstvwClientInfo.ListItems.Count > 0 Then
        nIndex = gClientFrm.lstvwClientInfo.SelectedItem.Index
        Call gClientFrm.ShowClientInfo(nIndex, INT_CLIENT_STYLE_READ_ONLY)
    End If
End Sub

Private Sub mnuClientNew_Click()
    Dim nIndex As Integer
    If gClientFrm.lstvwClientInfo.ListItems.Count > 0 Then
        nIndex = gClientFrm.lstvwClientInfo.SelectedItem.Index
        Call gClientFrm.ShowClientInfo(nIndex, INT_CLIENT_STYLE_NEW)
    End If
End Sub

Private Sub mnuPlanDel_Click()
    Dim nIndex As Integer
    If gPlanFrm.lstvwPlanInfo.ListItems.Count > 0 Then
        nIndex = gPlanFrm.lstvwPlanInfo.SelectedItem.Index
        Call gPlanFrm.DeletePlan(nIndex)
    End If
End Sub

Private Sub mnuPlanDetails_Click()
    Dim nIndex As Integer
    If gPlanFrm.lstvwPlanInfo.ListItems.Count > 0 Then
        nIndex = gPlanFrm.lstvwPlanInfo.SelectedItem.Index
        Call gPlanFrm.ShowPlanInfo(nIndex, INT_PLAN_STYLE_READ_ONLY)
    End If
End Sub

Private Sub mnuPlanNew_Click()
    Dim nIndex As Integer
    If gPlanFrm.lstvwPlanInfo.ListItems.Count > 0 Then
        nIndex = gPlanFrm.lstvwPlanInfo.SelectedItem.Index
        Call gPlanFrm.ShowPlanInfo(nIndex, INT_PLAN_STYLE_NEW)
    End If
End Sub