20220722備份

GA-ERP-SYS/GA-ERP-SYS.vb

         PY執行錯誤LOG檔_tsm.Enabled = CC(25) : 租用者帳務表_tsm.Enabled = CC(41)
         '----------特殊操作功能---------------------------------------------------------------------------------------------------------------
         特殊操作功能_tsm.Enabled = CC(10) : 流水帳自動導入_tsm.Enabled = CC(11) : 流水帳手動輸入_tsm.Enabled = CC(12) : 商客資料導入_tsm.Enabled = CC(13)
+
+        球板報表系統管理_tsm.Visible = False : 球板基本資料_tsm.Visible = False
     End Sub
     Private Sub GA_ERP_SYS_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
         系統單一登入 = DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss:fff")
     Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
         timeNow += 1
         If (timeNow >= timeExit) Then
-            Timer2.Enabled = False : MsgBox("已閒置60分鐘，系統自動關閉!!") : Me.Close() : GA_ERP_SYS_Close()
+            Timer2.Enabled = False
+            If CC(38) = False Then : MsgBox("已閒置60分鐘，系統自動關閉!!") : Me.Close() : GA_ERP_SYS_Close() : End If
         End If
     End Sub
     Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove

GA-ERP-SYS/Module/SQL_子系統管理.vb

         SQL1 = "UPDATE 電板紙板 SET 商品 = N'" & 電板紙板帳務設定.商品_tb.Text & "' 
                 WHERE 客戶 LIKE N'" & 電板紙板帳務設定.客戶_tb.Text & "' AND 商品 LIKE N'" & 電板紙板帳務設定.商品1_tb.Text & "'"
         CmdSet_For_dr()
+        ConnOpen_子SQL()
+        SQL1 = "UPDATE 電板紙板流水帳 SET 商品 = N'" & 電板紙板帳務設定.商品_tb.Text & "' 
+                WHERE 客戶 LIKE N'" & 電板紙板帳務設定.客戶_tb.Text & "' AND 商品 LIKE N'" & 電板紙板帳務設定.商品1_tb.Text & "' AND 開始日期 LIKE N'" & PA49 & "'"
+        CmdSet_For_dr()
     End Sub
     Friend Sub SQL_電板紙帳刪除()
         ConnOpen_子SQL() : SQL1 = "DELETE 電板紙板 WHERE 客戶 LIKE N'" & 電板紙板帳務設定.客戶_tb.Text & "' AND 商品 LIKE N'" & 電板紙板帳務設定.商品_tb.Text & "'" : CmdSet_For_dr()

GA-ERP-SYS/Module/全域變數.vb

     Public 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, FTP物理位置, 登入客戶, 登入資料庫, 業務名稱, AA(99), QA1, QA2, QA3, QA4, 到期 As String
     Public BB(99), CC(99), 登入判斷, IP印尼, IP台灣 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2022053002"
+    Public 版本 As String = "2022071001"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 判斷重登, 內外網, 重登確認, 主頁開啟, 無KEY登入 As Boolean
     Public 異常表0, 異常表1, 異常表2, 計算累加, 分母, NN1, NN2, NN3, NN4, NN5, NN6, NN7, NN8, NN9 As Integer
     Public PPAA, PA, PA1, PA2, PA3, PA4, PA5, PA6, PA7, PA8, PA9, PA10, PA11, PA12, PA13, PA14, PA15, PA16, PA17, PA18, PA19, PA20, PA21 As String
     Public PA22, PA23, PA24, PA25, PA26, PA27, PA28, PA29, PA30, PA31, PA32, PA33, PA34, PA35, PA36, PA37, PA38, PA39, PA40, PA41 As String
-    Public PA42, PA43, PA44, PA45, PA46, PA47, PA48 As String
+    Public PA42, PA43, PA44, PA45, PA46, PA47, PA48, PA49 As String
     Public PB1(300), PB2(300), PB3(300), PB4(300), PB5(300), PB6(300), PB7(300), PB8(300), PPBB(3000) As String
     '----全域數字變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public NU1, NU2, NU3, NU4, NU5, 分段1, 分段2, 分段3, 分段4 As Double

GA-ERP-SYS/報表系統管理/電板紙板帳務設定.Designer.vb

     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.電板客戶_dgv = New System.Windows.Forms.DataGridView()
         Me.電板紙板_dgv = New System.Windows.Forms.DataGridView()
         Me.客戶_tb = New System.Windows.Forms.TextBox()
         Me.新增_bt = New System.Windows.Forms.Button()
         Me.刪除_bt = New System.Windows.Forms.Button()
         Me.Label2 = New System.Windows.Forms.Label()
