20240302備份

工巧明智能管理系統/我的系統/00-MyModule/全域變數.vb

     Public 零用金選擇, 低網速模式 As Boolean
     Public 行政採購簽核級別基數, 建築採購簽核級別基數, 工程圖庫限制 As Integer
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2024010501"
+    Public 版本 As String = "2024021901"
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 判斷重登 As Boolean : Public 內外網 As Boolean : Public 重登確認 As Boolean : Public 主頁開啟 As Boolean
     Public timeExit As Integer = 0 : Public timeExit2 As Integer = 0 : Public timeNow As Integer = 0 : Public timeNow2 As Integer = 0 : Public 密碼時限 As Integer = 30

工巧明智能管理系統/我的系統/02-財務系統管理/GCM/財務_彙總表_GCM.Designer.vb

         Dim ChartArea4 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
         Dim Legend4 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
         Dim Series4 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
+        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.主表_dgv = New System.Windows.Forms.DataGridView()
         Me.主表1_dgv = New System.Windows.Forms.DataGridView()
         Me.主項_cb = New System.Windows.Forms.ComboBox()
         Me.Chart4 = New System.Windows.Forms.DataVisualization.Charting.Chart()
         Me.年份_cb = New System.Windows.Forms.ComboBox()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.Panel4 = New System.Windows.Forms.Panel()
