LEEHSIEHJUI hace 11 meses
padre
commit
ca03aca17a

BIN
.vs/Calculator-SYS-UPDATE/FileContentIndex/0665411e-976d-4e30-8036-8d32969d7e88.vsidx Ver fichero


BIN
.vs/Calculator-SYS-UPDATE/FileContentIndex/f29cc42f-55ac-4305-9c57-f29c4e358358.vsidx Ver fichero


BIN
.vs/Calculator-SYS-UPDATE/v17/.suo Ver fichero


+ 2
- 3
.vs/Calculator-SYS-UPDATE/v17/DocumentLayout.json Ver fichero

@@ -86,8 +86,7 @@
86 86
               "RelativeToolTip": "Calculator-SYS-UPDATE\\\u5168\u57DF\u8B8A\u6578.vb",
87 87
               "ViewState": "AQIAAAAAAAAAAAAAAAAwwBAAAAAIAAAA",
88 88
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
89
-              "WhenOpened": "2023-08-10T04:53:43.754Z",
90
-              "EditorCaption": ""
89
+              "WhenOpened": "2023-08-10T04:53:43.754Z"
91 90
             },
92 91
             {
93 92
               "$type": "Document",
@@ -97,7 +96,7 @@
97 96
               "RelativeDocumentMoniker": "Calculator-SYS-UPDATE\\Calculator-SYS-UPDATE.vb",
98 97
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HX-PGS\\Calculator-SYS-UPDATE\\Calculator-SYS-UPDATE\\Calculator-SYS-UPDATE.vb",
99 98
               "RelativeToolTip": "Calculator-SYS-UPDATE\\Calculator-SYS-UPDATE.vb",
100
-              "ViewState": "AQIAAAAAAAAAAAAAAAAAACEAAAAEAAAA",
99
+              "ViewState": "AQIAAAsAAAAAAAAAAADwvw0AAAAEAAAA",
101 100
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
102 101
               "WhenOpened": "2023-08-10T04:48:17.483Z",
103 102
               "EditorCaption": ""

+ 5
- 37
Calculator-SYS-UPDATE/Calculator-SYS-UPDATE.vb Ver fichero

@@ -9,42 +9,10 @@ Public Class C_SYS_UPDATE
9 9
     Dim 內網線路, 開發線路, 刪除完成, OK1, OK2, OK3, OK4, OK5, OK6, OK7, OK8, OK9, OK10 As Boolean
10 10
     Dim Str As String = Application.StartupPath
11 11
     Dim TF As String
12
-    Private Sub Set_清單1()
13
-        ftp清單_dgv.DataSource = Nothing : ds2.Clear()
14
-        ftp清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
15
-        ftp清單_dgv.ColumnHeadersHeight = 25
16
-        ftp清單_dgv.AllowUserToAddRows = False
17
-        SQL_FTP資料夾路徑分配()
18
-        da.Fill(ds2) : ftp清單_dgv.DataSource = ds2.Tables(0) : conn.Close()
19
-    End Sub
20
-    Private Sub IP比對()
21
-        '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
22
-        If SQL_連線狀態模組2.ConnectTest2("192.168.1.63,2433") = True Then
23
-            登入人IP = "192.168.1.63,2433"
24
-        Else
25
-            If SQL_連線狀態模組1.ConnectTest1("106.1.48.106,4567") = True Then
26
-                登入人IP = "106.1.48.106,4567"
27
-            Else
28
-                MsgBox("System error please contact the job administrator!!")
29
-            End If
30
-        End If
31
-    End Sub
32 12
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
33 13
     End Sub
34 14
     Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
35
-        IP比對()
36
-        If 登入人IP = "192.168.1.63,2433" Then : Target = "ftp://192.168.1.63:2121/" : FTP物理位置 = "C:\FTP\HXPGS\" : TF = "192-SQL"
37
-        ElseIf 登入人IP = "36.64.59.26,2433" Then : Target = "ftp://36.64.59.26:2121/" : FTP物理位置 = "C:\FTP\HXPGS\" : TF = "36-SQL"
38
-        ElseIf 登入人IP = "106.1.48.106,4567" Then : Target = "ftp://106.1.48.106:2121/HXPGS/" : FTP物理位置 = "D:\FTP\HXPGS\" : TF = "106-SQL"
39
-        End If : FTP帳號 = "" : FTP密碼 = "" : SQL_連線字串_正式()
40
-
41
-        Set_清單1()
42
-        Dim HH As String = ""
43
-        For i As Integer = 0 To ftp清單_dgv.Rows.Count - 1
44
-            If i < 10 Then : HH = "0" & i : ElseIf i >= 10 Then : HH = i : End If
45
-            If ftp清單_dgv("指定", i).Value.ToString = "AA" & HH Then : AA(i) = ftp清單_dgv("資料夾名稱", i).Value.ToString : End If
46
-        Next
47
-        Target1 = Target & AA(0) & "/"
15
+        Target = "https://gcm-smart.com/ERP/HX-PGS/"
48 16
         Me.Text = "SYS-UPDATE..- " & TF
49 17
     End Sub
50 18
     Private Sub SYS_UPDATE_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
@@ -67,9 +35,9 @@ Public Class C_SYS_UPDATE
67 35
             If 已開啟 = False Then
68 36
                 Timer1.Enabled = False
69 37
                 MyModule1.進度條() : If File.Exists(Str + "\LANGUAGE_FILE.csv") Then : File.Delete(Str + "\LANGUAGE_FILE.csv") : End If
70
-                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "LANGUAGE_FILE.csv", Str + "\LANGUAGE_FILE.csv")
38
+                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "LANGUAGE_FILE.csv", Str + "\LANGUAGE_FILE.csv")
71 39
                 MyModule1.進度條() : If File.Exists(Str + "\Calculator-SYS.exe") Then : File.Delete(Str + "\Calculator-SYS.exe") : End If