+        Me.日期_dtp = New System.Windows.Forms.DateTimePicker()
         CType(Me.電板客戶_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.電板紙板_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.電板客戶_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.電板客戶_dgv.Name = "電板客戶_dgv"
         Me.電板客戶_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle1.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.電板客戶_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle5.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.電板客戶_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
         Me.電板客戶_dgv.RowTemplate.Height = 24
         Me.電板客戶_dgv.Size = New System.Drawing.Size(118, 554)
         Me.電板客戶_dgv.TabIndex = 1633
         Me.電板紙板_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.電板紙板_dgv.Name = "電板紙板_dgv"
         Me.電板紙板_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.電板紙板_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.電板紙板_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
         Me.電板紙板_dgv.RowTemplate.Height = 24
         Me.電板紙板_dgv.Size = New System.Drawing.Size(218, 480)
         Me.電板紙板_dgv.TabIndex = 1634
         Me.Label2.TabIndex = 1645
         Me.Label2.Text = "舊資料"
         '
+        '日期_dtp
+        '
+        Me.日期_dtp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.日期_dtp.CustomFormat = "yyyy/MM/dd"
+        Me.日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.日期_dtp.Location = New System.Drawing.Point(178, 333)
+        Me.日期_dtp.Name = "日期_dtp"
+        Me.日期_dtp.Size = New System.Drawing.Size(87, 23)
+        Me.日期_dtp.TabIndex = 1646
+        Me.日期_dtp.Visible = False
+        '
         '電板紙板帳務設定
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(349, 561)
+        Me.Controls.Add(Me.日期_dtp)
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.刪除_bt)
         Me.Controls.Add(Me.新增_bt)
     Friend WithEvents 新增_bt As Button
     Friend WithEvents 刪除_bt As Button
     Friend WithEvents Label2 As Label
+    Friend WithEvents 日期_dtp As DateTimePicker
 End Class

GA-ERP-SYS/報表系統管理/電板紙板帳務設定.vb

         SQL_電板紙帳查詢3() : If dr.Read() Then : MsgBox("資料重複，請重新確認!!") : Else : SQL_電板紙帳新增1() : Set_電板紙板() : 商品1_tb.Text = "" : End If
     End Sub
     Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
-        SQL_電板紙帳查詢4() : If dr.Read() Then : MsgBox("資料重複，請重新確認!!") : Else : SQL_電板紙帳修改() : Set_電板紙板() : 商品1_tb.Text = "" : End If
+        SQL_電板紙帳查詢4()
+        If dr.Read() Then
+            MsgBox("資料重複，請重新確認!!")
+        Else
+            日期_dtp.Value = Today : Dim DD As Integer = Weekday(日期_dtp.Value)
+            If DD = 2 Then : Else
+                If DD = 1 Then : 日期_dtp.Value = 日期_dtp.Value.AddDays(-6) : ElseIf DD >= 3 Then : 日期_dtp.Value = 日期_dtp.Value.AddDays(2 - DD) : End If
+            End If : PA49 = Strings.Format(日期_dtp.Value, "yyyy-MM-dd")
+            SQL_電板紙帳修改()
+            Set_電板紙板() : 商品1_tb.Text = "" : PA49 = ""
+        End If
     End Sub
     Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
         SQL_電板紙帳刪除() : Set_電板紙板() : 商品1_tb.Text = "" : 商品_tb.Text = ""

GA-ERP-SYS/特殊操作功能/系統公告.Designer.vb

         Me.TextBox3.Name = "TextBox3"
         Me.TextBox3.Size = New System.Drawing.Size(680, 479)
         Me.TextBox3.TabIndex = 2
-        Me.TextBox3.Text = "版本號 : 2022053001" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "更新內容如下 :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "1、修正101、365部分網站更換SSL憑證後指定帳戶抓帳抓不下來的BUG。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.TextBox3.Text = "版本號 : 2022071001" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "更新內容如下 :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "1、修正紙帳功能更新商品後，之前的商品名稱會殘留的BUG。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "2、新增系統計時關閉功能可以不使用(請聯繫工" &
+    "程人員協助關閉)。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
         '
         'TextBox4
         '

GA-ERP-SYS/特殊操作功能/系統公告.resx

     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <data name="TextBox1.Text" xml:space="preserve">
-    <value>版本號 : 2022052501
+    <value>版本號 : 2022053001
+更新內容如下 :
+1、修正101、365部分網站更換SSL憑證後指定帳戶抓帳抓不下來的BUG。
+
+版本號 : 2022052501
 更新內容如下 :
 1、修正基本資料設定過程網址清單會消失的BUG。
 2、修正帳務匯總表部分設定會使個人帳務計算時產生BUG的問題。

