|
@@ -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
|