20231014備份

Calculator-Backend-SYS/Calculator-Backend-SYS.vb

         End If
     End Sub
     Private Sub Calculator_Backend_SYS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        初始化系統語言()
-        If SQL_連線狀態模組3.ConnectTest3("192.168.0.201,2433") = True Then
-            登入人IP1 = "192.168.0.201,2433" : Line通訊IP = "192.168.0.201,2433" : Line伺服器名稱 = "HX-LINE-AUTO"
+        初始化系統語言() : 執行次數_tb.Text = "0"
+        If SQL_連線狀態模組3.ConnectTest3("127.0.0.1,2433") = True Then
+            登入人IP1 = "127.0.0.1,2433" : Line通訊IP = "127.0.0.1,2433" : Line伺服器名稱 = "HX-LINE-AUTO"
         Else
-            登入人IP1 = "103.144.143.182,2433" : Line通訊IP = "103.144.143.182,2433" : Line伺服器名稱 = "HX-LINE-AUTO"
+            登入人IP1 = "36.64.59.26,2433" : Line通訊IP = "36.64.59.26,2433" : Line伺服器名稱 = "HX-LINE-AUTO"
         End If
         SQL_連線字串_正式() : SQL_連線字串_正式_工程SQL() : SQL_連線字串_正式_管理SQL()
         SQL_連線字串_測試() : SQL_連線字串_測試_工程SQL() : SQL_連線字串_測試_管理SQL()
         狀態1_ch.Text = "A組工人薪資表會總自動計算-週期 : 每日 - 狀態 : 未完成" : 狀態1_ch.ForeColor = Color.Red : 狀態1_ch.Checked = False
         狀態2_ch.Text = "B組工人薪資表會總自動計算-週期 : 每日 - 狀態 : 未完成" : 狀態2_ch.ForeColor = Color.Red : 狀態2_ch.Checked = False
         狀態3_ch.Text = "系統工作狀態會總自動計算-週期 : 每小時 - 狀態 : 未完成" : 狀態3_ch.ForeColor = Color.Red : 狀態3_ch.Checked = False
+
+        執行_bt.PerformClick()
     End Sub
     Private Sub DA1_bt_Click(sender As Object, e As EventArgs) Handles DA1_bt.Click
         If 天_ch.Checked = True And 周_ch.Checked = False And 月_ch.Checked = False Then
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
         If 實際工資計算完成 = False Then
             狀態1_ch.Text = "A組工人薪資表會總自動計算-週期 : 每日 - 狀態 : 未完成" : 狀態1_ch.ForeColor = Color.Red : 狀態1_ch.Checked = False
-            首次開啟 = True : 人員薪資_實際.Show()
+            首次開啟 = True : 人員薪資_實際.Show() : 執行次數_tb.Text = Strings.Format(CInt(執行次數_tb.Text) + 1, "#,##0")
         ElseIf 實際工資計算完成 = True Then
             狀態1_ch.Text = "A組工人薪資表會總自動計算-週期 : 每日 - 狀態 : 已完成" : 狀態1_ch.ForeColor = Color.Green : 狀態1_ch.Checked = True
         End If
         If 人員薪資_實際.Visible = True Then : Else
             If 沖帳工資計算完成 = False Then
                 狀態2_ch.Text = "B組工人薪資表會總自動計算-週期 : 每日 - 狀態 : 未完成" : 狀態2_ch.ForeColor = Color.Red : 狀態2_ch.Checked = False
-                首次開啟 = True : BL = False : 人員薪資_沖帳.Show() : BL = True
+                首次開啟 = True : BL = False : 人員薪資_沖帳.Show() : BL = True : 執行次數_tb.Text = Strings.Format(CInt(執行次數_tb.Text) + 1, "#,##0")
             ElseIf 沖帳工資計算完成 = True Then
                 狀態2_ch.Text = "B組工人薪資表會總自動計算-週期 : 每日 - 狀態 : 已完成" : 狀態2_ch.ForeColor = Color.Green : 狀態2_ch.Checked = True
             End If
                     (N'詢價單', N'" & 詢價單_dgv.Rows.Count & "'), (N'採購核准11', N'" & 採購核准11_dgv.Rows.Count & "'), 
                     (N'採購核准12', N'" & 採購核准12_dgv.Rows.Count & "')"
             SQL_工作狀態匯總表_寫入() : 時機_tb.Text = 系統時間_tb.Text : 工作狀態計算完成 = True
+            執行次數_tb.Text = Strings.Format(CInt(執行次數_tb.Text) + 1, "#,##0")
         ElseIf 工作狀態計算完成 = True Then
             狀態3_ch.Text = "系統工作狀態-匯總自動計算-週期 : 每小時 - 狀態 : 已完成" : 狀態3_ch.ForeColor = Color.Green : 狀態3_ch.Checked = True
         End If