GA-ERP-SYS/資料庫系統管理/系統使用者管理.Designer.vb

         Me.CheckBox2 = New System.Windows.Forms.CheckBox()
         Me.CheckBox1 = New System.Windows.Forms.CheckBox()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.CheckBox43 = New System.Windows.Forms.CheckBox()
         Me.CheckBox42 = New System.Windows.Forms.CheckBox()
         Me.CheckBox41 = New System.Windows.Forms.CheckBox()
         Me.CheckBox40 = New System.Windows.Forms.CheckBox()
         Me.備註_tb = New System.Windows.Forms.TextBox()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.登入_tb = New System.Windows.Forms.TextBox()
-        Me.CheckBox43 = New System.Windows.Forms.CheckBox()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.使用者清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.字體大小調整_lb.Location = New System.Drawing.Point(534, 629)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
-        Me.字體大小調整_lb.Size = New System.Drawing.Size(56, 16)
+        Me.字體大小調整_lb.Size = New System.Drawing.Size(55, 16)
         Me.字體大小調整_lb.TabIndex = 1515
         Me.字體大小調整_lb.Text = "字體調整"
         '
         Me.CheckBox5.Location = New System.Drawing.Point(459, 287)
         Me.CheckBox5.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox5.Name = "CheckBox5"
-        Me.CheckBox5.Size = New System.Drawing.Size(142, 20)
+        Me.CheckBox5.Size = New System.Drawing.Size(141, 20)
         Me.CheckBox5.TabIndex = 229
         Me.CheckBox5.Text = "FTP資料夾管理-CC05"
         Me.CheckBox5.UseVisualStyleBackColor = True
         Me.CheckBox4.Location = New System.Drawing.Point(459, 257)
         Me.CheckBox4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox4.Name = "CheckBox4"
-        Me.CheckBox4.Size = New System.Drawing.Size(170, 20)
+        Me.CheckBox4.Size = New System.Drawing.Size(169, 20)
         Me.CheckBox4.TabIndex = 228
         Me.CheckBox4.Text = "系統執行檔版本管理-CC04"
         Me.CheckBox4.UseVisualStyleBackColor = True
         Me.CheckBox3.Location = New System.Drawing.Point(459, 229)
         Me.CheckBox3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox3.Name = "CheckBox3"
-        Me.CheckBox3.Size = New System.Drawing.Size(134, 20)
+        Me.CheckBox3.Size = New System.Drawing.Size(133, 20)
         Me.CheckBox3.TabIndex = 227
         Me.CheckBox3.Text = "系統編碼規則-CC03"
         Me.CheckBox3.UseVisualStyleBackColor = True
         Me.CheckBox2.Location = New System.Drawing.Point(459, 59)
         Me.CheckBox2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox2.Name = "CheckBox2"
-        Me.CheckBox2.Size = New System.Drawing.Size(146, 20)
+        Me.CheckBox2.Size = New System.Drawing.Size(145, 20)
         Me.CheckBox2.TabIndex = 226
         Me.CheckBox2.Text = "系統使用者管理-CC02"
         Me.CheckBox2.UseVisualStyleBackColor = True
         Me.CheckBox1.Location = New System.Drawing.Point(434, 5)
         Me.CheckBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox1.Name = "CheckBox1"
-        Me.CheckBox1.Size = New System.Drawing.Size(146, 20)
+        Me.CheckBox1.Size = New System.Drawing.Size(145, 20)
         Me.CheckBox1.TabIndex = 225
         Me.CheckBox1.Text = "資料庫系統管理-CC01"
         Me.CheckBox1.UseVisualStyleBackColor = True
         Me.Panel1.Size = New System.Drawing.Size(655, 656)
         Me.Panel1.TabIndex = 1513
         '
+        'CheckBox43
+        '
+        Me.CheckBox43.AutoSize = True
+        Me.CheckBox43.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.CheckBox43.Location = New System.Drawing.Point(25, 284)
+        Me.CheckBox43.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.CheckBox43.Name = "CheckBox43"
+        Me.CheckBox43.Size = New System.Drawing.Size(157, 20)
+        Me.CheckBox43.TabIndex = 1516
+        Me.CheckBox43.Text = "後桶計算功能開啟-CC43"
+        Me.CheckBox43.UseVisualStyleBackColor = True
+        '
         'CheckBox42
         '
         Me.CheckBox42.AutoSize = True
