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

Option Explicit On
Imports CefSharp.WinForms
Imports CefSharp
Imports System.IO
Public Class GCM_ERP_SYS
    ReadOnly screenWidth = Screen.PrimaryScreen.Bounds.Width
    ReadOnly screenHeight = Screen.PrimaryScreen.Bounds.Height
    ReadOnly ds As New DataSet
    Dim Str As String = Application.StartupPath
    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 = "主畫面"
        'Me.Size = New Point(1366, 768) : MyModule1.清單字體大小調整() : 視窗1_pl.Visible = False
        Dim SS1, SS2 As Integer : SS1 = 527 : SS2 = 325 : 幣別 = " (TWD)"
        '聯絡函_未審_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)
        '----------讀取系統閒置時間設定-----------------------------------------------------------------------------------------------------------------
        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(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.Visible = CC(4)
        '----------軟體開發---------------------------------------------------------------------------------------------------------------------
        軟件開發系統管理_tsm.Visible = 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 計算機_bt_Click(sender As Object, e As EventArgs) Handles 計算機_bt.Click
        Shell("calc")
    End Sub
    Private Sub 重置()
        BL = False : BL1 = False : BL2 = False : BL3 = False : BL4 = False : BL5 = False : BL6 = False : BL7 = False : BL8 = False
        N1 = 0 : N2 = 0 : N3 = 0 : N4 = 0 : N5 = 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 ID卡系統配置設定_tsm_Click(sender As Object, e As EventArgs) Handles ID卡系統配置設定_tsm.Click
        系統登出計時重至_MouseMove() : 重置() : 人員ID卡系統配置設定.ShowDialog()
    End Sub
    Private Sub 個人帳號管理_tsm_Click(sender As Object, e As EventArgs) Handles 個人帳號管理_tsm.Click
        系統登出計時重至_MouseMove() : 重置() : 個人帳號管理.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() : 重置() : FTP資料夾管理.Show() : FTP資料夾管理.BringToFront()
    End Sub
    Private Sub 系統執行檔版本管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 系統執行檔版本管理.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() : 重置() : 系統使用者管理.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() : 重置() : 系統編碼原則_1.Show() : 系統編碼原則_1.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() : 重置() : 系統通用變數管理.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() : 重置() : 系統對應電腦註冊.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() : 重置() : 簽名檔管理.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() : 重置() : 系統使用者權限設定.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() : 重置() : 卜卦.ShowDialog() : 卜卦.BringToFront()
    End Sub
    Private Sub 卜卦進階_tsm_Click(sender As Object, e As EventArgs) Handles 卜卦進階_tsm.Click
        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : 重置() : 卜卦2.ShowDialog() : 卜卦2.BringToFront()
    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() : 重置() : 私有財務.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() : 重置() : 財務流水帳系統.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() : 重置() : 匯率修改.ShowDialog() : 匯率修改.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() : 重置() : 會計科目管理.Show() : 會計科目管理.BringToFront()
    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() : 重置() : 財務_收支單申請_GCM.Show() : 財務_收支單申請_GCM.BringToFront()
    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() : 重置() : 財務_收支單審核_GCM.Show() : 財務_收支單審核_GCM.BringToFront()
    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() : 重置() : 財務_收支單一覽表_GCM.Show() : 財務_收支單一覽表_GCM.BringToFront()
    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() : 重置() : 財務_對帳單_GCM.Show() : 財務_對帳單_GCM.BringToFront()
    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() : 重置() : 財務_決算表_GCM.Show() : 財務_決算表_GCM.BringToFront()
    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() : 重置() : 財務_彙總表_GCM.Show() : 財務_彙總表_GCM.BringToFront()
    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() : 重置() : 財務_收支單申請_ICS.Show() : 財務_收支單申請_ICS.BringToFront()
    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() : 重置() : 財務_收支單審核_ICS.Show() : 財務_收支單審核_ICS.BringToFront()
    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() : 重置() : 財務_收支單一覽表_ICS.Show() : 財務_收支單一覽表_ICS.BringToFront()
    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() : 重置() : 財務_對帳單_ICS.Show() : 財務_對帳單_ICS.BringToFront()
    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() : 重置() : 財務_決算表_ICS.Show() : 財務_決算表_ICS.BringToFront()
    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() : 重置() : 財務_彙總表_ICS.Show() : 財務_彙總表_ICS.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() : 重置() : 人事系統變數設定.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() : 重置() : 人員資料表.Show() : 人員資料表.BringToFront()
    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() : 重置() : 人員ID卡系統配置設定.Show() : 人員ID卡系統配置設定.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() : 重置() : 排班資料.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() : 重置() : 休假申請.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() : 重置() : 休假核准.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() : 重置() : 加班申請.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() : 重置() : 加班核准.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() : 重置() : 國定假日設定.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() : 重置() : 歷史休假紀錄.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() : 重置() : 加班申請資料.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() : 重置() : 最後關班時間.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() : 重置() : 休假核准.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() : 重置() : 到離職管理.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() : 重置() : 考勤明細表.Show() : 考勤明細表.BringToFront()
    End Sub


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

    Private WithEvents Browser As ChromiumWebBrowser
    Public Sub New()
        InitializeComponent()
        Dim settings As New CefSettings()
        settings.Locale = "zh-TW" ' 或者 "en-US"
        CefSharp.Cef.Initialize(settings)
        Browser = New ChromiumWebBrowser("https://gcm-smart.com/2023/05/20/gcm-erp-set1/") With {
        .Dock = DockStyle.Fill
    }
        MyBrowser.Controls.Add(Browser)
    End Sub
    Private Sub Browser_AddressChanged(sender As Object, e As AddressChangedEventArgs) Handles Browser.AddressChanged
        Dim currentUrl As String = e.Address
        ' 在這裡處理獲取到的網址 您可以將網址存儲到變數中或進行其他操作
    End Sub
    Private Sub 回首頁_tb_Click(sender As Object, e As EventArgs) Handles 回首頁_tb.Click
        'Browser.Load("https://www.google.com/")
        Browser.Load("https://gcm-smart.com/2023/05/20/gcm-erp-set1/")
    End Sub
    Private Sub SAQ_MdiChildActivate(sender As Object, e As EventArgs) Handles Me.MdiChildActivate
        Dim activeChildForm As Form = Me.ActiveMdiChild
        If activeChildForm Is Nothing Then
            MyBrowser.Visible = True
        Else
            MyBrowser.Visible = False
        End If
    End Sub
End Class