Option Explicit On Imports System.IO Imports System.Text Imports System.ComponentModel Public Class HX_PGS_ERP_SYS ReadOnly ds4 As New DataSet ReadOnly 對話框(30) As String Dim sysnud As String Dim 系統關閉 As Boolean = False Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles 開新視窗_tsm.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 結束_tsm.Click Me.Close() End Sub Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles 重疊顯示_tsm.Click Me.LayoutMdi(MdiLayout.Cascade) End Sub Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles 垂直並排_tsm.Click Me.LayoutMdi(MdiLayout.TileVertical) End Sub Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles 水平並排_tsm.Click Me.LayoutMdi(MdiLayout.TileHorizontal) End Sub Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles 排列圖示_tsm.Click Me.LayoutMdi(MdiLayout.ArrangeIcons) End Sub Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles 全部關閉_tsm.Click ' 關閉父表單的所有子表單。 For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : MyModule1.虛擬桌面開啟() End Sub Private m_ChildFormNumber As Integer Private Sub Set_報價未完成() Dim ds16 As New DataSet : 報價未完成_dgv.DataSource = Nothing : ds16.Clear() : 報價未完成_dgv.AllowUserToAddRows = False SQL_報價未完成() : da.Fill(ds16) : 報價未完成_dgv.DataSource = ds16.Tables(0) : conn.Close() 報價未完成_dgv.Columns(0).FillWeight = 70 : 報價未完成_dgv.Columns(1).FillWeight = 45 : 報價未完成_dgv.Columns(2).FillWeight = 120 報價未完成_dgv.Columns(3).FillWeight = 120 If 系統語言 = "繁體中文" Then : 報價未完成_dgv.Columns(2).Visible = True : 報價未完成_dgv.Columns(3).Visible = False Else : 報價未完成_dgv.Columns(2).Visible = False : 報價未完成_dgv.Columns(3).Visible = True : End If End Sub Private Sub Set_報價未簽回() Dim ds16 As New DataSet : 報價未簽回_dgv.DataSource = Nothing : ds16.Clear() : 報價未簽回_dgv.AllowUserToAddRows = False SQL_報價未簽回() : da.Fill(ds16) : 報價未簽回_dgv.DataSource = ds16.Tables(0) : conn.Close() 報價未簽回_dgv.Columns(0).FillWeight = 70 : 報價未簽回_dgv.Columns(1).FillWeight = 45 : 報價未簽回_dgv.Columns(2).FillWeight = 120 報價未簽回_dgv.Columns(3).FillWeight = 120 If 系統語言 = "繁體中文" Then : 報價未簽回_dgv.Columns(2).Visible = True : 報價未簽回_dgv.Columns(3).Visible = False Else : 報價未簽回_dgv.Columns(2).Visible = False : 報價未簽回_dgv.Columns(3).Visible = True : End If End Sub Private Sub Set_合約未簽回() Dim ds16 As New DataSet : 合約未簽回_dgv.DataSource = Nothing : ds16.Clear() : 合約未簽回_dgv.AllowUserToAddRows = False SQL_合約未簽回() : da.Fill(ds16) : 合約未簽回_dgv.DataSource = ds16.Tables(0) : conn.Close() 合約未簽回_dgv.Columns(0).FillWeight = 70 : 合約未簽回_dgv.Columns(1).FillWeight = 45 : 合約未簽回_dgv.Columns(2).FillWeight = 120 合約未簽回_dgv.Columns(3).FillWeight = 120 If 系統語言 = "繁體中文" Then : 合約未簽回_dgv.Columns(2).Visible = True : 合約未簽回_dgv.Columns(3).Visible = False Else : 合約未簽回_dgv.Columns(2).Visible = False : 合約未簽回_dgv.Columns(3).Visible = True : End If End Sub Private Sub Set_合約驗收單未簽回() Dim ds16 As New DataSet : 驗收未簽回_dgv.DataSource = Nothing : ds16.Clear() : 驗收未簽回_dgv.AllowUserToAddRows = False SQL_合約驗收單未簽回() : da.Fill(ds16) : 驗收未簽回_dgv.DataSource = ds16.Tables(0) : conn.Close() 驗收未簽回_dgv.Columns(0).FillWeight = 70 : 驗收未簽回_dgv.Columns(1).FillWeight = 45 : 驗收未簽回_dgv.Columns(2).FillWeight = 120 驗收未簽回_dgv.Columns(3).FillWeight = 120 If 系統語言 = "繁體中文" Then : 驗收未簽回_dgv.Columns(2).Visible = True : 驗收未簽回_dgv.Columns(3).Visible = False Else : 驗收未簽回_dgv.Columns(2).Visible = False : 驗收未簽回_dgv.Columns(3).Visible = True : End If End Sub Private Sub Set_合約保固單未簽() Dim ds16 As New DataSet : 保固未簽回_dgv.DataSource = Nothing : ds16.Clear() : 保固未簽回_dgv.AllowUserToAddRows = False SQL_合約保固未簽() : da.Fill(ds16) : 保固未簽回_dgv.DataSource = ds16.Tables(0) : conn.Close() 保固未簽回_dgv.Columns(0).FillWeight = 70 : 保固未簽回_dgv.Columns(1).FillWeight = 45 : 保固未簽回_dgv.Columns(2).FillWeight = 120 保固未簽回_dgv.Columns(3).FillWeight = 120 If 系統語言 = "繁體中文" Then : 保固未簽回_dgv.Columns(2).Visible = True : 保固未簽回_dgv.Columns(3).Visible = False Else : 保固未簽回_dgv.Columns(2).Visible = False : 保固未簽回_dgv.Columns(3).Visible = True : End If End Sub Private Sub Set_工程進度表未開() Dim ds16 As New DataSet 未開工程進度表_dgv.DataSource = Nothing : ds16.Clear() : 未開工程進度表_dgv.AllowUserToAddRows = False SQL_工程進度表未開() : da.Fill(ds16) : 未開工程進度表_dgv.DataSource = ds16.Tables(0) : conn.Close() 未開工程進度表_dgv.Columns(0).FillWeight = 70 : 未開工程進度表_dgv.Columns(1).FillWeight = 45 : 未開工程進度表_dgv.Columns(2).FillWeight = 120 未開工程進度表_dgv.Columns(3).FillWeight = 120 If 系統語言 = "繁體中文" Then : 未開工程進度表_dgv.Columns(2).Visible = True : 未開工程進度表_dgv.Columns(3).Visible = False Else : 未開工程進度表_dgv.Columns(2).Visible = False : 未開工程進度表_dgv.Columns(3).Visible = True : End If End Sub Private Sub Set_合約未指定主管() Dim ds16 As New DataSet : 合約未指定主管_dgv.DataSource = Nothing : ds16.Clear() : 合約未指定主管_dgv.AllowUserToAddRows = False SQL_合約未指定主管() : da.Fill(ds16) : 合約未指定主管_dgv.DataSource = ds16.Tables(0) : conn.Close() 合約未指定主管_dgv.Columns(0).FillWeight = 70 : 合約未指定主管_dgv.Columns(1).FillWeight = 45 : 合約未指定主管_dgv.Columns(2).FillWeight = 120 合約未指定主管_dgv.Columns(3).FillWeight = 120 If 系統語言 = "繁體中文" Then : 合約未指定主管_dgv.Columns(2).Visible = True : 合約未指定主管_dgv.Columns(3).Visible = False Else : 合約未指定主管_dgv.Columns(2).Visible = False : 合約未指定主管_dgv.Columns(3).Visible = True : End If End Sub Private Sub Set_合約未設利潤() Dim ds16 As New DataSet : 合約預估利潤_dgv.DataSource = Nothing : ds16.Clear() : 合約預估利潤_dgv.AllowUserToAddRows = False SQL_合約未設利潤() : da.Fill(ds16) : 合約預估利潤_dgv.DataSource = ds16.Tables(0) : conn.Close() 合約預估利潤_dgv.Columns(0).FillWeight = 70 : 合約預估利潤_dgv.Columns(1).FillWeight = 45 : 合約預估利潤_dgv.Columns(2).FillWeight = 120 合約預估利潤_dgv.Columns(3).FillWeight = 120 If 系統語言 = "繁體中文" Then : 合約預估利潤_dgv.Columns(2).Visible = True : 合約預估利潤_dgv.Columns(3).Visible = False Else : 合約預估利潤_dgv.Columns(2).Visible = False : 合約預估利潤_dgv.Columns(3).Visible = True : End If End Sub Private Sub Set_合約未放行() Dim ds16 As New DataSet : 合約未放行_dgv.DataSource = Nothing : ds16.Clear() : 合約未放行_dgv.AllowUserToAddRows = False SQL_合約未放行() : da.Fill(ds16) : 合約未放行_dgv.DataSource = ds16.Tables(0) : conn.Close() 合約未放行_dgv.Columns(0).FillWeight = 70 : 合約未放行_dgv.Columns(1).FillWeight = 45 : 合約未放行_dgv.Columns(2).FillWeight = 120 合約未放行_dgv.Columns(3).FillWeight = 120 If 系統語言 = "繁體中文" Then : 合約未放行_dgv.Columns(2).Visible = True : 合約未放行_dgv.Columns(3).Visible = False Else : 合約未放行_dgv.Columns(2).Visible = False : 合約未放行_dgv.Columns(3).Visible = True : End If End Sub Private Sub Set_合約未驗收() Dim ds16 As New DataSet : 合約未驗收_dgv.DataSource = Nothing : ds16.Clear() : 合約未驗收_dgv.AllowUserToAddRows = False SQL_合約未驗收() : da.Fill(ds16) : 合約未驗收_dgv.DataSource = ds16.Tables(0) : conn.Close() 合約未驗收_dgv.Columns(0).FillWeight = 70 : 合約未驗收_dgv.Columns(1).FillWeight = 45 : 合約未驗收_dgv.Columns(2).FillWeight = 120 合約未驗收_dgv.Columns(3).FillWeight = 120 If 系統語言 = "繁體中文" Then : 合約未驗收_dgv.Columns(2).Visible = True : 合約未驗收_dgv.Columns(3).Visible = False Else : 合約未驗收_dgv.Columns(2).Visible = False : 合約未驗收_dgv.Columns(3).Visible = True : End If End Sub Private Sub Set_合約未請款5() Dim ds16 As New DataSet : 合約請款5_dgv.DataSource = Nothing : ds16.Clear() : 合約請款5_dgv.AllowUserToAddRows = False SQL_合約未請款5() : da.Fill(ds16) : 合約請款5_dgv.DataSource = ds16.Tables(0) : conn.Close() 合約請款5_dgv.Columns(0).FillWeight = 70 : 合約請款5_dgv.Columns(1).FillWeight = 45 : 合約請款5_dgv.Columns(2).FillWeight = 120 合約請款5_dgv.Columns(3).FillWeight = 120 If 系統語言 = "繁體中文" Then : 合約請款5_dgv.Columns(2).Visible = True : 合約請款5_dgv.Columns(3).Visible = False Else : 合約請款5_dgv.Columns(2).Visible = False : 合約請款5_dgv.Columns(3).Visible = True : End If End Sub Private Sub Set_合約未請款4() Dim ds16 As New DataSet : 合約請款4_dgv.DataSource = Nothing : ds16.Clear() : 合約請款4_dgv.AllowUserToAddRows = False SQL_合約未請款4() : da.Fill(ds16) : 合約請款4_dgv.DataSource = ds16.Tables(0) : conn.Close() 合約請款4_dgv.Columns(0).FillWeight = 70 : 合約請款4_dgv.Columns(1).FillWeight = 45 : 合約請款4_dgv.Columns(2).FillWeight = 120 合約請款4_dgv.Columns(3).FillWeight = 120 If 系統語言 = "繁體中文" Then : 合約請款4_dgv.Columns(2).Visible = True : 合約請款4_dgv.Columns(3).Visible = False Else : 合約請款4_dgv.Columns(2).Visible = False : 合約請款4_dgv.Columns(3).Visible = True : End If End Sub Private Sub Set_合約未請款3() Dim ds16 As New DataSet : 合約請款3_dgv.DataSource = Nothing : ds16.Clear() : 合約請款3_dgv.AllowUserToAddRows = False SQL_合約未請款3() : da.Fill(ds16) : 合約請款3_dgv.DataSource = ds16.Tables(0) : conn.Close() 合約請款3_dgv.Columns(0).FillWeight = 70 : 合約請款3_dgv.Columns(1).FillWeight = 45 : 合約請款3_dgv.Columns(2).FillWeight = 120 合約請款3_dgv.Columns(3).FillWeight = 120 If 系統語言 = "繁體中文" Then : 合約請款3_dgv.Columns(2).Visible = True : 合約請款3_dgv.Columns(3).Visible = False Else : 合約請款3_dgv.Columns(2).Visible = False : 合約請款3_dgv.Columns(3).Visible = True : End If End Sub Private Sub Set_合約未請款2() Dim ds16 As New DataSet : 合約請款2_dgv.DataSource = Nothing : ds16.Clear() : 合約請款2_dgv.AllowUserToAddRows = False SQL_合約未請款2() : da.Fill(ds16) : 合約請款2_dgv.DataSource = ds16.Tables(0) : conn.Close() 合約請款2_dgv.Columns(0).FillWeight = 70 : 合約請款2_dgv.Columns(1).FillWeight = 45 : 合約請款2_dgv.Columns(2).FillWeight = 120 合約請款2_dgv.Columns(3).FillWeight = 120 If 系統語言 = "繁體中文" Then : 合約請款2_dgv.Columns(2).Visible = True : 合約請款2_dgv.Columns(3).Visible = False Else : 合約請款2_dgv.Columns(2).Visible = False : 合約請款2_dgv.Columns(3).Visible = True : End If End Sub Private Sub Set_合約未請款1() Dim ds16 As New DataSet : 合約請款1_dgv.DataSource = Nothing : ds16.Clear() : 合約請款1_dgv.AllowUserToAddRows = False SQL_合約未請款1() : da.Fill(ds16) : 合約請款1_dgv.DataSource = ds16.Tables(0) : conn.Close() 合約請款1_dgv.Columns(0).FillWeight = 70 : 合約請款1_dgv.Columns(1).FillWeight = 45 : 合約請款1_dgv.Columns(2).FillWeight = 120 合約請款1_dgv.Columns(3).FillWeight = 120 If 系統語言 = "繁體中文" Then : 合約請款1_dgv.Columns(2).Visible = True : 合約請款1_dgv.Columns(3).Visible = False Else : 合約請款1_dgv.Columns(2).Visible = False : 合約請款1_dgv.Columns(3).Visible = True : End If End Sub Private Sub Set_部門聯絡函_未驗收() Dim ds16 As New DataSet : 聯絡函_未驗收_dgv.DataSource = Nothing : ds16.Clear() : 聯絡函_未驗收_dgv.AllowUserToAddRows = False SQL_未驗收_聯絡函() : da.Fill(ds16) : 聯絡函_未驗收_dgv.DataSource = ds16.Tables(0) : conn.Close() 聯絡函_未驗收_dgv.Columns(0).FillWeight = 50 : 聯絡函_未驗收_dgv.Columns(1).FillWeight = 60 : 聯絡函_未驗收_dgv.Columns(2).FillWeight = 120 End Sub Private Sub Set_部門聯絡函_未執行() Dim ds16 As New DataSet : 聯絡函_未執行_dgv.DataSource = Nothing : ds16.Clear() : 聯絡函_未執行_dgv.AllowUserToAddRows = False SQL_未執行_聯絡函() : da.Fill(ds16) : 聯絡函_未執行_dgv.DataSource = ds16.Tables(0) : conn.Close() 聯絡函_未執行_dgv.Columns(0).FillWeight = 50 : 聯絡函_未執行_dgv.Columns(1).FillWeight = 60 : 聯絡函_未執行_dgv.Columns(2).FillWeight = 120 End Sub Private Sub Set_部門聯絡函_未收() Dim ds16 As New DataSet : 聯絡函_未收_dgv.DataSource = Nothing : ds16.Clear() : 聯絡函_未收_dgv.AllowUserToAddRows = False SQL_未收_聯絡函() : da.Fill(ds16) : 聯絡函_未收_dgv.DataSource = ds16.Tables(0) : conn.Close() 聯絡函_未收_dgv.Columns(0).FillWeight = 50 : 聯絡函_未收_dgv.Columns(1).FillWeight = 60 : 聯絡函_未收_dgv.Columns(2).FillWeight = 120 End Sub Private Sub Set_部門聯絡函_未審() Dim ds16 As New DataSet : 聯絡函_未審_dgv.DataSource = Nothing : ds16.Clear() : 聯絡函_未審_dgv.AllowUserToAddRows = False SQL_未審_聯絡函() : da.Fill(ds16) : 聯絡函_未審_dgv.DataSource = ds16.Tables(0) : conn.Close() 聯絡函_未審_dgv.Columns(0).FillWeight = 50 : 聯絡函_未審_dgv.Columns(1).FillWeight = 60 : 聯絡函_未審_dgv.Columns(2).FillWeight = 120 End Sub Private Sub Set_採購核准11() Dim ds16 As New DataSet : 採購核准11_dgv.DataSource = Nothing : ds16.Clear() : 採購核准11_dgv.AllowUserToAddRows = False SQL_採購核准11() : da.Fill(ds16) : 採購核准11_dgv.DataSource = ds16.Tables(0) : conn.Close() 採購核准11_dgv.Columns(0).FillWeight = 80 : 採購核准11_dgv.Columns(1).FillWeight = 45 : 採購核准11_dgv.Columns(2).FillWeight = 100 End Sub Private Sub Set_採購核准12() Dim ds16 As New DataSet : 採購核准12_dgv.DataSource = Nothing : ds16.Clear() : 採購核准12_dgv.AllowUserToAddRows = False SQL_採購核准12() : da.Fill(ds16) : 採購核准12_dgv.DataSource = ds16.Tables(0) : conn.Close() 採購核准12_dgv.Columns(0).FillWeight = 80 : 採購核准12_dgv.Columns(1).FillWeight = 45 : 採購核准12_dgv.Columns(2).FillWeight = 100 End Sub Private Sub Set_詢價單1() Dim ds16 As New DataSet : 詢價單_dgv.DataSource = Nothing : ds16.Clear() : 詢價單_dgv.AllowUserToAddRows = False SQL_採購單單數() : da.Fill(ds16) : 詢價單_dgv.DataSource = ds16.Tables(0) : conn.Close() 詢價單_dgv.Columns(0).FillWeight = 70 : 詢價單_dgv.Columns(1).FillWeight = 45 : 詢價單_dgv.Columns(2).FillWeight = 60 詢價單_dgv.Columns(3).FillWeight = 120 : 詢價單_dgv.Columns(4).FillWeight = 120 If 系統語言 = "繁體中文" Then : 詢價單_dgv.Columns(3).Visible = True : 詢價單_dgv.Columns(4).Visible = False Else : 詢價單_dgv.Columns(3).Visible = False : 詢價單_dgv.Columns(4).Visible = True : End If End Sub Private Sub Set_請購單() Dim ds16 As New DataSet : 請購單_dgv.DataSource = Nothing : ds16.Clear() : 請購單_dgv.AllowUserToAddRows = False SQL_請購單申請未核准單數() : da.Fill(ds16) : 請購單_dgv.DataSource = ds16.Tables(0) : conn.Close() 請購單_dgv.Columns(0).FillWeight = 70 : 請購單_dgv.Columns(1).FillWeight = 45 : 請購單_dgv.Columns(2).FillWeight = 60 請購單_dgv.Columns(3).FillWeight = 120 : 請購單_dgv.Columns(4).FillWeight = 120 If 系統語言 = "繁體中文" Then : 請購單_dgv.Columns(3).Visible = True : 請購單_dgv.Columns(4).Visible = False Else : 請購單_dgv.Columns(3).Visible = False : 請購單_dgv.Columns(4).Visible = True : End If End Sub Private Sub Set_語言() 語言_dgv.DataSource = Nothing : ds4.Clear() : 語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 語言_dgv.ColumnHeadersHeight = 25 : 語言_dgv.AllowUserToAddRows = False SQL_系統語言導入() : da.Fill(ds4) : 語言_dgv.DataSource = ds4.Tables(0) : conn.Close() End Sub Private Sub 語言轉換讀取() Set_語言() : conn.Close() For i As Integer = 0 To 語言_dgv.Rows.Count - 1 '------------------------系統------------------------------------------------------------------------------------------------------------------------------------------------------- If 語言_dgv("控件", i).Value.ToString = "檔案_tsm" Then : 檔案_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "個人帳號管理_tsm" Then : 個人帳號管理_tsm.Text = 語言_dgv("內容", i).Value.ToString 個人帳號管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "結束_tsm" Then : 結束_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "視窗_tsm" Then : 視窗_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "低網速模式_ch" Then : 低網速模式_ch.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "系統版本" Then : sysnud = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "執行進度_tss" Then : 執行進度_tss.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "著作權_tss" Then : 著作權_tss.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "開新視窗_tsm" Then : 開新視窗_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "重疊顯示_tsm" Then : 重疊顯示_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "垂直並排_tsm" Then : 垂直並排_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "水平並排_tsm" Then : 水平並排_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "全部關閉_tsm" Then : 全部關閉_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "排列圖示_tsm" Then : 排列圖示_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框1" Then : 對話框(0) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框2" Then : 對話框(1) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框3" Then : 對話框(2) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框4" Then : 對話框(3) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框5" Then : 對話框(4) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框6" Then : 對話框(5) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框7" Then : 對話框(6) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框8" Then : 對話框(7) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框9" Then : 對話框(8) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框10" Then : 對話框(9) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框11" Then : 對話框(10) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框12" Then : 對話框(11) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框13" Then : 對話框(12) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框14" Then : 對話框(13) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框15" Then : 對話框(14) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框16" Then : 對話框(15) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框17" Then : 對話框(16) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框18" Then : 對話框(17) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框19" Then : 對話框(18) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框20" Then : 對話框(19) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框21" Then : 對話框(20) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框22" Then : 對話框(21) = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "對話框23" Then : 對話框(22) = 語言_dgv("內容", i).Value.ToString : End If '------------------------章程管理系統------------------------------------------------------------------------------------------------------------------------------------------------- If 語言_dgv("控件", i).Value.ToString = "簡易功能_tsm" Then : 簡易功能_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "文件伺服器_tsm" Then : 文件伺服器_tsm.Text = 語言_dgv("內容", i).Value.ToString 文件伺服器_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "系統使用說明_tsm" Then : 系統使用說明_tsm.Text = 語言_dgv("內容", i).Value.ToString 系統使用說明_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "單次授權功能_tsm" Then : 單次授權功能_tsm.Text = 語言_dgv("內容", i).Value.ToString 單次授權功能_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "會議記錄_tsm" Then : 會議記錄_tsm.Text = 語言_dgv("內容", i).Value.ToString 會議記錄_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "安培容量計算表_tsm" Then : 安培容量計算表_tsm.Text = 語言_dgv("內容", i).Value.ToString 安培容量計算表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "部門聯絡函一覽表_tsm" Then : 部門聯絡函一覽表_tsm.Text = 語言_dgv("內容", i).Value.ToString 部門聯絡函一覽表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "部門聯絡函申請_tsm" Then : 部門聯絡函申請_tsm.Text = 語言_dgv("內容", i).Value.ToString 部門聯絡函申請_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "聯絡函部門主管審核_tsm" Then : 聯絡函部門主管審核_tsm.Text = 語言_dgv("內容", i).Value.ToString 聯絡函部門主管審核_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "聯絡函最高主管核准_tsm" Then : 聯絡函最高主管核准_tsm.Text = 語言_dgv("內容", i).Value.ToString 聯絡函最高主管核准_lb.Text = 語言_dgv("內容", i).Value.ToString : End If '------------------------業務管理系統------------------------------------------------------------------------------------------------------------------------------------------------- If 語言_dgv("控件", i).Value.ToString = "業務系統管理_tsm" Then : 業務系統管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "合約執行進度_tsm" Then : 合約執行進度_tsm.Text = 語言_dgv("內容", i).Value.ToString 合約執行進度_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "合約利潤預估表_tsm" Then : 合約利潤預估表_tsm.Text = 語言_dgv("內容", i).Value.ToString 合約利潤預估表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "合約報價單_tsm" Then : 合約報價單_tsm.Text = 語言_dgv("內容", i).Value.ToString 合約報價單_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "合約報價單審核_tsm" Then : 合約報價單審核_tsm.Text = 語言_dgv("內容", i).Value.ToString 合約報價單審核_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "合約管理系統_tsm" Then : 合約本文_tsm.Text = 語言_dgv("內容", i).Value.ToString 合約本文_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "附錄合約_tsm" Then : 附錄合約_tsm.Text = 語言_dgv("內容", i).Value.ToString 附錄合約_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "合約模組設定_tsm" Then : 合約模組設定_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "合約請款單_tsm" Then : 合約請款單_tsm.Text = 語言_dgv("內容", i).Value.ToString 合約請款單_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "合約請款控制表_tsm" Then : 合約請款控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString 合約請款控制表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "合約驗收單_tsm" Then : 合約驗收單_tsm.Text = 語言_dgv("內容", i).Value.ToString 合約驗收單1_tsm.Text = 語言_dgv("內容", i).Value.ToString : 合約驗收單_lb.Text = 語言_dgv("內容", i).Value.ToString 合約驗收單1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "合約驗收控制表_tsm" Then : 合約驗收控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString 合約驗收控制表1_tsm.Text = 語言_dgv("內容", i).Value.ToString : 合約驗收控制表_lb.Text = 語言_dgv("內容", i).Value.ToString 合約驗收控制表1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "合約保固書_tsm" Then : 合約保固書_tsm.Text = 語言_dgv("內容", i).Value.ToString 合約保固書_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "合約文件簽回存檔_tsm" Then : 合約文件簽回存檔_tsm.Text = 語言_dgv("內容", i).Value.ToString 合約文件簽回存檔_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "合約文件簽核控制表_tsm" Then : 合約文件簽核控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString 合約文件簽核控制表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "合約結案控制表_tsm" Then : 合約結案控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString 合約結案控制表1_tsm.Text = 語言_dgv("內容", i).Value.ToString : 合約結案控制表_lb.Text = 語言_dgv("內容", i).Value.ToString 合約結案控制表1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "合約圖庫管理系統_tsm" Then : 合約工程圖庫管理_tsm.Text = 語言_dgv("內容", i).Value.ToString 合約工程圖庫管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "工程項目BOM表_tsm" Then : 工程項目BOM表_tsm.Text = 語言_dgv("內容", i).Value.ToString 工程項目BOM表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "客戶資料表_tsm" Then : 客戶資料表_tsm.Text = 語言_dgv("內容", i).Value.ToString 客戶資料表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If '------------------------採購管理系統------------------------------------------------------------------------------------------------------------------------------------------------- If 語言_dgv("控件", i).Value.ToString = "採購系統管理_tsm" Then : 採購系統管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "行政物料請購單申請_tsm" Then : 樣品請購單申請_tsm.Text = 語言_dgv("內容", i).Value.ToString 樣品請購單申請_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "行政物料請購單核准_tsm" Then : 樣品請購單核准_tsm.Text = 語言_dgv("內容", i).Value.ToString 樣品請購單核准_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "行政物料請購單一覽表_tsm" Then : 樣品請購單一覽表_tsm.Text = 語言_dgv("內容", i).Value.ToString 樣品請購單一覽表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "行政物料採購單生成_tsm" Then : 樣品採購單生成_tsm.Text = 語言_dgv("內容", i).Value.ToString 樣品採購單生成_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "行政物料採購單一級核准_tsm" Then : 樣品採購單一級核准_tsm.Text = 語言_dgv("內容", i).Value.ToString 樣品採購單一級核准_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "行政物料採購單二級核准_tsm" Then : 樣品採購單二級核准_tsm.Text = 語言_dgv("內容", i).Value.ToString 樣品採購單二級核准_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "行政物料採購單一覽表_tsm" Then : 樣品採購單一覽表_tsm.Text = 語言_dgv("內容", i).Value.ToString 樣品採購單一覽表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "行政物料來料驗收單_tsm" Then : 樣品來料驗收單_tsm.Text = 語言_dgv("內容", i).Value.ToString 樣品來料驗收單_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "行政物料採購驗收對帳表_tsm" Then : 樣品採購驗收對帳表_tsm.Text = 語言_dgv("內容", i).Value.ToString 樣品採購驗收對帳表1_tsm.Text = 語言_dgv("內容", i).Value.ToString : 樣品採購驗收對帳表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "行政物料供應商管理_tsm" Then : 樣品供應商管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "建築物料請購單申請_tsm" Then : 請購單申請_tsm.Text = 語言_dgv("內容", i).Value.ToString 請購單申請_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "建築物料請購單核準_tsm" Then : 請購單核準_tsm.Text = 語言_dgv("內容", i).Value.ToString 請購單核準_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "建築物料請購一覽表_tsm" Then : 請購一覽表_tsm.Text = 語言_dgv("內容", i).Value.ToString 請購一覽表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "採購單詢價_tsm" Then : 採購單詢價_tsm.Text = 語言_dgv("內容", i).Value.ToString 採購單詢價_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "建築物料採購單生成_tsm" Then : 採購單編輯_tsm.Text = 語言_dgv("內容", i).Value.ToString 採購單編輯_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "建築物料採購單一級核准_tsm" Then : 採購單一級核准_tsm.Text = 語言_dgv("內容", i).Value.ToString 採購單一級核准_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "建築物料採購單二級核准_tsm" Then : 採購單二級核准_tsm.Text = 語言_dgv("內容", i).Value.ToString 採購單二級核准_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "建築物料採購單一覽表_tsm" Then : 採購單一覽表_tsm.Text = 語言_dgv("內容", i).Value.ToString 採購單一覽表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "建築物料入庫驗收單_tsm" Then : 入庫驗收單_tsm.Text = 語言_dgv("內容", i).Value.ToString 入庫驗收單_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "建築物料採購驗收對帳表_tsm" Then : 採購驗收對帳表_tsm.Text = 語言_dgv("內容", i).Value.ToString 採購驗收對帳表1_tsm.Text = 語言_dgv("內容", i).Value.ToString : 採購驗收對帳表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "建築物料供應商管理_tsm" Then : 供應商管理_tsm.Text = 語言_dgv("內容", i).Value.ToString 供應商管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "物料採購統計表_tsm" Then : 物料採購統計表_tsm.Text = 語言_dgv("內容", i).Value.ToString 物料採購統計表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "供應商商品單價清單_tsm" Then : 供應商商品單價設定_tsm.Text = 語言_dgv("內容", i).Value.ToString 供應商商品單價設定_lb.Text = 語言_dgv("內容", i).Value.ToString : End If '------------------------工程管理系統------------------------------------------------------------------------------------------------------------------------------------------------- If 語言_dgv("控件", i).Value.ToString = "工程系統管理_tsm" Then : 工程系統管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "工程材料表_tsm" Then : 工程材料表_tsm.Text = 語言_dgv("內容", i).Value.ToString 工程材料表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "工程進度表_tsm" Then : 工程進度表_tsm.Text = 語言_dgv("內容", i).Value.ToString 工程進度表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "派工人數紀錄表_tsm" Then : 派工人數紀錄表_tsm.Text = 語言_dgv("內容", i).Value.ToString 派工人數紀錄表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "工程日報表編輯_tsm" Then : 工程日報表編輯_tsm.Text = 語言_dgv("內容", i).Value.ToString 工程日報表編輯_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "工程客變單_tsm" Then : 工程客變單_tsm.Text = 語言_dgv("內容", i).Value.ToString 工程客變單_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "工程維修單_tsm" Then : 工程維修單_tsm.Text = 語言_dgv("內容", i).Value.ToString 工程維修單_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "工程分區控制表_tsm" Then : 工程分區控制表1_tsm.Text = 語言_dgv("內容", i).Value.ToString 工程分區控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString : 工程分區控制表_lb.Text = 語言_dgv("內容", i).Value.ToString 工程分區控制表1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If '------------------------倉儲管理系統------------------------------------------------------------------------------------------------------------------------------------------------- If 語言_dgv("控件", i).Value.ToString = "倉儲系統管理_tsm" Then : 倉儲系統管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "總部倉儲控制表_tsm" Then : 倉儲控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString 倉儲控制表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "總部倉儲入庫驗收_tsm" Then : 倉儲入庫驗收_tsm.Text = 語言_dgv("內容", i).Value.ToString 倉儲入庫驗收_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "總部倉儲指定出庫_tsm" Then : 物料轉倉申請_tsm.Text = 語言_dgv("內容", i).Value.ToString 物料轉倉申請_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "總部倉儲指定出庫審核_tsm" Then : 物料轉倉審核_tsm.Text = 語言_dgv("內容", i).Value.ToString 物料轉倉審核_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "總部倉儲指定出庫作業_tsm" Then : 物料轉倉出庫_tsm.Text = 語言_dgv("內容", i).Value.ToString 物料轉倉出庫_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "區域倉儲領料申請_tsm" Then : 倉儲領料申請_tsm.Text = 語言_dgv("內容", i).Value.ToString 倉儲領料申請_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "區域倉儲領料審核_tsm" Then : 倉儲領料審核_tsm.Text = 語言_dgv("內容", i).Value.ToString 倉儲領料審核_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "區域倉儲領料出庫_tsm" Then : 倉儲領料出庫_tsm.Text = 語言_dgv("內容", i).Value.ToString 倉儲領料出庫_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "物料退回區域倉儲作業_tsm" Then : 物料退庫_tsm.Text = 語言_dgv("內容", i).Value.ToString 物料退庫_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "倉儲單據狀態看板_tsm" Then : 倉儲單據狀態看板_tsm.Text = 語言_dgv("內容", i).Value.ToString 倉儲單據狀態看板_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "物料資料庫_tsm" Then : 物料資料庫_tsm.Text = 語言_dgv("內容", i).Value.ToString 物料資料庫_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "盤盈盤損申請_tsm" Then : 盤盈盤損申請_tsm.Text = 語言_dgv("內容", i).Value.ToString 盤盈盤損申請_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "盤盈盤損審核_tsm" Then : 盤盈盤損審核_tsm.Text = 語言_dgv("內容", i).Value.ToString 盤盈盤損審核_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "倉儲分區控制表_tsm" Then : 倉儲分區控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString 倉儲分區控制表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If '------------------------財務管理系統------------------------------------------------------------------------------------------------------------------------------------------------- If 語言_dgv("控件", i).Value.ToString = "財務系統管理_tsm" Then : 財務系統管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "零用金支付申請_tsm" Then : 零用金支付申請_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "零用金支付審核_tsm" Then : 零用金支付審核_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "零用金支付核准_tsm" Then : 零用金支付核准_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "零用金支付單一覽表_tsm" Then : 零用金支付單一覽表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "零用金支付對帳表_tsm" Then : 零用金支付對帳表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "應收帳款控制表_tsm" Then : 應收帳款控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "應付賬款控制表_tsm" Then : 應付賬款控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "支票收支申請_tsm" Then : 支票收支申請_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "支票收支審核_tsm" Then : 支票收支審核_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "支票收支核准_tsm" Then : 支票收支核准_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "支票票務控制表_tsm" Then : 支票票務控制表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "現金流量表_tsm" Then : 現金流量表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "綜合損益表_tsm" Then : 綜合損益表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "權益變動表_tsm" Then : 權益變動表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "資產負載表_tsm" Then : 資產負載表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "營運收支單申請_tsm" Then : 營運收支單申請_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "營運收支單審核_tsm" Then : 營運收支單審核_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "營運收支單一覽表_tsm" Then : 營運收支單一覽表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "營運收支單對帳表_tsm" Then : 營運收支單對帳表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "營運收支決算表_tsm" Then : 營運收支決算表_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "匯率管理_tsm" Then : 匯率管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "會計科目管理_tsm" Then : 會計科目管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If '------------------------人事管理系統------------------------------------------------------------------------------------------------------------------------------------------------- If 語言_dgv("控件", i).Value.ToString = "公司組織結構_tsm" Then : 公司組織結構_tsm.Text = 語言_dgv("內容", i).Value.ToString 公司組織結構_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "人事系統管理_tsm" Then : 人事系統管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "人員ID卡系統配置設定_tsm" Then : 人員ID卡系統配置設定_tsm.Text = 語言_dgv("內容", i).Value.ToString 人員ID卡系統配置設定_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "系統組織結構與權限設定_tsm" Then : 系統組織結構與權限設定_tsm.Text = 語言_dgv("內容", i).Value.ToString 系統組織結構與權限設定_lb.Text = 語言_dgv("內容", i).Value.ToString : End If '------------------------資料庫管理系統------------------------------------------------------------------------------------------------------------------------------------------------- If 語言_dgv("控件", i).Value.ToString = "資料庫系統管理_tsm" Then : 資料庫系統管理_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "系統使用者管理_tsm" Then : 系統使用者管理_tsm.Text = 語言_dgv("內容", i).Value.ToString 系統使用者管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "系統權限預設表_tsm" Then : 系統權限預設表_tsm.Text = 語言_dgv("內容", i).Value.ToString 系統權限預設表_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "系統組織架構設定_tsm" Then : 系統組織架構設定_tsm.Text = 語言_dgv("內容", i).Value.ToString 系統組織架構設定_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "部門權限設定_tsm" Then : 部門權限設定_tsm.Text = 語言_dgv("內容", i).Value.ToString 部門權限設定_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "系統通用變數管理_tsm" Then : 系統通用變數管理_tsm.Text = 語言_dgv("內容", i).Value.ToString 系統通用變數管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "系統編碼規則_tsm" Then : 系統編碼規則_tsm.Text = 語言_dgv("內容", i).Value.ToString 系統編碼規則_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "系統對應電腦註冊_tsm" Then : 系統對應電腦註冊_tsm.Text = 語言_dgv("內容", i).Value.ToString 系統對應電腦註冊_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "系統執行檔版本管理_tsm" Then : 系統執行檔版本管理_tsm.Text = 語言_dgv("內容", i).Value.ToString 系統執行檔版本管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "FTP資料夾管理_tsm" Then : FTP資料夾管理_tsm.Text = 語言_dgv("內容", i).Value.ToString FTP資料夾管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "系統開發用共享文件_tsm" Then : 系統開發用共享文件_tsm.Text = 語言_dgv("內容", i).Value.ToString : End If If 語言_dgv("控件", i).Value.ToString = "簽名檔管理_tsm" Then : 簽名檔管理_tsm.Text = 語言_dgv("內容", i).Value.ToString 簽名檔管理_lb.Text = 語言_dgv("內容", i).Value.ToString : End If Next End Sub Private Sub HXGPSERPSYS_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.Size = New Point(1366, 768) : MyModule1.清單字體大小調整() : 視窗1_pl.Visible = False Dim SS1, SS2 As Integer : SS1 = 527 : SS2 = 325 : 幣別 = " (RP)" 聯絡函_未審_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) '------------------------章程管理系統------------------------------------------------------------------------------------------------------------------------------------------------- If CInt(登入人級別) <= 2 Then : 聯絡函最高主管核准_tsm.Visible = True : 聯絡函最高主管核准_p.Visible = True ElseIf CInt(登入人級別) > 2 Then : 聯絡函最高主管核准_tsm.Visible = False : 聯絡函最高主管核准_p.Visible = False : End If If CInt(登入人級別) < 5 Then : 單次授權功能_tsm.Visible = True : 單次授權功能_p.Visible = True ElseIf CInt(登入人級別) >= 5 Then : 單次授權功能_tsm.Visible = False : 單次授權功能_p.Visible = False : End If If CInt(登入人級別) <= 5 Then : 聯絡函部門主管審核_tsm.Visible = True : 聯絡函部門主管審核_p.Visible = True ElseIf CInt(登入人級別) > 5 Then : 聯絡函部門主管審核_tsm.Visible = False : 聯絡函部門主管審核_p.Visible = False : End If 安培容量計算表_tsm.Visible = CC(8) : 安培容量計算表_p.Visible = CC(8) '------------------------業務管理系統------------------------------------------------------------------------------------------------------------------------------------------------- 合約本文_tsm.Visible = CC(98) : 合約本文_p.Visible = CC(98) : 合約請款單_tsm.Visible = CC(124) : 合約請款單_p.Visible = CC(124) 附錄合約_tsm.Visible = CC(98) : 附錄合約_p.Visible = CC(98) : 合約請款控制表_tsm.Visible = CC(123) : 合約請款控制表_p.Visible = CC(123) 合約驗收單_tsm.Visible = CC(126) : 合約驗收單_p.Visible = CC(126) : 合約驗收控制表_tsm.Visible = CC(125) : 合約驗收控制表_p.Visible = CC(125) 合約保固書_tsm.Visible = CC(127) : 合約保固書_p.Visible = CC(127) : 合約結案控制表_tsm.Visible = CC(128) : 合約結案控制表_p.Visible = CC(128) 合約工程圖庫管理_tsm.Visible = CC(115) : 合約工程圖庫管理_p.Visible = CC(115) : 工程分區控制表_tsm.Visible = CC(114) : 工程分區控制表_p.Visible = CC(114) 客戶資料表_tsm.Visible = CC(99) : 客戶資料表_p.Visible = CC(99) : 合約報價單_tsm.Visible = CC(116) : 合約報價單_p.Visible = CC(116) 合約執行進度_tsm.Visible = CC(5) : 合約執行進度_p.Visible = CC(5) : 工程項目BOM表_tsm.Visible = CC(52) : 工程項目BOM表_p.Visible = CC(52) 合約利潤預估表_tsm.Visible = CC(60) : 合約利潤預估表_p.Visible = CC(60) : 合約文件簽回存檔_tsm.Visible = CC(61) : 合約文件簽回存檔_p.Visible = CC(61) 合約文件簽核控制表_tsm.Visible = CC(62) : 合約文件簽核控制表_p.Visible = CC(62) : 合約報價單審核_tsm.Visible = CC(107) : 合約報價單審核_p.Visible = CC(107) 業務系統管理_tsm.Visible = CC(5) : 合約模組設定_tsm.Visible = CC(100) '------------------------採購管理系統------------------------------------------------------------------------------------------------------------------------------------------------- 請購單申請_tsm.Visible = CC(33) : 請購單申請_p.Visible = CC(33) : 請購單核準_tsm.Visible = CC(34) : 請購單核準_p.Visible = CC(34) 請購一覽表_tsm.Visible = CC(35) : 請購一覽表_p.Visible = CC(35) : 採購單詢價_tsm.Visible = CC(20) : 採購單詢價_p.Visible = CC(20) 採購單編輯_tsm.Visible = CC(36) : 採購單編輯_p.Visible = CC(36) : 採購單一級核准_tsm.Visible = CC(73) : 採購單一級核准_p.Visible = CC(73) 採購單二級核准_tsm.Visible = CC(37) : 採購單二級核准_p.Visible = CC(37) : 採購單一覽表_tsm.Visible = CC(38) : 採購單一覽表_p.Visible = CC(38) 入庫驗收單_tsm.Visible = CC(39) : 入庫驗收單_p.Visible = CC(39) : 採購驗收對帳表_tsm.Visible = CC(40) : 採購驗收對帳表_p.Visible = CC(40) 供應商管理_tsm.Visible = CC(11) : 供應商管理_p.Visible = CC(11) : 物料採購統計表_tsm.Visible = CC(51) : 物料採購統計表_p.Visible = CC(51) 供應商商品單價設定_tsm.Visible = CC(11) : 供應商商品單價設定_p.Visible = CC(11) 採購系統管理_tsm.Visible = CC(6) 樣品請購單申請_tsm.Visible = CC(25) : 樣品請購單申請_p.Visible = CC(25) : 樣品供應商管理_tsm.Visible = CC(42) 樣品請購單核准_tsm.Visible = CC(26) : 樣品請購單核准_p.Visible = CC(26) : 樣品請購單一覽表_tsm.Visible = CC(27) : 樣品請購單一覽表_p.Visible = CC(27) 樣品採購單生成_tsm.Visible = CC(28) : 樣品採購單生成_p.Visible = CC(28) : 樣品採購單一級核准_tsm.Visible = CC(72) : 樣品採購單一級核准_p.Visible = CC(72) 樣品採購單二級核准_tsm.Visible = CC(29) : 樣品採購單二級核准_p.Visible = CC(29) : 樣品採購單一覽表_tsm.Visible = CC(30) : 樣品採購單一覽表_p.Visible = CC(30) 樣品來料驗收單_tsm.Visible = CC(31) : 樣品來料驗收單_p.Visible = CC(31) : 樣品採購驗收對帳表_tsm.Visible = CC(32) : 樣品採購驗收對帳表_p.Visible = CC(32) '------------------------工程管理系統------------------------------------------------------------------------------------------------------------------------------------------------- 工程分區控制表1_tsm.Visible = CC(114) : 工程分區控制表1_p.Visible = CC(114) : 合約驗收控制表1_tsm.Visible = CC(108) : 合約驗收控制表1_p.Visible = CC(108) 合約驗收單1_tsm.Visible = CC(105) : 合約驗收單1_p.Visible = CC(105) : 合約結案控制表1_tsm.Visible = CC(109) : 合約結案控制表1_p.Visible = CC(109) 工程進度表_tsm.Visible = CC(110) : 工程進度表_p.Visible = CC(110) : 派工人數紀錄表_tsm.Visible = CC(106) : 派工人數紀錄表_p.Visible = CC(106) 工程日報表編輯_tsm.Visible = CC(104) : 工程日報表編輯_p.Visible = CC(104) : 工程客變單_tsm.Visible = CC(53) : 工程客變單_p.Visible = CC(53) 工程維修單_tsm.Visible = CC(54) : 工程維修單_p.Visible = CC(54) 工程系統管理_tsm.Visible = CC(8) '------------------------倉儲管理系統------------------------------------------------------------------------------------------------------------------------------------------------- 倉儲控制表_tsm.Visible = CC(46) : 倉儲控制表_p.Visible = CC(46) : 倉儲入庫驗收_tsm.Visible = CC(47) : 倉儲入庫驗收_p.Visible = CC(47) 物料轉倉申請_tsm.Visible = CC(48) : 物料轉倉申請_p.Visible = CC(48) : 物料轉倉審核_tsm.Visible = CC(49) : 物料轉倉審核_p.Visible = CC(49) 物料轉倉出庫_tsm.Visible = CC(50) : 物料轉倉出庫_p.Visible = CC(50) : 倉儲領料申請_tsm.Visible = CC(56) : 倉儲領料申請_p.Visible = CC(56) 倉儲領料審核_tsm.Visible = CC(57) : 倉儲領料審核_p.Visible = CC(57) : 倉儲領料出庫_tsm.Visible = CC(58) : 倉儲領料出庫_p.Visible = CC(58) 倉儲單據狀態看板_tsm.Visible = CC(69) : 倉儲單據狀態看板_p.Visible = CC(69) : 物料資料庫_tsm.Visible = CC(70) : 物料資料庫_p.Visible = CC(70) 倉儲分區控制表_tsm.Visible = CC(71) : 倉儲分區控制表_p.Visible = CC(71) : 盤盈盤損申請_tsm.Visible = CC(85) : 盤盈盤損申請_p.Visible = CC(85) 盤盈盤損審核_tsm.Visible = CC(86) : 盤盈盤損審核_p.Visible = CC(86) : 物料退庫_tsm.Visible = CC(59) : 物料退庫_p.Visible = CC(59) 倉儲系統管理_tsm.Visible = CC(9) '------------------------財務管理系統------------------------------------------------------------------------------------------------------------------------------------------------- 財務系統管理_tsm.Visible = CC(7) 營運收支單申請_tsm.Visible = CC(91) : 營運收支單審核_tsm.Visible = CC(92) : 營運收支單一覽表_tsm.Visible = CC(93) : 營運收支單對帳表_tsm.Visible = CC(94) 營運收支決算表_tsm.Visible = CC(95) : 匯率管理_tsm.Visible = CC(96) : 會計科目管理_tsm.Visible = CC(97) : 現金流量表_tsm.Visible = CC(80) : 綜合損益表_tsm.Visible = CC(81) 權益變動表_tsm.Visible = CC(82) : 資產負載表_tsm.Visible = CC(83) : 零用金支付申請_tsm.Visible = CC(15) : 零用金支付審核_tsm.Visible = CC(16) : 零用金支付核准_tsm.Visible = CC(17) 零用金支付單一覽表_tsm.Visible = CC(90) : 支票收支申請_tsm.Visible = CC(76) : 支票收支審核_tsm.Visible = CC(77) : 支票收支核准_tsm.Visible = CC(78) : 支票票務控制表_tsm.Visible = CC(79) 零用金支付對帳表_tsm.Visible = CC(18) : 樣品採購驗收對帳表1_tsm.Visible = CC(32) : 採購驗收對帳表1_tsm.Visible = CC(40) : 應收帳款控制表_tsm.Visible = CC(74) 應付賬款控制表_tsm.Visible = CC(75) '------------------------人事管理系統------------------------------------------------------------------------------------------------------------------------------------------------- 人員ID卡系統配置設定_tsm.Visible = CC(23) : 人員ID卡系統配置設定_p.Visible = CC(23) : 系統組織結構與權限設定_tsm.Visible = CC(89) : 系統組織結構與權限設定_p.Visible = CC(89) 人事系統管理_tsm.Visible = CC(22) : LINE使用者管理表_tsm.Visible = CC(111) : LINE通知測試表_tsm.Visible = CC(112) : LINE權限一覽表_tsm.Visible = CC(113) '------------------------資料庫管理系統------------------------------------------------------------------------------------------------------------------------------------------------- 系統使用者管理_tsm.Visible = CC(2) : 系統使用者管理_p.Visible = CC(2) : 系統權限預設表_tsm.Visible = CC(84) : 系統權限預設表_p.Visible = CC(84) 系統組織架構設定_tsm.Visible = CC(41) : 系統組織架構設定_p.Visible = CC(41) : 部門權限設定_tsm.Visible = CC(87) : 部門權限設定_p.Visible = CC(87) 系統通用變數管理_tsm.Visible = CC(43) : 系統通用變數管理_p.Visible = CC(43) : 系統編碼規則_tsm.Visible = CC(10) : 系統編碼規則_p.Visible = CC(10) 系統對應電腦註冊_tsm.Visible = CC(44) : 系統對應電腦註冊_p.Visible = CC(44) : 系統執行檔版本管理_tsm.Visible = CC(4) : 系統執行檔版本管理_p.Visible = CC(4) FTP資料夾管理_tsm.Visible = CC(3) : FTP資料夾管理_p.Visible = CC(3) : 簽名檔管理_tsm.Visible = CC(21) : 簽名檔管理_p.Visible = CC(21) 資料庫系統管理_tsm.Visible = CC(1) 系統開發用共享文件_tsm.Visible = CC(19) If gUserName = "李協叡" Then : 開發模板庫_tsm.Visible = True : Else : 開發模板庫_tsm.Visible = False : End If '------------------------ToolStripSeparator隱藏 '------------------------章程管理系統------------------------------------------------------------------------------------------------------------------------------------------------- If 單次授權功能_tsm.Visible = False Then : ToolStripSeparator36.Visible = False : End If If CC(8) = False Then : ToolStripSeparator37.Visible = False : End If '------------------------業務管理系統------------------------------------------------------------------------------------------------------------------------------------------------- If CC(98) = False And CC(116) = False And CC(107) = False Then : ToolStripSeparator31.Visible = False : End If If CC(123) = False And CC(124) = False Then : ToolStripSeparator24.Visible = False : End If If CC(125) = False And CC(126) = False Then : ToolStripSeparator29.Visible = False : End If If CC(127) = False And CC(128) = False And CC(61) = False And CC(62) = False Then : ToolStripSeparator30.Visible = False : End If If CC(115) = False Then : ToolStripSeparator32.Visible = False : End If If CC(100) = False And CC(114) = False And CC(99) = False And CC(52) = False Then : ToolStripSeparator33.Visible = False : End If '------------------------採購管理系統------------------------------------------------------------------------------------------------------------------------------------------------- If CC(25) = False And CC(26) = False And CC(27) = False Then : ToolStripSeparator6.Visible = False : End If If CC(28) = False And CC(72) = False And CC(29) = False And CC(30) = False And CC(31) = False And CC(32) = False Then : ToolStripSeparator3.Visible = False : End If If CC(33) = False And CC(34) = False And CC(35) = False Then : ToolStripSeparator1.Visible = False : End If If CC(36) = False And CC(73) = False And CC(37) = False And CC(38) = False And CC(39) = False And CC(40) = False Then : ToolStripSeparator2.Visible = False : End If '------------------------工程管理系統------------------------------------------------------------------------------------------------------------------------------------------------- If CC(110) = False And CC(106) = False Then : ToolStripSeparator35.Visible = False : End If If CC(104) = False And CC(53) = False And CC(54) = False Then : ToolStripSeparator34.Visible = False : End If If CC(114) = False Then : ToolStripSeparator25.Visible = False : End If '------------------------倉儲管理系統------------------------------------------------------------------------------------------------------------------------------------------------- If CC(46) = False And CC(47) = False And CC(48) = False And CC(49) = False And CC(50) = False Then : ToolStripSeparator15.Visible = False : End If If CC(56) = False And CC(57) = False And CC(58) = False Then : ToolStripSeparator11.Visible = False : End If If CC(59) = False Then : ToolStripSeparator9.Visible = False : End If If CC(69) = False And CC(70) = False And CC(71) = False Then : ToolStripSeparator14.Visible = False : End If '------------------------財務管理系統------------------------------------------------------------------------------------------------------------------------------------------------- If CC(91) = False And CC(92) = False And CC(93) = False Then : ToolStripSeparator17.Visible = False : End If If CC(94) = False And CC(95) = False Then : ToolStripSeparator18.Visible = False : End If If CC(96) = False And CC(97) = False Then : ToolStripSeparator16.Visible = False : End If If CC(80) = False And CC(81) = False And CC(82) = False And CC(83) = False Then : ToolStripSeparator21.Visible = False : End If If CC(15) = False And CC(16) = False And CC(17) = False And CC(90) = False Then : ToolStripSeparator22.Visible = False : End If If CC(76) = False And CC(77) = False And CC(78) = False And CC(79) = False Then : ToolStripSeparator8.Visible = False : End If If CC(18) = False And CC(32) = False And CC(40) = False Then : ToolStripSeparator23.Visible = False : End If '------------------------人事管理系統------------------------------------------------------------------------------------------------------------------------------------------------- If CC(23) = False And CC(89) = False Then : ToolStripSeparator28.Visible = False : End If '------------------------資料庫管理系統------------------------------------------------------------------------------------------------------------------------------------------------- If CC(2) = False And CC(84) = False Then : ToolStripSeparator19.Visible = False : End If If CC(43) = False And CC(10) = False And CC(44) = False Then : ToolStripSeparator20.Visible = False : End If If CC(4) = False And CC(3) = False Then : ToolStripSeparator5.Visible = False : End If If CC(41) = False And CC(87) = False Then : ToolStripSeparator7.Visible = False : End If If gUserName = "李協叡" Then : ToolStripSeparator27.Visible = True : Else : ToolStripSeparator27.Visible = False : End If End Sub Private Sub HXGPSERPSYS_Siz() Dim 位置X As Integer : Dim 位置Y As Integer = 29 : Dim 位置Y1 As Integer = 30 : Dim Y可放 As Integer : If 系統語言 = "繁體中文" Then : 位置X = 200 : Else : 位置X = 370 : End If Dim 視窗X As Integer = 虛擬桌_pl.Size.Width : Dim 視窗Y As Integer = 虛擬桌_pl.Size.Height Dim X可放 As Integer = 視窗X / 位置X : If 系統語言 = "繁體中文" Then : Y可放 = 視窗Y / 位置Y : Else : Y可放 = 視窗Y / 位置Y + 0 : End If Dim 總共可放 As Integer = X可放 * Y可放 Dim X已放 As Integer : Dim Y已放 As Integer : Dim 已經放置 As Integer '---------其他--------------------------------------------------------------------------------------------------------------- If 個人帳號管理_p.Visible = True Then : 個人帳號管理_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 個人帳號管理_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 個人帳號管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 文件伺服器_p.Visible = True Then : 文件伺服器_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 文件伺服器_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 文件伺服器_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 系統使用說明_p.Visible = True Then : 系統使用說明_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 系統使用說明_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 系統使用說明_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 單次授權功能_p.Visible = True Then : 單次授權功能_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 單次授權功能_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 單次授權功能_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 會議記錄_p.Visible = True Then : 會議記錄_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 會議記錄_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 會議記錄_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 安培容量計算表_p.Visible = True Then : 安培容量計算表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 安培容量計算表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 安培容量計算表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 部門聯絡函一覽表_p.Visible = True Then : 部門聯絡函一覽表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 部門聯絡函一覽表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 部門聯絡函一覽表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 部門聯絡函申請_p.Visible = True Then : 部門聯絡函申請_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 部門聯絡函申請_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 部門聯絡函申請_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 聯絡函部門主管審核_p.Visible = True Then : 聯絡函部門主管審核_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 聯絡函部門主管審核_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 聯絡函部門主管審核_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 聯絡函最高主管核准_p.Visible = True Then : 聯絡函最高主管核准_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 聯絡函最高主管核准_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 聯絡函最高主管核准_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If '---------業務--------------------------------------------------------------------------------------------------------------- If 合約執行進度_p.Visible = True Then : 合約執行進度_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 合約執行進度_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 合約執行進度_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 合約利潤預估表_p.Visible = True Then : 合約利潤預估表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 合約利潤預估表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 合約利潤預估表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 合約報價單_p.Visible = True Then : 合約報價單_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 合約報價單_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 合約報價單_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 合約報價單審核_p.Visible = True Then : 合約報價單審核_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 合約報價單審核_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 合約報價單審核_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 合約本文_p.Visible = True Then : 合約本文_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 合約本文_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 合約本文_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 附錄合約_p.Visible = True Then : 附錄合約_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 附錄合約_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 附錄合約_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 合約請款單_p.Visible = True Then : 合約請款單_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 合約請款單_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 合約請款單_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 合約請款控制表_p.Visible = True Then : 合約請款控制表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 合約請款控制表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 合約請款控制表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 合約驗收單_p.Visible = True Then : 合約驗收單_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 合約驗收單_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 合約驗收單_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 合約驗收控制表_p.Visible = True Then : 合約驗收控制表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 合約驗收控制表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 合約驗收控制表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 合約保固書_p.Visible = True Then : 合約保固書_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 合約保固書_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 合約保固書_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 合約文件簽回存檔_p.Visible = True Then : 合約文件簽回存檔_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 合約文件簽回存檔_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 合約文件簽回存檔_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 合約文件簽核控制表_p.Visible = True Then : 合約文件簽核控制表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 合約文件簽核控制表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 合約文件簽核控制表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 合約結案控制表_p.Visible = True Then : 合約結案控制表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 合約結案控制表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 合約結案控制表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 合約工程圖庫管理_p.Visible = True Then : 合約工程圖庫管理_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 合約工程圖庫管理_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 合約工程圖庫管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 工程項目BOM表_p.Visible = True Then : 工程項目BOM表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 工程項目BOM表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 工程項目BOM表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 工程分區控制表_p.Visible = True Then : 工程分區控制表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 工程分區控制表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 工程分區控制表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 客戶資料表_p.Visible = True Then : 客戶資料表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 客戶資料表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 客戶資料表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If '---------請採購--------------------------------------------------------------------------------------------------------------- If 請購單申請_p.Visible = True Then : 請購單申請_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 請購單申請_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 請購單申請_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 請購單核準_p.Visible = True Then : 請購單核準_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 請購單核準_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 請購單核準_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 請購一覽表_p.Visible = True Then : 請購一覽表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 請購一覽表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 請購一覽表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 採購單詢價_p.Visible = True Then : 採購單詢價_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 採購單詢價_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 採購單詢價_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 採購單編輯_p.Visible = True Then : 採購單編輯_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 採購單編輯_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 採購單編輯_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 採購單一級核准_p.Visible = True Then : 採購單一級核准_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 採購單一級核准_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 採購單一級核准_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 採購單二級核准_p.Visible = True Then : 採購單二級核准_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 採購單二級核准_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 採購單二級核准_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 採購單一覽表_p.Visible = True Then : 採購單一覽表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 採購單一覽表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 採購單一覽表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 入庫驗收單_p.Visible = True Then : 入庫驗收單_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 入庫驗收單_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 入庫驗收單_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 採購驗收對帳表_p.Visible = True Then : 採購驗收對帳表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 採購驗收對帳表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 採購驗收對帳表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 供應商管理_p.Visible = True Then : 供應商管理_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 供應商管理_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 供應商管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 供應商商品單價設定_p.Visible = True Then : 供應商商品單價設定_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 供應商商品單價設定_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 供應商商品單價設定_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 物料採購統計表_p.Visible = True Then : 物料採購統計表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 物料採購統計表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 物料採購統計表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 樣品請購單申請_p.Visible = True Then : 樣品請購單申請_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 樣品請購單申請_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 樣品請購單申請_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 樣品請購單核准_p.Visible = True Then : 樣品請購單核准_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 樣品請購單核准_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 樣品請購單核准_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 樣品請購單一覽表_p.Visible = True Then : 樣品請購單一覽表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 樣品請購單一覽表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 樣品請購單一覽表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 樣品採購單生成_p.Visible = True Then : 樣品採購單生成_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 樣品採購單生成_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 樣品採購單生成_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 樣品採購單一級核准_p.Visible = True Then : 樣品採購單一級核准_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 樣品採購單一級核准_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 樣品採購單一級核准_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 樣品採購單二級核准_p.Visible = True Then : 樣品採購單二級核准_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 樣品採購單二級核准_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 樣品採購單二級核准_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 樣品採購單一覽表_p.Visible = True Then : 樣品採購單一覽表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 樣品採購單一覽表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 樣品採購單一覽表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 樣品來料驗收單_p.Visible = True Then : 樣品來料驗收單_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 樣品來料驗收單_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 樣品來料驗收單_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 樣品採購驗收對帳表_p.Visible = True Then : 樣品採購驗收對帳表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 樣品採購驗收對帳表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 樣品採購驗收對帳表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If '---------工程--------------------------------------------------------------------------------------------------------------- If 工程材料表_p.Visible = True Then : 工程材料表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 工程材料表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 工程材料表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 合約驗收單1_p.Visible = True Then : 合約驗收單1_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 合約驗收單1_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 合約驗收單1_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 合約驗收控制表1_p.Visible = True Then : 合約驗收控制表1_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 合約驗收控制表1_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 合約驗收控制表1_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 合約結案控制表1_p.Visible = True Then : 合約結案控制表1_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 合約結案控制表1_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 合約結案控制表1_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 工程進度表_p.Visible = True Then : 工程進度表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 工程進度表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 工程進度表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 派工人數紀錄表_p.Visible = True Then : 派工人數紀錄表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 派工人數紀錄表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 派工人數紀錄表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 工程日報表編輯_p.Visible = True Then : 工程日報表編輯_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 工程日報表編輯_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 工程日報表編輯_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 工程客變單_p.Visible = True Then : 工程客變單_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 工程客變單_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 工程客變單_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 工程維修單_p.Visible = True Then : 工程維修單_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 工程維修單_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 工程維修單_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 工程分區控制表1_p.Visible = True Then : 工程分區控制表1_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 工程分區控制表1_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 工程分區控制表1_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If '---------倉儲--------------------------------------------------------------------------------------------------------------- If 倉儲控制表_p.Visible = True Then : 倉儲控制表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 倉儲控制表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 倉儲控制表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 倉儲入庫驗收_p.Visible = True Then : 倉儲入庫驗收_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 倉儲入庫驗收_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 倉儲入庫驗收_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 物料轉倉申請_p.Visible = True Then : 物料轉倉申請_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 物料轉倉申請_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 物料轉倉申請_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 物料轉倉審核_p.Visible = True Then : 物料轉倉審核_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 物料轉倉審核_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 物料轉倉審核_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 物料轉倉出庫_p.Visible = True Then : 物料轉倉出庫_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 物料轉倉出庫_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 物料轉倉出庫_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 倉儲領料申請_p.Visible = True Then : 倉儲領料申請_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 倉儲領料申請_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 倉儲領料申請_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 倉儲領料審核_p.Visible = True Then : 倉儲領料審核_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 倉儲領料審核_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 倉儲領料審核_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 倉儲領料出庫_p.Visible = True Then : 倉儲領料出庫_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 倉儲領料出庫_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 倉儲領料出庫_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 物料退庫_p.Visible = True Then : 物料退庫_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 物料退庫_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 物料退庫_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 倉儲單據狀態看板_p.Visible = True Then : 倉儲單據狀態看板_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 倉儲單據狀態看板_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 倉儲單據狀態看板_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 盤盈盤損申請_p.Visible = True Then : 盤盈盤損申請_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 盤盈盤損申請_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 盤盈盤損申請_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 盤盈盤損審核_p.Visible = True Then : 盤盈盤損審核_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 盤盈盤損審核_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 盤盈盤損審核_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 物料資料庫_p.Visible = True Then : 物料資料庫_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 物料資料庫_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 物料資料庫_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 倉儲分區控制表_p.Visible = True Then : 倉儲分區控制表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 倉儲分區控制表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 倉儲分區控制表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If '---------人事--------------------------------------------------------------------------------------------------------------- If 公司組織結構_p.Visible = True Then : 公司組織結構_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 公司組織結構_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 公司組織結構_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 人員ID卡系統配置設定_p.Visible = True Then : 人員ID卡系統配置設定_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 人員ID卡系統配置設定_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 人員ID卡系統配置設定_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 系統組織結構與權限設定_p.Visible = True Then : 系統組織結構與權限設定_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 系統組織結構與權限設定_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 系統組織結構與權限設定_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If '---------系統--------------------------------------------------------------------------------------------------------------- If 系統使用者管理_p.Visible = True Then : 系統使用者管理_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 系統使用者管理_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 系統使用者管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 系統權限預設表_p.Visible = True Then : 系統權限預設表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 系統權限預設表_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 系統權限預設表_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 系統組織架構設定_p.Visible = True Then : 系統組織架構設定_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 系統組織架構設定_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 系統組織架構設定_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 部門權限設定_p.Visible = True Then : 部門權限設定_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 部門權限設定_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 部門權限設定_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 系統通用變數管理_p.Visible = True Then : 系統通用變數管理_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 系統通用變數管理_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 系統通用變數管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 系統編碼規則_p.Visible = True Then : 系統編碼規則_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 系統編碼規則_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 系統編碼規則_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 系統對應電腦註冊_p.Visible = True Then : 系統對應電腦註冊_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 系統對應電腦註冊_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 系統對應電腦註冊_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 系統執行檔版本管理_p.Visible = True Then : 系統執行檔版本管理_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 系統執行檔版本管理_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : 系統執行檔版本管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If FTP資料夾管理_p.Visible = True Then : FTP資料夾管理_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : FTP資料夾管理_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1 Else : FTP資料夾管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If : End If If 簽名檔管理_p.Visible = True Then : 簽名檔管理_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 簽名檔管理_p.Location = New Point(0, 0) Else : 簽名檔管理_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : If Y已放 >= Y可放 Then : End If : End If : End If End Sub Private Sub HXGPSERPSYS_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown If gUserName = "李協叡" Then : Me.Text = Me.Text & " -- " & g_conn_type & " -- " & gUserName & " -- 系統版本 :" & 版本 & " -- IP : " & 登入人IP Else : Me.Text = Me.Text & " -- " & g_conn_type & " -- " & gUserName & " -- 系統版本 :" & 版本 : End If '------------------------系統登入時宣告------------------------------------------------------------------------------------------------------------------------------------------------- SQL_系統語言() : 系統語言1_cb.Items.Clear() : While dr.Read() : 系統語言1_cb.Items.Add(dr("語言")) : End While : conn.Close() 低網速模式_ch.Checked = 低網速模式 : 介面 = "H001" : 系統語言1_cb.Text = 系統語言 '------------------------系統閒置登出宣告----------------------------------------------------------------------------------------------------------------------------------------------- SQL_系統閒置時間設定讀取() : 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 重登計時() : 重置() '-----------------------帳號下拉清單------------------------------------------------------------------------------------------------------------ SQL_帳號讀取() 使用者1_cb.Items.Clear() : While (dr.Read()) : 使用者1_cb.Items.Add(dr("姓名")) : End While : conn.Close() 使用者1_cb.Text = gUserName If 登入人級別 = "00" Then : 使用者1_cb.Visible = True : Else : 使用者1_cb.Visible = False : End If '-----------------------未完成工作通知------------------------------------------------------------------------------------------------------------ '更新_bt.PerformClick() '-----------------------測試伺服器登入通知------------------------------------------------------------------------------------------------------------ If 登入人IP = "106.1.48.106,4567" Or 登入人IP = "leehsiehjui.hopto.org,2433" Or 登入人IP = "192.168.0.112,2433" Then If 系統語言 = "繁體中文" Then : MsgBox("注意目前登入的司服器是測試用的，如果一直無法登入正是伺服器請找系統管理員!!") Else : MsgBox("Perhatikan bahwa server yang saat ini masuk adalah untuk pengujian, jika Anda belum dapat masuk ke server yang tepat, silakan hubungi administrator sistem !!") : End If End If End Sub Private Sub HXGPSERPSYS_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing 系統關閉 = True : If 判斷重登 = True Then : 判斷重登 = False : Else : 判斷重登 = False : LoginForm1.Close() : End If End Sub Private Sub HXGPSERPSYS_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged HXGPSERPSYS_Siz() If 系統關閉 = True Then : Else Me.BackgroundImage = My.Resources._1980X1010 : Me.BackgroundImageLayout = 3 End If End Sub Private Sub 重登計時() 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 : LoginForm1.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 : LoginForm1.Show() : 系統登出.Close() : Me.Close() : Exit Sub End If End Sub Private Sub 低網速模式_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 低網速模式_ch.Click If 低網速模式_ch.Checked = True Then : 低網速模式_ch.Checked = True : Else : 低網速模式_ch.Checked = False : End If 低網速模式 = 低網速模式_ch.Checked : SQL_電腦預設值修改_低網速模式() : Access1.Close() End Sub Private Sub Message_tb_Click(sender As Object, e As EventArgs) Handles Message_tb.Click '------------------------即時通訊功能---------------------------------------------------------------------------------------------------------------- Dim Strs As String = Application.StartupPath If File.Exists(Strs + "\LIVE.txt") Then : File.Delete(Strs + "\LIVE.txt") : End If If File.Exists(Strs + "\USER.txt") Then : File.Delete(Strs + "\USER.txt") : End If Dim FilePath As String = Strs + "\LIVE.txt" Try Using fs As IO.FileStream = New IO.FileStream(FilePath, FileMode.Append) Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default) Dim str As String = "106.1.48.106" : sw.WriteLine(str) : sw.Flush() '插入一整行 End Using End Using Catch ex As Exception End Try Dim FilePath1 As String = Strs + "\USER.txt" Try Using fs As IO.FileStream = New IO.FileStream(FilePath1, FileMode.Append) Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default) Dim str As String = gUserName : sw.WriteLine(str) : sw.Flush() '插入一整行 End Using End Using Catch ex As Exception End Try Dim 已開啟 As Boolean If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\HX-PGS-Message.exe") Then Dim pro() As Process = System.Diagnostics.Process.GetProcesses() ' 判斷是否有符合的Process For Each process As Process In pro : If ("HX-PGS-Message").Equals(process.ProcessName) Then : 已開啟 = True : End If : Next If 已開啟 = False Then : Shell(My.Computer.FileSystem.SpecialDirectories.Desktop + "\HX-PGS-Message.exe", vbNormalFocus) : End If ElseIf File.Exists(Strs & "\HX-PGS-Message.exe") Then Dim pro() As Process = System.Diagnostics.Process.GetProcesses() ' 判斷是否有符合的Process For Each process As Process In pro : If ("HX-PGS-Message").Equals(process.ProcessName) Then : 已開啟 = True : End If : Next If 已開啟 = False Then : Shell(Strs + "\HX-PGS-Message.exe", vbNormalFocus) : End If End If End Sub Private Sub 重置() BL = False : BL1 = False : BL2 = False : BL3 = False : BL4 = False : BL5 = False : BL6 = False : BL7 = False : BL8 = False NU1 = 0 : NU2 = 0 : NU3 = 0 : NU4 = 0 : NU5 = 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 虛擬桌面隱藏() 虛擬桌_pl.Visible = False : 桌面通知_pl.Visible = False End Sub Private Sub 系統語言1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 系統語言1_cb.SelectedIndexChanged SYS_SET_tsm.Text = 系統語言1_cb.Text : 系統語言 = 系統語言1_cb.Text : SQL_電腦預設值修改_系統語言() 介面 = "H001" : 語言轉換讀取() '-------------------------------H1系列-業務--------------------------------------------------------------------------------------------------------------------------------------- If H(101) = True Then : 介面 = "H101" : 合約執行進度.語轉扭_bt.PerformClick() : End If : If H(104) = True Then : 介面 = "H104" : 附錄合約.語轉扭_bt.PerformClick() : End If If H(106) = True Then : 介面 = "H106" : 合約請款控制表.語轉扭_bt.PerformClick() : End If '-------------------------------H2系列-採購--------------------------------------------------------------------------------------------------------------------------------------- If H(201) = True Then : 介面 = "H201" : 請購單申請.語轉扭_bt.PerformClick() : End If : If H(202) = True Then : 介面 = "H202" : 請購單核准.語轉扭_bt.PerformClick() : End If If H(203) = True Then : 介面 = "H203" : 請購單歷史檔案.語轉扭_bt.PerformClick() : End If : If H(204) = True Then : 介面 = "H204" : 採購單詢價.語轉扭_bt.PerformClick() : End If If H(205) = True Then : 介面 = "H205" : 採購單編輯.語轉扭_bt.PerformClick() : End If : If H(206) = True Then : 介面 = "H206" : 採購單一級核准.語轉扭_bt.PerformClick() : End If If H(207) = True Then : 介面 = "H207" : 採購單二級核准.語轉扭_bt.PerformClick() : End If : If H(208) = True Then : 介面 = "H208" : 採購單歷史檔案.語轉扭_bt.PerformClick() : End If If H(209) = True Then : 介面 = "H209" : 採購單驗收.語轉扭_bt.PerformClick() : End If : If H(211) = True Then : 介面 = "H211" : 樣品請購單申請.語轉扭_bt.PerformClick() : End If If H(212) = True Then : 介面 = "H212" : 樣品請購單核准.語轉扭_bt.PerformClick() : End If : If H(213) = True Then : 介面 = "H213" : 樣品請購單歷史檔案.語轉扭_bt.PerformClick() : End If If H(214) = True Then : 介面 = "H214" : 樣品採購單編輯.語轉扭_bt.PerformClick() : End If : If H(215) = True Then : 介面 = "H215" : 樣品採購單一級核准.語轉扭_bt.PerformClick() : End If If H(216) = True Then : 介面 = "H216" : 樣品採購單二級核准.語轉扭_bt.PerformClick() : End If : If H(217) = True Then : 介面 = "H217" : 樣品採購單歷史檔案.語轉扭_bt.PerformClick() : End If If H(218) = True Then : 介面 = "H218" : 樣品採購單驗收.語轉扭_bt.PerformClick() : End If : If H(219) = True Then : 介面 = "H219" : 樣品採購單_對帳表.語轉扭_bt.PerformClick() : End If If H(299) = True Then : 介面 = "H299" : 供應商管理.語轉扭_bt.PerformClick() : End If : If H(210) = True Then : 介面 = "H210" : 採購_對帳表.語轉扭_bt.PerformClick() : End If '-------------------------------H3系統-財務--------------------------------------------------------------------- '-------------------------------H4系統-工程--------------------------------------------------------------------- If H(402) = True Then : 介面 = "H402" : 客戶資料表.語轉扭_bt.PerformClick() : End If : If H(405) = True Then : 介面 = "H405" : 派工人數紀錄表.語轉扭_bt.PerformClick() : End If If H(406) = True Then : 介面 = "H406" : 工程日報表.語轉扭_bt.PerformClick() : End If 'If H(404) = True Then : 介面 = "H404" : 工程日報表審核.語轉扭_bt.PerformClick() : End If : If H(403) = True Then : 介面 = "H403" : 工程日報表編輯.語轉扭_bt.PerformClick() : End If '-------------------------------H5系列-倉儲--------------------------------------------------------------------------------------------------------------------------------------- If H(501) = True Then : 介面 = "H501" : 倉儲控制表.語轉扭_bt.PerformClick() : End If : If H(502) = True Then : 介面 = "H502" : 倉儲入庫驗收.語轉扭_bt.PerformClick() : End If If H(503) = True Then : 介面 = "H503" : 物料轉倉申請.語轉扭_bt.PerformClick() : End If : If H(504) = True Then : 介面 = "H504" : 物料轉倉審核.語轉扭_bt.PerformClick() : End If If H(505) = True Then : 介面 = "H505" : 物料轉倉出庫.語轉扭_bt.PerformClick() : End If : If H(506) = True Then : 介面 = "H506" : 倉儲領料申請.語轉扭_bt.PerformClick() : End If If H(507) = True Then : 介面 = "H507" : 倉儲領料審核.語轉扭_bt.PerformClick() : End If : If H(508) = True Then : 介面 = "H508" : 倉儲領料出庫.語轉扭_bt.PerformClick() : End If If H(509) = True Then : 介面 = "H509" : 物料退庫.語轉扭_bt.PerformClick() : End If : If H(510) = True Then : 介面 = "H510" : 倉儲單據狀態看板.語轉扭_bt.PerformClick() : End If If H(511) = True Then : 介面 = "H511" : 盤盈盤損申請.語轉扭_bt.PerformClick() : End If : If H(512) = True Then : 介面 = "H512" : 盤盈盤損審核.語轉扭_bt.PerformClick() : End If If H(527) = True Then : 介面 = "H527" : 物料資料庫.語轉扭_bt.PerformClick() : End If : If H(528) = True Then : 介面 = "H528" : 倉儲分區控制表.語轉扭_bt.PerformClick() : End If '-------------------------------H6系列-人事--------------------------------------------------------------------------------------------------------------------------------------- If H(601) = True Then : 介面 = "H601" : 人員ID卡系統配置設定.語轉扭_bt.PerformClick() : End If If H(602) = True Then : 介面 = "H602" : 系統組織結構與權限設定.語轉扭_bt.PerformClick() : End If If H(605) = True Then : 介面 = "H605" : LINE_權限一覽表.語轉扭_bt.PerformClick() : End If '-------------------------------H7系列-系統--------------------------------------------------------------------------------------------------------------------------------------- If H(703) = True Then : 介面 = "H703" : 部門權限設定.語轉扭_bt.PerformClick() : End If : If H(704) = True Then : 介面 = "H704" : 系統通用變數管理.語轉扭_bt.PerformClick() : End If If H(711) = True Then : 介面 = "H711" : 簽名檔管理.語轉扭_bt.PerformClick() : End If : If H(706) = True Then : 介面 = "H706" : 系統編碼規則.語轉扭_bt.PerformClick() : End If If H(710) = True Then : 介面 = "H710" : 系統開發用共享文件.語轉扭_bt.PerformClick() : End If '-------------------------------H9系列-管理--------------------------------------------------------------------------------------------------------------------------------------- If H(901) = True Then : 介面 = "H901" : 單次授權功能.語轉扭_bt.PerformClick() : End If : If H(902) = True Then : 介面 = "H902" : 會議記錄.語轉扭_bt.PerformClick() : End If If H(904) = True Then : 介面 = "H904" : 部門聯絡函一覽表.語轉扭_bt.PerformClick() : End If If H(905) = True Then : 介面 = "H905" : 部門聯絡函申請.語轉扭_bt.PerformClick() : End If : If H(906) = True Then : 介面 = "H906" : 聯絡函部門主管審核.語轉扭_bt.PerformClick() : End If If H(907) = True Then : 介面 = "H907" : 聯絡函最高主管核准.語轉扭_bt.PerformClick() : End If Access1.Close() : HXGPSERPSYS_Siz() : 更新_bt.PerformClick() 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 重登計時() : 重置() : 個人帳號管理.ShowDialog() : 個人帳號管理.BringToFront() End Sub Private Sub 個人帳號管理_pb_Click(sender As Object, e As EventArgs) Handles 個人帳號管理_pb.Click 個人帳號管理_tsm.PerformClick() End Sub Private Sub 個人帳號管理_lb_Click(sender As Object, e As EventArgs) Handles 個人帳號管理_lb.Click 個人帳號管理_tsm.PerformClick() End Sub '------------------------簡易功能------------------------------------------------------------------------------------------------------------------------------------------------- Private Sub 文件伺服器_tsm_Click(sender As Object, e As EventArgs) Handles 文件伺服器_tsm.Click Try Dim fileName As String = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" If File.Exists(fileName) Then Dim fullPath As String = Path.GetFullPath(fileName) Process.Start(fullPath, "--app= https://quickconnect.to/HX-PGS-NAS") Else Process.Start("explorer.exe", "https://quickconnect.to/HX-PGS-NAS") End If Catch ex As Exception If 系統語言 = "繁體中文" Then : MsgBox("請先安裝Chrom瀏覽器!!") Else : MsgBox("Silahkan install browser Chrome terlebih dahulu!!") : End If End Try End Sub Private Sub 文件伺服器_pb_Click(sender As Object, e As EventArgs) Handles 文件伺服器_pb.Click 文件伺服器_tsm.PerformClick() End Sub Private Sub 文件伺服器_ib_Click(sender As Object, e As EventArgs) Handles 文件伺服器_lb.Click 文件伺服器_tsm.PerformClick() 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 重登計時() : 重置() : 系統使用說明.Show() : 系統使用說明.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 系統使用說明_pb_Click(sender As Object, e As EventArgs) Handles 系統使用說明_pb.Click 系統使用說明_tsm.PerformClick() End Sub Private Sub 系統使用說明_lb_Click(sender As Object, e As EventArgs) Handles 系統使用說明_lb.Click 系統使用說明_tsm.PerformClick() 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 重登計時() : 重置() : 單次授權功能.ShowDialog() : 單次授權功能.BringToFront() End Sub Private Sub 單次授權功能_pb_Click(sender As Object, e As EventArgs) Handles 單次授權功能_pb.Click 單次授權功能_tsm.PerformClick() End Sub Private Sub 單次授權功能_lb_Click(sender As Object, e As EventArgs) Handles 單次授權功能_lb.Click 單次授權功能_tsm.PerformClick() 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 重登計時() : 重置() : 會議記錄.Show() : 會議記錄.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 會議記錄_pb_Click(sender As Object, e As EventArgs) Handles 會議記錄_pb.Click 會議記錄_tsm.PerformClick() End Sub Private Sub 會議記錄_lb_Click(sender As Object, e As EventArgs) Handles 會議記錄_lb.Click 會議記錄_tsm.PerformClick() 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 重登計時() : 重置() : 安培容量計算.ShowDialog() : 安培容量計算.BringToFront() End Sub Private Sub 安培容量計算表_pb_Click(sender As Object, e As EventArgs) Handles 安培容量計算表_pb.Click 安培容量計算表_tsm.PerformClick() End Sub Private Sub 安培容量計算表_lb_Click(sender As Object, e As EventArgs) Handles 安培容量計算表_lb.Click 安培容量計算表_tsm.PerformClick() 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 重登計時() : 重置() : 部門聯絡函一覽表.Show() : 部門聯絡函一覽表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 部門聯絡函一覽表_pb_Click(sender As Object, e As EventArgs) Handles 部門聯絡函一覽表_pb.Click 部門聯絡函一覽表_tsm.PerformClick() End Sub Private Sub 部門聯絡函一覽表_lb_Click(sender As Object, e As EventArgs) Handles 部門聯絡函一覽表_lb.Click 部門聯絡函一覽表_tsm.PerformClick() 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 重登計時() : 重置() : 部門聯絡函申請.Show() : 部門聯絡函申請.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 部門聯絡函申請_pb_Click(sender As Object, e As EventArgs) Handles 部門聯絡函申請_pb.Click 部門聯絡函申請_tsm.PerformClick() End Sub Private Sub 部門聯絡函申請_lb_Click(sender As Object, e As EventArgs) Handles 部門聯絡函申請_lb.Click 部門聯絡函申請_tsm.PerformClick() 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 重登計時() : 重置() : 聯絡函部門主管審核.Show() : 聯絡函部門主管審核.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 部門聯絡函部門主管審核_pb_Click(sender As Object, e As EventArgs) Handles 聯絡函部門主管審核_pb.Click 聯絡函部門主管審核_tsm.PerformClick() End Sub Private Sub 部門聯絡函部門主管審核_lb_Click(sender As Object, e As EventArgs) Handles 聯絡函部門主管審核_lb.Click 聯絡函部門主管審核_tsm.PerformClick() 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 重登計時() : 重置() : 合約執行進度.Show() : 合約執行進度.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 合約執行進度_pb_Click(sender As Object, e As EventArgs) Handles 合約執行進度_pb.Click 合約執行進度_tsm.PerformClick() End Sub Private Sub 合約執行進度_lb_Click(sender As Object, e As EventArgs) Handles 合約執行進度_lb.Click 合約執行進度_tsm.PerformClick() 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 重登計時() : 重置() : 合約利潤預估表.Show() : 合約利潤預估表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 合約利潤預估表_pb_Click(sender As Object, e As EventArgs) Handles 合約利潤預估表_pb.Click 合約利潤預估表_tsm.PerformClick() End Sub Private Sub 合約利潤預估表_lb_Click(sender As Object, e As EventArgs) Handles 合約利潤預估表_lb.Click 合約利潤預估表_tsm.PerformClick() 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 重登計時() : 重置() : 合約報價單.Show() : 合約報價單.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 合約報價單_pb_Click(sender As Object, e As EventArgs) Handles 合約報價單_pb.Click 合約報價單_tsm.PerformClick() End Sub Private Sub 合約報價單_lb_Click(sender As Object, e As EventArgs) Handles 合約報價單_lb.Click 合約報價單_tsm.PerformClick() 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 重登計時() : 重置() : 合約報價單審核.Show() : 合約報價單審核.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 合約報價單審核_pb_Click(sender As Object, e As EventArgs) Handles 合約報價單審核_pb.Click 合約報價單審核_tsm.PerformClick() End Sub Private Sub 合約報價單審核_lb_Click(sender As Object, e As EventArgs) Handles 合約報價單審核_lb.Click 合約報價單審核_tsm.PerformClick() 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 重登計時() : 重置() : 合約本文.Show() : 合約本文.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 合約本文_pb_Click(sender As Object, e As EventArgs) Handles 合約本文_pb.Click 合約本文_tsm.PerformClick() End Sub Private Sub 合約本文_lb_Click(sender As Object, e As EventArgs) Handles 合約本文_lb.Click 合約本文_tsm.PerformClick() 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 重登計時() : 重置() : 附錄合約.ShowDialog() : 附錄合約.BringToFront() End Sub Private Sub 附錄合約_pb_Click(sender As Object, e As EventArgs) Handles 附錄合約_pb.Click 附錄合約_tsm.PerformClick() End Sub Private Sub 附錄合約_lb_Click(sender As Object, e As EventArgs) Handles 附錄合約_lb.Click 附錄合約_tsm.PerformClick() 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 重登計時() : 重置() : 合約請款控制表.Show() : 合約請款控制表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 合約請款控制表_pb_Click(sender As Object, e As EventArgs) Handles 合約請款控制表_pb.Click 合約請款控制表_tsm.PerformClick() End Sub Private Sub 合約請款控制表_lb_Click(sender As Object, e As EventArgs) Handles 合約請款控制表_lb.Click 合約請款控制表_tsm.PerformClick() 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 重登計時() : 重置() : 合約請款單.Show() : 合約請款單.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 合約請款單_pb_Click(sender As Object, e As EventArgs) Handles 合約請款單_pb.Click 合約請款單_tsm.PerformClick() End Sub Private Sub 合約請款單_lb_Click(sender As Object, e As EventArgs) Handles 合約請款單_lb.Click 合約請款單_tsm.PerformClick() 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 重登計時() : 重置() : 系統分區控制 = True : 合約驗收控制表.Show() : 合約驗收控制表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 合約驗收控制表_pb_Click(sender As Object, e As EventArgs) Handles 合約驗收控制表_pb.Click 合約驗收控制表_tsm.PerformClick() End Sub Private Sub 合約驗收控制表_lb_Click(sender As Object, e As EventArgs) Handles 合約驗收控制表_lb.Click 合約驗收控制表_tsm.PerformClick() 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 重登計時() : 重置() : 系統分區控制 = True : 合約驗收單.Show() : 合約驗收單.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 合約驗收單_pb_Click(sender As Object, e As EventArgs) Handles 合約驗收單_pb.Click 合約驗收單_tsm.PerformClick() End Sub Private Sub 合約驗收單_lb_Click(sender As Object, e As EventArgs) Handles 合約驗收單_lb.Click 合約驗收單_tsm.PerformClick() 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 重登計時() : 重置() : 合約保固書.ShowDialog() : 合約保固書.BringToFront() End Sub Private Sub 合約保固書_pb_Click(sender As Object, e As EventArgs) Handles 合約保固書_pb.Click 合約保固書_tsm.PerformClick() End Sub Private Sub 合約保固書_lb_Click(sender As Object, e As EventArgs) Handles 合約保固書_lb.Click 合約保固書_tsm.PerformClick() 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 重登計時() : 重置() : 合約文件簽回存檔.Show() : 合約文件簽回存檔.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 合約文件簽回存檔_pb_Click(sender As Object, e As EventArgs) Handles 合約文件簽回存檔_pb.Click 合約文件簽回存檔_tsm.PerformClick() End Sub Private Sub 合約文件簽回存檔_lb_Click(sender As Object, e As EventArgs) Handles 合約文件簽回存檔_lb.Click 合約文件簽回存檔_tsm.PerformClick() 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 重登計時() : 重置() : 合約文件簽核控制表.Show() : 合約文件簽核控制表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 合約文件簽核控制表_pb_Click(sender As Object, e As EventArgs) Handles 合約文件簽核控制表_pb.Click 合約文件簽核控制表_tsm.PerformClick() End Sub Private Sub 合約文件簽核控制表_lb_Click(sender As Object, e As EventArgs) Handles 合約文件簽核控制表_lb.Click 合約文件簽核控制表_tsm.PerformClick() 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 重登計時() : 重置() : 系統分區控制 = True : 合約結案控制表.Show() : 合約結案控制表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 合約結案控制表_pb_Click(sender As Object, e As EventArgs) Handles 合約結案控制表_pb.Click 合約結案控制表_tsm.PerformClick() End Sub Private Sub 合約結案控制表_lb_Click(sender As Object, e As EventArgs) Handles 合約結案控制表_lb.Click 合約結案控制表_tsm.PerformClick() 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 重登計時() : 重置() : 合約文件圖庫管理.Show() : 合約文件圖庫管理.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 合約工程圖庫管理_pb_Click(sender As Object, e As EventArgs) Handles 合約工程圖庫管理_pb.Click 合約工程圖庫管理_tsm.PerformClick() End Sub Private Sub 合約工程圖庫管理_lb_Click(sender As Object, e As EventArgs) Handles 合約工程圖庫管理_lb.Click 合約工程圖庫管理_tsm.PerformClick() End Sub Private Sub 工程項目BOM表_tsm_Click(sender As Object, e As EventArgs) Handles 工程項目BOM表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 重登計時() : 重置() : 工程項目BOM表.Show() : 工程項目BOM表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 工程項目BOM表_pb_Click(sender As Object, e As EventArgs) Handles 工程項目BOM表_pb.Click 工程項目BOM表_tsm.PerformClick() End Sub Private Sub 工程項目BOM表_lb_Click(sender As Object, e As EventArgs) Handles 工程項目BOM表_lb.Click 工程項目BOM表_tsm.PerformClick() 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 重登計時() : 重置() : 客戶資料表.Show() : 客戶資料表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 客戶資料表_pb_Click(sender As Object, e As EventArgs) Handles 客戶資料表_pb.Click 客戶資料表_tsm.PerformClick() End Sub Private Sub 客戶資料表_lb_Click(sender As Object, e As EventArgs) Handles 客戶資料表_lb.Click 客戶資料表_tsm.PerformClick() 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 重登計時() : 重置() : 系統分區控制 = True : 倉儲分區控制表.Show() : 倉儲分區控制表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 工程分區控制表_pb_Click(sender As Object, e As EventArgs) Handles 工程分區控制表_pb.Click 工程分區控制表_tsm.PerformClick() End Sub Private Sub 工程分區控制表_lb_Click(sender As Object, e As EventArgs) Handles 工程分區控制表_lb.Click 工程分區控制表_tsm.PerformClick() End Sub Private Sub 合約模組設定_tsm_Click(sender As Object, e As EventArgs) Handles 合約模組設定_tsm.Click 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 重登計時() : 重置() : 樣品請購單申請.Show() : 樣品請購單申請.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 樣品請購單申請_pb_Click(sender As Object, e As EventArgs) Handles 樣品請購單申請_pb.Click 樣品請購單申請_tsm.PerformClick() End Sub Private Sub 樣品請購單申請_lb_Click(sender As Object, e As EventArgs) Handles 樣品請購單申請_lb.Click 樣品請購單申請_tsm.PerformClick() 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 重登計時() : 重置() : 樣品請購單核准.Show() : 樣品請購單核准.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 樣品請購單核准_pb_Click(sender As Object, e As EventArgs) Handles 樣品請購單核准_pb.Click 樣品請購單核准_tsm.PerformClick() End Sub Private Sub 樣品請購單核准_lb_Click(sender As Object, e As EventArgs) Handles 樣品請購單核准_lb.Click 樣品請購單核准_tsm.PerformClick() 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 重登計時() : 重置() : 樣品請購單歷史檔案.Show() : 樣品請購單歷史檔案.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 樣品請購單一覽表_pb_Click(sender As Object, e As EventArgs) Handles 樣品請購單一覽表_pb.Click 樣品請購單一覽表_tsm.PerformClick() End Sub Private Sub 樣品請購單一覽表_lb_Click(sender As Object, e As EventArgs) Handles 樣品請購單一覽表_lb.Click 樣品請購單一覽表_tsm.PerformClick() 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 重登計時() : 重置() : 樣品採購單編輯.Show() : 樣品採購單編輯.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 樣品採購單生成_pb_Click(sender As Object, e As EventArgs) Handles 樣品採購單生成_pb.Click 樣品採購單生成_tsm.PerformClick() End Sub Private Sub 樣品採購單生成_lb_Click(sender As Object, e As EventArgs) Handles 樣品採購單生成_lb.Click 樣品採購單生成_tsm.PerformClick() 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 重登計時() : 重置() : 樣品採購單一級核准.Show() : 樣品採購單一級核准.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 樣品採購單一級核准_pb_Click(sender As Object, e As EventArgs) Handles 樣品採購單一級核准_pb.Click 樣品採購單一級核准_tsm.PerformClick() End Sub Private Sub 樣品採購單一級核准_lb_Click(sender As Object, e As EventArgs) Handles 樣品採購單一級核准_lb.Click 樣品採購單一級核准_tsm.PerformClick() 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 重登計時() : 重置() : 樣品採購單二級核准.Show() : 樣品採購單二級核准.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 樣品採購單二級核准_pb_Click(sender As Object, e As EventArgs) Handles 樣品採購單二級核准_pb.Click 樣品採購單二級核准_tsm.PerformClick() End Sub Private Sub 樣品採購單二級核准_lb_Click(sender As Object, e As EventArgs) Handles 樣品採購單二級核准_lb.Click 樣品採購單二級核准_tsm.PerformClick() End Sub Private Sub 樣品採購單一覽表_tsmClick(sender As Object, e As EventArgs) Handles 樣品採購單一覽表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 重登計時() : 重置() : 樣品採購單歷史檔案.Show() : 樣品採購單歷史檔案.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 樣品採購單一覽表_pb_Click(sender As Object, e As EventArgs) Handles 樣品採購單一覽表_pb.Click 樣品採購單一覽表_tsm.PerformClick() End Sub Private Sub 樣品採購單一覽表_lb_Click(sender As Object, e As EventArgs) Handles 樣品採購單一覽表_lb.Click 樣品採購單一覽表_tsm.PerformClick() 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 重登計時() : 重置() : 樣品採購單_對帳表.Show() : 樣品採購單_對帳表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 樣品採購驗收對帳表_pb_Click(sender As Object, e As EventArgs) Handles 樣品採購驗收對帳表_pb.Click 樣品採購驗收對帳表_tsm.PerformClick() End Sub Private Sub 樣品採購驗收對帳表_lb_Click(sender As Object, e As EventArgs) Handles 樣品採購驗收對帳表_lb.Click 樣品採購驗收對帳表_tsm.PerformClick() 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 重登計時() : 重置() : 樣品採購單驗收.Show() : 樣品採購單驗收.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 樣品來料驗收單_pb_Click(sender As Object, e As EventArgs) Handles 樣品來料驗收單_pb.Click 樣品來料驗收單_tsm.PerformClick() End Sub Private Sub 樣品來料驗收單_lb_Click(sender As Object, e As EventArgs) Handles 樣品來料驗收單_lb.Click 樣品來料驗收單_tsm.PerformClick() 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 重登計時() : 重置() : 樣品供應商資料管理.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 重登計時() : 重置() : 請購單申請.Show() : 請購單申請.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 請購單申請_pb_Click(sender As Object, e As EventArgs) Handles 請購單申請_pb.Click 請購單申請_tsm.PerformClick() End Sub Private Sub 請購單申請_lb_Click(sender As Object, e As EventArgs) Handles 請購單申請_lb.Click 請購單申請_tsm.PerformClick() 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 重登計時() : 重置() : 請購單核准.Show() : 請購單核准.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 請購單核準_pb_Click(sender As Object, e As EventArgs) Handles 請購單核準_pb.Click 請購單核準_tsm.PerformClick() End Sub Private Sub 請購單核準_lb_Click(sender As Object, e As EventArgs) Handles 請購單核準_lb.Click 請購單核準_tsm.PerformClick() 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 重登計時() : 重置() : 請購單歷史檔案.Show() : 請購單歷史檔案.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 請購一覽表_pb_Click(sender As Object, e As EventArgs) Handles 請購一覽表_pb.Click 請購一覽表_tsm.PerformClick() End Sub Private Sub 請購一覽表_lb_Click(sender As Object, e As EventArgs) Handles 請購一覽表_lb.Click 請購一覽表_tsm.PerformClick() 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 重登計時() : 重置() : 採購單一級核准.Close() : 採購單二級核准.Close() : 採購單編輯.Show() : 採購單編輯.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 採購單編輯_pb_Click(sender As Object, e As EventArgs) Handles 採購單編輯_pb.Click 採購單編輯_tsm.PerformClick() End Sub Private Sub 採購單編輯_lb_Click(sender As Object, e As EventArgs) Handles 採購單編輯_lb.Click 採購單編輯_tsm.PerformClick() 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 重登計時() : 重置() : 採購單二級核准.Close() : 採購單編輯.Close() : 採購單一級核准.Show() : 採購單一級核准_pb.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 採購單一級核准_Click(sender As Object, e As EventArgs) Handles 採購單一級核准_pb.Click 採購單一級核准_tsm.PerformClick() End Sub Private Sub 採購單一級核准_lb_Click(sender As Object, e As EventArgs) Handles 採購單一級核准_lb.Click 採購單一級核准_tsm.PerformClick() 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 重登計時() : 重置() : 採購單編輯.Close() : 採購單一級核准.Close() : 採購單二級核准.Show() : 採購單二級核准.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 採購單二級核准_pb_Click(sender As Object, e As EventArgs) Handles 採購單二級核准_pb.Click 採購單二級核准_tsm.PerformClick() End Sub Private Sub 採購單二級核准_lb_Click(sender As Object, e As EventArgs) Handles 採購單二級核准_lb.Click 採購單二級核准_tsm.PerformClick() 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 重登計時() : 重置() : 採購單歷史檔案.Show() : 採購單歷史檔案.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 採購單一覽表_pb_Click(sender As Object, e As EventArgs) Handles 採購單一覽表_pb.Click 採購單一覽表_tsm.PerformClick() End Sub Private Sub 採購單一覽表_lb_Click(sender As Object, e As EventArgs) Handles 採購單一覽表_lb.Click 採購單一覽表_tsm.PerformClick() 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 重登計時() : 重置() : 採購單驗收.Show() : 採購單驗收.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 入庫驗收單_pb_Click(sender As Object, e As EventArgs) Handles 入庫驗收單_pb.Click 入庫驗收單_tsm.PerformClick() End Sub Private Sub 入庫驗收單_lb_Click(sender As Object, e As EventArgs) Handles 入庫驗收單_lb.Click 入庫驗收單_tsm.PerformClick() 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 重登計時() : 重置() : 採購_對帳表.Show() : 採購_對帳表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 採購驗收對帳表_pb_Click(sender As Object, e As EventArgs) Handles 採購驗收對帳表_pb.Click 採購驗收對帳表_tsm.PerformClick() End Sub Private Sub 採購驗收對帳表_lb_Click(sender As Object, e As EventArgs) Handles 採購驗收對帳表_lb.Click 採購驗收對帳表_tsm.PerformClick() 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 重登計時() : 重置() : 採購單詢價.Show() : 採購單詢價.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 採購單詢價_pb_Click(sender As Object, e As EventArgs) Handles 採購單詢價_pb.Click 採購單詢價_tsm.PerformClick() End Sub Private Sub 採購單詢價_lb_Click(sender As Object, e As EventArgs) Handles 採購單詢價_lb.Click 採購單詢價_tsm.PerformClick() 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 重登計時() : 重置() : 供應商管理.Show() : 供應商管理.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 供應商管理_pb_Click(sender As Object, e As EventArgs) Handles 供應商管理_pb.Click 供應商管理_tsm.PerformClick() End Sub Private Sub 供應商管理_lb_Click(sender As Object, e As EventArgs) Handles 供應商管理_lb.Click 供應商管理_tsm.PerformClick() 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 重登計時() : 重置() : 物料採購統計表.Show() : 物料採購統計表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 物料採購統計表_pb_Click(sender As Object, e As EventArgs) Handles 物料採購統計表_pb.Click 物料採購統計表_tsm.PerformClick() End Sub Private Sub 物料採購統計表_lb_Click(sender As Object, e As EventArgs) Handles 物料採購統計表_lb.Click 物料採購統計表_tsm.PerformClick() 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 重登計時() : 重置() : 供應商商品單價設定.Show() : 供應商商品單價設定.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 供應商商品單價清單_pb_Click(sender As Object, e As EventArgs) Handles 供應商商品單價設定_pb.Click 供應商商品單價設定_tsm.PerformClick() End Sub Private Sub 供應商商品單價清單_lb_Click(sender As Object, e As EventArgs) Handles 供應商商品單價設定_lb.Click 供應商商品單價設定_tsm.PerformClick() End Sub '------------------------財務系統管理------------------------------------------------------------------------------------------------------------------------------------------------- Private Sub 應收帳款控制表_tsm_Click(sender As Object, e As EventArgs) Handles 應收帳款控制表_tsm.Click End Sub Private Sub 應付賬款控制表_tsm_Click(sender As Object, e As EventArgs) Handles 應付賬款控制表_tsm.Click End Sub Private Sub 支票收支申請_tsm_Click(sender As Object, e As EventArgs) Handles 支票收支申請_tsm.Click End Sub Private Sub 支票收支審核_tsm_Click(sender As Object, e As EventArgs) Handles 支票收支審核_tsm.Click End Sub Private Sub 支票收支核准_tsm_Click(sender As Object, e As EventArgs) Handles 支票收支核准_tsm.Click End Sub Private Sub 支票票務控制表_tsm_Click(sender As Object, e As EventArgs) Handles 支票票務控制表_tsm.Click End Sub Private Sub 現金流量表_tsm_Click(sender As Object, e As EventArgs) Handles 現金流量表_tsm.Click End Sub Private Sub 綜合損益表_tsm_Click(sender As Object, e As EventArgs) Handles 綜合損益表_tsm.Click End Sub Private Sub 權益變動表_tsm_Click(sender As Object, e As EventArgs) Handles 權益變動表_tsm.Click End Sub Private Sub 資產負載表_tsm_Click(sender As Object, e As EventArgs) Handles 資產負載表_tsm.Click 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 重登計時() : 重置() : 零用金支付申請.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 重登計時() : 重置() : 零用金支付審核.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 重登計時() : 重置() : 零用金支付核准.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 重登計時() : 重置() : 零用金支付單一覽表.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 重登計時() : 重置() : 零用金支付_對帳表.Show() : 零用金支付_對帳表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 樣品採購驗收對帳表_tsm1_Click(sender As Object, e As EventArgs) Handles 樣品採購驗收對帳表1_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 重登計時() : 重置() : 樣品採購單_對帳表.Show() : 樣品採購單_對帳表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 採購驗收對帳表_tsm1_Click(sender As Object, e As EventArgs) Handles 採購驗收對帳表1_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 重登計時() : 重置() : 採購_對帳表.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 重登計時() : 重置() : 營運成本收支單申請.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 重登計時() : 重置() : 營運成本收支單審核.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 重登計時() : 重置() : 營運成本收支單一覽表.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 重登計時() : 重置() : 營運成本收支單對帳表.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 重登計時() : 重置() : 營運成本收支決算表.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 重登計時() : 重置() : 匯率管理.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 重登計時() : 重置() : 會計科目管理.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 重登計時() : 重置() : 物料資料庫.Show() : 物料資料庫.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 物料資料庫_pb_Click(sender As Object, e As EventArgs) Handles 物料資料庫_pb.Click 物料資料庫_tsm.PerformClick() End Sub Private Sub 物料資料庫_lb_Click(sender As Object, e As EventArgs) Handles 物料資料庫_lb.Click 物料資料庫_tsm.PerformClick() 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 重登計時() : 重置() : 系統分區控制 = False : 倉儲分區控制表.Show() : 倉儲分區控制表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 倉儲分區控制表_pb_Click(sender As Object, e As EventArgs) Handles 倉儲分區控制表_pb.Click 倉儲分區控制表_tsm.PerformClick() End Sub Private Sub 倉儲分區控制表_lb_Click(sender As Object, e As EventArgs) Handles 倉儲分區控制表_lb.Click 倉儲分區控制表_tsm.PerformClick() End Sub Private Sub 倉儲控制表_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲控制表_tsm.Click 倉儲分區選擇.ShowDialog() For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 重登計時() : 重置() : 倉儲控制表.Show() : 倉儲控制表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 倉儲控制表_pb_Click(sender As Object, e As EventArgs) Handles 倉儲控制表_pb.Click 倉儲控制表_tsm.PerformClick() End Sub Private Sub 倉儲控制表_lb_Click(sender As Object, e As EventArgs) Handles 倉儲控制表_lb.Click 倉儲控制表_tsm.PerformClick() End Sub Private Sub 倉儲入庫驗收_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲入庫驗收_tsm.Click 倉儲分區選擇.ShowDialog() For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 重登計時() : 重置() : 倉儲入庫驗收.Show() : 倉儲入庫驗收.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 倉儲入庫驗收_pb_Click(sender As Object, e As EventArgs) Handles 倉儲入庫驗收_pb.Click 倉儲入庫驗收_tsm.PerformClick() End Sub Private Sub 倉儲入庫驗收_lb_Click(sender As Object, e As EventArgs) Handles 倉儲入庫驗收_lb.Click 倉儲入庫驗收_tsm.PerformClick() End Sub Private Sub 物料轉倉申請_tsm_Click(sender As Object, e As EventArgs) Handles 物料轉倉申請_tsm.Click 倉儲分區選擇.ShowDialog() For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 重登計時() : 重置() : 物料轉倉申請.Show() : 物料轉倉申請.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 物料轉倉申請_pb_Click(sender As Object, e As EventArgs) Handles 物料轉倉申請_pb.Click 物料轉倉申請_tsm.PerformClick() End Sub Private Sub 物料轉倉申請_lb_Click(sender As Object, e As EventArgs) Handles 物料轉倉申請_lb.Click 物料轉倉申請_tsm.PerformClick() End Sub Private Sub 物料轉倉審核_tsm_Click(sender As Object, e As EventArgs) Handles 物料轉倉審核_tsm.Click 倉儲分區選擇.ShowDialog() For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 重登計時() : 重置() : 物料轉倉審核.Show() : 物料轉倉審核.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 物料轉倉審核_pb_Click(sender As Object, e As EventArgs) Handles 物料轉倉審核_pb.Click 物料轉倉審核_tsm.PerformClick() End Sub Private Sub 物料轉倉審核_lb_Click(sender As Object, e As EventArgs) Handles 物料轉倉審核_lb.Click 物料轉倉審核_tsm.PerformClick() End Sub Private Sub 物料轉倉出庫_tsm_Click(sender As Object, e As EventArgs) Handles 物料轉倉出庫_tsm.Click 倉儲分區選擇.ShowDialog() For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 重登計時() : 重置() : 物料轉倉出庫.Show() : 物料轉倉出庫.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 物料轉倉出庫_pb_Click(sender As Object, e As EventArgs) Handles 物料轉倉出庫_pb.Click 物料轉倉出庫_tsm.PerformClick() End Sub Private Sub 物料轉倉出庫_lb_Click(sender As Object, e As EventArgs) Handles 物料轉倉出庫_lb.Click 物料轉倉出庫_tsm.PerformClick() End Sub Private Sub 倉儲領料申請_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲領料申請_tsm.Click 倉儲分區選擇.ShowDialog() For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 重登計時() : 重置() : 倉儲領料申請.Show() : 倉儲領料申請.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 倉儲領料申請_pb_Click(sender As Object, e As EventArgs) Handles 倉儲領料申請_pb.Click 倉儲領料申請_tsm.PerformClick() End Sub Private Sub 倉儲領料申請_lb_Click(sender As Object, e As EventArgs) Handles 倉儲領料申請_lb.Click 倉儲領料申請_tsm.PerformClick() End Sub Private Sub 倉儲領料審核_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲領料審核_tsm.Click 倉儲分區選擇.ShowDialog() For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 重登計時() : 重置() : 倉儲領料審核.Show() : 倉儲領料審核.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 倉儲領料審核_pb_Click(sender As Object, e As EventArgs) Handles 倉儲領料審核_pb.Click 倉儲領料審核_tsm.PerformClick() End Sub Private Sub 倉儲領料審核_lb_Click(sender As Object, e As EventArgs) Handles 倉儲領料審核_lb.Click 倉儲領料審核_tsm.PerformClick() End Sub Private Sub 倉儲領料出庫_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲領料出庫_tsm.Click 倉儲分區選擇.ShowDialog() For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 重登計時() : 重置() : 倉儲領料出庫.Show() : 倉儲領料出庫.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 倉儲領料出庫_pb_Click(sender As Object, e As EventArgs) Handles 倉儲領料出庫_pb.Click 倉儲領料出庫_tsm.PerformClick() End Sub Private Sub 倉儲領料出庫_lb_Click(sender As Object, e As EventArgs) Handles 倉儲領料出庫_lb.Click 倉儲領料出庫_tsm.PerformClick() End Sub Private Sub 物料退庫_tsm_Click(sender As Object, e As EventArgs) Handles 物料退庫_tsm.Click 倉儲分區選擇.ShowDialog() For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 重登計時() : 重置() : 物料退庫.Show() : 物料退庫.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 物料退庫_pb_Click(sender As Object, e As EventArgs) Handles 物料退庫_pb.Click 物料退庫_tsm.PerformClick() End Sub Private Sub 物料退庫_lb_Click(sender As Object, e As EventArgs) Handles 物料退庫_lb.Click 物料退庫_tsm.PerformClick() 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 重登計時() : 重置() : 倉儲單據狀態看板.Show() : 倉儲單據狀態看板.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 倉儲單據狀態看板_pb_Click(sender As Object, e As EventArgs) Handles 倉儲單據狀態看板_pb.Click 倉儲單據狀態看板_tsm.PerformClick() End Sub Private Sub 倉儲單據狀態看板_lb_Click(sender As Object, e As EventArgs) Handles 倉儲單據狀態看板_lb.Click 倉儲單據狀態看板_tsm.PerformClick() 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 重登計時() : 重置() : 盤盈盤損申請.Show() : 盤盈盤損申請.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 盤盈盤損申請_pb_Click(sender As Object, e As EventArgs) Handles 盤盈盤損申請_pb.Click 盤盈盤損申請_tsm.PerformClick() End Sub Private Sub 盤盈盤損申請_lb_Click(sender As Object, e As EventArgs) Handles 盤盈盤損申請_lb.Click 盤盈盤損申請_tsm.PerformClick() 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 重登計時() : 重置() : 盤盈盤損審核.Show() : 盤盈盤損審核.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 盤盈盤損審核_pb_Click(sender As Object, e As EventArgs) Handles 盤盈盤損審核_pb.Click 盤盈盤損審核_tsm.PerformClick() End Sub Private Sub 盤盈盤損審核_lb_Click(sender As Object, e As EventArgs) Handles 盤盈盤損審核_lb.Click 盤盈盤損審核_tsm.PerformClick() 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 重登計時() : 重置() : 人員ID卡系統配置設定.Show() : 人員ID卡系統配置設定.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 人員ID卡系統配置設定_pb_Click(sender As Object, e As EventArgs) Handles 人員ID卡系統配置設定_pb.Click 人員ID卡系統配置設定_tsm.PerformClick() End Sub Private Sub 人員ID卡系統配置設定_lb_Click(sender As Object, e As EventArgs) Handles 人員ID卡系統配置設定_lb.Click 人員ID卡系統配置設定_tsm.PerformClick() 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 重登計時() : 重置() : 系統組織結構與權限設定.Show() : 系統組織結構與權限設定.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 系統組織結構與權限設定_pb_Click(sender As Object, e As EventArgs) Handles 系統組織結構與權限設定_pb.Click 系統組織結構與權限設定_tsm.PerformClick() End Sub Private Sub 系統組織結構與權限設定_lb_Click(sender As Object, e As EventArgs) Handles 系統組織結構與權限設定_lb.Click 系統組織結構與權限設定_tsm.PerformClick() 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 重登計時() : 重置() : 公司組織結構.Show() : 公司組織結構.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 公司組織結構_pb_Click(sender As Object, e As EventArgs) Handles 公司組織結構_pb.Click 公司組織結構_tsm.PerformClick() End Sub Private Sub 公司組織結構_lb_Click(sender As Object, e As EventArgs) Handles 公司組織結構_lb.Click 公司組織結構_tsm.PerformClick() End Sub Private Sub LINE使用者管理表_tsm_Click(sender As Object, e As EventArgs) Handles LINE使用者管理表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 重登計時() : 重置() : LINE_使用者管理表.Show() : LINE_使用者管理表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub LINE通知測試表_tsm_Click(sender As Object, e As EventArgs) Handles LINE通知測試表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 重登計時() : 重置() : LINE_通知測試表.ShowDialog() : LINE_通知測試表.BringToFront() End Sub Private Sub LINE權限一覽表_Click(sender As Object, e As EventArgs) Handles LINE權限一覽表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 重登計時() : 重置() : LINE_權限一覽表.ShowDialog() : LINE_權限一覽表.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 重登計時() : 重置() : 工程材料表.Show() : 工程材料表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 工程材料表_pb_Click(sender As Object, e As EventArgs) Handles 工程材料表_pb.Click 工程材料表_tsm.PerformClick() End Sub Private Sub 工程材料表_lb_Click(sender As Object, e As EventArgs) Handles 工程材料表_lb.Click 工程材料表_tsm.PerformClick() 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 重登計時() : 重置() : 系統分區控制 = False : 合約驗收單.Show() : 合約驗收單.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 合約驗收單1_pb_Click(sender As Object, e As EventArgs) Handles 合約驗收單1_pb.Click 合約驗收單1_tsm.PerformClick() End Sub Private Sub 合約驗收單1_lb_Click(sender As Object, e As EventArgs) Handles 合約驗收單1_lb.Click 合約驗收單1_tsm.PerformClick() 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 重登計時() : 重置() : 系統分區控制 = False : 合約驗收控制表.Show() : 合約驗收控制表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 合約驗收控制表1_pb_Click(sender As Object, e As EventArgs) Handles 合約驗收控制表1_pb.Click 合約驗收控制表1_tsm.PerformClick() End Sub Private Sub 合約驗收控制表1_lb_Click(sender As Object, e As EventArgs) Handles 合約驗收控制表1_lb.Click 合約驗收控制表1_tsm.PerformClick() 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 重登計時() : 重置() : 系統分區控制 = False : 合約結案控制表.Show() : 合約結案控制表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 合約結案控制表1_pb_Click(sender As Object, e As EventArgs) Handles 合約結案控制表1_pb.Click 合約結案控制表1_tsm.PerformClick() End Sub Private Sub 合約結案控制表1_lb_Click(sender As Object, e As EventArgs) Handles 合約結案控制表1_lb.Click 合約結案控制表1_tsm.PerformClick() 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 重登計時() : 重置() : 工程進度表.Show() : 工程進度表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 工程進度表_pb_Click(sender As Object, e As EventArgs) Handles 工程進度表_pb.Click 工程進度表_tsm.PerformClick() End Sub Private Sub 工程進度表_lb_Click(sender As Object, e As EventArgs) Handles 工程進度表_lb.Click 工程進度表_tsm.PerformClick() 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 重登計時() : 重置() : 派工人數紀錄表.Show() : 派工人數紀錄表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 派工人數紀錄表_pb_Click(sender As Object, e As EventArgs) Handles 派工人數紀錄表_pb.Click 派工人數紀錄表_tsm.PerformClick() End Sub Private Sub 派工人數紀錄表_lb_Click(sender As Object, e As EventArgs) Handles 派工人數紀錄表_lb.Click 派工人數紀錄表_tsm.PerformClick() 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 重登計時() : 重置() : 工程日報表.Show() : 工程日報表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 工程日報表編輯_pb_Click(sender As Object, e As EventArgs) Handles 工程日報表編輯_pb.Click 工程日報表編輯_tsm.PerformClick() End Sub Private Sub 工程日報表編輯_lb_Click(sender As Object, e As EventArgs) Handles 工程日報表編輯_lb.Click 工程日報表編輯_tsm.PerformClick() 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 重登計時() : 重置() : 工程客變單.Show() : 工程客變單.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 工程客變單_pb_Click(sender As Object, e As EventArgs) Handles 工程客變單_pb.Click 工程客變單_tsm.PerformClick() End Sub Private Sub 工程客變單_lb_Click(sender As Object, e As EventArgs) Handles 工程客變單_lb.Click 工程客變單_tsm.PerformClick() 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 重登計時() : 重置() : 工程維修單.Show() : 工程維修單.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 工程維修單_pb_Click(sender As Object, e As EventArgs) Handles 工程維修單_pb.Click 工程維修單_tsm.PerformClick() End Sub Private Sub 工程維修單_lb_Click(sender As Object, e As EventArgs) Handles 工程維修單_lb.Click 工程維修單_tsm.PerformClick() 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 重登計時() : 重置() : 系統分區控制 = True : 倉儲分區控制表.Show() : 倉儲分區控制表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 工程分區控制表1_pb_Click(sender As Object, e As EventArgs) Handles 工程分區控制表1_pb.Click 工程分區控制表1_tsm.PerformClick() End Sub Private Sub 工程分區控制表1_lb_Click(sender As Object, e As EventArgs) Handles 工程分區控制表1_lb.Click 工程分區控制表1_tsm.PerformClick() 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 重登計時() : 重置() : FTP資料夾管理.Show() : FTP資料夾管理.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub FTP資料夾管理_pb_Click(sender As Object, e As EventArgs) Handles FTP資料夾管理_pb.Click FTP資料夾管理_tsm.PerformClick() End Sub Private Sub FTP資料夾管理_lb_Click(sender As Object, e As EventArgs) Handles FTP資料夾管理_lb.Click FTP資料夾管理_tsm.PerformClick() 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 重登計時() : 重置() : 系統執行檔版本管理.Show() : 系統執行檔版本管理.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 系統執行檔版本管理_pb_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理_pb.Click 系統執行檔版本管理_tsm.PerformClick() End Sub Private Sub 系統執行檔版本管理_lb_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理_lb.Click 系統執行檔版本管理_tsm.PerformClick() 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 重登計時() : 重置() : 系統使用者管理.Show() : 系統使用者管理.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 系統使用者管理_pb_Click(sender As Object, e As EventArgs) Handles 系統使用者管理_pb.Click 系統使用者管理_tsm.PerformClick() End Sub Private Sub 系統使用者管理_lb_Click(sender As Object, e As EventArgs) Handles 系統使用者管理_lb.Click 系統使用者管理_tsm.PerformClick() 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 重登計時() : 重置() : 系統權限預設表.Show() : 系統權限預設表.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 系統權限預設表_pb_Click(sender As Object, e As EventArgs) Handles 系統權限預設表_pb.Click 系統權限預設表_tsm.PerformClick() End Sub Private Sub 系統權限預設表_lb_Click(sender As Object, e As EventArgs) Handles 系統權限預設表_lb.Click 系統權限預設表_tsm.PerformClick() 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 重登計時() : 重置() : 系統開發用共享文件.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 重登計時() : 重置() : 簽名檔管理.Show() : 簽名檔管理.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 簽名檔管理_pb_Click(sender As Object, e As EventArgs) Handles 簽名檔管理_pb.Click 簽名檔管理_tsm.PerformClick() End Sub Private Sub 簽名檔管理_lb_Click(sender As Object, e As EventArgs) Handles 簽名檔管理_lb.Click 簽名檔管理_tsm.PerformClick() 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 重登計時() : 重置() : 系統對應電腦註冊.Show() : 系統對應電腦註冊.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 系統對應電腦註冊_pb_Click(sender As Object, e As EventArgs) Handles 系統對應電腦註冊_pb.Click 系統對應電腦註冊_tsm.PerformClick() End Sub Private Sub 系統對應電腦註冊_lb_Click(sender As Object, e As EventArgs) Handles 系統對應電腦註冊_lb.Click 系統對應電腦註冊_tsm.PerformClick() 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 重登計時() : 重置() : 系統通用變數管理.Show() : 系統通用變數管理.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 系統通用變數管理_pb_Click(sender As Object, e As EventArgs) Handles 系統通用變數管理_pb.Click 系統通用變數管理_tsm.PerformClick() End Sub Private Sub 系統通用變數管理_lb_Click(sender As Object, e As EventArgs) Handles 系統通用變數管理_lb.Click 系統通用變數管理_tsm.PerformClick() 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 重登計時() : 重置() : 系統編碼規則.Show() : 系統編碼規則.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 系統編碼規則_pb_Click(sender As Object, e As EventArgs) Handles 系統編碼規則_pb.Click 系統編碼規則_tsm.PerformClick() End Sub Private Sub 系統編碼規則_lb_Click(sender As Object, e As EventArgs) Handles 系統編碼規則_lb.Click 系統編碼規則_tsm.PerformClick() 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 重登計時() : 重置() : 系統組織架構設定.Show() : 系統組織架構設定.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 系統組織架構設定_pb_Click(sender As Object, e As EventArgs) Handles 系統組織架構設定_pb.Click 系統組織架構設定_tsm.PerformClick() End Sub Private Sub 系統組織架構設定_lb_Click(sender As Object, e As EventArgs) Handles 系統組織架構設定_lb.Click 系統組織架構設定_tsm.PerformClick() 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 重登計時() : 重置() : 部門權限設定.Show() : 部門權限設定.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 部門權限設定_pb_Click(sender As Object, e As EventArgs) Handles 部門權限設定_pb.Click 部門權限設定_tsm.PerformClick() End Sub Private Sub 部門權限設定_lb_Click(sender As Object, e As EventArgs) Handles 部門權限設定_lb.Click 部門權限設定_tsm.PerformClick() 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 重登計時() : 重置() : 聯絡函最高主管核准.Show() : 聯絡函最高主管核准.BringToFront() : 虛擬桌面隱藏() End Sub Private Sub 聯絡函最高主管核准_pb_Click(sender As Object, e As EventArgs) Handles 聯絡函最高主管核准_pb.Click 聯絡函最高主管核准_tsm.PerformClick() End Sub Private Sub 聯絡函最高主管核准_lb_Click(sender As Object, e As EventArgs) Handles 聯絡函最高主管核准_lb.Click 聯絡函最高主管核准_tsm.PerformClick() End Sub '------------------------測試與其他------------------------------------------------------------------------------------------------------------------------------------------------- Private Sub Calculator_bt_Click(sender As Object, e As EventArgs) Handles Calculator_bt.Click Shell("calc") 'PA = "" : 計算機.Show() : 計算機.BringToFront() End Sub Private Sub TEST_FORM_tsm_Click(sender As Object, e As EventArgs) Handles TEST_FORM_tsm.Click 重登計時() : 重置() : 測試介面.Show() : 測試介面.BringToFront() End Sub Private Sub 開發模板庫ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 開發模板庫_tsm.Click 開發模板庫.Show() : 開發模板庫.BringToFront() End Sub '------------------------代辦事項通知------------------------------------------------------------------------------------------------------------------------------------------------- Private Sub 更新_bt_Click(sender As Object, e As EventArgs) Handles 更新_bt.Click Set_請購單() : Set_詢價單1() : Set_採購核准11() : Set_採購核准12() : Set_部門聯絡函_未審() : Set_部門聯絡函_未收() : Set_部門聯絡函_未執行() : Set_部門聯絡函_未驗收() Set_合約未請款1() : Set_合約未請款2() : Set_合約未請款3() : Set_合約未請款4() : Set_合約未請款5() : Set_合約未驗收() : Set_合約未指定主管() : Set_工程進度表未開() Set_合約未設利潤() : Set_合約未放行() : Set_合約保固單未簽() : Set_合約驗收單未簽回() : Set_合約未簽回() : Set_報價未簽回() : Set_報價未完成() If 代辦事項_tv.Nodes.Count = 0 Then : Else Dim 逆行 As Integer = 代辦事項_tv.Nodes.Count - 1 : For i As Integer = 0 To 代辦事項_tv.Nodes.Count - 1 : 代辦事項_tv.Nodes.RemoveAt(逆行) : 逆行 -= 1 : Next End If : NN1 = 0 代辦事項_tv.Nodes.Add(對話框(4) & 聯絡函_未審_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1 代辦事項_tv.Nodes.Add(對話框(5) & 聯絡函_未收_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1 代辦事項_tv.Nodes.Add(對話框(6) & 聯絡函_未執行_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1 代辦事項_tv.Nodes.Add(對話框(7) & 聯絡函_未驗收_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1 If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(16) & 合約預估利潤_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(18) & 報價未完成_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(17) & 合約未放行_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(19) & 報價未簽回_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(20) & 合約未簽回_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(8) & 合約請款1_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(9) & 合約請款2_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(10) & 合約請款3_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(11) & 合約請款4_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If If CC(123) = True Then : 代辦事項_tv.Nodes.Add(對話框(12) & 合約請款5_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : End If If CC(8) = True Then : 代辦事項_tv.Nodes.Add(對話框(14) & 合約未指定主管_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : End If If CC(8) = True Then : 代辦事項_tv.Nodes.Add(對話框(15) & 未開工程進度表_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : End If If CC(8) = True Then : 代辦事項_tv.Nodes.Add(對話框(13) & 合約未驗收_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : End If If CC(8) = True Then : 代辦事項_tv.Nodes.Add(對話框(21) & 驗收未簽回_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : End If If CC(8) = True Then : 代辦事項_tv.Nodes.Add(對話框(22) & 保固未簽回_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : End If If CC(34) = True Then : 代辦事項_tv.Nodes.Add(對話框(0) & 請購單_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Teal : NN1 += 1 : End If If CC(20) = True Then : 代辦事項_tv.Nodes.Add(對話框(1) & 詢價單_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Teal : NN1 += 1 : End If If CC(73) = True Then : 代辦事項_tv.Nodes.Add(對話框(2) & 採購核准11_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Teal : NN1 += 1 : End If If CC(37) = True Then : 代辦事項_tv.Nodes.Add(對話框(3) & 採購核准12_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Teal : NN1 += 1 : End If End Sub Private Sub 代辦清單重置() 聯絡函_未審_dgv.Visible = False : 聯絡函_未收_dgv.Visible = False : 聯絡函_未執行_dgv.Visible = False : 聯絡函_未驗收_dgv.Visible = False 合約請款1_dgv.Visible = False : 合約請款2_dgv.Visible = False : 合約請款3_dgv.Visible = False : 合約請款4_dgv.Visible = False : 合約請款5_dgv.Visible = False 合約未指定主管_dgv.Visible = False : 未開工程進度表_dgv.Visible = False : 合約未驗收_dgv.Visible = False : 請購單_dgv.Visible = False : 詢價單_dgv.Visible = False 採購核准11_dgv.Visible = False : 採購核准12_dgv.Visible = False : 合約預估利潤_dgv.Visible = False : 合約未放行_dgv.Visible = False : 報價未完成_dgv.Visible = False 報價未簽回_dgv.Visible = False : 合約未簽回_dgv.Visible = False : 驗收未簽回_dgv.Visible = False : 保固未簽回_dgv.Visible = False End Sub Private Sub Cancel_bt_Click(sender As Object, e As EventArgs) Handles Cancel_bt.Click If 視窗1_pl.Visible = False Then : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : Else : 視窗1_pl.Visible = False : 視窗1_pl.SendToBack() : End If : 代辦清單重置() End Sub Private Sub 代辦事項_tv_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles 代辦事項_tv.AfterSelect Dim X座標 As Integer = Me.Size.Width / 2 - 300 Select Case (e.Node.Text) Case 對話框(4) & 聯絡函_未審_dgv.Rows.Count : 標題_lb.Text = 對話框(4) & 聯絡函_未審_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 聯絡函_未審_dgv.Visible = True Case 對話框(5) & 聯絡函_未收_dgv.Rows.Count : 標題_lb.Text = 對話框(5) & 聯絡函_未收_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 聯絡函_未收_dgv.Visible = True Case 對話框(6) & 聯絡函_未執行_dgv.Rows.Count : 標題_lb.Text = 對話框(6) & 聯絡函_未執行_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 聯絡函_未執行_dgv.Visible = True Case 對話框(7) & 聯絡函_未驗收_dgv.Rows.Count : 標題_lb.Text = 對話框(7) & 聯絡函_未驗收_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 聯絡函_未驗收_dgv.Visible = True Case 對話框(16) & 合約預估利潤_dgv.Rows.Count : 標題_lb.Text = 對話框(16) & 合約預估利潤_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約預估利潤_dgv.Visible = True Case 對話框(18) & 報價未完成_dgv.Rows.Count : 標題_lb.Text = 對話框(18) & 報價未完成_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 報價未完成_dgv.Visible = True Case 對話框(17) & 合約未放行_dgv.Rows.Count : 標題_lb.Text = 對話框(17) & 合約未放行_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約未放行_dgv.Visible = True Case 對話框(19) & 報價未簽回_dgv.Rows.Count : 標題_lb.Text = 對話框(19) & 報價未簽回_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 報價未簽回_dgv.Visible = True Case 對話框(20) & 合約未簽回_dgv.Rows.Count : 標題_lb.Text = 對話框(20) & 合約未簽回_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約未簽回_dgv.Visible = True Case 對話框(8) & 合約請款1_dgv.Rows.Count : 標題_lb.Text = 對話框(8) & 合約請款1_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款1_dgv.Visible = True Case 對話框(9) & 合約請款2_dgv.Rows.Count : 標題_lb.Text = 對話框(9) & 合約請款2_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款2_dgv.Visible = True Case 對話框(10) & 合約請款3_dgv.Rows.Count : 標題_lb.Text = 對話框(10) & 合約請款3_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款3_dgv.Visible = True Case 對話框(11) & 合約請款4_dgv.Rows.Count : 標題_lb.Text = 對話框(11) & 合約請款4_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款4_dgv.Visible = True Case 對話框(12) & 合約請款5_dgv.Rows.Count : 標題_lb.Text = 對話框(12) & 合約請款5_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款5_dgv.Visible = True Case 對話框(14) & 合約未指定主管_dgv.Rows.Count : 標題_lb.Text = 對話框(14) & 合約未指定主管_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約未指定主管_dgv.Visible = True Case 對話框(15) & 未開工程進度表_dgv.Rows.Count : 標題_lb.Text = 對話框(15) & 未開工程進度表_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 未開工程進度表_dgv.Visible = True Case 對話框(13) & 合約未驗收_dgv.Rows.Count : 標題_lb.Text = 對話框(13) & 合約未驗收_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約未驗收_dgv.Visible = True Case 對話框(21) & 驗收未簽回_dgv.Rows.Count : 標題_lb.Text = 對話框(21) & 驗收未簽回_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 驗收未簽回_dgv.Visible = True Case 對話框(22) & 保固未簽回_dgv.Rows.Count : 標題_lb.Text = 對話框(22) & 保固未簽回_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 保固未簽回_dgv.Visible = True Case 對話框(0) & 請購單_dgv.Rows.Count : 標題_lb.Text = 對話框(0) & 請購單_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 請購單_dgv.Visible = True Case 對話框(1) & 詢價單_dgv.Rows.Count : 標題_lb.Text = 對話框(1) & 詢價單_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 詢價單_dgv.Visible = True Case 對話框(2) & 採購核准11_dgv.Rows.Count : 標題_lb.Text = 對話框(2) & 採購核准11_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 採購核准11_dgv.Visible = True Case 對話框(3) & 採購核准12_dgv.Rows.Count : 標題_lb.Text = 對話框(3) & 採購核准12_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 採購核准12_dgv.Visible = True End Select End Sub '----------------------視窗滑鼠拖曳功能--------------------------------------------------------------------------------------------------------- Dim OldX, OldY As Long : Dim drag As Boolean Private Sub 視窗1_pl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗1_pl.MouseDown If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If End Sub Private Sub 視窗1_pl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗1_pl.MouseMove If drag Then : 視窗1_pl.Left = 視窗1_pl.Left + e.X - OldX : 視窗1_pl.Top = 視窗1_pl.Top + e.Y - OldY : End If End Sub Private Sub 視窗1_pl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗1_pl.MouseUp drag = False End Sub Friend Class GanttChart Inherits Global.HX_PGS_ERP_SYS.GanttChart End Class End Class