20230610備份

TENDEN-MES-SYS/LoginForm1vb.Designer.vb

@@ -176,7 +176,7 @@ Partial Class LoginForm1vb
         Me.Label4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label4.Location = New System.Drawing.Point(485, 5)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(100, 16)
+        Me.Label4.Size = New System.Drawing.Size(99, 16)
         Me.Label4.TabIndex = 608
         Me.Label4.Text = "伺服器FTP文件夾"
         '
@@ -197,7 +197,7 @@ Partial Class LoginForm1vb
         Me.Label3.ForeColor = System.Drawing.Color.Red
         Me.Label3.Location = New System.Drawing.Point(485, 23)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(224, 48)
+        Me.Label3.Size = New System.Drawing.Size(223, 48)
         Me.Label3.TabIndex = 609
         Me.Label3.Text = "更新時請直接拖曳檔案到桌面，再將原來" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "的執行檔刪除即可，請不要使用剪下的方" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "式來更新檔案"
         '

TENDEN-MES-SYS/LoginForm1vb.vb

@@ -243,4 +243,8 @@ Public Class LoginForm1vb
         Shell(Strs + "\SYS-UPDATE.exe", vbNormalFocus)
         Me.Close()
     End Sub
+
+    Private Sub LogoPictureBox_Click(sender As Object, e As EventArgs) Handles LogoPictureBox.Click
+
+    End Sub
 End Class

TENDEN-MES-SYS/Module/SQL_圖片資料庫管理.vb

@@ -47,7 +47,7 @@
         圖片庫 = PA1 : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
         SQL1 = "INSERT INTO 驗貨報告圖庫 (客戶訂單號, 型體名稱, 驗貨報告編號, 操作人, 驗貨報告) 
                         SELECT '" & 驗貨報告圖片導入資料庫.客戶訂單號_tb.Text & "','" & 驗貨報告圖片導入資料庫.型體名稱_tb.Text & "','" & 驗貨報告圖片導入資料庫.TextBox3.Text & "','" & gUserName & "', 