-        Me.CheckBox42.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox42.Location = New System.Drawing.Point(25, 287)
+        Me.CheckBox42.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.CheckBox42.Location = New System.Drawing.Point(25, 256)
         Me.CheckBox42.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox42.Name = "CheckBox42"
-        Me.CheckBox42.Size = New System.Drawing.Size(158, 20)
+        Me.CheckBox42.Size = New System.Drawing.Size(157, 20)
         Me.CheckBox42.TabIndex = 301
         Me.CheckBox42.Text = "股東紅利功能啟用-CC42"
         Me.CheckBox42.UseVisualStyleBackColor = True
         Me.CheckBox41.Location = New System.Drawing.Point(459, 33)
         Me.CheckBox41.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox41.Name = "CheckBox41"
-        Me.CheckBox41.Size = New System.Drawing.Size(134, 20)
+        Me.CheckBox41.Size = New System.Drawing.Size(133, 20)
         Me.CheckBox41.TabIndex = 300
         Me.CheckBox41.Text = "租用者帳務表-CC41"
         Me.CheckBox41.UseVisualStyleBackColor = True
         'CheckBox40
         '
         Me.CheckBox40.AutoSize = True
-        Me.CheckBox40.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox40.Location = New System.Drawing.Point(25, 343)
+        Me.CheckBox40.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.CheckBox40.Location = New System.Drawing.Point(25, 312)
         Me.CheckBox40.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox40.Name = "CheckBox40"
-        Me.CheckBox40.Size = New System.Drawing.Size(110, 20)
+        Me.CheckBox40.Size = New System.Drawing.Size(109, 20)
         Me.CheckBox40.TabIndex = 299
         Me.CheckBox40.Text = "公告顯示-CC40"
         Me.CheckBox40.UseVisualStyleBackColor = True
         'CheckBox39
         '
         Me.CheckBox39.AutoSize = True
-        Me.CheckBox39.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox39.Location = New System.Drawing.Point(25, 259)
+        Me.CheckBox39.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.CheckBox39.Location = New System.Drawing.Point(25, 228)
         Me.CheckBox39.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox39.Name = "CheckBox39"
-        Me.CheckBox39.Size = New System.Drawing.Size(146, 20)
+        Me.CheckBox39.Size = New System.Drawing.Size(145, 20)
         Me.CheckBox39.TabIndex = 298
         Me.CheckBox39.Text = "手工帳功能啟用-CC39"
         Me.CheckBox39.UseVisualStyleBackColor = True
         'CheckBox38
         '
         Me.CheckBox38.AutoSize = True
-        Me.CheckBox38.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox38.Location = New System.Drawing.Point(25, 61)
+        Me.CheckBox38.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.CheckBox38.Location = New System.Drawing.Point(25, 340)
         Me.CheckBox38.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox38.Name = "CheckBox38"
-        Me.CheckBox38.Size = New System.Drawing.Size(134, 20)
+        Me.CheckBox38.Size = New System.Drawing.Size(169, 20)
         Me.CheckBox38.TabIndex = 297
-        Me.CheckBox38.Text = "球板基本資料-CC38"
+        Me.CheckBox38.Text = "不使用計時關閉功能-CC38"
         Me.CheckBox38.UseVisualStyleBackColor = True
         '
         'CheckBox37
         Me.CheckBox37.Location = New System.Drawing.Point(244, 457)
         Me.CheckBox37.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox37.Name = "CheckBox37"
-        Me.CheckBox37.Size = New System.Drawing.Size(194, 20)
+        Me.CheckBox37.Size = New System.Drawing.Size(193, 20)
         Me.CheckBox37.TabIndex = 296
         Me.CheckBox37.Text = "球板歷史帳務明細查詢表-CC37"
         Me.CheckBox37.UseVisualStyleBackColor = True
         Me.CheckBox36.Location = New System.Drawing.Point(244, 429)
         Me.CheckBox36.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox36.Name = "CheckBox36"
-        Me.CheckBox36.Size = New System.Drawing.Size(194, 20)
+        Me.CheckBox36.Size = New System.Drawing.Size(193, 20)
         Me.CheckBox36.TabIndex = 295
         Me.CheckBox36.Text = "球板歷史帳務彙總計算表-CC36"
         Me.CheckBox36.UseVisualStyleBackColor = True
         Me.CheckBox35.Location = New System.Drawing.Point(244, 202)
         Me.CheckBox35.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox35.Name = "CheckBox35"
