Attribute VB_Name = "ModDepartmentMenu"
Option Explicit

'創建職位柴單
Public Sub pCreateDepartmentMenu(lnghwndOwner As Long, x As Long, y As Long)
    Dim i As Long
    
    Dim strsql As String
    Dim lngMenuCounter As Long
    
    
    Set frmMain.mclsDepartmentMenu = New XpPopMenu.cPopupMenu
    frmMain.mclsDepartmentMenu.hwndOwner = lnghwndOwner
    frmMain.mclsDepartmentMenu.OfficeXpStyle = False
    frmMain.mclsDepartmentMenu.ClearMenuItems
    
    
    
    Dim mclsSystemMenu1 As New PSystemMenu.clsSystemMenu
    Dim mSystemMenus As PSystemMenu.SystemMenus
    Dim mSystemMenu As PSystemMenu.SystemMenu
    
    mclsSystemMenu1.Init gdbCurrentDB
    
    
    strsql = "select * from SystemMenu Where strMenuName='mclsDepartmentMenu' 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.mclsDepartmentMenu.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 iCol As Long
    Dim strCaption As String
    Dim Checked As Boolean
    Dim Tag As String '為KEY
     ' add to columns menu:
    For iCol = 1 To frmMain.ctlMailList.Columns
       strCaption = IIf(Len(frmMain.ctlMailList.ColumnHeader(iCol)) = 0, frmMain.ctlMailList.ColumnKey(iCol), frmMain.ctlMailList.ColumnHeader(iCol))
       Checked = frmMain.ctlMailList.ColumnVisible(iCol)
       Tag = frmMain.ctlMailList.ColumnKey(iCol)
       If UCase(strCaption) <> UCase("ID") And Trim(strCaption) <> "" Then
            frmMain.mclsDepartmentMenu.AddMenuItem Tag, strCaption, "ViewColumn", , , , Checked
       End If
    Next iCol
    
    
    '設置常見只
    Dim blnSelectMail As Boolean
    blnSelectMail = frmMain.ctlMailList.mlngCurrentSelectID > 0
    frmMain.mclsDepartmentMenu.MenuItemEnabled("Modify") = blnSelectMail
    frmMain.mclsDepartmentMenu.MenuItemEnabled("Delete") = blnSelectMail
    frmMain.mclsDepartmentMenu.MenuItemEnabled("DeleteAll") = frmMain.ctlMailList.Rows > 0
    frmMain.mclsDepartmentMenu.MenuItemEnabled("Group") = frmMain.ctlMailList.AllowGrouping
        
    '設置權限中的可用只
    strsql = "select * from SystemMenu Where strMenuName='mclsDepartmentMenu' 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.mclsDepartmentMenu.MenuItemEnabled(mSystemMenu.sKey) = False
            End If
        Next lngMenuCounter
    End If
    
    
    frmMain.mclsDepartmentMenu.ShowPopupMenu x, y
    Set mclsSystemMenu1 = Nothing
End Sub




Public Sub RaiseDepartmentMenu_Click(ItemNumber As Long)
    Dim strKey As String
    strKey = frmMain.mclsDepartmentMenu.MenuItemKey(ItemNumber)
    
    Dim mclsDepartment As New PEmployee.clsEmployee
    Set mclsDepartment = GetclsEmployee
    
    Select Case UCase(strKey)
    Case UCase("NEW")                   '新增
            mclsDepartment.ShowAddDepartmentDialog (m_E_ViewMode)
            frmMain.RefreshMailList
            frmMain.Status "共有" & frmMain.ctlMailList.Rows & "筆記錄."
    Case UCase("MODIFY")                '修改
        If mclsDepartment.ShowEditDepartmentDialog(frmMain.ctlMailList.mlngCurrentSelectID) Then
            frmMain.RefreshMailList
            frmMain.Status "共有" & frmMain.ctlMailList.Rows & "筆記錄."
        End If
    Case UCase("DELETE")                '刪除
        If mclsDepartment.DeleteDepartment(frmMain.ctlMailList.mlngCurrentSelectID) Then
            frmMain.ctlMailList.RemoveRow False, True, 0
            frmMain.Status "共有" & frmMain.ctlMailList.Rows & "筆記錄."
        End If
    Case UCase("DeleteAll")             '刪除
        mclsDepartment.DeleteDepartments (True)
            frmMain.RefreshMailList
            frmMain.Status "共有" & frmMain.ctlMailList.Rows & "筆記錄."
    Case UCase("Refreshdata")           '刷新
        frmMain.RefreshMailList
        frmMain.Status "共有" & frmMain.ctlMailList.Rows & "筆記錄."
    Case UCase("GROUP")                 '分組
        frmMain.ctlMailList.AllowGrouping = True
    Case Else
        '點擊的是顯示列設置
        '********************************************************************************
       '設置列可見
        If frmMain.ctlMailList.ColumnVisibleCount = 1 Then
            ShowMessageBoxEx "至少必須有一列可見！", vbOKOnly, "設置列可見"
        ElseIf frmMain.ctlMailList.ColumnVisibleCount > 1 Then
            frmMain.mclsCustomerMenu.MenuItemChecked(ItemNumber) = Not frmMain.mclsCustomerMenu.MenuItemChecked(ItemNumber)
            frmMain.ctlMailList.ColumnVisible(frmMain.mclsCustomerMenu.MenuItemKey(ItemNumber)) = frmMain.mclsCustomerMenu.MenuItemChecked(ItemNumber)
        End If
        '********************************************************************************
    End Select
    Set mclsDepartment = Nothing
End Sub