20231028備份

Calculator-SYS/0、MyModule/模組/全域變數.vb

     '------LINE變數-------
     Public 發送對象, LINE_權限代號, PA201, PA202, PA203, PA204, PA205, 通知變數X, 通知變數Y, Line通訊IP, Line伺服器名稱 As String
     '----系統版本----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2023100701" : Public 資料庫版本 As String
+    Public 版本 As String = "2023101401" : Public 資料庫版本 As String
     '----系統閒置----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 判斷重登, 重登確認, 主頁開啟, 首次開啟, 物料查詢, 深色風格, 不刪除檔案, 跨部門開啟 As Boolean
     Public timeExit, timeExit2, timeNow, timeNow2 As Integer

Calculator-SYS/LoginForm1.vb

         '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
         If 伺服器區域_cb.Text = "公司內網" Then
             IP公 = True
-            If IP公 = True Then : 登入人IP = "192.168.1.6,2433" : 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
+            If IP公 = True Then : 登入人IP = "192.168.1.63,2433" : 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
         ElseIf 伺服器區域_cb.Text = "公司雲端" Then
             IP公 = True
             If IP公 = True Then : 登入人IP = PA49 : 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
             IP測1 = True
             If IP測1 = True Then : 登入人IP = "106.1.48.106,4567" : 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
         ElseIf 伺服器區域_cb.Text = "印尼測試" Then
-            If IP測2 = True Then : 登入人IP = "192.168.1.6,2433"
-                If SQL_連線狀態模組2.ConnectTest2("192.168.1.6,2433") = True Then : 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
+            If IP測2 = True Then : 登入人IP = "192.168.1.63,2433"
+                If SQL_連線狀態模組2.ConnectTest2("192.168.1.63,2433") = True Then : 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
             Else : MGB(對話框(11), 1) : Me.Close() : End If
         End If
     End Sub

Calculator-SYS/計算機.vb

     Private Sub 語言轉換讀取()
     End Sub
     Private Sub IP比對()
-        If SQL_連線狀態模組3.ConnectTest3("192.168.1.6,2433") = True Then
+        If SQL_連線狀態模組3.ConnectTest3("192.168.1.63,2433") = True Then
             '---主伺服器導通-------------------------------------------
             IP公 = True : IP測1 = True : IP測2 = True : 伺服器區域_cb.Text = "公司內網" : 公司線路_rb.Checked = True : 測試線路_rb.Checked = False : 內網線路 = True
             刷卡登入_ch.Checked = True
     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 伺服器區域_cb.SelectedIndexChanged
         '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
         If 伺服器區域_cb.Text = "公司內網" Then
-            If IP公 = True Then : 登入人IP = "192.168.1.6,2433" : Line通訊IP = "192.168.1.6,2433" : Line伺服器名稱 = "HX-LINE-AUTO"
+            If IP公 = True Then : 登入人IP = "192.168.1.63,2433" : Line通訊IP = "192.168.1.63,2433" : Line伺服器名稱 = "HX-LINE-AUTO"
                 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
         ElseIf 伺服器區域_cb.Text = "公司雲端" Then
             If IP公 = True Then : 登入人IP = PA49 : Line通訊IP = PA49 : Line伺服器名稱 = "HX-LINE-AUTO"
             If IP測1 = True Then : 登入人IP = "106.1.48.106,4567" : Line通訊IP = "36.64.59.26,2433" : Line伺服器名稱 = "HX-LINE-AUTO"
                 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
         ElseIf 伺服器區域_cb.Text = "印尼測試" Then
-            If IP測2 = True Then : 登入人IP = "172.1.1.189,2433" : Line通訊IP = "192.168.1.6,2433" : Line伺服器名稱 = "HX-LINE-AUTO"
+            If IP測2 = True Then : 登入人IP = "172.1.1.189,2433" : Line通訊IP = "192.168.1.63,2433" : Line伺服器名稱 = "HX-LINE-AUTO"
                 If SQL_連線狀態模組2.ConnectTest2("172.1.1.189,2433") = True Then : 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
             Else : MGB(對話框(11), 1) : Me.Close() : End If
         End If