-        Me.CheckBox35.Size = New System.Drawing.Size(194, 20)
+        Me.CheckBox35.Size = New System.Drawing.Size(193, 20)
         Me.CheckBox35.TabIndex = 294
         Me.CheckBox35.Text = "電板歷史帳務明細查詢表-CC35"
         Me.CheckBox35.UseVisualStyleBackColor = True
         Me.CheckBox34.Location = New System.Drawing.Point(244, 174)
         Me.CheckBox34.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox34.Name = "CheckBox34"
-        Me.CheckBox34.Size = New System.Drawing.Size(194, 20)
+        Me.CheckBox34.Size = New System.Drawing.Size(193, 20)
         Me.CheckBox34.TabIndex = 293
         Me.CheckBox34.Text = "電板歷史帳務彙總計算表-CC34"
         Me.CheckBox34.UseVisualStyleBackColor = True
         Me.CheckBox33.Location = New System.Drawing.Point(220, 401)
         Me.CheckBox33.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox33.Name = "CheckBox33"
-        Me.CheckBox33.Size = New System.Drawing.Size(158, 20)
+        Me.CheckBox33.Size = New System.Drawing.Size(157, 20)
         Me.CheckBox33.TabIndex = 292
         Me.CheckBox33.Text = "球板歷史資料查詢-CC33"
         Me.CheckBox33.UseVisualStyleBackColor = True
         Me.CheckBox32.Location = New System.Drawing.Point(220, 373)
         Me.CheckBox32.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox32.Name = "CheckBox32"
-        Me.CheckBox32.Size = New System.Drawing.Size(158, 20)
+        Me.CheckBox32.Size = New System.Drawing.Size(157, 20)
         Me.CheckBox32.TabIndex = 291
         Me.CheckBox32.Text = "球板股東紅利設定-CC32"
         Me.CheckBox32.UseVisualStyleBackColor = True
         Me.CheckBox31.Location = New System.Drawing.Point(220, 345)
         Me.CheckBox31.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox31.Name = "CheckBox31"
-        Me.CheckBox31.Size = New System.Drawing.Size(158, 20)
+        Me.CheckBox31.Size = New System.Drawing.Size(157, 20)
         Me.CheckBox31.TabIndex = 290
         Me.CheckBox31.Text = "球板紙板帳務設定-CC31"
         Me.CheckBox31.UseVisualStyleBackColor = True
         Me.CheckBox30.Location = New System.Drawing.Point(220, 315)
         Me.CheckBox30.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox30.Name = "CheckBox30"
-        Me.CheckBox30.Size = New System.Drawing.Size(170, 20)
+        Me.CheckBox30.Size = New System.Drawing.Size(169, 20)
         Me.CheckBox30.TabIndex = 289
         Me.CheckBox30.Text = "球板帳務明細查詢表-CC30"
         Me.CheckBox30.UseVisualStyleBackColor = True
         Me.CheckBox29.Location = New System.Drawing.Point(220, 287)
         Me.CheckBox29.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox29.Name = "CheckBox29"
-        Me.CheckBox29.Size = New System.Drawing.Size(170, 20)
+        Me.CheckBox29.Size = New System.Drawing.Size(169, 20)
         Me.CheckBox29.TabIndex = 288
         Me.CheckBox29.Text = "球板帳務彙總計算表-CC29"
         Me.CheckBox29.UseVisualStyleBackColor = True
         Me.CheckBox28.Location = New System.Drawing.Point(200, 259)
         Me.CheckBox28.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox28.Name = "CheckBox28"
-        Me.CheckBox28.Size = New System.Drawing.Size(158, 20)
+        Me.CheckBox28.Size = New System.Drawing.Size(157, 20)
         Me.CheckBox28.TabIndex = 287
         Me.CheckBox28.Text = "球板報表系統管理-CC28"
         Me.CheckBox28.UseVisualStyleBackColor = True
         Me.CheckBox27.Location = New System.Drawing.Point(220, 118)
         Me.CheckBox27.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox27.Name = "CheckBox27"
-        Me.CheckBox27.Size = New System.Drawing.Size(158, 20)
+        Me.CheckBox27.Size = New System.Drawing.Size(157, 20)
         Me.CheckBox27.TabIndex = 286
         Me.CheckBox27.Text = "電板股東紅利設定-CC27"
         Me.CheckBox27.UseVisualStyleBackColor = True
         Me.CheckBox26.Location = New System.Drawing.Point(220, 90)
         Me.CheckBox26.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox26.Name = "CheckBox26"
-        Me.CheckBox26.Size = New System.Drawing.Size(158, 20)
+        Me.CheckBox26.Size = New System.Drawing.Size(157, 20)
         Me.CheckBox26.TabIndex = 285
         Me.CheckBox26.Text = "電板紙板帳務設定-CC26"
         Me.CheckBox26.UseVisualStyleBackColor = True
         'Label9
         '
         Me.Label9.AutoSize = True
