B70340 преди 3 години
родител
ревизия
2ca53a93c4

Двоични данни
.vs/TENDEN-MES-SYS/v16/.suo Целия файл


+ 16
- 4
TENDEN-MES-SYS/LoginForm1vb.Designer.vb Целия файл

52
         Me.ComboBox1 = New System.Windows.Forms.ComboBox()
52
         Me.ComboBox1 = New System.Windows.Forms.ComboBox()
53
         Me.DataGridView1 = New System.Windows.Forms.DataGridView()
53
         Me.DataGridView1 = New System.Windows.Forms.DataGridView()
54
         Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
54
         Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
55
+        Me.UPDATE_bt = New System.Windows.Forms.Button()
55
         CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
56
         CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
56
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
57
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
57
         Me.SuspendLayout()
58
         Me.SuspendLayout()
74
         Me.UsernameLabel.Name = "UsernameLabel"
75
         Me.UsernameLabel.Name = "UsernameLabel"
75
         Me.UsernameLabel.Size = New System.Drawing.Size(220, 23)
76
         Me.UsernameLabel.Size = New System.Drawing.Size(220, 23)
76
         Me.UsernameLabel.TabIndex = 0
77
         Me.UsernameLabel.TabIndex = 0
77
-        Me.UsernameLabel.Text = "使用者名稱(&U)"
78
+        Me.UsernameLabel.Text = ".使用者名稱(&U)"
78
         Me.UsernameLabel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
79
         Me.UsernameLabel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
79
         '
80
         '
80
         'PasswordLabel
81
         'PasswordLabel
179
         '
180
         '
180
         'WebBrowser3
181
         'WebBrowser3
181
         '
182
         '
182
-        Me.WebBrowser3.Location = New System.Drawing.Point(493, 82)
183
+        Me.WebBrowser3.Location = New System.Drawing.Point(491, 117)
183
         Me.WebBrowser3.MinimumSize = New System.Drawing.Size(20, 20)
184
         Me.WebBrowser3.MinimumSize = New System.Drawing.Size(20, 20)
184
         Me.WebBrowser3.Name = "WebBrowser3"
185
         Me.WebBrowser3.Name = "WebBrowser3"
185
-        Me.WebBrowser3.Size = New System.Drawing.Size(208, 152)
186
+        Me.WebBrowser3.Size = New System.Drawing.Size(210, 104)
186
         Me.WebBrowser3.TabIndex = 607
187
         Me.WebBrowser3.TabIndex = 607
187
         Me.WebBrowser3.Url = New System.Uri("", System.UriKind.Relative)
188
         Me.WebBrowser3.Url = New System.Uri("", System.UriKind.Relative)
188
         '
189
         '
192
         Me.Label3.BackColor = System.Drawing.Color.White
193
         Me.Label3.BackColor = System.Drawing.Color.White
193
         Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
194
         Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
194
         Me.Label3.ForeColor = System.Drawing.Color.Red
195
         Me.Label3.ForeColor = System.Drawing.Color.Red
195
-        Me.Label3.Location = New System.Drawing.Point(485, 31)
196
+        Me.Label3.Location = New System.Drawing.Point(485, 23)
196
         Me.Label3.Name = "Label3"
197
         Me.Label3.Name = "Label3"
197
         Me.Label3.Size = New System.Drawing.Size(224, 48)
198
         Me.Label3.Size = New System.Drawing.Size(224, 48)
198
         Me.Label3.TabIndex = 609
199
         Me.Label3.TabIndex = 609
255
         Me.DataGridView1.TabIndex = 636
256
         Me.DataGridView1.TabIndex = 636
256
         Me.DataGridView1.Visible = False
257
         Me.DataGridView1.Visible = False
257
         '
258
         '
259
+        'UPDATE_bt
260
+        '
261
+        Me.UPDATE_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
262
+        Me.UPDATE_bt.Location = New System.Drawing.Point(488, 74)
263
+        Me.UPDATE_bt.Name = "UPDATE_bt"
264
+        Me.UPDATE_bt.Size = New System.Drawing.Size(213, 38)
265
+        Me.UPDATE_bt.TabIndex = 637
266
+        Me.UPDATE_bt.Text = "UPDATE"
267
+        '
258
         'LoginForm1vb
268
         'LoginForm1vb
259
         '
269
         '