+        Me.主表10_dgv = New System.Windows.Forms.DataGridView()
         CType(Me.主表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.主表1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.主表2_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Chart2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Chart4, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
+        Me.Panel2.SuspendLayout()
+        Me.Panel3.SuspendLayout()
+        Me.Panel4.SuspendLayout()
+        CType(Me.主表10_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '主表_dgv
         Me.主表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.主表_dgv.BackgroundColor = System.Drawing.Color.White
         Me.主表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.主表_dgv.Location = New System.Drawing.Point(7, 30)
+        Me.主表_dgv.Location = New System.Drawing.Point(3, 328)
         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(435, 197)
+        Me.主表_dgv.Size = New System.Drawing.Size(460, 144)
         Me.主表_dgv.TabIndex = 1098
         '
         '主表1_dgv
         Me.主表1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.主表1_dgv.BackgroundColor = System.Drawing.Color.White
         Me.主表1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.主表1_dgv.Location = New System.Drawing.Point(7, 229)
+        Me.主表1_dgv.Location = New System.Drawing.Point(3, 30)
         Me.主表1_dgv.Name = "主表1_dgv"
         Me.主表1_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.主表1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.主表1_dgv.RowTemplate.Height = 24
-        Me.主表1_dgv.Size = New System.Drawing.Size(435, 167)
+        Me.主表1_dgv.Size = New System.Drawing.Size(236, 299)
         Me.主表1_dgv.TabIndex = 1099
         '
         '主項_cb
         Me.主項_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.主項_cb.FormattingEnabled = True
         Me.主項_cb.Items.AddRange(New Object() {"2019"})
-        Me.主項_cb.Location = New System.Drawing.Point(41, 3)
+        Me.主項_cb.Location = New System.Drawing.Point(37, 3)
         Me.主項_cb.Name = "主項_cb"
         Me.主項_cb.Size = New System.Drawing.Size(107, 24)
         Me.主項_cb.TabIndex = 1100
         'Label1
         '
         Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(9, 7)
+        Me.Label1.Location = New System.Drawing.Point(5, 7)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(31, 16)
         Me.Label1.TabIndex = 1101
         'Label2
         '
         Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(260, 8)
+        Me.Label2.Location = New System.Drawing.Point(256, 8)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(31, 16)
         Me.Label2.TabIndex = 1102
         '
         '加總_tb
         '
-        Me.加總_tb.Location = New System.Drawing.Point(294, 4)
+        Me.加總_tb.Location = New System.Drawing.Point(290, 4)
         Me.加總_tb.Name = "加總_tb"
         Me.加總_tb.Size = New System.Drawing.Size(146, 23)
         Me.加總_tb.TabIndex = 1103
         Me.主表2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.主表2_dgv.BackgroundColor = System.Drawing.Color.White
         Me.主表2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.主表2_dgv.Location = New System.Drawing.Point(444, 30)
+        Me.主表2_dgv.Location = New System.Drawing.Point(462, 328)
         Me.主表2_dgv.Name = "主表2_dgv"
         Me.主表2_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.主表2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
         Me.主表2_dgv.RowTemplate.Height = 24
-        Me.主表2_dgv.Size = New System.Drawing.Size(180, 366)
+        Me.主表2_dgv.Size = New System.Drawing.Size(155, 144)
         Me.主表2_dgv.TabIndex = 1116
         '
         '主表5_dgv
         '
         DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.主表5_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        Me.主表5_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.主表5_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.主表5_dgv.BackgroundColor = System.Drawing.Color.White
         Me.主表5_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.主表5_dgv.Location = New System.Drawing.Point(1070, 30)
+        Me.主表5_dgv.Location = New System.Drawing.Point(1126, 328)
         Me.主表5_dgv.Name = "主表5_dgv"
         Me.主表5_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.主表5_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
         Me.主表5_dgv.RowTemplate.Height = 24
-        Me.主表5_dgv.Size = New System.Drawing.Size(180, 366)
+        Me.主表5_dgv.Size = New System.Drawing.Size(155, 144)
         Me.主表5_dgv.TabIndex = 1123
         '
         '加總1_tb
         '
-        Me.加總1_tb.Location = New System.Drawing.Point(920, 4)
+        Me.加總1_tb.Location = New System.Drawing.Point(954, 4)
         Me.加總1_tb.Name = "加總1_tb"
         Me.加總1_tb.Size = New System.Drawing.Size(146, 23)
         Me.加總1_tb.TabIndex = 1122
         'Label3
         '
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(886, 8)
+        Me.Label3.Location = New System.Drawing.Point(920, 8)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(31, 16)
         Me.Label3.TabIndex = 1121
         'Label4
         '
         Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(635, 7)
+        Me.Label4.Location = New System.Drawing.Point(620, 7)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(31, 16)
         Me.Label4.TabIndex = 1120
         Me.主項1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.主項1_cb.FormattingEnabled = True
         Me.主項1_cb.Items.AddRange(New Object() {"2019"})
-        Me.主項1_cb.Location = New System.Drawing.Point(667, 3)
+        Me.主項1_cb.Location = New System.Drawing.Point(652, 3)
         Me.主項1_cb.Name = "主項1_cb"
         Me.主項1_cb.Size = New System.Drawing.Size(107, 24)
         Me.主項1_cb.TabIndex = 1119
         '
         DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.主表4_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        Me.主表4_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.主表4_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.主表4_dgv.BackgroundColor = System.Drawing.Color.White
         Me.主表4_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.主表4_dgv.Location = New System.Drawing.Point(633, 229)
+        Me.主表4_dgv.Location = New System.Drawing.Point(618, 30)
         Me.主表4_dgv.Name = "主表4_dgv"
         Me.主表4_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.主表4_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
         Me.主表4_dgv.RowTemplate.Height = 24
-        Me.主表4_dgv.Size = New System.Drawing.Size(435, 167)
+        Me.主表4_dgv.Size = New System.Drawing.Size(285, 299)
         Me.主表4_dgv.TabIndex = 1118
         '
         '主表3_dgv
         '
         DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.主表3_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
+        Me.主表3_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.主表3_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.主表3_dgv.BackgroundColor = System.Drawing.Color.White
         Me.主表3_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.主表3_dgv.Location = New System.Drawing.Point(633, 30)
+        Me.主表3_dgv.Location = New System.Drawing.Point(618, 328)
         Me.主表3_dgv.Name = "主表3_dgv"
         Me.主表3_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.主表3_dgv.RowsDefaultCellStyle = DataGridViewCellStyle12
         Me.主表3_dgv.RowTemplate.Height = 24
-        Me.主表3_dgv.Size = New System.Drawing.Size(435, 197)
+        Me.主表3_dgv.Size = New System.Drawing.Size(509, 144)
         Me.主表3_dgv.TabIndex = 1117
         '
         '主表8_dgv
         '
         DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
         Me.主表8_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
+        Me.主表8_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.主表8_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.主表8_dgv.BackgroundColor = System.Drawing.Color.White
         Me.主表8_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.主表8_dgv.Location = New System.Drawing.Point(1696, 30)
+        Me.主表8_dgv.Location = New System.Drawing.Point(1741, 328)
         Me.主表8_dgv.Name = "主表8_dgv"
         Me.主表8_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.主表8_dgv.RowsDefaultCellStyle = DataGridViewCellStyle14
         Me.主表8_dgv.RowTemplate.Height = 24
-        Me.主表8_dgv.Size = New System.Drawing.Size(180, 366)
+        Me.主表8_dgv.Size = New System.Drawing.Size(155, 144)
         Me.主表8_dgv.TabIndex = 1130
         '
         '加總2_tb
         '
-        Me.加總2_tb.Location = New System.Drawing.Point(1546, 4)
+        Me.加總2_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.加總2_tb.Location = New System.Drawing.Point(1569, 4)
         Me.加總2_tb.Name = "加總2_tb"
         Me.加總2_tb.Size = New System.Drawing.Size(146, 23)
         Me.加總2_tb.TabIndex = 1129
         '
         '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.Location = New System.Drawing.Point(1512, 8)
+        Me.Label5.Location = New System.Drawing.Point(1535, 8)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(31, 16)
         Me.Label5.TabIndex = 1128
         '
         'Label6
         '
+        Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(1261, 7)
+        Me.Label6.Location = New System.Drawing.Point(1284, 7)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(31, 16)
         Me.Label6.TabIndex = 1127
         '
         '主項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.DropDownList
         Me.主項2_cb.FormattingEnabled = True
         Me.主項2_cb.Items.AddRange(New Object() {"2019"})
-        Me.主項2_cb.Location = New System.Drawing.Point(1293, 3)
+        Me.主項2_cb.Location = New System.Drawing.Point(1316, 3)
         Me.主項2_cb.Name = "主項2_cb"
         Me.主項2_cb.Size = New System.Drawing.Size(107, 24)
         Me.主項2_cb.TabIndex = 1126
         '
         DataGridViewCellStyle15.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
         Me.主表7_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle15
+        Me.主表7_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.主表7_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.主表7_dgv.BackgroundColor = System.Drawing.Color.White
         Me.主表7_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.主表7_dgv.Location = New System.Drawing.Point(1259, 229)
+        Me.主表7_dgv.Location = New System.Drawing.Point(1282, 30)
         Me.主表7_dgv.Name = "主表7_dgv"
         Me.主表7_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.主表7_dgv.RowsDefaultCellStyle = DataGridViewCellStyle16
         Me.主表7_dgv.RowTemplate.Height = 24
-        Me.主表7_dgv.Size = New System.Drawing.Size(435, 167)
+        Me.主表7_dgv.Size = New System.Drawing.Size(236, 299)
         Me.主表7_dgv.TabIndex = 1125
         '
         '主表6_dgv
         '
         DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
         Me.主表6_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
+        Me.主表6_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.主表6_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.主表6_dgv.BackgroundColor = System.Drawing.Color.White
         Me.主表6_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.主表6_dgv.Location = New System.Drawing.Point(1259, 30)
+        Me.主表6_dgv.Location = New System.Drawing.Point(1282, 328)
         Me.主表6_dgv.Name = "主表6_dgv"
         Me.主表6_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.主表6_dgv.RowsDefaultCellStyle = DataGridViewCellStyle18
         Me.主表6_dgv.RowTemplate.Height = 24
-        Me.主表6_dgv.Size = New System.Drawing.Size(435, 197)
+        Me.主表6_dgv.Size = New System.Drawing.Size(460, 144)
         Me.主表6_dgv.TabIndex = 1124
         '
         '加總3_tb
         '
+        Me.加總3_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.加總3_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.加總3_tb.Location = New System.Drawing.Point(1520, 399)
+        Me.加總3_tb.Location = New System.Drawing.Point(1344, 475)
         Me.加總3_tb.Name = "加總3_tb"
         Me.加總3_tb.Size = New System.Drawing.Size(146, 23)
         Me.加總3_tb.TabIndex = 1132
         '
         'Label7
         '
+        Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label7.AutoSize = True
         Me.Label7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label7.Location = New System.Drawing.Point(1461, 403)
+        Me.Label7.Location = New System.Drawing.Point(1285, 479)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(55, 16)
         Me.Label7.TabIndex = 1131
         '
         '隱加總_tb
         '
-        Me.隱加總_tb.Location = New System.Drawing.Point(120, 3)
+        Me.隱加總_tb.Location = New System.Drawing.Point(117, 3)
         Me.隱加總_tb.Name = "隱加總_tb"
         Me.隱加總_tb.Size = New System.Drawing.Size(146, 23)
         Me.隱加總_tb.TabIndex = 1133
         '
         '隱加總1_tb
         '
-        Me.隱加總1_tb.Location = New System.Drawing.Point(120, 32)
+        Me.隱加總1_tb.Location = New System.Drawing.Point(117, 32)
         Me.隱加總1_tb.Name = "隱加總1_tb"
         Me.隱加總1_tb.Size = New System.Drawing.Size(146, 23)
         Me.隱加總1_tb.TabIndex = 1134
         '
         '隱加總2_tb
         '
-        Me.隱加總2_tb.Location = New System.Drawing.Point(120, 61)
+        Me.隱加總2_tb.Location = New System.Drawing.Point(117, 61)
         Me.隱加總2_tb.Name = "隱加總2_tb"
         Me.隱加總2_tb.Size = New System.Drawing.Size(146, 23)
         Me.隱加總2_tb.TabIndex = 1135
         '
         '加總4_tb
         '
+        Me.加總4_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.加總4_tb.ForeColor = System.Drawing.Color.Green
-        Me.加總4_tb.Location = New System.Drawing.Point(1730, 399)
+        Me.加總4_tb.Location = New System.Drawing.Point(1554, 475)
         Me.加總4_tb.Name = "加總4_tb"
         Me.加總4_tb.Size = New System.Drawing.Size(146, 23)
         Me.加總4_tb.TabIndex = 1137
         '
         'Label8
         '
+        Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label8.AutoSize = True
         Me.Label8.ForeColor = System.Drawing.Color.Green
-        Me.Label8.Location = New System.Drawing.Point(1671, 403)
+        Me.Label8.Location = New System.Drawing.Point(1495, 479)
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(55, 16)
         Me.Label8.TabIndex = 1136
         '
         'Chart1
         '
+        Me.Chart1.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.Chart1.BackColor = System.Drawing.SystemColors.Control
         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
         Legend1.IsTextAutoFit = False
         Legend1.Name = "Legend1"
         Me.Chart1.Legends.Add(Legend1)
-        Me.Chart1.Location = New System.Drawing.Point(6, 419)
+        Me.Chart1.Location = New System.Drawing.Point(-34, 478)
         Me.Chart1.Name = "Chart1"
         Series1.ChartArea = "ChartArea1"
         Series1.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Line
         Series1.Legend = "Legend1"
         Series1.Name = "Series1"
         Me.Chart1.Series.Add(Series1)
-        Me.Chart1.Size = New System.Drawing.Size(1890, 275)
+        Me.Chart1.Size = New System.Drawing.Size(1964, 490)
         Me.Chart1.TabIndex = 1138
         Me.Chart1.Text = "Chart1"
         '
         '
         'Chart3
         '
-        Me.Chart3.BackColor = System.Drawing.SystemColors.Control
+        Me.Chart3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         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.Area3DStyle.Inclination = 60
         ChartArea2.AxisX.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
         Legend2.IsTextAutoFit = False
         Legend2.Name = "Legend1"
         Me.Chart3.Legends.Add(Legend2)
-        Me.Chart3.Location = New System.Drawing.Point(70, 696)
+        Me.Chart3.Location = New System.Drawing.Point(-12, -6)
         Me.Chart3.Name = "Chart3"
         Series2.ChartArea = "ChartArea1"
         Series2.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Pie
         Series2.Legend = "Legend1"
         Series2.Name = "Series1"
         Me.Chart3.Series.Add(Series2)
-        Me.Chart3.Size = New System.Drawing.Size(554, 270)
+        Me.Chart3.Size = New System.Drawing.Size(390, 310)
         Me.Chart3.TabIndex = 1140
         Me.Chart3.Text = "Chart3"
         '
         'Chart2
         '
-        Me.Chart2.BackColor = System.Drawing.SystemColors.Control
+        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)
         ChartArea3.AlignmentOrientation = CType((System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Vertical Or System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Horizontal), System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations)
         ChartArea3.Area3DStyle.Inclination = 60
         ChartArea3.AxisX.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
         Legend3.IsTextAutoFit = False
         Legend3.Name = "Legend1"
         Me.Chart2.Legends.Add(Legend3)
-        Me.Chart2.Location = New System.Drawing.Point(696, 696)
+        Me.Chart2.Location = New System.Drawing.Point(-12, -6)
         Me.Chart2.Name = "Chart2"
         Series3.ChartArea = "ChartArea1"
         Series3.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Pie
         Series3.Legend = "Legend1"
         Series3.Name = "Series1"
         Me.Chart2.Series.Add(Series3)
-        Me.Chart2.Size = New System.Drawing.Size(554, 270)
+        Me.Chart2.Size = New System.Drawing.Size(390, 310)
         Me.Chart2.TabIndex = 1141
         Me.Chart2.Text = "Chart2"
         '
         'Chart4
         '
-        Me.Chart4.BackColor = System.Drawing.SystemColors.Control
+        Me.Chart4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         ChartArea4.AlignmentOrientation = CType((System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Vertical Or System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Horizontal), System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations)
         ChartArea4.Area3DStyle.Inclination = 60
         ChartArea4.AxisX.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
         Legend4.IsTextAutoFit = False
         Legend4.Name = "Legend1"
         Me.Chart4.Legends.Add(Legend4)
-        Me.Chart4.Location = New System.Drawing.Point(1322, 696)
+        Me.Chart4.Location = New System.Drawing.Point(-12, -6)
         Me.Chart4.Name = "Chart4"
         Series4.ChartArea = "ChartArea1"
         Series4.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Pie
         Series4.Legend = "Legend1"
         Series4.Name = "Series1"
         Me.Chart4.Series.Add(Series4)
-        Me.Chart4.Size = New System.Drawing.Size(554, 270)
+        Me.Chart4.Size = New System.Drawing.Size(390, 310)
         Me.Chart4.TabIndex = 1142
         Me.Chart4.Text = "Chart4"
         '
         '年份_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.DropDownList
         Me.年份_cb.FormattingEnabled = True
         Me.年份_cb.Items.AddRange(New Object() {"2019"})
-        Me.年份_cb.Location = New System.Drawing.Point(1806, 3)
+        Me.年份_cb.Location = New System.Drawing.Point(1829, 3)
         Me.年份_cb.Name = "年份_cb"
         Me.年份_cb.Size = New System.Drawing.Size(70, 24)
         Me.年份_cb.TabIndex = 1143
         'Panel1
         '
         Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.主表10_dgv)
         Me.Panel1.Controls.Add(Me.主表9_dgv)
         Me.Panel1.Controls.Add(Me.隱加總_tb)
         Me.Panel1.Controls.Add(Me.隱加總1_tb)
         Me.Panel1.Controls.Add(Me.隱加總2_tb)
