20230415備份

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 = "2023032901"
+    Public 版本 As String = "2023041401"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 匯率 As Double
     '----系統用全域變數----------------------------------------------------------------------------------------------------------------------------------------------------------------------

TENDEN-MES-SYS/資料庫系統管理/下拉清單_1.Designer.vb

@@ -29,6 +29,8 @@ Partial Class 下拉清單_1
         Me.ListBox4 = New System.Windows.Forms.ListBox()
         Me.上一頁_bt = New System.Windows.Forms.Button()
         Me.下一頁_bt = New System.Windows.Forms.Button()
+        Me.最末頁_bt = New System.Windows.Forms.Button()
+        Me.最前頁_bt = New System.Windows.Forms.Button()
         Me.SuspendLayout()
         '
         'ListBox1
@@ -70,9 +72,9 @@ Partial Class 下拉清單_1
         '上一頁_bt
         '
         Me.上一頁_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.上一頁_bt.Location = New System.Drawing.Point(4, 407)
+        Me.上一頁_bt.Location = New System.Drawing.Point(105, 407)
         Me.上一頁_bt.Name = "上一頁_bt"
-        Me.上一頁_bt.Size = New System.Drawing.Size(160, 25)
+        Me.上一頁_bt.Size = New System.Drawing.Size(101, 25)
         Me.上一頁_bt.TabIndex = 1523
         Me.上一頁_bt.Text = "上一頁"
         Me.上一頁_bt.UseVisualStyleBackColor = True
@@ -80,18 +82,40 @@ Partial Class 下拉清單_1
         '下一頁_bt
         '
         Me.下一頁_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.下一頁_bt.Location = New System.Drawing.Point(697, 407)
+        Me.下一頁_bt.Location = New System.Drawing.Point(656, 407)
         Me.下一頁_bt.Name = "下一頁_bt"
-        Me.下一頁_bt.Size = New System.Drawing.Size(160, 25)
+        Me.下一頁_bt.Size = New System.Drawing.Size(101, 25)
         Me.下一頁_bt.TabIndex = 1524
         Me.下一頁_bt.Text = "下一頁"
         Me.下一頁_bt.UseVisualStyleBackColor = True
         '
+        '最末頁_bt
+        '
+        Me.最末頁_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.最末頁_bt.Location = New System.Drawing.Point(756, 407)
+        Me.最末頁_bt.Name = "最末頁_bt"
+        Me.最末頁_bt.Size = New System.Drawing.Size(101, 25)
+        Me.最末頁_bt.TabIndex = 1525
+        Me.最末頁_bt.Text = "最末頁"
+        Me.最末頁_bt.UseVisualStyleBackColor = True
+        '
+        '最前頁_bt
+        '
+        Me.最前頁_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.最前頁_bt.Location = New System.Drawing.Point(4, 407)
+        Me.最前頁_bt.Name = "最前頁_bt"
+        Me.最前頁_bt.Size = New System.Drawing.Size(101, 25)
+        Me.最前頁_bt.TabIndex = 1526
+        Me.最前頁_bt.Text = "最前頁"
+        Me.最前頁_bt.UseVisualStyleBackColor = True
+        '
         '下拉清單_1
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(861, 432)
+        Me.Controls.Add(Me.最前頁_bt)
+        Me.Controls.Add(Me.最末頁_bt)
         Me.Controls.Add(Me.下一頁_bt)
         Me.Controls.Add(Me.上一頁_bt)
         Me.Controls.Add(Me.ListBox4)
@@ -115,4 +139,6 @@ Partial Class 下拉清單_1
     Friend WithEvents ListBox4 As ListBox
     Friend WithEvents 上一頁_bt As Button
     Friend WithEvents 下一頁_bt As Button
+    Friend WithEvents 最末頁_bt As Button
+    Friend WithEvents 最前頁_bt As Button
 End Class

TENDEN-MES-SYS/資料庫系統管理/下拉清單_1.vb

@@ -10,7 +10,8 @@
     Private Sub 下拉清單_1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
         有選擇 = False
         總頁數 = NN1 / 99 + 1 : 頁數 = 1 : F1 = 0 : F2 = 24 : F3 = 25 : F4 = 49 : F5 = 50 : F6 = 74 : F7 = 75 : F8 = 99