260
         Me.AcceptButton = Me.OK
270
         Me.AcceptButton = Me.OK
262
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
272
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
263
         Me.CancelButton = Me.Cancel
273
         Me.CancelButton = Me.Cancel
264
         Me.ClientSize = New System.Drawing.Size(713, 249)
274
         Me.ClientSize = New System.Drawing.Size(713, 249)
275
+        Me.Controls.Add(Me.UPDATE_bt)
265
         Me.Controls.Add(Me.DataGridView1)
276
         Me.Controls.Add(Me.DataGridView1)
266
         Me.Controls.Add(Me.Label5)
277
         Me.Controls.Add(Me.Label5)
267
         Me.Controls.Add(Me.ComboBox1)
278
         Me.Controls.Add(Me.ComboBox1)
308
     Friend WithEvents ComboBox1 As ComboBox
319
     Friend WithEvents ComboBox1 As ComboBox
309
     Friend WithEvents DataGridView1 As DataGridView
320
     Friend WithEvents DataGridView1 As DataGridView
310
     Friend WithEvents SaveFileDialog1 As SaveFileDialog
321
     Friend WithEvents SaveFileDialog1 As SaveFileDialog
322
+    Friend WithEvents UPDATE_bt As Button
311
 End Class
323
 End Class

+ 39
- 20
TENDEN-MES-SYS/LoginForm1vb.vb Целия файл

1
 Option Explicit On
1
 Option Explicit On
2
 Imports System.Data.SqlClient
2
 Imports System.Data.SqlClient
3
+Imports System.IO
4
+Imports System.Text
5
+
3
 Public Class LoginForm1vb
6
 Public Class LoginForm1vb
4
     ' TODO: 插入程式碼,利用提供的使用者名稱和密碼執行自訂驗證 (請參閱 https://go.microsoft.com/fwlink/?LinkId=35339)。
7
     ' TODO: 插入程式碼,利用提供的使用者名稱和密碼執行自訂驗證 (請參閱 https://go.microsoft.com/fwlink/?LinkId=35339)。
5
     ' 如此便可將自訂主體附加到目前執行緒的主體,如下所示:    My.User.CurrentPrincipal = CustomPrincipal 其中 CustomPrincipal 是用來執行驗證的 IPrincipal 實作。
8
     ' 如此便可將自訂主體附加到目前執行緒的主體,如下所示:    My.User.CurrentPrincipal = CustomPrincipal 其中 CustomPrincipal 是用來執行驗證的 IPrincipal 實作。
21
         da.Fill(ds2) : DataGridView1.DataSource = ds2.Tables(0) : conn.Close()
24
         da.Fill(ds2) : DataGridView1.DataSource = ds2.Tables(0) : conn.Close()
22
     End Sub
25
     End Sub
23
     Private Sub LoginForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
26
     Private Sub LoginForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
27
+        '-----------------------刪除自動更新項目-----------------------------------------------------------------------------------------------------------------------------------------------
28
+        Dim Str As String = Application.StartupPath
29
+        If File.Exists(Str + "\SYS-UPDATE.exe") Then : File.Delete(Str + "\SYS-UPDATE.exe") : End If
30
+        If File.Exists(Str + "\LIVE.txt") Then : File.Delete(Str + "\LIVE.txt") : End If
24
         '-----------------------控件基本設定-----------------------------------------------------------------------------------------------------------------------------------------------
31
         '-----------------------控件基本設定-----------------------------------------------------------------------------------------------------------------------------------------------
25
         CheckBox1.Enabled = False : CheckBox1.Enabled = False : TextBox4.Text = "1" : Label1.Text = "執行檔版本號 : " & 版本 : UsernameTextBox.ImeMode = 3
32
         CheckBox1.Enabled = False : CheckBox1.Enabled = False : TextBox4.Text = "1" : Label1.Text = "執行檔版本號 : " & 版本 : UsernameTextBox.ImeMode = 3
26
         網段.ShowDialog()
33
         網段.ShowDialog()
74
         Next
81
         Next
75
         Target1 = Target & AA(0) & "/"
82
         Target1 = Target & AA(0) & "/"
76
         WebBrowser3.Url = New Uri(Target1)
83
         WebBrowser3.Url = New Uri(Target1)