-        Me.Panel1.Location = New System.Drawing.Point(435, 424)
+        Me.Panel1.Location = New System.Drawing.Point(435, 509)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(278, 96)
+        Me.Panel1.Size = New System.Drawing.Size(382, 96)
         Me.Panel1.TabIndex = 1144
         '
+        'Panel2
+        '
+        Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel2.Controls.Add(Me.Chart3)
+        Me.Panel2.Location = New System.Drawing.Point(238, 30)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(379, 299)
+        Me.Panel2.TabIndex = 1145
+        '
+        'Panel3
+        '
+        Me.Panel3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel3.Controls.Add(Me.Chart2)
+        Me.Panel3.Location = New System.Drawing.Point(902, 30)
+        Me.Panel3.Name = "Panel3"
+        Me.Panel3.Size = New System.Drawing.Size(379, 299)
+        Me.Panel3.TabIndex = 1146
+        '
+        'Panel4
+        '
+        Me.Panel4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel4.Controls.Add(Me.Chart4)
+        Me.Panel4.Location = New System.Drawing.Point(1517, 30)
+        Me.Panel4.Name = "Panel4"
+        Me.Panel4.Size = New System.Drawing.Size(379, 299)
+        Me.Panel4.TabIndex = 1147
+        '
+        '主表10_dgv
+        '
+        DataGridViewCellStyle21.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.主表10_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
+        Me.主表10_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.主表10_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.主表10_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.主表10_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.主表10_dgv.Location = New System.Drawing.Point(264, 3)
+        Me.主表10_dgv.Name = "主表10_dgv"
+        Me.主表10_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.主表10_dgv.RowsDefaultCellStyle = DataGridViewCellStyle22
+        Me.主表10_dgv.RowTemplate.Height = 24
+        Me.主表10_dgv.Size = New System.Drawing.Size(111, 84)
+        Me.主表10_dgv.TabIndex = 1148
+        '
         '財務_彙總表_GCM
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1900, 971)
+        Me.Controls.Add(Me.主表5_dgv)
+        Me.Controls.Add(Me.Panel3)
+        Me.Controls.Add(Me.Panel2)
         Me.Controls.Add(Me.年份_cb)
-        Me.Controls.Add(Me.Chart4)
-        Me.Controls.Add(Me.Chart2)
-        Me.Controls.Add(Me.Chart3)
         Me.Controls.Add(Me.加總4_tb)
         Me.Controls.Add(Me.Label8)
         Me.Controls.Add(Me.加總3_tb)
         Me.Controls.Add(Me.Label5)
         Me.Controls.Add(Me.Label6)
         Me.Controls.Add(Me.主項2_cb)
-        Me.Controls.Add(Me.主表7_dgv)
         Me.Controls.Add(Me.主表6_dgv)
-        Me.Controls.Add(Me.主表5_dgv)
         Me.Controls.Add(Me.加總1_tb)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.主項1_cb)
-        Me.Controls.Add(Me.主表4_dgv)
         Me.Controls.Add(Me.主表3_dgv)
         Me.Controls.Add(Me.主表2_dgv)
         Me.Controls.Add(Me.加總_tb)
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.主項_cb)
-        Me.Controls.Add(Me.主表1_dgv)
         Me.Controls.Add(Me.主表_dgv)