-        If NN1 < 99 Then : 上一頁_bt.Enabled = False : 下一頁_bt.Enabled = False : Else : 上一頁_bt.Enabled = False : 下一頁_bt.Enabled = True : End If
+        If NN1 < 99 Then : 上一頁_bt.Enabled = False : 下一頁_bt.Enabled = False : 最前頁_bt.Enabled = False : 最末頁_bt.Enabled = False
+        Else : 上一頁_bt.Enabled = False : 下一頁_bt.Enabled = True : 最前頁_bt.Enabled = False : 最末頁_bt.Enabled = True : End If
 
         ListBox1.Items.Clear() : ListBox2.Items.Clear() : ListBox3.Items.Clear() : ListBox4.Items.Clear()
         If NN1 <= 24 Then
@@ -25,13 +26,39 @@
             For I As Integer = F5 To F6 : ListBox3.Items.Add(PPBB(I)) : Next : For I As Integer = F7 To F8 : ListBox4.Items.Add(PPBB(I)) : Next
         End If
     End Sub
+    Private Sub 最前頁_bt_Click(sender As Object, e As EventArgs) Handles 最前頁_bt.Click
+        ListBox1.Items.Clear() : ListBox2.Items.Clear() : ListBox3.Items.Clear() : ListBox4.Items.Clear()
+        F1 -= (100 * (頁數 - 1)) : F2 -= (100 * (頁數 - 1)) : F3 -= (100 * (頁數 - 1)) : F4 -= (100 * (頁數 - 1)) : F5 -= (100 * (頁數 - 1))
+        F6 -= (100 * (頁數 - 1)) : F7 -= (100 * (頁數 - 1)) : F8 -= (100 * (頁數 - 1))
+        上一頁_bt.Enabled = False : 下一頁_bt.Enabled = True : 最前頁_bt.Enabled = False : 最末頁_bt.Enabled = True
+        For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To F4 : ListBox2.Items.Add(PPBB(I)) : Next
+        For I As Integer = F5 To F6 : ListBox3.Items.Add(PPBB(I)) : Next : For I As Integer = F7 To F8 : ListBox4.Items.Add(PPBB(I)) : Next
+        頁數 = 1
+    End Sub
+    Private Sub 最末頁_bt_Click(sender As Object, e As EventArgs) Handles 最末頁_bt.Click
+        ListBox1.Items.Clear() : ListBox2.Items.Clear() : ListBox3.Items.Clear() : ListBox4.Items.Clear()
+        F1 += (100 * (總頁數 - 頁數)) : F2 += (100 * (總頁數 - 頁數)) : F3 += (100 * (總頁數 - 頁數)) : F4 += (100 * (總頁數 - 頁數)) : F5 += (100 * (總頁數 - 頁數))
+        F6 += (100 * (總頁數 - 頁數)) : F7 += (100 * (總頁數 - 頁數)) : F8 += (100 * (總頁數 - 頁數))
+        上一頁_bt.Enabled = True : 下一頁_bt.Enabled = False : 最前頁_bt.Enabled = True : 最末頁_bt.Enabled = False
+        If NN1 <= F2 Then
+            For I As Integer = F1 To NN1 : ListBox1.Items.Add(PPBB(I)) : Next
+        ElseIf NN1 <= F4 Then
+            For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To NN1 : ListBox2.Items.Add(PPBB(I)) : Next
+        ElseIf NN1 <= F6 Then
+            For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To F4 : ListBox2.Items.Add(PPBB(I)) : Next
+            For I As Integer = F5 To NN1 : ListBox3.Items.Add(PPBB(I)) : Next
+        ElseIf NN1 <= F8 Then
+            For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To F4 : ListBox2.Items.Add(PPBB(I)) : Next
+            For I As Integer = F5 To F6 : ListBox3.Items.Add(PPBB(I)) : Next : For I As Integer = F7 To NN1 : ListBox4.Items.Add(PPBB(I)) : Next
+        End If : 頁數 = 總頁數
+    End Sub
     Private Sub 上一頁_bt_Click(sender As Object, e As EventArgs) Handles 上一頁_bt.Click
         頁數 -= 1 : ListBox1.Items.Clear() : ListBox2.Items.Clear() : ListBox3.Items.Clear() : ListBox4.Items.Clear()
         F1 -= 100 : F2 -= 100 : F3 -= 100 : F4 -= 100 : F5 -= 100 : F6 -= 100 : F7 -= 100 : F8 -= 100
         If 頁數 = 1 Then
-            上一頁_bt.Enabled = False : 下一頁_bt.Enabled = True
+            上一頁_bt.Enabled = False : 下一頁_bt.Enabled = True : 最前頁_bt.Enabled = False : 最末頁_bt.Enabled = True
         ElseIf 頁數 > 1 Then
