B70340 1 рік тому
джерело
коміт
87e0074bae

BIN
.vs/Calculator-SYS/FileContentIndex/1a7cd5ec-33a8-4132-b138-2cbbc61f0725.vsidx Переглянути файл


BIN
.vs/Calculator-SYS/FileContentIndex/4af42555-c94d-45bb-8f32-a652ca16e702.vsidx → .vs/Calculator-SYS/FileContentIndex/43ac6e0d-fba8-4cb0-9024-2655ddf257af.vsidx Переглянути файл


BIN
.vs/Calculator-SYS/FileContentIndex/5527a13a-dedb-4c6a-8bbf-c6756c1f67f6.vsidx Переглянути файл


BIN
.vs/Calculator-SYS/FileContentIndex/13b8f7ee-d98c-4ede-9cc7-5e4747538a36.vsidx → .vs/Calculator-SYS/FileContentIndex/59d1be7d-9ea2-4972-9f7d-77b5b1ca9379.vsidx Переглянути файл


BIN
.vs/Calculator-SYS/FileContentIndex/107a53e9-c6b8-4ab9-8b55-1e20e2a09c3b.vsidx → .vs/Calculator-SYS/FileContentIndex/8721945b-87dc-4d65-8071-b396c5f8f50d.vsidx Переглянути файл


BIN
.vs/Calculator-SYS/v17/.suo Переглянути файл


+ 1
- 1
Calculator-SYS/0、MyModule/模組/全域變數.vb Переглянути файл

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

+ 3
- 3
Calculator-SYS/10、背景程式與對話視窗/線路選擇.vb Переглянути файл

2
 Imports System.Text
2
 Imports System.Text
3
 Public Class 線路選擇
3
 Public Class 線路選擇
4
     Private Sub 線路選擇_Load(sender As Object, e As EventArgs) Handles MyBase.Load
4
     Private Sub 線路選擇_Load(sender As Object, e As EventArgs) Handles MyBase.Load
5
-        If PA49 = "103.231.201.230,2433" Then : Me.ActiveControl = 總部_rbt : Else : Me.ActiveControl = 工地_rbt : End If
5
+        If PA49 = "36.64.59.26,2433" Then : Me.ActiveControl = 總部_rbt : Else : Me.ActiveControl = 工地_rbt : End If
6
     End Sub
6
     End Sub
7
     Private Sub 線路選擇_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
7
     Private Sub 線路選擇_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
8
         If 系統語言 = "繁體中文" Then : Me.Text = "線路選擇"
8
         If 系統語言 = "繁體中文" Then : Me.Text = "線路選擇"
10
         ElseIf 系統語言 = "Indonesian" Then : Me.Text = "Pemilihan Jalur" : End If
10
         ElseIf 系統語言 = "Indonesian" Then : Me.Text = "Pemilihan Jalur" : End If
11
     End Sub
11
     End Sub
12
     Private Sub 總部_rbt_Click(sender As Object, e As EventArgs) Handles 總部_rbt.Click
12
     Private Sub 總部_rbt_Click(sender As Object, e As EventArgs) Handles 總部_rbt.Click
13
-        PA49 = "103.231.201.230,2433"
13
+        PA49 = "36.64.59.26,2433"
14
         Dim strDirName As String : Dim Strs As String = Application.StartupPath
14
         Dim strDirName As String : Dim Strs As String = Application.StartupPath
15
         If File.Exists(Strs & "\HXLINE.txt") Then : File.Delete(Strs & "\HXLINE.txt") : End If
15
         If File.Exists(Strs & "\HXLINE.txt") Then : File.Delete(Strs & "\HXLINE.txt") : End If
16
         strDirName = Strs & "\HXLINE.txt"
16
         strDirName = Strs & "\HXLINE.txt"
27
         Me.Close()
27
         Me.Close()
28
     End Sub
28
     End Sub
29
     Private Sub 工地_rbt_Click(sender As Object, e As EventArgs) Handles 工地_rbt.Click