+        Me.Controls.Add(Me.主表7_dgv)
+        Me.Controls.Add(Me.主表4_dgv)
+        Me.Controls.Add(Me.主表1_dgv)
+        Me.Controls.Add(Me.Panel4)
         Me.Controls.Add(Me.Chart1)
         Me.Controls.Add(Me.Panel1)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         CType(Me.Chart4, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel1.ResumeLayout(False)
         Me.Panel1.PerformLayout()
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel3.ResumeLayout(False)
+        Me.Panel4.ResumeLayout(False)
+        CType(Me.主表10_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     Friend WithEvents Chart4 As DataVisualization.Charting.Chart
     Friend WithEvents 年份_cb As ComboBox
     Friend WithEvents Panel1 As Panel
+    Friend WithEvents Panel2 As Panel
+    Friend WithEvents Panel3 As Panel
+    Friend WithEvents Panel4 As Panel
+    Friend WithEvents 主表10_dgv As DataGridView
 End Class

工巧明智能管理系統/我的系統/02-財務系統管理/GCM/財務_彙總表_GCM.vb

 Imports System.Windows.Forms.DataVisualization.Charting
 Public Class 財務_彙總表_GCM
-    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8, ds9 As New DataSet
+    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8, ds9, ds10 As New DataSet
+    Dim 列高 As Integer
     '-----------------------------第一區-----------------------------------------------------------------------------------------------------------------------
     Private Sub Set_清單()
         主表_dgv.DataSource = Nothing : ds.Clear() : 主表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        主表_dgv.ColumnHeadersHeight = 30 : 主表_dgv.AllowUserToAddRows = False
+        主表_dgv.ColumnHeadersHeight = 25 : 主表_dgv.AllowUserToAddRows = False : 主表_dgv.RowTemplate.Height = 列高
         ConnOpen()
         SQL1 = "SELECT 日期, 子項, 子細項, SUM(金額) AS 金額 FROM 財務彙總紀錄 
                 WHERE (主項 LIKE N'" & 主項_cb.Text & "') AND 日期 LIKE N'%" & 年份_cb.Text & "%' GROUP BY 日期, 子項, 子細項 ORDER BY 日期, 子項, 子細項"
         主表_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
         主表_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         Set_清單2() : Set_清單1()
+        For i As Integer = 0 To 主表1_dgv.Rows.Count - 1
+            主表1_dgv.Rows(i).Cells("比例.").Value = Strings.Format(CInt(主表1_dgv.Rows(i).Cells("金額").Value.ToString) / CInt(加總_tb.Text) * 100, "#,##0.00") & " %"
+        Next
     End Sub
     Private Sub Set_清單1()
         主表1_dgv.DataSource = Nothing : ds1.Clear() : 主表1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        主表1_dgv.ColumnHeadersHeight = 30 : 主表1_dgv.AllowUserToAddRows = False
+        主表1_dgv.ColumnHeadersHeight = 25 : 主表1_dgv.AllowUserToAddRows = False : 主表1_dgv.RowTemplate.Height = 列高
         ConnOpen()
-        SQL1 = "SELECT TOP(10) 子細項, SUM(金額) AS 金額, ABS(SUM(金額)) AS 比例 FROM 財務彙總紀錄 
+        SQL1 = "SELECT TOP(15) 子細項, SUM(金額) AS 金額, ABS(SUM(金額)) AS 比例, 子細項 AS [比例.] FROM 財務彙總紀錄 
                 WHERE (主項 LIKE N'" & 主項_cb.Text & "') AND 子細項 NOT LIKE N'%借款%' AND 子細項 NOT LIKE N'%還款%' AND 日期 LIKE N'%" & 年份_cb.Text & "%'
                 GROUP BY 子細項 ORDER BY 金額"
         CmdSet_For_DGV() : da.Fill(ds1) : 主表1_dgv.DataSource = ds1.Tables(0) : conn.Close()
 
-        主表1_dgv.Columns(1).FillWeight = 130 : 主表1_dgv.Columns(1).FillWeight = 80 : 主表1_dgv.Columns(2).Visible = False
+        主表1_dgv.Columns(1).FillWeight = 130 : 主表1_dgv.Columns(1).FillWeight = 80 : 主表1_dgv.Columns(3).FillWeight = 60 : 主表1_dgv.Columns(2).Visible = False
         主表1_dgv.Columns(1).DefaultCellStyle.Format = "#,##0"
         主表1_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         主表1_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-
+        主表1_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         主表1_dgv.Sort(主表1_dgv.Columns("比例"), System.ComponentModel.ListSortDirection.Descending)
     End Sub
     Private Sub Set_清單2()
         主表2_dgv.DataSource = Nothing : ds2.Clear() : 主表2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        主表2_dgv.ColumnHeadersHeight = 30 : 主表2_dgv.AllowUserToAddRows = False
+        主表2_dgv.ColumnHeadersHeight = 25 : 主表2_dgv.AllowUserToAddRows = False : 主表2_dgv.RowTemplate.Height = 列高
         ConnOpen()
         SQL1 = "SELECT 日期, SUM(金額) AS 金額 FROM 財務彙總紀錄 
                 WHERE (主項 LIKE N'" & 主項_cb.Text & "') AND 日期 LIKE N'%" & 年份_cb.Text & "%' GROUP BY 日期 ORDER BY 日期"
     '-----------------------------第二區-----------------------------------------------------------------------------------------------------------------------
     Private Sub Set_清單3()
         主表3_dgv.DataSource = Nothing : ds3.Clear() : 主表3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        主表3_dgv.ColumnHeadersHeight = 30 : 主表3_dgv.AllowUserToAddRows = False
+        主表3_dgv.ColumnHeadersHeight = 25 : 主表3_dgv.AllowUserToAddRows = False : 主表3_dgv.RowTemplate.Height = 列高
         ConnOpen()
         SQL1 = "SELECT 日期, 子項, 子細項, SUM(金額) AS 金額 FROM 財務彙總紀錄 
                 WHERE (主項 LIKE N'" & 主項1_cb.Text & "') AND 日期 LIKE N'%" & 年份_cb.Text & "%' GROUP BY 日期, 子項, 子細項 ORDER BY 日期, 子項, 子細項"
         主表3_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
         主表3_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         Set_清單5() : Set_清單4()
+        For i As Integer = 0 To 主表4_dgv.Rows.Count - 1
+            主表4_dgv.Rows(i).Cells("比例.").Value = Strings.Format(CInt(主表4_dgv.Rows(i).Cells("金額").Value.ToString) / CInt(加總1_tb.Text) * 100, "#,##0.00") & " %"
+        Next
     End Sub
     Private Sub Set_清單4()
         主表4_dgv.DataSource = Nothing : ds4.Clear() : 主表4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        主表4_dgv.ColumnHeadersHeight = 30 : 主表4_dgv.AllowUserToAddRows = False
+        主表4_dgv.ColumnHeadersHeight = 25 : 主表4_dgv.AllowUserToAddRows = False : 主表4_dgv.RowTemplate.Height = 列高
         ConnOpen()
-        SQL1 = "SELECT TOP(10) 子細項, SUM(金額) AS 金額, ABS(SUM(金額)) AS 比例 FROM 財務彙總紀錄 
+        SQL1 = "SELECT TOP(15) 子細項, SUM(金額) AS 金額, ABS(SUM(金額)) AS 比例, 子細項 AS [比例.] FROM 財務彙總紀錄 
                 WHERE (主項 LIKE N'" & 主項1_cb.Text & "') AND 子細項 NOT LIKE N'%借款%' AND 子細項 NOT LIKE N'%還款%' AND 日期 LIKE N'%" & 年份_cb.Text & "%' 
                 GROUP BY 子細項 ORDER BY 金額"
         CmdSet_For_DGV() : da.Fill(ds4) : 主表4_dgv.DataSource = ds4.Tables(0) : conn.Close()
         主表4_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 主表4_dgv.Columns(2).DefaultCellStyle.Format = "#,##0"
         主表4_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         主表4_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-
+        主表4_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         主表4_dgv.Sort(主表4_dgv.Columns("比例"), System.ComponentModel.ListSortDirection.Descending)
     End Sub
     Private Sub Set_清單5()
         主表5_dgv.DataSource = Nothing : ds5.Clear() : 主表5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        主表5_dgv.ColumnHeadersHeight = 30 : 主表5_dgv.AllowUserToAddRows = False
+        主表5_dgv.ColumnHeadersHeight = 25 : 主表5_dgv.AllowUserToAddRows = False : 主表5_dgv.RowTemplate.Height = 列高
         ConnOpen()
         SQL1 = "SELECT 日期, SUM(金額) AS 金額 FROM 財務彙總紀錄 
                 WHERE (主項 LIKE N'" & 主項1_cb.Text & "') AND 日期 LIKE N'%" & 年份_cb.Text & "%' GROUP BY 日期 ORDER BY 日期"
     '-----------------------------第三區-----------------------------------------------------------------------------------------------------------------------
     Private Sub Set_清單6()
         主表6_dgv.DataSource = Nothing : ds6.Clear() : 主表6_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        主表6_dgv.ColumnHeadersHeight = 30 : 主表6_dgv.AllowUserToAddRows = False
+        主表6_dgv.ColumnHeadersHeight = 25 : 主表6_dgv.AllowUserToAddRows = False : 主表6_dgv.RowTemplate.Height = 列高
         ConnOpen()
         SQL1 = "SELECT 日期, 子項, 子細項, SUM(金額) AS 金額 FROM 財務彙總紀錄 
                 WHERE (主項 LIKE N'" & 主項2_cb.Text & "') AND 日期 LIKE N'%" & 年份_cb.Text & "%' GROUP BY 日期, 子項, 子細項 ORDER BY 日期, 子項, 子細項"
         主表6_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
         主表6_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         Set_清單8() : Set_清單7()
+        For i As Integer = 0 To 主表7_dgv.Rows.Count - 1
+            主表7_dgv.Rows(i).Cells("比例.").Value = Strings.Format(CInt(主表7_dgv.Rows(i).Cells("金額").Value.ToString) / CInt(加總2_tb.Text) * 100, "#,##0.00") & " %"
+        Next
     End Sub
     Private Sub Set_清單7()
         主表7_dgv.DataSource = Nothing : ds7.Clear() : 主表7_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        主表7_dgv.ColumnHeadersHeight = 30 : 主表7_dgv.AllowUserToAddRows = False
+        主表7_dgv.ColumnHeadersHeight = 25 : 主表7_dgv.AllowUserToAddRows = False : 主表7_dgv.RowTemplate.Height = 列高
         ConnOpen()
-        SQL1 = "SELECT TOP(10) 子細項, SUM(金額) AS 金額, ABS(SUM(金額)) AS 比例 FROM 財務彙總紀錄 
+        SQL1 = "SELECT TOP(15) 子細項, SUM(金額) AS 金額, ABS(SUM(金額)) AS 比例, 子細項 AS [比例.] FROM 財務彙總紀錄 
                 WHERE (主項 LIKE N'" & 主項2_cb.Text & "') AND 子細項 NOT LIKE N'%借款%' AND 子細項 NOT LIKE N'%還款%' AND 日期 LIKE N'%" & 年份_cb.Text & "%'
                 GROUP BY 子細項 ORDER BY 金額"
         CmdSet_For_DGV() : da.Fill(ds7) : 主表7_dgv.DataSource = ds7.Tables(0) : conn.Close()
         主表7_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 主表7_dgv.Columns(2).DefaultCellStyle.Format = "#,##0"
         主表7_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         主表7_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-
+        主表7_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         主表7_dgv.Sort(主表7_dgv.Columns("比例"), System.ComponentModel.ListSortDirection.Descending)
     End Sub
     Private Sub Set_清單8()
         主表8_dgv.DataSource = Nothing : ds8.Clear() : 主表8_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        主表8_dgv.ColumnHeadersHeight = 30 : 主表8_dgv.AllowUserToAddRows = False
+        主表8_dgv.ColumnHeadersHeight = 25 : 主表8_dgv.AllowUserToAddRows = False : 主表8_dgv.RowTemplate.Height = 列高
         ConnOpen()
         SQL1 = "SELECT 日期, SUM(金額) AS 金額 FROM 財務彙總紀錄 
                 WHERE (主項 LIKE N'" & 主項2_cb.Text & "') AND 日期 LIKE N'%" & 年份_cb.Text & "%' GROUP BY 日期 ORDER BY 日期"
     End Sub
     Private Sub Set_清單9()
         主表9_dgv.DataSource = Nothing : ds9.Clear() : 主表9_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        主表9_dgv.ColumnHeadersHeight = 30 : 主表9_dgv.AllowUserToAddRows = False
+        主表9_dgv.ColumnHeadersHeight = 25 : 主表9_dgv.AllowUserToAddRows = False : 主表9_dgv.RowTemplate.Height = 列高
         ConnOpen()
         SQL1 = "SELECT 日期, 日期 AS 金額1, 日期 AS 金額2, 日期 AS 金額3 FROM 財務彙總紀錄 WHERE 日期 LIKE N'%" & 年份_cb.Text & "%' GROUP BY 日期 ORDER BY 日期"
         CmdSet_For_DGV() : da.Fill(ds9) : 主表9_dgv.DataSource = ds9.Tables(0) : conn.Close()
                     主表9_dgv.Rows(I).Cells("金額3").Value = 主表8_dgv.Rows(II).Cells("金額").Value
                 End If
             Next
+        Next : Set_清單10()
+    End Sub
+    Private Sub Set_清單10()
+        主表10_dgv.DataSource = Nothing : ds10.Clear() : 主表10_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        主表10_dgv.ColumnHeadersHeight = 25 : 主表10_dgv.AllowUserToAddRows = False : 主表10_dgv.RowTemplate.Height = 列高
+        ConnOpen()
+        SQL1 = "SELECT     財務彙總紀錄.日期, AA.餘額
+                FROM       財務彙總紀錄 LEFT OUTER JOIN
+                          (SELECT          LEFT(日期, 7) AS 日期, SUM(收入 * 匯率) AS 餘額
+                           FROM               財務流水帳
+                           WHERE           (類別 LIKE 'D%') AND (日期 LIKE N'%" & 年份_cb.Text & "%')
+                           GROUP BY    LEFT(日期, 7)) AS AA ON LEFT(財務彙總紀錄.日期, 7) = AA.日期
+                WHERE     (財務彙總紀錄.日期 LIKE N'%" & 年份_cb.Text & "%')
+                GROUP BY   財務彙總紀錄.日期, AA.餘額
+                ORDER BY   財務彙總紀錄.日期"
+        CmdSet_For_DGV() : da.Fill(ds10) : 主表10_dgv.DataSource = ds10.Tables(0) : conn.Close()
+        For i As Integer = 0 To 主表10_dgv.Rows.Count - 1
+            If IsDBNull(主表10_dgv.Rows(i).Cells("餘額").Value) Then
+                主表10_dgv.Rows(i).Cells("餘額").Value = "0"
+            End If
+            If i > 0 Then
+                If 主表10_dgv.Rows(i).Cells("餘額").Value = 0 And 主表10_dgv.Rows(i - 1).Cells("餘額").Value > 0 Then
+                    主表10_dgv.Rows(i).Cells("餘額").Value = 主表10_dgv.Rows(i - 1).Cells("餘額").Value
+                End If
+            End If
         Next
     End Sub
     Private Sub 彙總()
         Set_清單9()
 
         Chart1.Series.Clear() : Chart1.ChartAreas(0).AxisX.Minimum = 0
+        Chart1.ChartAreas(0).AxisY.LabelStyle.Font = New Font("Arial", 8) : Chart1.ChartAreas(0).AxisY.LabelStyle.Format = "#,##0"
+
         If 主項2_cb.Text <> "" Then
             Chart1.Series.Add(主項2_cb.Text)
             If 主項2_cb.Text = "資本" Then : Chart1.Series(主項2_cb.Text).ChartType = SeriesChartType.Line
             Chart4.Series(主項2_cb.Text).IsVisibleInLegend = True
             Chart4.Series(主項2_cb.Text).IsXValueIndexed = True
             For i As Integer = 0 To 主表7_dgv.Rows.Count - 1
-                Chart4.Series(主項2_cb.Text).Points.AddXY(主表7_dgv.Rows(i).Cells("子細項").Value.ToString, Format(主表7_dgv.Rows(i).Cells("金額").Value, "#,##0"))
+                Chart4.Series(主項2_cb.Text).Points.AddXY(主表7_dgv.Rows(i).Cells("子細項").Value.ToString, 主表7_dgv.Rows(i).Cells("比例.").Value.ToString.Replace(" ", "").Replace("%", ""))
             Next
         End If
 
             Chart2.Series(主項1_cb.Text).IsVisibleInLegend = True
             Chart2.Series(主項1_cb.Text).IsXValueIndexed = True
             For i As Integer = 0 To 主表4_dgv.Rows.Count - 1
-                Chart2.Series(主項1_cb.Text).Points.AddXY(主表4_dgv.Rows(i).Cells("子細項").Value.ToString, Format(主表4_dgv.Rows(i).Cells("金額").Value, "#,##0"))
+                Chart2.Series(主項1_cb.Text).Points.AddXY(主表4_dgv.Rows(i).Cells("子細項").Value.ToString, 主表4_dgv.Rows(i).Cells("比例.").Value.ToString.Replace(" ", "").Replace("%", ""))
             Next
         End If
 
             Chart3.Series(主項_cb.Text).IsVisibleInLegend = True
             Chart3.Series(主項_cb.Text).IsXValueIndexed = True
             For i As Integer = 0 To 主表1_dgv.Rows.Count - 1
-                Chart3.Series(主項_cb.Text).Points.AddXY(主表1_dgv.Rows(i).Cells("子細項").Value.ToString, Format(主表1_dgv.Rows(i).Cells("金額").Value, "#,##0"))
+                Chart3.Series(主項_cb.Text).Points.AddXY(主表1_dgv.Rows(i).Cells("子細項").Value.ToString, 主表1_dgv.Rows(i).Cells("比例.").Value.ToString.Replace(" ", "").Replace("%", ""))
             Next
         End If
+
+        Chart1.Series.Add("資金餘額")
+        Chart1.Series("資金餘額").ChartType = SeriesChartType.Line
+        For i As Integer = 0 To 主表10_dgv.Rows.Count - 1
+            Chart1.Series("資金餘額").Points.AddXY(主表10_dgv.Rows(i).Cells("日期").Value.ToString, 主表10_dgv.Rows(i).Cells("餘額").Value.ToString)
+        Next
     End Sub
     Private Sub 主項下拉()
         ConnOpen() : SQL1 = "SELECT  主項 FROM 財務彙總紀錄 WHERE 主項 NOT LIKE N'上月結存' GROUP BY 主項 ORDER BY 主項 DESC" : CmdSet_For_dr()
     End Sub
     Private Sub 財務_彙總表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        GCM_ERP_SYS.WindowState = 2
+        GCM_ERP_SYS.WindowState = 2 : 列高 = 19
         ComboBox1下拉表單資料載入() : 主項下拉() : 主項_cb.SelectedIndex = 0 : 主項1_cb.SelectedIndex = 1 : 主項2_cb.SelectedIndex = 2
+        主表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6) : 主表1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
+        主表2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6) : 主表3_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
+        主表4_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6) : 主表5_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
+        主表6_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6) : 主表7_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
+        主表8_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
     End Sub
     Private Sub 財務_彙總表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
         GCM_ERP_SYS.WindowState = 0

