Option Explicit On Imports System.IO Imports System.Text Imports CefSharp Imports CefSharp.WinForms Imports Telerik.WinControls.UI Imports Telerik.WinControls.UI.Localization Imports Telerik.WinForms.RichTextEditor Imports System.Globalization Imports Telerik.Windows.Documents.Spreadsheet.Expressions.Functions Public Class HX_PGS_ERP_SYS Dim 對話框(35), 已選捷徑(100), 數量(20) As String Dim sysnud As String Dim 系統關閉, 捷徑關閉, 無設定, 待辦選擇 As Boolean Dim NSD As Integer = 0 Dim RI As Integer = -1 Dim SK As String = "要查找的 KEY" Dim Str As String = Application.StartupPath 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 : MyMod.虛擬桌面開啟() End Sub Private m_ChildFormNumber As Integer Private Sub Set_庫存查詢() Dim ds16 As New DataSet : 庫存查詢_dgv.DataSource = Nothing : ds16.Clear() : 庫存查詢_dgv.AllowUserToAddRows = False If 新版_ch.Checked = True Then : SQL_庫存查詢() : Else : SQL_庫存查詢1() : End If : NU1 = 0 da.Fill(ds16) : 庫存查詢_dgv.DataSource = ds16.Tables(0) : conn.Close() Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8, 物料規格, 內容, 內容1, 內容2, 內容3, 內容4, 內容5, 內容6, 內容7, 內容8 As String : 簡易庫存_tv.Nodes.Clear() Dim 主項數量 As Integer = -1 : Dim 主項數量1 As Integer = -1 : Dim 主項數量2 As Integer = -1 : Dim 主項數量3 As Integer = -1 Dim 主項數量4 As Integer = -1 : Dim 主項數量5 As Integer = -1 : Dim 主項數量6 As Integer = -1 : Dim 主項數量7 As Integer = -1 For i As Integer = 0 To 庫存查詢_dgv.Rows.Count - 1 : 物料規格 = "" : 庫存查詢_dgv("選擇", i).Value = False If 庫存查詢_dgv.Rows(i).Cells("A1").Value.ToString <> "" Then : ZA1 = 庫存查詢_dgv.Rows(i).Cells("A1").Value.ToString : 物料規格 = ZA1 : End If If 庫存查詢_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then ZA2 = 庫存查詢_dgv.Rows(i).Cells("A2").Value.ToString : If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If If 庫存查詢_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then ZA3 = 庫存查詢_dgv.Rows(i).Cells("A3").Value.ToString : If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If If 庫存查詢_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then ZA4 = 庫存查詢_dgv.Rows(i).Cells("A4").Value.ToString : If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If If 庫存查詢_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then ZA5 = 庫存查詢_dgv.Rows(i).Cells("A5").Value.ToString : If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If If 庫存查詢_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then ZA6 = 庫存查詢_dgv.Rows(i).Cells("A6").Value.ToString : If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If If 庫存查詢_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then ZA7 = 庫存查詢_dgv.Rows(i).Cells("A7").Value.ToString : If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If If 庫存查詢_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then ZA8 = 庫存查詢_dgv.Rows(i).Cells("A8").Value.ToString : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If 庫存查詢_dgv.Rows(i).Cells("規格").Value = 物料規格 If 內容 <> 庫存查詢_dgv("倉名", i).Value.ToString Then 簡易庫存_tv.Nodes.Add(庫存查詢_dgv("倉名", i).Value.ToString) : 內容 = 庫存查詢_dgv("倉名", i).Value.ToString : 主項數量 += 1 : 主項數量1 = -1 : 內容1 = "" If 深色風格 = False Then 簡易庫存_tv.Nodes(主項數量).ForeColor = Color.Black Else 簡易庫存_tv.Nodes(主項數量).ForeColor = Color.Wheat End If End If If 新版_ch.Checked = True Then If 內容1 <> 庫存查詢_dgv("第一層", i).Value.ToString Then 簡易庫存_tv.Nodes(主項數量).Nodes.Add(庫存查詢_dgv("第一層", i).Value.ToString) : 內容1 = 庫存查詢_dgv("第一層", i).Value.ToString 主項數量1 += 1 : 主項數量2 = -1 : 內容2 = "" If 深色風格 = False Then 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).ForeColor = Color.Black Else 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).ForeColor = Color.Wheat End If End If If 內容2 <> 庫存查詢_dgv("第二層", i).Value.ToString Then 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes.Add(庫存查詢_dgv("第二層", i).Value.ToString) : 內容2 = 庫存查詢_dgv("第二層", i).Value.ToString 主項數量2 += 1 : 主項數量3 = -1 : 內容3 = "" If 深色風格 = False Then 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).ForeColor = Color.Black Else 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).ForeColor = Color.Wheat End If End If If 內容3 <> 庫存查詢_dgv("第三層", i).Value.ToString Then 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes.Add(庫存查詢_dgv("第三層", i).Value.ToString) : 內容3 = 庫存查詢_dgv("第三層", i).Value.ToString 主項數量3 += 1 : 主項數量4 = -1 : 內容4 = "" If 深色風格 = False Then 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).ForeColor = Color.Black Else 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).ForeColor = Color.Wheat End If End If If 內容4 <> 庫存查詢_dgv("第四層", i).Value.ToString Then 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes.Add(庫存查詢_dgv("第四層", i).Value.ToString) 內容4 = 庫存查詢_dgv("第四層", i).Value.ToString : 主項數量4 += 1 : 主項數量5 = -1 : 內容5 = "" If 深色風格 = False Then 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).ForeColor = Color.Black Else 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).ForeColor = Color.Wheat End If End If If 內容5 <> 庫存查詢_dgv("第五層", i).Value.ToString Then 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).Nodes.Add(庫存查詢_dgv("第五層", i).Value.ToString) 內容5 = 庫存查詢_dgv("第五層", i).Value.ToString : 主項數量5 += 1 : 主項數量6 = -1 : 內容6 = "" If 深色風格 = False Then 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).Nodes(主項數量5).ForeColor = Color.Black Else 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).Nodes(主項數量5).ForeColor = Color.Wheat End If End If If 內容6 <> 庫存查詢_dgv("品名", i).Value.ToString Then 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).Nodes(主項數量5).Nodes.Add(庫存查詢_dgv("品名", i).Value.ToString) 內容6 = 庫存查詢_dgv("品名", i).Value.ToString : 主項數量6 += 1 : 主項數量7 = -1 ': 內容7 = "><" If 深色風格 = False Then 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).Nodes(主項數量5).Nodes(主項數量6).ForeColor = Color.Black Else 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).Nodes(主項數量5).Nodes(主項數量6).ForeColor = Color.Wheat End If End If 內容7 = 庫存查詢_dgv("規格", i).Value.ToString & " / " & 系統語言字典("H506-158-" & 語言) & " : [ " & Strings.Format(CInt(庫存查詢_dgv("庫存", i).Value.ToString), "#,##0") & " ]" 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).Nodes(主項數量5).Nodes(主項數量6).Nodes.Add(內容7) : 主項數量7 += 1 If 深色風格 = False Then 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).Nodes(主項數量5).Nodes(主項數量6).Nodes(主項數量7).ForeColor = Color.Blue Else 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).Nodes(主項數量5).Nodes(主項數量6).Nodes(主項數量7).ForeColor = Color.LightBlue End If Else If 庫存查詢_dgv.Rows(i).Cells("主項").Value.ToString = "管材" Then : 庫存查詢_dgv.Rows(i).Cells("主項").Value = 系統語言字典("G000-185-" & 語言) ElseIf 庫存查詢_dgv.Rows(i).Cells("主項").Value.ToString = "電線" Then : 庫存查詢_dgv.Rows(i).Cells("主項").Value = 系統語言字典("G000-186-" & 語言) ElseIf 庫存查詢_dgv.Rows(i).Cells("主項").Value.ToString = "電料" Then : 庫存查詢_dgv.Rows(i).Cells("主項").Value = 系統語言字典("G000-187-" & 語言) ElseIf 庫存查詢_dgv.Rows(i).Cells("主項").Value.ToString = "槽架" Then : 庫存查詢_dgv.Rows(i).Cells("主項").Value = 系統語言字典("G000-188-" & 語言) ElseIf 庫存查詢_dgv.Rows(i).Cells("主項").Value.ToString = "建材" Then : 庫存查詢_dgv.Rows(i).Cells("主項").Value = 系統語言字典("G000-189-" & 語言) ElseIf 庫存查詢_dgv.Rows(i).Cells("主項").Value.ToString = "五金" Then : 庫存查詢_dgv.Rows(i).Cells("主項").Value = 系統語言字典("G000-190-" & 語言) ElseIf 庫存查詢_dgv.Rows(i).Cells("主項").Value.ToString = "設備" Then : 庫存查詢_dgv.Rows(i).Cells("主項").Value = 系統語言字典("G000-191-" & 語言) ElseIf 庫存查詢_dgv.Rows(i).Cells("主項").Value.ToString = "工具" Then : 庫存查詢_dgv.Rows(i).Cells("主項").Value = 系統語言字典("G000-192-" & 語言) ElseIf 庫存查詢_dgv.Rows(i).Cells("主項").Value.ToString = "日用" Then : 庫存查詢_dgv.Rows(i).Cells("主項").Value = 系統語言字典("G000-193-" & 語言) ElseIf 庫存查詢_dgv.Rows(i).Cells("主項").Value.ToString = "其他" Then : 庫存查詢_dgv.Rows(i).Cells("主項").Value = 系統語言字典("G000-194-" & 語言) End If If 內容1 <> 庫存查詢_dgv("主項", i).Value.ToString Then 簡易庫存_tv.Nodes(主項數量).Nodes.Add(庫存查詢_dgv("主項", i).Value.ToString) : 內容1 = 庫存查詢_dgv("主項", i).Value.ToString 主項數量1 += 1 : 主項數量2 = -1 : 內容2 = "" If 深色風格 = False Then 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).ForeColor = Color.Black Else 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).ForeColor = Color.Wheat End If End If If 內容2 <> 庫存查詢_dgv("群組", i).Value.ToString Then 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes.Add(庫存查詢_dgv("群組", i).Value.ToString) : 內容2 = 庫存查詢_dgv("群組", i).Value.ToString 主項數量2 += 1 : 主項數量3 = -1 : 內容3 = "" If 深色風格 = False Then 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).ForeColor = Color.Black Else 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).ForeColor = Color.Wheat End If End If If 內容3 <> 庫存查詢_dgv("品名", i).Value.ToString Then 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes.Add(庫存查詢_dgv("品名", i).Value.ToString) 內容3 = 庫存查詢_dgv("品名", i).Value.ToString : 主項數量3 += 1 : 主項數量4 = -1 ': 內容7 = "><" If 深色風格 = False Then 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).ForeColor = Color.Black Else 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).ForeColor = Color.Wheat End If End If 內容4 = 庫存查詢_dgv("規格", i).Value.ToString & " / " & 系統語言字典("H506-158-" & 語言) & " : [ " & Strings.Format(CInt(庫存查詢_dgv("庫存", i).Value.ToString), "#,##0") & " ]" 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes.Add(內容4) : 主項數量4 += 1 If 深色風格 = False Then 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).ForeColor = Color.Blue Else 簡易庫存_tv.Nodes(主項數量).Nodes(主項數量1).Nodes(主項數量2).Nodes(主項數量3).Nodes(主項數量4).ForeColor = Color.LightBlue End If End If Next End Sub Private Sub UncheckChildNodes(parentNode As TreeNode) For Each childNode As TreeNode In parentNode.Nodes ' 取消勾選子節點 childNode.Checked = False ' 遞迴取消子節點的子節點的勾選 UncheckChildNodes(childNode) Next End Sub Private Sub 簡易庫存_tv_NodeMouseClick(sender As Object, e As TreeNodeMouseClickEventArgs) Handles 簡易庫存_tv.NodeMouseClick If e.Node.Level = 0 Then ' 檢查是否為第一層節點 For Each rootNode As TreeNode In 簡易庫存_tv.Nodes : If Not rootNode.Equals(e.Node) Then : UncheckChildNodes(rootNode) : End If : Next ' 取消其他根節點的子節點的勾選 For Each node As TreeNode In 簡易庫存_tv.Nodes : If node IsNot e.Node AndAlso node.IsExpanded Then : node.Collapse() : End If : Next ' 收起所有先前展開的第二層節點 For i As Integer = 0 To 庫存查詢_dgv.Rows.Count - 1 : 庫存查詢_dgv("選擇", i).Value = False : Next : NU1 = 0 End If '--------是否能啟動Checked-------------------------------------------------------------------------------------------------------- If 新版_ch.Checked = True Then Select Case e.Node.Level : Case 0, 7 : e.Node.Checked = Not e.Node.Checked : Case 1, 2, 3, 4, 5, 6 : e.Node.Checked = False : End Select Else Select Case e.Node.Level : Case 0, 4 : e.Node.Checked = Not e.Node.Checked : Case 1, 2, 3 : e.Node.Checked = False : End Select End If '--------滑鼠點擊後展開-------------------------------------------------------------------------------------------------------- If e.Node.Bounds.Contains(e.Location) Then : If e.Node.IsExpanded Then : e.Node.Collapse() : Else : e.Node.Expand() : End If : End If If e.Node.Text = "NA" Then : ExpandAllChildren1(e.Node) : Else : e.Node.Expand() : End If : If e.Node.Level = 6 Then : ExpandAllChildren(e.Node) : Else : e.Node.Expand() : End If '--------點擊後回頭找到DGV中的對應資料-------------------------------------------------------------------------------------------------------- If 新版_ch.Checked = True Then If e.Node.Level = 7 Then : Dim SA7 As String = "" : Dim SA6 As String = "" : Dim SA5 As String = "" : Dim SA4 As String = "" Dim SA3 As String = "" : Dim SA2 As String = "" : Dim SA1 As String = "" : Dim SA8 As String = e.Node.Text Dim parentNode As TreeNode = e.Node For i As Integer = 0 To 6 : parentNode = parentNode.Parent Select Case i Case 0 : SA7 = parentNode.Text : Case 1 : SA6 = parentNode.Text : Case 2 : SA5 = parentNode.Text : Case 3 : SA4 = parentNode.Text Case 4 : SA3 = parentNode.Text : Case 5 : SA2 = parentNode.Text : Case 6 : SA1 = parentNode.Text End Select Next For Each row As DataGridViewRow In 庫存查詢_dgv.Rows If row.Cells("倉名").Value IsNot Nothing AndAlso row.Cells("倉名").Value.ToString() = SA1 AndAlso row.Cells("第一層").Value IsNot Nothing AndAlso row.Cells("第一層").Value.ToString() = SA2 AndAlso row.Cells("第二層").Value IsNot Nothing AndAlso row.Cells("第二層").Value.ToString() = SA3 AndAlso row.Cells("第三層").Value IsNot Nothing AndAlso row.Cells("第三層").Value.ToString() = SA4 AndAlso row.Cells("第四層").Value IsNot Nothing AndAlso row.Cells("第四層").Value.ToString() = SA5 AndAlso row.Cells("第五層").Value IsNot Nothing AndAlso row.Cells("第五層").Value.ToString() = SA6 AndAlso row.Cells("品名").Value IsNot Nothing AndAlso row.Cells("品名").Value.ToString() = SA7 AndAlso row.Cells("規格").Value IsNot Nothing AndAlso row.Cells("規格").Value.ToString() & " / " & 系統語言字典("H506-158-" & 語言) & " : [ " & Strings.Format(CInt(row.Cells("庫存").Value.ToString()), "#,##0") & " ]" = SA8 Then PA2 = 庫存查詢_dgv("料號原則", row.Index).Value.ToString : 物料圖片() If 庫存查詢_dgv("選擇", row.Index).Value = False Then 庫存查詢_dgv("選擇", row.Index).Value = True : NU1 += 1 Else 庫存查詢_dgv("選擇", row.Index).Value = False : NU1 -= 1 End If : Exit For End If Next ElseIf e.Node.Level = 6 Then : Dim SA7 As String = e.Node.Text : Dim SA6 As String = "" : Dim SA5 As String = "" : Dim SA4 As String = "" Dim SA3 As String = "" : Dim SA2 As String = "" : Dim SA1 As String = "" Dim parentNode As TreeNode = e.Node For i As Integer = 0 To 5 : parentNode = parentNode.Parent Select Case i Case 0 : SA6 = parentNode.Text : Case 1 : SA5 = parentNode.Text : Case 2 : SA4 = parentNode.Text : Case 3 : SA3 = parentNode.Text Case 4 : SA2 = parentNode.Text : Case 5 : SA1 = parentNode.Text End Select Next For Each row As DataGridViewRow In 庫存查詢_dgv.Rows If row.Cells("倉名").Value IsNot Nothing AndAlso row.Cells("倉名").Value.ToString() = SA1 AndAlso row.Cells("第一層").Value IsNot Nothing AndAlso row.Cells("第一層").Value.ToString() = SA2 AndAlso row.Cells("第二層").Value IsNot Nothing AndAlso row.Cells("第二層").Value.ToString() = SA3 AndAlso row.Cells("第三層").Value IsNot Nothing AndAlso row.Cells("第三層").Value.ToString() = SA4 AndAlso row.Cells("第四層").Value IsNot Nothing AndAlso row.Cells("第四層").Value.ToString() = SA5 AndAlso row.Cells("第五層").Value IsNot Nothing AndAlso row.Cells("第五層").Value.ToString() = SA6 AndAlso row.Cells("品名").Value IsNot Nothing AndAlso row.Cells("品名").Value.ToString() = SA7 Then PA2 = 庫存查詢_dgv("料號原則", row.Index).Value.ToString : 物料圖片() : Exit For End If Next Else : 圖片檔3_pb.Image = Nothing : End If Else If e.Node.Level = 4 Then : Dim SA5 As String = e.Node.Text : Dim SA4 As String = "" : Dim SA3 As String = "" : Dim SA2 As String = "" : Dim SA1 As String = "" Dim parentNode As TreeNode = e.Node For i As Integer = 0 To 3 : parentNode = parentNode.Parent Select Case i Case 0 : SA4 = parentNode.Text : Case 1 : SA3 = parentNode.Text : Case 2 : SA2 = parentNode.Text : Case 3 : SA1 = parentNode.Text End Select Next For Each row As DataGridViewRow In 庫存查詢_dgv.Rows If row.Cells("倉名").Value IsNot Nothing AndAlso row.Cells("倉名").Value.ToString() = SA1 AndAlso row.Cells("主項").Value IsNot Nothing AndAlso row.Cells("主項").Value.ToString() = SA2 AndAlso row.Cells("群組").Value IsNot Nothing AndAlso row.Cells("群組").Value.ToString() = SA3 AndAlso row.Cells("品名").Value IsNot Nothing AndAlso row.Cells("品名").Value.ToString() = SA4 AndAlso row.Cells("規格").Value IsNot Nothing AndAlso row.Cells("規格").Value.ToString() & " / " & 系統語言字典("H506-158-" & 語言) & " : [ " & Strings.Format(CInt(row.Cells("庫存").Value.ToString()), "#,##0") & " ]" = SA5 Then PA2 = 庫存查詢_dgv("料號原則", row.Index).Value.ToString : 物料圖片() If 庫存查詢_dgv("選擇", row.Index).Value = False Then 庫存查詢_dgv("選擇", row.Index).Value = True : NU1 += 1 Else 庫存查詢_dgv("選擇", row.Index).Value = False : NU1 -= 1 End If : Exit For End If Next ElseIf e.Node.Level = 3 Then : Dim SA4 As String = e.Node.Text : Dim SA3 As String = "" : Dim SA2 As String = "" : Dim SA1 As String = "" Dim parentNode As TreeNode = e.Node For i As Integer = 0 To 2 : parentNode = parentNode.Parent Select Case i Case 0 : SA3 = parentNode.Text : Case 1 : SA2 = parentNode.Text : Case 2 : SA1 = parentNode.Text End Select Next For Each row As DataGridViewRow In 庫存查詢_dgv.Rows If row.Cells("倉名").Value IsNot Nothing AndAlso row.Cells("倉名").Value.ToString() = SA1 AndAlso row.Cells("主項").Value IsNot Nothing AndAlso row.Cells("主項").Value.ToString() = SA2 AndAlso row.Cells("群組").Value IsNot Nothing AndAlso row.Cells("群組").Value.ToString() = SA3 AndAlso row.Cells("品名").Value IsNot Nothing AndAlso row.Cells("品名").Value.ToString() = SA4 Then PA2 = 庫存查詢_dgv("料號原則", row.Index).Value.ToString : 物料圖片() : Exit For End If Next Else : 圖片檔3_pb.Image = Nothing : End If End If End Sub Private Sub 物料圖片() 圖片檔3_pb.Image = Nothing : SQL_物料圖庫_圖檔讀取一() While dr.Read() = True Dim unused As Byte() = New Byte(-1) {} Dim bytes As Byte() = DirectCast(dr.Item("圖檔"), Byte()) Dim oStream As New MemoryStream(bytes) 圖片檔3_pb.Image = Bitmap.FromStream(oStream) End While : conn.Close() : 圖片檔3_pb.SizeMode = 4 : PA2 = "" End Sub Private Sub ExpandAllChildren(parentNode As TreeNode) For Each childNode As TreeNode In parentNode.Nodes : childNode.Expand() : ExpandAllChildren(childNode) : Next End Sub Private Sub ExpandAllChildren1(parentNode As TreeNode) For Each childNode As TreeNode In parentNode.Nodes : If parentNode.Text = "NA" Then : childNode.Expand() : ExpandAllChildren1(childNode) : End If : Next End Sub Private Sub 倉儲領料申請_bt_Click(sender As Object, e As EventArgs) Handles 倉儲領料申請_bt.Click If NU1 = 0 Then : Else : 桌面倉儲領料導入.Show() : End If End Sub Private Sub 新版_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 新版_ch.Click 新版_ch.Checked = True : 舊版_ch.Checked = False : Set_庫存查詢() End Sub Private Sub 舊版_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 舊版_ch.Click 新版_ch.Checked = False : 舊版_ch.Checked = True : Set_庫存查詢() 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() 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 合約預估利潤_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約預估利潤_dgv.CellClick If e.RowIndex = -1 Then : Else 待辦進入 = 合約預估利潤_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : Cancel_bt.PerformClick() : 合約報價單_tsm.PerformClick() 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 報價未完成_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 報價未完成_dgv.CellClick If e.RowIndex = -1 Then : Else 待辦進入 = 報價未完成_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : Cancel_bt.PerformClick() : 合約報價單_tsm.PerformClick() 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 合約未放行_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約未放行_dgv.CellClick If e.RowIndex = -1 Then : Else 待辦進入 = 合約未放行_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : Cancel_bt.PerformClick() If CC(107) = False Then : 合約報價單_tsm.PerformClick() : Else : 合約報價單審核_tsm.PerformClick() : End If 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 報價未簽回_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 報價未簽回_dgv.CellClick If e.RowIndex = -1 Then : Else 待辦進入 = 報價未簽回_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : PB = "報價與合約" : 待辦事項連接_兩項.ShowDialog() : Cancel_bt.PerformClick() If PB = "A" Then : 合約報價單_tsm.PerformClick() : Else : 合約文件簽回存檔_tsm.PerformClick() : End If : PB = "" 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 合約未簽回_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約未簽回_dgv.CellClick If e.RowIndex = -1 Then : Else 待辦進入 = 合約未簽回_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : PB = "報價與合約" : 待辦事項連接_兩項.ShowDialog() : Cancel_bt.PerformClick() If PB = "A" Then : 合約報價單_tsm.PerformClick() : Else : 合約文件簽回存檔_tsm.PerformClick() : End If : PB = "" 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 合約未指定主管_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約未指定主管_dgv.CellClick If e.RowIndex = -1 Then : Else 待辦進入 = 合約未指定主管_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : Cancel_bt.PerformClick() : 合約驗收控制表_tsm.PerformClick() 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 合約未驗收_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約未驗收_dgv.CellClick If e.RowIndex = -1 Then : Else 待辦進入 = 合約未驗收_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : Cancel_bt.PerformClick() If CC(126) = True Then : 合約驗收單_tsm.PerformClick() : Else : 合約驗收單1_tsm.PerformClick() : End If 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 驗收未簽回_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 驗收未簽回_dgv.CellClick If e.RowIndex = -1 Then : Else 待辦進入 = 驗收未簽回_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString If CC(61) = True Then PB = "工程與驗收" : 待辦事項連接_兩項.ShowDialog() : Cancel_bt.PerformClick() If PB = "A" Then : 合約驗收單_tsm.PerformClick() : Else : 合約文件簽回存檔_tsm.PerformClick() : End If : PB = "" Else : 合約驗收單1_tsm.PerformClick() : End If 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 保固未簽回_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 保固未簽回_dgv.CellClick If e.RowIndex = -1 Then : Else 待辦進入 = 保固未簽回_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString If CC(127) = True Then PB = "保固未簽回" : 待辦事項連接_三項.ShowDialog() : Cancel_bt.PerformClick() If PB = "A" Then : 合約保固書_tsm.PerformClick() : ElseIf PB = "B" Then : 合約結案控制表_tsm.PerformClick() : Else : 合約文件簽回存檔_tsm.PerformClick() : End If : PB = "" Else : 合約結案控制表1_tsm.PerformClick() : End If 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 合約請款5_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約請款5_dgv.CellClick If e.RowIndex = -1 Then : Else 待辦進入 = 合約請款5_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : Cancel_bt.PerformClick() : 合約請款單_tsm.PerformClick() 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 合約請款4_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約請款4_dgv.CellClick If e.RowIndex = -1 Then : Else 待辦進入 = 合約請款4_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : Cancel_bt.PerformClick() : 合約請款單_tsm.PerformClick() 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 合約請款3_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約請款3_dgv.CellClick If e.RowIndex = -1 Then : Else 待辦進入 = 合約請款3_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : Cancel_bt.PerformClick() : 合約請款單_tsm.PerformClick() 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 合約請款2_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約請款2_dgv.CellClick If e.RowIndex = -1 Then : Else 待辦進入 = 合約請款2_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : Cancel_bt.PerformClick() : 合約請款單_tsm.PerformClick() 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 合約請款1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約請款1_dgv.CellClick If e.RowIndex = -1 Then : Else 待辦進入 = 合約請款1_dgv.Rows(e.RowIndex).Cells("合約編號").Value.ToString : Cancel_bt.PerformClick() : 合約請款單_tsm.PerformClick() 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 聯絡函_派車_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 聯絡函_派車_dgv.CellClick If e.RowIndex = -1 Then : Else : 待辦進入 = "派車" : Cancel_bt.PerformClick() : 聯絡函部門主管審核_tsm.PerformClick() : 待辦進入 = "" : 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 聯絡函_請假_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 聯絡函_請假_dgv.CellClick If e.RowIndex = -1 Then : Else : 待辦進入 = "請假" : Cancel_bt.PerformClick() : 聯絡函部門主管審核_tsm.PerformClick() : 待辦進入 = "" : 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 聯絡函_未驗收_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 聯絡函_未驗收_dgv.CellClick If e.RowIndex = -1 Then : Else : 待辦進入 = "未驗收" : Cancel_bt.PerformClick() : 部門聯絡函一覽表_tsm.PerformClick() : 待辦進入 = "" : 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 聯絡函_未執行_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 聯絡函_未執行_dgv.CellClick If e.RowIndex = -1 Then : Else : 待辦進入 = "未執行" : Cancel_bt.PerformClick() : 部門聯絡函一覽表_tsm.PerformClick() : 待辦進入 = "" : 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 聯絡函_未收_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 聯絡函_未收_dgv.CellClick If e.RowIndex = -1 Then : Else : 待辦進入 = "未收" : Cancel_bt.PerformClick() : 聯絡函部門主管審核_tsm.PerformClick() : 待辦進入 = "" : 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 聯絡函_未審_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 聯絡函_未審_dgv.CellClick If e.RowIndex = -1 Then : Else : 待辦進入 = "未審" : Cancel_bt.PerformClick() : 聯絡函部門主管審核_tsm.PerformClick() : 待辦進入 = "" : 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 請購單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 請購單_dgv.CellClick If e.RowIndex = -1 Then : Else 待辦進入 = 請購單_dgv.Rows(e.RowIndex).Cells("NO.").Value.ToString : Cancel_bt.PerformClick() : 請購單核準_tsm.PerformClick() End If 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 詢價單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 詢價單_dgv.CellClick If e.RowIndex = -1 Then : Else 待辦進入 = 詢價單_dgv.Rows(e.RowIndex).Cells("NO.").Value.ToString : Cancel_bt.PerformClick() : 採購單詢價_tsm.PerformClick() End If 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 採購核准11_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 採購核准11_dgv.CellClick If e.RowIndex = -1 Then : Else 待辦進入 = 採購核准11_dgv.Rows(e.RowIndex).Cells("NO.").Value.ToString : Cancel_bt.PerformClick() : 採購單一級核准_tsm.PerformClick() End If 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 採購核准12_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 採購核准12_dgv.CellClick If e.RowIndex = -1 Then : Else 待辦進入 = 採購核准12_dgv.Rows(e.RowIndex).Cells("NO.").Value.ToString : Cancel_bt.PerformClick() : 採購單二級核准_tsm.PerformClick() End If End Sub Private Sub Set_財務支付單未核准() Dim ds17 As New DataSet : 支付單未准_dgv.DataSource = Nothing : ds17.Clear() : 支付單未准_dgv.AllowUserToAddRows = False SQL_財務支付單未核准() : da.Fill(ds17) : 支付單未准_dgv.DataSource = ds17.Tables(0) : conn.Close() 支付單未准_dgv.Columns(0).FillWeight = 80 : 支付單未准_dgv.Columns(1).FillWeight = 45 : 支付單未准_dgv.Columns(2).FillWeight = 100 For i As Integer = 3 To 支付單未准_dgv.Columns.Count - 1 支付單未准_dgv.Columns(i).Visible = False Next End Sub Private Sub 財務支付單未核准_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 支付單未准_dgv.CellClick If e.RowIndex = -1 Then : Else 待辦進入 = 支付單未准_dgv.Rows(e.RowIndex).Cells("流水號").Value.ToString : 待辦進入1 = 支付單未准_dgv.Rows(e.RowIndex).Cells("支付日期").Value.ToString Cancel_bt.PerformClick() : 財務支付_主管審核_tsm.PerformClick() End If End Sub Private Sub Set_供應商資料_未審核() Dim ds18 As New DataSet : 銀行資料修改_dgv.DataSource = Nothing : ds18.Clear() : 銀行資料修改_dgv.AllowUserToAddRows = False SQL_供應商資料未審核() : da.Fill(ds18) : 銀行資料修改_dgv.DataSource = ds18.Tables(0) : conn.Close() 銀行資料修改_dgv.Columns(0).FillWeight = 100 : 銀行資料修改_dgv.Columns(1).FillWeight = 150 For i As Integer = 2 To 銀行資料修改_dgv.Columns.Count - 1 銀行資料修改_dgv.Columns(i).Visible = False Next End Sub Private Sub 載入車輛清單() Dim ds1 As New DataSet 車輛動態_dgv.DataSource = Nothing : ds1.Clear() 車輛動態_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 車輛動態_dgv.ColumnHeadersHeight = 40 : 車輛動態_dgv.AllowUserToAddRows = False : 車輛動態_dgv.RowTemplate.Height = 25 SQL_車輛動態_清單() da.Fill(ds1) : 車輛動態_dgv.DataSource = ds1.Tables(0) : conn.Close() '車牌號碼 狀態 借車時間 還車時間 申請人 196 197 198 199 200 車輛動態_dgv.Columns("車輛編號").Visible = False 車輛動態_dgv.Columns(表頭(196)).FillWeight = 80 : 車輛動態_dgv.Columns("車輛品牌").Visible = False : 車輛動態_dgv.Columns(表頭(197)).FillWeight = 80 車輛動態_dgv.Columns("外出地點").Visible = False : 車輛動態_dgv.Columns(表頭(198)).FillWeight = 90 : 車輛動態_dgv.Columns(表頭(199)).FillWeight = 90 車輛動態_dgv.Columns(表頭(200)).FillWeight = 70 車輛動態_dgv.Columns(表頭(196)).ReadOnly = True : 車輛動態_dgv.Columns(表頭(197)).ReadOnly = True : 車輛動態_dgv.Columns(表頭(198)).ReadOnly = True 車輛動態_dgv.Columns(表頭(199)).ReadOnly = True : 車輛動態_dgv.Columns(表頭(200)).ReadOnly = True For i As Integer = 0 To 車輛動態_dgv.Rows.Count - 1 If 系統語言 = "繁體中文" Then : 車輛動態_dgv.Rows(i).Cells(表頭(197)).Value = "在公司" Else : 車輛動態_dgv.Rows(i).Cells(表頭(197)).Value = "Di perusahaan" End If 車輛動態_dgv.Rows(i).Cells("外出地點").Value = "" : 車輛動態_dgv.Rows(i).Cells(表頭(198)).Value = "" 車輛動態_dgv.Rows(i).Cells(表頭(199)).Value = "" : 車輛動態_dgv.Rows(i).Cells(表頭(200)).Value = "" Next End Sub Private Sub 載入車輛動態清單() Dim ds1 As New DataSet 車輛外出明細清單_dgv.DataSource = Nothing : ds1.Clear() 車輛外出明細清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 車輛外出明細清單_dgv.ColumnHeadersHeight = 35 : 車輛外出明細清單_dgv.AllowUserToAddRows = False : 車輛外出明細清單_dgv.RowTemplate.Height = 45 Dim 現在時間 As DateTime = DateTime.Now : Dim 現主時 As String = 現在時間.ToString("yyyyMMddHHmmss") SQL_車輛明細_清單(現主時) da.Fill(ds1) : 車輛外出明細清單_dgv.DataSource = ds1.Tables(0) : conn.Close() '車牌號碼 狀態 借車時間 還車時間 申請人 196 197 198 199 200 For i As Integer = 0 To 車輛外出明細清單_dgv.Rows.Count - 1 For j As Integer = 0 To 車輛動態_dgv.Rows.Count - 1 If 車輛外出明細清單_dgv.Rows(i).Cells("車輛編號").Value.ToString = 車輛動態_dgv.Rows(j).Cells("車輛編號").Value.ToString Then If 車輛動態_dgv.Rows(j).Cells(表頭(197)).Value.ToString = "在公司" Or 車輛動態_dgv.Rows(j).Cells(表頭(197)).Value.ToString = "Di perusahaan" Then If 系統語言 = "繁體中文" Then 車輛動態_dgv.Rows(j).Cells(表頭(197)).Value = "外出" Else 車輛動態_dgv.Rows(j).Cells(表頭(197)).Value = "Keluar" End If 車輛動態_dgv.Rows(j).Cells("外出地點").Value = 車輛外出明細清單_dgv.Rows(i).Cells("外出地點").Value.ToString Dim 借車時間 As String = 車輛外出明細清單_dgv.Rows(i).Cells("借車時間").Value.ToString : Dim 格式 As String = "yyyyMMddHHmmss" Dim 轉換後的時間 As DateTime = DateTime.ParseExact(借車時間, 格式, CultureInfo.InvariantCulture) 車輛動態_dgv.Rows(j).Cells(表頭(198)).Value = Strings.Format(轉換後的時間, "HH:mm:ss") Dim 還車時間 As String = 車輛外出明細清單_dgv.Rows(i).Cells("還車時間").Value.ToString 轉換後的時間 = DateTime.ParseExact(還車時間, 格式, CultureInfo.InvariantCulture) 車輛動態_dgv.Rows(j).Cells(表頭(199)).Value = Strings.Format(轉換後的時間, "HH:mm:ss") 車輛動態_dgv.Rows(j).Cells(表頭(200)).Value = 車輛外出明細清單_dgv.Rows(i).Cells("申請人").Value.ToString Exit For End If End If Next Next End Sub Private Sub 載入人員清單() Dim ds1 As New DataSet 人員動態_dgv.DataSource = Nothing : ds1.Clear() 人員動態_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 人員動態_dgv.ColumnHeadersHeight = 40 : 人員動態_dgv.AllowUserToAddRows = False : 人員動態_dgv.RowTemplate.Height = 25 SQL_人員動態_清單() da.Fill(ds1) : 人員動態_dgv.DataSource = ds1.Tables(0) : conn.Close() 人員動態_dgv.Columns(表頭(191)).Visible = False : 人員動態_dgv.Columns(0).FillWeight = 150 人員動態_dgv.Columns(表頭(192)).ReadOnly = True : 人員動態_dgv.Columns(表頭(190)).ReadOnly = True : 人員動態_dgv.Columns(表頭(193)).ReadOnly = True 人員動態_dgv.Columns(表頭(194)).ReadOnly = True : 人員動態_dgv.Columns(表頭(195)).ReadOnly = True For i As Integer = 0 To 人員動態_dgv.Rows.Count - 1 人員動態_dgv.Rows(i).Cells(表頭(193)).Value = "" : 人員動態_dgv.Rows(i).Cells(表頭(194)).Value = "" If 系統語言 = "繁體中文" Then : 人員動態_dgv.Rows(i).Cells(表頭(192)).Value = "在公司" Else : 人員動態_dgv.Rows(i).Cells(表頭(192)).Value = "Di perusahaan" End If 人員動態_dgv.Rows(i).Cells(表頭(195)).Value = "" Next End Sub Private Sub 載入人員動態清單() Dim ds1 As New DataSet 人員外出明細清單_dgv.DataSource = Nothing : ds1.Clear() 人員外出明細清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 人員外出明細清單_dgv.ColumnHeadersHeight = 35 : 人員外出明細清單_dgv.AllowUserToAddRows = False : 人員外出明細清單_dgv.RowTemplate.Height = 45 Dim 現在時間 As DateTime = DateTime.Now : Dim 現主時 As String = 現在時間.ToString("yyyyMMddHHmmss") '姓名 AS [姓名.], 帳號 AS [帳號.] , 帳號 AS [動態] , 帳號 AS [開始時間] , 帳號 AS [結束時間], 帳號 AS [外出地點] 190 191 192 193 194 195 SQL_人員明細_清單(現主時) da.Fill(ds1) : 人員外出明細清單_dgv.DataSource = ds1.Tables(0) : conn.Close() For i As Integer = 0 To 人員外出明細清單_dgv.Rows.Count - 1 If 人員外出明細清單_dgv.Rows(i).Cells("第一").Value.ToString <> "" And 人員外出明細清單_dgv.Rows(i).Cells("外出地點").Value.ToString = "" Then 人員外出明細清單_dgv.Rows(i).Cells("外出地點").Value = "在公司" : 人員外出明細清單_dgv.Rows(i).Cells("人員狀態").Value = "上班中" End If For j As Integer = 0 To 人員動態_dgv.Rows.Count - 1 If 人員外出明細清單_dgv.Rows(i).Cells("帳號").Value.ToString = 人員動態_dgv.Rows(j).Cells(表頭(191)).Value.ToString Then If 人員動態_dgv.Rows(j).Cells(表頭(192)).Value.ToString = "在公司" Or 人員動態_dgv.Rows(j).Cells(表頭(192)).Value.ToString = "Di perusahaan" Then If 系統語言 = "繁體中文" Then 人員動態_dgv.Rows(j).Cells(表頭(192)).Value = 人員外出明細清單_dgv.Rows(i).Cells("人員狀態").Value.ToString Else If 人員外出明細清單_dgv.Rows(i).Cells("人員狀態").Value.ToString = "請假" Then : 人員動態_dgv.Rows(j).Cells(表頭(192)).Value = "Cuti" ElseIf 人員外出明細清單_dgv.Rows(i).Cells("人員狀態").Value.ToString = "外出" Then : 人員動態_dgv.Rows(j).Cells(表頭(192)).Value = "Keluar" ElseIf 人員外出明細清單_dgv.Rows(i).Cells("人員狀態").Value.ToString = "上班中" Then : 人員動態_dgv.Rows(j).Cells(表頭(192)).Value = "Working" : End If End If If 系統語言 = "繁體中文" Then : 人員動態_dgv.Rows(j).Cells(表頭(195)).Value = 人員外出明細清單_dgv.Rows(i).Cells("外出地點").Value.ToString Else : If 人員外出明細清單_dgv.Rows(i).Cells("外出地點").Value.ToString = "在公司" Then : 人員動態_dgv.Rows(j).Cells(表頭(195)).Value = "IN HX" : End If End If If 人員外出明細清單_dgv.Rows(i).Cells("人員狀態").Value.ToString = "外出" Then Dim 開始時間 As String = 人員外出明細清單_dgv.Rows(i).Cells("開始時間").Value.ToString : Dim 格式 As String = "yyyyMMddHHmmss" Dim 轉換後的時間 As DateTime = DateTime.ParseExact(開始時間, 格式, CultureInfo.InvariantCulture) 人員動態_dgv.Rows(j).Cells(表頭(193)).Value = Strings.Format(轉換後的時間, "HH:mm:ss") Dim 結束時間 As String = 人員外出明細清單_dgv.Rows(i).Cells("結束時間").Value.ToString 轉換後的時間 = DateTime.ParseExact(結束時間, 格式, CultureInfo.InvariantCulture) 人員動態_dgv.Rows(j).Cells(表頭(194)).Value = Strings.Format(轉換後的時間, "HH:mm:ss") ElseIf 人員外出明細清單_dgv.Rows(i).Cells("人員狀態").Value.ToString = "上班中" Then 人員動態_dgv.Rows(j).Cells(表頭(193)).Value = 人員外出明細清單_dgv.Rows(i).Cells("第一").Value.ToString If 人員外出明細清單_dgv.Rows(i).Cells("第六").Value.ToString <> "" Then 人員動態_dgv.Rows(j).Cells(表頭(194)).Value = 人員外出明細清單_dgv.Rows(i).Cells("第六").Value.ToString ElseIf 人員外出明細清單_dgv.Rows(i).Cells("第五").Value.ToString <> "" Then 人員動態_dgv.Rows(j).Cells(表頭(194)).Value = 人員外出明細清單_dgv.Rows(i).Cells("第五").Value.ToString ElseIf 人員外出明細清單_dgv.Rows(i).Cells("第四").Value.ToString <> "" Then 人員動態_dgv.Rows(j).Cells(表頭(194)).Value = 人員外出明細清單_dgv.Rows(i).Cells("第四").Value.ToString ElseIf 人員外出明細清單_dgv.Rows(i).Cells("第三").Value.ToString <> "" Then 人員動態_dgv.Rows(j).Cells(表頭(194)).Value = 人員外出明細清單_dgv.Rows(i).Cells("第三").Value.ToString ElseIf 人員外出明細清單_dgv.Rows(i).Cells("第二").Value.ToString <> "" Then 人員動態_dgv.Rows(j).Cells(表頭(194)).Value = 人員外出明細清單_dgv.Rows(i).Cells("第二").Value.ToString End If End If If 人員動態_dgv.Rows(j).Cells(表頭(194)).Value.ToString <> "" Then If 人員動態_dgv.Rows(j).Cells(表頭(192)).Value.ToString = "上班中" Or 人員動態_dgv.Rows(j).Cells(表頭(192)).Value.ToString = "Working" Then If 系統語言 = "繁體中文" Then 人員動態_dgv.Rows(j).Cells(表頭(192)).Value = "已下班" Else 人員動態_dgv.Rows(j).Cells(表頭(192)).Value = "Pulang" End If : 人員動態_dgv.Rows(j).Cells(表頭(195)).Value = "" End If End If End If End If Next Next For k As Integer = 人員動態_dgv.Rows.Count - 1 To 0 Step -1 If 人員動態_dgv.Rows(k).Cells(表頭(192)).Value.ToString = "在公司" Or 人員動態_dgv.Rows(k).Cells(表頭(192)).Value.ToString = "Di perusahaan" Then 人員動態_dgv.Rows.RemoveAt(k) End If Next 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 = 150 : 員工合約_dgv.Columns(1).FillWeight = 150 : 員工合約_dgv.Columns(2).FillWeight = 80 End Sub Private Sub Set_公告清單() Dim ds16 As New DataSet 公告_dgv.DataSource = Nothing : ds16.Clear() : 公告_dgv.AllowUserToAddRows = False SQL_公告清單01() : da.Fill(ds16) : 公告_dgv.DataSource = ds16.Tables(0) : conn.Close() 跑馬燈_tb.Text = "" For i As Integer = 0 To 公告_dgv.Rows.Count - 1 If 系統語言 = "繁體中文" Then 跑馬燈_tb.Text &= i + 1 & "、" & 公告_dgv.Rows(i).Cells("中文").Value.ToString & "　　　" Else 跑馬燈_tb.Text &= i + 1 & "、" & 公告_dgv.Rows(i).Cells("印尼文").Value.ToString & "　　　" End If Next If 系統語言 = "繁體中文" Then If 跑馬燈_tb.Text.Length < 90 Then : 跑馬燈_tb.Text &= StrDup(90 - 跑馬燈_tb.Text.Length, "　") : End If Else If 跑馬燈_tb.Text.Length < 120 Then : 跑馬燈_tb.Text &= StrDup(120 - 跑馬燈_tb.Text.Length, " ") : End If End If End Sub Private Sub 初始化系統語言() If File.Exists(Application.StartupPath + "\LANGUAGE_FILE.csv") Then Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Application.StartupPath + "\LANGUAGE_FILE.csv", System.Text.Encoding.Default) Dim line As String = filereader.ReadLine() While Not (line Is Nothing) line = filereader.ReadLine() If line <> Nothing Then line = line.Replace("""", "") : Dim separator As String = "-" : Dim result() As String = line.Split(separator) If result.Count > 4 Then Dim key As String = result(0).ToString() & "-" & result(1).ToString() & "-" & result(2).ToString() Dim value As String = result(3).ToString() For i As Integer = 4 To result.Count - 1 : value += "-" & result(i) : Next If value.EndsWith(",") Then : value = value.Substring(0, value.Length - 1) : End If : 系統語言字典.Add(key, value) Else Dim key As String = result(0).ToString() & "-" & result(1).ToString() & "-" & result(2).ToString() Dim value As String = result(3).ToString() If value.EndsWith(",") Then : value = value.Substring(0, value.Length - 1) : End If : 系統語言字典.Add(key, value) End If End If End While End If End Sub Private Sub 語言轉換讀取() If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If '------------------------系統------------------------------------------------------------------------------------------------------------------------------------------------------- 對話框(0) = 系統語言字典("H001-234-" & 語言) : 對話框(1) = 系統語言字典("H001-235-" & 語言) : 對話框(2) = 系統語言字典("H001-236-" & 語言) 對話框(3) = 系統語言字典("H001-237-" & 語言) : 對話框(4) = 系統語言字典("H001-238-" & 語言) : 對話框(5) = 系統語言字典("H001-239-" & 語言) 對話框(6) = 系統語言字典("H001-240-" & 語言) : 對話框(7) = 系統語言字典("H001-241-" & 語言) : 對話框(8) = 系統語言字典("H001-242-" & 語言) 對話框(9) = 系統語言字典("H001-243-" & 語言) : 對話框(10) = 系統語言字典("H001-244-" & 語言) : 對話框(11) = 系統語言字典("H001-245-" & 語言) 對話框(12) = 系統語言字典("H001-246-" & 語言) : 對話框(13) = 系統語言字典("H001-247-" & 語言) : 對話框(14) = 系統語言字典("H001-248-" & 語言) 對話框(15) = 系統語言字典("H001-249-" & 語言) : 對話框(16) = 系統語言字典("H001-250-" & 語言) : 對話框(17) = 系統語言字典("H001-251-" & 語言) 對話框(18) = 系統語言字典("H001-252-" & 語言) : 對話框(19) = 系統語言字典("H001-253-" & 語言) : 對話框(20) = 系統語言字典("H001-254-" & 語言) 對話框(21) = 系統語言字典("H001-255-" & 語言) : 對話框(22) = 系統語言字典("H001-256-" & 語言) : 對話框(23) = 系統語言字典("H001-230-" & 語言) 對話框(24) = 系統語言字典("H001-257-" & 語言) : 對話框(25) = 系統語言字典("H001-258-" & 語言) : 對話框(26) = 系統語言字典("H001-259-" & 語言) 對話框(27) = 系統語言字典("H904-136-" & 語言) : 對話框(28) = 系統語言字典("H904-138-" & 語言) : 對話框(29) = 系統語言字典("H904-146-" & 語言) 對話框(30) = 系統語言字典("H001-290-" & 語言) : 對話框(31) = 系統語言字典("H001-292-" & 語言) : 對話框(32) = 系統語言字典("H001-293-" & 語言) 對話框(33) = 系統語言字典("H001-294-" & 語言) : 對話框(34) = 系統語言字典("H001-295-" & 語言) : 對話框(35) = 系統語言字典("H001-296-" & 語言) 水平並排_tsm.Text = 系統語言字典("H001-117-" & 語言) : 執行進度_tss.Text = 系統語言字典("H001-188-" & 語言) : 全部關閉_tsm.Text = 系統語言字典("H001-118-" & 語言) 垂直並排_tsm.Text = 系統語言字典("H001-164-" & 語言) : 重疊顯示_tsm.Text = 系統語言字典("H001-177-" & 語言) : 排列圖示_tsm.Text = 系統語言字典("H001-191-" & 語言) 結束_tsm.Text = 系統語言字典("H001-197-" & 語言) : 著作權_tss.Text = 系統語言字典("H001-198-" & 語言) : 視窗_tsm.Text = 系統語言字典("H001-199-" & 語言) 開新視窗_tsm.Text = 系統語言字典("H001-200-" & 語言) : 檔案_tsm.Text = 系統語言字典("H001-217-" & 語言) 個人帳號管理_tsm.Text = 系統語言字典("H001-178-" & 語言) : 新版_ch.Text = 系統語言字典("G000-260-" & 語言) : 舊版_ch.Text = 系統語言字典("G000-261-" & 語言) 低網速模式_ch.Text = 系統語言字典("G000-107-" & 語言) : sysnud = 系統語言字典("G000-102-" & 語言) : 深色風格_ch.Text = 系統語言字典("G000-106-" & 語言) '----------------------------------------------------------------------------------------------------------------------------- '車牌號碼 狀態 借車時間 還車時間 申請人 '196 197 198 199 200 表頭(190) = 系統語言字典("H601-105-" & 語言) : 表頭(191) = 系統語言字典("H601-106-" & 語言) : 表頭(192) = 系統語言字典("H001-279-" & 語言) 表頭(193) = 系統語言字典("H001-280-" & 語言) : 表頭(194) = 系統語言字典("H001-281-" & 語言) : 表頭(195) = 系統語言字典("H001-282-" & 語言) 表頭(196) = 系統語言字典("H508-119-" & 語言) : 表頭(197) = 系統語言字典("H501-112-" & 語言) : 表頭(198) = 系統語言字典("H001-283-" & 語言) 表頭(199) = 系統語言字典("H001-284-" & 語言) : 表頭(200) = 系統語言字典("H204-107-" & 語言) '------------------------章程管理系統------------------------------------------------------------------------------------------------------------------------------------------------- 總務系統管理_tsm.Text = 系統語言字典("H001-231-" & 語言) 文件伺服器_tsm.Text = 系統語言字典("H001-116-" & 語言) : 文件伺服器_lb.Text = 系統語言字典("H001-116-" & 語言) 系統使用說明_tsm.Text = 系統語言字典("H001-147-" & 語言) : 系統使用說明_lb.Text = 系統語言字典("H001-147-" & 語言) 管徑流速流量計算器_tsm.Text = 系統語言字典("H001-273-" & 語言) : 安培容量計算表_tsm.Text = 系統語言字典("H001-134-" & 語言) 部門聯絡函一覽表_tsm.Text = 系統語言字典("H001-193-" & 語言) : 部門聯絡函一覽表_lb.Text = 系統語言字典("H001-193-" & 語言) 部門聯絡函申請_tsm.Text = 系統語言字典("H001-194-" & 語言) : 部門聯絡函申請_lb.Text = 系統語言字典("H001-194-" & 語言) 會議記錄_tsm.Text = 系統語言字典("H001-203-" & 語言) : 會議記錄_lb.Text = 系統語言字典("H001-203-" & 語言) 聯絡函部門主管審核_tsm.Text = 系統語言字典("H001-228-" & 語言) : 聯絡函部門主管審核_lb.Text = 系統語言字典("H001-228-" & 語言) 聯絡函最高主管核准_tsm.Text = 系統語言字典("H001-229-" & 語言) : 聯絡函最高主管核准_lb.Text = 系統語言字典("H001-229-" & 語言) 公告管理_tsm.Text = 系統語言字典("H001-196-" & 語言) : 公告管理_lb.Text = 系統語言字典("H001-196-" & 語言) 投訴信箱_tsm.Text = 系統語言字典("H000-125-" & 語言) : 投訴信箱_lb.Text = 系統語言字典("H000-125-" & 語言) 車輛管理_tsm.Text = 系統語言字典("H001-278-" & 語言) : 車輛管理_lb.Text = 系統語言字典("H001-278-" & 語言) '------------------------業務管理系統------------------------------------------------------------------------------------------------------------------------------------------------- 業務系統管理_tsm.Text = 系統語言字典("H001-204-" & 語言) : 合約模組設定_tsm.Text = 系統語言字典("H001-129-" & 語言) 合約結案控制表_tsm.Text = 系統語言字典("H001-126-" & 語言) : 合約結案控制表1_tsm.Text = 系統語言字典("H001-126-" & 語言) 合約結案控制表_lb.Text = 系統語言字典("H001-126-" & 語言) : 合約結案控制表1_lb.Text = 系統語言字典("H001-126-" & 語言) 合約驗收控制表_tsm.Text = 系統語言字典("H001-132-" & 語言) : 合約驗收控制表1_lb.Text = 系統語言字典("H001-132-" & 語言) 合約驗收控制表1_tsm.Text = 系統語言字典("H001-132-" & 語言) : 合約驗收控制表_lb.Text = 系統語言字典("H001-132-" & 語言) 合約驗收單_tsm.Text = 系統語言字典("H001-133-" & 語言) : 合約驗收單1_lb.Text = 系統語言字典("H001-133-" & 語言) 合約驗收單1_tsm.Text = 系統語言字典("H001-133-" & 語言) : 合約驗收單_lb.Text = 系統語言字典("H001-133-" & 語言) 合約文件簽回存檔_tsm.Text = 系統語言字典("H001-119-" & 語言) : 合約文件簽回存檔_lb.Text = 系統語言字典("H001-119-" & 語言) 合約文件簽核控制表_tsm.Text = 系統語言字典("H001-120-" & 語言) : 合約文件簽核控制表_lb.Text = 系統語言字典("H001-120-" & 語言) 工程項目BOM表_tsm.Text = 系統語言字典("H001-109-" & 語言) : 工程項目BOM表_lb.Text = 系統語言字典("H001-109-" & 語言) 合約利潤預估表_tsm.Text = 系統語言字典("H001-121-" & 語言) : 合約利潤預估表_lb.Text = 系統語言字典("H001-121-" & 語言) 合約保固書_tsm.Text = 系統語言字典("H001-122-" & 語言) : 合約保固書_lb.Text = 系統語言字典("H001-122-" & 語言) 合約執行進度_tsm.Text = 系統語言字典("H001-123-" & 語言) : 合約執行進度_lb.Text = 系統語言字典("H001-123-" & 語言) 合約報價單_tsm.Text = 系統語言字典("H001-124-" & 語言) : 合約報價單_lb.Text = 系統語言字典("H001-124-" & 語言) 合約報價單審核_tsm.Text = 系統語言字典("H001-125-" & 語言) : 合約報價單審核_lb.Text = 系統語言字典("H001-125-" & 語言) 合約工程圖庫管理_tsm.Text = 系統語言字典("H001-127-" & 語言) : 合約工程圖庫管理_lb.Text = 系統語言字典("H001-127-" & 語言) 合約本文_tsm.Text = 系統語言字典("H001-128-" & 語言) : 合約本文_lb.Text = 系統語言字典("H001-128-" & 語言) 合約請款控制表_tsm.Text = 系統語言字典("H001-130-" & 語言) : 合約請款控制表_lb.Text = 系統語言字典("H001-130-" & 語言) 合約請款單_tsm.Text = 系統語言字典("H001-131-" & 語言) : 合約請款單_lb.Text = 系統語言字典("H001-131-" & 語言) 附錄合約_tsm.Text = 系統語言字典("H001-163-" & 語言) : 附錄合約_lb.Text = 系統語言字典("H001-163-" & 語言) 客戶資料表_tsm.Text = 系統語言字典("H001-165-" & 語言) : 客戶資料表_lb.Text = 系統語言字典("H001-165-" & 語言) '------------------------採購管理系統------------------------------------------------------------------------------------------------------------------------------------------------- 採購系統管理_tsm.Text = 系統語言字典("H001-189-" & 語言) : 樣品供應商管理_tsm.Text = 系統語言字典("H001-135-" & 語言) 採購驗收對帳表_tsm.Text = 系統語言字典("H001-172-" & 語言) 採購驗收對帳表_lb.Text = 系統語言字典("H001-172-" & 語言) ': 樣品採購驗收對帳表_tsm.Text = 系統語言字典("H001-141-" & 語言) 樣品來料驗收單_tsm.Text = 系統語言字典("H001-136-" & 語言) : 樣品請購單核准_tsm.Text = 系統語言字典("H001-144-" & 語言) 樣品採購單一級核准_tsm.Text = 系統語言字典("H001-137-" & 語言) : 樣品採購單一覽表_tsm.Text = 系統語言字典("H001-138-" & 語言) 樣品採購單二級核准_tsm.Text = 系統語言字典("H001-139-" & 語言) : 樣品採購單生成_tsm.Text = 系統語言字典("H001-140-" & 語言) 樣品請購單一覽表_tsm.Text = 系統語言字典("H001-142-" & 語言) : 樣品請購單申請_tsm.Text = 系統語言字典("H001-143-" & 語言) 應付款月報表_tsm.Text = 系統語言字典("H001-172-" & 語言) : 應付款月報表_lb.Text = 系統語言字典("H001-172-" & 語言) 應付款日報表_tsm.Text = 系統語言字典("H001-141-" & 語言) : 應付款日報表_lb.Text = 系統語言字典("H001-141-" & 語言) 銀行資料修改審核_tsm.Text = 系統語言字典("H001-298-" & 語言) : 銀行資料修改審核_lb.Text = 系統語言字典("H001-298-" & 語言) 供應商商品單價設定_tsm.Text = 系統語言字典("H001-157-" & 語言) : 供應商商品單價設定_lb.Text = 系統語言字典("H001-157-" & 語言) 物料採購統計表_tsm.Text = 系統語言字典("H001-160-" & 語言) : 物料採購統計表_lb.Text = 系統語言字典("H001-160-" & 語言) 入庫驗收單_tsm.Text = 系統語言字典("H001-166-" & 語言) : 入庫驗收單_lb.Text = 系統語言字典("H001-166-" & 語言) 供應商管理_tsm.Text = 系統語言字典("H001-167-" & 語言) : 供應商管理_lb.Text = 系統語言字典("H001-167-" & 語言) 採購單一級核准_tsm.Text = 系統語言字典("H001-168-" & 語言) : 採購單一級核准_lb.Text = 系統語言字典("H001-168-" & 語言) 採購單一覽表_tsm.Text = 系統語言字典("H001-169-" & 語言) : 採購單一覽表_lb.Text = 系統語言字典("H001-169-" & 語言) 採購單二級核准_tsm.Text = 系統語言字典("H001-170-" & 語言) : 採購單二級核准_lb.Text = 系統語言字典("H001-170-" & 語言) 採購單編輯_tsm.Text = 系統語言字典("H001-171-" & 語言) : 採購單編輯_lb.Text = 系統語言字典("H001-171-" & 語言) 請購一覽表_tsm.Text = 系統語言字典("H001-173-" & 語言) : 請購一覽表_lb.Text = 系統語言字典("H001-173-" & 語言) 請購單申請_tsm.Text = 系統語言字典("H001-174-" & 語言) : 請購單申請_lb.Text = 系統語言字典("H001-174-" & 語言) 請購單核準_tsm.Text = 系統語言字典("H001-175-" & 語言) : 請購單核準_lb.Text = 系統語言字典("H001-175-" & 語言) 採購單詢價_tsm.Text = 系統語言字典("H001-190-" & 語言) : 採購單詢價_lb.Text = 系統語言字典("H001-190-" & 語言) 電信費追加申請_tsm.Text = 系統語言字典("H001-274-" & 語言) : 電信費追加申請_lb.Text = 系統語言字典("H001-274-" & 語言) 電信費追加執行_tsm.Text = 系統語言字典("H001-275-" & 語言) : 電信費追加執行_lb.Text = 系統語言字典("H001-275-" & 語言) 採購轉財務收支單_tsm.Text = 系統語言字典("H001-291-" & 語言) : 採購轉財務收支單_lb.Text = 系統語言字典("H001-291-" & 語言) '------------------------工程管理系統------------------------------------------------------------------------------------------------------------------------------------------------- 工程系統管理_tsm.Text = 系統語言字典("H001-106-" & 語言) 工程分區控制表1_tsm.Text = 系統語言字典("H001-103-" & 語言) : 工程分區控制表_tsm.Text = 系統語言字典("H001-103-" & 語言) 工程分區控制表1_lb.Text = 系統語言字典("H001-103-" & 語言) : 工程分區控制表_lb.Text = 系統語言字典("H001-103-" & 語言) 工程日報表編輯_tsm.Text = 系統語言字典("H001-104-" & 語言) : 工程日報表編輯_lb.Text = 系統語言字典("H001-104-" & 語言) 工程材料表_tsm.Text = 系統語言字典("H001-105-" & 語言) : 工程材料表_lb.Text = 系統語言字典("H001-105-" & 語言) 工程客變單_tsm.Text = 系統語言字典("H001-107-" & 語言) : 工程客變單_lb.Text = 系統語言字典("H001-107-" & 語言) 工程進度表_tsm.Text = 系統語言字典("H001-108-" & 語言) : 工程進度表_lb.Text = 系統語言字典("H001-108-" & 語言) 工程維修單_tsm.Text = 系統語言字典("H001-110-" & 語言) : 工程維修單_lb.Text = 系統語言字典("H001-110-" & 語言) 派工人數紀錄表_tsm.Text = 系統語言字典("H001-176-" & 語言) : 派工人數紀錄表_lb.Text = 系統語言字典("H001-176-" & 語言) '------------------------倉儲管理系統------------------------------------------------------------------------------------------------------------------------------------------------- 倉儲系統管理_tsm.Text = 系統語言字典("H001-180-" & 語言) 倉儲單據狀態看板_tsm.Text = 系統語言字典("H001-181-" & 語言) : 倉儲單據狀態看板_lb.Text = 系統語言字典("H001-181-" & 語言) 倉儲領料出庫_tsm.Text = 系統語言字典("H001-185-" & 語言) : 倉儲領料出庫_lb.Text = 系統語言字典("H001-185-" & 語言) 倉儲領料申請_tsm.Text = 系統語言字典("H001-186-" & 語言) : 倉儲領料申請_lb.Text = 系統語言字典("H001-186-" & 語言) : 倉儲領料申請_bt.Text = 系統語言字典("H001-186-" & 語言) 倉儲領料審核_tsm.Text = 系統語言字典("H001-187-" & 語言) : 倉儲領料審核_lb.Text = 系統語言字典("H001-187-" & 語言) 盤盈盤損申請_tsm.Text = 系統語言字典("H001-213-" & 語言) : 盤盈盤損申請_lb.Text = 系統語言字典("H001-213-" & 語言) 物料退庫_tsm.Text = 系統語言字典("H001-159-" & 語言) : 物料退庫_lb.Text = 系統語言字典("H001-159-" & 語言) 物料資料編輯_tsm.Text = 系統語言字典("H000-126-" & 語言) : 物料資料編輯_lb.Text = 系統語言字典("H000-126-" & 語言) 物料資料庫_tsm.Text = 系統語言字典("H001-161-" & 語言) : 物料資料庫_lb.Text = 系統語言字典("H001-161-" & 語言) 倉儲分區控制表_tsm.Text = 系統語言字典("H001-179-" & 語言) : 倉儲分區控制表_lb.Text = 系統語言字典("H001-179-" & 語言) 盤盈盤損審核_tsm.Text = 系統語言字典("H001-214-" & 語言) : 盤盈盤損審核_lb.Text = 系統語言字典("H001-214-" & 語言) 倉儲入庫驗收_tsm.Text = 系統語言字典("H001-223-" & 語言) : 倉儲入庫驗收_lb.Text = 系統語言字典("H001-223-" & 語言) 物料轉倉申請_tsm.Text = 系統語言字典("H001-224-" & 語言) : 物料轉倉申請_lb.Text = 系統語言字典("H001-224-" & 語言) 物料轉倉出庫_tsm.Text = 系統語言字典("H001-225-" & 語言) : 物料轉倉出庫_lb.Text = 系統語言字典("H001-225-" & 語言) 物料轉倉審核_tsm.Text = 系統語言字典("H001-226-" & 語言) : 物料轉倉審核_lb.Text = 系統語言字典("H001-226-" & 語言) 倉儲控制表_tsm.Text = 系統語言字典("H001-227-" & 語言) : 倉儲控制表_lb.Text = 系統語言字典("H001-227-" & 語言) '------------------------財務管理系統------------------------------------------------------------------------------------------------------------------------------------------------- 財務系統管理_tsm.Text = 系統語言字典("H001-182-" & 語言) : 應收帳款控制表_tsm.Text = 系統語言字典("H001-216-" & 語言) 現金流量表_tsm.Text = 系統語言字典("H001-192-" & 語言) 資產負載表_tsm.Text = 系統語言字典("H001-206-" & 語言) : 權益變動表_tsm.Text = 系統語言字典("H001-233-" & 語言) 綜合損益表_tsm.Text = 系統語言字典("H001-212-" & 語言) : 應付賬款控制表_tsm.Text = 系統語言字典("H001-215-" & 語言) 匯率管理_tsm.Text = 系統語言字典("H001-201-" & 語言) : 匯率管理_lb.Text = 系統語言字典("H001-201-" & 語言) 財務決算表_tsm.Text = 系統語言字典("H001-218-" & 語言) : 財務決算表_lb.Text = 系統語言字典("H001-218-" & 語言) 財務支付審核_tsm.Text = 系統語言字典("H001-114-" & 語言) : 財務支付審核_lb.Text = 系統語言字典("H001-114-" & 語言) 財務支付申請_tsm.Text = 系統語言字典("H001-112-" & 語言) : 財務支付申請_lb.Text = 系統語言字典("H001-112-" & 語言) 財務支付_主管審核_tsm.Text = 系統語言字典("H001-297-" & 語言) : 財務支付_主管審核_lb.Text = 系統語言字典("H001-297-" & 語言) 採購付款狀態報表_tsm.Text = 系統語言字典("H001-115-" & 語言) : 採購付款狀態報表_lb.Text = 系統語言字典("H001-115-" & 語言) 採購付款確認表_tsm.Text = 系統語言字典("H001-113-" & 語言) : 採購付款確認表_lb.Text = 系統語言字典("H001-113-" & 語言) 收款狀態報表_tsm.Text = 系統語言字典("H001-209-" & 語言) : 收款狀態報表_lb.Text = 系統語言字典("H001-209-" & 語言) 主管指定沖銷_tsm.Text = 系統語言字典("H001-210-" & 語言) : 主管指定沖銷_lb.Text = 系統語言字典("H001-210-" & 語言) 會計帳務沖銷_tsm.Text = 系統語言字典("H001-208-" & 語言) : 會計帳務沖銷_lb.Text = 系統語言字典("H001-208-" & 語言) 特支費申請_tsm.Text = 系統語言字典("H001-207-" & 語言) : 特支費申請_lb.Text = 系統語言字典("H001-207-" & 語言) 特支費審核_tsm.Text = 系統語言字典("H001-276-" & 語言) : 特支費審核_lb.Text = 系統語言字典("H001-276-" & 語言) 營運收支單一覽表_tsm.Text = 系統語言字典("H001-219-" & 語言) : 營運收支單一覽表_lb.Text = 系統語言字典("H001-219-" & 語言) 會計科目管理_tsm.Text = 系統語言字典("H001-202-" & 語言) : 會計科目管理_lb.Text = 系統語言字典("H001-202-" & 語言) 營運收支單申請_tsm.Text = 系統語言字典("H001-220-" & 語言) : 營運收支單申請_lb.Text = 系統語言字典("H001-220-" & 語言) 營運收支單審核_tsm.Text = 系統語言字典("H001-222-" & 語言) : 營運收支單審核_lb.Text = 系統語言字典("H001-222-" & 語言) 收款確認表_tsm.Text = 系統語言字典("H001-211-" & 語言) : 收款確認表_lb.Text = 系統語言字典("H001-211-" & 語言) '------------------------人事管理系統------------------------------------------------------------------------------------------------------------------------------------------------- 人事系統管理_tsm.Text = 系統語言字典("H001-101-" & 語言) : LINE使用者管理表_tsm.Text = 系統語言字典("H001-158-" & 語言) LINE通知測試表_tsm.Text = 系統語言字典("H001-162-" & 語言) : LINE權限一覽表_tsm.Text = 系統語言字典("H001-183-" & 語言) 行事曆請假_tsm.Text = 系統語言字典("H001-277-" & 語言) : 行事曆請假_lb.Text = 系統語言字典("H001-277-" & 語言) 系統使用者管理1_tsm.Text = 系統語言字典("H001-146-" & 語言) : 系統使用者管理_lb.Text = 系統語言字典("H001-146-" & 語言) 人員ID卡系統配置設定_tsm.Text = 系統語言字典("H001-102-" & 語言) : 人員ID卡系統配置設定_lb.Text = 系統語言字典("H001-102-" & 語言) 公司組織結構_tsm.Text = 系統語言字典("H001-111-" & 語言) : 組織結構_權限設定_tsm.Text = 系統語言字典("H001-151-" & 語言) 人員基本資料_tsm.Text = 系統語言字典("H001-269-" & 語言) : 人員基本資料_lb.Text = 系統語言字典("H001-269-" & 語言) 考勤明細表_tsm.Text = 系統語言字典("H001-270-" & 語言) : 考勤明細表_lb.Text = 系統語言字典("H001-270-" & 語言) 臨時工卡片管理_tsm.Text = 系統語言字典("H001-271-" & 語言) : 臨時工卡片管理_lb.Text = 系統語言字典("H001-271-" & 語言) 人員薪資_tsm.Text = 系統語言字典("H001-272-" & 語言) : 人員薪資_lb.Text = 系統語言字典("H001-272-" & 語言) 門禁權限設定_tsm.Text = 系統語言字典("H000-122-" & 語言) : 門禁權限設定_lb.Text = 系統語言字典("H000-122-" & 語言) 請假單_tsm.Text = 系統語言字典("H000-123-" & 語言) : 請假單_lb.Text = 系統語言字典("H000-123-" & 語言) 請假資料確認_tsm.Text = 系統語言字典("H000-124-" & 語言) : 請假資料確認_lb.Text = 系統語言字典("H000-124-" & 語言) '------------------------資料庫管理系統------------------------------------------------------------------------------------------------------------------------------------------------- 資料庫系統管理_tsm.Text = 系統語言字典("H001-205-" & 語言) : FTP資料夾管理_tsm.Text = 系統語言字典("H001-100-" & 語言) 系統使用者管理_tsm.Text = 系統語言字典("H001-146-" & 語言) : 系統執行檔版本管理_tsm.Text = 系統語言字典("H001-149-" & 語言) 系統組織架構設定_tsm.Text = 系統語言字典("H001-150-" & 語言) : 系統通用變數管理_tsm.Text = 系統語言字典("H001-152-" & 語言) 門禁系統設定_tsm.Text = 系統語言字典("H001-153-" & 語言) : 簽名檔管理_tsm.Text = 系統語言字典("H001-232-" & 語言) 系統對應電腦註冊_tsm.Text = 系統語言字典("H001-154-" & 語言) : 系統編碼規則_tsm.Text = 系統語言字典("H001-155-" & 語言) 系統權限預設表_tsm.Text = 系統語言字典("H001-156-" & 語言) : 部門權限設定_tsm.Text = 系統語言字典("H001-195-" & 語言) 開發模板庫_tsm.Text = 系統語言字典("H001-184-" & 語言) End Sub Public Class MyLocalizationProvider Inherits PdfViewerLocalizationProvider Public Overrides Function GetLocalizedString(ByVal id As String) As String Select Case id Case PdfViewerStringId.ContextMenuCopy : If 系統語言 = "繁體中文" Then : Return "&複製" : Else : Return "&Copy" : End If Case PdfViewerStringId.ContextMenuSelectAll : If 系統語言 = "繁體中文" Then : Return "&全部選擇" : Else : Return "Select &All" : End If Case PdfViewerStringId.ContextMenuDeselectAll : If 系統語言 = "繁體中文" Then : Return "&取消全部選擇" : Else : Return "&Deselect All" : End If Case PdfViewerStringId.ContextMenuHand : If 系統語言 = "繁體中文" Then : Return "&按一下可以圍繞文件平移" : Else : Return "&Hand" : End If Case PdfViewerStringId.ContextMenuSelection : If 系統語言 = "繁體中文" Then : Return "&文字和影像的選擇工具" : Else : Return "&Selection" : End If Case PdfViewerStringId.ContextMenuPreviousPage : If 系統語言 = "繁體中文" Then : Return "&上一頁" : Else : Return "&Previous Page" : End If Case PdfViewerStringId.ContextMenuNextPage : If 系統語言 = "繁體中文" Then : Return "&下一頁" : Else : Return "&Next Page" : End If Case PdfViewerStringId.ContextMenuPrint : If 系統語言 = "繁體中文" Then : Return "&列印..." : Else : Return "P&rint..." : End If Case PdfViewerStringId.ContextMenuFind : If 系統語言 = "繁體中文" Then : Return "&找下一個" : Else : Return "&Find Next" : End If Case PdfViewerStringId.NavigatorOpenButton : If 系統語言 = "繁體中文" Then : Return "打開" : Else : Return "Open" : End If Case PdfViewerStringId.NavigatorPrintButton : If 系統語言 = "繁體中文" Then : Return "列印" : Else : Return "Print" : End If Case PdfViewerStringId.RotateCounterclockwiseButton : If 系統語言 = "繁體中文" Then : Return "逆時鐘旋轉" : Else : Return "Rotate Counterclockwise" : End If Case PdfViewerStringId.RotateClockwiseButton : If 系統語言 = "繁體中文" Then : Return "順時鐘旋轉" : Else : Return "Rotate Clockwise" : End If Case PdfViewerStringId.NavigatorPreviousPageButton : If 系統語言 = "繁體中文" Then : Return "上一頁" : Else : Return "Previous page" : End If Case PdfViewerStringId.NavigatorNextPageButton : If 系統語言 = "繁體中文" Then : Return "下一頁" : Else : Return "Next page" : End If Case PdfViewerStringId.NavigatorCurrentPageTextBox : If 系統語言 = "繁體中文" Then : Return "當前頁面" : Else : Return "Current page" : End If Case PdfViewerStringId.NavigatorTotalPagesLabel : If 系統語言 = "繁體中文" Then : Return "總頁數" : Else : Return "Total pages" : End If Case PdfViewerStringId.NavigatorZoomInButton : If 系統語言 = "繁體中文" Then : Return "放大" : Else : Return "Zoom in" : End If Case PdfViewerStringId.NavigatorZoomOutButton : If 系統語言 = "繁體中文" Then : Return "縮小" : Else : Return "Zoom out" : End If Case PdfViewerStringId.NavigatorZoomDropDown : If 系統語言 = "繁體中文" Then : Return "縮放下拉" : Else : Return "Zoom drop-down" : End If Case PdfViewerStringId.NavigatorHandToolButton : If 系統語言 = "繁體中文" Then : Return "按一下可圍繞文件平移" : Else : Return "Pan" : End If Case PdfViewerStringId.NavigatorSelectToolButton : If 系統語言 = "繁體中文" Then : Return "文字和影像的選擇工具" : Else : Return "Selection" : End If Case PdfViewerStringId.NavigatorFindNextButton : If 系統語言 = "繁體中文" Then : Return "找下一個" : Else : Return "Find next" : End If Case PdfViewerStringId.NavigatorFindPreviousButton : If 系統語言 = "繁體中文" Then : Return "找上一個" : Else : Return "Find previous" : End If Case PdfViewerStringId.NavigatorSearchTextBox : If 系統語言 = "繁體中文" Then : Return "尋找" : Else : Return "Search" : End If Case PdfViewerStringId.NavigatorNoResultMessage If 系統語言 = "繁體中文" Then : Return "沒有找到符合指定標準的結果。" : Else : Return "No results found according to the specified criteria." : End If Case PdfViewerStringId.NavigatorNoResultMessageHeader : If 系統語言 = "繁體中文" Then : Return "更多訊息" : Else : Return "Information" : End If Case PdfViewerStringId.NavigatorDefaultStrip : If 系統語言 = "繁體中文" Then : Return "默認設定" : Else : Return "Default strip" : End If Case PdfViewerStringId.PrintPreviewGroupBoxPreview : If 系統語言 = "繁體中文" Then : Return "預覽" : Else : Return "Preview" : End If Case PdfViewerStringId.PrintPreviewGroupBoxOrientation : If 系統語言 = "繁體中文" Then : Return "方向" : Else : Return "Orientation" : End If Case PdfViewerStringId.PrintPreviewGroupBoxSettings : If 系統語言 = "繁體中文" Then : Return "設定" : Else : Return "Settings" : End If Case PdfViewerStringId.PrintPreviewButtonPrint : If 系統語言 = "繁體中文" Then : Return "列印" : Else : Return "Print" : End If Case PdfViewerStringId.PrintPreviewButtonCancel : If 系統語言 = "繁體中文" Then : Return "取消" : Else : Return "Cancel" : End If Case PdfViewerStringId.PrintPreviewButtonWatermark : If 系統語言 = "繁體中文" Then : Return "浮水印" : Else : Return "Watermark" : End If Case PdfViewerStringId.PrintPreviewButtonSettings : If 系統語言 = "繁體中文" Then : Return "列印設定" : Else : Return "Print Settings" : End If Case PdfViewerStringId.PrintPreviewLabelPageSizeInches : Return "{0:F2} x {1:F2} Inches" Case PdfViewerStringId.PrintPreviewLabelPageSizeCm : Return "{0:F2}cm x {1:F2}cm" Case PdfViewerStringId.PrintPreviewLabelScale : Return "Scale: {0}%" Case PdfViewerStringId.PrintPreviewLabelCurrentPage : Return "Page {0} of {1}" Case PdfViewerStringId.PrintPreviewFormTitle : If 系統語言 = "繁體中文" Then : Return "列印預覽" : Else : Return "Print Preview" : End If Case PdfViewerStringId.PrintPreviewPrintError : If 系統語言 = "繁體中文" Then : Return "列印文檔時出錯！" : Else : Return "Error printing the document!" : End If Case PdfViewerStringId.PrintPreviewRadioPortrait : If 系統語言 = "繁體中文" Then : Return "縱向" : Else : Return "Portrait" : End If Case PdfViewerStringId.PrintPreviewRadioLandscape : If 系統語言 = "繁體中文" Then : Return "橫向" : Else : Return "Landscape" : End If Case PdfViewerStringId.PrintPreviewRadioAuto : If 系統語言 = "繁體中文" Then : Return "自動" : Else : Return "Auto" : End If Case PdfViewerStringId.NavigatorFitToWidthButton : If 系統語言 = "繁體中文" Then : Return "符合寬度" : Else : Return "Fit To Width" : End If Case PdfViewerStringId.NavigatorFitToPageButton : If 系統語言 = "繁體中文" Then : Return "符合整頁" : Else : Return "Fit Full Page" : End If Case PdfViewerStringId.PageThumbnailsLabel : If 系統語言 = "繁體中文" Then : Return "頁面縮圖" : Else : Return "Page Thumbnails" : End If Case PdfViewerStringId.SaveButton : If 系統語言 = "繁體中文" Then : Return "另存為" : Else : Return "Save As" : End If Case PdfViewerStringId.CloseButton : If 系統語言 = "繁體中文" Then : Return "關閉" : Else : Return "Close" : End If Case PdfViewerStringId.NavigatorShowSignatureButton : If 系統語言 = "繁體中文" Then : Return "簽名面板" : Else : Return "Signature Panel" : End If Case PdfViewerStringId.SignatureDialogTitle : If 系統語言 = "繁體中文" Then : Return "簽名驗證狀態" : Else : Return "Signature Validation Status" : End If Case PdfViewerStringId.SignaturePanel_Invalid : If 系統語言 = "繁體中文" Then : Return "至少一個簽名無效。" : Else : Return "At least one signature is invalid." : End If Case PdfViewerStringId.SignaturePanel_Unknown : If 系統語言 = "繁體中文" Then : Return "至少一個簽名有問題。" : Else : Return "At least one signature has problems." : End If Case PdfViewerStringId.SignaturePanel_Valid : If 系統語言 = "繁體中文" Then : Return "簽名且所有簽名均有效。" : Else : Return "Signed and all signatures are valid." : End If Case PdfViewerStringId.SignaturePropertiesDialogHeader : If 系統語言 = "繁體中文" Then : Return "簽名驗證狀態" : Else : Return "Signature Validation Status" : End If Case PdfViewerStringId.SignaturePropertiesDialogViewModel_IsDocumentModified_False If 系統語言 = "繁體中文" Then : Return "自應用此簽名後，文檔未被修改。" : Else : Return "The document is not modified since this signature was applied." : End If Case PdfViewerStringId.SignaturePropertiesDialogViewModel_IsDocumentModified_True If 系統語言 = "繁體中文" Then : Return "自應用簽名以來，文檔已被更改或損壞。" : Else : Return "The document has been altered or corrupted since the Signature was applied." : End If Case PdfViewerStringId.SignaturePropertiesDialogViewModel_SignatureIsInvalid : If 系統語言 = "繁體中文" Then : Return "簽名無效。" : Else : Return "Signature is Invalid." : End If Case PdfViewerStringId.SignaturePropertiesDialogViewModel_SignatureIsUnknown If 系統語言 = "繁體中文" Then : Return "簽名有效性未知。" : Else : Return "Signature validity is Unknown." : End If Case PdfViewerStringId.SignaturePropertiesDialogViewModel_SignatureIsValid If 系統語言 = "繁體中文" Then : Return "簽名有效，簽名者" : Else : Return "Signature is Valid, signed by " : End If Case PdfViewerStringId.SignaturePropertiesDialogViewModel_SignerValidity_Unknown If 系統語言 = "繁體中文" Then : Return "簽名者的身份未知。" : Else : Return "The signer's identity is unknown." : End If Case PdfViewerStringId.SignaturePropertiesDialogViewModel_SignerValidity_UntrustedRoot If 系統語言 = "繁體中文" Then : Return "簽名者的身份未知，因為它尚未包含在您的受信任證書列表中，並且其父證書均不受信任。" : Else Return "The signer's identity is unknown because it has not been included in your list of trusted certificates and none of its parent certificates are trusted." : End If Case PdfViewerStringId.SignaturePropertiesDialogViewModel_SignerValidity_Valid If 系統語言 = "繁體中文" Then : Return "簽署人的身份有效。" : Else : Return "The signer's identity is valid." : End If Case PdfViewerStringId.SelectCertButton : If 系統語言 = "繁體中文" Then : Return "選擇" : Else : Return "Select" : End If Case PdfViewerStringId.SignButton : If 系統語言 = "繁體中文" Then : Return "簽名" : Else : Return "Sign" : End If Case PdfViewerStringId.EnterAPassTextBox : If 系統語言 = "繁體中文" Then : Return "輸入密碼" : Else : Return "Enter a password" : End If Case PdfViewerStringId.SelectCertTextBox : If 系統語言 = "繁體中文" Then : Return "選擇證書" : Else : Return "Select certificate" : End If End Select Return MyBase.GetLocalizedString(id) End Function End Class Public Class MyEnglishGanttViewLocalizationProvider Inherits GanttViewLocalizationProvider Public Overrides Function GetLocalizedString(id As String) As String Select Case id Case GanttViewStringId.ContextMenuAdd : If (系統語言 = "繁體中文") Then : Return "新增(&A)" : Else : Return "Tambahkan(&A)" : End If Case GanttViewStringId.ContextMenuAddChild : If (系統語言 = "繁體中文") Then : Return "新增子項目(&C)" : Else : Return "Tambahkan Subitem(&C)" : End If Case GanttViewStringId.ContextMenuAddSibling : If (系統語言 = "繁體中文") Then : Return "新增同層級項目(&S)" : Else : Return "Tambahkan Item Sejajar(&S)" : End If Case GanttViewStringId.ContextMenuDelete : If (系統語言 = "繁體中文") Then : Return "刪除(&D)" : Else : Return "Hapus(&D)" : End If Case GanttViewStringId.ContextMenuProgress : If (系統語言 = "繁體中文") Then : Return "進度(&P)" : Else : Return "Kemajuan(&P)" : End If Case "TimelineWeek" : If (系統語言 = "繁體中文") Then : Return "周次" : Else : Return "Minggu" : End If End Select : Return String.Empty End Function End Class #Const AZ = 不用WEB ' 根据需要设置 AZ 的值 #If AZ Then Private WithEvents Browser As ChromiumWebBrowser Public Sub New() InitializeComponent() Dim settings As New CefSettings() If (系統語言 = "繁體中文") Then : settings.Locale = "zh-TW" : Else : settings.Locale = "en-US" : End If Cef.Initialize(settings) Cef.GetGlobalCookieManager().DeleteCookies() If 不用WEB = False Then End If End Sub #Else #End If Function 文字旋轉(ByVal s As String, ByVal v As Integer) As String '--- S=目標字串， V=捲動次數（ +v 右捲, -v 左捲）--- 文字旋轉 = Strings.Mid(s & s & s, Strings.Len(s) - (v Mod Strings.Len(s)) + 1, Strings.Len(s)) End Function Private Sub 跑馬燈_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 跑馬燈.Tick If 跑馬燈_tb.Text = "" Then : Else : 跑馬燈_tb.Text = 文字旋轉(跑馬燈_tb.Text.ToUpper(), -1) : End If End Sub Private Sub HXGPSERPSYS_Load(sender As Object, e As EventArgs) Handles MyBase.Load 初始化系統語言() : Me.Size = New Point(1366, 768) : MyMod.清單字體大小調整() MyBrowser.SendToBack() : MyBrowser.Visible = False : 視窗1_pl.Visible = False : UI優化_P.BringToFront() Dim screenBounds As Rectangle = Screen.PrimaryScreen.Bounds If screenBounds.Width < Me.Width Or screenBounds.Height < Me.Height Then : Me.WindowState = 2 Else : Me.Left = (screenBounds.Width - Me.Width) / 2 : Me.Top = (screenBounds.Height - Me.Height) / 2 : End If '------------------------優化UI------------------------------------------------------------------------------------------------------------------------------------------------- Me.DoubleBuffered = True 人員動態_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) 車輛動態_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value) '------------------------系統登入時宣告------------------------------------------------------------------------------------------------------------------------------------------------- SQL_系統語言() : 系統語言1_cb.Items.Clear() : While dr.Read() : 系統語言1_cb.Items.Add(dr("語言")) : End While : conn.Close() 低網速模式_ch.Checked = 低網速模式 : 介面 = "H001" : 語言轉換讀取() : 顯示說明(999, False) : 系統關閉 = False : 捷徑數量 = 0 : Panel2.SendToBack() : 桌面通知_pl.BringToFront() 桌面通知_pl.Visible = False : 跑馬燈_tb.BringToFront() Dim SS1, SS2 As Integer : SS1 = 653 : SS2 = 362 : 幣別 = " (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) : 報價未完成_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 公告管理_tsm.Visible = CC(82) : 公告管理_p.Visible = CC(82) : 車輛管理_tsm.Visible = CC(67) : 車輛管理_p.Visible = CC(67) 安培容量計算表_tsm.Visible = CC(8) '----連動工程系統管理權限 管徑流速流量計算器_tsm.Visible = CC(8) '----連動工程系統管理權限 Dim NB1 As Integer = 0 '------------------------業務管理系統------------------------------------------------------------------------------------------------------------------------------------------------- 合約執行進度_tsm.Visible = CC(5) : 合約執行進度_p.Visible = CC(5) : 合約利潤預估表_tsm.Visible = CC(60) : 合約利潤預估表_p.Visible = CC(60) 合約報價單_tsm.Visible = CC(116) : 合約報價單_p.Visible = CC(116) : 合約報價單審核_tsm.Visible = CC(107) : 合約報價單審核_p.Visible = CC(107) 合約本文_tsm.Visible = CC(98) : 合約本文_p.Visible = CC(98) : 附錄合約_tsm.Visible = CC(98) : 附錄合約_p.Visible = CC(98) 合約請款單_tsm.Visible = CC(124) : 合約請款單_p.Visible = CC(124) : 合約請款控制表_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(61) : 合約文件簽回存檔_p.Visible = CC(61) 合約文件簽核控制表_tsm.Visible = CC(62) : 合約文件簽核控制表_p.Visible = CC(62) : 合約結案控制表_tsm.Visible = CC(128) : 合約結案控制表_p.Visible = CC(128) 合約工程圖庫管理_tsm.Visible = CC(115) : 合約工程圖庫管理_p.Visible = CC(115) : 工程項目BOM表_tsm.Visible = CC(52) : 工程項目BOM表_p.Visible = CC(52) 工程分區控制表_tsm.Visible = CC(114) : 工程分區控制表_p.Visible = CC(114) : 客戶資料表_tsm.Visible = CC(99) : 客戶資料表_p.Visible = CC(99) 業務系統管理_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(11) : 供應商管理_p.Visible = CC(11) : 物料採購統計表_tsm.Visible = CC(51) : 物料採購統計表_p.Visible = CC(51) 供應商商品單價設定_tsm.Visible = CC(11) : 供應商商品單價設定_p.Visible = CC(11) : 電信費追加申請_tsm.Visible = CC(74) : 電信費追加申請_p.Visible = CC(74) 電信費追加執行_tsm.Visible = CC(75) : 電信費追加執行_p.Visible = CC(75) : 採購轉財務收支單_tsm.Visible = CC(38) : 採購轉財務收支單_p.Visible = CC(38) 採購系統管理_tsm.Visible = CC(6) : 樣品供應商管理_tsm.Visible = CC(42) : 樣品請購單申請_tsm.Visible = CC(25) : 樣品請購單核准_tsm.Visible = CC(26) 樣品請購單一覽表_tsm.Visible = CC(27) : 樣品採購單生成_tsm.Visible = CC(28) : 樣品採購單一級核准_tsm.Visible = CC(72) : 樣品採購單二級核准_tsm.Visible = CC(29) 樣品採購單一覽表_tsm.Visible = CC(30) : 樣品來料驗收單_tsm.Visible = CC(31) If CInt(登入人級別) <= 2 Then : 銀行資料修改審核_tsm.Visible = True : 銀行資料修改審核_p.Visible = True Else : 銀行資料修改審核_tsm.Visible = False : 銀行資料修改審核_p.Visible = False : End If 採購驗收對帳表_tsm.Visible = False : 採購驗收對帳表_p.Visible = False : 樣品採購驗收對帳表_tsm.Visible = False '------------------------工程管理系統------------------------------------------------------------------------------------------------------------------------------------------------- 工程材料表_tsm.Visible = CC(8) : 工程材料表_p.Visible = CC(8) : 合約驗收單1_tsm.Visible = CC(105) : 合約驗收單1_p.Visible = CC(105) 合約驗收控制表1_tsm.Visible = CC(108) : 合約驗收控制表1_p.Visible = CC(108) : 合約結案控制表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) : 工程分區控制表1_tsm.Visible = CC(114) : 工程分區控制表1_p.Visible = CC(114) 工程系統管理_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(70) : 物料資料庫_p.Visible = CC(70) : 倉儲單據狀態看板_tsm.Visible = CC(69) : 倉儲單據狀態看板_p.Visible = CC(69) 盤盈盤損申請_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(71) : 倉儲分區控制表_p.Visible = CC(71) 物料資料編輯_tsm.Visible = CC(46) : 物料資料編輯_p.Visible = CC(46) : 倉儲系統管理_tsm.Visible = CC(9) '------------------------財務管理系統------------------------------------------------------------------------------------------------------------------------------------------------- 收款確認表_tsm.Visible = CC(66) : 收款確認表_p.Visible = CC(66) : 收款狀態報表_tsm.Visible = CC(90) : 收款狀態報表_p.Visible = CC(90) 營運收支單申請_tsm.Visible = CC(91) : 營運收支單申請_p.Visible = CC(91) : 營運收支單審核_tsm.Visible = CC(92) : 營運收支單審核_p.Visible = CC(92) 營運收支單一覽表_tsm.Visible = CC(93) : 營運收支單一覽表_p.Visible = CC(93) : 財務決算表_tsm.Visible = CC(95) : 財務決算表_p.Visible = CC(95) 特支費申請_tsm.Visible = CC(64) : 特支費申請_p.Visible = CC(64) : 會計帳務沖銷_tsm.Visible = CC(65) : 會計帳務沖銷_p.Visible = CC(65) 主管指定沖銷_tsm.Visible = CC(18) : 主管指定沖銷_p.Visible = CC(18) : 會計科目管理_tsm.Visible = CC(97) : 會計科目管理_p.Visible = CC(97) 採購付款確認表_tsm.Visible = CC(78) : 採購付款確認表_p.Visible = CC(78) : 採購付款狀態報表_tsm.Visible = CC(79) : 採購付款狀態報表_p.Visible = CC(79) 財務支付申請_tsm.Visible = CC(76) : 財務支付申請_p.Visible = CC(76) : 財務支付審核_tsm.Visible = CC(77) : 財務支付審核_p.Visible = CC(77) 財務支付_主管審核_tsm.Visible = CC(68) : 財務支付_主管審核_p.Visible = CC(68) : 匯率管理_tsm.Visible = CC(96) : 匯率管理_p.Visible = CC(96) 特支費審核_tsm.Visible = CC(18) : 特支費審核_p.Visible = CC(18) : 應付款日報表_tsm.Visible = CC(32) : 應付款月報表_tsm.Visible = CC(32) 資產負載表_tsm.Visible = CC(83) : 財務系統管理_tsm.Visible = CC(7) 現金流量表_tsm.Visible = False : 綜合損益表_tsm.Visible = False : 應收帳款控制表_tsm.Visible = False : 應付賬款控制表_tsm.Visible = False 權益變動表_tsm.Visible = False : 營運收支單對帳表_tsm.Visible = False '------------------------人事管理系統------------------------------------------------------------------------------------------------------------------------------------------------- 人員基本資料_tsm.Visible = CC(17) : 人員基本資料_p.Visible = CC(17) : 人員ID卡系統配置設定_tsm.Visible = CC(23) : 人員ID卡系統配置設定_p.Visible = CC(23) 考勤明細表_tsm.Visible = CC(16) : 考勤明細表_p.Visible = CC(16) : 臨時工卡片管理_tsm.Visible = CC(15) : 臨時工卡片管理_p.Visible = CC(15) 系統使用者管理1_tsm.Visible = CC(55) : 系統使用者管理_p.Visible = CC(55) : 人員薪資_tsm.Visible = CC(81) : 人員薪資_p.Visible = CC(81) 門禁權限設定_tsm.Visible = CC(100) : 門禁權限設定_p.Visible = CC(100) : 請假單_tsm.Visible = CC(22) : 請假單_p.Visible = CC(22) 請假資料確認_tsm.Visible = CC(67) : 請假資料確認_p.Visible = CC(67) : 公司組織結構_tsm.Visible = CC(22) : 組織結構_權限設定_tsm.Visible = CC(89) 行事曆請假_tsm.Visible = CC(22) : 行事曆請假_p.Visible = CC(22) 人事系統管理_tsm.Visible = CC(22) : LINE使用者管理表_tsm.Visible = CC(111) : LINE通知測試表_tsm.Visible = CC(112) : LINE權限一覽表_tsm.Visible = CC(113) '------------------------資料庫管理系統------------------------------------------------------------------------------------------------------------------------------------------------- 系統使用者管理_tsm.Visible = CC(2) : 系統權限預設表_tsm.Visible = CC(84) : 系統組織架構設定_tsm.Visible = CC(41) : 部門權限設定_tsm.Visible = CC(87) 系統通用變數管理_tsm.Visible = CC(43) : 系統編碼規則_tsm.Visible = CC(10) : 系統對應電腦註冊_tsm.Visible = CC(44) : 系統執行檔版本管理_tsm.Visible = CC(4) FTP資料夾管理_tsm.Visible = CC(3) : 簽名檔管理_tsm.Visible = CC(21) : 資料庫系統管理_tsm.Visible = CC(1) : 門禁系統設定_tsm.Visible = CC(19) '------------------------ToolStripSeparator隱藏 '------------------------章程管理系統------------------------------------------------------------------------------------------------------------------------------------------------- If CC(8) = False Then : TSS37.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(74) = False And CC(75) = False Then : ToolStripSeparator13.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 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(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(78) = False And CC(79) = False Then : ToolStripSeparator21.Visible = False : End If If CC(66) = False And CC(90) = False Then : ToolStripSeparator12.Visible = False : End If If CC(64) = False And CC(65) = False And CC(18) = False Then : ToolStripSeparator22.Visible = False : End If ToolStripSeparator23.Visible = False '------------------------人事管理系統------------------------------------------------------------------------------------------------------------------------------------------------- If CC(23) = False And CC(89) = False And CC(100) = False Then : ToolStripSeparator28.Visible = False : End If If CC(111) = False And CC(112) = False And CC(113) = False Then : ToolStripSeparator10.Visible = False : End If If CC(81) = False Then : ToolStripSeparator4.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 登入人級別 = "00" Then : ToolStripSeparator27.Visible = True : Else : ToolStripSeparator27.Visible = False : End If Dim Str As String = Application.StartupPath If File.Exists(Str + "\HXSTYLE.txt") Then Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\HXSTYLE.txt", System.Text.Encoding.Default) Dim Text As String = "" : Dim line As String = filereader.ReadLine() While Not (line Is Nothing) : Text = Text & line & vbCrLf : line = filereader.ReadLine() : End While : filereader.Close() If Strings.Left(Text, 1) = "B" Then : 深色風格_ch.Checked = False : 深色風格 = False ElseIf Strings.Left(Text, 1) = "W" Then : 深色風格_ch.Checked = True : 深色風格 = True : End If Else : 深色風格_ch.Checked = False : 深色風格 = False : End If 風格() End Sub Private Sub 捷徑設定() For I As Integer = 0 To NSD : If PA20 = 已選捷徑(I) Then : 捷徑關閉 = False : Exit For : End If : Next End Sub Private Sub HXGPSERPSYS_Siz() 動項框_sc.BringToFront() : 延遲1.Enabled = True End Sub Private Sub 業務捷徑繪製() Dim 位置X, 位置Y, 位置Y1, Y可放, 視窗X, 視窗Y, X可放, 總共可放, X已放, Y已放, 已經放置 As Double : 已經放置 = 0 位置Y = 82 : 位置Y1 = 83 : 位置X = 125 : 視窗X = 虛擬桌_業務_pl.Size.Width : 視窗Y = 虛擬桌_業務_pl.Size.Height : X可放 = 視窗X / 位置X : Y可放 = 視窗Y / 位置Y : 總共可放 = X可放 * Y可放 Y可放 = Math.Floor(Y可放) If CC(5) = True And 合約執行進度_tsm.Checked = True Then : 合約執行進度_p.Visible = True : 合約執行進度_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 Else : 合約執行進度_p.Visible = False : End If If CC(60) = True And 合約利潤預估表_tsm.Checked = True Then : 合約利潤預估表_p.Visible = True : 合約利潤預估表_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 Else : 合約利潤預估表_p.Visible = False : End If If CC(116) = True And 合約報價單_tsm.Checked = True Then : 合約報價單_p.Visible = True : 合約報價單_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 Else : 合約報價單_p.Visible = False : End If If CC(107) = True And 合約報價單審核_tsm.Checked = True Then : 合約報價單審核_p.Visible = True : 合約報價單審核_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 Else : 合約報價單審核_p.Visible = False : End If If CC(98) = True And 合約本文_tsm.Checked = True Then : 合約本文_p.Visible = True : 合約本文_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 Else : 合約本文_p.Visible = False : End If If CC(98) = True And 附錄合約_tsm.Checked = True Then : 附錄合約_p.Visible = True : 附錄合約_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 Else : 附錄合約_p.Visible = False : End If If CC(124) = True And 合約請款單_tsm.Checked = True Then : 合約請款單_p.Visible = True : 合約請款單_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 Else : 合約請款單_p.Visible = False : End If If CC(123) = True And 合約請款控制表_tsm.Checked = True Then : 合約請款控制表_p.Visible = True : 合約請款控制表_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 Else : 合約請款控制表_p.Visible = False : End If If CC(126) = True And 合約驗收單_tsm.Checked = True Then : 合約驗收單_p.Visible = True : 合約驗收單_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 Else : 合約驗收單_p.Visible = False : End If If CC(125) = True And 合約驗收控制表_tsm.Checked = True Then : 合約驗收控制表_p.Visible = True : 合約驗收控制表_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 Else : 合約驗收控制表_p.Visible = False : End If If CC(127) = True And 合約保固書_tsm.Checked = True Then : 合約保固書_p.Visible = True : 合約保固書_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 Else : 合約保固書_p.Visible = False : End If If CC(61) = True And 合約文件簽回存檔_tsm.Checked = True Then : 合約文件簽回存檔_p.Visible = True : 合約文件簽回存檔_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 Else : 合約文件簽回存檔_p.Visible = False : End If If CC(62) = True And 合約文件簽核控制表_tsm.Checked = True Then : 合約文件簽核控制表_p.Visible = True : 合約文件簽核控制表_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 Else : 合約文件簽核控制表_p.Visible = False : End If If CC(128) = True And 合約結案控制表_tsm.Checked = True Then : 合約結案控制表_p.Visible = True : 合約結案控制表_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 Else : 合約結案控制表_p.Visible = False : End If If CC(115) = True And 合約工程圖庫管理_tsm.Checked = True Then : 合約工程圖庫管理_p.Visible = True : 合約工程圖庫管理_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 Else : 合約工程圖庫管理_p.Visible = False : End If If CC(52) = True And 工程項目BOM表_tsm.Checked = True Then : 工程項目BOM表_p.Visible = True : 工程項目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 Else : 工程項目BOM表_p.Visible = False : End If If CC(99) = True And 客戶資料表_tsm.Checked = True Then : 客戶資料表_p.Visible = True : 客戶資料表_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 Else : 客戶資料表_p.Visible = False : End If If CC(114) = True And 工程分區控制表_tsm.Checked = True Then : 工程分區控制表_p.Visible = True : 工程分區控制表_p.Size = New Point(位置X, 位置Y1) If 已經放置 = 0 Then : 工程分區控制表1_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 Else : 工程分區控制表_p.Visible = False : End If End Sub Private Sub 請採購捷徑繪製() Dim 位置X, 位置Y, 位置Y1, Y可放, 視窗X, 視窗Y, X可放, 總共可放, X已放, Y已放, 已經放置 As Double : 已經放置 = 0 位置Y = 82 : 位置Y1 = 83 : 位置X = 125 : 視窗X = 虛擬桌_採購_pl.Size.Width : 視窗Y = 虛擬桌_採購_pl.Size.Height : X可放 = 視窗X / 位置X : Y可放 = 視窗Y / 位置Y : 總共可放 = X可放 * Y可放 Y可放 = Math.Floor(Y可放) If CC(33) = True And 請購單申請_tsm.Checked = True Then : 請購單申請_p.Visible = True : 請購單申請_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 Else : 請購單申請_p.Visible = False : End If If CC(34) = True And 請購單核準_tsm.Checked = True Then : 請購單核準_p.Visible = True : 請購單核準_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 Else : 請購單核準_p.Visible = False : End If If CC(35) = True And 請購一覽表_tsm.Checked = True Then : 請購一覽表_p.Visible = True : 請購一覽表_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 Else : 請購一覽表_p.Visible = False : End If If CC(20) = True And 採購單詢價_tsm.Checked = True Then : 採購單詢價_p.Visible = True : 採購單詢價_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 Else : 採購單詢價_p.Visible = False : End If If CC(36) = True And 採購單編輯_tsm.Checked = True Then : 採購單編輯_p.Visible = True : 採購單編輯_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 Else : 採購單編輯_p.Visible = False : End If If CC(73) = True And 採購單一級核准_tsm.Checked = True Then : 採購單一級核准_p.Visible = True : 採購單一級核准_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 Else : 採購單一級核准_p.Visible = False : End If If CC(37) = True And 採購單二級核准_tsm.Checked = True Then : 採購單二級核准_p.Visible = True : 採購單二級核准_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 Else : 採購單二級核准_p.Visible = False : End If If CC(38) = True And 採購單一覽表_tsm.Checked = True Then : 採購單一覽表_p.Visible = True : 採購單一覽表_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 Else : 採購單一覽表_p.Visible = False : End If If CC(39) = True And 入庫驗收單_tsm.Checked = True Then : 入庫驗收單_p.Visible = True : 入庫驗收單_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 Else : 入庫驗收單_p.Visible = False : End If If CC(38) = True And 採購轉財務收支單_tsm.Checked = True Then : 採購轉財務收支單_p.Visible = True : 採購轉財務收支單_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 Else : 採購轉財務收支單_p.Visible = False : End If If CC(74) = True And 電信費追加申請_tsm.Checked = True Then : 電信費追加申請_p.Visible = True : 電信費追加申請_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 Else : 電信費追加申請_p.Visible = False : End If If CC(75) = True And 電信費追加執行_tsm.Checked = True Then : 電信費追加執行_p.Visible = True : 電信費追加執行_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 Else : 電信費追加執行_p.Visible = False : End If 'If CC(40) = True And 採購驗收對帳表_tsm.Checked = True Then : 採購驗收對帳表_p.Visible = True : 採購驗收對帳表_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 'Else : 採購驗收對帳表_p.Visible = False : End If If CC(11) = True And 供應商管理_tsm.Checked = True Then : 供應商管理_p.Visible = True : 供應商管理_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 Else : 供應商管理_p.Visible = False : End If If CInt(登入人級別) <= 2 And 銀行資料修改審核_tsm.Checked = True Then : 銀行資料修改審核_p.Visible = True : 銀行資料修改審核_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 Else : 銀行資料修改審核_p.Visible = False : End If If CC(51) = True And 物料採購統計表_tsm.Checked = True Then : 物料採購統計表_p.Visible = True : 物料採購統計表_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 Else : 物料採購統計表_p.Visible = False : End If If CC(11) = True And 供應商商品單價設定_tsm.Checked = True Then : 供應商商品單價設定_p.Visible = True : 供應商商品單價設定_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 Else : 供應商商品單價設定_p.Visible = False : End If End Sub Private Sub 工程捷徑繪製() Dim 位置X, 位置Y, 位置Y1, Y可放, 視窗X, 視窗Y, X可放, 總共可放, X已放, Y已放, 已經放置 As Double : 已經放置 = 0 位置Y = 82 : 位置Y1 = 83 : 位置X = 125 : 視窗X = 虛擬桌_工程_pl.Size.Width : 視窗Y = 虛擬桌_工程_pl.Size.Height : X可放 = 視窗X / 位置X : Y可放 = 視窗Y / 位置Y : 總共可放 = X可放 * Y可放 Y可放 = Math.Floor(Y可放) If CC(8) = True And 工程材料表_tsm.Checked = True Then : 工程材料表_p.Visible = True : 工程材料表_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 Else : 工程材料表_p.Visible = False : End If If CC(105) = True And 合約驗收單1_tsm.Checked = True Then : 合約驗收單1_p.Visible = True : 合約驗收單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 Else : 合約驗收單1_p.Visible = False : End If If CC(108) = True And 合約驗收控制表1_tsm.Checked = True Then : 合約驗收控制表1_p.Visible = True : 合約驗收控制表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 Else : 合約驗收控制表1_p.Visible = False : End If If CC(109) = True And 合約結案控制表1_tsm.Checked = True Then : 合約結案控制表1_p.Visible = True : 合約結案控制表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 Else : 合約結案控制表1_p.Visible = False : End If If CC(110) = True And 工程進度表_tsm.Checked = True Then : 工程進度表_p.Visible = True : 工程進度表_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 Else : 工程進度表_p.Visible = False : End If If CC(106) = True And 派工人數紀錄表_tsm.Checked = True Then : 派工人數紀錄表_p.Visible = True : 派工人數紀錄表_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 Else : 派工人數紀錄表_p.Visible = False : End If If CC(104) = True And 工程日報表編輯_tsm.Checked = True Then : 工程日報表編輯_p.Visible = True : 工程日報表編輯_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 Else : 工程日報表編輯_p.Visible = False : End If If CC(53) = True And 工程客變單_tsm.Checked = True Then : 工程客變單_p.Visible = True : 工程客變單_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 Else : 工程客變單_p.Visible = False : End If If CC(54) = True And 工程維修單_tsm.Checked = True Then : 工程維修單_p.Visible = True : 工程維修單_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 Else : 工程維修單_p.Visible = False : End If If CC(114) = True And 工程分區控制表1_tsm.Checked = True Then : 工程分區控制表1_p.Visible = True : 工程分區控制表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 Else : 工程分區控制表1_p.Visible = False : End If End Sub Private Sub 倉儲捷徑繪製() Dim 位置X, 位置Y, 位置Y1, Y可放, 視窗X, 視窗Y, X可放, 總共可放, X已放, Y已放, 已經放置 As Double : 已經放置 = 0 位置Y = 82 : 位置Y1 = 83 : 位置X = 125 : 視窗X = 虛擬桌_倉儲_pl.Size.Width : 視窗Y = 虛擬桌_倉儲_pl.Size.Height : X可放 = 視窗X / 位置X : Y可放 = 視窗Y / 位置Y : 總共可放 = X可放 * Y可放 Y可放 = Math.Floor(Y可放) If CC(46) = True And 倉儲控制表_tsm.Checked = True Then : 倉儲控制表_p.Visible = True : 倉儲控制表_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 Else : 倉儲控制表_p.Visible = False : End If If CC(59) = True And 物料退庫_tsm.Checked = True Then : 物料退庫_p.Visible = True : 物料退庫_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 Else : 物料退庫_p.Visible = False : End If If CC(47) = True And 倉儲入庫驗收_tsm.Checked = True Then : 倉儲入庫驗收_p.Visible = True : 倉儲入庫驗收_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 Else : 倉儲入庫驗收_p.Visible = False : End If If CC(48) = True And 物料轉倉申請_tsm.Checked = True Then : 物料轉倉申請_p.Visible = True : 物料轉倉申請_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 Else : 物料轉倉申請_p.Visible = False : End If If CC(49) = True And 物料轉倉審核_tsm.Checked = True Then : 物料轉倉審核_p.Visible = True : 物料轉倉審核_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 Else : 物料轉倉審核_p.Visible = False : End If If CC(50) = True And 物料轉倉出庫_tsm.Checked = True Then : 物料轉倉出庫_p.Visible = True : 物料轉倉出庫_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 Else : 物料轉倉出庫_p.Visible = False : End If If CC(56) = True And 倉儲領料申請_tsm.Checked = True Then : 倉儲領料申請_p.Visible = True : 倉儲領料申請_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 Else : 倉儲領料申請_p.Visible = False : End If If CC(57) = True And 倉儲領料審核_tsm.Checked = True Then : 倉儲領料審核_p.Visible = True : 倉儲領料審核_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 Else : 倉儲領料審核_p.Visible = False : End If If CC(58) = True And 倉儲領料出庫_tsm.Checked = True Then : 倉儲領料出庫_p.Visible = True : 倉儲領料出庫_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 Else : 倉儲領料出庫_p.Visible = False : End If If CC(69) = True And 倉儲單據狀態看板_tsm.Checked = True Then : 倉儲單據狀態看板_p.Visible = True : 倉儲單據狀態看板_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 Else : 倉儲單據狀態看板_p.Visible = False : End If If CC(85) = True And 盤盈盤損申請_tsm.Checked = True Then : 盤盈盤損申請_p.Visible = True : 盤盈盤損申請_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 Else : 盤盈盤損申請_p.Visible = False : End If If CC(86) = True And 盤盈盤損審核_tsm.Checked = True Then : 盤盈盤損審核_p.Visible = True : 盤盈盤損審核_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 Else : 盤盈盤損審核_p.Visible = False : End If If CC(46) = True And 物料資料編輯_tsm.Checked = True Then : 物料資料編輯_p.Visible = True : 物料資料編輯_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 Else : 物料資料編輯_p.Visible = False : End If If CC(70) = True And 物料資料庫_tsm.Checked = True Then : 物料資料庫_p.Visible = True : 物料資料庫_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 Else : 物料資料庫_p.Visible = False : End If If CC(71) = True And 倉儲分區控制表_tsm.Checked = True Then : 倉儲分區控制表_p.Visible = True : 倉儲分區控制表_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 Else : 倉儲分區控制表_p.Visible = False : End If End Sub Private Sub 財務捷徑繪製() Dim 位置X, 位置Y, 位置Y1, Y可放, 視窗X, 視窗Y, X可放, 總共可放, X已放, Y已放, 已經放置 As Double : 已經放置 = 0 位置Y = 82 : 位置Y1 = 83 : 位置X = 125 : 視窗X = 虛擬桌_財務_pl.Size.Width : 視窗Y = 虛擬桌_財務_pl.Size.Height : X可放 = 視窗X / 位置X : Y可放 = 視窗Y / 位置Y : 總共可放 = X可放 * Y可放 Y可放 = Math.Floor(Y可放) If CC(76) = True And 財務支付申請_tsm.Checked = True Then : 財務支付申請_p.Visible = True : 財務支付申請_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 Else : 財務支付申請_p.Visible = False : End If If CC(77) = True And 財務支付審核_tsm.Checked = True Then : 財務支付審核_p.Visible = True : 財務支付審核_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 Else : 財務支付審核_p.Visible = False : End If If CC(68) = True And 財務支付_主管審核_tsm.Checked = True Then : 財務支付_主管審核_p.Visible = True : 財務支付_主管審核_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 Else : 財務支付_主管審核_p.Visible = False : End If If CC(32) = True And 應付款日報表_tsm.Checked = True Then : 應付款日報表_p.Visible = True : 應付款日報表_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 Else : 應付款日報表_p.Visible = False : End If If CC(32) = True And 應付款月報表_tsm.Checked = True Then : 應付款月報表_p.Visible = True : 應付款月報表_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 Else : 應付款月報表_p.Visible = False : End If If CC(91) = True And 營運收支單申請_tsm.Checked = True Then : 營運收支單申請_p.Visible = True : 營運收支單申請_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 Else : 營運收支單申請_p.Visible = False : End If If CC(92) = True And 營運收支單審核_tsm.Checked = True Then : 營運收支單審核_p.Visible = True : 營運收支單審核_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 Else : 營運收支單審核_p.Visible = False : End If If CC(93) = True And 營運收支單一覽表_tsm.Checked = True Then : 營運收支單一覽表_p.Visible = True : 營運收支單一覽表_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 Else : 營運收支單一覽表_p.Visible = False : End If If CC(95) = True And 財務決算表_tsm.Checked = True Then : 財務決算表_p.Visible = True : 財務決算表_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 Else : 財務決算表_p.Visible = False : End If If CC(97) = True And 會計科目管理_tsm.Checked = True Then : 會計科目管理_p.Visible = True : 會計科目管理_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 Else : 會計科目管理_p.Visible = False : End If If CC(96) = True And 匯率管理_tsm.Checked = True Then : 匯率管理_p.Visible = True : 匯率管理_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 Else : 匯率管理_p.Visible = False : End If If CC(78) = True And 採購付款確認表_tsm.Checked = True Then : 採購付款確認表_p.Visible = True : 採購付款確認表_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 Else : 採購付款確認表_p.Visible = False : End If If CC(79) = True And 採購付款狀態報表_tsm.Checked = True Then : 採購付款狀態報表_p.Visible = True : 採購付款狀態報表_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 Else : 採購付款狀態報表_p.Visible = False : End If If CC(66) = True And 收款確認表_tsm.Checked = True Then : 收款確認表_p.Visible = True : 收款確認表_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 Else : 收款確認表_p.Visible = False : End If If CC(90) = True And 收款狀態報表_tsm.Checked = True Then : 收款狀態報表_p.Visible = True : 收款狀態報表_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 Else : 收款狀態報表_p.Visible = False : End If If CC(64) = True And 特支費申請_tsm.Checked = True Then : 特支費申請_p.Visible = True : 特支費申請_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 Else : 特支費申請_p.Visible = False : End If If CC(18) = True And 特支費審核_tsm.Checked = True Then : 特支費審核_p.Visible = True : 特支費審核_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 Else : 特支費審核_p.Visible = False : End If If CC(65) = True And 會計帳務沖銷_tsm.Checked = True Then : 會計帳務沖銷_p.Visible = True : 會計帳務沖銷_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 Else : 會計帳務沖銷_p.Visible = False : End If If CC(18) = True And 主管指定沖銷_tsm.Checked = True Then : 主管指定沖銷_p.Visible = True : 主管指定沖銷_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 Else : 主管指定沖銷_p.Visible = False : End If End Sub Private Sub 人事捷徑繪製() Dim 位置X, 位置Y, 位置Y1, Y可放, 視窗X, 視窗Y, X可放, 總共可放, X已放, Y已放, 已經放置 As Double : 已經放置 = 0 位置Y = 82 : 位置Y1 = 83 : 位置X = 125 : 視窗X = 虛擬桌_人事_pl.Size.Width : 視窗Y = 虛擬桌_人事_pl.Size.Height : X可放 = 視窗X / 位置X : Y可放 = 視窗Y / 位置Y : 總共可放 = X可放 * Y可放 Y可放 = Math.Floor(Y可放) If CC(17) = True And 人員基本資料_tsm.Checked = True Then : 人員基本資料_p.Visible = True : 人員基本資料_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 Else : 人員基本資料_p.Visible = False : End If If CC(55) = True And 系統使用者管理_tsm.Checked = True Then : 系統使用者管理_p.Visible = True : 系統使用者管理_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 Else : 系統使用者管理_p.Visible = False : End If If CC(23) = True And 人員ID卡系統配置設定_tsm.Checked = True Then : 人員ID卡系統配置設定_p.Visible = True : 人員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 Else : 人員ID卡系統配置設定_p.Visible = False : End If If CC(22) = True And 請假單_tsm.Checked = True Then : 請假單_p.Visible = True : 請假單_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 Else : 請假單_p.Visible = False : End If If CC(67) = True And 請假資料確認_tsm.Checked = True Then : 請假資料確認_p.Visible = True : 請假資料確認_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 Else : 請假資料確認_p.Visible = False : End If If CC(22) = True And 行事曆請假_tsm.Checked = True Then : 行事曆請假_p.Visible = True : 行事曆請假_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 Else : 行事曆請假_p.Visible = False : End If If CC(16) = True And 考勤明細表_tsm.Checked = True Then : 考勤明細表_p.Visible = True : 考勤明細表_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 Else : 考勤明細表_p.Visible = False : End If If CC(15) = True And 臨時工卡片管理_tsm.Checked = True Then : 臨時工卡片管理_p.Visible = True : 臨時工卡片管理_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 Else : 臨時工卡片管理_p.Visible = False : End If If CC(81) = True And 人員薪資_tsm.Checked = True Then : 人員薪資_p.Visible = True : 人員薪資_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 Else : 人員薪資_p.Visible = False : End If If CC(100) = True And 門禁權限設定_tsm.Checked = True Then : 門禁權限設定_p.Visible = True : 門禁權限設定_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 Else : 門禁權限設定_p.Visible = False : End If End Sub Private Sub 總務捷徑繪製() Dim 位置X, 位置Y, 位置Y1, Y可放, 視窗X, 視窗Y, X可放, 總共可放, X已放, Y已放, 已經放置 As Double : 已經放置 = 0 位置Y = 82 : 位置Y1 = 83 : 位置X = 125 : 視窗X = 虛擬桌_總務_pl.Size.Width : 視窗Y = 虛擬桌_總務_pl.Size.Height : X可放 = 視窗X / 位置X : Y可放 = 視窗Y / 位置Y : 總共可放 = X可放 * Y可放 Y可放 = Math.Floor(Y可放) If CInt(登入人級別) < 9 And 系統使用說明_tsm.Checked = True Then : 系統使用說明_p.Visible = True : 系統使用說明_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 Else : 系統使用說明_p.Visible = False : End If If CInt(登入人級別) < 9 And 投訴信箱_tsm.Checked = True Then : 投訴信箱_p.Visible = True : 投訴信箱_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 Else : 投訴信箱_p.Visible = False : End If If CInt(登入人級別) < 9 And 文件伺服器_tsm.Checked = True Then : 文件伺服器_p.Visible = True : 文件伺服器_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 Else : 文件伺服器_p.Visible = False : End If If CC(82) = True And 公告管理_tsm.Checked = True Then : 公告管理_p.Visible = True : 公告管理_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 Else : 公告管理_p.Visible = False : End If If CInt(登入人級別) < 9 And 車輛管理_tsm.Checked = True Then : 車輛管理_p.Visible = True : 車輛管理_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 Else : 車輛管理_p.Visible = False : End If If CInt(登入人級別) < 9 And 會議記錄_tsm.Checked = True Then : 會議記錄_p.Visible = True : 會議記錄_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 Else : 會議記錄_p.Visible = False : End If If CInt(登入人級別) < 9 And 部門聯絡函一覽表_tsm.Checked = True Then : 部門聯絡函一覽表_p.Visible = True : 部門聯絡函一覽表_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 Else : 部門聯絡函一覽表_p.Visible = False : End If If CInt(登入人級別) < 9 And 部門聯絡函申請_tsm.Checked = True Then : 部門聯絡函申請_p.Visible = True : 部門聯絡函申請_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 Else : 部門聯絡函申請_p.Visible = False : End If If CInt(登入人級別) < 9 And 聯絡函部門主管審核_tsm.Checked = True Then : 聯絡函部門主管審核_p.Visible = True : 聯絡函部門主管審核_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 Else : 聯絡函部門主管審核_p.Visible = False : End If If CInt(登入人級別) < 9 And 聯絡函最高主管核准_tsm.Checked = True Then : 聯絡函最高主管核准_p.Visible = True : 聯絡函最高主管核准_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 Else : 聯絡函最高主管核准_p.Visible = False : End If End Sub Private Sub UI優化_P_Paint(sender As Object, e As PaintEventArgs) Handles UI優化_P.Paint HXGPSERPSYS_Siz() End Sub Private Sub 延遲1_Tick(sender As Object, e As EventArgs) Handles 延遲1.Tick 延遲1.Enabled = False : UI優化_P.Visible = False Dim childForms() As Form = Me.MdiChildren If childForms.Length = 0 Then : 桌面通知_pl.Visible = True : Else : 桌面通知_pl.Visible = False : End If End Sub Private Sub HXGPSERPSYS_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown If 登入人級別 = "00" Then : Me.Text = Me.Text & " -- " & g_conn_type & " -- " & gUserName & " -- 系統版本 :" & 版本 & " -- IP : " & 登入人IP Else : Me.Text = Me.Text & " -- " & g_conn_type & " -- " & gUserName & " -- 系統版本 :" & 版本 : End If : 系統語言1_cb.Text = 系統語言 '------------------------捷徑讀取----------------------------------------------------------------------------------------------------------------------------------------------- Set_捷徑讀取() For Each item As ToolStripMenuItem In MenuStrip.Items : If item.HasDropDownItems Then For Each subItem As ToolStripItem In item.DropDownItems : If TypeOf subItem Is ToolStripMenuItem AndAlso Not DirectCast(subItem, ToolStripMenuItem).Checked Then For I As Integer = 0 To 捷徑_dgv.Rows.Count - 1 : If 捷徑_dgv("介面", I).Value.ToString = subItem.Name Then : DirectCast(subItem, ToolStripMenuItem).Checked = True Exit For : End If : Next : End If : Next : End If : Next 業務捷徑繪製() : 請採購捷徑繪製() : 工程捷徑繪製() : 倉儲捷徑繪製() : 財務捷徑繪製() : 人事捷徑繪製() : 總務捷徑繪製() '------------------------系統閒置登出宣告----------------------------------------------------------------------------------------------------------------------------------------------- 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 重登計時() : 重置() : 不變形 = False '-----------------------帳號下拉清單------------------------------------------------------------------------------------------------------------ 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 '-----------------------WORD_組件翻譯------------------------------------------------------------------------------------------------------------ Dim Strs As String = Application.StartupPath If 系統語言 = "繁體中文" Then RichTextBoxLocalizationProvider.CurrentProvider = RichTextBoxLocalizationProvider.FromFile(Strs & "\Theme\word_chinese.xml") 合約文本_Word.Word控制項.RibbonBarElement.LayoutModeTextElement.Text = 對話框(23) Else RichTextBoxLocalizationProvider.CurrentProvider = RichTextBoxLocalizationProvider.FromFile(Strs & "\Theme\word_english.xml") 合約文本_Word.Word控制項.RibbonBarElement.LayoutModeTextElement.Text = 對話框(23) End If '-----------------------捷徑設定詢問------------------------------------------------------------------------------------------------------------ If 登入人級別 = "00" Then : If 無設定 = True Then : MGB(對話框(24), 1) If 訊息回應 = "YES" Then : 桌面捷徑設定.ShowDialog() : 桌面通知_pl.Visible = False : UI優化_P.Visible = True : End If : End If End If '-----------------------測試伺服器登入通知------------------------------------------------------------------------------------------------------------ If 登入人IP = "106.1.48.106,4567" Then MGB(對話框(25), 1) End If '-----------------------更新系統公告------------------------------------------------------------------------------------------------------------ If 不用WEB = False Then If File.Exists(Str + "\OPUPDATE.txt") Then 介面 = "H001" : WEB說明頁面.Show() : File.Delete(Strs & "\OPUPDATE.txt") Else 介面 = "H000" : WEB說明頁面.Show() : File.Delete(Strs & "\OPUPDATE.txt") End If End If 虛擬桌_pl.BringToFront() 載入車輛清單() : 載入車輛動態清單() : 載入人員清單() : 載入人員動態清單() : Set_庫存查詢() : 刷新表格.Enabled = True End Sub Private Sub HXGPSERPSYS_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing Dim tempFolderPath As String = Path.Combine(System.Windows.Forms.Application.StartupPath, "Temp") If Directory.Exists(tempFolderPath) Then : Directory.Delete(tempFolderPath, True) : End If 系統關閉 = True : If 判斷重登 = True Then : 判斷重登 = False : Else : 判斷重登 = False : LoginForm1.Close() : End If '-----------紀錄捷徑---------------------------------------------------------------------------------------------------- SQL_捷徑紀錄_刪除() : SQL2 = "" For Each item As ToolStripMenuItem In MenuStrip.Items : If item.HasDropDownItems Then For Each subItem As ToolStripItem In item.DropDownItems If TypeOf subItem Is ToolStripMenuItem AndAlso DirectCast(subItem, ToolStripMenuItem).Checked Then : SQL2 &= "(N'" & gUserName & "', N'" & subItem.Name & "')," : End If Next : End If Next : If SQL2.Length > 0 Then : SQL2 = SQL2.Substring(0, SQL2.Length - 1) : End If SQL_捷徑紀錄_新增() End Sub Private Sub HXGPSERPSYS_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged If 不變形 = True Then : Else : 桌面通知_pl.Visible = False : UI優化_P.Visible = True : 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.Close() : 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.Close() : 系統登出.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 重置() 首次開啟 = True : 不變形 = True : 工人 = False : 重新計算 = True 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 = "" : PA48 = "" : PA49 = "" : PA50 = "" : PA51 = "" 列印用SQL = "" : 列印用SQL2 = "" : PPAA = "" : DTP = "" : DTP1 = "" : DTP2 = "" : DTP3 = "" For i As Integer = 0 To 999 : H(i) = False : Next 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" : 語言轉換讀取() '-------------------------------H0系列-系統--------------------------------------------------------------------------------------------------------------------------------------- If H(2) = True Then : 介面 = "H002" : 系統使用者管理.語轉扭_bt.PerformClick() : End If : If H(2) = True Then : 介面 = "H002" : 系統權限預設表.語轉扭_bt.PerformClick() : End If If H(3) = True Then : 介面 = "H003" : 桌面捷徑設定.語轉扭_bt.PerformClick() : End If : If H(4) = True Then : 介面 = "H004" : End If '-------------------------------H1系列-業務--------------------------------------------------------------------------------------------------------------------------------------- If H(101) = True Then : 介面 = "H101" : 合約執行進度.語轉扭_bt.PerformClick() : End If : If H(102) = True Then : 介面 = "H102" : 合約報價單.語轉扭_bt.PerformClick() : End If If H(103) = True Then : 介面 = "H103" : 合約報價單審核.語轉扭_bt.PerformClick() : End If : If H(104) = True Then : 介面 = "H104" : 附錄合約.語轉扭_bt.PerformClick() : End If If H(105) = True Then : 介面 = "H105" : 合約利潤預估表.語轉扭_bt.PerformClick() : End If : If H(106) = True Then : 介面 = "H106" : 合約請款控制表.語轉扭_bt.PerformClick() : End If If H(108) = True Then : 介面 = "H108" : 合約請款單.語轉扭_bt.PerformClick() : End If If H(109) = True Then : 介面 = "H109" : 合約驗收單.語轉扭_bt.PerformClick() : End If : If H(110) = True Then : 介面 = "H110" : 合約驗收控制表.語轉扭_bt.PerformClick() : End If If H(111) = True Then : 介面 = "H111" : 合約保固書.語轉扭_bt.PerformClick() : End If : If H(112) = True Then : 介面 = "H112" : 合約文件簽回存檔.語轉扭_bt.PerformClick() : End If If H(113) = True Then : 介面 = "H113" : 合約文件簽核控制表.語轉扭_bt.PerformClick() : End If : If H(114) = True Then : 介面 = "H114" : 合約結案控制表.語轉扭_bt.PerformClick() : End If If H(115) = True Then : 介面 = "H115" : 工程項目BOM表.語轉扭_bt.PerformClick() : End If : If H(116) = True Then : 介面 = "H116" : 合約文本_Word.語轉扭_bt.PerformClick() : End If 'H107 合約本文 '-------------------------------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(220) = True Then : 介面 = "H220" : 採購轉財物支付單.語轉扭_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(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(299) = True Then : 介面 = "H299" : 供應商管理.語轉扭_bt.PerformClick() : End If '-------------------------------H3系統-財務--------------------------------------------------------------------------------------------------------------------------------------- If H(301) = True Then : 介面 = "H301" : 財務收支單申請.語轉扭_bt.PerformClick() : End If : If H(302) = True Then : 介面 = "H302" : 財務收支單審核.語轉扭_bt.PerformClick() : End If If H(303) = True Then : 介面 = "H303" : 財務收支單一覽表.語轉扭_bt.PerformClick() : 財務收支單對帳表.語轉扭_bt.PerformClick() : End If : If H(304) = True Then : 介面 = "H304" : 特支費申請.語轉扭_bt.PerformClick() : End If If H(305) = True Then : 介面 = "H305" : 會計帳務沖銷.語轉扭_bt.PerformClick() : End If : If H(306) = True Then : 介面 = "H306" : 匯率管理.語轉扭_bt.PerformClick() : End If If H(307) = True Then : 介面 = "H307" : 會計科目管理.語轉扭_bt.PerformClick() : End If : If H(308) = True Then : 介面 = "H308" : 特支費高層指定.語轉扭_bt.PerformClick() : End If If H(309) = True Then : 介面 = "H309" : 收款確認表.語轉扭_bt.PerformClick() : End If : If H(310) = True Then : 介面 = "H310" : 收款狀態報表.語轉扭_bt.PerformClick() : End If If H(311) = True Then : 介面 = "H311" : 採購單付款確認.語轉扭_bt.PerformClick() : End If : If H(312) = True Then : 介面 = "H312" : 採購付款狀態報表.語轉扭_bt.PerformClick() : End If If H(314) = True Then : 介面 = "H314" : 財物支付單申請_傳票.語轉扭_bt.PerformClick() : End If : If H(315) = True Then : 介面 = "H315" : 特支費審核.語轉扭_bt.PerformClick() : End If If H(317) = True Then : 介面 = "H317" : 財務支付單_最高主管審核.語轉扭_bt.PerformClick() : End If : If H(318) = True Then : 介面 = "H318" : 應付款日報表.語轉扭_bt.PerformClick() : End If If H(319) = True Then : 介面 = "H319" : 應付款月報表.語轉扭_bt.PerformClick() : End If If H(316) = True Then : 介面 = "H316" : End If : If H(313) = True Then : 介面 = " H313" : 財務收支決算表.語轉扭_bt.PerformClick() : End If 'H316 零用金冲帳年報 '-------------------------------H4系統-工程--------------------------------------------------------------------------------------------------------------------------------------- If H(401) = True Then : 介面 = "H401" : 新甘特圖模板.語轉扭_bt.PerformClick() : End If : 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(407) = True Then : 介面 = "H407" : 工程材料表.語轉扭_bt.PerformClick() : End If 'H404 工程日報表審核 H403 工程日報表編輯 '-------------------------------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 If H(530) = True Then : 介面 = "H530" : 倉儲分區控制表.語轉扭_bt.PerformClick() : End If 'H529 倉儲分區選擇 '-------------------------------H6系列-人事--------------------------------------------------------------------------------------------------------------------------------------- If H(601) = True Then : 介面 = "H601" : 人員ID卡系統配置設定.語轉扭_bt.PerformClick() : End If : If H(605) = True Then : 介面 = "H605" : LINE_權限一覽表.語轉扭_bt.PerformClick() : End If If H(602) = True Then : 介面 = "H602" : 系統組織結構與權限設定.語轉扭_bt.PerformClick() : End If : If H(606) = True Then : 介面 = "H606" : LINE_通知測試表.語轉扭_bt.PerformClick() : End If If H(604) = True Then : 介面 = "H604" : LINE_使用者管理表.語轉扭_bt.PerformClick() : End If : If H(603) = True Then : 介面 = "H603" : 公司組織結構.語轉扭_bt.PerformClick() : End If If H(607) = True Then : 介面 = "H607" : 人員基本資料.語轉扭_bt.PerformClick() : End If : If H(608) = True Then : 介面 = "H608" : End If If H(609) = True Then : 介面 = "H609" : 考勤明細表.語轉扭_bt.PerformClick() : End If : If H(610) = True Then : 介面 = "H610" : 臨時工卡片管理.語轉扭_bt.PerformClick() : End If If H(611) = True Then : 介面 = "H611" : 人員薪資.語轉扭_bt.PerformClick() : End If : If H(613) = True Then : 介面 = "H613" : 門禁權限管理.語轉扭_bt.PerformClick() : End If If H(614) = True Then : 介面 = "H614" : 請假資料確認.語轉扭_bt.PerformClick() : End If : If H(612) = True Then : 介面 = "H612" : End If If H(615) = True Then : 介面 = "H615" : 排班資料.語轉扭_bt.PerformClick() : End If : If H(616) = True Then : 介面 = "H616" : 車輛管理.語轉扭_bt.PerformClick() : End If 'H608 考勤打卡 H612 每月零用金設定 '-------------------------------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(903) = True Then : 介面 = "H903" : 系統使用說明.語轉扭_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 : If H(907) = True Then : 介面 = "H908" : 安培容量計算.語轉扭_bt.PerformClick() : End If If H(909) = True Then : 介面 = "H909" : 管徑_流速_流量計算器.語轉扭_bt.PerformClick() : End If Access1.Close() : 桌面通知_pl.Visible = False Dim childForms() As Form = Me.MdiChildren : If childForms.Length = 0 Then : UI優化_P.Visible = True : Else : UI優化_P.Visible = False : End If 不變形 = False : 計算分流1.Enabled = True End Sub Private Sub 桌面捷徑翻頁() If 總務 = False And 業務 = False And 採購 = False And 工程 = False And 倉儲 = False And 財務 = False And 人事 = False Then : 虛擬桌_pl.BringToFront() ElseIf 總務 = True And 業務 = False And 採購 = False And 工程 = False And 倉儲 = False And 財務 = False And 人事 = False Then : 虛擬桌_總務_pl.BringToFront() ElseIf 總務 = False And 業務 = True And 採購 = False And 工程 = False And 倉儲 = False And 財務 = False And 人事 = False Then : 虛擬桌_業務_pl.BringToFront() ElseIf 總務 = False And 業務 = False And 採購 = True And 工程 = False And 倉儲 = False And 財務 = False And 人事 = False Then : 虛擬桌_採購_pl.BringToFront() ElseIf 總務 = False And 業務 = False And 採購 = False And 工程 = True And 倉儲 = False And 財務 = False And 人事 = False Then : 虛擬桌_工程_pl.BringToFront() ElseIf 總務 = False And 業務 = False And 採購 = False And 工程 = False And 倉儲 = True And 財務 = False And 人事 = False Then : 虛擬桌_倉儲_pl.BringToFront() ElseIf 總務 = False And 業務 = False And 採購 = False And 工程 = False And 倉儲 = False And 財務 = True And 人事 = False Then : 虛擬桌_財務_pl.BringToFront() ElseIf 總務 = False And 業務 = False And 採購 = False And 工程 = False And 倉儲 = False And 財務 = False And 人事 = True Then : 虛擬桌_人事_pl.BringToFront() End If End Sub Private Sub 虛擬桌面隱藏() 大框_sc.Visible = False 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 簡易功能_tsm_Click(sender As Object, e As EventArgs) Handles 總務系統管理_tsm.Click 總務 = True : 業務 = False : 採購 = False : 工程 = False : 倉儲 = False : 財務 = False : 人事 = False : 桌面捷徑翻頁() : 總務捷徑繪製() End Sub Private Sub 投訴信箱_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 投訴信箱_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 投訴信箱_tsm.Checked = Not 投訴信箱_tsm.Checked : End If : 總務捷徑繪製() End Sub Private Sub 投訴信箱_tsm_Click(sender As Object, e As EventArgs) Handles 投訴信箱_tsm.Click H(4) = True : 介面 = "H004" : WEB說明頁面.ShowDialog() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 會議記錄_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 會議記錄_tsm.Checked = Not 會議記錄_tsm.Checked : End If : 總務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 部門聯絡函一覽表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 部門聯絡函一覽表_tsm.Checked = Not 部門聯絡函一覽表_tsm.Checked : End If : 總務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 部門聯絡函申請_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 部門聯絡函申請_tsm.Checked = Not 部門聯絡函申請_tsm.Checked : End If : 總務捷徑繪製() 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 : 跨部門開啟 = 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 聯絡函部門主管審核_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 聯絡函部門主管審核_tsm.Checked = Not 聯絡函部門主管審核_tsm.Checked : End If : 總務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 聯絡函最高主管核准_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 聯絡函最高主管核准_tsm.Checked = Not 聯絡函最高主管核准_tsm.Checked : End If : 總務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 車輛管理_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 車輛管理_tsm.Checked = Not 車輛管理_tsm.Checked : End If : 總務捷徑繪製() End Sub Private Sub 車輛管理_tsm_Click(sender As Object, e As EventArgs) Handles 車輛管理_tsm.Click 重登計時() : 重置() : 車輛管理.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_MouseDown(sender As Object, e As MouseEventArgs) Handles 文件伺服器_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 文件伺服器_tsm.Checked = Not 文件伺服器_tsm.Checked : End If : 總務捷徑繪製() End Sub Private Sub 文件伺服器_tsm_Click(sender As Object, e As EventArgs) Handles 文件伺服器_tsm.Click Process.Start("https://quickconnect.to/HX-PGS-NAS") 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 系統使用說明_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 系統使用說明_tsm.Checked = Not 系統使用說明_tsm.Checked : End If : 總務捷徑繪製() End Sub Private Sub 系統使用說明_tsm_Click(sender As Object, e As EventArgs) Handles 系統使用說明_tsm.Click If 系統語言 = "繁體中文" Then : 介面 = "H000" : WEB說明頁面.Show() 'Process.Start("https://gcm-smart.com/2024/04/11/hx-erp-sop-index-t/") ElseIf 系統語言 <> "繁體中文" Then : 介面 = "H000" : WEB說明頁面.Show() 'Process.Start("https://gcm-smart.com/2024/04/11/hx-erp-sop-index-i/") : End If 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 公告管理_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 公告管理_tsm.Checked = Not 公告管理_tsm.Checked : End If : 總務捷徑繪製() End Sub Private Sub 公告管理_tsm_Click(sender As Object, e As EventArgs) Handles 公告管理_tsm.Click 重登計時() : 重置() : 公告管理.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 重登計時() : 重置() : 管徑_流速_流量計算器.ShowDialog() : 管徑_流速_流量計算器.BringToFront() End Sub Private Sub 安培容量計算表_tsm_Click(sender As Object, e As EventArgs) Handles 安培容量計算表_tsm.Click For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 重登計時() : 重置() : 安培容量計算.ShowDialog() : 安培容量計算.BringToFront() End Sub '------------------------業務系統管理------------------------------------------------------------------------------------------------------------------------------------------------- Private Sub 業務系統管理_tsm_Click(sender As Object, e As EventArgs) Handles 業務系統管理_tsm.Click 總務 = False : 業務 = True : 採購 = False : 工程 = False : 倉儲 = False : 財務 = False : 人事 = False : 桌面捷徑翻頁() : 業務捷徑繪製() End Sub Private Sub 合約執行進度_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約執行進度_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 合約執行進度_tsm.Checked = Not 合約執行進度_tsm.Checked : End If : 業務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約利潤預估表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 合約利潤預估表_tsm.Checked = Not 合約利潤預估表_tsm.Checked : End If : 業務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約報價單_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 合約報價單_tsm.Checked = Not 合約報價單_tsm.Checked : End If : 業務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約報價單審核_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 合約報價單審核_tsm.Checked = Not 合約報價單審核_tsm.Checked : End If : 業務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約本文_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 合約本文_tsm.Checked = Not 合約本文_tsm.Checked : End If : 業務捷徑繪製() 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 虛擬桌面隱藏() : 重登計時() : 重置() : 合約文本_Word.Show() : 合約文本_Word.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_MouseDown(sender As Object, e As MouseEventArgs) Handles 附錄合約_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 附錄合約_tsm.Checked = Not 附錄合約_tsm.Checked : End If : 業務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約請款控制表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 合約請款控制表_tsm.Checked = Not 合約請款控制表_tsm.Checked : End If : 業務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約請款單_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 合約請款單_tsm.Checked = Not 合約請款單_tsm.Checked : End If : 業務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約驗收控制表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 合約驗收控制表_tsm.Checked = Not 合約驗收控制表_tsm.Checked : End If : 業務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約驗收單_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 合約驗收單_tsm.Checked = Not 合約驗收單_tsm.Checked : End If : 業務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約保固書_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 合約保固書_tsm.Checked = Not 合約保固書_tsm.Checked : End If : 業務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約文件簽回存檔_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 合約文件簽回存檔_tsm.Checked = Not 合約文件簽回存檔_tsm.Checked : End If : 業務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約文件簽核控制表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 合約文件簽核控制表_tsm.Checked = Not 合約文件簽核控制表_tsm.Checked : End If : 業務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約結案控制表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 合約結案控制表_tsm.Checked = Not 合約結案控制表_tsm.Checked : End If : 業務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約工程圖庫管理_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 合約工程圖庫管理_tsm.Checked = Not 合約工程圖庫管理_tsm.Checked : End If : 業務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 工程項目BOM表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 工程項目BOM表_tsm.Checked = Not 工程項目BOM表_tsm.Checked : End If : 業務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 客戶資料表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 客戶資料表_tsm.Checked = Not 客戶資料表_tsm.Checked : End If : 業務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 工程分區控制表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 工程分區控制表_tsm.Checked = Not 工程分區控制表_tsm.Checked : End If : 業務捷徑繪製() 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 總務 = False : 業務 = False : 採購 = True : 工程 = False : 倉儲 = False : 財務 = False : 人事 = False : 桌面捷徑翻頁() : 請採購捷徑繪製() End Sub Private Sub 電信費追加申請_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 電信費追加申請_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 電信費追加申請_tsm.Checked = Not 電信費追加申請_tsm.Checked : End If : 請採購捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 電信費追加執行_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 電信費追加執行_tsm.Checked = Not 電信費追加執行_tsm.Checked : End If : 請採購捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 請購單申請_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 請購單申請_tsm.Checked = Not 請購單申請_tsm.Checked : End If : 請採購捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 請購單核準_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 請購單核準_tsm.Checked = Not 請購單核準_tsm.Checked : End If : 請採購捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 請購一覽表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 請購一覽表_tsm.Checked = Not 請購一覽表_tsm.Checked : End If : 請採購捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 採購單編輯_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 採購單編輯_tsm.Checked = Not 採購單編輯_tsm.Checked : End If : 請採購捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 採購單一級核准_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 採購單一級核准_tsm.Checked = Not 採購單一級核准_tsm.Checked : End If : 請採購捷徑繪製() 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() : 採購單一級核准_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_MouseDown(sender As Object, e As MouseEventArgs) Handles 採購單二級核准_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 採購單二級核准_tsm.Checked = Not 採購單二級核准_tsm.Checked : End If : 請採購捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 採購單一覽表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 採購單一覽表_tsm.Checked = Not 採購單一覽表_tsm.Checked : End If : 請採購捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 入庫驗收單_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 入庫驗收單_tsm.Checked = Not 入庫驗收單_tsm.Checked : End If : 請採購捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 採購驗收對帳表_tsm.MouseDown '----------------------------------------------------------------- ' If e.Button = MouseButtons.Right Then : 採購驗收對帳表_tsm.Checked = Not 採購驗收對帳表_tsm.Checked : End If : 請採購捷徑繪製() '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_MouseDown(sender As Object, e As MouseEventArgs) Handles 採購單詢價_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 採購單詢價_tsm.Checked = Not 採購單詢價_tsm.Checked : End If : 請採購捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 供應商管理_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 供應商管理_tsm.Checked = Not 供應商管理_tsm.Checked : End If : 請採購捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 物料採購統計表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 物料採購統計表_tsm.Checked = Not 物料採購統計表_tsm.Checked : End If : 請採購捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 供應商商品單價設定_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 供應商商品單價設定_tsm.Checked = Not 供應商商品單價設定_tsm.Checked : End If : 請採購捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 採購轉財務收支單_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 採購轉財務收支單_tsm.Checked = Not 採購轉財務收支單_tsm.Checked : End If : 請採購捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 銀行資料修改審核_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 銀行資料修改審核_tsm.Checked = Not 銀行資料修改審核_tsm.Checked : End If : 請採購捷徑繪製() End Sub Private Sub 物料供應商主管審核_tsm_Click(sender As Object, e As EventArgs) Handles 銀行資料修改審核_tsm.Click 供應商管理銀行修改審核.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 樣品請購單核准_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 樣品採購單一覽表_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 樣品來料驗收單_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 總務 = False : 業務 = False : 採購 = False : 工程 = False : 倉儲 = False : 財務 = True : 人事 = False : 桌面捷徑翻頁() : 財務捷徑繪製() End Sub Private Sub 財務支付審核_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 財務支付審核_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 財務支付審核_tsm.Checked = Not 財務支付審核_tsm.Checked : End If : 財務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 財務支付申請_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 財務支付申請_tsm.Checked = Not 財務支付申請_tsm.Checked : End If : 財務捷徑繪製() End Sub Private Sub 支票收支申請_tsm_Click(sender As Object, e As EventArgs) Handles 財務支付申請_tsm.Click 跨部門開啟 = 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 財務支付_主管審核_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 財務支付_主管審核_tsm.Checked = Not 財務支付_主管審核_tsm.Checked : End If : 財務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 營運收支單申請_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 營運收支單申請_tsm.Checked = Not 營運收支單申請_tsm.Checked : End If : 財務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 營運收支單審核_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 營運收支單審核_tsm.Checked = Not 營運收支單審核_tsm.Checked : End If : 財務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 營運收支單一覽表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 營運收支單一覽表_tsm.Checked = Not 營運收支單一覽表_tsm.Checked : End If : 財務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 財務決算表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 財務決算表_tsm.Checked = Not 財務決算表_tsm.Checked : End If : 財務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 採購付款確認表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 採購付款確認表_tsm.Checked = Not 採購付款確認表_tsm.Checked : End If : 財務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 採購付款狀態報表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 採購付款狀態報表_tsm.Checked = Not 採購付款狀態報表_tsm.Checked : End If : 財務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 特支費申請_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 特支費申請_tsm.Checked = Not 特支費申請_tsm.Checked : End If : 財務捷徑繪製() 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 虛擬桌面隱藏() : 重登計時() : 重置() : 指定會科 = "B-02-04-29" : 特支費申請.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_MouseDown(sender As Object, e As MouseEventArgs) Handles 特支費審核_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 特支費審核_tsm.Checked = Not 特支費審核_tsm.Checked : End If : 財務捷徑繪製() 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 虛擬桌面隱藏() : 重登計時() : 重置() : 指定會科 = "B-02-04-29" : 特支費審核.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_MouseDown(sender As Object, e As MouseEventArgs) Handles 會計帳務沖銷_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 會計帳務沖銷_tsm.Checked = Not 會計帳務沖銷_tsm.Checked : End If : 財務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 主管指定沖銷_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 主管指定沖銷_tsm.Checked = Not 主管指定沖銷_tsm.Checked : End If : 財務捷徑繪製() End Sub Private Sub 主管指定沖銷_tsm_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_MouseDown(sender As Object, e As MouseEventArgs) Handles 收款確認表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 收款確認表_tsm.Checked = Not 收款確認表_tsm.Checked : End If : 財務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 收款狀態報表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 收款狀態報表_tsm.Checked = Not 收款狀態報表_tsm.Checked : End If : 財務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 會計科目管理_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 會計科目管理_tsm.Checked = Not 會計科目管理_tsm.Checked : End If : 財務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 匯率管理_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 匯率管理_tsm.Checked = Not 匯率管理_tsm.Checked : End If : 財務捷徑繪製() 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 重登計時() : 重置() : 匯率管理.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_MouseDown(sender As Object, e As MouseEventArgs) Handles 應付款日報表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 應付款日報表_tsm.Checked = Not 應付款日報表_tsm.Checked : End If : 財務捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 應付款月報表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 應付款月報表_tsm.Checked = Not 應付款月報表_tsm.Checked : End If : 財務捷徑繪製() 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 營運成本收支單對帳表ToolStripMenuItem_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 總務 = False : 業務 = False : 採購 = False : 工程 = False : 倉儲 = True : 財務 = False : 人事 = False : 桌面捷徑翻頁() : 倉儲捷徑繪製() End Sub Private Sub 物料資料庫_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 物料資料庫_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 物料資料庫_tsm.Checked = Not 物料資料庫_tsm.Checked : End If : 倉儲捷徑繪製() End Sub Private Sub 物料資料庫_tsm_Click(sender As Object, e As EventArgs) Handles 物料資料庫_tsm.Click Dim screenWidth = Screen.PrimaryScreen.Bounds.Width : Dim screenHeight = Screen.PrimaryScreen.Bounds.Height If screenWidth < 1920 And Height < 1080 Then MGB(系統語言字典("H000-127-" & 語言) & " " & screenWidth.ToString() & " X " & screenHeight.ToString() & " " & 系統語言字典("H000-128-" & 語言), 1) Else For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : 重登計時() : 重置() : 物料資料庫.Show() : 物料資料庫.BringToFront() End If 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 物料資料編輯_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 物料資料編輯_tsm.Checked = Not 物料資料編輯_tsm.Checked : End If : 倉儲捷徑繪製() End Sub Private Sub 物料資料編輯_tsm_Click(sender As Object, e As EventArgs) Handles 物料資料編輯_tsm.Click Dim screenWidth = Screen.PrimaryScreen.Bounds.Width : Dim screenHeight = Screen.PrimaryScreen.Bounds.Height If screenWidth < 1920 And Height < 1080 Then MGB(系統語言字典("H000-127-" & 語言) & " " & screenWidth.ToString() & " X " & screenHeight.ToString() & " " & 系統語言字典("H000-128-" & 語言), 1) Else For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : 重登計時() : 重置() : 物料資料庫_編輯.Show() : 物料資料庫_編輯.BringToFront() End If 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 倉儲分區控制表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 倉儲分區控制表_tsm.Checked = Not 倉儲分區控制表_tsm.Checked : End If : 倉儲捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 倉儲控制表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 倉儲控制表_tsm.Checked = Not 倉儲控制表_tsm.Checked : End If : 倉儲捷徑繪製() End Sub Private Sub 倉儲控制表_tsm_Click(sender As Object, e As EventArgs) Handles 倉儲控制表_tsm.Click 倉儲倉級2 = "1" : 倉儲倉級1 = "1" : 倉儲倉級3 = "1" : 倉儲倉級4 = "1" : 倉儲倉級5 = "1" : 倉儲倉級6 = "1" : 倉儲倉級7 = "1" : 倉儲倉級8 = "1" : 倉儲倉級9 = "1" 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 倉儲入庫驗收_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 倉儲入庫驗收_tsm.Checked = Not 倉儲入庫驗收_tsm.Checked : End If : 倉儲捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 物料轉倉申請_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 物料轉倉申請_tsm.Checked = Not 物料轉倉申請_tsm.Checked : End If : 倉儲捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 物料轉倉審核_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 物料轉倉審核_tsm.Checked = Not 物料轉倉審核_tsm.Checked : End If : 倉儲捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 物料轉倉出庫_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 物料轉倉出庫_tsm.Checked = Not 物料轉倉出庫_tsm.Checked : End If : 倉儲捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 倉儲領料申請_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 倉儲領料申請_tsm.Checked = Not 倉儲領料申請_tsm.Checked : End If : 倉儲捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 倉儲領料審核_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 倉儲領料審核_tsm.Checked = Not 倉儲領料審核_tsm.Checked : End If : 倉儲捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 倉儲領料出庫_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 倉儲領料出庫_tsm.Checked = Not 倉儲領料出庫_tsm.Checked : End If : 倉儲捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 物料退庫_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 物料退庫_tsm.Checked = Not 物料退庫_tsm.Checked : End If : 倉儲捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 倉儲單據狀態看板_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 倉儲單據狀態看板_tsm.Checked = Not 倉儲單據狀態看板_tsm.Checked : End If : 倉儲捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 盤盈盤損申請_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 盤盈盤損申請_tsm.Checked = Not 盤盈盤損申請_tsm.Checked : End If : 倉儲捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 盤盈盤損審核_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 盤盈盤損審核_tsm.Checked = Not 盤盈盤損審核_tsm.Checked : End If : 倉儲捷徑繪製() 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 總務 = False : 業務 = False : 採購 = False : 工程 = False : 倉儲 = False : 財務 = False : 人事 = True : 桌面捷徑翻頁() : 人事捷徑繪製() End Sub Private Sub 人員基本資料_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 人員基本資料_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 人員基本資料_tsm.Checked = Not 人員基本資料_tsm.Checked : End If : 人事捷徑繪製() 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 重登計時() : 重置() : If 登入人級別 = "00" Then : BL = False : Else : BL = True : End If 虛擬桌面隱藏() : 人員基本資料.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_MouseDown(sender As Object, e As MouseEventArgs) Handles 人員ID卡系統配置設定_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 人員ID卡系統配置設定_tsm.Checked = Not 人員ID卡系統配置設定_tsm.Checked : End If : 人事捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 人員薪資_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 人員薪資_tsm.Checked = Not 人員薪資_tsm.Checked : End If : 人事捷徑繪製() 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 重登計時() : 重置() : If 登入人級別 = "00" Then : BL = False : Else : BL = True : End If 虛擬桌面隱藏() : 人員薪資.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_MouseDown(sender As Object, e As MouseEventArgs) Handles 考勤明細表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 考勤明細表_tsm.Checked = Not 考勤明細表_tsm.Checked : End If : 人事捷徑繪製() 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 重登計時() : 重置() : If 登入人級別 = "00" Then : BL = False : Else : BL = True : End If 虛擬桌面隱藏() : 考勤明細表.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_MouseDown(sender As Object, e As MouseEventArgs) Handles 臨時工卡片管理_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 臨時工卡片管理_tsm.Checked = Not 臨時工卡片管理_tsm.Checked : End If : 人事捷徑繪製() End Sub Private Sub 臨時工卡片管理_tsm_Click(sender As Object, e As EventArgs) Handles 臨時工卡片管理_tsm.Click 臨時工卡片管理.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_MouseDown(sender As Object, e As MouseEventArgs) Handles 系統使用者管理1_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 系統使用者管理1_tsm.Checked = Not 系統使用者管理1_tsm.Checked : End If : 人事捷徑繪製() 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 重登計時() : 重置() : If 登入人級別 = "00" Then : BL = False : Else : BL = True : End If 虛擬桌面隱藏() : 系統使用者管理.Show() : 系統使用者管理.BringToFront() End Sub Private Sub 系統使用者管理_pb_Click(sender As Object, e As EventArgs) Handles 系統使用者管理_pb.Click 系統使用者管理1_tsm.PerformClick() End Sub Private Sub 系統使用者管理_lb_Click(sender As Object, e As EventArgs) Handles 系統使用者管理_lb.Click 系統使用者管理1_tsm.PerformClick() End Sub Private Sub 門禁權限設定_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 門禁權限設定_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 門禁權限設定_tsm.Checked = Not 門禁權限設定_tsm.Checked : End If : 人事捷徑繪製() 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 重登計時() : 重置() : If 登入人級別 = "00" Then : BL = False : Else : BL = True : End If 虛擬桌面隱藏() : 門禁權限管理.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_MouseDown(sender As Object, e As MouseEventArgs) Handles 請假單_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 請假單_tsm.Checked = Not 請假單_tsm.Checked : End If : 人事捷徑繪製() 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 重登計時() : 重置() : If 登入人級別 = "00" Then : BL = False : Else : BL = True : End If 虛擬桌面隱藏() : 部門聯絡函申請.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_MouseDown(sender As Object, e As MouseEventArgs) Handles 請假資料確認_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 請假資料確認_tsm.Checked = Not 請假資料確認_tsm.Checked : End If : 人事捷徑繪製() 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 重登計時() : 重置() : If 登入人級別 = "00" Then : BL = False : Else : BL = True : End If 虛擬桌面隱藏() : 請假資料確認.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_MouseDown(sender As Object, e As MouseEventArgs) Handles 行事曆請假_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 行事曆請假_tsm.Checked = Not 行事曆請假_tsm.Checked : End If : 人事捷徑繪製() 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 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 重登計時() : 重置() : LINE_通知測試表.Show() : LINE_通知測試表.BringToFront() End Sub Private Sub LINE權限一覽表_Click(sender As Object, e As EventArgs) Handles LINE權限一覽表_tsm.Click 重登計時() : 重置() : LINE_權限一覽表.Show() : LINE_權限一覽表.BringToFront() End Sub '------------------------工程系統管理------------------------------------------------------------------------------------------------------------------------------------------------- Private Sub 工程系統管理_tsm_Click(sender As Object, e As EventArgs) Handles 工程系統管理_tsm.Click 總務 = False : 業務 = False : 採購 = False : 工程 = True : 倉儲 = False : 財務 = False : 人事 = False : 桌面捷徑翻頁() : 工程捷徑繪製() End Sub Private Sub 工程材料表_tsm_MouseDown(sender As Object, e As MouseEventArgs) Handles 工程材料表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 工程材料表_tsm.Checked = Not 工程材料表_tsm.Checked : End If : 工程捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約驗收單1_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 合約驗收單1_tsm.Checked = Not 合約驗收單1_tsm.Checked : End If : 工程捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約驗收控制表1_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 合約驗收控制表1_tsm.Checked = Not 合約驗收控制表1_tsm.Checked : End If : 工程捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 合約結案控制表1_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 合約結案控制表1_tsm.Checked = Not 合約結案控制表1_tsm.Checked : End If : 工程捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 工程進度表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 工程進度表_tsm.Checked = Not 工程進度表_tsm.Checked : End If : 工程捷徑繪製() End Sub Private Sub 工程進度表_tsm_Click(sender As Object, e As EventArgs) Handles 工程進度表_tsm.Click GanttViewLocalizationProvider.CurrentProvider = New MyEnglishGanttViewLocalizationProvider() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 派工人數紀錄表_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 派工人數紀錄表_tsm.Checked = Not 派工人數紀錄表_tsm.Checked : End If : 工程捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 工程日報表編輯_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 工程日報表編輯_tsm.Checked = Not 工程日報表編輯_tsm.Checked : End If : 工程捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 工程客變單_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 工程客變單_tsm.Checked = Not 工程客變單_tsm.Checked : End If : 工程捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 工程維修單_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 工程維修單_tsm.Checked = Not 工程維修單_tsm.Checked : End If : 工程捷徑繪製() 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_MouseDown(sender As Object, e As MouseEventArgs) Handles 工程分區控制表1_tsm.MouseDown '----------------------------------------------------------------- If e.Button = MouseButtons.Right Then : 工程分區控制表1_tsm.Checked = Not 工程分區控制表1_tsm.Checked : End If : 工程捷徑繪製() 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 系統執行檔版本管理_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 虛擬桌面隱藏() : 重登計時() : 重置() : BL = False : 系統使用者管理.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 系統通用變數管理_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 TEST_tsm_Click(sender As Object, e As EventArgs) Handles TEST_tsm.Click 流程圖工具.ShowDialog() 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 PDF_TEST_tsm_Click(sender As Object, e As EventArgs) Handles PDF_TEST_tsm.Click PdfViewerLocalizationProvider.CurrentProvider = New MyLocalizationProvider() 重登計時() : 重置() : PDF預覽.Show() : PDF預覽.BringToFront() End Sub Private Sub WORD_TEST_tsm_Click(sender As Object, e As EventArgs) Handles WORD_TEST_tsm.Click 考勤打卡.Show() End Sub Private Sub 開發模板庫ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 開發模板庫_tsm.Click 虛擬桌面隱藏() : 重登計時() : 重置() : 開發模板庫.Show() : 開發模板庫.BringToFront() End Sub ''------------------------代辦事項通知------------------------------------------------------------------------------------------------------------------------------------------------- Private Sub 計算分流1_Tick(sender As Object, e As EventArgs) Handles 計算分流1.Tick 計算分流1.Enabled = False Dim ds16 As New DataSet : 工作狀態_dgv.DataSource = Nothing : ds16.Clear() : 工作狀態_dgv.AllowUserToAddRows = False SQL_工作狀態匯總表_讀取() : da.Fill(ds16) : 工作狀態_dgv.DataSource = ds16.Tables(0) : conn.Close() 跑馬燈.Enabled = False Set_部門聯絡函_未審() : Set_部門聯絡函_未收() : Set_部門聯絡函_未執行() : Set_部門聯絡函_未驗收() : Set_部門聯絡函_請假() : Set_部門聯絡函_派車() Set_財務支付單未核准() : Set_供應商資料_未審核() : Set_人員合約到期() : Set_公告清單() 跑馬燈.Enabled = True 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 If 深色風格 = False Then 代辦事項_tv.Nodes.Add(對話框(31)) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1 If 聯絡函_未審_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(4) & 聯絡函_未審_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1 : End If If 聯絡函_未收_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(5) & 聯絡函_未收_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1 : End If If 聯絡函_未執行_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(6) & 聯絡函_未執行_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1 : End If If 聯絡函_未驗收_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(7) & 聯絡函_未驗收_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1 : End If If CInt(登入人級別) <= 3 Or 登入人部門 = "2.管理部 Management" Then If 聯絡函_請假_dgv.Rows.Count > 0 Then 代辦事項_tv.Nodes.Add(對話框(27) & " : " & 聯絡函_請假_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1 : End If If 聯絡函_派車_dgv.Rows.Count > 0 Then 代辦事項_tv.Nodes.Add(對話框(28) & " : " & 聯絡函_派車_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Black : NN1 += 1 : End If If 員工合約_dgv.Rows.Count > 0 Then 代辦事項_tv.Nodes.Add(對話框(15) & " : " & 員工合約_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : End If End If If CInt(登入人級別) <= 3 Then 代辦事項_tv.Nodes.Add(對話框(32)) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Purple : NN1 += 1 If 支付單未准_dgv.Rows.Count > 0 Then 代辦事項_tv.Nodes.Add(對話框(29) & " : " & 支付單未准_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Purple : NN1 += 1 : End If End If If CInt(登入人級別) <= 2 Then If 銀行資料修改_dgv.Rows.Count > 0 Then 代辦事項_tv.Nodes.Add(對話框(30) & " : " & 銀行資料修改_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Purple : NN1 += 1 : End If End If If CC(5) = True Then 代辦事項_tv.Nodes.Add(對話框(33)) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約預估利潤" Then : 數量(0) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(0) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(16) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(5) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "報價未完成" Then : 數量(1) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(1) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(18) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(5) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約未放行" Then : 數量(2) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(2) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(17) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(5) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "報價未簽回" Then : 數量(3) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(3) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(19) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(5) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約未簽回" Then : 數量(4) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(4) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(20) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(5) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約請款1" Then : 數量(5) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(5) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(8) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(5) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約請款2" Then : 數量(6) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(6) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(9) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(5) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約請款3" Then : 數量(7) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(7) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(10) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(5) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約請款4" Then : 數量(8) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(8) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(11) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(5) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約請款5" Then : 數量(9) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(9) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(12) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(8) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約未指定主管" Then : 數量(10) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(10) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(14) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.Green : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(8) = True Then 代辦事項_tv.Nodes.Add(對話框(34)) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約未驗收" Then : 數量(12) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(12) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(13) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(8) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "驗收未簽回" Then : 數量(13) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(13) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(21) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(8) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "保固未簽回" Then : 數量(14) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(14) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(22) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(6) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "請購單" Then : 數量(15) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(15) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(0) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.Red : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(6) = True Then 代辦事項_tv.Nodes.Add(對話框(35)) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Teal : NN1 += 1 For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "詢價單" Then : 數量(16) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(16) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(1) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.Teal : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(6) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "採購核准11" Then : 數量(17) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(17) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(2) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.Teal : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(6) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "採購核准12" Then : 數量(18) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(18) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(3) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.Teal : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If Else 代辦事項_tv.Nodes.Add(對話框(31)) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.White : NN1 += 1 If 聯絡函_未審_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(4) & 聯絡函_未審_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.White : NN1 += 1 : End If If 聯絡函_未收_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(5) & 聯絡函_未收_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.White : NN1 += 1 : End If If 聯絡函_未執行_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(6) & 聯絡函_未執行_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.White : NN1 += 1 : End If If 聯絡函_未驗收_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(7) & 聯絡函_未驗收_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.White : NN1 += 1 : End If If CInt(登入人級別) <= 3 Or 登入人部門 = "2.管理部 Management" Then If 聯絡函_請假_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(27) & " : " & 聯絡函_請假_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.White : NN1 += 1 : End If If 聯絡函_派車_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(28) & " : " & 聯絡函_派車_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.White : NN1 += 1 : End If If 員工合約_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(15) & " : " & 員工合約_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.LightPink : NN1 += 1 : End If End If If CInt(登入人級別) <= 3 Then 代辦事項_tv.Nodes.Add(對話框(32)) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Thistle : NN1 += 1 If 支付單未准_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(29) & " : " & 支付單未准_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Thistle : NN1 += 1 : End If If 銀行資料修改_dgv.Rows.Count > 0 Then : 代辦事項_tv.Nodes.Add(對話框(30) & " : " & 銀行資料修改_dgv.Rows.Count) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Thistle : NN1 += 1 : End If End If If CC(5) = True Then 代辦事項_tv.Nodes.Add(對話框(33)) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1 For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約預估利潤" Then : 數量(0) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(0) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(16) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(5) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "報價未完成" Then : 數量(1) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(1) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(18) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(5) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約未放行" Then : 數量(2) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(2) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(17) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(5) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "報價未簽回" Then : 數量(3) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(3) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(19) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(5) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約未簽回" Then : 數量(4) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(4) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(20) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(5) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約請款1" Then : 數量(5) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(5) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(8) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(5) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約請款2" Then : 數量(6) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(6) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(9) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(5) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約請款3" Then : 數量(7) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(7) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(10) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(5) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約請款4" Then : 數量(8) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(8) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(11) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(5) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約請款5" Then : 數量(9) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(9) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(12) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(8) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約未指定主管" Then : 數量(10) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(10) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(14) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.LightGreen : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(8) = True Then 代辦事項_tv.Nodes.Add(對話框(34)) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.LightPink : NN1 += 1 For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "合約未驗收" Then : 數量(12) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(12) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(13) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.LightPink : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(8) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "驗收未簽回" Then : 數量(13) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(13) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(21) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.LightPink : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(8) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "保固未簽回" Then : 數量(14) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(14) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(22) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.LightPink : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(6) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "請購單" Then : 數量(15) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(15) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(0) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.LightPink : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(6) = True Then 代辦事項_tv.Nodes.Add(對話框(35)) : 代辦事項_tv.Nodes(NN1).ForeColor = Color.Aqua : NN1 += 1 For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "詢價單" Then : 數量(16) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(16) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(1) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.Aqua : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(6) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "採購核准11" Then : 數量(17) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(17) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(2) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.Aqua : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If If CC(6) = True Then For I As Integer = 0 To 工作狀態_dgv.Rows.Count - 1 If 工作狀態_dgv.Rows(I).Cells(0).Value.ToString = "採購核准12" Then : 數量(18) = Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0") If 數量(18) > 0 Then : 代辦事項_tv.Nodes.Add(對話框(3) & Strings.Format(工作狀態_dgv.Rows(I).Cells(1).Value, "#,##0")) 代辦事項_tv.Nodes(NN1).ForeColor = Color.Aqua : NN1 += 1 : Exit For : Else : Exit For : End If End If Next End If End If End Sub Private Sub 代辦清單重置() 聯絡函_未審_dgv.Visible = False : 聯絡函_未收_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 : 聯絡函_派車_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_Click(sender As Object, e As EventArgs) Handles 代辦事項_tv.Click 待辦選擇 = True End Sub Private Sub 代辦事項_tv_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles 代辦事項_tv.AfterSelect If 待辦選擇 = True Then 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 對話框(27) & " : " & 聯絡函_請假_dgv.Rows.Count : 標題_lb.Text = 對話框(27) & 聯絡函_請假_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 聯絡函_請假_dgv.Visible = True Case 對話框(28) & " : " & 聯絡函_派車_dgv.Rows.Count : 標題_lb.Text = 對話框(28) & 聯絡函_派車_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 聯絡函_派車_dgv.Visible = True Case 對話框(29) & " : " & 支付單未准_dgv.Rows.Count : 標題_lb.Text = 對話框(29) & " : " & 支付單未准_dgv.Rows.Count 代辦清單重置() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 支付單未准_dgv.Visible = True Case 對話框(30) & " : " & 銀行資料修改_dgv.Rows.Count : 標題_lb.Text = 對話框(30) & " : " & 銀行資料修改_dgv.Rows.Count If 銀行資料修改_dgv.Rows.Count <> 0 Then : 銀行資料修改審核_tsm.PerformClick() : End If 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 對話框(16) & 數量(0) : 標題_lb.Text = 對話框(16) & " " & 數量(0) 代辦清單重置() : Set_合約未設利潤() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約預估利潤_dgv.Visible = True Case 對話框(18) & 數量(1) : 標題_lb.Text = 對話框(18) & " " & 數量(1) 代辦清單重置() : Set_報價未完成() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 報價未完成_dgv.Visible = True Case 對話框(17) & 數量(2) : 標題_lb.Text = 對話框(17) & " " & 數量(2) 代辦清單重置() : Set_合約未放行() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約未放行_dgv.Visible = True Case 對話框(19) & 數量(3) : 標題_lb.Text = 對話框(19) & " " & 數量(3) 代辦清單重置() : Set_報價未簽回() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 報價未簽回_dgv.Visible = True Case 對話框(20) & 數量(4) : 標題_lb.Text = 對話框(20) & " " & 數量(4) 代辦清單重置() : Set_合約未簽回() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約未簽回_dgv.Visible = True Case 對話框(8) & 數量(5) : 標題_lb.Text = 對話框(8) & " " & 數量(5) 代辦清單重置() : Set_合約未請款1() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款1_dgv.Visible = True Case 對話框(9) & 數量(6) : 標題_lb.Text = 對話框(9) & " " & 數量(6) 代辦清單重置() : Set_合約未請款2() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款2_dgv.Visible = True Case 對話框(10) & 數量(7) : 標題_lb.Text = 對話框(10) & " " & 數量(7) 代辦清單重置() : Set_合約未請款3() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款3_dgv.Visible = True Case 對話框(11) & 數量(8) : 標題_lb.Text = 對話框(11) & " " & 數量(8) 代辦清單重置() : Set_合約未請款4() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款4_dgv.Visible = True Case 對話框(12) & 數量(9) : 標題_lb.Text = 對話框(12) & " " & 數量(9) 代辦清單重置() : Set_合約未請款5() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約請款5_dgv.Visible = True Case 對話框(14) & 數量(10) : 標題_lb.Text = 對話框(14) & " " & 數量(10) 代辦清單重置() : Set_合約未指定主管() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約未指定主管_dgv.Visible = True Case 對話框(13) & 數量(12) : 標題_lb.Text = 對話框(13) & " " & 數量(12) 代辦清單重置() : Set_合約未驗收() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 合約未驗收_dgv.Visible = True Case 對話框(21) & 數量(13) : 標題_lb.Text = 對話框(21) & " " & 數量(13) 代辦清單重置() : Set_合約驗收單未簽回() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 驗收未簽回_dgv.Visible = True Case 對話框(22) & 數量(14) : 標題_lb.Text = 對話框(22) & " " & 數量(14) 代辦清單重置() : Set_合約保固單未簽() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 保固未簽回_dgv.Visible = True Case 對話框(0) & 數量(15) : 標題_lb.Text = 對話框(0) & " " & 數量(15) 代辦清單重置() : Set_請購單() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 請購單_dgv.Visible = True Case 對話框(1) & 數量(16) : 標題_lb.Text = 對話框(1) & " " & 數量(16) 代辦清單重置() : Set_詢價單1() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 詢價單_dgv.Visible = True Case 對話框(2) & 數量(17) : 標題_lb.Text = 對話框(2) & " " & 數量(17) 代辦清單重置() : Set_採購核准11() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 採購核准11_dgv.Visible = True Case 對話框(3) & 數量(18) : 標題_lb.Text = 對話框(3) & " " & 數量(18) 代辦清單重置() : Set_採購核准12() : 視窗1_pl.Location = New Point(X座標, 200) : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : 採購核准12_dgv.Visible = True End Select : 待辦選擇 = False End If 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 刷新表格_Tick(sender As Object, e As EventArgs) Handles 刷新表格.Tick 載入車輛清單() : 載入車輛動態清單() : 載入人員清單() : 載入人員動態清單() : Set_庫存查詢() End Sub Private Sub 車輛動態_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 車輛動態_dgv.CellClick If e.RowIndex = -1 Then : Else PB = "車輛動態" : 待辦事項連接_兩項.ShowDialog() : 待辦事項連接_兩項.BringToFront() If PB = "A" Then PA50 = 車輛動態_dgv("車輛編號", e.RowIndex).Value.ToString 車輛明細表.ShowDialog() : 車輛明細表.BringToFront() Else For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : 重登計時() : 重置() : PA50 = 車輛動態_dgv("車輛編號", e.RowIndex).Value.ToString : PA51 = "車輛" : 日曆.Show() : 日曆.BringToFront() End If End If End Sub Private Sub 人員動態_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 人員動態_dgv.CellClick If e.RowIndex = -1 Then : Else PB = "人員動態" : 待辦事項連接_兩項.ShowDialog() : 待辦事項連接_兩項.BringToFront() If PB = "A" Then PA50 = 人員動態_dgv(表頭(191), e.RowIndex).Value.ToString 人員明細表.ShowDialog() : 人員明細表.BringToFront() Else For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next 虛擬桌面隱藏() : 重登計時() : 重置() : PA50 = 人員動態_dgv(表頭(191), e.RowIndex).Value.ToString : PA51 = "人員" : 日曆.Show() : 日曆.BringToFront() End If End If End Sub Private Sub 重讀_bt_Click(sender As Object, e As EventArgs) Handles 重讀_bt.Click 載入車輛清單() : 載入車輛動態清單() : 載入人員清單() : 載入人員動態清單() : Set_庫存查詢() : 計算分流1.Enabled = True End Sub Private Sub 網頁介面ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 網頁介面ToolStripMenuItem.Click If 不用WEB = False Then INB("請輸入要測試的網址，如果沒有請輸入 [1] ") : PA50 = 訊息回應 : 介面 = "H001" : WEB說明頁面.Show() Else : MsgBox("No Open Web") : End If End Sub Private Sub 使用者1_cb_Click(sender As Object, e As EventArgs) Handles 使用者1_cb.Click gUserName = 使用者1_cb.Text 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 Private Sub 深色風格_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 深色風格_ch.Click If 深色風格_ch.Checked = False Then 深色風格_ch.Checked = False : 深色風格 = False : 風格() Dim strDirName As String : Dim Strs As String = Application.StartupPath If File.Exists(Strs & "\HXSTYLE.txt") Then : File.Delete(Strs & "\HXSTYLE.txt") : End If strDirName = Strs & "\HXSTYLE.txt" Try Using fs As IO.FileStream = New IO.FileStream(strDirName, FileMode.Append) Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default) Dim str As String = "B" sw.WriteLine(str) '插入一整行 sw.Flush() End Using End Using Catch ex As Exception End Try Else 深色風格_ch.Checked = True : 深色風格 = True : 風格() Dim strDirName As String : Dim Strs As String = Application.StartupPath If File.Exists(Strs & "\HXSTYLE.txt") Then : File.Delete(Strs & "\HXSTYLE.txt") : End If strDirName = Strs & "\HXSTYLE.txt" Try Using fs As IO.FileStream = New IO.FileStream(strDirName, FileMode.Append) Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default) Dim str As String = "W" sw.WriteLine(str) '插入一整行 sw.Flush() End Using End Using Catch ex As Exception End Try End If : If 低網速模式 = False Then : 計算分流1.Enabled = True : Else : End If End Sub Private Sub 風格() If 深色風格 = False Then 虛擬桌_pl.BackgroundImage = My.Resources._20122712_MotionElements_green_wave_line_background 虛擬桌_人事_pl.BackgroundImage = My.Resources._20122712_MotionElements_green_wave_line_background 虛擬桌_倉儲_pl.BackgroundImage = My.Resources._20122712_MotionElements_green_wave_line_background 虛擬桌_工程_pl.BackgroundImage = My.Resources._20122712_MotionElements_green_wave_line_background 虛擬桌_採購_pl.BackgroundImage = My.Resources._20122712_MotionElements_green_wave_line_background 虛擬桌_業務_pl.BackgroundImage = My.Resources._20122712_MotionElements_green_wave_line_background 虛擬桌_總務_pl.BackgroundImage = My.Resources._20122712_MotionElements_green_wave_line_background 虛擬桌_財務_pl.BackgroundImage = My.Resources._20122712_MotionElements_green_wave_line_background UI優化_P.BackgroundImage = My.Resources._20122712_MotionElements_green_wave_line_background : MenuStrip.BackColor = Color.Linen : 主框_sc.BackColor = Color.PaleGreen StatusStrip1.BackColor = Color.LightBlue : Calculator_bt.BackColor = Color.Orange : Calculator_bt.ForeColor = Color.Black 深色風格_ch.BackColor = Color.LightBlue : 深色風格_ch.ForeColor = Color.Blue : 低網速模式_ch.BackColor = Color.LightBlue : 低網速模式_ch.ForeColor = Color.Blue SYS_SET_tsm.ForeColor = Color.Black : 斜線_tss.ForeColor = Color.Black : 著作權_tss.ForeColor = Color.Black : 執行進度_tss.ForeColor = Color.Blue 合計_TSSL.ForeColor = Color.Black : 代辦事項_tv.BackColor = Color.White : Label2.ForeColor = Color.Black : Label1.ForeColor = Color.Black : Panel1.BackColor = Color.White 桌面通知_pl.BackColor = Color.White : 標題_lb.ForeColor = Color.Black : 視窗1_pl.BackColor = Color.Linen : 簡易庫存_tv.BackColor = Color.White 跑馬燈_tb.BackColor = Color.White : 跑馬燈_tb.ForeColor = Color.Red '-------一般----------------------------------------------------- 檔案_tsm.ForeColor = Color.Black : 視窗_tsm.ForeColor = Color.Black : 總務系統管理_tsm.ForeColor = Color.Black : 人事系統管理_tsm.ForeColor = Color.Black 資料庫系統管理_tsm.ForeColor = Color.Black : 聯絡函部門主管審核_lb.ForeColor = Color.Black : 投訴信箱_lb.ForeColor = Color.Black : 會議記錄_lb.ForeColor = Color.Black 部門聯絡函申請_lb.ForeColor = Color.Black : 聯絡函最高主管核准_lb.ForeColor = Color.Black : 部門聯絡函一覽表_lb.ForeColor = Color.Black : 文件伺服器_lb.ForeColor = Color.Black 系統使用說明_lb.ForeColor = Color.Black : 車輛管理_lb.ForeColor = Color.Black : 新版_ch.ForeColor = Color.Black : 舊版_ch.ForeColor = Color.Black 公告管理_lb.ForeColor = Color.Black 車輛管理_tsm.BackColor = Color.White : 車輛管理_tsm.ForeColor = Color.Black : 個人帳號管理_tsm.BackColor = Color.White : 個人帳號管理_tsm.ForeColor = Color.Black 結束_tsm.BackColor = Color.White : 結束_tsm.ForeColor = Color.Black : 開新視窗_tsm.BackColor = Color.White : 開新視窗_tsm.ForeColor = Color.Black 重疊顯示_tsm.BackColor = Color.White : 重疊顯示_tsm.ForeColor = Color.Black : 垂直並排_tsm.BackColor = Color.White : 垂直並排_tsm.ForeColor = Color.Black 水平並排_tsm.BackColor = Color.White : 水平並排_tsm.ForeColor = Color.Black : 全部關閉_tsm.BackColor = Color.White : 全部關閉_tsm.ForeColor = Color.Black 排列圖示_tsm.BackColor = Color.White : 排列圖示_tsm.ForeColor = Color.Black : 文件伺服器_tsm.BackColor = Color.White : 文件伺服器_tsm.ForeColor = Color.Black 系統使用說明_tsm.BackColor = Color.White : 系統使用說明_tsm.ForeColor = Color.Black : 聯絡函部門主管審核_tsm.BackColor = Color.White : 聯絡函部門主管審核_tsm.ForeColor = Color.Black 公告管理_tsm.BackColor = Color.White : 公告管理_tsm.ForeColor = Color.Black : 會議記錄_tsm.BackColor = Color.White : 會議記錄_tsm.ForeColor = Color.Black 部門聯絡函一覽表_tsm.BackColor = Color.White : 部門聯絡函一覽表_tsm.ForeColor = Color.Black : 安培容量計算表_tsm.BackColor = Color.White : 安培容量計算表_tsm.ForeColor = Color.Black 部門聯絡函申請_tsm.BackColor = Color.White : 部門聯絡函申請_tsm.ForeColor = Color.Black : 聯絡函最高主管核准_tsm.BackColor = Color.White : 聯絡函最高主管核准_tsm.ForeColor = Color.Black 系統使用者管理_tsm.BackColor = Color.White : 系統使用者管理_tsm.ForeColor = Color.Black : 系統權限預設表_tsm.BackColor = Color.White : 系統權限預設表_tsm.ForeColor = Color.Black 系統組織架構設定_tsm.BackColor = Color.White : 系統組織架構設定_tsm.ForeColor = Color.Black : 部門權限設定_tsm.BackColor = Color.White : 部門權限設定_tsm.ForeColor = Color.Black 系統通用變數管理_tsm.BackColor = Color.White : 系統通用變數管理_tsm.ForeColor = Color.Black : 系統編碼規則_tsm.BackColor = Color.White : 系統編碼規則_tsm.ForeColor = Color.Black 系統對應電腦註冊_tsm.BackColor = Color.White : 系統對應電腦註冊_tsm.ForeColor = Color.Black : FTP資料夾管理_tsm.BackColor = Color.White : FTP資料夾管理_tsm.ForeColor = Color.Black 系統執行檔版本管理_tsm.BackColor = Color.White : 系統執行檔版本管理_tsm.ForeColor = Color.Black : 簽名檔管理_tsm.BackColor = Color.White : 簽名檔管理_tsm.ForeColor = Color.Black 門禁系統設定_tsm.BackColor = Color.White : 門禁系統設定_tsm.ForeColor = Color.Black : 開發模板庫_tsm.BackColor = Color.White : 開發模板庫_tsm.ForeColor = Color.Black 管徑流速流量計算器_tsm.BackColor = Color.White : 管徑流速流量計算器_tsm.ForeColor = Color.Black : 投訴信箱_tsm.BackColor = Color.White : 投訴信箱_tsm.ForeColor = Color.Black '-------業務----------------------------------------------------- 合約執行進度_lb.ForeColor = Color.DarkGreen : 合約報價單_lb.ForeColor = Color.DarkGreen : 合約本文_lb.ForeColor = Color.DarkGreen : 附錄合約_lb.ForeColor = Color.DarkGreen 合約驗收單_lb.ForeColor = Color.DarkGreen : 合約請款單_lb.ForeColor = Color.DarkGreen : 合約請款控制表_lb.ForeColor = Color.DarkGreen : 合約報價單審核_lb.ForeColor = Color.DarkGreen 合約驗收控制表_lb.ForeColor = Color.DarkGreen : 合約文件簽核控制表_lb.ForeColor = Color.DarkGreen : 合約文件簽回存檔_lb.ForeColor = Color.DarkGreen 合約利潤預估表_lb.ForeColor = Color.DarkGreen : 合約保固書_lb.ForeColor = Color.DarkGreen : 合約工程圖庫管理_lb.ForeColor = Color.DarkGreen : 客戶資料表_lb.ForeColor = Color.DarkGreen 工程項目BOM表_lb.ForeColor = Color.DarkGreen : 合約結案控制表_lb.ForeColor = Color.DarkGreen : 業務系統管理_tsm.ForeColor = Color.DarkGreen 合約執行進度_tsm.BackColor = Color.White : 合約執行進度_tsm.ForeColor = Color.DarkGreen : 合約利潤預估表_tsm.BackColor = Color.White : 合約利潤預估表_tsm.ForeColor = Color.DarkGreen 合約報價單_tsm.BackColor = Color.White : 合約報價單_tsm.ForeColor = Color.DarkGreen : 合約報價單審核_tsm.BackColor = Color.White : 合約報價單審核_tsm.ForeColor = Color.DarkGreen 合約請款單_tsm.BackColor = Color.White : 合約請款單_tsm.ForeColor = Color.DarkGreen : 合約請款控制表_tsm.BackColor = Color.White : 合約請款控制表_tsm.ForeColor = Color.DarkGreen 合約驗收單_tsm.BackColor = Color.White : 合約驗收單_tsm.ForeColor = Color.DarkGreen : 合約驗收控制表_tsm.BackColor = Color.White : 合約驗收控制表_tsm.ForeColor = Color.DarkGreen 合約保固書_tsm.BackColor = Color.White : 合約保固書_tsm.ForeColor = Color.DarkGreen : 合約文件簽回存檔_tsm.BackColor = Color.White : 合約文件簽回存檔_tsm.ForeColor = Color.DarkGreen 合約文件簽核控制表_tsm.BackColor = Color.White : 合約文件簽核控制表_tsm.ForeColor = Color.DarkGreen : 合約本文_tsm.BackColor = Color.White : 合約本文_tsm.ForeColor = Color.DarkGreen 合約結案控制表_tsm.BackColor = Color.White : 合約結案控制表_tsm.ForeColor = Color.DarkGreen : 客戶資料表_tsm.BackColor = Color.White : 客戶資料表_tsm.ForeColor = Color.DarkGreen 合約工程圖庫管理_tsm.BackColor = Color.White : 合約工程圖庫管理_tsm.ForeColor = Color.DarkGreen : 附錄合約_tsm.BackColor = Color.White : 附錄合約_tsm.ForeColor = Color.DarkGreen 工程項目BOM表_tsm.BackColor = Color.White : 工程項目BOM表_tsm.ForeColor = Color.DarkGreen : 合約模組設定_tsm.BackColor = Color.White : 合約模組設定_tsm.ForeColor = Color.DarkGreen 工程分區控制表_tsm.BackColor = Color.White : 工程分區控制表_tsm.ForeColor = Color.DarkGreen '-------採購----------------------------------------------------- 採購單一級核准_lb.ForeColor = Color.DarkBlue : 供應商管理_lb.ForeColor = Color.DarkBlue : 採購驗收對帳表_lb.ForeColor = Color.DarkBlue : 採購系統管理_tsm.ForeColor = Color.DarkBlue 入庫驗收單_lb.ForeColor = Color.DarkBlue : 物料採購統計表_lb.ForeColor = Color.DarkBlue : 供應商商品單價設定_lb.ForeColor = Color.DarkBlue : 電信費追加執行_lb.ForeColor = Color.DarkBlue 請購單申請_lb.ForeColor = Color.DarkBlue : 請購單核準_lb.ForeColor = Color.DarkBlue : 採購單編輯_lb.ForeColor = Color.DarkBlue : 採購轉財務收支單_lb.ForeColor = Color.DarkBlue 採購單一覽表_lb.ForeColor = Color.DarkBlue : 請購一覽表_lb.ForeColor = Color.DarkBlue : 採購單詢價_lb.ForeColor = Color.DarkBlue : 電信費追加申請_lb.ForeColor = Color.DarkBlue 採購單二級核准_lb.ForeColor = Color.DarkBlue : 銀行資料修改審核_lb.ForeColor = Color.DarkBlue 採購單編輯_tsm.BackColor = Color.White : 採購單編輯_tsm.ForeColor = Color.DarkBlue 採購單二級核准_tsm.BackColor = Color.White : 採購單二級核准_tsm.ForeColor = Color.DarkBlue : 採購單一覽表_tsm.BackColor = Color.White : 採購單一覽表_tsm.ForeColor = Color.DarkBlue 採購轉財務收支單_tsm.BackColor = Color.White : 採購轉財務收支單_tsm.ForeColor = Color.DarkBlue : 採購單一級核准_tsm.BackColor = Color.White : 採購單一級核准_tsm.ForeColor = Color.DarkBlue 採購驗收對帳表_tsm.BackColor = Color.White : 採購驗收對帳表_tsm.ForeColor = Color.DarkBlue : 樣品請購單申請_tsm.BackColor = Color.White : 樣品請購單申請_tsm.ForeColor = Color.DarkBlue 樣品請購單核准_tsm.BackColor = Color.White : 樣品請購單核准_tsm.ForeColor = Color.DarkBlue : 樣品採購單生成_tsm.BackColor = Color.White : 樣品採購單生成_tsm.ForeColor = Color.DarkBlue 樣品請購單一覽表_tsm.BackColor = Color.White : 樣品請購單一覽表_tsm.ForeColor = Color.DarkBlue : 入庫驗收單_tsm.BackColor = Color.White : 入庫驗收單_tsm.ForeColor = Color.DarkBlue 樣品採購單一級核准_tsm.BackColor = Color.White : 樣品採購單一級核准_tsm.ForeColor = Color.DarkBlue : 請購單申請_tsm.BackColor = Color.White : 請購單申請_tsm.ForeColor = Color.DarkBlue 樣品採購單二級核准_tsm.BackColor = Color.White : 樣品採購單二級核准_tsm.ForeColor = Color.DarkBlue : 請購單核準_tsm.BackColor = Color.White : 請購單核準_tsm.ForeColor = Color.DarkBlue 樣品採購單一覽表_tsm.BackColor = Color.White : 樣品採購單一覽表_tsm.ForeColor = Color.DarkBlue : 樣品來料驗收單_tsm.BackColor = Color.White : 樣品來料驗收單_tsm.ForeColor = Color.DarkBlue 樣品採購驗收對帳表_tsm.BackColor = Color.White : 樣品採購驗收對帳表_tsm.ForeColor = Color.DarkBlue : 請購一覽表_tsm.BackColor = Color.White : 請購一覽表_tsm.ForeColor = Color.DarkBlue 供應商管理_tsm.BackColor = Color.White : 供應商管理_tsm.ForeColor = Color.DarkBlue : 樣品供應商管理_tsm.BackColor = Color.White : 樣品供應商管理_tsm.ForeColor = Color.DarkBlue 供應商商品單價設定_tsm.BackColor = Color.White : 供應商商品單價設定_tsm.ForeColor = Color.DarkBlue : 採購單詢價_tsm.BackColor = Color.White : 採購單詢價_tsm.ForeColor = Color.DarkBlue 物料採購統計表_tsm.BackColor = Color.White : 物料採購統計表_tsm.ForeColor = Color.DarkBlue : 電信費追加申請_tsm.BackColor = Color.White : 電信費追加申請_tsm.ForeColor = Color.DarkBlue 電信費追加執行_tsm.BackColor = Color.White : 電信費追加執行_tsm.ForeColor = Color.DarkBlue : 銀行資料修改審核_tsm.BackColor = Color.White : 銀行資料修改審核_tsm.ForeColor = Color.DarkBlue '-------工程----------------------------------------------------- 工程進度表_lb.ForeColor = Color.Red : 工程維修單_lb.ForeColor = Color.Red : 合約驗收控制表1_lb.ForeColor = Color.Red : 合約驗收單1_lb.ForeColor = Color.Red 合約結案控制表1_lb.ForeColor = Color.Red : 工程分區控制表1_lb.ForeColor = Color.Red : 派工人數紀錄表_lb.ForeColor = Color.Red : 工程客變單_lb.ForeColor = Color.Red 工程日報表編輯_lb.ForeColor = Color.Red : 工程材料表_lb.ForeColor = Color.Red : 工程系統管理_tsm.ForeColor = Color.Red 合約驗收單1_tsm.BackColor = Color.White : 合約驗收單1_tsm.ForeColor = Color.Red : 合約驗收控制表1_tsm.BackColor = Color.White : 合約驗收控制表1_tsm.ForeColor = Color.Red 合約結案控制表1_tsm.BackColor = Color.White : 合約結案控制表1_tsm.ForeColor = Color.Red : 工程進度表_tsm.BackColor = Color.White : 工程進度表_tsm.ForeColor = Color.Red 派工人數紀錄表_tsm.BackColor = Color.White : 派工人數紀錄表_tsm.ForeColor = Color.Red : 工程日報表編輯_tsm.BackColor = Color.White : 工程日報表編輯_tsm.ForeColor = Color.Red 工程客變單_tsm.BackColor = Color.White : 工程客變單_tsm.ForeColor = Color.Red : 工程維修單_tsm.BackColor = Color.White : 工程維修單_tsm.ForeColor = Color.Red 工程分區控制表1_tsm.BackColor = Color.White : 工程分區控制表1_tsm.ForeColor = Color.Red : 工程材料表_tsm.BackColor = Color.White : 工程材料表_tsm.ForeColor = Color.Red '-------倉儲----------------------------------------------------- 倉儲領料審核_lb.ForeColor = Color.Maroon : 倉儲單據狀態看板_lb.ForeColor = Color.Maroon : 倉儲領料出庫_lb.ForeColor = Color.Maroon : 物料退庫_lb.ForeColor = Color.Maroon 物料資料庫_lb.ForeColor = Color.Maroon : 物料轉倉出庫_lb.ForeColor = Color.Maroon : 倉儲控制表_lb.ForeColor = Color.Maroon : 物料轉倉審核_lb.ForeColor = Color.Maroon 倉儲領料申請_lb.ForeColor = Color.Maroon : 盤盈盤損審核_lb.ForeColor = Color.Maroon : 倉儲入庫驗收_lb.ForeColor = Color.Maroon : 物料轉倉申請_lb.ForeColor = Color.Maroon 倉儲分區控制表_lb.ForeColor = Color.Maroon : 盤盈盤損申請_lb.ForeColor = Color.Maroon : 倉儲系統管理_tsm.ForeColor = Color.Maroon : 物料資料編輯_lb.ForeColor = Color.Maroon 物料資料編輯_tsm.BackColor = Color.White : 物料資料編輯_tsm.ForeColor = Color.Maroon 倉儲入庫驗收_tsm.BackColor = Color.White : 倉儲入庫驗收_tsm.ForeColor = Color.Olive : 物料轉倉申請_tsm.BackColor = Color.White : 物料轉倉申請_tsm.ForeColor = Color.Maroon 物料轉倉審核_tsm.BackColor = Color.White : 物料轉倉審核_tsm.ForeColor = Color.Maroon : 物料轉倉出庫_tsm.BackColor = Color.White : 物料轉倉出庫_tsm.ForeColor = Color.Maroon 倉儲單據狀態看板_tsm.BackColor = Color.White : 倉儲單據狀態看板_tsm.ForeColor = Color.Maroon : 盤盈盤損申請_tsm.BackColor = Color.White : 盤盈盤損申請_tsm.ForeColor = Color.Maroon 盤盈盤損審核_tsm.BackColor = Color.White : 盤盈盤損審核_tsm.ForeColor = Color.Maroon : 物料資料庫_tsm.BackColor = Color.White : 物料資料庫_tsm.ForeColor = Color.Maroon 倉儲分區控制表_tsm.BackColor = Color.White : 倉儲分區控制表_tsm.ForeColor = Color.Maroon : 倉儲領料申請_tsm.BackColor = Color.White : 倉儲領料申請_tsm.ForeColor = Color.Olive 倉儲領料審核_tsm.BackColor = Color.White : 倉儲領料審核_tsm.ForeColor = Color.Olive : 倉儲領料出庫_tsm.BackColor = Color.White : 倉儲領料出庫_tsm.ForeColor = Color.Olive 物料退庫_tsm.BackColor = Color.White : 物料退庫_tsm.ForeColor = Color.Olive : 倉儲控制表_tsm.BackColor = Color.White : 倉儲控制表_tsm.ForeColor = Color.Maroon 倉儲領料申請_bt.BackColor = Color.White : 倉儲領料申請_bt.ForeColor = Color.Olive '-------人事----------------------------------------------------- 人員ID卡系統配置設定_lb.ForeColor = Color.Black 系統使用者管理_lb.ForeColor = Color.Black : 人員基本資料_lb.ForeColor = Color.Black : 考勤明細表_lb.ForeColor = Color.Black : 臨時工卡片管理_lb.ForeColor = Color.Black 人員薪資_lb.ForeColor = Color.Black : 門禁權限設定_lb.ForeColor = Color.Black : 請假單_lb.ForeColor = Color.Black : 請假資料確認_lb.ForeColor = Color.Black 行事曆請假_lb.ForeColor = Color.Black 行事曆請假_tsm.BackColor = Color.White : 行事曆請假_tsm.ForeColor = Color.Black 請假資料確認_tsm.BackColor = Color.White : 請假資料確認_tsm.ForeColor = Color.Black : 請假單_tsm.BackColor = Color.White : 請假單_tsm.ForeColor = Color.Black 門禁權限設定_tsm.BackColor = Color.White : 門禁權限設定_tsm.ForeColor = Color.Black : 人員薪資_tsm.BackColor = Color.White : 人員薪資_tsm.ForeColor = Color.Black 公司組織結構_tsm.BackColor = Color.White : 公司組織結構_tsm.ForeColor = Color.Black : 人員ID卡系統配置設定_tsm.BackColor = Color.White : 人員ID卡系統配置設定_tsm.ForeColor = Color.Black 組織結構_權限設定_tsm.BackColor = Color.White : 組織結構_權限設定_tsm.ForeColor = Color.Black : LINE權限一覽表_tsm.BackColor = Color.White : LINE權限一覽表_tsm.ForeColor = Color.Black LINE使用者管理表_tsm.BackColor = Color.White : LINE使用者管理表_tsm.ForeColor = Color.Black : LINE通知測試表_tsm.BackColor = Color.White : LINE通知測試表_tsm.ForeColor = Color.Black 系統使用者管理1_tsm.BackColor = Color.White : 系統使用者管理1_tsm.ForeColor = Color.Black : 人員基本資料_tsm.BackColor = Color.White : 人員基本資料_tsm.ForeColor = Color.Black 考勤明細表_tsm.BackColor = Color.White : 考勤明細表_tsm.ForeColor = Color.Black : 臨時工卡片管理_tsm.BackColor = Color.White : 臨時工卡片管理_tsm.ForeColor = Color.Black '-------財務----------------------------------------------------- 會計科目管理_lb.ForeColor = Color.Purple : 營運收支單申請_lb.ForeColor = Color.Purple : 營運收支單審核_lb.ForeColor = Color.Purple : 營運收支單一覽表_lb.ForeColor = Color.Purple 特支費申請_lb.ForeColor = Color.Purple : 會計帳務沖銷_lb.ForeColor = Color.Purple : 主管指定沖銷_lb.ForeColor = Color.Purple : 收款確認表_lb.ForeColor = Color.Purple 收款狀態報表_lb.ForeColor = Color.Purple : 採購付款確認表_lb.ForeColor = Color.Purple : 採購付款狀態報表_lb.ForeColor = Color.Purple : 財務支付申請_lb.ForeColor = Color.Purple 財務支付審核_lb.ForeColor = Color.Purple : 特支費審核_lb.ForeColor = Color.Purple : 財務決算表_lb.ForeColor = Color.Purple : 財務支付_主管審核_lb.ForeColor = Color.Purple 匯率管理_lb.ForeColor = Color.Purple : 應付款日報表_lb.ForeColor = Color.Purple : 應付款月報表_lb.ForeColor = Color.Purple 應付款月報表_tsm.BackColor = Color.White : 應付款月報表_tsm.ForeColor = Color.Purple 應付款日報表_tsm.BackColor = Color.White : 應付款日報表_tsm.ForeColor = Color.Purple : 財務決算表_tsm.BackColor = Color.White : 財務決算表_tsm.ForeColor = Color.Purple 財務系統管理_tsm.BackColor = Color.White : 財務系統管理_tsm.ForeColor = Color.Purple : 會計科目管理_tsm.BackColor = Color.White : 會計科目管理_tsm.ForeColor = Color.Purple 營運收支單申請_tsm.BackColor = Color.White : 營運收支單申請_tsm.ForeColor = Color.Purple : 營運收支單審核_tsm.BackColor = Color.White : 營運收支單審核_tsm.ForeColor = Color.Purple 營運收支單一覽表_tsm.BackColor = Color.White : 營運收支單一覽表_tsm.ForeColor = Color.Purple : 特支費申請_tsm.BackColor = Color.White : 特支費申請_tsm.ForeColor = Color.Purple 會計帳務沖銷_tsm.BackColor = Color.White : 會計帳務沖銷_tsm.ForeColor = Color.Purple : 主管指定沖銷_tsm.BackColor = Color.White : 主管指定沖銷_tsm.ForeColor = Color.Purple 收款確認表_tsm.BackColor = Color.White : 收款確認表_tsm.ForeColor = Color.Purple : 收款狀態報表_tsm.BackColor = Color.White : 收款狀態報表_tsm.ForeColor = Color.Purple 匯率管理_tsm.BackColor = Color.White : 匯率管理_tsm.ForeColor = Color.Purple : 採購付款確認表_tsm.BackColor = Color.White : 採購付款確認表_tsm.ForeColor = Color.Purple 採購付款狀態報表_tsm.BackColor = Color.White : 採購付款狀態報表_tsm.ForeColor = Color.Purple : 財務支付申請_tsm.BackColor = Color.White : 財務支付申請_tsm.ForeColor = Color.Purple 財務支付審核_tsm.BackColor = Color.White : 財務支付審核_tsm.ForeColor = Color.Purple : 特支費審核_tsm.BackColor = Color.White : 特支費審核_tsm.ForeColor = Color.Purple 財務支付_主管審核_tsm.BackColor = Color.White : 財務支付_主管審核_tsm.ForeColor = Color.Purple 員工合約_dgv.EnableHeadersVisualStyles = True : 員工合約_dgv.BackgroundColor = Color.White : 員工合約_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 員工合約_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 員工合約_dgv.DefaultCellStyle.BackColor = Color.White : 員工合約_dgv.DefaultCellStyle.ForeColor = Color.Black 聯絡函_未執行_dgv.EnableHeadersVisualStyles = True : 聯絡函_未執行_dgv.BackgroundColor = Color.White : 聯絡函_未執行_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 聯絡函_未執行_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 聯絡函_未執行_dgv.DefaultCellStyle.BackColor = Color.White : 聯絡函_未執行_dgv.DefaultCellStyle.ForeColor = Color.Black 合約預估利潤_dgv.EnableHeadersVisualStyles = True : 合約預估利潤_dgv.BackgroundColor = Color.White : 合約預估利潤_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 合約預估利潤_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 合約預估利潤_dgv.DefaultCellStyle.BackColor = Color.White : 合約預估利潤_dgv.DefaultCellStyle.ForeColor = Color.Black 請購單_dgv.EnableHeadersVisualStyles = True : 請購單_dgv.BackgroundColor = Color.White : 請購單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 請購單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 請購單_dgv.DefaultCellStyle.BackColor = Color.White : 請購單_dgv.DefaultCellStyle.ForeColor = Color.Black 聯絡函_未驗收_dgv.EnableHeadersVisualStyles = True : 聯絡函_未驗收_dgv.BackgroundColor = Color.White : 聯絡函_未驗收_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 聯絡函_未驗收_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 聯絡函_未驗收_dgv.DefaultCellStyle.BackColor = Color.White : 聯絡函_未驗收_dgv.DefaultCellStyle.ForeColor = Color.Black 聯絡函_請假_dgv.EnableHeadersVisualStyles = True : 聯絡函_請假_dgv.BackgroundColor = Color.White : 聯絡函_請假_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 聯絡函_請假_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 聯絡函_請假_dgv.DefaultCellStyle.BackColor = Color.White : 聯絡函_請假_dgv.DefaultCellStyle.ForeColor = Color.Black 聯絡函_派車_dgv.EnableHeadersVisualStyles = True : 聯絡函_派車_dgv.BackgroundColor = Color.White : 聯絡函_派車_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 聯絡函_派車_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 聯絡函_派車_dgv.DefaultCellStyle.BackColor = Color.White : 聯絡函_派車_dgv.DefaultCellStyle.ForeColor = Color.Black 合約未放行_dgv.EnableHeadersVisualStyles = True : 合約未放行_dgv.BackgroundColor = Color.White : 合約未放行_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 合約未放行_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 合約未放行_dgv.DefaultCellStyle.BackColor = Color.White : 合約未放行_dgv.DefaultCellStyle.ForeColor = Color.Black 詢價單_dgv.EnableHeadersVisualStyles = True : 詢價單_dgv.BackgroundColor = Color.White : 詢價單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 詢價單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 詢價單_dgv.DefaultCellStyle.BackColor = Color.White : 詢價單_dgv.DefaultCellStyle.ForeColor = Color.Black 合約請款1_dgv.EnableHeadersVisualStyles = True : 合約請款1_dgv.BackgroundColor = Color.White : 合約請款1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 合約請款1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 合約請款1_dgv.DefaultCellStyle.BackColor = Color.White : 合約請款1_dgv.DefaultCellStyle.ForeColor = Color.Black 報價未完成_dgv.EnableHeadersVisualStyles = True : 報價未完成_dgv.BackgroundColor = Color.White : 報價未完成_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 報價未完成_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 報價未完成_dgv.DefaultCellStyle.BackColor = Color.White : 報價未完成_dgv.DefaultCellStyle.ForeColor = Color.Black 採購核准11_dgv.EnableHeadersVisualStyles = True : 採購核准11_dgv.BackgroundColor = Color.White : 採購核准11_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 採購核准11_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 採購核准11_dgv.DefaultCellStyle.BackColor = Color.White : 採購核准11_dgv.DefaultCellStyle.ForeColor = Color.Black 合約請款2_dgv.EnableHeadersVisualStyles = True : 合約請款2_dgv.BackgroundColor = Color.White : 合約請款2_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 合約請款2_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 合約請款2_dgv.DefaultCellStyle.BackColor = Color.White : 合約請款2_dgv.DefaultCellStyle.ForeColor = Color.Black 驗收未簽回_dgv.EnableHeadersVisualStyles = True : 驗收未簽回_dgv.BackgroundColor = Color.White : 驗收未簽回_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 驗收未簽回_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 驗收未簽回_dgv.DefaultCellStyle.BackColor = Color.White : 驗收未簽回_dgv.DefaultCellStyle.ForeColor = Color.Black 採購核准12_dgv.EnableHeadersVisualStyles = True : 採購核准12_dgv.BackgroundColor = Color.White : 採購核准12_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 採購核准12_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 採購核准12_dgv.DefaultCellStyle.BackColor = Color.White : 採購核准12_dgv.DefaultCellStyle.ForeColor = Color.Black 合約請款3_dgv.EnableHeadersVisualStyles = True : 合約請款3_dgv.BackgroundColor = Color.White : 合約請款3_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 合約請款3_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 合約請款3_dgv.DefaultCellStyle.BackColor = Color.White : 合約請款3_dgv.DefaultCellStyle.ForeColor = Color.Black 報價未簽回_dgv.EnableHeadersVisualStyles = True : 報價未簽回_dgv.BackgroundColor = Color.White : 報價未簽回_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 報價未簽回_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 報價未簽回_dgv.DefaultCellStyle.BackColor = Color.White : 報價未簽回_dgv.DefaultCellStyle.ForeColor = Color.Black 聯絡函_未審_dgv.EnableHeadersVisualStyles = True : 聯絡函_未審_dgv.BackgroundColor = Color.White : 聯絡函_未審_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 聯絡函_未審_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 聯絡函_未審_dgv.DefaultCellStyle.BackColor = Color.White : 聯絡函_未審_dgv.DefaultCellStyle.ForeColor = Color.Black 合約請款4_dgv.EnableHeadersVisualStyles = True : 合約請款4_dgv.BackgroundColor = Color.White : 合約請款4_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 合約請款4_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 合約請款4_dgv.DefaultCellStyle.BackColor = Color.White : 合約請款4_dgv.DefaultCellStyle.ForeColor = Color.Black 合約未簽回_dgv.EnableHeadersVisualStyles = True : 合約未簽回_dgv.BackgroundColor = Color.White : 合約未簽回_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 合約未簽回_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 合約未簽回_dgv.DefaultCellStyle.BackColor = Color.White : 合約未簽回_dgv.DefaultCellStyle.ForeColor = Color.Black 聯絡函_未收_dgv.EnableHeadersVisualStyles = True : 聯絡函_未收_dgv.BackgroundColor = Color.White : 聯絡函_未收_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 聯絡函_未收_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 聯絡函_未收_dgv.DefaultCellStyle.BackColor = Color.White : 聯絡函_未收_dgv.DefaultCellStyle.ForeColor = Color.Black 合約請款5_dgv.EnableHeadersVisualStyles = True : 合約請款5_dgv.BackgroundColor = Color.White : 合約請款5_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 合約請款5_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 合約請款5_dgv.DefaultCellStyle.BackColor = Color.White : 合約請款5_dgv.DefaultCellStyle.ForeColor = Color.Black 保固未簽回_dgv.EnableHeadersVisualStyles = True : 保固未簽回_dgv.BackgroundColor = Color.White : 保固未簽回_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 保固未簽回_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 保固未簽回_dgv.DefaultCellStyle.BackColor = Color.White : 保固未簽回_dgv.DefaultCellStyle.ForeColor = Color.Black 合約未指定主管_dgv.EnableHeadersVisualStyles = True : 合約未指定主管_dgv.BackgroundColor = Color.White : 合約未指定主管_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 合約未指定主管_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 合約未指定主管_dgv.DefaultCellStyle.BackColor = Color.White : 合約未指定主管_dgv.DefaultCellStyle.ForeColor = Color.Black 合約未驗收_dgv.EnableHeadersVisualStyles = True : 合約未驗收_dgv.BackgroundColor = Color.White : 合約未驗收_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 合約未驗收_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 合約未驗收_dgv.DefaultCellStyle.BackColor = Color.White : 合約未驗收_dgv.DefaultCellStyle.ForeColor = Color.Black 人員動態_dgv.EnableHeadersVisualStyles = True : 人員動態_dgv.BackgroundColor = Color.White : 人員動態_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 人員動態_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 人員動態_dgv.DefaultCellStyle.BackColor = Color.White : 人員動態_dgv.DefaultCellStyle.ForeColor = Color.Black 車輛動態_dgv.EnableHeadersVisualStyles = True : 車輛動態_dgv.BackgroundColor = Color.White : 車輛動態_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 車輛動態_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 車輛動態_dgv.DefaultCellStyle.BackColor = Color.White : 車輛動態_dgv.DefaultCellStyle.ForeColor = Color.Black 銀行資料修改_dgv.EnableHeadersVisualStyles = True : 銀行資料修改_dgv.BackgroundColor = Color.White : 銀行資料修改_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 銀行資料修改_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White 銀行資料修改_dgv.DefaultCellStyle.BackColor = Color.White : 銀行資料修改_dgv.DefaultCellStyle.ForeColor = Color.Black Else 虛擬桌_pl.BackgroundImage = My.Resources._20157059_MotionElements_diagonal_lines 虛擬桌_人事_pl.BackgroundImage = My.Resources._20157059_MotionElements_diagonal_lines 虛擬桌_倉儲_pl.BackgroundImage = My.Resources._20157059_MotionElements_diagonal_lines 虛擬桌_工程_pl.BackgroundImage = My.Resources._20157059_MotionElements_diagonal_lines 虛擬桌_採購_pl.BackgroundImage = My.Resources._20157059_MotionElements_diagonal_lines 虛擬桌_業務_pl.BackgroundImage = My.Resources._20157059_MotionElements_diagonal_lines 虛擬桌_總務_pl.BackgroundImage = My.Resources._20157059_MotionElements_diagonal_lines 虛擬桌_財務_pl.BackgroundImage = My.Resources._20157059_MotionElements_diagonal_lines UI優化_P.BackgroundImage = My.Resources._20157059_MotionElements_diagonal_lines : MenuStrip.BackColor = Color.DimGray : 主框_sc.BackColor = Color.Black StatusStrip1.BackColor = Color.Black : Calculator_bt.BackColor = Color.DimGray : Calculator_bt.ForeColor = Color.White 深色風格_ch.BackColor = Color.Black : 深色風格_ch.ForeColor = Color.White : 低網速模式_ch.BackColor = Color.Black : 低網速模式_ch.ForeColor = Color.White SYS_SET_tsm.ForeColor = Color.White : 斜線_tss.ForeColor = Color.White : 著作權_tss.ForeColor = Color.White : 執行進度_tss.ForeColor = Color.LightBlue 合計_TSSL.ForeColor = Color.White : 代辦事項_tv.BackColor = Color.DimGray : Label2.ForeColor = Color.White : Label1.ForeColor = Color.White : Panel1.BackColor = Color.DimGray 桌面通知_pl.BackColor = Color.Black : 標題_lb.ForeColor = Color.White : 視窗1_pl.BackColor = Color.Black : 簡易庫存_tv.BackColor = Color.DimGray 跑馬燈_tb.BackColor = Color.Black : 跑馬燈_tb.ForeColor = Color.LightPink '-------一般----------------------------------------------------- 檔案_tsm.ForeColor = Color.White : 視窗_tsm.ForeColor = Color.White : 總務系統管理_tsm.ForeColor = Color.White : 人事系統管理_tsm.ForeColor = Color.White 資料庫系統管理_tsm.ForeColor = Color.White : 聯絡函部門主管審核_lb.ForeColor = Color.White : 投訴信箱_lb.ForeColor = Color.White : 會議記錄_lb.ForeColor = Color.White 部門聯絡函申請_lb.ForeColor = Color.White : 聯絡函最高主管核准_lb.ForeColor = Color.White : 部門聯絡函一覽表_lb.ForeColor = Color.White : 文件伺服器_lb.ForeColor = Color.White 系統使用說明_lb.ForeColor = Color.White : 車輛管理_lb.ForeColor = Color.White : 新版_ch.ForeColor = Color.White : 舊版_ch.ForeColor = Color.White 公告管理_lb.ForeColor = Color.White 車輛管理_tsm.BackColor = Color.DimGray : 車輛管理_tsm.ForeColor = Color.White : 個人帳號管理_tsm.BackColor = Color.DimGray : 個人帳號管理_tsm.ForeColor = Color.White 結束_tsm.BackColor = Color.DimGray : 結束_tsm.ForeColor = Color.White : 開新視窗_tsm.BackColor = Color.DimGray : 開新視窗_tsm.ForeColor = Color.White 重疊顯示_tsm.BackColor = Color.DimGray : 重疊顯示_tsm.ForeColor = Color.White : 垂直並排_tsm.BackColor = Color.DimGray : 垂直並排_tsm.ForeColor = Color.White 水平並排_tsm.BackColor = Color.DimGray : 水平並排_tsm.ForeColor = Color.White : 全部關閉_tsm.BackColor = Color.DimGray : 全部關閉_tsm.ForeColor = Color.White 排列圖示_tsm.BackColor = Color.DimGray : 排列圖示_tsm.ForeColor = Color.White : 文件伺服器_tsm.BackColor = Color.DimGray : 文件伺服器_tsm.ForeColor = Color.White 系統使用說明_tsm.BackColor = Color.DimGray : 系統使用說明_tsm.ForeColor = Color.White : 聯絡函最高主管核准_tsm.BackColor = Color.DimGray : 聯絡函最高主管核准_tsm.ForeColor = Color.White 公告管理_tsm.BackColor = Color.DimGray : 公告管理_tsm.ForeColor = Color.White : 聯絡函部門主管審核_tsm.BackColor = Color.DimGray : 聯絡函部門主管審核_tsm.ForeColor = Color.White 部門聯絡函一覽表_tsm.BackColor = Color.DimGray : 部門聯絡函一覽表_tsm.ForeColor = Color.White : 安培容量計算表_tsm.BackColor = Color.DimGray : 安培容量計算表_tsm.ForeColor = Color.White 部門聯絡函申請_tsm.BackColor = Color.DimGray : 部門聯絡函申請_tsm.ForeColor = Color.White : 會議記錄_tsm.BackColor = Color.DimGray : 會議記錄_tsm.ForeColor = Color.White 系統使用者管理_tsm.BackColor = Color.DimGray : 系統使用者管理_tsm.ForeColor = Color.White : 系統權限預設表_tsm.BackColor = Color.DimGray : 系統權限預設表_tsm.ForeColor = Color.White 系統組織架構設定_tsm.BackColor = Color.DimGray : 系統組織架構設定_tsm.ForeColor = Color.White : 部門權限設定_tsm.BackColor = Color.DimGray : 部門權限設定_tsm.ForeColor = Color.White 系統通用變數管理_tsm.BackColor = Color.DimGray : 系統通用變數管理_tsm.ForeColor = Color.White : 系統編碼規則_tsm.BackColor = Color.DimGray : 系統編碼規則_tsm.ForeColor = Color.White 系統對應電腦註冊_tsm.BackColor = Color.DimGray : 系統對應電腦註冊_tsm.ForeColor = Color.White : FTP資料夾管理_tsm.BackColor = Color.DimGray : FTP資料夾管理_tsm.ForeColor = Color.White 系統執行檔版本管理_tsm.BackColor = Color.DimGray : 系統執行檔版本管理_tsm.ForeColor = Color.White : 簽名檔管理_tsm.BackColor = Color.DimGray : 簽名檔管理_tsm.ForeColor = Color.White 門禁系統設定_tsm.BackColor = Color.DimGray : 門禁系統設定_tsm.ForeColor = Color.White : 開發模板庫_tsm.BackColor = Color.DimGray : 開發模板庫_tsm.ForeColor = Color.White 管徑流速流量計算器_tsm.BackColor = Color.DimGray : 管徑流速流量計算器_tsm.ForeColor = Color.White : 投訴信箱_tsm.BackColor = Color.DimGray : 投訴信箱_tsm.ForeColor = Color.White '-------業務----------------------------------------------------- 合約執行進度_lb.ForeColor = Color.GreenYellow : 合約報價單_lb.ForeColor = Color.GreenYellow : 合約本文_lb.ForeColor = Color.GreenYellow : 業務系統管理_tsm.ForeColor = Color.GreenYellow 合約驗收單_lb.ForeColor = Color.GreenYellow : 合約請款單_lb.ForeColor = Color.GreenYellow : 合約請款控制表_lb.ForeColor = Color.GreenYellow 合約驗收控制表_lb.ForeColor = Color.GreenYellow : 合約文件簽核控制表_lb.ForeColor = Color.GreenYellow : 合約文件簽回存檔_lb.ForeColor = Color.GreenYellow 合約利潤預估表_lb.ForeColor = Color.GreenYellow : 合約報價單審核_lb.ForeColor = Color.GreenYellow : 合約保固書_lb.ForeColor = Color.GreenYellow 合約工程圖庫管理_lb.ForeColor = Color.GreenYellow : 客戶資料表_lb.ForeColor = Color.GreenYellow : 工程項目BOM表_lb.ForeColor = Color.GreenYellow 合約結案控制表_lb.ForeColor = Color.GreenYellow : 附錄合約_lb.ForeColor = Color.GreenYellow 合約執行進度_tsm.BackColor = Color.DimGray : 合約執行進度_tsm.ForeColor = Color.GreenYellow : 合約利潤預估表_tsm.BackColor = Color.DimGray : 合約利潤預估表_tsm.ForeColor = Color.GreenYellow 合約報價單_tsm.BackColor = Color.DimGray : 合約報價單_tsm.ForeColor = Color.GreenYellow : 合約報價單審核_tsm.BackColor = Color.DimGray : 合約報價單審核_tsm.ForeColor = Color.GreenYellow 合約請款單_tsm.BackColor = Color.DimGray : 合約請款單_tsm.ForeColor = Color.GreenYellow : 合約請款控制表_tsm.BackColor = Color.DimGray : 合約請款控制表_tsm.ForeColor = Color.GreenYellow 合約驗收單_tsm.BackColor = Color.DimGray : 合約驗收單_tsm.ForeColor = Color.GreenYellow : 合約驗收控制表_tsm.BackColor = Color.DimGray : 合約驗收控制表_tsm.ForeColor = Color.GreenYellow 合約保固書_tsm.BackColor = Color.DimGray : 合約保固書_tsm.ForeColor = Color.GreenYellow : 工程項目BOM表_tsm.BackColor = Color.DimGray : 工程項目BOM表_tsm.ForeColor = Color.GreenYellow 合約文件簽回存檔_tsm.BackColor = Color.DimGray : 合約文件簽回存檔_tsm.ForeColor = Color.GreenYellow : 附錄合約_tsm.BackColor = Color.DimGray : 附錄合約_tsm.ForeColor = Color.GreenYellow 合約文件簽核控制表_tsm.BackColor = Color.DimGray : 合約文件簽核控制表_tsm.ForeColor = Color.GreenYellow : 合約本文_tsm.BackColor = Color.DimGray : 合約本文_tsm.ForeColor = Color.GreenYellow 合約結案控制表_tsm.BackColor = Color.DimGray : 合約結案控制表_tsm.ForeColor = Color.GreenYellow : 合約模組設定_tsm.BackColor = Color.DimGray : 合約模組設定_tsm.ForeColor = Color.GreenYellow 合約工程圖庫管理_tsm.BackColor = Color.DimGray : 合約工程圖庫管理_tsm.ForeColor = Color.GreenYellow : 客戶資料表_tsm.BackColor = Color.DimGray : 客戶資料表_tsm.ForeColor = Color.GreenYellow 工程分區控制表_tsm.BackColor = Color.DimGray : 工程分區控制表_tsm.ForeColor = Color.GreenYellow '-------採購----------------------------------------------------- 採購單一級核准_lb.ForeColor = Color.LightBlue : 供應商管理_lb.ForeColor = Color.LightBlue : 採購驗收對帳表_lb.ForeColor = Color.LightBlue : 採購系統管理_tsm.ForeColor = Color.LightBlue 入庫驗收單_lb.ForeColor = Color.LightBlue : 物料採購統計表_lb.ForeColor = Color.LightBlue : 供應商商品單價設定_lb.ForeColor = Color.LightBlue : 電信費追加執行_lb.ForeColor = Color.LightBlue 請購單申請_lb.ForeColor = Color.LightBlue : 請購單核準_lb.ForeColor = Color.LightBlue : 採購單編輯_lb.ForeColor = Color.LightBlue : 採購轉財務收支單_lb.ForeColor = Color.LightBlue 採購單一覽表_lb.ForeColor = Color.LightBlue : 請購一覽表_lb.ForeColor = Color.LightBlue : 採購單詢價_lb.ForeColor = Color.LightBlue : 電信費追加申請_lb.ForeColor = Color.LightBlue 採購單二級核准_lb.ForeColor = Color.LightBlue : 銀行資料修改審核_lb.ForeColor = Color.LightBlue 採購單一級核准_tsm.BackColor = Color.DimGray : 採購單一級核准_tsm.ForeColor = Color.LightBlue : 採購單二級核准_tsm.BackColor = Color.DimGray : 採購單二級核准_tsm.ForeColor = Color.LightBlue 採購單一覽表_tsm.BackColor = Color.DimGray : 採購單一覽表_tsm.ForeColor = Color.LightBlue : 入庫驗收單_tsm.BackColor = Color.DimGray : 入庫驗收單_tsm.ForeColor = Color.LightBlue 採購轉財務收支單_tsm.BackColor = Color.DimGray : 採購轉財務收支單_tsm.ForeColor = Color.LightBlue 採購驗收對帳表_tsm.BackColor = Color.DimGray : 採購驗收對帳表_tsm.ForeColor = Color.LightBlue : 樣品請購單申請_tsm.BackColor = Color.DimGray : 樣品請購單申請_tsm.ForeColor = Color.LightBlue 樣品請購單核准_tsm.BackColor = Color.DimGray : 樣品請購單核准_tsm.ForeColor = Color.LightBlue : 樣品採購單生成_tsm.BackColor = Color.DimGray : 樣品採購單生成_tsm.ForeColor = Color.LightBlue 樣品請購單一覽表_tsm.BackColor = Color.DimGray : 樣品請購單一覽表_tsm.ForeColor = Color.LightBlue : 採購單編輯_tsm.BackColor = Color.DimGray : 採購單編輯_tsm.ForeColor = Color.LightBlue 樣品採購單一級核准_tsm.BackColor = Color.DimGray : 樣品採購單一級核准_tsm.ForeColor = Color.LightBlue : 請購單申請_tsm.BackColor = Color.DimGray : 請購單申請_tsm.ForeColor = Color.LightBlue 樣品採購單二級核准_tsm.BackColor = Color.DimGray : 樣品採購單二級核准_tsm.ForeColor = Color.LightBlue : 請購單核準_tsm.BackColor = Color.DimGray : 請購單核準_tsm.ForeColor = Color.LightBlue 樣品採購單一覽表_tsm.BackColor = Color.DimGray : 樣品採購單一覽表_tsm.ForeColor = Color.LightBlue : 樣品來料驗收單_tsm.BackColor = Color.DimGray : 樣品來料驗收單_tsm.ForeColor = Color.LightBlue 樣品採購驗收對帳表_tsm.BackColor = Color.DimGray : 樣品採購驗收對帳表_tsm.ForeColor = Color.LightBlue : 請購一覽表_tsm.BackColor = Color.DimGray : 請購一覽表_tsm.ForeColor = Color.LightBlue 供應商管理_tsm.BackColor = Color.DimGray : 供應商管理_tsm.ForeColor = Color.LightBlue : 樣品供應商管理_tsm.BackColor = Color.DimGray : 樣品供應商管理_tsm.ForeColor = Color.LightBlue 供應商商品單價設定_tsm.BackColor = Color.DimGray : 供應商商品單價設定_tsm.ForeColor = Color.LightBlue : 採購單詢價_tsm.BackColor = Color.DimGray : 採購單詢價_tsm.ForeColor = Color.LightBlue 物料採購統計表_tsm.BackColor = Color.DimGray : 物料採購統計表_tsm.ForeColor = Color.LightBlue : 電信費追加申請_tsm.BackColor = Color.DimGray : 電信費追加申請_tsm.ForeColor = Color.LightBlue 電信費追加執行_tsm.BackColor = Color.DimGray : 電信費追加執行_tsm.ForeColor = Color.LightBlue : 銀行資料修改審核_tsm.BackColor = Color.DimGray : 銀行資料修改審核_tsm.ForeColor = Color.LightBlue '-------工程----------------------------------------------------- 工程進度表_lb.ForeColor = Color.LightPink : 工程維修單_lb.ForeColor = Color.LightPink : 合約驗收控制表1_lb.ForeColor = Color.LightPink : 合約驗收單1_lb.ForeColor = Color.LightPink 合約結案控制表1_lb.ForeColor = Color.LightPink : 工程分區控制表1_lb.ForeColor = Color.LightPink : 派工人數紀錄表_lb.ForeColor = Color.LightPink 工程日報表編輯_lb.ForeColor = Color.LightPink : 工程材料表_lb.ForeColor = Color.LightPink : 工程客變單_lb.ForeColor = Color.LightPink : 工程系統管理_tsm.ForeColor = Color.LightPink 工程日報表編輯_lb.ForeColor = Color.LightPink : 工程材料表_lb.ForeColor = Color.LightPink 合約驗收單1_tsm.BackColor = Color.DimGray : 合約驗收單1_tsm.ForeColor = Color.LightPink : 合約驗收控制表1_tsm.BackColor = Color.DimGray : 合約驗收控制表1_tsm.ForeColor = Color.LightPink 合約結案控制表1_tsm.BackColor = Color.DimGray : 合約結案控制表1_tsm.ForeColor = Color.LightPink : 工程進度表_tsm.BackColor = Color.DimGray : 工程進度表_tsm.ForeColor = Color.LightPink 派工人數紀錄表_tsm.BackColor = Color.DimGray : 派工人數紀錄表_tsm.ForeColor = Color.LightPink : 工程客變單_tsm.BackColor = Color.DimGray : 工程客變單_tsm.ForeColor = Color.LightPink 工程日報表編輯_tsm.BackColor = Color.DimGray : 工程日報表編輯_tsm.ForeColor = Color.LightPink : 工程維修單_tsm.BackColor = Color.DimGray : 工程維修單_tsm.ForeColor = Color.LightPink 工程分區控制表1_tsm.BackColor = Color.DimGray : 工程分區控制表1_tsm.ForeColor = Color.LightPink : 工程材料表_tsm.BackColor = Color.DimGray : 工程材料表_tsm.ForeColor = Color.LightPink '-------倉儲----------------------------------------------------- 倉儲領料審核_lb.ForeColor = Color.SandyBrown : 倉儲單據狀態看板_lb.ForeColor = Color.SandyBrown : 倉儲領料出庫_lb.ForeColor = Color.SandyBrown : 物料退庫_lb.ForeColor = Color.SandyBrown 物料資料庫_lb.ForeColor = Color.SandyBrown : 物料轉倉出庫_lb.ForeColor = Color.SandyBrown : 倉儲控制表_lb.ForeColor = Color.SandyBrown : 物料轉倉審核_lb.ForeColor = Color.SandyBrown 倉儲領料申請_lb.ForeColor = Color.SandyBrown : 盤盈盤損審核_lb.ForeColor = Color.SandyBrown : 倉儲入庫驗收_lb.ForeColor = Color.SandyBrown : 物料轉倉申請_lb.ForeColor = Color.SandyBrown 倉儲分區控制表_lb.ForeColor = Color.SandyBrown : 盤盈盤損申請_lb.ForeColor = Color.SandyBrown : 倉儲系統管理_tsm.ForeColor = Color.SandyBrown : 物料資料編輯_lb.ForeColor = Color.SandyBrown 物料資料編輯_tsm.BackColor = Color.DimGray : 物料資料編輯_tsm.ForeColor = Color.SandyBrown 倉儲控制表_tsm.BackColor = Color.DimGray : 倉儲控制表_tsm.ForeColor = Color.SandyBrown : 倉儲入庫驗收_tsm.BackColor = Color.DimGray : 倉儲入庫驗收_tsm.ForeColor = Color.PaleGoldenrod 物料轉倉申請_tsm.BackColor = Color.DimGray : 物料轉倉申請_tsm.ForeColor = Color.SandyBrown : 物料轉倉審核_tsm.BackColor = Color.DimGray : 物料轉倉審核_tsm.ForeColor = Color.SandyBrown 物料轉倉出庫_tsm.BackColor = Color.DimGray : 物料轉倉出庫_tsm.ForeColor = Color.SandyBrown : 倉儲單據狀態看板_tsm.BackColor = Color.DimGray : 倉儲單據狀態看板_tsm.ForeColor = Color.SandyBrown 盤盈盤損申請_tsm.BackColor = Color.DimGray : 盤盈盤損申請_tsm.ForeColor = Color.SandyBrown : 盤盈盤損審核_tsm.BackColor = Color.DimGray : 盤盈盤損審核_tsm.ForeColor = Color.SandyBrown 物料資料庫_tsm.BackColor = Color.DimGray : 物料資料庫_tsm.ForeColor = Color.SandyBrown : 倉儲分區控制表_tsm.BackColor = Color.DimGray : 倉儲分區控制表_tsm.ForeColor = Color.SandyBrown 倉儲領料申請_tsm.BackColor = Color.DimGray : 倉儲領料申請_tsm.ForeColor = Color.PaleGoldenrod : 倉儲領料審核_tsm.BackColor = Color.DimGray : 倉儲領料審核_tsm.ForeColor = Color.PaleGoldenrod 倉儲領料出庫_tsm.BackColor = Color.DimGray : 倉儲領料出庫_tsm.ForeColor = Color.PaleGoldenrod : 物料退庫_tsm.BackColor = Color.DimGray : 物料退庫_tsm.ForeColor = Color.PaleGoldenrod 倉儲領料申請_bt.BackColor = Color.DimGray : 倉儲領料申請_bt.ForeColor = Color.PaleGoldenrod '-------人事----------------------------------------------------- 人員ID卡系統配置設定_lb.ForeColor = Color.White 系統使用者管理_lb.ForeColor = Color.White : 人員基本資料_lb.ForeColor = Color.White : 考勤明細表_lb.ForeColor = Color.White : 臨時工卡片管理_lb.ForeColor = Color.White 人員薪資_lb.ForeColor = Color.White : 門禁權限設定_lb.ForeColor = Color.White : 請假單_lb.ForeColor = Color.White : 請假資料確認_lb.ForeColor = Color.White 行事曆請假_lb.ForeColor = Color.White 行事曆請假_tsm.BackColor = Color.DimGray : 行事曆請假_tsm.ForeColor = Color.White 請假資料確認_tsm.BackColor = Color.DimGray : 請假資料確認_tsm.ForeColor = Color.White : 請假單_tsm.BackColor = Color.DimGray : 請假單_tsm.ForeColor = Color.White 門禁權限設定_tsm.BackColor = Color.DimGray : 門禁權限設定_tsm.ForeColor = Color.White : 人員薪資_tsm.BackColor = Color.DimGray : 人員薪資_tsm.ForeColor = Color.White 公司組織結構_tsm.BackColor = Color.DimGray : 公司組織結構_tsm.ForeColor = Color.White : 人員ID卡系統配置設定_tsm.BackColor = Color.DimGray : 人員ID卡系統配置設定_tsm.ForeColor = Color.White 組織結構_權限設定_tsm.BackColor = Color.DimGray : 組織結構_權限設定_tsm.ForeColor = Color.White : LINE使用者管理表_tsm.BackColor = Color.DimGray : LINE使用者管理表_tsm.ForeColor = Color.White LINE通知測試表_tsm.BackColor = Color.DimGray : LINE通知測試表_tsm.ForeColor = Color.White : LINE權限一覽表_tsm.BackColor = Color.DimGray : LINE權限一覽表_tsm.ForeColor = Color.White 系統使用者管理1_tsm.BackColor = Color.DimGray : 系統使用者管理1_tsm.ForeColor = Color.White : 人員基本資料_tsm.BackColor = Color.DimGray : 人員基本資料_tsm.ForeColor = Color.White 考勤明細表_tsm.BackColor = Color.DimGray : 考勤明細表_tsm.ForeColor = Color.White : 臨時工卡片管理_tsm.BackColor = Color.DimGray : 臨時工卡片管理_tsm.ForeColor = Color.White '-------財務----------------------------------------------------- 會計科目管理_lb.ForeColor = Color.Violet : 營運收支單申請_lb.ForeColor = Color.Violet : 營運收支單審核_lb.ForeColor = Color.Violet : 營運收支單一覽表_lb.ForeColor = Color.Violet 特支費申請_lb.ForeColor = Color.Violet : 會計帳務沖銷_lb.ForeColor = Color.Violet : 主管指定沖銷_lb.ForeColor = Color.Violet : 收款確認表_lb.ForeColor = Color.Violet 收款狀態報表_lb.ForeColor = Color.Violet : 採購付款確認表_lb.ForeColor = Color.Violet : 採購付款狀態報表_lb.ForeColor = Color.Violet : 財務支付申請_lb.ForeColor = Color.Violet 財務支付審核_lb.ForeColor = Color.Violet : 特支費審核_lb.ForeColor = Color.Violet : 財務決算表_lb.ForeColor = Color.Violet : 財務支付_主管審核_lb.ForeColor = Color.Violet 匯率管理_lb.ForeColor = Color.Violet : 應付款日報表_lb.ForeColor = Color.Violet : 應付款月報表_lb.ForeColor = Color.Violet 應付款月報表_tsm.BackColor = Color.DimGray : 應付款月報表_tsm.ForeColor = Color.Violet 應付款日報表_tsm.BackColor = Color.DimGray : 應付款日報表_tsm.ForeColor = Color.Violet : 財務決算表_tsm.BackColor = Color.DimGray : 財務決算表_tsm.ForeColor = Color.Violet 財務系統管理_tsm.BackColor = Color.DimGray : 財務系統管理_tsm.ForeColor = Color.Violet : 會計科目管理_tsm.BackColor = Color.DimGray : 會計科目管理_tsm.ForeColor = Color.Violet 營運收支單申請_tsm.BackColor = Color.DimGray : 營運收支單申請_tsm.ForeColor = Color.Violet : 營運收支單審核_tsm.BackColor = Color.DimGray : 營運收支單審核_tsm.ForeColor = Color.Violet 營運收支單一覽表_tsm.BackColor = Color.DimGray : 營運收支單一覽表_tsm.ForeColor = Color.Violet : 特支費申請_tsm.BackColor = Color.DimGray : 特支費申請_tsm.ForeColor = Color.Violet 會計帳務沖銷_tsm.BackColor = Color.DimGray : 會計帳務沖銷_tsm.ForeColor = Color.Violet : 主管指定沖銷_tsm.BackColor = Color.DimGray : 主管指定沖銷_tsm.ForeColor = Color.Violet 收款確認表_tsm.BackColor = Color.DimGray : 收款確認表_tsm.ForeColor = Color.Violet : 收款狀態報表_tsm.BackColor = Color.DimGray : 收款狀態報表_tsm.ForeColor = Color.Violet 匯率管理_tsm.BackColor = Color.DimGray : 匯率管理_tsm.ForeColor = Color.Violet : 採購付款確認表_tsm.BackColor = Color.DimGray : 採購付款確認表_tsm.ForeColor = Color.Violet 採購付款狀態報表_tsm.BackColor = Color.DimGray : 採購付款狀態報表_tsm.ForeColor = Color.Violet : 財務支付申請_tsm.BackColor = Color.DimGray : 財務支付申請_tsm.ForeColor = Color.Violet 財務支付審核_tsm.BackColor = Color.DimGray : 財務支付審核_tsm.ForeColor = Color.Violet : 特支費審核_tsm.BackColor = Color.DimGray : 特支費審核_tsm.ForeColor = Color.Violet 財務支付_主管審核_tsm.BackColor = Color.DimGray : 財務支付_主管審核_tsm.ForeColor = Color.Violet 員工合約_dgv.EnableHeadersVisualStyles = False : 員工合約_dgv.BackgroundColor = Color.DimGray : 員工合約_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 員工合約_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 員工合約_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 員工合約_dgv.DefaultCellStyle.BackColor = Color.DimGray : 員工合約_dgv.DefaultCellStyle.ForeColor = Color.White 聯絡函_未執行_dgv.EnableHeadersVisualStyles = False : 聯絡函_未執行_dgv.BackgroundColor = Color.DimGray : 聯絡函_未執行_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 聯絡函_未執行_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 聯絡函_未執行_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 聯絡函_未執行_dgv.DefaultCellStyle.BackColor = Color.DimGray : 聯絡函_未執行_dgv.DefaultCellStyle.ForeColor = Color.White 合約預估利潤_dgv.EnableHeadersVisualStyles = False : 合約預估利潤_dgv.BackgroundColor = Color.DimGray : 合約預估利潤_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 合約預估利潤_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約預估利潤_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 合約預估利潤_dgv.DefaultCellStyle.BackColor = Color.DimGray : 合約預估利潤_dgv.DefaultCellStyle.ForeColor = Color.White 請購單_dgv.EnableHeadersVisualStyles = False : 請購單_dgv.BackgroundColor = Color.DimGray : 請購單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 請購單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 請購單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 請購單_dgv.DefaultCellStyle.BackColor = Color.DimGray : 請購單_dgv.DefaultCellStyle.ForeColor = Color.White 聯絡函_未驗收_dgv.EnableHeadersVisualStyles = False : 聯絡函_未驗收_dgv.BackgroundColor = Color.DimGray : 聯絡函_未驗收_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 聯絡函_未驗收_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 聯絡函_未驗收_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 聯絡函_未驗收_dgv.DefaultCellStyle.BackColor = Color.DimGray : 聯絡函_未驗收_dgv.DefaultCellStyle.ForeColor = Color.White 聯絡函_請假_dgv.EnableHeadersVisualStyles = False : 聯絡函_請假_dgv.BackgroundColor = Color.DimGray : 聯絡函_請假_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 聯絡函_請假_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 聯絡函_請假_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 聯絡函_請假_dgv.DefaultCellStyle.BackColor = Color.DimGray : 聯絡函_請假_dgv.DefaultCellStyle.ForeColor = Color.White 聯絡函_派車_dgv.EnableHeadersVisualStyles = False : 聯絡函_派車_dgv.BackgroundColor = Color.DimGray : 聯絡函_派車_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 聯絡函_派車_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 聯絡函_派車_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 聯絡函_派車_dgv.DefaultCellStyle.BackColor = Color.DimGray : 聯絡函_派車_dgv.DefaultCellStyle.ForeColor = Color.White 合約未放行_dgv.EnableHeadersVisualStyles = False : 合約未放行_dgv.BackgroundColor = Color.DimGray : 合約未放行_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 合約未放行_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約未放行_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 合約未放行_dgv.DefaultCellStyle.BackColor = Color.DimGray : 合約未放行_dgv.DefaultCellStyle.ForeColor = Color.White 詢價單_dgv.EnableHeadersVisualStyles = False : 詢價單_dgv.BackgroundColor = Color.DimGray : 詢價單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 詢價單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 詢價單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 詢價單_dgv.DefaultCellStyle.BackColor = Color.DimGray : 詢價單_dgv.DefaultCellStyle.ForeColor = Color.White 合約請款1_dgv.EnableHeadersVisualStyles = False : 合約請款1_dgv.BackgroundColor = Color.DimGray : 合約請款1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 合約請款1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約請款1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 合約請款1_dgv.DefaultCellStyle.BackColor = Color.DimGray : 合約請款1_dgv.DefaultCellStyle.ForeColor = Color.White 報價未完成_dgv.EnableHeadersVisualStyles = False : 報價未完成_dgv.BackgroundColor = Color.DimGray : 報價未完成_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 報價未完成_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 報價未完成_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 報價未完成_dgv.DefaultCellStyle.BackColor = Color.DimGray : 報價未完成_dgv.DefaultCellStyle.ForeColor = Color.White 採購核准11_dgv.EnableHeadersVisualStyles = False : 採購核准11_dgv.BackgroundColor = Color.DimGray : 採購核准11_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 採購核准11_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 採購核准11_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 採購核准11_dgv.DefaultCellStyle.BackColor = Color.DimGray : 採購核准11_dgv.DefaultCellStyle.ForeColor = Color.White 合約請款2_dgv.EnableHeadersVisualStyles = False : 合約請款2_dgv.BackgroundColor = Color.DimGray : 合約請款2_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 合約請款2_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約請款2_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 合約請款2_dgv.DefaultCellStyle.BackColor = Color.DimGray : 合約請款2_dgv.DefaultCellStyle.ForeColor = Color.White 驗收未簽回_dgv.EnableHeadersVisualStyles = False : 驗收未簽回_dgv.BackgroundColor = Color.DimGray : 驗收未簽回_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 驗收未簽回_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 驗收未簽回_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 驗收未簽回_dgv.DefaultCellStyle.BackColor = Color.DimGray : 驗收未簽回_dgv.DefaultCellStyle.ForeColor = Color.White 採購核准12_dgv.EnableHeadersVisualStyles = False : 採購核准12_dgv.BackgroundColor = Color.DimGray : 採購核准12_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 採購核准12_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 採購核准12_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 採購核准12_dgv.DefaultCellStyle.BackColor = Color.DimGray : 採購核准12_dgv.DefaultCellStyle.ForeColor = Color.White 合約請款3_dgv.EnableHeadersVisualStyles = False : 合約請款3_dgv.BackgroundColor = Color.DimGray : 合約請款3_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 合約請款3_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約請款3_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 合約請款3_dgv.DefaultCellStyle.BackColor = Color.DimGray : 合約請款3_dgv.DefaultCellStyle.ForeColor = Color.White 報價未簽回_dgv.EnableHeadersVisualStyles = False : 報價未簽回_dgv.BackgroundColor = Color.DimGray : 報價未簽回_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 報價未簽回_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 報價未簽回_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 報價未簽回_dgv.DefaultCellStyle.BackColor = Color.DimGray : 報價未簽回_dgv.DefaultCellStyle.ForeColor = Color.White 聯絡函_未審_dgv.EnableHeadersVisualStyles = False : 聯絡函_未審_dgv.BackgroundColor = Color.DimGray : 聯絡函_未審_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 聯絡函_未審_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 聯絡函_未審_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 聯絡函_未審_dgv.DefaultCellStyle.BackColor = Color.DimGray : 聯絡函_未審_dgv.DefaultCellStyle.ForeColor = Color.White 合約請款4_dgv.EnableHeadersVisualStyles = False : 合約請款4_dgv.BackgroundColor = Color.DimGray : 合約請款4_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 合約請款4_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約請款4_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 合約請款4_dgv.DefaultCellStyle.BackColor = Color.DimGray : 合約請款4_dgv.DefaultCellStyle.ForeColor = Color.White 合約未簽回_dgv.EnableHeadersVisualStyles = False : 合約未簽回_dgv.BackgroundColor = Color.DimGray : 合約未簽回_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 合約未簽回_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約未簽回_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 合約未簽回_dgv.DefaultCellStyle.BackColor = Color.DimGray : 合約未簽回_dgv.DefaultCellStyle.ForeColor = Color.White 聯絡函_未收_dgv.EnableHeadersVisualStyles = False : 聯絡函_未收_dgv.BackgroundColor = Color.DimGray : 聯絡函_未收_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 聯絡函_未收_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 聯絡函_未收_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 聯絡函_未收_dgv.DefaultCellStyle.BackColor = Color.DimGray : 聯絡函_未收_dgv.DefaultCellStyle.ForeColor = Color.White 合約請款5_dgv.EnableHeadersVisualStyles = False : 合約請款5_dgv.BackgroundColor = Color.DimGray : 合約請款5_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 合約請款5_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約請款5_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 合約請款5_dgv.DefaultCellStyle.BackColor = Color.DimGray : 合約請款5_dgv.DefaultCellStyle.ForeColor = Color.White 保固未簽回_dgv.EnableHeadersVisualStyles = False : 保固未簽回_dgv.BackgroundColor = Color.DimGray : 保固未簽回_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 保固未簽回_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 保固未簽回_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 保固未簽回_dgv.DefaultCellStyle.BackColor = Color.DimGray : 保固未簽回_dgv.DefaultCellStyle.ForeColor = Color.White 合約未指定主管_dgv.EnableHeadersVisualStyles = False : 合約未指定主管_dgv.BackgroundColor = Color.DimGray : 合約未指定主管_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 合約未指定主管_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約未指定主管_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 合約未指定主管_dgv.DefaultCellStyle.BackColor = Color.DimGray : 合約未指定主管_dgv.DefaultCellStyle.ForeColor = Color.White 合約未驗收_dgv.EnableHeadersVisualStyles = False : 合約未驗收_dgv.BackgroundColor = Color.DimGray : 合約未驗收_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 合約未驗收_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約未驗收_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 合約未驗收_dgv.DefaultCellStyle.BackColor = Color.DimGray : 合約未驗收_dgv.DefaultCellStyle.ForeColor = Color.White 人員動態_dgv.EnableHeadersVisualStyles = False : 人員動態_dgv.BackgroundColor = Color.DimGray : 人員動態_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 人員動態_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 人員動態_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 人員動態_dgv.DefaultCellStyle.BackColor = Color.DimGray : 人員動態_dgv.DefaultCellStyle.ForeColor = Color.White 車輛動態_dgv.EnableHeadersVisualStyles = False : 車輛動態_dgv.BackgroundColor = Color.DimGray : 車輛動態_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 車輛動態_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 車輛動態_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 車輛動態_dgv.DefaultCellStyle.BackColor = Color.DimGray : 車輛動態_dgv.DefaultCellStyle.ForeColor = Color.White 銀行資料修改_dgv.EnableHeadersVisualStyles = False : 銀行資料修改_dgv.BackgroundColor = Color.DimGray : 銀行資料修改_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 銀行資料修改_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 銀行資料修改_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 銀行資料修改_dgv.DefaultCellStyle.BackColor = Color.DimGray : 銀行資料修改_dgv.DefaultCellStyle.ForeColor = Color.White End If End Sub End Class