29
     Private Sub 工地_rbt_Click(sender As Object, e As EventArgs) Handles 工地_rbt.Click
30
-        PA49 = "103.144.143.182,2433"
30
+        PA49 = "36.64.59.26,2433"
31
         Dim strDirName As String : Dim Strs As String = Application.StartupPath
31
         Dim strDirName As String : Dim Strs As String = Application.StartupPath
32
         If File.Exists(Strs & "\HXLINE.txt") Then : File.Delete(Strs & "\HXLINE.txt") : End If
32
         If File.Exists(Strs & "\HXLINE.txt") Then : File.Delete(Strs & "\HXLINE.txt") : End If
33
         strDirName = Strs & "\HXLINE.txt"
33
         strDirName = Strs & "\HXLINE.txt"

+ 1
- 1
Calculator-SYS/HX_PGS_ERP_SYS.vb Переглянути файл

130
                 If 訊息回應 = "YES" Then : 桌面捷徑設定.ShowDialog() : HXGPSERPSYS_Siz() : End If : End If
130
                 If 訊息回應 = "YES" Then : 桌面捷徑設定.ShowDialog() : HXGPSERPSYS_Siz() : End If : End If
131
         End If
131
         End If
132
         '-----------------------測試伺服器登入通知------------------------------------------------------------------------------------------------------------
132
         '-----------------------測試伺服器登入通知------------------------------------------------------------------------------------------------------------
133
-        If 登入人IP = "106.1.48.106,4567" Or 登入人IP = "111.95.41.244,2433" Or 登入人IP = "192.168.0.112,2433" Then
133
+        If 登入人IP = "106.1.48.106,4567" Then
134
             MGB(對話框(25), 1)
134
             MGB(對話框(25), 1)
135
         End If
135
         End If
136
     End Sub
136
     End Sub

+ 3
- 3
Calculator-SYS/LoginForm1.vb Переглянути файл

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

BIN
Calculator-SYS/bin/Debug/Calculator-SYS.exe Переглянути файл


BIN
Calculator-SYS/bin/Debug/Calculator-SYS.pdb Переглянути файл


BIN
Calculator-SYS/obj/Debug/Calculator-SYS.exe Переглянути файл


BIN
Calculator-SYS/obj/Debug/Calculator-SYS.pdb Переглянути файл


BIN
Calculator-SYS/obj/Debug/Calculator-SYS.vbproj.GenerateResource.cache Переглянути файл


+ 6
- 6
Calculator-SYS/計算機.vb Переглянути файл

32
     Private Sub 語言轉換讀取()
32
     Private Sub 語言轉換讀取()
33
     End Sub
33
     End Sub
34
     Private Sub IP比對()
34
     Private Sub IP比對()
35
-        If SQL_連線狀態模組3.ConnectTest3("192.168.0.201,2433") = True Then
35
+        If SQL_連線狀態模組3.ConnectTest3("192.168.1.6,2433") = True Then
36
             '---主伺服器導通-------------------------------------------
36
             '---主伺服器導通-------------------------------------------
37
             IP公 = True : IP測1 = True : IP測2 = True : 伺服器區域_cb.Text = "公司內網" : 公司線路_rb.Checked = True : 測試線路_rb.Checked = False : 內網線路 = True
37
             IP公 = True : IP測1 = True : IP測2 = True : 伺服器區域_cb.Text = "公司內網" : 公司線路_rb.Checked = True : 測試線路_rb.Checked = False : 內網線路 = True
38
             刷卡登入_ch.Checked = True
38
             刷卡登入_ch.Checked = True
42
                 Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\HXLINE.txt", System.Text.Encoding.Default)
42
                 Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\HXLINE.txt", System.Text.Encoding.Default)
43
                 Dim Text As String = "" : Dim line As String = filereader.ReadLine()
43
                 Dim Text As String = "" : Dim line As String = filereader.ReadLine()
