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 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 Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 系統登出計時重至_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() 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 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 會計科目管理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 財務支付申請_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 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