工巧明智能管理系統/我的系統/02-財務系統管理/ISC/財務_彙總表_ICS.vb

 Imports System.Windows.Forms.DataVisualization.Charting
 Public Class 財務_彙總表_ICS
-    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8, ds9 As New DataSet
+    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8, ds9, ds10 As New DataSet
+    Dim 列高 As Integer
     '-----------------------------第一區-----------------------------------------------------------------------------------------------------------------------
     Private Sub Set_清單()
         主表_dgv.DataSource = Nothing : ds.Clear() : 主表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        主表_dgv.ColumnHeadersHeight = 30 : 主表_dgv.AllowUserToAddRows = False
+        主表_dgv.ColumnHeadersHeight = 25 : 主表_dgv.AllowUserToAddRows = False : 主表_dgv.RowTemplate.Height = 列高
         ConnOpen()
         SQL1 = "SELECT 日期, 子項, 子細項, SUM(金額) AS 金額 FROM 財務彙總紀錄_ICS 
                 WHERE (主項 LIKE N'" & 主項_cb.Text & "') AND 日期 LIKE N'%" & 年份_cb.Text & "%' GROUP BY 日期, 子項, 子細項 ORDER BY 日期, 子項, 子細項"
         主表_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
         主表_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         Set_清單2() : Set_清單1()