84
+        Dim Str As String = Application.StartupPath
85
+        If File.Exists(Str + "\TENDEN-ERP-SYS - 2021092901.exe") Then
86
+            UPDATE_bt.PerformClick()
87
+        End If
77
         If Strings.Right(Label1.Text, 10) <> Strings.Right(Label2.Text, 10) Then
88
         If Strings.Right(Label1.Text, 10) <> Strings.Right(Label2.Text, 10) Then
78
             自動更新2()
89
             自動更新2()
79
         Else : End If
90
         Else : End If
96
         Dim aa1 As MsgBoxResult
107
         Dim aa1 As MsgBoxResult
97
         aa1 = MsgBox("系統版本號 與 資料庫版本號 對應不上,請開發人員注意是否有其他人員修改。並決定是否下載最新的執行檔?", MsgBoxStyle.OkCancel)
108
         aa1 = MsgBox("系統版本號 與 資料庫版本號 對應不上,請開發人員注意是否有其他人員修改。並決定是否下載最新的執行檔?", MsgBoxStyle.OkCancel)
98
         If aa1 = MsgBoxResult.Ok Then
109
         If aa1 = MsgBoxResult.Ok Then
99
-            With SaveFileDialog1 : .Filter = "所有文件(*.exe)|*.exe" : End With
100
-            SaveFileDialog1.FileName = "TENDEN-ERP-SYS - " & 版本號 & ".exe"
101
-            SaveFileDialog1.ShowDialog()
102
-            If Strings.Right(SaveFileDialog1.FileName, 31) = "TENDEN-ERP-SYS - " & 版本號 & ".exe" Then
103
-                My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "TENDEN-ERP-SYS - " & 版本號 & ".exe", SaveFileDialog1.FileName, "", "", True, 10000, True)
104
-                MsgBox("下載完成,請手動刪除就的執行檔,並且用新的執行檔開啟。")
105
-                Me.Close()
106
-            Else
107
-                MsgBox("操作不正確,請用手動方式下載更新。")
108
-            End If
110
+            UPDATE_bt.PerformClick()
109
         Else
111
         Else
110
             登入程序()
112
             登入程序()
111
         End If
113
         End If
114
         Dim aa1 As MsgBoxResult
116
         Dim aa1 As MsgBoxResult
115
         aa1 = MsgBox("系統版本號 與 資料庫版本號 對應不上,請下載最新的執行檔。", MsgBoxStyle.OkCancel)
117
         aa1 = MsgBox("系統版本號 與 資料庫版本號 對應不上,請下載最新的執行檔。", MsgBoxStyle.OkCancel)
116
         If aa1 = MsgBoxResult.Ok Then
118
         If aa1 = MsgBoxResult.Ok Then
117
-            With SaveFileDialog1 : .Filter = "所有文件(*.exe)|*.exe" : End With
118
-            SaveFileDialog1.FileName = "TENDEN-ERP-SYS - " & 版本號 & ".exe"
119
-            SaveFileDialog1.ShowDialog()
120
-            If Strings.Right(SaveFileDialog1.FileName, 31) = "TENDEN-ERP-SYS - " & 版本號 & ".exe" Then
121
-                My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "TENDEN-ERP-SYS - " & 版本號 & ".exe", SaveFileDialog1.FileName, "", "", True, 10000, True)
122
-                MsgBox("下載完成,請手動刪除就的執行檔,並且用新的執行檔開啟。")
123
-                Me.Close()
124
-            Else
125
-                MsgBox("操作不正確,請用手動方式下載更新。")
126
-            End If
119
+            UPDATE_bt.PerformClick()
120
+        Else
121
+            MsgBox("操作不正確,請用手動方式下載更新。")
127
         End If
122
         End If
128
     End Sub
123
     End Sub
129
     Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
124
     Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
217
     Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.Click
212
     Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.Click
218
         UsernameTextBox.Focus()
213
         UsernameTextBox.Focus()
219
     End Sub
214
     End Sub
