20230610備份

GA-ERP-SYS/GA-ERP-SYS.vbproj

@@ -640,6 +640,7 @@
   <ItemGroup>
     <Content Include="hnet.com-image.ico" />
     <Content Include="wrench1.ico" />
+    <None Include="圖片\S__20029698.jpg" />
     <None Include="圖片\1627008239190.jpg" />
     <None Include="圖片\00aa2ad767a242ddc3099a90a5c7edb.png" />
     <None Include="圖片\125425789654.png" />

GA-ERP-SYS/My Project/Resources.Designer.vb

@@ -390,6 +390,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property S__20029698() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("S__20029698", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
         '''</summary>

GA-ERP-SYS/My Project/Resources.resx

@@ -136,6 +136,9 @@
   <data name="pen1" 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="Shipping5" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\Shipping5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="check-icon1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\check-icon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -145,6 +148,9 @@
   <data name="buy1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\buy.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.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="childish_Tool1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\childish_Tool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -172,15 +178,12 @@
   <data name="delivery" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\delivery.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="timg03" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\timg03.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="depositphotos_189846782-stock-illustration-ga-g-a-letter-logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\depositphotos_189846782-stock-illustration-ga-g-a-letter-logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Delivery-Icon" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Delivery-Icon.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.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="Report1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -202,8 +205,8 @@
   <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="Shipping5" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\Shipping5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="timg03" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\timg03.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="1627008239190" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\1627008239190.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -235,7 +238,7 @@
   <data name="business-info" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\business-info.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="depositphotos_189846782-stock-illustration-ga-g-a-letter-logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\depositphotos_189846782-stock-illustration-ga-g-a-letter-logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="S__20029698" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\S__20029698.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

GA-ERP-SYS/bin/Debug/GA-ERP-SYS.xml

@@ -187,6 +187,11 @@ GA-ERP-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:GA_ERP_SYS.My.Resources.Resources.S__20029698">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:GA_ERP_SYS.My.Resources.Resources.Shipping5">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。

GA-ERP-SYS/bin/Debug/debug.log

@@ -461,3 +461,30 @@ ERROR: Couldn't read tbsCertificate as SEQUENCE
 ERROR: Failed parsing Certificate
 
 [0526/222212.883:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_static/??-eJydjEEOgzAMBD/UECoBggPiLSlYjVFsUtuA+vvmQNV7pZVm97BzZoc8p30B9WvJawd5X3CETwkGFSFXq97O7OaNDdi8RaDygKMMpxbEB1Uw9QkfEoohGqVWIx6/9o9GQPPGy5eXYqLx3vVNM9RdW38AaJ5IrQ== (2)
+[0529/111359.342:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0529/111402.412: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
+
+[0529/111404.257:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_static/??-eJydjEEOgzAMBD/UECoBggPiLSlYjVFsUtuA+vvmQNV7pZVm97BzZoc8p30B9WvJawd5X3CETwkGFSFXq97O7OaNDdi8RaDygKMMpxbEB1Uw9QkfEoohGqVWIx6/9o9GQPPGy5eXYqLx3vVNM9RdW38AaJ5IrQ== (2)
+[0529/111412.618:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_static/??-eJydjEEOgzAMBD/UECoBggPiLSlYjVFsUtuA+vvmQNV7pZVm97BzZoc8p30B9WvJawd5X3CETwkGFSFXq97O7OaNDdi8RaDygKMMpxbEB1Uw9QkfEoohGqVWIx6/9o9GQPPGy5eXYqLx3vVNM9RdW38AaJ5IrQ== (2)
+[0529/111414.769:WARNING:frame_impl.cc(420)] SendProcessMessage sent to detached frame 17179869185 [4,1] will be ignored
+[0529/111425.797:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0529/111427.246: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
+
+[0529/111428.103:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_static/??-eJydjEEOgzAMBD/UECoBggPiLSlYjVFsUtuA+vvmQNV7pZVm97BzZoc8p30B9WvJawd5X3CETwkGFSFXq97O7OaNDdi8RaDygKMMpxbEB1Uw9QkfEoohGqVWIx6/9o9GQPPGy5eXYqLx3vVNM9RdW38AaJ5IrQ== (2)
+[0529/112137.216:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0529/112138.955: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
+
+[0529/112140.344:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_static/??-eJydjEEOgzAMBD/UECoBggPiLSlYjVFsUtuA+vvmQNV7pZVm97BzZoc8p30B9WvJawd5X3CETwkGFSFXq97O7OaNDdi8RaDygKMMpxbEB1Uw9QkfEoohGqVWIx6/9o9GQPPGy5eXYqLx3vVNM9RdW38AaJ5IrQ== (2)
+[0529/112659.962:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0529/112701.396: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
+
+[0529/112702.866:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_static/??-eJydjEEOgzAMBD/UECoBggPiLSlYjVFsUtuA+vvmQNV7pZVm97BzZoc8p30B9WvJawd5X3CETwkGFSFXq97O7OaNDdi8RaDygKMMpxbEB1Uw9QkfEoohGqVWIx6/9o9GQPPGy5eXYqLx3vVNM9RdW38AaJ5IrQ== (2)
+[0529/112712.569:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_static/??-eJydjEEOgzAMBD/UECoBggPiLSlYjVFsUtuA+vvmQNV7pZVm97BzZoc8p30B9WvJawd5X3CETwkGFSFXq97O7OaNDdi8RaDygKMMpxbEB1Uw9QkfEoohGqVWIx6/9o9GQPPGy5eXYqLx3vVNM9RdW38AaJ5IrQ== (2)

GA-ERP-SYS/obj/Debug/GA-ERP-SYS.xml

@@ -187,6 +187,11 @@ GA-ERP-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:GA_ERP_SYS.My.Resources.Resources.S__20029698">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:GA_ERP_SYS.My.Resources.Resources.Shipping5">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。

GA-ERP-SYS/報表系統管理/後台/後台帳務彙總結算表.Designer.vb

@@ -22,16 +22,15 @@ Partial Class 後台帳務彙總結算表
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        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()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 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.PictureBox2 = New System.Windows.Forms.PictureBox()
         Me.結束日期_dtp = New System.Windows.Forms.DateTimePicker()
         Me.開始日期_dtp = New System.Windows.Forms.DateTimePicker()
         Me.Label1 = New System.Windows.Forms.Label()
@@ -42,6 +41,7 @@ Partial Class 後台帳務彙總結算表
         Me.結果_tb = New System.Windows.Forms.TextBox()
         Me.Label26 = New System.Windows.Forms.Label()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.廣告_tb = New System.Windows.Forms.TextBox()
         Me.A4_P = New System.Windows.Forms.Panel()
         Me.Label18 = New System.Windows.Forms.Label()
         Me.結果2_tb = New System.Windows.Forms.TextBox()
@@ -92,10 +92,10 @@ Partial Class 後台帳務彙總結算表
         Me.顯周_ch = New System.Windows.Forms.CheckBox()
         Me.顯月_ch = New System.Windows.Forms.CheckBox()
         Me.顯年_ch = New System.Windows.Forms.CheckBox()
-        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
         CType(Me.日期清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         Me.A4_P.SuspendLayout()
         Me.A3_P.SuspendLayout()
@@ -108,6 +108,8 @@ Partial Class 後台帳務彙總結算表
         Me.Panel2.SuspendLayout()
         CType(Me.彙總7_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.彙總6_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '日期清單_dgv
@@ -134,22 +136,12 @@ Partial Class 後台帳務彙總結算表
         Me.彙總1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.彙總1_dgv.Name = "彙總1_dgv"
         Me.彙總1_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle43.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.彙總1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle43
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
         Me.彙總1_dgv.RowTemplate.Height = 24
         Me.彙總1_dgv.Size = New System.Drawing.Size(78, 61)
         Me.彙總1_dgv.TabIndex = 1768
         '
-        'PictureBox2
-        '
-        Me.PictureBox2.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources._9f4d0b564d950c8de255241c1b6c560
-        Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox2.Location = New System.Drawing.Point(3, 3)
-        Me.PictureBox2.Name = "PictureBox2"
-        Me.PictureBox2.Size = New System.Drawing.Size(139, 50)
-        Me.PictureBox2.TabIndex = 1769
-        Me.PictureBox2.TabStop = False
-        '
         '結束日期_dtp
         '
         Me.結束日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
@@ -237,7 +229,8 @@ Partial Class 後台帳務彙總結算表
         Me.Panel1.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.Panel1.Controls.Add(Me.TextBox1)
+        Me.Panel1.Controls.Add(Me.PictureBox1)
+        Me.Panel1.Controls.Add(Me.廣告_tb)
         Me.Panel1.Controls.Add(Me.A4_P)
         Me.Panel1.Controls.Add(Me.A3_P)
         Me.Panel1.Controls.Add(Me.A2_P)
@@ -249,6 +242,22 @@ Partial Class 後台帳務彙總結算表
         Me.Panel1.Size = New System.Drawing.Size(918, 651)
         Me.Panel1.TabIndex = 1783
         '
+        '廣告_tb
+        '
+        Me.廣告_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.廣告_tb.BackColor = System.Drawing.SystemColors.InactiveBorder
+        Me.廣告_tb.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.廣告_tb.Font = New System.Drawing.Font("標楷體", 12.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.廣告_tb.ForeColor = System.Drawing.Color.Blue
+        Me.廣告_tb.Location = New System.Drawing.Point(3, 610)
+        Me.廣告_tb.Multiline = True
+        Me.廣告_tb.Name = "廣告_tb"
+        Me.廣告_tb.Size = New System.Drawing.Size(912, 38)
+        Me.廣告_tb.TabIndex = 1824
+        Me.廣告_tb.Text = "歡迎專業水站、100%版主、多版經營者、致富網為您提供快速準確自動抓版合帳的系統 [前一個月免費試用喔，請洽 Line ID 3078888] "
+        Me.廣告_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
         'A4_P
         '
         Me.A4_P.Controls.Add(Me.Label18)
@@ -410,8 +419,8 @@ Partial Class 後台帳務彙總結算表
         Me.彙總5_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.彙總5_dgv.Name = "彙總5_dgv"
         Me.彙總5_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle44.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.彙總5_dgv.RowsDefaultCellStyle = DataGridViewCellStyle44
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總5_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.彙總5_dgv.RowTemplate.Height = 24
         Me.彙總5_dgv.Size = New System.Drawing.Size(911, 555)
         Me.彙總5_dgv.TabIndex = 1813
@@ -427,8 +436,8 @@ Partial Class 後台帳務彙總結算表
         Me.彙總3_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.彙總3_dgv.Name = "彙總3_dgv"
         Me.彙總3_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle45.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.彙總3_dgv.RowsDefaultCellStyle = DataGridViewCellStyle45
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總3_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
         Me.彙總3_dgv.RowTemplate.Height = 24
         Me.彙總3_dgv.Size = New System.Drawing.Size(78, 61)
         Me.彙總3_dgv.TabIndex = 1769
@@ -466,8 +475,8 @@ Partial Class 後台帳務彙總結算表
         Me.彙總4_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.彙總4_dgv.Name = "彙總4_dgv"
         Me.彙總4_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle46.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.彙總4_dgv.RowsDefaultCellStyle = DataGridViewCellStyle46
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總4_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.彙總4_dgv.RowTemplate.Height = 24
         Me.彙總4_dgv.Size = New System.Drawing.Size(78, 61)
         Me.彙總4_dgv.TabIndex = 1786
@@ -625,8 +634,8 @@ Partial Class 後台帳務彙總結算表
         Me.彙總2_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.彙總2_dgv.Name = "彙總2_dgv"
         Me.彙總2_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle47.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.彙總2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle47
+        DataGridViewCellStyle5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
         Me.彙總2_dgv.RowTemplate.Height = 24
         Me.彙總2_dgv.Size = New System.Drawing.Size(78, 61)
         Me.彙總2_dgv.TabIndex = 1785
@@ -716,8 +725,8 @@ Partial Class 後台帳務彙總結算表
         Me.彙總7_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.彙總7_dgv.Name = "彙總7_dgv"
         Me.彙總7_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle48.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.彙總7_dgv.RowsDefaultCellStyle = DataGridViewCellStyle48
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總7_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
         Me.彙總7_dgv.RowTemplate.Height = 24
         Me.彙總7_dgv.Size = New System.Drawing.Size(78, 61)
         Me.彙總7_dgv.TabIndex = 1822
@@ -733,8 +742,8 @@ Partial Class 後台帳務彙總結算表
         Me.彙總6_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.彙總6_dgv.Name = "彙總6_dgv"
         Me.彙總6_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle49.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.彙總6_dgv.RowsDefaultCellStyle = DataGridViewCellStyle49
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總6_dgv.RowsDefaultCellStyle = DataGridViewCellStyle7
         Me.彙總6_dgv.RowTemplate.Height = 24
         Me.彙總6_dgv.Size = New System.Drawing.Size(78, 61)
         Me.彙總6_dgv.TabIndex = 1821
@@ -801,21 +810,25 @@ Partial Class 後台帳務彙總結算表
         Me.顯年_ch.Text = "年"
         Me.顯年_ch.UseVisualStyleBackColor = True
         '
-        'TextBox1
+        'PictureBox1
         '
-        Me.TextBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.TextBox1.BackColor = System.Drawing.SystemColors.InactiveBorder
-        Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
-        Me.TextBox1.Font = New System.Drawing.Font("標楷體", 12.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.TextBox1.ForeColor = System.Drawing.Color.Blue
-        Me.TextBox1.Location = New System.Drawing.Point(3, 610)
-        Me.TextBox1.Multiline = True
-        Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(912, 38)
-        Me.TextBox1.TabIndex = 1824
-        Me.TextBox1.Text = "歡迎專業水站、100%版主、多版經營者、致富網為您提供快速準確自動抓版合帳的系統 [前一個月免費試用喔]"
-        Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.PictureBox1.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources.S__20029698
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Location = New System.Drawing.Point(146, 2)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(52, 52)
+        Me.PictureBox1.TabIndex = 1825
+        Me.PictureBox1.TabStop = False
+        '
+        'PictureBox2
+        '
+        Me.PictureBox2.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources._9f4d0b564d950c8de255241c1b6c560
+        Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox2.Location = New System.Drawing.Point(3, 3)
+        Me.PictureBox2.Name = "PictureBox2"
+        Me.PictureBox2.Size = New System.Drawing.Size(139, 50)
+        Me.PictureBox2.TabIndex = 1769
+        Me.PictureBox2.TabStop = False
         '
         '後台帳務彙總結算表
         '
@@ -839,7 +852,6 @@ Partial Class 後台帳務彙總結算表
         Me.Text = "後台帳務彙總結算表"
         CType(Me.日期清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel1.ResumeLayout(False)
         Me.Panel1.PerformLayout()
         Me.A4_P.ResumeLayout(False)
@@ -858,6 +870,8 @@ Partial Class 後台帳務彙總結算表
         Me.Panel2.PerformLayout()
         CType(Me.彙總7_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.彙總6_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -926,5 +940,6 @@ Partial Class 後台帳務彙總結算表
     Friend WithEvents A1_P As Panel
     Friend WithEvents 彙總6_dgv As DataGridView
     Friend WithEvents 彙總7_dgv As DataGridView
-    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents 廣告_tb As TextBox
+    Friend WithEvents PictureBox1 As PictureBox
 End Class

GA-ERP-SYS/報表系統管理/後台/後台帳務彙總結算表.vb

@@ -432,6 +432,15 @@
         ElseIf oldWeekDay = 3 Then : 結束日期1_dtp.Value = 結束日期1_dtp.Value.AddDays(5) : ElseIf oldWeekDay = 2 Then : 結束日期1_dtp.Value = 結束日期1_dtp.Value.AddDays(6)
         End If : 本周周一_dtp.Value = 結束日期1_dtp.Value.AddDays(-6) : 結束日期1_dtp.Value = Today()
         Set_明細日期清單()
+        If 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
+            廣告_tb.Font = New Font("標楷體", 8.75, FontStyle.Bold)
+        ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
+            廣告_tb.Font = New Font("標楷體", 9.75, FontStyle.Bold)
+        ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
+            廣告_tb.Font = New Font("標楷體", 12.75, FontStyle.Bold)
+        ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
+            廣告_tb.Font = New Font("標楷體", 12.75, FontStyle.Bold)
+        End If
     End Sub
     Private Sub 彙總3_dgv_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles 彙總3_dgv.CellFormatting
         If e.Value = Nothing Then : Else : If IsNumeric(Val(e.Value.ToString)) = True And Val(e.Value.ToString) < 0 Then : e.CellStyle.ForeColor = Color.Red : End If : End If
@@ -453,6 +462,15 @@
             結束日期1_dtp.Value = 日期清單_dgv("結束日期", e.RowIndex).Value.ToString : 本周周一_dtp.Value = 日期清單_dgv("開始日期", e.RowIndex).Value.ToString
             月初_dtp.Value = Strings.Left(日期清單_dgv("開始日期", e.RowIndex).Value.ToString, 8) & "01"
             PA15 = 天周月 : Set_流水帳清單3()
+            If 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
+                廣告_tb.Font = New Font("標楷體", 8.75, FontStyle.Bold)
+            ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
+                廣告_tb.Font = New Font("標楷體", 9.75, FontStyle.Bold)
+            ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
+                廣告_tb.Font = New Font("標楷體", 12.75, FontStyle.Bold)
+            ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
+                廣告_tb.Font = New Font("標楷體", 12.75, FontStyle.Bold)
+            End If
         End If
     End Sub
     Private Sub 天_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 天_ch.Click
@@ -502,90 +520,105 @@
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
                 彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
                 彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
+                廣告_tb.Font = New Font("標楷體", 8.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
                 Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = False
                 A2_P.Location = New Point(215, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
                 彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
+                廣告_tb.Font = New Font("標楷體", 8.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
                 Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = False
                 A3_P.Location = New Point(215, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = False
                 彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
+                廣告_tb.Font = New Font("標楷體", 8.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
                 Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = False : A4_P.Visible = True
                 A4_P.Location = New Point(215, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = False
                 彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
+                廣告_tb.Font = New Font("標楷體", 8.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
                 Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = False
                 A1_P.Location = New Point(215, 2) : A2_P.Location = New Point(397, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
                 彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
+                廣告_tb.Font = New Font("標楷體", 9.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
                 Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = False
                 A1_P.Location = New Point(215, 2) : A3_P.Location = New Point(397, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
                 彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
+                廣告_tb.Font = New Font("標楷體", 9.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
                 Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = False : A4_P.Visible = True
                 A1_P.Location = New Point(215, 2) : A4_P.Location = New Point(397, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
                 彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
+                廣告_tb.Font = New Font("標楷體", 9.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
                 Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = False
                 A2_P.Location = New Point(215, 2) : A3_P.Location = New Point(397, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
+                廣告_tb.Font = New Font("標楷體", 9.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
                 Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = True
                 A2_P.Location = New Point(215, 2) : A4_P.Location = New Point(397, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
+                廣告_tb.Font = New Font("標楷體", 9.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
                 Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = True
                 A3_P.Location = New Point(215, 2) : A4_P.Location = New Point(397, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = False
                 彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
+                廣告_tb.Font = New Font("標楷體", 9.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
                 Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = False
                 A1_P.Location = New Point(215, 2) : A2_P.Location = New Point(397, 2) : A3_P.Location = New Point(579, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
+                廣告_tb.Font = New Font("標楷體", 12.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
                 Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = True
                 A1_P.Location = New Point(215, 2) : A2_P.Location = New Point(397, 2) : A4_P.Location = New Point(579, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
+                廣告_tb.Font = New Font("標楷體", 12.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
                 Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = True
                 A1_P.Location = New Point(215, 2) : A3_P.Location = New Point(397, 2) : A4_P.Location = New Point(579, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
                 彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
+                廣告_tb.Font = New Font("標楷體", 12.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
                 Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = True
                 A2_P.Location = New Point(215, 2) : A3_P.Location = New Point(397, 2) : A4_P.Location = New Point(579, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
+                廣告_tb.Font = New Font("標楷體", 12.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
                 Me.Size = New Size(1133, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = True
                 A1_P.Location = New Point(215, 2) : A2_P.Location = New Point(397, 2) : A3_P.Location = New Point(579, 2) : A4_P.Location = New Point(761, 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
+                廣告_tb.Font = New Font("標楷體", 12.75, FontStyle.Bold)
             End If
         End If
     End Sub