+        For i As Integer = 0 To 主表1_dgv.Rows.Count - 1
+            主表1_dgv.Rows(i).Cells("比例.").Value = Strings.Format(CInt(主表1_dgv.Rows(i).Cells("金額").Value.ToString) / CInt(加總_tb.Text) * 100, "#,##0.00") & " %"
+        Next
     End Sub
     Private Sub Set_清單1()
         主表1_dgv.DataSource = Nothing : ds1.Clear() : 主表1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        主表1_dgv.ColumnHeadersHeight = 30 : 主表1_dgv.AllowUserToAddRows = False
+        主表1_dgv.ColumnHeadersHeight = 25 : 主表1_dgv.AllowUserToAddRows = False : 主表1_dgv.RowTemplate.Height = 列高
         ConnOpen()
-        SQL1 = "SELECT TOP(10) 子細項, SUM(金額) AS 金額, ABS(SUM(金額)) AS 比例 FROM 財務彙總紀錄_ICS 
+        SQL1 = "SELECT TOP(10) 子細項, SUM(金額) AS 金額, ABS(SUM(金額)) AS 比例, 子細項 AS [比例.] FROM 財務彙總紀錄_ICS 
                 WHERE (主項 LIKE N'" & 主項_cb.Text & "') AND 子細項 NOT LIKE N'%借款%' AND 子細項 NOT LIKE N'%還款%' AND 日期 LIKE N'%" & 年份_cb.Text & "%'
                 GROUP BY 子細項 ORDER BY 金額"
         CmdSet_For_DGV() : da.Fill(ds1) : 主表1_dgv.DataSource = ds1.Tables(0) : conn.Close()
 
-        主表1_dgv.Columns(1).FillWeight = 130 : 主表1_dgv.Columns(1).FillWeight = 80 : 主表1_dgv.Columns(2).Visible = False
+        主表1_dgv.Columns(1).FillWeight = 130 : 主表1_dgv.Columns(1).FillWeight = 80 : 主表1_dgv.Columns(3).FillWeight = 60 : 主表1_dgv.Columns(2).Visible = False
         主表1_dgv.Columns(1).DefaultCellStyle.Format = "#,##0"
         主表1_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         主表1_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-
+        主表1_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         主表1_dgv.Sort(主表1_dgv.Columns("比例"), System.ComponentModel.ListSortDirection.Descending)
     End Sub
     Private Sub Set_清單2()
         主表2_dgv.DataSource = Nothing : ds2.Clear() : 主表2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        主表2_dgv.ColumnHeadersHeight = 30 : 主表2_dgv.AllowUserToAddRows = False
+        主表2_dgv.ColumnHeadersHeight = 25 : 主表2_dgv.AllowUserToAddRows = False : 主表2_dgv.RowTemplate.Height = 列高
         ConnOpen()
         SQL1 = "SELECT 日期, SUM(金額) AS 金額 FROM 財務彙總紀錄_ICS 
                 WHERE (主項 LIKE N'" & 主項_cb.Text & "') AND 日期 LIKE N'%" & 年份_cb.Text & "%' GROUP BY 日期 ORDER BY 日期"
     '-----------------------------第二區-----------------------------------------------------------------------------------------------------------------------
     Private Sub Set_清單3()
         主表3_dgv.DataSource = Nothing : ds3.Clear() : 主表3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        主表3_dgv.ColumnHeadersHeight = 30 : 主表3_dgv.AllowUserToAddRows = False
+        主表3_dgv.ColumnHeadersHeight = 25 : 主表3_dgv.AllowUserToAddRows = False : 主表3_dgv.RowTemplate.Height = 列高
         ConnOpen()
         SQL1 = "SELECT 日期, 子項, 子細項, SUM(金額) AS 金額 FROM 財務彙總紀錄_ICS 
                 WHERE (主項 LIKE N'" & 主項1_cb.Text & "') AND 日期 LIKE N'%" & 年份_cb.Text & "%' GROUP BY 日期, 子項, 子細項 ORDER BY 日期, 子項, 子細項"
         主表3_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
         主表3_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         Set_清單5() : Set_清單4()
