modtreeview.bas

智能邮件管理信息系统

Attribute VB_Name = "ModTreeView"
Option Explicit

Public Sub ctlTreeViewPrimary_ItemClick(hItem As Long, RightButton As Boolean)
    frmMain.ctlMailList.gdbCurrentDB = gdbCurrentDB
    Dim LngEmployeeID  As Long
    Dim lngTemp As Long
    Dim strEmployee As String
    
    LngEmployeeID = 0
    
    gLngOwnDefineTreeID = frmMain.ctlTreeViewPrimary.lngOwnDefineTreeID(frmMain.ctlTreeViewPrimary.ItemKey(hItem))
        
      '系统文件夹
    Select Case UCase(frmMain.ctlTreeViewPrimary.ItemKey(hItem))
    Case UCase("LogManager")
          frmMain.ctlMailList.mlngViewID = 39
          frmMain.mclsMailSplit.MinimumSize(vbSplitter.cSPLTOrientationHorizontal) = 630
          frmMain.ActiveFrameBody.Visible = False
          frmMain.mclsMailSplit.Position = 630
    Case UCase("Department")
          frmMain.ctlMailList.mlngViewID = 49
          
          frmMain.mclsMailSplit.MinimumSize(vbSplitter.cSPLTOrientationHorizontal) = 630
          frmMain.ActiveFrameBody.Visible = False
          frmMain.mclsMailSplit.Position = 630
      
      Case UCase("RightGroup") 'RightGroup
          frmMain.ctlMailList.mlngViewID = 67
          
          frmMain.mclsMailSplit.MinimumSize(vbSplitter.cSPLTOrientationHorizontal) = 630
          frmMain.ActiveFrameBody.Visible = False
          frmMain.mclsMailSplit.Position = 630
      Case UCase("ContactGroup")
          frmMain.ctlMailList.mlngViewID = 65
          
          frmMain.mclsMailSplit.MinimumSize(vbSplitter.cSPLTOrientationHorizontal) = 630
          frmMain.ActiveFrameBody.Visible = False
          frmMain.mclsMailSplit.Position = 630
      
      
      Case UCase("Right") 'RightGroup
          frmMain.ctlMailList.mlngViewID = 71
          
          frmMain.mclsMailSplit.MinimumSize(vbSplitter.cSPLTOrientationHorizontal) = 630
          frmMain.ActiveFrameBody.Visible = False
          frmMain.mclsMailSplit.Position = 760
      
      Case UCase("MailAccount") 'MailAccount
          frmMain.ctlMailList.mlngViewID = 23
          
          frmMain.mclsMailSplit.MinimumSize(vbSplitter.cSPLTOrientationHorizontal) = 630
          frmMain.ActiveFrameBody.Visible = False
          frmMain.mclsMailSplit.Position = 630
      
      Case UCase("RightDetail")
          frmMain.ctlMailList.mlngViewID = 72
          
          frmMain.mclsMailSplit.MinimumSize(vbSplitter.cSPLTOrientationHorizontal) = 630
          frmMain.ActiveFrameBody.Visible = False
          frmMain.mclsMailSplit.Position = 630
      
      
      'EmployeeAccount  EMPLOYEEACCOUNT
      Case UCase("EmployeeAccount")
          frmMain.ctlMailList.mlngViewID = 74
          
          frmMain.mclsMailSplit.MinimumSize(vbSplitter.cSPLTOrientationHorizontal) = 630
          frmMain.ActiveFrameBody.Visible = False
          frmMain.mclsMailSplit.Position = 630
      
      
      Case UCase("Position")
          frmMain.ctlMailList.mlngViewID = 51
          
          frmMain.mclsMailSplit.MinimumSize(vbSplitter.cSPLTOrientationHorizontal) = 630
          frmMain.ActiveFrameBody.Visible = False
          frmMain.mclsMailSplit.Position = 630
      
      Case UCase("contact")
          frmMain.ctlMailList.mlngViewID = 38
          
          frmMain.mclsMailSplit.MinimumSize(vbSplitter.cSPLTOrientationHorizontal) = 630
          frmMain.ActiveFrameBody.Visible = False
          frmMain.mclsMailSplit.Position = 630

      Case UCase("employee")
          frmMain.ctlMailList.mlngViewID = 62
          
          frmMain.mclsMailSplit.MinimumSize(vbSplitter.cSPLTOrientationHorizontal) = 630
          frmMain.ActiveFrameBody.Visible = False
          frmMain.mclsMailSplit.Position = 630

      Case UCase("CUSTOMER")
          frmMain.ctlMailList.mlngViewID = 52
          
          frmMain.mclsMailSplit.MinimumSize(vbSplitter.cSPLTOrientationHorizontal) = 630
          frmMain.ActiveFrameBody.Visible = False
          frmMain.mclsMailSplit.Position = 630
      Case UCase("RightGroup") 'RightGroup
          frmMain.ctlMailList.mlngViewID = 67
          
          frmMain.mclsMailSplit.MinimumSize(vbSplitter.cSPLTOrientationHorizontal) = 630
          frmMain.ActiveFrameBody.Visible = False
          frmMain.mclsMailSplit.Position = 630
      
      Case UCase("Right") 'RightGroup
          frmMain.ctlMailList.mlngViewID = 71
          
          frmMain.mclsMailSplit.MinimumSize(vbSplitter.cSPLTOrientationHorizontal) = 630
          frmMain.ActiveFrameBody.Visible = False
          frmMain.mclsMailSplit.Position = 630
      
      Case UCase("MailAccount") 'MailAccount
          frmMain.ctlMailList.mlngViewID = 23
          
          frmMain.mclsMailSplit.MinimumSize(vbSplitter.cSPLTOrientationHorizontal) = 630
          frmMain.ActiveFrameBody.Visible = False
          frmMain.mclsMailSplit.Position = 630
          
      Case UCase("ContactGroupDetail")
          frmMain.ctlMailList.mlngViewID = 78
          frmMain.mclsMailSplit.MinimumSize(vbSplitter.cSPLTOrientationHorizontal) = 630
          frmMain.ActiveFrameBody.Visible = False
          frmMain.mclsMailSplit.Position = 630
      
          
      End Select
        
    '此为服务器模式,不能新增
    frmMain.RefreshMailList
    frmMain.RefreshShowColumns
    frmMain.RefreshOrderStyle
    frmMain.RefreshMenuToolbar
