20230331備份

GA-ERP-SYS/LoginForm1.vb

         Me.ActiveControl = 使用者帳號_cb
     End Sub
     Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 使用者帳號_cb.TextChanged
-        If 使用者帳號_cb.Text = "b70340" Or 使用者帳號_cb.Text = "6666" Or 使用者帳號_cb.Text = "7777" Or 使用者帳號_cb.Text = "0013975151" Or 使用者帳號_cb.Text = "0003065795" Then
+        If 使用者帳號_cb.Text = "b70340" Or 使用者帳號_cb.Text = "6666" Or 使用者帳號_cb.Text = "7777" Or 使用者帳號_cb.Text = "0003065795" Or 使用者帳號_cb.Text = "0003065795" Then
             內網區域 = True
         End If
         帳號_tb.Text = 使用者帳號_cb.Text
     End Sub
     Private Sub 簡易_lb_Click(sender As Object, e As EventArgs) Handles 簡易_lb.Click
         輸入密碼.ShowDialog()
-        If PA = "0013975151" Then
+        If PA = "0003065795" Then
             簡易登入_dgv.Visible = True : 解鎖_bt.Visible = True : UPDATE_bt.Visible = True : 更新下載_ch.Checked = True : Set_使用者清單() : 內網區域 = True
         Else
             簡易登入_dgv.Visible = False : 解鎖_bt.Visible = False : UPDATE_bt.Visible = False : 更新下載_ch.Checked = False : Set_使用者清單()

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 = "2023031701"
+    Public 版本 As String = "2023031702"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 判斷重登, 內外網, 重登確認, 主頁開啟, 無KEY登入, 內網區域, 關閉系統, 內網確認 As Boolean

GA-ERP-SYS/報表系統管理/前台/電板帳務明細查詢表.Designer.vb

         Me.天天樂_ch = New System.Windows.Forms.CheckBox()
         Me.Label21 = New System.Windows.Forms.Label()
         Me.迦納彩_ch = New System.Windows.Forms.CheckBox()
+        Me.Label22 = New System.Windows.Forms.Label()
+        Me.Label23 = New System.Windows.Forms.Label()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
         CType(Me.流水帳_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.客戶下_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.日期_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.迦納彩_ch.Text = "迦納彩"
         Me.迦納彩_ch.UseVisualStyleBackColor = True
         '
+        'Label22
+        '
+        Me.Label22.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label22.AutoSize = True
+        Me.Label22.Location = New System.Drawing.Point(1221, 65)
+        Me.Label22.Name = "Label22"
+        Me.Label22.Size = New System.Drawing.Size(19, 16)
+        Me.Label22.TabIndex = 1714
+        Me.Label22.Text = "共"
+        '
+        'Label23
+        '
+        Me.Label23.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label23.AutoSize = True
+        Me.Label23.Location = New System.Drawing.Point(1301, 65)
+        Me.Label23.Name = "Label23"
+        Me.Label23.Size = New System.Drawing.Size(43, 16)
+        Me.Label23.TabIndex = 1716
+        Me.Label23.Text = "筆資料"
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBox1.ForeColor = System.Drawing.Color.Red
+        Me.TextBox1.Location = New System.Drawing.Point(1240, 62)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(61, 23)
+        Me.TextBox1.TabIndex = 1717
+        Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
         '電板帳務明細查詢表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1350, 701)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.Label23)
+        Me.Controls.Add(Me.Label22)
         Me.Controls.Add(Me.迦納彩_ch)
         Me.Controls.Add(Me.Label21)
         Me.Controls.Add(Me.天天樂_ch)
     Friend WithEvents 天天樂_ch As CheckBox
     Friend WithEvents Label21 As Label
     Friend WithEvents 迦納彩_ch As CheckBox
+    Friend WithEvents Label22 As Label
+    Friend WithEvents Label23 As Label
+    Friend WithEvents TextBox1 As TextBox
 End Class

GA-ERP-SYS/報表系統管理/前台/電板帳務明細查詢表.vb

             If 流水帳_dgv.Rows(i).Cells("下客流水").Value.ToString = "" Then : 再讀一次1 = True : Exit For : End If
         Next
         If 再讀一次1 = True Then : 存檔() : 再讀一次1 = False : End If
+        TextBox1.Text = Strings.Format(流水帳_dgv.Rows.Count, "#,##0")
     End Sub
     Private Sub 流水帳_dgv上層算出()
         For i As Integer = 0 To 流水帳_dgv.Rows.Count - 1

GA-ERP-SYS/資料庫系統管理/資料備份轉移.vb

         Dim aa As MsgBoxResult = MsgBox("確定要刪除該資覅庫內的客戶資料?", MsgBoxStyle.OkCancel)
         If aa = MsgBoxResult.Ok Then
             PA = InputBox("請輸入管理密碼來執行客戶資料刪除!!")
-            If PA = "0013975151" Then
+            If PA = "0003065795" Then
                 SQL_客戶資料刪除() : MsgBox("刪除完成!!!")
                 Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() : Set_清單8() : Set_清單9() : Set_清單10()
                 Set_清單11() : Set_清單12() : Set_清單13() : Set_清單14() : Set_清單15() : Set_清單16() : Set_清單17() : Set_清單18() : Set_清單19() : Set_清單20()