frmmenu.frm

新收集的客户管理软件

VERSION 5.00
Begin VB.Form frmMenu 
   Caption         =   "Menu"
   ClientHeight    =   3825
   ClientLeft      =   165
   ClientTop       =   735
   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
'欢迎你下载使用本代码，本份代码由程序太平洋提供下载学习之用
'声明:
'1.本站所有代码的版权归原作者所有，如果你使用了在本站下载的源代码
'  引起的一切纠纷(后果)与本站无关,请您尊重原作者的劳动成果！
'2.若本站在代码上有侵权之处请您与站长联系，站长会及时更正。
'网站：http://www.daima.com.cn
'程序太平洋：http://www.5ivb.net
'Email:[e-mail]
'CopyRight 2001-2005 By WangFeng
'整理时间：2004-12-14 23:41:45

''*************************************************************************
''**模 块 名：frmMenu
''**说    明：多易工作室
''**创 建 人：邬浩杰
''**日    期：2004-12-14
''**修 改 人：
''**日    期：
''**描    述：
''**版    本：V1.0.0
''*************************************************************************
''''''''''''''''''''''''
' 本模块只是处理"菜单" '
''''''''''''''''''''''''
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