GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/GCM_ERP_SYS.vb

Option Explicit On
Public Class GCM_ERP_SYS
    ReadOnly screenWidth = Screen.PrimaryScreen.Bounds.Width
    ReadOnly screenHeight = Screen.PrimaryScreen.Bounds.Height
    ReadOnly ds As New DataSet
    Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewWindowToolStripMenuItem.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 ExitToolStripMenuItem.Click
        Login.Close() : Me.Close()
    End Sub
    Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CascadeToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub
    Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileVerticalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub
    Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileHorizontalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub
    Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ArrangeIconsToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.ArrangeIcons)
    End Sub
    Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CloseAllToolStripMenuItem.Click
        '----------關閉父表單的所有子表單---------------------------------------------------------------------------------------------------------------
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
    End Sub
    Private m_ChildFormNumber As Integer
    Private Sub MDIParentbreak_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox3.Text = "主畫面"
        '----------讀取系統閒置時間設定-----------------------------------------------------------------------------------------------------------------
        ConnOpen()
        SQL1 = "SELECT timeExit, timeExit2 FROM 系統閒置時間設定"
        CmdSet_For_dr()
        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
        系統登出計時重至_MouseMove()
        '----------系統登入時抬頭資訊顯示---------------------------------------------------------------------------------------------------------------
        Text = Text & "  --  " & g_conn_type & "  --  " & gUserName & "  --  系統版本  :" & 版本
        '----------系統登入權限執行---------------------------------------------------------------------------------------------------------------------
        系統管理_tsm.Enabled = CC(0) : 系統使用者管理_tsm.Enabled = CC(7) : FTP資料夾管理_tsm.Enabled = CC(8)
        系統執行檔版本管理_tsm.Enabled = CC(9) : 系統編碼原則_tsm.Enabled = CC(10) : 系統通用變數管理_tsm.Enabled = CC(11)
        系統對應電腦註冊_tsm.Enabled = CC(12) : 原代碼存放區_tsm.Enabled = CC(18) : 共享文件_tsm.Enabled = CC(19)
        '----------業務---------------------------------------------------------------------------------------------------------------------
        業務管理_tsm.Enabled = CC(6) : 業務專案建檔_tsm.Enabled = CC(23)
        '----------人事---------------------------------------------------------------------------------------------------------------------
        人事系統管理新_tsm.Enabled = CC(5) : ID卡系統配置設定_tsm.Enabled = CC(22) : 人員入職資料表_tsm.Enabled = CC(21)
        人事請假申請1_tsm.Enabled = CC(28) : 人事請假核准1_tsm.Enabled = CC(29) : 人員考勤明細表1_tsm.Enabled = CC(30)
        考勤打卡資料補登1_tsm.Enabled = CC(31) : 國定假日設定1_tsm.Enabled = CC(32)
        '----------新人事---------------------------------------------------------------------------------------------------------------------
        系統使用者權限設定_tsm.Enabled = BB(1) : 系統使用者權限設定_tsm.Enabled = BB(2) : 人事系統變數設定_tsm.Enabled = BB(3) : ID卡配置設定_tsm.Enabled = BB(4) : 人員資料表_tsm.Enabled = BB(5)
        排班資料_tsm.Enabled = BB(6)
        加班申請審核_tsm.Enabled = BB(7) : 加班申請_tsm.Enabled = BB(8) : 加班核准_tsm.Enabled = BB(9) : 最後關班時間_tsm.Enabled = BB(10) : 加班申請資料_tsm.Enabled = BB(24)
        休假申請審核_tsm.Enabled = BB(11) : 休假申請_tsm.Enabled = BB(12) : 休假核准_tsm.Enabled = BB(13) : 國定假日設定_tsm.Enabled = BB(15) : 歷史休假紀錄_tsm.Enabled = BB(25)
        考勤管理_tsm.Enabled = BB(14) : 考勤明細表_tsm.Enabled = BB(26) : 到離職管理_tsm.Enabled = BB(27) : 到離職核准_tsm.Enabled = BB(13)
        '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

        '----------財務系統---------------------------------------------------------------------------------------------------------------------
        財務管理_tsm.Enabled = CC(1) : 個人財務_tsm.Enabled = CC(13) : 帳務系統_tsm.Enabled = CC(16) : 匯率管理_tsm.Enabled = CC(17)
        '----------設備開發---------------------------------------------------------------------------------------------------------------------
        設備開發系統_tsm.Enabled = CC(4)
        '----------軟體開發---------------------------------------------------------------------------------------------------------------------
        軟件開發系統管理_tsm.Enabled = CC(3) : 工作日志_tsm.Enabled = CC(20) : 系統開發點檢控制表_tsm.Enabled = CC(25)
        '----------決策喜統---------------------------------------------------------------------------------------------------------------------
        決策系統管理_tsm.Enabled = CC(2) : 卜卦簡易_tsm.Enabled = CC(14) : 卜卦進階_tsm.Enabled = CC(15)
    End Sub
    Private Sub MDIParentbreak_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing
        If 判斷重登 = True Then : 判斷重登 = False : Else : 判斷重登 = False : Login.Close() : End If
    End Sub
    Private Sub MDIParentbreak_SIZE(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        Me.BackgroundImage = My.Resources._1980X1010 : Me.BackgroundImageLayout = 3
    End Sub
    Private Sub 系統登出計時重至_MouseMove()
        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 : Login.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 : Login.Show() : 系統登出.Close() : Me.Close() : Exit Sub
        End If
    End Sub
    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
        If ComboBox3.Text = "主畫面" Then
            If screenWidth = 1920 And screenHeight = 1080 Then : Me.BackgroundImage = My.Resources._1980X1010
            ElseIf screenWidth = 1366 And screenHeight = 768 Then : Me.BackgroundImage = My.Resources._1366X719
            ElseIf screenWidth = 1440 And screenHeight = 900 Then : Me.BackgroundImage = My.Resources._1440X828
            ElseIf screenWidth = 1280 And screenHeight = 1024 Then : Me.BackgroundImage = My.Resources._1280X956
            ElseIf screenWidth = 1600 And screenHeight = 900 Then : Me.BackgroundImage = My.Resources._1601X896
            End If
            Me.BackgroundImageLayout = 3
        ElseIf ComboBox3.Text = "系統運作流程邏輯01" Then
            Me.BackgroundImageLayout = 3
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        系統登出計時重至_MouseMove() : PA = "" : 計算機.Show() : 計算機.BringToFront()
    End Sub


    '---------------------系統介面-------------------------------------------------------------------------------------------------
    Private Sub ID卡系統配置設定_tsm_Click(sender As Object, e As EventArgs) Handles ID卡系統配置設定_tsm.Click
        系統登出計時重至_MouseMove() : PA = "" : 人員ID卡系統配置設定.ShowDialog()
    End Sub
    Private Sub 個人帳號管理_tsm_Click(sender As Object, e As EventArgs) Handles 個人帳號管理_tsm.Click
        系統登出計時重至_MouseMove() : PA = "" : 個人帳號管理.ShowDialog()
    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 : 系統登出計時重至_MouseMove() : PA = "" : FTP資料夾管理.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 系統執行檔版本管理.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 系統使用者管理.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 系統編碼原則_1.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 系統通用變數管理.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 系統對應電腦註冊.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 簽名檔管理.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 系統使用者權限設定.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 卜卦.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 卜卦2.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 私有財務.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 財務流水帳系統.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 匯率修改.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 會計科目管理.Show()
    End Sub
    Private Sub 財務支付申請_tsm_Click(sender As Object, e As EventArgs) Handles GCM財務支付申請_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 財務_收支單申請_GCM.Show()
    End Sub
    Private Sub 財務支付審核_tsm_Click(sender As Object, e As EventArgs) Handles GCM財務支付審核_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 財務_收支單審核_GCM.Show()
    End Sub
    Private Sub 財務支付單一覽表_tsm_Click(sender As Object, e As EventArgs) Handles GCM財務支付單一覽表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 財務_收支單一覽表_GCM.Show()
    End Sub
    Private Sub 財務對帳表_tsm_Click(sender As Object, e As EventArgs) Handles GCM財務對帳表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 財務_對帳單_GCM.Show()
    End Sub
    Private Sub 財務決算表_tsm_Click(sender As Object, e As EventArgs) Handles GCM財務決算表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 財務_決算表_GCM.Show()
    End Sub
    Private Sub 財務彙總表_tsm_Click(sender As Object, e As EventArgs) Handles GCM財務彙總表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 財務_彙總表_GCM.Show()
    End Sub
    Private Sub ICS財務支付申請_tsm_Click(sender As Object, e As EventArgs) Handles ICS財務支付申請_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 財務_收支單申請_ICS.Show()
    End Sub
    Private Sub ICS財務支付審核_tsm_Click(sender As Object, e As EventArgs) Handles ICS財務支付審核_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 財務_收支單審核_ICS.Show()
    End Sub
    Private Sub ICS財務支付單一覽表_tsm_Click(sender As Object, e As EventArgs) Handles ICS財務支付單一覽表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 財務_收支單一覽表_ICS.Show()
    End Sub
    Private Sub ICS財務對帳表_tsm_Click(sender As Object, e As EventArgs) Handles ICS財務對帳表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 財務_對帳單_ICS.Show()
    End Sub
    Private Sub ISC財務決算表_tsm_Click(sender As Object, e As EventArgs) Handles ISC財務決算表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 財務_決算表_ICS.Show()
    End Sub
    Private Sub ISC財務彙總表_tsm_Click(sender As Object, e As EventArgs) Handles ISC財務彙總表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 財務_彙總表_ICS.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 人事系統變數設定.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 人員資料表.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 人員ID卡系統配置設定.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 排班資料.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 休假申請.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 休假核准.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 加班申請.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 加班核准.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 國定假日設定.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 歷史休假紀錄.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 加班申請資料.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 最後關班時間.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 休假核准.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 到離職管理.Show()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 考勤明細表.Show()
    End Sub


    '---------------------未使用封存介面-------------------------------------------------------------------------------------------------
    Private Sub 業務專案建檔ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 業務專案建檔_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 業務專案控制表.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 : 系統登出計時重至_MouseMove() : PA = "" : 原代碼存放區.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 : 系統登出計時重至_MouseMove() : PA = "" : 開發文件存放區.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 : 系統登出計時重至_MouseMove() : PA = "" : 工作日誌與代辦事項.Show() : 工作日誌與代辦事項.BringToFront()
    End Sub
    Private Sub 供應商管理ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 供應商管理_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 供應商資料.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 : 系統登出計時重至_MouseMove() : PA = "" : 進貨管理.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 : 系統登出計時重至_MouseMove() : PA = "" : 銷貨管理.Show() : 銷貨管理.BringToFront()
    End Sub
    Private Sub 庫存查詢ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 庫存查詢_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 庫存管理.Show() : 庫存管理.BringToFront()
    End Sub
    Private Sub 出庫紀錄ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 出庫紀錄_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 出庫紀錄表.Show() : 出庫紀錄表.BringToFront()
    End Sub
    Private Sub 零件成本ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 零件成本_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 零件成本建檔.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 : 系統登出計時重至_MouseMove() : PA = "" : 零組件零件成本建檔.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 : 系統登出計時重至_MouseMove() : PA = "" : 機構件零件成本建檔.Show() : 機構件零件成本建檔.BringToFront()
    End Sub
    Private Sub 機構組件成本ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 機構組件成本_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 機構組件零件成本建檔.Show() : 機構組件零件成本建檔.BringToFront()
    End Sub
    Private Sub 機台成本ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles 機台成本_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 機台零件成本建檔.Show() : 機台零件成本建檔.BringToFront()
    End Sub
    Private Sub 服務項目成本ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 服務項目成本_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 服務項目成本建檔.Show() : 服務項目成本建檔.BringToFront()
    End Sub
    Private Sub 零組件零件BOM表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 零組件零件BOM表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 零組件零件BOM表.Show() : 零組件零件BOM表.BringToFront()
    End Sub
    Private Sub 機構件零組件BOM表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 機構件零組件BOM表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 機構件零件BOM表.Show() : 機構件零件BOM表.BringToFront()
    End Sub
    Private Sub 機構組件機構件BOM表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 機構組件機構件BOM表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 機構組件零件BOM表.Show() : 機構組件零件BOM表.BringToFront()
    End Sub
    Private Sub 機台機構組件BOM表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 機台機構組件BOM表_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 機台零件BOM表.Show() : 機台零件BOM表.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 : 系統登出計時重至_MouseMove() : PA = "" : 系統開發點檢控制表.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 : 系統登出計時重至_MouseMove() : PA = "" : 系統開發功能點檢表.Show() : 系統開發功能點檢表.BringToFront()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 人員考勤明細表.Show() : 人員考勤明細表.BringToFront()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 人事請假申請.Show() : 人事請假申請.BringToFront()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 人事請假核准.Show() : 人事請假核准.BringToFront()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 考勤打卡資料補登.Show() : 考勤打卡資料補登.BringToFront()
    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 : 系統登出計時重至_MouseMove() : PA = "" : 國定假日設定_舊.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 : 系統登出計時重至_MouseMove() : PA = "" : 人員入職資料表.Show() : 人員入職資料表.BringToFront()
    End Sub
End Class