-        Me.Label9.Location = New System.Drawing.Point(2, 119)
+        Me.Label9.Location = New System.Drawing.Point(2, 88)
         Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(104, 16)
+        Me.Label9.Size = New System.Drawing.Size(103, 16)
         Me.Label9.TabIndex = 284
         Me.Label9.Text = "系統通用權限設定"
         '
         Me.CheckBox25.Location = New System.Drawing.Point(459, 315)
         Me.CheckBox25.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox25.Name = "CheckBox25"
-        Me.CheckBox25.Size = New System.Drawing.Size(161, 20)
+        Me.CheckBox25.Size = New System.Drawing.Size(160, 20)
         Me.CheckBox25.TabIndex = 283
         Me.CheckBox25.Text = "PY執行錯誤LOG檔-CC25" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
         Me.CheckBox25.UseVisualStyleBackColor = True
         Me.CheckBox24.Location = New System.Drawing.Point(459, 201)
         Me.CheckBox24.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox24.Name = "CheckBox24"
-        Me.CheckBox24.Size = New System.Drawing.Size(134, 20)
+        Me.CheckBox24.Size = New System.Drawing.Size(133, 20)
         Me.CheckBox24.TabIndex = 282
         Me.CheckBox24.Text = "資料備份轉移-CC24" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
         Me.CheckBox24.UseVisualStyleBackColor = True
         Me.CheckBox23.Location = New System.Drawing.Point(459, 173)
         Me.CheckBox23.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox23.Name = "CheckBox23"
-        Me.CheckBox23.Size = New System.Drawing.Size(136, 20)
+        Me.CheckBox23.Size = New System.Drawing.Size(135, 20)
         Me.CheckBox23.TabIndex = 281
         Me.CheckBox23.Text = "USB KEY 指定-CC23" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
         Me.CheckBox23.UseVisualStyleBackColor = True
         Me.CheckBox22.Location = New System.Drawing.Point(220, 146)
         Me.CheckBox22.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox22.Name = "CheckBox22"
-        Me.CheckBox22.Size = New System.Drawing.Size(158, 20)
+        Me.CheckBox22.Size = New System.Drawing.Size(157, 20)
         Me.CheckBox22.TabIndex = 280
         Me.CheckBox22.Text = "電板歷史資料查詢-CC22"
         Me.CheckBox22.UseVisualStyleBackColor = True
         Me.CheckBox21.Location = New System.Drawing.Point(220, 61)
         Me.CheckBox21.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox21.Name = "CheckBox21"
-        Me.CheckBox21.Size = New System.Drawing.Size(170, 20)
+        Me.CheckBox21.Size = New System.Drawing.Size(169, 20)
         Me.CheckBox21.TabIndex = 279
         Me.CheckBox21.Text = "電板帳務明細查詢表-CC21"
         Me.CheckBox21.UseVisualStyleBackColor = True
         'CheckBox20
         '
         Me.CheckBox20.AutoSize = True
-        Me.CheckBox20.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox20.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.CheckBox20.Location = New System.Drawing.Point(483, 115)
         Me.CheckBox20.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox20.Name = "CheckBox20"
-        Me.CheckBox20.Size = New System.Drawing.Size(110, 20)
+        Me.CheckBox20.Size = New System.Drawing.Size(118, 20)
         Me.CheckBox20.TabIndex = 278
-        Me.CheckBox20.Text = "測試帳號-CC20"
+        Me.CheckBox20.Text = "無KEY版本-CC20"
         Me.CheckBox20.UseVisualStyleBackColor = True
         '
         'CheckBox19
         '
         Me.CheckBox19.AutoSize = True
         Me.CheckBox19.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox19.Location = New System.Drawing.Point(25, 174)
+        Me.CheckBox19.Location = New System.Drawing.Point(25, 143)
         Me.CheckBox19.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox19.Name = "CheckBox19"
-        Me.CheckBox19.Size = New System.Drawing.Size(158, 20)
+        Me.CheckBox19.Size = New System.Drawing.Size(157, 20)
         Me.CheckBox19.TabIndex = 277
         Me.CheckBox19.Text = "帳務報表進階控制-CC19"
         Me.CheckBox19.UseVisualStyleBackColor = True
         Me.CheckBox18.Location = New System.Drawing.Point(220, 33)
         Me.CheckBox18.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox18.Name = "CheckBox18"