-                        BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0004\" & 驗貨報告圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
+                        BULKCOLUMN FROM OPENROWSET ( BULK 'D:\TENDENZA\0004\" & 驗貨報告圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_修改驗貨報告圖庫()
@@ -93,7 +93,7 @@
     End Sub
     Friend Sub SQL_修改驗貨報告圖庫1_正式()
         圖片庫 = PA1 : SQL_連線字串_圖片資料庫() : ConnOpen_工程圖庫SQL()
-        SQL1 = "UPDATE 驗貨報告圖庫 SET  驗貨報告 = BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0004\" & 驗貨報告資料庫.TextBox6.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
+        SQL1 = "UPDATE 驗貨報告圖庫 SET  驗貨報告 = BULKCOLUMN FROM OPENROWSET ( BULK 'D:\TENDENZA\0004\" & 驗貨報告資料庫.TextBox6.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
                         WHERE (驗貨報告編號 = '" & 驗貨報告資料庫.驗貨報告編號_tb.Text & "')"
         CmdSet_For_dr()
     End Sub
@@ -179,7 +179,7 @@
         SQL1 = "INSERT INTO 圖片庫一 (形體名, 形體號, 顏色, 類型, 圖片編號, 季節, 圖片) 
                             SELECT '" & 鞋型圖片導入資料庫.Style_tb.Text & "','" & 鞋型圖片導入資料庫.TVW_tb.Text & "','" & 鞋型圖片導入資料庫.Color_tb.Text & "',
                                    '" & 鞋型圖片導入資料庫.Category_cb.Text & "','" & 鞋型圖片導入資料庫.TextBox1.Text & "','" & 鞋型圖片導入資料庫.季節_tb.Text & "', 
-                            BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0002\" & 鞋型圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
+                            BULKCOLUMN FROM OPENROWSET ( BULK 'D:\TENDENZA\0002\" & 鞋型圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
     End Sub
     Friend Sub SQL_新增圖片庫一1_測試()
         SQL1 = "INSERT INTO 圖片庫一 (形體名, 形體號, 顏色, 類型, 圖片編號, 季節, 圖片) 
@@ -191,7 +191,7 @@
         SQL1 = "INSERT INTO 圖片庫一 (形體名, 形體號, 顏色, 類型, 圖片編號, 季節, 圖片) 
                                 SELECT '" & 鞋型圖片導入資料庫.中底_其他LOGO_tb.Text & "','" & 鞋型圖片導入資料庫.TVW_tb.Text & "','" & 鞋型圖片導入資料庫.Color_tb.Text & "',
                                        '" & 鞋型圖片導入資料庫.Category_cb.Text & "','" & 鞋型圖片導入資料庫.TextBox1.Text & "','" & 鞋型圖片導入資料庫.季節_tb.Text & "', 
-                                BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0002\" & 鞋型圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
+                                BULKCOLUMN FROM OPENROWSET ( BULK 'D:\TENDENZA\0002\" & 鞋型圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
     End Sub
     '------------------------------鞋型圖片資料庫-------------------------------------------------------------------------------
     Friend Sub SQL_圖片庫一清單()
@@ -219,7 +219,7 @@
         SQL1 = "UPDATE 圖片庫一 SET 形體名 = '" & 鞋型圖片資料庫.Style_tb.Text & "', 形體號 = '" & 鞋型圖片資料庫.TVW_tb.Text & "', 
                                     顏色 = '" & 鞋型圖片資料庫.Color_tb.Text & "', 類型 = '" & 鞋型圖片資料庫.Category_cb.Text & "', 
                                     季節 = '" & 鞋型圖片導入資料庫.季節_tb.Text & "', 
-                                    圖片 = BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0002\" & 鞋型圖片資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
+                                    圖片 = BULKCOLUMN FROM OPENROWSET ( BULK 'D:\TENDENZA\0002\" & 鞋型圖片資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
                 WHERE (圖片編號 = '" & 鞋型圖片資料庫.TextBox1.Text & "')"
     End Sub
     Friend Sub SQL_刪除圖片庫一()
@@ -291,7 +291,7 @@
     End Sub
     Friend Sub SQL_修改楦頭圖片庫_正式()
         ConnOpen()
-        SQL1 = "UPDATE 楦頭圖片庫 SET  楦頭圖片 = BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0003\" & 楦頭圖片資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
+        SQL1 = "UPDATE 楦頭圖片庫 SET  楦頭圖片 = BULKCOLUMN FROM OPENROWSET ( BULK 'D:\TENDENZA\0003\" & 楦頭圖片資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
                 WHERE (楦頭圖片編號 = '" & 楦頭圖片資料庫.楦頭圖片編號_tb.Text & "') AND (楦頭編號 = '" & 楦頭圖片資料庫.楦頭編號_tb.Text & "')"
         CmdSet_For_dr()
     End Sub
@@ -323,7 +323,7 @@
     Friend Sub SQL_新增楦頭圖片庫_正式()
         ConnOpen()
         SQL1 = "INSERT INTO 楦頭圖片庫 (楦頭編號, 楦頭圖片編號, 楦頭圖片) SELECT '" & 楦頭圖片導入資料庫.楦頭編號_tb.Text & "','" & 楦頭圖片導入資料庫.楦頭圖片編號_tb.Text & "', 
-                    BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0003\" & 楦頭圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
+                    BULKCOLUMN FROM OPENROWSET ( BULK 'D:\TENDENZA\0003\" & 楦頭圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
         CmdSet_For_dr()
     End Sub
     '---------------------------包裝資料圖片導入資料庫--------------------------------------------------------------
@@ -356,7 +356,7 @@
         SQL1 = "INSERT INTO 包裝資料圖庫 (流水號, 季節, 型體名稱, 型體號碼, 項目編號, 圖片) 
                         SELECT '" & 包裝資料圖片導入資料庫.流水號_tb.Text & "','" & 包裝資料圖片導入資料庫.建立季節_tb.Text & "','" & 包裝資料圖片導入資料庫.型體名稱_tb.Text & "',
                                '" & 包裝資料圖片導入資料庫.型體號碼_tb.Text & "', '" & 包裝資料圖片導入資料庫.項目編號_tb.Text & "',  
-                        BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\0004\" & 包裝資料圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
+                        BULKCOLUMN FROM OPENROWSET ( BULK 'D:\TENDENZA\0004\" & 包裝資料圖片導入資料庫.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_修改STYLELIST包裝圖號()

TENDEN-MES-SYS/Module/SQL_製鞋技術管理.vb

@@ -256,7 +256,7 @@
     End Sub
     Friend Sub SQL_E模具圖檔()
         SQL1 = "INSERT INTO 模具圖檔 (流水號, 圖面, 圖片) SELECT '" & 模具控制表.流水號_tb.Text & "','" & 模具控制表.圖片類別_cb.Text & "',
-                            BULKCOLUMN FROM OPENROWSET ( BULK 'E:\TENDENZA\" & AA(1) & "\" & 模具控制表.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
+                            BULKCOLUMN FROM OPENROWSET ( BULK 'D:\TENDENZA\" & AA(1) & "\" & 模具控制表.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
     End Sub
     Friend Sub SQL_D模具圖檔()
         SQL1 = "INSERT INTO 模具圖檔 (流水號, 圖面, 圖片) SELECT '" & 模具控制表.流水號_tb.Text & "','" & 模具控制表.圖片類別_cb.Text & "' , 

TENDEN-MES-SYS/Module/全域變數.vb

@@ -3,7 +3,7 @@
     Public g_conn_type, gUserName, 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, 登入人IP, AA(99), 圖片庫, SQL密碼 As String
     Public CC(99), 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2023052301"
+    Public 版本 As String = "2023060701"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 匯率 As Double
     '----系統用全域變數----------------------------------------------------------------------------------------------------------------------------------------------------------------------