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