-        Me.CheckBox18.Size = New System.Drawing.Size(170, 20)
+        Me.CheckBox18.Size = New System.Drawing.Size(169, 20)
         Me.CheckBox18.TabIndex = 276
         Me.CheckBox18.Text = "電板帳務彙總計算表-CC18"
         Me.CheckBox18.UseVisualStyleBackColor = True
         Me.CheckBox17.Location = New System.Drawing.Point(200, 5)
         Me.CheckBox17.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox17.Name = "CheckBox17"
-        Me.CheckBox17.Size = New System.Drawing.Size(158, 20)
+        Me.CheckBox17.Size = New System.Drawing.Size(157, 20)
         Me.CheckBox17.TabIndex = 275
         Me.CheckBox17.Text = "電板報表系統管理-CC17"
         Me.CheckBox17.UseVisualStyleBackColor = True
         '
         Me.CheckBox16.AutoSize = True
         Me.CheckBox16.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox16.Location = New System.Drawing.Point(25, 146)
+        Me.CheckBox16.Location = New System.Drawing.Point(25, 115)
         Me.CheckBox16.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox16.Name = "CheckBox16"
-        Me.CheckBox16.Size = New System.Drawing.Size(158, 20)
+        Me.CheckBox16.Size = New System.Drawing.Size(157, 20)
         Me.CheckBox16.TabIndex = 274
         Me.CheckBox16.Text = "基本資料進階控制-CC16"
         Me.CheckBox16.UseVisualStyleBackColor = True
         Me.CheckBox15.Location = New System.Drawing.Point(25, 33)
         Me.CheckBox15.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox15.Name = "CheckBox15"
-        Me.CheckBox15.Size = New System.Drawing.Size(134, 20)
+        Me.CheckBox15.Size = New System.Drawing.Size(133, 20)
         Me.CheckBox15.TabIndex = 273
         Me.CheckBox15.Text = "電板基本資料-CC15"
         Me.CheckBox15.UseVisualStyleBackColor = True
         Me.CheckBox14.Location = New System.Drawing.Point(5, 5)
         Me.CheckBox14.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox14.Name = "CheckBox14"
-        Me.CheckBox14.Size = New System.Drawing.Size(134, 20)
+        Me.CheckBox14.Size = New System.Drawing.Size(133, 20)
         Me.CheckBox14.TabIndex = 272
         Me.CheckBox14.Text = "基本資料管理-CC14"
         Me.CheckBox14.UseVisualStyleBackColor = True
         '
         Me.CheckBox13.AutoSize = True
         Me.CheckBox13.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox13.Location = New System.Drawing.Point(25, 486)
+        Me.CheckBox13.Location = New System.Drawing.Point(25, 483)
         Me.CheckBox13.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox13.Name = "CheckBox13"
-        Me.CheckBox13.Size = New System.Drawing.Size(134, 20)
+        Me.CheckBox13.Size = New System.Drawing.Size(133, 20)
         Me.CheckBox13.TabIndex = 271
         Me.CheckBox13.Text = "商客資料導入-CC13"
         Me.CheckBox13.UseVisualStyleBackColor = True
         '
         Me.CheckBox12.AutoSize = True
         Me.CheckBox12.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox12.Location = New System.Drawing.Point(25, 458)
+        Me.CheckBox12.Location = New System.Drawing.Point(25, 455)
         Me.CheckBox12.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox12.Name = "CheckBox12"
-        Me.CheckBox12.Size = New System.Drawing.Size(146, 20)
+        Me.CheckBox12.Size = New System.Drawing.Size(145, 20)
         Me.CheckBox12.TabIndex = 270
         Me.CheckBox12.Text = "流水帳手動輸入-CC12"
         Me.CheckBox12.UseVisualStyleBackColor = True
         '
         Me.CheckBox11.AutoSize = True
         Me.CheckBox11.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox11.Location = New System.Drawing.Point(25, 429)
+        Me.CheckBox11.Location = New System.Drawing.Point(25, 426)
         Me.CheckBox11.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox11.Name = "CheckBox11"
-        Me.CheckBox11.Size = New System.Drawing.Size(146, 20)
+        Me.CheckBox11.Size = New System.Drawing.Size(145, 20)
         Me.CheckBox11.TabIndex = 269
         Me.CheckBox11.Text = "流水帳自動導入-CC11"
         Me.CheckBox11.UseVisualStyleBackColor = True
         'CheckBox10
         '
         Me.CheckBox10.AutoSize = True
-        Me.CheckBox10.Location = New System.Drawing.Point(5, 401)
+        Me.CheckBox10.Location = New System.Drawing.Point(5, 398)
         Me.CheckBox10.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox10.Name = "CheckBox10"
