20230930備份

Calculator-SYS/05、人事考勤系統/人員薪資.Designer.vb

@@ -22,22 +22,13 @@ Partial Class 人員薪資
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Me.Label4 = New System.Windows.Forms.Label()
-        Me.月份2_cb = New System.Windows.Forms.ComboBox()
-        Me.Label5 = New System.Windows.Forms.Label()
-        Me.年份2_cb = New System.Windows.Forms.ComboBox()
-        Me.地區_cb = New System.Windows.Forms.ComboBox()
-        Me.級別_cb = New System.Windows.Forms.ComboBox()
-        Me.工人_ch = New System.Windows.Forms.CheckBox()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.清單1_dgv = New System.Windows.Forms.DataGridView()
         Me.總清單_dgv = New System.Windows.Forms.DataGridView()
-        Me.部門_cb = New System.Windows.Forms.ComboBox()
-        Me.語轉扭_bt = New System.Windows.Forms.Button()
         Me.群組輸入_ch = New System.Windows.Forms.CheckBox()
         Me.群組選擇_ch = New System.Windows.Forms.CheckBox()
         Me.Label2 = New System.Windows.Forms.Label()
@@ -46,17 +37,6 @@ Partial Class 人員薪資
         Me.DA3_bt = New System.Windows.Forms.Button()
         Me.DA2_bt = New System.Windows.Forms.Button()
         Me.DA1_bt = New System.Windows.Forms.Button()
-        Me.Panel2 = New System.Windows.Forms.Panel()
-        Me.虛擬表_dgv = New System.Windows.Forms.DataGridView()
-        Me.休假天數_nud = New System.Windows.Forms.NumericUpDown()
-        Me.群組_cb = New System.Windows.Forms.ComboBox()
-        Me.Label10 = New System.Windows.Forms.Label()
-        Me.平均每天_nud = New System.Windows.Forms.NumericUpDown()
-        Me.休假比例_nud = New System.Windows.Forms.NumericUpDown()
-        Me.Label6 = New System.Windows.Forms.Label()
-        Me.Label9 = New System.Windows.Forms.Label()
-        Me.可沖天數_nud = New System.Windows.Forms.NumericUpDown()
-        Me.Label3 = New System.Windows.Forms.Label()
         Me.星7_bt = New System.Windows.Forms.TextBox()
         Me.星6_bt = New System.Windows.Forms.TextBox()
         Me.星5_bt = New System.Windows.Forms.TextBox()
@@ -69,8 +49,6 @@ Partial Class 人員薪資
         Me.群組1_cb = New System.Windows.Forms.ComboBox()
         Me.視窗3_pl = New System.Windows.Forms.Panel()
         Me.Panel4 = New System.Windows.Forms.Panel()
-        Me.虛擬存檔_bt = New System.Windows.Forms.Button()
-        Me.清除_bt = New System.Windows.Forms.Button()
         Me.沖帳金額_nud = New System.Windows.Forms.NumericUpDown()
         Me.Label8 = New System.Windows.Forms.Label()
         Me.加班_nud = New System.Windows.Forms.NumericUpDown()
@@ -81,101 +59,50 @@ Partial Class 人員薪資
         Me.CanceL3_bt = New System.Windows.Forms.Button()
         Me.合計_dgv = New System.Windows.Forms.DataGridView()
         Me.重新讀取_bt = New System.Windows.Forms.Button()
+        Me.虛擬存檔_bt = New System.Windows.Forms.Button()
+        Me.清除_bt = New System.Windows.Forms.Button()
         Me.考勤調整_bt = New System.Windows.Forms.Button()
         Me.縮放2_bt = New System.Windows.Forms.Button()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.虛擬表_dgv = New System.Windows.Forms.DataGridView()
+        Me.休假天數_nud = New System.Windows.Forms.NumericUpDown()
+        Me.群組_cb = New System.Windows.Forms.ComboBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.平均每天_nud = New System.Windows.Forms.NumericUpDown()
+        Me.休假比例_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
         Me.設定_bt = New System.Windows.Forms.Button()
+        Me.可沖天數_nud = New System.Windows.Forms.NumericUpDown()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.年份2_cb = New System.Windows.Forms.ComboBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.月份2_cb = New System.Windows.Forms.ComboBox()
+        Me.部門_cb = New System.Windows.Forms.ComboBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.語轉扭_bt = New System.Windows.Forms.Button()
+        Me.地區_cb = New System.Windows.Forms.ComboBox()
+        Me.級別_cb = New System.Windows.Forms.ComboBox()
+        Me.工人_ch = New System.Windows.Forms.CheckBox()
         Me.列印_bt = New System.Windows.Forms.Button()
         Me.存檔_bt = New System.Windows.Forms.Button()
         Me.系統說明_bt = New System.Windows.Forms.Button()
         CType(Me.清單1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.總清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.Panel2.SuspendLayout()
-        CType(Me.虛擬表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.休假天數_nud, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.平均每天_nud, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.休假比例_nud, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.可沖天數_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.視窗3_pl.SuspendLayout()
         Me.Panel4.SuspendLayout()
         CType(Me.沖帳金額_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.加班_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.總數_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.合計_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel2.SuspendLayout()
+        CType(Me.虛擬表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.休假天數_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.平均每天_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.休假比例_nud, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.可沖天數_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
-        'Label4
-        '
-        Me.Label4.AutoSize = True
-        Me.Label4.BackColor = System.Drawing.Color.Transparent
-        Me.Label4.Location = New System.Drawing.Point(107, 7)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(34, 16)
-        Me.Label4.TabIndex = 1931
-        Me.Label4.Text = "Mon"
-        '
-        '月份2_cb
-        '
-        Me.月份2_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
-        Me.月份2_cb.FormattingEnabled = True
-        Me.月份2_cb.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"})
-        Me.月份2_cb.Location = New System.Drawing.Point(141, 3)
-        Me.月份2_cb.Name = "月份2_cb"
-        Me.月份2_cb.Size = New System.Drawing.Size(46, 24)
-        Me.月份2_cb.TabIndex = 1933
-        '
-        'Label5
-        '
-        Me.Label5.AutoSize = True
-        Me.Label5.BackColor = System.Drawing.Color.Transparent
-        Me.Label5.Location = New System.Drawing.Point(12, 7)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(32, 16)
-        Me.Label5.TabIndex = 1930
-        Me.Label5.Text = "Year"
-        '
-        '年份2_cb
-        '
-        Me.年份2_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
-        Me.年份2_cb.FormattingEnabled = True
-        Me.年份2_cb.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
-        Me.年份2_cb.Location = New System.Drawing.Point(44, 3)
-        Me.年份2_cb.Name = "年份2_cb"
-        Me.年份2_cb.Size = New System.Drawing.Size(61, 24)
-        Me.年份2_cb.TabIndex = 1932
-        '
-        '地區_cb
-        '
-        Me.地區_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.地區_cb.FormattingEnabled = True
-        Me.地區_cb.Items.AddRange(New Object() {"", "kantor", "Lokasi konstruksi"})
-        Me.地區_cb.Location = New System.Drawing.Point(58, 29)
-        Me.地區_cb.Name = "地區_cb"
-        Me.地區_cb.Size = New System.Drawing.Size(129, 24)
-        Me.地區_cb.TabIndex = 1926
-        '
-        '級別_cb
-        '
-        Me.級別_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.級別_cb.FormattingEnabled = True
-        Me.級別_cb.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"})
-        Me.級別_cb.Location = New System.Drawing.Point(7, 29)
-        Me.級別_cb.Name = "級別_cb"
-        Me.級別_cb.Size = New System.Drawing.Size(46, 24)
-        Me.級別_cb.TabIndex = 1925
-        '
-        '工人_ch
-        '
-        Me.工人_ch.AutoSize = True
-        Me.工人_ch.BackColor = System.Drawing.Color.Transparent
-        Me.工人_ch.Checked = True
-        Me.工人_ch.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.工人_ch.Location = New System.Drawing.Point(133, 176)
-        Me.工人_ch.Name = "工人_ch"
-        Me.工人_ch.Size = New System.Drawing.Size(131, 20)
-        Me.工人_ch.TabIndex = 1924
-        Me.工人_ch.Text = "Pekerja Sementara"
-        Me.工人_ch.UseVisualStyleBackColor = False
-        '
         '清單1_dgv
         '
         Me.清單1_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@@ -188,8 +115,8 @@ Partial Class 人員薪資
         Me.清單1_dgv.Location = New System.Drawing.Point(3, 35)
         Me.清單1_dgv.Name = "清單1_dgv"
         Me.清單1_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.清單1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle11
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.清單1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
         Me.清單1_dgv.RowTemplate.Height = 24
         Me.清單1_dgv.Size = New System.Drawing.Size(1445, 637)
         Me.清單1_dgv.TabIndex = 1386
@@ -202,44 +129,23 @@ Partial Class 人員薪資
         Me.總清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.總清單_dgv.BackgroundColor = System.Drawing.Color.White
         Me.總清單_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        Me.總清單_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        Me.總清單_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
         Me.總清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.總清單_dgv.Location = New System.Drawing.Point(3, 35)
         Me.總清單_dgv.Name = "總清單_dgv"
         Me.總清單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.總清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle13
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.總清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
         Me.總清單_dgv.RowTemplate.Height = 24
         Me.總清單_dgv.Size = New System.Drawing.Size(1445, 637)
         Me.總清單_dgv.TabIndex = 1922
         '
-        '部門_cb
-        '
-        Me.部門_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.部門_cb.FormattingEnabled = True
-        Me.部門_cb.Location = New System.Drawing.Point(30, 59)
-        Me.部門_cb.Name = "部門_cb"
-        Me.部門_cb.Size = New System.Drawing.Size(166, 24)
-        Me.部門_cb.TabIndex = 1921
-        '
-        '語轉扭_bt
-        '
-        Me.語轉扭_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.語轉扭_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.語轉扭_bt.ForeColor = System.Drawing.Color.Black
-        Me.語轉扭_bt.Location = New System.Drawing.Point(2, 59)
-        Me.語轉扭_bt.Name = "語轉扭_bt"
-        Me.語轉扭_bt.Size = New System.Drawing.Size(22, 22)
-        Me.語轉扭_bt.TabIndex = 1898
-        Me.語轉扭_bt.Text = "L"
-        Me.語轉扭_bt.UseVisualStyleBackColor = True
-        '
         '群組輸入_ch
         '
         Me.群組輸入_ch.AutoSize = True
@@ -324,192 +230,57 @@ Partial Class 人員薪資
         Me.DA1_bt.Text = "Minggu lalu"
         Me.DA1_bt.UseVisualStyleBackColor = True
         '
-        'Panel2
+        '星7_bt
         '
-        Me.Panel2.Controls.Add(Me.虛擬表_dgv)
-        Me.Panel2.Controls.Add(Me.休假天數_nud)
-        Me.Panel2.Controls.Add(Me.群組_cb)
-        Me.Panel2.Controls.Add(Me.Label10)
-        Me.Panel2.Controls.Add(Me.平均每天_nud)
-        Me.Panel2.Controls.Add(Me.休假比例_nud)
-        Me.Panel2.Controls.Add(Me.Label6)
-        Me.Panel2.Controls.Add(Me.Label9)
-        Me.Panel2.Controls.Add(Me.設定_bt)
-        Me.Panel2.Controls.Add(Me.可沖天數_nud)
-        Me.Panel2.Controls.Add(Me.Label3)
-        Me.Panel2.Controls.Add(Me.年份2_cb)
-        Me.Panel2.Controls.Add(Me.Label5)
-        Me.Panel2.Controls.Add(Me.月份2_cb)
-        Me.Panel2.Controls.Add(Me.部門_cb)
-        Me.Panel2.Controls.Add(Me.Label4)
-        Me.Panel2.Controls.Add(Me.語轉扭_bt)
-        Me.Panel2.Controls.Add(Me.地區_cb)
-        Me.Panel2.Controls.Add(Me.級別_cb)
-        Me.Panel2.Controls.Add(Me.工人_ch)
-        Me.Panel2.Location = New System.Drawing.Point(146, 128)
-        Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(455, 236)
-        Me.Panel2.TabIndex = 1946
+        Me.星7_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.星7_bt.Location = New System.Drawing.Point(1075, 37)
+        Me.星7_bt.Multiline = True
+        Me.星7_bt.Name = "星7_bt"
+        Me.星7_bt.Size = New System.Drawing.Size(120, 22)
+        Me.星7_bt.TabIndex = 1940
+        Me.星7_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
-        '虛擬表_dgv
+        '星6_bt
         '
-        Me.虛擬表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.虛擬表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.虛擬表_dgv.BackgroundColor = System.Drawing.Color.White
-        Me.虛擬表_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.虛擬表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.虛擬表_dgv.Location = New System.Drawing.Point(270, 116)
-        Me.虛擬表_dgv.Name = "虛擬表_dgv"
-        Me.虛擬表_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.虛擬表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle14
-        Me.虛擬表_dgv.RowTemplate.Height = 24
-        Me.虛擬表_dgv.Size = New System.Drawing.Size(176, 103)
-        Me.虛擬表_dgv.TabIndex = 1954
+        Me.星6_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.星6_bt.Location = New System.Drawing.Point(949, 37)
+        Me.星6_bt.Multiline = True
+        Me.星6_bt.Name = "星6_bt"
+        Me.星6_bt.Size = New System.Drawing.Size(120, 22)
+        Me.星6_bt.TabIndex = 1939
+        Me.星6_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
-        '休假天數_nud
+        '星5_bt
         '
-        Me.休假天數_nud.Location = New System.Drawing.Point(325, 30)
-        Me.休假天數_nud.Maximum = New Decimal(New Integer() {10000000, 0, 0, 0})
-        Me.休假天數_nud.Name = "休假天數_nud"
-        Me.休假天數_nud.Size = New System.Drawing.Size(127, 23)
-        Me.休假天數_nud.TabIndex = 1943
-        Me.休假天數_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        Me.休假天數_nud.ThousandsSeparator = True
+        Me.星5_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.星5_bt.Location = New System.Drawing.Point(823, 37)
+        Me.星5_bt.Multiline = True
+        Me.星5_bt.Name = "星5_bt"
+        Me.星5_bt.Size = New System.Drawing.Size(120, 22)
+        Me.星5_bt.TabIndex = 1938
+        Me.星5_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
-        '群組_cb
+        '星4_bt
         '
-        Me.群組_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.群組_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
-        Me.群組_cb.FormattingEnabled = True
-        Me.群組_cb.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"})
-        Me.群組_cb.Location = New System.Drawing.Point(42, 203)
-        Me.群組_cb.Name = "群組_cb"
-        Me.群組_cb.Size = New System.Drawing.Size(212, 24)
-        Me.群組_cb.TabIndex = 1951
+        Me.星4_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.星4_bt.Location = New System.Drawing.Point(697, 37)
+        Me.星4_bt.Multiline = True
+        Me.星4_bt.Name = "星4_bt"
+        Me.星4_bt.Size = New System.Drawing.Size(120, 22)
+        Me.星4_bt.TabIndex = 1937
+        Me.星4_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
-        'Label10
+        '星3_bt
         '
-        Me.Label10.AutoSize = True
-        Me.Label10.BackColor = System.Drawing.Color.Transparent
-        Me.Label10.Location = New System.Drawing.Point(264, 33)
-        Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(55, 16)
-        Me.Label10.TabIndex = 1944
-        Me.Label10.Text = "休假天數"
+        Me.星3_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.星3_bt.Location = New System.Drawing.Point(565, 37)
+        Me.星3_bt.Multiline = True
+        Me.星3_bt.Name = "星3_bt"
+        Me.星3_bt.Size = New System.Drawing.Size(120, 22)
+        Me.星3_bt.TabIndex = 1936
+        Me.星3_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
-        '平均每天_nud
-        '
-        Me.平均每天_nud.Location = New System.Drawing.Point(325, 85)
-        Me.平均每天_nud.Maximum = New Decimal(New Integer() {1410065408, 2, 0, 0})
-        Me.平均每天_nud.Name = "平均每天_nud"
-        Me.平均每天_nud.Size = New System.Drawing.Size(127, 23)
-        Me.平均每天_nud.TabIndex = 1935
-        Me.平均每天_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        Me.平均每天_nud.ThousandsSeparator = True
-        '
-        '休假比例_nud
-        '
-        Me.休假比例_nud.Location = New System.Drawing.Point(325, 4)
-        Me.休假比例_nud.Name = "休假比例_nud"
-        Me.休假比例_nud.Size = New System.Drawing.Size(127, 23)
-        Me.休假比例_nud.TabIndex = 1941
-        Me.休假比例_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        Me.休假比例_nud.ThousandsSeparator = True
-        '
-        'Label6
-        '
-        Me.Label6.AutoSize = True
-        Me.Label6.BackColor = System.Drawing.Color.Transparent
-        Me.Label6.Location = New System.Drawing.Point(264, 88)
-        Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(55, 16)
-        Me.Label6.TabIndex = 1936
-        Me.Label6.Text = "平均每天"
-        '
-        'Label9
-        '
-        Me.Label9.AutoSize = True
-        Me.Label9.BackColor = System.Drawing.Color.Transparent
-        Me.Label9.Location = New System.Drawing.Point(264, 7)
-        Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(55, 16)
-        Me.Label9.TabIndex = 1942
-        Me.Label9.Text = "休假比例"
-        '
-        '可沖天數_nud
-        '
-        Me.可沖天數_nud.Location = New System.Drawing.Point(325, 58)
-        Me.可沖天數_nud.Maximum = New Decimal(New Integer() {1410065408, 2, 0, 0})
-        Me.可沖天數_nud.Name = "可沖天數_nud"
-        Me.可沖天數_nud.Size = New System.Drawing.Size(127, 23)
-        Me.可沖天數_nud.TabIndex = 1933
-        Me.可沖天數_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        Me.可沖天數_nud.ThousandsSeparator = True
-        '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.BackColor = System.Drawing.Color.Transparent
-        Me.Label3.Location = New System.Drawing.Point(264, 61)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(55, 16)
-        Me.Label3.TabIndex = 1934
-        Me.Label3.Text = "可沖天數"
-        '
-        '星7_bt
-        '
-        Me.星7_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.星7_bt.Location = New System.Drawing.Point(1075, 37)
-        Me.星7_bt.Multiline = True
-        Me.星7_bt.Name = "星7_bt"
-        Me.星7_bt.Size = New System.Drawing.Size(120, 22)
-        Me.星7_bt.TabIndex = 1940
-        Me.星7_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        '星6_bt
-        '
-        Me.星6_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.星6_bt.Location = New System.Drawing.Point(949, 37)
-        Me.星6_bt.Multiline = True
-        Me.星6_bt.Name = "星6_bt"
-        Me.星6_bt.Size = New System.Drawing.Size(120, 22)
-        Me.星6_bt.TabIndex = 1939
-        Me.星6_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        '星5_bt
-        '
-        Me.星5_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.星5_bt.Location = New System.Drawing.Point(823, 37)
-        Me.星5_bt.Multiline = True
-        Me.星5_bt.Name = "星5_bt"
-        Me.星5_bt.Size = New System.Drawing.Size(120, 22)
-        Me.星5_bt.TabIndex = 1938
-        Me.星5_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        '星4_bt
-        '
-        Me.星4_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.星4_bt.Location = New System.Drawing.Point(697, 37)
-        Me.星4_bt.Multiline = True
-        Me.星4_bt.Name = "星4_bt"
-        Me.星4_bt.Size = New System.Drawing.Size(120, 22)
-        Me.星4_bt.TabIndex = 1937
-        Me.星4_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        '星3_bt
-        '
-        Me.星3_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.星3_bt.Location = New System.Drawing.Point(565, 37)
-        Me.星3_bt.Multiline = True
-        Me.星3_bt.Name = "星3_bt"
-        Me.星3_bt.Size = New System.Drawing.Size(120, 22)
-        Me.星3_bt.TabIndex = 1936
-        Me.星3_bt.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        '星2_bt
+        '星2_bt
         '
         Me.星2_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.星2_bt.Location = New System.Drawing.Point(439, 37)
@@ -596,32 +367,6 @@ Partial Class 人員薪資
         Me.Panel4.Size = New System.Drawing.Size(204, 131)
         Me.Panel4.TabIndex = 1367
         '
-        '虛擬存檔_bt
-        '
-        Me.虛擬存檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.虛擬存檔_bt.BackgroundImage = Global.Calculator_SYS.My.Resources.Resources.SAVER
-        Me.虛擬存檔_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.虛擬存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.虛擬存檔_bt.ForeColor = System.Drawing.Color.DarkGreen
-        Me.虛擬存檔_bt.Location = New System.Drawing.Point(155, 83)
-        Me.虛擬存檔_bt.Name = "虛擬存檔_bt"
-        Me.虛擬存檔_bt.Size = New System.Drawing.Size(40, 40)
-        Me.虛擬存檔_bt.TabIndex = 1942
-        Me.虛擬存檔_bt.UseVisualStyleBackColor = True
-        '
-        '清除_bt
-        '
-        Me.清除_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.清除_bt.BackgroundImage = Global.Calculator_SYS.My.Resources.Resources.Close
-        Me.清除_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.清除_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.清除_bt.ForeColor = System.Drawing.Color.DarkGreen
-        Me.清除_bt.Location = New System.Drawing.Point(50, 83)
-        Me.清除_bt.Name = "清除_bt"
-        Me.清除_bt.Size = New System.Drawing.Size(40, 40)
-        Me.清除_bt.TabIndex = 1941
-        Me.清除_bt.UseVisualStyleBackColor = True
-        '
         '沖帳金額_nud
         '
         Me.沖帳金額_nud.Location = New System.Drawing.Point(87, 56)
@@ -717,8 +462,8 @@ Partial Class 人員薪資
         Me.合計_dgv.Location = New System.Drawing.Point(3, 671)
         Me.合計_dgv.Name = "合計_dgv"
         Me.合計_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.合計_dgv.RowsDefaultCellStyle = DataGridViewCellStyle15
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.合計_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.合計_dgv.RowTemplate.Height = 24
         Me.合計_dgv.Size = New System.Drawing.Size(1445, 34)
         Me.合計_dgv.TabIndex = 1955
@@ -735,6 +480,32 @@ Partial Class 人員薪資
         Me.重新讀取_bt.TabIndex = 1954
         Me.重新讀取_bt.UseVisualStyleBackColor = True
         '
+        '虛擬存檔_bt
+        '
+        Me.虛擬存檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.虛擬存檔_bt.BackgroundImage = Global.Calculator_SYS.My.Resources.Resources.SAVER
+        Me.虛擬存檔_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.虛擬存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.虛擬存檔_bt.ForeColor = System.Drawing.Color.DarkGreen
+        Me.虛擬存檔_bt.Location = New System.Drawing.Point(155, 83)
+        Me.虛擬存檔_bt.Name = "虛擬存檔_bt"
+        Me.虛擬存檔_bt.Size = New System.Drawing.Size(40, 40)
+        Me.虛擬存檔_bt.TabIndex = 1942
+        Me.虛擬存檔_bt.UseVisualStyleBackColor = True
+        '
+        '清除_bt
+        '
+        Me.清除_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.清除_bt.BackgroundImage = Global.Calculator_SYS.My.Resources.Resources.Close
+        Me.清除_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.清除_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.清除_bt.ForeColor = System.Drawing.Color.DarkGreen
+        Me.清除_bt.Location = New System.Drawing.Point(50, 83)
+        Me.清除_bt.Name = "清除_bt"
+        Me.清除_bt.Size = New System.Drawing.Size(40, 40)
+        Me.清除_bt.TabIndex = 1941
+        Me.清除_bt.UseVisualStyleBackColor = True
+        '
         '考勤調整_bt
         '
         Me.考勤調整_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -761,6 +532,121 @@ Partial Class 人員薪資
         Me.縮放2_bt.TabIndex = 1948
         Me.縮放2_bt.UseVisualStyleBackColor = True
         '
+        'Panel2
+        '
+        Me.Panel2.Controls.Add(Me.虛擬表_dgv)
+        Me.Panel2.Controls.Add(Me.休假天數_nud)
+        Me.Panel2.Controls.Add(Me.群組_cb)
+        Me.Panel2.Controls.Add(Me.Label10)
+        Me.Panel2.Controls.Add(Me.平均每天_nud)
+        Me.Panel2.Controls.Add(Me.休假比例_nud)
+        Me.Panel2.Controls.Add(Me.Label6)
+        Me.Panel2.Controls.Add(Me.Label9)
+        Me.Panel2.Controls.Add(Me.設定_bt)
+        Me.Panel2.Controls.Add(Me.可沖天數_nud)
+        Me.Panel2.Controls.Add(Me.Label3)
+        Me.Panel2.Controls.Add(Me.年份2_cb)
+        Me.Panel2.Controls.Add(Me.Label5)
+        Me.Panel2.Controls.Add(Me.月份2_cb)
+        Me.Panel2.Controls.Add(Me.部門_cb)
+        Me.Panel2.Controls.Add(Me.Label4)
+        Me.Panel2.Controls.Add(Me.語轉扭_bt)
+        Me.Panel2.Controls.Add(Me.地區_cb)
+        Me.Panel2.Controls.Add(Me.級別_cb)
+        Me.Panel2.Controls.Add(Me.工人_ch)
+        Me.Panel2.Location = New System.Drawing.Point(146, 128)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(455, 236)
+        Me.Panel2.TabIndex = 1946
+        '
+        '虛擬表_dgv
+        '
+        Me.虛擬表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.虛擬表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.虛擬表_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.虛擬表_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.虛擬表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.虛擬表_dgv.Location = New System.Drawing.Point(270, 116)
+        Me.虛擬表_dgv.Name = "虛擬表_dgv"
+        Me.虛擬表_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.虛擬表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.虛擬表_dgv.RowTemplate.Height = 24
+        Me.虛擬表_dgv.Size = New System.Drawing.Size(176, 103)
+        Me.虛擬表_dgv.TabIndex = 1954
+        '
+        '休假天數_nud
+        '
+        Me.休假天數_nud.Location = New System.Drawing.Point(325, 30)
+        Me.休假天數_nud.Maximum = New Decimal(New Integer() {10000000, 0, 0, 0})
+        Me.休假天數_nud.Name = "休假天數_nud"
+        Me.休假天數_nud.Size = New System.Drawing.Size(127, 23)
+        Me.休假天數_nud.TabIndex = 1943
+        Me.休假天數_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.休假天數_nud.ThousandsSeparator = True
+        '
+        '群組_cb
+        '
+        Me.群組_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.群組_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
+        Me.群組_cb.FormattingEnabled = True
+        Me.群組_cb.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"})
+        Me.群組_cb.Location = New System.Drawing.Point(42, 203)
+        Me.群組_cb.Name = "群組_cb"
+        Me.群組_cb.Size = New System.Drawing.Size(212, 24)
+        Me.群組_cb.TabIndex = 1951
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.BackColor = System.Drawing.Color.Transparent
+        Me.Label10.Location = New System.Drawing.Point(264, 33)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(55, 16)
+        Me.Label10.TabIndex = 1944
+        Me.Label10.Text = "休假天數"
+        '
+        '平均每天_nud
+        '
+        Me.平均每天_nud.Location = New System.Drawing.Point(325, 85)
+        Me.平均每天_nud.Maximum = New Decimal(New Integer() {1410065408, 2, 0, 0})
+        Me.平均每天_nud.Name = "平均每天_nud"
+        Me.平均每天_nud.Size = New System.Drawing.Size(127, 23)
+        Me.平均每天_nud.TabIndex = 1935
+        Me.平均每天_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.平均每天_nud.ThousandsSeparator = True
+        '
+        '休假比例_nud
+        '
+        Me.休假比例_nud.Location = New System.Drawing.Point(325, 4)
+        Me.休假比例_nud.Name = "休假比例_nud"
+        Me.休假比例_nud.Size = New System.Drawing.Size(127, 23)
+        Me.休假比例_nud.TabIndex = 1941
+        Me.休假比例_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.休假比例_nud.ThousandsSeparator = True
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.BackColor = System.Drawing.Color.Transparent
+        Me.Label6.Location = New System.Drawing.Point(264, 88)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(55, 16)
+        Me.Label6.TabIndex = 1936
+        Me.Label6.Text = "平均每天"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.BackColor = System.Drawing.Color.Transparent
+        Me.Label9.Location = New System.Drawing.Point(264, 7)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(55, 16)
+        Me.Label9.TabIndex = 1942
+        Me.Label9.Text = "休假比例"
+        '
         '設定_bt
         '
         Me.設定_bt.BackgroundImage = Global.Calculator_SYS.My.Resources.Resources.system
@@ -773,6 +659,120 @@ Partial Class 人員薪資
         Me.設定_bt.TabIndex = 1947
         Me.設定_bt.UseVisualStyleBackColor = True
         '
+        '可沖天數_nud
+        '
+        Me.可沖天數_nud.Location = New System.Drawing.Point(325, 58)
+        Me.可沖天數_nud.Maximum = New Decimal(New Integer() {1410065408, 2, 0, 0})
+        Me.可沖天數_nud.Name = "可沖天數_nud"
+        Me.可沖天數_nud.Size = New System.Drawing.Size(127, 23)
+        Me.可沖天數_nud.TabIndex = 1933
+        Me.可沖天數_nud.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.可沖天數_nud.ThousandsSeparator = True
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.BackColor = System.Drawing.Color.Transparent
+        Me.Label3.Location = New System.Drawing.Point(264, 61)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(55, 16)
+        Me.Label3.TabIndex = 1934
+        Me.Label3.Text = "可沖天數"
+        '
+        '年份2_cb
+        '
+        Me.年份2_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
+        Me.年份2_cb.FormattingEnabled = True
+        Me.年份2_cb.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
+        Me.年份2_cb.Location = New System.Drawing.Point(44, 3)
+        Me.年份2_cb.Name = "年份2_cb"
+        Me.年份2_cb.Size = New System.Drawing.Size(61, 24)
+        Me.年份2_cb.TabIndex = 1932
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.BackColor = System.Drawing.Color.Transparent
+        Me.Label5.Location = New System.Drawing.Point(12, 7)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(32, 16)
+        Me.Label5.TabIndex = 1930
+        Me.Label5.Text = "Year"
+        '
+        '月份2_cb
+        '
+        Me.月份2_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
+        Me.月份2_cb.FormattingEnabled = True
+        Me.月份2_cb.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"})
+        Me.月份2_cb.Location = New System.Drawing.Point(141, 3)
+        Me.月份2_cb.Name = "月份2_cb"
+        Me.月份2_cb.Size = New System.Drawing.Size(46, 24)
+        Me.月份2_cb.TabIndex = 1933
+        '
+        '部門_cb
+        '
+        Me.部門_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.部門_cb.FormattingEnabled = True
+        Me.部門_cb.Location = New System.Drawing.Point(30, 59)
+        Me.部門_cb.Name = "部門_cb"
+        Me.部門_cb.Size = New System.Drawing.Size(166, 24)
+        Me.部門_cb.TabIndex = 1921
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.BackColor = System.Drawing.Color.Transparent
+        Me.Label4.Location = New System.Drawing.Point(107, 7)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(34, 16)
+        Me.Label4.TabIndex = 1931
+        Me.Label4.Text = "Mon"
+        '
+        '語轉扭_bt
+        '
+        Me.語轉扭_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.語轉扭_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.語轉扭_bt.ForeColor = System.Drawing.Color.Black
+        Me.語轉扭_bt.Location = New System.Drawing.Point(2, 59)
+        Me.語轉扭_bt.Name = "語轉扭_bt"
+        Me.語轉扭_bt.Size = New System.Drawing.Size(22, 22)
+        Me.語轉扭_bt.TabIndex = 1898
+        Me.語轉扭_bt.Text = "L"
+        Me.語轉扭_bt.UseVisualStyleBackColor = True
+        '
+        '地區_cb
+        '
+        Me.地區_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.地區_cb.FormattingEnabled = True
+        Me.地區_cb.Items.AddRange(New Object() {"", "kantor", "Lokasi konstruksi"})
+        Me.地區_cb.Location = New System.Drawing.Point(58, 29)
+        Me.地區_cb.Name = "地區_cb"
+        Me.地區_cb.Size = New System.Drawing.Size(129, 24)
+        Me.地區_cb.TabIndex = 1926
+        '
+        '級別_cb
+        '
+        Me.級別_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.級別_cb.FormattingEnabled = True
+        Me.級別_cb.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"})
+        Me.級別_cb.Location = New System.Drawing.Point(7, 29)
+        Me.級別_cb.Name = "級別_cb"
+        Me.級別_cb.Size = New System.Drawing.Size(46, 24)
+        Me.級別_cb.TabIndex = 1925
+        '
+        '工人_ch
+        '
+        Me.工人_ch.AutoSize = True
+        Me.工人_ch.BackColor = System.Drawing.Color.Transparent
+        Me.工人_ch.Checked = True
+        Me.工人_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.工人_ch.Location = New System.Drawing.Point(133, 176)
+        Me.工人_ch.Name = "工人_ch"
+        Me.工人_ch.Size = New System.Drawing.Size(131, 20)
+        Me.工人_ch.TabIndex = 1924
+        Me.工人_ch.Text = "Pekerja Sementara"
+        Me.工人_ch.UseVisualStyleBackColor = False
+        '
         '列印_bt
         '
         Me.列印_bt.BackgroundImage = Global.Calculator_SYS.My.Resources.Resources.print
@@ -852,13 +852,6 @@ Partial Class 人員薪資
         Me.Text = "人員薪資"
         CType(Me.清單1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.總清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.Panel2.ResumeLayout(False)
-        Me.Panel2.PerformLayout()
-        CType(Me.虛擬表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.休假天數_nud, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.平均每天_nud, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.休假比例_nud, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.可沖天數_nud, System.ComponentModel.ISupportInitialize).EndInit()
         Me.視窗3_pl.ResumeLayout(False)
         Me.視窗3_pl.PerformLayout()
         Me.Panel4.ResumeLayout(False)
@@ -866,6 +859,13 @@ Partial Class 人員薪資
         CType(Me.加班_nud, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.總數_nud, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.合計_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        CType(Me.虛擬表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.休假天數_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.平均每天_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.休假比例_nud, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.可沖天數_nud, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 

Calculator-SYS/05、人事考勤系統/人員薪資.vb

@@ -12,10 +12,9 @@ Imports Microsoft.Office.Interop.Excel.XlPageOrientation
 Imports Microsoft.Office.Interop.Excel
 Imports PdfSharp.Pdf
 Imports PdfSharp.Pdf.IO
-
 Public Class 人員薪資
     Dim 對話框(17) As String
-    Dim 間隔1, 時長, 總時, VBN, CBN, GN1, 之前選擇 As Integer
+    Dim 間隔1, 時長, 總時, GN1, 之前選擇 As Integer
     Dim 時段(6), 計算(6), X1, AUTO時, AUTO舊1, AUTO舊2 As String
     Dim 本周周一 As Date
     Dim xlApp As Application
@@ -399,6 +398,13 @@ Public Class 人員薪資
                 End If
             Next
         Next : AUTO時段() : 表頭變形1()
+        If 群組1_cb.Text = "HARIAN GROUP" Or 群組1_cb.Text = "" Then
+            PA25 = 年份2_cb.Text : PA26 = 月份2_cb.Text : PA27 = Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd")
+            If 群組1_cb.Text = "HARIAN GROUP" Then : PA30 = "1" : Else : PA30 = "0" : End If
+            PA28 = 合計_dgv.Rows(0).Cells(4).Value.ToString : PA29 = 合計_dgv.Rows(0).Cells(13).Value.ToString
+            SQL_工人薪資彙總報表_查詢()
+            If dr.Read Then : SQL_工人薪資彙總報表_修改() : Else : SQL_工人薪資彙總報表_新增() : End If
+        End If : PA25 = "" : PA26 = "" : PA27 = "" : PA28 = "" : PA29 = "" : PA30 = ""
     End Sub
     Private Sub 表頭變形1()
         Dim NNS, 位置(50), X軸1 As Integer
@@ -483,7 +489,7 @@ Public Class 人員薪資
             If 總清單_dgv.Rows(i).Cells("第三").Value.ToString <> "" Then : DFG(CV) = 總清單_dgv.Rows(i).Cells("第三").Value.ToString : CV += 1 : End If
             If 總清單_dgv.Rows(i).Cells("第四").Value.ToString <> "" Then : DFG(CV) = 總清單_dgv.Rows(i).Cells("第四").Value.ToString : CV += 1 : End If
             If 總清單_dgv.Rows(i).Cells("第五").Value.ToString <> "" Then : DFG(CV) = 總清單_dgv.Rows(i).Cells("第五").Value.ToString : CV += 1 : End If
-            If 總清單_dgv.Rows(i).Cells("第六").Value.ToString <> "" Then : DFG(CV) = 總清單_dgv.Rows(i).Cells("第六").Value.ToString : CV += 1 : End If
+            If 總清單_dgv.Rows(i).Cells("第六").Value.ToString <> "" Then : DFG(CV) = 總清單_dgv.Rows(i).Cells("第六").Value.ToString : End If
 
             時段(1) = DFG(1) : 時段(2) = DFG(2)
             時段(3) = DFG(3) : 時段(4) = DFG(4)
@@ -748,7 +754,7 @@ Public Class 人員薪資
     Private Sub 人員薪資_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         HX_PGS_ERP_SYS.WindowState = 2 : Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         HX_PGS_ERP_SYS.MaximizeBox = False : HX_PGS_ERP_SYS.MinimizeBox = False : 之前選擇 = -1
-        H(611) = True : 介面 = "H611" : 語言轉換讀取() : 首次開啟 = True
+        H(611) = True : 介面 = "H611" : 語言轉換讀取() : 首次開啟 = True : 顯示說明(999, False)
 
         結束日期_dtp.Value = Today() : 開始日期_dtp.Value = 結束日期_dtp.Value
         Dim oldDate As Date : Dim oldWeekDay As Integer : oldDate = 結束日期_dtp.Value : oldWeekDay = Weekday(oldDate)

Calculator-SYS/06、財務系統管理/每月零用金設定.vb

@@ -1,8 +1,7 @@
 Imports System.Globalization
 Public Class 每月零用金設定
-    Dim 本周周一 As Date
     Dim 間隔1, Hours, Hours舊, Xours, Xours舊, Qours, Qours舊, HMD As Integer
-    Dim 時段(6), 計算(6), X1, AUTO時, AUTO舊1, AUTO舊2 As String : Dim 對話框(7) As String
+    Dim 計算(6), X1, AUTO時, AUTO舊1, AUTO舊2 As String : Private ReadOnly 對話框(7) As String
     Private Sub 語言轉換讀取()
         If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
         Me.Text = 系統語言字典("G000-238-" & 語言)
@@ -10,9 +9,9 @@ Public Class 每月零用金設定
         薪資計算_ch.Text = 系統語言字典("G000-240-" & 語言) : 採購計算_ch.Text = 系統語言字典("G000-241-" & 語言) : 物料採購_g.Text = 系統語言字典("G000-242-" & 語言)
         GroupBox3.Text = 系統語言字典("G000-242-" & 語言) : GroupBox2.Text = 系統語言字典("G000-243-" & 語言) : GroupBox1.Text = 系統語言字典("G000-243-" & 語言)
         DA1_bt.Text = 系統語言字典("H611-111-" & 語言) : DA2_bt.Text = 系統語言字典("H611-112-" & 語言) : DA3_bt.Text = 系統語言字典("H611-113-" & 語言)
-        考勤表_bt.Text = 系統語言字典("H611-116-" & 語言) : 薪資表_bt.Text = 系統語言字典("H611-117-" & 語言) : Label22.Text = 系統語言字典("H611-120-" & 語言)
+        考勤表_bt.Text = 系統語言字典("H611-116-" & 語言) : 薪資表_bt.Text = 系統語言字典("H611-117-" & 語言) : Label22.Text = 系統語言字典("H609-145-" & 語言)
         Label1.Text = 系統語言字典("H611-119-" & 語言) : Label12.Text = 系統語言字典("H611-119-" & 語言) : Label19.Text = 系統語言字典("H611-120-" & 語言)
-        Label7.Text = 系統語言字典("H609-124-" & 語言) : Label17.Text = 系統語言字典("H609-124-" & 語言) : Label8.Text = 系統語言字典("H611-120-" & 語言)
+        Label7.Text = 系統語言字典("H609-124-" & 語言) : Label17.Text = 系統語言字典("H609-144-" & 語言) : Label8.Text = 系統語言字典("H611-120-" & 語言)
         設定_g.Text = 系統語言字典("G000-244-" & 語言) : Label9.Text = 系統語言字典("G000-245-" & 語言) : Label10.Text = 系統語言字典("G000-246-" & 語言)
         Label3.Text = 系統語言字典("G000-247-" & 語言) : Label6.Text = 系統語言字典("G000-248-" & 語言) : Label15.Text = 系統語言字典("G000-249-" & 語言)
         Label16.Text = 系統語言字典("G000-250-" & 語言) : 對話框(0) = 系統語言字典("G000-251-" & 語言) : 對話框(1) = 系統語言字典("G000-252-" & 語言)
@@ -1186,10 +1185,13 @@ Public Class 每月零用金設定
                     總數_nud.Value += (清單6_dgv.Rows(i).Cells(12).Value + ((清單6_dgv.Rows(i).Cells(12).Value / 6) * 加班_nud.Value)) : 總次數 += 1 : End If
             End If
         Next
-        可沖天數_nud.Value = 總次數 : 平均每天_nud.Value = 總數_nud.Value / 可沖天數_nud.Value
-        沖帳金額_nud.Maximum = 總數_nud.Value : 沖帳金額_nud.Minimum = 可沖天數_nud.Value : 沖帳金額_nud.Value = 平均每天_nud.Value * 7
-        休假比例_nud.Value = 100 - (沖帳金額_nud.Value / 總數_nud.Value * 100)
-        休假天數_nud.Value = 可沖天數_nud.Value - (沖帳金額_nud.Value / 平均每天_nud.Value)
+        If 總次數 = 0 Then : Else : 可沖天數_nud.Value = 總次數 : End If
+        If 可沖天數_nud.Value = 0 Then : Else
+            平均每天_nud.Value = 總數_nud.Value / 可沖天數_nud.Value
+            沖帳金額_nud.Maximum = 總數_nud.Value : 沖帳金額_nud.Minimum = 0 : 沖帳金額_nud.Value = 平均每天_nud.Value * 7
+            休假比例_nud.Value = 100 - (沖帳金額_nud.Value / 總數_nud.Value * 100)
+            休假天數_nud.Value = 可沖天數_nud.Value - (沖帳金額_nud.Value / 平均每天_nud.Value)
+        End If
     End Sub
     Private Sub 採購單極限數量()
         總數1_nud.Value = (上班日_nud.Value * 每日單量_nud.Value * 每單最高_nud.Value) / 100 * 折數_nud.Value
@@ -1215,7 +1217,7 @@ Public Class 每月零用金設定
             縮放1_bt.Visible = False : 縮放2_bt.Visible = False
         End If
 
-        H(610) = True : 介面 = "H610" : 語言轉換讀取() : 首次開啟 = True
+        H(612) = True : 介面 = "H612" : 語言轉換讀取() : 首次開啟 = True
         Panel2.BringToFront() : Panel3.BringToFront() : 取得總數_nud.Value = 0
 
         SQL_零用金基本設定()
@@ -1230,7 +1232,7 @@ Public Class 每月零用金設定
         ElseIf oldWeekDay = 3 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(5)
         ElseIf oldWeekDay = 2 Then : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(6)
         End If : 開始日期_dtp.Value = 結束日期_dtp.Value.AddDays(-6) : 結束日期_dtp.Value = 開始日期_dtp.Value.AddDays(+6)
-        本周周一 = 開始日期_dtp.Value : 星期設定()
+        星期設定()
 
         For i As Integer = 1 To 7
             If Strings.Right(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 2) = "01" Then : Exit For : End If
@@ -1243,7 +1245,7 @@ Public Class 每月零用金設定
         Dim daysInMonth As Integer = DateTime.DaysInMonth(selectedDate.Year, selectedDate.Month)
         Dim x1 As Integer = 0 : Dim x2 As Integer = 0 ' 週一到週五的天數 週六和週日的天數
         For day As Integer = 1 To daysInMonth
-            Dim currentDate As Date = New Date(selectedDate.Year, selectedDate.Month, day) : Dim dayOfWeek As DayOfWeek = currentDate.DayOfWeek
+            Dim currentDate As New Date(selectedDate.Year, selectedDate.Month, day) : Dim dayOfWeek As DayOfWeek = currentDate.DayOfWeek
             If dayOfWeek >= DayOfWeek.Monday AndAlso dayOfWeek <= DayOfWeek.Friday Then : x1 += 1
             ElseIf dayOfWeek = DayOfWeek.Saturday OrElse dayOfWeek = DayOfWeek.Sunday Then : x2 += 1 : End If
         Next : 上班日_nud.Value = x1 : 放假日_nud.Value = x2 : 採購單極限數量()
@@ -2774,7 +2776,7 @@ Public Class 每月零用金設定
                     上班日(NS) = Strings.Format(currentDate, "yyyy/MM/dd") : NS += 1
                 End If
             Next
-            Dim ND As Integer = 0 : Dim NUM1, 明細第幾個, 物料第幾個, 物料O, 物料數量, 物料數O, 驗證, 合約第幾個, 合約O As Integer
+            Dim ND As Integer = 0 : Dim NUM1, 明細第幾個, 物料第幾個, 物料O, 物料數量, 物料數O, 驗證, 合約第幾個 As Integer
             For i As Integer = 0 To NS : 資料數 = NS : MyMod.進度條()
                 日期數量() : Hours舊 = Hours
                 For ii As Integer = 0 To Hours
@@ -2950,8 +2952,8 @@ Public Class 每月零用金設定
         If 訊息回應 = verificationCode Then
             currentTime = DateTime.Now
             elapsedTime = currentTime - verificationStartTime
-            If elapsedTime.TotalMinutes <= 30 Then
-                PA25 = 星1_bt.Text : Set_虛擬表() : Dim DDF As Integer = 0
+            If elapsedTime.TotalMinutes <= 0.5 Then
+                PA25 = 星1_bt.Text : Set_虛擬表() : Dim DDF As Integer
                 '-------------------------虛擬考勤--------------------------------------------------------------------------------------------------------------------
                 For i As Integer = 0 To 清單1_dgv.Rows.Count - 1
                     For ii As Integer = 0 To 虛擬表_dgv.Rows.Count - 1
@@ -3169,7 +3171,7 @@ Public Class 每月零用金設定
         If 薪資計算_ch.Checked = False And 採購計算_ch.Checked = False Then : MGB(對話框(0), 1) : 虛擬存檔() : 首次開啟 = False : Exit Sub : End If
         If 薪資計算_ch.Checked = True Then
             If 群組1_cb.Text <> "HARIAN GROUP" Then : MGB(系統語言字典("H611-110-" & 語言), 1) : 首次開啟 = False : Else
-                PA25 = 星1_bt.Text : Set_虛擬表() : Dim DDF As Integer = 0
+                PA25 = 星1_bt.Text : Set_虛擬表() : Dim DDF As Integer
                 '-------------------------虛擬考勤--------------------------------------------------------------------------------------------------------------------
                 For i As Integer = 0 To 清單1_dgv.Rows.Count - 1
                     For ii As Integer = 0 To 虛擬表_dgv.Rows.Count - 1
@@ -3348,13 +3350,13 @@ Public Class 每月零用金設定
                         End If : If DDF = -1 Then : ElseIf DDF = 0 Then : SQL2 = AAS : Else : SQL2 = SQL2 & "," & AAS : End If
                     Next
                     SQL_虛擬考勤明細表新增()
-                End If : 可以存檔 = False
+                End If
                 Dim HGF As Integer = 沖帳金額_nud.Value
                 Set_使用者清單() : 沖帳金額_nud.Value = HGF
             End If
         End If
         If 採購計算_ch.Checked = True Then
-            Dim AAS As String = "" : Dim DDF As Integer = -1
+            Dim AAS As String : Dim DDF As Integer : DDF = -1
             For i As Integer = 0 To 控制表_dgv.Rows.Count - 1
                 If 控制表_dgv.Rows(i).Cells(0).Value.ToString <> "" Then : DDF += 1
                     AAS = "(N'" & 控制表_dgv.Rows(i).Cells(0).Value.ToString & "', N'" & 控制表_dgv.Rows(i).Cells(1).Value.ToString & "', N'" & 控制表_dgv.Rows(i).Cells(2).Value.ToString & "', 
@@ -3369,7 +3371,7 @@ Public Class 每月零用金設定
                     If DDF = -1 Then : ElseIf DDF = 0 Then : SQL2 = AAS : Else : SQL2 = SQL2 & "," & AAS : End If
                 End If
             Next : SQL_虛擬採購控制表新增()
-            AAS = "" : DDF = -1
+            DDF = -1
             For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
                 If 明細表_dgv.Rows(i).Cells(0).Value.ToString <> "" Then : DDF += 1
                     AAS = "(N'" & 明細表_dgv.Rows(i).Cells(0).Value.ToString & "', N'" & 明細表_dgv.Rows(i).Cells(1).Value.ToString & "', N'" & 明細表_dgv.Rows(i).Cells(2).Value.ToString & "', 

Calculator-SYS/06、財務系統管理/財務報表1.Designer.vb

@@ -0,0 +1,630 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 財務報表1
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(財務報表1))
+        Dim ChartArea1 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
+        Dim Legend1 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
+        Dim Series1 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
+        Dim ChartArea2 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
+        Dim Legend2 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
+        Dim Series2 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.重新讀取_bt = New System.Windows.Forms.Button()
+        Me.比例6_tb = New System.Windows.Forms.TextBox()
+        Me.合計6_tb = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.比例4_tb = New System.Windows.Forms.TextBox()
+        Me.比例5_tb = New System.Windows.Forms.TextBox()
+        Me.合計4_tb = New System.Windows.Forms.TextBox()
+        Me.合計5_tb = New System.Windows.Forms.TextBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.沖帳採購_dgv = New System.Windows.Forms.DataGridView()
+        Me.實際採購_dgv = New System.Windows.Forms.DataGridView()
+        Me.比例3_tb = New System.Windows.Forms.TextBox()
+        Me.合計3_tb = New System.Windows.Forms.TextBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.比例1_tb = New System.Windows.Forms.TextBox()
+        Me.比例2_tb = New System.Windows.Forms.TextBox()
+        Me.合計1_tb = New System.Windows.Forms.TextBox()
+        Me.合計2_tb = New System.Windows.Forms.TextBox()
+        Me.年份2_cb = New System.Windows.Forms.ComboBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.沖帳工資_dgv = New System.Windows.Forms.DataGridView()
+        Me.實際工資_dgv = New System.Windows.Forms.DataGridView()
+        Me.縮放1_bt = New System.Windows.Forms.Button()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Chart1 = New System.Windows.Forms.DataVisualization.Charting.Chart()
+        Me.Chart2 = New System.Windows.Forms.DataVisualization.Charting.Chart()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.虛擬人工_dgv = New System.Windows.Forms.DataGridView()
+        Me.實際人工_dgv = New System.Windows.Forms.DataGridView()
+        Me.縮放2_bt = New System.Windows.Forms.Button()
+        Me.Panel1.SuspendLayout()
+        CType(Me.沖帳採購_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.實際採購_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.沖帳工資_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.實際工資_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Chart1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Chart2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel2.SuspendLayout()
+        CType(Me.虛擬人工_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.實際人工_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.重新讀取_bt)
+        Me.Panel1.Controls.Add(Me.比例6_tb)
+        Me.Panel1.Controls.Add(Me.合計6_tb)
+        Me.Panel1.Controls.Add(Me.Label10)
+        Me.Panel1.Controls.Add(Me.比例4_tb)
+        Me.Panel1.Controls.Add(Me.比例5_tb)
+        Me.Panel1.Controls.Add(Me.合計4_tb)
+        Me.Panel1.Controls.Add(Me.合計5_tb)
+        Me.Panel1.Controls.Add(Me.Label11)
+        Me.Panel1.Controls.Add(Me.Label12)
+        Me.Panel1.Controls.Add(Me.Label8)
+        Me.Panel1.Controls.Add(Me.Label9)
+        Me.Panel1.Controls.Add(Me.沖帳採購_dgv)
+        Me.Panel1.Controls.Add(Me.實際採購_dgv)
+        Me.Panel1.Controls.Add(Me.比例3_tb)
+        Me.Panel1.Controls.Add(Me.合計3_tb)
+        Me.Panel1.Controls.Add(Me.Label7)
+        Me.Panel1.Controls.Add(Me.比例1_tb)
+        Me.Panel1.Controls.Add(Me.比例2_tb)
+        Me.Panel1.Controls.Add(Me.合計1_tb)
+        Me.Panel1.Controls.Add(Me.合計2_tb)
+        Me.Panel1.Controls.Add(Me.年份2_cb)
+        Me.Panel1.Controls.Add(Me.Label5)
+        Me.Panel1.Controls.Add(Me.Label2)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Controls.Add(Me.沖帳工資_dgv)
+        Me.Panel1.Controls.Add(Me.實際工資_dgv)
+        Me.Panel1.Controls.Add(Me.縮放1_bt)
+        Me.Panel1.Controls.Add(Me.Label3)
+        Me.Panel1.Controls.Add(Me.Label4)
+        Me.Panel1.Controls.Add(Me.Label6)
+        Me.Panel1.Controls.Add(Me.Chart1)
+        Me.Panel1.Controls.Add(Me.Chart2)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(1344, 600)
+        Me.Panel1.TabIndex = 0
+        '
+        '重新讀取_bt
+        '
+        Me.重新讀取_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.重新讀取_bt.BackgroundImage = Global.Calculator_SYS.My.Resources.Resources.下載
+        Me.重新讀取_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.重新讀取_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.重新讀取_bt.ForeColor = System.Drawing.Color.Blue
+        Me.重新讀取_bt.Location = New System.Drawing.Point(1291, 2)
+        Me.重新讀取_bt.Name = "重新讀取_bt"
+        Me.重新讀取_bt.Size = New System.Drawing.Size(25, 25)
+        Me.重新讀取_bt.TabIndex = 1987
+        Me.重新讀取_bt.UseVisualStyleBackColor = True
+        '
+        '比例6_tb
+        '
+        Me.比例6_tb.Location = New System.Drawing.Point(1274, 379)
+        Me.比例6_tb.Name = "比例6_tb"
+        Me.比例6_tb.Size = New System.Drawing.Size(63, 23)
+        Me.比例6_tb.TabIndex = 1984
+        Me.比例6_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '合計6_tb
+        '
+        Me.合計6_tb.Location = New System.Drawing.Point(1174, 379)
+        Me.合計6_tb.Name = "合計6_tb"
+        Me.合計6_tb.Size = New System.Drawing.Size(100, 23)
+        Me.合計6_tb.TabIndex = 1983
+        Me.合計6_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(1088, 382)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(85, 16)
+        Me.Label10.TabIndex = 1985
+        Me.Label10.Text = "採購金額總計 :"
+        '
+        '比例4_tb
+        '
+        Me.比例4_tb.Location = New System.Drawing.Point(941, 356)
+        Me.比例4_tb.Name = "比例4_tb"
+        Me.比例4_tb.Size = New System.Drawing.Size(63, 23)
+        Me.比例4_tb.TabIndex = 1980
+        Me.比例4_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '比例5_tb
+        '
+        Me.比例5_tb.Location = New System.Drawing.Point(1274, 356)
+        Me.比例5_tb.Name = "比例5_tb"
+        Me.比例5_tb.Size = New System.Drawing.Size(63, 23)
+        Me.比例5_tb.TabIndex = 1979
+        Me.比例5_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '合計4_tb
+        '
+        Me.合計4_tb.Location = New System.Drawing.Point(841, 356)
+        Me.合計4_tb.Name = "合計4_tb"
+        Me.合計4_tb.Size = New System.Drawing.Size(100, 23)
+        Me.合計4_tb.TabIndex = 1978
+        Me.合計4_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        '合計5_tb
+        '
+        Me.合計5_tb.Location = New System.Drawing.Point(1174, 356)
+        Me.合計5_tb.Name = "合計5_tb"
+        Me.合計5_tb.Size = New System.Drawing.Size(100, 23)
+        Me.合計5_tb.TabIndex = 1977
+        Me.合計5_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(755, 359)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(85, 16)
+        Me.Label11.TabIndex = 1981
+        Me.Label11.Text = "實際採購合計 :"
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(1088, 359)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(85, 16)
+        Me.Label12.TabIndex = 1982
+        Me.Label12.Text = "沖帳採購合計 :"
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(1008, 7)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(55, 16)
+        Me.Label8.TabIndex = 1976
+        Me.Label8.Text = "沖帳採購"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(675, 7)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(55, 16)
+        Me.Label9.TabIndex = 1975
+        Me.Label9.Text = "實際採購"
+        '
+        '沖帳採購_dgv
+        '
+        Me.沖帳採購_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.沖帳採購_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.沖帳採購_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.沖帳採購_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.沖帳採購_dgv.Location = New System.Drawing.Point(1005, 28)
+        Me.沖帳採購_dgv.Name = "沖帳採購_dgv"
+        Me.沖帳採購_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.沖帳採購_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.沖帳採購_dgv.RowTemplate.Height = 24
+        Me.沖帳採購_dgv.Size = New System.Drawing.Size(332, 327)
+        Me.沖帳採購_dgv.TabIndex = 1974
+        '
+        '實際採購_dgv
+        '
+        Me.實際採購_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.實際採購_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.實際採購_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.實際採購_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.實際採購_dgv.Location = New System.Drawing.Point(672, 28)
+        Me.實際採購_dgv.Name = "實際採購_dgv"
+        Me.實際採購_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.實際採購_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.實際採購_dgv.RowTemplate.Height = 24
+        Me.實際採購_dgv.Size = New System.Drawing.Size(332, 327)
+        Me.實際採購_dgv.TabIndex = 1973
+        '
+        '比例3_tb
+        '
+        Me.比例3_tb.Location = New System.Drawing.Point(605, 379)
+        Me.比例3_tb.Name = "比例3_tb"
+        Me.比例3_tb.Size = New System.Drawing.Size(63, 23)
+        Me.比例3_tb.TabIndex = 1970
+        Me.比例3_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '合計3_tb
+        '
+        Me.合計3_tb.Location = New System.Drawing.Point(505, 379)
+        Me.合計3_tb.Name = "合計3_tb"
+        Me.合計3_tb.Size = New System.Drawing.Size(100, 23)
+        Me.合計3_tb.TabIndex = 1969
+        Me.合計3_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(419, 382)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(85, 16)
+        Me.Label7.TabIndex = 1971
+        Me.Label7.Text = "工人薪資總計 :"
+        '
+        '比例1_tb
+        '
+        Me.比例1_tb.Location = New System.Drawing.Point(272, 356)
+        Me.比例1_tb.Name = "比例1_tb"
+        Me.比例1_tb.Size = New System.Drawing.Size(63, 23)
+        Me.比例1_tb.TabIndex = 1965
+        Me.比例1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '比例2_tb
+        '
+        Me.比例2_tb.Location = New System.Drawing.Point(605, 356)
+        Me.比例2_tb.Name = "比例2_tb"
+        Me.比例2_tb.Size = New System.Drawing.Size(63, 23)
+        Me.比例2_tb.TabIndex = 1964
+        Me.比例2_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '合計1_tb
+        '
+        Me.合計1_tb.Location = New System.Drawing.Point(172, 356)
+        Me.合計1_tb.Name = "合計1_tb"
+        Me.合計1_tb.Size = New System.Drawing.Size(100, 23)
+        Me.合計1_tb.TabIndex = 1963
+        Me.合計1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        '合計2_tb
+        '
+        Me.合計2_tb.Location = New System.Drawing.Point(505, 356)
+        Me.合計2_tb.Name = "合計2_tb"
+        Me.合計2_tb.Size = New System.Drawing.Size(100, 23)
+        Me.合計2_tb.TabIndex = 1962
+        Me.合計2_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        '年份2_cb
+        '
+        Me.年份2_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.年份2_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
+        Me.年份2_cb.FormattingEnabled = True
+        Me.年份2_cb.Items.AddRange(New Object() {"2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030"})
+        Me.年份2_cb.Location = New System.Drawing.Point(217, 3)
+        Me.年份2_cb.Name = "年份2_cb"
+        Me.年份2_cb.Size = New System.Drawing.Size(61, 24)
+        Me.年份2_cb.TabIndex = 1961
+        '
+        'Label5
+        '
+        Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label5.AutoSize = True
+        Me.Label5.BackColor = System.Drawing.Color.Transparent
+        Me.Label5.Location = New System.Drawing.Point(185, 7)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(32, 16)
+        Me.Label5.TabIndex = 1960
+        Me.Label5.Text = "Year"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(339, 7)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(55, 16)
+        Me.Label2.TabIndex = 1959
+        Me.Label2.Text = "沖帳工資"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(101, 7)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(55, 16)
+        Me.Label1.TabIndex = 1958
+        Me.Label1.Text = "實際工資"
+        '
+        '沖帳工資_dgv
+        '
+        Me.沖帳工資_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.沖帳工資_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.沖帳工資_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.沖帳工資_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.沖帳工資_dgv.Location = New System.Drawing.Point(336, 28)
+        Me.沖帳工資_dgv.Name = "沖帳工資_dgv"
+        Me.沖帳工資_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.沖帳工資_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.沖帳工資_dgv.RowTemplate.Height = 24
+        Me.沖帳工資_dgv.Size = New System.Drawing.Size(332, 327)
+        Me.沖帳工資_dgv.TabIndex = 1957
+        '
+        '實際工資_dgv
+        '
+        Me.實際工資_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.實際工資_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.實際工資_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.實際工資_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.實際工資_dgv.Location = New System.Drawing.Point(3, 28)
+        Me.實際工資_dgv.Name = "實際工資_dgv"
+        Me.實際工資_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.實際工資_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        Me.實際工資_dgv.RowTemplate.Height = 24
+        Me.實際工資_dgv.Size = New System.Drawing.Size(332, 327)
+        Me.實際工資_dgv.TabIndex = 1956
+        '
+        '縮放1_bt
+        '
+        Me.縮放1_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.縮放1_bt.BackgroundImage = Global.Calculator_SYS.My.Resources.Resources.list_bullets
+        Me.縮放1_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.縮放1_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.縮放1_bt.ForeColor = System.Drawing.Color.Blue
+        Me.縮放1_bt.Location = New System.Drawing.Point(1317, 1)
+        Me.縮放1_bt.Name = "縮放1_bt"
+        Me.縮放1_bt.Size = New System.Drawing.Size(25, 25)
+        Me.縮放1_bt.TabIndex = 1949
+        Me.縮放1_bt.UseVisualStyleBackColor = True
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(86, 359)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(85, 16)
+        Me.Label3.TabIndex = 1966
+        Me.Label3.Text = "實際工資合計 :"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(419, 359)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(85, 16)
+        Me.Label4.TabIndex = 1967
+        Me.Label4.Text = "沖帳工資合計 :"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(-2, 390)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(1347, 16)
+        Me.Label6.TabIndex = 1968
+        Me.Label6.Text = resources.GetString("Label6.Text")
+        '
+        'Chart1
+        '
+        Me.Chart1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Chart1.BackColor = System.Drawing.Color.Transparent
+        ChartArea1.AlignmentOrientation = CType((System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Vertical Or System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Horizontal), System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations)
+        ChartArea1.AxisX.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea1.AxisX.IsLabelAutoFit = False
+        ChartArea1.AxisX.LabelAutoFitStyle = CType((((((System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.IncreaseFont Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.DecreaseFont) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.StaggeredLabels) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep30) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep45) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.WordWrap), System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles)
+        ChartArea1.AxisX.LabelStyle.IsStaggered = True
+        ChartArea1.AxisX.MaximumAutoSize = 100.0!
+        ChartArea1.AxisX.TitleFont = New System.Drawing.Font("微軟正黑體", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        ChartArea1.AxisX2.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea1.AxisX2.MaximumAutoSize = 100.0!
+        ChartArea1.AxisY.MaximumAutoSize = 100.0!
+        ChartArea1.AxisY2.MaximumAutoSize = 100.0!
+        ChartArea1.Name = "ChartArea1"
+        Me.Chart1.ChartAreas.Add(ChartArea1)
+        Legend1.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Legend1.IsTextAutoFit = False
+        Legend1.Name = "Legend1"
+        Me.Chart1.Legends.Add(Legend1)
+        Me.Chart1.Location = New System.Drawing.Point(-11, 401)
+        Me.Chart1.Name = "Chart1"
+        Series1.ChartArea = "ChartArea1"
+        Series1.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.StackedColumn
+        Series1.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Series1.Legend = "Legend1"
+        Series1.Name = "Series1"
+        Me.Chart1.Series.Add(Series1)
+        Me.Chart1.Size = New System.Drawing.Size(690, 199)
+        Me.Chart1.TabIndex = 1972
+        Me.Chart1.Text = "Chart1"
+        '
+        'Chart2
+        '
+        Me.Chart2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Chart2.BackColor = System.Drawing.Color.Transparent
+        ChartArea2.AlignmentOrientation = CType((System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Vertical Or System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Horizontal), System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations)
+        ChartArea2.AxisX.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea2.AxisX.IsLabelAutoFit = False
+        ChartArea2.AxisX.LabelAutoFitStyle = CType((((((System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.IncreaseFont Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.DecreaseFont) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.StaggeredLabels) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep30) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep45) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.WordWrap), System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles)
+        ChartArea2.AxisX.LabelStyle.IsStaggered = True
+        ChartArea2.AxisX.MaximumAutoSize = 100.0!
+        ChartArea2.AxisX.TitleFont = New System.Drawing.Font("微軟正黑體", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        ChartArea2.AxisX2.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea2.AxisX2.MaximumAutoSize = 100.0!
+        ChartArea2.AxisY.MaximumAutoSize = 100.0!
+        ChartArea2.AxisY2.MaximumAutoSize = 100.0!
+        ChartArea2.Name = "ChartArea1"
+        Me.Chart2.ChartAreas.Add(ChartArea2)
+        Legend2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Legend2.IsTextAutoFit = False
+        Legend2.Name = "Legend1"
+        Me.Chart2.Legends.Add(Legend2)
+        Me.Chart2.Location = New System.Drawing.Point(658, 401)
+        Me.Chart2.Name = "Chart2"
+        Series2.ChartArea = "ChartArea1"
+        Series2.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.StackedColumn
+        Series2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Series2.Legend = "Legend1"
+        Series2.Name = "Series1"
+        Me.Chart2.Series.Add(Series2)
+        Me.Chart2.Size = New System.Drawing.Size(690, 199)
+        Me.Chart2.TabIndex = 1986
+        Me.Chart2.Text = "Chart2"
+        '
+        'Panel2
+        '
+        Me.Panel2.Controls.Add(Me.虛擬人工_dgv)
+        Me.Panel2.Controls.Add(Me.實際人工_dgv)
+        Me.Panel2.Controls.Add(Me.縮放2_bt)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(1344, 600)
+        Me.Panel2.TabIndex = 1
+        '
+        '虛擬人工_dgv
+        '
+        Me.虛擬人工_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.虛擬人工_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.虛擬人工_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.虛擬人工_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.虛擬人工_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.虛擬人工_dgv.Location = New System.Drawing.Point(348, 3)
+        Me.虛擬人工_dgv.Name = "虛擬人工_dgv"
+        Me.虛擬人工_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.虛擬人工_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.虛擬人工_dgv.RowTemplate.Height = 24
+        Me.虛擬人工_dgv.Size = New System.Drawing.Size(344, 594)
+        Me.虛擬人工_dgv.TabIndex = 1956
+        '
+        '實際人工_dgv
+        '
+        Me.實際人工_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.實際人工_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.實際人工_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.實際人工_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.實際人工_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.實際人工_dgv.Location = New System.Drawing.Point(3, 3)
+        Me.實際人工_dgv.Name = "實際人工_dgv"
+        Me.實際人工_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.實際人工_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
+        Me.實際人工_dgv.RowTemplate.Height = 24
+        Me.實際人工_dgv.Size = New System.Drawing.Size(344, 594)
+        Me.實際人工_dgv.TabIndex = 1955
+        '
+        '縮放2_bt
+        '
+        Me.縮放2_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.縮放2_bt.BackgroundImage = Global.Calculator_SYS.My.Resources.Resources.list_bullets
+        Me.縮放2_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.縮放2_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.縮放2_bt.ForeColor = System.Drawing.Color.Blue
+        Me.縮放2_bt.Location = New System.Drawing.Point(1306, 3)
+        Me.縮放2_bt.Name = "縮放2_bt"
+        Me.縮放2_bt.Size = New System.Drawing.Size(35, 35)
+        Me.縮放2_bt.TabIndex = 1949
+        Me.縮放2_bt.UseVisualStyleBackColor = True
+        '
+        '財務報表1
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1344, 600)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.Panel2)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(4)
+        Me.Name = "財務報表1"
+        Me.Text = "財務報表1"
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.沖帳採購_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.實際採購_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.沖帳工資_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.實際工資_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Chart1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Chart2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel2.ResumeLayout(False)
+        CType(Me.虛擬人工_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.實際人工_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents Panel2 As Panel
+    Friend WithEvents 縮放1_bt As Button
+    Friend WithEvents 縮放2_bt As Button
+    Friend WithEvents 虛擬人工_dgv As DataGridView
+    Friend WithEvents 實際人工_dgv As DataGridView
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 沖帳工資_dgv As DataGridView
+    Friend WithEvents 實際工資_dgv As DataGridView
+    Friend WithEvents 合計1_tb As TextBox
+    Friend WithEvents 合計2_tb As TextBox
+    Friend WithEvents 年份2_cb As ComboBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents 比例1_tb As TextBox
+    Friend WithEvents 比例2_tb As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 比例3_tb As TextBox
+    Friend WithEvents 合計3_tb As TextBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Chart1 As DataVisualization.Charting.Chart
+    Friend WithEvents 比例6_tb As TextBox
+    Friend WithEvents 合計6_tb As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents 比例4_tb As TextBox
+    Friend WithEvents 比例5_tb As TextBox
+    Friend WithEvents 合計4_tb As TextBox
+    Friend WithEvents 合計5_tb As TextBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents Label12 As Label
+    Friend WithEvents Label8 As Label
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 沖帳採購_dgv As DataGridView
+    Friend WithEvents 實際採購_dgv As DataGridView
+    Friend WithEvents Chart2 As DataVisualization.Charting.Chart
+    Friend WithEvents 重新讀取_bt As Button
+End Class

Calculator-SYS/06、財務系統管理/財務報表1.resx

@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <data name="Label6.Text" xml:space="preserve">
+    <value>____________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________</value>
+  </data>
+</root>

Calculator-SYS/06、財務系統管理/財務報表1.vb

@@ -0,0 +1,276 @@
+Imports System.Windows.Forms.DataVisualization.Charting
+
+Public Class 財務報表1
+    Private Sub Set_實際人工()
+        Dim ds1 As New DataSet
+        實際人工_dgv.DataSource = Nothing : ds1.Clear()
+        實際人工_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        實際人工_dgv.ColumnHeadersHeight = 25 : 實際人工_dgv.AllowUserToAddRows = False : 實際人工_dgv.RowTemplate.Height = 25
+        PA30 = "0" : SQL_工人薪資彙總報表_查詢1()
+        da.Fill(ds1) : 實際人工_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        For i As Integer = 0 To 實際人工_dgv.Rows.Count - 1 : 實際人工_dgv.Rows(i).Cells(0).Value = "1" : Next
+    End Sub
+    Private Sub Set_虛擬人工()
+        Dim ds1 As New DataSet
+        虛擬人工_dgv.DataSource = Nothing : ds1.Clear()
+        虛擬人工_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        虛擬人工_dgv.ColumnHeadersHeight = 25 : 虛擬人工_dgv.AllowUserToAddRows = False : 虛擬人工_dgv.RowTemplate.Height = 25
+        PA30 = "1" : SQL_工人薪資彙總報表_查詢1()
+        da.Fill(ds1) : 虛擬人工_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        For i As Integer = 0 To 虛擬人工_dgv.Rows.Count - 1 : 虛擬人工_dgv.Rows(i).Cells(0).Value = "1" : Next
+    End Sub
+    Private Sub Set_實際工資()
+        Dim ds1 As New DataSet
+        實際工資_dgv.DataSource = Nothing : ds1.Clear()
+        實際工資_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        實際工資_dgv.ColumnHeadersHeight = 25 : 實際工資_dgv.AllowUserToAddRows = False : 實際工資_dgv.RowTemplate.Height = 25
+        PA30 = "0" : SQL_工人薪資彙總報表_查詢2()
+        da.Fill(ds1) : 實際工資_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        Dim 週數, 人數 As Integer : 週數 = 0 : 人數 = 0
+        For i As Integer = 0 To 實際工資_dgv.Rows.Count - 1
+            If IsDBNull(實際工資_dgv.Rows(i).Cells(2).Value) Then
+                實際工資_dgv.Rows(i).Cells(2).Value = 0 : 實際工資_dgv.Rows(i).Cells(3).Value = 0
+                實際工資_dgv.Rows(i).Cells(4).Value = 0 : 實際工資_dgv.Rows(i).Cells(5).Value = 0
+            End If
+            For II As Integer = 0 To 實際人工_dgv.Rows.Count - 1
+                If 實際人工_dgv.Rows(II).Cells(2).Value.ToString = 實際工資_dgv.Rows(i).Cells(1).Value.ToString Then
+                    週數 += CInt(實際人工_dgv.Rows(II).Cells(0).Value.ToString) : 人數 += CInt(實際人工_dgv.Rows(II).Cells(4).Value.ToString)
+                End If
+            Next : 實際工資_dgv.Rows(i).Cells(2).Value = Strings.Format(人數 / 週數, "#,##0")
+        Next
+        實際工資_dgv.Columns(3).FillWeight = 140 : 實際工資_dgv.Columns(4).Visible = False : 實際工資_dgv.Columns(5).Visible = False
+        實際工資_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
+        實際工資_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+    End Sub
+    Private Sub Set_虛擬工資()
+        Dim ds1 As New DataSet
+        沖帳工資_dgv.DataSource = Nothing : ds1.Clear()
+        沖帳工資_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        沖帳工資_dgv.ColumnHeadersHeight = 25 : 沖帳工資_dgv.AllowUserToAddRows = False : 沖帳工資_dgv.RowTemplate.Height = 25
+        PA30 = "1" : SQL_工人薪資彙總報表_查詢2()
+        da.Fill(ds1) : 沖帳工資_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        Dim 週數, 人數 As Integer : 週數 = 0 : 人數 = 0
+        For i As Integer = 0 To 沖帳工資_dgv.Rows.Count - 1
+            If IsDBNull(虛擬人工_dgv.Rows(i).Cells(2).Value) Then
+                虛擬人工_dgv.Rows(i).Cells(2).Value = 0 : 虛擬人工_dgv.Rows(i).Cells(3).Value = 0
+                虛擬人工_dgv.Rows(i).Cells(4).Value = 0 : 虛擬人工_dgv.Rows(i).Cells(5).Value = 0
+            End If
+            For II As Integer = 0 To 虛擬人工_dgv.Rows.Count - 1
+                If 虛擬人工_dgv.Rows(II).Cells(2).Value.ToString = 沖帳工資_dgv.Rows(i).Cells(1).Value.ToString Then
+                    週數 += CInt(虛擬人工_dgv.Rows(II).Cells(0).Value.ToString) : 人數 += CInt(虛擬人工_dgv.Rows(II).Cells(4).Value.ToString)
+                End If
+            Next : 沖帳工資_dgv.Rows(i).Cells(2).Value = Strings.Format(人數 / 週數, "#,##0")
+        Next
+        沖帳工資_dgv.Columns(3).FillWeight = 140 : 沖帳工資_dgv.Columns(4).Visible = False : 沖帳工資_dgv.Columns(5).Visible = False
+        沖帳工資_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
+        沖帳工資_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+    End Sub
+    Private Sub Set_實際採購()
+        Dim ds1 As New DataSet
+        實際採購_dgv.DataSource = Nothing : ds1.Clear()
+        實際採購_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        實際採購_dgv.ColumnHeadersHeight = 25 : 實際採購_dgv.AllowUserToAddRows = False : 實際採購_dgv.RowTemplate.Height = 25
+        SQL_採購總額彙總報表_查詢1()
+        da.Fill(ds1) : 實際採購_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        For i As Integer = 0 To 實際採購_dgv.Rows.Count - 1
+            If IsDBNull(實際採購_dgv.Rows(i).Cells(2).Value) Then
+                實際採購_dgv.Rows(i).Cells(2).Value = 0 : 實際採購_dgv.Rows(i).Cells(3).Value = 0
+                實際採購_dgv.Rows(i).Cells(4).Value = 0 : 實際採購_dgv.Rows(i).Cells(5).Value = 0
+            End If
+        Next
+        實際採購_dgv.Columns(3).FillWeight = 140 : 實際採購_dgv.Columns(4).Visible = False : 實際採購_dgv.Columns(5).Visible = False
+        實際採購_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
+        實際採購_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+    End Sub
+    Private Sub Set_沖帳採購()
+        Dim ds1 As New DataSet
+        沖帳採購_dgv.DataSource = Nothing : ds1.Clear()
+        沖帳採購_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        沖帳採購_dgv.ColumnHeadersHeight = 25 : 沖帳採購_dgv.AllowUserToAddRows = False : 沖帳採購_dgv.RowTemplate.Height = 25
+        SQL_採購總額彙總報表_查詢2()
+        da.Fill(ds1) : 沖帳採購_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        For i As Integer = 0 To 沖帳採購_dgv.Rows.Count - 1
+            If IsDBNull(沖帳採購_dgv.Rows(i).Cells(2).Value) Then
+                沖帳採購_dgv.Rows(i).Cells(2).Value = 0 : 沖帳採購_dgv.Rows(i).Cells(3).Value = 0
+                沖帳採購_dgv.Rows(i).Cells(4).Value = 0 : 沖帳採購_dgv.Rows(i).Cells(5).Value = 0
+            End If
+        Next
+        沖帳採購_dgv.Columns(3).FillWeight = 140 : 沖帳採購_dgv.Columns(4).Visible = False : 沖帳採購_dgv.Columns(5).Visible = False
+        沖帳採購_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
+        沖帳採購_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+    End Sub
+    Private Sub Set_計算()
+        Set_實際工資() : Set_虛擬工資() : Set_實際採購() : Set_沖帳採購() : 合計1_tb.Text = "0" : 合計2_tb.Text = "0" : 合計4_tb.Text = "0" : 合計5_tb.Text = "0"
+        For i As Integer = 0 To 實際工資_dgv.Rows.Count - 1 : 實際工資_dgv.Rows(i).Cells(5).Value = 0
+            合計1_tb.Text = CLng(合計1_tb.Text) + 實際工資_dgv.Rows(i).Cells(3).Value
+            For II As Integer = 0 To 沖帳工資_dgv.Rows.Count - 1
+                If 沖帳工資_dgv.Rows(II).Cells(1).Value.ToString = 實際工資_dgv.Rows(i).Cells(1).Value.ToString Then
+                    實際工資_dgv.Rows(i).Cells(4).Value = 實際工資_dgv.Rows(i).Cells(3).Value + 沖帳工資_dgv.Rows(i).Cells(3).Value
+                    If 實際工資_dgv.Rows(i).Cells(4).Value > 0 Then
+                        實際工資_dgv.Rows(i).Cells(5).Value = CInt((實際工資_dgv.Rows(i).Cells(3).Value / 實際工資_dgv.Rows(i).Cells(4).Value) * 100)
+                    End If
+                End If
+            Next
+        Next
+        For i As Integer = 0 To 沖帳工資_dgv.Rows.Count - 1 : 沖帳工資_dgv.Rows(i).Cells(5).Value = 0
+            合計2_tb.Text = CLng(合計2_tb.Text) + 沖帳工資_dgv.Rows(i).Cells(3).Value
+            For II As Integer = 0 To 實際工資_dgv.Rows.Count - 1
+                If 實際工資_dgv.Rows(II).Cells(1).Value.ToString = 沖帳工資_dgv.Rows(i).Cells(1).Value.ToString Then
+                    沖帳工資_dgv.Rows(i).Cells(4).Value = 沖帳工資_dgv.Rows(i).Cells(3).Value + 實際工資_dgv.Rows(i).Cells(3).Value
+                    If 沖帳工資_dgv.Rows(i).Cells(4).Value > 0 Then
+                        沖帳工資_dgv.Rows(i).Cells(5).Value = CInt((沖帳工資_dgv.Rows(i).Cells(3).Value / 沖帳工資_dgv.Rows(i).Cells(4).Value) * 100)
+                    End If
+                End If
+            Next
+        Next
+        For i As Integer = 0 To 實際採購_dgv.Rows.Count - 1
+            合計4_tb.Text = CLng(合計4_tb.Text) + 實際採購_dgv.Rows(i).Cells(3).Value
+            For II As Integer = 0 To 沖帳採購_dgv.Rows.Count - 1
+                If 沖帳採購_dgv.Rows(II).Cells(1).Value.ToString = 實際採購_dgv.Rows(i).Cells(1).Value.ToString Then
+                    實際採購_dgv.Rows(i).Cells(4).Value = 實際採購_dgv.Rows(i).Cells(3).Value + 沖帳採購_dgv.Rows(i).Cells(3).Value
+                    If 實際採購_dgv.Rows(i).Cells(4).Value > 0 Then
+                        實際採購_dgv.Rows(i).Cells(5).Value = CInt((實際採購_dgv.Rows(i).Cells(3).Value / 實際採購_dgv.Rows(i).Cells(4).Value) * 100)
+                    End If
+                End If
+            Next
+        Next
+        For i As Integer = 0 To 沖帳採購_dgv.Rows.Count - 1
+            合計5_tb.Text = CLng(合計5_tb.Text) + 沖帳採購_dgv.Rows(i).Cells(3).Value
+            For II As Integer = 0 To 實際採購_dgv.Rows.Count - 1
+                If 實際採購_dgv.Rows(II).Cells(1).Value.ToString = 沖帳採購_dgv.Rows(i).Cells(1).Value.ToString Then
+                    沖帳採購_dgv.Rows(i).Cells(4).Value = 沖帳採購_dgv.Rows(i).Cells(3).Value + 實際採購_dgv.Rows(i).Cells(3).Value
+                    If 沖帳採購_dgv.Rows(i).Cells(4).Value > 0 Then
+                        沖帳採購_dgv.Rows(i).Cells(5).Value = CInt((沖帳採購_dgv.Rows(i).Cells(3).Value / 沖帳採購_dgv.Rows(i).Cells(4).Value) * 100)
+                    End If
+                End If
+            Next
+        Next
+        Set_進度條顯示1() : Set_進度條顯示2() : Set_進度條顯示3() : Set_進度條顯示4()
+        比例1_tb.Text = CLng(合計1_tb.Text) / (CLng(合計1_tb.Text) + CLng(合計2_tb.Text)) * 100
+        比例2_tb.Text = CLng(合計2_tb.Text) / (CLng(合計1_tb.Text) + CLng(合計2_tb.Text)) * 100
+        比例4_tb.Text = CLng(合計4_tb.Text) / (CLng(合計4_tb.Text) + CLng(合計5_tb.Text)) * 100
+        比例5_tb.Text = CLng(合計5_tb.Text) / (CLng(合計4_tb.Text) + CLng(合計5_tb.Text)) * 100
+        比例3_tb.Text = CLng(比例1_tb.Text) + CLng(比例2_tb.Text) : 合計3_tb.Text = CLng(合計1_tb.Text) + CLng(合計2_tb.Text)
+        比例6_tb.Text = CLng(比例4_tb.Text) + CLng(比例5_tb.Text) : 合計6_tb.Text = CLng(合計4_tb.Text) + CLng(合計5_tb.Text)
+        比例1_tb.Text = Strings.Format(CLng(比例1_tb.Text), "#,##0.00") & " %" : 比例2_tb.Text = Strings.Format(CLng(比例2_tb.Text), "#,##0.00") & " %"
+        比例3_tb.Text = Strings.Format(CLng(比例3_tb.Text), "#,##0.00") & " %" : 比例4_tb.Text = Strings.Format(CLng(比例4_tb.Text), "#,##0.00") & " %"
+        比例5_tb.Text = Strings.Format(CLng(比例5_tb.Text), "#,##0.00") & " %" : 比例6_tb.Text = Strings.Format(CLng(比例6_tb.Text), "#,##0.00") & " %"
+        合計1_tb.Text = Strings.Format(CLng(合計1_tb.Text), "#,##0") : 合計2_tb.Text = Strings.Format(CLng(合計2_tb.Text), "#,##0")
+        合計3_tb.Text = Strings.Format(CLng(合計3_tb.Text), "#,##0") : 合計4_tb.Text = Strings.Format(CLng(合計4_tb.Text), "#,##0")
+        合計5_tb.Text = Strings.Format(CLng(合計5_tb.Text), "#,##0") : 合計6_tb.Text = Strings.Format(CLng(合計6_tb.Text), "#,##0")
+        彙總()
+    End Sub
+    Private Sub Set_進度條顯示1()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "比例"
+        }
+        Col.HeaderText = "Percent (%)" : Col.Name = "容量" : Col.DataPropertyName = "比例" : 實際工資_dgv.Columns.Insert(5, Col)
+    End Sub
+    Private Sub Set_進度條顯示2()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "比例"
+        }
+        Col.HeaderText = "Percent (%)" : Col.Name = "容量" : Col.DataPropertyName = "比例" : 沖帳工資_dgv.Columns.Insert(5, Col)
+    End Sub
+    Private Sub Set_進度條顯示3()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "比例"
+        }
+        Col.HeaderText = "Percent (%)" : Col.Name = "容量" : Col.DataPropertyName = "比例" : 實際採購_dgv.Columns.Insert(5, Col)
+    End Sub
+    Private Sub Set_進度條顯示4()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "比例"
+        }
+        Col.HeaderText = "Percent (%)" : Col.Name = "容量" : Col.DataPropertyName = "比例" : 沖帳採購_dgv.Columns.Insert(5, Col)
+    End Sub
+    Private Sub 年分清單()
+        SQL_年分清單() : 年份2_cb.Items.Clear()
+        While (dr.Read()) : 年份2_cb.Items.Add(dr("日期")) : End While : conn.Close()
+    End Sub
+    Private Sub 財務報表1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        H(316) = True : 介面 = "H316" : 顯示說明(999, False)
+        分母 = 100 : 分段1 = 0.35 : 分段2 = 0.34 : 分段3 = 0.65 : 分段4 = 0.64 : 進度條後墜 = " %"
+        Panel2.SendToBack()
+    End Sub
+    Private Sub 財務報表1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        年分清單() : 年份2_cb.Text = Year(Today) : 重新讀取_bt.PerformClick()
+    End Sub
+    Private Sub 財務報表1_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
+        MyMod.清單字體大小調整()
+        實際人工_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+        虛擬人工_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+        實際採購_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+        沖帳採購_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+        實際工資_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+        沖帳工資_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+    End Sub
+    Private Sub 財務報表1_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
+        HX_PGS_ERP_SYS.WindowState = 0 : HX_PGS_ERP_SYS.MaximizeBox = True : HX_PGS_ERP_SYS.MinimizeBox = True
+        H(611) = False : MyMod.虛擬桌面開啟()
+    End Sub
+    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
+        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
+    End Sub
+    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
+        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
+    End Sub
+    Private Sub 縮放1_bt_Click(sender As Object, e As EventArgs) Handles 縮放1_bt.Click
+        Panel2.BringToFront() : Panel1.SendToBack()
+    End Sub
+    Private Sub 縮放2_bt_Click(sender As Object, e As EventArgs) Handles 縮放2_bt.Click
+        Panel2.SendToBack() : Panel1.BringToFront()
+    End Sub
+    Private Sub 彙總()
+        Chart1.ChartAreas.Clear() : Chart1.ChartAreas.Add(0) : Chart1.Series.Clear()
+        Chart1.ChartAreas(0).AxisX.Minimum = 0
+        Chart1.ChartAreas(0).AxisX.CustomLabels.Clear() ' 清除现有的自定义标签
+        For i As Integer = 0 To 12        ' 添加自定义标签
+            Dim label As New CustomLabel(i - 0.5, i + 0.5, i.ToString("D2"), 0, LabelMarkStyle.None)
+            Chart1.ChartAreas(0).AxisX.CustomLabels.Add(label)
+        Next
+        Chart1.ChartAreas(0).AxisY.LabelStyle.Font = New Font("Arial", 8) : Chart1.ChartAreas(0).AxisY.LabelStyle.Format = "#,##0" & " M"
+
+        Chart1.Series.Add("實際工資") : Chart1.Series("實際工資").ChartType = SeriesChartType.Line
+        Chart1.Series.Add("沖帳工資") : Chart1.Series("沖帳工資").ChartType = SeriesChartType.Line
+        Chart1.Series.Add("實際工資.") : Chart1.Series("實際工資.").ChartType = SeriesChartType.Column
+        Chart1.Series.Add("沖帳工資.") : Chart1.Series("沖帳工資.").ChartType = SeriesChartType.Column
+        For i As Integer = 0 To 實際工資_dgv.Rows.Count - 1
+            Chart1.Series("實際工資.").Points.AddXY(實際工資_dgv.Rows(i).Cells("月").Value.ToString, CLng(實際工資_dgv.Rows(i).Cells("總金額").Value.ToString) / 1000000)
+            Chart1.Series("沖帳工資.").Points.AddXY(沖帳工資_dgv.Rows(i).Cells("月").Value.ToString, CLng(沖帳工資_dgv.Rows(i).Cells("總金額").Value.ToString) / 1000000)
+            Chart1.Series("實際工資").Points.AddXY(實際工資_dgv.Rows(i).Cells("月").Value.ToString, CLng(實際工資_dgv.Rows(i).Cells("總金額").Value.ToString) / 1000000)
+            Chart1.Series("沖帳工資").Points.AddXY(沖帳工資_dgv.Rows(i).Cells("月").Value.ToString, CLng(沖帳工資_dgv.Rows(i).Cells("總金額").Value.ToString) / 1000000)
+        Next
+
+        Chart2.ChartAreas.Clear() : Chart2.ChartAreas.Add(0) : Chart2.Series.Clear()
+        Chart2.ChartAreas(0).AxisX.Minimum = 0
+        Chart2.ChartAreas(0).AxisX.CustomLabels.Clear() ' 清除现有的自定义标签
+        For i As Integer = 0 To 12        ' 添加自定义标签
+            Dim label As New CustomLabel(i - 0.5, i + 0.5, i.ToString("D2"), 0, LabelMarkStyle.None)
+            Chart2.ChartAreas(0).AxisX.CustomLabels.Add(label)
+        Next
+        Chart2.ChartAreas(0).AxisY.LabelStyle.Font = New Font("Arial", 8) : Chart2.ChartAreas(0).AxisY.LabelStyle.Format = "#,##0" & " M"
+
+        Chart2.Series.Add("實際採購") : Chart2.Series("實際採購").ChartType = SeriesChartType.Line
+        Chart2.Series.Add("沖帳採購") : Chart2.Series("沖帳採購").ChartType = SeriesChartType.Line
+        Chart2.Series.Add("實際採購.") : Chart2.Series("實際採購.").ChartType = SeriesChartType.Column
+        Chart2.Series.Add("沖帳採購.") : Chart2.Series("沖帳採購.").ChartType = SeriesChartType.Column
+        For i As Integer = 0 To 實際採購_dgv.Rows.Count - 1
+            Chart2.Series("實際採購.").Points.AddXY(實際採購_dgv.Rows(i).Cells("月").Value.ToString, CLng(實際採購_dgv.Rows(i).Cells("總金額").Value.ToString) / 1000000)
+            Chart2.Series("沖帳採購.").Points.AddXY(沖帳採購_dgv.Rows(i).Cells("月").Value.ToString, CLng(沖帳採購_dgv.Rows(i).Cells("總金額").Value.ToString) / 1000000)
+            Chart2.Series("實際採購").Points.AddXY(實際採購_dgv.Rows(i).Cells("月").Value.ToString, CLng(實際採購_dgv.Rows(i).Cells("總金額").Value.ToString) / 1000000)
+            Chart2.Series("沖帳採購").Points.AddXY(沖帳採購_dgv.Rows(i).Cells("月").Value.ToString, CLng(沖帳採購_dgv.Rows(i).Cells("總金額").Value.ToString) / 1000000)
+        Next
+    End Sub
+    Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
+        PA25 = 年份2_cb.Text : Set_實際人工() : Set_虛擬人工() : Set_計算()
+    End Sub
+    Private Sub 年份2_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年份2_cb.SelectedIndexChanged
+        CB選擇清單(年份2_cb, 年份2_cb.Text) : 重新讀取_bt.PerformClick()
+    End Sub
+End Class

Calculator-SYS/06、財務系統管理/財務報表2.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Calculator-SYS/06、財務系統管理/財務報表2.vb

@@ -0,0 +1,777 @@
+Imports System.Windows.Forms.DataVisualization.Charting
+Public Class 財務報表2
+    Dim 已付款 As Boolean
+    Dim 新項次, 合約號, 物料規格, 新流水1 As String
+    Dim NUM1, II As Integer
+    Dim 對話框(1) As String
+    Private Function IsVerticalScrollBarVisible(dgv As DataGridView) As Boolean
+        Return dgv.FirstDisplayedScrollingRowIndex > 0 OrElse dgv.DisplayedRowCount(False) < dgv.Rows.Count
+    End Function
+    Private Sub 語言轉換讀取()
+        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
+        表頭(11) = 系統語言字典("H206-112-" & 語言) : 表頭(12) = 系統語言字典("H206-106-" & 語言) : 表頭(15) = 系統語言字典("H206-114-" & 語言)
+        表頭(134) = 系統語言字典("H206-104-" & 語言) : 表頭(13) = 系統語言字典("H206-108-" & 語言) : 表頭(14) = 系統語言字典("H206-109-" & 語言)
+        表頭(16) = 系統語言字典("H206-110-" & 語言) : 表頭(26) = 系統語言字典("H206-111-" & 語言) : 表頭(27) = 系統語言字典("H206-105-" & 語言)
+        表頭(19) = 系統語言字典("H206-103-" & 語言) : 表頭(10) = 系統語言字典("H213-101-" & 語言) : 表頭(17) = 系統語言字典("H299-109-" & 語言)
+        表頭(18) = 系統語言字典("H206-107-" & 語言) : 表頭(20) = 系統語言字典("H311-100-" & 語言) : 表頭(21) = 系統語言字典("H311-101-" & 語言)
+        表頭(22) = 系統語言字典("H311-102-" & 語言) : 表頭(23) = 系統語言字典("H204-116-" & 語言) : 表頭(24) = 系統語言字典("H201-124-" & 語言)
+        表頭(25) = 系統語言字典("H311-103-" & 語言) : 表頭(28) = 系統語言字典("H311-104-" & 語言) : Label16.Text = 系統語言字典("H311-107-" & 語言)
+        表頭(29) = 系統語言字典("H311-105-" & 語言) : 對話框(0) = 系統語言字典("H312-100-" & 語言) : 對話框(1) = 系統語言字典("H312-101-" & 語言)
+        表頭(30) = 系統語言字典("H204-120-" & 語言) : 表頭(31) = 系統語言字典("H312-102-" & 語言) : 表頭(32) = 系統語言字典("H312-103-" & 語言)
+        表頭(33) = 系統語言字典("H312-104-" & 語言) : 表頭(34) = 系統語言字典("H312-105-" & 語言) : 表頭(35) = 系統語言字典("H312-106-" & 語言)
+        表頭(36) = 系統語言字典("H311-106-" & 語言)
+    End Sub
+    Private Sub Set_清單1()
+        Dim ds1, ds2, ds3, ds4 As New DataSet
+        清單_dgv.DataSource = Nothing : ds1.Clear() : 清單1_dgv.DataSource = Nothing : ds2.Clear()
+        彙總1_dgv.DataSource = Nothing : ds3.Clear() : 合計1_dgv.DataSource = Nothing : ds4.Clear()
+
+        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        清單_dgv.ColumnHeadersHeight = 50 : 清單_dgv.AllowUserToAddRows = False : 清單_dgv.RowTemplate.Height = 25
+        清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        清單1_dgv.ColumnHeadersHeight = 50 : 清單1_dgv.AllowUserToAddRows = False : 清單1_dgv.RowTemplate.Height = 25
+        彙總1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        彙總1_dgv.ColumnHeadersHeight = 50 : 彙總1_dgv.AllowUserToAddRows = False : 彙總1_dgv.RowTemplate.Height = 25
+        合計1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        合計1_dgv.ColumnHeadersHeight = 50 : 合計1_dgv.AllowUserToAddRows = False : 合計1_dgv.RowTemplate.Height = 25
+        合計1_dgv.ScrollBars = ScrollBars.None : 合計1_dgv.ColumnHeadersVisible = False
+
+        SQL2 = "(採購單控制表.已出納 IS NULL OR 採購單控制表.已出納 = 0)"
+        SQL_採購未付款清單1() : da.Fill(ds1) : 清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        SQL2 = "(採購單控制表.已出納 = 1)"
+        SQL_採購未付款清單1() : da.Fill(ds2) : 清單1_dgv.DataSource = ds2.Tables(0) : conn.Close()
+        SQL_採購付款彙總1() : da.Fill(ds3) : 彙總1_dgv.DataSource = ds3.Tables(0) : conn.Close()
+        SQL_採購付款彙總0() : da.Fill(ds4) : 合計1_dgv.DataSource = ds4.Tables(0) : conn.Close()
+
+        清單_dgv.Columns(0).FillWeight = 150 : 清單_dgv.Columns(1).FillWeight = 200 : 清單_dgv.Columns(2).FillWeight = 50 : 清單_dgv.Columns(3).FillWeight = 50
+        清單_dgv.Columns(4).FillWeight = 130 : 清單_dgv.Columns(表頭(28)).FillWeight = 50
+        清單1_dgv.Columns(0).FillWeight = 150 : 清單1_dgv.Columns(1).FillWeight = 200 : 清單1_dgv.Columns(2).FillWeight = 50 : 清單1_dgv.Columns(3).FillWeight = 50
+        清單1_dgv.Columns(4).FillWeight = 130 : 清單1_dgv.Columns(表頭(28)).FillWeight = 50
+        彙總1_dgv.Columns("比例1").Visible = False
+        彙總1_dgv.Columns(1).DefaultCellStyle.Format = "#,##0"
+        彙總1_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總1_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        合計1_dgv.Columns("比例1").Visible = False
+        合計1_dgv.Columns(1).DefaultCellStyle.Format = "#,##0"
+        合計1_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        合計1_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        Dim indexArray() As Integer = {2, 3, 5, 6, 7}
+        For Each index As Integer In indexArray
+            清單_dgv.Columns(index).DefaultCellStyle.Format = "#,##0"
+            清單_dgv.Columns(index).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            清單_dgv.Columns(index).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+            清單1_dgv.Columns(index).DefaultCellStyle.Format = "#,##0"
+            清單1_dgv.Columns(index).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            清單1_dgv.Columns(index).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        Next
+        Dim 總和 As Long
+        For i As Integer = 0 To 清單_dgv.Rows.Count - 1
+            If Strings.Left(清單_dgv.Rows(i).Cells("合約號").Value.ToString, 1) = "H" Or Strings.Left(清單_dgv.Rows(i).Cells("合約號").Value.ToString, 1) = "P" Then : Else
+                清單_dgv.Rows(i).Cells("合約號").Value = ""
+            End If
+            清單_dgv.Rows(i).Cells(表頭(21)).Value = 清單_dgv.Rows(i).Cells(表頭(20)).Value / 100 * 清單_dgv.Rows(i).Cells("DISC").Value
+            清單_dgv.Rows(i).Cells(表頭(22)).Value = (清單_dgv.Rows(i).Cells(表頭(20)).Value - 清單_dgv.Rows(i).Cells(表頭(21)).Value) * 清單_dgv.Rows(i).Cells("PPN").Value / 100
+            總和 += 清單_dgv.Rows(i).Cells(表頭(20)).Value - 清單_dgv.Rows(i).Cells(表頭(21)).Value + 清單_dgv.Rows(i).Cells(表頭(22)).Value
+        Next
+        For i As Integer = 0 To 清單1_dgv.Rows.Count - 1
+            清單1_dgv.Rows(i).Cells(表頭(21)).Value = 清單1_dgv.Rows(i).Cells(表頭(20)).Value / 100 * 清單1_dgv.Rows(i).Cells("DISC").Value
+            清單1_dgv.Rows(i).Cells(表頭(22)).Value = (清單1_dgv.Rows(i).Cells(表頭(20)).Value - 清單1_dgv.Rows(i).Cells(表頭(21)).Value) * 清單_dgv.Rows(i).Cells("PPN").Value / 100
+        Next
+
+        合計1_dgv.Rows(0).Cells(0).Value = 對話框(0) : 合計1_dgv.Rows(0).Cells(表頭(29)).Value = "0" : 合計1_dgv.Rows(0).Cells("比例1").Value = "0"
+        For i As Integer = 0 To 彙總1_dgv.Rows.Count - 1 : 彙總1_dgv.Rows(i).Cells(表頭(29)).Value = "0" : 彙總1_dgv.Rows(i).Cells("比例1").Value = "0"
+            For ii As Integer = 0 To 清單_dgv.Rows.Count - 1
+                If 彙總1_dgv.Rows(i).Cells(0).Value.ToString = 清單_dgv.Rows(ii).Cells(0).Value.ToString Then
+                    彙總1_dgv.Rows(i).Cells(表頭(29)).Value += 清單_dgv.Rows(ii).Cells(表頭(20)).Value - 清單_dgv.Rows(ii).Cells(表頭(21)).Value + 清單_dgv.Rows(ii).Cells(表頭(22)).Value
+                End If
+            Next
+            彙總1_dgv.Rows(i).Cells("比例1").Value = 彙總1_dgv.Rows(i).Cells(表頭(29)).Value / 總和 * 100
+            合計1_dgv.Rows(0).Cells(表頭(29)).Value += 彙總1_dgv.Rows(i).Cells(表頭(29)).Value
+            合計1_dgv.Rows(0).Cells("比例1").Value += 彙總1_dgv.Rows(i).Cells("比例1").Value
+        Next
+        Set_進度條顯示1() : 彙總1_dgv.Columns(3).FillWeight = 60 : 彙總1_dgv.Columns(0).FillWeight = 150
+        Set_進度條顯示0() : 合計1_dgv.Columns(3).FillWeight = 60 : 合計1_dgv.Columns(0).FillWeight = 150
+        Dim mycol1 As DataGridViewImageColumn = 清單_dgv.Columns(表頭(28)) : mycol1.ImageLayout = DataGridViewImageCellLayout.Zoom
+        Dim mycol2 As DataGridViewImageColumn = 清單1_dgv.Columns(表頭(28)) : mycol2.ImageLayout = DataGridViewImageCellLayout.Zoom
+        For I As Integer = 0 To 清單_dgv.Rows.Count - 1 : 清單_dgv.Rows(I).Cells(表頭(28)).Value = My.Resources.visa_2 : Next
+        For I As Integer = 0 To 清單1_dgv.Rows.Count - 1 : 清單1_dgv.Rows(I).Cells(表頭(28)).Value = My.Resources.Close : Next
+        彙總1_dgv.Sort(彙總1_dgv.Columns(1), System.ComponentModel.ListSortDirection.Descending)
+        PA10 = "" : Set_清單2() : Set_清單3()
+        '-------------------------合計DGV變形----------------------------------------------------------------------------------------------------------------------
+        If IsVerticalScrollBarVisible(彙總1_dgv) Then : 合計1_dgv.Size = New Size(彙總1_dgv.Size.Width - 17, 合計1_dgv.Size.Height)
+        Else : 合計1_dgv.Size = New Size(彙總1_dgv.Size.Width, 合計1_dgv.Size.Height) : End If
+    End Sub
+    Private Sub Set_進度條顯示0()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "請款比例"
+        }
+        Col.HeaderText = "Percent (%)" : Col.Name = "容量" : Col.DataPropertyName = "比例1" : 合計1_dgv.Columns.Insert(3, Col)
+    End Sub
+    Private Sub Set_進度條顯示1()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "請款比例"
+        }
+        Col.HeaderText = "Percent (%)" : Col.Name = "容量" : Col.DataPropertyName = "比例1" : 彙總1_dgv.Columns.Insert(3, Col)
+    End Sub
+    Private Sub Set_清單2()
+        Dim ds1, ds2 As New DataSet : 彙總2_dgv.DataSource = Nothing : ds1.Clear() : 合計2_dgv.DataSource = Nothing : ds2.Clear()
+        彙總2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        彙總2_dgv.ColumnHeadersHeight = 50 : 彙總2_dgv.AllowUserToAddRows = False : 彙總2_dgv.RowTemplate.Height = 25
+        合計2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        合計2_dgv.ColumnHeadersHeight = 50 : 合計2_dgv.AllowUserToAddRows = False : 合計2_dgv.RowTemplate.Height = 25
+        合計2_dgv.ScrollBars = ScrollBars.None : 合計2_dgv.ColumnHeadersVisible = False
+
+        SQL_採購付款彙總2() : da.Fill(ds1) : 彙總2_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        SQL_採購付款彙總3() : da.Fill(ds2) : 合計2_dgv.DataSource = ds2.Tables(0) : conn.Close()
+
+        彙總2_dgv.Columns("比例1").Visible = False
+        彙總2_dgv.Columns(1).DefaultCellStyle.Format = "#,##0"
+        彙總2_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總2_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        合計2_dgv.Columns("比例1").Visible = False
+        合計2_dgv.Columns(1).DefaultCellStyle.Format = "#,##0"
+        合計2_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        合計2_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        Dim 總和 As Long
+        合計2_dgv.Rows(0).Cells(0).Value = 對話框(0) : 合計2_dgv.Rows(0).Cells(表頭(29)).Value = "0" : 合計2_dgv.Rows(0).Cells("比例1").Value = "0"
+        For i As Integer = 0 To 彙總2_dgv.Rows.Count - 1 : 彙總2_dgv.Rows(i).Cells(表頭(29)).Value = "0" : 彙總2_dgv.Rows(i).Cells("比例1").Value = "0"
+            For ii As Integer = 0 To 清單_dgv.Rows.Count - 1
+                If 彙總2_dgv.Rows(i).Cells(0).Value.ToString = 清單_dgv.Rows(ii).Cells(1).Value.ToString Then
+                    彙總2_dgv.Rows(i).Cells(表頭(29)).Value += 清單_dgv.Rows(ii).Cells(表頭(20)).Value - 清單_dgv.Rows(ii).Cells(表頭(21)).Value + 清單_dgv.Rows(ii).Cells(表頭(22)).Value
+                End If
+            Next
+            總和 += 彙總2_dgv.Rows(i).Cells(表頭(29)).Value
+        Next
+        For i As Integer = 0 To 彙總2_dgv.Rows.Count - 1
+            If 總和 = 0 Then : 彙總2_dgv.Rows(i).Cells("比例1").Value = "0" : Else
+                彙總2_dgv.Rows(i).Cells("比例1").Value = 彙總2_dgv.Rows(i).Cells(表頭(29)).Value / 總和 * 100
+            End If
+            合計2_dgv.Rows(0).Cells(表頭(29)).Value += 彙總2_dgv.Rows(i).Cells(表頭(29)).Value
+            合計2_dgv.Rows(0).Cells("比例1").Value += 彙總2_dgv.Rows(i).Cells("比例1").Value
+        Next
+        Set_進度條顯示2() : 彙總2_dgv.Columns(3).FillWeight = 60 : 彙總2_dgv.Columns(0).FillWeight = 180
+        Set_進度條顯示3() : 合計2_dgv.Columns(3).FillWeight = 60 : 合計2_dgv.Columns(0).FillWeight = 180
+        彙總2_dgv.Sort(彙總2_dgv.Columns(1), System.ComponentModel.ListSortDirection.Descending)
+        '-------------------------合計DGV變形----------------------------------------------------------------------------------------------------------------------
+        If IsVerticalScrollBarVisible(彙總2_dgv) Then : 合計2_dgv.Size = New Size(彙總2_dgv.Size.Width - 17, 合計2_dgv.Size.Height)
+        Else : 合計2_dgv.Size = New Size(彙總2_dgv.Size.Width, 合計2_dgv.Size.Height) : End If
+    End Sub
+    Private Sub Set_進度條顯示2()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "請款比例"
+        }
+        Col.HeaderText = "Percent (%)" : Col.Name = "容量" : Col.DataPropertyName = "比例1" : 彙總2_dgv.Columns.Insert(3, Col)
+    End Sub
+    Private Sub Set_進度條顯示3()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "請款比例"
+        }
+        Col.HeaderText = "Percent (%)" : Col.Name = "容量" : Col.DataPropertyName = "比例1" : 合計2_dgv.Columns.Insert(3, Col)
+    End Sub
+    Private Sub Set_清單3()
+        Dim ds1, ds2, ds3 As New DataSet : 彙總3_dgv.DataSource = Nothing : ds1.Clear() : 彙總4_dgv.DataSource = Nothing : ds1.Clear() : 合計3_dgv.DataSource = Nothing : ds2.Clear()
+        彙總3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        彙總3_dgv.ColumnHeadersHeight = 50 : 彙總3_dgv.AllowUserToAddRows = False : 彙總3_dgv.RowTemplate.Height = 25
+        彙總4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        彙總4_dgv.ColumnHeadersHeight = 50 : 彙總4_dgv.AllowUserToAddRows = False : 彙總4_dgv.RowTemplate.Height = 25
+        彙總4_dgv.ScrollBars = ScrollBars.None : 彙總4_dgv.ColumnHeadersVisible = False
+        合計3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        合計3_dgv.ColumnHeadersHeight = 50 : 合計3_dgv.AllowUserToAddRows = False : 合計3_dgv.RowTemplate.Height = 25
+        合計3_dgv.ScrollBars = ScrollBars.None : 合計3_dgv.ColumnHeadersVisible = False
+
+        Dim SSA(19) As String
+        Dim checkBoxes() As CheckBox = {A1, A2, A3, A4, A5, A6, A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17, A18, A19, A20}
+        For i As Integer = 0 To SSA.Length - 1
+            If checkBoxes(i).Checked Then : SSA(i) = " 約號甲方 LIKE N'" & checkBoxes(i).Text & "'" : Else : SSA(i) = "" : End If
+        Next
+        If SSA.All(Function(s) String.IsNullOrEmpty(s)) Then : SQL2 = "" : Else
+            Dim selectedSSA = SSA.Where(Function(s) Not String.IsNullOrEmpty(s)).ToArray()
+            SQL2 = "AND (" & String.Join(" OR ", selectedSSA) & ")"
+        End If
+        SQL_採購付款彙總4() : da.Fill(ds1) : 彙總3_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        SQL_採購付款彙總5() : da.Fill(ds2) : 彙總4_dgv.DataSource = ds2.Tables(0) : conn.Close()
+        SQL_採購付款彙總5() : da.Fill(ds3) : 合計3_dgv.DataSource = ds3.Tables(0) : conn.Close()
+
+        彙總3_dgv.Columns(0).FillWeight = 150 : 彙總3_dgv.Columns("比例1").Visible = False : 彙總3_dgv.Columns("比例2").Visible = False
+        彙總4_dgv.Columns(0).FillWeight = 150 : 彙總4_dgv.Columns("比例1").Visible = False : 彙總4_dgv.Columns("比例2").Visible = False
+        合計3_dgv.Columns(0).FillWeight = 150 : 合計3_dgv.Columns("比例1").Visible = False : 合計3_dgv.Columns("比例2").Visible = False
+        彙總3_dgv.Columns(1).Visible = False : 彙總3_dgv.Columns(2).Visible = False : 彙總3_dgv.Columns(3).Visible = False : 彙總3_dgv.Columns(4).Visible = False
+        彙總4_dgv.Columns(1).Visible = False : 彙總4_dgv.Columns(2).Visible = False : 彙總4_dgv.Columns(3).Visible = False : 彙總4_dgv.Columns(4).Visible = False
+        合計3_dgv.Columns(1).Visible = False : 合計3_dgv.Columns(2).Visible = False : 合計3_dgv.Columns(3).Visible = False : 合計3_dgv.Columns(4).Visible = False
+
+        Dim indexArray() As Integer = {4, 5, 6, 7, 8, 9, 10}
+
+        For Each index As Integer In indexArray
+            彙總3_dgv.Columns(index).DefaultCellStyle.Format = "#,##0" : 彙總4_dgv.Columns(index).DefaultCellStyle.Format = "#,##0" : 合計3_dgv.Columns(index).DefaultCellStyle.Format = "#,##0"
+            彙總3_dgv.Columns(index).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            彙總3_dgv.Columns(index).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+            彙總4_dgv.Columns(index).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            彙總4_dgv.Columns(index).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+            合計3_dgv.Columns(index).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            合計3_dgv.Columns(index).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        Next
+
+        彙總4_dgv.Rows(0).Cells(0).Value = 對話框(1) : 彙總4_dgv.Rows(0).Cells(4).Value = "0" : 彙總4_dgv.Rows(0).Cells(5).Value = "0" : 彙總4_dgv.Rows(0).Cells(6).Value = "0"
+        彙總4_dgv.Rows(0).Cells(7).Value = "0" : 彙總4_dgv.Rows(0).Cells(8).Value = "0" : 彙總4_dgv.Rows(0).Cells(9).Value = "0" : 彙總4_dgv.Rows(0).Cells(10).Value = "0"
+        合計3_dgv.Rows(0).Cells(0).Value = 對話框(0) : 合計3_dgv.Rows(0).Cells(4).Value = "0" : 合計3_dgv.Rows(0).Cells(5).Value = "0" : 合計3_dgv.Rows(0).Cells(6).Value = "0"
+        合計3_dgv.Rows(0).Cells(7).Value = "0" : 合計3_dgv.Rows(0).Cells(8).Value = "0" : 合計3_dgv.Rows(0).Cells(9).Value = "0" : 合計3_dgv.Rows(0).Cells(10).Value = "0"
+        For i As Integer = 0 To 彙總3_dgv.Rows.Count - 1
+            彙總3_dgv.Rows(i).Cells(6).Value = "0" : 彙總3_dgv.Rows(i).Cells(9).Value = "0" : 彙總3_dgv.Rows(i).Cells(10).Value = "0"
+            For ii As Integer = 0 To 清單_dgv.Rows.Count - 1
+                If 彙總3_dgv.Rows(i).Cells(0).Value.ToString = 清單_dgv.Rows(ii).Cells("合約號").Value.ToString Then
+                    彙總3_dgv.Rows(i).Cells(6).Value += 清單_dgv.Rows(ii).Cells(表頭(20)).Value - 清單_dgv.Rows(ii).Cells(表頭(21)).Value + 清單_dgv.Rows(ii).Cells(表頭(22)).Value
+                    彙總3_dgv.Rows(i).Cells(9).Value += 清單_dgv.Rows(ii).Cells(表頭(20)).Value - 清單_dgv.Rows(ii).Cells(表頭(21)).Value + 清單_dgv.Rows(ii).Cells(表頭(22)).Value
+                End If
+            Next
+        Next
+        If SSA.All(Function(s) String.IsNullOrEmpty(s)) Then
+            For ii As Integer = 0 To 清單_dgv.Rows.Count - 1
+                If 清單_dgv.Rows(ii).Cells("合約號").Value.ToString = "" Then
+                    彙總4_dgv.Rows(0).Cells(5).Value += 清單_dgv.Rows(ii).Cells(表頭(20)).Value - 清單_dgv.Rows(ii).Cells(表頭(21)).Value + 清單_dgv.Rows(ii).Cells(表頭(22)).Value
+                    彙總4_dgv.Rows(0).Cells(6).Value += 清單_dgv.Rows(ii).Cells(表頭(20)).Value - 清單_dgv.Rows(ii).Cells(表頭(21)).Value + 清單_dgv.Rows(ii).Cells(表頭(22)).Value
+                    彙總4_dgv.Rows(0).Cells(9).Value += 清單_dgv.Rows(ii).Cells(表頭(20)).Value - 清單_dgv.Rows(ii).Cells(表頭(21)).Value + 清單_dgv.Rows(ii).Cells(表頭(22)).Value
+                End If
+            Next
+        Else : End If
+        For i As Integer = 0 To 彙總3_dgv.Rows.Count - 1
+            For ii As Integer = 0 To 清單1_dgv.Rows.Count - 1
+                If 彙總3_dgv.Rows(i).Cells(0).Value.ToString = 清單1_dgv.Rows(ii).Cells("合約號").Value.ToString Then
+                    彙總3_dgv.Rows(i).Cells(6).Value += 清單1_dgv.Rows(ii).Cells(表頭(20)).Value - 清單1_dgv.Rows(ii).Cells(表頭(21)).Value + 清單1_dgv.Rows(ii).Cells(表頭(22)).Value
+                    彙總3_dgv.Rows(i).Cells(10).Value += 清單1_dgv.Rows(ii).Cells(表頭(20)).Value - 清單1_dgv.Rows(ii).Cells(表頭(21)).Value + 清單1_dgv.Rows(ii).Cells(表頭(22)).Value
+                End If
+            Next
+        Next
+        If SSA.All(Function(s) String.IsNullOrEmpty(s)) Then
+            For ii As Integer = 0 To 清單1_dgv.Rows.Count - 1
+                If 清單1_dgv.Rows(ii).Cells("合約號").Value.ToString = "" Then
+                    彙總4_dgv.Rows(0).Cells(5).Value += 清單1_dgv.Rows(ii).Cells(表頭(20)).Value - 清單1_dgv.Rows(ii).Cells(表頭(21)).Value + 清單1_dgv.Rows(ii).Cells(表頭(22)).Value
+                    彙總4_dgv.Rows(0).Cells(6).Value += 清單1_dgv.Rows(ii).Cells(表頭(20)).Value - 清單1_dgv.Rows(ii).Cells(表頭(21)).Value + 清單1_dgv.Rows(ii).Cells(表頭(22)).Value
+                    彙總4_dgv.Rows(0).Cells(10).Value += 清單1_dgv.Rows(ii).Cells(表頭(20)).Value - 清單1_dgv.Rows(ii).Cells(表頭(21)).Value + 清單1_dgv.Rows(ii).Cells(表頭(22)).Value
+                End If
+            Next
+        Else : End If
+        For i As Integer = 0 To 彙總3_dgv.Rows.Count - 1
+            彙總3_dgv.Rows(i).Cells(7).Value = 彙總3_dgv.Rows(i).Cells(5).Value - 彙總3_dgv.Rows(i).Cells(6).Value
+            If 彙總3_dgv.Rows(i).Cells(7).Value < 0 Then : 彙總3_dgv.Rows(i).Cells(7).Value = 彙總3_dgv.Rows(i).Cells(7).Value * -1
+            Else : 彙總3_dgv.Rows(i).Cells(7).Value = 0 : End If
+            If 彙總3_dgv.Rows(i).Cells(5).Value = 0 Then : 彙總3_dgv.Rows(i).Cells("比例1").Value = "0" : Else
+                彙總3_dgv.Rows(i).Cells("比例1").Value = 彙總3_dgv.Rows(i).Cells(6).Value / 彙總3_dgv.Rows(i).Cells(5).Value * 100
+            End If
+            If 彙總3_dgv.Rows(i).Cells(9).Value = 0 And 彙總3_dgv.Rows(i).Cells(10).Value > 0 Then : 彙總3_dgv.Rows(i).Cells("比例2").Value = 100
+            ElseIf 彙總3_dgv.Rows(i).Cells(9).Value = 0 And 彙總3_dgv.Rows(i).Cells(10).Value = 0 Then : 彙總3_dgv.Rows(i).Cells("比例2").Value = 0
+            Else : 彙總3_dgv.Rows(i).Cells("比例2").Value = 彙總3_dgv.Rows(i).Cells(10).Value / 彙總3_dgv.Rows(i).Cells(9).Value * 100 : End If
+            合計3_dgv.Rows(0).Cells(4).Value = 合計3_dgv.Rows(0).Cells(4).Value + 彙總3_dgv.Rows(i).Cells(4).Value
+            合計3_dgv.Rows(0).Cells(5).Value = 合計3_dgv.Rows(0).Cells(5).Value + 彙總3_dgv.Rows(i).Cells(5).Value
+            合計3_dgv.Rows(0).Cells(6).Value = 合計3_dgv.Rows(0).Cells(6).Value + 彙總3_dgv.Rows(i).Cells(6).Value
+            合計3_dgv.Rows(0).Cells(7).Value = 合計3_dgv.Rows(0).Cells(7).Value + 彙總3_dgv.Rows(i).Cells(7).Value
+            合計3_dgv.Rows(0).Cells(9).Value = 合計3_dgv.Rows(0).Cells(9).Value + 彙總3_dgv.Rows(i).Cells(9).Value
+            合計3_dgv.Rows(0).Cells(10).Value = 合計3_dgv.Rows(0).Cells(10).Value + 彙總3_dgv.Rows(i).Cells(10).Value
+        Next
+        合計3_dgv.Rows(0).Cells(4).Value = 合計3_dgv.Rows(0).Cells(4).Value + 彙總4_dgv.Rows(0).Cells(4).Value
+        合計3_dgv.Rows(0).Cells(5).Value = 合計3_dgv.Rows(0).Cells(5).Value + 彙總4_dgv.Rows(0).Cells(5).Value
+        合計3_dgv.Rows(0).Cells(6).Value = 合計3_dgv.Rows(0).Cells(6).Value + 彙總4_dgv.Rows(0).Cells(6).Value
+        合計3_dgv.Rows(0).Cells(7).Value = 合計3_dgv.Rows(0).Cells(7).Value + 彙總4_dgv.Rows(0).Cells(7).Value
+        合計3_dgv.Rows(0).Cells(9).Value = 合計3_dgv.Rows(0).Cells(9).Value + 彙總4_dgv.Rows(0).Cells(9).Value
+        合計3_dgv.Rows(0).Cells(10).Value = 合計3_dgv.Rows(0).Cells(10).Value + 彙總4_dgv.Rows(0).Cells(10).Value
+        If 彙總4_dgv.Rows(0).Cells(5).Value = 0 Then : 彙總4_dgv.Rows(0).Cells("比例1").Value = "0" : Else
+            彙總4_dgv.Rows(0).Cells("比例1").Value = 彙總4_dgv.Rows(0).Cells(6).Value / 彙總4_dgv.Rows(0).Cells(5).Value * 100
+        End If
+        合計3_dgv.Rows(0).Cells("比例1").Value = 合計3_dgv.Rows(0).Cells(6).Value / 合計3_dgv.Rows(0).Cells(5).Value * 100
+        If 彙總4_dgv.Rows(0).Cells(9).Value = 0 And 彙總4_dgv.Rows(0).Cells(10).Value = 0 Then : 彙總4_dgv.Rows(0).Cells("比例2").Value = 0
+        ElseIf 彙總4_dgv.Rows(0).Cells(9).Value = 0 And 彙總4_dgv.Rows(0).Cells(10).Value > 0 Then : 彙總4_dgv.Rows(0).Cells("比例2").Value = 100
+        Else : 彙總4_dgv.Rows(0).Cells("比例2").Value = 彙總4_dgv.Rows(0).Cells(10).Value / 彙總4_dgv.Rows(0).Cells(9).Value * 100
+        End If
+        If 合計3_dgv.Rows(0).Cells(9).Value = 0 And 合計3_dgv.Rows(0).Cells(10).Value = 0 Then : 合計3_dgv.Rows(0).Cells("比例2").Value = 0
+        ElseIf 合計3_dgv.Rows(0).Cells(9).Value = 0 And 合計3_dgv.Rows(0).Cells(10).Value > 0 Then : 合計3_dgv.Rows(0).Cells("比例2").Value = 100
+        Else : 合計3_dgv.Rows(0).Cells("比例2").Value = 合計3_dgv.Rows(0).Cells(10).Value / 合計3_dgv.Rows(0).Cells(9).Value * 100
+        End If : RadTrackBar1.Maximum = 彙總3_dgv.Rows.Count : RadTrackBar1.Value = 1
+        If 彙總3_dgv.Rows.Count > 10 Then : RadTrackBar1.Visible = True : Else : RadTrackBar1.Visible = False : End If
+        Set_進度條顯示4() : Set_進度條顯示5() : Set_進度條顯示6() : Set_進度條顯示7() : Set_進度條顯示8() : Set_進度條顯示9() : 彙總()
+        '-------------------------合計DGV變形----------------------------------------------------------------------------------------------------------------------
+        If IsVerticalScrollBarVisible(彙總3_dgv) Then
+            合計3_dgv.Size = New Size(彙總3_dgv.Size.Width - 17, 合計3_dgv.Size.Height) : 彙總4_dgv.Size = New Size(彙總3_dgv.Size.Width - 17, 彙總4_dgv.Size.Height)
+        Else : 合計3_dgv.Size = New Size(彙總3_dgv.Size.Width, 合計3_dgv.Size.Height) : 彙總4_dgv.Size = New Size(彙總3_dgv.Size.Width, 彙總4_dgv.Size.Height) : End If
+    End Sub
+    Private Sub Set_進度條顯示4()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "請款比例"
+        }
+        Col.HeaderText = 表頭(32) : Col.Name = "容量" : Col.DataPropertyName = "比例1" : 彙總3_dgv.Columns.Insert(7, Col)
+    End Sub
+    Private Sub Set_進度條顯示5()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "請款比例"
+        }
+        Col.HeaderText = 表頭(32) : Col.Name = "容量" : Col.DataPropertyName = "比例1" : 合計3_dgv.Columns.Insert(7, Col)
+    End Sub
+    Private Sub Set_進度條顯示6()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "請款比例"
+        }
+        Col.HeaderText = 表頭(33) : Col.Name = "容量" : Col.DataPropertyName = "比例2" : 彙總3_dgv.Columns.Insert(12, Col)
+    End Sub
+    Private Sub Set_進度條顯示7()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "請款比例"
+        }
+        Col.HeaderText = 表頭(33) : Col.Name = "容量" : Col.DataPropertyName = "比例2" : 合計3_dgv.Columns.Insert(12, Col)
+    End Sub
+    Private Sub Set_進度條顯示8()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "請款比例"
+        }
+        Col.HeaderText = 表頭(32) : Col.Name = "容量" : Col.DataPropertyName = "比例1" : 彙總4_dgv.Columns.Insert(7, Col)
+    End Sub
+    Private Sub Set_進度條顯示9()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "請款比例"
+        }
+        Col.HeaderText = 表頭(33) : Col.Name = "容量" : Col.DataPropertyName = "比例2" : 彙總4_dgv.Columns.Insert(12, Col)
+    End Sub
+    Private Sub RadTrackBar1_ValueChanged(sender As Object, e As EventArgs) Handles RadTrackBar1.RangeValueChanged
+        If 首次開啟 = True Then : Else
+            If RadTrackBar1.Maximum >= 10 Then : If RadTrackBar1.Value > RadTrackBar1.Maximum - 9 Then : RadTrackBar1.Value = RadTrackBar1.Maximum - 9 : End If : 彙總() : Else : 彙總() : End If
+        End If
+    End Sub
+    Private Sub 彙總()
+        Chart1.Series.Clear() : Chart1.ChartAreas.Clear() : Chart1.ChartAreas.Add(0)
+        Chart1.ChartAreas(0).AxisX.Minimum = 0 ' 设置X轴的最小值
+        Chart1.ChartAreas(0).AxisX.Maximum = 10 ' 设置X轴的最大值
+        Chart1.Series.Add(表頭(31)) : Chart1.Series(表頭(31)).ChartType = SeriesChartType.FastLine
+        Chart1.Series.Add(表頭(34)) : Chart1.Series(表頭(34)).ChartType = SeriesChartType.Column
+        Chart1.Series.Add(表頭(29)) : Chart1.Series(表頭(29)).ChartType = SeriesChartType.Column
+        Chart1.Series.Add(表頭(36)) : Chart1.Series(表頭(36)).ChartType = SeriesChartType.Column
+        Chart1.ChartAreas(0).BackColor = Color.Transparent : Chart1.Legends(0).BackColor = Color.Transparent
+        Chart1.ChartAreas(0).AxisY.LabelStyle.Font = New Font("Arial", 8) : Chart1.ChartAreas(0).AxisY.LabelStyle.Format = "#,##0" & " M"
+        Dim 位置1, 位置2 As Integer
+        If RadTrackBar1.Maximum <= 10 Then : 位置1 = 1 : 位置2 = RadTrackBar1.Maximum
+        Else : 位置1 = RadTrackBar1.Value : 位置2 = RadTrackBar1.Value + 9 : End If
+        For i As Integer = 位置1 - 1 To 位置2 - 1
+            Chart1.Series(表頭(31)).Points.AddXY(彙總3_dgv.Rows(i).Cells(0).Value.ToString, CLng(彙總3_dgv.Rows(i).Cells(表頭(31)).Value.ToString) / 1000000)
+            Chart1.Series(表頭(34)).Points.AddXY(彙總3_dgv.Rows(i).Cells(0).Value.ToString, CLng(彙總3_dgv.Rows(i).Cells(表頭(34)).Value.ToString) / 1000000)
+            Chart1.Series(表頭(29)).Points.AddXY(彙總3_dgv.Rows(i).Cells(0).Value.ToString, CLng(彙總3_dgv.Rows(i).Cells(表頭(29)).Value.ToString) / 1000000)
+            Chart1.Series(表頭(36)).Points.AddXY(彙總3_dgv.Rows(i).Cells(0).Value.ToString, CLng(彙總3_dgv.Rows(i).Cells(表頭(36)).Value.ToString) / 1000000)
+        Next
+        If 深色風格 = False Then
+            Chart1.Series(表頭(31)).LabelForeColor = Color.Blue : Chart1.Series(表頭(34)).LabelForeColor = Color.Blue
+            Chart1.Series(表頭(29)).LabelForeColor = Color.Blue : Chart1.Series(表頭(36)).LabelForeColor = Color.Blue
+            Chart1.Legends(0).ForeColor = Color.Black
+            Chart1.ChartAreas(0).AxisX.MajorGrid.LineColor = Color.Black : Chart1.ChartAreas(0).AxisY.MajorGrid.LineColor = Color.Black
+            Chart1.ChartAreas(0).AxisX.LineColor = Color.Black : Chart1.ChartAreas(0).AxisY.LineColor = Color.Black
+            Chart1.ChartAreas(0).AxisX.LabelStyle.ForeColor = Color.Black : Chart1.ChartAreas(0).AxisY.LabelStyle.ForeColor = Color.Black
+        Else
+            Chart1.Series(表頭(31)).LabelForeColor = Color.White : Chart1.Series(表頭(34)).LabelForeColor = Color.White
+            Chart1.Series(表頭(29)).LabelForeColor = Color.White : Chart1.Series(表頭(36)).LabelForeColor = Color.White
+            Chart1.Legends(0).ForeColor = Color.White
+            Chart1.ChartAreas(0).AxisX.MajorGrid.LineColor = Color.White : Chart1.ChartAreas(0).AxisY.MajorGrid.LineColor = Color.White
+            Chart1.ChartAreas(0).AxisX.LineColor = Color.White : Chart1.ChartAreas(0).AxisY.LineColor = Color.White
+            Chart1.ChartAreas(0).AxisX.LabelStyle.ForeColor = Color.White : Chart1.ChartAreas(0).AxisY.LabelStyle.ForeColor = Color.White
+        End If
+    End Sub
+    Private Sub Set_採購單清單()
+        Dim ds As New DataSet : 明細_dgv.DataSource = Nothing : ds.Clear()
+        明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        明細_dgv.ColumnHeadersHeight = 40
+        明細_dgv.AllowUserToAddRows = False
+        If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then : 明細_dgv.RowTemplate.Height = 65
+        ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then : 明細_dgv.RowTemplate.Height = 45
+        ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then : 明細_dgv.RowTemplate.Height = 25 : End If
+
+        SQL_採購單明細表1()
+        da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 50 : 明細_dgv.Columns(3).FillWeight = 250 : 明細_dgv.Columns(4).FillWeight = 250
+        明細_dgv.Columns(5).FillWeight = 150 : 明細_dgv.Columns(6).FillWeight = 80 : 明細_dgv.Columns(7).FillWeight = 80 : 明細_dgv.Columns(8).FillWeight = 80
+        明細_dgv.Columns(9).FillWeight = 80 : 明細_dgv.Columns(10).Visible = False : 明細_dgv.Columns(11).Visible = False : 明細_dgv.Columns(12).Visible = False
+        明細_dgv.Columns(13).Visible = False : 明細_dgv.Columns(14).Visible = False : 明細_dgv.Columns(15).Visible = False : 明細_dgv.Columns(16).Visible = False
+        明細_dgv.Columns(17).Visible = False : 明細_dgv.Columns(18).Visible = False : 明細_dgv.Columns(19).Visible = False : 明細_dgv.Columns(20).Visible = False
+        明細_dgv.Columns(21).Visible = False : 明細_dgv.Columns(22).Visible = False : 明細_dgv.Columns(23).Visible = False : 明細_dgv.Columns(24).FillWeight = 90
+        明細_dgv.Columns(25).FillWeight = 80 : 明細_dgv.Columns("KEY").Visible = False : 明細_dgv.Columns("OUP").FillWeight = 80 : 明細_dgv.Columns(2).FillWeight = 80
+        明細_dgv.Columns(26).FillWeight = 80 : 明細_dgv.Columns("SP%").FillWeight = 80
+        明細_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 明細_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 明細_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
+        明細_dgv.Columns("OUP").DefaultCellStyle.Format = "#,##0" : 明細_dgv.Columns(15).DefaultCellStyle.Format = "#,##0"
+        明細_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.Columns("OUP").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns("OUP").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(2).ReadOnly = True : 明細_dgv.Columns(3).ReadOnly = True : 明細_dgv.Columns(4).ReadOnly = True
+        明細_dgv.Columns(表頭(16)).ReadOnly = True : 明細_dgv.Columns(表頭(27)).ReadOnly = True : 明細_dgv.Columns("OUP").ReadOnly = True : 明細_dgv.Columns("SP%").ReadOnly = True
+
+        If 低網速模式 = False Then
+            明細_dgv.Columns(28).FillWeight = 80 : 明細_dgv.Columns("Image").Visible = True
+            Dim mycol As DataGridViewImageColumn = 明細_dgv.Columns("Image")
+            mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
+        Else
+            If 明細_dgv.Columns.Count = 29 Then
+                明細_dgv.Columns("Image").Visible = False
+            End If
+        End If
+        新項次 = "00"
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+            明細_dgv.Columns("OUP").DefaultCellStyle.Format = "#,0"
+            NUM1 = Double.Parse(新項次) + 1
+            If NUM1 < 10 Then : 新項次 = "0" & NUM1
+            ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1
+            End If
+            明細_dgv.Rows(i).Cells(表頭(11)).Value = 新項次
+
+            '-------------------------規格合併呈現----------------------------------------------------------------------------------------------------------------------------------------
+            If i = 0 Then
+                AAA1 = "" : AAA2 = "" : AAA3 = "" : AAA4 = "" : AAA5 = "" : AAA6 = "" : AAA7 = "" : AAA8 = ""
+                PA3 = 明細_dgv.Rows(i).Cells("規格庫抬頭指定").Value
+                SQL_規格庫抬頭讀取()
+                If dr.Read() Then
+                    AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
+                End If
+                conn.Close()
+            Else
+                If 明細_dgv.Rows(i).Cells("規格庫抬頭指定").Value.ToString <> 明細_dgv.Rows(i - 1).Cells("規格庫抬頭指定").Value.ToString Then
+                    AAA1 = "" : AAA2 = "" : AAA3 = "" : AAA4 = "" : AAA5 = "" : AAA6 = "" : AAA7 = "" : AAA8 = ""
+                    PA3 = 明細_dgv.Rows(i).Cells("規格庫抬頭指定").Value
+                    SQL_規格庫抬頭讀取()
+                    If dr.Read() Then
+                        AAA1 = dr("A1") : AAA2 = dr("A2") : AAA3 = dr("A3") : AAA4 = dr("A4") : AAA5 = dr("A5") : AAA6 = dr("A6") : AAA7 = dr("A7") : AAA8 = dr("A8")
+                    End If
+                    conn.Close()
+                End If
+            End If
+            Dim ZA1, ZA2, ZA3, ZA4, ZA5, ZA6, ZA7, ZA8 As String : 物料規格 = ""
+            If 詳細資料2_ch.Checked = True Then
+                If 明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" Then
+                    ZA1 = AAA1 & "=" & 明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 物料規格 = ZA1 : End If
+                If 明細_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then : ZA2 = AAA2 & "=" & 明細_dgv.Rows(i).Cells("A2").Value
+                    If 物料規格 = "" Then : 物料規格 = ZA2 : Else : 物料規格 = 物料規格 + "、" + ZA2 : End If : End If
+                If 明細_dgv.Rows(i).Cells("A3").Value.ToString <> "" Then : ZA3 = AAA3 & "=" & 明細_dgv.Rows(i).Cells("A3").Value
+                    If 物料規格 = "" Then : 物料規格 = ZA3 : Else : 物料規格 = 物料規格 + "、" + ZA3 : End If : End If
+                If 明細_dgv.Rows(i).Cells("A4").Value.ToString <> "" Then : ZA4 = AAA4 & "=" & 明細_dgv.Rows(i).Cells("A4").Value
+                    If 物料規格 = "" Then : 物料規格 = ZA4 : Else : 物料規格 = 物料規格 + "、" + ZA4 : End If : End If
+                If 明細_dgv.Rows(i).Cells("A5").Value.ToString <> "" Then : ZA5 = AAA5 & "=" & 明細_dgv.Rows(i).Cells("A5").Value
+                    If 物料規格 = "" Then : 物料規格 = ZA5 : Else : 物料規格 = 物料規格 + "、" + ZA5 : End If : End If
+                If 明細_dgv.Rows(i).Cells("A6").Value.ToString <> "" Then : ZA6 = AAA6 & "=" & 明細_dgv.Rows(i).Cells("A6").Value
+                    If 物料規格 = "" Then : 物料規格 = ZA6 : Else : 物料規格 = 物料規格 + "、" + ZA6 : End If : End If
+                If 明細_dgv.Rows(i).Cells("A7").Value.ToString <> "" Then : ZA7 = AAA7 & "=" & 明細_dgv.Rows(i).Cells("A7").Value
+                    If 物料規格 = "" Then : 物料規格 = ZA7 : Else : 物料規格 = 物料規格 + "、" + ZA7 : End If : End If
+                If 明細_dgv.Rows(i).Cells("A8").Value.ToString <> "" Then : ZA8 = AAA8 & "=" & 明細_dgv.Rows(i).Cells("A8").Value
+                    If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If
+            Else
+                If 明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString <> "" Then : ZA1 = 明細_dgv.Rows(i).Cells(表頭(13)).Value.ToString : 物料規格 = ZA1 : End If
+                If 明細_dgv.Rows(i).Cells("A2").Value.ToString <> "" Then
+                    ZA2 = 明細_dgv.Rows(i).Cells("A2").Value : 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 : 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 : 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 : 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 : 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 : 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 : If 物料規格 = "" Then : 物料規格 = ZA8 : Else : 物料規格 = 物料規格 + "、" + ZA8 : End If : End If
+            End If
+            明細_dgv.Rows(i).Cells(表頭(13)).Value = 物料規格
+            '--------------取得歷史單價------------------------------------------------------------------------------------------
+            PA = 明細_dgv.Rows(i).Cells("料號").Value
+            Set_單價()
+            If 價錢_dgv.Rows.Count = 0 Then
+                明細_dgv.Rows(i).Cells("OUP").Value = 0
+            Else
+                明細_dgv.Rows(i).Cells("OUP").Value = 價錢_dgv.Rows(0).Cells("單價").Value
+            End If
+        Next i
+        價格() ': 總金額計算()
+    End Sub
+    Private Sub Set_單價()
+        Dim ds6 As New DataSet : 價錢_dgv.DataSource = Nothing : ds6.Clear()
+        價錢_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        價錢_dgv.ColumnHeadersHeight = 25
+        價錢_dgv.AllowUserToAddRows = False
+
+        If 日期_rb.Checked = False And 單價_rb.Checked = True Then : SQL_加權平均()
+        ElseIf 日期_rb.Checked = True And 單價_rb.Checked = False Then : SQL_最近日期() : End If
+        da.Fill(ds6) : 價錢_dgv.DataSource = ds6.Tables(0) : conn.Close()
+    End Sub
+    Private Sub 價格()
+        Dim 差異, 比對 As Double
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+            If 明細_dgv.Rows(i).Cells("OUP").Value = 0 And 明細_dgv.Rows(i).Cells(表頭(26)).Value = 0 Then
+                If 深色風格 = False Then
+                    明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Lavender
+                Else
+                    明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Navy
+                End If
+                明細_dgv.Rows(i).Cells("SP%").Value = "0 % →"
+            ElseIf 明細_dgv.Rows(i).Cells(表頭(26)).Value = 0 And 明細_dgv.Rows(i).Cells("OUP").Value <> 0 Then
+                If 深色風格 = False Then
+                    明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Lavender
+                Else
+                    明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Navy
+                End If
+                明細_dgv.Rows(i).Cells("SP%").Value = "0 % →"
+            ElseIf 明細_dgv.Rows(i).Cells("OUP").Value <> 0 And 明細_dgv.Rows(i).Cells(表頭(26)).Value <> 0 Then
+                差異 = 明細_dgv.Rows(i).Cells(表頭(26)).Value - 明細_dgv.Rows(i).Cells("OUP").Value : 比對 = 差異 / 明細_dgv.Rows(i).Cells(表頭(26)).Value * 100
+                If 比對 > 0 Then : 明細_dgv.Rows(i).Cells("SP%").Value = CInt(比對) & " % ↗" : 比對 *= 1
+                ElseIf 比對 < 0 Then : 明細_dgv.Rows(i).Cells("SP%").Value = CInt(比對) & " % ↘" : 比對 *= -1
+                ElseIf 比對 = 0 Then : 明細_dgv.Rows(i).Cells("SP%").Value = CInt(比對) & " % →" : End If
+                If 深色風格 = False Then
+                    If 比對 < 比例1 Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+                    ElseIf 比對 > 比例1 And 比對 < 比例2 Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
+                    ElseIf 比對 > 比例2 And 比對 < 比例3 Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue
+                    ElseIf 比對 >= 比例3 Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink : End If
+                Else
+                    If 比對 < 比例1 Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DimGray
+                    ElseIf 比對 > 比例1 And 比對 < 比例2 Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkGreen
+                    ElseIf 比對 > 比例2 And 比對 < 比例3 Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.DarkBlue
+                    ElseIf 比對 >= 比例3 Then : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.Purple : End If
+                End If
+            End If
+        Next
+    End Sub
+    Private Sub Set_合約甲方()
+        Dim ds1 As New DataSet : 甲方_dgv.DataSource = Nothing : ds1.Clear()
+        甲方_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        甲方_dgv.ColumnHeadersHeight = 25 : 甲方_dgv.AllowUserToAddRows = False
+        SQL_合約甲方() : da.Fill(ds1) : 甲方_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        If 甲方_dgv.Rows.Count > 19 Then : MGB(系統語言字典("H312-100-" & 語言), 1) : Me.Close() : End If
+        For i As Integer = 1 To 20
+            Dim 選擇 As CheckBox = CType(Me.Controls.Find("A" & i, True)(0), CheckBox) : 選擇.Visible = False
+        Next
+        For i As Integer = 0 To 甲方_dgv.Rows.Count - 1
+            Dim 選擇 As CheckBox = CType(Me.Controls.Find("A" & i + 1, True)(0), CheckBox) : 選擇.Text = 甲方_dgv.Rows(i).Cells(0).Value.ToString : 選擇.Visible = True
+        Next
+    End Sub
+    Private Sub 採購付款狀態報表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        分母 = 100 : 分段1 = 0.35 : 分段2 = 0.34 : 分段3 = 0.65 : 分段4 = 0.64 : 進度條後墜 = " %"
+        風格() : H(312) = True : 介面 = "H312" : 語言轉換讀取() : 顯示說明(999, False)
+        Panel2.SendToBack() : 視窗2_pl.Visible = False : 單價_rb.Checked = True : Panel5.BringToFront() : RadTrackBar1.Visible = False : 首次開啟 = True
+        If 登入人級別 = "00" Then
+            縮放1_bt.Visible = True
+        Else
+            縮放1_bt.Visible = False
+        End If
+
+        MyMod.清單字體大小調整()
+        明細_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+        清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+        清單1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+        彙總1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+        彙總2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+        彙總3_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+        彙總4_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+        合計1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+        合計2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+        合計3_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+    End Sub
+    Private Sub 採購付款狀態報表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        Set_合約甲方() : Set_清單1() : 首次開啟 = False
+    End Sub
+    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
+        H(312) = True : 介面 = "H312" : 語言轉換讀取() : Set_清單1()
+    End Sub
+    Private Sub 採購付款狀態報表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
+        H(312) = False : MyMod.虛擬桌面開啟()
+    End Sub
+    Private Sub 系統說明_bt_Click(sender As Object, e As EventArgs) Handles 系統說明_bt.Click
+        介面 = "H312"
+    End Sub
+    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
+        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
+    End Sub
+    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
+        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
+    End Sub
+    Private Sub 回首頁_bt_Click(sender As Object, e As EventArgs) Handles 回首頁_bt.Click
+        Set_清單1()
+    End Sub
+    Private Sub 縮放2_bt_Click(sender As Object, e As EventArgs) Handles 縮放2_bt.Click
+        Panel5.BringToFront() : Panel1.SendToBack()
+    End Sub
+    Private Sub 縮放1_bt_Click(sender As Object, e As EventArgs) Handles 縮放1_bt.Click
+        Panel5.SendToBack() : Panel1.BringToFront()
+    End Sub
+    Private Sub 彙總3_dgv_Sorted(ByVal sender As Object, ByVal e As EventArgs) Handles 彙總3_dgv.Sorted
+        彙總()
+    End Sub
+    Private Sub 彙總3_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 彙總3_dgv.MouseUp
+        'If 彙總3_dgv.SelectedCells.Count = 1 Then : MsgBox(彙總3_dgv.SelectedCells(0).ColumnIndex & "  " & 彙總3_dgv.SelectedCells(0).RowIndex) : End If
+        If 彙總3_dgv.SelectedCells.Count > 0 Then
+            If 彙總3_dgv.SelectedCells(0).ColumnIndex > -1 Then
+                Dim X1, Y1, X2, Y2, X3, Y3 As Integer : X1 = Me.Size.Width : Y1 = Me.Size.Height : X2 = 視窗2_pl.Size.Width : Y2 = 視窗2_pl.Size.Height
+                Y3 = (Y1 - Y2) / 2 : X3 = (X1 - X2) / 2
+                視窗2_pl.Location = New System.Drawing.Point(X3, Y3) : 視窗2_pl.Visible = True : 視窗2_pl.BringToFront()
+                PA10 = 彙總3_dgv.Rows(彙總3_dgv.SelectedCells(0).RowIndex).Cells(0).Value.ToString : Set_採購單清單()
+            End If
+        End If
+    End Sub
+    Private Sub 彙總1_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 彙總1_dgv.MouseUp
+        'If 彙總1_dgv.SelectedCells.Count = 1 Then : MsgBox(彙總1_dgv.SelectedCells(0).ColumnIndex & "  " & 彙總1_dgv.SelectedCells(0).RowIndex) : End If
+        If 彙總1_dgv.SelectedCells.Count > 0 Then
+            If 彙總1_dgv.SelectedCells(0).ColumnIndex > -1 Then
+                PA10 = 彙總1_dgv.Rows(彙總1_dgv.SelectedCells(0).RowIndex).Cells(0).Value.ToString : Set_清單2()
+            End If
+        End If
+    End Sub
+    Private Sub A1_CheckedChanged(sender As Object, e As EventArgs) Handles A1.Click
+        Set_清單3()
+    End Sub
+    Private Sub A2_CheckedChanged(sender As Object, e As EventArgs) Handles A2.Click
+        Set_清單3()
+    End Sub
+    Private Sub A3_CheckedChanged(sender As Object, e As EventArgs) Handles A3.Click
+        Set_清單3()
+    End Sub
+    Private Sub A4_CheckedChanged(sender As Object, e As EventArgs) Handles A4.Click
+        Set_清單3()
+    End Sub
+    Private Sub A5_CheckedChanged(sender As Object, e As EventArgs) Handles A5.Click
+        Set_清單3()
+    End Sub
+    Private Sub A6_CheckedChanged(sender As Object, e As EventArgs) Handles A6.Click
+        Set_清單3()
+    End Sub
+    Private Sub A7_CheckedChanged(sender As Object, e As EventArgs) Handles A7.Click
+        Set_清單3()
+    End Sub
+    Private Sub A8_CheckedChanged(sender As Object, e As EventArgs) Handles A8.Click
+        Set_清單3()
+    End Sub
+    Private Sub A9_CheckedChanged(sender As Object, e As EventArgs) Handles A9.Click
+        Set_清單3()
+    End Sub
+    Private Sub A10_CheckedChanged(sender As Object, e As EventArgs) Handles A10.Click
+        Set_清單3()
+    End Sub
+    Private Sub A11_CheckedChanged(sender As Object, e As EventArgs) Handles A11.Click
+        Set_清單3()
+    End Sub
+    Private Sub A12_CheckedChanged(sender As Object, e As EventArgs) Handles A12.Click
+        Set_清單3()
+    End Sub
+    Private Sub A13_CheckedChanged(sender As Object, e As EventArgs) Handles A13.Click
+        Set_清單3()
+    End Sub
+    Private Sub A14_CheckedChanged(sender As Object, e As EventArgs) Handles A14.Click
+        Set_清單3()
+    End Sub
+    Private Sub A15_CheckedChanged(sender As Object, e As EventArgs) Handles A15.Click
+        Set_清單3()
+    End Sub
+    Private Sub A16_CheckedChanged(sender As Object, e As EventArgs) Handles A16.Click
+        Set_清單3()
+    End Sub
+    Private Sub A17_CheckedChanged(sender As Object, e As EventArgs) Handles A17.Click
+        Set_清單3()
+    End Sub
+    Private Sub A18_CheckedChanged(sender As Object, e As EventArgs) Handles A18.Click
+        Set_清單3()
+    End Sub
+    Private Sub A19_CheckedChanged(sender As Object, e As EventArgs) Handles A19.Click
+        Set_清單3()
+    End Sub
+    Private Sub A20_CheckedChanged(sender As Object, e As EventArgs) Handles A20.Click
+        Set_清單3()
+    End Sub
+    '----------------------自創視窗滑鼠拖曳功能---------------------------------------------------------------------------------------------------------
+    Dim OldX, OldY As Long : Dim drag As Boolean
+    Private Sub CanceL2_bt_Click(sender As Object, e As EventArgs) Handles CanceL2_bt.Click
+        If 視窗2_pl.Visible = False Then : 視窗2_pl.Visible = True : 視窗2_pl.BringToFront() : Else
+            視窗2_pl.Visible = False : End If
+    End Sub
+    Private Sub 視窗2_pl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseDown
+        If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If
+    End Sub
+    Private Sub 視窗2_pl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseMove
+        If drag Then : 視窗2_pl.Left = 視窗2_pl.Left + e.X - OldX : 視窗2_pl.Top = 視窗2_pl.Top + e.Y - OldY : End If
+    End Sub
+    Private Sub 視窗2_pl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseUp
+        drag = False
+    End Sub
+    Private Sub 風格()
+        If 深色風格 = False Then
+            Me.BackColor = SystemColors.Control : 視窗2_pl.BackColor = SystemColors.Control : Panel3.BackColor = Color.White
+            '----------------黑-------------------------------------------
+            回首頁_bt.BackColor = Color.White
+            語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black
+            For i As Integer = 1 To 20 : Dim 選擇 As CheckBox = CType(Me.Controls.Find("A" & i, True)(0), CheckBox) : 選擇.ForeColor = Color.Black : Next
+
+            清單_dgv.EnableHeadersVisualStyles = True : 清單_dgv.BackgroundColor = Color.White : 清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
+            清單_dgv.DefaultCellStyle.BackColor = Color.White : 清單_dgv.DefaultCellStyle.ForeColor = Color.Black
+            明細_dgv.EnableHeadersVisualStyles = True : 明細_dgv.BackgroundColor = Color.White : 明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
+            明細_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.DefaultCellStyle.BackColor = Color.White : 清單1_dgv.DefaultCellStyle.ForeColor = Color.Black
+            彙總1_dgv.EnableHeadersVisualStyles = True : 彙總1_dgv.BackgroundColor = Color.White : 彙總1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
+            彙總1_dgv.DefaultCellStyle.BackColor = Color.White : 彙總1_dgv.DefaultCellStyle.ForeColor = Color.Black : 彙總1_dgv.DefaultCellStyle.SelectionBackColor = Color.White
+            彙總1_dgv.DefaultCellStyle.SelectionForeColor = Color.Black
+            彙總2_dgv.EnableHeadersVisualStyles = True : 彙總2_dgv.BackgroundColor = Color.White : 彙總2_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
+            彙總2_dgv.DefaultCellStyle.BackColor = Color.White : 彙總2_dgv.DefaultCellStyle.ForeColor = Color.Black : 彙總2_dgv.DefaultCellStyle.SelectionBackColor = Color.White
+            彙總2_dgv.DefaultCellStyle.SelectionForeColor = Color.Black
+            彙總3_dgv.EnableHeadersVisualStyles = True : 彙總3_dgv.BackgroundColor = Color.White : 彙總3_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
+            彙總3_dgv.DefaultCellStyle.BackColor = Color.White : 彙總3_dgv.DefaultCellStyle.ForeColor = Color.Black : 彙總3_dgv.DefaultCellStyle.SelectionBackColor = Color.White
+            彙總3_dgv.DefaultCellStyle.SelectionForeColor = Color.Black
+            彙總4_dgv.EnableHeadersVisualStyles = True : 彙總4_dgv.BackgroundColor = Color.White : 彙總4_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
+            彙總4_dgv.DefaultCellStyle.BackColor = Color.White : 彙總4_dgv.DefaultCellStyle.ForeColor = Color.Black : 彙總4_dgv.DefaultCellStyle.SelectionBackColor = Color.White
+            彙總4_dgv.DefaultCellStyle.SelectionForeColor = Color.Black
+            合計1_dgv.EnableHeadersVisualStyles = True : 合計1_dgv.BackgroundColor = Color.White : 合計1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
+            合計1_dgv.DefaultCellStyle.BackColor = Color.White : 合計1_dgv.DefaultCellStyle.ForeColor = Color.Black : 合計1_dgv.DefaultCellStyle.SelectionBackColor = Color.White
+            合計1_dgv.DefaultCellStyle.SelectionForeColor = Color.Black
+            合計2_dgv.EnableHeadersVisualStyles = True : 合計2_dgv.BackgroundColor = Color.White : 合計2_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
+            合計2_dgv.DefaultCellStyle.BackColor = Color.White : 合計2_dgv.DefaultCellStyle.ForeColor = Color.Black : 合計2_dgv.DefaultCellStyle.SelectionBackColor = Color.White
+            合計2_dgv.DefaultCellStyle.SelectionForeColor = Color.Black
+            合計3_dgv.EnableHeadersVisualStyles = True : 合計3_dgv.BackgroundColor = Color.White : 合計3_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
+            合計3_dgv.DefaultCellStyle.BackColor = Color.White : 合計3_dgv.DefaultCellStyle.ForeColor = Color.Black : 合計3_dgv.DefaultCellStyle.SelectionBackColor = Color.White
+            合計3_dgv.DefaultCellStyle.SelectionForeColor = Color.Black
+        Else
+            Me.BackColor = Color.Black : 視窗2_pl.BackColor = Color.White : Panel3.BackColor = Color.Black
+            '----------------黑-------------------------------------------
+            回首頁_bt.BackColor = Color.DimGray
+            語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White
+            For i As Integer = 1 To 20 : Dim 選擇 As CheckBox = CType(Me.Controls.Find("A" & i, True)(0), CheckBox) : 選擇.ForeColor = Color.White : Next
+
+            清單_dgv.EnableHeadersVisualStyles = False : 清單_dgv.BackgroundColor = Color.DimGray : 清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
+            清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 清單_dgv.DefaultCellStyle.BackColor = Color.Black : 清單_dgv.DefaultCellStyle.ForeColor = Color.White
+            明細_dgv.EnableHeadersVisualStyles = False : 明細_dgv.BackgroundColor = Color.DimGray : 明細_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
+            明細_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 明細_dgv.DefaultCellStyle.BackColor = Color.Black : 明細_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.DefaultCellStyle.BackColor = Color.Black : 清單1_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.DefaultCellStyle.BackColor = Color.Black : 彙總1_dgv.DefaultCellStyle.ForeColor = Color.White
+            彙總1_dgv.DefaultCellStyle.SelectionBackColor = Color.Black
+            彙總2_dgv.EnableHeadersVisualStyles = False : 彙總2_dgv.BackgroundColor = Color.DimGray : 彙總2_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
+            彙總2_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 彙總2_dgv.DefaultCellStyle.BackColor = Color.Black : 彙總2_dgv.DefaultCellStyle.ForeColor = Color.White
+            彙總2_dgv.DefaultCellStyle.SelectionBackColor = Color.Black
+            彙總3_dgv.EnableHeadersVisualStyles = False : 彙總3_dgv.BackgroundColor = Color.DimGray : 彙總3_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
+            彙總3_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 彙總3_dgv.DefaultCellStyle.BackColor = Color.Black : 彙總3_dgv.DefaultCellStyle.ForeColor = Color.White
+            彙總3_dgv.DefaultCellStyle.SelectionBackColor = Color.Black
+            彙總4_dgv.EnableHeadersVisualStyles = False : 彙總4_dgv.BackgroundColor = Color.DimGray : 彙總4_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
+            彙總4_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 彙總4_dgv.DefaultCellStyle.BackColor = Color.Black : 彙總4_dgv.DefaultCellStyle.ForeColor = Color.White
+            彙總4_dgv.DefaultCellStyle.SelectionBackColor = Color.Black
+            合計1_dgv.EnableHeadersVisualStyles = False : 合計1_dgv.BackgroundColor = Color.DimGray : 合計1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
+            合計1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合計1_dgv.DefaultCellStyle.BackColor = Color.Black : 合計1_dgv.DefaultCellStyle.ForeColor = Color.White
+            合計1_dgv.DefaultCellStyle.SelectionBackColor = Color.Black
+            合計2_dgv.EnableHeadersVisualStyles = False : 合計2_dgv.BackgroundColor = Color.DimGray : 合計2_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
+            合計2_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合計2_dgv.DefaultCellStyle.BackColor = Color.Black : 合計2_dgv.DefaultCellStyle.ForeColor = Color.White
+            合計2_dgv.DefaultCellStyle.SelectionBackColor = Color.Black
+            合計3_dgv.EnableHeadersVisualStyles = False : 合計3_dgv.BackgroundColor = Color.DimGray : 合計3_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
+            合計3_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合計3_dgv.DefaultCellStyle.BackColor = Color.Black : 合計3_dgv.DefaultCellStyle.ForeColor = Color.White
+            合計3_dgv.DefaultCellStyle.SelectionBackColor = Color.Black
+        End If
+    End Sub
+End Class

Calculator-SYS/06、財務系統管理/財務報表3.resx

@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>37</value>
+  </metadata>
+</root>

Calculator-SYS/06、財務系統管理/財務報表3.vb

@@ -0,0 +1,896 @@
+Option Strict Off
+Imports System.Windows.Forms.DataVisualization.Charting
+Public Class 財務報表3
+    Dim 選款項 As Boolean
+    Private Sub 語言轉換讀取()
+        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
+        Me.Text = 系統語言字典("H001-209-" & 語言) : 表頭(11) = 系統語言字典("H110-118-" & 語言) : 表頭(12) = 系統語言字典(介面 & "-103-" & 語言)
+        表頭(14) = 系統語言字典(介面 & "-105-" & 語言) : 表頭(15) = 系統語言字典(介面 & "-106-" & 語言) : 表頭(16) = 系統語言字典(介面 & "-107-" & 語言)
+        表頭(17) = 系統語言字典(介面 & "-108-" & 語言) : 表頭(18) = 系統語言字典(介面 & "-109-" & 語言) : 表頭(19) = 系統語言字典(介面 & "-110-" & 語言)
+        表頭(20) = 系統語言字典(介面 & "-111-" & 語言) : 表頭(21) = 系統語言字典(介面 & "-112-" & 語言) : 表頭(13) = 系統語言字典(介面 & "-104-" & 語言)
+        款項_bt.Text = 系統語言字典("H309-100-" & 語言) : B1.Text = 系統語言字典(介面 & "-105-" & 語言) : B2.Text = 系統語言字典(介面 & "-106-" & 語言)
+        稅額_bt.Text = 系統語言字典("H309-101-" & 語言) : B3.Text = 系統語言字典(介面 & "-107-" & 語言) : B4.Text = 系統語言字典(介面 & "-108-" & 語言)
+    End Sub
+    Private Sub Set_請款清單()
+        Dim ds1 As New DataSet : 請款清單_dgv.DataSource = Nothing : ds1.Clear()
+        請款清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        請款清單_dgv.ColumnHeadersHeight = 25 : 請款清單_dgv.AllowUserToAddRows = False
+        SQL_請款清單() : da.Fill(ds1) : 請款清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        請款清單_dgv.Columns("期數").FillWeight = 40 : 請款清單_dgv.Columns("稅金").FillWeight = 40
+        請款清單_dgv.Columns("本收").FillWeight = 40 : 請款清單_dgv.Columns("稅收").FillWeight = 40
+
+        Dim formatColumns() As Integer = {3, 5, 4, 6}
+        For Each colIndex As Integer In formatColumns
+            請款清單_dgv.Columns(colIndex).DefaultCellStyle.Format = "#,##0"
+            請款清單_dgv.Columns(colIndex).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            請款清單_dgv.Columns(colIndex).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        Next
+        For II As Integer = 0 To 請款清單_dgv.Rows.Count - 1
+            If IsDBNull(請款清單_dgv.Rows(II).Cells("本收").Value) = True Then : 請款清單_dgv.Rows(II).Cells("本收").Value = False : End If
+            If IsDBNull(請款清單_dgv.Rows(II).Cells("稅收").Value) = True Then : 請款清單_dgv.Rows(II).Cells("稅收").Value = False : End If
+        Next
+    End Sub
+    Private Sub Set_合約清單()
+        Set_請款清單() : Set_合約報表計算() : Set_合約報表計算1()
+        Dim ds5 As New DataSet : 彙總_dgv.DataSource = Nothing
+        彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        彙總_dgv.ColumnHeadersHeight = 25 : 彙總_dgv.AllowUserToAddRows = False
+        表頭(9) = "合約號" : 表頭(10) = "合約2%" : SQL_合約彙總()
+        da.Fill(ds5) : 彙總_dgv.DataSource = ds5.Tables(0)
+        彙總_dgv.Columns("甲方").FillWeight = 40 : 彙總_dgv.Columns("計數").FillWeight = 40
+
+        Dim formatColumns() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}
+        For Each colIndex As Integer In formatColumns
+            彙總_dgv.Columns(colIndex).DefaultCellStyle.Format = "#,##0"
+            彙總_dgv.Columns(colIndex).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            彙總_dgv.Columns(colIndex).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        Next
+        '---------------------------基本計算----------------------------------------------------------------------------------------------------------------------------------------------
+        For i As Integer = 0 To 彙總_dgv.Rows.Count - 1
+            If 彙總_dgv.Rows(i).Cells("總報價").Value.ToString = "" Then : 彙總_dgv.Rows(i).Cells("總報價").Value = "0" : End If
+            彙總_dgv.Rows(i).Cells("已請款").Value = "0" : 彙總_dgv.Rows(i).Cells("未請款").Value = "0" : 彙總_dgv.Rows(i).Cells("已請稅").Value = "0"
+            彙總_dgv.Rows(i).Cells("未請稅").Value = "0" : 彙總_dgv.Rows(i).Cells("已收款").Value = "0" : 彙總_dgv.Rows(i).Cells("已請未收款").Value = "0"
+            彙總_dgv.Rows(i).Cells("已收稅").Value = "0" : 彙總_dgv.Rows(i).Cells("已請未收稅").Value = "0" : 彙總_dgv.Rows(i).Cells("計數").Value = "1"
+            彙總_dgv.Rows(i).Cells("稅金").Value = CLng(彙總_dgv.Rows(i).Cells("工程總價").Value.ToString) - CLng(彙總_dgv.Rows(i).Cells("總報價").Value.ToString)
+            For ii As Integer = 0 To 請款清單_dgv.Rows.Count - 1
+                If 彙總_dgv.Rows(i).Cells(0).Value.ToString = 請款清單_dgv.Rows(ii).Cells(0).Value.ToString Then
+                    彙總_dgv.Rows(i).Cells("已請款").Value = CLng(彙總_dgv.Rows(i).Cells("已請款").Value.ToString) + CLng(請款清單_dgv.Rows(ii).Cells("請款金額").Value.ToString)
+                    彙總_dgv.Rows(i).Cells("已請稅").Value = CLng(彙總_dgv.Rows(i).Cells("已請稅").Value.ToString) + CLng(請款清單_dgv.Rows(ii).Cells("稅額").Value.ToString)
+                End If
+                If 彙總_dgv.Rows(i).Cells(0).Value.ToString = 請款清單_dgv.Rows(ii).Cells(0).Value.ToString And 請款清單_dgv.Rows(ii).Cells("本收").Value = True Then
+                    彙總_dgv.Rows(i).Cells("已收款").Value = CLng(彙總_dgv.Rows(i).Cells("已收款").Value.ToString) + CLng(請款清單_dgv.Rows(ii).Cells("請款金額").Value.ToString)
+                End If
+                If 彙總_dgv.Rows(i).Cells(0).Value.ToString = 請款清單_dgv.Rows(ii).Cells(0).Value.ToString And 請款清單_dgv.Rows(ii).Cells("稅收").Value = True Then
+                    彙總_dgv.Rows(i).Cells("已收稅").Value = CLng(彙總_dgv.Rows(i).Cells("已收稅").Value.ToString) + CLng(請款清單_dgv.Rows(ii).Cells("稅額").Value.ToString)
+                End If
+            Next
+            彙總_dgv.Rows(i).Cells("未請款").Value = CLng(彙總_dgv.Rows(i).Cells("總報價").Value) - (彙總_dgv.Rows(i).Cells("已請款").Value)
+            彙總_dgv.Rows(i).Cells("未請稅").Value = CLng(彙總_dgv.Rows(i).Cells("稅金").Value) - (彙總_dgv.Rows(i).Cells("已請稅").Value)
+            彙總_dgv.Rows(i).Cells("已請未收款").Value = CLng(彙總_dgv.Rows(i).Cells("已請款").Value) - (彙總_dgv.Rows(i).Cells("已收款").Value)
+            彙總_dgv.Rows(i).Cells("已請未收稅").Value = CLng(彙總_dgv.Rows(i).Cells("已請稅").Value) - (彙總_dgv.Rows(i).Cells("已收稅").Value)
+            If CLng(彙總_dgv.Rows(i).Cells("未請款").Value) < 0 Then : 彙總_dgv.Rows(i).Cells("未請款").Value = "0" : End If
+            If CLng(彙總_dgv.Rows(i).Cells("未請稅").Value) < 0 Then : 彙總_dgv.Rows(i).Cells("未請稅").Value = "0" : End If
+        Next
+        '---------------------------彙總計算----------------------------------------------------------------------------------------------------------------------------------------------
+        合計1_dgv.Rows(0).Cells(1).Value = "0" : 合計2_dgv.Rows(0).Cells("工程總價").Value = "0" : 合計2_dgv.Rows(0).Cells("總報價").Value = "0"
+        合計2_dgv.Rows(0).Cells("稅金").Value = "0" : 合計2_dgv.Rows(0).Cells("已請款").Value = "0" : 合計2_dgv.Rows(0).Cells("未請款").Value = "0"
+        合計2_dgv.Rows(0).Cells("已請稅").Value = "0" : 合計2_dgv.Rows(0).Cells("未請稅").Value = "0" : 合計2_dgv.Rows(0).Cells("已收款").Value = "0"
+        合計2_dgv.Rows(0).Cells("已請未收款").Value = "0" : 合計2_dgv.Rows(0).Cells("已收稅").Value = "0" : 合計2_dgv.Rows(0).Cells("已請未收稅").Value = "0"
+        For i As Integer = 0 To 計算_dgv.Rows.Count - 1
+            計算_dgv.Rows(i).Cells(表頭(12)).Value = "0" : 計算_dgv.Rows(i).Cells(表頭(13)).Value = "0" : 計算_dgv.Rows(i).Cells("總報價").Value = "0"
+            計算_dgv.Rows(i).Cells("稅金").Value = "0" : 計算_dgv.Rows(i).Cells(表頭(14)).Value = "0" : 計算_dgv.Rows(i).Cells(表頭(15)).Value = "0"
+            計算_dgv.Rows(i).Cells(表頭(18)).Value = "0" : 計算_dgv.Rows(i).Cells(表頭(19)).Value = "0" : 計算_dgv.Rows(i).Cells(表頭(16)).Value = "0"
+            計算_dgv.Rows(i).Cells(表頭(17)).Value = "0" : 計算_dgv.Rows(i).Cells(表頭(20)).Value = "0" : 計算_dgv.Rows(i).Cells(表頭(21)).Value = "0"
+            計算1_dgv.Rows(i).Cells(表頭(12)).Value = "0"
+            計算2_dgv.Rows(i).Cells(表頭(12)).Value = "0" : 計算2_dgv.Rows(i).Cells(表頭(13)).Value = "0" : 計算2_dgv.Rows(i).Cells("總報價").Value = "0"
+            計算2_dgv.Rows(i).Cells("稅金").Value = "0" : 計算2_dgv.Rows(i).Cells(表頭(14)).Value = "0" : 計算2_dgv.Rows(i).Cells(表頭(15)).Value = "0"
+            計算2_dgv.Rows(i).Cells(表頭(18)).Value = "0" : 計算2_dgv.Rows(i).Cells(表頭(19)).Value = "0" : 計算2_dgv.Rows(i).Cells(表頭(16)).Value = "0"
+            計算2_dgv.Rows(i).Cells(表頭(17)).Value = "0" : 計算2_dgv.Rows(i).Cells(表頭(20)).Value = "0" : 計算2_dgv.Rows(i).Cells(表頭(21)).Value = "0"
+            For ii As Integer = 0 To 彙總_dgv.Rows.Count - 1
+                If 計算_dgv.Rows(i).Cells(0).Value.ToString = 彙總_dgv.Rows(ii).Cells("甲方").Value.ToString Then
+                    計算_dgv.Rows(i).Cells(表頭(12)).Value = CLng(計算_dgv.Rows(i).Cells(表頭(12)).Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("計數").Value.ToString)
+                    計算1_dgv.Rows(i).Cells(表頭(12)).Value = CLng(計算1_dgv.Rows(i).Cells(表頭(12)).Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("計數").Value.ToString)
+                    計算_dgv.Rows(i).Cells(表頭(13)).Value = CLng(計算_dgv.Rows(i).Cells(表頭(13)).Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("工程總價").Value.ToString)
+                    計算_dgv.Rows(i).Cells("總報價").Value = CLng(計算_dgv.Rows(i).Cells("總報價").Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("總報價").Value.ToString)
+                    計算_dgv.Rows(i).Cells("稅金").Value = CLng(計算_dgv.Rows(i).Cells("稅金").Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("稅金").Value.ToString)
+                    計算_dgv.Rows(i).Cells(表頭(14)).Value = CLng(計算_dgv.Rows(i).Cells(表頭(14)).Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("已請款").Value.ToString)
+                    計算_dgv.Rows(i).Cells(表頭(15)).Value = CLng(計算_dgv.Rows(i).Cells(表頭(15)).Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("未請款").Value.ToString)
+                    計算_dgv.Rows(i).Cells(表頭(18)).Value = CLng(計算_dgv.Rows(i).Cells(表頭(18)).Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("已請稅").Value.ToString)
+                    計算_dgv.Rows(i).Cells(表頭(19)).Value = CLng(計算_dgv.Rows(i).Cells(表頭(19)).Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("未請稅").Value.ToString)
+                    計算_dgv.Rows(i).Cells(表頭(16)).Value = CLng(計算_dgv.Rows(i).Cells(表頭(16)).Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("已收款").Value.ToString)
+                    計算_dgv.Rows(i).Cells(表頭(17)).Value = CLng(計算_dgv.Rows(i).Cells(表頭(17)).Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("已請未收款").Value.ToString)
+                    計算_dgv.Rows(i).Cells(表頭(20)).Value = CLng(計算_dgv.Rows(i).Cells(表頭(20)).Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("已收稅").Value.ToString)
+                    計算_dgv.Rows(i).Cells(表頭(21)).Value = CLng(計算_dgv.Rows(i).Cells(表頭(21)).Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("已請未收稅").Value.ToString)
+
+                    計算2_dgv.Rows(i).Cells(表頭(13)).Value = CLng(計算2_dgv.Rows(i).Cells(表頭(13)).Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("工程總價").Value.ToString)
+                    計算2_dgv.Rows(i).Cells("總報價").Value = CLng(計算2_dgv.Rows(i).Cells("總報價").Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("總報價").Value.ToString)
+                    計算2_dgv.Rows(i).Cells("稅金").Value = CLng(計算2_dgv.Rows(i).Cells("稅金").Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("稅金").Value.ToString)
+                    計算2_dgv.Rows(i).Cells(表頭(14)).Value = CLng(計算2_dgv.Rows(i).Cells(表頭(14)).Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("已請款").Value.ToString)
+                    計算2_dgv.Rows(i).Cells(表頭(15)).Value = CLng(計算2_dgv.Rows(i).Cells(表頭(15)).Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("未請款").Value.ToString)
+                    計算2_dgv.Rows(i).Cells(表頭(18)).Value = CLng(計算2_dgv.Rows(i).Cells(表頭(18)).Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("已請稅").Value.ToString)
+                    計算2_dgv.Rows(i).Cells(表頭(19)).Value = CLng(計算2_dgv.Rows(i).Cells(表頭(19)).Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("未請稅").Value.ToString)
+                    計算2_dgv.Rows(i).Cells(表頭(16)).Value = CLng(計算2_dgv.Rows(i).Cells(表頭(16)).Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("已收款").Value.ToString)
+                    計算2_dgv.Rows(i).Cells(表頭(17)).Value = CLng(計算2_dgv.Rows(i).Cells(表頭(17)).Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("已請未收款").Value.ToString)
+                    計算2_dgv.Rows(i).Cells(表頭(20)).Value = CLng(計算2_dgv.Rows(i).Cells(表頭(20)).Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("已收稅").Value.ToString)
+                    計算2_dgv.Rows(i).Cells(表頭(21)).Value = CLng(計算2_dgv.Rows(i).Cells(表頭(21)).Value.ToString) + CLng(彙總_dgv.Rows(ii).Cells("已請未收稅").Value.ToString)
+                End If
+            Next
+            If CLng(計算2_dgv.Rows(i).Cells("總報價").Value.ToString) = 0 Then : 計算2_dgv.Rows(i).Cells("比例1").Value = "0" : Else
+                計算2_dgv.Rows(i).Cells("比例1").Value = CLng(計算2_dgv.Rows(i).Cells(表頭(14)).Value.ToString) / CLng(計算2_dgv.Rows(i).Cells("總報價").Value.ToString) * 100
+            End If
+            If CLng(計算2_dgv.Rows(i).Cells(表頭(14)).Value.ToString) = 0 Then : 計算2_dgv.Rows(i).Cells("比例2").Value = "0" : Else
+                計算2_dgv.Rows(i).Cells("比例2").Value = CLng(計算2_dgv.Rows(i).Cells(表頭(16)).Value.ToString) / CLng(計算2_dgv.Rows(i).Cells(表頭(14)).Value.ToString) * 100
+            End If
+            If CLng(計算2_dgv.Rows(i).Cells("稅金").Value.ToString) = 0 Then : 計算2_dgv.Rows(i).Cells("比例3").Value = "0" : Else
+                計算2_dgv.Rows(i).Cells("比例3").Value = CLng(計算2_dgv.Rows(i).Cells(表頭(18)).Value.ToString) / CLng(計算2_dgv.Rows(i).Cells("稅金").Value.ToString) * 100
+            End If
+            If CLng(計算2_dgv.Rows(i).Cells(表頭(18)).Value.ToString) = 0 Then : 計算2_dgv.Rows(i).Cells("比例4").Value = "0" : Else
+                計算2_dgv.Rows(i).Cells("比例4").Value = CLng(計算2_dgv.Rows(i).Cells(表頭(20)).Value.ToString) / CLng(計算2_dgv.Rows(i).Cells(表頭(18)).Value.ToString) * 100
+            End If
+            合計1_dgv.Rows(0).Cells(1).Value = CLng(合計1_dgv.Rows(0).Cells(1).Value.ToString) + CLng(計算1_dgv.Rows(i).Cells(表頭(12)).Value.ToString)
+            合計2_dgv.Rows(0).Cells("工程總價").Value = CLng(合計2_dgv.Rows(0).Cells("工程總價").Value.ToString) + CLng(計算2_dgv.Rows(i).Cells(表頭(13)).Value.ToString)
+            合計2_dgv.Rows(0).Cells("總報價").Value = CLng(合計2_dgv.Rows(0).Cells("總報價").Value.ToString) + CLng(計算2_dgv.Rows(i).Cells("總報價").Value.ToString)
+            合計2_dgv.Rows(0).Cells("稅金").Value = CLng(合計2_dgv.Rows(0).Cells("稅金").Value.ToString) + CLng(計算2_dgv.Rows(i).Cells("稅金").Value.ToString)
+            合計2_dgv.Rows(0).Cells("已請款").Value = CLng(合計2_dgv.Rows(0).Cells("已請款").Value.ToString) + CLng(計算2_dgv.Rows(i).Cells(表頭(14)).Value.ToString)
+            合計2_dgv.Rows(0).Cells("未請款").Value = CLng(合計2_dgv.Rows(0).Cells("未請款").Value.ToString) + CLng(計算2_dgv.Rows(i).Cells(表頭(15)).Value.ToString)
+            合計2_dgv.Rows(0).Cells("已請稅").Value = CLng(合計2_dgv.Rows(0).Cells("已請稅").Value.ToString) + CLng(計算2_dgv.Rows(i).Cells(表頭(18)).Value.ToString)
+            合計2_dgv.Rows(0).Cells("未請稅").Value = CLng(合計2_dgv.Rows(0).Cells("未請稅").Value.ToString) + CLng(計算2_dgv.Rows(i).Cells(表頭(19)).Value.ToString)
+            合計2_dgv.Rows(0).Cells("已收款").Value = CLng(合計2_dgv.Rows(0).Cells("已收款").Value.ToString) + CLng(計算2_dgv.Rows(i).Cells(表頭(16)).Value.ToString)
+            合計2_dgv.Rows(0).Cells("已請未收款").Value = CLng(合計2_dgv.Rows(0).Cells("已請未收款").Value.ToString) + CLng(計算2_dgv.Rows(i).Cells(表頭(17)).Value.ToString)
+            合計2_dgv.Rows(0).Cells("已收稅").Value = CLng(合計2_dgv.Rows(0).Cells("已收稅").Value.ToString) + CLng(計算2_dgv.Rows(i).Cells(表頭(20)).Value.ToString)
+            合計2_dgv.Rows(0).Cells("已請未收稅").Value = CLng(合計2_dgv.Rows(0).Cells("已請未收稅").Value.ToString) + CLng(計算2_dgv.Rows(i).Cells(表頭(21)).Value.ToString)
+        Next
+        合計1_dgv.Rows(0).Cells(0).Value = 系統語言字典(介面 & "-101-" & 語言) : 合計2_dgv.Rows(0).Cells(0).Value = 系統語言字典(介面 & "-102-" & 語言)
+        If CLng(合計2_dgv.Rows(0).Cells("總報價").Value.ToString) = 0 Then : 合計2_dgv.Rows(0).Cells("比例1").Value = "0" : Else
+            合計2_dgv.Rows(0).Cells("比例1").Value = CLng(合計2_dgv.Rows(0).Cells("已請款").Value.ToString) / CLng(合計2_dgv.Rows(0).Cells("總報價").Value.ToString) * 100
+            If CLng(合計2_dgv.Rows(0).Cells("比例1").Value) > 100 Then : 合計2_dgv.Rows(0).Cells("比例1").Value = "100" : End If
+        End If
+        If CLng(合計2_dgv.Rows(0).Cells("已請款").Value.ToString) = 0 Then : 合計2_dgv.Rows(0).Cells("比例2").Value = "0" : Else
+            合計2_dgv.Rows(0).Cells("比例2").Value = CLng(合計2_dgv.Rows(0).Cells("已收款").Value.ToString) / CLng(合計2_dgv.Rows(0).Cells("已請款").Value.ToString) * 100
+            If CLng(合計2_dgv.Rows(0).Cells("比例2").Value) > 100 Then : 合計2_dgv.Rows(0).Cells("比例2").Value = "100" : End If
+        End If
+        If CLng(合計2_dgv.Rows(0).Cells("稅金").Value.ToString) = 0 Then : 合計2_dgv.Rows(0).Cells("比例3").Value = "0" : Else
+            合計2_dgv.Rows(0).Cells("比例3").Value = CLng(合計2_dgv.Rows(0).Cells("已請稅").Value.ToString) / CLng(合計2_dgv.Rows(0).Cells("稅金").Value.ToString) * 100
+            If CLng(合計2_dgv.Rows(0).Cells("比例3").Value) > 100 Then : 合計2_dgv.Rows(0).Cells("比例3").Value = "100" : End If
+        End If
+        If CLng(合計2_dgv.Rows(0).Cells("已請稅").Value.ToString) = 0 Then : 合計2_dgv.Rows(0).Cells("比例4").Value = "0" : Else
+            合計2_dgv.Rows(0).Cells("比例4").Value = CLng(合計2_dgv.Rows(0).Cells("已收稅").Value.ToString) / CLng(合計2_dgv.Rows(0).Cells("已請稅").Value.ToString) * 100
+            If CLng(合計2_dgv.Rows(0).Cells("比例4").Value) > 100 Then : 合計2_dgv.Rows(0).Cells("比例4").Value = "100" : End If
+        End If
+
+        計算_dgv.Sort(計算_dgv.Columns(表頭(13)), System.ComponentModel.ListSortDirection.Descending)
+        計算1_dgv.Sort(計算1_dgv.Columns(表頭(12)), System.ComponentModel.ListSortDirection.Descending)
+        計算2_dgv.Sort(計算2_dgv.Columns(表頭(13)), System.ComponentModel.ListSortDirection.Descending)
+        彙總()
+    End Sub
+    Private Sub Set_合約甲方()
+        Dim ds1 As New DataSet : 甲方_dgv.DataSource = Nothing : ds1.Clear()
+        甲方_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        甲方_dgv.ColumnHeadersHeight = 25 : 甲方_dgv.AllowUserToAddRows = False
+        SQL_合約甲方() : da.Fill(ds1) : 甲方_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        If 甲方_dgv.Rows.Count > 19 Then : MGB(系統語言字典(介面 & "-100-" & 語言), 1) : Me.Close() : End If
+        For i As Integer = 1 To 20
+            Dim 選擇 As CheckBox = CType(Me.Controls.Find("A" & i, True)(0), CheckBox) : 選擇.Visible = False
+        Next
+        For i As Integer = 0 To 甲方_dgv.Rows.Count - 1
+            Dim 選擇 As CheckBox = CType(Me.Controls.Find("A" & i + 1, True)(0), CheckBox) : 選擇.Text = 甲方_dgv.Rows(i).Cells(0).Value.ToString : 選擇.Visible = True
+        Next
+    End Sub
+    Private Sub Set_合約報表計算()
+        Dim ds1, ds2, ds3 As New DataSet
+        計算_dgv.DataSource = Nothing : 計算1_dgv.DataSource = Nothing : 合計1_dgv.DataSource = Nothing : ds1.Clear() : ds2.Clear() : ds3.Clear()
+        計算_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        計算_dgv.ColumnHeadersHeight = 25 : 計算_dgv.AllowUserToAddRows = False
+        計算1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        計算1_dgv.ColumnHeadersHeight = 25 : 計算1_dgv.AllowUserToAddRows = False
+        合計1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        合計1_dgv.ColumnHeadersHeight = 25 : 合計1_dgv.AllowUserToAddRows = False
+        合計1_dgv.ColumnHeadersVisible = False
+        Dim SSA(19) As String
+        Dim checkBoxes() As CheckBox = {A1, A2, A3, A4, A5, A6, A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17, A18, A19, A20}
+        For i As Integer = 0 To SSA.Length - 1
+            If checkBoxes(i).Checked Then : SSA(i) = " 約號甲方 LIKE N'" & checkBoxes(i).Text & "'" : Else : SSA(i) = "" : End If
+        Next
+        If SSA.All(Function(s) String.IsNullOrEmpty(s)) Then : SQL2 = "" : Else
+            Dim selectedSSA = SSA.Where(Function(s) Not String.IsNullOrEmpty(s)).ToArray()
+            SQL2 = "AND (" & String.Join(" OR ", selectedSSA) & ")"
+        End If
+        SQL_合約報表計算1() : da.Fill(ds1) : da.Fill(ds2) : SQL_合約報表計算2() : da.Fill(ds3)
+        計算_dgv.DataSource = ds1.Tables(0) : 計算1_dgv.DataSource = ds2.Tables(0) : 合計1_dgv.DataSource = ds3.Tables(0) : conn.Close()
+        計算_dgv.Columns("比例1").Visible = False : 計算_dgv.Columns("比例2").Visible = False
+        計算_dgv.Columns("比例3").Visible = False : 計算_dgv.Columns("比例4").Visible = False
+        For j As Integer = 2 To 16 : 計算1_dgv.Columns(j).Visible = False : 合計1_dgv.Columns(j).Visible = False : Next
+        合計1_dgv.Columns(1).DefaultCellStyle.Format = "#,##0"
+        計算1_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 計算_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
+        計算_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 計算_dgv.Columns(2).DefaultCellStyle.Format = "#,##0"
+        Dim formatColumns() As Integer = {4, 5, 6, 7, 8, 9, 10, 11, 12}
+        For Each colIndex As Integer In formatColumns : 計算_dgv.Columns(colIndex).DefaultCellStyle.Format = "#,##0" : Next
+        Dim alignmentColumns() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16}
+        For Each colIndex As Integer In alignmentColumns
+            計算_dgv.Columns(colIndex).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            計算1_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            合計1_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            計算_dgv.Columns(colIndex).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+            計算1_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+            合計1_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        Next
+        '-------------------------合計DGV變形----------------------------------------------------------------------------------------------------------------------
+        If IsVerticalScrollBarVisible(計算1_dgv) Then : 合計1_dgv.Size = New Size(計算1_dgv.Size.Width - 17, 合計1_dgv.Size.Height)
+        Else : 合計1_dgv.Size = New Size(計算1_dgv.Size.Width, 合計1_dgv.Size.Height) : End If
+    End Sub
+    Private Function IsVerticalScrollBarVisible(dgv As DataGridView) As Boolean
+        Return dgv.FirstDisplayedScrollingRowIndex > 0 OrElse dgv.DisplayedRowCount(False) < dgv.Rows.Count
+    End Function
+    Private Sub Set_合約報表計算1()
+        Dim ds2, ds3 As New DataSet : 計算2_dgv.DataSource = Nothing : 合計2_dgv.DataSource = Nothing : ds2.Clear() : ds3.Clear()
+        計算2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        計算2_dgv.ColumnHeadersHeight = 25 : 計算2_dgv.AllowUserToAddRows = False
+        合計2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        合計2_dgv.ColumnHeadersHeight = 25 : 合計2_dgv.AllowUserToAddRows = False
+        合計2_dgv.ColumnHeadersVisible = False
+        合計2_dgv.ScrollBars = ScrollBars.None
+        Dim SSA(19) As String
+        Dim checkBoxes() As CheckBox = {A1, A2, A3, A4, A5, A6, A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17, A18, A19, A20}
+        For i As Integer = 0 To SSA.Length - 1
+            If checkBoxes(i).Checked Then : SSA(i) = " 約號甲方 LIKE N'" & checkBoxes(i).Text & "'" : Else : SSA(i) = "" : End If
+        Next
+        If SSA.All(Function(s) String.IsNullOrEmpty(s)) Then : SQL2 = "" : Else
+            Dim selectedSSA = SSA.Where(Function(s) Not String.IsNullOrEmpty(s)).ToArray()
+            SQL2 = "AND (" & String.Join(" OR ", selectedSSA) & ")"
+        End If
+        SQL_合約報表計算1() : da.Fill(ds3) : SQL_合約報表計算2() : da.Fill(ds2)
+        計算2_dgv.DataSource = ds3.Tables(0) : 合計2_dgv.DataSource = ds2.Tables(0) : conn.Close()
+        For i As Integer = 0 To 計算2_dgv.Rows.Count - 1
+            計算2_dgv.Rows(i).Cells("比例1").Value = "0" : 計算2_dgv.Rows(i).Cells("比例2").Value = "0"
+            計算2_dgv.Rows(i).Cells("比例3").Value = "0" : 計算2_dgv.Rows(i).Cells("比例4").Value = "0"
+        Next
+        合計2_dgv.Rows(0).Cells("比例1").Value = "0" : 合計2_dgv.Rows(0).Cells("比例2").Value = "0"
+        合計2_dgv.Rows(0).Cells("比例3").Value = "0" : 合計2_dgv.Rows(0).Cells("比例4").Value = "0"
+        Set_進度條顯示1() : Set_進度條顯示2() : Set_進度條顯示3() : Set_進度條顯示4()
+        Set_進度條顯示5() : Set_進度條顯示6() : Set_進度條顯示7() : Set_進度條顯示8()
+        計算2_dgv.Columns(1).Visible = False
+        計算2_dgv.Columns(3).Visible = False : 計算2_dgv.Columns(4).Visible = False
+        計算2_dgv.Columns("比例1").Visible = False : 計算2_dgv.Columns("比例2").Visible = False
+        計算2_dgv.Columns("比例3").Visible = False : 計算2_dgv.Columns("比例4").Visible = False
+        計算2_dgv.Columns(2).DefaultCellStyle.Format = "#,##0"
+
+        合計2_dgv.Columns(1).Visible = False
+        合計2_dgv.Columns(3).Visible = False : 合計2_dgv.Columns(4).Visible = False
+        合計2_dgv.Columns("比例1").Visible = False : 合計2_dgv.Columns("比例2").Visible = False
+        合計2_dgv.Columns("比例3").Visible = False : 合計2_dgv.Columns("比例4").Visible = False
+        合計2_dgv.Columns(2).DefaultCellStyle.Format = "#,##0"
+
+        Dim formatColumns() As Integer = {1, 2, 3, 4, 5, 6, 9, 10, 13, 14, 17, 18}
+        For Each colIndex As Integer In formatColumns
+            計算2_dgv.Columns(colIndex).DefaultCellStyle.Format = "#,##0"
+            計算2_dgv.Columns(colIndex).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            計算2_dgv.Columns(colIndex).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+
+            合計2_dgv.Columns(colIndex).DefaultCellStyle.Format = "#,##0"
+            合計2_dgv.Columns(colIndex).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            合計2_dgv.Columns(colIndex).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        Next
+        If 深色風格 = False Then
+            計算2_dgv.Columns(表頭(14)).DefaultCellStyle.ForeColor = Color.Red : 計算2_dgv.Columns(表頭(15)).DefaultCellStyle.ForeColor = Color.Red
+            計算2_dgv.Columns(表頭(16)).DefaultCellStyle.ForeColor = Color.Blue : 計算2_dgv.Columns(表頭(17)).DefaultCellStyle.ForeColor = Color.Blue
+            計算2_dgv.Columns(表頭(18)).DefaultCellStyle.ForeColor = Color.Green : 計算2_dgv.Columns(表頭(19)).DefaultCellStyle.ForeColor = Color.Green
+            計算2_dgv.Columns(表頭(20)).DefaultCellStyle.ForeColor = Color.Coral : 計算2_dgv.Columns(表頭(21)).DefaultCellStyle.ForeColor = Color.Coral
+
+            合計2_dgv.Columns("已請款").DefaultCellStyle.ForeColor = Color.Red : 合計2_dgv.Columns("未請款").DefaultCellStyle.ForeColor = Color.Red
+            合計2_dgv.Columns("已收款").DefaultCellStyle.ForeColor = Color.Blue : 合計2_dgv.Columns("已請未收款").DefaultCellStyle.ForeColor = Color.Blue
+            合計2_dgv.Columns("已請稅").DefaultCellStyle.ForeColor = Color.Green : 合計2_dgv.Columns("未請稅").DefaultCellStyle.ForeColor = Color.Green
+            合計2_dgv.Columns("已收稅").DefaultCellStyle.ForeColor = Color.Coral : 合計2_dgv.Columns("已請未收稅").DefaultCellStyle.ForeColor = Color.Coral
+        Else
+            計算2_dgv.Columns(表頭(14)).DefaultCellStyle.ForeColor = Color.LightPink : 計算2_dgv.Columns(表頭(15)).DefaultCellStyle.ForeColor = Color.LightPink
+            計算2_dgv.Columns(表頭(16)).DefaultCellStyle.ForeColor = Color.LightBlue : 計算2_dgv.Columns(表頭(17)).DefaultCellStyle.ForeColor = Color.LightBlue
+            計算2_dgv.Columns(表頭(18)).DefaultCellStyle.ForeColor = Color.LightGreen : 計算2_dgv.Columns(表頭(19)).DefaultCellStyle.ForeColor = Color.LightGreen
+            計算2_dgv.Columns(表頭(20)).DefaultCellStyle.ForeColor = Color.LightCoral : 計算2_dgv.Columns(表頭(21)).DefaultCellStyle.ForeColor = Color.LightCoral
+
+            合計2_dgv.Columns("已請款").DefaultCellStyle.ForeColor = Color.LightPink : 合計2_dgv.Columns("未請款").DefaultCellStyle.ForeColor = Color.LightPink
+            合計2_dgv.Columns("已收款").DefaultCellStyle.ForeColor = Color.LightBlue : 合計2_dgv.Columns("已請未收款").DefaultCellStyle.ForeColor = Color.LightBlue
+            合計2_dgv.Columns("已請稅").DefaultCellStyle.ForeColor = Color.LightGreen : 合計2_dgv.Columns("未請稅").DefaultCellStyle.ForeColor = Color.LightGreen
+            合計2_dgv.Columns("已收稅").DefaultCellStyle.ForeColor = Color.LightCoral : 合計2_dgv.Columns("已請未收稅").DefaultCellStyle.ForeColor = Color.LightCoral
+        End If
+        '-------------------------合計DGV變形----------------------------------------------------------------------------------------------------------------------
+        If IsVerticalScrollBarVisible(計算2_dgv) Then : 合計2_dgv.Size = New Size(計算2_dgv.Size.Width - 17, 合計2_dgv.Size.Height)
+        Else : 合計2_dgv.Size = New Size(計算2_dgv.Size.Width, 合計2_dgv.Size.Height) : End If
+    End Sub
+    Private Sub Set_合約報表計算2()
+        Dim ds2, ds3 As New DataSet : 計算3_dgv.DataSource = Nothing : ds3.Clear()
+        計算3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        計算3_dgv.ColumnHeadersHeight = 25 : 計算3_dgv.AllowUserToAddRows = False
+        SQL_合約報表計算3() : da.Fill(ds3)
+        計算3_dgv.DataSource = ds3.Tables(0) : conn.Close()
+        For i As Integer = 0 To 計算3_dgv.Rows.Count - 1
+            計算3_dgv.Rows(i).Cells("比例1").Value = "0" : 計算3_dgv.Rows(i).Cells("比例2").Value = "0"
+            計算3_dgv.Rows(i).Cells("比例3").Value = "0" : 計算3_dgv.Rows(i).Cells("比例4").Value = "0"
+        Next
+        Set_進度條顯示9() : Set_進度條顯示10() : Set_進度條顯示11() : Set_進度條顯示12()
+
+        計算3_dgv.Columns(1).Visible = False
+        計算3_dgv.Columns(3).Visible = False : 計算3_dgv.Columns(4).Visible = False
+        計算3_dgv.Columns("比例1").Visible = False : 計算3_dgv.Columns("比例2").Visible = False
+        計算3_dgv.Columns("比例3").Visible = False : 計算3_dgv.Columns("比例4").Visible = False
+        計算3_dgv.Columns(2).DefaultCellStyle.Format = "#,##0"
+
+        Dim formatColumns() As Integer = {1, 2, 3, 4, 5, 6, 9, 10, 13, 14, 17, 18}
+        For Each colIndex As Integer In formatColumns
+            計算3_dgv.Columns(colIndex).DefaultCellStyle.Format = "#,##0"
+            計算3_dgv.Columns(colIndex).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            計算3_dgv.Columns(colIndex).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        Next
+        If 深色風格 = False Then
+            計算3_dgv.Columns(表頭(14)).DefaultCellStyle.ForeColor = Color.Red : 計算3_dgv.Columns(表頭(15)).DefaultCellStyle.ForeColor = Color.Red
+            計算3_dgv.Columns(表頭(16)).DefaultCellStyle.ForeColor = Color.Blue : 計算3_dgv.Columns(表頭(17)).DefaultCellStyle.ForeColor = Color.Blue
+            計算3_dgv.Columns(表頭(18)).DefaultCellStyle.ForeColor = Color.Green : 計算3_dgv.Columns(表頭(19)).DefaultCellStyle.ForeColor = Color.Green
+            計算3_dgv.Columns(表頭(20)).DefaultCellStyle.ForeColor = Color.Coral : 計算3_dgv.Columns(表頭(21)).DefaultCellStyle.ForeColor = Color.Coral
+        Else
+            計算3_dgv.Columns(表頭(14)).DefaultCellStyle.ForeColor = Color.LightPink : 計算3_dgv.Columns(表頭(15)).DefaultCellStyle.ForeColor = Color.LightPink
+            計算3_dgv.Columns(表頭(16)).DefaultCellStyle.ForeColor = Color.LightBlue : 計算3_dgv.Columns(表頭(17)).DefaultCellStyle.ForeColor = Color.LightBlue
+            計算3_dgv.Columns(表頭(18)).DefaultCellStyle.ForeColor = Color.LightGreen : 計算3_dgv.Columns(表頭(19)).DefaultCellStyle.ForeColor = Color.LightGreen
+            計算3_dgv.Columns(表頭(20)).DefaultCellStyle.ForeColor = Color.LightCoral : 計算3_dgv.Columns(表頭(21)).DefaultCellStyle.ForeColor = Color.LightCoral
+        End If
+        '---------------------------基本計算----------------------------------------------------------------------------------------------------------------------------------------------
+        For i As Integer = 0 To 計算3_dgv.Rows.Count - 1
+            計算3_dgv.Rows(i).Cells(表頭(14)).Value = "0" : 計算3_dgv.Rows(i).Cells(表頭(15)).Value = "0" : 計算3_dgv.Rows(i).Cells(表頭(18)).Value = "0"
+            計算3_dgv.Rows(i).Cells(表頭(19)).Value = "0" : 計算3_dgv.Rows(i).Cells(表頭(16)).Value = "0" : 計算3_dgv.Rows(i).Cells(表頭(17)).Value = "0"
+            計算3_dgv.Rows(i).Cells(表頭(20)).Value = "0" : 計算3_dgv.Rows(i).Cells(表頭(21)).Value = "0"
+            For ii As Integer = 0 To 彙總_dgv.Rows.Count - 1
+                If 計算3_dgv.Rows(i).Cells(0).Value.ToString = 彙總_dgv.Rows(ii).Cells(0).Value.ToString Then
+                    計算3_dgv.Rows(i).Cells("工程總價").Value = CLng(彙總_dgv.Rows(ii).Cells("工程總價").Value.ToString)
+                    計算3_dgv.Rows(i).Cells("總報價").Value = CLng(彙總_dgv.Rows(ii).Cells("總報價").Value.ToString)
+                End If
+            Next
+            計算3_dgv.Rows(i).Cells("稅金").Value = CLng(計算3_dgv.Rows(i).Cells("工程總價").Value.ToString) - CLng(計算3_dgv.Rows(i).Cells("總報價").Value.ToString)
+
+            For ii As Integer = 0 To 請款清單_dgv.Rows.Count - 1
+                If 計算3_dgv.Rows(i).Cells(0).Value.ToString = 請款清單_dgv.Rows(ii).Cells(0).Value.ToString Then
+                    計算3_dgv.Rows(i).Cells(表頭(14)).Value = CLng(計算3_dgv.Rows(i).Cells(表頭(14)).Value.ToString) + CLng(請款清單_dgv.Rows(ii).Cells("請款金額").Value.ToString)
+                    計算3_dgv.Rows(i).Cells(表頭(18)).Value = CLng(計算3_dgv.Rows(i).Cells(表頭(18)).Value.ToString) + CLng(請款清單_dgv.Rows(ii).Cells("稅額").Value.ToString)
+                End If
+                If 計算3_dgv.Rows(i).Cells(0).Value.ToString = 請款清單_dgv.Rows(ii).Cells(0).Value.ToString And 請款清單_dgv.Rows(ii).Cells("本收").Value = True Then
+                    計算3_dgv.Rows(i).Cells(表頭(16)).Value = CLng(計算3_dgv.Rows(i).Cells(表頭(16)).Value.ToString) + CLng(請款清單_dgv.Rows(ii).Cells("請款金額").Value.ToString)
+                End If
+                If 計算3_dgv.Rows(i).Cells(0).Value.ToString = 請款清單_dgv.Rows(ii).Cells(0).Value.ToString And 請款清單_dgv.Rows(ii).Cells("稅收").Value = True Then
+                    計算3_dgv.Rows(i).Cells(表頭(20)).Value = CLng(計算3_dgv.Rows(i).Cells(表頭(20)).Value.ToString) + CLng(請款清單_dgv.Rows(ii).Cells("稅額").Value.ToString)
+                End If
+            Next
+            計算3_dgv.Rows(i).Cells(表頭(15)).Value = CLng(計算3_dgv.Rows(i).Cells("總報價").Value) - (計算3_dgv.Rows(i).Cells(表頭(14)).Value)
+            計算3_dgv.Rows(i).Cells(表頭(19)).Value = CLng(計算3_dgv.Rows(i).Cells("稅金").Value) - (計算3_dgv.Rows(i).Cells(表頭(18)).Value)
+            計算3_dgv.Rows(i).Cells(表頭(17)).Value = CLng(計算3_dgv.Rows(i).Cells(表頭(14)).Value) - (計算3_dgv.Rows(i).Cells(表頭(16)).Value)
+            計算3_dgv.Rows(i).Cells(表頭(21)).Value = CLng(計算3_dgv.Rows(i).Cells(表頭(18)).Value) - (計算3_dgv.Rows(i).Cells(表頭(20)).Value)
+            If CLng(計算3_dgv.Rows(i).Cells(表頭(15)).Value) < 0 Then : 計算3_dgv.Rows(i).Cells(表頭(15)).Value = "0" : End If
+            If CLng(計算3_dgv.Rows(i).Cells(表頭(19)).Value) < 0 Then : 計算3_dgv.Rows(i).Cells(表頭(19)).Value = "0" : End If
+            If CLng(計算3_dgv.Rows(i).Cells("總報價").Value.ToString) = 0 Then : 計算3_dgv.Rows(i).Cells("比例1").Value = "0" : Else
+                計算3_dgv.Rows(i).Cells("比例1").Value = CLng(計算3_dgv.Rows(i).Cells(表頭(14)).Value.ToString) / CLng(計算3_dgv.Rows(i).Cells("總報價").Value.ToString) * 100
+                If CLng(計算3_dgv.Rows(i).Cells("比例1").Value) > 100 Then : 計算3_dgv.Rows(i).Cells("比例1").Value = "100" : End If
+            End If
+            If CLng(計算3_dgv.Rows(i).Cells(表頭(14)).Value.ToString) = 0 Then : 計算3_dgv.Rows(i).Cells("比例2").Value = "0" : Else
+                計算3_dgv.Rows(i).Cells("比例2").Value = CLng(計算3_dgv.Rows(i).Cells(表頭(16)).Value.ToString) / CLng(計算3_dgv.Rows(i).Cells(表頭(14)).Value.ToString) * 100
+                If CLng(計算3_dgv.Rows(i).Cells("比例2").Value) > 100 Then : 計算3_dgv.Rows(i).Cells("比例2").Value = "100" : End If
+            End If
+            If CLng(計算3_dgv.Rows(i).Cells("稅金").Value.ToString) = 0 Then : 計算3_dgv.Rows(i).Cells("比例3").Value = "0" : Else
+                計算3_dgv.Rows(i).Cells("比例3").Value = CLng(計算3_dgv.Rows(i).Cells(表頭(18)).Value.ToString) / CLng(計算3_dgv.Rows(i).Cells("稅金").Value.ToString) * 100
+                If CLng(計算3_dgv.Rows(i).Cells("比例3").Value) > 100 Then : 計算3_dgv.Rows(i).Cells("比例3").Value = "100" : End If
+            End If
+            If CLng(計算3_dgv.Rows(i).Cells(表頭(18)).Value.ToString) = 0 Then : 計算3_dgv.Rows(i).Cells("比例4").Value = "0" : Else
+                計算3_dgv.Rows(i).Cells("比例4").Value = CLng(計算3_dgv.Rows(i).Cells(表頭(20)).Value.ToString) / CLng(計算3_dgv.Rows(i).Cells(表頭(18)).Value.ToString) * 100
+                If CLng(計算3_dgv.Rows(i).Cells("比例4").Value) > 100 Then : 計算3_dgv.Rows(i).Cells("比例4").Value = "100" : End If
+            End If : RadTrackBar1.Maximum = 計算3_dgv.Rows.Count : RadTrackBar1.Value = 1
+            If 計算3_dgv.Rows.Count > 10 Then : RadTrackBar1.Visible = True : Else : RadTrackBar1.Visible = False : End If
+        Next
+        '-------------------------合計DGV變形----------------------------------------------------------------------------------------------------------------------
+        If IsVerticalScrollBarVisible(計算3_dgv) Then : 合計2_dgv.Size = New Size(計算3_dgv.Size.Width - 17, 合計2_dgv.Size.Height)
+        Else : 合計2_dgv.Size = New Size(計算3_dgv.Size.Width, 合計2_dgv.Size.Height) : End If
+    End Sub
+    Private Sub Set_進度條顯示1()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "請款比例"
+        }
+        Col.HeaderText = "Percent (%)" : Col.Name = "容量" : Col.DataPropertyName = "比例1" : 計算2_dgv.Columns.Insert(8, Col)
+    End Sub
+    Private Sub Set_進度條顯示2()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "請款比例"
+        }
+        Col.HeaderText = "Percent (%)" : Col.Name = "容量" : Col.DataPropertyName = "比例2" : 計算2_dgv.Columns.Insert(12, Col)
+    End Sub
+    Private Sub Set_進度條顯示3()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "請款比例"
+        }
+        Col.HeaderText = "Percent (%)" : Col.Name = "容量" : Col.DataPropertyName = "比例3" : 計算2_dgv.Columns.Insert(16, Col)
+    End Sub
+    Private Sub Set_進度條顯示4()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "請款比例"
+        }
+        Col.HeaderText = "Percent (%)" : Col.Name = "容量" : Col.DataPropertyName = "比例4" : 計算2_dgv.Columns.Insert(20, Col)
+    End Sub
+    Private Sub Set_進度條顯示5()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "請款比例"
+        }
+        Col.HeaderText = "Percent (%)" : Col.Name = "容量" : Col.DataPropertyName = "比例1" : 合計2_dgv.Columns.Insert(8, Col)
+    End Sub
+    Private Sub Set_進度條顯示6()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "請款比例"
+        }
+        Col.HeaderText = "Percent (%)" : Col.Name = "容量" : Col.DataPropertyName = "比例2" : 合計2_dgv.Columns.Insert(12, Col)
+    End Sub
+    Private Sub Set_進度條顯示7()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "請款比例"
+        }
+        Col.HeaderText = "Percent (%)" : Col.Name = "容量" : Col.DataPropertyName = "比例3" : 合計2_dgv.Columns.Insert(16, Col)
+    End Sub
+    Private Sub Set_進度條顯示8()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "請款比例"
+        }
+        Col.HeaderText = "Percent (%)" : Col.Name = "容量" : Col.DataPropertyName = "比例4" : 合計2_dgv.Columns.Insert(20, Col)
+    End Sub
+    Private Sub Set_進度條顯示9()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "請款比例"
+        }
+        Col.HeaderText = "Percent (%)" : Col.Name = "容量" : Col.DataPropertyName = "比例1" : 計算3_dgv.Columns.Insert(8, Col)
+    End Sub
+    Private Sub Set_進度條顯示10()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "請款比例"
+        }
+        Col.HeaderText = "Percent (%)" : Col.Name = "容量" : Col.DataPropertyName = "比例2" : 計算3_dgv.Columns.Insert(12, Col)
+    End Sub
+    Private Sub Set_進度條顯示11()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "請款比例"
+        }
+        Col.HeaderText = "Percent (%)" : Col.Name = "容量" : Col.DataPropertyName = "比例3" : 計算3_dgv.Columns.Insert(16, Col)
+    End Sub
+    Private Sub Set_進度條顯示12()
+        Dim Col As New DataGridViewProgressColumn With {
+            .Width = 30,
+            .DataPropertyName = "請款比例"
+        }
+        Col.HeaderText = "Percent (%)" : Col.Name = "容量" : Col.DataPropertyName = "比例4" : 計算3_dgv.Columns.Insert(20, Col)
+    End Sub
+    Private Sub 彙總()
+        Chart3.Series.Clear() : Chart1.ChartAreas.Clear() : Chart1.ChartAreas.Add(0)
+        Chart3.Series.Add(表頭(12)) : Chart3.Series(表頭(12)).ChartType = SeriesChartType.Pie
+        Chart3.Series(表頭(12)).IsValueShownAsLabel = True : Chart3.Series(表頭(12)).IsVisibleInLegend = True : Chart3.Series(表頭(12)).IsXValueIndexed = True
+        Chart3.ChartAreas(0).BackColor = Color.Transparent : Chart3.Legends(0).BackColor = Color.Transparent
+        For i As Integer = 0 To 計算1_dgv.Rows.Count - 1
+            Chart3.Series(表頭(12)).Points.AddXY(計算1_dgv.Rows(i).Cells(0).Value.ToString, Format(計算1_dgv.Rows(i).Cells(表頭(12)).Value, "#,##0"))
+        Next
+
+        Chart1.Series.Clear()
+        If 選款項 = True Then
+            If B1.Checked = True Then : Chart1.Series.Add(表頭(14)) : Chart1.Series(表頭(14)).ChartType = SeriesChartType.Column : End If
+            If B2.Checked = True Then : Chart1.Series.Add(表頭(15)) : Chart1.Series(表頭(15)).ChartType = SeriesChartType.Column : End If
+            If B3.Checked = True Then : Chart1.Series.Add(表頭(16)) : Chart1.Series(表頭(16)).ChartType = SeriesChartType.Column : End If
+            If B4.Checked = True Then : Chart1.Series.Add(表頭(17)) : Chart1.Series(表頭(17)).ChartType = SeriesChartType.Column : End If
+        Else
+            If B1.Checked = True Then : Chart1.Series.Add(表頭(18)) : Chart1.Series(表頭(18)).ChartType = SeriesChartType.Column : End If
+            If B2.Checked = True Then : Chart1.Series.Add(表頭(19)) : Chart1.Series(表頭(19)).ChartType = SeriesChartType.Column : End If
+            If B3.Checked = True Then : Chart1.Series.Add(表頭(20)) : Chart1.Series(表頭(20)).ChartType = SeriesChartType.Column : End If
+            If B4.Checked = True Then : Chart1.Series.Add(表頭(21)) : Chart1.Series(表頭(21)).ChartType = SeriesChartType.Column : End If
+        End If
+        Chart1.ChartAreas(0).BackColor = Color.Transparent : Chart1.Legends(0).BackColor = Color.Transparent
+        Chart1.ChartAreas(0).AxisY.LabelStyle.Font = New Font("Arial", 8) : Chart1.ChartAreas(0).AxisY.LabelStyle.Format = "#,##0" & " M"
+        For i As Integer = 0 To 計算2_dgv.Rows.Count - 1
+            If 選款項 = True Then
+                If B1.Checked = True Then : Chart1.Series(表頭(14)).Points.AddXY(計算2_dgv.Rows(i).Cells(0).Value.ToString, CLng(計算2_dgv.Rows(i).Cells(表頭(14)).Value.ToString) / 1000000) : End If
+                If B2.Checked = True Then : Chart1.Series(表頭(15)).Points.AddXY(計算2_dgv.Rows(i).Cells(0).Value.ToString, CLng(計算2_dgv.Rows(i).Cells(表頭(15)).Value.ToString) / 1000000) : End If
+                If B3.Checked = True Then : Chart1.Series(表頭(16)).Points.AddXY(計算2_dgv.Rows(i).Cells(0).Value.ToString, CLng(計算2_dgv.Rows(i).Cells(表頭(16)).Value.ToString) / 1000000) : End If
+                If B4.Checked = True Then : Chart1.Series(表頭(17)).Points.AddXY(計算2_dgv.Rows(i).Cells(0).Value.ToString, CLng(計算2_dgv.Rows(i).Cells(表頭(17)).Value.ToString) / 1000000) : End If
+            Else
+                If B1.Checked = True Then : Chart1.Series(表頭(18)).Points.AddXY(計算2_dgv.Rows(i).Cells(0).Value.ToString, CLng(計算2_dgv.Rows(i).Cells(表頭(18)).Value.ToString) / 1000000) : End If
+                If B2.Checked = True Then : Chart1.Series(表頭(19)).Points.AddXY(計算2_dgv.Rows(i).Cells(0).Value.ToString, CLng(計算2_dgv.Rows(i).Cells(表頭(19)).Value.ToString) / 1000000) : End If
+                If B3.Checked = True Then : Chart1.Series(表頭(20)).Points.AddXY(計算2_dgv.Rows(i).Cells(0).Value.ToString, CLng(計算2_dgv.Rows(i).Cells(表頭(20)).Value.ToString) / 1000000) : End If
+                If B4.Checked = True Then : Chart1.Series(表頭(21)).Points.AddXY(計算2_dgv.Rows(i).Cells(0).Value.ToString, CLng(計算2_dgv.Rows(i).Cells(表頭(21)).Value.ToString) / 1000000) : End If
+            End If
+        Next
+
+        If 深色風格 = False Then
+            Chart3.Series(表頭(12)).LabelForeColor = Color.Blue
+            If 選款項 = True Then
+                If B1.Checked = True Then : Chart1.Series(表頭(14)).LabelForeColor = Color.Blue : End If
+                If B2.Checked = True Then : Chart1.Series(表頭(15)).LabelForeColor = Color.Blue : End If
+                If B3.Checked = True Then : Chart1.Series(表頭(16)).LabelForeColor = Color.Blue : End If
+                If B4.Checked = True Then : Chart1.Series(表頭(17)).LabelForeColor = Color.Blue : End If
+            Else
+                If B1.Checked = True Then : Chart1.Series(表頭(18)).LabelForeColor = Color.Blue : End If
+                If B2.Checked = True Then : Chart1.Series(表頭(19)).LabelForeColor = Color.Blue : End If
+                If B3.Checked = True Then : Chart1.Series(表頭(20)).LabelForeColor = Color.Blue : End If
+                If B4.Checked = True Then : Chart1.Series(表頭(21)).LabelForeColor = Color.Blue : End If
+            End If
+            Chart3.Legends(0).ForeColor = Color.Black : Chart1.Legends(0).ForeColor = Color.Black
+            Chart1.ChartAreas(0).AxisX.MajorGrid.LineColor = Color.Black : Chart1.ChartAreas(0).AxisY.MajorGrid.LineColor = Color.Black
+            Chart1.ChartAreas(0).AxisX.LineColor = Color.Black : Chart1.ChartAreas(0).AxisY.LineColor = Color.Black
+            Chart1.ChartAreas(0).AxisX.LabelStyle.ForeColor = Color.Black : Chart1.ChartAreas(0).AxisY.LabelStyle.ForeColor = Color.Black
+        Else
+            Chart3.Series(表頭(12)).LabelForeColor = Color.White
+            If 選款項 = True Then
+                If B1.Checked = True Then : Chart1.Series(表頭(14)).LabelForeColor = Color.White : End If
+                If B2.Checked = True Then : Chart1.Series(表頭(15)).LabelForeColor = Color.White : End If
+                If B3.Checked = True Then : Chart1.Series(表頭(16)).LabelForeColor = Color.White : End If
+                If B4.Checked = True Then : Chart1.Series(表頭(17)).LabelForeColor = Color.White : End If
+            Else
+                If B1.Checked = True Then : Chart1.Series(表頭(18)).LabelForeColor = Color.White : End If
+                If B2.Checked = True Then : Chart1.Series(表頭(19)).LabelForeColor = Color.White : End If
+                If B3.Checked = True Then : Chart1.Series(表頭(20)).LabelForeColor = Color.White : End If
+                If B4.Checked = True Then : Chart1.Series(表頭(21)).LabelForeColor = Color.White : End If
+            End If
+            Chart3.Legends(0).ForeColor = Color.White : Chart1.Legends(0).ForeColor = Color.White
+            Chart1.ChartAreas(0).AxisX.MajorGrid.LineColor = Color.White : Chart1.ChartAreas(0).AxisY.MajorGrid.LineColor = Color.White
+            Chart1.ChartAreas(0).AxisX.LineColor = Color.White : Chart1.ChartAreas(0).AxisY.LineColor = Color.White
+            Chart1.ChartAreas(0).AxisX.LabelStyle.ForeColor = Color.White : Chart1.ChartAreas(0).AxisY.LabelStyle.ForeColor = Color.White
+        End If
+    End Sub
+    Private Sub RadTrackBar1_ValueChanged(sender As Object, e As EventArgs) Handles RadTrackBar1.RangeValueChanged
+        If 首次開啟 = True Then : Else
+            If RadTrackBar1.Maximum >= 10 Then : If RadTrackBar1.Value > RadTrackBar1.Maximum - 9 Then : RadTrackBar1.Value = RadTrackBar1.Maximum - 9 : End If : 彙總1() : Else : 彙總1() : End If
+        End If
+    End Sub
+    Private Sub 彙總1()
+        Chart1.Series.Clear() : Chart1.ChartAreas.Clear() : Chart1.ChartAreas.Add(0)
+        If 選款項 = True Then
+            If B1.Checked = True Then : Chart1.Series.Add(表頭(14)) : Chart1.Series(表頭(14)).ChartType = SeriesChartType.Column : End If
+            If B2.Checked = True Then : Chart1.Series.Add(表頭(15)) : Chart1.Series(表頭(15)).ChartType = SeriesChartType.Column : End If
+            If B3.Checked = True Then : Chart1.Series.Add(表頭(16)) : Chart1.Series(表頭(16)).ChartType = SeriesChartType.Column : End If
+            If B4.Checked = True Then : Chart1.Series.Add(表頭(17)) : Chart1.Series(表頭(17)).ChartType = SeriesChartType.Column : End If
+        Else
+            If B1.Checked = True Then : Chart1.Series.Add(表頭(18)) : Chart1.Series(表頭(18)).ChartType = SeriesChartType.Column : End If
+            If B2.Checked = True Then : Chart1.Series.Add(表頭(19)) : Chart1.Series(表頭(19)).ChartType = SeriesChartType.Column : End If
+            If B3.Checked = True Then : Chart1.Series.Add(表頭(20)) : Chart1.Series(表頭(20)).ChartType = SeriesChartType.Column : End If
+            If B4.Checked = True Then : Chart1.Series.Add(表頭(21)) : Chart1.Series(表頭(21)).ChartType = SeriesChartType.Column : End If
+        End If
+        Chart1.ChartAreas(0).BackColor = Color.Transparent : Chart1.Legends(0).BackColor = Color.Transparent
+        Chart1.ChartAreas(0).AxisY.LabelStyle.Font = New Font("Arial", 8) : Chart1.ChartAreas(0).AxisY.LabelStyle.Format = "#,##0" & " M"
+
+        Dim 位置1, 位置2 As Integer
+        If RadTrackBar1.Maximum <= 10 Then : 位置1 = 1 : 位置2 = RadTrackBar1.Maximum
+        Else : 位置1 = RadTrackBar1.Value : 位置2 = RadTrackBar1.Value + 9 : End If
+        For i As Integer = 位置1 - 1 To 位置2 - 1
+            If 選款項 = True Then
+                If B1.Checked = True Then : Chart1.Series(表頭(14)).Points.AddXY(計算3_dgv.Rows(i).Cells(0).Value.ToString, CLng(計算3_dgv.Rows(i).Cells(表頭(14)).Value.ToString) / 1000000) : End If
+                If B2.Checked = True Then : Chart1.Series(表頭(15)).Points.AddXY(計算3_dgv.Rows(i).Cells(0).Value.ToString, CLng(計算3_dgv.Rows(i).Cells(表頭(15)).Value.ToString) / 1000000) : End If
+                If B3.Checked = True Then : Chart1.Series(表頭(16)).Points.AddXY(計算3_dgv.Rows(i).Cells(0).Value.ToString, CLng(計算3_dgv.Rows(i).Cells(表頭(16)).Value.ToString) / 1000000) : End If
+                If B4.Checked = True Then : Chart1.Series(表頭(17)).Points.AddXY(計算3_dgv.Rows(i).Cells(0).Value.ToString, CLng(計算3_dgv.Rows(i).Cells(表頭(17)).Value.ToString) / 1000000) : End If
+            Else
+                If B1.Checked = True Then : Chart1.Series(表頭(18)).Points.AddXY(計算3_dgv.Rows(i).Cells(0).Value.ToString, CLng(計算3_dgv.Rows(i).Cells(表頭(18)).Value.ToString) / 1000000) : End If
+                If B2.Checked = True Then : Chart1.Series(表頭(19)).Points.AddXY(計算3_dgv.Rows(i).Cells(0).Value.ToString, CLng(計算3_dgv.Rows(i).Cells(表頭(19)).Value.ToString) / 1000000) : End If
+                If B3.Checked = True Then : Chart1.Series(表頭(20)).Points.AddXY(計算3_dgv.Rows(i).Cells(0).Value.ToString, CLng(計算3_dgv.Rows(i).Cells(表頭(20)).Value.ToString) / 1000000) : End If
+                If B4.Checked = True Then : Chart1.Series(表頭(21)).Points.AddXY(計算3_dgv.Rows(i).Cells(0).Value.ToString, CLng(計算3_dgv.Rows(i).Cells(表頭(21)).Value.ToString) / 1000000) : End If
+            End If
+        Next
+
+        If 深色風格 = False Then
+            Chart3.Series(表頭(12)).LabelForeColor = Color.Blue
+            If 選款項 = True Then
+                If B1.Checked = True Then : Chart1.Series(表頭(14)).LabelForeColor = Color.Blue : End If
+                If B2.Checked = True Then : Chart1.Series(表頭(15)).LabelForeColor = Color.Blue : End If
+                If B3.Checked = True Then : Chart1.Series(表頭(16)).LabelForeColor = Color.Blue : End If
+                If B4.Checked = True Then : Chart1.Series(表頭(17)).LabelForeColor = Color.Blue : End If
+            Else
+                If B1.Checked = True Then : Chart1.Series(表頭(18)).LabelForeColor = Color.Blue : End If
+                If B2.Checked = True Then : Chart1.Series(表頭(19)).LabelForeColor = Color.Blue : End If
+                If B3.Checked = True Then : Chart1.Series(表頭(20)).LabelForeColor = Color.Blue : End If
+                If B4.Checked = True Then : Chart1.Series(表頭(21)).LabelForeColor = Color.Blue : End If
+            End If
+            Chart3.Legends(0).ForeColor = Color.Black : Chart1.Legends(0).ForeColor = Color.Black
+            Chart1.ChartAreas(0).AxisX.MajorGrid.LineColor = Color.Black : Chart1.ChartAreas(0).AxisY.MajorGrid.LineColor = Color.Black
+            Chart1.ChartAreas(0).AxisX.LineColor = Color.Black : Chart1.ChartAreas(0).AxisY.LineColor = Color.Black
+            Chart1.ChartAreas(0).AxisX.LabelStyle.ForeColor = Color.Black : Chart1.ChartAreas(0).AxisY.LabelStyle.ForeColor = Color.Black
+        Else
+            Chart3.Series(表頭(12)).LabelForeColor = Color.White
+            If 選款項 = True Then
+                If B1.Checked = True Then : Chart1.Series(表頭(14)).LabelForeColor = Color.White : End If
+                If B2.Checked = True Then : Chart1.Series(表頭(15)).LabelForeColor = Color.White : End If
+                If B3.Checked = True Then : Chart1.Series(表頭(16)).LabelForeColor = Color.White : End If
+                If B4.Checked = True Then : Chart1.Series(表頭(17)).LabelForeColor = Color.White : End If
+            Else
+                If B1.Checked = True Then : Chart1.Series(表頭(18)).LabelForeColor = Color.White : End If
+                If B2.Checked = True Then : Chart1.Series(表頭(19)).LabelForeColor = Color.White : End If
+                If B3.Checked = True Then : Chart1.Series(表頭(20)).LabelForeColor = Color.White : End If
+                If B4.Checked = True Then : Chart1.Series(表頭(21)).LabelForeColor = Color.White : End If
+            End If
+            Chart3.Legends(0).ForeColor = Color.White : Chart1.Legends(0).ForeColor = Color.White
+            Chart1.ChartAreas(0).AxisX.MajorGrid.LineColor = Color.White : Chart1.ChartAreas(0).AxisY.MajorGrid.LineColor = Color.White
+            Chart1.ChartAreas(0).AxisX.LineColor = Color.White : Chart1.ChartAreas(0).AxisY.LineColor = Color.White
+            Chart1.ChartAreas(0).AxisX.LabelStyle.ForeColor = Color.White : Chart1.ChartAreas(0).AxisY.LabelStyle.ForeColor = Color.White
+        End If
+    End Sub
+    Private Sub 收款狀態報表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        HX_PGS_ERP_SYS.WindowState = 2 : Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True : 首次開啟 = True
+        HX_PGS_ERP_SYS.MaximizeBox = False : HX_PGS_ERP_SYS.MinimizeBox = False
+        分母 = 100 : 分段1 = 0.35 : 分段2 = 0.34 : 分段3 = 0.65 : 分段4 = 0.64 : 進度條後墜 = " %"
+        風格() : H(310) = True : 介面 = "H310" : 語言轉換讀取() : 顯示說明(999, False)
+        Panel1.SendToBack() : Panel2.BringToFront() : Panel4.BringToFront() : 計算2_dgv.Visible = True : 計算3_dgv.Visible = False
+        RadTrackBar1.Visible = False
+        If 登入人級別 = "00" Then
+            縮放2_bt.Visible = True : 清單_bt.Visible = True : 圖表_bt.Visible = True
+        Else
+            縮放2_bt.Visible = False : 清單_bt.Visible = False : 圖表_bt.Visible = False
+        End If
+        MyMod.清單字體大小調整()
+        合計1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+        合計2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+        計算3_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+        計算2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+        計算1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+        計算_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+        甲方_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+        彙總_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+        請款清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
+    End Sub
+    Private Sub 收款狀態報表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        Set_合約甲方() : 選款項 = True : Set_合約清單() : 首次開啟 = False
+    End Sub
+    Private Sub 收款確認表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
+        HX_PGS_ERP_SYS.WindowState = 0 : HX_PGS_ERP_SYS.MaximizeBox = True : HX_PGS_ERP_SYS.MinimizeBox = True
+        HX_PGS_ERP_SYS.WindowState = 0 : H(310) = False : MyMod.虛擬桌面開啟()
+    End Sub
+    Private Sub 系統說明_bt_Click(sender As Object, e As EventArgs) Handles 系統說明_bt.Click
+        介面 = "H310"
+    End Sub
+    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
+        H(310) = True : 介面 = "H310" : 語言轉換讀取()
+    End Sub
+    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
+        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
+    End Sub
+    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
+        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
+    End Sub
+    Private Sub 彙總_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 彙總_dgv.CellFormatting
+        If e.Value IsNot Nothing Then
+            If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then
+                If 深色風格 = False Then : e.CellStyle.ForeColor = Color.Red : Else : e.CellStyle.ForeColor = Color.LightPink : End If
+            End If
+        End If
+    End Sub
+    Private Sub 計算2_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 計算2_dgv.MouseUp
+        'If 清單_dgv.SelectedCells.Count = 1 Then : MsgBox(清單_dgv.SelectedCells(0).ColumnIndex & "  " & 清單_dgv.SelectedCells(0).RowIndex) : End If
+        If 計算2_dgv.SelectedCells.Count > 0 Then
+            If 計算2_dgv.SelectedCells(0).ColumnIndex = 0 Then
+                PA = 計算2_dgv.Rows(計算2_dgv.SelectedCells(0).RowIndex).Cells(0).Value.ToString : Set_合約報表計算2()
+                計算2_dgv.Visible = False : 計算3_dgv.Visible = True
+                合計2_dgv.Rows(0).Cells("工程總價").Value = CLng(計算2_dgv.Rows(計算2_dgv.SelectedCells(0).RowIndex).Cells(表頭(13)).Value.ToString)
+                合計2_dgv.Rows(0).Cells("總報價").Value = CLng(計算2_dgv.Rows(計算2_dgv.SelectedCells(0).RowIndex).Cells("總報價").Value.ToString)
+                合計2_dgv.Rows(0).Cells("稅金").Value = CLng(計算2_dgv.Rows(計算2_dgv.SelectedCells(0).RowIndex).Cells("稅金").Value.ToString)
+                合計2_dgv.Rows(0).Cells("已請款").Value = CLng(計算2_dgv.Rows(計算2_dgv.SelectedCells(0).RowIndex).Cells(表頭(14)).Value.ToString)
+                合計2_dgv.Rows(0).Cells("未請款").Value = CLng(計算2_dgv.Rows(計算2_dgv.SelectedCells(0).RowIndex).Cells(表頭(15)).Value.ToString)
+                合計2_dgv.Rows(0).Cells("已請稅").Value = CLng(計算2_dgv.Rows(計算2_dgv.SelectedCells(0).RowIndex).Cells(表頭(18)).Value.ToString)
+                合計2_dgv.Rows(0).Cells("未請稅").Value = CLng(計算2_dgv.Rows(計算2_dgv.SelectedCells(0).RowIndex).Cells(表頭(19)).Value.ToString)
+                合計2_dgv.Rows(0).Cells("已收款").Value = CLng(計算2_dgv.Rows(計算2_dgv.SelectedCells(0).RowIndex).Cells(表頭(16)).Value.ToString)
+                合計2_dgv.Rows(0).Cells("已請未收款").Value = CLng(計算2_dgv.Rows(計算2_dgv.SelectedCells(0).RowIndex).Cells(表頭(17)).Value.ToString)
+                合計2_dgv.Rows(0).Cells("已收稅").Value = CLng(計算2_dgv.Rows(計算2_dgv.SelectedCells(0).RowIndex).Cells(表頭(20)).Value.ToString)
+                合計2_dgv.Rows(0).Cells("已請未收稅").Value = CLng(計算2_dgv.Rows(計算2_dgv.SelectedCells(0).RowIndex).Cells(表頭(21)).Value.ToString)
+                合計2_dgv.Rows(0).Cells("比例1").Value = CLng(計算2_dgv.Rows(計算2_dgv.SelectedCells(0).RowIndex).Cells("比例1").Value.ToString)
+                合計2_dgv.Rows(0).Cells("比例2").Value = CLng(計算2_dgv.Rows(計算2_dgv.SelectedCells(0).RowIndex).Cells("比例2").Value.ToString)
+                合計2_dgv.Rows(0).Cells("比例3").Value = CLng(計算2_dgv.Rows(計算2_dgv.SelectedCells(0).RowIndex).Cells("比例3").Value.ToString)
+                合計2_dgv.Rows(0).Cells("比例4").Value = CLng(計算2_dgv.Rows(計算2_dgv.SelectedCells(0).RowIndex).Cells("比例4").Value.ToString)
+                彙總1()
+                A1.Enabled = False : A2.Enabled = False : A3.Enabled = False : A4.Enabled = False : A5.Enabled = False : A6.Enabled = False : A7.Enabled = False : A8.Enabled = False
+                A9.Enabled = False : A10.Enabled = False : A11.Enabled = False : A12.Enabled = False : A13.Enabled = False : A14.Enabled = False : A15.Enabled = False : A16.Enabled = False
+                A17.Enabled = False : A18.Enabled = False : A19.Enabled = False : A20.Enabled = False
+            End If
+        End If
+    End Sub
+    Private Sub 回首頁_bt_Click(sender As Object, e As EventArgs) Handles 回首頁_bt.Click
+        計算2_dgv.Visible = True : 計算3_dgv.Visible = False
+        合計2_dgv.Rows(0).Cells("工程總價").Value = "0" : 合計2_dgv.Rows(0).Cells("總報價").Value = "0"
+        合計2_dgv.Rows(0).Cells("稅金").Value = "0" : 合計2_dgv.Rows(0).Cells("已請款").Value = "0" : 合計2_dgv.Rows(0).Cells("未請款").Value = "0"
+        合計2_dgv.Rows(0).Cells("已請稅").Value = "0" : 合計2_dgv.Rows(0).Cells("未請稅").Value = "0" : 合計2_dgv.Rows(0).Cells("已收款").Value = "0"
+        合計2_dgv.Rows(0).Cells("已請未收款").Value = "0" : 合計2_dgv.Rows(0).Cells("已收稅").Value = "0" : 合計2_dgv.Rows(0).Cells("已請未收稅").Value = "0"
+        For i As Integer = 0 To 計算_dgv.Rows.Count - 1
+            合計2_dgv.Rows(0).Cells("工程總價").Value = CLng(合計2_dgv.Rows(0).Cells("工程總價").Value.ToString) + CLng(計算2_dgv.Rows(i).Cells(表頭(13)).Value.ToString)
+            合計2_dgv.Rows(0).Cells("總報價").Value = CLng(合計2_dgv.Rows(0).Cells("總報價").Value.ToString) + CLng(計算2_dgv.Rows(i).Cells("總報價").Value.ToString)
+            合計2_dgv.Rows(0).Cells("稅金").Value = CLng(合計2_dgv.Rows(0).Cells("稅金").Value.ToString) + CLng(計算2_dgv.Rows(i).Cells("稅金").Value.ToString)
+            合計2_dgv.Rows(0).Cells("已請款").Value = CLng(合計2_dgv.Rows(0).Cells("已請款").Value.ToString) + CLng(計算2_dgv.Rows(i).Cells(表頭(14)).Value.ToString)
+            合計2_dgv.Rows(0).Cells("未請款").Value = CLng(合計2_dgv.Rows(0).Cells("未請款").Value.ToString) + CLng(計算2_dgv.Rows(i).Cells(表頭(15)).Value.ToString)
+            合計2_dgv.Rows(0).Cells("已請稅").Value = CLng(合計2_dgv.Rows(0).Cells("已請稅").Value.ToString) + CLng(計算2_dgv.Rows(i).Cells(表頭(18)).Value.ToString)
+            合計2_dgv.Rows(0).Cells("未請稅").Value = CLng(合計2_dgv.Rows(0).Cells("未請稅").Value.ToString) + CLng(計算2_dgv.Rows(i).Cells(表頭(19)).Value.ToString)
+            合計2_dgv.Rows(0).Cells("已收款").Value = CLng(合計2_dgv.Rows(0).Cells("已收款").Value.ToString) + CLng(計算2_dgv.Rows(i).Cells(表頭(16)).Value.ToString)
+            合計2_dgv.Rows(0).Cells("已請未收款").Value = CLng(合計2_dgv.Rows(0).Cells("已請未收款").Value.ToString) + CLng(計算2_dgv.Rows(i).Cells(表頭(17)).Value.ToString)
+            合計2_dgv.Rows(0).Cells("已收稅").Value = CLng(合計2_dgv.Rows(0).Cells("已收稅").Value.ToString) + CLng(計算2_dgv.Rows(i).Cells(表頭(20)).Value.ToString)
+            合計2_dgv.Rows(0).Cells("已請未收稅").Value = CLng(合計2_dgv.Rows(0).Cells("已請未收稅").Value.ToString) + CLng(計算2_dgv.Rows(i).Cells(表頭(21)).Value.ToString)
+        Next
+        If CLng(合計2_dgv.Rows(0).Cells("總報價").Value.ToString) = 0 Then : 合計2_dgv.Rows(0).Cells("比例1").Value = "0" : Else
+            合計2_dgv.Rows(0).Cells("比例1").Value = CLng(合計2_dgv.Rows(0).Cells("已請款").Value.ToString) / CLng(合計2_dgv.Rows(0).Cells("總報價").Value.ToString) * 100
+            If CLng(合計2_dgv.Rows(0).Cells("比例1").Value) > 100 Then : 合計2_dgv.Rows(0).Cells("比例1").Value = "100" : End If
+        End If
+        If CLng(合計2_dgv.Rows(0).Cells("已請款").Value.ToString) = 0 Then : 合計2_dgv.Rows(0).Cells("比例2").Value = "0" : Else
+            合計2_dgv.Rows(0).Cells("比例2").Value = CLng(合計2_dgv.Rows(0).Cells("已收款").Value.ToString) / CLng(合計2_dgv.Rows(0).Cells("已請款").Value.ToString) * 100
+            If CLng(合計2_dgv.Rows(0).Cells("比例2").Value) > 100 Then : 合計2_dgv.Rows(0).Cells("比例2").Value = "100" : End If
+        End If
+        If CLng(合計2_dgv.Rows(0).Cells("稅金").Value.ToString) = 0 Then : 合計2_dgv.Rows(0).Cells("比例3").Value = "0" : Else
+            合計2_dgv.Rows(0).Cells("比例3").Value = CLng(合計2_dgv.Rows(0).Cells("已請稅").Value.ToString) / CLng(合計2_dgv.Rows(0).Cells("稅金").Value.ToString) * 100
+            If CLng(合計2_dgv.Rows(0).Cells("比例3").Value) > 100 Then : 合計2_dgv.Rows(0).Cells("比例3").Value = "100" : End If
+        End If
+        If CLng(合計2_dgv.Rows(0).Cells("已請稅").Value.ToString) = 0 Then : 合計2_dgv.Rows(0).Cells("比例4").Value = "0" : Else
+            合計2_dgv.Rows(0).Cells("比例4").Value = CLng(合計2_dgv.Rows(0).Cells("已收稅").Value.ToString) / CLng(合計2_dgv.Rows(0).Cells("已請稅").Value.ToString) * 100
+            If CLng(合計2_dgv.Rows(0).Cells("比例4").Value) > 100 Then : 合計2_dgv.Rows(0).Cells("比例4").Value = "100" : End If
+        End If : 彙總() : RadTrackBar1.Visible = False
+        A1.Enabled = True : A2.Enabled = True : A3.Enabled = True : A4.Enabled = True : A5.Enabled = True : A6.Enabled = True : A7.Enabled = True : A8.Enabled = True
+        A9.Enabled = True : A10.Enabled = True : A11.Enabled = True : A12.Enabled = True : A13.Enabled = True : A14.Enabled = True : A15.Enabled = True : A16.Enabled = True
+        A17.Enabled = True : A18.Enabled = True : A19.Enabled = True : A20.Enabled = True
+        '-------------------------合計DGV變形----------------------------------------------------------------------------------------------------------------------
+        If IsVerticalScrollBarVisible(計算2_dgv) Then : 合計2_dgv.Size = New Size(計算2_dgv.Size.Width - 17, 合計2_dgv.Size.Height)
+        Else : 合計2_dgv.Size = New Size(計算2_dgv.Size.Width, 合計2_dgv.Size.Height) : End If
+    End Sub
+    Private Sub 款項_bt_Click(sender As Object, e As EventArgs) Handles 款項_bt.Click
+        If 計算2_dgv.Visible = True And 計算3_dgv.Visible = False Then : 選款項 = True : 彙總() : Else : 選款項 = True : 彙總1() : End If
+    End Sub
+    Private Sub 稅額_bt_Click(sender As Object, e As EventArgs) Handles 稅額_bt.Click
+        If 計算2_dgv.Visible = True And 計算3_dgv.Visible = False Then : 選款項 = False : 彙總() : Else : 選款項 = False : 彙總1() : End If
+    End Sub
+    Private Sub 縮放2_bt_Click(sender As Object, e As EventArgs) Handles 縮放2_bt.Click
+        Panel2.SendToBack() : Panel3.BringToFront() : Panel2.Visible = False : Panel3.Visible = True
+    End Sub
+    Private Sub 縮放1_bt_Click(sender As Object, e As EventArgs) Handles 縮放1_bt.Click
+        Panel2.BringToFront() : Panel3.SendToBack() : Panel2.Visible = True : Panel3.Visible = False
+    End Sub
+    Private Sub 圖表_bt_Click(sender As Object, e As EventArgs) Handles 圖表_bt.Click
+        Panel4.BringToFront() : 計算_dgv.SendToBack()
+    End Sub
+    Private Sub 清單_bt_Click(sender As Object, e As EventArgs) Handles 清單_bt.Click
+        Panel4.SendToBack() : 計算_dgv.BringToFront()
+    End Sub
+    Private Sub B1_CheckedChanged(sender As Object, e As EventArgs) Handles B1.Click
+        If 計算2_dgv.Visible = True And 計算3_dgv.Visible = False Then : 彙總() : Else : 彙總1() : End If
+    End Sub
+    Private Sub B2_CheckedChanged(sender As Object, e As EventArgs) Handles B2.Click
+        If 計算2_dgv.Visible = True And 計算3_dgv.Visible = False Then : 彙總() : Else : 彙總1() : End If
+    End Sub
+    Private Sub B3_CheckedChanged(sender As Object, e As EventArgs) Handles B3.Click
+        If 計算2_dgv.Visible = True And 計算3_dgv.Visible = False Then : 彙總() : Else : 彙總1() : End If
+    End Sub
+    Private Sub B4_CheckedChanged(sender As Object, e As EventArgs) Handles B4.Click
+        If 計算2_dgv.Visible = True And 計算3_dgv.Visible = False Then : 彙總() : Else : 彙總1() : End If
+    End Sub
+    Private Sub A1_CheckedChanged(sender As Object, e As EventArgs) Handles A1.Click
+        Set_合約清單()
+    End Sub
+    Private Sub A2_CheckedChanged(sender As Object, e As EventArgs) Handles A2.Click
+        Set_合約清單()
+    End Sub
+    Private Sub A3_CheckedChanged(sender As Object, e As EventArgs) Handles A3.Click
+        Set_合約清單()
+    End Sub
+    Private Sub A4_CheckedChanged(sender As Object, e As EventArgs) Handles A4.Click
+        Set_合約清單()
+    End Sub
+    Private Sub A5_CheckedChanged(sender As Object, e As EventArgs) Handles A5.Click
+        Set_合約清單()
+    End Sub
+    Private Sub A6_CheckedChanged(sender As Object, e As EventArgs) Handles A6.Click
+        Set_合約清單()
+    End Sub
+    Private Sub A7_CheckedChanged(sender As Object, e As EventArgs) Handles A7.Click
+        Set_合約清單()
+    End Sub
+    Private Sub A8_CheckedChanged(sender As Object, e As EventArgs) Handles A8.Click
+        Set_合約清單()
+    End Sub
+    Private Sub A9_CheckedChanged(sender As Object, e As EventArgs) Handles A9.Click
+        Set_合約清單()
+    End Sub
+    Private Sub A10_CheckedChanged(sender As Object, e As EventArgs) Handles A10.Click
+        Set_合約清單()
+    End Sub
+    Private Sub A11_CheckedChanged(sender As Object, e As EventArgs) Handles A11.Click
+        Set_合約清單()
+    End Sub
+    Private Sub A12_CheckedChanged(sender As Object, e As EventArgs) Handles A12.Click
+        Set_合約清單()
+    End Sub
+    Private Sub A13_CheckedChanged(sender As Object, e As EventArgs) Handles A13.Click
+        Set_合約清單()
+    End Sub
+    Private Sub A14_CheckedChanged(sender As Object, e As EventArgs) Handles A14.Click
+        Set_合約清單()
+    End Sub
+    Private Sub A15_CheckedChanged(sender As Object, e As EventArgs) Handles A15.Click
+        Set_合約清單()
+    End Sub
+    Private Sub A16_CheckedChanged(sender As Object, e As EventArgs) Handles A16.Click
+        Set_合約清單()
+    End Sub
+    Private Sub A17_CheckedChanged(sender As Object, e As EventArgs) Handles A17.Click
+        Set_合約清單()
+    End Sub
+    Private Sub A18_CheckedChanged(sender As Object, e As EventArgs) Handles A18.Click
+        Set_合約清單()
+    End Sub
+    Private Sub A19_CheckedChanged(sender As Object, e As EventArgs) Handles A19.Click
+        Set_合約清單()
+    End Sub
+    Private Sub A20_CheckedChanged(sender As Object, e As EventArgs) Handles A20.Click
+        Set_合約清單()
+    End Sub
+
+    Private Sub 風格()
+        If 深色風格 = False Then
+            Me.BackColor = SystemColors.Control
+            '----------------黑-------------------------------------------
+            語轉扭_bt.BackColor = Color.White
+            系統說明_bt.BackColor = Color.White : 縮放1_bt.BackColor = Color.White : 縮放2_bt.BackColor = Color.White : 圖表_bt.BackColor = Color.White
+            清單_bt.BackColor = Color.White : 回首頁_bt.BackColor = Color.Black
+            For i As Integer = 1 To 20 : Dim 選擇 As CheckBox = CType(Me.Controls.Find("A" & i, True)(0), CheckBox) : 選擇.ForeColor = Color.Black : Next
+            For i As Integer = 1 To 4 : Dim 選擇 As CheckBox = CType(Me.Controls.Find("B" & i, True)(0), CheckBox) : 選擇.ForeColor = Color.Black : Next
+            款項_bt.BackColor = Color.White : 款項_bt.ForeColor = Color.Black : 稅額_bt.BackColor = Color.White : 稅額_bt.ForeColor = Color.Black
+
+            計算3_dgv.EnableHeadersVisualStyles = True : 計算3_dgv.BackgroundColor = Color.White : 計算3_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
+            計算3_dgv.DefaultCellStyle.BackColor = Color.White : 計算3_dgv.DefaultCellStyle.ForeColor = Color.Black : 計算3_dgv.DefaultCellStyle.SelectionBackColor = Color.White
+            計算3_dgv.DefaultCellStyle.SelectionForeColor = Color.Black
+            合計1_dgv.EnableHeadersVisualStyles = True : 合計1_dgv.BackgroundColor = Color.White : 合計1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
+            合計1_dgv.DefaultCellStyle.BackColor = Color.White : 合計1_dgv.DefaultCellStyle.ForeColor = Color.Black : 合計1_dgv.DefaultCellStyle.SelectionBackColor = Color.White
+            合計1_dgv.DefaultCellStyle.SelectionForeColor = Color.Black
+            合計2_dgv.EnableHeadersVisualStyles = True : 合計2_dgv.BackgroundColor = Color.White : 合計2_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
+            合計2_dgv.DefaultCellStyle.BackColor = Color.White : 合計2_dgv.DefaultCellStyle.ForeColor = Color.Black : 合計2_dgv.DefaultCellStyle.SelectionBackColor = Color.White
+            合計2_dgv.DefaultCellStyle.SelectionForeColor = Color.Black
+            計算2_dgv.EnableHeadersVisualStyles = True : 計算2_dgv.BackgroundColor = Color.White : 計算2_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
+            計算2_dgv.DefaultCellStyle.BackColor = Color.White : 計算2_dgv.DefaultCellStyle.ForeColor = Color.Black : 計算2_dgv.DefaultCellStyle.SelectionBackColor = Color.White
+            計算2_dgv.DefaultCellStyle.SelectionForeColor = Color.Black
+            計算1_dgv.EnableHeadersVisualStyles = True : 計算1_dgv.BackgroundColor = Color.White : 計算1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
+            計算1_dgv.DefaultCellStyle.BackColor = Color.White : 計算1_dgv.DefaultCellStyle.ForeColor = Color.Black : 計算1_dgv.DefaultCellStyle.SelectionBackColor = Color.White
+            計算1_dgv.DefaultCellStyle.SelectionForeColor = Color.Black
+            計算_dgv.EnableHeadersVisualStyles = True : 計算_dgv.BackgroundColor = Color.White : 計算_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
+            計算_dgv.DefaultCellStyle.BackColor = Color.White : 計算_dgv.DefaultCellStyle.ForeColor = Color.Black
+            甲方_dgv.EnableHeadersVisualStyles = True : 甲方_dgv.BackgroundColor = Color.White : 甲方_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
+            甲方_dgv.DefaultCellStyle.BackColor = Color.White : 甲方_dgv.DefaultCellStyle.ForeColor = Color.Black
+            請款清單_dgv.EnableHeadersVisualStyles = True : 請款清單_dgv.BackgroundColor = Color.White : 請款清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
+            請款清單_dgv.DefaultCellStyle.BackColor = Color.White : 請款清單_dgv.DefaultCellStyle.ForeColor = Color.Black
+            彙總_dgv.EnableHeadersVisualStyles = True : 彙總_dgv.BackgroundColor = Color.White : 彙總_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
+            彙總_dgv.DefaultCellStyle.BackColor = Color.White : 彙總_dgv.DefaultCellStyle.ForeColor = Color.Black
+        Else
+            Me.BackColor = Color.Black
+            '----------------黑-------------------------------------------
+            語轉扭_bt.BackColor = Color.DimGray
+            系統說明_bt.BackColor = Color.DimGray : 縮放1_bt.BackColor = Color.DimGray : 縮放2_bt.BackColor = Color.DimGray : 圖表_bt.BackColor = Color.DimGray
+            清單_bt.BackColor = Color.DimGray : 回首頁_bt.BackColor = Color.DimGray
+            For i As Integer = 1 To 20 : Dim 選擇 As CheckBox = CType(Me.Controls.Find("A" & i, True)(0), CheckBox) : 選擇.ForeColor = Color.White : Next
+            For i As Integer = 1 To 4 : Dim 選擇 As CheckBox = CType(Me.Controls.Find("B" & i, True)(0), CheckBox) : 選擇.ForeColor = Color.White : Next
+            款項_bt.BackColor = Color.DimGray : 款項_bt.ForeColor = Color.White : 稅額_bt.BackColor = Color.DimGray : 稅額_bt.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.DefaultCellStyle.BackColor = Color.Black : 計算3_dgv.DefaultCellStyle.ForeColor = Color.White
+            計算3_dgv.DefaultCellStyle.SelectionBackColor = Color.Black
+            合計1_dgv.EnableHeadersVisualStyles = False : 合計1_dgv.BackgroundColor = Color.DimGray : 合計1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
+            合計1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合計1_dgv.DefaultCellStyle.BackColor = Color.Black : 合計1_dgv.DefaultCellStyle.ForeColor = Color.White
+            合計1_dgv.DefaultCellStyle.SelectionBackColor = Color.Black
+            合計2_dgv.EnableHeadersVisualStyles = False : 合計2_dgv.BackgroundColor = Color.DimGray : 合計2_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
+            合計2_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合計2_dgv.DefaultCellStyle.BackColor = Color.Black : 合計2_dgv.DefaultCellStyle.ForeColor = Color.White
+            合計2_dgv.DefaultCellStyle.SelectionBackColor = Color.Black
+            計算2_dgv.EnableHeadersVisualStyles = False : 計算2_dgv.BackgroundColor = Color.DimGray : 計算2_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
+            計算2_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 計算2_dgv.DefaultCellStyle.BackColor = Color.Black : 計算2_dgv.DefaultCellStyle.ForeColor = Color.White
+            計算2_dgv.DefaultCellStyle.SelectionBackColor = Color.Black
+            計算1_dgv.EnableHeadersVisualStyles = False : 計算1_dgv.BackgroundColor = Color.DimGray : 計算1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
+            計算1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 計算1_dgv.DefaultCellStyle.BackColor = Color.Black : 計算1_dgv.DefaultCellStyle.ForeColor = Color.White
+            計算1_dgv.DefaultCellStyle.SelectionBackColor = Color.Black
+            計算_dgv.EnableHeadersVisualStyles = False : 計算_dgv.BackgroundColor = Color.DimGray : 計算_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
+            計算_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 計算_dgv.DefaultCellStyle.BackColor = Color.Black : 計算_dgv.DefaultCellStyle.ForeColor = Color.White
+            甲方_dgv.EnableHeadersVisualStyles = False : 甲方_dgv.BackgroundColor = Color.DimGray : 甲方_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
+            甲方_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 甲方_dgv.DefaultCellStyle.BackColor = Color.Black : 甲方_dgv.DefaultCellStyle.ForeColor = Color.White
+            請款清單_dgv.EnableHeadersVisualStyles = False : 請款清單_dgv.BackgroundColor = Color.DimGray : 請款清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
+            請款清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 請款清單_dgv.DefaultCellStyle.BackColor = Color.Black : 請款清單_dgv.DefaultCellStyle.ForeColor = Color.White
+            彙總_dgv.EnableHeadersVisualStyles = False : 彙總_dgv.BackgroundColor = Color.DimGray : 彙總_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
+            彙總_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 彙總_dgv.DefaultCellStyle.BackColor = Color.Black : 彙總_dgv.DefaultCellStyle.ForeColor = Color.White
+        End If
+    End Sub
+End Class

Calculator-SYS/06、財務系統管理/財務報表4.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Calculator-SYS/06、財務系統管理/財物支付單申請_傳票.vb

@@ -10,8 +10,8 @@ Imports Microsoft.Office.Interop.Excel.XlWindowState
 Imports Microsoft.Office.Interop.Excel
 Public Class 財物支付單申請_傳票
     Dim SK1, SK2 As String : Dim 不可編輯x As Boolean
-    Dim 新項次 As String : Dim 新流水1 As String : Dim 新流水2 As String
-    Dim NUM1 As Integer : Dim 匯率1 As Double : Dim 對話框(15) As String
+    Dim 新項次 As String : Dim 新流水1 As String
+    Dim 匯率1 As Double : Private ReadOnly 對話框(15) As String
     Dim xlApp As Application
     Dim xlBook As Workbook
     Dim xlSheet As Worksheet
@@ -79,7 +79,7 @@ Public Class 財物支付單申請_傳票
         If 跨部門開啟 = False Then : Me.AutoScroll = True : 首次開啟 = True : 申請_p.Visible = True : 審核_p.Visible = False
         ElseIf 跨部門開啟 = True Then : Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True : 首次開啟 = True : 申請_p.Visible = False : 審核_p.Visible = True : End If
         年份2_cb.Text = Year(Today) : 月份2_cb.SelectedIndex = Month(Today) - 1 : Panel1.SendToBack() : 第一層下拉表單資料載入()
-        H(314) = True : 介面 = "H314" : 語言轉換讀取()
+        H(314) = True : 介面 = "H314" : 語言轉換讀取() : 顯示說明(999, False)
 
         MyMod.清單字體大小調整()
         財務收支單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
@@ -319,6 +319,7 @@ Public Class 財物支付單申請_傳票
     End Sub
     Private Sub 大寫轉換()
         Dim 個位(20), 十位(9), 百位(1), 千位(1), 百萬, 十億, 零, 拾, 百, 仟, 萬, 億, 兆, 答案 As String : Dim 數長 As Integer
+        答案 = "" : 零 = "" : 拾 = "" : 百 = "" : 仟 = "" : 萬 = "" : 百萬 = "" : 億 = "" : 十億 = "" : 兆 = ""
         If 系統語言 = "繁體中文" Then
             個位(0) = "零" : 個位(1) = "壹" : 個位(2) = "貳" : 個位(3) = "參" : 個位(4) = "肆" : 個位(5) = "伍" : 個位(6) = "陸" : 個位(7) = "柒" : 個位(8) = "捌" : 個位(9) = "玖"
             零 = "零" : 拾 = "拾" : 百 = "百" : 仟 = "仟" : 萬 = "萬" : 億 = "億" : 兆 = "兆"

Calculator-SYS/07、採購系統管理/供應商商品單價設定.vb

@@ -6,7 +6,7 @@ Public Class 供應商商品單價設定
     Dim Str As String = Application.StartupPath
     Dim 物料規格, KKK2, 頁面 As String
     Dim NB1 As Integer
-    Dim 對話框(25) As String
+    Private ReadOnly 對話框(25) As String
     ReadOnly 群組碼(21) As String
     Private Sub Set_群組清單()
         Dim ds1 As New DataSet : 群組分類_dgv.DataSource = Nothing : ds1.Clear()
@@ -261,7 +261,7 @@ Public Class 供應商商品單價設定
     End Sub
     Private Sub 供應商商品清單_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        H(212) = True : 介面 = "H212" : 語言轉換讀取()
+        H(212) = True : 介面 = "H212" : 語言轉換讀取() : 顯示說明(999, False)
 
         中間距_ch.Checked = True : 中間距1_ch.Checked = True : 首次開啟 = False : Panel1.SendToBack() : 主頁_p.BringToFront()
         切換_ts.Checked = True : Panel3.Visible = True : Panel2.Visible = False

Calculator-SYS/07、採購系統管理/供應商管理.vb

@@ -4,7 +4,7 @@ Public Class 供應商管理
     Dim RI As Integer = -1
     Dim SK As String = "要查找的 KEY"
     Dim Str As String = Application.StartupPath
-    DIM 對話框(11) As String
+    Private ReadOnly 對話框(11) As String
     Private Sub 讀取供應商料表()
         Dim ds As New DataSet : 廠商清單_dgv.DataSource = Nothing : ds.Clear()
         廠商清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -143,7 +143,7 @@ Public Class 供應商管理
     End Sub
     Private Sub 供應商管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        風格() : H(299) = True : 介面 = "H299" : 語言轉換讀取() : PA = "" : Panel1.SendToBack()
+        風格() : H(299) = True : 介面 = "H299" : 顯示說明(999, False) : 語言轉換讀取() : PA = "" : Panel1.SendToBack()
         If CC(12) = False Then : 新增_bt.Enabled = False : 修改_bt.Enabled = False : End If
         If CC(13) = False Then : 刪除_bt.Enabled = False : End If
         清單字體大小調整()

Calculator-SYS/07、採購系統管理/供應商類別管理.vb

@@ -5,7 +5,7 @@ Public Class 供應商類別管理
     Dim RI As Integer = -1
     Dim SK As String = "要查找的 KEY"
     Dim Str As String = Application.StartupPath
-    Dim 對話框(8) As String
+    Private ReadOnly 對話框(8) As String
     Private Sub 清單1()
         類別清單_dgv.DataSource = Nothing : ds.Clear()
         類別清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -88,7 +88,7 @@ Public Class 供應商類別管理
     Private Sub PnlTitleBar_Paint(sender As Object, e As PaintEventArgs) Handles PnlTitleBar.Paint
     End Sub
     Private Sub 供應商類別管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        語言_dgv.SendToBack() : H(213) = True : 介面 = "H213" : 語言轉換讀取() : 清單1()
+        語言_dgv.SendToBack() : H(213) = True : 介面 = "H213" : 語言轉換讀取() : 顯示說明(999, False) : 清單1()
     End Sub
     Private Sub Cancel_bt_Click(sender As Object, e As EventArgs) Handles Cancel_bt.Click
         Me.Close()

Calculator-SYS/07、採購系統管理/採購單一級核准.vb

@@ -309,7 +309,7 @@ Public Class 採購單一級核准
     End Sub
     Private Sub 採購單一級核准_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        H(206) = True : 介面 = "H206" : 語言轉換讀取()
+        H(206) = True : 介面 = "H206" : 語言轉換讀取() : 顯示說明(999, False)
         單價_rb.Checked = True : 小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False
         Panel3.SendToBack()
         供應商_cb_下拉表單資料載入() : Set_清單2() : Set_清單()

Calculator-SYS/07、採購系統管理/採購單歷史檔案.vb

@@ -11,7 +11,7 @@ Imports Microsoft.Office.Interop.Excel.XlWindowState
 Imports Microsoft.Office.Interop.Excel
 Public Class 採購單歷史檔案
     ReadOnly ds8 As New DataSet : Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
-    Dim N1, N2 As Integer : Dim 新項次 As String : Dim NUM1 As Integer : Dim 對話框(7) As String : Dim 物料規格 As String
+    Dim N1, N2 As Integer : Dim 新項次 As String : Dim NUM1 As Integer : Private ReadOnly 對話框(7) As String : Dim 物料規格 As String
     'ReadOnly QRCODE As DotNetBarcode = New DotNetBarcode
     Private Sub Set_清單()
         Dim ds As New DataSet : 明細_dgv.DataSource = Nothing : ds.Clear()
@@ -302,7 +302,7 @@ Public Class 採購單歷史檔案
     End Sub
     Private Sub 採購單歷史檔案_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        風格() : H(208) = True : 介面 = "H208" : 語言轉換讀取() : Panel1.SendToBack()
+        風格() : H(208) = True : 介面 = "H208" : 語言轉換讀取() : 顯示說明(999, False) : Panel1.SendToBack()
         核對員_tb.Visible = False : 核對日期_tb.Visible = False : 詢價員_tb.Visible = False : 尋價日期_tb.Visible = False
         驗證碼1_tb.Visible = False : 供應商編碼_tb.Visible = False : 系統語言_cb.Text = "Indonesian"
 
@@ -361,7 +361,7 @@ Public Class 採購單歷史檔案
                     MGB(對話框(7) & vbCrLf & PA21 & PA22 & PA23 & PA24 & PA25 & PA26, 2) : 首次開啟 = False
                     If 訊息回應 = "YES" Then
                         財物支付單申請_傳票.開立收支單1_bt.PerformClick()
-                        Dim XS As Integer = 0 : Dim SRTG As String
+                        Dim XS As Integer = 0 : Dim SRTG As String = ""
                         Dim currentTime As DateTime = DateTime.Now
                         For i As Integer = 0 To 已核准_dgv.Rows.Count - 1
                             If 已核准_dgv.Rows(i).Cells(22).Value <> 0 Then

Calculator-SYS/07、採購系統管理/請購單核准.vb

@@ -12,7 +12,7 @@ Imports Microsoft.Office.Interop.Excel
 Public Class 請購單核准
     ReadOnly ds8 As New DataSet
     Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet : Dim N1 As Integer
-    Dim 新項次 As String : Dim 對話框(13) As String : Dim 物料規格 As String
+    Dim 新項次 As String : Private ReadOnly 對話框(13) As String : Dim 物料規格 As String
     Private Sub Set_請購單清單()
         Dim ds As New DataSet : 請購明細_dgv.DataSource = Nothing : ds.Clear()
         請購明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -270,7 +270,7 @@ Public Class 請購單核准
     End Sub
     Private Sub 請購單核准_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        H(202) = True : 介面 = "H202" : 語言轉換讀取() : 顯示說明(999)
+        H(202) = True : 介面 = "H202" : 語言轉換讀取() : 顯示說明(999, False)
 
         Panel1.SendToBack() : 申請日期_dtp.Enabled = False : 確認列印_bt.Enabled = False
 

Calculator-SYS/0、MyModule/模組/DGV進度條.vb

@@ -0,0 +1,82 @@
+Imports System.ComponentModel
+Module DGV進度條
+    Public Class DataGridViewProgressColumn
+        Inherits DataGridViewImageColumn
+        Public Sub New()
+            Me.CellTemplate = New DataGridViewProgressCell
+        End Sub
+    End Class
+    Public Class DataGridViewProgressCell
+        Inherits DataGridViewImageCell
+        Sub New()
+            ValueType = Type.GetType("Integer")
+        End Sub
+        ' 使進度單元與默認圖像單元一致所需的方法。
+        ' 默認圖像單元將圖像作為值，儘管進度單元的值是整數。
+        Protected Overrides Function GetFormattedValue(
+            ByVal value As Object,
+            ByVal rowIndex As Integer,
+            ByRef cellStyle As DataGridViewCellStyle,
+            ByVal valueTypeConverter As TypeConverter,
+            ByVal formattedValueTypeConverter As TypeConverter,
+            ByVal context As DataGridViewDataErrorContexts) As Object
+            Static emptyImage As New Bitmap(1, 1, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
+            GetFormattedValue = emptyImage
+        End Function
+        Protected Overrides Sub Paint(ByVal g As System.Drawing.Graphics, ByVal clipBounds As System.Drawing.Rectangle,
+                                      ByVal cellBounds As System.Drawing.Rectangle,
+                                      ByVal rowIndex As Integer, ByVal cellState As System.Windows.Forms.DataGridViewElementStates,
+                                      ByVal value As Object, ByVal formattedValue As Object, ByVal errorText As String,
+                                      ByVal cellStyle As System.Windows.Forms.DataGridViewCellStyle,
+                                      ByVal advancedBorderStyle As System.Windows.Forms.DataGridViewAdvancedBorderStyle,
+                                      ByVal paintParts As System.Windows.Forms.DataGridViewPaintParts)
+            Dim progressVal As Double = CType(value, Double)
+            Dim percentage As Single = CType(progressVal / 分母, Single)
+            Dim backBrush As Brush = New SolidBrush(cellStyle.BackColor)
+            Dim foreBrush As Brush = New SolidBrush(cellStyle.ForeColor)
+            ' 調用基類方法來繪製默認單元格外觀。
+            MyBase.Paint(g, clipBounds, cellBounds, rowIndex, cellState,
+                value, formattedValue, errorText, cellStyle,
+                advancedBorderStyle, paintParts)
+            If 深色風格 = False Then
+                If percentage > 0.0 And percentage < 分段1 Then
+                    ' 繪製進度條和文字
+                    g.FillRectangle(New SolidBrush(Color.LightBlue), cellBounds.X + 2, cellBounds.Y + 2, Convert.ToInt32((percentage * cellBounds.Width - 8)), cellBounds.Height - 8)
+                    g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, foreBrush, cellBounds.X + 6, cellBounds.Y + 2)
+                ElseIf percentage > 分段2 And percentage < 分段3 Then
+                    ' 繪製進度條和文字
+                    g.FillRectangle(New SolidBrush(Color.LightGreen), cellBounds.X + 2, cellBounds.Y + 2, Convert.ToInt32((percentage * cellBounds.Width - 8)), cellBounds.Height - 8)
+                    g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, foreBrush, cellBounds.X + 6, cellBounds.Y + 2)
+                ElseIf percentage > 分段4 Then
+                    ' 繪製進度條和文字
+                    g.FillRectangle(New SolidBrush(Color.LightPink), cellBounds.X + 2, cellBounds.Y + 2, Convert.ToInt32((percentage * cellBounds.Width - 8)), cellBounds.Height - 8)
+                    g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, foreBrush, cellBounds.X + 6, cellBounds.Y + 2)
+                Else
+                    '繪製文本
+                    If DataGridView.CurrentCell IsNot Nothing AndAlso Me.DataGridView.CurrentCell.RowIndex = rowIndex Then
+                        g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, New SolidBrush(cellStyle.SelectionForeColor), cellBounds.X + 6, cellBounds.Y + 2)
+                    Else : g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, foreBrush, cellBounds.X + 6, cellBounds.Y + 2) : End If
+                End If
+            Else
+                If percentage > 0.0 And percentage < 分段1 Then
+                    ' 繪製進度條和文字
+                    g.FillRectangle(New SolidBrush(Color.DarkBlue), cellBounds.X + 2, cellBounds.Y + 2, Convert.ToInt32((percentage * cellBounds.Width - 8)), cellBounds.Height - 8)
+                    g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, foreBrush, cellBounds.X + 6, cellBounds.Y + 2)
+                ElseIf percentage > 分段2 And percentage < 分段3 Then
+                    ' 繪製進度條和文字
+                    g.FillRectangle(New SolidBrush(Color.DarkGreen), cellBounds.X + 2, cellBounds.Y + 2, Convert.ToInt32((percentage * cellBounds.Width - 8)), cellBounds.Height - 8)
+                    g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, foreBrush, cellBounds.X + 6, cellBounds.Y + 2)
+                ElseIf percentage > 分段4 Then
+                    ' 繪製進度條和文字
+                    g.FillRectangle(New SolidBrush(Color.DarkRed), cellBounds.X + 2, cellBounds.Y + 2, Convert.ToInt32((percentage * cellBounds.Width - 8)), cellBounds.Height - 8)
+                    g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, foreBrush, cellBounds.X + 6, cellBounds.Y + 2)
+                Else
+                    '繪製文本
+                    If DataGridView.CurrentCell IsNot Nothing AndAlso Me.DataGridView.CurrentCell.RowIndex = rowIndex Then
+                        g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, New SolidBrush(cellStyle.SelectionForeColor), cellBounds.X + 6, cellBounds.Y + 2)
+                    Else : g.DrawString(Strings.Format(progressVal, "#,##0.00") & 進度條後墜, cellStyle.Font, foreBrush, cellBounds.X + 6, cellBounds.Y + 2) : End If
+                End If
+            End If
+        End Sub
+    End Class
+End Module

Calculator-SYS/0、MyModule/模組/GcmProc.vb

@@ -19,17 +19,6 @@
     ''' 開公告 輸入的是要顯示公告的次數。
     ''' 如果要在輸入視窗的輸入控件上先帶入文字即可設定第二個變數，沒有設定就是空白。
     ''' </summary>
-    Public Sub 顯示說明(ByVal 開公告 As Integer)
-        'Dim 開啟, 公告 As Integer : Dim 是否新增 As Boolean = False
-        'SQL_說明顯示查詢()
-        'If dr.Read Then : 開啟 = dr("開啟次數") : 公告 = dr("公告次數") : Else : 開啟 = 0 : 公告 = 0 : 是否新增 = True : End If
-        'If 開公告 > 公告 Then : WEB說明頁面.Show() : ElseIf 登入人級別 = "00" Then : WEB說明頁面.Show() : End If : PA47 = 開啟 + 1 : PA48 = 公告 + 1
-        'If 是否新增 = True Then : SQL_說明顯示新增() : Else : SQL_說明顯示修改() : End If
-    End Sub
-    ''' <summary>
-    ''' 使用代號之前，請先到LINE使用者管理去進行設定
-    ''' 對象  請在LINE使用者管理中去複製字串出來。
-    ''' </summary>
     Public Sub LIN訊息通知(ByVal 代號 As String, ByVal 對象 As String, Optional ByVal 變數X As String = "", Optional ByVal 變數Y As String = "")
         LINE_權限代號 = 代號 : 發送對象 = 對象 : 通知變數X = 變數X : 通知變數Y = 變數Y : LINE_通知模塊()
     End Sub
@@ -51,4 +40,20 @@
         If 輸入cb.Items.Count < 23 Then : 下拉清單_2.ShowDialog() : Else : 下拉清單_1.ShowDialog() : End If
         輸入cb.Text = PPAA
     End Sub
+    Public Sub 顯示說明(ByVal 開公告 As Integer, ByVal 公告顯示 As Boolean)
+        Dim 開啟, 公告 As Integer : Dim 是否新增 As Boolean = False : Dim inputDate As Date : Dim yearValue As Integer
+        Dim monthValue As Integer : Dim formattedMonth As String
+        inputDate = Date.Now        ' 假設您有一個日期，這裡我們使用當前日期作為示例
+        yearValue = Year(inputDate)        ' 從日期中提取年份和月份
+        monthValue = Month(inputDate)        ' 從日期中提取年份和月份
+        If monthValue < 10 Then : formattedMonth = "0" & monthValue.ToString() : Else : formattedMonth = monthValue.ToString() : End If        ' 格式化月份以確保兩位數
+        PA45 = yearValue.ToString() : PA46 = formattedMonth        ' 將年份和月份數值存入變數X和Y中
+        SQL_說明顯示查詢()
+        If dr.Read Then : 開啟 = dr("開啟次數") : 公告 = dr("公告次數") : Else : 開啟 = 0 : 公告 = 0 : 是否新增 = True : End If
+        If 公告顯示 = True Then
+            If 開公告 > 公告 Then : PA48 = 公告 + 1 : ElseIf 登入人級別 = "00" Then : PA48 = 公告 + 1 : End If
+        End If
+        PA47 = 開啟 + 1
+        If 是否新增 = True Then : SQL_說明顯示新增() : Else : SQL_說明顯示修改() : End If
+    End Sub
 End Module

Calculator-SYS/0、MyModule/模組/SQL_連線狀態模組3.vb

@@ -2,7 +2,7 @@
 
 #Region "——连接测试：避免等待时间过长——"
     Dim bConnect As Boolean
-    Dim BgWorker3 As New System.ComponentModel.BackgroundWorker
+    Dim BgWorker3 As New ComponentModel.BackgroundWorker
     Dim ServerIP As String
     ''' <summary>
     ''' 测试连接：True-连接成功，False-连接失败

Calculator-SYS/0、MyModule/資料庫/SQL_人事系統管理.vb

@@ -1,419 +0,0 @@
-Module SQL_人事系統管理
-    Friend Sub SQL_人員薪資表1()
-        If PA25 = "-1" Or PA25 = "0" Or PA25 = "" Or 工人 = True Then : SQL3 = "" & SQL5
-        ElseIf PA25 = "1" Then : SQL3 = " AND 使用者權限管理表.部門 NOT LIKE '3%' " & SQL5
-        ElseIf PA25 = "2" Then : SQL3 = " AND 使用者權限管理表.部門 LIKE '3%' " & SQL5 : End If
-        If BL = False Then
-            ConnOpen()
-            If 在職 = True Then
-                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' 
-                                                       AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
-                Else
-                    SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
-                                    使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
-                End If
-            Else
-                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'" & SQL3
-                Else
-                    SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
-                                    姓名 NOT LIKE 'TEST%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
-                End If
-            End If
-            SQL1 = "SELECT       [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "],使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 
-                                  使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "],  
-                                 [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 
-                                  使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 
-                                 [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 
-                                 [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 
-                                 [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 
-                                  使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 
-                                  使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 
-                                  使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 
-                                  使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 
-                                  使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 
-                                  使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 
-                                  使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 
-                                  使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 
-                                  使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 
-                                  使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 
-                                  使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號
-                    FROM          使用者權限管理表 LEFT OUTER JOIN
-                                  HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN
-                                 [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號 " & SQL2 & "
-                    ORDER BY     " & SQL4
-            CmdSet_For_DGV()
-        Else
-            ConnOpen()
-            If 在職 = True Then
-                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 NOT LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
-                                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
-                Else : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
-                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3 : End If
-            Else
-                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
-                                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
-                Else
-                    SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
-                                  使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
-                End If
-            End If
-            SQL1 = "SELECT     [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "], 使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 
-                                使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "], 
-                               [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 
-                                使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 
-                               [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 
-                               [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 
-                               [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 
-                                使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 
-                                使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 
-                                使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 
-                                使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 
-                                使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 
-                                使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 
-                                使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 
-                                使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 
-                                使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 
-                                使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 
-                                使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號
-                    FROM        使用者權限管理表 LEFT OUTER JOIN
-                                HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN
-                                [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號
-                    WHERE      (使用者權限管理表.級別 LIKE '05' OR 使用者權限管理表.級別 LIKE '06' OR 使用者權限管理表.級別 LIKE '07' OR 使用者權限管理表.級別 LIKE '08' OR 
-                                使用者權限管理表.級別 LIKE '09') " & SQL2 & " 
-                    ORDER BY     " & SQL4
-            CmdSet_For_DGV()
-        End If
-    End Sub
-    Friend Sub SQL_人員薪資表2()
-        If PA25 = "-1" Or PA25 = "0" Or 工人 = True Then : SQL3 = "" & SQL5
-        ElseIf PA25 = "1" Then : SQL3 = " AND 使用者權限管理表.部門 NOT LIKE '3%' " & SQL5
-        ElseIf PA25 = "2" Then : SQL3 = " AND 使用者權限管理表.部門 LIKE '3%' " & SQL5 : End If
-        If BL = False Then
-            ConnOpen()
-            If 在職 = True Then
-                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' 
-                                                       AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
-                Else
-                    SQL2 = " WHERE (使用者權限管理表.CC63 = 0) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
-                                    使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
-                End If
-            Else
-                If 工人 = False Then : SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'" & SQL3
-                Else
-                    SQL2 = " WHERE (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
-                                    姓名 NOT LIKE 'TEST%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
-                End If
-            End If
-            SQL1 = "SELECT  TOP(1) [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "],使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 
-                                    使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "],  
-                                   [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 
-                                   [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 
-                                   [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 
-                                   [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號
-                    FROM            使用者權限管理表 LEFT OUTER JOIN
-                                    HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN
-                                   [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號 " & SQL2 & "
-                    ORDER BY       " & SQL4
-            CmdSet_For_DGV()
-        Else
-            ConnOpen()
-            If 在職 = True Then
-                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 NOT LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
-                                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
-                Else : SQL2 = " AND (使用者權限管理表.CC63 = 0) AND (使用者權限管理表.部門 LIKE '9%') AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
-                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3 : End If
-            Else
-                If 工人 = False Then : SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 NOT LIKE N'9%' AND 使用者權限管理表.級別 LIKE N'%" & PA14 & "%'
-                                                AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
-                Else
-                    SQL2 = " AND (使用者權限管理表.CC63 = 1) AND 使用者權限管理表.部門 LIKE N'9%' AND 使用者權限管理表.姓名 NOT LIKE '未啟用%' AND 
-                                  使用者權限管理表.級別 LIKE N'%" & PA14 & "%' AND [HX-PGS-MSN].dbo.人員資料表.部門名稱 LIKE '%" & PA19 & "%'" & SQL3
-                End If
-            End If
-            SQL1 = "SELECT  TOP(1) [HX-PGS-MSN].dbo.人員資料表.部門名稱 AS [" & 表頭(25) & "], 使用者權限管理表.姓名 AS [" & 表頭(0) & "], 使用者權限管理表.部門 AS [" & 表頭(19) & "], 
-                                    使用者權限管理表.ID卡號, [HX-PGS-MSN].dbo.人員資料表.員工代碼 AS [STT], [HX-PGS-MSN].dbo.人員資料表.員工崗位 AS [" & 表頭(24) & "], 
-                                   [HX-PGS-MSN].dbo.人員資料表.入職日 AS [" & 表頭(22) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(1) & "], 使用者權限管理表.級別 AS [" & 表頭(20) & "], 使用者權限管理表.級別 AS [" & 表頭(21) & "], 
-                                   [HX-PGS-MSN].dbo.人員資料表.群組 AS [" & 表頭(30) & "], [HX-PGS-MSN].dbo.人員資料表.薪資狀態 AS [" & 表頭(26) & "], 
-                                   [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(27) & "], [HX-PGS-MSN].dbo.人員資料表.薪資 AS [" & 表頭(28) & "], 
-                                   [HX-PGS-MSN].dbo.人員資料表.薪資 AS [總數], 使用者權限管理表.級別 AS [" & 表頭(64) & "], 使用者權限管理表.級別 AS [" & 表頭(31) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(32) & "], 使用者權限管理表.級別 AS [" & 表頭(33) & "], 使用者權限管理表.級別 AS [" & 表頭(34) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(35) & "], 使用者權限管理表.級別 AS [" & 表頭(36) & "], 使用者權限管理表.級別 AS [" & 表頭(37) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(38) & "], 使用者權限管理表.級別 AS [" & 表頭(39) & "], 使用者權限管理表.級別 AS [" & 表頭(40) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(41) & "], 使用者權限管理表.級別 AS [" & 表頭(42) & "], 使用者權限管理表.級別 AS [" & 表頭(43) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(58) & "], 使用者權限管理表.級別 AS [" & 表頭(59) & "], 使用者權限管理表.級別 AS [" & 表頭(60) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(61) & "], 使用者權限管理表.級別 AS [" & 表頭(62) & "], 使用者權限管理表.級別 AS [" & 表頭(63) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(44) & "], 使用者權限管理表.級別 AS [" & 表頭(45) & "], 使用者權限管理表.級別 AS [" & 表頭(46) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(47) & "], 使用者權限管理表.級別 AS [" & 表頭(48) & "], 使用者權限管理表.級別 AS [" & 表頭(49) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(50) & "], 使用者權限管理表.級別 AS [" & 表頭(51) & "], 使用者權限管理表.級別 AS [" & 表頭(52) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(53) & "], 使用者權限管理表.級別 AS [" & 表頭(54) & "], 使用者權限管理表.級別 AS [" & 表頭(55) & "], 
-                                    使用者權限管理表.級別 AS [" & 表頭(56) & "], 使用者權限管理表.級別 AS [" & 表頭(57) & "], HX空白圖片.圖片 AS [Save.], 使用者權限管理表.帳號
-                    FROM            使用者權限管理表 LEFT OUTER JOIN
-                                    HX空白圖片 ON 使用者權限管理表.姓名 = HX空白圖片.選擇 LEFT OUTER JOIN
-                                    [HX-PGS-MSN].dbo.人員資料表 ON 使用者權限管理表.帳號 = [HX-PGS-MSN].dbo.人員資料表.帳號
-                    WHERE          (使用者權限管理表.級別 LIKE '05' OR 使用者權限管理表.級別 LIKE '06' OR 使用者權限管理表.級別 LIKE '07' OR 使用者權限管理表.級別 LIKE '08' OR 
-                                    使用者權限管理表.級別 LIKE '09') " & SQL2 & " 
-                    ORDER BY        " & SQL4
-            CmdSet_For_DGV()
-        End If
-    End Sub
-    Friend Sub SQL_考勤虛擬表()
-        ConnOpen_管理SQL()
-        SQL1 = "SELECT  帳號, 一上, 一下, 二上, 二下, 三上, 三下, 四上, 四下, 五上, 五下, 六上, 六下, 日上, 日下, 日期
-                FROM    虛擬考勤明細表  WHERE  (日期 LIKE '" & PA25 & "')"
-        CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_特殊供應商()
-        ConnOpen() : SQL1 = "SELECT  供應商編碼, 公司名  FROM  供應商資料表  WHERE  (特殊 = 1)" : CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_使用地點()
-        ConnOpen() : SQL1 = "SELECT  使用地點  FROM  採購單控制表  GROUP BY　使用地點" : CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_詢價人員()
-        ConnOpen() : SQL1 = "SELECT  詢價員  FROM  採購單控制表  GROUP BY 詢價員" : CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_可用物料()
-        ConnOpen()
-        SQL1 = "SELECT    QQ.供應商編碼, QQ.單價, 物料規格表.料號, 物料編碼庫轉語言.品名, 物料規格表.A1, 物料規格表.A2, 物料規格表.A3, 
-                          物料規格表.A4, 物料規格表.A5, 物料規格表.A6, 物料規格表.A7, 物料規格表.A8, 物料編碼庫.單位, 物料規格表.群組碼, 
-                          物料規格表.料號原則
-                FROM      物料規格表 INNER JOIN 物料編碼庫轉語言 ON 物料規格表.料號原則 = 物料編碼庫轉語言.料號原則 INNER JOIN
-                          物料編碼庫 ON 物料規格表.料號原則 = 物料編碼庫.料號原則 INNER JOIN
-                         (SELECT    供應商產品清單.供應商編碼, 供應商產品清單.料號, 供應商產品清單.單價
-                          FROM      供應商產品清單 INNER JOIN  供應商資料表 ON 供應商產品清單.供應商編碼 = 供應商資料表.供應商編碼
-                          WHERE    (供應商資料表.特殊 = 1)
-                          GROUP BY  供應商產品清單.供應商編碼, 供應商產品清單.料號, 供應商產品清單.單價) AS QQ ON 
-                          物料規格表.料號 = QQ.料號
-                WHERE    (物料規格表.特殊 = 1) AND (物料編碼庫轉語言.語言 LIKE '" & 系統語言 & "')
-                ORDER BY  QQ.供應商編碼, 物料規格表.料號"
-        CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_申請人()
-        ConnOpen() : SQL1 = "SELECT  申請人  FROM  採購單明細表  WHERE  (申請人 IS NOT NULL)  GROUP BY  申請人" : CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_合約號()
-        ConnOpen() : SQL1 = "SELECT  合約號  FROM  採購單明細表  WHERE  (合約號 NOT LIKE 'P%') AND (合約號 NOT LIKE 'H%') AND (合約號 NOT LIKE '')  GROUP BY  合約號" : CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_該月單號()
-        ConnOpen()
-        SQL1 = "SELECT  採購單號  FROM  採購單控制表  WHERE  (採購單號 LIKE '%" & 每月零用金設定.年份2_cb.Text & 每月零用金設定.月份2_cb.Text & "%')  ORDER BY  採購單號"
-        CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_採購控制表1()
-        ConnOpen()
-        SQL1 = "SELECT * FROM  採購單控制表 WHERE  (採購單號 LIKE '%" & 每月零用金設定.年份2_cb.Text & 每月零用金設定.月份2_cb.Text & "%') AND  特殊 = 1 ORDER BY 採購單號"
-        CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_採購明細表1()
-        ConnOpen() : SQL1 = "SELECT * FROM  採購單明細表 " & SQL2 & " ORDER BY 採購單號" : CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_採購控制表()
-        ConnOpen() : SQL1 = "SELECT  TOP (" & CInt(每月零用金設定.開單數_nud.Value) & ") * FROM  採購單控制表" : CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_採購明細表()
-        ConnOpen() : SQL1 = "SELECT  TOP (" & CInt(每月零用金設定.開單數_nud.Value) * 7 & ") * FROM  採購單明細表" : CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_考勤總明細()
-        ConnOpen_管理SQL()
-        SQL1 = "SELECT    QQ.ID卡號, 萬年曆.星期 AS MGB, 萬年曆.星期 AS [" & 表頭(2) & "], 萬年曆.日期 AS [" & 表頭(3) & "], QQ.第一, QQ.第二, QQ.第三, QQ.第四, QQ.第五, QQ.第六, 
-                          QQ.第一 AS [" & 表頭(4) & "], QQ.第一 AS [" & 表頭(5) & "], QQ.第一 AS [" & 表頭(6) & "], QQ.第一 AS [" & 表頭(7) & "], QQ.第一 AS [" & 表頭(8) & "],
-                          QQ.第一 AS [" & 表頭(9) & "], QQ.第一 AS [" & 表頭(10) & "], QQ.第一 AS [" & 表頭(11) & "], QQ.第一 AS [" & 表頭(12) & "], QQ.第一 AS [" & 表頭(13) & "],
-                          QQ.第一 AS [" & 表頭(14) & "], QQ.第一 AS [" & 表頭(15) & "], QQ.第一 AS [" & 表頭(16) & "], QQ.加班 AS [" & 表頭(17) & "], 萬年曆.假日 AS [" & 表頭(18) & "]
-                FROM      萬年曆 LEFT OUTER JOIN  (SELECT  ID卡號, 日期, 第一, 第二, 第三, 第四, 第五, 第六, 加班
-                          FROM    人事考勤明細表) AS QQ ON 萬年曆.日期 = QQ.日期
-                WHERE    (LEFT(萬年曆.日期, 7) LIKE '" & PA2 & "/" & PA3 & "')
-                ORDER BY  LEFT(萬年曆.日期, 7), 萬年曆.日期"
-        CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_考勤級別讀取()
-        ConnOpen() : SQL1 = "SELECT 級別 FROM 使用者權限管理表 WHERE (姓名 LIKE N'" & PA47 & "')" : CmdSet_For_dr()
-        If BL = False Then
-            ConnOpen()
-            If PA = "" Then
-                If 在職 = True Then : SQL2 = " WHERE (CC63 = 0)" : Else : SQL2 = " WHERE (CC63 = 1)" : End If
-                SQL1 = "SELECT  級別 FROM 使用者權限管理表 " & SQL2 & " GROUP BY 級別 ORDER BY 級別"
-            Else
-                If 登入人級別 = "00" Then : SQL2 = "" : Else : If 在職 = True Then : SQL2 = " AND (CC63 = 0)" : Else : SQL2 = " AND (CC63 = 1)" : End If : End If
-                SQL1 = "SELECT    級別 FROM 使用者權限管理表 
-                        WHERE   ((姓名 LIKE N'%" & PA & "%') OR (帳號 LIKE N'%" & PA & "%') OR (密碼 LIKE N'%" & PA & "%') OR 
-                                 (部門 LIKE N'%" & PA & "%') OR (職稱 LIKE N'%" & PA & "%')) " & SQL2 & "
-                        GROUP BY 級別  ORDER BY  級別"
-            End If
-            CmdSet_For_dr()
-        Else
-            ConnOpen()
-            If PA = "" Then
-                If 在職 = True Then : SQL2 = " AND (CC63 = 0)" : Else : SQL2 = " AND (CC63 = 1)" : End If
-                SQL1 = "SELECT  級別 FROM 使用者權限管理表 
-                        WHERE  (級別 LIKE '05' OR 級別 LIKE '06' OR 級別 LIKE '07' OR 級別 LIKE '08' OR 級別 LIKE '09') " & SQL2 & "  GROUP BY 級別  ORDER BY 級別"
-            Else
-                SQL1 = "SELECT    級別 FROM 使用者權限管理表 
-                        WHERE   ((姓名 LIKE N'%" & PA & "%') OR (帳號 LIKE N'%" & PA & "%') OR (密碼 LIKE N'%" & PA & "%') OR (部門 LIKE N'%" & PA & "%') OR (職稱 LIKE N'%" & PA & "%') AND
-                                 (級別 LIKE '05' OR 級別 LIKE '06' OR 級別 LIKE '07' OR 級別 LIKE '08' OR 級別 LIKE '09')) " & SQL2 & "
-                        GROUP BY 級別  ORDER BY  級別"
-            End If
-            CmdSet_For_dr()
-        End If
-    End Sub
-    Friend Sub SQL_年分清單()
-        ConnOpen_管理SQL() : SQL1 = "SELECT  LEFT(日期, 4) AS 日期  FROM  人事考勤明細表  GROUP BY   LEFT(日期, 4)  ORDER BY  日期 DESC" : CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_人員薪資表_群組()
-        ConnOpen_管理SQL() : SQL1 = "SELECT 部門名稱 FROM 人員資料表 WHERE 部門名稱 IS NOT NULL AND 部門名稱 NOT LIKE '' GROUP BY 部門名稱 ORDER BY 部門名稱" : CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_人員薪資表_修改()
-        ConnOpen_管理SQL()
-        SQL1 = "UPDATE 人員資料表 SET 部門名稱 = N'" & PA30 & "', 群組 = N'" & PA31 & "', 薪資 = N'" & PA32 & "' WHERE 帳號 LIKE N'" & PA33 & "'"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_虛擬考勤明細表新增()
-        ConnOpen_管理SQL()
-        SQL1 = "INSERT INTO 虛擬考勤明細表 (帳號, 一上, 一下, 二上, 二下, 三上, 三下, 四上, 四下, 五上, 五下, 六上, 六下, 日上, 日下, 日期) VALUES " & SQL2
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_虛擬考勤明細表刪除()
-        ConnOpen_管理SQL()
-        SQL1 = "DELETE 虛擬考勤明細表 WHERE 日期 LIKE '" & PA45 & "'"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_財務零用金紀錄_查詢()
-        ConnOpen() : SQL1 = "SELECT 金額 FROM 財務零用金紀錄 WHERE (時間 LIKE '" & PA & "')" : CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_財務零用金紀錄_新增()
-        ConnOpen() : SQL1 = "INSERT INTO 財務零用金紀錄 (時間, 金額) VALUES ('" & PA & "', '" & PA1 & "')" : CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_財務零用金紀錄_修改()
-        ConnOpen() : SQL1 = "UPDATE 財務零用金紀錄 SET 金額 = '" & PA1 & "' WHERE (時間 LIKE '" & PA & "')" : CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_虛擬採購控制表新增()
-        ConnOpen()
-        SQL1 = "INSERT INTO 採購單控制表 (採購單號, 供應商編號, 需求日期, 使用地點, 核對員, 核對日期, 詢價員, 尋價日期, 核准, 核准日期, 
-                            簽名檔編號, 驗證碼, 請購單號, DISC, 稅, PPN, 採購員, 採購日期, 已會計, 已出納, 現金, 備用金, 公帳, 一級核准, 
-                            一級核准核准日期, 一級核准簽名檔編號, 特殊) VALUES " & SQL2
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_虛擬採購明細表新增()
-        ConnOpen()
-        SQL1 = "INSERT INTO 採購單明細表 (採購單號, 品名, 規格, 備註, 數量, 單位, 單價, 項次, 已收貨, 群組碼, 料號原則, 料號, 已入庫, 已申請入庫, 
-                            請購單號, 合約號, 申請人) VALUES " & SQL2
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_財物支付單申請_查詢財務收支控制表()
-        ConnOpen()
-        SQL1 = "SELECT    財務收支明細表.流水號 AS [" & 表頭(107) & "], 財務收支控制表.申請日期 AS [" & 表頭(20) & "], 財務收支控制表.申請人  AS [" & 表頭(1) & "], 
-                          財務收支控制表.支付單號, 財務收支明細表.銀行, 財務收支明細表.類別, 財務收支明細表.支出, 財務收支明細表.明細, 財務收支明細表.大寫, 
-                          財務收支明細表.支付對象, 財務收支控制表.審核人, 財務收支明細表.公帳 AS [" & 表頭(2) & "], 財務收支明細表.備用金 AS [" & 表頭(3) & "], 
-                          財務收支明細表.公司, 財務收支明細表.付款銀行, 財務收支明細表.銀行支行
-                FROM      財務收支明細表 INNER JOIN
-                          財務收支控制表 ON 財務收支明細表.支付單號 = 財務收支控制表.支付單號
-                WHERE    (財務收支明細表.流水號 LIKE '%" & PA25 & "')
-                ORDER BY  財務收支明細表.流水號 DESC"
-        CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_財物支付單申請_查詢財務收支控制表1()
-        ConnOpen()
-        SQL1 = "SELECT    財務收支明細表.流水號 AS [" & 表頭(107) & "], 財務收支控制表.申請日期 AS [" & 表頭(20) & "], 財務收支控制表.申請人  AS [" & 表頭(1) & "], 
-                          財務收支控制表.支付單號, 財務收支明細表.銀行, 財務收支明細表.類別, 財務收支明細表.支出, 財務收支明細表.明細, 財務收支明細表.大寫, 
-                          財務收支明細表.支付對象, 財務收支控制表.審核人, 財務收支明細表.公帳 AS [" & 表頭(2) & "], 財務收支明細表.備用金 AS [" & 表頭(3) & "], 
-                          財務收支明細表.公司, 財務收支明細表.付款銀行, 財務收支明細表.銀行支行
-                FROM      財務收支明細表 INNER JOIN
-                          財務收支控制表 ON 財務收支明細表.支付單號 = 財務收支控制表.支付單號
-                WHERE    (財務收支明細表.流水號 NOT LIKE 'B%')
-                ORDER BY  財務收支控制表.申請日期 DESC"
-        CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_部門選單()
-        ConnOpen() : SQL1 = "SELECT  部門  FROM  財務部門  ORDER BY  部門" : CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_營運成本收支單申請_查詢第一筆公帳支付單號()
-        ConnOpen() : SQL1 = "SELECT TOP (1)  支付單號 FROM 財務收支控制表 WHERE ( 支付單號 LIKE N'" & PA & "')" : CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_營運成本收支單申請_新增一筆財務收支控制表()
-        ConnOpen()
-        SQL1 = "INSERT INTO 財務收支控制表 (支付單號, 申請人, 申請日期, 審核人, 審核日期, 會計, 作帳日期, 出納, 出納日期, 備註, 公司編號, 特殊) " &
-               "VALUES (N'" & PA & "', N'" & gUserName & "', N'" & DTP & "', N'', N'', N'', N'', N'', N'', N'', N'', '1')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_財物支付單申請_查詢最後一筆公帳支付單號()
-        ConnOpen() : SQL1 = "SELECT TOP(1) 流水號 FROM 財務收支明細表  WHERE  (財務收支明細表.流水號 LIKE '%" & PA25 & "') ORDER BY  財務收支明細表.流水號 DESC" : CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_新增財物支付單明細表資料()
-        ConnOpen()
-        SQL1 = "INSERT INTO 財務收支明細表 (流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員, 支付單號, 項次, 會計, 出納, 現金, 備用金, 公帳, 支票, 出納日期, 零用金, 支票數, 
-                                            匯率, 備註, 大寫, 支付對象, 公司, 付款銀行, 銀行支行) 
-                VALUES (N'" & PA19 & "', N'IDR', N'" & DTP & "', N'" & 指定會科 & "', N'" & PA13 & "', N'" & PA14 & "', N'" & PA12 & "', N'" & gUserName & "', N'" & PA15 & "', 
-                        N'" & PA11 & "', N'0', N'0', N'0', N'0', N'0', N'0', N'" & DTP & "', N'0', N'0', N'1', N'" & PA37 & "', N'" & PA38 & "', N'" & PA39 & "', N'" & PA40 & "', 
-                        N'" & PA41 & "', N'" & PA42 & "')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_營運成本收支單申請_刪除財務收支控制表()
-        ConnOpen()
-        SQL1 = "DELETE FROM 財務收支控制表 WHERE (支付單號 LIKE N'" & PA45 & "')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_營運成本收支單申請_刪除財務收支明細表()
-        ConnOpen()
-        SQL1 = "DELETE FROM 財務收支明細表 WHERE (支付單號 LIKE N'" & PA45 & "')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_營運成本收支單審核_審核人3()
-        ConnOpen()
-        SQL1 = "UPDATE 財務收支控制表 SET 審核人 = N'作廢-" & gUserName & "', 審核日期 = N'" & DTP & "', 備註 = N'" & PA & "' WHERE (支付單號 = N'" & PA42 & "')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_營運成本收支單審核_修改財務收支控制表()
-        ConnOpen()
-        SQL1 = "UPDATE 財務收支控制表 SET 審核人 = N'" & gUserName & "', 審核日期 = N'" & DTP & "', 核准圖檔 = N'" & PA27 & "', 簽名編碼 = N'" & PA28 & "', 出納 = '" & gUserName & "', 
-                       出納日期 = N'" & DTP & "'
-                WHERE (支付單號 = N'" & PA29 & "')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_營運成本收支單審核_修改財務收支明細表()
-        ConnOpen() : SQL1 = "UPDATE 財務收支明細表 SET 出納 = '1', 出納日期 = N'" & DTP & "' WHERE (支付單號 LIKE N'" & PA29 & "')" : CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_營運成本收支單審核_修改財務收支明細表備用金()
-        ConnOpen()
-        SQL1 = "UPDATE 財務收支明細表 SET  備用金 = N'1' WHERE (支付單號 LIKE N'" & PA29 & "' AND 項次 LIKE N'" & PA1 & "')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_營運成本收支單審核_修改財務收支明細表現金()
-        ConnOpen()
-        SQL1 = "UPDATE 財務收支明細表 SET  現金 = N'1' WHERE (支付單號 LIKE N'" & PA29 & "' AND 項次 LIKE N'" & PA1 & "')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_營運成本收支單審核_修改財務收支明細表支出()
-        ConnOpen()
-        SQL1 = "UPDATE 財務收支明細表 SET  公帳 = N'1' WHERE (支付單號 LIKE N'" & PA29 & "' AND 項次 LIKE N'" & PA1 & "')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_財務採購關聯表_反改查詢()
-        ConnOpen() : SQL1 = "SELECT 採購單號, 轉財務金額, 流水號 FROM 財務採購關聯表 WHERE (財務單號 LIKE '" & PA20 & "')" : CmdSet_For_DGV()
-    End Sub
-    Friend Sub SQL_財務採購關聯表_反改()
-        ConnOpen() : SQL1 = "DELETE 財務採購關聯表 WHERE (財務單號 LIKE '" & PA20 & "')" : CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_採購單控制表_反改查詢()
-        ConnOpen() : SQL1 = "SELECT 轉財務金額 FROM 採購單控制表 WHERE (採購單號 LIKE '" & PA21 & "')" : CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_採購單控制表_反改()
-        ConnOpen() : SQL1 = "UPDATE 採購單控制表 SET 轉財務金額 = '" & PA22 & "' WHERE (採購單號 LIKE '" & PA21 & "')" : CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_採購單詢價_控制刪除()
-        ConnOpen() : SQL1 = "DELETE FROM 採購單控制表 WHERE (採購單號 LIKE N'" & PA & "')" : CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_採購單詢價_明細刪除()
-        ConnOpen() : SQL1 = "DELETE FROM 採購單明細表 WHERE (採購單號 LIKE N'" & PA & "')" : CmdSet_For_dr()
-    End Sub
-End Module

Calculator-SYS/0、MyModule/資料庫/SQL_請採購系統管理.vb → Calculator-SYS/0、MyModule/資料庫/SQL_語法_2.vb

@@ -1,4 +1,4 @@
-Module SQL_請採購系統管理
+Module SQL_語法_2
     Friend Sub SQL_建築物料請購單核准_請購單清單()
         ConnOpen()
         If 低網速模式 = False Then : 低網 = ", 物料圖庫.圖檔" : Else : 低網 = "" : End If

Calculator-SYS/10、背景程式與對話視窗/個人帳號管理.vb

@@ -6,7 +6,7 @@ Public Class 個人帳號管理
     Dim RI As Integer = -1
     Dim SK As String = "要查找的 KEY"
     Dim Str As String = Application.StartupPath
-    DIM 對話框(2) As String
+    Private ReadOnly 對話框(2) As String
     Private Sub Set_使用者資料()
         SQL_使用者資料()
         If dr.Read() Then : 姓名_rtb.Text = dr("姓名").ToString : 帳號_rtb.Text = dr("帳號").ToString : 密碼_rtb.Text = dr("密碼").ToString

Calculator-SYS/10、背景程式與對話視窗/桌面捷徑設定.vb

@@ -4,7 +4,7 @@ Public Class 桌面捷徑設定
     Dim RI As Integer = -1
     Dim SK As String = "要查找的 KEY"
     Dim Str As String = Application.StartupPath
-    DIM 對話框(9) As String
+    Private ReadOnly 對話框(9) As String
     Private Sub Set_語言()
         語言_dgv.DataSource = Nothing
         語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

Calculator-SYS/Calculator-SYS.vbproj

@@ -50,6 +50,9 @@
   <PropertyGroup>
     <ApplicationIcon>ayo9y-pohlq-001.ico</ApplicationIcon>
   </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationManifest>app.manifest</ApplicationManifest>
+  </PropertyGroup>
   <ItemGroup>
     <Reference Include="Microsoft.CSharp" />
     <Reference Include="Microsoft.Office.Interop.Excel, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
@@ -104,12 +107,36 @@
     <Compile Include="05、人事考勤系統\選擇考勤月份.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="06、財務系統管理\財務報表3.Designer.vb">
+      <DependentUpon>財務報表3.vb</DependentUpon>
+    </Compile>
+    <Compile Include="06、財務系統管理\財務報表3.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="06、財務系統管理\財務報表2.Designer.vb">
+      <DependentUpon>財務報表2.vb</DependentUpon>
+    </Compile>
+    <Compile Include="06、財務系統管理\財務報表2.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="06、財務系統管理\每月零用金設定.Designer.vb">
       <DependentUpon>每月零用金設定.vb</DependentUpon>
     </Compile>
     <Compile Include="06、財務系統管理\每月零用金設定.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="06、財務系統管理\財務報表1.Designer.vb">
+      <DependentUpon>財務報表1.vb</DependentUpon>
+    </Compile>
+    <Compile Include="06、財務系統管理\財務報表1.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="06、財務系統管理\財務報表4.Designer.vb">
+      <DependentUpon>財務報表4.vb</DependentUpon>
+    </Compile>
+    <Compile Include="06、財務系統管理\財務報表4.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="06、財務系統管理\財物支付單申請_傳票.Designer.vb">
       <DependentUpon>財物支付單申請_傳票.vb</DependentUpon>
     </Compile>
@@ -158,6 +185,7 @@
     <Compile Include="08、資料庫系統管理\系統執行檔版本管理.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="0、MyModule\模組\DGV進度條.vb" />
     <Compile Include="0、MyModule\模組\GcmProc.vb" />
     <Compile Include="0、MyModule\模組\SQL_Module.vb" />
     <Compile Include="0、MyModule\模組\SQL_連線字串.vb" />
@@ -166,9 +194,9 @@
     <Compile Include="0、MyModule\模組\SQL_連線狀態模組3.vb" />
     <Compile Include="0、MyModule\模組\全域變數.vb" />
     <Compile Include="0、MyModule\資料庫\SQL_LINE.vb" />
-    <Compile Include="0、MyModule\資料庫\SQL_人事系統管理.vb" />
+    <Compile Include="0、MyModule\資料庫\SQL_語法_1.vb" />
     <Compile Include="0、MyModule\資料庫\SQL_登入與主程式.vb" />
-    <Compile Include="0、MyModule\資料庫\SQL_請採購系統管理.vb" />
+    <Compile Include="0、MyModule\資料庫\SQL_語法_2.vb" />
     <Compile Include="10、背景程式與對話視窗\下拉清單_1.Designer.vb">
       <DependentUpon>下拉清單_1.vb</DependentUpon>
     </Compile>
@@ -278,9 +306,21 @@
     <EmbeddedResource Include="05、人事考勤系統\選擇考勤月份.resx">
       <DependentUpon>選擇考勤月份.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="06、財務系統管理\財務報表3.resx">
+      <DependentUpon>財務報表3.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="06、財務系統管理\財務報表2.resx">
+      <DependentUpon>財務報表2.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="06、財務系統管理\每月零用金設定.resx">
       <DependentUpon>每月零用金設定.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="06、財務系統管理\財務報表1.resx">
+      <DependentUpon>財務報表1.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="06、財務系統管理\財務報表4.resx">
+      <DependentUpon>財務報表4.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="06、財務系統管理\財物支付單申請_傳票.resx">
       <DependentUpon>財物支付單申請_傳票.vb</DependentUpon>
     </EmbeddedResource>
@@ -356,6 +396,7 @@
     </EmbeddedResource>
   </ItemGroup>
   <ItemGroup>
+    <None Include="app.manifest" />
     <None Include="My Project\Application.myapp">
       <Generator>MyApplicationCodeGenerator</Generator>
       <LastGenOutput>Application.Designer.vb</LastGenOutput>
@@ -369,6 +410,8 @@
   </ItemGroup>
   <ItemGroup>
     <Content Include="ayo9y-pohlq-001.ico" />
+    <None Include="圖片\0hxlogo1.png" />
+    <None Include="圖片\visa_2.png" />
     <None Include="圖片\Report.ico" />
     <None Include="圖片\ZOOM01.png" />
     <None Include="圖片\arrow-right.png" />

Calculator-SYS/HX_PGS_ERP_SYS.Designer.vb

@@ -49,6 +49,8 @@ Partial Class HX_PGS_ERP_SYS
         Me.採購系統管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.請購單核準_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.採購單一級核准_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.採購單一覽表_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
         Me.供應商管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.供應商商品單價設定_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.人事系統管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
@@ -56,12 +58,28 @@ Partial Class HX_PGS_ERP_SYS
         Me.資料庫系統管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.財務支付申請_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.財務支付審核_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.財務報表1_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.財務報表2_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.財務報表3_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
         Me.每月零用金設定_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.系統執行檔版本管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.延遲1 = New System.Windows.Forms.Timer(Me.components)
         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
         Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
         Me.虛擬桌_pl = New System.Windows.Forms.Panel()
+        Me.財務報表4_p = New System.Windows.Forms.Panel()
+        Me.財務報表4_lb = New System.Windows.Forms.Label()
+        Me.財務報表4_pb = New System.Windows.Forms.PictureBox()
+        Me.財務報表3_p = New System.Windows.Forms.Panel()
+        Me.財務報表3_lb = New System.Windows.Forms.Label()
+        Me.財務報表3_pb = New System.Windows.Forms.PictureBox()
+        Me.財務報表2_p = New System.Windows.Forms.Panel()
+        Me.財務報表2_lb = New System.Windows.Forms.Label()
+        Me.財務報表2_pb = New System.Windows.Forms.PictureBox()
+        Me.財務報表1_p = New System.Windows.Forms.Panel()
+        Me.財務報表1_lb = New System.Windows.Forms.Label()
+        Me.財務報表1_pb = New System.Windows.Forms.PictureBox()
         Me.採購單一覽表_p = New System.Windows.Forms.Panel()
         Me.採購單一覽表_lb = New System.Windows.Forms.Label()
         Me.採購單一覽表_pb = New System.Windows.Forms.PictureBox()
@@ -92,12 +110,19 @@ Partial Class HX_PGS_ERP_SYS
         Me.系統執行檔版本管理_p = New System.Windows.Forms.Panel()
         Me.系統執行檔版本管理_lb = New System.Windows.Forms.Label()
         Me.系統執行檔版本管理_pb = New System.Windows.Forms.PictureBox()
-        Me.採購單一覽表_tsm = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.財務報表4_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.StatusStrip.SuspendLayout()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.MenuStrip.SuspendLayout()
         Me.虛擬桌_pl.SuspendLayout()
+        Me.財務報表4_p.SuspendLayout()
+        CType(Me.財務報表4_pb, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.財務報表3_p.SuspendLayout()
+        CType(Me.財務報表3_pb, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.財務報表2_p.SuspendLayout()
+        CType(Me.財務報表2_pb, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.財務報表1_p.SuspendLayout()
+        CType(Me.財務報表1_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.採購單一覽表_p.SuspendLayout()
         CType(Me.採購單一覽表_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.財務支付審核_p.SuspendLayout()
@@ -281,28 +306,40 @@ Partial Class HX_PGS_ERP_SYS
         '
         Me.請購單核準_tsm.Image = Global.Calculator_SYS.My.Resources.Resources.check
         Me.請購單核準_tsm.Name = "請購單核準_tsm"
-        Me.請購單核準_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.請購單核準_tsm.Size = New System.Drawing.Size(173, 22)
         Me.請購單核準_tsm.Text = "請購單核準"
         '
         '採購單一級核准_tsm
         '
         Me.採購單一級核准_tsm.Image = Global.Calculator_SYS.My.Resources.Resources.check
         Me.採購單一級核准_tsm.Name = "採購單一級核准_tsm"
-        Me.採購單一級核准_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.採購單一級核准_tsm.Size = New System.Drawing.Size(173, 22)
         Me.採購單一級核准_tsm.Text = "採購單一級核准"
         '
+        '採購單一覽表_tsm
+        '
+        Me.採購單一覽表_tsm.Image = Global.Calculator_SYS.My.Resources.Resources.Report
+        Me.採購單一覽表_tsm.Name = "採購單一覽表_tsm"
+        Me.採購單一覽表_tsm.Size = New System.Drawing.Size(173, 22)
+        Me.採購單一覽表_tsm.Text = "採購單一覽表"
+        '
+        'ToolStripSeparator1
+        '
+        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(170, 6)
+        '
         '供應商管理_tsm
         '
         Me.供應商管理_tsm.Image = Global.Calculator_SYS.My.Resources.Resources.system
         Me.供應商管理_tsm.Name = "供應商管理_tsm"
-        Me.供應商管理_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.供應商管理_tsm.Size = New System.Drawing.Size(173, 22)
         Me.供應商管理_tsm.Text = "供應商管理"
         '
         '供應商商品單價設定_tsm
         '
         Me.供應商商品單價設定_tsm.Image = Global.Calculator_SYS.My.Resources.Resources.Money2
         Me.供應商商品單價設定_tsm.Name = "供應商商品單價設定_tsm"
-        Me.供應商商品單價設定_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.供應商商品單價設定_tsm.Size = New System.Drawing.Size(173, 22)
         Me.供應商商品單價設定_tsm.Text = "供應商商品單價設定"
         '
         '人事系統管理_tsm
@@ -317,12 +354,12 @@ Partial Class HX_PGS_ERP_SYS
         '
         Me.人員薪資_tsm.Image = Global.Calculator_SYS.My.Resources.Resources.Money2
         Me.人員薪資_tsm.Name = "人員薪資_tsm"
-        Me.人員薪資_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.人員薪資_tsm.Size = New System.Drawing.Size(118, 22)
         Me.人員薪資_tsm.Text = "人員薪資"
         '
         '資料庫系統管理_tsm
         '
-        Me.資料庫系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.財務支付申請_tsm, Me.財務支付審核_tsm, Me.每月零用金設定_tsm, Me.系統執行檔版本管理_tsm})
+        Me.資料庫系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.財務支付申請_tsm, Me.財務支付審核_tsm, Me.財務報表1_tsm, Me.財務報表2_tsm, Me.財務報表3_tsm, Me.財務報表4_tsm, Me.ToolStripSeparator2, Me.每月零用金設定_tsm, Me.系統執行檔版本管理_tsm})
         Me.資料庫系統管理_tsm.ForeColor = System.Drawing.Color.Black
         Me.資料庫系統管理_tsm.Image = CType(resources.GetObject("資料庫系統管理_tsm.Image"), System.Drawing.Image)
         Me.資料庫系統管理_tsm.Name = "資料庫系統管理_tsm"
@@ -333,21 +370,47 @@ Partial Class HX_PGS_ERP_SYS
         '
         Me.財務支付申請_tsm.Image = Global.Calculator_SYS.My.Resources.Resources.pen
         Me.財務支付申請_tsm.Name = "財務支付申請_tsm"
-        Me.財務支付申請_tsm.Size = New System.Drawing.Size(173, 22)
+        Me.財務支付申請_tsm.Size = New System.Drawing.Size(180, 22)
         Me.財務支付申請_tsm.Text = "財務支付申請"
         '
         '財務支付審核_tsm
         '
         Me.財務支付審核_tsm.Image = Global.Calculator_SYS.My.Resources.Resources.check1
         Me.財務支付審核_tsm.Name = "財務支付審核_tsm"
-        Me.財務支付審核_tsm.Size = New System.Drawing.Size(173, 22)
+        Me.財務支付審核_tsm.Size = New System.Drawing.Size(180, 22)
         Me.財務支付審核_tsm.Text = "財務支付審核"
         '
+        '財務報表1_tsm
+        '
+        Me.財務報表1_tsm.Image = Global.Calculator_SYS.My.Resources.Resources.Report
+        Me.財務報表1_tsm.Name = "財務報表1_tsm"
+        Me.財務報表1_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.財務報表1_tsm.Text = "財務報表-1"
+        '
+        '財務報表2_tsm
+        '
+        Me.財務報表2_tsm.Image = Global.Calculator_SYS.My.Resources.Resources.Report
+        Me.財務報表2_tsm.Name = "財務報表2_tsm"
+        Me.財務報表2_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.財務報表2_tsm.Text = "財務報表-2"
+        '
+        '財務報表3_tsm
+        '
+        Me.財務報表3_tsm.Image = Global.Calculator_SYS.My.Resources.Resources.Report
+        Me.財務報表3_tsm.Name = "財務報表3_tsm"
+        Me.財務報表3_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.財務報表3_tsm.Text = "財務報表-3"
+        '
+        'ToolStripSeparator2
+        '
+        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(177, 6)
+        '
         '每月零用金設定_tsm
         '
         Me.每月零用金設定_tsm.Image = Global.Calculator_SYS.My.Resources.Resources.system
         Me.每月零用金設定_tsm.Name = "每月零用金設定_tsm"
-        Me.每月零用金設定_tsm.Size = New System.Drawing.Size(173, 22)
+        Me.每月零用金設定_tsm.Size = New System.Drawing.Size(180, 22)
         Me.每月零用金設定_tsm.Text = "每月零用金設定"
         '
         '系統執行檔版本管理_tsm
@@ -355,7 +418,7 @@ Partial Class HX_PGS_ERP_SYS
         Me.系統執行檔版本管理_tsm.ForeColor = System.Drawing.Color.Black
         Me.系統執行檔版本管理_tsm.Image = CType(resources.GetObject("系統執行檔版本管理_tsm.Image"), System.Drawing.Image)
         Me.系統執行檔版本管理_tsm.Name = "系統執行檔版本管理_tsm"
-        Me.系統執行檔版本管理_tsm.Size = New System.Drawing.Size(173, 22)
+        Me.系統執行檔版本管理_tsm.Size = New System.Drawing.Size(180, 22)
         Me.系統執行檔版本管理_tsm.Text = "系統執行檔版本管理"
         '
         'Timer1
@@ -373,6 +436,10 @@ Partial Class HX_PGS_ERP_SYS
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.虛擬桌_pl.BackgroundImage = Global.Calculator_SYS.My.Resources.Resources._62951168976601486
         Me.虛擬桌_pl.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.虛擬桌_pl.Controls.Add(Me.財務報表4_p)
+        Me.虛擬桌_pl.Controls.Add(Me.財務報表3_p)
+        Me.虛擬桌_pl.Controls.Add(Me.財務報表2_p)
+        Me.虛擬桌_pl.Controls.Add(Me.財務報表1_p)
         Me.虛擬桌_pl.Controls.Add(Me.採購單一覽表_p)
         Me.虛擬桌_pl.Controls.Add(Me.財務支付審核_p)
         Me.虛擬桌_pl.Controls.Add(Me.財務支付申請_p)
@@ -388,6 +455,150 @@ Partial Class HX_PGS_ERP_SYS
         Me.虛擬桌_pl.Size = New System.Drawing.Size(1350, 682)
         Me.虛擬桌_pl.TabIndex = 11
         '
+        '財務報表4_p
+        '
+        Me.財務報表4_p.BackColor = System.Drawing.Color.Transparent
+        Me.財務報表4_p.Controls.Add(Me.財務報表4_lb)
+        Me.財務報表4_p.Controls.Add(Me.財務報表4_pb)
+        Me.財務報表4_p.Location = New System.Drawing.Point(128, 497)
+        Me.財務報表4_p.Name = "財務報表4_p"
+        Me.財務報表4_p.Size = New System.Drawing.Size(125, 83)
+        Me.財務報表4_p.TabIndex = 1770
+        '
+        '財務報表4_lb
+        '
+        Me.財務報表4_lb.AutoEllipsis = True
+        Me.財務報表4_lb.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.財務報表4_lb.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.財務報表4_lb.ForeColor = System.Drawing.Color.Purple
+        Me.財務報表4_lb.Location = New System.Drawing.Point(1, 50)
+        Me.財務報表4_lb.Name = "財務報表4_lb"
+        Me.財務報表4_lb.Size = New System.Drawing.Size(123, 30)
+        Me.財務報表4_lb.TabIndex = 1
+        Me.財務報表4_lb.Text = "財務報表-4"
+        Me.財務報表4_lb.TextAlign = System.Drawing.ContentAlignment.TopCenter
+        '
+        '財務報表4_pb
+        '
+        Me.財務報表4_pb.BackgroundImage = Global.Calculator_SYS.My.Resources.Resources.CC5
+        Me.財務報表4_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.財務報表4_pb.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.財務報表4_pb.Image = Global.Calculator_SYS.My.Resources.Resources.Report
+        Me.財務報表4_pb.Location = New System.Drawing.Point(11, 4)
+        Me.財務報表4_pb.Name = "財務報表4_pb"
+        Me.財務報表4_pb.Size = New System.Drawing.Size(101, 45)
+        Me.財務報表4_pb.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.財務報表4_pb.TabIndex = 0
+        Me.財務報表4_pb.TabStop = False
+        '
+        '財務報表3_p
+        '
+        Me.財務報表3_p.BackColor = System.Drawing.Color.Transparent
+        Me.財務報表3_p.Controls.Add(Me.財務報表3_lb)
+        Me.財務報表3_p.Controls.Add(Me.財務報表3_pb)
+        Me.財務報表3_p.Location = New System.Drawing.Point(4, 497)
+        Me.財務報表3_p.Name = "財務報表3_p"
+        Me.財務報表3_p.Size = New System.Drawing.Size(125, 83)
+        Me.財務報表3_p.TabIndex = 1769
+        '
+        '財務報表3_lb
+        '
+        Me.財務報表3_lb.AutoEllipsis = True
+        Me.財務報表3_lb.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.財務報表3_lb.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.財務報表3_lb.ForeColor = System.Drawing.Color.Purple
+        Me.財務報表3_lb.Location = New System.Drawing.Point(1, 50)
+        Me.財務報表3_lb.Name = "財務報表3_lb"
+        Me.財務報表3_lb.Size = New System.Drawing.Size(123, 30)
+        Me.財務報表3_lb.TabIndex = 1
+        Me.財務報表3_lb.Text = "財務報表-3"
+        Me.財務報表3_lb.TextAlign = System.Drawing.ContentAlignment.TopCenter
+        '
+        '財務報表3_pb
+        '
+        Me.財務報表3_pb.BackgroundImage = Global.Calculator_SYS.My.Resources.Resources.CC5
+        Me.財務報表3_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.財務報表3_pb.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.財務報表3_pb.Image = Global.Calculator_SYS.My.Resources.Resources.Report
+        Me.財務報表3_pb.Location = New System.Drawing.Point(11, 4)
+        Me.財務報表3_pb.Name = "財務報表3_pb"
+        Me.財務報表3_pb.Size = New System.Drawing.Size(101, 45)
+        Me.財務報表3_pb.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.財務報表3_pb.TabIndex = 0
+        Me.財務報表3_pb.TabStop = False
+        '
+        '財務報表2_p
+        '
+        Me.財務報表2_p.BackColor = System.Drawing.Color.Transparent
+        Me.財務報表2_p.Controls.Add(Me.財務報表2_lb)
+        Me.財務報表2_p.Controls.Add(Me.財務報表2_pb)
+        Me.財務報表2_p.Location = New System.Drawing.Point(128, 415)
+        Me.財務報表2_p.Name = "財務報表2_p"
+        Me.財務報表2_p.Size = New System.Drawing.Size(125, 83)
+        Me.財務報表2_p.TabIndex = 1768
+        '
+        '財務報表2_lb
+        '
+        Me.財務報表2_lb.AutoEllipsis = True
+        Me.財務報表2_lb.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.財務報表2_lb.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.財務報表2_lb.ForeColor = System.Drawing.Color.Purple
+        Me.財務報表2_lb.Location = New System.Drawing.Point(1, 50)
+        Me.財務報表2_lb.Name = "財務報表2_lb"
+        Me.財務報表2_lb.Size = New System.Drawing.Size(123, 30)
+        Me.財務報表2_lb.TabIndex = 1
+        Me.財務報表2_lb.Text = "財務報表-2"
+        Me.財務報表2_lb.TextAlign = System.Drawing.ContentAlignment.TopCenter
+        '
+        '財務報表2_pb
+        '
+        Me.財務報表2_pb.BackgroundImage = Global.Calculator_SYS.My.Resources.Resources.CC5
+        Me.財務報表2_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.財務報表2_pb.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.財務報表2_pb.Image = Global.Calculator_SYS.My.Resources.Resources.Report
+        Me.財務報表2_pb.Location = New System.Drawing.Point(11, 4)
+        Me.財務報表2_pb.Name = "財務報表2_pb"
+        Me.財務報表2_pb.Size = New System.Drawing.Size(101, 45)
+        Me.財務報表2_pb.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.財務報表2_pb.TabIndex = 0
+        Me.財務報表2_pb.TabStop = False
+        '
+        '財務報表1_p
+        '
+        Me.財務報表1_p.BackColor = System.Drawing.Color.Transparent
+        Me.財務報表1_p.Controls.Add(Me.財務報表1_lb)
+        Me.財務報表1_p.Controls.Add(Me.財務報表1_pb)
+        Me.財務報表1_p.Location = New System.Drawing.Point(128, 333)
+        Me.財務報表1_p.Name = "財務報表1_p"
+        Me.財務報表1_p.Size = New System.Drawing.Size(125, 83)
+        Me.財務報表1_p.TabIndex = 1767
+        '
+        '財務報表1_lb
+        '
+        Me.財務報表1_lb.AutoEllipsis = True
+        Me.財務報表1_lb.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.財務報表1_lb.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.財務報表1_lb.ForeColor = System.Drawing.Color.Purple
+        Me.財務報表1_lb.Location = New System.Drawing.Point(1, 50)
+        Me.財務報表1_lb.Name = "財務報表1_lb"
+        Me.財務報表1_lb.Size = New System.Drawing.Size(123, 30)
+        Me.財務報表1_lb.TabIndex = 1
+        Me.財務報表1_lb.Text = "財務報表-1"
+        Me.財務報表1_lb.TextAlign = System.Drawing.ContentAlignment.TopCenter
+        '
+        '財務報表1_pb
+        '
+        Me.財務報表1_pb.BackgroundImage = Global.Calculator_SYS.My.Resources.Resources.CC5
+        Me.財務報表1_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.財務報表1_pb.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.財務報表1_pb.Image = Global.Calculator_SYS.My.Resources.Resources.Report
+        Me.財務報表1_pb.Location = New System.Drawing.Point(11, 4)
+        Me.財務報表1_pb.Name = "財務報表1_pb"
+        Me.財務報表1_pb.Size = New System.Drawing.Size(101, 45)
+        Me.財務報表1_pb.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.財務報表1_pb.TabIndex = 0
+        Me.財務報表1_pb.TabStop = False
+        '
         '採購單一覽表_p
         '
         Me.採購單一覽表_p.BackColor = System.Drawing.Color.Transparent
@@ -748,17 +959,12 @@ Partial Class HX_PGS_ERP_SYS
         Me.系統執行檔版本管理_pb.TabIndex = 0
         Me.系統執行檔版本管理_pb.TabStop = False
         '
-        '採購單一覽表_tsm
+        '財務報表4_tsm
         '
-        Me.採購單一覽表_tsm.Image = Global.Calculator_SYS.My.Resources.Resources.Report
-        Me.採購單一覽表_tsm.Name = "採購單一覽表_tsm"
-        Me.採購單一覽表_tsm.Size = New System.Drawing.Size(180, 22)
-        Me.採購單一覽表_tsm.Text = "採購單一覽表"
-        '
-        'ToolStripSeparator1
-        '
-        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
+        Me.財務報表4_tsm.Image = Global.Calculator_SYS.My.Resources.Resources.Report
+        Me.財務報表4_tsm.Name = "財務報表4_tsm"
+        Me.財務報表4_tsm.Size = New System.Drawing.Size(180, 22)
+        Me.財務報表4_tsm.Text = "財務報表-4"
         '
         'HX_PGS_ERP_SYS
         '
@@ -781,6 +987,14 @@ Partial Class HX_PGS_ERP_SYS
         Me.MenuStrip.ResumeLayout(False)
         Me.MenuStrip.PerformLayout()
         Me.虛擬桌_pl.ResumeLayout(False)
+        Me.財務報表4_p.ResumeLayout(False)
+        CType(Me.財務報表4_pb, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.財務報表3_p.ResumeLayout(False)
+        CType(Me.財務報表3_pb, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.財務報表2_p.ResumeLayout(False)
+        CType(Me.財務報表2_pb, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.財務報表1_p.ResumeLayout(False)
+        CType(Me.財務報表1_pb, System.ComponentModel.ISupportInitialize).EndInit()
         Me.採購單一覽表_p.ResumeLayout(False)
         CType(Me.採購單一覽表_pb, System.ComponentModel.ISupportInitialize).EndInit()
         Me.財務支付審核_p.ResumeLayout(False)
@@ -874,4 +1088,21 @@ Partial Class HX_PGS_ERP_SYS
     Friend WithEvents 採購單一覽表_pb As PictureBox
     Friend WithEvents 採購單一覽表_tsm As ToolStripMenuItem
     Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
+    Friend WithEvents 財務報表1_tsm As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
+    Friend WithEvents 財務報表1_p As Panel
+    Friend WithEvents 財務報表1_lb As Label
+    Friend WithEvents 財務報表1_pb As PictureBox
+    Friend WithEvents 財務報表2_p As Panel
+    Friend WithEvents 財務報表2_lb As Label
+    Friend WithEvents 財務報表2_pb As PictureBox
+    Friend WithEvents 財務報表2_tsm As ToolStripMenuItem
+    Friend WithEvents 財務報表3_tsm As ToolStripMenuItem
+    Friend WithEvents 財務報表3_p As Panel
+    Friend WithEvents 財務報表3_lb As Label
+    Friend WithEvents 財務報表3_pb As PictureBox
+    Friend WithEvents 財務報表4_p As Panel
+    Friend WithEvents 財務報表4_lb As Label
+    Friend WithEvents 財務報表4_pb As PictureBox
+    Friend WithEvents 財務報表4_tsm As ToolStripMenuItem
 End Class

Calculator-SYS/HX_PGS_ERP_SYS.vb

@@ -3,13 +3,10 @@ Imports System.IO
 Imports System.Text
 Public Class HX_PGS_ERP_SYS
     Private m_ChildFormNumber As Integer
-    Dim 對話框(30), 已選捷徑(100) As String
+    Private ReadOnly 對話框(30), 已選捷徑(100) 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 表單的子表單，然後才顯示。
@@ -51,17 +48,21 @@ Public Class HX_PGS_ERP_SYS
         '------------------------人事管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
         人事系統管理_tsm.Text = 系統語言字典("H001-101-" & 語言)
         人員薪資_tsm.Text = 系統語言字典("H001-272-" & 語言) : 人員薪資_lb.Text = 系統語言字典("H001-272-" & 語言)
+        '------------------------財務管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
+        系統執行檔版本管理_tsm.Text = 系統語言字典("H001-149-" & 語言) : 系統執行檔版本管理_lb.Text = 系統語言字典("H001-149-" & 語言)
+        每月零用金設定_tsm.Text = 系統語言字典("G000-238-" & 語言) : 每月零用金設定_lb.Text = 系統語言字典("G000-238-" & 語言)
+        財務支付申請_tsm.Text = 系統語言字典("H001-112-" & 語言) : 財務支付申請_lb.Text = 系統語言字典("H001-112-" & 語言)
+        財務支付審核_tsm.Text = 系統語言字典("H001-114-" & 語言) : 財務支付審核_lb.Text = 系統語言字典("H001-114-" & 語言)
+        財務報表1_tsm.Text = 系統語言字典("G000-254-" & 語言) : 財務報表1_lb.Text = 系統語言字典("G000-254-" & 語言)
+        財務報表2_tsm.Text = 系統語言字典("G000-255-" & 語言) : 財務報表2_lb.Text = 系統語言字典("G000-255-" & 語言)
+        財務報表3_tsm.Text = 系統語言字典("G000-256-" & 語言) : 財務報表3_lb.Text = 系統語言字典("G000-256-" & 語言)
+        財務報表4_tsm.Text = 系統語言字典("G000-257-" & 語言) : 財務報表4_lb.Text = 系統語言字典("G000-257-" & 語言)
         '------------------------系統-------------------------------------------------------------------------------------------------------------------------------------------------------
         桌面捷徑設定_tsm.Text = 系統語言字典("H001-145-" & 語言) : 水平並排_tsm.Text = 系統語言字典("H001-117-" & 語言) : 全部關閉_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-205-" & 語言) : sysnud = 系統語言字典("G000-102-" & 語言)
-
-        系統執行檔版本管理_tsm.Text = 系統語言字典("H001-149-" & 語言) : 系統執行檔版本管理_lb.Text = 系統語言字典("H001-149-" & 語言)
-        每月零用金設定_tsm.Text = 系統語言字典("G000-238-" & 語言) : 每月零用金設定_lb.Text = 系統語言字典("G000-238-" & 語言)
-        財務支付申請_tsm.Text = 系統語言字典("H001-112-" & 語言) : 財務支付申請_lb.Text = 系統語言字典("H001-112-" & 語言)
-        財務支付審核_tsm.Text = 系統語言字典("H001-114-" & 語言) : 財務支付審核_lb.Text = 系統語言字典("H001-114-" & 語言)
     End Sub
     Private Sub HX_PGS_ERP_SYS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.Size = New Point(1366, 768) : MyMod.清單字體大小調整() : 語言轉換讀取()
@@ -73,7 +74,6 @@ Public Class HX_PGS_ERP_SYS
 
         '------------------------系統登入時宣告-------------------------------------------------------------------------------------------------------------------------------------------------
         系統語言1_cb.Items.Clear() : 系統語言1_cb.Items.Add("繁體中文") : 系統語言1_cb.Items.Add("English") : 系統語言1_cb.Items.Add("Indonesian")
-
         '------------------------採購管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
         請購單核準_tsm.Visible = CC(34) : 請購單核準_p.Visible = CC(34)
         If CC(34) = True Then : 捷徑名稱(捷徑數量) = "BC02" : 顯示名稱(捷徑數量) = 請購單核準_tsm.Text : 捷徑類別(捷徑數量) = "採購" : 捷徑數量 += 1 : End If
@@ -88,15 +88,24 @@ Public Class HX_PGS_ERP_SYS
         '------------------------人事管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
         人員薪資_tsm.Visible = CC(81) : 人員薪資_p.Visible = CC(81)
         If CC(81) = True Then : 捷徑名稱(捷徑數量) = "FC08" : 顯示名稱(捷徑數量) = 人員薪資_tsm.Text : 捷徑類別(捷徑數量) = "人事" : 捷徑數量 += 1 : End If
-        '------------------------資料庫管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
-        系統執行檔版本管理_tsm.Visible = CC(4) : 系統執行檔版本管理_p.Visible = CC(4)
-        If CC(4) = True Then : 捷徑名稱(捷徑數量) = "GC01" : 顯示名稱(捷徑數量) = 系統執行檔版本管理_tsm.Text : 捷徑類別(捷徑數量) = "其他" : 捷徑數量 += 1 : End If
+        '------------------------財務管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
         每月零用金設定_tsm.Visible = CC(18) : 每月零用金設定_p.Visible = CC(18)
-        If CC(18) = True Then : 捷徑名稱(捷徑數量) = "GC02" : 顯示名稱(捷徑數量) = 每月零用金設定_tsm.Text : 捷徑類別(捷徑數量) = "其他" : 捷徑數量 += 1 : End If
+        If CC(18) = True Then : 捷徑名稱(捷徑數量) = "GC01" : 顯示名稱(捷徑數量) = 每月零用金設定_tsm.Text : 捷徑類別(捷徑數量) = "其他" : 捷徑數量 += 1 : End If
+        財務報表1_tsm.Visible = CC(18) : 財務報表1_p.Visible = CC(18)
+        If CC(18) = True Then : 捷徑名稱(捷徑數量) = "GC02" : 顯示名稱(捷徑數量) = 財務報表1_tsm.Text : 捷徑類別(捷徑數量) = "其他" : 捷徑數量 += 1 : End If
+        財務報表2_tsm.Visible = CC(18) : 財務報表2_p.Visible = CC(18)
+        If CC(18) = True Then : 捷徑名稱(捷徑數量) = "GC03" : 顯示名稱(捷徑數量) = 財務報表2_tsm.Text : 捷徑類別(捷徑數量) = "其他" : 捷徑數量 += 1 : End If
+        財務報表3_tsm.Visible = CC(18) : 財務報表3_p.Visible = CC(18)
+        If CC(18) = True Then : 捷徑名稱(捷徑數量) = "GC04" : 顯示名稱(捷徑數量) = 財務報表3_tsm.Text : 捷徑類別(捷徑數量) = "其他" : 捷徑數量 += 1 : End If
+        財務報表4_tsm.Visible = CC(18) : 財務報表4_p.Visible = CC(18)
+        If CC(18) = True Then : 捷徑名稱(捷徑數量) = "GC05" : 顯示名稱(捷徑數量) = 財務報表4_tsm.Text : 捷徑類別(捷徑數量) = "其他" : 捷徑數量 += 1 : End If
         財務支付申請_tsm.Visible = CC(76) : 財務支付申請_p.Visible = CC(76)
         If CC(66) = True Then : 捷徑名稱(捷徑數量) = "EC12" : 顯示名稱(捷徑數量) = 財務支付申請_tsm.Text : 捷徑類別(捷徑數量) = "財務" : 捷徑數量 += 1 : End If
         財務支付審核_tsm.Visible = CC(77) : 財務支付審核_p.Visible = CC(77)
         If CC(77) = True Then : 捷徑名稱(捷徑數量) = "EC13" : 顯示名稱(捷徑數量) = 財務支付審核_tsm.Text : 捷徑類別(捷徑數量) = "財務" : 捷徑數量 += 1 : End If
+        '------------------------資料庫管理系統-------------------------------------------------------------------------------------------------------------------------------------------------
+        系統執行檔版本管理_tsm.Visible = CC(4) : 系統執行檔版本管理_p.Visible = CC(4)
+        If CC(4) = True Then : 捷徑名稱(捷徑數量) = "GC01" : 顯示名稱(捷徑數量) = 系統執行檔版本管理_tsm.Text : 捷徑類別(捷徑數量) = "其他" : 捷徑數量 += 1 : End If
 
         採購系統管理_tsm.Visible = CC(6) : 人事系統管理_tsm.Visible = CC(22)
     End Sub
@@ -124,8 +133,6 @@ Public Class HX_PGS_ERP_SYS
         If 登入人IP = "106.1.48.106,4567" Or 登入人IP = "111.95.41.244,2433" Or 登入人IP = "192.168.0.112,2433" Then
             MGB(對話框(25), 1)
         End If
-        '-----------------------更新系統公告------------------------------------------------------------------------------------------------------------
-        'If 不用WEB = False Then : If File.Exists(Str + "\OPUPDATE.txt") Then : 介面 = "H001" : WEB說明頁面.Show() : File.Delete(Str & "\OPUPDATE.txt") : Else : End If : End If
     End Sub
     Private Sub HXGPSERPSYS_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing
         系統關閉 = True : If 判斷重登 = True Then : 判斷重登 = False : Else : 判斷重登 = False : 計算機.Close() : End If
@@ -234,7 +241,7 @@ Public Class HX_PGS_ERP_SYS
             If 已經放置 = 0 Then : 人員薪資_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
             Else : 人員薪資_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
         End If
-        '---------其他---------------------------------------------------------------------------------------------------------------
+        '---------財務---------------------------------------------------------------------------------------------------------------
         If 登入人級別 = "00" Then : If 無設定 = True Then : 財務支付申請_p.Visible = False
             Else : PA20 = "EC12" : 捷徑關閉 = True : 捷徑設定()
                 If 捷徑關閉 = True Then : 財務支付申請_p.Visible = False : Else : 財務支付申請_p.Visible = True : End If : End If : End If
@@ -252,13 +259,45 @@ Public Class HX_PGS_ERP_SYS
         End If
 
         If 無設定 = True Then : 每月零用金設定_p.Visible = False
-        Else : PA20 = "GC02" : 捷徑關閉 = True : 捷徑設定()
+        Else : PA20 = "GC01" : 捷徑關閉 = True : 捷徑設定()
             If 捷徑關閉 = True Then : 每月零用金設定_p.Visible = False : Else : 每月零用金設定_p.Visible = True : End If : End If
         If 每月零用金設定_p.Visible = True Then : 每月零用金設定_p.Size = New Point(位置X, 位置Y1)
             If 已經放置 = 0 Then : 每月零用金設定_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
             Else : 每月零用金設定_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
         End If
 
+        If 無設定 = True Then : 財務報表1_p.Visible = False
+            Else : PA20 = "GC02" : 捷徑關閉 = True : 捷徑設定()
+            If 捷徑關閉 = True Then : 財務報表1_p.Visible = False : Else : 財務報表1_p.Visible = True : End If : End If
+        If 財務報表1_p.Visible = True Then : 財務報表1_p.Size = New Point(位置X, 位置Y1)
+            If 已經放置 = 0 Then : 財務報表1_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
+            Else : 財務報表1_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
+        End If
+
+            If 無設定 = True Then : 財務報表2_p.Visible = False
+            Else : PA20 = "GC03" : 捷徑關閉 = True : 捷徑設定()
+                If 捷徑關閉 = True Then : 財務報表2_p.Visible = False : Else : 財務報表2_p.Visible = True : End If : End If
+        If 財務報表2_p.Visible = True Then : 財務報表2_p.Size = New Point(位置X, 位置Y1)
+            If 已經放置 = 0 Then : 財務報表2_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
+            Else : 財務報表2_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
+        End If
+
+        If 無設定 = True Then : 財務報表3_p.Visible = False
+        Else : PA20 = "GC04" : 捷徑關閉 = True : 捷徑設定()
+            If 捷徑關閉 = True Then : 財務報表3_p.Visible = False : Else : 財務報表3_p.Visible = True : End If : End If
+        If 財務報表3_p.Visible = True Then : 財務報表3_p.Size = New Point(位置X, 位置Y1)
+            If 已經放置 = 0 Then : 財務報表3_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
+            Else : 財務報表3_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
+        End If
+
+        If 無設定 = True Then : 財務報表4_p.Visible = False
+        Else : PA20 = "GC05" : 捷徑關閉 = True : 捷徑設定()
+            If 捷徑關閉 = True Then : 財務報表4_p.Visible = False : Else : 財務報表4_p.Visible = True : End If : End If
+        If 財務報表4_p.Visible = True Then : 財務報表4_p.Size = New Point(位置X, 位置Y1)
+            If 已經放置 = 0 Then : 財務報表4_p.Location = New Point(0, 0) : X已放 = 0 : Y已放 = 1 : 已經放置 += 1
+            Else : 財務報表4_p.Location = New Point(X已放 * 位置X, Y已放 * 位置Y) : Y已放 += 1 : 已經放置 += 1 : If Y已放 >= Y可放 Then : X已放 += 1 : Y已放 = 0 : End If : End If
+        End If
+        '---------其他---------------------------------------------------------------------------------------------------------------
         If 無設定 = True Then : 系統執行檔版本管理_p.Visible = False
         Else : PA20 = "GC01" : 捷徑關閉 = True : 捷徑設定()
             If 捷徑關閉 = True Then : 系統執行檔版本管理_p.Visible = False : Else : 系統執行檔版本管理_p.Visible = True : End If : End If
@@ -275,8 +314,9 @@ Public Class HX_PGS_ERP_SYS
     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 : 介面 = "H001" : 語言轉換讀取()
         '-------------------------------H0系列-系統---------------------------------------------------------------------------------------------------------------------------------------
-        If H(3) = True Then : 介面 = "H003" : 桌面捷徑設定.語轉扭_bt.PerformClick() : End If : If H(314) = True Then : 介面 = "H314" : 財物支付單申請_傳票.語轉扭_bt.PerformClick() : End If
-        If H(610) = True Then : 介面 = "H610" : 每月零用金設定.語轉扭_bt.PerformClick() : End If
+        If H(3) = True Then : 介面 = "H003" : 桌面捷徑設定.語轉扭_bt.PerformClick() : End If
+        '-------------------------------H0系列-財務---------------------------------------------------------------------------------------------------------------------------------------
+        If H(314) = True Then : 介面 = "H314" : 財物支付單申請_傳票.語轉扭_bt.PerformClick() : End If : If H(612) = True Then : 介面 = "H612" : 每月零用金設定.語轉扭_bt.PerformClick() : End If
         '-------------------------------H2系列-採購---------------------------------------------------------------------------------------------------------------------------------------
         If H(202) = True Then : 介面 = "H202" : 請購單核准.語轉扭_bt.PerformClick() : End If : If H(206) = True Then : 介面 = "H206" : 採購單一級核准.語轉扭_bt.PerformClick() : End If
         '-------------------------------H6系列-人事---------------------------------------------------------------------------------------------------------------------------------------
@@ -369,8 +409,8 @@ Public Class HX_PGS_ERP_SYS
         人員薪資_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 
-        '虛擬桌面隱藏() : 重登計時() : 重置()
+        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
@@ -380,8 +420,6 @@ Public Class HX_PGS_ERP_SYS
         財務支付審核_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
-        '虛擬桌面隱藏() : 重登計時() : 重置()
         跨部門開啟 = False : 財物支付單申請_傳票.Show() : 財物支付單申請_傳票.BringToFront()
     End Sub
     Private Sub 財務支付申請_pb_Click(sender As Object, e As EventArgs) Handles 財務支付申請_pb.Click
@@ -404,7 +442,46 @@ Public Class HX_PGS_ERP_SYS
     Private Sub 每月零用金設定_lb_Click(sender As Object, e As EventArgs) Handles 每月零用金設定_lb.Click
         每月零用金設定_tsm.PerformClick()
     End Sub
-
+    Private Sub 財務報表1_tsm_Click(sender As Object, e As EventArgs) Handles 財務報表1_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        虛擬桌面隱藏() : 重登計時() : 重置() : 財務報表1.Show() : 財務報表1.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 財務報表2_tsm_Click(sender As Object, e As EventArgs) Handles 財務報表2_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        虛擬桌面隱藏() : 重登計時() : 重置() : 財務報表2.Show() : 財務報表2.BringToFront()
+    End Sub
+    Private Sub 財務報表2_pb_Click(sender As Object, e As EventArgs) Handles 財務報表2_pb.Click
+        財務報表2_tsm.PerformClick()
+    End Sub
+    Private Sub 財務報表2_lb_Click(sender As Object, e As EventArgs) Handles 財務報表2_lb.Click
+        財務報表2_tsm.PerformClick()
+    End Sub
+    Private Sub 財務報表3_tsm_Click(sender As Object, e As EventArgs) Handles 財務報表3_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        虛擬桌面隱藏() : 重登計時() : 重置() : 財務報表3.Show() : 財務報表3.BringToFront()
+    End Sub
+    Private Sub 財務報表3_pb_Click(sender As Object, e As EventArgs) Handles 財務報表3_pb.Click
+        財務報表3_tsm.PerformClick()
+    End Sub
+    Private Sub 財務報表3_lb_Click(sender As Object, e As EventArgs) Handles 財務報表3_lb.Click
+        財務報表3_tsm.PerformClick()
+    End Sub
+    Private Sub 財務報表4_tsm_Click(sender As Object, e As EventArgs) Handles 財務報表4_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        虛擬桌面隱藏() : 重登計時() : 重置() : 財務報表4.Show() : 財務報表4.BringToFront()
+    End Sub
+    Private Sub 財務報表4_pb_Click(sender As Object, e As EventArgs) Handles 財務報表4_pb.Click
+        財務報表4_tsm.PerformClick()
+    End Sub
+    Private Sub 財務報表4_lb_Click(sender As Object, e As EventArgs) Handles 財務報表4_lb.Click
+        財務報表4_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()

Calculator-SYS/LoginForm1.vb

@@ -17,7 +17,7 @@ Public Class LoginForm1
     Dim diskId As String '數字ID
     Dim diskSerialNumber As String '硬碟序列
     Dim diskModel As String '磁盘型態
-    Dim 對話框(15) As String : Dim FFGG As Integer : Dim GGHH As Integer
+    Private ReadOnly 對話框(15) As String : Dim FFGG As Integer : Dim GGHH As Integer
     Dim Str As String = Application.StartupPath
     Private Sub 語言轉換讀取()
         If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If

Calculator-SYS/My Project/Resources.Designer.vb

@@ -60,6 +60,16 @@ Namespace My.Resources
             End Set
         End Property
         
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property _0hxlogo1() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("0hxlogo1", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
         '''</summary>
@@ -330,6 +340,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property NULL11() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("NULL11", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
         '''</summary>
@@ -500,6 +520,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property visa_2() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("visa_2", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
         '''</summary>

Calculator-SYS/My Project/Resources.resx

@@ -130,24 +130,24 @@
   <data name="SAVER2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\SAVER2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="ZOOM01" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\ZOOM01.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="工具" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\工具.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="pen" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\pen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="check1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\check.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="62951168976601486" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\62951168976601486.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="User Clients-01" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\User Clients-01.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="CC5" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\CC5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="其他" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\其他.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="管材" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\管材.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="R180" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\R180.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="Shipping4" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Shipping4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -163,8 +163,8 @@
   <data name="CC2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\CC2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="renew" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\renew.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="check" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\check.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="approve1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\approve1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -178,6 +178,9 @@
   <data name="buy1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\buy1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="visa_2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\visa_2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="Bar Chart" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Bar Chart.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -199,6 +202,9 @@
   <data name="Fire" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Fire.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="NULL11" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\NULL1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="電料" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\電料.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -217,11 +223,8 @@
   <data name="1_103" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\1_103.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Select" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\Select.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="Money2" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\Money2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="Report" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\Report.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="GarbageEmpty" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\GarbageEmpty.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -229,11 +232,14 @@
   <data name="HXLOGO01" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\HXLOGO01.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="check" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\check.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="renew" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\renew.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="arrow-right" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\arrow-right.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="R180" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\R180.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Select" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\Select.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="approve2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\approve2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -241,8 +247,8 @@
   <data name="L180" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\L180.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="print" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\print.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="User Clients-01" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\User Clients-01.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="question-mark" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\question-mark.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -250,26 +256,29 @@
   <data name="Close" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Close.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="CC1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\CC1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="arrow-right" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\arrow-right.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="其他" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\其他.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="ZOOM01" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\ZOOM01.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="設備" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\設備.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="check1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\check.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="Money2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\Money2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Search" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="print" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\print.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="cancel-button" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\cancel-button.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="工具" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\工具.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="CC1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\CC1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="R90" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\R90.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -280,13 +289,13 @@
   <data name="槽架" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\槽架.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="CC5" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\CC5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="pen" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\pen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="pen2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\pen2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Report" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\Report.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="0hxlogo1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\0hxlogo1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

Calculator-SYS/My Project/licenses.licx

@@ -1 +1,2 @@
 Telerik.WinControls.UI.Barcode.RadBarcodeView, Telerik.WinControls.UI, Version=2023.1.314.48, Culture=neutral, PublicKeyToken=5bb2a467cbec794e
+Telerik.WinControls.UI.RadTrackBar, Telerik.WinControls.UI, Version=2023.1.314.48, Culture=neutral, PublicKeyToken=5bb2a467cbec794e

Calculator-SYS/app.manifest

@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="utf-8"?>
+<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">
+  <assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
+  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+    <security>
+      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
+        <!-- UAC 資訊清單選項
+             如果要變更 Windows 使用者帳戶控制層級，請將 
+             requestedExecutionLevel 節點以下列其中之一取代。
+
+        <requestedExecutionLevel  level="asInvoker" uiAccess="false" />
+        <requestedExecutionLevel  level="requireAdministrator" uiAccess="false" />
+        <requestedExecutionLevel  level="highestAvailable" uiAccess="false" />
+
+            指定 requestedExecutionLevel 項目會停用檔案及登錄虛擬化。
+            如果您的應用程式需要針對回溯相容性進行這項虛擬化，請移除這個
+            項目。
+        -->
+        <requestedExecutionLevel level="highestAvailable" uiAccess="false" />
+      </requestedPrivileges>
+    </security>
+  </trustInfo>
+
+  <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
+    <application>
+      <!-- 此應用程式已通過測試，並設計要搭配使用的
+           應用程式版本清單。請取消註解適當元素，
+           Windows 就會自動選取最相容的環境。 -->
+
+      <!-- Windows Vista -->
+      <!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />-->
+
+      <!-- Windows 7 -->
+      <!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
+
+      <!-- Windows 8 -->
+      <!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />-->
+
+      <!-- Windows 8.1 -->
+      <!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />-->
+
+      <!-- Windows 10 -->
+      <!--<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
+
+    </application>
+  </compatibility>
+
+  <!-- 表示應用程式為 DPI 感知，Windows 不會在 DPI 變高時自動
+       縮放。Windows Presentation Foundation (WPF) 應用程式會自動感知 DPI，因此不需要
+       加入。以 .NET Framework 4.6 為目標的 Windows Form 應用程式若加入這項設定，也
+       應該在其 app.config 中將 'EnableWindowsFormsHighDpiAutoResizing' 設定為 'true'。
+       
+       將應用程式設定為感知長路徑。請參閱 https://docs.microsoft.com/windows/win32/fileio/maximum-file-path-limitation-->
+  <!--
+  <application xmlns="urn:schemas-microsoft-com:asm.v3">
+    <windowsSettings>
+      <dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
+      <longPathAware xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">true</longPathAware>
+    </windowsSettings>
+  </application>
+  -->
+
+  <!-- 啟用 Windows 通用控制項和對話方塊的佈景主題 (Windows XP 以後版本) -->
+  <!--
+  <dependency>
+    <dependentAssembly>
+      <assemblyIdentity
+          type="win32"
+          name="Microsoft.Windows.Common-Controls"
+          version="6.0.0.0"
+          processorArchitecture="*"
+          publicKeyToken="6595b64144ccf1df"
+          language="*"
+        />
+    </dependentAssembly>
+  </dependency>
+  -->
+
+</assembly>

Calculator-SYS/bin/Debug/Calculator-SYS.xml

@@ -22,6 +22,11 @@ Calculator-SYS
   使用這個強類型資源類別的資源查閱。
 </summary>
 </member>
+<member name="P:Calculator_SYS.My.Resources.Resources._0hxlogo1">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:Calculator_SYS.My.Resources.Resources._1_103">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
@@ -157,6 +162,11 @@ Calculator-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:Calculator_SYS.My.Resources.Resources.NULL11">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:Calculator_SYS.My.Resources.Resources.pen">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
@@ -242,6 +252,11 @@ Calculator-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:Calculator_SYS.My.Resources.Resources.visa_2">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:Calculator_SYS.My.Resources.Resources.ZOOM01">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
@@ -320,19 +335,13 @@ Calculator-SYS
  如果要在輸入視窗的輸入控件上先帶入文字即可設定第二個變數，沒有設定就是空白。
  </summary>
 </member>
-<member name="M:Calculator_SYS.GcmProc.顯示說明(System.Int32)">
+<member name="M:Calculator_SYS.GcmProc.LIN訊息通知(System.String,System.String,System.String,System.String)">
  <summary>
  顯示說明 之前必須要宣告 [介面]
  開公告 輸入的是要顯示公告的次數。
  如果要在輸入視窗的輸入控件上先帶入文字即可設定第二個變數，沒有設定就是空白。
  </summary>
 </member>
-<member name="M:Calculator_SYS.GcmProc.LIN訊息通知(System.String,System.String,System.String,System.String)">
- <summary>
- 使用代號之前，請先到LINE使用者管理去進行設定
- 對象  請在LINE使用者管理中去複製字串出來。
- </summary>
-</member>
 <member name="M:Calculator_SYS.GcmProc.CB選擇清單(System.Windows.Forms.ComboBox,System.String)">
  <summary>
  輸入cb 用來載入Combox的清單

Calculator-SYS/bin/Debug/LANGUAGE.txt

@@ -1 +1 @@
-CHER
+Engl

Calculator-SYS/bin/Debug/LANGUAGE_FILE.csv

@@ -461,6 +461,21 @@ G000-252-CH-該月份已經有安排虛擬單據，是否要追加?,
 G000-253-EN-Enter Verification Code!!,
 G000-253-IN-Masukkan Kode Verifikasi!!,
 G000-253-CH-輸入驗證碼!!,
+G000-254-EN-Financial Report-1,
+G000-254-IN-Laporan Keuangan-1,
+G000-254-CH-財務報表-採購與工人工資,
+G000-255-EN-Financial Report-2,
+G000-255-IN-Laporan Keuangan-2,
+G000-255-CH-財務報表-採購付款狀態,
+G000-256-EN-Financial Report-3,
+G000-256-IN-Laporan Keuangan-3,
+G000-256-CH-財務報表-合約收款狀態,
+G000-257-EN-Financial Report-4,
+G000-257-IN-Laporan Keuangan-4,
+G000-257-CH-財務報表-決算表,
+G000-258-EN-Financial Report-5,
+G000-258-IN-Laporan Keuangan-5,
+G000-258-CH-財務報表-5,
 H000-100-EN-Co. Line,
 H000-100-IN-Lini Perusahaan,
 H000-100-CH-公司線路,
@@ -571,7 +586,7 @@ H001-113-IN-Konfirmasi Pembayaran Pesanan Pembelian,
 H001-113-CH-採購單付款確認,
 H001-114-EN-Payment Approval,
 H001-114-IN-Persetujuan Pembayaran,
-H001-114-CH-財務支付審核,
+H001-114-CH-財務支付確認,
 H001-115-EN-Purchase Payment Status Report,
 H001-115-IN-Laporan Status Pembayaran Pembelian,
 H001-115-CH-採購付款狀態報表,
@@ -1055,6 +1070,9 @@ H001-274-CH-電信費追加---申請,
 H001-275-EN-Increasing Phone Bill --- Execute,
 H001-275-IN-Peningkatan Tagihan Telepon --- Melaksanakan,
 H001-275-CH-電信費追加---執行,
+H001-276-EN-Special Expense Review,
+H001-276-IN-Peninjauan Biaya Khusus,
+H001-276-CH-特支費審核,
 H002-100-EN-Show Password,
 H002-100-IN-Tampilkan Kata Sandi,
 H002-100-CH-顯示密碼,
@@ -1952,6 +1970,15 @@ H609-142-CH-工地,
 H609-143-EN-Single Print,
 H609-143-IN-Cetak Tunggal,
 H609-143-CH-單一列印,
+H609-144-EN-Discount,
+H609-144-IN-Diskon,
+H609-144-CH-折數,
+H609-145-EN-A.R.T.,
+H609-145-IN-T.R.A.,
+H609-145-CH-沖帳總額,
+H609-146-EN-Actual Total,
+H609-146-IN-Total Aktual.,
+H609-146-CH-實際總額,
 H610-100-EN-Temporary Card Activation and Inquiry,
 H610-100-IN-Aktivasi dan Permintaan Kartu Sementara,
 H610-100-CH-臨時卡激活與查詢,
@@ -3519,7 +3546,7 @@ H310-108-EN-P.A.C.,
 H310-108-IN-D.P.B.,
 H310-108-CH-已請未收款,
 H310-109-EN-Applied Tax,
-H310-109-IN-Pajak Diterapkan,
+H310-109-IN-Pajak Diterapkan, silakan hubungi administrator sistem!!
 H310-109-CH-已請稅,
 H310-110-EN-Pending Tax,
 H310-110-IN-Pajak Tertunda,
@@ -3546,7 +3573,7 @@ H311-104-EN-Payment,
 H311-104-IN-Pembayaran,
 H311-104-CH-付款.,
 H311-105-EN-Unpaid,
-H311-105-IN-Belum Dibayar, silakan hubungi administrator sistem!!
+H311-105-IN-Belum Dibayar,
 H311-105-CH-未付款,
 H311-106-EN-Paid,
 H311-106-IN-Telah Dibayar,
@@ -3633,7 +3660,7 @@ H908-118-EN-Enter Ampacity,
 H908-118-IN-Kawat Berinsulasi - Kapasitas,
 H908-118-CH-反向計算(輸入安培容量),
 H908-119-EN-Insulated Wire - Ampacity,
-H908-119-IN-Masukkan Kapasitas,
+H908-119-IN-Masukkan Kapasitas, silakan hubungi administrator sistem!!
 H908-119-CH-絕緣電線 -安培容量,
 H908-120-EN-Estimated Ampacity,
 H908-120-IN-Perkiraan Kapasitas,
@@ -3660,7 +3687,7 @@ H206-106-EN-Product Name,
 H206-106-IN-Nama Produk,
 H206-106-CH-品名.,
 H206-107-EN-Purchase Order No,
-H206-107-IN-Pesanan Pembelian Nomor, silakan hubungi administrator sistem!!
+H206-107-IN-Pesanan Pembelian Nomor,
 H206-107-CH-採購單號,
 H206-108-EN-Format,
 H206-108-IN-Format,
@@ -4072,7 +4099,7 @@ H611-118-IN-Pengaturan Rekonsiliasi,
 H611-118-CH-沖帳設定,
 H611-119-EN-Maximum,
 H611-119-IN-Maksimum,
-H611-119-CH-極限金額,
+H611-119-CH-最大金額,
 H611-120-EN-Reconciliation,
 H611-120-IN-Rekonsiliasi,
 H611-120-CH-沖帳金額,

Calculator-SYS/bin/Debug/LIN HSING HAO.txt

@@ -1,2 +1,5 @@
 ******************
+BC06
+BC08
 GC02
+EC13

Calculator-SYS/bin/Debug/李協叡.txt

@@ -7,5 +7,8 @@ BC08
 FC08
 GC01
 GC02
+GC03
+GC04
+GC05
 EC12
 EC13

Calculator-SYS/obj/Debug/Calculator-SYS.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-0f81a507a9d5a470eda2906fd39a53b29c58c907
+d6011f04af47be48bbeb8c87cb6e7545df0662ad

Calculator-SYS/obj/Debug/Calculator-SYS.vbproj.FileListAbsolute.txt

@@ -48,3 +48,7 @@ D:\工巧明\HX-PGS\Calculator-SYS\Calculator-SYS\bin\Debug\TelerikCommon.dll
 D:\工巧明\HX-PGS\Calculator-SYS\Calculator-SYS\bin\Debug\Telerik.WinControls.xml
 D:\工巧明\HX-PGS\Calculator-SYS\Calculator-SYS\bin\Debug\Telerik.WinControls.UI.xml
 D:\工巧明\HX-PGS\Calculator-SYS\Calculator-SYS\obj\Debug\Calculator-SYS.exe.licenses
+D:\工巧明\HX-PGS\Calculator-SYS\Calculator-SYS\obj\Debug\Calculator_SYS.財務報表1.resources
+D:\工巧明\HX-PGS\Calculator-SYS\Calculator-SYS\obj\Debug\Calculator_SYS.財務報表2.resources
+D:\工巧明\HX-PGS\Calculator-SYS\Calculator-SYS\obj\Debug\Calculator_SYS.財務報表3.resources
+D:\工巧明\HX-PGS\Calculator-SYS\Calculator-SYS\obj\Debug\Calculator_SYS.財務報表4.resources

Calculator-SYS/obj/Debug/Calculator-SYS.xml

@@ -22,6 +22,11 @@ Calculator-SYS
   使用這個強類型資源類別的資源查閱。
 </summary>
 </member>
+<member name="P:Calculator_SYS.My.Resources.Resources._0hxlogo1">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:Calculator_SYS.My.Resources.Resources._1_103">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
@@ -157,6 +162,11 @@ Calculator-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:Calculator_SYS.My.Resources.Resources.NULL11">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:Calculator_SYS.My.Resources.Resources.pen">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
@@ -242,6 +252,11 @@ Calculator-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:Calculator_SYS.My.Resources.Resources.visa_2">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:Calculator_SYS.My.Resources.Resources.ZOOM01">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
@@ -320,19 +335,13 @@ Calculator-SYS
  如果要在輸入視窗的輸入控件上先帶入文字即可設定第二個變數，沒有設定就是空白。
  </summary>
 </member>
-<member name="M:Calculator_SYS.GcmProc.顯示說明(System.Int32)">
+<member name="M:Calculator_SYS.GcmProc.LIN訊息通知(System.String,System.String,System.String,System.String)">
  <summary>
  顯示說明 之前必須要宣告 [介面]
  開公告 輸入的是要顯示公告的次數。
  如果要在輸入視窗的輸入控件上先帶入文字即可設定第二個變數，沒有設定就是空白。
  </summary>
 </member>
-<member name="M:Calculator_SYS.GcmProc.LIN訊息通知(System.String,System.String,System.String,System.String)">
- <summary>
- 使用代號之前，請先到LINE使用者管理去進行設定
- 對象  請在LINE使用者管理中去複製字串出來。
- </summary>
-</member>
 <member name="M:Calculator_SYS.GcmProc.CB選擇清單(System.Windows.Forms.ComboBox,System.String)">
  <summary>
  輸入cb 用來載入Combox的清單

Calculator-SYS/計算機.vb

@@ -5,9 +5,8 @@ Public Class 計算機
     Dim diskId As String '數字ID
     Dim diskSerialNumber As String '硬碟序列
     Dim diskModel As String '磁盘型態
-    Dim IP公, IP測1, IP測2, 印尼測試內網網段, 內網線路, 可登入 As Boolean
-    Dim Str As String = Application.StartupPath
-    Dim 對話框(15) As String
+    Dim IP公, IP測1, IP測2, 內網線路, 可登入 As Boolean
+    Private ReadOnly 對話框(15) As String
     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)
@@ -282,7 +281,7 @@ Public Class 計算機
             If verificationCode = "" Then : 計算() : Else
                 currentTime = DateTime.Now
                 elapsedTime = currentTime - verificationStartTime
-                If elapsedTime.TotalMinutes <= 30 Then
+                If elapsedTime.TotalMinutes <= 0.5 Then
                     If 呈現_tb.Text = verificationCode Then : Me.Hide() : LoginForm1.Show() : verificationCode = "" : Else : 計算() : End If
                 Else : 計算() : End If
             End If