-            上一頁_bt.Enabled = True : 下一頁_bt.Enabled = True
+            上一頁_bt.Enabled = True : 下一頁_bt.Enabled = True : 最前頁_bt.Enabled = True : 最末頁_bt.Enabled = True
         End If
         For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To F4 : ListBox2.Items.Add(PPBB(I)) : Next
         For I As Integer = F5 To F6 : ListBox3.Items.Add(PPBB(I)) : Next : For I As Integer = F7 To F8 : ListBox4.Items.Add(PPBB(I)) : Next
@@ -40,11 +67,11 @@
         頁數 += 1 : ListBox1.Items.Clear() : ListBox2.Items.Clear() : ListBox3.Items.Clear() : ListBox4.Items.Clear()
         F1 += 100 : F2 += 100 : F3 += 100 : F4 += 100 : F5 += 100 : F6 += 100 : F7 += 100 : F8 += 100
         If 頁數 < 總頁數 Then
-            上一頁_bt.Enabled = True : 下一頁_bt.Enabled = True
+            上一頁_bt.Enabled = True : 下一頁_bt.Enabled = True : 最前頁_bt.Enabled = True : 最末頁_bt.Enabled = True
             For I As Integer = F1 To F2 : ListBox1.Items.Add(PPBB(I)) : Next : For I As Integer = F3 To F4 : ListBox2.Items.Add(PPBB(I)) : Next
             For I As Integer = F5 To F6 : ListBox3.Items.Add(PPBB(I)) : Next : For I As Integer = F7 To F8 : ListBox4.Items.Add(PPBB(I)) : Next
         ElseIf 頁數 = 總頁數 Then
-            上一頁_bt.Enabled = True : 下一頁_bt.Enabled = False
+            上一頁_bt.Enabled = True : 下一頁_bt.Enabled = False : 最前頁_bt.Enabled = True : 最末頁_bt.Enabled = False
             If NN1 <= F2 Then
                 For I As Integer = F1 To NN1 : ListBox1.Items.Add(PPBB(I)) : Next
             ElseIf NN1 <= F4 Then

TENDEN-MES-SYS/量產訂單管理/量產訂單系統/訂單資料匯入_力威.vb

@@ -840,11 +840,11 @@ Public Class 訂單資料匯入_力威
                 Set_日期格式轉換()
 
                 ConnOpen()
-                SQL1 = "SELECT 客戶名稱 FROM 客戶資料 WHERE 客戶名稱 LIKE N'" & Brand_cb.Text & "'"
+                SQL1 = "SELECT 客戶名稱 FROM 客戶資料 WHERE 客戶名稱 LIKE N'" & Brand_cb.Text.Replace("'", "") & "'"
                 CmdSet_For_dr()
                 If dr.Read() Then : Else
                     ConnOpen()
-                    SQL1 = "INSERT INTO 客戶資料 (客戶名稱) VALUES (N'" & Brand_cb.Text & "')"
+                    SQL1 = "INSERT INTO 客戶資料 (客戶名稱) VALUES (N'" & Brand_cb.Text.Replace("'", "") & "')"
                     CmdSet_For_dr() : conn.Close()
                 End If : conn.Close()
                 '-------訂單抬頭--------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -854,7 +854,7 @@ Public Class 訂單資料匯入_力威
                                                     代理編號, 訂貨代理, 總雙數, 總案件數, 公司, 工廠簡稱, 最終運送, 入單型態) 
                          VALUES ('" & 客戶訂單號_tb.Text & "','" & Number_tb.Text & "','" & 訂單類別_tb.Text & "','" & 英科條款_tb.Text & "','" & DTP & "','','','','" & 供應商編號_tb.Text & "',
                                  '" & 版本_tb.Text & "','" & 公司編號_tb.Text & "','" & DTP & "','" & 郵寄方式_tb.Text & "','" & 地址二_tb.Text & "','" & DTP & "','" & DTP & "','" & DTP & "',
-                                 '" & DTP1 & "','" & Brand_cb.Text & "','" & 力威訂單號_tb.Text & "','" & 工廠編號_tb.Text & "','" & 地址1_tb.Text & "','" & 代理編號_cb.Text & "',
+                                 '" & DTP1 & "','" & Brand_cb.Text.Replace("'", "") & "','" & 力威訂單號_tb.Text & "','" & 工廠編號_tb.Text & "','" & 地址1_tb.Text & "','" & 代理編號_cb.Text & "',
                                  '" & 訂貨代理_tb.Text & "','" & 總雙數_tb.Text & "','" & 總案件_tb.Text & "','" & 服務_tb.Text & "','" & FTY_cb.Text & "','" & 最終運送_tb.Text & "', '2')"
                 CmdSet_For_dr() : conn.Close()
                 '-------訂單控制表------------------------------------------------------------------------------------------------------------------------------------------------------------------