-        Me.CheckBox10.Size = New System.Drawing.Size(134, 20)
+        Me.CheckBox10.Size = New System.Drawing.Size(133, 20)
         Me.CheckBox10.TabIndex = 268
         Me.CheckBox10.Text = "特殊操作功能-CC10"
         Me.CheckBox10.UseVisualStyleBackColor = True
         '
         Me.CheckBox9.AutoSize = True
         Me.CheckBox9.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox9.Location = New System.Drawing.Point(25, 204)
+        Me.CheckBox9.Location = New System.Drawing.Point(25, 173)
         Me.CheckBox9.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox9.Name = "CheckBox9"
-        Me.CheckBox9.Size = New System.Drawing.Size(170, 20)
+        Me.CheckBox9.Size = New System.Drawing.Size(169, 20)
         Me.CheckBox9.TabIndex = 267
         Me.CheckBox9.Text = "帳務查詢大於兩個月-CC09"
         Me.CheckBox9.UseVisualStyleBackColor = True
         '
         Me.CheckBox8.AutoSize = True
         Me.CheckBox8.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox8.Location = New System.Drawing.Point(25, 232)
+        Me.CheckBox8.Location = New System.Drawing.Point(25, 201)
         Me.CheckBox8.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox8.Name = "CheckBox8"
-        Me.CheckBox8.Size = New System.Drawing.Size(146, 20)
+        Me.CheckBox8.Size = New System.Drawing.Size(145, 20)
         Me.CheckBox8.TabIndex = 266
         Me.CheckBox8.Text = "流水帳刪除權限-CC08"
         Me.CheckBox8.UseVisualStyleBackColor = True
         'CheckBox7
         '
         Me.CheckBox7.AutoSize = True
-        Me.CheckBox7.ForeColor = System.Drawing.Color.Red
+        Me.CheckBox7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.CheckBox7.Location = New System.Drawing.Point(483, 87)
         Me.CheckBox7.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox7.Name = "CheckBox7"
-        Me.CheckBox7.Size = New System.Drawing.Size(110, 20)
+        Me.CheckBox7.Size = New System.Drawing.Size(109, 20)
         Me.CheckBox7.TabIndex = 265
         Me.CheckBox7.Text = "登入鎖定-CC07"
         Me.CheckBox7.UseVisualStyleBackColor = True
         Me.CheckBox6.Location = New System.Drawing.Point(459, 145)
         Me.CheckBox6.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.CheckBox6.Name = "CheckBox6"
-        Me.CheckBox6.Size = New System.Drawing.Size(182, 20)
+        Me.CheckBox6.Size = New System.Drawing.Size(181, 20)
         Me.CheckBox6.TabIndex = 264
         Me.CheckBox6.Text = "人員ID卡系統配置設定-CC06"
         Me.CheckBox6.UseVisualStyleBackColor = True
         Me.Label4.AutoSize = True
         Me.Label4.Location = New System.Drawing.Point(6, 19)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(44, 16)
+        Me.Label4.Size = New System.Drawing.Size(43, 16)
         Me.Label4.TabIndex = 1517
         Me.Label4.Text = "主客戶"
         '
         Me.Label6.AutoSize = True
         Me.Label6.Location = New System.Drawing.Point(173, 19)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(44, 16)
+        Me.Label6.Size = New System.Drawing.Size(43, 16)
         Me.Label6.TabIndex = 1519
         Me.Label6.Text = "資料庫"
         '
         Me.Label5.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.Label5.Location = New System.Drawing.Point(690, 4)
         Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(570, 16)
+        Me.Label5.Size = New System.Drawing.Size(569, 16)
         Me.Label5.TabIndex = 1523
         Me.Label5.Text = "新增客戶與子SQL後需要料庫複製之資料表，並將長短版資料、表頭與基數資料表資料複製到對應SQL中。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
         '
         Me.登入_tb.Size = New System.Drawing.Size(129, 23)
         Me.登入_tb.TabIndex = 1530
         '
-        'CheckBox43
-        '
-        Me.CheckBox43.AutoSize = True
-        Me.CheckBox43.ForeColor = System.Drawing.Color.Red
-        Me.CheckBox43.Location = New System.Drawing.Point(25, 315)
-        Me.CheckBox43.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.CheckBox43.Name = "CheckBox43"
-        Me.CheckBox43.Size = New System.Drawing.Size(158, 20)
-        Me.CheckBox43.TabIndex = 1516
-        Me.CheckBox43.Text = "後桶計算功能開啟-CC43"
-        Me.CheckBox43.UseVisualStyleBackColor = True
-        '
         '系統使用者管理
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)