+        For i As Integer = 0 To 主表4_dgv.Rows.Count - 1
+            主表4_dgv.Rows(i).Cells("比例.").Value = Strings.Format(CInt(主表4_dgv.Rows(i).Cells("金額").Value.ToString) / CInt(加總1_tb.Text) * 100, "#,##0.00") & " %"
+        Next
     End Sub
     Private Sub Set_清單4()
         主表4_dgv.DataSource = Nothing : ds4.Clear() : 主表4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        主表4_dgv.ColumnHeadersHeight = 30 : 主表4_dgv.AllowUserToAddRows = False
+        主表4_dgv.ColumnHeadersHeight = 25 : 主表4_dgv.AllowUserToAddRows = False : 主表4_dgv.RowTemplate.Height = 列高
         ConnOpen()
-        SQL1 = "SELECT TOP(10) 子細項, SUM(金額) AS 金額, ABS(SUM(金額)) AS 比例 FROM 財務彙總紀錄_ICS 
+        SQL1 = "SELECT TOP(10) 子細項, SUM(金額) AS 金額, ABS(SUM(金額)) AS 比例, 子細項 AS [比例.] FROM 財務彙總紀錄_ICS 
                 WHERE (主項 LIKE N'" & 主項1_cb.Text & "') AND 子細項 NOT LIKE N'%借款%' AND 子細項 NOT LIKE N'%還款%' AND 日期 LIKE N'%" & 年份_cb.Text & "%' 
                 GROUP BY 子細項 ORDER BY 金額"
         CmdSet_For_DGV() : da.Fill(ds4) : 主表4_dgv.DataSource = ds4.Tables(0) : conn.Close()
         主表4_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 主表4_dgv.Columns(2).DefaultCellStyle.Format = "#,##0"
         主表4_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         主表4_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-
+        主表4_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         主表4_dgv.Sort(主表4_dgv.Columns("比例"), System.ComponentModel.ListSortDirection.Descending)
     End Sub
     Private Sub Set_清單5()
         主表5_dgv.DataSource = Nothing : ds5.Clear() : 主表5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        主表5_dgv.ColumnHeadersHeight = 30 : 主表5_dgv.AllowUserToAddRows = False
+        主表5_dgv.ColumnHeadersHeight = 25 : 主表5_dgv.AllowUserToAddRows = False : 主表5_dgv.RowTemplate.Height = 列高
         ConnOpen()
         SQL1 = "SELECT 日期, SUM(金額) AS 金額 FROM 財務彙總紀錄_ICS 
                 WHERE (主項 LIKE N'" & 主項1_cb.Text & "') AND 日期 LIKE N'%" & 年份_cb.Text & "%' GROUP BY 日期 ORDER BY 日期"
     '-----------------------------第三區-----------------------------------------------------------------------------------------------------------------------
     Private Sub Set_清單6()
         主表6_dgv.DataSource = Nothing : ds6.Clear() : 主表6_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        主表6_dgv.ColumnHeadersHeight = 30 : 主表6_dgv.AllowUserToAddRows = False
+        主表6_dgv.ColumnHeadersHeight = 25 : 主表6_dgv.AllowUserToAddRows = False : 主表6_dgv.RowTemplate.Height = 列高
         ConnOpen()
         SQL1 = "SELECT 日期, 子項, 子細項, SUM(金額) AS 金額 FROM 財務彙總紀錄_ICS 
                 WHERE (主項 LIKE N'" & 主項2_cb.Text & "') AND 日期 LIKE N'%" & 年份_cb.Text & "%' GROUP BY 日期, 子項, 子細項 ORDER BY 日期, 子項, 子細項"
         主表6_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
         主表6_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         Set_清單8() : Set_清單7()
+        For i As Integer = 0 To 主表7_dgv.Rows.Count - 1
+            主表7_dgv.Rows(i).Cells("比例.").Value = Strings.Format(CInt(主表7_dgv.Rows(i).Cells("金額").Value.ToString) / CInt(加總2_tb.Text) * 100, "#,##0.00") & " %"
+        Next
     End Sub
     Private Sub Set_清單7()
         主表7_dgv.DataSource = Nothing : ds7.Clear() : 主表7_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        主表7_dgv.ColumnHeadersHeight = 30 : 主表7_dgv.AllowUserToAddRows = False
+        主表7_dgv.ColumnHeadersHeight = 25 : 主表7_dgv.AllowUserToAddRows = False : 主表7_dgv.RowTemplate.Height = 列高
         ConnOpen()
-        SQL1 = "SELECT TOP(10) 子細項, SUM(金額) AS 金額, ABS(SUM(金額)) AS 比例 FROM 財務彙總紀錄_ICS 
+        SQL1 = "SELECT TOP(10) 子細項, SUM(金額) AS 金額, ABS(SUM(金額)) AS 比例, 子細項 AS [比例.] FROM 財務彙總紀錄_ICS 
                 WHERE (主項 LIKE N'" & 主項2_cb.Text & "') AND 子細項 NOT LIKE N'%借款%' AND 子細項 NOT LIKE N'%還款%' AND 日期 LIKE N'%" & 年份_cb.Text & "%'
                 GROUP BY 子細項 ORDER BY 金額"
         CmdSet_For_DGV() : da.Fill(ds7) : 主表7_dgv.DataSource = ds7.Tables(0) : conn.Close()
         主表7_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 主表7_dgv.Columns(2).DefaultCellStyle.Format = "#,##0"
         主表7_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         主表7_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-
+        主表7_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         主表7_dgv.Sort(主表7_dgv.Columns("比例"), System.ComponentModel.ListSortDirection.Descending)
     End Sub
     Private Sub Set_清單8()
         主表8_dgv.DataSource = Nothing : ds8.Clear() : 主表8_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        主表8_dgv.ColumnHeadersHeight = 30 : 主表8_dgv.AllowUserToAddRows = False
+        主表8_dgv.ColumnHeadersHeight = 25 : 主表8_dgv.AllowUserToAddRows = False : 主表8_dgv.RowTemplate.Height = 列高
         ConnOpen()
         SQL1 = "SELECT 日期, SUM(金額) AS 金額 FROM 財務彙總紀錄_ICS 
                 WHERE (主項 LIKE N'" & 主項2_cb.Text & "') AND 日期 LIKE N'%" & 年份_cb.Text & "%' GROUP BY 日期 ORDER BY 日期"
                     主表9_dgv.Rows(I).Cells("金額3").Value = 主表8_dgv.Rows(II).Cells("金額").Value
                 End If
             Next
+        Next : Set_清單10()
+    End Sub
+    Private Sub Set_清單10()
+        主表10_dgv.DataSource = Nothing : ds10.Clear() : 主表10_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        主表10_dgv.ColumnHeadersHeight = 25 : 主表10_dgv.AllowUserToAddRows = False : 主表10_dgv.RowTemplate.Height = 列高
+        ConnOpen()
+        SQL1 = "SELECT     財務彙總紀錄_ICS.日期, AA.餘額
+                FROM       財務彙總紀錄_ICS LEFT OUTER JOIN
+                          (SELECT          LEFT(日期, 7) AS 日期, SUM(收入 * 匯率) AS 餘額
+                           FROM               財務流水帳_ICS
+                           WHERE           (類別 LIKE 'D%') AND (日期 LIKE N'%" & 年份_cb.Text & "%')
+                           GROUP BY    LEFT(日期, 7)) AS AA ON LEFT(財務彙總紀錄_ICS.日期, 7) = AA.日期
+                WHERE     (財務彙總紀錄_ICS.日期 LIKE N'%" & 年份_cb.Text & "%')
+                GROUP BY   財務彙總紀錄_ICS.日期, AA.餘額
+                ORDER BY   財務彙總紀錄_ICS.日期"
+        CmdSet_For_DGV() : da.Fill(ds10) : 主表10_dgv.DataSource = ds10.Tables(0) : conn.Close()
+        For i As Integer = 0 To 主表10_dgv.Rows.Count - 1
+            If IsDBNull(主表10_dgv.Rows(i).Cells("餘額").Value) Then
+                主表10_dgv.Rows(i).Cells("餘額").Value = "0"
+            End If
+            If i > 0 Then
+                If 主表10_dgv.Rows(i).Cells("餘額").Value = 0 And 主表10_dgv.Rows(i - 1).Cells("餘額").Value > 0 Then
+                    主表10_dgv.Rows(i).Cells("餘額").Value = 主表10_dgv.Rows(i - 1).Cells("餘額").Value
+                End If
+            End If
         Next
     End Sub
     Private Sub 彙總()
         Set_清單9()
 
         Chart1.Series.Clear() : Chart1.ChartAreas(0).AxisX.Minimum = 0
