modcustomerleftlist.bas

智能邮件管理信息系统

Attribute VB_Name = "ModCustomerLeftList"
Option Explicit

'创建职位柴单
Public Sub pCreateCustomerMenu(lnghwndOwner As Long, x As Long, y As Long)
    Dim i As Long
    
    Dim strsql As String
    Dim lngMenuCounter As Long
    Set frmMain.mclsCustomerMenuLeftList = New XpPopMenu.cPopupMenu
    frmMain.mclsCustomerMenuLeftList.hwndOwner = lnghwndOwner
    frmMain.mclsCustomerMenuLeftList.OfficeXpStyle = False
    frmMain.mclsCustomerMenuLeftList.ClearMenuItems
    Dim mclsEmployee As New PEmployee.clsEmployee
    Set mclsEmployee = GetclsEmployee
   
    Dim mEmployees As PEmployee.Employees
    Dim mEmployee As PEmployee.Employee
    
    Dim mclsSystemMenu1 As New PSystemMenu.clsSystemMenu
    Dim mSystemMenus As PSystemMenu.SystemMenus
    Dim mSystemMenu As PSystemMenu.SystemMenu
    
    mclsSystemMenu1.Init gdbCurrentDB
    
    If m_E_ViewMode = m_ServerMode Then
        strsql = "select * from SystemMenu Where strMenuName='mclsCustomerMenuLeftListSever' order by intorder"
    ElseIf m_E_ViewMode = m_CliendMode Then
        strsql = "select * from SystemMenu Where strMenuName='mclsCustomerMenuLeftList' order by intorder"
    End If
    
    mclsSystemMenu1.GetSystemMenus strsql, mSystemMenus
    If mSystemMenus.Count > 0 Then
        For lngMenuCounter = 0 To mSystemMenus.Count
            LSet mSystemMenu = mSystemMenus.SystemMenu(lngMenuCounter)
            If mSystemMenu.lngSystemMenuID > 0 Then
                frmMain.mclsCustomerMenuLeftList.AddMenuItem mSystemMenu.sKey, IIf(BlnEnglishVersion, mSystemMenu.sEnglishCaption, mSystemMenu.sCaption), mSystemMenu.strParenetKey, mSystemMenu.sHelptext, mSystemMenu.lItemData, mSystemMenu.iIconIndex, mSystemMenu.bChecked, True, mSystemMenu.bVisable
            End If
        Next lngMenuCounter
    End If
    '设置常见只
    Dim blnSelectMail As Boolean
    blnSelectMail = frmMain.ctlLeftList.mlngCurrentSelectID > 0
    If m_E_ViewMode = m_ServerMode Then
        strsql = "select * from Employee"
        mclsEmployee.GetEmployees strsql, mEmployees
        If mEmployees.Count > 0 Then
            For i = 0 To mEmployees.Count - 1
                LSet mEmployee = mEmployees.Employee(i)
                frmMain.mclsCustomerMenuLeftList.AddMenuItem "EmployeeCustomer" & mEmployee.LngEmployeeID, mEmployee.strEmployeeName & "(" & mEmployee.strEmail & ")", "EmployeeCustomer", , 100
            Next i
        End If
    End If
    
    frmMain.mclsCustomerMenuLeftList.MenuItemEnabled("Modify") = blnSelectMail
    frmMain.mclsCustomerMenuLeftList.MenuItemEnabled("Delete") = blnSelectMail
    frmMain.mclsCustomerMenuLeftList.MenuItemEnabled("AddCutomerToNote") = blnSelectMail
    
    frmMain.mclsCustomerMenuLeftList.MenuItemEnabled("DeleteAll") = frmMain.ctlLeftList.Rows > 0
    frmMain.mclsCustomerMenuLeftList.MenuItemEnabled("Group") = frmMain.ctlLeftList.AllowGrouping
        
    '设置权限中的可用只
    strsql = "select * from SystemMenu Where strMenuName='mclsCustomerMenuLeftListLeftList' And bEnabled=0 order by intorder"
    mclsSystemMenu1.GetSystemMenus strsql, mSystemMenus
    If mSystemMenus.Count > 0 Then
        For lngMenuCounter = 0 To mSystemMenus.Count
            LSet mSystemMenu = mSystemMenus.SystemMenu(lngMenuCounter)
            If mSystemMenu.lngSystemMenuID > 0 Then
                frmMain.mclsCustomerMenuLeftList.MenuItemEnabled(mSystemMenu.sKey) = False
            End If
        Next lngMenuCounter
    End If
    
    
    frmMain.mclsCustomerMenuLeftList.ShowPopupMenu x, y
    Set mclsSystemMenu1 = Nothing
    