215
+    Private Sub UPDATE_bt_Click(sender As Object, e As EventArgs) Handles UPDATE_bt.Click
216
+        Dim Strs As String = Application.StartupPath
217
+        If File.Exists(Strs + "\LIVE.txt") Then : File.Delete(Strs + "\LIVE.txt") : End If
218
+        Dim FilePath As String = Strs + "\LIVE.txt"
219
+        Try
220
+            Using fs As IO.FileStream = New IO.FileStream(FilePath, FileMode.Append)
221
+                Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
222
+                    If ComboBox1.Text = "天盾伺服器" Then
223
+                        Dim str As String = "A"
224
+                        sw.WriteLine(str)   '插入一整行
225
+                        sw.Flush()
226
+                    Else
227
+                        Dim str As String = "B"
228
+                        sw.WriteLine(str)   '插入一整行
229
+                        sw.Flush()
230
+                    End If
231
+                End Using
232
+            End Using
233
+        Catch ex As Exception
234
+        End Try
235
+        My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "SYS-UPDATE.exe", Strs + "\SYS-UPDATE.exe")
236
+        Shell(Strs + "\SYS-UPDATE.exe", vbNormalFocus)
237
+        Me.Close()
238
+    End Sub
220
 End Class
239
 End Class

+ 1
- 1
TENDEN-MES-SYS/Module/全域變數.vb Целия файл

4
     Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public 登入人IP As String
4
     Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public 登入人IP As String
5
     Public CC(99) As Boolean : Public AA(99) As String : Public 登入判斷 As Boolean
5
     Public CC(99) As Boolean : Public AA(99) As String : Public 登入判斷 As Boolean
6
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
6
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
7
-    Public 版本 As String = "2021092801"
7
+    Public 版本 As String = "2021092901"
8
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
8
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
9
     Public 匯率 As Double
9
     Public 匯率 As Double
10
 
10
 

Двоични данни
TENDEN-MES-SYS/bin/Debug/TENDEN-ERP-SYS.exe Целия файл


Двоични данни
TENDEN-MES-SYS/bin/Debug/TENDEN-ERP-SYS.pdb Целия файл


Двоични данни
TENDEN-MES-SYS/obj/Debug/TENDEN-ERP-SYS.exe Целия файл


Двоични данни
TENDEN-MES-SYS/obj/Debug/TENDEN-ERP-SYS.pdb Целия файл


+ 1
- 1
TENDEN-MES-SYS/obj/Debug/天盾系統.vbproj.CoreCompileInputs.cache Целия файл

1
-52268b93f54c13964a7906cf981abdd2396dede3
1
+3e05c216c3adce96cfb4a771d1fcd739f5d299f2

+ 121
- 0
TENDEN-MES-SYS/obj/Debug/天盾系統.vbproj.FileListAbsolute.txt Целия файл

585
 D:\工巧明\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單分析2.resources
585
 D:\工巧明\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單分析2.resources
586
 D:\工巧明\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單分析3.resources
586
 D:\工巧明\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單分析3.resources
587
 D:\工巧明\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單分析比對工具_Vionic.resources
587
 D:\工巧明\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單分析比對工具_Vionic.resources
