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

Option Explicit On
Imports System.Data.SqlClient
Public Class GCM_ERP_SYS
    ReadOnly screenWidth = Screen.PrimaryScreen.Bounds.Width
    ReadOnly screenHeight = Screen.PrimaryScreen.Bounds.Height
    ReadOnly conn As New SqlConnection
    ReadOnly da As New SqlDataAdapter
    ReadOnly cmd As New SqlCommand
    ReadOnly ds As New DataSet
    Dim dr As SqlDataReader
    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 : Login.Close() : 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 = "主畫面"
        '----------讀取系統閒置時間設定-----------------------------------------------------------------------------------------------------------------
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        SQL1 = "SELECT timeExit, timeExit2 FROM 系統閒置時間設定"
        cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
        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()
        '----------系統登入時抬頭資訊顯示---------------------------------------------------------------------------------------------------------------
        Me.Text = Me.Text & "  --  " & g_conn_type & "  --  " & gUserName & "  --  系統版本  :" & 版本
        '----------系統登入權限執行---------------------------------------------------------------------------------------------------------------------
        Me.系統管理ToolStripMenuItem.Enabled = CC(0) : Me.財務管理ToolStripMenuItem.Enabled = CC(1) : Me.決策系統管理ToolStripMenuItem.Enabled = CC(2)
        Me.軟件開發系統管理ToolStripMenuItem.Enabled = CC(3) : Me.設備開發系統ToolStripMenuItem.Enabled = CC(4) : Me.人事管理ToolStripMenuItem.Enabled = CC(5)
        Me.業務管理ToolStripMenuItem.Enabled = CC(6) : Me.系統使用者管理ToolStripMenuItem.Enabled = CC(7) : Me.FTP資料夾管理ToolStripMenuItem.Enabled = CC(8)
        Me.系統執行檔版本管理ToolStripMenuItem.Enabled = CC(9) : Me.系統編碼原則1ToolStripMenuItem.Enabled = CC(10) : Me.系統通用變數管理ToolStripMenuItem.Enabled = CC(11)
        Me.系統對應電腦註冊ToolStripMenuItem.Enabled = CC(12) : Me.個人財務ToolStripMenuItem.Enabled = CC(13) : Me.卜卦簡易ToolStripMenuItem1.Enabled = CC(14)
        Me.卜卦進階ToolStripMenuItem.Enabled = CC(15) : Me.帳務系統ToolStripMenuItem.Enabled = CC(16) : Me.匯率管理ToolStripMenuItem1.Enabled = CC(17)
        Me.原代碼存放區ToolStripMenuItem.Enabled = CC(18) : Me.共享文件ToolStripMenuItem.Enabled = CC(19) : Me.工作日志ToolStripMenuItem.Enabled = CC(20)
        Me.人員建檔ToolStripMenuItem.Enabled = CC(21) : Me.人員ID卡系統配置設定ToolStripMenuItem.Enabled = CC(22) : Me.業務專案建檔ToolStripMenuItem1.Enabled = CC(23)
        Me.系統開發點檢控制表ToolStripMenuItem.Enabled = CC(25)
    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.BackgroundImage = My.Resources.系統運作流程邏輯01
            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 個人財務ToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles 個人財務ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 私有財務.Show() : 私有財務.BringToFront()
    End Sub
    Private Sub 帳務系統ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 帳務系統ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 財務流水帳系統.Show() : 財務流水帳系統.BringToFront()
    End Sub
    Private Sub 業務專案建檔ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 業務專案建檔ToolStripMenuItem1.Click
        系統登出計時重至_MouseMove() : PA = "" : 業務專案控制表.Show() : 業務專案控制表.BringToFront()
    End Sub
    Private Sub 人員建檔ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 人員建檔ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 人員入職資料表.Show() : 人員入職資料表.BringToFront()
    End Sub
    Private Sub 卜卦簡易ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 卜卦簡易ToolStripMenuItem1.Click
        系統登出計時重至_MouseMove() : PA = "" : 卜卦.Show() : 卜卦.BringToFront()
    End Sub
    Private Sub 卜卦進階ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 卜卦進階ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 卜卦2.Show() : 卜卦2.BringToFront()
    End Sub
    Private Sub 個人帳號管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 個人帳號管理ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 個人帳號管理.Show() : 個人帳號管理.BringToFront()
    End Sub
    Private Sub FTP資料夾管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FTP資料夾管理ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : FTP資料夾管理.Show() : FTP資料夾管理.BringToFront()
    End Sub
    Private Sub 系統執行檔版本管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 系統執行檔版本管理.Show() : 系統執行檔版本管理.BringToFront()
    End Sub
    Private Sub 原代碼存放區ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 原代碼存放區ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 原代碼存放區.Show() : 原代碼存放區.BringToFront()
    End Sub
    Private Sub 系統使用者管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統使用者管理ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 系統使用者管理.Show() : 系統使用者管理.BringToFront()
    End Sub
    Private Sub 共享文件ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 共享文件ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 開發文件存放區.Show() : 開發文件存放區.BringToFront()
    End Sub
    Private Sub 系統編碼原則1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統編碼原則1ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 系統編碼原則_1.Show() : 系統編碼原則_1.BringToFront()
    End Sub
    Private Sub 工作日志ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 工作日志ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 工作日誌與代辦事項.Show() : 工作日誌與代辦事項.BringToFront()
    End Sub
    Private Sub 人員ID卡系統配置設定ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 人員ID卡系統配置設定ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 人員ID卡系統配置設定.Show() : 人員ID卡系統配置設定.BringToFront()
    End Sub
    Private Sub 系統通用變數管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統通用變數管理ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 系統通用變數管理.Show() : 系統通用變數管理.BringToFront()
    End Sub
    Private Sub 系統對應電腦註冊ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統對應電腦註冊ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 系統對應電腦註冊.Show() : 系統對應電腦註冊.BringToFront()
    End Sub
    Private Sub 供應商管理ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 供應商管理ToolStripMenuItem1.Click
        系統登出計時重至_MouseMove() : PA = "" : 供應商資料.Show() : 供應商資料.BringToFront()
    End Sub
    Private Sub 進貨管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 進貨管理ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 進貨管理.Show() : 進貨管理.BringToFront()
    End Sub
    Private Sub 領物管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 領物管理ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 銷貨管理.Show() : 銷貨管理.BringToFront()
    End Sub
    Private Sub 庫存查詢ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 庫存查詢ToolStripMenuItem1.Click
        系統登出計時重至_MouseMove() : PA = "" : 庫存管理.Show() : 庫存管理.BringToFront()
    End Sub
    Private Sub 出庫紀錄ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 出庫紀錄ToolStripMenuItem1.Click
        系統登出計時重至_MouseMove() : PA = "" : 出庫紀錄表.Show() : 出庫紀錄表.BringToFront()
    End Sub
    Private Sub 零件成本ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 零件成本ToolStripMenuItem1.Click
        系統登出計時重至_MouseMove() : PA = "" : 零件成本建檔.Show() : 零件成本建檔.BringToFront()
    End Sub
    Private Sub 零組件成本ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 零組件成本ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 零組件零件成本建檔.Show() : 零組件零件成本建檔.BringToFront()
    End Sub
    Private Sub 機構件成本ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 機構件成本ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 機構件零件成本建檔.Show() : 機構件零件成本建檔.BringToFront()
    End Sub
    Private Sub 機構組件成本ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 機構組件成本ToolStripMenuItem1.Click
        系統登出計時重至_MouseMove() : PA = "" : 機構組件零件成本建檔.Show() : 機構組件零件成本建檔.BringToFront()
    End Sub
    Private Sub 機台成本ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles 機台成本ToolStripMenuItem2.Click
        系統登出計時重至_MouseMove() : PA = "" : 機台零件成本建檔.Show() : 機台零件成本建檔.BringToFront()
    End Sub
    Private Sub 服務項目成本ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 服務項目成本ToolStripMenuItem1.Click
        系統登出計時重至_MouseMove() : PA = "" : 服務項目成本建檔.Show() : 服務項目成本建檔.BringToFront()
    End Sub
    Private Sub 零組件零件BOM表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 零組件零件BOM表ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 零組件零件BOM表.Show() : 零組件零件BOM表.BringToFront()
    End Sub
    Private Sub 機構件零組件BOM表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 機構件零組件BOM表ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 機構件零件BOM表.Show() : 機構件零件BOM表.BringToFront()
    End Sub
    Private Sub 機構組件機構件BOM表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 機構組件機構件BOM表ToolStripMenuItem1.Click
        系統登出計時重至_MouseMove() : PA = "" : 機構組件零件BOM表.Show() : 機構組件零件BOM表.BringToFront()
    End Sub
    Private Sub 機台機構組件BOM表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 機台機構組件BOM表ToolStripMenuItem1.Click
        系統登出計時重至_MouseMove() : PA = "" : 機台零件BOM表.Show() : 機台零件BOM表.BringToFront()
    End Sub
    Private Sub 匯率管理ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 匯率管理ToolStripMenuItem1.Click
        系統登出計時重至_MouseMove() : PA = "" : 匯率修改.Show() : 匯率修改.BringToFront()
    End Sub
    Private Sub 系統開發點檢控制表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統開發點檢控制表ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 系統開發點檢控制表.Show() : 系統開發點檢控制表.BringToFront()
    End Sub




    Private Sub 系統開發功能點檢表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統開發功能點檢表ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 系統開發功能點檢表.Show() : 系統開發功能點檢表.BringToFront()
    End Sub
    Private Sub 測試下載ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 測試下載ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 測試下載.Show() : 測試下載.BringToFront()
    End Sub
    Private Sub 會計科目管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 會計科目管理ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 會計科目管理.Show() : 會計科目管理.BringToFront()
    End Sub
    Private Sub 營運費用支付申請ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運費用支付申請ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 營運成本收支單申請.Show() : 營運成本收支單申請.BringToFront()
    End Sub
    Private Sub 營運費用支付審核ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運費用支付審核ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 營運成本收支單審核.Show() : 營運成本收支單審核.BringToFront()
    End Sub
    Private Sub 營運費用支付單一覽表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運費用支付單一覽表ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 營運成本收支單一覽表.Show() : 營運成本收支單一覽表.BringToFront()
    End Sub
    Private Sub 簽名檔管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 簽名檔管理ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 簽名檔管理.Show() : 簽名檔管理.BringToFront()
    End Sub
    Private Sub 營運成本收支單對帳表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運成本收支單對帳表ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 營運成本收支單_對帳表.Show() : 營運成本收支單_對帳表.BringToFront()
    End Sub
    Private Sub 營運報表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運報表ToolStripMenuItem.Click
        系統登出計時重至_MouseMove() : PA = "" : 營運報表.Show() : 營運報表.BringToFront()
    End Sub
End Class