End Sub


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Function:创建OUTLOOK模式TREEVIEW
'Author:[e-mail]
'Create Date:2004-03-27
'Last Modify:2004-03-28
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub pCreatecTreeViewPrimary()
    Dim strsql As String
    
    strsql = "select * from OwnDefineTree where strFormName='frmMainPrimary' and BlnIsSystem=1 order by BytOrder"
    
    MOwnDefineTree.GetOwnDefineTrees strsql, MOwnDefineTree.m_OwnDefineTrees
    Dim lngNodeIndex As Long
    
    With frmMain.ctlTreeViewPrimary
        .hImageList = frmMain.imgTreeView.hIml
        .NoDragDrop = True
        .ClearAllItems
        .ExplorerBar = False
        .ShowSelected = True
        .RootLines = False
        .Lines = True
        .PlusMinus = True
        .FullRowSelect = False
        .SingleExpand = False
        .ShowNumber = True
        .InternalBorderX = 0
        .InternalBorderY = 0
        Dim lngMailCount As Long
        Dim lngNotReadCount As Long
        
        If MOwnDefineTree.m_OwnDefineTrees.Count > 0 Then
            For lngNodeIndex = 0 To MOwnDefineTree.m_OwnDefineTrees.Count - 1
                LSet MOwnDefineTree.m_OwnDefineTree = m_OwnDefineTrees.OwnDefineTree(lngNodeIndex)
                If MOwnDefineTree.m_OwnDefineTree.strText <> "" Then
                    Call .AddItem(m_OwnDefineTree.strParentKey, IIf(UCase(m_OwnDefineTree.strTypeString) = UCase("firstChild"), xpTreeViewControl.RelationConstants.firstChild, xpTreeViewControl.RelationConstants.lastChild), m_OwnDefineTree.strKey, IIf(BlnEnglishVersion, m_OwnDefineTree.strEnglishText, m_OwnDefineTree.strText), frmMain.imgTreeView.ImageItemIndex(m_OwnDefineTree.strImageKey) - 1)
                    .lngOwnDefineTreeID(m_OwnDefineTree.strKey) = m_OwnDefineTree.lngOwnDefineTreeID
                End If
            Next
            
            For lngNodeIndex = 0 To MOwnDefineTree.m_OwnDefineTrees.Count - 1
                LSet MOwnDefineTree.m_OwnDefineTree = m_OwnDefineTrees.OwnDefineTree(lngNodeIndex)
                .ItemExpanded(m_OwnDefineTree.strKey) = IIf(m_OwnDefineTree.BlnExpend = 1, True, False)
            Next
        End If
        
        
        
        'Contract's owndefine Treeview
        strsql = "select * from OwnDefineTree where strFormName='frmMain' and BlnIsSystem=0 " & IIf(m_E_ViewMode = m_CliendMode, " and lngEmployeeID=" & gLngEmployeeID1, "") & " order by BytOrder"
        MOwnDefineTree.GetOwnDefineTrees strsql, MOwnDefineTree.m_OwnDefineTreeContsContract
        If MOwnDefineTree.m_OwnDefineTreeContsContract.Count > 0 Then
            For lngNodeIndex = 0 To MOwnDefineTree.m_OwnDefineTreeContsContract.Count - 1
                LSet MOwnDefineTree.m_OwnDefineTree = m_OwnDefineTreeContsContract.OwnDefineTree(lngNodeIndex)
                If MOwnDefineTree.m_OwnDefineTree.strText <> "" Then
                    Call .AddItem(m_OwnDefineTree.strParentKey, IIf(UCase(m_OwnDefineTree.strTypeString) = UCase("firstChild"), xpTreeViewControl.RelationConstants.firstChild, xpTreeViewControl.RelationConstants.lastChild), m_OwnDefineTree.strKey, IIf(BlnEnglishVersion, m_OwnDefineTree.strEnglishText, m_OwnDefineTree.strText), frmMain.imgTreeView.ImageItemIndex(m_OwnDefineTree.strImageKey) - 1)
                    .lngOwnDefineTreeID(m_OwnDefineTree.strKey) = m_OwnDefineTree.lngOwnDefineTreeID
                End If
            Next
            
            For lngNodeIndex = 0 To MOwnDefineTree.m_OwnDefineTreeContsContract.Count - 1
                LSet MOwnDefineTree.m_OwnDefineTree = m_OwnDefineTreeContsContract.OwnDefineTree(lngNodeIndex)
                .ItemExpanded(m_OwnDefineTree.strKey) = IIf(m_OwnDefineTree.BlnExpend = 1, True, False)
            Next
        End If
        
    End With
    
End Sub