588
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\TENDEN-ERP-SYS.exe.config
589
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\TENDEN-ERP-SYS.exe
590
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\TENDEN-ERP-SYS.pdb
591
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\TENDEN-ERP-SYS.xml
592
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\Microsoft.Web.Infrastructure.dll
593
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\Newtonsoft.Json.dll
594
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\Transformer.NET.dll
595
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\WebActivatorEx.dll
596
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\Newtonsoft.Json.xml
597
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\bin\Debug\Transformer.NET.xml
598
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.力威發票明細轉換工具.resources
599
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單交期批量修改工具.resources
600
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單分析比對工具_力威.resources
601
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.模具控制表.resources
602
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.業務資料日期除錯.resources
603
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單資料匯入_力威.resources
604
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.網段.resources
605
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.形體分析報表.resources
606
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單明細表.resources
607
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單改量差異查詢.resources
608
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.人員ID卡系統配置設定.resources
609
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.Customer_Information_資料管理.resources
610
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.CXL訂單紀錄表.resources
611
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.DELIVERY_ADDRESS__資料管理.resources
612
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.FACTORY_資料管理.resources
613
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.FTP資料夾管理.resources
614
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.INVOICE_確認部門.resources
615
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.SAMPLE_TRACKER.resources
616
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.STYLE_形體下單數量統計.resources
617
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.STYLE_資料管理.resources
618
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.STYLE_資料管理_對應訂單.resources
619
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.中文樣品單.resources
620
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.中文樣品單批量列印.resources
621
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.中文樣品單清單.resources
622
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.中文樣品單階段.resources
623
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.保證書出貨統計資料.resources
624
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.出貨明細表.resources
625
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_INVOICE.resources
626
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_SAMPLE_TRACKER.resources
627
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_中文樣品單.resources
628
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_出貨明細表.resources
629
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_吊牌.resources
630
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_周進度表.resources
631
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_周進度表T1_T4.resources
632
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_測試報告.resources
633
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_生產進度表.resources
634
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_確認樣品確認通知單.resources
635
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單價格利潤表.resources
636
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單分析1.resources
637
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單分析2.resources
638
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單分析3.resources
639
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單明細.resources
640
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_費用報表.resources
641
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_量產樣品控制表.resources
642
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單執行資訊輸入.resources
643
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.周進度表.resources
644
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.周進度表T1_T4.resources
645
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.帳務資料庫管理.resources
646
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.帳號管理.resources
647
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.LoginForm1vb.resources
648
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.TENDEN_MES_SYS.resources
649
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.Resources.resources
650
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.SplashScreen1.resources
651
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.成本資料庫管理.resources
652
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.收款報表.resources
653
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.收款報表批量輸入.resources
654
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.楦頭圖片導入資料庫.resources
655
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.楦頭圖片資料庫.resources
656
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.楦頭規格表.resources
657
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.業務資料庫管理.resources
658
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.中文樣品吊牌管理.resources
659
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.樣品資料庫管理.resources
660
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.清單修改.resources
661
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.測試報告報告到期管理.resources
662
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.測試報告控制表.resources
663
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.測試報告新配色管理.resources
664
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.現有訂單鞋盒資訊查詢.resources
665
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.生產進度表.resources
666
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.皮料資料紀錄表.resources
667
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.中文確認樣品確認通知單.resources
668
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.系統使用者管理.resources
669
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.系統執行檔版本管理.resources
670
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單價格利潤明細表.resources
671
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單分析報表.resources
672
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.OrderTypeAnalysis.resources
673
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.OldUnitComparison.resources
674
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.NewUnitComparison.resources
675
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單分析比對工具_Vionic.resources
676
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.DeadlineReport.resources
677
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_訂單控制表.resources
678
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單控制表.resources
679
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單控制表修改紀錄.resources
680
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單明細表.resources
681
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單明細表修改紀錄.resources
682
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單流水號.resources
683
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單資料匯入_Vionic.resources
684
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.列印_收款報表.resources
685
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.費用報表.resources
686
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.量產樣品控制表.resources
687
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.量產樣品明細表.resources
688
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.量產樣品流水號.resources
689
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.量產樣品訂單CXL紀錄表.resources
690
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.量產樣品訂單出貨紀錄表.resources
691
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.量產樣品訂單匯入.resources
692
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.鞋型圖片導入資料庫.resources
693
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.鞋型圖片資料庫.resources
694
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單資料庫選擇.resources
695
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單資料比對與修改_力威.resources
696
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.鞋盒訂單紀錄表.resources
697
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.鞋盒資料控制表.resources
698
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.驗貨報告圖片導入資料庫.resources
699
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.驗貨報告大圖.resources
700
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.驗貨報告資料庫.resources
701
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.驗貨報告資料庫修正.resources
702
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾系統.vbproj.GenerateResource.cache
703
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾系統.vbproj.CoreCompileInputs.cache
704
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾系統.vbproj.CopyComplete
705
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.exe
706
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.xml
707
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.pdb
708
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾系統.vbprojAssemblyReference.cache

Двоични данни
TENDEN-MES-SYS/obj/Debug/天盾系統.vbproj.GenerateResource.cache Целия файл


Двоични данни
TENDEN-MES-SYS/obj/Debug/天盾系統.vbprojAssemblyReference.cache Целия файл


+ 1
- 1
TENDEN-MES-SYS/樣品訂單管理/中文樣品單系統/中文樣品單.vb Целия файл

1513
         If 內裡_dgv.Rows.Count > 0 Then
1513
         If 內裡_dgv.Rows.Count > 0 Then
1514
             For i = 0 To 內裡_dgv.Rows.Count - 1
1514
             For i = 0 To 內裡_dgv.Rows.Count - 1
1515
                 ConnOpen()
1515
                 ConnOpen()