44
                 While Not (line Is Nothing) : Text = Text & line & vbCrLf : line = filereader.ReadLine() : End While : filereader.Close()
44
                 While Not (line Is Nothing) : Text = Text & line & vbCrLf : line = filereader.ReadLine() : End While : filereader.Close()
45
-                If Strings.Left(Text, 10) = "3MBPS-LINE" Then : PA49 = "103.231.201.230,2433"
46
-                ElseIf Strings.Left(Text, 11) = "20MBPS-LINE" Then : PA49 = "103.144.143.182,2433" : End If
45
+                If Strings.Left(Text, 10) = "3MBPS-LINE" Then : PA49 = "36.64.59.26,2433"
46
+                ElseIf Strings.Left(Text, 11) = "20MBPS-LINE" Then : PA49 = "36.64.59.26,2433" : End If
47
             Else : 線路選擇.ShowDialog() : End If
47
             Else : 線路選擇.ShowDialog() : End If
48
 
48
 
49
             If SQL_連線狀態模組1.ConnectTest1(PA49) = True Then
49
             If SQL_連線狀態模組1.ConnectTest1(PA49) = True Then
107
     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 伺服器區域_cb.SelectedIndexChanged
107
     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 伺服器區域_cb.SelectedIndexChanged
108
         '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
108
         '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
109
         If 伺服器區域_cb.Text = "公司內網" Then
109
         If 伺服器區域_cb.Text = "公司內網" Then
110
-            If IP公 = True Then : 登入人IP = "192.168.0.201,2433" : Line通訊IP = "192.168.0.201,2433" : Line伺服器名稱 = "HX-LINE-AUTO"
110
+            If IP公 = True Then : 登入人IP = "192.168.1.6,2433" : Line通訊IP = "192.168.1.6,2433" : Line伺服器名稱 = "HX-LINE-AUTO"
111
                 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
111
                 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
112
         ElseIf 伺服器區域_cb.Text = "公司雲端" Then
112
         ElseIf 伺服器區域_cb.Text = "公司雲端" Then
113
             If IP公 = True Then : 登入人IP = PA49 : Line通訊IP = PA49 : Line伺服器名稱 = "HX-LINE-AUTO"
113
             If IP公 = True Then : 登入人IP = PA49 : Line通訊IP = PA49 : Line伺服器名稱 = "HX-LINE-AUTO"
114
                 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
114
                 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
115
         ElseIf 伺服器區域_cb.Text = "測試雲端" Then
115
         ElseIf 伺服器區域_cb.Text = "測試雲端" Then
116
-            If IP測1 = True Then : 登入人IP = "106.1.48.106,4567" : Line通訊IP = "103.231.201.230,2433" : Line伺服器名稱 = "HX-LINE-AUTO"
116
+            If IP測1 = True Then : 登入人IP = "106.1.48.106,4567" : Line通訊IP = "36.64.59.26,2433" : Line伺服器名稱 = "HX-LINE-AUTO"
117
                 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
117
                 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
118
         ElseIf 伺服器區域_cb.Text = "印尼測試" Then
118
         ElseIf 伺服器區域_cb.Text = "印尼測試" Then
119
-            If IP測2 = True Then : 登入人IP = "172.1.1.189,2433" : Line通訊IP = "192.168.0.201,2433" : Line伺服器名稱 = "HX-LINE-AUTO"
119
+            If IP測2 = True Then : 登入人IP = "172.1.1.189,2433" : Line通訊IP = "192.168.1.6,2433" : Line伺服器名稱 = "HX-LINE-AUTO"
120
                 If SQL_連線狀態模組2.ConnectTest2("172.1.1.189,2433") = True Then : 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
120
                 If SQL_連線狀態模組2.ConnectTest2("172.1.1.189,2433") = True Then : 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If
121
             Else : MGB(對話框(11), 1) : Me.Close() : End If
121
             Else : MGB(對話框(11), 1) : Me.Close() : End If
122
         End If
122
         End If

Завантаження…
Відмінити
Зберегти