72
-                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Calculator-SYS.exe", Str + "\Calculator-SYS.exe")
40
+                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "Calculator-SYS.exe", Str + "\Calculator-SYS.exe")
73 41
                 MyModule1.進度條() : Shell(Str + "\Calculator-SYS.exe", vbNormalFocus)
74 42
                 Me.Close()
75 43
             End If
@@ -84,9 +52,9 @@ Public Class C_SYS_UPDATE
84 52
             If 已開啟 = False Then
85 53
                 Timer1.Enabled = False
86 54
                 MyModule1.進度條() : If File.Exists(Str + "\LANGUAGE_FILE.csv") Then : File.Delete(Str + "\LANGUAGE_FILE.csv") : End If
87
-                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "LANGUAGE_FILE.csv", Str + "\LANGUAGE_FILE.csv")
55
+                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "LANGUAGE_FILE.csv", Str + "\LANGUAGE_FILE.csv")
88 56
                 MyModule1.進度條() : If File.Exists(Str + "\Calculator-SYS.exe") Then : File.Delete(Str + "\Calculator-SYS.exe") : End If
89
-                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Calculator-SYS.exe", Str + "\Calculator-SYS.exe")
57
+                MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "Calculator-SYS.exe", Str + "\Calculator-SYS.exe")
90 58
                 MyModule1.進度條() : Shell(Str + "\Calculator-SYS.exe", vbNormalFocus)
91 59
                 Me.Close()
92 60
             End If

BIN
Calculator-SYS-UPDATE/bin/Debug/Calculator-SYS-UPDATE.exe Ver fichero


BIN
Calculator-SYS-UPDATE/bin/Debug/Calculator-SYS-UPDATE.pdb Ver fichero


BIN
Calculator-SYS-UPDATE/obj/Debug/Calculator-SYS-UPDATE.exe Ver fichero


BIN
Calculator-SYS-UPDATE/obj/Debug/Calculator-SYS-UPDATE.pdb Ver fichero


Loading…
Cancelar
Guardar