1516
-                SQL1 = "UPDATE 確認樣品單明細表暫存檔 SET 細項 = N'" & 內裡_dgv.Rows(i).Cells("Item_N").Value & "' 內容 = N'" & 內裡_dgv.Rows(i).Cells("內容").Value & "', 
1516
+                SQL1 = "UPDATE 確認樣品單明細表暫存檔 SET 細項 = N'" & 內裡_dgv.Rows(i).Cells("Item_N").Value & "', 內容 = N'" & 內裡_dgv.Rows(i).Cells("內容").Value & "', 
1517
                                                           廠商 = N'" & 內裡_dgv.Rows(i).Cells("Factory").Value & "' 
1517
                                                           廠商 = N'" & 內裡_dgv.Rows(i).Cells("Factory").Value & "' 
1518
                         WHERE 樣品流水號二 LIKE '" & 內裡_dgv.Rows(i).Cells("樣品流水號二").Value & "' AND 
1518
                         WHERE 樣品流水號二 LIKE '" & 內裡_dgv.Rows(i).Cells("樣品流水號二").Value & "' AND 
1519
                               樣品流水號三 LIKE '" & 內裡_dgv.Rows(i).Cells("樣品流水號三").Value & "'  AND 
1519
                               樣品流水號三 LIKE '" & 內裡_dgv.Rows(i).Cells("樣品流水號三").Value & "'  AND 

+ 1
- 1
TENDEN-MES-SYS/樣品訂單管理/系統列印介面/列印_中文樣品單.vb Целия файл

521
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
521
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
522
 
522
 
523
         位置8 = 14 + (面料數 * 2) + (內裏數 * 2) + (底部數 * 2) + (飾物數 * 2)
523
         位置8 = 14 + (面料數 * 2) + (內裏數 * 2) + (底部數 * 2) + (飾物數 * 2)
524
-        For i As Integer = 14 To 位置8
524
+        For i As Integer = 15 To 位置8
525
             攔寬 = xlSheet.Rows(i).RowHeight
525
             攔寬 = xlSheet.Rows(i).RowHeight
526
             位置11 = i & ":" & i
526
             位置11 = i & ":" & i
527
             xlSheet.Rows(位置11).Select : myExcel.Selection.RowHeight = 攔寬 + 20
527
             xlSheet.Rows(位置11).Select : myExcel.Selection.RowHeight = 攔寬 + 20

+ 6
- 3
TENDEN-MES-SYS/資料庫系統管理/系統執行檔版本管理.Designer.vb Целия файл

51
         '
51
         '
52
         Me.Label12.AutoSize = True
52
         Me.Label12.AutoSize = True
53
         Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
53
         Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
54
-        Me.Label12.Location = New System.Drawing.Point(955, 9)
54
+        Me.Label12.Location = New System.Drawing.Point(955, 10)
55
         Me.Label12.Name = "Label12"
55
         Me.Label12.Name = "Label12"
56
         Me.Label12.Size = New System.Drawing.Size(80, 16)
56
         Me.Label12.Size = New System.Drawing.Size(80, 16)
57
         Me.Label12.TabIndex = 604
57
         Me.Label12.TabIndex = 604
91
         '
91
         '
92
         'WebBrowser1
92
         'WebBrowser1
93
         '
93
         '
94
+        Me.WebBrowser1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
95
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
94
         Me.WebBrowser1.Location = New System.Drawing.Point(958, 35)
96
         Me.WebBrowser1.Location = New System.Drawing.Point(958, 35)
95
         Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
97
         Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
96
         Me.WebBrowser1.Name = "WebBrowser1"
98
         Me.WebBrowser1.Name = "WebBrowser1"
144
         '
146
         '
145
         'WebBrowser3
147
         'WebBrowser3
146
         '
148
         '
147
-        Me.WebBrowser3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
148
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
149
+        Me.WebBrowser3.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
150
+            Or System.Windows.Forms.AnchorStyles.Left) _
151
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
149
         Me.WebBrowser3.Location = New System.Drawing.Point(956, 373)
152
         Me.WebBrowser3.Location = New System.Drawing.Point(956, 373)
150
         Me.WebBrowser3.MinimumSize = New System.Drawing.Size(20, 20)
153
         Me.WebBrowser3.MinimumSize = New System.Drawing.Size(20, 20)
151
         Me.WebBrowser3.Name = "WebBrowser3"
154
         Me.WebBrowser3.Name = "WebBrowser3"

Loading…
Отказ
Запис