End Sub




Public Sub RaiseCustomerMenu_Click(ItemNumber As Long)
    Dim strKey As String
    strKey = frmMain.mclsCustomerMenuLeftList.MenuItemKey(ItemNumber)
    
    Dim mclsCustomer As PCustomer.clsCustomer
    Set mclsCustomer = GetclsCustomer
    

   Dim mCustomer As PCustomer.Customer
    
   Dim mclsEmployee As New PEmployee.clsEmployee
   Dim mEmployee As PEmployee.Employee
   Set mclsEmployee = GetclsEmployee
         
            
   
    '**************************************************************************
    '将客户分配给职员
    Dim LngEmployeeID As Long
    If InStr(1, UCase(strKey), UCase("EmployeeCustomer")) > 0 Then
        LngEmployeeID = Val(Replace(UCase(strKey), UCase("EmployeeCustomer"), ""))
        If LngEmployeeID > 0 Then
            mclsCustomer.GetCustomer frmMain.ctlLeftList.mlngCurrentSelectID, mCustomer
            If mCustomer.LngCustomerID > 0 Then
                mCustomer.LngEmployeeID = LngEmployeeID
                If mclsCustomer.SaveCustomer(mCustomer) Then
                    frmMain.RefreshCustomer
                End If
            End If
        End If
        Exit Sub
    End If
    '**************************************************************************
    
             
    '**************************************************************************
                
    Select Case UCase(strKey)
    Case UCase("NEW")                   '新增
            mclsCustomer.AddCustomerShowDialog (gLngEmployeeID1)
            frmMain.RefreshCustomer
            frmMain.Status "共有" & frmMain.ctlLeftList.Rows & "笔记录."
    Case UCase("MODIFY")                '修改
        If mclsCustomer.EditCustomerShowDialog(frmMain.ctlLeftList.mlngCurrentSelectID, gLngEmployeeID1) Then
            
            frmMain.RefreshCustomer
            frmMain.Status "共有" & frmMain.ctlLeftList.Rows & "笔记录."
        End If
    Case UCase("DELETE")                '删除
        If mclsCustomer.DeleteCustomer(frmMain.ctlLeftList.mlngCurrentSelectID, gLngEmployeeID1, True) Then
            frmMain.ctlLeftList.RemoveRow False, True, 0
            frmMain.RefreshCustomer
            frmMain.Status "共有" & frmMain.ctlLeftList.Rows & "笔记录."
        End If
    Case UCase("DeleteAll")             '删除
        mclsCustomer.DeleteCustomers (gLngEmployeeID1)
            frmMain.ctlLeftList.RemoveRow True, False, 0
            frmMain.RefreshCustomer
            frmMain.Status "共有" & frmMain.ctlLeftList.Rows & "笔记录."
    Case UCase("Refreshdata")           '刷新
        frmMain.RefreshCustomer
        frmMain.Status "共有" & frmMain.ctlLeftList.Rows & "笔记录."
    Case UCase("GROUP")                 '分组
        frmMain.ctlLeftList.AllowGrouping = True
    '将客户添加到通讯薄
    Case UCase("AddCustomerToNote")
        FrmAddToNote.ShowMe AddCustomer
       
    Case Else
        '点击的是显示列设置
        '********************************************************************************
       '设置列可见
        If frmMain.ctlLeftList.ColumnVisibleCount = 1 Then
            ShowMessageBoxEx "至少必须有一列可见！", vbOKOnly, "设置列可见"
        ElseIf frmMain.ctlLeftList.ColumnVisibleCount > 1 Then
            frmMain.mclsCustomerMenuLeftList.MenuItemChecked(ItemNumber) = Not frmMain.mclsCustomerMenuLeftList.MenuItemChecked(ItemNumber)
            frmMain.ctlLeftList.ColumnVisible(frmMain.mclsCustomerMenuLeftList.MenuItemKey(ItemNumber)) = frmMain.mclsCustomerMenuLeftList.MenuItemChecked(ItemNumber)
        End If
        '********************************************************************************
    End Select
    Set mclsCustomer = Nothing
End Sub