GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/HX-PGS-ERP-SYS.vb

Option Explicit On
Imports System.IO
Imports System.Text
Imports System.ComponentModel
Public Class HX_PGS_ERP_SYS
    ReadOnly ds4 As New DataSet
    ReadOnly 對話框(30) As String
    Dim sysnud As String
    Dim 系統關閉 As Boolean = False
    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 : MyModule1.虛擬桌面開啟()
    End Sub

    Private m_ChildFormNumber As Integer
    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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 Set_語言()
        語言_dgv.DataSource = Nothing : ds4.Clear() : 語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25 : 語言_dgv.AllowUserToAddRows = False
        SQL_系統語言導入() : da.Fill(ds4) : 語言_dgv.DataSource = ds4.Tables(0) : conn.Close()
    End Sub
    Private Sub 語言轉換讀取()
        Set_語言() : conn.Close()
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1
            '------------------------系統-------------------------------------------------------------------------------------------------------------------------------------------------------
            If 語言_dgv("控件", i).Value.ToString = "檔案_tsm" Then : 檔案_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "個人帳號管理_tsm" Then : 個人帳號管理_tsm.Text = 語言_dgv("內容", i).Value.ToString
                個人帳號管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "結束_tsm" Then : 結束_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "視窗_tsm" Then : 視窗_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "低網速模式_ch" Then : 低網速模式_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "系統版本" Then : sysnud = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "執行進度_tss" Then : 執行進度_tss.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "著作權_tss" Then : 著作權_tss.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "開新視窗_tsm" Then : 開新視窗_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "重疊顯示_tsm" Then : 重疊顯示_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "垂直並排_tsm" Then : 垂直並排_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "水平並排_tsm" Then : 水平並排_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "全部關閉_tsm" Then : 全部關閉_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "排列圖示_tsm" Then : 排列圖示_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框1" Then : 對話框(0) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框2" Then : 對話框(1) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框3" Then : 對話框(2) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框4" Then : 對話框(3) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框5" Then : 對話框(4) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框6" Then : 對話框(5) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框7" Then : 對話框(6) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框8" Then : 對話框(7) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框9" Then : 對話框(8) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框10" Then : 對話框(9) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框11" Then : 對話框(10) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框12" Then : 對話框(11) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框13" Then : 對話框(12) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框14" Then : 對話框(13) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框15" Then : 對話框(14) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框16" Then : 對話框(15) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框17" Then : 對話框(16) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框18" Then : 對話框(17) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框19" Then : 對話框(18) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框20" Then : 對話框(19) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框21" Then : 對話框(20) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框22" Then : 對話框(21) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框23" Then : 對話框(22) = 語言_dgv("內容", i).Value.ToString : End If
            '------------------------章程管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
            If 語言_dgv("控件", i).Value.ToString = "簡易功能_tsm" Then : 簡易功能_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "文件伺服器_tsm" Then : 文件伺服器_tsm.Text = 語言_dgv("內容", i).Value.ToString
                文件伺服器_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "系統使用說明_tsm" Then : 系統使用說明_tsm.Text = 語言_dgv("內容", i).Value.ToString
                系統使用說明_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "單次授權功能_tsm" Then : 單次授權功能_tsm.Text = 語言_dgv("內容", i).Value.ToString
                單次授權功能_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "會議記錄_tsm" Then : 會議記錄_tsm.Text = 語言_dgv("內容", i).Value.ToString
                會議記錄_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "安培容量計算表_tsm" Then : 安培容量計算表_tsm.Text = 語言_dgv("內容", i).Value.ToString
                安培容量計算表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "部門聯絡函一覽表_tsm" Then : 部門聯絡函一覽表_tsm.Text = 語言_dgv("內容", i).Value.ToString
                部門聯絡函一覽表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "部門聯絡函申請_tsm" Then : 部門聯絡函申請_tsm.Text = 語言_dgv("內容", i).Value.ToString
                部門聯絡函申請_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "聯絡函部門主管審核_tsm" Then : 聯絡函部門主管審核_tsm.Text = 語言_dgv("內容", i).Value.ToString
                聯絡函部門主管審核_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "聯絡函最高主管核准_tsm" Then : 聯絡函最高主管核准_tsm.Text = 語言_dgv("內容", i).Value.ToString
                聯絡函最高主管核准_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            '------------------------業務管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
            If 語言_dgv("控件", i).Value.ToString = "業務系統管理_tsm" Then : 業務系統管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "合約執行進度_tsm" Then : 合約執行進度_tsm.Text = 語言_dgv("內容", i).Value.ToString
                合約執行進度_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "合約利潤預估表_tsm" Then : 合約利潤預估表_tsm.Text = 語言_dgv("內容", i).Value.ToString
                合約利潤預估表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "合約報價單_tsm" Then : 合約報價單_tsm.Text = 語言_dgv("內容", i).Value.ToString
                合約報價單_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "合約報價單審核_tsm" Then : 合約報價單審核_tsm.Text = 語言_dgv("內容", i).Value.ToString
                合約報價單審核_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "合約管理系統_tsm" Then : 合約本文_tsm.Text = 語言_dgv("內容", i).Value.ToString
                合約本文_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "附錄合約_tsm" Then : 附錄合約_tsm.Text = 語言_dgv("內容", i).Value.ToString
                附錄合約_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "合約模組設定_tsm" Then : 合約模組設定_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "合約請款單_tsm" Then : 合約請款單_tsm.Text = 語言_dgv("內容", i).Value.ToString
                合約請款單_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "合約請款控制表_tsm" Then : 合約請款控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString
                合約請款控制表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "合約驗收單_tsm" Then : 合約驗收單_tsm.Text = 語言_dgv("內容", i).Value.ToString
                合約驗收單1_tsm.Text = 語言_dgv("內容", i).Value.ToString : 合約驗收單_lb.Text = 語言_dgv("內容", i).Value.ToString
                合約驗收單1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "合約驗收控制表_tsm" Then : 合約驗收控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString
                合約驗收控制表1_tsm.Text = 語言_dgv("內容", i).Value.ToString : 合約驗收控制表_lb.Text = 語言_dgv("內容", i).Value.ToString
                合約驗收控制表1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "合約保固書_tsm" Then : 合約保固書_tsm.Text = 語言_dgv("內容", i).Value.ToString
                合約保固書_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "合約文件簽回存檔_tsm" Then : 合約文件簽回存檔_tsm.Text = 語言_dgv("內容", i).Value.ToString
                合約文件簽回存檔_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "合約文件簽核控制表_tsm" Then : 合約文件簽核控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString
                合約文件簽核控制表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "合約結案控制表_tsm" Then : 合約結案控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString
                合約結案控制表1_tsm.Text = 語言_dgv("內容", i).Value.ToString : 合約結案控制表_lb.Text = 語言_dgv("內容", i).Value.ToString
                合約結案控制表1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "合約圖庫管理系統_tsm" Then : 合約工程圖庫管理_tsm.Text = 語言_dgv("內容", i).Value.ToString
                合約工程圖庫管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "工程項目BOM表_tsm" Then : 工程項目BOM表_tsm.Text = 語言_dgv("內容", i).Value.ToString
                工程項目BOM表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "客戶資料表_tsm" Then : 客戶資料表_tsm.Text = 語言_dgv("內容", i).Value.ToString
                客戶資料表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            '------------------------採購管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
            If 語言_dgv("控件", i).Value.ToString = "採購系統管理_tsm" Then : 採購系統管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "行政物料請購單申請_tsm" Then : 樣品請購單申請_tsm.Text = 語言_dgv("內容", i).Value.ToString
                樣品請購單申請_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "行政物料請購單核准_tsm" Then : 樣品請購單核准_tsm.Text = 語言_dgv("內容", i).Value.ToString
                樣品請購單核准_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "行政物料請購單一覽表_tsm" Then : 樣品請購單一覽表_tsm.Text = 語言_dgv("內容", i).Value.ToString
                樣品請購單一覽表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "行政物料採購單生成_tsm" Then : 樣品採購單生成_tsm.Text = 語言_dgv("內容", i).Value.ToString
                樣品採購單生成_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "行政物料採購單一級核准_tsm" Then : 樣品採購單一級核准_tsm.Text = 語言_dgv("內容", i).Value.ToString
                樣品採購單一級核准_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "行政物料採購單二級核准_tsm" Then : 樣品採購單二級核准_tsm.Text = 語言_dgv("內容", i).Value.ToString
                樣品採購單二級核准_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "行政物料採購單一覽表_tsm" Then : 樣品採購單一覽表_tsm.Text = 語言_dgv("內容", i).Value.ToString
                樣品採購單一覽表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "行政物料來料驗收單_tsm" Then : 樣品來料驗收單_tsm.Text = 語言_dgv("內容", i).Value.ToString
                樣品來料驗收單_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "行政物料採購驗收對帳表_tsm" Then : 樣品採購驗收對帳表_tsm.Text = 語言_dgv("內容", i).Value.ToString
                樣品採購驗收對帳表1_tsm.Text = 語言_dgv("內容", i).Value.ToString : 樣品採購驗收對帳表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "行政物料供應商管理_tsm" Then : 樣品供應商管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If

            If 語言_dgv("控件", i).Value.ToString = "建築物料請購單申請_tsm" Then : 請購單申請_tsm.Text = 語言_dgv("內容", i).Value.ToString
                請購單申請_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "建築物料請購單核準_tsm" Then : 請購單核準_tsm.Text = 語言_dgv("內容", i).Value.ToString
                請購單核準_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "建築物料請購一覽表_tsm" Then : 請購一覽表_tsm.Text = 語言_dgv("內容", i).Value.ToString
                請購一覽表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "採購單詢價_tsm" Then : 採購單詢價_tsm.Text = 語言_dgv("內容", i).Value.ToString
                採購單詢價_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "建築物料採購單生成_tsm" Then : 採購單編輯_tsm.Text = 語言_dgv("內容", i).Value.ToString
                採購單編輯_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "建築物料採購單一級核准_tsm" Then : 採購單一級核准_tsm.Text = 語言_dgv("內容", i).Value.ToString
                採購單一級核准_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "建築物料採購單二級核准_tsm" Then : 採購單二級核准_tsm.Text = 語言_dgv("內容", i).Value.ToString
                採購單二級核准_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "建築物料採購單一覽表_tsm" Then : 採購單一覽表_tsm.Text = 語言_dgv("內容", i).Value.ToString
                採購單一覽表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "建築物料入庫驗收單_tsm" Then : 入庫驗收單_tsm.Text = 語言_dgv("內容", i).Value.ToString
                入庫驗收單_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "建築物料採購驗收對帳表_tsm" Then : 採購驗收對帳表_tsm.Text = 語言_dgv("內容", i).Value.ToString
                採購驗收對帳表1_tsm.Text = 語言_dgv("內容", i).Value.ToString : 採購驗收對帳表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "建築物料供應商管理_tsm" Then : 供應商管理_tsm.Text = 語言_dgv("內容", i).Value.ToString
                供應商管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "物料採購統計表_tsm" Then : 物料採購統計表_tsm.Text = 語言_dgv("內容", i).Value.ToString
                物料採購統計表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "供應商商品單價清單_tsm" Then : 供應商商品單價設定_tsm.Text = 語言_dgv("內容", i).Value.ToString
                供應商商品單價設定_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            '------------------------工程管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
            If 語言_dgv("控件", i).Value.ToString = "工程系統管理_tsm" Then : 工程系統管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "工程材料表_tsm" Then : 工程材料表_tsm.Text = 語言_dgv("內容", i).Value.ToString
                工程材料表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "工程進度表_tsm" Then : 工程進度表_tsm.Text = 語言_dgv("內容", i).Value.ToString
                工程進度表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "派工人數紀錄表_tsm" Then : 派工人數紀錄表_tsm.Text = 語言_dgv("內容", i).Value.ToString
                派工人數紀錄表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "工程日報表編輯_tsm" Then : 工程日報表編輯_tsm.Text = 語言_dgv("內容", i).Value.ToString
                工程日報表編輯_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "工程客變單_tsm" Then : 工程客變單_tsm.Text = 語言_dgv("內容", i).Value.ToString
                工程客變單_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "工程維修單_tsm" Then : 工程維修單_tsm.Text = 語言_dgv("內容", i).Value.ToString
                工程維修單_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "工程分區控制表_tsm" Then : 工程分區控制表1_tsm.Text = 語言_dgv("內容", i).Value.ToString
                工程分區控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString : 工程分區控制表_lb.Text = 語言_dgv("內容", i).Value.ToString
                工程分區控制表1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            '------------------------倉儲管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
            If 語言_dgv("控件", i).Value.ToString = "倉儲系統管理_tsm" Then : 倉儲系統管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "總部倉儲控制表_tsm" Then : 倉儲控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString
                倉儲控制表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "總部倉儲入庫驗收_tsm" Then : 倉儲入庫驗收_tsm.Text = 語言_dgv("內容", i).Value.ToString
                倉儲入庫驗收_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "總部倉儲指定出庫_tsm" Then : 物料轉倉申請_tsm.Text = 語言_dgv("內容", i).Value.ToString
                物料轉倉申請_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "總部倉儲指定出庫審核_tsm" Then : 物料轉倉審核_tsm.Text = 語言_dgv("內容", i).Value.ToString
                物料轉倉審核_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "總部倉儲指定出庫作業_tsm" Then : 物料轉倉出庫_tsm.Text = 語言_dgv("內容", i).Value.ToString
                物料轉倉出庫_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "區域倉儲領料申請_tsm" Then : 倉儲領料申請_tsm.Text = 語言_dgv("內容", i).Value.ToString
                倉儲領料申請_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "區域倉儲領料審核_tsm" Then : 倉儲領料審核_tsm.Text = 語言_dgv("內容", i).Value.ToString
                倉儲領料審核_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "區域倉儲領料出庫_tsm" Then : 倉儲領料出庫_tsm.Text = 語言_dgv("內容", i).Value.ToString
                倉儲領料出庫_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "物料退回區域倉儲作業_tsm" Then : 物料退庫_tsm.Text = 語言_dgv("內容", i).Value.ToString
                物料退庫_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "倉儲單據狀態看板_tsm" Then : 倉儲單據狀態看板_tsm.Text = 語言_dgv("內容", i).Value.ToString
                倉儲單據狀態看板_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "物料資料庫_tsm" Then : 物料資料庫_tsm.Text = 語言_dgv("內容", i).Value.ToString
                物料資料庫_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "盤盈盤損申請_tsm" Then : 盤盈盤損申請_tsm.Text = 語言_dgv("內容", i).Value.ToString
                盤盈盤損申請_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "盤盈盤損審核_tsm" Then : 盤盈盤損審核_tsm.Text = 語言_dgv("內容", i).Value.ToString
                盤盈盤損審核_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "倉儲分區控制表_tsm" Then : 倉儲分區控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString
                倉儲分區控制表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            '------------------------財務管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
            If 語言_dgv("控件", i).Value.ToString = "財務系統管理_tsm" Then : 財務系統管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "零用金支付申請_tsm" Then : 零用金支付申請_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "零用金支付審核_tsm" Then : 零用金支付審核_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "零用金支付核准_tsm" Then : 零用金支付核准_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "零用金支付單一覽表_tsm" Then : 零用金支付單一覽表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "零用金支付對帳表_tsm" Then : 零用金支付對帳表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "應收帳款控制表_tsm" Then : 應收帳款控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "應付賬款控制表_tsm" Then : 應付賬款控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "支票收支申請_tsm" Then : 支票收支申請_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "支票收支審核_tsm" Then : 支票收支審核_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "支票收支核准_tsm" Then : 支票收支核准_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "支票票務控制表_tsm" Then : 支票票務控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "現金流量表_tsm" Then : 現金流量表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "綜合損益表_tsm" Then : 綜合損益表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "權益變動表_tsm" Then : 權益變動表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "資產負載表_tsm" Then : 資產負載表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "營運收支單申請_tsm" Then : 營運收支單申請_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "營運收支單審核_tsm" Then : 營運收支單審核_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "營運收支單一覽表_tsm" Then : 營運收支單一覽表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "營運收支單對帳表_tsm" Then : 營運收支單對帳表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "營運收支決算表_tsm" Then : 營運收支決算表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "匯率管理_tsm" Then : 匯率管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "會計科目管理_tsm" Then : 會計科目管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            '------------------------人事管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
            If 語言_dgv("控件", i).Value.ToString = "公司組織結構_tsm" Then : 公司組織結構_tsm.Text = 語言_dgv("內容", i).Value.ToString
                公司組織結構_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "人事系統管理_tsm" Then : 人事系統管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "人員ID卡系統配置設定_tsm" Then : 人員ID卡系統配置設定_tsm.Text = 語言_dgv("內容", i).Value.ToString
                人員ID卡系統配置設定_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "系統組織結構與權限設定_tsm" Then : 系統組織結構與權限設定_tsm.Text = 語言_dgv("內容", i).Value.ToString
                系統組織結構與權限設定_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            '------------------------資料庫管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
            If 語言_dgv("控件", i).Value.ToString = "資料庫系統管理_tsm" Then : 資料庫系統管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "系統使用者管理_tsm" Then : 系統使用者管理_tsm.Text = 語言_dgv("內容", i).Value.ToString
                系統使用者管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "系統權限預設表_tsm" Then : 系統權限預設表_tsm.Text = 語言_dgv("內容", i).Value.ToString
                系統權限預設表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "系統組織架構設定_tsm" Then : 系統組織架構設定_tsm.Text = 語言_dgv("內容", i).Value.ToString
                系統組織架構設定_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "部門權限設定_tsm" Then : 部門權限設定_tsm.Text = 語言_dgv("內容", i).Value.ToString
                部門權限設定_lb.Text = 語言_dgv("內容", i).Value.ToString : End If

            If 語言_dgv("控件", i).Value.ToString = "系統通用變數管理_tsm" Then : 系統通用變數管理_tsm.Text = 語言_dgv("內容", i).Value.ToString
                系統通用變數管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "系統編碼規則_tsm" Then : 系統編碼規則_tsm.Text = 語言_dgv("內容", i).Value.ToString
                系統編碼規則_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "系統對應電腦註冊_tsm" Then : 系統對應電腦註冊_tsm.Text = 語言_dgv("內容", i).Value.ToString
                系統對應電腦註冊_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "系統執行檔版本管理_tsm" Then : 系統執行檔版本管理_tsm.Text = 語言_dgv("內容", i).Value.ToString
                系統執行檔版本管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "FTP資料夾管理_tsm" Then : FTP資料夾管理_tsm.Text = 語言_dgv("內容", i).Value.ToString
                FTP資料夾管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "系統開發用共享文件_tsm" Then : 系統開發用共享文件_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "簽名檔管理_tsm" Then : 簽名檔管理_tsm.Text = 語言_dgv("內容", i).Value.ToString
                簽名檔管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
        Next
    End Sub
    Private Sub HXGPSERPSYS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Size = New Point(1366, 768) : MyModule1.清單字體大小調整() : 視窗1_pl.Visible = False
        Dim SS1, SS2 As Integer : SS1 = 527 : SS2 = 325 : 幣別 = " (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)
        合約請款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
        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(8) : 安培容量計算表_p.Visible = CC(8)

        '------------------------業務管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        合約本文_tsm.Visible = CC(98) : 合約本文_p.Visible = CC(98) : 合約請款單_tsm.Visible = CC(124) : 合約請款單_p.Visible = CC(124)
        附錄合約_tsm.Visible = CC(98) : 附錄合約_p.Visible = CC(98) : 合約請款控制表_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(128) : 合約結案控制表_p.Visible = CC(128)
        合約工程圖庫管理_tsm.Visible = CC(115) : 合約工程圖庫管理_p.Visible = CC(115) : 工程分區控制表_tsm.Visible = CC(114) : 工程分區控制表_p.Visible = CC(114)
        客戶資料表_tsm.Visible = CC(99) : 客戶資料表_p.Visible = CC(99) : 合約報價單_tsm.Visible = CC(116) : 合約報價單_p.Visible = CC(116)
        合約執行進度_tsm.Visible = CC(5) : 合約執行進度_p.Visible = CC(5) : 工程項目BOM表_tsm.Visible = CC(52) : 工程項目BOM表_p.Visible = CC(52)
        合約利潤預估表_tsm.Visible = CC(60) : 合約利潤預估表_p.Visible = CC(60) : 合約文件簽回存檔_tsm.Visible = CC(61) : 合約文件簽回存檔_p.Visible = CC(61)
        合約文件簽核控制表_tsm.Visible = CC(62) : 合約文件簽核控制表_p.Visible = CC(62) : 合約報價單審核_tsm.Visible = CC(107) : 合約報價單審核_p.Visible = CC(107)
        業務系統管理_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(40) : 採購驗收對帳表_p.Visible = CC(40)
        供應商管理_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(6)

        樣品請購單申請_tsm.Visible = CC(25) : 樣品請購單申請_p.Visible = CC(25) : 樣品供應商管理_tsm.Visible = CC(42)
        樣品請購單核准_tsm.Visible = CC(26) : 樣品請購單核准_p.Visible = CC(26) : 樣品請購單一覽表_tsm.Visible = CC(27) : 樣品請購單一覽表_p.Visible = CC(27)
        樣品採購單生成_tsm.Visible = CC(28) : 樣品採購單生成_p.Visible = CC(28) : 樣品採購單一級核准_tsm.Visible = CC(72) : 樣品採購單一級核准_p.Visible = CC(72)
        樣品採購單二級核准_tsm.Visible = CC(29) : 樣品採購單二級核准_p.Visible = CC(29) : 樣品採購單一覽表_tsm.Visible = CC(30) : 樣品採購單一覽表_p.Visible = CC(30)
        樣品來料驗收單_tsm.Visible = CC(31) : 樣品來料驗收單_p.Visible = CC(31) : 樣品採購驗收對帳表_tsm.Visible = CC(32) : 樣品採購驗收對帳表_p.Visible = CC(32)
        '------------------------工程管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        工程分區控制表1_tsm.Visible = CC(114) : 工程分區控制表1_p.Visible = CC(114) : 合約驗收控制表1_tsm.Visible = CC(108) : 合約驗收控制表1_p.Visible = CC(108)
        合約驗收單1_tsm.Visible = CC(105) : 合約驗收單1_p.Visible = CC(105) : 合約結案控制表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)
        工程系統管理_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(69) : 倉儲單據狀態看板_p.Visible = CC(69) : 物料資料庫_tsm.Visible = CC(70) : 物料資料庫_p.Visible = CC(70)
        倉儲分區控制表_tsm.Visible = CC(71) : 倉儲分區控制表_p.Visible = CC(71) : 盤盈盤損申請_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(9)
        '------------------------財務管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        財務系統管理_tsm.Visible = CC(7)
        營運收支單申請_tsm.Visible = CC(91) : 營運收支單審核_tsm.Visible = CC(92) : 營運收支單一覽表_tsm.Visible = CC(93) : 營運收支單對帳表_tsm.Visible = CC(94)
        營運收支決算表_tsm.Visible = CC(95) : 匯率管理_tsm.Visible = CC(96) : 會計科目管理_tsm.Visible = CC(97) : 現金流量表_tsm.Visible = CC(80) : 綜合損益表_tsm.Visible = CC(81)
        權益變動表_tsm.Visible = CC(82) : 資產負載表_tsm.Visible = CC(83) : 零用金支付申請_tsm.Visible = CC(15) : 零用金支付審核_tsm.Visible = CC(16) : 零用金支付核准_tsm.Visible = CC(17)
        零用金支付單一覽表_tsm.Visible = CC(90) : 支票收支申請_tsm.Visible = CC(76) : 支票收支審核_tsm.Visible = CC(77) : 支票收支核准_tsm.Visible = CC(78) : 支票票務控制表_tsm.Visible = CC(79)
        零用金支付對帳表_tsm.Visible = CC(18) : 樣品採購驗收對帳表1_tsm.Visible = CC(32) : 採購驗收對帳表1_tsm.Visible = CC(40) : 應收帳款控制表_tsm.Visible = CC(74)
        應付賬款控制表_tsm.Visible = CC(75)
        '------------------------人事管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        人員ID卡系統配置設定_tsm.Visible = CC(23) : 人員ID卡系統配置設定_p.Visible = CC(23) : 系統組織結構與權限設定_tsm.Visible = CC(89) : 系統組織結構與權限設定_p.Visible = CC(89)
        人事系統管理_tsm.Visible = CC(22) : LINE使用者管理表_tsm.Visible = CC(111) : LINE通知測試表_tsm.Visible = CC(112) : LINE權限一覽表_tsm.Visible = CC(113)
        '------------------------資料庫管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        系統使用者管理_tsm.Visible = CC(2) : 系統使用者管理_p.Visible = CC(2) : 系統權限預設表_tsm.Visible = CC(84) : 系統權限預設表_p.Visible = CC(84)
        系統組織架構設定_tsm.Visible = CC(41) : 系統組織架構設定_p.Visible = CC(41) : 部門權限設定_tsm.Visible = CC(87) : 部門權限設定_p.Visible = CC(87)
        系統通用變數管理_tsm.Visible = CC(43) : 系統通用變數管理_p.Visible = CC(43) : 系統編碼規則_tsm.Visible = CC(10) : 系統編碼規則_p.Visible = CC(10)
        系統對應電腦註冊_tsm.Visible = CC(44) : 系統對應電腦註冊_p.Visible = CC(44) : 系統執行檔版本管理_tsm.Visible = CC(4) : 系統執行檔版本管理_p.Visible = CC(4)
        FTP資料夾管理_tsm.Visible = CC(3) : FTP資料夾管理_p.Visible = CC(3) : 簽名檔管理_tsm.Visible = CC(21) : 簽名檔管理_p.Visible = CC(21)

        資料庫系統管理_tsm.Visible = CC(1)
        系統開發用共享文件_tsm.Visible = CC(19)
        If gUserName = "李協叡" Then : 開發模板庫_tsm.Visible = True : Else : 開發模板庫_tsm.Visible = False : End If

        '------------------------ToolStripSeparator隱藏
        '------------------------章程管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        If 單次授權功能_tsm.Visible = False Then : ToolStripSeparator36.Visible = False : End If
        If CC(8) = False Then : ToolStripSeparator37.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(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 And CC(40) = 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(91) = False And CC(92) = False And CC(93) = False Then : ToolStripSeparator17.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(80) = False And CC(81) = False And CC(82) = False And CC(83) = False Then : ToolStripSeparator21.Visible = False : End If
        If CC(15) = False And CC(16) = False And CC(17) = False And CC(90) = False Then : ToolStripSeparator22.Visible = False : End If
        If CC(76) = False And CC(77) = False And CC(78) = False And CC(79) = False Then : ToolStripSeparator8.Visible = False : End If
        If CC(18) = False And CC(32) = False And CC(40) = False Then : ToolStripSeparator23.Visible = False : End If
        '------------------------人事管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
        If CC(23) = False And CC(89) = False Then : ToolStripSeparator28.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 gUserName = "李協叡" Then : ToolStripSeparator27.Visible = True : Else : ToolStripSeparator27.Visible = False : End If
    End Sub
    Private Sub HXGPSERPSYS_Siz()
        Dim 位置X As Integer : Dim 位置Y As Integer = 29 : Dim 位置Y1 As Integer = 30 : Dim Y可放 As Integer : If 系統語言 = "繁體中文" Then : 位置X = 200 : Else : 位置X = 370 : End If
        Dim 視窗X As Integer = 虛擬桌_pl.Size.Width : Dim 視窗Y As Integer = 虛擬桌_pl.Size.Height
        Dim X可放 As Integer = 視窗X / 位置X : If 系統語言 = "繁體中文" Then : Y可放 = 視窗Y / 位置Y : Else : Y可放 = 視窗Y / 位置Y + 0 : End If
        Dim 總共可放 As Integer = X可放 * Y可放
        Dim X已放 As Integer : Dim Y已放 As Integer : Dim 已經放置 As Integer
        '---------其他---------------------------------------------------------------------------------------------------------------
        If 個人帳號管理_p.Visible = True Then : 個人帳號管理_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 : End If
        If 文件伺服器_p.Visible = True Then : 文件伺服器_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 : End If
        If 系統使用說明_p.Visible = True Then : 系統使用說明_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 : End If
        If 單次授權功能_p.Visible = True Then : 單次授權功能_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 : End If
        If 會議記錄_p.Visible = True Then : 會議記錄_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 : End If
        If 安培容量計算表_p.Visible = True Then : 安培容量計算表_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 : End If
        If 部門聯絡函一覽表_p.Visible = True Then : 部門聯絡函一覽表_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 : End If
        If 部門聯絡函申請_p.Visible = True Then : 部門聯絡函申請_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 : End If
        If 聯絡函部門主管審核_p.Visible = True Then : 聯絡函部門主管審核_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 : End If
        If 聯絡函最高主管核准_p.Visible = True Then : 聯絡函最高主管核准_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 : End If
        '---------業務---------------------------------------------------------------------------------------------------------------
        If 合約執行進度_p.Visible = True Then : 合約執行進度_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 : End If
        If 合約利潤預估表_p.Visible = True Then : 合約利潤預估表_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 : End If
        If 合約報價單_p.Visible = True Then : 合約報價單_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 : End If
        If 合約報價單審核_p.Visible = True Then : 合約報價單審核_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 : End If
        If 合約本文_p.Visible = True Then : 合約本文_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 : End If
        If 附錄合約_p.Visible = True Then : 附錄合約_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 : End If
        If 合約請款單_p.Visible = True Then : 合約請款單_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 : End If
        If 合約請款控制表_p.Visible = True Then : 合約請款控制表_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 : End If
        If 合約驗收單_p.Visible = True Then : 合約驗收單_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 : End If
        If 合約驗收控制表_p.Visible = True Then : 合約驗收控制表_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 : End If
        If 合約保固書_p.Visible = True Then : 合約保固書_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 : End If
        If 合約文件簽回存檔_p.Visible = True Then : 合約文件簽回存檔_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 : End If
        If 合約文件簽核控制表_p.Visible = True Then : 合約文件簽核控制表_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 : End If
        If 合約結案控制表_p.Visible = True Then : 合約結案控制表_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 : End If
        If 合約工程圖庫管理_p.Visible = True Then : 合約工程圖庫管理_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 : End If
        If 工程項目BOM表_p.Visible = True Then : 工程項目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 : End If
        If 工程分區控制表_p.Visible = True Then : 工程分區控制表_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 : End If
        If 客戶資料表_p.Visible = True Then : 客戶資料表_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 : End If
        '---------請採購---------------------------------------------------------------------------------------------------------------
        If 請購單申請_p.Visible = True Then : 請購單申請_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 : End If
        If 請購單核準_p.Visible = True Then : 請購單核準_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 : End If
        If 請購一覽表_p.Visible = True Then : 請購一覽表_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 : End If
        If 採購單詢價_p.Visible = True Then : 採購單詢價_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 : End If
        If 採購單編輯_p.Visible = True Then : 採購單編輯_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 : End If
        If 採購單一級核准_p.Visible = True Then : 採購單一級核准_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 : End If
        If 採購單二級核准_p.Visible = True Then : 採購單二級核准_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 : End If
        If 採購單一覽表_p.Visible = True Then : 採購單一覽表_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 : End If
        If 入庫驗收單_p.Visible = True Then : 入庫驗收單_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 : End If
        If 採購驗收對帳表_p.Visible = True Then : 採購驗收對帳表_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 : End If
        If 供應商管理_p.Visible = True Then : 供應商管理_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 : End If
        If 供應商商品單價設定_p.Visible = True Then : 供應商商品單價設定_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 : End If
        If 物料採購統計表_p.Visible = True Then : 物料採購統計表_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 : End If

        If 樣品請購單申請_p.Visible = True Then : 樣品請購單申請_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 : End If
        If 樣品請購單核准_p.Visible = True Then : 樣品請購單核准_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 : End If
        If 樣品請購單一覽表_p.Visible = True Then : 樣品請購單一覽表_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 : End If
        If 樣品採購單生成_p.Visible = True Then : 樣品採購單生成_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 : End If
        If 樣品採購單一級核准_p.Visible = True Then : 樣品採購單一級核准_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 : End If
        If 樣品採購單二級核准_p.Visible = True Then : 樣品採購單二級核准_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 : End If
        If 樣品採購單一覽表_p.Visible = True Then : 樣品採購單一覽表_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 : End If
        If 樣品來料驗收單_p.Visible = True Then : 樣品來料驗收單_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 : End If
        If 樣品採購驗收對帳表_p.Visible = True Then : 樣品採購驗收對帳表_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 : End If

        '---------工程---------------------------------------------------------------------------------------------------------------
        If 工程材料表_p.Visible = True Then : 工程材料表_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 : End If
        If 合約驗收單1_p.Visible = True Then : 合約驗收單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 : End If
        If 合約驗收控制表1_p.Visible = True Then : 合約驗收控制表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 : End If
        If 合約結案控制表1_p.Visible = True Then : 合約結案控制表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 : End If
        If 工程進度表_p.Visible = True Then : 工程進度表_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 : End If
        If 派工人數紀錄表_p.Visible = True Then : 派工人數紀錄表_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 : End If
        If 工程日報表編輯_p.Visible = True Then : 工程日報表編輯_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 : End If
        If 工程客變單_p.Visible = True Then : 工程客變單_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 : End If
        If 工程維修單_p.Visible = True Then : 工程維修單_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 : End If
        If 工程分區控制表1_p.Visible = True Then : 工程分區控制表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 : End If
        '---------倉儲---------------------------------------------------------------------------------------------------------------
        If 倉儲控制表_p.Visible = True Then : 倉儲控制表_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 : End If
        If 倉儲入庫驗收_p.Visible = True Then : 倉儲入庫驗收_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 : End If
        If 物料轉倉申請_p.Visible = True Then : 物料轉倉申請_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 : End If
        If 物料轉倉審核_p.Visible = True Then : 物料轉倉審核_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 : End If
        If 物料轉倉出庫_p.Visible = True Then : 物料轉倉出庫_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 : End If
        If 倉儲領料申請_p.Visible = True Then : 倉儲領料申請_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 : End If
        If 倉儲領料審核_p.Visible = True Then : 倉儲領料審核_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 : End If
        If 倉儲領料出庫_p.Visible = True Then : 倉儲領料出庫_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 : End If
        If 物料退庫_p.Visible = True Then : 物料退庫_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 : End If
        If 倉儲單據狀態看板_p.Visible = True Then : 倉儲單據狀態看板_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 : End If
        If 盤盈盤損申請_p.Visible = True Then : 盤盈盤損申請_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 : End If
        If 盤盈盤損審核_p.Visible = True Then : 盤盈盤損審核_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 : End If
        If 物料資料庫_p.Visible = True Then : 物料資料庫_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 : End If
        If 倉儲分區控制表_p.Visible = True Then : 倉儲分區控制表_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 : End If
        '---------人事---------------------------------------------------------------------------------------------------------------
        If 公司組織結構_p.Visible = True Then : 公司組織結構_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 : End If
        If 人員ID卡系統配置設定_p.Visible = True Then : 人員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 : End If
        If 系統組織結構與權限設定_p.Visible = True Then : 系統組織結構與權限設定_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 : End If
        '---------系統---------------------------------------------------------------------------------------------------------------
        If 系統使用者管理_p.Visible = True Then : 系統使用者管理_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 : End If
        If 系統權限預設表_p.Visible = True Then : 系統權限預設表_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 : End If
        If 系統組織架構設定_p.Visible = True Then : 系統組織架構設定_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 : End If
        If 部門權限設定_p.Visible = True Then : 部門權限設定_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 : End If
        If 系統通用變數管理_p.Visible = True Then : 系統通用變數管理_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 : End If
        If 系統編碼規則_p.Visible = True Then : 系統編碼規則_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 : End If
        If 系統對應電腦註冊_p.Visible = True Then : 系統對應電腦註冊_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 : End If
        If 系統執行檔版本管理_p.Visible = True Then : 系統執行檔版本管理_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 : End If
        If FTP資料夾管理_p.Visible = True Then : FTP資料夾管理_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : FTP資料夾管理_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
            Else : FTP資料夾管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If
        If 簽名檔管理_p.Visible = True Then : 簽名檔管理_p.Size = New Point(位置X, 位置Y1)
            If 已經放置 = 0 Then : 簽名檔管理_p.Location = New Point(0, 0)
            Else : 簽名檔管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : If Y已放 >= Y可放 Then : End If : End If : End If
    End Sub
    Private Sub HXGPSERPSYS_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        If gUserName = "李協叡" Then : Me.Text = Me.Text & "  --  " & g_conn_type & "  --  " & gUserName & "  --  系統版本  :" & 版本 & " -- IP : " & 登入人IP
        Else : Me.Text = Me.Text & "  --  " & g_conn_type & "  --  " & gUserName & "  --  系統版本  :" & 版本 : End If

        '------------------------系統登入時宣告-------------------------------------------------------------------------------------------------------------------------------------------------
        SQL_系統語言() : 系統語言1_cb.Items.Clear() : While dr.Read() : 系統語言1_cb.Items.Add(dr("語言")) : End While : conn.Close()
        低網速模式_ch.Checked = 低網速模式 : 介面 = "H001" : 系統語言1_cb.Text = 系統語言

        '------------------------系統閒置登出宣告-----------------------------------------------------------------------------------------------------------------------------------------------
        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
        重登計時() : 重置()

        '-----------------------帳號下拉清單------------------------------------------------------------------------------------------------------------
        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

        '-----------------------未完成工作通知------------------------------------------------------------------------------------------------------------
        '更新_bt.PerformClick()

        '-----------------------測試伺服器登入通知------------------------------------------------------------------------------------------------------------
        If 登入人IP = "106.1.48.106,4567" Or 登入人IP = "leehsiehjui.hopto.org,2433" Or 登入人IP = "192.168.0.112,2433" Then
            If 系統語言 = "繁體中文" Then : MsgBox("注意目前登入的司服器是測試用的，如果一直無法登入正是伺服器請找系統管理員!!")
            Else : MsgBox("Perhatikan bahwa server yang saat ini masuk adalah untuk pengujian, jika Anda belum dapat masuk ke server yang tepat, silakan hubungi administrator sistem !!") : End If
        End If
    End Sub
    Private Sub HXGPSERPSYS_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing
        系統關閉 = True : If 判斷重登 = True Then : 判斷重登 = False : Else : 判斷重登 = False : LoginForm1.Close() : End If
    End Sub
    Private Sub HXGPSERPSYS_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        HXGPSERPSYS_Siz()
        If 系統關閉 = True Then : Else
            Me.BackgroundImage = My.Resources._1980X1010 : Me.BackgroundImageLayout = 3
        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.Show() : 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.Show() : 系統登出.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 重置()
        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 = "" : 列印用SQL = "" : 列印用SQL2 = "" : PPAA = "" : DTP = "" : DTP1 = "" : DTP2 = ""
        DTP3 = ""
    End Sub
    Private Sub 虛擬桌面隱藏()
        虛擬桌_pl.Visible = False : 桌面通知_pl.Visible = False
    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" : 語言轉換讀取()
        '-------------------------------H1系列-業務---------------------------------------------------------------------------------------------------------------------------------------
        If H(101) = True Then : 介面 = "H101" : 合約執行進度.語轉扭_bt.PerformClick() : End If : If H(104) = True Then : 介面 = "H104" : 附錄合約.語轉扭_bt.PerformClick() : End If
        If H(106) = True Then : 介面 = "H106" : 合約請款控制表.語轉扭_bt.PerformClick() : End If

        '-------------------------------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(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(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(219) = True Then : 介面 = "H219" : 樣品採購單_對帳表.語轉扭_bt.PerformClick() : End If
        If H(299) = True Then : 介面 = "H299" : 供應商管理.語轉扭_bt.PerformClick() : End If : If H(210) = True Then : 介面 = "H210" : 採購_對帳表.語轉扭_bt.PerformClick() : End If

        '-------------------------------H3系統-財務---------------------------------------------------------------------


        '-------------------------------H4系統-工程---------------------------------------------------------------------
        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(404) = True Then : 介面 = "H404" : 工程日報表審核.語轉扭_bt.PerformClick() : End If : If H(403) = True Then : 介面 = "H403" : 工程日報表編輯.語轉扭_bt.PerformClick() : End If

        '-------------------------------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

        '-------------------------------H6系列-人事---------------------------------------------------------------------------------------------------------------------------------------
        If H(601) = True Then : 介面 = "H601" : 人員ID卡系統配置設定.語轉扭_bt.PerformClick() : End If
        If H(602) = True Then : 介面 = "H602" : 系統組織結構與權限設定.語轉扭_bt.PerformClick() : End If
        If H(605) = True Then : 介面 = "H605" : LINE_權限一覽表.語轉扭_bt.PerformClick() : End If

        '-------------------------------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(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
        Access1.Close() : HXGPSERPSYS_Siz() : 更新_bt.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 個人帳號管理_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
        Try
            Dim fileName As String = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
            If File.Exists(fileName) Then
                Dim fullPath As String = Path.GetFullPath(fileName)
                Process.Start(fullPath, "--app= https://quickconnect.to/HX-PGS-NAS")
            Else
                Process.Start("explorer.exe", "https://quickconnect.to/HX-PGS-NAS")
            End If
        Catch ex As Exception
            If 系統語言 = "繁體中文" Then : MsgBox("請先安裝Chrom瀏覽器!!")
            Else : MsgBox("Silahkan install browser Chrome terlebih dahulu!!") : End If
        End Try
    End Sub
    Private Sub 文件伺服器_pb_Click(sender As Object, e As EventArgs) Handles 文件伺服器_pb.Click
        文件伺服器_tsm.PerformClick()
    End Sub
    Private Sub 文件伺服器_ib_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 系統使用說明_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 單次授權功能_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 會議記錄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_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_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 部門聯絡函申請_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 部門聯絡函部門主管審核_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 合約執行進度_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 合約利潤預估表_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 合約報價單_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 合約報價單審核_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 合約本文_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 附錄合約_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 合約請款控制表_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 合約請款單_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
        重登計時() : 重置() : 系統分區控制 = 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
        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
        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_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 合約文件簽核控制表_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
        重登計時() : 重置() : 系統分區控制 = 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
        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_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_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
        重登計時() : 重置() : 系統分區控制 = 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
        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 樣品請購單核准_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 樣品請購單一覽表_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 樣品採購單生成_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 樣品採購單一級核准_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 樣品採購單二級核准_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 樣品採購單一覽表_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 樣品採購單一覽表_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 樣品採購驗收對帳表_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 樣品來料驗收單_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 請購單申請_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 請購單核準_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 請購一覽表_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
        重登計時() : 重置() : 採購單一級核准.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_Click(sender As Object, e As EventArgs) Handles 採購單一級核准_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重登計時() : 重置() : 採購單二級核准.Close() : 採購單編輯.Close() : 採購單一級核准.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_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_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 入庫驗收單_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 採購驗收對帳表_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 採購單詢價_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 供應商管理_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 物料採購統計表_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 供應商商品單價清單_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
    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
    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
        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 樣品採購驗收對帳表_tsm1_Click(sender As Object, e As EventArgs) Handles 樣品採購驗收對帳表1_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重登計時() : 重置() : 樣品採購單_對帳表.Show() : 樣品採購單_對帳表.BringToFront() : 虛擬桌面隱藏()
    End Sub
    Private Sub 採購驗收對帳表_tsm1_Click(sender As Object, e As EventArgs) Handles 採購驗收對帳表1_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重登計時() : 重置() : 採購_對帳表.Show() : 採購_對帳表.BringToFront() : 虛擬桌面隱藏()
    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 營運成本收支單審核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 營運成本收支單一覽表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 營運成本收支單對帳表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 營運成本收支決算表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 匯率管理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 會計科目管理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 物料資料庫_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_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_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_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_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_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_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_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_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_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_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_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 盤盈盤損申請_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 盤盈盤損審核_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_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_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 公司組織結構_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 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
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重登計時() : 重置() : LINE_通知測試表.ShowDialog() : LINE_通知測試表.BringToFront()
    End Sub
    Private Sub LINE權限一覽表_Click(sender As Object, e As EventArgs) Handles LINE權限一覽表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
        重登計時() : 重置() : LINE_權限一覽表.ShowDialog() : LINE_權限一覽表.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 工程材料表_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_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_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_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_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 派工人數紀錄表_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 工程日報表編輯_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 工程客變單_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 工程維修單_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_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 FTP資料夾管理_pb_Click(sender As Object, e As EventArgs) Handles FTP資料夾管理_pb.Click
        FTP資料夾管理_tsm.PerformClick()
    End Sub
    Private Sub FTP資料夾管理_lb_Click(sender As Object, e As EventArgs) Handles FTP資料夾管理_lb.Click
        FTP資料夾管理_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 系統執行檔版本管理_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 系統使用者管理_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 系統權限預設表_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 簽名檔管理_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 系統對應電腦註冊_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 系統通用變數管理_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 系統編碼規則_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 系統組織架構設定_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 部門權限設定_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 聯絡函最高主管核准_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 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 開發模板庫ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 開發模板庫_tsm.Click
        開發模板庫.Show() : 開發模板庫.BringToFront()
    End Sub

    '------------------------代辦事項通知-------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 更新_bt_Click(sender As Object, e As EventArgs) Handles 更新_bt.Click
        Set_請購單() : Set_詢價單1() : Set_採購核准11() : Set_採購核准12() : Set_部門聯絡函_未審() : Set_部門聯絡函_未收() : Set_部門聯絡函_未執行() : Set_部門聯絡函_未驗收()
        Set_合約未請款1() : Set_合約未請款2() : Set_合約未請款3() : Set_合約未請款4() : Set_合約未請款5() : Set_合約未驗收() : Set_合約未指定主管() : Set_工程進度表未開()
        Set_合約未設利潤() : Set_合約未放行() : Set_合約保固單未簽() : Set_合約驗收單未簽回() : Set_合約未簽回() : Set_報價未簽回() : Set_報價未完成()

        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

        代辦事項_tv.Nodes.Add(對話框(4) & 聯絡函_未審_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1
        代辦事項_tv.Nodes.Add(對話框(5) & 聯絡函_未收_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1
        代辦事項_tv.Nodes.Add(對話框(6) & 聯絡函_未執行_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1
        代辦事項_tv.Nodes.Add(對話框(7) & 聯絡函_未驗收_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1

        If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(16) & 合約預估利潤_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If
        If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(18) & 報價未完成_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If
        If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(17) & 合約未放行_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If
        If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(19) & 報價未簽回_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If
        If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(20) & 合約未簽回_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If
        If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(8) & 合約請款1_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If
        If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(9) & 合約請款2_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If
        If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(10) & 合約請款3_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If
        If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(11) & 合約請款4_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If
        If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(12) & 合約請款5_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If

        If CC(8) = True Then : 代辦事項_tv.Nodes.Add(對話框(14) & 合約未指定主管_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : End If
        If CC(8) = True Then : 代辦事項_tv.Nodes.Add(對話框(15) & 未開工程進度表_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : End If
        If CC(8) = True Then : 代辦事項_tv.Nodes.Add(對話框(13) & 合約未驗收_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : End If
        If CC(8) = True Then : 代辦事項_tv.Nodes.Add(對話框(21) & 驗收未簽回_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : End If
        If CC(8) = True Then : 代辦事項_tv.Nodes.Add(對話框(22) & 保固未簽回_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : End If

        If CC(34) = True Then : 代辦事項_tv.Nodes.Add(對話框(0) & 請購單_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Teal : NN1 += 1 : End If
        If CC(20) = True Then : 代辦事項_tv.Nodes.Add(對話框(1) & 詢價單_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Teal : NN1 += 1 : End If
        If CC(73) = True Then : 代辦事項_tv.Nodes.Add(對話框(2) & 採購核准11_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Teal : NN1 += 1 : End If
        If CC(37) = True Then : 代辦事項_tv.Nodes.Add(對話框(3) & 採購核准12_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Teal : NN1 += 1 : End If
    End Sub
    Private Sub 代辦清單重置()
        聯絡函_未審_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
    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_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles 代辦事項_tv.AfterSelect
        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 對話框(16) & 合約預估利潤_dgv.Rows.Count : 標題_lb.Text = 對話框(16) & 合約預估利潤_dgv.Rows.Count
                代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約預估利潤_dgv.Visible = True
            Case 對話框(18) & 報價未完成_dgv.Rows.Count : 標題_lb.Text = 對話框(18) & 報價未完成_dgv.Rows.Count
                代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 報價未完成_dgv.Visible = True
            Case 對話框(17) & 合約未放行_dgv.Rows.Count : 標題_lb.Text = 對話框(17) & 合約未放行_dgv.Rows.Count
                代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約未放行_dgv.Visible = True
            Case 對話框(19) & 報價未簽回_dgv.Rows.Count : 標題_lb.Text = 對話框(19) & 報價未簽回_dgv.Rows.Count
                代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 報價未簽回_dgv.Visible = True
            Case 對話框(20) & 合約未簽回_dgv.Rows.Count : 標題_lb.Text = 對話框(20) & 合約未簽回_dgv.Rows.Count
                代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約未簽回_dgv.Visible = True
            Case 對話框(8) & 合約請款1_dgv.Rows.Count : 標題_lb.Text = 對話框(8) & 合約請款1_dgv.Rows.Count
                代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款1_dgv.Visible = True
            Case 對話框(9) & 合約請款2_dgv.Rows.Count : 標題_lb.Text = 對話框(9) & 合約請款2_dgv.Rows.Count
                代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款2_dgv.Visible = True
            Case 對話框(10) & 合約請款3_dgv.Rows.Count : 標題_lb.Text = 對話框(10) & 合約請款3_dgv.Rows.Count
                代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款3_dgv.Visible = True
            Case 對話框(11) & 合約請款4_dgv.Rows.Count : 標題_lb.Text = 對話框(11) & 合約請款4_dgv.Rows.Count
                代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款4_dgv.Visible = True
            Case 對話框(12) & 合約請款5_dgv.Rows.Count : 標題_lb.Text = 對話框(12) & 合約請款5_dgv.Rows.Count
                代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款5_dgv.Visible = True

            Case 對話框(14) & 合約未指定主管_dgv.Rows.Count : 標題_lb.Text = 對話框(14) & 合約未指定主管_dgv.Rows.Count
                代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約未指定主管_dgv.Visible = True
            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 對話框(13) & 合約未驗收_dgv.Rows.Count : 標題_lb.Text = 對話框(13) & 合約未驗收_dgv.Rows.Count
                代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約未驗收_dgv.Visible = True
            Case 對話框(21) & 驗收未簽回_dgv.Rows.Count : 標題_lb.Text = 對話框(21) & 驗收未簽回_dgv.Rows.Count
                代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 驗收未簽回_dgv.Visible = True
            Case 對話框(22) & 保固未簽回_dgv.Rows.Count : 標題_lb.Text = 對話框(22) & 保固未簽回_dgv.Rows.Count
                代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 保固未簽回_dgv.Visible = True

            Case 對話框(0) & 請購單_dgv.Rows.Count : 標題_lb.Text = 對話框(0) & 請購單_dgv.Rows.Count
                代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 請購單_dgv.Visible = True
            Case 對話框(1) & 詢價單_dgv.Rows.Count : 標題_lb.Text = 對話框(1) & 詢價單_dgv.Rows.Count
                代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 詢價單_dgv.Visible = True
            Case 對話框(2) & 採購核准11_dgv.Rows.Count : 標題_lb.Text = 對話框(2) & 採購核准11_dgv.Rows.Count
                代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 採購核准11_dgv.Visible = True
            Case 對話框(3) & 採購核准12_dgv.Rows.Count : 標題_lb.Text = 對話框(3) & 採購核准12_dgv.Rows.Count
                代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 採購核准12_dgv.Visible = True
        End Select
    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 視窗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
End Class