HX-PGS-ERP-SYS-LEEHSIEHJUI/HX-PGS-ERP-SYS.vb

Option Explicit On
Imports System.IO
Imports System.Text
Imports CefSharp
Imports CefSharp.WinForms
Imports Telerik.WinControls.UI
Imports Telerik.WinControls.UI.Localization
Imports Telerik.WinForms.RichTextEditor
Imports System.Globalization
Imports Telerik.Windows.Documents.Spreadsheet.Expressions.Functions
Public Class HX_PGS_ERP_SYS
    Dim 對話框(35), 已選捷徑(100), 數量(20) As String
    Dim sysnud As String
    Dim 系統關閉, 捷徑關閉, 無設定, 待辦選擇 As Boolean
    Dim NSD As Integer = 0
    Dim RI As Integer = -1
    Dim SK As String = "要查找的 KEY"
    Dim Str As String = Application.StartupPath
    Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles 開新視窗_tsm.Click
        ' 建立子表單的新執行個體。
        ' 將它變成這個 MDI 表單的子表單，然後才顯示。
        Dim ChildForm As New Form With {
            .MdiParent = Me
        }
        m_ChildFormNumber += 1
        ChildForm.Text = "視窗 " & m_ChildFormNumber
        ChildForm.Show()
    End Sub
    Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles 結束_tsm.Click
        Me.Close()
    End Sub
    Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles 重疊顯示_tsm.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub
    Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles 垂直並排_tsm.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub
    Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles 水平並排_tsm.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub
    Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles 排列圖示_tsm.Click
        Me.LayoutMdi(MdiLayout.ArrangeIcons)
    End Sub
    Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles 全部關閉_tsm.Click
        ' 關閉父表單的所有子表單。
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : MyMod.虛擬桌面開啟()
    End Sub

    Private m_ChildFormNumber As Integer
    Private Sub Set_庫存查詢()
        Dim ds16 As New DataSet : 庫存查詢_dgv.DataSource = Nothing : ds16.Clear() : 庫存查詢_dgv.AllowUserToAddRows = False
        If 新版_ch.Checked = True Then : SQL_庫存查詢() : Else : SQL_庫存查詢1() : End If : NU1 = 0
        da.Fill(ds16) : 庫存查詢_dgv.DataSource = ds16.Tables(0) : conn.Close()
        Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8, 物料規格, 內容, 內容1, 內容2, 內容3, 內容4, 內容5, 內容6, 內容7, 內容8 As String : 簡易庫存_tv.Nodes.Clear()
        Dim 主項數量 As Integer = -1 : Dim 主項數量1 As Integer = -1 : Dim 主項數量2 As Integer = -1 : Dim 主項數量3 As Integer = -1
        Dim 主項數量4 As Integer = -1 : Dim 主項數量5 As Integer = -1 : Dim 主項數量6 As Integer = -1 : Dim 主項數量7 As Integer = -1
        For i As Integer = 0 To 庫存查詢_dgv.Rows.Count - 1 : 物料規格 = "" : 庫存查詢_dgv("選擇", i).Value = False
            If 庫存查詢_dgv.Rows(i).Cells("A1").Value.ToString <> "" Then : ZA1 = 庫存查詢_dgv.Rows(i).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If
            If 庫存查詢_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then
                ZA2 = 庫存查詢_dgv.Rows(i).Cells("A2").Value.ToString : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If
            If 庫存查詢_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then
                ZA3 = 庫存查詢_dgv.Rows(i).Cells("A3").Value.ToString : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If
            If 庫存查詢_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then
                ZA4 = 庫存查詢_dgv.Rows(i).Cells("A4").Value.ToString : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If
            If 庫存查詢_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then
                ZA5 = 庫存查詢_dgv.Rows(i).Cells("A5").Value.ToString : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If
            If 庫存查詢_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then
                ZA6 = 庫存查詢_dgv.Rows(i).Cells("A6").Value.ToString : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If
            If 庫存查詢_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then
                ZA7 = 庫存查詢_dgv.Rows(i).Cells("A7").Value.ToString : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If
            If 庫存查詢_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then
                ZA8 = 庫存查詢_dgv.Rows(i).Cells("A8").Value.ToString : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If
            庫存查詢_dgv.Rows(i).Cells("規格").Value = 物料規格
            If 內容 <> 庫存查詢_dgv("倉名", i).Value.ToString Then
                簡易庫存_tv.Nodes.Add(庫存查詢_dgv("倉名", i).Value.ToString) : 內容 = 庫存查詢_dgv("倉名", i).Value.ToString : 主項數量 += 1 : 主項數量1 = -1 : 內容1 = ""
                If 深色風格 = False Then
                    簡易庫存_tv.Nodes(主項數量).ForeColor = Color.Black
                Else
                    簡易庫存_tv.Nodes(主項數量).ForeColor = Color.Wheat
                End If
            End If
            If 新版_ch.Checked = True Then
                If 內容1 <> 庫存查詢_dgv("第一層", i).Value.ToString Then
                    簡易庫存_tv.Nodes(主項數量).Nodes.Add(庫存查詢_dgv("第一層", i).Value.ToString) : 內容1 = 庫存查詢_dgv("第一層", i).Value.ToString
                    主項數量1 += 1 : 主項數量2 = -1 : 內容2 = ""
                    If 深色風格 = False Then
                        簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).ForeColor = Color.Black
                    Else
                        簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).ForeColor = Color.Wheat
                    End If
                End If
                If 內容2 <> 庫存查詢_dgv("第二層", i).Value.ToString Then
                    簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes.Add(庫存查詢_dgv("第二層", i).Value.ToString) : 內容2 = 庫存查詢_dgv("第二層", i).Value.ToString
                    主項數量2 += 1 : 主項數量3 = -1 : 內容3 = ""
                    If 深色風格 = False Then
                        簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).ForeColor = Color.Black
                    Else
                        簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).ForeColor = Color.Wheat
                    End If
                End If
                If 內容3 <> 庫存查詢_dgv("第三層", i).Value.ToString Then
                    簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes.Add(庫存查詢_dgv("第三層", i).Value.ToString) : 內容3 = 庫存查詢_dgv("第三層", i).Value.ToString
                    主項數量3 += 1 : 主項數量4 = -1 : 內容4 = ""
                    If 深色風格 = False Then
                        簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).ForeColor = Color.Black
                    Else
                        簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).ForeColor = Color.Wheat
                    End If
                End If
                If 內容4 <> 庫存查詢_dgv("第四層", i).Value.ToString Then
                    簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes.Add(庫存查詢_dgv("第四層", i).Value.ToString)
                    內容4 = 庫存查詢_dgv("第四層", i).Value.ToString : 主項數量4 += 1 : 主項數量5 = -1 : 內容5 = ""
                    If 深色風格 = False Then
                        簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).ForeColor = Color.Black
                    Else
                        簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).ForeColor = Color.Wheat
                    End If
                End If
                If 內容5 <> 庫存查詢_dgv("第五層", i).Value.ToString Then
                    簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).Nodes.Add(庫存查詢_dgv("第五層", i).Value.ToString)
                    內容5 = 庫存查詢_dgv("第五層", i).Value.ToString : 主項數量5 += 1 : 主項數量6 = -1 : 內容6 = ""
                    If 深色風格 = False Then
                        簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).Nodes(主項數量5).ForeColor = Color.Black
                    Else
                        簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).Nodes(主項數量5).ForeColor = Color.Wheat
                    End If
                End If
                If 內容6 <> 庫存查詢_dgv("品名", i).Value.ToString Then
                    簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).Nodes(主項數量5).Nodes.Add(庫存查詢_dgv("品名", i).Value.ToString)
                    內容6 = 庫存查詢_dgv("品名", i).Value.ToString : 主項數量6 += 1 : 主項數量7 = -1 ': 內容7 = "><"
                    If 深色風格 = False Then
                        簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).Nodes(主項數量5).Nodes(主項數量6).ForeColor = Color.Black
                    Else
                        簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).Nodes(主項數量5).Nodes(主項數量6).ForeColor = Color.Wheat
                    End If
                End If
                內容7 = 庫存查詢_dgv("規格", i).Value.ToString & " / " & 系統語言字典("H506-158-" & 語言) & " : [ " & Strings.Format(CInt(庫存查詢_dgv("庫存", i).Value.ToString), "#,##0") & " ]"
                簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).Nodes(主項數量5).Nodes(主項數量6).Nodes.Add(內容7) : 主項數量7 += 1
                If 深色風格 = False Then
                    簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).Nodes(主項數量5).Nodes(主項數量6).Nodes(主項數量7).ForeColor = Color.Blue
                Else
                    簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).Nodes(主項數量5).Nodes(主項數量6).Nodes(主項數量7).ForeColor = Color.LightBlue
                End If
            Else
                If 庫存查詢_dgv.Rows(i).Cells("主項").Value.ToString = "管材" Then : 庫存查詢_dgv.Rows(i).Cells("主項").Value = 系統語言字典("G000-185-" & 語言)
                ElseIf 庫存查詢_dgv.Rows(i).Cells("主項").Value.ToString = "電線" Then : 庫存查詢_dgv.Rows(i).Cells("主項").Value = 系統語言字典("G000-186-" & 語言)
                ElseIf 庫存查詢_dgv.Rows(i).Cells("主項").Value.ToString = "電料" Then : 庫存查詢_dgv.Rows(i).Cells("主項").Value = 系統語言字典("G000-187-" & 語言)
                ElseIf 庫存查詢_dgv.Rows(i).Cells("主項").Value.ToString = "槽架" Then : 庫存查詢_dgv.Rows(i).Cells("主項").Value = 系統語言字典("G000-188-" & 語言)
                ElseIf 庫存查詢_dgv.Rows(i).Cells("主項").Value.ToString = "建材" Then : 庫存查詢_dgv.Rows(i).Cells("主項").Value = 系統語言字典("G000-189-" & 語言)
                ElseIf 庫存查詢_dgv.Rows(i).Cells("主項").Value.ToString = "五金" Then : 庫存查詢_dgv.Rows(i).Cells("主項").Value = 系統語言字典("G000-190-" & 語言)
                ElseIf 庫存查詢_dgv.Rows(i).Cells("主項").Value.ToString = "設備" Then : 庫存查詢_dgv.Rows(i).Cells("主項").Value = 系統語言字典("G000-191-" & 語言)
                ElseIf 庫存查詢_dgv.Rows(i).Cells("主項").Value.ToString = "工具" Then : 庫存查詢_dgv.Rows(i).Cells("主項").Value = 系統語言字典("G000-192-" & 語言)
                ElseIf 庫存查詢_dgv.Rows(i).Cells("主項").Value.ToString = "日用" Then : 庫存查詢_dgv.Rows(i).Cells("主項").Value = 系統語言字典("G000-193-" & 語言)
                ElseIf 庫存查詢_dgv.Rows(i).Cells("主項").Value.ToString = "其他" Then : 庫存查詢_dgv.Rows(i).Cells("主項").Value = 系統語言字典("G000-194-" & 語言)
                End If

                If 內容1 <> 庫存查詢_dgv("主項", i).Value.ToString Then
                    簡易庫存_tv.Nodes(主項數量).Nodes.Add(庫存查詢_dgv("主項", i).Value.ToString) : 內容1 = 庫存查詢_dgv("主項", i).Value.ToString
                    主項數量1 += 1 : 主項數量2 = -1 : 內容2 = ""
                    If 深色風格 = False Then
                        簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).ForeColor = Color.Black
                    Else
                        簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).ForeColor = Color.Wheat
                    End If
                End If
                If 內容2 <> 庫存查詢_dgv("群組", i).Value.ToString Then
                    簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes.Add(庫存查詢_dgv("群組", i).Value.ToString) : 內容2 = 庫存查詢_dgv("群組", i).Value.ToString
                    主項數量2 += 1 : 主項數量3 = -1 : 內容3 = ""
                    If 深色風格 = False Then
                        簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).ForeColor = Color.Black
                    Else
                        簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).ForeColor = Color.Wheat
                    End If
                End If
                If 內容3 <> 庫存查詢_dgv("品名", i).Value.ToString Then
                    簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes.Add(庫存查詢_dgv("品名", i).Value.ToString)
                    內容3 = 庫存查詢_dgv("品名", i).Value.ToString : 主項數量3 += 1 : 主項數量4 = -1 ': 內容7 = "><"
                    If 深色風格 = False Then
                        簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).ForeColor = Color.Black
                    Else
                        簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).ForeColor = Color.Wheat
                    End If
                End If
                內容4 = 庫存查詢_dgv("規格", i).Value.ToString & " / " & 系統語言字典("H506-158-" & 語言) & " : [ " & Strings.Format(CInt(庫存查詢_dgv("庫存", i).Value.ToString), "#,##0") & " ]"
                簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes.Add(內容4) : 主項數量4 += 1
                If 深色風格 = False Then
                    簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).ForeColor = Color.Blue
                Else
                    簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).ForeColor = Color.LightBlue
                End If
            End If
        Next
    End Sub
    Private Sub UncheckChildNodes(parentNode As TreeNode)
        For Each childNode As TreeNode In parentNode.Nodes
            ' 取消勾選子節點
            childNode.Checked = False
            ' 遞迴取消子節點的子節點的勾選
            UncheckChildNodes(childNode)
        Next
    End Sub
    Private Sub 簡易庫存_tv_NodeMouseClick(sender As Object, e As TreeNodeMouseClickEventArgs) Handles 簡易庫存_tv.NodeMouseClick
        If e.Node.Level = 0 Then        ' 檢查是否為第一層節點
            For Each rootNode As TreeNode In 簡易庫存_tv.Nodes : If Not rootNode.Equals(e.Node) Then : UncheckChildNodes(rootNode) : End If : Next  ' 取消其他根節點的子節點的勾選
            For Each node As TreeNode In 簡易庫存_tv.Nodes : If node IsNot e.Node AndAlso node.IsExpanded Then : node.Collapse() : End If : Next    ' 收起所有先前展開的第二層節點
            For i As Integer = 0 To 庫存查詢_dgv.Rows.Count - 1 : 庫存查詢_dgv("選擇", i).Value = False : Next : NU1 = 0
        End If
        '--------是否能啟動Checked--------------------------------------------------------------------------------------------------------
        If 新版_ch.Checked = True Then
            Select Case e.Node.Level : Case 0, 7 : e.Node.Checked = Not e.Node.Checked : Case 1, 2, 3, 4, 5, 6 : e.Node.Checked = False : End Select
        Else
            Select Case e.Node.Level : Case 0, 4 : e.Node.Checked = Not e.Node.Checked : Case 1, 2, 3 : e.Node.Checked = False : End Select
        End If
        '--------滑鼠點擊後展開--------------------------------------------------------------------------------------------------------
        If e.Node.Bounds.Contains(e.Location) Then : If e.Node.IsExpanded Then : e.Node.Collapse() : Else : e.Node.Expand() : End If : End If
        If e.Node.Text = "NA" Then : ExpandAllChildren1(e.Node) : Else : e.Node.Expand() : End If : If e.Node.Level = 6 Then : ExpandAllChildren(e.Node) : Else : e.Node.Expand() : End If
        '--------點擊後回頭找到DGV中的對應資料--------------------------------------------------------------------------------------------------------
        If 新版_ch.Checked = True Then
            If e.Node.Level = 7 Then : Dim SA7 As String = "" : Dim SA6 As String = "" : Dim SA5 As String = "" : Dim SA4 As String = ""
                Dim SA3 As String = "" : Dim SA2 As String = "" : Dim SA1 As String = "" : Dim SA8 As String = e.Node.Text
                Dim parentNode As TreeNode = e.Node
                For i As Integer = 0 To 6 : parentNode = parentNode.Parent
                    Select Case i
                        Case 0 : SA7 = parentNode.Text : Case 1 : SA6 = parentNode.Text : Case 2 : SA5 = parentNode.Text : Case 3 : SA4 = parentNode.Text
                        Case 4 : SA3 = parentNode.Text : Case 5 : SA2 = parentNode.Text : Case 6 : SA1 = parentNode.Text
                    End Select
                Next
                For Each row As DataGridViewRow In 庫存查詢_dgv.Rows
                    If row.Cells("倉名").Value IsNot Nothing AndAlso row.Cells("倉名").Value.ToString() = SA1 AndAlso
                       row.Cells("第一層").Value IsNot Nothing AndAlso row.Cells("第一層").Value.ToString() = SA2 AndAlso
                       row.Cells("第二層").Value IsNot Nothing AndAlso row.Cells("第二層").Value.ToString() = SA3 AndAlso
                       row.Cells("第三層").Value IsNot Nothing AndAlso row.Cells("第三層").Value.ToString() = SA4 AndAlso
                       row.Cells("第四層").Value IsNot Nothing AndAlso row.Cells("第四層").Value.ToString() = SA5 AndAlso
                       row.Cells("第五層").Value IsNot Nothing AndAlso row.Cells("第五層").Value.ToString() = SA6 AndAlso
                       row.Cells("品名").Value IsNot Nothing AndAlso row.Cells("品名").Value.ToString() = SA7 AndAlso
                       row.Cells("規格").Value IsNot Nothing AndAlso
                       row.Cells("規格").Value.ToString() & " / " & 系統語言字典("H506-158-" & 語言) & " : [ " &
                       Strings.Format(CInt(row.Cells("庫存").Value.ToString()), "#,##0") & " ]" = SA8 Then
                        PA2 = 庫存查詢_dgv("料號原則", row.Index).Value.ToString : 物料圖片()
                        If 庫存查詢_dgv("選擇", row.Index).Value = False Then
                            庫存查詢_dgv("選擇", row.Index).Value = True : NU1 += 1
                        Else
                            庫存查詢_dgv("選擇", row.Index).Value = False : NU1 -= 1
                        End If : Exit For
                    End If
                Next
            ElseIf e.Node.Level = 6 Then : Dim SA7 As String = e.Node.Text : Dim SA6 As String = "" : Dim SA5 As String = "" : Dim SA4 As String = ""
                Dim SA3 As String = "" : Dim SA2 As String = "" : Dim SA1 As String = ""
                Dim parentNode As TreeNode = e.Node
                For i As Integer = 0 To 5 : parentNode = parentNode.Parent
                    Select Case i
                        Case 0 : SA6 = parentNode.Text : Case 1 : SA5 = parentNode.Text : Case 2 : SA4 = parentNode.Text : Case 3 : SA3 = parentNode.Text
                        Case 4 : SA2 = parentNode.Text : Case 5 : SA1 = parentNode.Text
                    End Select
                Next
                For Each row As DataGridViewRow In 庫存查詢_dgv.Rows
                    If row.Cells("倉名").Value IsNot Nothing AndAlso row.Cells("倉名").Value.ToString() = SA1 AndAlso
                       row.Cells("第一層").Value IsNot Nothing AndAlso row.Cells("第一層").Value.ToString() = SA2 AndAlso
                       row.Cells("第二層").Value IsNot Nothing AndAlso row.Cells("第二層").Value.ToString() = SA3 AndAlso
                       row.Cells("第三層").Value IsNot Nothing AndAlso row.Cells("第三層").Value.ToString() = SA4 AndAlso
                       row.Cells("第四層").Value IsNot Nothing AndAlso row.Cells("第四層").Value.ToString() = SA5 AndAlso
                       row.Cells("第五層").Value IsNot Nothing AndAlso row.Cells("第五層").Value.ToString() = SA6 AndAlso
                       row.Cells("品名").Value IsNot Nothing AndAlso row.Cells("品名").Value.ToString() = SA7 Then
                        PA2 = 庫存查詢_dgv("料號原則", row.Index).Value.ToString : 物料圖片() : Exit For
                    End If
                Next
            Else : 圖片檔3_pb.Image = Nothing : End If
        Else
            If e.Node.Level = 4 Then : Dim SA5 As String = e.Node.Text : Dim SA4 As String = "" : Dim SA3 As String = "" : Dim SA2 As String = "" : Dim SA1 As String = ""
                Dim parentNode As TreeNode = e.Node
                For i As Integer = 0 To 3 : parentNode = parentNode.Parent
                    Select Case i
                        Case 0 : SA4 = parentNode.Text : Case 1 : SA3 = parentNode.Text : Case 2 : SA2 = parentNode.Text : Case 3 : SA1 = parentNode.Text
                    End Select
                Next
                For Each row As DataGridViewRow In 庫存查詢_dgv.Rows
                    If row.Cells("倉名").Value IsNot Nothing AndAlso row.Cells("倉名").Value.ToString() = SA1 AndAlso
                       row.Cells("主項").Value IsNot Nothing AndAlso row.Cells("主項").Value.ToString() = SA2 AndAlso
                       row.Cells("群組").Value IsNot Nothing AndAlso row.Cells("群組").Value.ToString() = SA3 AndAlso
                       row.Cells("品名").Value IsNot Nothing AndAlso row.Cells("品名").Value.ToString() = SA4 AndAlso
                          row.Cells("規格").Value IsNot Nothing AndAlso
                       row.Cells("規格").Value.ToString() & " / " & 系統語言字典("H506-158-" & 語言) & " : [ " &
                       Strings.Format(CInt(row.Cells("庫存").Value.ToString()), "#,##0") & " ]" = SA5 Then
                        PA2 = 庫存查詢_dgv("料號原則", row.Index).Value.ToString : 物料圖片()
                        If 庫存查詢_dgv("選擇", row.Index).Value = False Then
                            庫存查詢_dgv("選擇", row.Index).Value = True : NU1 += 1
                        Else
                            庫存查詢_dgv("選擇", row.Index).Value = False : NU1 -= 1
                        End If : Exit For
                    End If
                Next
            ElseIf e.Node.Level = 3 Then : Dim SA4 As String = e.Node.Text : Dim SA3 As String = "" : Dim SA2 As String = "" : Dim SA1 As String = ""
                Dim parentNode As TreeNode = e.Node
                For i As Integer = 0 To 2 : parentNode = parentNode.Parent
                    Select Case i
                        Case 0 : SA3 = parentNode.Text : Case 1 : SA2 = parentNode.Text : Case 2 : SA1 = parentNode.Text
                    End Select
                Next
                For Each row As DataGridViewRow In 庫存查詢_dgv.Rows
                    If row.Cells("倉名").Value IsNot Nothing AndAlso row.Cells("倉名").Value.ToString() = SA1 AndAlso
                       row.Cells("主項").Value IsNot Nothing AndAlso row.Cells("主項").Value.ToString() = SA2 AndAlso
                       row.Cells("群組").Value IsNot Nothing AndAlso row.Cells("群組").Value.ToString() = SA3 AndAlso
                       row.Cells("品名").Value IsNot Nothing AndAlso row.Cells("品名").Value.ToString() = SA4 Then
                        PA2 = 庫存查詢_dgv("料號原則", row.Index).Value.ToString : 物料圖片() : Exit For
                    End If
                Next
            Else : 圖片檔3_pb.Image = Nothing : End If
        End If
    End Sub
    Private Sub 物料圖片()
        圖片檔3_pb.Image = Nothing : SQL_物料圖庫_圖檔讀取一()
        While dr.Read() = True
            Dim unused As Byte() = New Byte(-1) {}
            Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte())
            Dim oStream As New MemoryStream(bytes)
            圖片檔3_pb.Image = Bitmap.FromStream(oStream)
        End While : conn.Close() : 圖片檔3_pb.SizeMode = 4 : PA2 = ""
    End Sub
    Private Sub ExpandAllChildren(parentNode As TreeNode)
        For Each childNode As TreeNode In parentNode.Nodes : childNode.Expand() : ExpandAllChildren(childNode) : Next
    End Sub
    Private Sub ExpandAllChildren1(parentNode As TreeNode)
        For Each childNode As TreeNode In parentNode.Nodes : If parentNode.Text = "NA" Then : childNode.Expand() : ExpandAllChildren1(childNode) : End If : Next
    End Sub
    Private Sub 倉儲領料申請_bt_Click(sender As Object, e As EventArgs) Handles 倉儲領料申請_bt.Click
        If NU1 = 0 Then : Else : 桌面倉儲領料導入.Show() : End If
    End Sub
    Private Sub 新版_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 新版_ch.Click
        新版_ch.Checked = True : 舊版_ch.Checked = False : Set_庫存查詢()
    End Sub
    Private Sub 舊版_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 舊版_ch.Click
        新版_ch.Checked = False : 舊版_ch.Checked = True : Set_庫存查詢()
    End Sub
    Private Sub Set_捷徑讀取()
        Dim ds16 As New DataSet : 捷徑_dgv.DataSource = Nothing : ds16.Clear() : 捷徑_dgv.AllowUserToAddRows = False
        SQL_捷徑紀錄_讀取() : da.Fill(ds16) : 捷徑_dgv.DataSource = ds16.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_合約未設利潤()
        Dim ds16 As New DataSet : 合約預估利潤_dgv.DataSource = Nothing : ds16.Clear() : 合約預估利潤_dgv.AllowUserToAddRows = False
        SQL_合約未設利潤() : da.Fill(ds16) : 合約預估利潤_dgv.DataSource = ds16.Tables(0) : conn.Close()
        合約預估利潤_dgv.Columns(0).FillWeight = 70 : 合約預估利潤_dgv.Columns(1).FillWeight = 45 : 合約預估利潤_dgv.Columns(2).FillWeight = 120
        合約預估利潤_dgv.Columns(3).FillWeight = 120
        If 系統語言 = "繁體中文" Then : 合約預估利潤_dgv.Columns(2).Visible = True : 合約預估利潤_dgv.Columns(3).Visible = False
        Else : 合約預估利潤_dgv.Columns(2).Visible = False : 合約預估利潤_dgv.Columns(3).Visible = True : End If
    End Sub
    Private Sub 合約預估利潤_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約預估利潤_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            待辦進入 = 合約預估利潤_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : Cancel_bt.PerformClick() : 合約報價單_tsm.PerformClick()
        End If
    End Sub
    Private Sub Set_報價未完成()
        Dim ds16 As New DataSet : 報價未完成_dgv.DataSource = Nothing : ds16.Clear() : 報價未完成_dgv.AllowUserToAddRows = False
        SQL_報價未完成() : da.Fill(ds16) : 報價未完成_dgv.DataSource = ds16.Tables(0) : conn.Close()
        報價未完成_dgv.Columns(0).FillWeight = 70 : 報價未完成_dgv.Columns(1).FillWeight = 45 : 報價未完成_dgv.Columns(2).FillWeight = 120
        報價未完成_dgv.Columns(3).FillWeight = 120
        If 系統語言 = "繁體中文" Then : 報價未完成_dgv.Columns(2).Visible = True : 報價未完成_dgv.Columns(3).Visible = False
        Else : 報價未完成_dgv.Columns(2).Visible = False : 報價未完成_dgv.Columns(3).Visible = True : End If
    End Sub
    Private Sub 報價未完成_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 報價未完成_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            待辦進入 = 報價未完成_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : Cancel_bt.PerformClick() : 合約報價單_tsm.PerformClick()
        End If
    End Sub
    Private Sub Set_合約未放行()
        Dim ds16 As New DataSet : 合約未放行_dgv.DataSource = Nothing : ds16.Clear() : 合約未放行_dgv.AllowUserToAddRows = False
        SQL_合約未放行() : da.Fill(ds16) : 合約未放行_dgv.DataSource = ds16.Tables(0) : conn.Close()
        合約未放行_dgv.Columns(0).FillWeight = 70 : 合約未放行_dgv.Columns(1).FillWeight = 45 : 合約未放行_dgv.Columns(2).FillWeight = 120
        合約未放行_dgv.Columns(3).FillWeight = 120
        If 系統語言 = "繁體中文" Then : 合約未放行_dgv.Columns(2).Visible = True : 合約未放行_dgv.Columns(3).Visible = False
        Else : 合約未放行_dgv.Columns(2).Visible = False : 合約未放行_dgv.Columns(3).Visible = True : End If
    End Sub
    Private Sub 合約未放行_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約未放行_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            待辦進入 = 合約未放行_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : Cancel_bt.PerformClick()
            If CC(107) = False Then : 合約報價單_tsm.PerformClick() : Else : 合約報價單審核_tsm.PerformClick() : End If
        End If
    End Sub
    Private Sub Set_報價未簽回()
        Dim ds16 As New DataSet : 報價未簽回_dgv.DataSource = Nothing : ds16.Clear() : 報價未簽回_dgv.AllowUserToAddRows = False
        SQL_報價未簽回() : da.Fill(ds16) : 報價未簽回_dgv.DataSource = ds16.Tables(0) : conn.Close()
        報價未簽回_dgv.Columns(0).FillWeight = 70 : 報價未簽回_dgv.Columns(1).FillWeight = 45 : 報價未簽回_dgv.Columns(2).FillWeight = 120
        報價未簽回_dgv.Columns(3).FillWeight = 120
        If 系統語言 = "繁體中文" Then : 報價未簽回_dgv.Columns(2).Visible = True : 報價未簽回_dgv.Columns(3).Visible = False
        Else : 報價未簽回_dgv.Columns(2).Visible = False : 報價未簽回_dgv.Columns(3).Visible = True : End If
    End Sub
    Private Sub 報價未簽回_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 報價未簽回_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            待辦進入 = 報價未簽回_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : PB = "報價與合約" : 待辦事項連接_兩項.ShowDialog() : Cancel_bt.PerformClick()
            If PB = "A" Then : 合約報價單_tsm.PerformClick() : Else : 合約文件簽回存檔_tsm.PerformClick() : End If : PB = ""
        End If
    End Sub
    Private Sub Set_合約未簽回()
        Dim ds16 As New DataSet : 合約未簽回_dgv.DataSource = Nothing : ds16.Clear() : 合約未簽回_dgv.AllowUserToAddRows = False
        SQL_合約未簽回() : da.Fill(ds16) : 合約未簽回_dgv.DataSource = ds16.Tables(0) : conn.Close()
        合約未簽回_dgv.Columns(0).FillWeight = 70 : 合約未簽回_dgv.Columns(1).FillWeight = 45 : 合約未簽回_dgv.Columns(2).FillWeight = 120
        合約未簽回_dgv.Columns(3).FillWeight = 120
        If 系統語言 = "繁體中文" Then : 合約未簽回_dgv.Columns(2).Visible = True : 合約未簽回_dgv.Columns(3).Visible = False
        Else : 合約未簽回_dgv.Columns(2).Visible = False : 合約未簽回_dgv.Columns(3).Visible = True : End If
    End Sub
    Private Sub 合約未簽回_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約未簽回_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            待辦進入 = 合約未簽回_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : PB = "報價與合約" : 待辦事項連接_兩項.ShowDialog() : Cancel_bt.PerformClick()
            If PB = "A" Then : 合約報價單_tsm.PerformClick() : Else : 合約文件簽回存檔_tsm.PerformClick() : End If : PB = ""
        End If
    End Sub
    Private Sub Set_合約未指定主管()
        Dim ds16 As New DataSet : 合約未指定主管_dgv.DataSource = Nothing : ds16.Clear() : 合約未指定主管_dgv.AllowUserToAddRows = False
        SQL_合約未指定主管() : da.Fill(ds16) : 合約未指定主管_dgv.DataSource = ds16.Tables(0) : conn.Close()
        合約未指定主管_dgv.Columns(0).FillWeight = 70 : 合約未指定主管_dgv.Columns(1).FillWeight = 45 : 合約未指定主管_dgv.Columns(2).FillWeight = 120
        合約未指定主管_dgv.Columns(3).FillWeight = 120
        If 系統語言 = "繁體中文" Then : 合約未指定主管_dgv.Columns(2).Visible = True : 合約未指定主管_dgv.Columns(3).Visible = False
        Else : 合約未指定主管_dgv.Columns(2).Visible = False : 合約未指定主管_dgv.Columns(3).Visible = True : End If
    End Sub
    Private Sub 合約未指定主管_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約未指定主管_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            待辦進入 = 合約未指定主管_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : Cancel_bt.PerformClick() : 合約驗收控制表_tsm.PerformClick()
        End If
    End Sub
    Private Sub Set_合約未驗收()
        Dim ds16 As New DataSet : 合約未驗收_dgv.DataSource = Nothing : ds16.Clear() : 合約未驗收_dgv.AllowUserToAddRows = False
        SQL_合約未驗收() : da.Fill(ds16) : 合約未驗收_dgv.DataSource = ds16.Tables(0) : conn.Close()
        合約未驗收_dgv.Columns(0).FillWeight = 70 : 合約未驗收_dgv.Columns(1).FillWeight = 45 : 合約未驗收_dgv.Columns(2).FillWeight = 120
        合約未驗收_dgv.Columns(3).FillWeight = 120
        If 系統語言 = "繁體中文" Then : 合約未驗收_dgv.Columns(2).Visible = True : 合約未驗收_dgv.Columns(3).Visible = False
        Else : 合約未驗收_dgv.Columns(2).Visible = False : 合約未驗收_dgv.Columns(3).Visible = True : End If
    End Sub
    Private Sub 合約未驗收_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約未驗收_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            待辦進入 = 合約未驗收_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : Cancel_bt.PerformClick()
            If CC(126) = True Then : 合約驗收單_tsm.PerformClick() : Else : 合約驗收單1_tsm.PerformClick() : End If
        End If
    End Sub
    Private Sub Set_合約驗收單未簽回()
        Dim ds16 As New DataSet : 驗收未簽回_dgv.DataSource = Nothing : ds16.Clear() : 驗收未簽回_dgv.AllowUserToAddRows = False
        SQL_合約驗收單未簽回() : da.Fill(ds16) : 驗收未簽回_dgv.DataSource = ds16.Tables(0) : conn.Close()
        驗收未簽回_dgv.Columns(0).FillWeight = 70 : 驗收未簽回_dgv.Columns(1).FillWeight = 45 : 驗收未簽回_dgv.Columns(2).FillWeight = 120
        驗收未簽回_dgv.Columns(3).FillWeight = 120
        If 系統語言 = "繁體中文" Then : 驗收未簽回_dgv.Columns(2).Visible = True : 驗收未簽回_dgv.Columns(3).Visible = False
        Else : 驗收未簽回_dgv.Columns(2).Visible = False : 驗收未簽回_dgv.Columns(3).Visible = True : End If
    End Sub
    Private Sub 驗收未簽回_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 驗收未簽回_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            待辦進入 = 驗收未簽回_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString
            If CC(61) = True Then
                PB = "工程與驗收" : 待辦事項連接_兩項.ShowDialog() : Cancel_bt.PerformClick()
                If PB = "A" Then : 合約驗收單_tsm.PerformClick() : Else : 合約文件簽回存檔_tsm.PerformClick() : End If : PB = ""
            Else : 合約驗收單1_tsm.PerformClick() : End If
        End If
    End Sub
    Private Sub Set_合約保固單未簽()
        Dim ds16 As New DataSet : 保固未簽回_dgv.DataSource = Nothing : ds16.Clear() : 保固未簽回_dgv.AllowUserToAddRows = False
        SQL_合約保固未簽() : da.Fill(ds16) : 保固未簽回_dgv.DataSource = ds16.Tables(0) : conn.Close()
        保固未簽回_dgv.Columns(0).FillWeight = 70 : 保固未簽回_dgv.Columns(1).FillWeight = 45 : 保固未簽回_dgv.Columns(2).FillWeight = 120
        保固未簽回_dgv.Columns(3).FillWeight = 120
        If 系統語言 = "繁體中文" Then : 保固未簽回_dgv.Columns(2).Visible = True : 保固未簽回_dgv.Columns(3).Visible = False
        Else : 保固未簽回_dgv.Columns(2).Visible = False : 保固未簽回_dgv.Columns(3).Visible = True : End If
    End Sub
    Private Sub 保固未簽回_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 保固未簽回_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            待辦進入 = 保固未簽回_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString
            If CC(127) = True Then
                PB = "保固未簽回" : 待辦事項連接_三項.ShowDialog() : Cancel_bt.PerformClick()
                If PB = "A" Then : 合約保固書_tsm.PerformClick() : ElseIf PB = "B" Then : 合約結案控制表_tsm.PerformClick() : Else : 合約文件簽回存檔_tsm.PerformClick() : End If : PB = ""
            Else : 合約結案控制表1_tsm.PerformClick() : End If
        End If
    End Sub
    Private Sub Set_合約未請款5()
        Dim ds16 As New DataSet : 合約請款5_dgv.DataSource = Nothing : ds16.Clear() : 合約請款5_dgv.AllowUserToAddRows = False
        SQL_合約未請款5() : da.Fill(ds16) : 合約請款5_dgv.DataSource = ds16.Tables(0) : conn.Close()
        合約請款5_dgv.Columns(0).FillWeight = 70 : 合約請款5_dgv.Columns(1).FillWeight = 45 : 合約請款5_dgv.Columns(2).FillWeight = 120
        合約請款5_dgv.Columns(3).FillWeight = 120
        If 系統語言 = "繁體中文" Then : 合約請款5_dgv.Columns(2).Visible = True : 合約請款5_dgv.Columns(3).Visible = False
        Else : 合約請款5_dgv.Columns(2).Visible = False : 合約請款5_dgv.Columns(3).Visible = True : End If
    End Sub
    Private Sub 合約請款5_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約請款5_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            待辦進入 = 合約請款5_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : Cancel_bt.PerformClick() : 合約請款單_tsm.PerformClick()
        End If
    End Sub
    Private Sub Set_合約未請款4()
        Dim ds16 As New DataSet : 合約請款4_dgv.DataSource = Nothing : ds16.Clear() : 合約請款4_dgv.AllowUserToAddRows = False
        SQL_合約未請款4() : da.Fill(ds16) : 合約請款4_dgv.DataSource = ds16.Tables(0) : conn.Close()
        合約請款4_dgv.Columns(0).FillWeight = 70 : 合約請款4_dgv.Columns(1).FillWeight = 45 : 合約請款4_dgv.Columns(2).FillWeight = 120
        合約請款4_dgv.Columns(3).FillWeight = 120
        If 系統語言 = "繁體中文" Then : 合約請款4_dgv.Columns(2).Visible = True : 合約請款4_dgv.Columns(3).Visible = False
        Else : 合約請款4_dgv.Columns(2).Visible = False : 合約請款4_dgv.Columns(3).Visible = True : End If
    End Sub
    Private Sub 合約請款4_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約請款4_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            待辦進入 = 合約請款4_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : Cancel_bt.PerformClick() : 合約請款單_tsm.PerformClick()
        End If
    End Sub
    Private Sub Set_合約未請款3()
        Dim ds16 As New DataSet : 合約請款3_dgv.DataSource = Nothing : ds16.Clear() : 合約請款3_dgv.AllowUserToAddRows = False
        SQL_合約未請款3() : da.Fill(ds16) : 合約請款3_dgv.DataSource = ds16.Tables(0) : conn.Close()
        合約請款3_dgv.Columns(0).FillWeight = 70 : 合約請款3_dgv.Columns(1).FillWeight = 45 : 合約請款3_dgv.Columns(2).FillWeight = 120
        合約請款3_dgv.Columns(3).FillWeight = 120
        If 系統語言 = "繁體中文" Then : 合約請款3_dgv.Columns(2).Visible = True : 合約請款3_dgv.Columns(3).Visible = False
        Else : 合約請款3_dgv.Columns(2).Visible = False : 合約請款3_dgv.Columns(3).Visible = True : End If
    End Sub
    Private Sub 合約請款3_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約請款3_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            待辦進入 = 合約請款3_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : Cancel_bt.PerformClick() : 合約請款單_tsm.PerformClick()
        End If
    End Sub
    Private Sub Set_合約未請款2()
        Dim ds16 As New DataSet : 合約請款2_dgv.DataSource = Nothing : ds16.Clear() : 合約請款2_dgv.AllowUserToAddRows = False
        SQL_合約未請款2() : da.Fill(ds16) : 合約請款2_dgv.DataSource = ds16.Tables(0) : conn.Close()
        合約請款2_dgv.Columns(0).FillWeight = 70 : 合約請款2_dgv.Columns(1).FillWeight = 45 : 合約請款2_dgv.Columns(2).FillWeight = 120
        合約請款2_dgv.Columns(3).FillWeight = 120
        If 系統語言 = "繁體中文" Then : 合約請款2_dgv.Columns(2).Visible = True : 合約請款2_dgv.Columns(3).Visible = False
        Else : 合約請款2_dgv.Columns(2).Visible = False : 合約請款2_dgv.Columns(3).Visible = True : End If
    End Sub
    Private Sub 合約請款2_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約請款2_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            待辦進入 = 合約請款2_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : Cancel_bt.PerformClick() : 合約請款單_tsm.PerformClick()
        End If
    End Sub
    Private Sub Set_合約未請款1()
        Dim ds16 As New DataSet : 合約請款1_dgv.DataSource = Nothing : ds16.Clear() : 合約請款1_dgv.AllowUserToAddRows = False
        SQL_合約未請款1() : da.Fill(ds16) : 合約請款1_dgv.DataSource = ds16.Tables(0) : conn.Close()
        合約請款1_dgv.Columns(0).FillWeight = 70 : 合約請款1_dgv.Columns(1).FillWeight = 45 : 合約請款1_dgv.Columns(2).FillWeight = 120
        合約請款1_dgv.Columns(3).FillWeight = 120
        If 系統語言 = "繁體中文" Then : 合約請款1_dgv.Columns(2).Visible = True : 合約請款1_dgv.Columns(3).Visible = False
        Else : 合約請款1_dgv.Columns(2).Visible = False : 合約請款1_dgv.Columns(3).Visible = True : End If
    End Sub
    Private Sub 合約請款1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約請款1_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            待辦進入 = 合約請款1_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : Cancel_bt.PerformClick() : 合約請款單_tsm.PerformClick()
        End If
    End Sub
    Private Sub Set_部門聯絡函_派車()
        Dim ds16 As New DataSet : 聯絡函_派車_dgv.DataSource = Nothing : ds16.Clear() : 聯絡函_派車_dgv.AllowUserToAddRows = False
        SQL_派車_聯絡函() : da.Fill(ds16) : 聯絡函_派車_dgv.DataSource = ds16.Tables(0) : conn.Close()
        聯絡函_派車_dgv.Columns(0).FillWeight = 50 : 聯絡函_派車_dgv.Columns(1).FillWeight = 60 : 聯絡函_派車_dgv.Columns(2).FillWeight = 120
    End Sub
    Private Sub 聯絡函_派車_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 聯絡函_派車_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 待辦進入 = "派車" : Cancel_bt.PerformClick() : 聯絡函部門主管審核_tsm.PerformClick() : 待辦進入 = "" : End If
    End Sub
    Private Sub Set_部門聯絡函_請假()
        Dim ds16 As New DataSet : 聯絡函_請假_dgv.DataSource = Nothing : ds16.Clear() : 聯絡函_請假_dgv.AllowUserToAddRows = False
        SQL_請假_聯絡函() : da.Fill(ds16) : 聯絡函_請假_dgv.DataSource = ds16.Tables(0) : conn.Close()
        聯絡函_請假_dgv.Columns(0).FillWeight = 50 : 聯絡函_請假_dgv.Columns(1).FillWeight = 60 : 聯絡函_請假_dgv.Columns(2).FillWeight = 120
    End Sub
    Private Sub 聯絡函_請假_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 聯絡函_請假_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 待辦進入 = "請假" : Cancel_bt.PerformClick() : 聯絡函部門主管審核_tsm.PerformClick() : 待辦進入 = "" : End If
    End Sub
    Private Sub Set_部門聯絡函_未驗收()
        Dim ds16 As New DataSet : 聯絡函_未驗收_dgv.DataSource = Nothing : ds16.Clear() : 聯絡函_未驗收_dgv.AllowUserToAddRows = False
        SQL_未驗收_聯絡函() : da.Fill(ds16) : 聯絡函_未驗收_dgv.DataSource = ds16.Tables(0) : conn.Close()
        聯絡函_未驗收_dgv.Columns(0).FillWeight = 50 : 聯絡函_未驗收_dgv.Columns(1).FillWeight = 60 : 聯絡函_未驗收_dgv.Columns(2).FillWeight = 120
    End Sub
    Private Sub 聯絡函_未驗收_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 聯絡函_未驗收_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 待辦進入 = "未驗收" : Cancel_bt.PerformClick() : 部門聯絡函一覽表_tsm.PerformClick() : 待辦進入 = "" : End If
    End Sub
    Private Sub Set_部門聯絡函_未執行()
        Dim ds16 As New DataSet : 聯絡函_未執行_dgv.DataSource = Nothing : ds16.Clear() : 聯絡函_未執行_dgv.AllowUserToAddRows = False
        SQL_未執行_聯絡函() : da.Fill(ds16) : 聯絡函_未執行_dgv.DataSource = ds16.Tables(0) : conn.Close()
        聯絡函_未執行_dgv.Columns(0).FillWeight = 50 : 聯絡函_未執行_dgv.Columns(1).FillWeight = 60 : 聯絡函_未執行_dgv.Columns(2).FillWeight = 120
    End Sub
    Private Sub 聯絡函_未執行_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 聯絡函_未執行_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 待辦進入 = "未執行" : Cancel_bt.PerformClick() : 部門聯絡函一覽表_tsm.PerformClick() : 待辦進入 = "" : End If
    End Sub
    Private Sub Set_部門聯絡函_未收()
        Dim ds16 As New DataSet : 聯絡函_未收_dgv.DataSource = Nothing : ds16.Clear() : 聯絡函_未收_dgv.AllowUserToAddRows = False
        SQL_未收_聯絡函() : da.Fill(ds16) : 聯絡函_未收_dgv.DataSource = ds16.Tables(0) : conn.Close()
        聯絡函_未收_dgv.Columns(0).FillWeight = 50 : 聯絡函_未收_dgv.Columns(1).FillWeight = 60 : 聯絡函_未收_dgv.Columns(2).FillWeight = 120
    End Sub
    Private Sub 聯絡函_未收_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 聯絡函_未收_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 待辦進入 = "未收" : Cancel_bt.PerformClick() : 聯絡函部門主管審核_tsm.PerformClick() : 待辦進入 = "" : End If
    End Sub
    Private Sub Set_部門聯絡函_未審()
        Dim ds16 As New DataSet : 聯絡函_未審_dgv.DataSource = Nothing : ds16.Clear() : 聯絡函_未審_dgv.AllowUserToAddRows = False
        SQL_未審_聯絡函() : da.Fill(ds16) : 聯絡函_未審_dgv.DataSource = ds16.Tables(0) : conn.Close()
        聯絡函_未審_dgv.Columns(0).FillWeight = 50 : 聯絡函_未審_dgv.Columns(1).FillWeight = 60 : 聯絡函_未審_dgv.Columns(2).FillWeight = 120
    End Sub
    Private Sub 聯絡函_未審_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 聯絡函_未審_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 待辦進入 = "未審" : Cancel_bt.PerformClick() : 聯絡函部門主管審核_tsm.PerformClick() : 待辦進入 = "" : End If
    End Sub
    Private Sub Set_請購單()
        Dim ds16 As New DataSet : 請購單_dgv.DataSource = Nothing : ds16.Clear() : 請購單_dgv.AllowUserToAddRows = False
        SQL_請購單申請未核准單數() : da.Fill(ds16) : 請購單_dgv.DataSource = ds16.Tables(0) : conn.Close()
        請購單_dgv.Columns(0).FillWeight = 70 : 請購單_dgv.Columns(1).FillWeight = 45 : 請購單_dgv.Columns(2).FillWeight = 60
        請購單_dgv.Columns(3).FillWeight = 120 : 請購單_dgv.Columns(4).FillWeight = 120
        If 系統語言 = "繁體中文" Then : 請購單_dgv.Columns(3).Visible = True : 請購單_dgv.Columns(4).Visible = False
        Else : 請購單_dgv.Columns(3).Visible = False : 請購單_dgv.Columns(4).Visible = True : End If
    End Sub
    Private Sub 請購單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 請購單_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            待辦進入 = 請購單_dgv.Rows(e.RowIndex).Cells("NO.").Value.ToString : Cancel_bt.PerformClick() : 請購單核準_tsm.PerformClick()
        End If
    End Sub
    Private Sub Set_詢價單1()
        Dim ds16 As New DataSet : 詢價單_dgv.DataSource = Nothing : ds16.Clear() : 詢價單_dgv.AllowUserToAddRows = False
        SQL_採購單單數() : da.Fill(ds16) : 詢價單_dgv.DataSource = ds16.Tables(0) : conn.Close()
        詢價單_dgv.Columns(0).FillWeight = 70 : 詢價單_dgv.Columns(1).FillWeight = 45 : 詢價單_dgv.Columns(2).FillWeight = 60
        詢價單_dgv.Columns(3).FillWeight = 120 : 詢價單_dgv.Columns(4).FillWeight = 120
        If 系統語言 = "繁體中文" Then : 詢價單_dgv.Columns(3).Visible = True : 詢價單_dgv.Columns(4).Visible = False
        Else : 詢價單_dgv.Columns(3).Visible = False : 詢價單_dgv.Columns(4).Visible = True : End If
    End Sub
    Private Sub 詢價單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 詢價單_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            待辦進入 = 詢價單_dgv.Rows(e.RowIndex).Cells("NO.").Value.ToString : Cancel_bt.PerformClick() : 採購單詢價_tsm.PerformClick()
        End If
    End Sub
    Private Sub Set_採購核准11()
        Dim ds16 As New DataSet : 採購核准11_dgv.DataSource = Nothing : ds16.Clear() : 採購核准11_dgv.AllowUserToAddRows = False
        SQL_採購核准11() : da.Fill(ds16) : 採購核准11_dgv.DataSource = ds16.Tables(0) : conn.Close()
        採購核准11_dgv.Columns(0).FillWeight = 80 : 採購核准11_dgv.Columns(1).FillWeight = 45 : 採購核准11_dgv.Columns(2).FillWeight = 100
    End Sub
    Private Sub 採購核准11_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 採購核准11_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            待辦進入 = 採購核准11_dgv.Rows(e.RowIndex).Cells("NO.").Value.ToString : Cancel_bt.PerformClick() : 採購單一級核准_tsm.PerformClick()
        End If
    End Sub
    Private Sub Set_採購核准12()
        Dim ds16 As New DataSet : 採購核准12_dgv.DataSource = Nothing : ds16.Clear() : 採購核准12_dgv.AllowUserToAddRows = False
        SQL_採購核准12() : da.Fill(ds16) : 採購核准12_dgv.DataSource = ds16.Tables(0) : conn.Close()
        採購核准12_dgv.Columns(0).FillWeight = 80 : 採購核准12_dgv.Columns(1).FillWeight = 45 : 採購核准12_dgv.Columns(2).FillWeight = 100
    End Sub
    Private Sub 採購核准12_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 採購核准12_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            待辦進入 = 採購核准12_dgv.Rows(e.RowIndex).Cells("NO.").Value.ToString : Cancel_bt.PerformClick() : 採購單二級核准_tsm.PerformClick()
        End If
    End Sub
    Private Sub Set_財務支付單未核准()
        Dim ds17 As New DataSet : 支付單未准_dgv.DataSource = Nothing : ds17.Clear() : 支付單未准_dgv.AllowUserToAddRows = False
        SQL_財務支付單未核准() : da.Fill(ds17) : 支付單未准_dgv.DataSource = ds17.Tables(0) : conn.Close()
        支付單未准_dgv.Columns(0).FillWeight = 80 : 支付單未准_dgv.Columns(1).FillWeight = 45 : 支付單未准_dgv.Columns(2).FillWeight = 100
        For i As Integer = 3 To 支付單未准_dgv.Columns.Count - 1
            支付單未准_dgv.Columns(i).Visible = False
        Next
    End Sub
    Private Sub 財務支付單未核准_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 支付單未准_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            待辦進入 = 支付單未准_dgv.Rows(e.RowIndex).Cells("流水號").Value.ToString : 待辦進入1 = 支付單未准_dgv.Rows(e.RowIndex).Cells("支付日期").Value.ToString
            Cancel_bt.PerformClick() : 財務支付_主管審核_tsm.PerformClick()
        End If
    End Sub
    Private Sub Set_供應商資料_未審核()
        Dim ds18 As New DataSet : 銀行資料修改_dgv.DataSource = Nothing : ds18.Clear() : 銀行資料修改_dgv.AllowUserToAddRows = False
        SQL_供應商資料未審核() : da.Fill(ds18) : 銀行資料修改_dgv.DataSource = ds18.Tables(0) : conn.Close()
        銀行資料修改_dgv.Columns(0).FillWeight = 100 : 銀行資料修改_dgv.Columns(1).FillWeight = 150
        For i As Integer = 2 To 銀行資料修改_dgv.Columns.Count - 1
            銀行資料修改_dgv.Columns(i).Visible = False
        Next
    End Sub
    Private Sub 載入車輛清單()
        Dim ds1 As New DataSet
        車輛動態_dgv.DataSource = Nothing : ds1.Clear()
        車輛動態_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        車輛動態_dgv.ColumnHeadersHeight = 40 : 車輛動態_dgv.AllowUserToAddRows = False : 車輛動態_dgv.RowTemplate.Height = 25
        SQL_車輛動態_清單()
        da.Fill(ds1) : 車輛動態_dgv.DataSource = ds1.Tables(0) : conn.Close()
        '車牌號碼 狀態 借車時間 還車時間 申請人 196 197 198 199 200
        車輛動態_dgv.Columns("車輛編號").Visible = False
        車輛動態_dgv.Columns(表頭(196)).FillWeight = 80 : 車輛動態_dgv.Columns("車輛品牌").Visible = False : 車輛動態_dgv.Columns(表頭(197)).FillWeight = 80
        車輛動態_dgv.Columns("外出地點").Visible = False : 車輛動態_dgv.Columns(表頭(198)).FillWeight = 90 : 車輛動態_dgv.Columns(表頭(199)).FillWeight = 90
        車輛動態_dgv.Columns(表頭(200)).FillWeight = 70

        車輛動態_dgv.Columns(表頭(196)).ReadOnly = True : 車輛動態_dgv.Columns(表頭(197)).ReadOnly = True : 車輛動態_dgv.Columns(表頭(198)).ReadOnly = True
        車輛動態_dgv.Columns(表頭(199)).ReadOnly = True : 車輛動態_dgv.Columns(表頭(200)).ReadOnly = True

        For i As Integer = 0 To 車輛動態_dgv.Rows.Count - 1
            If 系統語言 = "繁體中文" Then : 車輛動態_dgv.Rows(i).Cells(表頭(197)).Value = "在公司"
            Else : 車輛動態_dgv.Rows(i).Cells(表頭(197)).Value = "Di perusahaan"
            End If
            車輛動態_dgv.Rows(i).Cells("外出地點").Value = "" : 車輛動態_dgv.Rows(i).Cells(表頭(198)).Value = ""
            車輛動態_dgv.Rows(i).Cells(表頭(199)).Value = "" : 車輛動態_dgv.Rows(i).Cells(表頭(200)).Value = ""
        Next
    End Sub
    Private Sub 載入車輛動態清單()
        Dim ds1 As New DataSet
        車輛外出明細清單_dgv.DataSource = Nothing : ds1.Clear()
        車輛外出明細清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        車輛外出明細清單_dgv.ColumnHeadersHeight = 35 : 車輛外出明細清單_dgv.AllowUserToAddRows = False : 車輛外出明細清單_dgv.RowTemplate.Height = 45
        Dim 現在時間 As DateTime = DateTime.Now : Dim 現主時 As String = 現在時間.ToString("yyyyMMddHHmmss")
        SQL_車輛明細_清單(現主時)
        da.Fill(ds1) : 車輛外出明細清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        '車牌號碼 狀態 借車時間 還車時間 申請人 196 197 198 199 200
        For i As Integer = 0 To 車輛外出明細清單_dgv.Rows.Count - 1
            For j As Integer = 0 To 車輛動態_dgv.Rows.Count - 1
                If 車輛外出明細清單_dgv.Rows(i).Cells("車輛編號").Value.ToString = 車輛動態_dgv.Rows(j).Cells("車輛編號").Value.ToString Then
                    If 車輛動態_dgv.Rows(j).Cells(表頭(197)).Value.ToString = "在公司" Or 車輛動態_dgv.Rows(j).Cells(表頭(197)).Value.ToString = "Di perusahaan" Then
                        If 系統語言 = "繁體中文" Then
                            車輛動態_dgv.Rows(j).Cells(表頭(197)).Value = "外出"
                        Else
                            車輛動態_dgv.Rows(j).Cells(表頭(197)).Value = "Keluar"
                        End If
                        車輛動態_dgv.Rows(j).Cells("外出地點").Value = 車輛外出明細清單_dgv.Rows(i).Cells("外出地點").Value.ToString
                        Dim 借車時間 As String = 車輛外出明細清單_dgv.Rows(i).Cells("借車時間").Value.ToString : Dim 格式 As String = "yyyyMMddHHmmss"
                        Dim 轉換後的時間 As DateTime = DateTime.ParseExact(借車時間, 格式, CultureInfo.InvariantCulture)
                        車輛動態_dgv.Rows(j).Cells(表頭(198)).Value = Strings.Format(轉換後的時間, "HH:mm:ss")
                        Dim 還車時間 As String = 車輛外出明細清單_dgv.Rows(i).Cells("還車時間").Value.ToString
                        轉換後的時間 = DateTime.ParseExact(還車時間, 格式, CultureInfo.InvariantCulture)
                        車輛動態_dgv.Rows(j).Cells(表頭(199)).Value = Strings.Format(轉換後的時間, "HH:mm:ss")
                        車輛動態_dgv.Rows(j).Cells(表頭(200)).Value = 車輛外出明細清單_dgv.Rows(i).Cells("申請人").Value.ToString
                        Exit For
                    End If
                End If
            Next
        Next
    End Sub
    Private Sub 載入人員清單()
        Dim ds1 As New DataSet
        人員動態_dgv.DataSource = Nothing : ds1.Clear()
        人員動態_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        人員動態_dgv.ColumnHeadersHeight = 40 : 人員動態_dgv.AllowUserToAddRows = False : 人員動態_dgv.RowTemplate.Height = 25
        SQL_人員動態_清單()

        da.Fill(ds1) : 人員動態_dgv.DataSource = ds1.Tables(0) : conn.Close()
        人員動態_dgv.Columns(表頭(191)).Visible = False : 人員動態_dgv.Columns(0).FillWeight = 150

        人員動態_dgv.Columns(表頭(192)).ReadOnly = True : 人員動態_dgv.Columns(表頭(190)).ReadOnly = True : 人員動態_dgv.Columns(表頭(193)).ReadOnly = True
        人員動態_dgv.Columns(表頭(194)).ReadOnly = True : 人員動態_dgv.Columns(表頭(195)).ReadOnly = True

        For i As Integer = 0 To 人員動態_dgv.Rows.Count - 1
            人員動態_dgv.Rows(i).Cells(表頭(193)).Value = "" : 人員動態_dgv.Rows(i).Cells(表頭(194)).Value = ""
            If 系統語言 = "繁體中文" Then : 人員動態_dgv.Rows(i).Cells(表頭(192)).Value = "在公司"
            Else : 人員動態_dgv.Rows(i).Cells(表頭(192)).Value = "Di perusahaan"
            End If
            人員動態_dgv.Rows(i).Cells(表頭(195)).Value = ""
        Next
    End Sub
    Private Sub 載入人員動態清單()
        Dim ds1 As New DataSet
        人員外出明細清單_dgv.DataSource = Nothing : ds1.Clear()
        人員外出明細清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        人員外出明細清單_dgv.ColumnHeadersHeight = 35 : 人員外出明細清單_dgv.AllowUserToAddRows = False : 人員外出明細清單_dgv.RowTemplate.Height = 45
        Dim 現在時間 As DateTime = DateTime.Now : Dim 現主時 As String = 現在時間.ToString("yyyyMMddHHmmss")
        '姓名 AS [姓名.], 帳號 AS [帳號.] , 帳號 AS [動態]  , 帳號 AS [開始時間] , 帳號 AS [結束時間], 帳號 AS [外出地點] 190 191 192 193 194 195
        SQL_人員明細_清單(現主時)
        da.Fill(ds1) : 人員外出明細清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        For i As Integer = 0 To 人員外出明細清單_dgv.Rows.Count - 1
            If 人員外出明細清單_dgv.Rows(i).Cells("第一").Value.ToString <> "" And 人員外出明細清單_dgv.Rows(i).Cells("外出地點").Value.ToString = "" Then
                人員外出明細清單_dgv.Rows(i).Cells("外出地點").Value = "在公司" : 人員外出明細清單_dgv.Rows(i).Cells("人員狀態").Value = "上班中"
            End If
            For j As Integer = 0 To 人員動態_dgv.Rows.Count - 1
                If 人員外出明細清單_dgv.Rows(i).Cells("帳號").Value.ToString = 人員動態_dgv.Rows(j).Cells(表頭(191)).Value.ToString Then
                    If 人員動態_dgv.Rows(j).Cells(表頭(192)).Value.ToString = "在公司" Or 人員動態_dgv.Rows(j).Cells(表頭(192)).Value.ToString = "Di perusahaan" Then
                        If 系統語言 = "繁體中文" Then
                            人員動態_dgv.Rows(j).Cells(表頭(192)).Value = 人員外出明細清單_dgv.Rows(i).Cells("人員狀態").Value.ToString
                        Else
                            If 人員外出明細清單_dgv.Rows(i).Cells("人員狀態").Value.ToString = "請假" Then : 人員動態_dgv.Rows(j).Cells(表頭(192)).Value = "Cuti"
                            ElseIf 人員外出明細清單_dgv.Rows(i).Cells("人員狀態").Value.ToString = "外出" Then : 人員動態_dgv.Rows(j).Cells(表頭(192)).Value = "Keluar"
                            ElseIf 人員外出明細清單_dgv.Rows(i).Cells("人員狀態").Value.ToString = "上班中" Then : 人員動態_dgv.Rows(j).Cells(表頭(192)).Value = "Working" : End If
                        End If
                        If 系統語言 = "繁體中文" Then : 人員動態_dgv.Rows(j).Cells(表頭(195)).Value = 人員外出明細清單_dgv.Rows(i).Cells("外出地點").Value.ToString
                        Else : If 人員外出明細清單_dgv.Rows(i).Cells("外出地點").Value.ToString = "在公司" Then : 人員動態_dgv.Rows(j).Cells(表頭(195)).Value = "IN HX" : End If
                        End If

                        If 人員外出明細清單_dgv.Rows(i).Cells("人員狀態").Value.ToString = "外出" Then
                            Dim 開始時間 As String = 人員外出明細清單_dgv.Rows(i).Cells("開始時間").Value.ToString : Dim 格式 As String = "yyyyMMddHHmmss"
                            Dim 轉換後的時間 As DateTime = DateTime.ParseExact(開始時間, 格式, CultureInfo.InvariantCulture)
                            人員動態_dgv.Rows(j).Cells(表頭(193)).Value = Strings.Format(轉換後的時間, "HH:mm:ss")
                            Dim 結束時間 As String = 人員外出明細清單_dgv.Rows(i).Cells("結束時間").Value.ToString
                            轉換後的時間 = DateTime.ParseExact(結束時間, 格式, CultureInfo.InvariantCulture)
                            人員動態_dgv.Rows(j).Cells(表頭(194)).Value = Strings.Format(轉換後的時間, "HH:mm:ss")
                        ElseIf 人員外出明細清單_dgv.Rows(i).Cells("人員狀態").Value.ToString = "上班中" Then
                            人員動態_dgv.Rows(j).Cells(表頭(193)).Value = 人員外出明細清單_dgv.Rows(i).Cells("第一").Value.ToString
                            If 人員外出明細清單_dgv.Rows(i).Cells("第六").Value.ToString <> "" Then
                                人員動態_dgv.Rows(j).Cells(表頭(194)).Value = 人員外出明細清單_dgv.Rows(i).Cells("第六").Value.ToString
                            ElseIf 人員外出明細清單_dgv.Rows(i).Cells("第五").Value.ToString <> "" Then
                                人員動態_dgv.Rows(j).Cells(表頭(194)).Value = 人員外出明細清單_dgv.Rows(i).Cells("第五").Value.ToString
                            ElseIf 人員外出明細清單_dgv.Rows(i).Cells("第四").Value.ToString <> "" Then
                                人員動態_dgv.Rows(j).Cells(表頭(194)).Value = 人員外出明細清單_dgv.Rows(i).Cells("第四").Value.ToString
                            ElseIf 人員外出明細清單_dgv.Rows(i).Cells("第三").Value.ToString <> "" Then
                                人員動態_dgv.Rows(j).Cells(表頭(194)).Value = 人員外出明細清單_dgv.Rows(i).Cells("第三").Value.ToString
                            ElseIf 人員外出明細清單_dgv.Rows(i).Cells("第二").Value.ToString <> "" Then
                                人員動態_dgv.Rows(j).Cells(表頭(194)).Value = 人員外出明細清單_dgv.Rows(i).Cells("第二").Value.ToString
                            End If
                        End If
                        If 人員動態_dgv.Rows(j).Cells(表頭(194)).Value.ToString <> "" Then
                            If 人員動態_dgv.Rows(j).Cells(表頭(192)).Value.ToString = "上班中" Or 人員動態_dgv.Rows(j).Cells(表頭(192)).Value.ToString = "Working" Then
                                If 系統語言 = "繁體中文" Then
                                    人員動態_dgv.Rows(j).Cells(表頭(192)).Value = "已下班"
                                Else
                                    人員動態_dgv.Rows(j).Cells(表頭(192)).Value = "Pulang"
                                End If : 人員動態_dgv.Rows(j).Cells(表頭(195)).Value = ""
                            End If
                        End If
                    End If
                End If
            Next
        Next
        For k As Integer = 人員動態_dgv.Rows.Count - 1 To 0 Step -1
            If 人員動態_dgv.Rows(k).Cells(表頭(192)).Value.ToString = "在公司" Or 人員動態_dgv.Rows(k).Cells(表頭(192)).Value.ToString = "Di perusahaan" Then
                人員動態_dgv.Rows.RemoveAt(k)
            End If
        Next
    End Sub
    Private Sub Set_人員合約到期()
        Dim ds16 As New DataSet
        員工合約_dgv.DataSource = Nothing : ds16.Clear() : 員工合約_dgv.AllowUserToAddRows = False
        SQL_員工合約() : da.Fill(ds16) : 員工合約_dgv.DataSource = ds16.Tables(0) : conn.Close()
        員工合約_dgv.Columns(0).FillWeight = 150 : 員工合約_dgv.Columns(1).FillWeight = 150 : 員工合約_dgv.Columns(2).FillWeight = 80
    End Sub
    Private Sub Set_公告清單()
        Dim ds16 As New DataSet
        公告_dgv.DataSource = Nothing : ds16.Clear() : 公告_dgv.AllowUserToAddRows = False
        SQL_公告清單01() : da.Fill(ds16) : 公告_dgv.DataSource = ds16.Tables(0) : conn.Close()
        跑馬燈_tb.Text = ""
        For i As Integer = 0 To 公告_dgv.Rows.Count - 1
            If 系統語言 = "繁體中文" Then
                跑馬燈_tb.Text &= i + 1 & "、" & 公告_dgv.Rows(i).Cells("中文").Value.ToString & "　　　"
            Else
                跑馬燈_tb.Text &= i + 1 & "、" & 公告_dgv.Rows(i).Cells("印尼文").Value.ToString & "　　　"
            End If
        Next
        If 系統語言 = "繁體中文" Then
            If 跑馬燈_tb.Text.Length < 90 Then : 跑馬燈_tb.Text &= StrDup(90 - 跑馬燈_tb.Text.Length, "　") : End If
        Else
            If 跑馬燈_tb.Text.Length < 120 Then : 跑馬燈_tb.Text &= StrDup(120 - 跑馬燈_tb.Text.Length, " ") : End If
        End If
    End Sub
    Private Sub 初始化系統語言()
        If File.Exists(Application.StartupPath + "\LANGUAGE_FILE.csv") Then
            Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Application.StartupPath + "\LANGUAGE_FILE.csv", System.Text.Encoding.Default)
            Dim line As String = filereader.ReadLine()
            While Not (line Is Nothing)
                line = filereader.ReadLine()
                If line <> Nothing Then
                    line = line.Replace("""", "") : Dim separator As String = "-" : Dim result() As String = line.Split(separator)
                    If result.Count > 4 Then
                        Dim key As String = result(0).ToString() & "-" & result(1).ToString() & "-" & result(2).ToString()
                        Dim value As String = result(3).ToString()
                        For i As Integer = 4 To result.Count - 1 : value += "-" & result(i) : Next
                        If value.EndsWith(",") Then : value = value.Substring(0, value.Length - 1) : End If : 系統語言字典.Add(key, value)
                    Else
                        Dim key As String = result(0).ToString() & "-" & result(1).ToString() & "-" & result(2).ToString()
                        Dim value As String = result(3).ToString()
                        If value.EndsWith(",") Then : value = value.Substring(0, value.Length - 1) : End If : 系統語言字典.Add(key, value)
                    End If
                End If
            End While
        End If
    End Sub
    Private Sub 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        '------------------------系統-------------------------------------------------------------------------------------------------------------------------------------------------------
        對話框(0) = 系統語言字典("H001-234-" & 語言) : 對話框(1) = 系統語言字典("H001-235-" & 語言) : 對話框(2) = 系統語言字典("H001-236-" & 語言)
        對話框(3) = 系統語言字典("H001-237-" & 語言) : 對話框(4) = 系統語言字典("H001-238-" & 語言) : 對話框(5) = 系統語言字典("H001-239-" & 語言)
        對話框(6) = 系統語言字典("H001-240-" & 語言) : 對話框(7) = 系統語言字典("H001-241-" & 語言) : 對話框(8) = 系統語言字典("H001-242-" & 語言)
        對話框(9) = 系統語言字典("H001-243-" & 語言) : 對話框(10) = 系統語言字典("H001-244-" & 語言) : 對話框(11) = 系統語言字典("H001-245-" & 語言)
        對話框(12) = 系統語言字典("H001-246-" & 語言) : 對話框(13) = 系統語言字典("H001-247-" & 語言) : 對話框(14) = 系統語言字典("H001-248-" & 語言)
        對話框(15) = 系統語言字典("H001-249-" & 語言) : 對話框(16) = 系統語言字典("H001-250-" & 語言) : 對話框(17) = 系統語言字典("H001-251-" & 語言)
        對話框(18) = 系統語言字典("H001-252-" & 語言) : 對話框(19) = 系統語言字典("H001-253-" & 語言) : 對話框(20) = 系統語言字典("H001-254-" & 語言)
        對話框(21) = 系統語言字典("H001-255-" & 語言) : 對話框(22) = 系統語言字典("H001-256-" & 語言) : 對話框(23) = 系統語言字典("H001-230-" & 語言)
        對話框(24) = 系統語言字典("H001-257-" & 語言) : 對話框(25) = 系統語言字典("H001-258-" & 語言) : 對話框(26) = 系統語言字典("H001-259-" & 語言)
        對話框(27) = 系統語言字典("H904-136-" & 語言) : 對話框(28) = 系統語言字典("H904-138-" & 語言) : 對話框(29) = 系統語言字典("H904-146-" & 語言)
        對話框(30) = 系統語言字典("H001-290-" & 語言) : 對話框(31) = 系統語言字典("H001-292-" & 語言) : 對話框(32) = 系統語言字典("H001-293-" & 語言)
        對話框(33) = 系統語言字典("H001-294-" & 語言) : 對話框(34) = 系統語言字典("H001-295-" & 語言) : 對話框(35) = 系統語言字典("H001-296-" & 語言)
        水平並排_tsm.Text = 系統語言字典("H001-117-" & 語言) : 執行進度_tss.Text = 系統語言字典("H001-188-" & 語言) : 全部關閉_tsm.Text = 系統語言字典("H001-118-" & 語言)
        垂直並排_tsm.Text = 系統語言字典("H001-164-" & 語言) : 重疊顯示_tsm.Text = 系統語言字典("H001-177-" & 語言) : 排列圖示_tsm.Text = 系統語言字典("H001-191-" & 語言)
        結束_tsm.Text = 系統語言字典("H001-197-" & 語言) : 著作權_tss.Text = 系統語言字典("H001-198-" & 語言) : 視窗_tsm.Text = 系統語言字典("H001-199-" & 語言)
        開新視窗_tsm.Text = 系統語言字典("H001-200-" & 語言) : 檔案_tsm.Text = 系統語言字典("H001-217-" & 語言)
        個人帳號管理_tsm.Text = 系統語言字典("H001-178-" & 語言) : 新版_ch.Text = 系統語言字典("G000-260-" & 語言) : 舊版_ch.Text = 系統語言字典("G000-261-" & 語言)
        低網速模式_ch.Text = 系統語言字典("G000-107-" & 語言) : sysnud = 系統語言字典("G000-102-" & 語言) : 深色風格_ch.Text = 系統語言字典("G000-106-" & 語言)
        '-----------------------------------------------------------------------------------------------------------------------------
        '車牌號碼 狀態 借車時間 還車時間 申請人
        '196 197 198 199 200
        表頭(190) = 系統語言字典("H601-105-" & 語言) : 表頭(191) = 系統語言字典("H601-106-" & 語言) : 表頭(192) = 系統語言字典("H001-279-" & 語言)
        表頭(193) = 系統語言字典("H001-280-" & 語言) : 表頭(194) = 系統語言字典("H001-281-" & 語言) : 表頭(195) = 系統語言字典("H001-282-" & 語言)
        表頭(196) = 系統語言字典("H508-119-" & 語言) : 表頭(197) = 系統語言字典("H501-112-" & 語言) : 表頭(198) = 系統語言字典("H001-283-" & 語言)
        表頭(199) = 系統語言字典("H001-284-" & 語言) : 表頭(200) = 系統語言字典("H204-107-" & 語言)
        '------------------------章程管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        總務系統管理_tsm.Text = 系統語言字典("H001-231-" & 語言)
        文件伺服器_tsm.Text = 系統語言字典("H001-116-" & 語言) : 文件伺服器_lb.Text = 系統語言字典("H001-116-" & 語言)
        系統使用說明_tsm.Text = 系統語言字典("H001-147-" & 語言) : 系統使用說明_lb.Text = 系統語言字典("H001-147-" & 語言)
        管徑流速流量計算器_tsm.Text = 系統語言字典("H001-273-" & 語言) : 安培容量計算表_tsm.Text = 系統語言字典("H001-134-" & 語言)
        部門聯絡函一覽表_tsm.Text = 系統語言字典("H001-193-" & 語言) : 部門聯絡函一覽表_lb.Text = 系統語言字典("H001-193-" & 語言)
        部門聯絡函申請_tsm.Text = 系統語言字典("H001-194-" & 語言) : 部門聯絡函申請_lb.Text = 系統語言字典("H001-194-" & 語言)
        會議記錄_tsm.Text = 系統語言字典("H001-203-" & 語言) : 會議記錄_lb.Text = 系統語言字典("H001-203-" & 語言)
        聯絡函部門主管審核_tsm.Text = 系統語言字典("H001-228-" & 語言) : 聯絡函部門主管審核_lb.Text = 系統語言字典("H001-228-" & 語言)
        聯絡函最高主管核准_tsm.Text = 系統語言字典("H001-229-" & 語言) : 聯絡函最高主管核准_lb.Text = 系統語言字典("H001-229-" & 語言)
        公告管理_tsm.Text = 系統語言字典("H001-196-" & 語言) : 公告管理_lb.Text = 系統語言字典("H001-196-" & 語言)
        投訴信箱_tsm.Text = 系統語言字典("H000-125-" & 語言) : 投訴信箱_lb.Text = 系統語言字典("H000-125-" & 語言)
        車輛管理_tsm.Text = 系統語言字典("H001-278-" & 語言) : 車輛管理_lb.Text = 系統語言字典("H001-278-" & 語言)
        '------------------------業務管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        業務系統管理_tsm.Text = 系統語言字典("H001-204-" & 語言) : 合約模組設定_tsm.Text = 系統語言字典("H001-129-" & 語言)
        合約結案控制表_tsm.Text = 系統語言字典("H001-126-" & 語言) : 合約結案控制表1_tsm.Text = 系統語言字典("H001-126-" & 語言)
        合約結案控制表_lb.Text = 系統語言字典("H001-126-" & 語言) : 合約結案控制表1_lb.Text = 系統語言字典("H001-126-" & 語言)
        合約驗收控制表_tsm.Text = 系統語言字典("H001-132-" & 語言) : 合約驗收控制表1_lb.Text = 系統語言字典("H001-132-" & 語言)
        合約驗收控制表1_tsm.Text = 系統語言字典("H001-132-" & 語言) : 合約驗收控制表_lb.Text = 系統語言字典("H001-132-" & 語言)
        合約驗收單_tsm.Text = 系統語言字典("H001-133-" & 語言) : 合約驗收單1_lb.Text = 系統語言字典("H001-133-" & 語言)
        合約驗收單1_tsm.Text = 系統語言字典("H001-133-" & 語言) : 合約驗收單_lb.Text = 系統語言字典("H001-133-" & 語言)
        合約文件簽回存檔_tsm.Text = 系統語言字典("H001-119-" & 語言) : 合約文件簽回存檔_lb.Text = 系統語言字典("H001-119-" & 語言)
        合約文件簽核控制表_tsm.Text = 系統語言字典("H001-120-" & 語言) : 合約文件簽核控制表_lb.Text = 系統語言字典("H001-120-" & 語言)
        工程項目BOM表_tsm.Text = 系統語言字典("H001-109-" & 語言) : 工程項目BOM表_lb.Text = 系統語言字典("H001-109-" & 語言)
        合約利潤預估表_tsm.Text = 系統語言字典("H001-121-" & 語言) : 合約利潤預估表_lb.Text = 系統語言字典("H001-121-" & 語言)
        合約保固書_tsm.Text = 系統語言字典("H001-122-" & 語言) : 合約保固書_lb.Text = 系統語言字典("H001-122-" & 語言)
        合約執行進度_tsm.Text = 系統語言字典("H001-123-" & 語言) : 合約執行進度_lb.Text = 系統語言字典("H001-123-" & 語言)
        合約報價單_tsm.Text = 系統語言字典("H001-124-" & 語言) : 合約報價單_lb.Text = 系統語言字典("H001-124-" & 語言)
        合約報價單審核_tsm.Text = 系統語言字典("H001-125-" & 語言) : 合約報價單審核_lb.Text = 系統語言字典("H001-125-" & 語言)
        合約工程圖庫管理_tsm.Text = 系統語言字典("H001-127-" & 語言) : 合約工程圖庫管理_lb.Text = 系統語言字典("H001-127-" & 語言)
        合約本文_tsm.Text = 系統語言字典("H001-128-" & 語言) : 合約本文_lb.Text = 系統語言字典("H001-128-" & 語言)
        合約請款控制表_tsm.Text = 系統語言字典("H001-130-" & 語言) : 合約請款控制表_lb.Text = 系統語言字典("H001-130-" & 語言)
        合約請款單_tsm.Text = 系統語言字典("H001-131-" & 語言) : 合約請款單_lb.Text = 系統語言字典("H001-131-" & 語言)
        附錄合約_tsm.Text = 系統語言字典("H001-163-" & 語言) : 附錄合約_lb.Text = 系統語言字典("H001-163-" & 語言)
        客戶資料表_tsm.Text = 系統語言字典("H001-165-" & 語言) : 客戶資料表_lb.Text = 系統語言字典("H001-165-" & 語言)
        '------------------------採購管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        採購系統管理_tsm.Text = 系統語言字典("H001-189-" & 語言) : 樣品供應商管理_tsm.Text = 系統語言字典("H001-135-" & 語言)
        採購驗收對帳表_tsm.Text = 系統語言字典("H001-172-" & 語言)
        採購驗收對帳表_lb.Text = 系統語言字典("H001-172-" & 語言) ': 樣品採購驗收對帳表_tsm.Text = 系統語言字典("H001-141-" & 語言)
        樣品來料驗收單_tsm.Text = 系統語言字典("H001-136-" & 語言) : 樣品請購單核准_tsm.Text = 系統語言字典("H001-144-" & 語言)
        樣品採購單一級核准_tsm.Text = 系統語言字典("H001-137-" & 語言) : 樣品採購單一覽表_tsm.Text = 系統語言字典("H001-138-" & 語言)
        樣品採購單二級核准_tsm.Text = 系統語言字典("H001-139-" & 語言) : 樣品採購單生成_tsm.Text = 系統語言字典("H001-140-" & 語言)
        樣品請購單一覽表_tsm.Text = 系統語言字典("H001-142-" & 語言) : 樣品請購單申請_tsm.Text = 系統語言字典("H001-143-" & 語言)

        應付款月報表_tsm.Text = 系統語言字典("H001-172-" & 語言) : 應付款月報表_lb.Text = 系統語言字典("H001-172-" & 語言)
        應付款日報表_tsm.Text = 系統語言字典("H001-141-" & 語言) : 應付款日報表_lb.Text = 系統語言字典("H001-141-" & 語言)
        銀行資料修改審核_tsm.Text = 系統語言字典("H001-298-" & 語言) : 銀行資料修改審核_lb.Text = 系統語言字典("H001-298-" & 語言)
        供應商商品單價設定_tsm.Text = 系統語言字典("H001-157-" & 語言) : 供應商商品單價設定_lb.Text = 系統語言字典("H001-157-" & 語言)
        物料採購統計表_tsm.Text = 系統語言字典("H001-160-" & 語言) : 物料採購統計表_lb.Text = 系統語言字典("H001-160-" & 語言)
        入庫驗收單_tsm.Text = 系統語言字典("H001-166-" & 語言) : 入庫驗收單_lb.Text = 系統語言字典("H001-166-" & 語言)
        供應商管理_tsm.Text = 系統語言字典("H001-167-" & 語言) : 供應商管理_lb.Text = 系統語言字典("H001-167-" & 語言)
        採購單一級核准_tsm.Text = 系統語言字典("H001-168-" & 語言) : 採購單一級核准_lb.Text = 系統語言字典("H001-168-" & 語言)
        採購單一覽表_tsm.Text = 系統語言字典("H001-169-" & 語言) : 採購單一覽表_lb.Text = 系統語言字典("H001-169-" & 語言)
        採購單二級核准_tsm.Text = 系統語言字典("H001-170-" & 語言) : 採購單二級核准_lb.Text = 系統語言字典("H001-170-" & 語言)
        採購單編輯_tsm.Text = 系統語言字典("H001-171-" & 語言) : 採購單編輯_lb.Text = 系統語言字典("H001-171-" & 語言)
        請購一覽表_tsm.Text = 系統語言字典("H001-173-" & 語言) : 請購一覽表_lb.Text = 系統語言字典("H001-173-" & 語言)
        請購單申請_tsm.Text = 系統語言字典("H001-174-" & 語言) : 請購單申請_lb.Text = 系統語言字典("H001-174-" & 語言)
        請購單核準_tsm.Text = 系統語言字典("H001-175-" & 語言) : 請購單核準_lb.Text = 系統語言字典("H001-175-" & 語言)
        採購單詢價_tsm.Text = 系統語言字典("H001-190-" & 語言) : 採購單詢價_lb.Text = 系統語言字典("H001-190-" & 語言)
        電信費追加申請_tsm.Text = 系統語言字典("H001-274-" & 語言) : 電信費追加申請_lb.Text = 系統語言字典("H001-274-" & 語言)
        電信費追加執行_tsm.Text = 系統語言字典("H001-275-" & 語言) : 電信費追加執行_lb.Text = 系統語言字典("H001-275-" & 語言)
        採購轉財務收支單_tsm.Text = 系統語言字典("H001-291-" & 語言) : 採購轉財務收支單_lb.Text = 系統語言字典("H001-291-" & 語言)
        '------------------------工程管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        工程系統管理_tsm.Text = 系統語言字典("H001-106-" & 語言)
        工程分區控制表1_tsm.Text = 系統語言字典("H001-103-" & 語言) : 工程分區控制表_tsm.Text = 系統語言字典("H001-103-" & 語言)
        工程分區控制表1_lb.Text = 系統語言字典("H001-103-" & 語言) : 工程分區控制表_lb.Text = 系統語言字典("H001-103-" & 語言)
        工程日報表編輯_tsm.Text = 系統語言字典("H001-104-" & 語言) : 工程日報表編輯_lb.Text = 系統語言字典("H001-104-" & 語言)
        工程材料表_tsm.Text = 系統語言字典("H001-105-" & 語言) : 工程材料表_lb.Text = 系統語言字典("H001-105-" & 語言)
        工程客變單_tsm.Text = 系統語言字典("H001-107-" & 語言) : 工程客變單_lb.Text = 系統語言字典("H001-107-" & 語言)
        工程進度表_tsm.Text = 系統語言字典("H001-108-" & 語言) : 工程進度表_lb.Text = 系統語言字典("H001-108-" & 語言)
        工程維修單_tsm.Text = 系統語言字典("H001-110-" & 語言) : 工程維修單_lb.Text = 系統語言字典("H001-110-" & 語言)
        派工人數紀錄表_tsm.Text = 系統語言字典("H001-176-" & 語言) : 派工人數紀錄表_lb.Text = 系統語言字典("H001-176-" & 語言)
        '------------------------倉儲管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        倉儲系統管理_tsm.Text = 系統語言字典("H001-180-" & 語言)
        倉儲單據狀態看板_tsm.Text = 系統語言字典("H001-181-" & 語言) : 倉儲單據狀態看板_lb.Text = 系統語言字典("H001-181-" & 語言)
        倉儲領料出庫_tsm.Text = 系統語言字典("H001-185-" & 語言) : 倉儲領料出庫_lb.Text = 系統語言字典("H001-185-" & 語言)
        倉儲領料申請_tsm.Text = 系統語言字典("H001-186-" & 語言) : 倉儲領料申請_lb.Text = 系統語言字典("H001-186-" & 語言) : 倉儲領料申請_bt.Text = 系統語言字典("H001-186-" & 語言)
        倉儲領料審核_tsm.Text = 系統語言字典("H001-187-" & 語言) : 倉儲領料審核_lb.Text = 系統語言字典("H001-187-" & 語言)
        盤盈盤損申請_tsm.Text = 系統語言字典("H001-213-" & 語言) : 盤盈盤損申請_lb.Text = 系統語言字典("H001-213-" & 語言)
        物料退庫_tsm.Text = 系統語言字典("H001-159-" & 語言) : 物料退庫_lb.Text = 系統語言字典("H001-159-" & 語言)
        物料資料編輯_tsm.Text = 系統語言字典("H000-126-" & 語言) : 物料資料編輯_lb.Text = 系統語言字典("H000-126-" & 語言)
        物料資料庫_tsm.Text = 系統語言字典("H001-161-" & 語言) : 物料資料庫_lb.Text = 系統語言字典("H001-161-" & 語言)
        倉儲分區控制表_tsm.Text = 系統語言字典("H001-179-" & 語言) : 倉儲分區控制表_lb.Text = 系統語言字典("H001-179-" & 語言)
        盤盈盤損審核_tsm.Text = 系統語言字典("H001-214-" & 語言) : 盤盈盤損審核_lb.Text = 系統語言字典("H001-214-" & 語言)
        倉儲入庫驗收_tsm.Text = 系統語言字典("H001-223-" & 語言) : 倉儲入庫驗收_lb.Text = 系統語言字典("H001-223-" & 語言)
        物料轉倉申請_tsm.Text = 系統語言字典("H001-224-" & 語言) : 物料轉倉申請_lb.Text = 系統語言字典("H001-224-" & 語言)
        物料轉倉出庫_tsm.Text = 系統語言字典("H001-225-" & 語言) : 物料轉倉出庫_lb.Text = 系統語言字典("H001-225-" & 語言)
        物料轉倉審核_tsm.Text = 系統語言字典("H001-226-" & 語言) : 物料轉倉審核_lb.Text = 系統語言字典("H001-226-" & 語言)
        倉儲控制表_tsm.Text = 系統語言字典("H001-227-" & 語言) : 倉儲控制表_lb.Text = 系統語言字典("H001-227-" & 語言)
        '------------------------財務管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        財務系統管理_tsm.Text = 系統語言字典("H001-182-" & 語言) : 應收帳款控制表_tsm.Text = 系統語言字典("H001-216-" & 語言)
        現金流量表_tsm.Text = 系統語言字典("H001-192-" & 語言)
        資產負載表_tsm.Text = 系統語言字典("H001-206-" & 語言) : 權益變動表_tsm.Text = 系統語言字典("H001-233-" & 語言)
        綜合損益表_tsm.Text = 系統語言字典("H001-212-" & 語言) : 應付賬款控制表_tsm.Text = 系統語言字典("H001-215-" & 語言)
        匯率管理_tsm.Text = 系統語言字典("H001-201-" & 語言) : 匯率管理_lb.Text = 系統語言字典("H001-201-" & 語言)
        財務決算表_tsm.Text = 系統語言字典("H001-218-" & 語言) : 財務決算表_lb.Text = 系統語言字典("H001-218-" & 語言)
        財務支付審核_tsm.Text = 系統語言字典("H001-114-" & 語言) : 財務支付審核_lb.Text = 系統語言字典("H001-114-" & 語言)
        財務支付申請_tsm.Text = 系統語言字典("H001-112-" & 語言) : 財務支付申請_lb.Text = 系統語言字典("H001-112-" & 語言)
        財務支付_主管審核_tsm.Text = 系統語言字典("H001-297-" & 語言) : 財務支付_主管審核_lb.Text = 系統語言字典("H001-297-" & 語言)
        採購付款狀態報表_tsm.Text = 系統語言字典("H001-115-" & 語言) : 採購付款狀態報表_lb.Text = 系統語言字典("H001-115-" & 語言)
        採購付款確認表_tsm.Text = 系統語言字典("H001-113-" & 語言) : 採購付款確認表_lb.Text = 系統語言字典("H001-113-" & 語言)
        收款狀態報表_tsm.Text = 系統語言字典("H001-209-" & 語言) : 收款狀態報表_lb.Text = 系統語言字典("H001-209-" & 語言)
        主管指定沖銷_tsm.Text = 系統語言字典("H001-210-" & 語言) : 主管指定沖銷_lb.Text = 系統語言字典("H001-210-" & 語言)
        會計帳務沖銷_tsm.Text = 系統語言字典("H001-208-" & 語言) : 會計帳務沖銷_lb.Text = 系統語言字典("H001-208-" & 語言)
        特支費申請_tsm.Text = 系統語言字典("H001-207-" & 語言) : 特支費申請_lb.Text = 系統語言字典("H001-207-" & 語言)
        特支費審核_tsm.Text = 系統語言字典("H001-276-" & 語言) : 特支費審核_lb.Text = 系統語言字典("H001-276-" & 語言)
        營運收支單一覽表_tsm.Text = 系統語言字典("H001-219-" & 語言) : 營運收支單一覽表_lb.Text = 系統語言字典("H001-219-" & 語言)
        會計科目管理_tsm.Text = 系統語言字典("H001-202-" & 語言) : 會計科目管理_lb.Text = 系統語言字典("H001-202-" & 語言)
        營運收支單申請_tsm.Text = 系統語言字典("H001-220-" & 語言) : 營運收支單申請_lb.Text = 系統語言字典("H001-220-" & 語言)
        營運收支單審核_tsm.Text = 系統語言字典("H001-222-" & 語言) : 營運收支單審核_lb.Text = 系統語言字典("H001-222-" & 語言)
        收款確認表_tsm.Text = 系統語言字典("H001-211-" & 語言) : 收款確認表_lb.Text = 系統語言字典("H001-211-" & 語言)
        '------------------------人事管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        人事系統管理_tsm.Text = 系統語言字典("H001-101-" & 語言) : LINE使用者管理表_tsm.Text = 系統語言字典("H001-158-" & 語言)
        LINE通知測試表_tsm.Text = 系統語言字典("H001-162-" & 語言) : LINE權限一覽表_tsm.Text = 系統語言字典("H001-183-" & 語言)
        行事曆請假_tsm.Text = 系統語言字典("H001-277-" & 語言) : 行事曆請假_lb.Text = 系統語言字典("H001-277-" & 語言)
        系統使用者管理1_tsm.Text = 系統語言字典("H001-146-" & 語言) : 系統使用者管理_lb.Text = 系統語言字典("H001-146-" & 語言)
        人員ID卡系統配置設定_tsm.Text = 系統語言字典("H001-102-" & 語言) : 人員ID卡系統配置設定_lb.Text = 系統語言字典("H001-102-" & 語言)
        公司組織結構_tsm.Text = 系統語言字典("H001-111-" & 語言) : 組織結構_權限設定_tsm.Text = 系統語言字典("H001-151-" & 語言)
        人員基本資料_tsm.Text = 系統語言字典("H001-269-" & 語言) : 人員基本資料_lb.Text = 系統語言字典("H001-269-" & 語言)
        考勤明細表_tsm.Text = 系統語言字典("H001-270-" & 語言) : 考勤明細表_lb.Text = 系統語言字典("H001-270-" & 語言)
        臨時工卡片管理_tsm.Text = 系統語言字典("H001-271-" & 語言) : 臨時工卡片管理_lb.Text = 系統語言字典("H001-271-" & 語言)
        人員薪資_tsm.Text = 系統語言字典("H001-272-" & 語言) : 人員薪資_lb.Text = 系統語言字典("H001-272-" & 語言)
        門禁權限設定_tsm.Text = 系統語言字典("H000-122-" & 語言) : 門禁權限設定_lb.Text = 系統語言字典("H000-122-" & 語言)
        請假單_tsm.Text = 系統語言字典("H000-123-" & 語言) : 請假單_lb.Text = 系統語言字典("H000-123-" & 語言)
        請假資料確認_tsm.Text = 系統語言字典("H000-124-" & 語言) : 請假資料確認_lb.Text = 系統語言字典("H000-124-" & 語言)
        '------------------------資料庫管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        資料庫系統管理_tsm.Text = 系統語言字典("H001-205-" & 語言) : FTP資料夾管理_tsm.Text = 系統語言字典("H001-100-" & 語言)
        系統使用者管理_tsm.Text = 系統語言字典("H001-146-" & 語言) : 系統執行檔版本管理_tsm.Text = 系統語言字典("H001-149-" & 語言)
        系統組織架構設定_tsm.Text = 系統語言字典("H001-150-" & 語言) : 系統通用變數管理_tsm.Text = 系統語言字典("H001-152-" & 語言)
        門禁系統設定_tsm.Text = 系統語言字典("H001-153-" & 語言) : 簽名檔管理_tsm.Text = 系統語言字典("H001-232-" & 語言)
        系統對應電腦註冊_tsm.Text = 系統語言字典("H001-154-" & 語言) : 系統編碼規則_tsm.Text = 系統語言字典("H001-155-" & 語言)
        系統權限預設表_tsm.Text = 系統語言字典("H001-156-" & 語言) : 部門權限設定_tsm.Text = 系統語言字典("H001-195-" & 語言)
        開發模板庫_tsm.Text = 系統語言字典("H001-184-" & 語言)
    End Sub
    Public Class MyLocalizationProvider
        Inherits PdfViewerLocalizationProvider
        Public Overrides Function GetLocalizedString(ByVal id As String) As String
            Select Case id
                Case PdfViewerStringId.ContextMenuCopy : If 系統語言 = "繁體中文" Then : Return "&複製" : Else : Return "&Copy" : End If
                Case PdfViewerStringId.ContextMenuSelectAll : If 系統語言 = "繁體中文" Then : Return "&全部選擇" : Else : Return "Select &All" : End If
                Case PdfViewerStringId.ContextMenuDeselectAll : If 系統語言 = "繁體中文" Then : Return "&取消全部選擇" : Else : Return "&Deselect All" : End If
                Case PdfViewerStringId.ContextMenuHand : If 系統語言 = "繁體中文" Then : Return "&按一下可以圍繞文件平移" : Else : Return "&Hand" : End If
                Case PdfViewerStringId.ContextMenuSelection : If 系統語言 = "繁體中文" Then : Return "&文字和影像的選擇工具" : Else : Return "&Selection" : End If
                Case PdfViewerStringId.ContextMenuPreviousPage : If 系統語言 = "繁體中文" Then : Return "&上一頁" : Else : Return "&Previous Page" : End If
                Case PdfViewerStringId.ContextMenuNextPage : If 系統語言 = "繁體中文" Then : Return "&下一頁" : Else : Return "&Next Page" : End If
                Case PdfViewerStringId.ContextMenuPrint : If 系統語言 = "繁體中文" Then : Return "&列印..." : Else : Return "P&rint..." : End If
                Case PdfViewerStringId.ContextMenuFind : If 系統語言 = "繁體中文" Then : Return "&找下一個" : Else : Return "&Find Next" : End If
                Case PdfViewerStringId.NavigatorOpenButton : If 系統語言 = "繁體中文" Then : Return "打開" : Else : Return "Open" : End If
                Case PdfViewerStringId.NavigatorPrintButton : If 系統語言 = "繁體中文" Then : Return "列印" : Else : Return "Print" : End If
                Case PdfViewerStringId.RotateCounterclockwiseButton : If 系統語言 = "繁體中文" Then : Return "逆時鐘旋轉" : Else : Return "Rotate Counterclockwise" : End If
                Case PdfViewerStringId.RotateClockwiseButton : If 系統語言 = "繁體中文" Then : Return "順時鐘旋轉" : Else : Return "Rotate Clockwise" : End If
                Case PdfViewerStringId.NavigatorPreviousPageButton : If 系統語言 = "繁體中文" Then : Return "上一頁" : Else : Return "Previous page" : End If
                Case PdfViewerStringId.NavigatorNextPageButton : If 系統語言 = "繁體中文" Then : Return "下一頁" : Else : Return "Next page" : End If
                Case PdfViewerStringId.NavigatorCurrentPageTextBox : If 系統語言 = "繁體中文" Then : Return "當前頁面" : Else : Return "Current page" : End If
                Case PdfViewerStringId.NavigatorTotalPagesLabel : If 系統語言 = "繁體中文" Then : Return "總頁數" : Else : Return "Total pages" : End If
                Case PdfViewerStringId.NavigatorZoomInButton : If 系統語言 = "繁體中文" Then : Return "放大" : Else : Return "Zoom in" : End If
                Case PdfViewerStringId.NavigatorZoomOutButton : If 系統語言 = "繁體中文" Then : Return "縮小" : Else : Return "Zoom out" : End If
                Case PdfViewerStringId.NavigatorZoomDropDown : If 系統語言 = "繁體中文" Then : Return "縮放下拉" : Else : Return "Zoom drop-down" : End If
                Case PdfViewerStringId.NavigatorHandToolButton : If 系統語言 = "繁體中文" Then : Return "按一下可圍繞文件平移" : Else : Return "Pan" : End If
                Case PdfViewerStringId.NavigatorSelectToolButton : If 系統語言 = "繁體中文" Then : Return "文字和影像的選擇工具" : Else : Return "Selection" : End If
                Case PdfViewerStringId.NavigatorFindNextButton : If 系統語言 = "繁體中文" Then : Return "找下一個" : Else : Return "Find next" : End If
                Case PdfViewerStringId.NavigatorFindPreviousButton : If 系統語言 = "繁體中文" Then : Return "找上一個" : Else : Return "Find previous" : End If
                Case PdfViewerStringId.NavigatorSearchTextBox : If 系統語言 = "繁體中文" Then : Return "尋找" : Else : Return "Search" : End If
                Case PdfViewerStringId.NavigatorNoResultMessage
                    If 系統語言 = "繁體中文" Then : Return "沒有找到符合指定標準的結果。" : Else : Return "No results found according to the specified criteria." : End If
                Case PdfViewerStringId.NavigatorNoResultMessageHeader : If 系統語言 = "繁體中文" Then : Return "更多訊息" : Else : Return "Information" : End If
                Case PdfViewerStringId.NavigatorDefaultStrip : If 系統語言 = "繁體中文" Then : Return "默認設定" : Else : Return "Default strip" : End If
                Case PdfViewerStringId.PrintPreviewGroupBoxPreview : If 系統語言 = "繁體中文" Then : Return "預覽" : Else : Return "Preview" : End If
                Case PdfViewerStringId.PrintPreviewGroupBoxOrientation : If 系統語言 = "繁體中文" Then : Return "方向" : Else : Return "Orientation" : End If
                Case PdfViewerStringId.PrintPreviewGroupBoxSettings : If 系統語言 = "繁體中文" Then : Return "設定" : Else : Return "Settings" : End If
                Case PdfViewerStringId.PrintPreviewButtonPrint : If 系統語言 = "繁體中文" Then : Return "列印" : Else : Return "Print" : End If
                Case PdfViewerStringId.PrintPreviewButtonCancel : If 系統語言 = "繁體中文" Then : Return "取消" : Else : Return "Cancel" : End If
                Case PdfViewerStringId.PrintPreviewButtonWatermark : If 系統語言 = "繁體中文" Then : Return "浮水印" : Else : Return "Watermark" : End If
                Case PdfViewerStringId.PrintPreviewButtonSettings : If 系統語言 = "繁體中文" Then : Return "列印設定" : Else : Return "Print Settings" : End If
                Case PdfViewerStringId.PrintPreviewLabelPageSizeInches : Return "{0:F2} x {1:F2} Inches"
                Case PdfViewerStringId.PrintPreviewLabelPageSizeCm : Return "{0:F2}cm x {1:F2}cm"
                Case PdfViewerStringId.PrintPreviewLabelScale : Return "Scale: {0}%"
                Case PdfViewerStringId.PrintPreviewLabelCurrentPage : Return "Page {0} of {1}"
                Case PdfViewerStringId.PrintPreviewFormTitle : If 系統語言 = "繁體中文" Then : Return "列印預覽" : Else : Return "Print Preview" : End If
                Case PdfViewerStringId.PrintPreviewPrintError : If 系統語言 = "繁體中文" Then : Return "列印文檔時出錯！" : Else : Return "Error printing the document!" : End If
                Case PdfViewerStringId.PrintPreviewRadioPortrait : If 系統語言 = "繁體中文" Then : Return "縱向" : Else : Return "Portrait" : End If
                Case PdfViewerStringId.PrintPreviewRadioLandscape : If 系統語言 = "繁體中文" Then : Return "橫向" : Else : Return "Landscape" : End If
                Case PdfViewerStringId.PrintPreviewRadioAuto : If 系統語言 = "繁體中文" Then : Return "自動" : Else : Return "Auto" : End If
                Case PdfViewerStringId.NavigatorFitToWidthButton : If 系統語言 = "繁體中文" Then : Return "符合寬度" : Else : Return "Fit To Width" : End If
                Case PdfViewerStringId.NavigatorFitToPageButton : If 系統語言 = "繁體中文" Then : Return "符合整頁" : Else : Return "Fit Full Page" : End If
                Case PdfViewerStringId.PageThumbnailsLabel : If 系統語言 = "繁體中文" Then : Return "頁面縮圖" : Else : Return "Page Thumbnails" : End If
                Case PdfViewerStringId.SaveButton : If 系統語言 = "繁體中文" Then : Return "另存為" : Else : Return "Save As" : End If
                Case PdfViewerStringId.CloseButton : If 系統語言 = "繁體中文" Then : Return "關閉" : Else : Return "Close" : End If
                Case PdfViewerStringId.NavigatorShowSignatureButton : If 系統語言 = "繁體中文" Then : Return "簽名面板" : Else : Return "Signature Panel" : End If
                Case PdfViewerStringId.SignatureDialogTitle : If 系統語言 = "繁體中文" Then : Return "簽名驗證狀態" : Else : Return "Signature Validation Status" : End If
                Case PdfViewerStringId.SignaturePanel_Invalid : If 系統語言 = "繁體中文" Then : Return "至少一個簽名無效。" : Else : Return "At least one signature is invalid." : End If
                Case PdfViewerStringId.SignaturePanel_Unknown : If 系統語言 = "繁體中文" Then : Return "至少一個簽名有問題。" : Else : Return "At least one signature has problems." : End If
                Case PdfViewerStringId.SignaturePanel_Valid : If 系統語言 = "繁體中文" Then : Return "簽名且所有簽名均有效。" : Else : Return "Signed and all signatures are valid." : End If
                Case PdfViewerStringId.SignaturePropertiesDialogHeader : If 系統語言 = "繁體中文" Then : Return "簽名驗證狀態" : Else : Return "Signature Validation Status" : End If
                Case PdfViewerStringId.SignaturePropertiesDialogViewModel_IsDocumentModified_False
                    If 系統語言 = "繁體中文" Then : Return "自應用此簽名後，文檔未被修改。" : Else : Return "The document is not modified since this signature was applied." : End If
                Case PdfViewerStringId.SignaturePropertiesDialogViewModel_IsDocumentModified_True
                    If 系統語言 = "繁體中文" Then : Return "自應用簽名以來，文檔已被更改或損壞。" : Else : Return "The document has been altered or corrupted since the Signature was applied." : End If
                Case PdfViewerStringId.SignaturePropertiesDialogViewModel_SignatureIsInvalid : If 系統語言 = "繁體中文" Then : Return "簽名無效。" : Else : Return "Signature is Invalid." : End If
                Case PdfViewerStringId.SignaturePropertiesDialogViewModel_SignatureIsUnknown
                    If 系統語言 = "繁體中文" Then : Return "簽名有效性未知。" : Else : Return "Signature validity is Unknown." : End If
                Case PdfViewerStringId.SignaturePropertiesDialogViewModel_SignatureIsValid
                    If 系統語言 = "繁體中文" Then : Return "簽名有效，簽名者" : Else : Return "Signature is Valid, signed by " : End If
                Case PdfViewerStringId.SignaturePropertiesDialogViewModel_SignerValidity_Unknown
                    If 系統語言 = "繁體中文" Then : Return "簽名者的身份未知。" : Else : Return "The signer's identity is unknown." : End If
                Case PdfViewerStringId.SignaturePropertiesDialogViewModel_SignerValidity_UntrustedRoot
                    If 系統語言 = "繁體中文" Then : Return "簽名者的身份未知，因為它尚未包含在您的受信任證書列表中，並且其父證書均不受信任。" : Else
                        Return "The signer's identity is unknown because it has not been included in your list of trusted certificates and none of its parent certificates are trusted." : End If
                Case PdfViewerStringId.SignaturePropertiesDialogViewModel_SignerValidity_Valid
                    If 系統語言 = "繁體中文" Then : Return "簽署人的身份有效。" : Else : Return "The signer's identity is valid." : End If
                Case PdfViewerStringId.SelectCertButton : If 系統語言 = "繁體中文" Then : Return "選擇" : Else : Return "Select" : End If
                Case PdfViewerStringId.SignButton : If 系統語言 = "繁體中文" Then : Return "簽名" : Else : Return "Sign" : End If
                Case PdfViewerStringId.EnterAPassTextBox : If 系統語言 = "繁體中文" Then : Return "輸入密碼" : Else : Return "Enter a password" : End If
                Case PdfViewerStringId.SelectCertTextBox : If 系統語言 = "繁體中文" Then : Return "選擇證書" : Else : Return "Select certificate" : End If
            End Select
            Return MyBase.GetLocalizedString(id)
        End Function
    End Class
    Public Class MyEnglishGanttViewLocalizationProvider
        Inherits GanttViewLocalizationProvider
        Public Overrides Function GetLocalizedString(id As String) As String
            Select Case id
                Case GanttViewStringId.ContextMenuAdd : If (系統語言 = "繁體中文") Then : Return "新增(&A)" : Else : Return "Tambahkan(&A)" : End If
                Case GanttViewStringId.ContextMenuAddChild : If (系統語言 = "繁體中文") Then : Return "新增子項目(&C)" : Else : Return "Tambahkan Subitem(&C)" : End If
                Case GanttViewStringId.ContextMenuAddSibling : If (系統語言 = "繁體中文") Then : Return "新增同層級項目(&S)" : Else : Return "Tambahkan Item Sejajar(&S)" : End If
                Case GanttViewStringId.ContextMenuDelete : If (系統語言 = "繁體中文") Then : Return "刪除(&D)" : Else : Return "Hapus(&D)" : End If
                Case GanttViewStringId.ContextMenuProgress : If (系統語言 = "繁體中文") Then : Return "進度(&P)" : Else : Return "Kemajuan(&P)" : End If
                Case "TimelineWeek" : If (系統語言 = "繁體中文") Then : Return "周次" : Else : Return "Minggu" : End If
            End Select : Return String.Empty
        End Function
    End Class
#Const AZ = 不用WEB ' 根据需要设置 AZ 的值
#If AZ Then
        Private WithEvents Browser As ChromiumWebBrowser
        Public Sub New()
            InitializeComponent()
            Dim settings As New CefSettings()
            If (系統語言 = "繁體中文") Then : settings.Locale = "zh-TW" : Else : settings.Locale = "en-US" : End If
            Cef.Initialize(settings)
            Cef.GetGlobalCookieManager().DeleteCookies()
            If 不用WEB = False Then
          End If
        End Sub
#Else
#End If
    Function 文字旋轉(ByVal s As String, ByVal v As Integer) As String
        '--- S=目標字串， V=捲動次數（ +v 右捲, -v 左捲）---
        文字旋轉 = Strings.Mid(s & s & s, Strings.Len(s) - (v Mod Strings.Len(s)) + 1, Strings.Len(s))
    End Function
    Private Sub 跑馬燈_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 跑馬燈.Tick
        If 跑馬燈_tb.Text = "" Then : Else : 跑馬燈_tb.Text = 文字旋轉(跑馬燈_tb.Text.ToUpper(), -1) : End If
    End Sub
    Private Sub HXGPSERPSYS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        初始化系統語言() : Me.Size = New Point(1366, 768) : MyMod.清單字體大小調整()
        MyBrowser.SendToBack() : MyBrowser.Visible = False : 視窗1_pl.Visible = False : UI優化_P.BringToFront()
        Dim screenBounds As Rectangle = Screen.PrimaryScreen.Bounds
        If screenBounds.Width < Me.Width Or screenBounds.Height < Me.Height Then : Me.WindowState = 2
        Else : Me.Left = (screenBounds.Width - Me.Width) / 2 : Me.Top = (screenBounds.Height - Me.Height) / 2 : End If

        '------------------------優化UI-------------------------------------------------------------------------------------------------------------------------------------------------
        Me.DoubleBuffered = True
        人員動態_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        車輛動態_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
        '------------------------系統登入時宣告-------------------------------------------------------------------------------------------------------------------------------------------------
        SQL_系統語言() : 系統語言1_cb.Items.Clear() : While dr.Read() : 系統語言1_cb.Items.Add(dr("語言")) : End While : conn.Close()
        低網速模式_ch.Checked = 低網速模式 : 介面 = "H001" : 語言轉換讀取() : 顯示說明(999, False) : 系統關閉 = False : 捷徑數量 = 0 : Panel2.SendToBack() : 桌面通知_pl.BringToFront()
        桌面通知_pl.Visible = False : 跑馬燈_tb.BringToFront()

        Dim SS1, SS2 As Integer : SS1 = 653 : SS2 = 362 : 幣別 = " (RP)"

        聯絡函_未審_dgv.Location = New Point(1, 1) : 聯絡函_未審_dgv.Size = New Point(SS1, SS2) : 聯絡函_未收_dgv.Location = New Point(1, 1) : 聯絡函_未收_dgv.Size = New Point(SS1, SS2)
        聯絡函_未執行_dgv.Location = New Point(1, 1) : 聯絡函_未執行_dgv.Size = New Point(SS1, SS2) : 聯絡函_未驗收_dgv.Location = New Point(1, 1) : 聯絡函_未驗收_dgv.Size = New Point(SS1, SS2)
        聯絡函_派車_dgv.Location = New Point(1, 1) : 聯絡函_派車_dgv.Size = New Point(SS1, SS2) : 聯絡函_請假_dgv.Location = New Point(1, 1) : 聯絡函_請假_dgv.Size = New Point(SS1, SS2)
        支付單未准_dgv.Location = New Point(1, 1) : 支付單未准_dgv.Size = New Point(SS1, SS2)

        合約預估利潤_dgv.Location = New Point(1, 1) : 合約預估利潤_dgv.Size = New Point(SS1, SS2) : 報價未完成_dgv.Location = New Point(1, 1) : 報價未完成_dgv.Size = New Point(SS1, SS2)
        合約未放行_dgv.Location = New Point(1, 1) : 合約未放行_dgv.Size = New Point(SS1, SS2) : 報價未簽回_dgv.Location = New Point(1, 1) : 報價未簽回_dgv.Size = New Point(SS1, SS2)
        合約請款1_dgv.Location = New Point(1, 1) : 合約請款1_dgv.Size = New Point(SS1, SS2) : 合約請款2_dgv.Location = New Point(1, 1) : 合約請款2_dgv.Size = New Point(SS1, SS2)
        合約請款3_dgv.Location = New Point(1, 1) : 合約請款3_dgv.Size = New Point(SS1, SS2) : 合約請款4_dgv.Location = New Point(1, 1) : 合約請款4_dgv.Size = New Point(SS1, SS2)
        合約請款5_dgv.Location = New Point(1, 1) : 合約請款5_dgv.Size = New Point(SS1, SS2) : 合約未簽回_dgv.Location = New Point(1, 1) : 合約未簽回_dgv.Size = New Point(SS1, SS2)

        合約未指定主管_dgv.Location = New Point(1, 1) : 合約未指定主管_dgv.Size = New Point(SS1, SS2) : 員工合約_dgv.Location = New Point(1, 1) : 員工合約_dgv.Size = New Point(SS1, SS2)
        合約未驗收_dgv.Location = New Point(1, 1) : 合約未驗收_dgv.Size = New Point(SS1, SS2) : 驗收未簽回_dgv.Location = New Point(1, 1) : 驗收未簽回_dgv.Size = New Point(SS1, SS2)
        保固未簽回_dgv.Location = New Point(1, 1) : 保固未簽回_dgv.Size = New Point(SS1, SS2)

        請購單_dgv.Location = New Point(1, 1) : 請購單_dgv.Size = New Point(SS1, SS2) : 詢價單_dgv.Location = New Point(1, 1) : 詢價單_dgv.Size = New Point(SS1, SS2)
        採購核准11_dgv.Location = New Point(1, 1) : 採購核准11_dgv.Size = New Point(SS1, SS2) : 採購核准12_dgv.Location = New Point(1, 1) : 採購核准12_dgv.Size = New Point(SS1, SS2)

        '------------------------章程管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        If CInt(登入人級別) <= 2 Then : 聯絡函最高主管核准_tsm.Visible = True : 聯絡函最高主管核准_p.Visible = True
        ElseIf CInt(登入人級別) > 2 Then : 聯絡函最高主管核准_tsm.Visible = False : 聯絡函最高主管核准_p.Visible = False : End If
        If CInt(登入人級別) <= 5 Then : 聯絡函部門主管審核_tsm.Visible = True : 聯絡函部門主管審核_p.Visible = True
        ElseIf CInt(登入人級別) > 5 Then : 聯絡函部門主管審核_tsm.Visible = False : 聯絡函部門主管審核_p.Visible = False : End If
        公告管理_tsm.Visible = CC(82) : 公告管理_p.Visible = CC(82) : 車輛管理_tsm.Visible = CC(67) : 車輛管理_p.Visible = CC(67)
        安培容量計算表_tsm.Visible = CC(8)                                    '----連動工程系統管理權限
        管徑流速流量計算器_tsm.Visible = CC(8)                                '----連動工程系統管理權限

        Dim NB1 As Integer = 0
        '------------------------業務管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        合約執行進度_tsm.Visible = CC(5) : 合約執行進度_p.Visible = CC(5) : 合約利潤預估表_tsm.Visible = CC(60) : 合約利潤預估表_p.Visible = CC(60)
        合約報價單_tsm.Visible = CC(116) : 合約報價單_p.Visible = CC(116) : 合約報價單審核_tsm.Visible = CC(107) : 合約報價單審核_p.Visible = CC(107)
        合約本文_tsm.Visible = CC(98) : 合約本文_p.Visible = CC(98) : 附錄合約_tsm.Visible = CC(98) : 附錄合約_p.Visible = CC(98)
        合約請款單_tsm.Visible = CC(124) : 合約請款單_p.Visible = CC(124) : 合約請款控制表_tsm.Visible = CC(123) : 合約請款控制表_p.Visible = CC(123)
        合約驗收單_tsm.Visible = CC(126) : 合約驗收單_p.Visible = CC(126) : 合約驗收控制表_tsm.Visible = CC(125) : 合約驗收控制表_p.Visible = CC(125)
        合約保固書_tsm.Visible = CC(127) : 合約保固書_p.Visible = CC(127) : 合約文件簽回存檔_tsm.Visible = CC(61) : 合約文件簽回存檔_p.Visible = CC(61)
        合約文件簽核控制表_tsm.Visible = CC(62) : 合約文件簽核控制表_p.Visible = CC(62) : 合約結案控制表_tsm.Visible = CC(128) : 合約結案控制表_p.Visible = CC(128)
        合約工程圖庫管理_tsm.Visible = CC(115) : 合約工程圖庫管理_p.Visible = CC(115) : 工程項目BOM表_tsm.Visible = CC(52) : 工程項目BOM表_p.Visible = CC(52)
        工程分區控制表_tsm.Visible = CC(114) : 工程分區控制表_p.Visible = CC(114) : 客戶資料表_tsm.Visible = CC(99) : 客戶資料表_p.Visible = CC(99)
        業務系統管理_tsm.Visible = CC(5) : 合約模組設定_tsm.Visible = CC(100)
        '------------------------採購管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        請購單申請_tsm.Visible = CC(33) : 請購單申請_p.Visible = CC(33) : 請購單核準_tsm.Visible = CC(34) : 請購單核準_p.Visible = CC(34)
        請購一覽表_tsm.Visible = CC(35) : 請購一覽表_p.Visible = CC(35) : 採購單詢價_tsm.Visible = CC(20) : 採購單詢價_p.Visible = CC(20)
        採購單編輯_tsm.Visible = CC(36) : 採購單編輯_p.Visible = CC(36) : 採購單一級核准_tsm.Visible = CC(73) : 採購單一級核准_p.Visible = CC(73)
        採購單二級核准_tsm.Visible = CC(37) : 採購單二級核准_p.Visible = CC(37) : 採購單一覽表_tsm.Visible = CC(38) : 採購單一覽表_p.Visible = CC(38)
        入庫驗收單_tsm.Visible = CC(39) : 入庫驗收單_p.Visible = CC(39)
        供應商管理_tsm.Visible = CC(11) : 供應商管理_p.Visible = CC(11) : 物料採購統計表_tsm.Visible = CC(51) : 物料採購統計表_p.Visible = CC(51)
        供應商商品單價設定_tsm.Visible = CC(11) : 供應商商品單價設定_p.Visible = CC(11) : 電信費追加申請_tsm.Visible = CC(74) : 電信費追加申請_p.Visible = CC(74)
        電信費追加執行_tsm.Visible = CC(75) : 電信費追加執行_p.Visible = CC(75) : 採購轉財務收支單_tsm.Visible = CC(38) : 採購轉財務收支單_p.Visible = CC(38)
        採購系統管理_tsm.Visible = CC(6) : 樣品供應商管理_tsm.Visible = CC(42) : 樣品請購單申請_tsm.Visible = CC(25) : 樣品請購單核准_tsm.Visible = CC(26)
        樣品請購單一覽表_tsm.Visible = CC(27) : 樣品採購單生成_tsm.Visible = CC(28) : 樣品採購單一級核准_tsm.Visible = CC(72) : 樣品採購單二級核准_tsm.Visible = CC(29)
        樣品採購單一覽表_tsm.Visible = CC(30) : 樣品來料驗收單_tsm.Visible = CC(31)
        If CInt(登入人級別) <= 2 Then : 銀行資料修改審核_tsm.Visible = True : 銀行資料修改審核_p.Visible = True
        Else : 銀行資料修改審核_tsm.Visible = False : 銀行資料修改審核_p.Visible = False : End If
        採購驗收對帳表_tsm.Visible = False : 採購驗收對帳表_p.Visible = False : 樣品採購驗收對帳表_tsm.Visible = False
        '------------------------工程管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        工程材料表_tsm.Visible = CC(8) : 工程材料表_p.Visible = CC(8) : 合約驗收單1_tsm.Visible = CC(105) : 合約驗收單1_p.Visible = CC(105)
        合約驗收控制表1_tsm.Visible = CC(108) : 合約驗收控制表1_p.Visible = CC(108) : 合約結案控制表1_tsm.Visible = CC(109) : 合約結案控制表1_p.Visible = CC(109)
        工程進度表_tsm.Visible = CC(110) : 工程進度表_p.Visible = CC(110) : 派工人數紀錄表_tsm.Visible = CC(106) : 派工人數紀錄表_p.Visible = CC(106)
        工程日報表編輯_tsm.Visible = CC(104) : 工程日報表編輯_p.Visible = CC(104) : 工程客變單_tsm.Visible = CC(53) : 工程客變單_p.Visible = CC(53)
        工程維修單_tsm.Visible = CC(54) : 工程維修單_p.Visible = CC(54) : 工程分區控制表1_tsm.Visible = CC(114) : 工程分區控制表1_p.Visible = CC(114)
        工程系統管理_tsm.Visible = CC(8)
        '------------------------倉儲管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        倉儲控制表_tsm.Visible = CC(46) : 倉儲控制表_p.Visible = CC(46) : 倉儲入庫驗收_tsm.Visible = CC(47) : 倉儲入庫驗收_p.Visible = CC(47)
        物料轉倉申請_tsm.Visible = CC(48) : 物料轉倉申請_p.Visible = CC(48) : 物料轉倉審核_tsm.Visible = CC(49) : 物料轉倉審核_p.Visible = CC(49)
        物料轉倉出庫_tsm.Visible = CC(50) : 物料轉倉出庫_p.Visible = CC(50) : 倉儲領料申請_tsm.Visible = CC(56) : 倉儲領料申請_p.Visible = CC(56)
        倉儲領料審核_tsm.Visible = CC(57) : 倉儲領料審核_p.Visible = CC(57) : 倉儲領料出庫_tsm.Visible = CC(58) : 倉儲領料出庫_p.Visible = CC(58)
        物料資料庫_tsm.Visible = CC(70) : 物料資料庫_p.Visible = CC(70) : 倉儲單據狀態看板_tsm.Visible = CC(69) : 倉儲單據狀態看板_p.Visible = CC(69)
        盤盈盤損申請_tsm.Visible = CC(85) : 盤盈盤損申請_p.Visible = CC(85) : 盤盈盤損審核_tsm.Visible = CC(86) : 盤盈盤損審核_p.Visible = CC(86)
        物料退庫_tsm.Visible = CC(59) : 物料退庫_p.Visible = CC(59) : 倉儲分區控制表_tsm.Visible = CC(71) : 倉儲分區控制表_p.Visible = CC(71)
        物料資料編輯_tsm.Visible = CC(46) : 物料資料編輯_p.Visible = CC(46) : 倉儲系統管理_tsm.Visible = CC(9)
        '------------------------財務管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        收款確認表_tsm.Visible = CC(66) : 收款確認表_p.Visible = CC(66) : 收款狀態報表_tsm.Visible = CC(90) : 收款狀態報表_p.Visible = CC(90)
        營運收支單申請_tsm.Visible = CC(91) : 營運收支單申請_p.Visible = CC(91) : 營運收支單審核_tsm.Visible = CC(92) : 營運收支單審核_p.Visible = CC(92)
        營運收支單一覽表_tsm.Visible = CC(93) : 營運收支單一覽表_p.Visible = CC(93) : 財務決算表_tsm.Visible = CC(95) : 財務決算表_p.Visible = CC(95)
        特支費申請_tsm.Visible = CC(64) : 特支費申請_p.Visible = CC(64) : 會計帳務沖銷_tsm.Visible = CC(65) : 會計帳務沖銷_p.Visible = CC(65)
        主管指定沖銷_tsm.Visible = CC(18) : 主管指定沖銷_p.Visible = CC(18) : 會計科目管理_tsm.Visible = CC(97) : 會計科目管理_p.Visible = CC(97)
        採購付款確認表_tsm.Visible = CC(78) : 採購付款確認表_p.Visible = CC(78) : 採購付款狀態報表_tsm.Visible = CC(79) : 採購付款狀態報表_p.Visible = CC(79)
        財務支付申請_tsm.Visible = CC(76) : 財務支付申請_p.Visible = CC(76) : 財務支付審核_tsm.Visible = CC(77) : 財務支付審核_p.Visible = CC(77)
        財務支付_主管審核_tsm.Visible = CC(68) : 財務支付_主管審核_p.Visible = CC(68) : 匯率管理_tsm.Visible = CC(96) : 匯率管理_p.Visible = CC(96)
        特支費審核_tsm.Visible = CC(18) : 特支費審核_p.Visible = CC(18) : 應付款日報表_tsm.Visible = CC(32) : 應付款月報表_tsm.Visible = CC(32)
        資產負載表_tsm.Visible = CC(83) : 財務系統管理_tsm.Visible = CC(7)
        現金流量表_tsm.Visible = False : 綜合損益表_tsm.Visible = False : 應收帳款控制表_tsm.Visible = False : 應付賬款控制表_tsm.Visible = False
        權益變動表_tsm.Visible = False : 營運收支單對帳表_tsm.Visible = False
        '------------------------人事管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        人員基本資料_tsm.Visible = CC(17) : 人員基本資料_p.Visible = CC(17) : 人員ID卡系統配置設定_tsm.Visible = CC(23) : 人員ID卡系統配置設定_p.Visible = CC(23)
        考勤明細表_tsm.Visible = CC(16) : 考勤明細表_p.Visible = CC(16) : 臨時工卡片管理_tsm.Visible = CC(15) : 臨時工卡片管理_p.Visible = CC(15)
        系統使用者管理1_tsm.Visible = CC(55) : 系統使用者管理_p.Visible = CC(55) : 人員薪資_tsm.Visible = CC(81) : 人員薪資_p.Visible = CC(81)
        門禁權限設定_tsm.Visible = CC(100) : 門禁權限設定_p.Visible = CC(100) : 請假單_tsm.Visible = CC(22) : 請假單_p.Visible = CC(22)
        請假資料確認_tsm.Visible = CC(67) : 請假資料確認_p.Visible = CC(67) : 公司組織結構_tsm.Visible = CC(22) : 組織結構_權限設定_tsm.Visible = CC(89)
        行事曆請假_tsm.Visible = CC(22) : 行事曆請假_p.Visible = CC(22)
        人事系統管理_tsm.Visible = CC(22) : LINE使用者管理表_tsm.Visible = CC(111) : LINE通知測試表_tsm.Visible = CC(112) : LINE權限一覽表_tsm.Visible = CC(113)
        '------------------------資料庫管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        系統使用者管理_tsm.Visible = CC(2) : 系統權限預設表_tsm.Visible = CC(84) : 系統組織架構設定_tsm.Visible = CC(41) : 部門權限設定_tsm.Visible = CC(87)
        系統通用變數管理_tsm.Visible = CC(43) : 系統編碼規則_tsm.Visible = CC(10) : 系統對應電腦註冊_tsm.Visible = CC(44) : 系統執行檔版本管理_tsm.Visible = CC(4)
        FTP資料夾管理_tsm.Visible = CC(3) : 簽名檔管理_tsm.Visible = CC(21) : 資料庫系統管理_tsm.Visible = CC(1) : 門禁系統設定_tsm.Visible = CC(19)

        '------------------------ToolStripSeparator隱藏
        '------------------------章程管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        If CC(8) = False Then : TSS37.Visible = False : End If
        '------------------------業務管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        If CC(98) = False And CC(116) = False And CC(107) = False Then : ToolStripSeparator31.Visible = False : End If
        If CC(123) = False And CC(124) = False Then : ToolStripSeparator24.Visible = False : End If
        If CC(125) = False And CC(126) = False Then : ToolStripSeparator29.Visible = False : End If
        If CC(127) = False And CC(128) = False And CC(61) = False And CC(62) = False Then : ToolStripSeparator30.Visible = False : End If
        If CC(115) = False Then : ToolStripSeparator32.Visible = False : End If
        If CC(100) = False And CC(114) = False And CC(99) = False And CC(52) = False Then : ToolStripSeparator33.Visible = False : End If
        '------------------------採購管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        If CC(74) = False And CC(75) = False Then : ToolStripSeparator13.Visible = False : End If
        If CC(25) = False And CC(26) = False And CC(27) = False Then : ToolStripSeparator6.Visible = False : End If
        If CC(28) = False And CC(72) = False And CC(29) = False And CC(30) = False And CC(31) = False And CC(32) = False Then : ToolStripSeparator3.Visible = False : End If
        If CC(33) = False And CC(34) = False And CC(35) = False Then : ToolStripSeparator1.Visible = False : End If
        If CC(36) = False And CC(73) = False And CC(37) = False And CC(38) = False And CC(39) = False Then : ToolStripSeparator2.Visible = False : End If
        '------------------------工程管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        If CC(110) = False And CC(106) = False Then : ToolStripSeparator35.Visible = False : End If
        If CC(104) = False And CC(53) = False And CC(54) = False Then : ToolStripSeparator34.Visible = False : End If
        If CC(114) = False Then : ToolStripSeparator25.Visible = False : End If
        '------------------------倉儲管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        If CC(46) = False And CC(47) = False And CC(48) = False And CC(49) = False And CC(50) = False Then : ToolStripSeparator15.Visible = False : End If
        If CC(56) = False And CC(57) = False And CC(58) = False Then : ToolStripSeparator11.Visible = False : End If
        If CC(59) = False Then : ToolStripSeparator9.Visible = False : End If
        If CC(69) = False And CC(70) = False And CC(71) = False Then : ToolStripSeparator14.Visible = False : End If
        '------------------------財務管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        If CC(94) = False And CC(95) = False Then : ToolStripSeparator18.Visible = False : End If
        If CC(96) = False And CC(97) = False Then : ToolStripSeparator16.Visible = False : End If
        If CC(78) = False And CC(79) = False Then : ToolStripSeparator21.Visible = False : End If
        If CC(66) = False And CC(90) = False Then : ToolStripSeparator12.Visible = False : End If
        If CC(64) = False And CC(65) = False And CC(18) = False Then : ToolStripSeparator22.Visible = False : End If

        ToolStripSeparator23.Visible = False
        '------------------------人事管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        If CC(23) = False And CC(89) = False And CC(100) = False Then : ToolStripSeparator28.Visible = False : End If
        If CC(111) = False And CC(112) = False And CC(113) = False Then : ToolStripSeparator10.Visible = False : End If
        If CC(81) = False Then : ToolStripSeparator4.Visible = False : End If
        '------------------------資料庫管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        If CC(2) = False And CC(84) = False Then : ToolStripSeparator19.Visible = False : End If
        If CC(43) = False And CC(10) = False And CC(44) = False Then : ToolStripSeparator20.Visible = False : End If
        If CC(4) = False And CC(3) = False Then : ToolStripSeparator5.Visible = False : End If
        If CC(41) = False And CC(87) = False Then : ToolStripSeparator7.Visible = False : End If
        If 登入人級別 = "00" Then : ToolStripSeparator27.Visible = True : Else : ToolStripSeparator27.Visible = False : End If

        Dim Str As String = Application.StartupPath
        If File.Exists(Str + "\HXSTYLE.txt") Then
            Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\HXSTYLE.txt", System.Text.Encoding.Default)
            Dim Text As String = "" : Dim line As String = filereader.ReadLine()
            While Not (line Is Nothing) : Text = Text & line & vbCrLf : line = filereader.ReadLine() : End While : filereader.Close()
            If Strings.Left(Text, 1) = "B" Then : 深色風格_ch.Checked = False : 深色風格 = False
            ElseIf Strings.Left(Text, 1) = "W" Then : 深色風格_ch.Checked = True : 深色風格 = True : End If
        Else : 深色風格_ch.Checked = False : 深色風格 = False : End If
        風格()
    End Sub
    Private Sub 捷徑設定()
        For I As Integer = 0 To NSD : If PA20 = 已選捷徑(I) Then : 捷徑關閉 = False : Exit For : End If : Next
    End Sub
    Private Sub HXGPSERPSYS_Siz()
        動項框_sc.BringToFront() : 延遲1.Enabled = True
    End Sub
    Private Sub 業務捷徑繪製()
        Dim 位置X, 位置Y, 位置Y1, Y可放, 視窗X, 視窗Y, X可放, 總共可放, X已放, Y已放, 已經放置 As Double : 已經放置 = 0
        位置Y = 82 : 位置Y1 = 83 : 位置X = 125 : 視窗X = 虛擬桌_業務_pl.Size.Width : 視窗Y = 虛擬桌_業務_pl.Size.Height : X可放 = 視窗X / 位置X : Y可放 = 視窗Y / 位置Y : 總共可放 = X可放 * Y可放
        Y可放 = Math.Floor(Y可放)
        If CC(5) = True And 合約執行進度_tsm.Checked = True Then : 合約執行進度_p.Visible = True : 合約執行進度_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 合約執行進度_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 合約執行進度_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 合約執行進度_p.Visible = False : End If
        If CC(60) = True And 合約利潤預估表_tsm.Checked = True Then : 合約利潤預估表_p.Visible = True : 合約利潤預估表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 合約利潤預估表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 合約利潤預估表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 合約利潤預估表_p.Visible = False : End If
        If CC(116) = True And 合約報價單_tsm.Checked = True Then : 合約報價單_p.Visible = True : 合約報價單_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 合約報價單_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 合約報價單_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 合約報價單_p.Visible = False : End If
        If CC(107) = True And 合約報價單審核_tsm.Checked = True Then : 合約報價單審核_p.Visible = True : 合約報價單審核_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 合約報價單審核_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 合約報價單審核_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 合約報價單審核_p.Visible = False : End If
        If CC(98) = True And 合約本文_tsm.Checked = True Then : 合約本文_p.Visible = True : 合約本文_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 合約本文_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 合約本文_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 合約本文_p.Visible = False : End If
        If CC(98) = True And 附錄合約_tsm.Checked = True Then : 附錄合約_p.Visible = True : 附錄合約_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 附錄合約_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 附錄合約_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 附錄合約_p.Visible = False : End If
        If CC(124) = True And 合約請款單_tsm.Checked = True Then : 合約請款單_p.Visible = True : 合約請款單_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 合約請款單_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 合約請款單_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 合約請款單_p.Visible = False : End If
        If CC(123) = True And 合約請款控制表_tsm.Checked = True Then : 合約請款控制表_p.Visible = True : 合約請款控制表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 合約請款控制表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 合約請款控制表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 合約請款控制表_p.Visible = False : End If
        If CC(126) = True And 合約驗收單_tsm.Checked = True Then : 合約驗收單_p.Visible = True : 合約驗收單_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 合約驗收單_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 合約驗收單_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 合約驗收單_p.Visible = False : End If
        If CC(125) = True And 合約驗收控制表_tsm.Checked = True Then : 合約驗收控制表_p.Visible = True : 合約驗收控制表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 合約驗收控制表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 合約驗收控制表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 合約驗收控制表_p.Visible = False : End If
        If CC(127) = True And 合約保固書_tsm.Checked = True Then : 合約保固書_p.Visible = True : 合約保固書_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 合約保固書_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 合約保固書_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 合約保固書_p.Visible = False : End If
        If CC(61) = True And 合約文件簽回存檔_tsm.Checked = True Then : 合約文件簽回存檔_p.Visible = True : 合約文件簽回存檔_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 合約文件簽回存檔_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 合約文件簽回存檔_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 合約文件簽回存檔_p.Visible = False : End If
        If CC(62) = True And 合約文件簽核控制表_tsm.Checked = True Then : 合約文件簽核控制表_p.Visible = True : 合約文件簽核控制表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 合約文件簽核控制表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 合約文件簽核控制表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 合約文件簽核控制表_p.Visible = False : End If
        If CC(128) = True And 合約結案控制表_tsm.Checked = True Then : 合約結案控制表_p.Visible = True : 合約結案控制表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 合約結案控制表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 合約結案控制表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 合約結案控制表_p.Visible = False : End If
        If CC(115) = True And 合約工程圖庫管理_tsm.Checked = True Then : 合約工程圖庫管理_p.Visible = True : 合約工程圖庫管理_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 合約工程圖庫管理_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 合約工程圖庫管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 合約工程圖庫管理_p.Visible = False : End If
        If CC(52) = True And 工程項目BOM表_tsm.Checked = True Then : 工程項目BOM表_p.Visible = True : 工程項目BOM表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 工程項目BOM表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 工程項目BOM表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 工程項目BOM表_p.Visible = False : End If
        If CC(99) = True And 客戶資料表_tsm.Checked = True Then : 客戶資料表_p.Visible = True : 客戶資料表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 客戶資料表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 客戶資料表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 客戶資料表_p.Visible = False : End If
        If CC(114) = True And 工程分區控制表_tsm.Checked = True Then : 工程分區控制表_p.Visible = True : 工程分區控制表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 工程分區控制表1_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 工程分區控制表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 工程分區控制表_p.Visible = False : End If
    End Sub
    Private Sub 請採購捷徑繪製()
        Dim 位置X, 位置Y, 位置Y1, Y可放, 視窗X, 視窗Y, X可放, 總共可放, X已放, Y已放, 已經放置 As Double : 已經放置 = 0
        位置Y = 82 : 位置Y1 = 83 : 位置X = 125 : 視窗X = 虛擬桌_採購_pl.Size.Width : 視窗Y = 虛擬桌_採購_pl.Size.Height : X可放 = 視窗X / 位置X : Y可放 = 視窗Y / 位置Y : 總共可放 = X可放 * Y可放
        Y可放 = Math.Floor(Y可放)
        If CC(33) = True And 請購單申請_tsm.Checked = True Then : 請購單申請_p.Visible = True : 請購單申請_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 請購單申請_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 請購單申請_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 請購單申請_p.Visible = False : End If
        If CC(34) = True And 請購單核準_tsm.Checked = True Then : 請購單核準_p.Visible = True : 請購單核準_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 請購單核準_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 請購單核準_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 請購單核準_p.Visible = False : End If
        If CC(35) = True And 請購一覽表_tsm.Checked = True Then : 請購一覽表_p.Visible = True : 請購一覽表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 請購一覽表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 請購一覽表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 請購一覽表_p.Visible = False : End If
        If CC(20) = True And 採購單詢價_tsm.Checked = True Then : 採購單詢價_p.Visible = True : 採購單詢價_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 採購單詢價_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 採購單詢價_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 採購單詢價_p.Visible = False : End If
        If CC(36) = True And 採購單編輯_tsm.Checked = True Then : 採購單編輯_p.Visible = True : 採購單編輯_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 採購單編輯_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 採購單編輯_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 採購單編輯_p.Visible = False : End If
        If CC(73) = True And 採購單一級核准_tsm.Checked = True Then : 採購單一級核准_p.Visible = True : 採購單一級核准_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 採購單一級核准_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 採購單一級核准_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 採購單一級核准_p.Visible = False : End If
        If CC(37) = True And 採購單二級核准_tsm.Checked = True Then : 採購單二級核准_p.Visible = True : 採購單二級核准_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 採購單二級核准_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 採購單二級核准_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 採購單二級核准_p.Visible = False : End If
        If CC(38) = True And 採購單一覽表_tsm.Checked = True Then : 採購單一覽表_p.Visible = True : 採購單一覽表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 採購單一覽表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 採購單一覽表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 採購單一覽表_p.Visible = False : End If
        If CC(39) = True And 入庫驗收單_tsm.Checked = True Then : 入庫驗收單_p.Visible = True : 入庫驗收單_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 入庫驗收單_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 入庫驗收單_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 入庫驗收單_p.Visible = False : End If
        If CC(38) = True And 採購轉財務收支單_tsm.Checked = True Then : 採購轉財務收支單_p.Visible = True : 採購轉財務收支單_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 採購轉財務收支單_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 採購轉財務收支單_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 採購轉財務收支單_p.Visible = False : End If
        If CC(74) = True And 電信費追加申請_tsm.Checked = True Then : 電信費追加申請_p.Visible = True : 電信費追加申請_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 電信費追加申請_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 電信費追加申請_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 電信費追加申請_p.Visible = False : End If
        If CC(75) = True And 電信費追加執行_tsm.Checked = True Then : 電信費追加執行_p.Visible = True : 電信費追加執行_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 電信費追加執行_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 電信費追加執行_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 電信費追加執行_p.Visible = False : End If
        'If CC(40) = True And 採購驗收對帳表_tsm.Checked = True Then : 採購驗收對帳表_p.Visible = True : 採購驗收對帳表_p.Size = New Point(位置X, 位置Y1)
        '    If 已經放置 = 0 Then : 採購驗收對帳表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
        '    Else : 採購驗收對帳表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        'Else : 採購驗收對帳表_p.Visible = False : End If
        If CC(11) = True And 供應商管理_tsm.Checked = True Then : 供應商管理_p.Visible = True : 供應商管理_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 供應商管理_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 供應商管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 供應商管理_p.Visible = False : End If
        If CInt(登入人級別) <= 2 And 銀行資料修改審核_tsm.Checked = True Then : 銀行資料修改審核_p.Visible = True : 銀行資料修改審核_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 銀行資料修改審核_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 銀行資料修改審核_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 銀行資料修改審核_p.Visible = False : End If
        If CC(51) = True And 物料採購統計表_tsm.Checked = True Then : 物料採購統計表_p.Visible = True : 物料採購統計表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 物料採購統計表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 物料採購統計表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 物料採購統計表_p.Visible = False : End If
        If CC(11) = True And 供應商商品單價設定_tsm.Checked = True Then : 供應商商品單價設定_p.Visible = True : 供應商商品單價設定_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 供應商商品單價設定_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 供應商商品單價設定_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 供應商商品單價設定_p.Visible = False : End If
    End Sub
    Private Sub 工程捷徑繪製()
        Dim 位置X, 位置Y, 位置Y1, Y可放, 視窗X, 視窗Y, X可放, 總共可放, X已放, Y已放, 已經放置 As Double : 已經放置 = 0
        位置Y = 82 : 位置Y1 = 83 : 位置X = 125 : 視窗X = 虛擬桌_工程_pl.Size.Width : 視窗Y = 虛擬桌_工程_pl.Size.Height : X可放 = 視窗X / 位置X : Y可放 = 視窗Y / 位置Y : 總共可放 = X可放 * Y可放
        Y可放 = Math.Floor(Y可放)
        If CC(8) = True And 工程材料表_tsm.Checked = True Then : 工程材料表_p.Visible = True : 工程材料表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 工程材料表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 工程材料表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 工程材料表_p.Visible = False : End If
        If CC(105) = True And 合約驗收單1_tsm.Checked = True Then : 合約驗收單1_p.Visible = True : 合約驗收單1_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 合約驗收單1_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 合約驗收單1_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 合約驗收單1_p.Visible = False : End If
        If CC(108) = True And 合約驗收控制表1_tsm.Checked = True Then : 合約驗收控制表1_p.Visible = True : 合約驗收控制表1_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 合約驗收控制表1_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 合約驗收控制表1_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 合約驗收控制表1_p.Visible = False : End If
        If CC(109) = True And 合約結案控制表1_tsm.Checked = True Then : 合約結案控制表1_p.Visible = True : 合約結案控制表1_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 合約結案控制表1_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 合約結案控制表1_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 合約結案控制表1_p.Visible = False : End If
        If CC(110) = True And 工程進度表_tsm.Checked = True Then : 工程進度表_p.Visible = True : 工程進度表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 工程進度表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 工程進度表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 工程進度表_p.Visible = False : End If
        If CC(106) = True And 派工人數紀錄表_tsm.Checked = True Then : 派工人數紀錄表_p.Visible = True : 派工人數紀錄表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 派工人數紀錄表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 派工人數紀錄表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 派工人數紀錄表_p.Visible = False : End If
        If CC(104) = True And 工程日報表編輯_tsm.Checked = True Then : 工程日報表編輯_p.Visible = True : 工程日報表編輯_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 工程日報表編輯_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 工程日報表編輯_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 工程日報表編輯_p.Visible = False : End If
        If CC(53) = True And 工程客變單_tsm.Checked = True Then : 工程客變單_p.Visible = True : 工程客變單_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 工程客變單_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 工程客變單_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 工程客變單_p.Visible = False : End If
        If CC(54) = True And 工程維修單_tsm.Checked = True Then : 工程維修單_p.Visible = True : 工程維修單_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 工程維修單_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 工程維修單_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 工程維修單_p.Visible = False : End If
        If CC(114) = True And 工程分區控制表1_tsm.Checked = True Then : 工程分區控制表1_p.Visible = True : 工程分區控制表1_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 工程分區控制表1_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 工程分區控制表1_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 工程分區控制表1_p.Visible = False : End If
    End Sub
    Private Sub 倉儲捷徑繪製()
        Dim 位置X, 位置Y, 位置Y1, Y可放, 視窗X, 視窗Y, X可放, 總共可放, X已放, Y已放, 已經放置 As Double : 已經放置 = 0
        位置Y = 82 : 位置Y1 = 83 : 位置X = 125 : 視窗X = 虛擬桌_倉儲_pl.Size.Width : 視窗Y = 虛擬桌_倉儲_pl.Size.Height : X可放 = 視窗X / 位置X : Y可放 = 視窗Y / 位置Y : 總共可放 = X可放 * Y可放
        Y可放 = Math.Floor(Y可放)
        If CC(46) = True And 倉儲控制表_tsm.Checked = True Then : 倉儲控制表_p.Visible = True : 倉儲控制表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 倉儲控制表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 倉儲控制表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 倉儲控制表_p.Visible = False : End If
        If CC(59) = True And 物料退庫_tsm.Checked = True Then : 物料退庫_p.Visible = True : 物料退庫_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 物料退庫_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 物料退庫_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 物料退庫_p.Visible = False : End If
        If CC(47) = True And 倉儲入庫驗收_tsm.Checked = True Then : 倉儲入庫驗收_p.Visible = True : 倉儲入庫驗收_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 倉儲入庫驗收_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 倉儲入庫驗收_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 倉儲入庫驗收_p.Visible = False : End If
        If CC(48) = True And 物料轉倉申請_tsm.Checked = True Then : 物料轉倉申請_p.Visible = True : 物料轉倉申請_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 物料轉倉申請_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 物料轉倉申請_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 物料轉倉申請_p.Visible = False : End If
        If CC(49) = True And 物料轉倉審核_tsm.Checked = True Then : 物料轉倉審核_p.Visible = True : 物料轉倉審核_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 物料轉倉審核_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 物料轉倉審核_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 物料轉倉審核_p.Visible = False : End If
        If CC(50) = True And 物料轉倉出庫_tsm.Checked = True Then : 物料轉倉出庫_p.Visible = True : 物料轉倉出庫_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 物料轉倉出庫_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 物料轉倉出庫_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 物料轉倉出庫_p.Visible = False : End If
        If CC(56) = True And 倉儲領料申請_tsm.Checked = True Then : 倉儲領料申請_p.Visible = True : 倉儲領料申請_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 倉儲領料申請_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 倉儲領料申請_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 倉儲領料申請_p.Visible = False : End If
        If CC(57) = True And 倉儲領料審核_tsm.Checked = True Then : 倉儲領料審核_p.Visible = True : 倉儲領料審核_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 倉儲領料審核_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 倉儲領料審核_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 倉儲領料審核_p.Visible = False : End If
        If CC(58) = True And 倉儲領料出庫_tsm.Checked = True Then : 倉儲領料出庫_p.Visible = True : 倉儲領料出庫_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 倉儲領料出庫_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 倉儲領料出庫_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 倉儲領料出庫_p.Visible = False : End If
        If CC(69) = True And 倉儲單據狀態看板_tsm.Checked = True Then : 倉儲單據狀態看板_p.Visible = True : 倉儲單據狀態看板_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 倉儲單據狀態看板_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 倉儲單據狀態看板_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 倉儲單據狀態看板_p.Visible = False : End If
        If CC(85) = True And 盤盈盤損申請_tsm.Checked = True Then : 盤盈盤損申請_p.Visible = True : 盤盈盤損申請_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 盤盈盤損申請_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 盤盈盤損申請_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 盤盈盤損申請_p.Visible = False : End If
        If CC(86) = True And 盤盈盤損審核_tsm.Checked = True Then : 盤盈盤損審核_p.Visible = True : 盤盈盤損審核_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 盤盈盤損審核_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 盤盈盤損審核_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 盤盈盤損審核_p.Visible = False : End If
        If CC(46) = True And 物料資料編輯_tsm.Checked = True Then : 物料資料編輯_p.Visible = True : 物料資料編輯_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 物料資料編輯_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 物料資料編輯_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 物料資料編輯_p.Visible = False : End If
        If CC(70) = True And 物料資料庫_tsm.Checked = True Then : 物料資料庫_p.Visible = True : 物料資料庫_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 物料資料庫_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 物料資料庫_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 物料資料庫_p.Visible = False : End If
        If CC(71) = True And 倉儲分區控制表_tsm.Checked = True Then : 倉儲分區控制表_p.Visible = True : 倉儲分區控制表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 倉儲分區控制表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 倉儲分區控制表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 倉儲分區控制表_p.Visible = False : End If
    End Sub
    Private Sub 財務捷徑繪製()
        Dim 位置X, 位置Y, 位置Y1, Y可放, 視窗X, 視窗Y, X可放, 總共可放, X已放, Y已放, 已經放置 As Double : 已經放置 = 0
        位置Y = 82 : 位置Y1 = 83 : 位置X = 125 : 視窗X = 虛擬桌_財務_pl.Size.Width : 視窗Y = 虛擬桌_財務_pl.Size.Height : X可放 = 視窗X / 位置X : Y可放 = 視窗Y / 位置Y : 總共可放 = X可放 * Y可放
        Y可放 = Math.Floor(Y可放)
        If CC(76) = True And 財務支付申請_tsm.Checked = True Then : 財務支付申請_p.Visible = True : 財務支付申請_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 財務支付申請_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 財務支付申請_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 財務支付申請_p.Visible = False : End If
        If CC(77) = True And 財務支付審核_tsm.Checked = True Then : 財務支付審核_p.Visible = True : 財務支付審核_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 財務支付審核_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 財務支付審核_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 財務支付審核_p.Visible = False : End If
        If CC(68) = True And 財務支付_主管審核_tsm.Checked = True Then : 財務支付_主管審核_p.Visible = True : 財務支付_主管審核_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 財務支付_主管審核_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 財務支付_主管審核_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 財務支付_主管審核_p.Visible = False : End If
        If CC(32) = True And 應付款日報表_tsm.Checked = True Then : 應付款日報表_p.Visible = True : 應付款日報表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 應付款日報表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 應付款日報表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 應付款日報表_p.Visible = False : End If
        If CC(32) = True And 應付款月報表_tsm.Checked = True Then : 應付款月報表_p.Visible = True : 應付款月報表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 應付款月報表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 應付款月報表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 應付款月報表_p.Visible = False : End If
        If CC(91) = True And 營運收支單申請_tsm.Checked = True Then : 營運收支單申請_p.Visible = True : 營運收支單申請_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 營運收支單申請_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 營運收支單申請_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 營運收支單申請_p.Visible = False : End If
        If CC(92) = True And 營運收支單審核_tsm.Checked = True Then : 營運收支單審核_p.Visible = True : 營運收支單審核_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 營運收支單審核_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 營運收支單審核_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 營運收支單審核_p.Visible = False : End If
        If CC(93) = True And 營運收支單一覽表_tsm.Checked = True Then : 營運收支單一覽表_p.Visible = True : 營運收支單一覽表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 營運收支單一覽表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 營運收支單一覽表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 營運收支單一覽表_p.Visible = False : End If
        If CC(95) = True And 財務決算表_tsm.Checked = True Then : 財務決算表_p.Visible = True : 財務決算表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 財務決算表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 財務決算表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 財務決算表_p.Visible = False : End If
        If CC(97) = True And 會計科目管理_tsm.Checked = True Then : 會計科目管理_p.Visible = True : 會計科目管理_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 會計科目管理_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 會計科目管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 會計科目管理_p.Visible = False : End If
        If CC(96) = True And 匯率管理_tsm.Checked = True Then : 匯率管理_p.Visible = True : 匯率管理_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 匯率管理_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 匯率管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 匯率管理_p.Visible = False : End If
        If CC(78) = True And 採購付款確認表_tsm.Checked = True Then : 採購付款確認表_p.Visible = True : 採購付款確認表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 採購付款確認表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 採購付款確認表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 採購付款確認表_p.Visible = False : End If
        If CC(79) = True And 採購付款狀態報表_tsm.Checked = True Then : 採購付款狀態報表_p.Visible = True : 採購付款狀態報表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 採購付款狀態報表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 採購付款狀態報表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 採購付款狀態報表_p.Visible = False : End If
        If CC(66) = True And 收款確認表_tsm.Checked = True Then : 收款確認表_p.Visible = True : 收款確認表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 收款確認表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 收款確認表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 收款確認表_p.Visible = False : End If
        If CC(90) = True And 收款狀態報表_tsm.Checked = True Then : 收款狀態報表_p.Visible = True : 收款狀態報表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 收款狀態報表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 收款狀態報表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 收款狀態報表_p.Visible = False : End If
        If CC(64) = True And 特支費申請_tsm.Checked = True Then : 特支費申請_p.Visible = True : 特支費申請_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 特支費申請_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 特支費申請_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 特支費申請_p.Visible = False : End If
        If CC(18) = True And 特支費審核_tsm.Checked = True Then : 特支費審核_p.Visible = True : 特支費審核_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 特支費審核_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 特支費審核_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 特支費審核_p.Visible = False : End If
        If CC(65) = True And 會計帳務沖銷_tsm.Checked = True Then : 會計帳務沖銷_p.Visible = True : 會計帳務沖銷_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 會計帳務沖銷_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 會計帳務沖銷_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 會計帳務沖銷_p.Visible = False : End If
        If CC(18) = True And 主管指定沖銷_tsm.Checked = True Then : 主管指定沖銷_p.Visible = True : 主管指定沖銷_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 主管指定沖銷_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 主管指定沖銷_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 主管指定沖銷_p.Visible = False : End If
    End Sub
    Private Sub 人事捷徑繪製()
        Dim 位置X, 位置Y, 位置Y1, Y可放, 視窗X, 視窗Y, X可放, 總共可放, X已放, Y已放, 已經放置 As Double : 已經放置 = 0
        位置Y = 82 : 位置Y1 = 83 : 位置X = 125 : 視窗X = 虛擬桌_人事_pl.Size.Width : 視窗Y = 虛擬桌_人事_pl.Size.Height : X可放 = 視窗X / 位置X : Y可放 = 視窗Y / 位置Y : 總共可放 = X可放 * Y可放
        Y可放 = Math.Floor(Y可放)
        If CC(17) = True And 人員基本資料_tsm.Checked = True Then : 人員基本資料_p.Visible = True : 人員基本資料_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 人員基本資料_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 人員基本資料_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 人員基本資料_p.Visible = False : End If
        If CC(55) = True And 系統使用者管理_tsm.Checked = True Then : 系統使用者管理_p.Visible = True : 系統使用者管理_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 系統使用者管理_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 系統使用者管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 系統使用者管理_p.Visible = False : End If
        If CC(23) = True And 人員ID卡系統配置設定_tsm.Checked = True Then : 人員ID卡系統配置設定_p.Visible = True : 人員ID卡系統配置設定_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 人員ID卡系統配置設定_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 人員ID卡系統配置設定_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 人員ID卡系統配置設定_p.Visible = False : End If
        If CC(22) = True And 請假單_tsm.Checked = True Then : 請假單_p.Visible = True : 請假單_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 請假單_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 請假單_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 請假單_p.Visible = False : End If
        If CC(67) = True And 請假資料確認_tsm.Checked = True Then : 請假資料確認_p.Visible = True : 請假資料確認_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 請假資料確認_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 請假資料確認_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 請假資料確認_p.Visible = False : End If
        If CC(22) = True And 行事曆請假_tsm.Checked = True Then : 行事曆請假_p.Visible = True : 行事曆請假_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 行事曆請假_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 行事曆請假_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 行事曆請假_p.Visible = False : End If
        If CC(16) = True And 考勤明細表_tsm.Checked = True Then : 考勤明細表_p.Visible = True : 考勤明細表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 考勤明細表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 考勤明細表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 考勤明細表_p.Visible = False : End If
        If CC(15) = True And 臨時工卡片管理_tsm.Checked = True Then : 臨時工卡片管理_p.Visible = True : 臨時工卡片管理_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 臨時工卡片管理_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 臨時工卡片管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 臨時工卡片管理_p.Visible = False : End If
        If CC(81) = True And 人員薪資_tsm.Checked = True Then : 人員薪資_p.Visible = True : 人員薪資_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 人員薪資_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 人員薪資_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 人員薪資_p.Visible = False : End If
        If CC(100) = True And 門禁權限設定_tsm.Checked = True Then : 門禁權限設定_p.Visible = True : 門禁權限設定_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 門禁權限設定_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 門禁權限設定_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 門禁權限設定_p.Visible = False : End If
    End Sub
    Private Sub 總務捷徑繪製()
        Dim 位置X, 位置Y, 位置Y1, Y可放, 視窗X, 視窗Y, X可放, 總共可放, X已放, Y已放, 已經放置 As Double : 已經放置 = 0
        位置Y = 82 : 位置Y1 = 83 : 位置X = 125 : 視窗X = 虛擬桌_總務_pl.Size.Width : 視窗Y = 虛擬桌_總務_pl.Size.Height : X可放 = 視窗X / 位置X : Y可放 = 視窗Y / 位置Y : 總共可放 = X可放 * Y可放
        Y可放 = Math.Floor(Y可放)
        If CInt(登入人級別) < 9 And 系統使用說明_tsm.Checked = True Then : 系統使用說明_p.Visible = True : 系統使用說明_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 系統使用說明_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 系統使用說明_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 系統使用說明_p.Visible = False : End If
        If CInt(登入人級別) < 9 And 投訴信箱_tsm.Checked = True Then : 投訴信箱_p.Visible = True : 投訴信箱_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 投訴信箱_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 投訴信箱_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 投訴信箱_p.Visible = False : End If
        If CInt(登入人級別) < 9 And 文件伺服器_tsm.Checked = True Then : 文件伺服器_p.Visible = True : 文件伺服器_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 文件伺服器_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 文件伺服器_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 文件伺服器_p.Visible = False : End If
        If CC(82) = True And 公告管理_tsm.Checked = True Then : 公告管理_p.Visible = True : 公告管理_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 公告管理_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 公告管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 公告管理_p.Visible = False : End If
        If CInt(登入人級別) < 9 And 車輛管理_tsm.Checked = True Then : 車輛管理_p.Visible = True : 車輛管理_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 車輛管理_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 車輛管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 車輛管理_p.Visible = False : End If
        If CInt(登入人級別) < 9 And 會議記錄_tsm.Checked = True Then : 會議記錄_p.Visible = True : 會議記錄_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 會議記錄_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 會議記錄_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 會議記錄_p.Visible = False : End If
        If CInt(登入人級別) < 9 And 部門聯絡函一覽表_tsm.Checked = True Then : 部門聯絡函一覽表_p.Visible = True : 部門聯絡函一覽表_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 部門聯絡函一覽表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 部門聯絡函一覽表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 部門聯絡函一覽表_p.Visible = False : End If
        If CInt(登入人級別) < 9 And 部門聯絡函申請_tsm.Checked = True Then : 部門聯絡函申請_p.Visible = True : 部門聯絡函申請_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 部門聯絡函申請_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 部門聯絡函申請_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 部門聯絡函申請_p.Visible = False : End If
        If CInt(登入人級別) < 9 And 聯絡函部門主管審核_tsm.Checked = True Then : 聯絡函部門主管審核_p.Visible = True : 聯絡函部門主管審核_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 聯絡函部門主管審核_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 聯絡函部門主管審核_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 聯絡函部門主管審核_p.Visible = False : End If
        If CInt(登入人級別) < 9 And 聯絡函最高主管核准_tsm.Checked = True Then : 聯絡函最高主管核准_p.Visible = True : 聯絡函最高主管核准_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 聯絡函最高主管核准_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : 聯絡函最高主管核准_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
        Else : 聯絡函最高主管核准_p.Visible = False : End If
    End Sub
    Private Sub UI優化_P_Paint(sender As Object, e As PaintEventArgs) Handles UI優化_P.Paint
        HXGPSERPSYS_Siz()
    End Sub
    Private Sub 延遲1_Tick(sender As Object, e As EventArgs) Handles 延遲1.Tick
        延遲1.Enabled = False : UI優化_P.Visible = False
        Dim childForms() As Form = Me.MdiChildren
        If childForms.Length = 0 Then : 桌面通知_pl.Visible = True : Else : 桌面通知_pl.Visible = False : End If
    End Sub
    Private Sub HXGPSERPSYS_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        If 登入人級別 = "00" Then : Me.Text = Me.Text & "  --  " & g_conn_type & "  --  " & gUserName & "  --  系統版本  :" & 版本 & " -- IP : " & 登入人IP
        Else : Me.Text = Me.Text & "  --  " & g_conn_type & "  --  " & gUserName & "  --  系統版本  :" & 版本 : End If : 系統語言1_cb.Text = 系統語言
        '------------------------捷徑讀取-----------------------------------------------------------------------------------------------------------------------------------------------
        Set_捷徑讀取()
        For Each item As ToolStripMenuItem In MenuStrip.Items : If item.HasDropDownItems Then
                For Each subItem As ToolStripItem In item.DropDownItems : If TypeOf subItem Is ToolStripMenuItem AndAlso Not DirectCast(subItem, ToolStripMenuItem).Checked Then
                        For I As Integer = 0 To 捷徑_dgv.Rows.Count - 1 : If 捷徑_dgv("介面", I).Value.ToString = subItem.Name Then : DirectCast(subItem, ToolStripMenuItem).Checked = True
                                Exit For : End If : Next : End If : Next : End If : Next
        業務捷徑繪製() : 請採購捷徑繪製() : 工程捷徑繪製() : 倉儲捷徑繪製() : 財務捷徑繪製() : 人事捷徑繪製() : 總務捷徑繪製()
        '------------------------系統閒置登出宣告-----------------------------------------------------------------------------------------------------------------------------------------------
        SQL_系統閒置時間設定讀取() : If dr.Read() Then : timeExit = dr("timeExit") : timeExit2 = dr("timeExit2") : End If : conn.Close()
        Timer1.Enabled = False : Timer2.Enabled = False : 主頁開啟 = True : 重登確認 = False : timeNow = 0 : timeNow2 = 0
        重登計時() : 重置() : 不變形 = False

        '-----------------------帳號下拉清單------------------------------------------------------------------------------------------------------------
        SQL_帳號讀取()
        使用者1_cb.Items.Clear() : While (dr.Read()) : 使用者1_cb.Items.Add(dr("姓名")) : End While : conn.Close()
        使用者1_cb.Text = gUserName
        If 登入人級別 = "00" Then : 使用者1_cb.Visible = True : Else : 使用者1_cb.Visible = False : End If

        '-----------------------WORD_組件翻譯------------------------------------------------------------------------------------------------------------
        Dim Strs As String = Application.StartupPath
        If 系統語言 = "繁體中文" Then
            RichTextBoxLocalizationProvider.CurrentProvider = RichTextBoxLocalizationProvider.FromFile(Strs & "\Theme\word_chinese.xml")
            合約文本_Word.Word控制項.RibbonBarElement.LayoutModeTextElement.Text = 對話框(23)
        Else
            RichTextBoxLocalizationProvider.CurrentProvider = RichTextBoxLocalizationProvider.FromFile(Strs & "\Theme\word_english.xml")
            合約文本_Word.Word控制項.RibbonBarElement.LayoutModeTextElement.Text = 對話框(23)
        End If
        '-----------------------捷徑設定詢問------------------------------------------------------------------------------------------------------------
        If 登入人級別 = "00" Then : If 無設定 = True Then : MGB(對話框(24), 1)
                If 訊息回應 = "YES" Then : 桌面捷徑設定.ShowDialog() : 桌面通知_pl.Visible = False : UI優化_P.Visible = True : End If : End If
        End If
        '-----------------------測試伺服器登入通知------------------------------------------------------------------------------------------------------------
        If 登入人IP = "106.1.48.106,4567" Then
            MGB(對話框(25), 1)
        End If
        '-----------------------更新系統公告------------------------------------------------------------------------------------------------------------
        If 不用WEB = False Then
            If File.Exists(Str + "\OPUPDATE.txt") Then
                介面 = "H001" : WEB說明頁面.Show() : File.Delete(Strs & "\OPUPDATE.txt")
            Else
                介面 = "H000" : WEB說明頁面.Show() : File.Delete(Strs & "\OPUPDATE.txt")
            End If
        End If
        虛擬桌_pl.BringToFront()
        載入車輛清單() : 載入車輛動態清單() : 載入人員清單() : 載入人員動態清單() : Set_庫存查詢() : 刷新表格.Enabled = True
    End Sub
    Private Sub HXGPSERPSYS_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing
        Dim tempFolderPath As String = Path.Combine(System.Windows.Forms.Application.StartupPath, "Temp")
        If Directory.Exists(tempFolderPath) Then : Directory.Delete(tempFolderPath, True) : End If
        系統關閉 = True : If 判斷重登 = True Then : 判斷重登 = False : Else : 判斷重登 = False : LoginForm1.Close() : End If
        '-----------紀錄捷徑----------------------------------------------------------------------------------------------------
        SQL_捷徑紀錄_刪除() : SQL2 = ""
        For Each item As ToolStripMenuItem In MenuStrip.Items : If item.HasDropDownItems Then
                For Each subItem As ToolStripItem In item.DropDownItems
                    If TypeOf subItem Is ToolStripMenuItem AndAlso DirectCast(subItem, ToolStripMenuItem).Checked Then : SQL2 &= "(N'" & gUserName & "', N'" & subItem.Name & "')," : End If
                Next : End If
        Next : If SQL2.Length > 0 Then : SQL2 = SQL2.Substring(0, SQL2.Length - 1) : End If
        SQL_捷徑紀錄_新增()
    End Sub
    Private Sub HXGPSERPSYS_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        If 不變形 = True Then : Else : 桌面通知_pl.Visible = False : UI優化_P.Visible = True : End If
    End Sub
    Private Sub 重登計時()
        timeNow = 0 : timeNow2 = 0 : Timer1.Enabled = False : Timer2.Enabled = False : Timer1.Enabled = True
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        timeNow += 1
        If (timeNow >= timeExit) Then
            Timer1.Enabled = False : Timer2.Enabled = True : 系統登出.ShowDialog()
            If 重登確認 = True And 主頁開啟 = True Then
                Timer1.Enabled = False : Timer2.Enabled = False
                判斷重登 = True : 重登確認 = False : 主頁開啟 = False : LoginForm1.Close() : Me.Close() : Exit Sub
            ElseIf 重登確認 = False And 主頁開啟 = True Then
                timeNow = 0 : Timer1.Enabled = True : Timer2.Enabled = False : timeNow2 = 0
            End If
        End If
    End Sub
    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        Timer1.Enabled = False
        timeNow2 += 1
        If (timeNow2 >= timeExit2) Then
            Timer1.Enabled = False : Timer2.Enabled = False
            判斷重登 = True : 重登確認 = False : 主頁開啟 = False : LoginForm1.Close() : 系統登出.Close() : Me.Close() : Exit Sub
        End If
    End Sub
    Private Sub 低網速模式_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 低網速模式_ch.Click
        If 低網速模式_ch.Checked = True Then : 低網速模式_ch.Checked = True : Else : 低網速模式_ch.Checked = False : End If
        低網速模式 = 低網速模式_ch.Checked : SQL_電腦預設值修改_低網速模式() : Access1.Close()
    End Sub
    Private Sub Message_tb_Click(sender As Object, e As EventArgs) Handles Message_tb.Click
        '------------------------即時通訊功能----------------------------------------------------------------------------------------------------------------
        Dim Strs As String = Application.StartupPath
        If File.Exists(Strs + "\LIVE.txt") Then : File.Delete(Strs + "\LIVE.txt") : End If
        If File.Exists(Strs + "\USER.txt") Then : File.Delete(Strs + "\USER.txt") : End If
        Dim FilePath As String = Strs + "\LIVE.txt"
        Try
            Using fs As IO.FileStream = New IO.FileStream(FilePath, FileMode.Append)
                Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                    Dim str As String = "106.1.48.106" : sw.WriteLine(str) : sw.Flush()  '插入一整行
                End Using
            End Using
        Catch ex As Exception
        End Try
        Dim FilePath1 As String = Strs + "\USER.txt"
        Try
            Using fs As IO.FileStream = New IO.FileStream(FilePath1, FileMode.Append)
                Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                    Dim str As String = gUserName : sw.WriteLine(str) : sw.Flush()  '插入一整行
                End Using
            End Using
        Catch ex As Exception
        End Try
        Dim 已開啟 As Boolean
        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\HX-PGS-Message.exe") Then
            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()    ' 判斷是否有符合的Process
            For Each process As Process In pro : If ("HX-PGS-Message").Equals(process.ProcessName) Then : 已開啟 = True : End If : Next
            If 已開啟 = False Then : Shell(My.Computer.FileSystem.SpecialDirectories.Desktop + "\HX-PGS-Message.exe", vbNormalFocus) : End If
        ElseIf File.Exists(Strs & "\HX-PGS-Message.exe") Then
            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()  ' 判斷是否有符合的Process
            For Each process As Process In pro : If ("HX-PGS-Message").Equals(process.ProcessName) Then : 已開啟 = True : End If : Next
            If 已開啟 = False Then : Shell(Strs + "\HX-PGS-Message.exe", vbNormalFocus) : End If
        End If
    End Sub
    Private Sub 重置()
        首次開啟 = True : 不變形 = True : 工人 = False : 重新計算 = True
        BL = False : BL1 = False : BL2 = False : BL3 = False : BL4 = False : BL5 = False : BL6 = False : BL7 = False : BL8 = False
        NU1 = 0 : NU2 = 0 : NU3 = 0 : NU4 = 0 : NU5 = 0
        BBL1 = "" : BBL2 = "" : BBL3 = "" : BBL4 = "" : BBL5 = "" : BBL6 = "" : PA = "" : PA1 = "" : PA2 = "" : PA3 = "" : PA4 = "" : PA5 = "" : PA6 = "" : PA7 = "" : PA8 = "" : PA9 = ""
        PA10 = "" : PA11 = "" : PA12 = "" : PA13 = "" : PA14 = "" : PA15 = "" : PA16 = "" : PA17 = "" : PA18 = "" : PA19 = "" : PA20 = "" : PA21 = "" : PA22 = "" : PA23 = "" : PA24 = ""
        PA25 = "" : PA26 = "" : PA27 = "" : PA28 = "" : PA29 = "" : PA30 = "" : PA31 = "" : PA32 = "" : PA33 = "" : PA34 = "" : PA35 = "" : PA36 = "" : PA37 = "" : PA38 = "" : PA39 = ""
        PA40 = "" : PA41 = "" : PA42 = "" : PA43 = "" : PA44 = "" : PA45 = "" : PA46 = "" : PA47 = "" : PA48 = "" : PA49 = "" : PA50 = "" : PA51 = ""
        列印用SQL = "" : 列印用SQL2 = "" : PPAA = "" : DTP = "" : DTP1 = "" : DTP2 = "" : DTP3 = ""
        For i As Integer = 0 To 999 : H(i) = False : Next
    End Sub
    Private Sub 系統語言1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 系統語言1_cb.SelectedIndexChanged
        SYS_SET_tsm.Text = 系統語言1_cb.Text : 系統語言 = 系統語言1_cb.Text : SQL_電腦預設值修改_系統語言()
        介面 = "H001" : 語言轉換讀取()
        '-------------------------------H0系列-系統---------------------------------------------------------------------------------------------------------------------------------------
        If H(2) = True Then : 介面 = "H002" : 系統使用者管理.語轉扭_bt.PerformClick() : End If : If H(2) = True Then : 介面 = "H002" : 系統權限預設表.語轉扭_bt.PerformClick() : End If
        If H(3) = True Then : 介面 = "H003" : 桌面捷徑設定.語轉扭_bt.PerformClick() : End If : If H(4) = True Then : 介面 = "H004" : End If
        '-------------------------------H1系列-業務---------------------------------------------------------------------------------------------------------------------------------------
        If H(101) = True Then : 介面 = "H101" : 合約執行進度.語轉扭_bt.PerformClick() : End If : If H(102) = True Then : 介面 = "H102" : 合約報價單.語轉扭_bt.PerformClick() : End If
        If H(103) = True Then : 介面 = "H103" : 合約報價單審核.語轉扭_bt.PerformClick() : End If : If H(104) = True Then : 介面 = "H104" : 附錄合約.語轉扭_bt.PerformClick() : End If
        If H(105) = True Then : 介面 = "H105" : 合約利潤預估表.語轉扭_bt.PerformClick() : End If : If H(106) = True Then : 介面 = "H106" : 合約請款控制表.語轉扭_bt.PerformClick() : End If
        If H(108) = True Then : 介面 = "H108" : 合約請款單.語轉扭_bt.PerformClick() : End If
        If H(109) = True Then : 介面 = "H109" : 合約驗收單.語轉扭_bt.PerformClick() : End If : If H(110) = True Then : 介面 = "H110" : 合約驗收控制表.語轉扭_bt.PerformClick() : End If
        If H(111) = True Then : 介面 = "H111" : 合約保固書.語轉扭_bt.PerformClick() : End If : If H(112) = True Then : 介面 = "H112" : 合約文件簽回存檔.語轉扭_bt.PerformClick() : End If
        If H(113) = True Then : 介面 = "H113" : 合約文件簽核控制表.語轉扭_bt.PerformClick() : End If : If H(114) = True Then : 介面 = "H114" : 合約結案控制表.語轉扭_bt.PerformClick() : End If
        If H(115) = True Then : 介面 = "H115" : 工程項目BOM表.語轉扭_bt.PerformClick() : End If : If H(116) = True Then : 介面 = "H116" : 合約文本_Word.語轉扭_bt.PerformClick() : End If
        'H107 合約本文 
        '-------------------------------H2系列-採購---------------------------------------------------------------------------------------------------------------------------------------
        If H(201) = True Then : 介面 = "H201" : 請購單申請.語轉扭_bt.PerformClick() : End If : If H(202) = True Then : 介面 = "H202" : 請購單核准.語轉扭_bt.PerformClick() : End If
        If H(203) = True Then : 介面 = "H203" : 請購單歷史檔案.語轉扭_bt.PerformClick() : End If : If H(204) = True Then : 介面 = "H204" : 採購單詢價.語轉扭_bt.PerformClick() : End If
        If H(205) = True Then : 介面 = "H205" : 採購單編輯.語轉扭_bt.PerformClick() : End If : If H(206) = True Then : 介面 = "H206" : 採購單一級核准.語轉扭_bt.PerformClick() : End If
        If H(207) = True Then : 介面 = "H207" : 採購單二級核准.語轉扭_bt.PerformClick() : End If : If H(208) = True Then : 介面 = "H208" : 採購單歷史檔案.語轉扭_bt.PerformClick() : End If
        If H(209) = True Then : 介面 = "H209" : 採購單驗收.語轉扭_bt.PerformClick() : End If : If H(220) = True Then : 介面 = "H220" : 採購轉財物支付單.語轉扭_bt.PerformClick() : End If
        If H(215) = True Then : 介面 = "H215" : 樣品採購單一級核准.語轉扭_bt.PerformClick() : End If
        If H(216) = True Then : 介面 = "H216" : 樣品採購單二級核准.語轉扭_bt.PerformClick() : End If : If H(217) = True Then : 介面 = "H217" : 樣品採購單歷史檔案.語轉扭_bt.PerformClick() : End If
        If H(218) = True Then : 介面 = "H218" : 樣品採購單驗收.語轉扭_bt.PerformClick() : End If
        If H(211) = True Then : 介面 = "H211" : 物料採購統計表.語轉扭_bt.PerformClick() : End If
        If H(212) = True Then : 介面 = "H212" : 供應商商品單價設定.語轉扭_bt.PerformClick() : End If : If H(213) = True Then : 介面 = "H213" : 供應商類別管理.語轉扭_bt.PerformClick() : End If
        If H(214) = True Then : 介面 = "H214" : 電信費追加申請.語轉扭_bt.PerformClick() : End If
        If H(299) = True Then : 介面 = "H299" : 供應商管理.語轉扭_bt.PerformClick() : End If
        '-------------------------------H3系統-財務---------------------------------------------------------------------------------------------------------------------------------------
        If H(301) = True Then : 介面 = "H301" : 財務收支單申請.語轉扭_bt.PerformClick() : End If : If H(302) = True Then : 介面 = "H302" : 財務收支單審核.語轉扭_bt.PerformClick() : End If
        If H(303) = True Then : 介面 = "H303" : 財務收支單一覽表.語轉扭_bt.PerformClick() : 財務收支單對帳表.語轉扭_bt.PerformClick() : End If : If H(304) = True Then : 介面 = "H304" : 特支費申請.語轉扭_bt.PerformClick() : End If
        If H(305) = True Then : 介面 = "H305" : 會計帳務沖銷.語轉扭_bt.PerformClick() : End If : If H(306) = True Then : 介面 = "H306" : 匯率管理.語轉扭_bt.PerformClick() : End If
        If H(307) = True Then : 介面 = "H307" : 會計科目管理.語轉扭_bt.PerformClick() : End If : If H(308) = True Then : 介面 = "H308" : 特支費高層指定.語轉扭_bt.PerformClick() : End If
        If H(309) = True Then : 介面 = "H309" : 收款確認表.語轉扭_bt.PerformClick() : End If : If H(310) = True Then : 介面 = "H310" : 收款狀態報表.語轉扭_bt.PerformClick() : End If
        If H(311) = True Then : 介面 = "H311" : 採購單付款確認.語轉扭_bt.PerformClick() : End If : If H(312) = True Then : 介面 = "H312" : 採購付款狀態報表.語轉扭_bt.PerformClick() : End If
        If H(314) = True Then : 介面 = "H314" : 財物支付單申請_傳票.語轉扭_bt.PerformClick() : End If : If H(315) = True Then : 介面 = "H315" : 特支費審核.語轉扭_bt.PerformClick() : End If
        If H(317) = True Then : 介面 = "H317" : 財務支付單_最高主管審核.語轉扭_bt.PerformClick() : End If : If H(318) = True Then : 介面 = "H318" : 應付款日報表.語轉扭_bt.PerformClick() : End If
        If H(319) = True Then : 介面 = "H319" : 應付款月報表.語轉扭_bt.PerformClick() : End If
        If H(316) = True Then : 介面 = "H316" : End If : If H(313) = True Then : 介面 = " H313" : 財務收支決算表.語轉扭_bt.PerformClick() : End If
        'H316 零用金冲帳年報
        '-------------------------------H4系統-工程---------------------------------------------------------------------------------------------------------------------------------------
        If H(401) = True Then : 介面 = "H401" : 新甘特圖模板.語轉扭_bt.PerformClick() : End If : If H(402) = True Then : 介面 = "H402" : 客戶資料表.語轉扭_bt.PerformClick() : End If
        If H(405) = True Then : 介面 = "H405" : 派工人數紀錄表.語轉扭_bt.PerformClick() : End If : If H(406) = True Then : 介面 = "H406" : 工程日報表.語轉扭_bt.PerformClick() : End If
        If H(407) = True Then : 介面 = "H407" : 工程材料表.語轉扭_bt.PerformClick() : End If
        'H404 工程日報表審核  H403  工程日報表編輯
        '-------------------------------H5系列-倉儲---------------------------------------------------------------------------------------------------------------------------------------
        If H(501) = True Then : 介面 = "H501" : 倉儲控制表.語轉扭_bt.PerformClick() : End If : If H(502) = True Then : 介面 = "H502" : 倉儲入庫驗收.語轉扭_bt.PerformClick() : End If
        If H(503) = True Then : 介面 = "H503" : 物料轉倉申請.語轉扭_bt.PerformClick() : End If : If H(504) = True Then : 介面 = "H504" : 物料轉倉審核.語轉扭_bt.PerformClick() : End If
        If H(505) = True Then : 介面 = "H505" : 物料轉倉出庫.語轉扭_bt.PerformClick() : End If : If H(506) = True Then : 介面 = "H506" : 倉儲領料申請.語轉扭_bt.PerformClick() : End If
        If H(507) = True Then : 介面 = "H507" : 倉儲領料審核.語轉扭_bt.PerformClick() : End If : If H(508) = True Then : 介面 = "H508" : 倉儲領料出庫.語轉扭_bt.PerformClick() : End If
        If H(509) = True Then : 介面 = "H509" : 倉儲入庫申請.語轉扭_bt.PerformClick() : End If : If H(510) = True Then : 介面 = "H510" : 倉儲單據狀態看板.語轉扭_bt.PerformClick() : End If
        If H(511) = True Then : 介面 = "H511" : 盤盈盤損申請.語轉扭_bt.PerformClick() : End If : If H(512) = True Then : 介面 = "H512" : 盤盈盤損審核.語轉扭_bt.PerformClick() : End If
        If H(527) = True Then : 介面 = "H527" : 物料資料庫.語轉扭_bt.PerformClick() : End If : If H(528) = True Then : 介面 = "H528" : 倉儲分區控制表.語轉扭_bt.PerformClick() : End If
        If H(530) = True Then : 介面 = "H530" : 倉儲分區控制表.語轉扭_bt.PerformClick() : End If
        'H529 倉儲分區選擇 
        '-------------------------------H6系列-人事---------------------------------------------------------------------------------------------------------------------------------------
        If H(601) = True Then : 介面 = "H601" : 人員ID卡系統配置設定.語轉扭_bt.PerformClick() : End If : If H(605) = True Then : 介面 = "H605" : LINE_權限一覽表.語轉扭_bt.PerformClick() : End If
        If H(602) = True Then : 介面 = "H602" : 系統組織結構與權限設定.語轉扭_bt.PerformClick() : End If : If H(606) = True Then : 介面 = "H606" : LINE_通知測試表.語轉扭_bt.PerformClick() : End If
        If H(604) = True Then : 介面 = "H604" : LINE_使用者管理表.語轉扭_bt.PerformClick() : End If : If H(603) = True Then : 介面 = "H603" : 公司組織結構.語轉扭_bt.PerformClick() : End If
        If H(607) = True Then : 介面 = "H607" : 人員基本資料.語轉扭_bt.PerformClick() : End If : If H(608) = True Then : 介面 = "H608" : End If
        If H(609) = True Then : 介面 = "H609" : 考勤明細表.語轉扭_bt.PerformClick() : End If : If H(610) = True Then : 介面 = "H610" : 臨時工卡片管理.語轉扭_bt.PerformClick() : End If
        If H(611) = True Then : 介面 = "H611" : 人員薪資.語轉扭_bt.PerformClick() : End If : If H(613) = True Then : 介面 = "H613" : 門禁權限管理.語轉扭_bt.PerformClick() : End If
        If H(614) = True Then : 介面 = "H614" : 請假資料確認.語轉扭_bt.PerformClick() : End If : If H(612) = True Then : 介面 = "H612" : End If
        If H(615) = True Then : 介面 = "H615" : 排班資料.語轉扭_bt.PerformClick() : End If : If H(616) = True Then : 介面 = "H616" : 車輛管理.語轉扭_bt.PerformClick() : End If
        'H608 考勤打卡  H612 每月零用金設定
        '-------------------------------H7系列-系統---------------------------------------------------------------------------------------------------------------------------------------
        If H(703) = True Then : 介面 = "H703" : 部門權限設定.語轉扭_bt.PerformClick() : End If : If H(704) = True Then : 介面 = "H704" : 系統通用變數管理.語轉扭_bt.PerformClick() : End If
        If H(711) = True Then : 介面 = "H711" : 簽名檔管理.語轉扭_bt.PerformClick() : End If : If H(706) = True Then : 介面 = "H706" : 系統編碼規則.語轉扭_bt.PerformClick() : End If
        If H(710) = True Then : 介面 = "H710" : 門禁系統設定.語轉扭_bt.PerformClick() : End If
        '-------------------------------H9系列-管理---------------------------------------------------------------------------------------------------------------------------------------
        If H(901) = True Then : 介面 = "H901" : 公告管理.語轉扭_bt.PerformClick() : End If : If H(902) = True Then : 介面 = "H902" : 會議記錄.語轉扭_bt.PerformClick() : End If
        If H(903) = True Then : 介面 = "H903" : 系統使用說明.語轉扭_bt.PerformClick() : End If : If H(904) = True Then : 介面 = "H904" : 部門聯絡函一覽表.語轉扭_bt.PerformClick() : End If
        If H(905) = True Then : 介面 = "H905" : 部門聯絡函申請.語轉扭_bt.PerformClick() : End If : If H(906) = True Then : 介面 = "H906" : 聯絡函部門主管審核.語轉扭_bt.PerformClick() : End If
        If H(907) = True Then : 介面 = "H907" : 聯絡函最高主管核准.語轉扭_bt.PerformClick() : End If : If H(907) = True Then : 介面 = "H908" : 安培容量計算.語轉扭_bt.PerformClick() : End If
        If H(909) = True Then : 介面 = "H909" : 管徑_流速_流量計算器.語轉扭_bt.PerformClick() : End If

        Access1.Close() : 桌面通知_pl.Visible = False
        Dim childForms() As Form = Me.MdiChildren : If childForms.Length = 0 Then : UI優化_P.Visible = True : Else : UI優化_P.Visible = False : End If
        不變形 = False : 計算分流1.Enabled = True
    End Sub
    Private Sub 桌面捷徑翻頁()
        If 總務 = False And 業務 = False And 採購 = False And 工程 = False And 倉儲 = False And 財務 = False And 人事 = False Then : 虛擬桌_pl.BringToFront()
        ElseIf 總務 = True And 業務 = False And 採購 = False And 工程 = False And 倉儲 = False And 財務 = False And 人事 = False Then : 虛擬桌_總務_pl.BringToFront()
        ElseIf 總務 = False And 業務 = True And 採購 = False And 工程 = False And 倉儲 = False And 財務 = False And 人事 = False Then : 虛擬桌_業務_pl.BringToFront()
        ElseIf 總務 = False And 業務 = False And 採購 = True And 工程 = False And 倉儲 = False And 財務 = False And 人事 = False Then : 虛擬桌_採購_pl.BringToFront()
        ElseIf 總務 = False And 業務 = False And 採購 = False And 工程 = True And 倉儲 = False And 財務 = False And 人事 = False Then : 虛擬桌_工程_pl.BringToFront()
        ElseIf 總務 = False And 業務 = False And 採購 = False And 工程 = False And 倉儲 = True And 財務 = False And 人事 = False Then : 虛擬桌_倉儲_pl.BringToFront()
        ElseIf 總務 = False And 業務 = False And 採購 = False And 工程 = False And 倉儲 = False And 財務 = True And 人事 = False Then : 虛擬桌_財務_pl.BringToFront()
        ElseIf 總務 = False And 業務 = False And 採購 = False And 工程 = False And 倉儲 = False And 財務 = False And 人事 = True Then : 虛擬桌_人事_pl.BringToFront()
        End If
    End Sub
    Private Sub 虛擬桌面隱藏()
        大框_sc.Visible = False
    End Sub
    '------------------------檔案-------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 個人帳號管理_tsm_Click(sender As Object, e As EventArgs) Handles 個人帳號管理_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重登計時() : 重置() : 個人帳號管理.ShowDialog() : 個人帳號管理.BringToFront()
    End Sub
    '------------------------簡易功能-------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 簡易功能_tsm_Click(sender As Object, e As EventArgs) Handles 總務系統管理_tsm.Click
        總務 = True : 業務 = False : 採購 = False : 工程 = False : 倉儲 = False : 財務 = False : 人事 = False : 桌面捷徑翻頁() : 總務捷徑繪製()
    End Sub
    Private Sub 投訴信箱_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 投訴信箱_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 投訴信箱_tsm.Checked = Not 投訴信箱_tsm.Checked : End If : 總務捷徑繪製()
    End Sub
    Private Sub 投訴信箱_tsm_Click(sender As Object, e As EventArgs) Handles 投訴信箱_tsm.Click
        H(4) = True : 介面 = "H004" : WEB說明頁面.ShowDialog()
    End Sub
    Private Sub 投訴信箱_pb_Click(sender As Object, e As EventArgs) Handles 投訴信箱_pb.Click
        投訴信箱_tsm.PerformClick()
    End Sub
    Private Sub 投訴信箱_lb_Click(sender As Object, e As EventArgs) Handles 投訴信箱_lb.Click
        投訴信箱_tsm.PerformClick()
    End Sub
    Private Sub 會議記錄_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 會議記錄_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 會議記錄_tsm.Checked = Not 會議記錄_tsm.Checked : End If : 總務捷徑繪製()
    End Sub
    Private Sub 會議記錄ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 會議記錄_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 會議記錄.Show() : 會議記錄.BringToFront()
    End Sub
    Private Sub 會議記錄_pb_Click(sender As Object, e As EventArgs) Handles 會議記錄_pb.Click
        會議記錄_tsm.PerformClick()
    End Sub
    Private Sub 會議記錄_lb_Click(sender As Object, e As EventArgs) Handles 會議記錄_lb.Click
        會議記錄_tsm.PerformClick()
    End Sub
    Private Sub 部門聯絡函一覽表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 部門聯絡函一覽表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 部門聯絡函一覽表_tsm.Checked = Not 部門聯絡函一覽表_tsm.Checked : End If : 總務捷徑繪製()
    End Sub
    Private Sub 部門聯絡函一覽表_tsm_Click(sender As Object, e As EventArgs) Handles 部門聯絡函一覽表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 部門聯絡函一覽表.Show() : 部門聯絡函一覽表.BringToFront()
    End Sub
    Private Sub 部門聯絡函一覽表_pb_Click(sender As Object, e As EventArgs) Handles 部門聯絡函一覽表_pb.Click
        部門聯絡函一覽表_tsm.PerformClick()
    End Sub
    Private Sub 部門聯絡函一覽表_lb_Click(sender As Object, e As EventArgs) Handles 部門聯絡函一覽表_lb.Click
        部門聯絡函一覽表_tsm.PerformClick()
    End Sub
    Private Sub 部門聯絡函申請_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 部門聯絡函申請_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 部門聯絡函申請_tsm.Checked = Not 部門聯絡函申請_tsm.Checked : End If : 總務捷徑繪製()
    End Sub
    Private Sub 部門聯絡函申請_tsm_Click(sender As Object, e As EventArgs) Handles 部門聯絡函申請_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 跨部門開啟 = False
        虛擬桌面隱藏() : 重登計時() : 重置() : 部門聯絡函申請.Show() : 部門聯絡函申請.BringToFront()
    End Sub
    Private Sub 部門聯絡函申請_pb_Click(sender As Object, e As EventArgs) Handles 部門聯絡函申請_pb.Click
        部門聯絡函申請_tsm.PerformClick()
    End Sub
    Private Sub 部門聯絡函申請_lb_Click(sender As Object, e As EventArgs) Handles 部門聯絡函申請_lb.Click
        部門聯絡函申請_tsm.PerformClick()
    End Sub
    Private Sub 聯絡函部門主管審核_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 聯絡函部門主管審核_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 聯絡函部門主管審核_tsm.Checked = Not 聯絡函部門主管審核_tsm.Checked : End If : 總務捷徑繪製()
    End Sub
    Private Sub 部門聯絡函部門主管審核_tsm_Click(sender As Object, e As EventArgs) Handles 聯絡函部門主管審核_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 聯絡函部門主管審核.Show() : 聯絡函部門主管審核.BringToFront()
    End Sub
    Private Sub 部門聯絡函部門主管審核_pb_Click(sender As Object, e As EventArgs) Handles 聯絡函部門主管審核_pb.Click
        聯絡函部門主管審核_tsm.PerformClick()
    End Sub
    Private Sub 部門聯絡函部門主管審核_lb_Click(sender As Object, e As EventArgs) Handles 聯絡函部門主管審核_lb.Click
        聯絡函部門主管審核_tsm.PerformClick()
    End Sub
    Private Sub 聯絡函最高主管核准_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 聯絡函最高主管核准_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 聯絡函最高主管核准_tsm.Checked = Not 聯絡函最高主管核准_tsm.Checked : End If : 總務捷徑繪製()
    End Sub
    Private Sub 聯絡函最高主管核准_tsm_Click(sender As Object, e As EventArgs) Handles 聯絡函最高主管核准_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 聯絡函最高主管核准.Show() : 聯絡函最高主管核准.BringToFront()
    End Sub
    Private Sub 聯絡函最高主管核准_pb_Click(sender As Object, e As EventArgs) Handles 聯絡函最高主管核准_pb.Click
        聯絡函最高主管核准_tsm.PerformClick()
    End Sub
    Private Sub 聯絡函最高主管核准_lb_Click(sender As Object, e As EventArgs) Handles 聯絡函最高主管核准_lb.Click
        聯絡函最高主管核准_tsm.PerformClick()
    End Sub
    Private Sub 車輛管理_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 車輛管理_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 車輛管理_tsm.Checked = Not 車輛管理_tsm.Checked : End If : 總務捷徑繪製()
    End Sub
    Private Sub 車輛管理_tsm_Click(sender As Object, e As EventArgs) Handles 車輛管理_tsm.Click
        重登計時() : 重置() : 車輛管理.ShowDialog() : 車輛管理.BringToFront()
    End Sub
    Private Sub 車輛管理_pb_Click(sender As Object, e As EventArgs) Handles 車輛管理_pb.Click
        車輛管理_tsm.PerformClick()
    End Sub
    Private Sub 車輛管理_lb_Click(sender As Object, e As EventArgs) Handles 車輛管理_lb.Click
        車輛管理_tsm.PerformClick()
    End Sub
    Private Sub 文件伺服器_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 文件伺服器_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 文件伺服器_tsm.Checked = Not 文件伺服器_tsm.Checked : End If : 總務捷徑繪製()
    End Sub
    Private Sub 文件伺服器_tsm_Click(sender As Object, e As EventArgs) Handles 文件伺服器_tsm.Click
        Process.Start("https://quickconnect.to/HX-PGS-NAS")
    End Sub
    Private Sub 文件伺服器_pb_Click(sender As Object, e As EventArgs) Handles 文件伺服器_pb.Click
        文件伺服器_tsm.PerformClick()
    End Sub
    Private Sub 文件伺服器_lb_Click(sender As Object, e As EventArgs) Handles 文件伺服器_lb.Click
        文件伺服器_tsm.PerformClick()
    End Sub
    Private Sub 系統使用說明_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 系統使用說明_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 系統使用說明_tsm.Checked = Not 系統使用說明_tsm.Checked : End If : 總務捷徑繪製()
    End Sub
    Private Sub 系統使用說明_tsm_Click(sender As Object, e As EventArgs) Handles 系統使用說明_tsm.Click
        If 系統語言 = "繁體中文" Then : 介面 = "H000" : WEB說明頁面.Show() 'Process.Start("https://gcm-smart.com/2024/04/11/hx-erp-sop-index-t/")
        ElseIf 系統語言 <> "繁體中文" Then : 介面 = "H000" : WEB說明頁面.Show() 'Process.Start("https://gcm-smart.com/2024/04/11/hx-erp-sop-index-i/") :
        End If
    End Sub
    Private Sub 系統使用說明_pb_Click(sender As Object, e As EventArgs) Handles 系統使用說明_pb.Click
        系統使用說明_tsm.PerformClick()
    End Sub
    Private Sub 系統使用說明_lb_Click(sender As Object, e As EventArgs) Handles 系統使用說明_lb.Click
        系統使用說明_tsm.PerformClick()
    End Sub
    Private Sub 公告管理_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 公告管理_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 公告管理_tsm.Checked = Not 公告管理_tsm.Checked : End If : 總務捷徑繪製()
    End Sub
    Private Sub 公告管理_tsm_Click(sender As Object, e As EventArgs) Handles 公告管理_tsm.Click
        重登計時() : 重置() : 公告管理.ShowDialog() : 公告管理.BringToFront()
    End Sub
    Private Sub 公告管理_pb_Click(sender As Object, e As EventArgs) Handles 公告管理_pb.Click
        公告管理_tsm.PerformClick()
    End Sub
    Private Sub 公告管理_lb_Click(sender As Object, e As EventArgs) Handles 公告管理_lb.Click
        公告管理_tsm.PerformClick()
    End Sub

    Private Sub 管徑流速流量計算器_tsm_Click(sender As Object, e As EventArgs) Handles 管徑流速流量計算器_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重登計時() : 重置() : 管徑_流速_流量計算器.ShowDialog() : 管徑_流速_流量計算器.BringToFront()
    End Sub
    Private Sub 安培容量計算表_tsm_Click(sender As Object, e As EventArgs) Handles 安培容量計算表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重登計時() : 重置() : 安培容量計算.ShowDialog() : 安培容量計算.BringToFront()
    End Sub

    '------------------------業務系統管理-------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 業務系統管理_tsm_Click(sender As Object, e As EventArgs) Handles 業務系統管理_tsm.Click
        總務 = False : 業務 = True : 採購 = False : 工程 = False : 倉儲 = False : 財務 = False : 人事 = False : 桌面捷徑翻頁() : 業務捷徑繪製()
    End Sub
    Private Sub 合約執行進度_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約執行進度_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 合約執行進度_tsm.Checked = Not 合約執行進度_tsm.Checked : End If : 業務捷徑繪製()
    End Sub
    Private Sub 合約執行進度_tsm_Click(sender As Object, e As EventArgs) Handles 合約執行進度_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 合約執行進度.Show() : 合約執行進度.BringToFront()
    End Sub
    Private Sub 合約執行進度_pb_Click(sender As Object, e As EventArgs) Handles 合約執行進度_pb.Click
        合約執行進度_tsm.PerformClick()
    End Sub
    Private Sub 合約執行進度_lb_Click(sender As Object, e As EventArgs) Handles 合約執行進度_lb.Click
        合約執行進度_tsm.PerformClick()
    End Sub
    Private Sub 合約利潤預估表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約利潤預估表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 合約利潤預估表_tsm.Checked = Not 合約利潤預估表_tsm.Checked : End If : 業務捷徑繪製()
    End Sub
    Private Sub 合約利潤預估表_tsm_Click(sender As Object, e As EventArgs) Handles 合約利潤預估表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 合約利潤預估表.Show() : 合約利潤預估表.BringToFront()
    End Sub
    Private Sub 合約利潤預估表_pb_Click(sender As Object, e As EventArgs) Handles 合約利潤預估表_pb.Click
        合約利潤預估表_tsm.PerformClick()
    End Sub
    Private Sub 合約利潤預估表_lb_Click(sender As Object, e As EventArgs) Handles 合約利潤預估表_lb.Click
        合約利潤預估表_tsm.PerformClick()
    End Sub
    Private Sub 合約報價單_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約報價單_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 合約報價單_tsm.Checked = Not 合約報價單_tsm.Checked : End If : 業務捷徑繪製()
    End Sub
    Private Sub 合約報價單_tsm_Click(sender As Object, e As EventArgs) Handles 合約報價單_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 合約報價單.Show() : 合約報價單.BringToFront()
    End Sub
    Private Sub 合約報價單_pb_Click(sender As Object, e As EventArgs) Handles 合約報價單_pb.Click
        合約報價單_tsm.PerformClick()
    End Sub
    Private Sub 合約報價單_lb_Click(sender As Object, e As EventArgs) Handles 合約報價單_lb.Click
        合約報價單_tsm.PerformClick()
    End Sub
    Private Sub 合約報價單審核_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約報價單審核_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 合約報價單審核_tsm.Checked = Not 合約報價單審核_tsm.Checked : End If : 業務捷徑繪製()
    End Sub
    Private Sub 合約報價單審核_tsm_Click(sender As Object, e As EventArgs) Handles 合約報價單審核_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 合約報價單審核.Show() : 合約報價單審核.BringToFront()
    End Sub
    Private Sub 合約報價單審核_pb_Click(sender As Object, e As EventArgs) Handles 合約報價單審核_pb.Click
        合約報價單審核_tsm.PerformClick()
    End Sub
    Private Sub 合約報價單審核_lb_Click(sender As Object, e As EventArgs) Handles 合約報價單審核_lb.Click
        合約報價單審核_tsm.PerformClick()
    End Sub
    Private Sub 合約本文_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約本文_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 合約本文_tsm.Checked = Not 合約本文_tsm.Checked : End If : 業務捷徑繪製()
    End Sub
    Private Sub 合約本文_tsm_Click(sender As Object, e As EventArgs) Handles 合約本文_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 合約文本_Word.Show() : 合約文本_Word.BringToFront()
    End Sub
    Private Sub 合約本文_pb_Click(sender As Object, e As EventArgs) Handles 合約本文_pb.Click
        合約本文_tsm.PerformClick()
    End Sub
    Private Sub 合約本文_lb_Click(sender As Object, e As EventArgs) Handles 合約本文_lb.Click
        合約本文_tsm.PerformClick()
    End Sub
    Private Sub 附錄合約_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 附錄合約_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 附錄合約_tsm.Checked = Not 附錄合約_tsm.Checked : End If : 業務捷徑繪製()
    End Sub
    Private Sub 附錄合約_tsm_Click(sender As Object, e As EventArgs) Handles 附錄合約_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重登計時() : 重置() : 附錄合約.ShowDialog() : 附錄合約.BringToFront()
    End Sub
    Private Sub 附錄合約_pb_Click(sender As Object, e As EventArgs) Handles 附錄合約_pb.Click
        附錄合約_tsm.PerformClick()
    End Sub
    Private Sub 附錄合約_lb_Click(sender As Object, e As EventArgs) Handles 附錄合約_lb.Click
        附錄合約_tsm.PerformClick()
    End Sub
    Private Sub 合約請款控制表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約請款控制表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 合約請款控制表_tsm.Checked = Not 合約請款控制表_tsm.Checked : End If : 業務捷徑繪製()
    End Sub
    Private Sub 合約請款控制表_tsm_Click(sender As Object, e As EventArgs) Handles 合約請款控制表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 合約請款控制表.Show() : 合約請款控制表.BringToFront()
    End Sub
    Private Sub 合約請款控制表_pb_Click(sender As Object, e As EventArgs) Handles 合約請款控制表_pb.Click
        合約請款控制表_tsm.PerformClick()
    End Sub
    Private Sub 合約請款控制表_lb_Click(sender As Object, e As EventArgs) Handles 合約請款控制表_lb.Click
        合約請款控制表_tsm.PerformClick()
    End Sub
    Private Sub 合約請款單_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約請款單_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 合約請款單_tsm.Checked = Not 合約請款單_tsm.Checked : End If : 業務捷徑繪製()
    End Sub
    Private Sub 合約請款單_tsm_Click(sender As Object, e As EventArgs) Handles 合約請款單_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 合約請款單.Show() : 合約請款單.BringToFront()
    End Sub
    Private Sub 合約請款單_pb_Click(sender As Object, e As EventArgs) Handles 合約請款單_pb.Click
        合約請款單_tsm.PerformClick()
    End Sub
    Private Sub 合約請款單_lb_Click(sender As Object, e As EventArgs) Handles 合約請款單_lb.Click
        合約請款單_tsm.PerformClick()
    End Sub
    Private Sub 合約驗收控制表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約驗收控制表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 合約驗收控制表_tsm.Checked = Not 合約驗收控制表_tsm.Checked : End If : 業務捷徑繪製()
    End Sub
    Private Sub 合約驗收控制表_tsm_Click(sender As Object, e As EventArgs) Handles 合約驗收控制表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 系統分區控制 = True : 合約驗收控制表.Show() : 合約驗收控制表.BringToFront()
    End Sub
    Private Sub 合約驗收控制表_pb_Click(sender As Object, e As EventArgs) Handles 合約驗收控制表_pb.Click
        合約驗收控制表_tsm.PerformClick()
    End Sub
    Private Sub 合約驗收控制表_lb_Click(sender As Object, e As EventArgs) Handles 合約驗收控制表_lb.Click
        合約驗收控制表_tsm.PerformClick()
    End Sub
    Private Sub 合約驗收單_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約驗收單_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 合約驗收單_tsm.Checked = Not 合約驗收單_tsm.Checked : End If : 業務捷徑繪製()
    End Sub
    Private Sub 合約驗收單_tsm_Click(sender As Object, e As EventArgs) Handles 合約驗收單_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 系統分區控制 = True : 合約驗收單.Show() : 合約驗收單.BringToFront()
    End Sub
    Private Sub 合約驗收單_pb_Click(sender As Object, e As EventArgs) Handles 合約驗收單_pb.Click
        合約驗收單_tsm.PerformClick()
    End Sub
    Private Sub 合約驗收單_lb_Click(sender As Object, e As EventArgs) Handles 合約驗收單_lb.Click
        合約驗收單_tsm.PerformClick()
    End Sub
    Private Sub 合約保固書_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約保固書_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 合約保固書_tsm.Checked = Not 合約保固書_tsm.Checked : End If : 業務捷徑繪製()
    End Sub
    Private Sub 合約保固書_tsm_Click(sender As Object, e As EventArgs) Handles 合約保固書_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重登計時() : 重置() : 合約保固書.ShowDialog() : 合約保固書.BringToFront()
    End Sub
    Private Sub 合約保固書_pb_Click(sender As Object, e As EventArgs) Handles 合約保固書_pb.Click
        合約保固書_tsm.PerformClick()
    End Sub
    Private Sub 合約保固書_lb_Click(sender As Object, e As EventArgs) Handles 合約保固書_lb.Click
        合約保固書_tsm.PerformClick()
    End Sub
    Private Sub 合約文件簽回存檔_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約文件簽回存檔_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 合約文件簽回存檔_tsm.Checked = Not 合約文件簽回存檔_tsm.Checked : End If : 業務捷徑繪製()
    End Sub
    Private Sub 合約文件簽回存檔_tsm_Click(sender As Object, e As EventArgs) Handles 合約文件簽回存檔_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 合約文件簽回存檔.Show() : 合約文件簽回存檔.BringToFront()
    End Sub
    Private Sub 合約文件簽回存檔_pb_Click(sender As Object, e As EventArgs) Handles 合約文件簽回存檔_pb.Click
        合約文件簽回存檔_tsm.PerformClick()
    End Sub
    Private Sub 合約文件簽回存檔_lb_Click(sender As Object, e As EventArgs) Handles 合約文件簽回存檔_lb.Click
        合約文件簽回存檔_tsm.PerformClick()
    End Sub
    Private Sub 合約文件簽核控制表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約文件簽核控制表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 合約文件簽核控制表_tsm.Checked = Not 合約文件簽核控制表_tsm.Checked : End If : 業務捷徑繪製()
    End Sub
    Private Sub 合約文件簽核控制表_tsm_Click(sender As Object, e As EventArgs) Handles 合約文件簽核控制表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 合約文件簽核控制表.Show() : 合約文件簽核控制表.BringToFront()
    End Sub
    Private Sub 合約文件簽核控制表_pb_Click(sender As Object, e As EventArgs) Handles 合約文件簽核控制表_pb.Click
        合約文件簽核控制表_tsm.PerformClick()
    End Sub
    Private Sub 合約文件簽核控制表_lb_Click(sender As Object, e As EventArgs) Handles 合約文件簽核控制表_lb.Click
        合約文件簽核控制表_tsm.PerformClick()
    End Sub
    Private Sub 合約結案控制表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約結案控制表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 合約結案控制表_tsm.Checked = Not 合約結案控制表_tsm.Checked : End If : 業務捷徑繪製()
    End Sub
    Private Sub 合約結案控制表_tsm_Click(sender As Object, e As EventArgs) Handles 合約結案控制表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 系統分區控制 = True : 合約結案控制表.Show() : 合約結案控制表.BringToFront()
    End Sub
    Private Sub 合約結案控制表_pb_Click(sender As Object, e As EventArgs) Handles 合約結案控制表_pb.Click
        合約結案控制表_tsm.PerformClick()
    End Sub
    Private Sub 合約結案控制表_lb_Click(sender As Object, e As EventArgs) Handles 合約結案控制表_lb.Click
        合約結案控制表_tsm.PerformClick()
    End Sub
    Private Sub 合約工程圖庫管理_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約工程圖庫管理_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 合約工程圖庫管理_tsm.Checked = Not 合約工程圖庫管理_tsm.Checked : End If : 業務捷徑繪製()
    End Sub
    Private Sub 合約工程圖庫管理_tsm_Click(sender As Object, e As EventArgs) Handles 合約工程圖庫管理_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 合約文件圖庫管理.Show() : 合約文件圖庫管理.BringToFront()
    End Sub
    Private Sub 合約工程圖庫管理_pb_Click(sender As Object, e As EventArgs) Handles 合約工程圖庫管理_pb.Click
        合約工程圖庫管理_tsm.PerformClick()
    End Sub
    Private Sub 合約工程圖庫管理_lb_Click(sender As Object, e As EventArgs) Handles 合約工程圖庫管理_lb.Click
        合約工程圖庫管理_tsm.PerformClick()
    End Sub
    Private Sub 工程項目BOM表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 工程項目BOM表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 工程項目BOM表_tsm.Checked = Not 工程項目BOM表_tsm.Checked : End If : 業務捷徑繪製()
    End Sub
    Private Sub 工程項目BOM表_tsm_Click(sender As Object, e As EventArgs) Handles 工程項目BOM表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 工程項目BOM表.Show() : 工程項目BOM表.BringToFront()
    End Sub
    Private Sub 工程項目BOM表_pb_Click(sender As Object, e As EventArgs) Handles 工程項目BOM表_pb.Click
        工程項目BOM表_tsm.PerformClick()
    End Sub
    Private Sub 工程項目BOM表_lb_Click(sender As Object, e As EventArgs) Handles 工程項目BOM表_lb.Click
        工程項目BOM表_tsm.PerformClick()
    End Sub
    Private Sub 客戶資料表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 客戶資料表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 客戶資料表_tsm.Checked = Not 客戶資料表_tsm.Checked : End If : 業務捷徑繪製()
    End Sub
    Private Sub 客戶資料表_tsm_Click(sender As Object, e As EventArgs) Handles 客戶資料表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 客戶資料表.Show() : 客戶資料表.BringToFront()
    End Sub
    Private Sub 客戶資料表_pb_Click(sender As Object, e As EventArgs) Handles 客戶資料表_pb.Click
        客戶資料表_tsm.PerformClick()
    End Sub
    Private Sub 客戶資料表_lb_Click(sender As Object, e As EventArgs) Handles 客戶資料表_lb.Click
        客戶資料表_tsm.PerformClick()
    End Sub
    Private Sub 工程分區控制表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 工程分區控制表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 工程分區控制表_tsm.Checked = Not 工程分區控制表_tsm.Checked : End If : 業務捷徑繪製()
    End Sub
    Private Sub 工程分區控制表_tsm_Click(sender As Object, e As EventArgs) Handles 工程分區控制表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 系統分區控制 = True : 倉儲分區控制表.Show() : 倉儲分區控制表.BringToFront()
    End Sub
    Private Sub 工程分區控制表_pb_Click(sender As Object, e As EventArgs) Handles 工程分區控制表_pb.Click
        工程分區控制表_tsm.PerformClick()
    End Sub
    Private Sub 工程分區控制表_lb_Click(sender As Object, e As EventArgs) Handles 工程分區控制表_lb.Click
        工程分區控制表_tsm.PerformClick()
    End Sub
    Private Sub 合約模組設定_tsm_Click(sender As Object, e As EventArgs) Handles 合約模組設定_tsm.Click
    End Sub

    '------------------------採購系統管理-------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 採購系統管理_tsm_Click(sender As Object, e As EventArgs) Handles 採購系統管理_tsm.Click
        總務 = False : 業務 = False : 採購 = True : 工程 = False : 倉儲 = False : 財務 = False : 人事 = False : 桌面捷徑翻頁() : 請採購捷徑繪製()
    End Sub
    Private Sub 電信費追加申請_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 電信費追加申請_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 電信費追加申請_tsm.Checked = Not 電信費追加申請_tsm.Checked : End If : 請採購捷徑繪製()
    End Sub
    Private Sub 電信費追加申請_tsm_Click(sender As Object, e As EventArgs) Handles 電信費追加申請_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重登計時() : 重置() : 電信費追加申請.Show() : 電信費追加申請.BringToFront()
    End Sub
    Private Sub 電信費追加申請_pb_Click(sender As Object, e As EventArgs) Handles 電信費追加申請_pb.Click
        電信費追加申請_tsm.PerformClick()
    End Sub
    Private Sub 電信費追加申請_lb_Click(sender As Object, e As EventArgs) Handles 電信費追加申請_lb.Click
        電信費追加申請_tsm.PerformClick()
    End Sub
    Private Sub 電信費追加執行_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 電信費追加執行_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 電信費追加執行_tsm.Checked = Not 電信費追加執行_tsm.Checked : End If : 請採購捷徑繪製()
    End Sub
    Private Sub 電信費追加執行_tsm_Click(sender As Object, e As EventArgs) Handles 電信費追加執行_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 電信費追加執行.Show() : 電信費追加執行.BringToFront()
    End Sub
    Private Sub 電信費追加執行_pb_Click(sender As Object, e As EventArgs) Handles 電信費追加執行_pb.Click
        電信費追加執行_tsm.PerformClick()
    End Sub
    Private Sub 電信費追加執行_lb_Click(sender As Object, e As EventArgs) Handles 電信費追加執行_lb.Click
        電信費追加執行_tsm.PerformClick()
    End Sub
    Private Sub 請購單申請_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 請購單申請_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 請購單申請_tsm.Checked = Not 請購單申請_tsm.Checked : End If : 請採購捷徑繪製()
    End Sub
    Private Sub 請購單申請_tsm_Click(sender As Object, e As EventArgs) Handles 請購單申請_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 請購單申請.Show() : 請購單申請.BringToFront()
    End Sub
    Private Sub 請購單申請_pb_Click(sender As Object, e As EventArgs) Handles 請購單申請_pb.Click
        請購單申請_tsm.PerformClick()
    End Sub
    Private Sub 請購單申請_lb_Click(sender As Object, e As EventArgs) Handles 請購單申請_lb.Click
        請購單申請_tsm.PerformClick()
    End Sub
    Private Sub 請購單核準_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 請購單核準_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 請購單核準_tsm.Checked = Not 請購單核準_tsm.Checked : End If : 請採購捷徑繪製()
    End Sub
    Private Sub 請購單核準_tsm_Click(sender As Object, e As EventArgs) Handles 請購單核準_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 請購單核准.Show() : 請購單核准.BringToFront()
    End Sub
    Private Sub 請購單核準_pb_Click(sender As Object, e As EventArgs) Handles 請購單核準_pb.Click
        請購單核準_tsm.PerformClick()
    End Sub
    Private Sub 請購單核準_lb_Click(sender As Object, e As EventArgs) Handles 請購單核準_lb.Click
        請購單核準_tsm.PerformClick()
    End Sub
    Private Sub 請購一覽表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 請購一覽表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 請購一覽表_tsm.Checked = Not 請購一覽表_tsm.Checked : End If : 請採購捷徑繪製()
    End Sub
    Private Sub 請購一覽表_tsm_Click(sender As Object, e As EventArgs) Handles 請購一覽表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 請購單歷史檔案.Show() : 請購單歷史檔案.BringToFront()
    End Sub
    Private Sub 請購一覽表_pb_Click(sender As Object, e As EventArgs) Handles 請購一覽表_pb.Click
        請購一覽表_tsm.PerformClick()
    End Sub
    Private Sub 請購一覽表_lb_Click(sender As Object, e As EventArgs) Handles 請購一覽表_lb.Click
        請購一覽表_tsm.PerformClick()
    End Sub
    Private Sub 採購單編輯_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 採購單編輯_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 採購單編輯_tsm.Checked = Not 採購單編輯_tsm.Checked : End If : 請採購捷徑繪製()
    End Sub
    Private Sub 採購單生成_tsm_Click(sender As Object, e As EventArgs) Handles 採購單編輯_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 採購單一級核准.Close() : 採購單二級核准.Close() : 採購單編輯.Show() : 採購單編輯.BringToFront()
    End Sub
    Private Sub 採購單編輯_pb_Click(sender As Object, e As EventArgs) Handles 採購單編輯_pb.Click
        採購單編輯_tsm.PerformClick()
    End Sub
    Private Sub 採購單編輯_lb_Click(sender As Object, e As EventArgs) Handles 採購單編輯_lb.Click
        採購單編輯_tsm.PerformClick()
    End Sub
    Private Sub 採購單一級核准_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 採購單一級核准_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 採購單一級核准_tsm.Checked = Not 採購單一級核准_tsm.Checked : End If : 請採購捷徑繪製()
    End Sub
    Private Sub 採購單一級核准_tsm_Click(sender As Object, e As EventArgs) Handles 採購單一級核准_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 採購單一級核准.Show() : 採購單一級核准_pb.BringToFront()
    End Sub
    Private Sub 採購單一級核准_Click(sender As Object, e As EventArgs) Handles 採購單一級核准_pb.Click
        採購單一級核准_tsm.PerformClick()
    End Sub
    Private Sub 採購單一級核准_lb_Click(sender As Object, e As EventArgs) Handles 採購單一級核准_lb.Click
        採購單一級核准_tsm.PerformClick()
    End Sub
    Private Sub 採購單二級核准_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 採購單二級核准_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 採購單二級核准_tsm.Checked = Not 採購單二級核准_tsm.Checked : End If : 請採購捷徑繪製()
    End Sub
    Private Sub 採購單二級核准_tsm_Click(sender As Object, e As EventArgs) Handles 採購單二級核准_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 採購單二級核准.Show() : 採購單二級核准.BringToFront()
    End Sub
    Private Sub 採購單二級核准_pb_Click(sender As Object, e As EventArgs) Handles 採購單二級核准_pb.Click
        採購單二級核准_tsm.PerformClick()
    End Sub
    Private Sub 採購單二級核准_lb_Click(sender As Object, e As EventArgs) Handles 採購單二級核准_lb.Click
        採購單二級核准_tsm.PerformClick()
    End Sub
    Private Sub 採購單一覽表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 採購單一覽表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 採購單一覽表_tsm.Checked = Not 採購單一覽表_tsm.Checked : End If : 請採購捷徑繪製()
    End Sub
    Private Sub 採購單一覽表_tsm_Click(sender As Object, e As EventArgs) Handles 採購單一覽表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 採購單歷史檔案.Show() : 採購單歷史檔案.BringToFront()
    End Sub
    Private Sub 採購單一覽表_pb_Click(sender As Object, e As EventArgs) Handles 採購單一覽表_pb.Click
        採購單一覽表_tsm.PerformClick()
    End Sub
    Private Sub 採購單一覽表_lb_Click(sender As Object, e As EventArgs) Handles 採購單一覽表_lb.Click
        採購單一覽表_tsm.PerformClick()
    End Sub
    Private Sub 入庫驗收單_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 入庫驗收單_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 入庫驗收單_tsm.Checked = Not 入庫驗收單_tsm.Checked : End If : 請採購捷徑繪製()
    End Sub
    Private Sub 入庫驗收單_tsm_Click(sender As Object, e As EventArgs) Handles 入庫驗收單_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 採購單驗收.Show() : 採購單驗收.BringToFront()
    End Sub
    Private Sub 入庫驗收單_pb_Click(sender As Object, e As EventArgs) Handles 入庫驗收單_pb.Click
        入庫驗收單_tsm.PerformClick()
    End Sub
    Private Sub 入庫驗收單_lb_Click(sender As Object, e As EventArgs) Handles 入庫驗收單_lb.Click
        入庫驗收單_tsm.PerformClick()
    End Sub
    'Private Sub 採購驗收對帳表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 採購驗收對帳表_tsm.MouseDown    '-----------------------------------------------------------------
    '    If e.Button = MouseButtons.Right Then : 採購驗收對帳表_tsm.Checked = Not 採購驗收對帳表_tsm.Checked : End If : 請採購捷徑繪製()
    'End Sub
    'Private Sub 採購驗收對帳表_tsm_Click(sender As Object, e As EventArgs) Handles 採購驗收對帳表_tsm.Click
    '    For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
    '    虛擬桌面隱藏() : 重登計時() : 重置() : 應付款日報表.Show() : 應付款日報表.BringToFront()
    'End Sub
    'Private Sub 採購驗收對帳表_pb_Click(sender As Object, e As EventArgs) Handles 採購驗收對帳表_pb.Click
    '    採購驗收對帳表_tsm.PerformClick()
    'End Sub
    'Private Sub 採購驗收對帳表_lb_Click(sender As Object, e As EventArgs) Handles 採購驗收對帳表_lb.Click
    '    採購驗收對帳表_tsm.PerformClick()
    'End Sub
    Private Sub 採購單詢價_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 採購單詢價_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 採購單詢價_tsm.Checked = Not 採購單詢價_tsm.Checked : End If : 請採購捷徑繪製()
    End Sub
    Private Sub 採購單詢價_tsm_Click(sender As Object, e As EventArgs) Handles 採購單詢價_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 採購單詢價.Show() : 採購單詢價.BringToFront()
    End Sub
    Private Sub 採購單詢價_pb_Click(sender As Object, e As EventArgs) Handles 採購單詢價_pb.Click
        採購單詢價_tsm.PerformClick()
    End Sub
    Private Sub 採購單詢價_lb_Click(sender As Object, e As EventArgs) Handles 採購單詢價_lb.Click
        採購單詢價_tsm.PerformClick()
    End Sub
    Private Sub 供應商管理_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 供應商管理_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 供應商管理_tsm.Checked = Not 供應商管理_tsm.Checked : End If : 請採購捷徑繪製()
    End Sub
    Private Sub 供應商管理_tsm_Click(sender As Object, e As EventArgs) Handles 供應商管理_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 供應商管理.Show() : 供應商管理.BringToFront()
    End Sub
    Private Sub 供應商管理_pb_Click(sender As Object, e As EventArgs) Handles 供應商管理_pb.Click
        供應商管理_tsm.PerformClick()
    End Sub
    Private Sub 供應商管理_lb_Click(sender As Object, e As EventArgs) Handles 供應商管理_lb.Click
        供應商管理_tsm.PerformClick()
    End Sub
    Private Sub 物料採購統計表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 物料採購統計表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 物料採購統計表_tsm.Checked = Not 物料採購統計表_tsm.Checked : End If : 請採購捷徑繪製()
    End Sub
    Private Sub 物料採購統計表_tsm_Click(sender As Object, e As EventArgs) Handles 物料採購統計表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 物料採購統計表.Show() : 物料採購統計表.BringToFront()
    End Sub
    Private Sub 物料採購統計表_pb_Click(sender As Object, e As EventArgs) Handles 物料採購統計表_pb.Click
        物料採購統計表_tsm.PerformClick()
    End Sub
    Private Sub 物料採購統計表_lb_Click(sender As Object, e As EventArgs) Handles 物料採購統計表_lb.Click
        物料採購統計表_tsm.PerformClick()
    End Sub
    Private Sub 供應商商品單價設定_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 供應商商品單價設定_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 供應商商品單價設定_tsm.Checked = Not 供應商商品單價設定_tsm.Checked : End If : 請採購捷徑繪製()
    End Sub
    Private Sub 供應商商品單價設定_tsm_Click(sender As Object, e As EventArgs) Handles 供應商商品單價設定_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 供應商商品單價設定.Show() : 供應商商品單價設定.BringToFront()
    End Sub
    Private Sub 供應商商品單價設定_pb_Click(sender As Object, e As EventArgs) Handles 供應商商品單價設定_pb.Click
        供應商商品單價設定_tsm.PerformClick()
    End Sub
    Private Sub 供應商商品單價設定_lb_Click(sender As Object, e As EventArgs) Handles 供應商商品單價設定_lb.Click
        供應商商品單價設定_tsm.PerformClick()
    End Sub
    Private Sub 採購轉財務收支單_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 採購轉財務收支單_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 採購轉財務收支單_tsm.Checked = Not 採購轉財務收支單_tsm.Checked : End If : 請採購捷徑繪製()
    End Sub
    Private Sub 採購轉財務收支單_tsm_Click(sender As Object, e As EventArgs) Handles 採購轉財務收支單_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 採購轉財物支付單.Show() : 採購轉財物支付單.BringToFront()
    End Sub
    Private Sub 採購轉財務收支單_pb_Click(sender As Object, e As EventArgs) Handles 採購轉財務收支單_pb.Click
        採購轉財務收支單_tsm.PerformClick()
    End Sub
    Private Sub 採購轉財務收支單_lb_Click(sender As Object, e As EventArgs) Handles 採購轉財務收支單_lb.Click
        採購轉財務收支單_tsm.PerformClick()
    End Sub
    Private Sub 銀行資料修改審核_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 銀行資料修改審核_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 銀行資料修改審核_tsm.Checked = Not 銀行資料修改審核_tsm.Checked : End If : 請採購捷徑繪製()
    End Sub
    Private Sub 物料供應商主管審核_tsm_Click(sender As Object, e As EventArgs) Handles 銀行資料修改審核_tsm.Click
        供應商管理銀行修改審核.ShowDialog() : 供應商管理銀行修改審核.BringToFront()
    End Sub
    Private Sub 銀行資料修改審核_pb_Click(sender As Object, e As EventArgs) Handles 銀行資料修改審核_pb.Click
        銀行資料修改審核_tsm.PerformClick()
    End Sub
    Private Sub 銀行資料修改審核_lb_Click(sender As Object, e As EventArgs) Handles 銀行資料修改審核_lb.Click
        銀行資料修改審核_tsm.PerformClick()
    End Sub
    Private Sub 樣品請購單申請_tsm_Click(sender As Object, e As EventArgs) Handles 樣品請購單申請_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 樣品請購單申請.Show() : 樣品請購單申請.BringToFront()
    End Sub
    Private Sub 樣品請購單核准_tsm_Click(sender As Object, e As EventArgs) Handles 樣品請購單核准_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 樣品請購單核准.Show() : 樣品請購單核准.BringToFront()
    End Sub
    Private Sub 樣品請購單一覽表_tsm_Click(sender As Object, e As EventArgs) Handles 樣品請購單一覽表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 樣品請購單歷史檔案.Show() : 樣品請購單歷史檔案.BringToFront()
    End Sub
    Private Sub 樣品採購單生成_tsm_Click(sender As Object, e As EventArgs) Handles 樣品採購單生成_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 樣品採購單編輯.Show() : 樣品採購單編輯.BringToFront()
    End Sub
    Private Sub 樣品採購單一級核准_tsm_Click(sender As Object, e As EventArgs) Handles 樣品採購單一級核准_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 樣品採購單一級核准.Show() : 樣品採購單一級核准.BringToFront()
    End Sub
    Private Sub 樣品採購單二級核准_tsm_Click(sender As Object, e As EventArgs) Handles 樣品採購單二級核准_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 樣品採購單二級核准.Show() : 樣品採購單二級核准.BringToFront()
    End Sub
    Private Sub 樣品採購單一覽表_tsmClick(sender As Object, e As EventArgs) Handles 樣品採購單一覽表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 樣品採購單歷史檔案.Show() : 樣品採購單歷史檔案.BringToFront()
    End Sub
    Private Sub 樣品來料驗收單_tsm_Click(sender As Object, e As EventArgs) Handles 樣品來料驗收單_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 樣品採購單驗收.Show() : 樣品採購單驗收.BringToFront()
    End Sub
    Private Sub 樣品供應商管理_tsm_Click(sender As Object, e As EventArgs) Handles 樣品供應商管理_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 樣品供應商資料管理.Show() : 樣品供應商資料管理.BringToFront()
    End Sub

    '------------------------財務系統管理-------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 財務系統管理_tsm_Click(sender As Object, e As EventArgs) Handles 財務系統管理_tsm.Click
        總務 = False : 業務 = False : 採購 = False : 工程 = False : 倉儲 = False : 財務 = True : 人事 = False : 桌面捷徑翻頁() : 財務捷徑繪製()
    End Sub
    Private Sub 財務支付審核_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 財務支付審核_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 財務支付審核_tsm.Checked = Not 財務支付審核_tsm.Checked : End If : 財務捷徑繪製()
    End Sub
    Private Sub 財務支付審核_tsm_Click(sender As Object, e As EventArgs) Handles 財務支付審核_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 跨部門開啟 = True
        虛擬桌面隱藏() : 重登計時() : 重置() : 財物支付單申請_傳票.Show() : 財物支付單申請_傳票.BringToFront()
    End Sub
    Private Sub 財務支付審核_pb_Click(sender As Object, e As EventArgs) Handles 財務支付審核_pb.Click
        財務支付審核_tsm.PerformClick()
    End Sub
    Private Sub 財務支付審核_lb_Click(sender As Object, e As EventArgs) Handles 財務支付審核_lb.Click
        財務支付審核_tsm.PerformClick()
    End Sub
    Private Sub 財務支付申請_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 財務支付申請_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 財務支付申請_tsm.Checked = Not 財務支付申請_tsm.Checked : End If : 財務捷徑繪製()
    End Sub
    Private Sub 支票收支申請_tsm_Click(sender As Object, e As EventArgs) Handles 財務支付申請_tsm.Click
        跨部門開啟 = False
        重登計時() : 重置() : 財物支付單申請_傳票.Show() : 財物支付單申請_傳票.BringToFront()
    End Sub
    Private Sub 財務支付申請_pb_Click(sender As Object, e As EventArgs) Handles 財務支付申請_pb.Click
        財務支付申請_tsm.PerformClick()
    End Sub
    Private Sub 財務支付申請_lb_Click(sender As Object, e As EventArgs) Handles 財務支付申請_lb.Click
        財務支付申請_tsm.PerformClick()
    End Sub
    Private Sub 財務支付_主管審核_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 財務支付_主管審核_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 財務支付_主管審核_tsm.Checked = Not 財務支付_主管審核_tsm.Checked : End If : 財務捷徑繪製()
    End Sub
    Private Sub 財務支付單最高主管審核_tsm_Click(sender As Object, e As EventArgs) Handles 財務支付_主管審核_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 財務支付單_最高主管審核.Show() : 財務支付單_最高主管審核.BringToFront()
    End Sub
    Private Sub 財務支付_主管審核_pb_Click(sender As Object, e As EventArgs) Handles 財務支付_主管審核_pb.Click
        財務支付_主管審核_tsm.PerformClick()
    End Sub
    Private Sub 財務支付_主管審核_lb_Click(sender As Object, e As EventArgs) Handles 財務支付_主管審核_lb.Click
        財務支付_主管審核_tsm.PerformClick()
    End Sub
    Private Sub 營運收支單申請_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 營運收支單申請_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 營運收支單申請_tsm.Checked = Not 營運收支單申請_tsm.Checked : End If : 財務捷徑繪製()
    End Sub
    Private Sub 營運成本收支單申請ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運收支單申請_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 財務收支單申請.Show() : 財務收支單申請.BringToFront()
    End Sub
    Private Sub 營運收支單申請_pb_Click(sender As Object, e As EventArgs) Handles 營運收支單申請_pb.Click
        營運收支單申請_tsm.PerformClick()
    End Sub
    Private Sub 營運收支單申請_lb_Click(sender As Object, e As EventArgs) Handles 營運收支單申請_lb.Click
        營運收支單申請_tsm.PerformClick()
    End Sub
    Private Sub 營運收支單審核_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 營運收支單審核_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 營運收支單審核_tsm.Checked = Not 營運收支單審核_tsm.Checked : End If : 財務捷徑繪製()
    End Sub
    Private Sub 營運成本收支單審核ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運收支單審核_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 財務收支單審核.Show() : 財務收支單審核.BringToFront()
    End Sub
    Private Sub 營運收支單審核_pb_Click(sender As Object, e As EventArgs) Handles 營運收支單審核_pb.Click
        營運收支單審核_tsm.PerformClick()
    End Sub
    Private Sub 營運收支單審核_lb_Click(sender As Object, e As EventArgs) Handles 營運收支單審核_lb.Click
        營運收支單審核_tsm.PerformClick()
    End Sub
    Private Sub 營運收支單一覽表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 營運收支單一覽表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 營運收支單一覽表_tsm.Checked = Not 營運收支單一覽表_tsm.Checked : End If : 財務捷徑繪製()
    End Sub
    Private Sub 營運成本收支單一覽表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運收支單一覽表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 財務收支單對帳表.Show() : 財務收支單對帳表.BringToFront()
    End Sub
    Private Sub 營運收支單一覽表_pb_Click(sender As Object, e As EventArgs) Handles 營運收支單一覽表_pb.Click
        營運收支單一覽表_tsm.PerformClick()
    End Sub
    Private Sub 營運收支單一覽表_lb_Click(sender As Object, e As EventArgs) Handles 營運收支單一覽表_lb.Click
        營運收支單一覽表_tsm.PerformClick()
    End Sub
    Private Sub 財務決算表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 財務決算表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 財務決算表_tsm.Checked = Not 財務決算表_tsm.Checked : End If : 財務捷徑繪製()
    End Sub
    Private Sub 營運成本收支決算表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 財務決算表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 財務收支決算表.Show() : 財務收支決算表.BringToFront()
    End Sub
    Private Sub 財務決算表_pb_Click(sender As Object, e As EventArgs) Handles 財務決算表_pb.Click
        財務決算表_tsm.PerformClick()
    End Sub
    Private Sub 財務決算表_lb_Click(sender As Object, e As EventArgs) Handles 財務決算表_lb.Click
        財務決算表_tsm.PerformClick()
    End Sub
    Private Sub 採購付款確認表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 採購付款確認表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 採購付款確認表_tsm.Checked = Not 採購付款確認表_tsm.Checked : End If : 財務捷徑繪製()
    End Sub
    Private Sub 採購付款確認表_tsm_Click(sender As Object, e As EventArgs) Handles 採購付款確認表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 採購單付款確認.Show() : 採購單付款確認.BringToFront()
    End Sub
    Private Sub 採購付款確認表_pb_Click(sender As Object, e As EventArgs) Handles 採購付款確認表_pb.Click
        採購付款確認表_tsm.PerformClick()
    End Sub
    Private Sub 採購付款確認表_lb_Click(sender As Object, e As EventArgs) Handles 採購付款確認表_lb.Click
        採購付款確認表_tsm.PerformClick()
    End Sub
    Private Sub 採購付款狀態報表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 採購付款狀態報表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 採購付款狀態報表_tsm.Checked = Not 採購付款狀態報表_tsm.Checked : End If : 財務捷徑繪製()
    End Sub
    Private Sub 採購付款狀態報表_tsm_Click(sender As Object, e As EventArgs) Handles 採購付款狀態報表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 採購付款狀態報表.Show() : 採購付款狀態報表.BringToFront()
    End Sub
    Private Sub 採購付款狀態報表_pb_Click(sender As Object, e As EventArgs) Handles 採購付款狀態報表_pb.Click
        採購付款狀態報表_tsm.PerformClick()
    End Sub
    Private Sub 採購付款狀態報表_lb_Click(sender As Object, e As EventArgs) Handles 採購付款狀態報表_lb.Click
        採購付款狀態報表_tsm.PerformClick()
    End Sub
    Private Sub 特支費申請_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 特支費申請_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 特支費申請_tsm.Checked = Not 特支費申請_tsm.Checked : End If : 財務捷徑繪製()
    End Sub
    Private Sub 特支費申請_tsm_Click(sender As Object, e As EventArgs) Handles 特支費申請_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 指定會科 = "B-02-04-29" : 特支費申請.Show() : 特支費申請.BringToFront()
    End Sub
    Private Sub 特支費與傭金申請_pb_Click(sender As Object, e As EventArgs) Handles 特支費申請_pb.Click
        特支費申請_tsm.PerformClick()
    End Sub
    Private Sub 特支費與傭金申請_lb_Click(sender As Object, e As EventArgs) Handles 特支費申請_lb.Click
        特支費申請_tsm.PerformClick()
    End Sub
    Private Sub 特支費審核_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 特支費審核_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 特支費審核_tsm.Checked = Not 特支費審核_tsm.Checked : End If : 財務捷徑繪製()
    End Sub
    Private Sub 特支費審核_tsm_Click(sender As Object, e As EventArgs) Handles 特支費審核_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 指定會科 = "B-02-04-29" : 特支費審核.Show() : 特支費審核.BringToFront()
    End Sub
    Private Sub 特支費審核_pb_Click(sender As Object, e As EventArgs) Handles 特支費審核_pb.Click
        特支費審核_tsm.PerformClick()
    End Sub
    Private Sub 特支費審核_lb_Click(sender As Object, e As EventArgs) Handles 特支費審核_lb.Click
        特支費審核_tsm.PerformClick()
    End Sub
    Private Sub 會計帳務沖銷_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 會計帳務沖銷_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 會計帳務沖銷_tsm.Checked = Not 會計帳務沖銷_tsm.Checked : End If : 財務捷徑繪製()
    End Sub
    Private Sub 會計帳務沖銷_tsm_Click(sender As Object, e As EventArgs) Handles 會計帳務沖銷_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 會計帳務沖銷.Show() : 會計帳務沖銷.BringToFront()
    End Sub
    Private Sub 會計帳務沖銷_pb_Click(sender As Object, e As EventArgs) Handles 會計帳務沖銷_pb.Click
        會計帳務沖銷_tsm.PerformClick()
    End Sub
    Private Sub 會計帳務沖銷_lb_Click(sender As Object, e As EventArgs) Handles 會計帳務沖銷_lb.Click
        會計帳務沖銷_tsm.PerformClick()
    End Sub
    Private Sub 主管指定沖銷_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 主管指定沖銷_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 主管指定沖銷_tsm.Checked = Not 主管指定沖銷_tsm.Checked : End If : 財務捷徑繪製()
    End Sub
    Private Sub 主管指定沖銷_tsm_tsm_Click(sender As Object, e As EventArgs) Handles 主管指定沖銷_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 特支費高層指定.Show() : 特支費高層指定.BringToFront()
    End Sub
    Private Sub 主管指定沖銷_pb_Click(sender As Object, e As EventArgs) Handles 主管指定沖銷_pb.Click
        主管指定沖銷_tsm.PerformClick()
    End Sub
    Private Sub 主管指定沖銷_lb_Click(sender As Object, e As EventArgs) Handles 主管指定沖銷_lb.Click
        主管指定沖銷_tsm.PerformClick()
    End Sub
    Private Sub 收款確認表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 收款確認表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 收款確認表_tsm.Checked = Not 收款確認表_tsm.Checked : End If : 財務捷徑繪製()
    End Sub
    Private Sub 收款確認表_tsm_Click(sender As Object, e As EventArgs) Handles 收款確認表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 收款確認表.Show() : 收款確認表.BringToFront()
    End Sub
    Private Sub 收款確認表_pb_Click(sender As Object, e As EventArgs) Handles 收款確認表_pb.Click
        收款確認表_tsm.PerformClick()
    End Sub
    Private Sub 收款確認表_lb_Click(sender As Object, e As EventArgs) Handles 收款確認表_lb.Click
        收款確認表_tsm.PerformClick()
    End Sub
    Private Sub 收款狀態報表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 收款狀態報表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 收款狀態報表_tsm.Checked = Not 收款狀態報表_tsm.Checked : End If : 財務捷徑繪製()
    End Sub
    Private Sub 收款狀態報表_tsm_Click(sender As Object, e As EventArgs) Handles 收款狀態報表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 收款狀態報表.Show() : 收款狀態報表.BringToFront()
    End Sub
    Private Sub 收款狀態報表_pb_Click(sender As Object, e As EventArgs) Handles 收款狀態報表_pb.Click
        收款狀態報表_tsm.PerformClick()
    End Sub
    Private Sub 收款狀態報表_lb_Click(sender As Object, e As EventArgs) Handles 收款狀態報表_lb.Click
        收款狀態報表_tsm.PerformClick()
    End Sub
    Private Sub 會計科目管理_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 會計科目管理_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 會計科目管理_tsm.Checked = Not 會計科目管理_tsm.Checked : End If : 財務捷徑繪製()
    End Sub
    Private Sub 會計科目管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 會計科目管理_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 會計科目管理.Show() : 會計科目管理.BringToFront()
    End Sub
    Private Sub 會計科目管理_pb_Click(sender As Object, e As EventArgs) Handles 會計科目管理_pb.Click
        會計科目管理_tsm.PerformClick()
    End Sub
    Private Sub 會計科目管理_lb_Click(sender As Object, e As EventArgs) Handles 會計科目管理_lb.Click
        會計科目管理_tsm.PerformClick()
    End Sub
    Private Sub 匯率管理_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 匯率管理_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 匯率管理_tsm.Checked = Not 匯率管理_tsm.Checked : End If : 財務捷徑繪製()
    End Sub
    Private Sub 匯率管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 匯率管理_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重登計時() : 重置() : 匯率管理.ShowDialog() : 匯率管理.BringToFront()
    End Sub
    Private Sub 匯率管理_pb_Click(sender As Object, e As EventArgs) Handles 匯率管理_pb.Click
        匯率管理_tsm.PerformClick()
    End Sub
    Private Sub 匯率管理_lb_Click(sender As Object, e As EventArgs) Handles 匯率管理_lb.Click
        匯率管理_tsm.PerformClick()
    End Sub
    Private Sub 應付款日報表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 應付款日報表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 應付款日報表_tsm.Checked = Not 應付款日報表_tsm.Checked : End If : 財務捷徑繪製()
    End Sub
    Private Sub 應付款日報表_tsm_Click(sender As Object, e As EventArgs) Handles 應付款日報表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 應付款日報表.Show() : 應付款日報表.BringToFront()
    End Sub
    Private Sub 應付款日報表_pb_Click(sender As Object, e As EventArgs) Handles 應付款日報表_pb.Click
        應付款日報表_tsm.PerformClick()
    End Sub
    Private Sub 應付款日報表_lb_Click(sender As Object, e As EventArgs) Handles 應付款日報表_lb.Click
        應付款日報表_tsm.PerformClick()
    End Sub
    Private Sub 應付款月報表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 應付款月報表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 應付款月報表_tsm.Checked = Not 應付款月報表_tsm.Checked : End If : 財務捷徑繪製()
    End Sub
    Private Sub 應付款月報表_tsm_Click(sender As Object, e As EventArgs) Handles 應付款月報表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 應付款月報表.Show() : 應付款月報表.BringToFront()
    End Sub
    Private Sub 應付款月報表_pb_Click(sender As Object, e As EventArgs) Handles 應付款月報表_pb.Click
        應付款月報表_tsm.PerformClick()
    End Sub
    Private Sub 應付款月報表_lb_Click(sender As Object, e As EventArgs) Handles 應付款月報表_lb.Click
        應付款月報表_tsm.PerformClick()
    End Sub



    Private Sub 樣品採購驗收對帳表_tsm_Click(sender As Object, e As EventArgs) Handles 樣品採購驗收對帳表_tsm.Click
    End Sub
    Private Sub 營運成本收支單對帳表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運收支單對帳表_tsm.Click
    End Sub
    Private Sub 應收帳款控制表_tsm_Click(sender As Object, e As EventArgs) Handles 應收帳款控制表_tsm.Click
    End Sub
    Private Sub 應付賬款控制表_tsm_Click(sender As Object, e As EventArgs) Handles 應付賬款控制表_tsm.Click
    End Sub
    Private Sub 現金流量表_tsm_Click(sender As Object, e As EventArgs) Handles 現金流量表_tsm.Click
    End Sub
    Private Sub 綜合損益表_tsm_Click(sender As Object, e As EventArgs) Handles 綜合損益表_tsm.Click
    End Sub
    Private Sub 權益變動表_tsm_Click(sender As Object, e As EventArgs) Handles 權益變動表_tsm.Click
    End Sub
    Private Sub 資產負載表_tsm_Click(sender As Object, e As EventArgs) Handles 資產負載表_tsm.Click
    End Sub


    '------------------------倉儲系統管理-------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 倉儲系統管理_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲系統管理_tsm.Click
        總務 = False : 業務 = False : 採購 = False : 工程 = False : 倉儲 = True : 財務 = False : 人事 = False : 桌面捷徑翻頁() : 倉儲捷徑繪製()
    End Sub
    Private Sub 物料資料庫_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 物料資料庫_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 物料資料庫_tsm.Checked = Not 物料資料庫_tsm.Checked : End If : 倉儲捷徑繪製()
    End Sub
    Private Sub 物料資料庫_tsm_Click(sender As Object, e As EventArgs) Handles 物料資料庫_tsm.Click
        Dim screenWidth = Screen.PrimaryScreen.Bounds.Width : Dim screenHeight = Screen.PrimaryScreen.Bounds.Height
        If screenWidth < 1920 And Height < 1080 Then
            MGB(系統語言字典("H000-127-" & 語言) & " " & screenWidth.ToString() & " X " & screenHeight.ToString() & " " & 系統語言字典("H000-128-" & 語言), 1)
        Else
            For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
            虛擬桌面隱藏() : 重登計時() : 重置() : 物料資料庫.Show() : 物料資料庫.BringToFront()
        End If
    End Sub
    Private Sub 物料資料庫_pb_Click(sender As Object, e As EventArgs) Handles 物料資料庫_pb.Click
        物料資料庫_tsm.PerformClick()
    End Sub
    Private Sub 物料資料庫_lb_Click(sender As Object, e As EventArgs) Handles 物料資料庫_lb.Click
        物料資料庫_tsm.PerformClick()
    End Sub
    Private Sub 物料資料編輯_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 物料資料編輯_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 物料資料編輯_tsm.Checked = Not 物料資料編輯_tsm.Checked : End If : 倉儲捷徑繪製()
    End Sub
    Private Sub 物料資料編輯_tsm_Click(sender As Object, e As EventArgs) Handles 物料資料編輯_tsm.Click
        Dim screenWidth = Screen.PrimaryScreen.Bounds.Width : Dim screenHeight = Screen.PrimaryScreen.Bounds.Height
        If screenWidth < 1920 And Height < 1080 Then
            MGB(系統語言字典("H000-127-" & 語言) & " " & screenWidth.ToString() & " X " & screenHeight.ToString() & " " & 系統語言字典("H000-128-" & 語言), 1)
        Else
            For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
            虛擬桌面隱藏() : 重登計時() : 重置() : 物料資料庫_編輯.Show() : 物料資料庫_編輯.BringToFront()
        End If
    End Sub
    Private Sub 物料資料編輯_pb_Click(sender As Object, e As EventArgs) Handles 物料資料編輯_pb.Click
        物料資料編輯_tsm.PerformClick()
    End Sub
    Private Sub 物料資料編輯_lb_Click(sender As Object, e As EventArgs) Handles 物料資料編輯_lb.Click
        物料資料編輯_tsm.PerformClick()
    End Sub
    Private Sub 倉儲分區控制表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 倉儲分區控制表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 倉儲分區控制表_tsm.Checked = Not 倉儲分區控制表_tsm.Checked : End If : 倉儲捷徑繪製()
    End Sub
    Private Sub 倉儲分區控制表_tsm_Click_1(sender As Object, e As EventArgs) Handles 倉儲分區控制表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 系統分區控制 = False : 倉儲分區控制表.Show() : 倉儲分區控制表.BringToFront()
    End Sub
    Private Sub 倉儲分區控制表_pb_Click(sender As Object, e As EventArgs) Handles 倉儲分區控制表_pb.Click
        倉儲分區控制表_tsm.PerformClick()
    End Sub
    Private Sub 倉儲分區控制表_lb_Click(sender As Object, e As EventArgs) Handles 倉儲分區控制表_lb.Click
        倉儲分區控制表_tsm.PerformClick()
    End Sub
    Private Sub 倉儲控制表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 倉儲控制表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 倉儲控制表_tsm.Checked = Not 倉儲控制表_tsm.Checked : End If : 倉儲捷徑繪製()
    End Sub
    Private Sub 倉儲控制表_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲控制表_tsm.Click
        倉儲倉級2 = "1" : 倉儲倉級1 = "1" : 倉儲倉級3 = "1" : 倉儲倉級4 = "1" : 倉儲倉級5 = "1" : 倉儲倉級6 = "1" : 倉儲倉級7 = "1" : 倉儲倉級8 = "1" : 倉儲倉級9 = "1"
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 倉儲控制表.Show() : 倉儲控制表.BringToFront()
    End Sub
    Private Sub 倉儲控制表_pb_Click(sender As Object, e As EventArgs) Handles 倉儲控制表_pb.Click
        倉儲控制表_tsm.PerformClick()
    End Sub
    Private Sub 倉儲控制表_lb_Click(sender As Object, e As EventArgs) Handles 倉儲控制表_lb.Click
        倉儲控制表_tsm.PerformClick()
    End Sub
    Private Sub 倉儲入庫驗收_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 倉儲入庫驗收_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 倉儲入庫驗收_tsm.Checked = Not 倉儲入庫驗收_tsm.Checked : End If : 倉儲捷徑繪製()
    End Sub
    Private Sub 倉儲入庫驗收_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲入庫驗收_tsm.Click
        倉儲分區選擇.ShowDialog()
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 倉儲入庫驗收.Show() : 倉儲入庫驗收.BringToFront()
    End Sub
    Private Sub 倉儲入庫驗收_pb_Click(sender As Object, e As EventArgs) Handles 倉儲入庫驗收_pb.Click
        倉儲入庫驗收_tsm.PerformClick()
    End Sub
    Private Sub 倉儲入庫驗收_lb_Click(sender As Object, e As EventArgs) Handles 倉儲入庫驗收_lb.Click
        倉儲入庫驗收_tsm.PerformClick()
    End Sub
    Private Sub 物料轉倉申請_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 物料轉倉申請_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 物料轉倉申請_tsm.Checked = Not 物料轉倉申請_tsm.Checked : End If : 倉儲捷徑繪製()
    End Sub
    Private Sub 物料轉倉申請_tsm_Click(sender As Object, e As EventArgs) Handles 物料轉倉申請_tsm.Click
        倉儲分區選擇.ShowDialog()
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 物料轉倉申請.Show() : 物料轉倉申請.BringToFront()
    End Sub
    Private Sub 物料轉倉申請_pb_Click(sender As Object, e As EventArgs) Handles 物料轉倉申請_pb.Click
        物料轉倉申請_tsm.PerformClick()
    End Sub
    Private Sub 物料轉倉申請_lb_Click(sender As Object, e As EventArgs) Handles 物料轉倉申請_lb.Click
        物料轉倉申請_tsm.PerformClick()
    End Sub
    Private Sub 物料轉倉審核_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 物料轉倉審核_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 物料轉倉審核_tsm.Checked = Not 物料轉倉審核_tsm.Checked : End If : 倉儲捷徑繪製()
    End Sub
    Private Sub 物料轉倉審核_tsm_Click(sender As Object, e As EventArgs) Handles 物料轉倉審核_tsm.Click
        倉儲分區選擇.ShowDialog()
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 物料轉倉審核.Show() : 物料轉倉審核.BringToFront()
    End Sub
    Private Sub 物料轉倉審核_pb_Click(sender As Object, e As EventArgs) Handles 物料轉倉審核_pb.Click
        物料轉倉審核_tsm.PerformClick()
    End Sub
    Private Sub 物料轉倉審核_lb_Click(sender As Object, e As EventArgs) Handles 物料轉倉審核_lb.Click
        物料轉倉審核_tsm.PerformClick()
    End Sub
    Private Sub 物料轉倉出庫_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 物料轉倉出庫_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 物料轉倉出庫_tsm.Checked = Not 物料轉倉出庫_tsm.Checked : End If : 倉儲捷徑繪製()
    End Sub
    Private Sub 物料轉倉出庫_tsm_Click(sender As Object, e As EventArgs) Handles 物料轉倉出庫_tsm.Click
        倉儲分區選擇.ShowDialog()
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 物料轉倉出庫.Show() : 物料轉倉出庫.BringToFront()
    End Sub
    Private Sub 物料轉倉出庫_pb_Click(sender As Object, e As EventArgs) Handles 物料轉倉出庫_pb.Click
        物料轉倉出庫_tsm.PerformClick()
    End Sub
    Private Sub 物料轉倉出庫_lb_Click(sender As Object, e As EventArgs) Handles 物料轉倉出庫_lb.Click
        物料轉倉出庫_tsm.PerformClick()
    End Sub
    Private Sub 倉儲領料申請_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 倉儲領料申請_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 倉儲領料申請_tsm.Checked = Not 倉儲領料申請_tsm.Checked : End If : 倉儲捷徑繪製()
    End Sub
    Private Sub 倉儲領料申請_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲領料申請_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 倉儲領料申請.Show() : 倉儲領料申請.BringToFront()
    End Sub
    Private Sub 倉儲領料申請_pb_Click(sender As Object, e As EventArgs) Handles 倉儲領料申請_pb.Click
        倉儲領料申請_tsm.PerformClick()
    End Sub
    Private Sub 倉儲領料申請_lb_Click(sender As Object, e As EventArgs) Handles 倉儲領料申請_lb.Click
        倉儲領料申請_tsm.PerformClick()
    End Sub
    Private Sub 倉儲領料審核_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 倉儲領料審核_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 倉儲領料審核_tsm.Checked = Not 倉儲領料審核_tsm.Checked : End If : 倉儲捷徑繪製()
    End Sub
    Private Sub 倉儲領料審核_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲領料審核_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 倉儲領料審核.Show() : 倉儲領料審核.BringToFront()
    End Sub
    Private Sub 倉儲領料審核_pb_Click(sender As Object, e As EventArgs) Handles 倉儲領料審核_pb.Click
        倉儲領料審核_tsm.PerformClick()
    End Sub
    Private Sub 倉儲領料審核_lb_Click(sender As Object, e As EventArgs) Handles 倉儲領料審核_lb.Click
        倉儲領料審核_tsm.PerformClick()
    End Sub
    Private Sub 倉儲領料出庫_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 倉儲領料出庫_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 倉儲領料出庫_tsm.Checked = Not 倉儲領料出庫_tsm.Checked : End If : 倉儲捷徑繪製()
    End Sub
    Private Sub 倉儲領料出庫_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲領料出庫_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 倉儲領料出庫.Show() : 倉儲領料出庫.BringToFront()
    End Sub
    Private Sub 倉儲領料出庫_pb_Click(sender As Object, e As EventArgs) Handles 倉儲領料出庫_pb.Click
        倉儲領料出庫_tsm.PerformClick()
    End Sub
    Private Sub 倉儲領料出庫_lb_Click(sender As Object, e As EventArgs) Handles 倉儲領料出庫_lb.Click
        倉儲領料出庫_tsm.PerformClick()
    End Sub
    Private Sub 物料退庫_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 物料退庫_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 物料退庫_tsm.Checked = Not 物料退庫_tsm.Checked : End If : 倉儲捷徑繪製()
    End Sub
    Private Sub 物料退庫_tsm_Click(sender As Object, e As EventArgs) Handles 物料退庫_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 倉儲入庫申請.Show() : 倉儲入庫申請.BringToFront()
    End Sub
    Private Sub 物料退庫_pb_Click(sender As Object, e As EventArgs) Handles 物料退庫_pb.Click
        物料退庫_tsm.PerformClick()
    End Sub
    Private Sub 物料退庫_lb_Click(sender As Object, e As EventArgs) Handles 物料退庫_lb.Click
        物料退庫_tsm.PerformClick()
    End Sub
    Private Sub 倉儲單據狀態看板_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 倉儲單據狀態看板_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 倉儲單據狀態看板_tsm.Checked = Not 倉儲單據狀態看板_tsm.Checked : End If : 倉儲捷徑繪製()
    End Sub
    Private Sub 倉儲單據狀態看板_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲單據狀態看板_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 倉儲單據狀態看板.Show() : 倉儲單據狀態看板.BringToFront()
    End Sub
    Private Sub 倉儲單據狀態看板_pb_Click(sender As Object, e As EventArgs) Handles 倉儲單據狀態看板_pb.Click
        倉儲單據狀態看板_tsm.PerformClick()
    End Sub
    Private Sub 倉儲單據狀態看板_lb_Click(sender As Object, e As EventArgs) Handles 倉儲單據狀態看板_lb.Click
        倉儲單據狀態看板_tsm.PerformClick()
    End Sub
    Private Sub 盤盈盤損申請_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 盤盈盤損申請_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 盤盈盤損申請_tsm.Checked = Not 盤盈盤損申請_tsm.Checked : End If : 倉儲捷徑繪製()
    End Sub
    Private Sub 盤盈盤損申請_tsm_Click(sender As Object, e As EventArgs) Handles 盤盈盤損申請_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 盤盈盤損申請.Show() : 盤盈盤損申請.BringToFront()
    End Sub
    Private Sub 盤盈盤損申請_pb_Click(sender As Object, e As EventArgs) Handles 盤盈盤損申請_pb.Click
        盤盈盤損申請_tsm.PerformClick()
    End Sub
    Private Sub 盤盈盤損申請_lb_Click(sender As Object, e As EventArgs) Handles 盤盈盤損申請_lb.Click
        盤盈盤損申請_tsm.PerformClick()
    End Sub
    Private Sub 盤盈盤損審核_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 盤盈盤損審核_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 盤盈盤損審核_tsm.Checked = Not 盤盈盤損審核_tsm.Checked : End If : 倉儲捷徑繪製()
    End Sub
    Private Sub 盤盈盤損審核_tsm_Click(sender As Object, e As EventArgs) Handles 盤盈盤損審核_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 盤盈盤損審核.Show() : 盤盈盤損審核.BringToFront()
    End Sub
    Private Sub 盤盈盤損審核_pb_Click(sender As Object, e As EventArgs) Handles 盤盈盤損審核_pb.Click
        盤盈盤損審核_tsm.PerformClick()
    End Sub
    Private Sub 盤盈盤損審核_lb_Click(sender As Object, e As EventArgs) Handles 盤盈盤損審核_lb.Click
        盤盈盤損審核_tsm.PerformClick()
    End Sub

    '------------------------人事系統管理-------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 人事系統管理_tsm_Click(sender As Object, e As EventArgs) Handles 人事系統管理_tsm.Click
        總務 = False : 業務 = False : 採購 = False : 工程 = False : 倉儲 = False : 財務 = False : 人事 = True : 桌面捷徑翻頁() : 人事捷徑繪製()
    End Sub
    Private Sub 人員基本資料_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 人員基本資料_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 人員基本資料_tsm.Checked = Not 人員基本資料_tsm.Checked : End If : 人事捷徑繪製()
    End Sub
    Private Sub 人員基本資料_tsm_Click(sender As Object, e As EventArgs) Handles 人員基本資料_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重登計時() : 重置() : If 登入人級別 = "00" Then : BL = False : Else : BL = True : End If
        虛擬桌面隱藏() : 人員基本資料.Show() : 人員基本資料.BringToFront()
    End Sub
    Private Sub 人員基本資料_pb_Click(sender As Object, e As EventArgs) Handles 人員基本資料_pb.Click
        人員基本資料_tsm.PerformClick()
    End Sub
    Private Sub 人員基本資料_lb_Click(sender As Object, e As EventArgs) Handles 人員基本資料_lb.Click
        人員基本資料_tsm.PerformClick()
    End Sub
    Private Sub 人員ID卡系統配置設定_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 人員ID卡系統配置設定_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 人員ID卡系統配置設定_tsm.Checked = Not 人員ID卡系統配置設定_tsm.Checked : End If : 人事捷徑繪製()
    End Sub
    Private Sub 人員ID卡系統配置設定_tsm_Click(sender As Object, e As EventArgs) Handles 人員ID卡系統配置設定_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 人員ID卡系統配置設定.Show() : 人員ID卡系統配置設定.BringToFront()
    End Sub
    Private Sub 人員ID卡系統配置設定_pb_Click(sender As Object, e As EventArgs) Handles 人員ID卡系統配置設定_pb.Click
        人員ID卡系統配置設定_tsm.PerformClick()
    End Sub
    Private Sub 人員ID卡系統配置設定_lb_Click(sender As Object, e As EventArgs) Handles 人員ID卡系統配置設定_lb.Click
        人員ID卡系統配置設定_tsm.PerformClick()
    End Sub
    Private Sub 人員薪資_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 人員薪資_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 人員薪資_tsm.Checked = Not 人員薪資_tsm.Checked : End If : 人事捷徑繪製()
    End Sub
    Private Sub 人員薪資_tsm_Click(sender As Object, e As EventArgs) Handles 人員薪資_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重登計時() : 重置() : If 登入人級別 = "00" Then : BL = False : Else : BL = True : End If
        虛擬桌面隱藏() : 人員薪資.Show() : 人員薪資.BringToFront()
    End Sub
    Private Sub 人員薪資_pb_Click(sender As Object, e As EventArgs) Handles 人員薪資_pb.Click
        人員薪資_tsm.PerformClick()
    End Sub
    Private Sub 人員薪資_lb_Click(sender As Object, e As EventArgs) Handles 人員薪資_lb.Click
        人員薪資_tsm.PerformClick()
    End Sub
    Private Sub 考勤明細表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 考勤明細表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 考勤明細表_tsm.Checked = Not 考勤明細表_tsm.Checked : End If : 人事捷徑繪製()
    End Sub
    Private Sub 考勤明細表_tsm_Click(sender As Object, e As EventArgs) Handles 考勤明細表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重登計時() : 重置() : If 登入人級別 = "00" Then : BL = False : Else : BL = True : End If
        虛擬桌面隱藏() : 考勤明細表.Show() : 考勤明細表.BringToFront()
    End Sub
    Private Sub 考勤明細表_pb_Click(sender As Object, e As EventArgs) Handles 考勤明細表_pb.Click
        考勤明細表_tsm.PerformClick()
    End Sub
    Private Sub 考勤明細表_lb_Click(sender As Object, e As EventArgs) Handles 考勤明細表_lb.Click
        考勤明細表_tsm.PerformClick()
    End Sub
    Private Sub 臨時工卡片管理_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 臨時工卡片管理_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 臨時工卡片管理_tsm.Checked = Not 臨時工卡片管理_tsm.Checked : End If : 人事捷徑繪製()
    End Sub
    Private Sub 臨時工卡片管理_tsm_Click(sender As Object, e As EventArgs) Handles 臨時工卡片管理_tsm.Click
        臨時工卡片管理.Show() : 臨時工卡片管理.BringToFront()
    End Sub
    Private Sub 臨時工卡片管理_pb_Click(sender As Object, e As EventArgs) Handles 臨時工卡片管理_pb.Click
        臨時工卡片管理_tsm.PerformClick()
    End Sub
    Private Sub 臨時工卡片管理_lb_Click(sender As Object, e As EventArgs) Handles 臨時工卡片管理_lb.Click
        臨時工卡片管理_tsm.PerformClick()
    End Sub
    Private Sub 系統使用者管理1_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 系統使用者管理1_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 系統使用者管理1_tsm.Checked = Not 系統使用者管理1_tsm.Checked : End If : 人事捷徑繪製()
    End Sub
    Private Sub 系統使用者管理1_tsm_Click(sender As Object, e As EventArgs) Handles 系統使用者管理1_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重登計時() : 重置() : If 登入人級別 = "00" Then : BL = False : Else : BL = True : End If
        虛擬桌面隱藏() : 系統使用者管理.Show() : 系統使用者管理.BringToFront()
    End Sub
    Private Sub 系統使用者管理_pb_Click(sender As Object, e As EventArgs) Handles 系統使用者管理_pb.Click
        系統使用者管理1_tsm.PerformClick()
    End Sub
    Private Sub 系統使用者管理_lb_Click(sender As Object, e As EventArgs) Handles 系統使用者管理_lb.Click
        系統使用者管理1_tsm.PerformClick()
    End Sub
    Private Sub 門禁權限設定_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 門禁權限設定_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 門禁權限設定_tsm.Checked = Not 門禁權限設定_tsm.Checked : End If : 人事捷徑繪製()
    End Sub
    Private Sub 門禁權限設定_tsm_Click(sender As Object, e As EventArgs) Handles 門禁權限設定_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重登計時() : 重置() : If 登入人級別 = "00" Then : BL = False : Else : BL = True : End If
        虛擬桌面隱藏() : 門禁權限管理.Show() : 門禁權限管理.BringToFront()
    End Sub
    Private Sub 門禁權限設定_pb_Click(sender As Object, e As EventArgs) Handles 門禁權限設定_pb.Click
        門禁權限設定_tsm.PerformClick()
    End Sub
    Private Sub 門禁權限設定_lb_Click(sender As Object, e As EventArgs) Handles 門禁權限設定_lb.Click
        門禁權限設定_tsm.PerformClick()
    End Sub
    Private Sub 請假單_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 請假單_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 請假單_tsm.Checked = Not 請假單_tsm.Checked : End If : 人事捷徑繪製()
    End Sub
    Private Sub 請假單_tsm_Click(sender As Object, e As EventArgs) Handles 請假單_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 跨部門開啟 = True
        重登計時() : 重置() : If 登入人級別 = "00" Then : BL = False : Else : BL = True : End If
        虛擬桌面隱藏() : 部門聯絡函申請.Show() : 部門聯絡函申請.BringToFront()
    End Sub
    Private Sub 請假單_pb_Click(sender As Object, e As EventArgs) Handles 請假單_pb.Click
        請假單_tsm.PerformClick()
    End Sub
    Private Sub 請假單_lb_Click(sender As Object, e As EventArgs) Handles 請假單_lb.Click
        請假單_tsm.PerformClick()
    End Sub
    Private Sub 請假資料確認_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 請假資料確認_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 請假資料確認_tsm.Checked = Not 請假資料確認_tsm.Checked : End If : 人事捷徑繪製()
    End Sub
    Private Sub 請假資料確認_tsm_Click(sender As Object, e As EventArgs) Handles 請假資料確認_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重登計時() : 重置() : If 登入人級別 = "00" Then : BL = False : Else : BL = True : End If
        虛擬桌面隱藏() : 請假資料確認.Show() : 請假資料確認.BringToFront()
    End Sub
    Private Sub 請假資料確認_pb_Click(sender As Object, e As EventArgs) Handles 請假資料確認_pb.Click
        請假資料確認_tsm.PerformClick()
    End Sub
    Private Sub 請假資料確認_lb_Click(sender As Object, e As EventArgs) Handles 請假資料確認_lb.Click
        請假資料確認_tsm.PerformClick()
    End Sub
    Private Sub 行事曆請假_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 行事曆請假_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 行事曆請假_tsm.Checked = Not 行事曆請假_tsm.Checked : End If : 人事捷徑繪製()
    End Sub
    Private Sub 行事曆請假_tsm_Click(sender As Object, e As EventArgs) Handles 行事曆請假_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 排班資料.Show() : 排班資料.BringToFront()
    End Sub
    Private Sub 行事曆請假_pb_Click(sender As Object, e As EventArgs) Handles 行事曆請假_pb.Click
        行事曆請假_tsm.PerformClick()
    End Sub
    Private Sub 行事曆請假_lb_Click(sender As Object, e As EventArgs) Handles 行事曆請假_lb.Click
        行事曆請假_tsm.PerformClick()
    End Sub
    Private Sub 系統組織結構圖_tsm_Click(sender As Object, e As EventArgs) Handles 組織結構_權限設定_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 系統組織結構與權限設定.Show() : 系統組織結構與權限設定.BringToFront()
    End Sub
    Private Sub 公司組織結構_tsm_Click(sender As Object, e As EventArgs) Handles 公司組織結構_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 公司組織結構.Show() : 公司組織結構.BringToFront()
    End Sub
    Private Sub LINE使用者管理表_tsm_Click(sender As Object, e As EventArgs) Handles LINE使用者管理表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : LINE_使用者管理表.Show() : LINE_使用者管理表.BringToFront()
    End Sub
    Private Sub LINE通知測試表_tsm_Click(sender As Object, e As EventArgs) Handles LINE通知測試表_tsm.Click
        重登計時() : 重置() : LINE_通知測試表.Show() : LINE_通知測試表.BringToFront()
    End Sub
    Private Sub LINE權限一覽表_Click(sender As Object, e As EventArgs) Handles LINE權限一覽表_tsm.Click
        重登計時() : 重置() : LINE_權限一覽表.Show() : LINE_權限一覽表.BringToFront()
    End Sub
    '------------------------工程系統管理-------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 工程系統管理_tsm_Click(sender As Object, e As EventArgs) Handles 工程系統管理_tsm.Click
        總務 = False : 業務 = False : 採購 = False : 工程 = True : 倉儲 = False : 財務 = False : 人事 = False : 桌面捷徑翻頁() : 工程捷徑繪製()
    End Sub
    Private Sub 工程材料表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 工程材料表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 工程材料表_tsm.Checked = Not 工程材料表_tsm.Checked : End If : 工程捷徑繪製()
    End Sub
    Private Sub 工程材料表_tsm_Click(sender As Object, e As EventArgs) Handles 工程材料表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 工程材料表.Show() : 工程材料表.BringToFront()
    End Sub
    Private Sub 工程材料表_pb_Click(sender As Object, e As EventArgs) Handles 工程材料表_pb.Click
        工程材料表_tsm.PerformClick()
    End Sub
    Private Sub 工程材料表_lb_Click(sender As Object, e As EventArgs) Handles 工程材料表_lb.Click
        工程材料表_tsm.PerformClick()
    End Sub
    Private Sub 合約驗收單1_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約驗收單1_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 合約驗收單1_tsm.Checked = Not 合約驗收單1_tsm.Checked : End If : 工程捷徑繪製()
    End Sub
    Private Sub 合約驗收單1_tsm_Click(sender As Object, e As EventArgs) Handles 合約驗收單1_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 系統分區控制 = False : 合約驗收單.Show() : 合約驗收單.BringToFront()
    End Sub
    Private Sub 合約驗收單1_pb_Click(sender As Object, e As EventArgs) Handles 合約驗收單1_pb.Click
        合約驗收單1_tsm.PerformClick()
    End Sub
    Private Sub 合約驗收單1_lb_Click(sender As Object, e As EventArgs) Handles 合約驗收單1_lb.Click
        合約驗收單1_tsm.PerformClick()
    End Sub
    Private Sub 合約驗收控制表1_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約驗收控制表1_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 合約驗收控制表1_tsm.Checked = Not 合約驗收控制表1_tsm.Checked : End If : 工程捷徑繪製()
    End Sub
    Private Sub 合約驗收控制表1_tsm_Click(sender As Object, e As EventArgs) Handles 合約驗收控制表1_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 系統分區控制 = False : 合約驗收控制表.Show() : 合約驗收控制表.BringToFront()
    End Sub
    Private Sub 合約驗收控制表1_pb_Click(sender As Object, e As EventArgs) Handles 合約驗收控制表1_pb.Click
        合約驗收控制表1_tsm.PerformClick()
    End Sub
    Private Sub 合約驗收控制表1_lb_Click(sender As Object, e As EventArgs) Handles 合約驗收控制表1_lb.Click
        合約驗收控制表1_tsm.PerformClick()
    End Sub
    Private Sub 合約結案控制表1_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約結案控制表1_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 合約結案控制表1_tsm.Checked = Not 合約結案控制表1_tsm.Checked : End If : 工程捷徑繪製()
    End Sub
    Private Sub 合約結案控制表1_tsm_Click(sender As Object, e As EventArgs) Handles 合約結案控制表1_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 系統分區控制 = False : 合約結案控制表.Show() : 合約結案控制表.BringToFront()
    End Sub
    Private Sub 合約結案控制表1_pb_Click(sender As Object, e As EventArgs) Handles 合約結案控制表1_pb.Click
        合約結案控制表1_tsm.PerformClick()
    End Sub
    Private Sub 合約結案控制表1_lb_Click(sender As Object, e As EventArgs) Handles 合約結案控制表1_lb.Click
        合約結案控制表1_tsm.PerformClick()
    End Sub
    Private Sub 工程進度表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 工程進度表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 工程進度表_tsm.Checked = Not 工程進度表_tsm.Checked : End If : 工程捷徑繪製()
    End Sub
    Private Sub 工程進度表_tsm_Click(sender As Object, e As EventArgs) Handles 工程進度表_tsm.Click
        GanttViewLocalizationProvider.CurrentProvider = New MyEnglishGanttViewLocalizationProvider()
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 新甘特圖模板.Show() : 新甘特圖模板.BringToFront()
    End Sub
    Private Sub 工程進度表_pb_Click(sender As Object, e As EventArgs) Handles 工程進度表_pb.Click
        工程進度表_tsm.PerformClick()
    End Sub
    Private Sub 工程進度表_lb_Click(sender As Object, e As EventArgs) Handles 工程進度表_lb.Click
        工程進度表_tsm.PerformClick()
    End Sub
    Private Sub 派工人數紀錄表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 派工人數紀錄表_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 派工人數紀錄表_tsm.Checked = Not 派工人數紀錄表_tsm.Checked : End If : 工程捷徑繪製()
    End Sub
    Private Sub 派工人數紀錄表_tsm_Click(sender As Object, e As EventArgs) Handles 派工人數紀錄表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 派工人數紀錄表.Show() : 派工人數紀錄表.BringToFront()
    End Sub
    Private Sub 派工人數紀錄表_pb_Click(sender As Object, e As EventArgs) Handles 派工人數紀錄表_pb.Click
        派工人數紀錄表_tsm.PerformClick()
    End Sub
    Private Sub 派工人數紀錄表_lb_Click(sender As Object, e As EventArgs) Handles 派工人數紀錄表_lb.Click
        派工人數紀錄表_tsm.PerformClick()
    End Sub
    Private Sub 工程日報表編輯_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 工程日報表編輯_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 工程日報表編輯_tsm.Checked = Not 工程日報表編輯_tsm.Checked : End If : 工程捷徑繪製()
    End Sub
    Private Sub 工程日報表編輯_tsm_Click(sender As Object, e As EventArgs) Handles 工程日報表編輯_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 工程日報表.Show() : 工程日報表.BringToFront()
    End Sub
    Private Sub 工程日報表編輯_pb_Click(sender As Object, e As EventArgs) Handles 工程日報表編輯_pb.Click
        工程日報表編輯_tsm.PerformClick()
    End Sub
    Private Sub 工程日報表編輯_lb_Click(sender As Object, e As EventArgs) Handles 工程日報表編輯_lb.Click
        工程日報表編輯_tsm.PerformClick()
    End Sub
    Private Sub 工程客變單_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 工程客變單_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 工程客變單_tsm.Checked = Not 工程客變單_tsm.Checked : End If : 工程捷徑繪製()
    End Sub
    Private Sub 工程客變單_tsm_Click(sender As Object, e As EventArgs) Handles 工程客變單_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 工程客變單.Show() : 工程客變單.BringToFront()
    End Sub
    Private Sub 工程客變單_pb_Click(sender As Object, e As EventArgs) Handles 工程客變單_pb.Click
        工程客變單_tsm.PerformClick()
    End Sub
    Private Sub 工程客變單_lb_Click(sender As Object, e As EventArgs) Handles 工程客變單_lb.Click
        工程客變單_tsm.PerformClick()
    End Sub
    Private Sub 工程維修單_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 工程維修單_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 工程維修單_tsm.Checked = Not 工程維修單_tsm.Checked : End If : 工程捷徑繪製()
    End Sub
    Private Sub 工程維修單_tsm_Click(sender As Object, e As EventArgs) Handles 工程維修單_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 工程維修單.Show() : 工程維修單.BringToFront()
    End Sub
    Private Sub 工程維修單_pb_Click(sender As Object, e As EventArgs) Handles 工程維修單_pb.Click
        工程維修單_tsm.PerformClick()
    End Sub
    Private Sub 工程維修單_lb_Click(sender As Object, e As EventArgs) Handles 工程維修單_lb.Click
        工程維修單_tsm.PerformClick()
    End Sub
    Private Sub 工程分區控制表1_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 工程分區控制表1_tsm.MouseDown     '-----------------------------------------------------------------
        If e.Button = MouseButtons.Right Then : 工程分區控制表1_tsm.Checked = Not 工程分區控制表1_tsm.Checked : End If : 工程捷徑繪製()
    End Sub
    Private Sub 工程分區控制表1_tsm_Click(sender As Object, e As EventArgs) Handles 工程分區控制表1_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 系統分區控制 = True : 倉儲分區控制表.Show() : 倉儲分區控制表.BringToFront()
    End Sub
    Private Sub 工程分區控制表1_pb_Click(sender As Object, e As EventArgs) Handles 工程分區控制表1_pb.Click
        工程分區控制表1_tsm.PerformClick()
    End Sub
    Private Sub 工程分區控制表1_lb_Click(sender As Object, e As EventArgs) Handles 工程分區控制表1_lb.Click
        工程分區控制表1_tsm.PerformClick()
    End Sub

    '------------------------資料庫系統管理-------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub FTP資料夾管理_tsm_Click(sender As Object, e As EventArgs) Handles FTP資料夾管理_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : FTP資料夾管理.Show() : FTP資料夾管理.BringToFront()
    End Sub
    Private Sub 系統執行檔版本管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 系統執行檔版本管理.Show() : 系統執行檔版本管理.BringToFront()
    End Sub
    Private Sub 系統使用者管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統使用者管理_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : BL = False : 系統使用者管理.Show() : 系統使用者管理.BringToFront()
    End Sub
    Private Sub 系統權限預設表_tsm_Click(sender As Object, e As EventArgs) Handles 系統權限預設表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 系統權限預設表.Show() : 系統權限預設表.BringToFront()
    End Sub
    Private Sub 系統開發用共享文件_tsm_Click(sender As Object, e As EventArgs) Handles 門禁系統設定_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 門禁系統設定.Show() : 門禁系統設定.BringToFront()
    End Sub
    Private Sub 簽名檔管理_tsm_Click(sender As Object, e As EventArgs) Handles 簽名檔管理_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 簽名檔管理.Show() : 簽名檔管理.BringToFront()
    End Sub
    Private Sub 系統對應電腦註冊_tsm_Click(sender As Object, e As EventArgs) Handles 系統對應電腦註冊_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 系統對應電腦註冊.Show() : 系統對應電腦註冊.BringToFront()
    End Sub
    Private Sub 系統通用變數管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統通用變數管理_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 系統通用變數管理.Show() : 系統通用變數管理.BringToFront()
    End Sub
    Private Sub 系統編碼規則_tsm_Click(sender As Object, e As EventArgs) Handles 系統編碼規則_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 系統編碼規則.Show() : 系統編碼規則.BringToFront()
    End Sub
    Private Sub 系統組織架構設定_tsm_Click(sender As Object, e As EventArgs) Handles 系統組織架構設定_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 系統組織架構設定.Show() : 系統組織架構設定.BringToFront()
    End Sub
    Private Sub 部門權限設定_tsm_Click(sender As Object, e As EventArgs) Handles 部門權限設定_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        虛擬桌面隱藏() : 重登計時() : 重置() : 部門權限設定.Show() : 部門權限設定.BringToFront()
    End Sub
    '------------------------測試與其他-------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub TEST_tsm_Click(sender As Object, e As EventArgs) Handles TEST_tsm.Click
        流程圖工具.ShowDialog()
    End Sub
    Private Sub Calculator_bt_Click(sender As Object, e As EventArgs) Handles Calculator_bt.Click
        Shell("calc")     'PA = "" : 計算機.Show() : 計算機.BringToFront()
    End Sub
    Private Sub TEST_FORM_tsm_Click(sender As Object, e As EventArgs) Handles TEST_FORM_tsm.Click
        虛擬桌面隱藏() : 重登計時() : 重置() : 測試介面.Show() : 測試介面.BringToFront()
    End Sub
    Private Sub PDF_TEST_tsm_Click(sender As Object, e As EventArgs) Handles PDF_TEST_tsm.Click
        PdfViewerLocalizationProvider.CurrentProvider = New MyLocalizationProvider()
        重登計時() : 重置() : PDF預覽.Show() : PDF預覽.BringToFront()
    End Sub
    Private Sub WORD_TEST_tsm_Click(sender As Object, e As EventArgs) Handles WORD_TEST_tsm.Click
        考勤打卡.Show()
    End Sub
    Private Sub 開發模板庫ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 開發模板庫_tsm.Click
        虛擬桌面隱藏() : 重登計時() : 重置() : 開發模板庫.Show() : 開發模板庫.BringToFront()
    End Sub
    ''------------------------代辦事項通知-------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 計算分流1_Tick(sender As Object, e As EventArgs) Handles 計算分流1.Tick
        計算分流1.Enabled = False
        Dim ds16 As New DataSet : 工作狀態_dgv.DataSource = Nothing : ds16.Clear() : 工作狀態_dgv.AllowUserToAddRows = False
        SQL_工作狀態匯總表_讀取() : da.Fill(ds16) : 工作狀態_dgv.DataSource = ds16.Tables(0) : conn.Close()
        跑馬燈.Enabled = False
        Set_部門聯絡函_未審() : Set_部門聯絡函_未收() : Set_部門聯絡函_未執行() : Set_部門聯絡函_未驗收() : Set_部門聯絡函_請假() : Set_部門聯絡函_派車()
        Set_財務支付單未核准() : Set_供應商資料_未審核() : Set_人員合約到期() : Set_公告清單()
        跑馬燈.Enabled = True
        If 代辦事項_tv.Nodes.Count = 0 Then : Else
            Dim 逆行 As Integer = 代辦事項_tv.Nodes.Count - 1 : For i As Integer = 0 To 代辦事項_tv.Nodes.Count - 1 : 代辦事項_tv.Nodes.RemoveAt(逆行) : 逆行 -= 1 : Next
        End If : NN1 = 0

        If 深色風格 = False Then
            代辦事項_tv.Nodes.Add(對話框(31)) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1
            If 聯絡函_未審_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(4) & 聯絡函_未審_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1 : End If
            If 聯絡函_未收_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(5) & 聯絡函_未收_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1 : End If
            If 聯絡函_未執行_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(6) & 聯絡函_未執行_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1 : End If
            If 聯絡函_未驗收_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(7) & 聯絡函_未驗收_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1 : End If
            If CInt(登入人級別) <= 3 Or 登入人部門 = "2.管理部 Management" Then
                If 聯絡函_請假_dgv.Rows.Count > 0 Then
                    代辦事項_tv.Nodes.Add(對話框(27) & " : " & 聯絡函_請假_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1 : End If
                If 聯絡函_派車_dgv.Rows.Count > 0 Then
                    代辦事項_tv.Nodes.Add(對話框(28) & " : " & 聯絡函_派車_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1 : End If
                If 員工合約_dgv.Rows.Count > 0 Then
                    代辦事項_tv.Nodes.Add(對話框(15) & " : " & 員工合約_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : End If
            End If
            If CInt(登入人級別) <= 3 Then
                代辦事項_tv.Nodes.Add(對話框(32)) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Purple : NN1 += 1
                If 支付單未准_dgv.Rows.Count > 0 Then
                    代辦事項_tv.Nodes.Add(對話框(29) & " : " & 支付單未准_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Purple : NN1 += 1 : End If
            End If
            If CInt(登入人級別) <= 2 Then
                If 銀行資料修改_dgv.Rows.Count > 0 Then
                    代辦事項_tv.Nodes.Add(對話框(30) & " : " & 銀行資料修改_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Purple : NN1 += 1 : End If
            End If
            If CC(5) = True Then
                代辦事項_tv.Nodes.Add(對話框(33)) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約預估利潤" Then : 數量(0) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(0) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(16) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(5) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "報價未完成" Then : 數量(1) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(1) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(18) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(5) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約未放行" Then : 數量(2) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(2) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(17) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(5) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "報價未簽回" Then : 數量(3) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(3) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(19) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(5) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約未簽回" Then : 數量(4) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(4) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(20) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(5) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約請款1" Then : 數量(5) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(5) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(8) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(5) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約請款2" Then : 數量(6) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(6) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(9) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(5) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約請款3" Then : 數量(7) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(7) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(10) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(5) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約請款4" Then : 數量(8) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(8) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(11) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(5) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約請款5" Then : 數量(9) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(9) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(12) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(8) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約未指定主管" Then : 數量(10) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(10) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(14) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(8) = True Then
                代辦事項_tv.Nodes.Add(對話框(34)) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約未驗收" Then : 數量(12) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(12) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(13) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(8) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "驗收未簽回" Then : 數量(13) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(13) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(21) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(8) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "保固未簽回" Then : 數量(14) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(14) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(22) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(6) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "請購單" Then : 數量(15) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(15) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(0) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(6) = True Then
                代辦事項_tv.Nodes.Add(對話框(35)) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Teal : NN1 += 1
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "詢價單" Then : 數量(16) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(16) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(1) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.Teal : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(6) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "採購核准11" Then : 數量(17) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(17) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(2) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.Teal : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(6) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "採購核准12" Then : 數量(18) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(18) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(3) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.Teal : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
        Else
            代辦事項_tv.Nodes.Add(對話框(31)) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.White : NN1 += 1
            If 聯絡函_未審_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(4) & 聯絡函_未審_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.White : NN1 += 1 : End If
            If 聯絡函_未收_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(5) & 聯絡函_未收_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.White : NN1 += 1 : End If
            If 聯絡函_未執行_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(6) & 聯絡函_未執行_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.White : NN1 += 1 : End If
            If 聯絡函_未驗收_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(7) & 聯絡函_未驗收_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.White : NN1 += 1 : End If
            If CInt(登入人級別) <= 3 Or 登入人部門 = "2.管理部 Management" Then
                If 聯絡函_請假_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(27) & " : " & 聯絡函_請假_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.White : NN1 += 1 : End If
                If 聯絡函_派車_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(28) & " : " & 聯絡函_派車_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.White : NN1 += 1 : End If
                If 員工合約_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(15) & " : " & 員工合約_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.LightPink : NN1 += 1 : End If
            End If
            If CInt(登入人級別) <= 3 Then
                代辦事項_tv.Nodes.Add(對話框(32)) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Thistle : NN1 += 1
                If 支付單未准_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(29) & " : " & 支付單未准_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Thistle : NN1 += 1 : End If
                If 銀行資料修改_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(30) & " : " & 銀行資料修改_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Thistle : NN1 += 1 : End If
            End If
            If CC(5) = True Then
                代辦事項_tv.Nodes.Add(對話框(33)) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約預估利潤" Then : 數量(0) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(0) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(16) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(5) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "報價未完成" Then : 數量(1) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(1) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(18) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(5) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約未放行" Then : 數量(2) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(2) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(17) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(5) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "報價未簽回" Then : 數量(3) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(3) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(19) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(5) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約未簽回" Then : 數量(4) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(4) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(20) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(5) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約請款1" Then : 數量(5) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(5) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(8) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(5) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約請款2" Then : 數量(6) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(6) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(9) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(5) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約請款3" Then : 數量(7) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(7) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(10) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(5) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約請款4" Then : 數量(8) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(8) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(11) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(5) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約請款5" Then : 數量(9) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(9) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(12) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(8) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約未指定主管" Then : 數量(10) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(10) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(14) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(8) = True Then
                代辦事項_tv.Nodes.Add(對話框(34)) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.LightPink : NN1 += 1
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約未驗收" Then : 數量(12) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(12) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(13) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.LightPink : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(8) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "驗收未簽回" Then : 數量(13) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(13) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(21) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.LightPink : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(8) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "保固未簽回" Then : 數量(14) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(14) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(22) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.LightPink : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(6) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "請購單" Then : 數量(15) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(15) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(0) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.LightPink : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(6) = True Then
                代辦事項_tv.Nodes.Add(對話框(35)) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Aqua : NN1 += 1
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "詢價單" Then : 數量(16) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(16) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(1) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.Aqua : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(6) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "採購核准11" Then : 數量(17) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(17) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(2) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.Aqua : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
            If CC(6) = True Then
                For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1
                    If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "採購核准12" Then : 數量(18) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")
                        If 數量(18) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(3) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0"))
                            代辦事項_tv.Nodes(NN1).ForeColor = Color.Aqua : NN1 += 1 : Exit For : Else : Exit For : End If
                    End If
                Next
            End If
        End If
    End Sub
    Private Sub 代辦清單重置()
        聯絡函_未審_dgv.Visible = False : 聯絡函_未收_dgv.Visible = False : 聯絡函_未執行_dgv.Visible = False : 聯絡函_未驗收_dgv.Visible = False : 聯絡函_請假_dgv.Visible = False
        合約請款1_dgv.Visible = False : 合約請款2_dgv.Visible = False : 合約請款3_dgv.Visible = False : 合約請款4_dgv.Visible = False : 合約請款5_dgv.Visible = False
        合約未指定主管_dgv.Visible = False : 員工合約_dgv.Visible = False : 合約未驗收_dgv.Visible = False : 請購單_dgv.Visible = False : 詢價單_dgv.Visible = False
        採購核准11_dgv.Visible = False : 採購核准12_dgv.Visible = False : 合約預估利潤_dgv.Visible = False : 合約未放行_dgv.Visible = False : 報價未完成_dgv.Visible = False
        報價未簽回_dgv.Visible = False : 合約未簽回_dgv.Visible = False : 驗收未簽回_dgv.Visible = False : 保固未簽回_dgv.Visible = False : 聯絡函_派車_dgv.Visible = False
        支付單未准_dgv.Visible = False : 銀行資料修改_dgv.Visible = False
    End Sub
    Private Sub Cancel_bt_Click(sender As Object, e As EventArgs) Handles Cancel_bt.Click
        If 視窗1_pl.Visible = False Then : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : Else : 視窗1_pl.Visible = False : 視窗1_pl.SendToBack() : End If : 代辦清單重置()
    End Sub
    Private Sub 代辦事項_tv_Click(sender As Object, e As EventArgs) Handles 代辦事項_tv.Click
        待辦選擇 = True
    End Sub
    Private Sub 代辦事項_tv_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles 代辦事項_tv.AfterSelect
        If 待辦選擇 = True Then
            Dim X座標 As Integer = Me.Size.Width / 2 - 300
            Select Case (e.Node.Text)
                Case 對話框(4) & 聯絡函_未審_dgv.Rows.Count : 標題_lb.Text = 對話框(4) & 聯絡函_未審_dgv.Rows.Count
                    代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 聯絡函_未審_dgv.Visible = True
                Case 對話框(5) & 聯絡函_未收_dgv.Rows.Count : 標題_lb.Text = 對話框(5) & 聯絡函_未收_dgv.Rows.Count
                    代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 聯絡函_未收_dgv.Visible = True
                Case 對話框(6) & 聯絡函_未執行_dgv.Rows.Count : 標題_lb.Text = 對話框(6) & 聯絡函_未執行_dgv.Rows.Count
                    代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 聯絡函_未執行_dgv.Visible = True
                Case 對話框(7) & 聯絡函_未驗收_dgv.Rows.Count : 標題_lb.Text = 對話框(7) & 聯絡函_未驗收_dgv.Rows.Count
                    代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 聯絡函_未驗收_dgv.Visible = True
                Case 對話框(27) & " : " & 聯絡函_請假_dgv.Rows.Count : 標題_lb.Text = 對話框(27) & 聯絡函_請假_dgv.Rows.Count
                    代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 聯絡函_請假_dgv.Visible = True
                Case 對話框(28) & " : " & 聯絡函_派車_dgv.Rows.Count : 標題_lb.Text = 對話框(28) & 聯絡函_派車_dgv.Rows.Count
                    代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 聯絡函_派車_dgv.Visible = True
                Case 對話框(29) & " : " & 支付單未准_dgv.Rows.Count : 標題_lb.Text = 對話框(29) & " : " & 支付單未准_dgv.Rows.Count
                    代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 支付單未准_dgv.Visible = True
                Case 對話框(30) & " : " & 銀行資料修改_dgv.Rows.Count : 標題_lb.Text = 對話框(30) & " : " & 銀行資料修改_dgv.Rows.Count
                    If 銀行資料修改_dgv.Rows.Count <> 0 Then : 銀行資料修改審核_tsm.PerformClick() : End If
                Case 對話框(15) & " : " & 員工合約_dgv.Rows.Count : 標題_lb.Text = 對話框(15) & " : " & 員工合約_dgv.Rows.Count
                    代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 員工合約_dgv.Visible = True

                Case 對話框(16) & 數量(0) : 標題_lb.Text = 對話框(16) & " " & 數量(0)
                    代辦清單重置() : Set_合約未設利潤() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約預估利潤_dgv.Visible = True
                Case 對話框(18) & 數量(1) : 標題_lb.Text = 對話框(18) & " " & 數量(1)
                    代辦清單重置() : Set_報價未完成() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 報價未完成_dgv.Visible = True
                Case 對話框(17) & 數量(2) : 標題_lb.Text = 對話框(17) & " " & 數量(2)
                    代辦清單重置() : Set_合約未放行() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約未放行_dgv.Visible = True
                Case 對話框(19) & 數量(3) : 標題_lb.Text = 對話框(19) & " " & 數量(3)
                    代辦清單重置() : Set_報價未簽回() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 報價未簽回_dgv.Visible = True
                Case 對話框(20) & 數量(4) : 標題_lb.Text = 對話框(20) & " " & 數量(4)
                    代辦清單重置() : Set_合約未簽回() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約未簽回_dgv.Visible = True
                Case 對話框(8) & 數量(5) : 標題_lb.Text = 對話框(8) & " " & 數量(5)
                    代辦清單重置() : Set_合約未請款1() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款1_dgv.Visible = True
                Case 對話框(9) & 數量(6) : 標題_lb.Text = 對話框(9) & " " & 數量(6)
                    代辦清單重置() : Set_合約未請款2() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款2_dgv.Visible = True
                Case 對話框(10) & 數量(7) : 標題_lb.Text = 對話框(10) & " " & 數量(7)
                    代辦清單重置() : Set_合約未請款3() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款3_dgv.Visible = True
                Case 對話框(11) & 數量(8) : 標題_lb.Text = 對話框(11) & " " & 數量(8)
                    代辦清單重置() : Set_合約未請款4() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款4_dgv.Visible = True
                Case 對話框(12) & 數量(9) : 標題_lb.Text = 對話框(12) & " " & 數量(9)
                    代辦清單重置() : Set_合約未請款5() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款5_dgv.Visible = True

                Case 對話框(14) & 數量(10) : 標題_lb.Text = 對話框(14) & " " & 數量(10)
                    代辦清單重置() : Set_合約未指定主管() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約未指定主管_dgv.Visible = True
                Case 對話框(13) & 數量(12) : 標題_lb.Text = 對話框(13) & " " & 數量(12)
                    代辦清單重置() : Set_合約未驗收() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約未驗收_dgv.Visible = True
                Case 對話框(21) & 數量(13) : 標題_lb.Text = 對話框(21) & " " & 數量(13)
                    代辦清單重置() : Set_合約驗收單未簽回() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 驗收未簽回_dgv.Visible = True
                Case 對話框(22) & 數量(14) : 標題_lb.Text = 對話框(22) & " " & 數量(14)
                    代辦清單重置() : Set_合約保固單未簽() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 保固未簽回_dgv.Visible = True

                Case 對話框(0) & 數量(15) : 標題_lb.Text = 對話框(0) & " " & 數量(15)
                    代辦清單重置() : Set_請購單() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 請購單_dgv.Visible = True
                Case 對話框(1) & 數量(16) : 標題_lb.Text = 對話框(1) & " " & 數量(16)
                    代辦清單重置() : Set_詢價單1() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 詢價單_dgv.Visible = True
                Case 對話框(2) & 數量(17) : 標題_lb.Text = 對話框(2) & " " & 數量(17)
                    代辦清單重置() : Set_採購核准11() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 採購核准11_dgv.Visible = True
                Case 對話框(3) & 數量(18) : 標題_lb.Text = 對話框(3) & " " & 數量(18)
                    代辦清單重置() : Set_採購核准12() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 採購核准12_dgv.Visible = True
            End Select : 待辦選擇 = False
        End If
    End Sub
    '----------------------視窗滑鼠拖曳功能---------------------------------------------------------------------------------------------------------
    Dim OldX, OldY As Long : Dim drag As Boolean
    Private Sub 視窗1_pl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗1_pl.MouseDown
        If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If
    End Sub
    Private Sub 視窗1_pl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗1_pl.MouseMove
        If drag Then : 視窗1_pl.Left = 視窗1_pl.Left + e.X - OldX : 視窗1_pl.Top = 視窗1_pl.Top + e.Y - OldY : End If
    End Sub
    Private Sub 刷新表格_Tick(sender As Object, e As EventArgs) Handles 刷新表格.Tick
        載入車輛清單() : 載入車輛動態清單() : 載入人員清單() : 載入人員動態清單() : Set_庫存查詢()
    End Sub
    Private Sub 車輛動態_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 車輛動態_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            PB = "車輛動態" : 待辦事項連接_兩項.ShowDialog() : 待辦事項連接_兩項.BringToFront()
            If PB = "A" Then
                PA50 = 車輛動態_dgv("車輛編號", e.RowIndex).Value.ToString
                車輛明細表.ShowDialog() : 車輛明細表.BringToFront()
            Else
                For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
                虛擬桌面隱藏() : 重登計時() : 重置() : PA50 = 車輛動態_dgv("車輛編號", e.RowIndex).Value.ToString : PA51 = "車輛" : 日曆.Show() : 日曆.BringToFront()
            End If

        End If
    End Sub
    Private Sub 人員動態_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 人員動態_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            PB = "人員動態" : 待辦事項連接_兩項.ShowDialog() : 待辦事項連接_兩項.BringToFront()
            If PB = "A" Then
                PA50 = 人員動態_dgv(表頭(191), e.RowIndex).Value.ToString
                人員明細表.ShowDialog() : 人員明細表.BringToFront()
            Else
                For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
                虛擬桌面隱藏() : 重登計時() : 重置() : PA50 = 人員動態_dgv(表頭(191), e.RowIndex).Value.ToString : PA51 = "人員" : 日曆.Show() : 日曆.BringToFront()
            End If
        End If
    End Sub
    Private Sub 重讀_bt_Click(sender As Object, e As EventArgs) Handles 重讀_bt.Click
        載入車輛清單() : 載入車輛動態清單() : 載入人員清單() : 載入人員動態清單() : Set_庫存查詢() : 計算分流1.Enabled = True
    End Sub
    Private Sub 網頁介面ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 網頁介面ToolStripMenuItem.Click
        If 不用WEB = False Then
            INB("請輸入要測試的網址，如果沒有請輸入 [1] ") : PA50 = 訊息回應 : 介面 = "H001" : WEB說明頁面.Show()
        Else : MsgBox("No Open Web") : End If
    End Sub
    Private Sub 使用者1_cb_Click(sender As Object, e As EventArgs) Handles 使用者1_cb.Click
        gUserName = 使用者1_cb.Text
    End Sub
    Private Sub 視窗1_pl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗1_pl.MouseUp
        drag = False
    End Sub
    Friend Class GanttChart
        Inherits Global.HX_PGS_ERP_SYS.GanttChart
    End Class
    Private Sub 深色風格_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 深色風格_ch.Click
        If 深色風格_ch.Checked = False Then
            深色風格_ch.Checked = False : 深色風格 = False : 風格()
            Dim strDirName As String : Dim Strs As String = Application.StartupPath
            If File.Exists(Strs & "\HXSTYLE.txt") Then : File.Delete(Strs & "\HXSTYLE.txt") : End If
            strDirName = Strs & "\HXSTYLE.txt"
            Try
                Using fs As IO.FileStream = New IO.FileStream(strDirName, FileMode.Append)
                    Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                        Dim str As String = "B"
                        sw.WriteLine(str)   '插入一整行
                        sw.Flush()
                    End Using
                End Using
            Catch ex As Exception
            End Try
        Else
            深色風格_ch.Checked = True : 深色風格 = True : 風格()
            Dim strDirName As String : Dim Strs As String = Application.StartupPath
            If File.Exists(Strs & "\HXSTYLE.txt") Then : File.Delete(Strs & "\HXSTYLE.txt") : End If
            strDirName = Strs & "\HXSTYLE.txt"
            Try
                Using fs As IO.FileStream = New IO.FileStream(strDirName, FileMode.Append)
                    Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                        Dim str As String = "W"
                        sw.WriteLine(str)   '插入一整行
                        sw.Flush()
                    End Using
                End Using
            Catch ex As Exception
            End Try
        End If : If 低網速模式 = False Then : 計算分流1.Enabled = True : Else : End If
    End Sub
    Private Sub 風格()
        If 深色風格 = False Then
            虛擬桌_pl.BackgroundImage = My.Resources._20122712_MotionElements_green_wave_line_background
            虛擬桌_人事_pl.BackgroundImage = My.Resources._20122712_MotionElements_green_wave_line_background
            虛擬桌_倉儲_pl.BackgroundImage = My.Resources._20122712_MotionElements_green_wave_line_background
            虛擬桌_工程_pl.BackgroundImage = My.Resources._20122712_MotionElements_green_wave_line_background
            虛擬桌_採購_pl.BackgroundImage = My.Resources._20122712_MotionElements_green_wave_line_background
            虛擬桌_業務_pl.BackgroundImage = My.Resources._20122712_MotionElements_green_wave_line_background
            虛擬桌_總務_pl.BackgroundImage = My.Resources._20122712_MotionElements_green_wave_line_background
            虛擬桌_財務_pl.BackgroundImage = My.Resources._20122712_MotionElements_green_wave_line_background
            UI優化_P.BackgroundImage = My.Resources._20122712_MotionElements_green_wave_line_background : MenuStrip.BackColor = Color.Linen : 主框_sc.BackColor = Color.PaleGreen
            StatusStrip1.BackColor = Color.LightBlue : Calculator_bt.BackColor = Color.Orange : Calculator_bt.ForeColor = Color.Black
            深色風格_ch.BackColor = Color.LightBlue : 深色風格_ch.ForeColor = Color.Blue : 低網速模式_ch.BackColor = Color.LightBlue : 低網速模式_ch.ForeColor = Color.Blue
            SYS_SET_tsm.ForeColor = Color.Black : 斜線_tss.ForeColor = Color.Black : 著作權_tss.ForeColor = Color.Black : 執行進度_tss.ForeColor = Color.Blue
            合計_TSSL.ForeColor = Color.Black : 代辦事項_tv.BackColor = Color.White : Label2.ForeColor = Color.Black : Label1.ForeColor = Color.Black : Panel1.BackColor = Color.White
            桌面通知_pl.BackColor = Color.White : 標題_lb.ForeColor = Color.Black : 視窗1_pl.BackColor = Color.Linen : 簡易庫存_tv.BackColor = Color.White
            跑馬燈_tb.BackColor = Color.White : 跑馬燈_tb.ForeColor = Color.Red
            '-------一般-----------------------------------------------------
            檔案_tsm.ForeColor = Color.Black : 視窗_tsm.ForeColor = Color.Black : 總務系統管理_tsm.ForeColor = Color.Black : 人事系統管理_tsm.ForeColor = Color.Black
            資料庫系統管理_tsm.ForeColor = Color.Black : 聯絡函部門主管審核_lb.ForeColor = Color.Black : 投訴信箱_lb.ForeColor = Color.Black : 會議記錄_lb.ForeColor = Color.Black
            部門聯絡函申請_lb.ForeColor = Color.Black : 聯絡函最高主管核准_lb.ForeColor = Color.Black : 部門聯絡函一覽表_lb.ForeColor = Color.Black : 文件伺服器_lb.ForeColor = Color.Black
            系統使用說明_lb.ForeColor = Color.Black : 車輛管理_lb.ForeColor = Color.Black : 新版_ch.ForeColor = Color.Black : 舊版_ch.ForeColor = Color.Black
            公告管理_lb.ForeColor = Color.Black

            車輛管理_tsm.BackColor = Color.White : 車輛管理_tsm.ForeColor = Color.Black : 個人帳號管理_tsm.BackColor = Color.White : 個人帳號管理_tsm.ForeColor = Color.Black
            結束_tsm.BackColor = Color.White : 結束_tsm.ForeColor = Color.Black : 開新視窗_tsm.BackColor = Color.White : 開新視窗_tsm.ForeColor = Color.Black
            重疊顯示_tsm.BackColor = Color.White : 重疊顯示_tsm.ForeColor = Color.Black : 垂直並排_tsm.BackColor = Color.White : 垂直並排_tsm.ForeColor = Color.Black
            水平並排_tsm.BackColor = Color.White : 水平並排_tsm.ForeColor = Color.Black : 全部關閉_tsm.BackColor = Color.White : 全部關閉_tsm.ForeColor = Color.Black
            排列圖示_tsm.BackColor = Color.White : 排列圖示_tsm.ForeColor = Color.Black : 文件伺服器_tsm.BackColor = Color.White : 文件伺服器_tsm.ForeColor = Color.Black
            系統使用說明_tsm.BackColor = Color.White : 系統使用說明_tsm.ForeColor = Color.Black : 聯絡函部門主管審核_tsm.BackColor = Color.White : 聯絡函部門主管審核_tsm.ForeColor = Color.Black
            公告管理_tsm.BackColor = Color.White : 公告管理_tsm.ForeColor = Color.Black : 會議記錄_tsm.BackColor = Color.White : 會議記錄_tsm.ForeColor = Color.Black
            部門聯絡函一覽表_tsm.BackColor = Color.White : 部門聯絡函一覽表_tsm.ForeColor = Color.Black : 安培容量計算表_tsm.BackColor = Color.White : 安培容量計算表_tsm.ForeColor = Color.Black
            部門聯絡函申請_tsm.BackColor = Color.White : 部門聯絡函申請_tsm.ForeColor = Color.Black : 聯絡函最高主管核准_tsm.BackColor = Color.White : 聯絡函最高主管核准_tsm.ForeColor = Color.Black
            系統使用者管理_tsm.BackColor = Color.White : 系統使用者管理_tsm.ForeColor = Color.Black : 系統權限預設表_tsm.BackColor = Color.White : 系統權限預設表_tsm.ForeColor = Color.Black
            系統組織架構設定_tsm.BackColor = Color.White : 系統組織架構設定_tsm.ForeColor = Color.Black : 部門權限設定_tsm.BackColor = Color.White : 部門權限設定_tsm.ForeColor = Color.Black
            系統通用變數管理_tsm.BackColor = Color.White : 系統通用變數管理_tsm.ForeColor = Color.Black : 系統編碼規則_tsm.BackColor = Color.White : 系統編碼規則_tsm.ForeColor = Color.Black
            系統對應電腦註冊_tsm.BackColor = Color.White : 系統對應電腦註冊_tsm.ForeColor = Color.Black : FTP資料夾管理_tsm.BackColor = Color.White : FTP資料夾管理_tsm.ForeColor = Color.Black
            系統執行檔版本管理_tsm.BackColor = Color.White : 系統執行檔版本管理_tsm.ForeColor = Color.Black : 簽名檔管理_tsm.BackColor = Color.White : 簽名檔管理_tsm.ForeColor = Color.Black
            門禁系統設定_tsm.BackColor = Color.White : 門禁系統設定_tsm.ForeColor = Color.Black : 開發模板庫_tsm.BackColor = Color.White : 開發模板庫_tsm.ForeColor = Color.Black
            管徑流速流量計算器_tsm.BackColor = Color.White : 管徑流速流量計算器_tsm.ForeColor = Color.Black : 投訴信箱_tsm.BackColor = Color.White : 投訴信箱_tsm.ForeColor = Color.Black
            '-------業務-----------------------------------------------------
            合約執行進度_lb.ForeColor = Color.DarkGreen : 合約報價單_lb.ForeColor = Color.DarkGreen : 合約本文_lb.ForeColor = Color.DarkGreen : 附錄合約_lb.ForeColor = Color.DarkGreen
            合約驗收單_lb.ForeColor = Color.DarkGreen : 合約請款單_lb.ForeColor = Color.DarkGreen : 合約請款控制表_lb.ForeColor = Color.DarkGreen : 合約報價單審核_lb.ForeColor = Color.DarkGreen
            合約驗收控制表_lb.ForeColor = Color.DarkGreen : 合約文件簽核控制表_lb.ForeColor = Color.DarkGreen : 合約文件簽回存檔_lb.ForeColor = Color.DarkGreen
            合約利潤預估表_lb.ForeColor = Color.DarkGreen : 合約保固書_lb.ForeColor = Color.DarkGreen : 合約工程圖庫管理_lb.ForeColor = Color.DarkGreen : 客戶資料表_lb.ForeColor = Color.DarkGreen
            工程項目BOM表_lb.ForeColor = Color.DarkGreen : 合約結案控制表_lb.ForeColor = Color.DarkGreen : 業務系統管理_tsm.ForeColor = Color.DarkGreen

            合約執行進度_tsm.BackColor = Color.White : 合約執行進度_tsm.ForeColor = Color.DarkGreen : 合約利潤預估表_tsm.BackColor = Color.White : 合約利潤預估表_tsm.ForeColor = Color.DarkGreen
            合約報價單_tsm.BackColor = Color.White : 合約報價單_tsm.ForeColor = Color.DarkGreen : 合約報價單審核_tsm.BackColor = Color.White : 合約報價單審核_tsm.ForeColor = Color.DarkGreen
            合約請款單_tsm.BackColor = Color.White : 合約請款單_tsm.ForeColor = Color.DarkGreen : 合約請款控制表_tsm.BackColor = Color.White : 合約請款控制表_tsm.ForeColor = Color.DarkGreen
            合約驗收單_tsm.BackColor = Color.White : 合約驗收單_tsm.ForeColor = Color.DarkGreen : 合約驗收控制表_tsm.BackColor = Color.White : 合約驗收控制表_tsm.ForeColor = Color.DarkGreen
            合約保固書_tsm.BackColor = Color.White : 合約保固書_tsm.ForeColor = Color.DarkGreen : 合約文件簽回存檔_tsm.BackColor = Color.White : 合約文件簽回存檔_tsm.ForeColor = Color.DarkGreen
            合約文件簽核控制表_tsm.BackColor = Color.White : 合約文件簽核控制表_tsm.ForeColor = Color.DarkGreen : 合約本文_tsm.BackColor = Color.White : 合約本文_tsm.ForeColor = Color.DarkGreen
            合約結案控制表_tsm.BackColor = Color.White : 合約結案控制表_tsm.ForeColor = Color.DarkGreen : 客戶資料表_tsm.BackColor = Color.White : 客戶資料表_tsm.ForeColor = Color.DarkGreen
            合約工程圖庫管理_tsm.BackColor = Color.White : 合約工程圖庫管理_tsm.ForeColor = Color.DarkGreen : 附錄合約_tsm.BackColor = Color.White : 附錄合約_tsm.ForeColor = Color.DarkGreen
            工程項目BOM表_tsm.BackColor = Color.White : 工程項目BOM表_tsm.ForeColor = Color.DarkGreen : 合約模組設定_tsm.BackColor = Color.White : 合約模組設定_tsm.ForeColor = Color.DarkGreen
            工程分區控制表_tsm.BackColor = Color.White : 工程分區控制表_tsm.ForeColor = Color.DarkGreen
            '-------採購-----------------------------------------------------
            採購單一級核准_lb.ForeColor = Color.DarkBlue : 供應商管理_lb.ForeColor = Color.DarkBlue : 採購驗收對帳表_lb.ForeColor = Color.DarkBlue : 採購系統管理_tsm.ForeColor = Color.DarkBlue
            入庫驗收單_lb.ForeColor = Color.DarkBlue : 物料採購統計表_lb.ForeColor = Color.DarkBlue : 供應商商品單價設定_lb.ForeColor = Color.DarkBlue : 電信費追加執行_lb.ForeColor = Color.DarkBlue
            請購單申請_lb.ForeColor = Color.DarkBlue : 請購單核準_lb.ForeColor = Color.DarkBlue : 採購單編輯_lb.ForeColor = Color.DarkBlue : 採購轉財務收支單_lb.ForeColor = Color.DarkBlue
            採購單一覽表_lb.ForeColor = Color.DarkBlue : 請購一覽表_lb.ForeColor = Color.DarkBlue : 採購單詢價_lb.ForeColor = Color.DarkBlue : 電信費追加申請_lb.ForeColor = Color.DarkBlue
            採購單二級核准_lb.ForeColor = Color.DarkBlue : 銀行資料修改審核_lb.ForeColor = Color.DarkBlue

            採購單編輯_tsm.BackColor = Color.White : 採購單編輯_tsm.ForeColor = Color.DarkBlue
            採購單二級核准_tsm.BackColor = Color.White : 採購單二級核准_tsm.ForeColor = Color.DarkBlue : 採購單一覽表_tsm.BackColor = Color.White : 採購單一覽表_tsm.ForeColor = Color.DarkBlue
            採購轉財務收支單_tsm.BackColor = Color.White : 採購轉財務收支單_tsm.ForeColor = Color.DarkBlue : 採購單一級核准_tsm.BackColor = Color.White : 採購單一級核准_tsm.ForeColor = Color.DarkBlue
            採購驗收對帳表_tsm.BackColor = Color.White : 採購驗收對帳表_tsm.ForeColor = Color.DarkBlue : 樣品請購單申請_tsm.BackColor = Color.White : 樣品請購單申請_tsm.ForeColor = Color.DarkBlue
            樣品請購單核准_tsm.BackColor = Color.White : 樣品請購單核准_tsm.ForeColor = Color.DarkBlue : 樣品採購單生成_tsm.BackColor = Color.White : 樣品採購單生成_tsm.ForeColor = Color.DarkBlue
            樣品請購單一覽表_tsm.BackColor = Color.White : 樣品請購單一覽表_tsm.ForeColor = Color.DarkBlue : 入庫驗收單_tsm.BackColor = Color.White : 入庫驗收單_tsm.ForeColor = Color.DarkBlue
            樣品採購單一級核准_tsm.BackColor = Color.White : 樣品採購單一級核准_tsm.ForeColor = Color.DarkBlue : 請購單申請_tsm.BackColor = Color.White : 請購單申請_tsm.ForeColor = Color.DarkBlue
            樣品採購單二級核准_tsm.BackColor = Color.White : 樣品採購單二級核准_tsm.ForeColor = Color.DarkBlue : 請購單核準_tsm.BackColor = Color.White : 請購單核準_tsm.ForeColor = Color.DarkBlue
            樣品採購單一覽表_tsm.BackColor = Color.White : 樣品採購單一覽表_tsm.ForeColor = Color.DarkBlue : 樣品來料驗收單_tsm.BackColor = Color.White : 樣品來料驗收單_tsm.ForeColor = Color.DarkBlue
            樣品採購驗收對帳表_tsm.BackColor = Color.White : 樣品採購驗收對帳表_tsm.ForeColor = Color.DarkBlue : 請購一覽表_tsm.BackColor = Color.White : 請購一覽表_tsm.ForeColor = Color.DarkBlue
            供應商管理_tsm.BackColor = Color.White : 供應商管理_tsm.ForeColor = Color.DarkBlue : 樣品供應商管理_tsm.BackColor = Color.White : 樣品供應商管理_tsm.ForeColor = Color.DarkBlue
            供應商商品單價設定_tsm.BackColor = Color.White : 供應商商品單價設定_tsm.ForeColor = Color.DarkBlue : 採購單詢價_tsm.BackColor = Color.White : 採購單詢價_tsm.ForeColor = Color.DarkBlue
            物料採購統計表_tsm.BackColor = Color.White : 物料採購統計表_tsm.ForeColor = Color.DarkBlue : 電信費追加申請_tsm.BackColor = Color.White : 電信費追加申請_tsm.ForeColor = Color.DarkBlue
            電信費追加執行_tsm.BackColor = Color.White : 電信費追加執行_tsm.ForeColor = Color.DarkBlue : 銀行資料修改審核_tsm.BackColor = Color.White : 銀行資料修改審核_tsm.ForeColor = Color.DarkBlue
            '-------工程-----------------------------------------------------
            工程進度表_lb.ForeColor = Color.Red : 工程維修單_lb.ForeColor = Color.Red : 合約驗收控制表1_lb.ForeColor = Color.Red : 合約驗收單1_lb.ForeColor = Color.Red
            合約結案控制表1_lb.ForeColor = Color.Red : 工程分區控制表1_lb.ForeColor = Color.Red : 派工人數紀錄表_lb.ForeColor = Color.Red : 工程客變單_lb.ForeColor = Color.Red
            工程日報表編輯_lb.ForeColor = Color.Red : 工程材料表_lb.ForeColor = Color.Red : 工程系統管理_tsm.ForeColor = Color.Red

            合約驗收單1_tsm.BackColor = Color.White : 合約驗收單1_tsm.ForeColor = Color.Red : 合約驗收控制表1_tsm.BackColor = Color.White : 合約驗收控制表1_tsm.ForeColor = Color.Red
            合約結案控制表1_tsm.BackColor = Color.White : 合約結案控制表1_tsm.ForeColor = Color.Red : 工程進度表_tsm.BackColor = Color.White : 工程進度表_tsm.ForeColor = Color.Red
            派工人數紀錄表_tsm.BackColor = Color.White : 派工人數紀錄表_tsm.ForeColor = Color.Red : 工程日報表編輯_tsm.BackColor = Color.White : 工程日報表編輯_tsm.ForeColor = Color.Red
            工程客變單_tsm.BackColor = Color.White : 工程客變單_tsm.ForeColor = Color.Red : 工程維修單_tsm.BackColor = Color.White : 工程維修單_tsm.ForeColor = Color.Red
            工程分區控制表1_tsm.BackColor = Color.White : 工程分區控制表1_tsm.ForeColor = Color.Red : 工程材料表_tsm.BackColor = Color.White : 工程材料表_tsm.ForeColor = Color.Red
            '-------倉儲-----------------------------------------------------
            倉儲領料審核_lb.ForeColor = Color.Maroon : 倉儲單據狀態看板_lb.ForeColor = Color.Maroon : 倉儲領料出庫_lb.ForeColor = Color.Maroon : 物料退庫_lb.ForeColor = Color.Maroon
            物料資料庫_lb.ForeColor = Color.Maroon : 物料轉倉出庫_lb.ForeColor = Color.Maroon : 倉儲控制表_lb.ForeColor = Color.Maroon : 物料轉倉審核_lb.ForeColor = Color.Maroon
            倉儲領料申請_lb.ForeColor = Color.Maroon : 盤盈盤損審核_lb.ForeColor = Color.Maroon : 倉儲入庫驗收_lb.ForeColor = Color.Maroon : 物料轉倉申請_lb.ForeColor = Color.Maroon
            倉儲分區控制表_lb.ForeColor = Color.Maroon : 盤盈盤損申請_lb.ForeColor = Color.Maroon : 倉儲系統管理_tsm.ForeColor = Color.Maroon : 物料資料編輯_lb.ForeColor = Color.Maroon

            物料資料編輯_tsm.BackColor = Color.White : 物料資料編輯_tsm.ForeColor = Color.Maroon
            倉儲入庫驗收_tsm.BackColor = Color.White : 倉儲入庫驗收_tsm.ForeColor = Color.Olive : 物料轉倉申請_tsm.BackColor = Color.White : 物料轉倉申請_tsm.ForeColor = Color.Maroon
            物料轉倉審核_tsm.BackColor = Color.White : 物料轉倉審核_tsm.ForeColor = Color.Maroon : 物料轉倉出庫_tsm.BackColor = Color.White : 物料轉倉出庫_tsm.ForeColor = Color.Maroon
            倉儲單據狀態看板_tsm.BackColor = Color.White : 倉儲單據狀態看板_tsm.ForeColor = Color.Maroon : 盤盈盤損申請_tsm.BackColor = Color.White : 盤盈盤損申請_tsm.ForeColor = Color.Maroon
            盤盈盤損審核_tsm.BackColor = Color.White : 盤盈盤損審核_tsm.ForeColor = Color.Maroon : 物料資料庫_tsm.BackColor = Color.White : 物料資料庫_tsm.ForeColor = Color.Maroon
            倉儲分區控制表_tsm.BackColor = Color.White : 倉儲分區控制表_tsm.ForeColor = Color.Maroon : 倉儲領料申請_tsm.BackColor = Color.White : 倉儲領料申請_tsm.ForeColor = Color.Olive
            倉儲領料審核_tsm.BackColor = Color.White : 倉儲領料審核_tsm.ForeColor = Color.Olive : 倉儲領料出庫_tsm.BackColor = Color.White : 倉儲領料出庫_tsm.ForeColor = Color.Olive
            物料退庫_tsm.BackColor = Color.White : 物料退庫_tsm.ForeColor = Color.Olive : 倉儲控制表_tsm.BackColor = Color.White : 倉儲控制表_tsm.ForeColor = Color.Maroon
            倉儲領料申請_bt.BackColor = Color.White : 倉儲領料申請_bt.ForeColor = Color.Olive
            '-------人事-----------------------------------------------------
            人員ID卡系統配置設定_lb.ForeColor = Color.Black
            系統使用者管理_lb.ForeColor = Color.Black : 人員基本資料_lb.ForeColor = Color.Black : 考勤明細表_lb.ForeColor = Color.Black : 臨時工卡片管理_lb.ForeColor = Color.Black
            人員薪資_lb.ForeColor = Color.Black : 門禁權限設定_lb.ForeColor = Color.Black : 請假單_lb.ForeColor = Color.Black : 請假資料確認_lb.ForeColor = Color.Black
            行事曆請假_lb.ForeColor = Color.Black

            行事曆請假_tsm.BackColor = Color.White : 行事曆請假_tsm.ForeColor = Color.Black
            請假資料確認_tsm.BackColor = Color.White : 請假資料確認_tsm.ForeColor = Color.Black : 請假單_tsm.BackColor = Color.White : 請假單_tsm.ForeColor = Color.Black
            門禁權限設定_tsm.BackColor = Color.White : 門禁權限設定_tsm.ForeColor = Color.Black : 人員薪資_tsm.BackColor = Color.White : 人員薪資_tsm.ForeColor = Color.Black
            公司組織結構_tsm.BackColor = Color.White : 公司組織結構_tsm.ForeColor = Color.Black : 人員ID卡系統配置設定_tsm.BackColor = Color.White : 人員ID卡系統配置設定_tsm.ForeColor = Color.Black
            組織結構_權限設定_tsm.BackColor = Color.White : 組織結構_權限設定_tsm.ForeColor = Color.Black : LINE權限一覽表_tsm.BackColor = Color.White : LINE權限一覽表_tsm.ForeColor = Color.Black
            LINE使用者管理表_tsm.BackColor = Color.White : LINE使用者管理表_tsm.ForeColor = Color.Black : LINE通知測試表_tsm.BackColor = Color.White : LINE通知測試表_tsm.ForeColor = Color.Black
            系統使用者管理1_tsm.BackColor = Color.White : 系統使用者管理1_tsm.ForeColor = Color.Black : 人員基本資料_tsm.BackColor = Color.White : 人員基本資料_tsm.ForeColor = Color.Black
            考勤明細表_tsm.BackColor = Color.White : 考勤明細表_tsm.ForeColor = Color.Black : 臨時工卡片管理_tsm.BackColor = Color.White : 臨時工卡片管理_tsm.ForeColor = Color.Black
            '-------財務-----------------------------------------------------
            會計科目管理_lb.ForeColor = Color.Purple : 營運收支單申請_lb.ForeColor = Color.Purple : 營運收支單審核_lb.ForeColor = Color.Purple : 營運收支單一覽表_lb.ForeColor = Color.Purple
            特支費申請_lb.ForeColor = Color.Purple : 會計帳務沖銷_lb.ForeColor = Color.Purple : 主管指定沖銷_lb.ForeColor = Color.Purple : 收款確認表_lb.ForeColor = Color.Purple
            收款狀態報表_lb.ForeColor = Color.Purple : 採購付款確認表_lb.ForeColor = Color.Purple : 採購付款狀態報表_lb.ForeColor = Color.Purple : 財務支付申請_lb.ForeColor = Color.Purple
            財務支付審核_lb.ForeColor = Color.Purple : 特支費審核_lb.ForeColor = Color.Purple : 財務決算表_lb.ForeColor = Color.Purple : 財務支付_主管審核_lb.ForeColor = Color.Purple
            匯率管理_lb.ForeColor = Color.Purple : 應付款日報表_lb.ForeColor = Color.Purple : 應付款月報表_lb.ForeColor = Color.Purple

            應付款月報表_tsm.BackColor = Color.White : 應付款月報表_tsm.ForeColor = Color.Purple
            應付款日報表_tsm.BackColor = Color.White : 應付款日報表_tsm.ForeColor = Color.Purple : 財務決算表_tsm.BackColor = Color.White : 財務決算表_tsm.ForeColor = Color.Purple
            財務系統管理_tsm.BackColor = Color.White : 財務系統管理_tsm.ForeColor = Color.Purple : 會計科目管理_tsm.BackColor = Color.White : 會計科目管理_tsm.ForeColor = Color.Purple
            營運收支單申請_tsm.BackColor = Color.White : 營運收支單申請_tsm.ForeColor = Color.Purple : 營運收支單審核_tsm.BackColor = Color.White : 營運收支單審核_tsm.ForeColor = Color.Purple
            營運收支單一覽表_tsm.BackColor = Color.White : 營運收支單一覽表_tsm.ForeColor = Color.Purple : 特支費申請_tsm.BackColor = Color.White : 特支費申請_tsm.ForeColor = Color.Purple
            會計帳務沖銷_tsm.BackColor = Color.White : 會計帳務沖銷_tsm.ForeColor = Color.Purple : 主管指定沖銷_tsm.BackColor = Color.White : 主管指定沖銷_tsm.ForeColor = Color.Purple
            收款確認表_tsm.BackColor = Color.White : 收款確認表_tsm.ForeColor = Color.Purple : 收款狀態報表_tsm.BackColor = Color.White : 收款狀態報表_tsm.ForeColor = Color.Purple
            匯率管理_tsm.BackColor = Color.White : 匯率管理_tsm.ForeColor = Color.Purple : 採購付款確認表_tsm.BackColor = Color.White : 採購付款確認表_tsm.ForeColor = Color.Purple
            採購付款狀態報表_tsm.BackColor = Color.White : 採購付款狀態報表_tsm.ForeColor = Color.Purple : 財務支付申請_tsm.BackColor = Color.White : 財務支付申請_tsm.ForeColor = Color.Purple
            財務支付審核_tsm.BackColor = Color.White : 財務支付審核_tsm.ForeColor = Color.Purple : 特支費審核_tsm.BackColor = Color.White : 特支費審核_tsm.ForeColor = Color.Purple
            財務支付_主管審核_tsm.BackColor = Color.White : 財務支付_主管審核_tsm.ForeColor = Color.Purple

            員工合約_dgv.EnableHeadersVisualStyles = True : 員工合約_dgv.BackgroundColor = Color.White : 員工合約_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            員工合約_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            員工合約_dgv.DefaultCellStyle.BackColor = Color.White : 員工合約_dgv.DefaultCellStyle.ForeColor = Color.Black
            聯絡函_未執行_dgv.EnableHeadersVisualStyles = True : 聯絡函_未執行_dgv.BackgroundColor = Color.White : 聯絡函_未執行_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            聯絡函_未執行_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            聯絡函_未執行_dgv.DefaultCellStyle.BackColor = Color.White : 聯絡函_未執行_dgv.DefaultCellStyle.ForeColor = Color.Black
            合約預估利潤_dgv.EnableHeadersVisualStyles = True : 合約預估利潤_dgv.BackgroundColor = Color.White : 合約預估利潤_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            合約預估利潤_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            合約預估利潤_dgv.DefaultCellStyle.BackColor = Color.White : 合約預估利潤_dgv.DefaultCellStyle.ForeColor = Color.Black
            請購單_dgv.EnableHeadersVisualStyles = True : 請購單_dgv.BackgroundColor = Color.White : 請購單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            請購單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            請購單_dgv.DefaultCellStyle.BackColor = Color.White : 請購單_dgv.DefaultCellStyle.ForeColor = Color.Black
            聯絡函_未驗收_dgv.EnableHeadersVisualStyles = True : 聯絡函_未驗收_dgv.BackgroundColor = Color.White : 聯絡函_未驗收_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            聯絡函_未驗收_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            聯絡函_未驗收_dgv.DefaultCellStyle.BackColor = Color.White : 聯絡函_未驗收_dgv.DefaultCellStyle.ForeColor = Color.Black
            聯絡函_請假_dgv.EnableHeadersVisualStyles = True : 聯絡函_請假_dgv.BackgroundColor = Color.White : 聯絡函_請假_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            聯絡函_請假_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            聯絡函_請假_dgv.DefaultCellStyle.BackColor = Color.White : 聯絡函_請假_dgv.DefaultCellStyle.ForeColor = Color.Black
            聯絡函_派車_dgv.EnableHeadersVisualStyles = True : 聯絡函_派車_dgv.BackgroundColor = Color.White : 聯絡函_派車_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            聯絡函_派車_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            聯絡函_派車_dgv.DefaultCellStyle.BackColor = Color.White : 聯絡函_派車_dgv.DefaultCellStyle.ForeColor = Color.Black
            合約未放行_dgv.EnableHeadersVisualStyles = True : 合約未放行_dgv.BackgroundColor = Color.White : 合約未放行_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            合約未放行_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            合約未放行_dgv.DefaultCellStyle.BackColor = Color.White : 合約未放行_dgv.DefaultCellStyle.ForeColor = Color.Black
            詢價單_dgv.EnableHeadersVisualStyles = True : 詢價單_dgv.BackgroundColor = Color.White : 詢價單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            詢價單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            詢價單_dgv.DefaultCellStyle.BackColor = Color.White : 詢價單_dgv.DefaultCellStyle.ForeColor = Color.Black
            合約請款1_dgv.EnableHeadersVisualStyles = True : 合約請款1_dgv.BackgroundColor = Color.White : 合約請款1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            合約請款1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            合約請款1_dgv.DefaultCellStyle.BackColor = Color.White : 合約請款1_dgv.DefaultCellStyle.ForeColor = Color.Black
            報價未完成_dgv.EnableHeadersVisualStyles = True : 報價未完成_dgv.BackgroundColor = Color.White : 報價未完成_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            報價未完成_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            報價未完成_dgv.DefaultCellStyle.BackColor = Color.White : 報價未完成_dgv.DefaultCellStyle.ForeColor = Color.Black
            採購核准11_dgv.EnableHeadersVisualStyles = True : 採購核准11_dgv.BackgroundColor = Color.White : 採購核准11_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            採購核准11_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            採購核准11_dgv.DefaultCellStyle.BackColor = Color.White : 採購核准11_dgv.DefaultCellStyle.ForeColor = Color.Black
            合約請款2_dgv.EnableHeadersVisualStyles = True : 合約請款2_dgv.BackgroundColor = Color.White : 合約請款2_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            合約請款2_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            合約請款2_dgv.DefaultCellStyle.BackColor = Color.White : 合約請款2_dgv.DefaultCellStyle.ForeColor = Color.Black
            驗收未簽回_dgv.EnableHeadersVisualStyles = True : 驗收未簽回_dgv.BackgroundColor = Color.White : 驗收未簽回_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            驗收未簽回_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            驗收未簽回_dgv.DefaultCellStyle.BackColor = Color.White : 驗收未簽回_dgv.DefaultCellStyle.ForeColor = Color.Black
            採購核准12_dgv.EnableHeadersVisualStyles = True : 採購核准12_dgv.BackgroundColor = Color.White : 採購核准12_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            採購核准12_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            採購核准12_dgv.DefaultCellStyle.BackColor = Color.White : 採購核准12_dgv.DefaultCellStyle.ForeColor = Color.Black
            合約請款3_dgv.EnableHeadersVisualStyles = True : 合約請款3_dgv.BackgroundColor = Color.White : 合約請款3_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            合約請款3_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            合約請款3_dgv.DefaultCellStyle.BackColor = Color.White : 合約請款3_dgv.DefaultCellStyle.ForeColor = Color.Black
            報價未簽回_dgv.EnableHeadersVisualStyles = True : 報價未簽回_dgv.BackgroundColor = Color.White : 報價未簽回_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            報價未簽回_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            報價未簽回_dgv.DefaultCellStyle.BackColor = Color.White : 報價未簽回_dgv.DefaultCellStyle.ForeColor = Color.Black
            聯絡函_未審_dgv.EnableHeadersVisualStyles = True : 聯絡函_未審_dgv.BackgroundColor = Color.White : 聯絡函_未審_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            聯絡函_未審_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            聯絡函_未審_dgv.DefaultCellStyle.BackColor = Color.White : 聯絡函_未審_dgv.DefaultCellStyle.ForeColor = Color.Black
            合約請款4_dgv.EnableHeadersVisualStyles = True : 合約請款4_dgv.BackgroundColor = Color.White : 合約請款4_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            合約請款4_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            合約請款4_dgv.DefaultCellStyle.BackColor = Color.White : 合約請款4_dgv.DefaultCellStyle.ForeColor = Color.Black
            合約未簽回_dgv.EnableHeadersVisualStyles = True : 合約未簽回_dgv.BackgroundColor = Color.White : 合約未簽回_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            合約未簽回_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            合約未簽回_dgv.DefaultCellStyle.BackColor = Color.White : 合約未簽回_dgv.DefaultCellStyle.ForeColor = Color.Black
            聯絡函_未收_dgv.EnableHeadersVisualStyles = True : 聯絡函_未收_dgv.BackgroundColor = Color.White : 聯絡函_未收_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            聯絡函_未收_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            聯絡函_未收_dgv.DefaultCellStyle.BackColor = Color.White : 聯絡函_未收_dgv.DefaultCellStyle.ForeColor = Color.Black
            合約請款5_dgv.EnableHeadersVisualStyles = True : 合約請款5_dgv.BackgroundColor = Color.White : 合約請款5_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            合約請款5_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            合約請款5_dgv.DefaultCellStyle.BackColor = Color.White : 合約請款5_dgv.DefaultCellStyle.ForeColor = Color.Black
            保固未簽回_dgv.EnableHeadersVisualStyles = True : 保固未簽回_dgv.BackgroundColor = Color.White : 保固未簽回_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            保固未簽回_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            保固未簽回_dgv.DefaultCellStyle.BackColor = Color.White : 保固未簽回_dgv.DefaultCellStyle.ForeColor = Color.Black
            合約未指定主管_dgv.EnableHeadersVisualStyles = True : 合約未指定主管_dgv.BackgroundColor = Color.White : 合約未指定主管_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            合約未指定主管_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            合約未指定主管_dgv.DefaultCellStyle.BackColor = Color.White : 合約未指定主管_dgv.DefaultCellStyle.ForeColor = Color.Black
            合約未驗收_dgv.EnableHeadersVisualStyles = True : 合約未驗收_dgv.BackgroundColor = Color.White : 合約未驗收_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            合約未驗收_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            合約未驗收_dgv.DefaultCellStyle.BackColor = Color.White : 合約未驗收_dgv.DefaultCellStyle.ForeColor = Color.Black
            人員動態_dgv.EnableHeadersVisualStyles = True : 人員動態_dgv.BackgroundColor = Color.White : 人員動態_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            人員動態_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            人員動態_dgv.DefaultCellStyle.BackColor = Color.White : 人員動態_dgv.DefaultCellStyle.ForeColor = Color.Black
            車輛動態_dgv.EnableHeadersVisualStyles = True : 車輛動態_dgv.BackgroundColor = Color.White : 車輛動態_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            車輛動態_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            車輛動態_dgv.DefaultCellStyle.BackColor = Color.White : 車輛動態_dgv.DefaultCellStyle.ForeColor = Color.Black
            銀行資料修改_dgv.EnableHeadersVisualStyles = True : 銀行資料修改_dgv.BackgroundColor = Color.White : 銀行資料修改_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            銀行資料修改_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            銀行資料修改_dgv.DefaultCellStyle.BackColor = Color.White : 銀行資料修改_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            虛擬桌_pl.BackgroundImage = My.Resources._20157059_MotionElements_diagonal_lines
            虛擬桌_人事_pl.BackgroundImage = My.Resources._20157059_MotionElements_diagonal_lines
            虛擬桌_倉儲_pl.BackgroundImage = My.Resources._20157059_MotionElements_diagonal_lines
            虛擬桌_工程_pl.BackgroundImage = My.Resources._20157059_MotionElements_diagonal_lines
            虛擬桌_採購_pl.BackgroundImage = My.Resources._20157059_MotionElements_diagonal_lines
            虛擬桌_業務_pl.BackgroundImage = My.Resources._20157059_MotionElements_diagonal_lines
            虛擬桌_總務_pl.BackgroundImage = My.Resources._20157059_MotionElements_diagonal_lines
            虛擬桌_財務_pl.BackgroundImage = My.Resources._20157059_MotionElements_diagonal_lines
            UI優化_P.BackgroundImage = My.Resources._20157059_MotionElements_diagonal_lines : MenuStrip.BackColor = Color.DimGray : 主框_sc.BackColor = Color.Black
            StatusStrip1.BackColor = Color.Black : Calculator_bt.BackColor = Color.DimGray : Calculator_bt.ForeColor = Color.White
            深色風格_ch.BackColor = Color.Black : 深色風格_ch.ForeColor = Color.White : 低網速模式_ch.BackColor = Color.Black : 低網速模式_ch.ForeColor = Color.White
            SYS_SET_tsm.ForeColor = Color.White : 斜線_tss.ForeColor = Color.White : 著作權_tss.ForeColor = Color.White : 執行進度_tss.ForeColor = Color.LightBlue
            合計_TSSL.ForeColor = Color.White : 代辦事項_tv.BackColor = Color.DimGray : Label2.ForeColor = Color.White : Label1.ForeColor = Color.White : Panel1.BackColor = Color.DimGray
            桌面通知_pl.BackColor = Color.Black : 標題_lb.ForeColor = Color.White : 視窗1_pl.BackColor = Color.Black : 簡易庫存_tv.BackColor = Color.DimGray
            跑馬燈_tb.BackColor = Color.Black : 跑馬燈_tb.ForeColor = Color.LightPink
            '-------一般-----------------------------------------------------
            檔案_tsm.ForeColor = Color.White : 視窗_tsm.ForeColor = Color.White : 總務系統管理_tsm.ForeColor = Color.White : 人事系統管理_tsm.ForeColor = Color.White
            資料庫系統管理_tsm.ForeColor = Color.White : 聯絡函部門主管審核_lb.ForeColor = Color.White : 投訴信箱_lb.ForeColor = Color.White : 會議記錄_lb.ForeColor = Color.White
            部門聯絡函申請_lb.ForeColor = Color.White : 聯絡函最高主管核准_lb.ForeColor = Color.White : 部門聯絡函一覽表_lb.ForeColor = Color.White : 文件伺服器_lb.ForeColor = Color.White
            系統使用說明_lb.ForeColor = Color.White : 車輛管理_lb.ForeColor = Color.White : 新版_ch.ForeColor = Color.White : 舊版_ch.ForeColor = Color.White
            公告管理_lb.ForeColor = Color.White

            車輛管理_tsm.BackColor = Color.DimGray : 車輛管理_tsm.ForeColor = Color.White : 個人帳號管理_tsm.BackColor = Color.DimGray : 個人帳號管理_tsm.ForeColor = Color.White
            結束_tsm.BackColor = Color.DimGray : 結束_tsm.ForeColor = Color.White : 開新視窗_tsm.BackColor = Color.DimGray : 開新視窗_tsm.ForeColor = Color.White
            重疊顯示_tsm.BackColor = Color.DimGray : 重疊顯示_tsm.ForeColor = Color.White : 垂直並排_tsm.BackColor = Color.DimGray : 垂直並排_tsm.ForeColor = Color.White
            水平並排_tsm.BackColor = Color.DimGray : 水平並排_tsm.ForeColor = Color.White : 全部關閉_tsm.BackColor = Color.DimGray : 全部關閉_tsm.ForeColor = Color.White
            排列圖示_tsm.BackColor = Color.DimGray : 排列圖示_tsm.ForeColor = Color.White : 文件伺服器_tsm.BackColor = Color.DimGray : 文件伺服器_tsm.ForeColor = Color.White
            系統使用說明_tsm.BackColor = Color.DimGray : 系統使用說明_tsm.ForeColor = Color.White : 聯絡函最高主管核准_tsm.BackColor = Color.DimGray : 聯絡函最高主管核准_tsm.ForeColor = Color.White
            公告管理_tsm.BackColor = Color.DimGray : 公告管理_tsm.ForeColor = Color.White : 聯絡函部門主管審核_tsm.BackColor = Color.DimGray : 聯絡函部門主管審核_tsm.ForeColor = Color.White
            部門聯絡函一覽表_tsm.BackColor = Color.DimGray : 部門聯絡函一覽表_tsm.ForeColor = Color.White : 安培容量計算表_tsm.BackColor = Color.DimGray : 安培容量計算表_tsm.ForeColor = Color.White
            部門聯絡函申請_tsm.BackColor = Color.DimGray : 部門聯絡函申請_tsm.ForeColor = Color.White : 會議記錄_tsm.BackColor = Color.DimGray : 會議記錄_tsm.ForeColor = Color.White
            系統使用者管理_tsm.BackColor = Color.DimGray : 系統使用者管理_tsm.ForeColor = Color.White : 系統權限預設表_tsm.BackColor = Color.DimGray : 系統權限預設表_tsm.ForeColor = Color.White
            系統組織架構設定_tsm.BackColor = Color.DimGray : 系統組織架構設定_tsm.ForeColor = Color.White : 部門權限設定_tsm.BackColor = Color.DimGray : 部門權限設定_tsm.ForeColor = Color.White
            系統通用變數管理_tsm.BackColor = Color.DimGray : 系統通用變數管理_tsm.ForeColor = Color.White : 系統編碼規則_tsm.BackColor = Color.DimGray : 系統編碼規則_tsm.ForeColor = Color.White
            系統對應電腦註冊_tsm.BackColor = Color.DimGray : 系統對應電腦註冊_tsm.ForeColor = Color.White : FTP資料夾管理_tsm.BackColor = Color.DimGray : FTP資料夾管理_tsm.ForeColor = Color.White
            系統執行檔版本管理_tsm.BackColor = Color.DimGray : 系統執行檔版本管理_tsm.ForeColor = Color.White : 簽名檔管理_tsm.BackColor = Color.DimGray : 簽名檔管理_tsm.ForeColor = Color.White
            門禁系統設定_tsm.BackColor = Color.DimGray : 門禁系統設定_tsm.ForeColor = Color.White : 開發模板庫_tsm.BackColor = Color.DimGray : 開發模板庫_tsm.ForeColor = Color.White
            管徑流速流量計算器_tsm.BackColor = Color.DimGray : 管徑流速流量計算器_tsm.ForeColor = Color.White : 投訴信箱_tsm.BackColor = Color.DimGray : 投訴信箱_tsm.ForeColor = Color.White
            '-------業務-----------------------------------------------------
            合約執行進度_lb.ForeColor = Color.GreenYellow : 合約報價單_lb.ForeColor = Color.GreenYellow : 合約本文_lb.ForeColor = Color.GreenYellow : 業務系統管理_tsm.ForeColor = Color.GreenYellow
            合約驗收單_lb.ForeColor = Color.GreenYellow : 合約請款單_lb.ForeColor = Color.GreenYellow : 合約請款控制表_lb.ForeColor = Color.GreenYellow
            合約驗收控制表_lb.ForeColor = Color.GreenYellow : 合約文件簽核控制表_lb.ForeColor = Color.GreenYellow : 合約文件簽回存檔_lb.ForeColor = Color.GreenYellow
            合約利潤預估表_lb.ForeColor = Color.GreenYellow : 合約報價單審核_lb.ForeColor = Color.GreenYellow : 合約保固書_lb.ForeColor = Color.GreenYellow
            合約工程圖庫管理_lb.ForeColor = Color.GreenYellow : 客戶資料表_lb.ForeColor = Color.GreenYellow : 工程項目BOM表_lb.ForeColor = Color.GreenYellow
            合約結案控制表_lb.ForeColor = Color.GreenYellow : 附錄合約_lb.ForeColor = Color.GreenYellow

            合約執行進度_tsm.BackColor = Color.DimGray : 合約執行進度_tsm.ForeColor = Color.GreenYellow : 合約利潤預估表_tsm.BackColor = Color.DimGray : 合約利潤預估表_tsm.ForeColor = Color.GreenYellow
            合約報價單_tsm.BackColor = Color.DimGray : 合約報價單_tsm.ForeColor = Color.GreenYellow : 合約報價單審核_tsm.BackColor = Color.DimGray : 合約報價單審核_tsm.ForeColor = Color.GreenYellow
            合約請款單_tsm.BackColor = Color.DimGray : 合約請款單_tsm.ForeColor = Color.GreenYellow : 合約請款控制表_tsm.BackColor = Color.DimGray : 合約請款控制表_tsm.ForeColor = Color.GreenYellow
            合約驗收單_tsm.BackColor = Color.DimGray : 合約驗收單_tsm.ForeColor = Color.GreenYellow : 合約驗收控制表_tsm.BackColor = Color.DimGray : 合約驗收控制表_tsm.ForeColor = Color.GreenYellow
            合約保固書_tsm.BackColor = Color.DimGray : 合約保固書_tsm.ForeColor = Color.GreenYellow : 工程項目BOM表_tsm.BackColor = Color.DimGray : 工程項目BOM表_tsm.ForeColor = Color.GreenYellow
            合約文件簽回存檔_tsm.BackColor = Color.DimGray : 合約文件簽回存檔_tsm.ForeColor = Color.GreenYellow : 附錄合約_tsm.BackColor = Color.DimGray : 附錄合約_tsm.ForeColor = Color.GreenYellow
            合約文件簽核控制表_tsm.BackColor = Color.DimGray : 合約文件簽核控制表_tsm.ForeColor = Color.GreenYellow : 合約本文_tsm.BackColor = Color.DimGray : 合約本文_tsm.ForeColor = Color.GreenYellow
            合約結案控制表_tsm.BackColor = Color.DimGray : 合約結案控制表_tsm.ForeColor = Color.GreenYellow : 合約模組設定_tsm.BackColor = Color.DimGray : 合約模組設定_tsm.ForeColor = Color.GreenYellow
            合約工程圖庫管理_tsm.BackColor = Color.DimGray : 合約工程圖庫管理_tsm.ForeColor = Color.GreenYellow : 客戶資料表_tsm.BackColor = Color.DimGray : 客戶資料表_tsm.ForeColor = Color.GreenYellow
            工程分區控制表_tsm.BackColor = Color.DimGray : 工程分區控制表_tsm.ForeColor = Color.GreenYellow
            '-------採購-----------------------------------------------------
            採購單一級核准_lb.ForeColor = Color.LightBlue : 供應商管理_lb.ForeColor = Color.LightBlue : 採購驗收對帳表_lb.ForeColor = Color.LightBlue : 採購系統管理_tsm.ForeColor = Color.LightBlue
            入庫驗收單_lb.ForeColor = Color.LightBlue : 物料採購統計表_lb.ForeColor = Color.LightBlue : 供應商商品單價設定_lb.ForeColor = Color.LightBlue : 電信費追加執行_lb.ForeColor = Color.LightBlue
            請購單申請_lb.ForeColor = Color.LightBlue : 請購單核準_lb.ForeColor = Color.LightBlue : 採購單編輯_lb.ForeColor = Color.LightBlue : 採購轉財務收支單_lb.ForeColor = Color.LightBlue
            採購單一覽表_lb.ForeColor = Color.LightBlue : 請購一覽表_lb.ForeColor = Color.LightBlue : 採購單詢價_lb.ForeColor = Color.LightBlue : 電信費追加申請_lb.ForeColor = Color.LightBlue
            採購單二級核准_lb.ForeColor = Color.LightBlue : 銀行資料修改審核_lb.ForeColor = Color.LightBlue

            採購單一級核准_tsm.BackColor = Color.DimGray : 採購單一級核准_tsm.ForeColor = Color.LightBlue : 採購單二級核准_tsm.BackColor = Color.DimGray : 採購單二級核准_tsm.ForeColor = Color.LightBlue
            採購單一覽表_tsm.BackColor = Color.DimGray : 採購單一覽表_tsm.ForeColor = Color.LightBlue : 入庫驗收單_tsm.BackColor = Color.DimGray : 入庫驗收單_tsm.ForeColor = Color.LightBlue
            採購轉財務收支單_tsm.BackColor = Color.DimGray : 採購轉財務收支單_tsm.ForeColor = Color.LightBlue
            採購驗收對帳表_tsm.BackColor = Color.DimGray : 採購驗收對帳表_tsm.ForeColor = Color.LightBlue : 樣品請購單申請_tsm.BackColor = Color.DimGray : 樣品請購單申請_tsm.ForeColor = Color.LightBlue
            樣品請購單核准_tsm.BackColor = Color.DimGray : 樣品請購單核准_tsm.ForeColor = Color.LightBlue : 樣品採購單生成_tsm.BackColor = Color.DimGray : 樣品採購單生成_tsm.ForeColor = Color.LightBlue
            樣品請購單一覽表_tsm.BackColor = Color.DimGray : 樣品請購單一覽表_tsm.ForeColor = Color.LightBlue : 採購單編輯_tsm.BackColor = Color.DimGray : 採購單編輯_tsm.ForeColor = Color.LightBlue
            樣品採購單一級核准_tsm.BackColor = Color.DimGray : 樣品採購單一級核准_tsm.ForeColor = Color.LightBlue : 請購單申請_tsm.BackColor = Color.DimGray : 請購單申請_tsm.ForeColor = Color.LightBlue
            樣品採購單二級核准_tsm.BackColor = Color.DimGray : 樣品採購單二級核准_tsm.ForeColor = Color.LightBlue : 請購單核準_tsm.BackColor = Color.DimGray : 請購單核準_tsm.ForeColor = Color.LightBlue
            樣品採購單一覽表_tsm.BackColor = Color.DimGray : 樣品採購單一覽表_tsm.ForeColor = Color.LightBlue : 樣品來料驗收單_tsm.BackColor = Color.DimGray : 樣品來料驗收單_tsm.ForeColor = Color.LightBlue
            樣品採購驗收對帳表_tsm.BackColor = Color.DimGray : 樣品採購驗收對帳表_tsm.ForeColor = Color.LightBlue : 請購一覽表_tsm.BackColor = Color.DimGray : 請購一覽表_tsm.ForeColor = Color.LightBlue
            供應商管理_tsm.BackColor = Color.DimGray : 供應商管理_tsm.ForeColor = Color.LightBlue : 樣品供應商管理_tsm.BackColor = Color.DimGray : 樣品供應商管理_tsm.ForeColor = Color.LightBlue
            供應商商品單價設定_tsm.BackColor = Color.DimGray : 供應商商品單價設定_tsm.ForeColor = Color.LightBlue : 採購單詢價_tsm.BackColor = Color.DimGray : 採購單詢價_tsm.ForeColor = Color.LightBlue
            物料採購統計表_tsm.BackColor = Color.DimGray : 物料採購統計表_tsm.ForeColor = Color.LightBlue : 電信費追加申請_tsm.BackColor = Color.DimGray : 電信費追加申請_tsm.ForeColor = Color.LightBlue
            電信費追加執行_tsm.BackColor = Color.DimGray : 電信費追加執行_tsm.ForeColor = Color.LightBlue : 銀行資料修改審核_tsm.BackColor = Color.DimGray : 銀行資料修改審核_tsm.ForeColor = Color.LightBlue
            '-------工程-----------------------------------------------------
            工程進度表_lb.ForeColor = Color.LightPink : 工程維修單_lb.ForeColor = Color.LightPink : 合約驗收控制表1_lb.ForeColor = Color.LightPink : 合約驗收單1_lb.ForeColor = Color.LightPink
            合約結案控制表1_lb.ForeColor = Color.LightPink : 工程分區控制表1_lb.ForeColor = Color.LightPink : 派工人數紀錄表_lb.ForeColor = Color.LightPink
            工程日報表編輯_lb.ForeColor = Color.LightPink : 工程材料表_lb.ForeColor = Color.LightPink : 工程客變單_lb.ForeColor = Color.LightPink : 工程系統管理_tsm.ForeColor = Color.LightPink
            工程日報表編輯_lb.ForeColor = Color.LightPink : 工程材料表_lb.ForeColor = Color.LightPink

            合約驗收單1_tsm.BackColor = Color.DimGray : 合約驗收單1_tsm.ForeColor = Color.LightPink : 合約驗收控制表1_tsm.BackColor = Color.DimGray : 合約驗收控制表1_tsm.ForeColor = Color.LightPink
            合約結案控制表1_tsm.BackColor = Color.DimGray : 合約結案控制表1_tsm.ForeColor = Color.LightPink : 工程進度表_tsm.BackColor = Color.DimGray : 工程進度表_tsm.ForeColor = Color.LightPink
            派工人數紀錄表_tsm.BackColor = Color.DimGray : 派工人數紀錄表_tsm.ForeColor = Color.LightPink : 工程客變單_tsm.BackColor = Color.DimGray : 工程客變單_tsm.ForeColor = Color.LightPink
            工程日報表編輯_tsm.BackColor = Color.DimGray : 工程日報表編輯_tsm.ForeColor = Color.LightPink : 工程維修單_tsm.BackColor = Color.DimGray : 工程維修單_tsm.ForeColor = Color.LightPink
            工程分區控制表1_tsm.BackColor = Color.DimGray : 工程分區控制表1_tsm.ForeColor = Color.LightPink : 工程材料表_tsm.BackColor = Color.DimGray : 工程材料表_tsm.ForeColor = Color.LightPink
            '-------倉儲-----------------------------------------------------
            倉儲領料審核_lb.ForeColor = Color.SandyBrown : 倉儲單據狀態看板_lb.ForeColor = Color.SandyBrown : 倉儲領料出庫_lb.ForeColor = Color.SandyBrown : 物料退庫_lb.ForeColor = Color.SandyBrown
            物料資料庫_lb.ForeColor = Color.SandyBrown : 物料轉倉出庫_lb.ForeColor = Color.SandyBrown : 倉儲控制表_lb.ForeColor = Color.SandyBrown : 物料轉倉審核_lb.ForeColor = Color.SandyBrown
            倉儲領料申請_lb.ForeColor = Color.SandyBrown : 盤盈盤損審核_lb.ForeColor = Color.SandyBrown : 倉儲入庫驗收_lb.ForeColor = Color.SandyBrown : 物料轉倉申請_lb.ForeColor = Color.SandyBrown
            倉儲分區控制表_lb.ForeColor = Color.SandyBrown : 盤盈盤損申請_lb.ForeColor = Color.SandyBrown : 倉儲系統管理_tsm.ForeColor = Color.SandyBrown : 物料資料編輯_lb.ForeColor = Color.SandyBrown

            物料資料編輯_tsm.BackColor = Color.DimGray : 物料資料編輯_tsm.ForeColor = Color.SandyBrown
            倉儲控制表_tsm.BackColor = Color.DimGray : 倉儲控制表_tsm.ForeColor = Color.SandyBrown : 倉儲入庫驗收_tsm.BackColor = Color.DimGray : 倉儲入庫驗收_tsm.ForeColor = Color.PaleGoldenrod
            物料轉倉申請_tsm.BackColor = Color.DimGray : 物料轉倉申請_tsm.ForeColor = Color.SandyBrown : 物料轉倉審核_tsm.BackColor = Color.DimGray : 物料轉倉審核_tsm.ForeColor = Color.SandyBrown
            物料轉倉出庫_tsm.BackColor = Color.DimGray : 物料轉倉出庫_tsm.ForeColor = Color.SandyBrown : 倉儲單據狀態看板_tsm.BackColor = Color.DimGray : 倉儲單據狀態看板_tsm.ForeColor = Color.SandyBrown
            盤盈盤損申請_tsm.BackColor = Color.DimGray : 盤盈盤損申請_tsm.ForeColor = Color.SandyBrown : 盤盈盤損審核_tsm.BackColor = Color.DimGray : 盤盈盤損審核_tsm.ForeColor = Color.SandyBrown
            物料資料庫_tsm.BackColor = Color.DimGray : 物料資料庫_tsm.ForeColor = Color.SandyBrown : 倉儲分區控制表_tsm.BackColor = Color.DimGray : 倉儲分區控制表_tsm.ForeColor = Color.SandyBrown
            倉儲領料申請_tsm.BackColor = Color.DimGray : 倉儲領料申請_tsm.ForeColor = Color.PaleGoldenrod : 倉儲領料審核_tsm.BackColor = Color.DimGray : 倉儲領料審核_tsm.ForeColor = Color.PaleGoldenrod
            倉儲領料出庫_tsm.BackColor = Color.DimGray : 倉儲領料出庫_tsm.ForeColor = Color.PaleGoldenrod : 物料退庫_tsm.BackColor = Color.DimGray : 物料退庫_tsm.ForeColor = Color.PaleGoldenrod
            倉儲領料申請_bt.BackColor = Color.DimGray : 倉儲領料申請_bt.ForeColor = Color.PaleGoldenrod
            '-------人事-----------------------------------------------------
            人員ID卡系統配置設定_lb.ForeColor = Color.White
            系統使用者管理_lb.ForeColor = Color.White : 人員基本資料_lb.ForeColor = Color.White : 考勤明細表_lb.ForeColor = Color.White : 臨時工卡片管理_lb.ForeColor = Color.White
            人員薪資_lb.ForeColor = Color.White : 門禁權限設定_lb.ForeColor = Color.White : 請假單_lb.ForeColor = Color.White : 請假資料確認_lb.ForeColor = Color.White
            行事曆請假_lb.ForeColor = Color.White

            行事曆請假_tsm.BackColor = Color.DimGray : 行事曆請假_tsm.ForeColor = Color.White
            請假資料確認_tsm.BackColor = Color.DimGray : 請假資料確認_tsm.ForeColor = Color.White : 請假單_tsm.BackColor = Color.DimGray : 請假單_tsm.ForeColor = Color.White
            門禁權限設定_tsm.BackColor = Color.DimGray : 門禁權限設定_tsm.ForeColor = Color.White : 人員薪資_tsm.BackColor = Color.DimGray : 人員薪資_tsm.ForeColor = Color.White
            公司組織結構_tsm.BackColor = Color.DimGray : 公司組織結構_tsm.ForeColor = Color.White : 人員ID卡系統配置設定_tsm.BackColor = Color.DimGray : 人員ID卡系統配置設定_tsm.ForeColor = Color.White
            組織結構_權限設定_tsm.BackColor = Color.DimGray : 組織結構_權限設定_tsm.ForeColor = Color.White : LINE使用者管理表_tsm.BackColor = Color.DimGray : LINE使用者管理表_tsm.ForeColor = Color.White
            LINE通知測試表_tsm.BackColor = Color.DimGray : LINE通知測試表_tsm.ForeColor = Color.White : LINE權限一覽表_tsm.BackColor = Color.DimGray : LINE權限一覽表_tsm.ForeColor = Color.White
            系統使用者管理1_tsm.BackColor = Color.DimGray : 系統使用者管理1_tsm.ForeColor = Color.White : 人員基本資料_tsm.BackColor = Color.DimGray : 人員基本資料_tsm.ForeColor = Color.White
            考勤明細表_tsm.BackColor = Color.DimGray : 考勤明細表_tsm.ForeColor = Color.White : 臨時工卡片管理_tsm.BackColor = Color.DimGray : 臨時工卡片管理_tsm.ForeColor = Color.White
            '-------財務-----------------------------------------------------
            會計科目管理_lb.ForeColor = Color.Violet : 營運收支單申請_lb.ForeColor = Color.Violet : 營運收支單審核_lb.ForeColor = Color.Violet : 營運收支單一覽表_lb.ForeColor = Color.Violet
            特支費申請_lb.ForeColor = Color.Violet : 會計帳務沖銷_lb.ForeColor = Color.Violet : 主管指定沖銷_lb.ForeColor = Color.Violet : 收款確認表_lb.ForeColor = Color.Violet
            收款狀態報表_lb.ForeColor = Color.Violet : 採購付款確認表_lb.ForeColor = Color.Violet : 採購付款狀態報表_lb.ForeColor = Color.Violet : 財務支付申請_lb.ForeColor = Color.Violet
            財務支付審核_lb.ForeColor = Color.Violet : 特支費審核_lb.ForeColor = Color.Violet : 財務決算表_lb.ForeColor = Color.Violet : 財務支付_主管審核_lb.ForeColor = Color.Violet
            匯率管理_lb.ForeColor = Color.Violet : 應付款日報表_lb.ForeColor = Color.Violet : 應付款月報表_lb.ForeColor = Color.Violet

            應付款月報表_tsm.BackColor = Color.DimGray : 應付款月報表_tsm.ForeColor = Color.Violet
            應付款日報表_tsm.BackColor = Color.DimGray : 應付款日報表_tsm.ForeColor = Color.Violet : 財務決算表_tsm.BackColor = Color.DimGray : 財務決算表_tsm.ForeColor = Color.Violet
            財務系統管理_tsm.BackColor = Color.DimGray : 財務系統管理_tsm.ForeColor = Color.Violet : 會計科目管理_tsm.BackColor = Color.DimGray : 會計科目管理_tsm.ForeColor = Color.Violet
            營運收支單申請_tsm.BackColor = Color.DimGray : 營運收支單申請_tsm.ForeColor = Color.Violet : 營運收支單審核_tsm.BackColor = Color.DimGray : 營運收支單審核_tsm.ForeColor = Color.Violet
            營運收支單一覽表_tsm.BackColor = Color.DimGray : 營運收支單一覽表_tsm.ForeColor = Color.Violet : 特支費申請_tsm.BackColor = Color.DimGray : 特支費申請_tsm.ForeColor = Color.Violet
            會計帳務沖銷_tsm.BackColor = Color.DimGray : 會計帳務沖銷_tsm.ForeColor = Color.Violet : 主管指定沖銷_tsm.BackColor = Color.DimGray : 主管指定沖銷_tsm.ForeColor = Color.Violet
            收款確認表_tsm.BackColor = Color.DimGray : 收款確認表_tsm.ForeColor = Color.Violet : 收款狀態報表_tsm.BackColor = Color.DimGray : 收款狀態報表_tsm.ForeColor = Color.Violet
            匯率管理_tsm.BackColor = Color.DimGray : 匯率管理_tsm.ForeColor = Color.Violet : 採購付款確認表_tsm.BackColor = Color.DimGray : 採購付款確認表_tsm.ForeColor = Color.Violet
            採購付款狀態報表_tsm.BackColor = Color.DimGray : 採購付款狀態報表_tsm.ForeColor = Color.Violet : 財務支付申請_tsm.BackColor = Color.DimGray : 財務支付申請_tsm.ForeColor = Color.Violet
            財務支付審核_tsm.BackColor = Color.DimGray : 財務支付審核_tsm.ForeColor = Color.Violet : 特支費審核_tsm.BackColor = Color.DimGray : 特支費審核_tsm.ForeColor = Color.Violet
            財務支付_主管審核_tsm.BackColor = Color.DimGray : 財務支付_主管審核_tsm.ForeColor = Color.Violet

            員工合約_dgv.EnableHeadersVisualStyles = False : 員工合約_dgv.BackgroundColor = Color.DimGray : 員工合約_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            員工合約_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 員工合約_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            員工合約_dgv.DefaultCellStyle.BackColor = Color.DimGray : 員工合約_dgv.DefaultCellStyle.ForeColor = Color.White
            聯絡函_未執行_dgv.EnableHeadersVisualStyles = False : 聯絡函_未執行_dgv.BackgroundColor = Color.DimGray : 聯絡函_未執行_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            聯絡函_未執行_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 聯絡函_未執行_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            聯絡函_未執行_dgv.DefaultCellStyle.BackColor = Color.DimGray : 聯絡函_未執行_dgv.DefaultCellStyle.ForeColor = Color.White
            合約預估利潤_dgv.EnableHeadersVisualStyles = False : 合約預估利潤_dgv.BackgroundColor = Color.DimGray : 合約預估利潤_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            合約預估利潤_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約預估利潤_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            合約預估利潤_dgv.DefaultCellStyle.BackColor = Color.DimGray : 合約預估利潤_dgv.DefaultCellStyle.ForeColor = Color.White
            請購單_dgv.EnableHeadersVisualStyles = False : 請購單_dgv.BackgroundColor = Color.DimGray : 請購單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            請購單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 請購單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            請購單_dgv.DefaultCellStyle.BackColor = Color.DimGray : 請購單_dgv.DefaultCellStyle.ForeColor = Color.White
            聯絡函_未驗收_dgv.EnableHeadersVisualStyles = False : 聯絡函_未驗收_dgv.BackgroundColor = Color.DimGray : 聯絡函_未驗收_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            聯絡函_未驗收_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 聯絡函_未驗收_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            聯絡函_未驗收_dgv.DefaultCellStyle.BackColor = Color.DimGray : 聯絡函_未驗收_dgv.DefaultCellStyle.ForeColor = Color.White
            聯絡函_請假_dgv.EnableHeadersVisualStyles = False : 聯絡函_請假_dgv.BackgroundColor = Color.DimGray : 聯絡函_請假_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            聯絡函_請假_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 聯絡函_請假_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            聯絡函_請假_dgv.DefaultCellStyle.BackColor = Color.DimGray : 聯絡函_請假_dgv.DefaultCellStyle.ForeColor = Color.White
            聯絡函_派車_dgv.EnableHeadersVisualStyles = False : 聯絡函_派車_dgv.BackgroundColor = Color.DimGray : 聯絡函_派車_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            聯絡函_派車_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 聯絡函_派車_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            聯絡函_派車_dgv.DefaultCellStyle.BackColor = Color.DimGray : 聯絡函_派車_dgv.DefaultCellStyle.ForeColor = Color.White
            合約未放行_dgv.EnableHeadersVisualStyles = False : 合約未放行_dgv.BackgroundColor = Color.DimGray : 合約未放行_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            合約未放行_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約未放行_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            合約未放行_dgv.DefaultCellStyle.BackColor = Color.DimGray : 合約未放行_dgv.DefaultCellStyle.ForeColor = Color.White
            詢價單_dgv.EnableHeadersVisualStyles = False : 詢價單_dgv.BackgroundColor = Color.DimGray : 詢價單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            詢價單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 詢價單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            詢價單_dgv.DefaultCellStyle.BackColor = Color.DimGray : 詢價單_dgv.DefaultCellStyle.ForeColor = Color.White
            合約請款1_dgv.EnableHeadersVisualStyles = False : 合約請款1_dgv.BackgroundColor = Color.DimGray : 合約請款1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            合約請款1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約請款1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            合約請款1_dgv.DefaultCellStyle.BackColor = Color.DimGray : 合約請款1_dgv.DefaultCellStyle.ForeColor = Color.White
            報價未完成_dgv.EnableHeadersVisualStyles = False : 報價未完成_dgv.BackgroundColor = Color.DimGray : 報價未完成_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            報價未完成_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 報價未完成_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            報價未完成_dgv.DefaultCellStyle.BackColor = Color.DimGray : 報價未完成_dgv.DefaultCellStyle.ForeColor = Color.White
            採購核准11_dgv.EnableHeadersVisualStyles = False : 採購核准11_dgv.BackgroundColor = Color.DimGray : 採購核准11_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            採購核准11_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 採購核准11_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            採購核准11_dgv.DefaultCellStyle.BackColor = Color.DimGray : 採購核准11_dgv.DefaultCellStyle.ForeColor = Color.White
            合約請款2_dgv.EnableHeadersVisualStyles = False : 合約請款2_dgv.BackgroundColor = Color.DimGray : 合約請款2_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            合約請款2_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約請款2_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            合約請款2_dgv.DefaultCellStyle.BackColor = Color.DimGray : 合約請款2_dgv.DefaultCellStyle.ForeColor = Color.White
            驗收未簽回_dgv.EnableHeadersVisualStyles = False : 驗收未簽回_dgv.BackgroundColor = Color.DimGray : 驗收未簽回_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            驗收未簽回_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 驗收未簽回_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            驗收未簽回_dgv.DefaultCellStyle.BackColor = Color.DimGray : 驗收未簽回_dgv.DefaultCellStyle.ForeColor = Color.White
            採購核准12_dgv.EnableHeadersVisualStyles = False : 採購核准12_dgv.BackgroundColor = Color.DimGray : 採購核准12_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            採購核准12_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 採購核准12_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            採購核准12_dgv.DefaultCellStyle.BackColor = Color.DimGray : 採購核准12_dgv.DefaultCellStyle.ForeColor = Color.White
            合約請款3_dgv.EnableHeadersVisualStyles = False : 合約請款3_dgv.BackgroundColor = Color.DimGray : 合約請款3_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            合約請款3_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約請款3_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            合約請款3_dgv.DefaultCellStyle.BackColor = Color.DimGray : 合約請款3_dgv.DefaultCellStyle.ForeColor = Color.White
            報價未簽回_dgv.EnableHeadersVisualStyles = False : 報價未簽回_dgv.BackgroundColor = Color.DimGray : 報價未簽回_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            報價未簽回_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 報價未簽回_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            報價未簽回_dgv.DefaultCellStyle.BackColor = Color.DimGray : 報價未簽回_dgv.DefaultCellStyle.ForeColor = Color.White
            聯絡函_未審_dgv.EnableHeadersVisualStyles = False : 聯絡函_未審_dgv.BackgroundColor = Color.DimGray : 聯絡函_未審_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            聯絡函_未審_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 聯絡函_未審_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            聯絡函_未審_dgv.DefaultCellStyle.BackColor = Color.DimGray : 聯絡函_未審_dgv.DefaultCellStyle.ForeColor = Color.White
            合約請款4_dgv.EnableHeadersVisualStyles = False : 合約請款4_dgv.BackgroundColor = Color.DimGray : 合約請款4_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            合約請款4_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約請款4_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            合約請款4_dgv.DefaultCellStyle.BackColor = Color.DimGray : 合約請款4_dgv.DefaultCellStyle.ForeColor = Color.White
            合約未簽回_dgv.EnableHeadersVisualStyles = False : 合約未簽回_dgv.BackgroundColor = Color.DimGray : 合約未簽回_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            合約未簽回_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約未簽回_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            合約未簽回_dgv.DefaultCellStyle.BackColor = Color.DimGray : 合約未簽回_dgv.DefaultCellStyle.ForeColor = Color.White
            聯絡函_未收_dgv.EnableHeadersVisualStyles = False : 聯絡函_未收_dgv.BackgroundColor = Color.DimGray : 聯絡函_未收_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            聯絡函_未收_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 聯絡函_未收_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            聯絡函_未收_dgv.DefaultCellStyle.BackColor = Color.DimGray : 聯絡函_未收_dgv.DefaultCellStyle.ForeColor = Color.White
            合約請款5_dgv.EnableHeadersVisualStyles = False : 合約請款5_dgv.BackgroundColor = Color.DimGray : 合約請款5_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            合約請款5_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約請款5_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            合約請款5_dgv.DefaultCellStyle.BackColor = Color.DimGray : 合約請款5_dgv.DefaultCellStyle.ForeColor = Color.White
            保固未簽回_dgv.EnableHeadersVisualStyles = False : 保固未簽回_dgv.BackgroundColor = Color.DimGray : 保固未簽回_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            保固未簽回_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 保固未簽回_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            保固未簽回_dgv.DefaultCellStyle.BackColor = Color.DimGray : 保固未簽回_dgv.DefaultCellStyle.ForeColor = Color.White
            合約未指定主管_dgv.EnableHeadersVisualStyles = False : 合約未指定主管_dgv.BackgroundColor = Color.DimGray : 合約未指定主管_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            合約未指定主管_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約未指定主管_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            合約未指定主管_dgv.DefaultCellStyle.BackColor = Color.DimGray : 合約未指定主管_dgv.DefaultCellStyle.ForeColor = Color.White
            合約未驗收_dgv.EnableHeadersVisualStyles = False : 合約未驗收_dgv.BackgroundColor = Color.DimGray : 合約未驗收_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            合約未驗收_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約未驗收_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            合約未驗收_dgv.DefaultCellStyle.BackColor = Color.DimGray : 合約未驗收_dgv.DefaultCellStyle.ForeColor = Color.White
            人員動態_dgv.EnableHeadersVisualStyles = False : 人員動態_dgv.BackgroundColor = Color.DimGray : 人員動態_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            人員動態_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 人員動態_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            人員動態_dgv.DefaultCellStyle.BackColor = Color.DimGray : 人員動態_dgv.DefaultCellStyle.ForeColor = Color.White
            車輛動態_dgv.EnableHeadersVisualStyles = False : 車輛動態_dgv.BackgroundColor = Color.DimGray : 車輛動態_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            車輛動態_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 車輛動態_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            車輛動態_dgv.DefaultCellStyle.BackColor = Color.DimGray : 車輛動態_dgv.DefaultCellStyle.ForeColor = Color.White
            銀行資料修改_dgv.EnableHeadersVisualStyles = False : 銀行資料修改_dgv.BackgroundColor = Color.DimGray : 銀行資料修改_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            銀行資料修改_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 銀行資料修改_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
            銀行資料修改_dgv.DefaultCellStyle.BackColor = Color.DimGray : 銀行資料修改_dgv.DefaultCellStyle.ForeColor = Color.White
        End If
    End Sub
End Class