+        Chart1.ChartAreas(0).AxisY.LabelStyle.Font = New Font("Arial", 8) : Chart1.ChartAreas(0).AxisY.LabelStyle.Format = "#,##0"
+
         If 主項2_cb.Text <> "" Then
             Chart1.Series.Add(主項2_cb.Text)
             If 主項2_cb.Text = "資本" Then : Chart1.Series(主項2_cb.Text).ChartType = SeriesChartType.Line
             Chart4.Series(主項2_cb.Text).IsVisibleInLegend = True
             Chart4.Series(主項2_cb.Text).IsXValueIndexed = True
             For i As Integer = 0 To 主表7_dgv.Rows.Count - 1
-                Chart4.Series(主項2_cb.Text).Points.AddXY(主表7_dgv.Rows(i).Cells("子細項").Value.ToString, Format(主表7_dgv.Rows(i).Cells("金額").Value, "#,##0"))
+                Chart4.Series(主項2_cb.Text).Points.AddXY(主表7_dgv.Rows(i).Cells("子細項").Value.ToString, 主表7_dgv.Rows(i).Cells("比例.").Value.ToString.Replace(" ", "").Replace("%", ""))
             Next
         End If
 
             Chart2.Series(主項1_cb.Text).IsVisibleInLegend = True
             Chart2.Series(主項1_cb.Text).IsXValueIndexed = True
             For i As Integer = 0 To 主表4_dgv.Rows.Count - 1
-                Chart2.Series(主項1_cb.Text).Points.AddXY(主表4_dgv.Rows(i).Cells("子細項").Value.ToString, Format(主表4_dgv.Rows(i).Cells("金額").Value, "#,##0"))
+                Chart2.Series(主項1_cb.Text).Points.AddXY(主表4_dgv.Rows(i).Cells("子細項").Value.ToString, 主表4_dgv.Rows(i).Cells("比例.").Value.ToString.Replace(" ", "").Replace("%", ""))
             Next
         End If
 
             Chart3.Series(主項_cb.Text).IsVisibleInLegend = True
             Chart3.Series(主項_cb.Text).IsXValueIndexed = True
             For i As Integer = 0 To 主表1_dgv.Rows.Count - 1
-                Chart3.Series(主項_cb.Text).Points.AddXY(主表1_dgv.Rows(i).Cells("子細項").Value.ToString, Format(主表1_dgv.Rows(i).Cells("金額").Value, "#,##0"))
+                Chart3.Series(主項_cb.Text).Points.AddXY(主表1_dgv.Rows(i).Cells("子細項").Value.ToString, 主表1_dgv.Rows(i).Cells("比例.").Value.ToString.Replace(" ", "").Replace("%", ""))
             Next
         End If
+
+        Chart1.Series.Add("資金餘額")
+        Chart1.Series("資金餘額").ChartType = SeriesChartType.Line
+        For i As Integer = 0 To 主表10_dgv.Rows.Count - 1
+            Chart1.Series("資金餘額").Points.AddXY(主表10_dgv.Rows(i).Cells("日期").Value.ToString, 主表10_dgv.Rows(i).Cells("餘額").Value.ToString)
+        Next
     End Sub
     Private Sub 主項下拉()
         ConnOpen() : SQL1 = "SELECT  主項 FROM 財務彙總紀錄_ICS WHERE 主項 NOT LIKE N'上月結存' GROUP BY 主項 ORDER BY 主項 DESC" : CmdSet_For_dr()
     End Sub
     Private Sub 財務_彙總表_ICS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        GCM_ERP_SYS.WindowState = 2
+        GCM_ERP_SYS.WindowState = 2 : 列高 = 19
         ComboBox1下拉表單資料載入() : 主項下拉()
         If 主項_cb.Items.Count >= 1 Then : 主項_cb.SelectedIndex = 0 : End If
         If 主項_cb.Items.Count >= 2 Then : 主項1_cb.SelectedIndex = 1 : End If
         If 主項_cb.Items.Count >= 3 Then : 主項2_cb.SelectedIndex = 2 : End If
+        主表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6) : 主表1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
+        主表2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6) : 主表3_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
+        主表4_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6) : 主表5_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
+        主表6_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6) : 主表7_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
+        主表8_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
     End Sub
     Private Sub 財務_彙總表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
         GCM_ERP_SYS.WindowState = 0

工巧明智能管理系統/我的系統/bin/Debug/debug.log

 ERROR: Failed parsing Certificate
 
 [0105/142140.917:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkN1KA0EMhd/GK6fj2qpXxUeR+Ulns838mMy09O0NZVUE9aIQODmQfCTn3AyWQCOC2EXrfQBfVjEZE7sOm4xls8j9uZlQS4fSbaORsIg9VM4muyOw9bVKV3Ui0K+wgBwITOOaGERuQSSq3tEfmwv05sLRvukH1g+kaBlID46mKUh+un++SEOtB04rJdc4SAPB3Cr37JoS6HJAol8gfYass3BSY6S7r/MJPTsNc+6ZnmTG03d3C0YjbLXET10Rr3k/vTxsn6fdtH28C34/fQCVZLDN (2)
+[0219/145229.019:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/145231.195:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/145232.985:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/145233.341:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/145631.662:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/145633.536:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/145634.888:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/145635.231:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/150047.588:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/150050.341:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/150050.814:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/150051.227:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/151021.295:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/151023.265:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/151024.693:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/151025.123:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/151556.208:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/151558.113:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/151559.414:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/151559.675:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/152111.391:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/152113.282:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/152114.490:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/152114.884:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/152635.239:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/152638.784:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/152640.071:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/152640.468:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/153144.881:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/153147.810:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/153149.365:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/153149.677:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/153457.337:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/153500.323:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/153500.836:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/153501.161:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/153803.428:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/153805.439:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/153806.830:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/153807.195:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/154100.016:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/154103.124:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/154103.646:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/154104.031:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/160753.698:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/160755.993:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/160757.466:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/160757.762:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/160951.455:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/160953.306:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/160954.649:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/160955.017:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/161152.365:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/161154.238:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/161154.761:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/161155.202:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/162819.162:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/162822.133:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/162823.580:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/162823.945:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/162931.304:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/162933.203:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/162934.658:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/162934.958:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/163014.066:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/163015.886:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/163016.319:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/163016.680:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/163140.933:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/163142.866:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/163143.252:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/163143.551:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/164520.897:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/164522.855:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/164524.142:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/164524.475:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/164909.476:WARNING:frame_impl.cc(420)] SendProcessMessage sent to detached frame 17179869185 [4,1] will be ignored
+[0219/165825.213:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/165829.063:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/165830.343:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/165830.655:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/170239.197:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/170241.084:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/170241.523:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/170241.831:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/171747.373:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/171750.561:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/171752.073:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/171752.377:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/173529.571:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/173532.216:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/173533.653:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/173533.985:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/173729.422:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/173731.203:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/173731.766:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/173732.070:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)
+[0219/180504.417:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0219/180506.312:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/180508.007:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0219/180508.412:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.1", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbU6oq7ET5G2E2c6pg+TjOLfG8QHgm6EwM1d5CQ3l2piDji2wHbQOo1A14eYFDtyArMU82zg6aWaULJAFltx7GJmeyiUTHJHIOtLYVF1zCB3WIgUEEyl0hEw/4PosHiHPyYHkOrC0e41gfVjxNYSoB7cmqog/nRfUkgPSXPDWY1hca/NGD05/UMvCVfcx/O7+wej6WvJ7VMfiF3aLjbz9XK+3jTNJPjt4gaR4ZXx (2)