20240917備份

MAOJI-ERP-SYS/Module/SQL_Module.vb → MAOJI-ERP-SYS/01、Module/SQL_Module.vb

@@ -1,6 +1,7 @@
 Imports System.Data.SqlClient
+Imports System.IO
 Module SQL_Module
-    Public ConString As String : Public SQL1 As String : Public conn As New SqlConnection : Public cmd As New SqlCommand : Public dr As SqlDataReader : Public da As New SqlDataAdapter
+    Public ConString, SQL1, SQL2 As String : Public conn As New SqlConnection : Public cmd As New SqlCommand : Public dr As SqlDataReader : Public da As New SqlDataAdapter
     Public DTP As String : Public DTP1 As String : Public DTP2 As String : Public DTP3 As String
     Public 登入權限 As String = "姓名, 帳號, 密碼, CC00, CC01, CC02, CC03, CC04, CC05, CC06, CC07, CC08, CC09, CC10, CC11, CC12, CC13, CC14, CC15, CC16, CC17, CC18, CC19, CC20, CC21, CC22, CC23, 
                                  CC24, CC25, CC26, CC27, CC28, CC29, CC30, CC31, CC32, CC33, CC34, CC35, CC36, CC37, CC38, CC39, CC40, CC41, CC42, CC43, CC44, CC45, CC46, CC47, CC48, CC49, CC50, 
@@ -10,7 +11,7 @@ Module SQL_Module
         ConString = "Data Source=" & 登入人IP & ";Initial Catalog=MAO-ORANGE-ERP-SYS;Persist Security Info=True;User ID=B70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
     End Sub
     Friend Sub SQL_連線字串_正式()
-        ConString = "Data Source=" & 登入人IP & ";Initial Catalog=MAO-ORANGE-ERP-SYS;Persist Security Info=True;User ID=B70340;Password=lee0911274990;Max pool size = 200;Connection Timeout=0"
+        ConString = "Data Source=" & 登入人IP & ";Initial Catalog=MAO-ORANGE-ERP-SYS;Persist Security Info=True;User ID=B70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
     End Sub
     Friend Sub ConnOpen()
         conn.Close() : If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
@@ -21,4 +22,8 @@ Module SQL_Module
     Friend Sub CmdSet_For_dr()
         cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
     End Sub
+    Friend Sub CmdSet_For_dr_pic()
+        Dim fs As FileStream : fs = File.OpenRead(PA49) : Dim picb(fs.Length) As Byte : fs.Read(picb, 0, fs.Length) : fs.Close() : cmd.Parameters.Clear()
+        cmd.CommandText = SQL1 : cmd.Parameters.Add("@binary_file", SqlDbType.VarBinary).Value = picb : cmd.Connection = conn : dr = cmd.ExecuteReader
+    End Sub
 End Module

MAOJI-ERP-SYS/Module/SQL_倉儲系統管理.vb → MAOJI-ERP-SYS/01、Module/SQL_倉儲系統管理.vb

@@ -3,15 +3,14 @@
     Friend Sub SQL__物料資料庫清單()
         SQL1 = "SELECT 料號, 頁碼, 品名, 成本, 售價, 件數, 尺寸, 材質, 圖片編碼, 備註, 最低庫存量, 停用 FROM 物料資料庫"
         PA1 = " ORDER BY 料號 DESC"
-        PA2 = " WHERE  料號 LIKE N'%" & PA & "%' OR 頁碼 LIKE N'%" & PA & "%' OR 品名 LIKE N'%" & PA & "%' OR 
+        PA2 = " WHERE  (料號 LIKE N'%" & PA & "%' OR 頁碼 LIKE N'%" & PA & "%' OR 品名 LIKE N'%" & PA & "%' OR 
                            成本 LIKE N'%" & PA & "%' OR 售價 LIKE N'%" & PA & "%' OR 件數 LIKE N'%" & PA & "%' OR 
-                           尺寸 LIKE N'%" & PA & "%' OR 材質 LIKE N'%" & PA & "%' OR 備註 LIKE N'%" & PA & "%'"
+                           尺寸 LIKE N'%" & PA & "%' OR 材質 LIKE N'%" & PA & "%' OR 備註 LIKE N'%" & PA & "%')"
         PA3 = " WHERE  頁碼 LIKE N'%" & PA & "%'"
         ConnOpen()
-        If PA = "" And NU1 = True And NU2 = False Then : SQL1 &= PA1
-        ElseIf PA <> "" And NU1 = True And NU2 = False Then : SQL1 = SQL1 & PA2 & PA1
-        ElseIf PA <> "" And NU1 = False And NU2 = True Then : SQL1 = SQL1 & PA3 & PA1
-        End If
+        If PA = "" And NU1 = True And NU2 = False Then : SQL1 &= " WHERE 料號 NOT LIKE '' " & SQL2 & PA1
+        ElseIf PA <> "" And NU1 = True And NU2 = False Then : SQL1 = SQL1 & PA2 & SQL2 & PA1
+        ElseIf PA <> "" And NU1 = False And NU2 = True Then : SQL1 = SQL1 & PA3 & SQL2 & PA1 : End If
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_未配置圖片的物料清單()

MAOJI-ERP-SYS/Module/SQL_採購系統管理.vb → MAOJI-ERP-SYS/01、Module/SQL_採購系統管理.vb

@@ -2,26 +2,26 @@
     '---------------------供應商資料管理-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL__供應商資料管理清單()
         SQL1 = "SELECT  供應商資料表.編號, 供應商資料表.名稱, 供應商資料表.簡稱, 供應商資料表.負責人, 供應商資料表.負責人電話, 
-                            供應商資料表.公司電話1, 供應商資料表.公司電話2, 供應商資料表.傳真1, 供應商資料表.傳真2, 供應商資料表.地址1, 
-                            供應商資料表.郵遞區號1, 供應商資料表.地址2, 供應商資料表.郵遞區號2, 供應商資料表.聯絡人1, 
-                            供應商資料表.聯絡人電話1, 供應商資料表.聯絡人1MAIL, 供應商資料表.聯1LINE_唯信, 供應商資料表.聯絡人2, 
-                            供應商資料表.聯絡人電話2, 供應商資料表.聯絡人2MAIL, 供應商資料表.聯2LINE_唯信, 供應商資料表.聯絡人3, 
-                            供應商資料表.聯絡人手機3, 供應商資料表.聯絡人3MAIL, 供應商資料表.聯3LINE_唯信, 供應商資料表.統一編號, 
-                            MJ付款方式.付款方式, 供應商資料表.請款日, 供應商資料表.票據日, 供應商資料表.折扣, 供應商資料表.稅率, 
-                            供應商資料表.幣別, 供應商資料表.備註, 供應商資料表.外貿對象 AS 外貿, 供應商資料表.停用
-                    FROM    供應商資料表 INNER JOIN
-                            MJ付款方式 ON 供應商資料表.付款方式 = MJ付款方式.編號"
+                        供應商資料表.公司電話1, 供應商資料表.公司電話2, 供應商資料表.傳真1, 供應商資料表.傳真2, 供應商資料表.地址1, 
+                        供應商資料表.郵遞區號1, 供應商資料表.地址2, 供應商資料表.郵遞區號2, 供應商資料表.聯絡人1, 
+                        供應商資料表.聯絡人電話1, 供應商資料表.聯絡人1MAIL, 供應商資料表.聯1LINE_唯信, 供應商資料表.聯絡人2, 
+                        供應商資料表.聯絡人電話2, 供應商資料表.聯絡人2MAIL, 供應商資料表.聯2LINE_唯信, 供應商資料表.聯絡人3, 
+                        供應商資料表.聯絡人手機3, 供應商資料表.聯絡人3MAIL, 供應商資料表.聯3LINE_唯信, 供應商資料表.統一編號, 
+                        MJ付款方式.付款方式, 供應商資料表.請款日, 供應商資料表.票據日, 供應商資料表.折扣, 供應商資料表.稅率, 
+                        供應商資料表.幣別, 供應商資料表.備註, 供應商資料表.外貿對象 AS 外貿, 供應商資料表.停用
+                FROM    供應商資料表 INNER JOIN
+                        MJ付款方式 ON 供應商資料表.付款方式 = MJ付款方式.編號"
         PA1 = " ORDER BY   供應商資料表.編號 DESC"
-        PA2 = "  WHERE   供應商資料表.編號 LIKE N'%" & PA & "%' OR 供應商資料表.名稱 LIKE N'%" & PA & "%' OR 供應商資料表.簡稱 LIKE N'%" & PA & "%' OR 
-                            供應商資料表.負責人 LIKE N'%" & PA & "%' OR 供應商資料表.負責人電話 LIKE N'%" & PA & "%' OR 供應商資料表.公司電話1 LIKE N'%" & PA & "%' OR 
-                            供應商資料表.公司電話2 LIKE N'%" & PA & "%' OR 供應商資料表.傳真1 LIKE N'%" & PA & "%' OR 供應商資料表.傳真2 LIKE N'%" & PA & "%' OR 
-                            供應商資料表.地址1 LIKE N'%" & PA & "%' OR 供應商資料表.郵遞區號1 LIKE N'%" & PA & "%' OR 供應商資料表.地址2 LIKE N'%" & PA & "%' OR 
-                            供應商資料表.郵遞區號2 LIKE N'%" & PA & "%' OR 供應商資料表.聯絡人1 LIKE N'%" & PA & "%' OR 供應商資料表.聯絡人電話1 LIKE N'%" & PA & "%' OR 
-                            供應商資料表.聯絡人1MAIL LIKE N'%" & PA & "%' OR 供應商資料表.聯1LINE_唯信 LIKE N'%" & PA & "%' OR 供應商資料表.聯絡人2 LIKE N'%" & PA & "%' OR 
-                            供應商資料表.聯絡人電話2 LIKE N'%" & PA & "%' OR 供應商資料表.聯絡人2MAIL LIKE N'%" & PA & "%' OR 供應商資料表.聯2LINE_唯信 LIKE N'%" & PA & "%' OR 
-                            供應商資料表.聯絡人3 LIKE N'%" & PA & "%' OR 供應商資料表.聯絡人手機3 LIKE N'%" & PA & "%' OR 供應商資料表.聯絡人3MAIL LIKE N'%" & PA & "%' OR 
-                            供應商資料表.聯3LINE_唯信 LIKE N'%" & PA & "%' OR 供應商資料表.統一編號 LIKE N'%" & PA & "%' OR MJ付款方式.付款方式 LIKE N'%" & PA & "%' OR 
-                            供應商資料表.備註 LIKE N'%" & PA & "%'"
+        PA2 = "  WHERE   (供應商資料表.編號 LIKE N'%" & PA & "%' OR 供應商資料表.名稱 LIKE N'%" & PA & "%' OR 供應商資料表.簡稱 LIKE N'%" & PA & "%' OR 
+                         供應商資料表.負責人 LIKE N'%" & PA & "%' OR 供應商資料表.負責人電話 LIKE N'%" & PA & "%' OR 供應商資料表.公司電話1 LIKE N'%" & PA & "%' OR 
+                         供應商資料表.公司電話2 LIKE N'%" & PA & "%' OR 供應商資料表.傳真1 LIKE N'%" & PA & "%' OR 供應商資料表.傳真2 LIKE N'%" & PA & "%' OR 
+                         供應商資料表.地址1 LIKE N'%" & PA & "%' OR 供應商資料表.郵遞區號1 LIKE N'%" & PA & "%' OR 供應商資料表.地址2 LIKE N'%" & PA & "%' OR 
+                         供應商資料表.郵遞區號2 LIKE N'%" & PA & "%' OR 供應商資料表.聯絡人1 LIKE N'%" & PA & "%' OR 供應商資料表.聯絡人電話1 LIKE N'%" & PA & "%' OR 
+                         供應商資料表.聯絡人1MAIL LIKE N'%" & PA & "%' OR 供應商資料表.聯1LINE_唯信 LIKE N'%" & PA & "%' OR 供應商資料表.聯絡人2 LIKE N'%" & PA & "%' OR 
+                         供應商資料表.聯絡人電話2 LIKE N'%" & PA & "%' OR 供應商資料表.聯絡人2MAIL LIKE N'%" & PA & "%' OR 供應商資料表.聯2LINE_唯信 LIKE N'%" & PA & "%' OR 
+                         供應商資料表.聯絡人3 LIKE N'%" & PA & "%' OR 供應商資料表.聯絡人手機3 LIKE N'%" & PA & "%' OR 供應商資料表.聯絡人3MAIL LIKE N'%" & PA & "%' OR 
+                         供應商資料表.聯3LINE_唯信 LIKE N'%" & PA & "%' OR 供應商資料表.統一編號 LIKE N'%" & PA & "%' OR MJ付款方式.付款方式 LIKE N'%" & PA & "%' OR 
+                         供應商資料表.備註 LIKE N'%" & PA & "%') " & SQL2
         ConnOpen() : If PA = "" Then : SQL1 &= PA1 : Else : SQL1 = SQL1 & PA2 & PA1 : End If : CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_供應商資料表流水號最後一筆()

MAOJI-ERP-SYS/Module/SQL_總務系統管理.vb → MAOJI-ERP-SYS/01、Module/SQL_總務系統管理.vb

@@ -23,10 +23,8 @@
     Friend Sub SQL_車輛保養紀錄表新增_有圖片()
         ConnOpen()
         SQL1 = "INSERT INTO 車輛保養紀錄表 (流水號, 車牌號碼, 保養日期, 預保日期, 里程數, 圖片) 
-                SELECT '" & 車輛保養紀錄表.流水號_tb.Text & "', '" & 車輛保養紀錄表.車牌號碼_cb.Text & "', '" & DTP1 & "', '" & DTP2 &
-                   "', '" & 車輛保養紀錄表.里程數_nud.Value & "', BULKCOLUMN FROM OPENROWSET (BULK '" & FTP物理位置 & AA(1) & "\" & 車輛保養紀錄表.檔案名稱_tb.Text &
-                   "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
-        CmdSet_For_dr()
+                SELECT '" & 車輛保養紀錄表.流水號_tb.Text & "', '" & 車輛保養紀錄表.車牌號碼_cb.Text & "', '" & DTP1 & "', '" & DTP2 & "', '" & 車輛保養紀錄表.里程數_nud.Value & "', @binary_file"
+        CmdSet_For_dr_pic()
     End Sub
     Friend Sub SQL_車輛保養紀錄表修改_無圖片()
         ConnOpen()
@@ -36,10 +34,9 @@
     End Sub
     Friend Sub SQL_車輛保養紀錄表修改_有圖片()
         ConnOpen()
-        SQL1 = "UPDATE 車輛保養紀錄表 SET 保養日期 = '" & DTP1 & "', 預保日期 = '" & DTP2 & "', 里程數 = '" & 車輛保養紀錄表.里程數_nud.Value &
-                                          "', 圖片 = BULKCOLUMN FROM OPENROWSET (BULK '" & FTP物理位置 & AA(1) & "\" & 車輛保養紀錄表.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
-                WHERE (流水號 = '" & 車輛保養紀錄表.流水號_tb.Text & "')"
-        CmdSet_For_dr()
+        SQL1 = "UPDATE 車輛保養紀錄表 SET 保養日期 = '" & DTP1 & "', 預保日期 = '" & DTP2 & "', 里程數 = '" & 車輛保養紀錄表.里程數_nud.Value & "', 圖片 = @binary_file 
+                WHERE (流水號 LIKE '" & 車輛保養紀錄表.流水號_tb.Text & "')"
+        CmdSet_For_dr_pic()
     End Sub
 End Module
 

MAOJI-ERP-SYS/Module/SQL_資料庫系統管理.vb → MAOJI-ERP-SYS/01、Module/SQL_資料庫系統管理.vb

@@ -8,9 +8,8 @@
     End Sub
     Friend Sub SQL_主管簽名檔新增()
         ConnOpen()
-        SQL1 = "INSERT INTO MJ主管簽名檔管理 (圖片流水號, 簽名檔人名, 簽名檔圖片) SELECT '" & 簽名檔管理.圖檔編號_tb.Text & "', '" & 簽名檔管理.簽名檔持有人_cb.Text & "', " &
-                       "BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP物理位置 & AA(1) & "\" & 簽名檔管理.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE"
-        CmdSet_For_dr()
+        SQL1 = "INSERT INTO MJ主管簽名檔管理 (圖片流水號, 簽名檔人名, 簽名檔圖片) SELECT '" & 簽名檔管理.圖檔編號_tb.Text & "', '" & 簽名檔管理.簽名檔持有人_cb.Text & "', @binary_file"
+        CmdSet_For_dr_pic()
     End Sub
     Friend Sub SQL_主管簽名檔刪除()
         ConnOpen() : SQL1 = "DELETE FROM MJ主管簽名檔管理 WHERE (圖片流水號 = N'" & 簽名檔管理.圖檔編號_tb.Text & "')" : CmdSet_For_dr()
@@ -248,22 +247,6 @@
     Friend Sub SQL_系統使用者刪除()
         ConnOpen() : SQL1 = "DELETE FROM 使用者權限管理表 WHERE (帳號 = '" & 系統使用者管理.帳號_tb.Text & "')" : CmdSet_For_dr()
     End Sub
-    '---------------------FTP資料夾管理-----------------------------------------------------------------------------------------------------------------
-    Friend Sub SQL_FTP資料夾管理新增()
-        ConnOpen()
-        SQL1 = "INSERT INTO FTP資料夾管理 (資料夾名稱, 指定頁面, 備註, 指定) 
-                VALUES (N'" & FTP資料夾管理.資料夾名稱_tb.Text & "',N'" & FTP資料夾管理.指定頁面_tb.Text & "',N'" & FTP資料夾管理.備註_tb.Text & "',N'" & FTP資料夾管理.指定_tb.Text & "')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_FTP資料夾管理修改()
-        ConnOpen()
-        SQL1 = "UPDATE FTP資料夾管理 SET 指定頁面 = N'" & FTP資料夾管理.指定頁面_tb.Text & "', 備註 = N'" & FTP資料夾管理.備註_tb.Text & "', 指定 = N'" & FTP資料夾管理.指定_tb.Text & "' 
-                WHERE (資料夾名稱 = N'" & FTP資料夾管理.資料夾名稱_tb.Text & "')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_FTP資料夾管理刪除()
-        ConnOpen() : SQL1 = "DELETE FROM FTP資料夾管理 WHERE (資料夾名稱 = N'" & FTP資料夾管理.資料夾名稱_tb.Text & "')" : CmdSet_For_dr()
-    End Sub
     '---------------------列印_產品標籤介面-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_列印_產品標籤清單()
         If PA = "維修申請單" Then

MAOJI-ERP-SYS/01、Module/SQL_連線狀態模組1.vb

@@ -0,0 +1,64 @@
+Module SQL_連線狀態模組1
+#Region "——连接测试：避免等待时间过长——"
+    Dim bConnect As Boolean
+    Dim BgWorker1 As New System.ComponentModel.BackgroundWorker
+    Dim ServerIP As String
+    ''' <summary>
+    ''' 测试连接：True-连接成功，False-连接失败
+    ''' 参数[必选]：服务器IP
+    ''' 参数[可选]：等待超时时间（秒）,默认为1.2秒
+    ''' </summary>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Function ConnectTest1(ByVal varServerIP As String, Optional ByVal varTimeout As Decimal = 1.5) As Boolean
+        AddHandler BgWorker1.DoWork, AddressOf BgWorker1_DoWork
+        Dim g As Integer
+        Dim k As Integer
+        If BgWorker1.CancellationPending Then
+            BgWorker1.CancelAsync()
+            '取消BackgroundWorker執行中的工作
+        End If
+        Try
+            If varServerIP = "" Then
+                Exit Function
+            End If
+            ServerIP = varServerIP
+            If varTimeout <= 0 Then
+                varTimeout = 1.5
+            End If
+            k = Int(varTimeout * 10)
+            bConnect = False
+            BgWorker1.WorkerSupportsCancellation = True
+            BgWorker1.RunWorkerAsync()
+            For g = 1 To k '1.2s
+                Threading.Thread.Sleep(100)
+                If bConnect = True Then
+                    ConnectTest1 = True
+                    Exit Function
+                End If
+            Next
+            ConnectTest1 = False
+            BgWorker1.CancelAsync()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Function
+    '--异步动作
+    Private Sub BgWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
+        Call ConnectMSSQLServer()
+    End Sub
+    '--连接数据库
+    Private Function ConnectMSSQLServer() As Boolean
+        Dim sqlConTest As Data.SqlClient.SqlConnection ' 连接   
+        sqlConTest = New Data.SqlClient.SqlConnection
+        sqlConTest.ConnectionString = "Data Source=" + ServerIP + ";Initial Catalog=MAO-ORANGE-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
+        Try
+            sqlConTest.Open()
+            sqlConTest.Close()
+        Catch ex As Exception
+        Finally
+            bConnect = True
+        End Try
+    End Function
+#End Region
+End Module

MAOJI-ERP-SYS/01、Module/SQL_連線狀態模組2.vb

@@ -0,0 +1,65 @@
+Module SQL_連線狀態模組2
+#Region "——连接测试：避免等待时间过长——"
+    Dim bConnect As Boolean
+    Dim BgWorker2 As New System.ComponentModel.BackgroundWorker
+    Dim ServerIP As String
+    ''' <summary>
+    ''' 测试连接：True-连接成功，False-连接失败
+    ''' 参数[必选]：服务器IP
+    ''' 参数[可选]：等待超时时间（秒）,默认为1.2秒
+    ''' </summary>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Function ConnectTest2(ByVal varServerIP As String, Optional ByVal varTimeout As Decimal = 1) As Boolean
+        AddHandler BgWorker2.DoWork, AddressOf BgWorker2_DoWork
+        Dim g As Integer
+        Dim k As Integer
+        If BgWorker2.CancellationPending Then
+            BgWorker2.CancelAsync()
+            '取消BackgroundWorker執行中的工作
+        End If
+        Try
+            If varServerIP = "" Then
+                Exit Function
+            End If
+            ServerIP = varServerIP
+            If varTimeout <= 0 Then
+                varTimeout = 1.5
+            End If
+            k = Int(varTimeout * 10)
+            bConnect = False
+            BgWorker2.WorkerSupportsCancellation = True
+            BgWorker2.RunWorkerAsync()
+            For g = 1 To k '1.2s
+                Threading.Thread.Sleep(100)
+                If bConnect = True Then
+                    ConnectTest2 = True
+                    Exit Function
+                End If
+            Next
+            ConnectTest2 = False
+            BgWorker2.CancelAsync()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Function
+    '--异步动作
+    Private Sub BgWorker2_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
+        Call ConnectMSSQLServer()
+    End Sub
+    '--连接数据库
+    Private Function ConnectMSSQLServer() As Boolean
+        Dim sqlConTest As Data.SqlClient.SqlConnection ' 连接   
+        sqlConTest = New Data.SqlClient.SqlConnection
+        sqlConTest.ConnectionString = "Data Source=" + ServerIP + ";Initial Catalog=MAO-ORANGE-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
+        Try
+            sqlConTest.Open()
+            sqlConTest.Close()
+        Catch ex As Exception
+        Finally
+            bConnect = True
+        End Try
+    End Function
+#End Region
+
+End Module

MAOJI-ERP-SYS/Module/全域變數.vb → MAOJI-ERP-SYS/01、Module/全域變數.vb

@@ -4,21 +4,19 @@
     Public 版本號 As String : Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public FTP物理位置 As String
     Public AA(99) As String : Public BB(99) As Boolean : Public CC(99) As Boolean : Public 登入判斷 As Boolean : Public 內外網 As Boolean : Public FTP關閉 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2021022301"
+    Public 版本 As String = "2024091701"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 列印用SQL As String = "" : Public 列印用SQL2 As String : Public 公司編號 As String : Public 公司電話 As String : Public 公司統編 As String : Public 公司地址 As String
+    Public 列印用SQL, 列印用SQL2, 公司編號, 公司電話, 公司統編, 公司地址 As String
     Public 關鍵字編號 As String
 
-    Public PA As String = "" : Public PA1 As String = "" : Public PA2 As String = "" : Public PA3 As String = "" : Public PA4 As String = "" : Public PA5 As String = "" : Public PA6 As String = ""
-    Public PA7 As String = "" : Public PA8 As String = "" : Public PA9 As String = "" : Public PA10 As String = "" : Public PA11 As String = "" : Public PA12 As String = "" : Public PA13 As String = ""
-    Public PA14 As String = "" : Public PA15 As String = "" : Public PA16 As String = "" : Public PA17 As String = "" : Public PA18 As String = "" : Public PA19 As String = ""
+    Public PA, PA1, PA2, PA3, PA4, PA5, PA6, PA7, PA8, PA9, PA10, PA11, PA12, PA13, PA14, PA15, PA16, PA17, PA18, PA19, PA49 As String
 
-    Public 布林1 As Boolean : Public 布林2 As Boolean : Public 布林3 As Boolean : Public 布林4 As Boolean
+    Public 布林1, 布林2, 布林3, 布林4 As Boolean
 
-    Public NU1 As Double : Public NU2 As Double : Public NU3 As Double : Public NU4 As Double : Public NU5 As Double
+    Public NU1, NU2, NU3, NU4, NU5 As Double
 
     Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
-    Public KKKJJ As String : Public KKKJJ2 As String : Public KKKJJ3 As String
+    Public KKKJJ, KKKJJ2, KKKJJ3 As String
 
     Public 收付應沖金額 As Double : Public 財務單申請狀態 As String : Public 收付對應財務單號 As String : Public 收付對應客戶供應商編號 As String
     Public Class MyModule1

MAOJI-ERP-SYS/人事系統管理/員工ID卡系統配置設定.Designer.vb → MAOJI-ERP-SYS/02、人事系統管理/員工ID卡系統配置設定.Designer.vb

@@ -36,17 +36,19 @@ Partial Class 員工ID卡系統配置設定
         '
         '卡片配對_bt
         '
+        Me.卡片配對_bt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.卡片配對_bt.Font = New System.Drawing.Font("微軟正黑體", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.卡片配對_bt.Location = New System.Drawing.Point(13, 35)
+        Me.卡片配對_bt.Location = New System.Drawing.Point(251, 1)
         Me.卡片配對_bt.Name = "卡片配對_bt"
-        Me.卡片配對_bt.Size = New System.Drawing.Size(515, 43)
+        Me.卡片配對_bt.Size = New System.Drawing.Size(152, 48)
         Me.卡片配對_bt.TabIndex = 733
         Me.卡片配對_bt.Text = "卡片配對"
         Me.卡片配對_bt.UseVisualStyleBackColor = True
         '
         'ID卡號_tb
         '
-        Me.ID卡號_tb.Location = New System.Drawing.Point(411, 6)
+        Me.ID卡號_tb.Location = New System.Drawing.Point(134, 26)
         Me.ID卡號_tb.Name = "ID卡號_tb"
         Me.ID卡號_tb.Size = New System.Drawing.Size(117, 23)
         Me.ID卡號_tb.TabIndex = 732
@@ -54,7 +56,7 @@ Partial Class 員工ID卡系統配置設定
         'Label4
         '
         Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(367, 9)
+        Me.Label4.Location = New System.Drawing.Point(134, 7)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(43, 16)
         Me.Label4.TabIndex = 731
@@ -62,15 +64,15 @@ Partial Class 員工ID卡系統配置設定
         '
         '帳號_tb
         '
-        Me.帳號_tb.Location = New System.Drawing.Point(175, 6)
+        Me.帳號_tb.Location = New System.Drawing.Point(35, 26)
         Me.帳號_tb.Name = "帳號_tb"
-        Me.帳號_tb.Size = New System.Drawing.Size(186, 23)
+        Me.帳號_tb.Size = New System.Drawing.Size(96, 23)
         Me.帳號_tb.TabIndex = 730
         '
         'Label1
         '
         Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(143, 9)
+        Me.Label1.Location = New System.Drawing.Point(3, 29)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(31, 16)
         Me.Label1.TabIndex = 729
@@ -78,7 +80,7 @@ Partial Class 員工ID卡系統配置設定
         '
         '姓名_tb
         '
-        Me.姓名_tb.Location = New System.Drawing.Point(41, 6)
+        Me.姓名_tb.Location = New System.Drawing.Point(35, 3)
         Me.姓名_tb.Name = "姓名_tb"
         Me.姓名_tb.Size = New System.Drawing.Size(96, 23)
         Me.姓名_tb.TabIndex = 728
@@ -86,7 +88,7 @@ Partial Class 員工ID卡系統配置設定
         'Label3
         '
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(10, 9)
+        Me.Label3.Location = New System.Drawing.Point(4, 6)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(31, 16)
         Me.Label3.TabIndex = 727
@@ -96,20 +98,24 @@ Partial Class 員工ID卡系統配置設定
         '
         DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.使用者清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.使用者清單_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.使用者清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.使用者清單_dgv.BackgroundColor = System.Drawing.Color.White
         Me.使用者清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.使用者清單_dgv.Location = New System.Drawing.Point(13, 84)
+        Me.使用者清單_dgv.Location = New System.Drawing.Point(3, 52)
         Me.使用者清單_dgv.Name = "使用者清單_dgv"
         Me.使用者清單_dgv.RowHeadersWidth = 5
         Me.使用者清單_dgv.RowTemplate.Height = 24
-        Me.使用者清單_dgv.Size = New System.Drawing.Size(515, 513)
+        Me.使用者清單_dgv.Size = New System.Drawing.Size(401, 548)
         Me.使用者清單_dgv.TabIndex = 726
         '
         '員工ID卡系統配置設定
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(539, 603)
+        Me.ClientSize = New System.Drawing.Size(408, 603)
         Me.Controls.Add(Me.卡片配對_bt)
         Me.Controls.Add(Me.ID卡號_tb)
         Me.Controls.Add(Me.Label4)
@@ -119,7 +125,7 @@ Partial Class 員工ID卡系統配置設定
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.使用者清單_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "員工ID卡系統配置設定"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "員工ID卡系統配置設定"

MAOJI-ERP-SYS/人事系統管理/員工資料表.Designer.vb → MAOJI-ERP-SYS/02、人事系統管理/員工資料表.Designer.vb

@@ -23,7 +23,7 @@ Partial Class 員工資料表
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.可全選_ch = New System.Windows.Forms.CheckBox()
         Me.負責區域編號_tb = New System.Windows.Forms.TextBox()
         Me.職別編號_tb = New System.Windows.Forms.TextBox()
@@ -455,18 +455,19 @@ Partial Class 員工資料表
         '
         '員工資料表_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.員工資料表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.員工資料表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
         Me.員工資料表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.員工資料表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.員工資料表_dgv.BackgroundColor = System.Drawing.Color.White
         Me.員工資料表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.員工資料表_dgv.Location = New System.Drawing.Point(10, 113)
+        Me.員工資料表_dgv.Location = New System.Drawing.Point(4, 113)
         Me.員工資料表_dgv.Name = "員工資料表_dgv"
         Me.員工資料表_dgv.RowHeadersWidth = 5
         Me.員工資料表_dgv.RowTemplate.Height = 24
-        Me.員工資料表_dgv.Size = New System.Drawing.Size(1225, 492)
+        Me.員工資料表_dgv.Size = New System.Drawing.Size(1238, 492)
         Me.員工資料表_dgv.TabIndex = 987
         '
         'ContextMenuStrip1
@@ -556,8 +557,6 @@ Partial Class 員工資料表
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1249, 611)
         Me.Controls.Add(Me.可全選_ch)
-        Me.Controls.Add(Me.負責區域編號_tb)
-        Me.Controls.Add(Me.職別編號_tb)
         Me.Controls.Add(Me.模式一_bt)
         Me.Controls.Add(Me.模式二_bt)
         Me.Controls.Add(Me.單一資料存檔_bt)
@@ -595,6 +594,8 @@ Partial Class 員工資料表
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.編號_tb)
         Me.Controls.Add(Me.員工資料表_dgv)
+        Me.Controls.Add(Me.負責區域編號_tb)
+        Me.Controls.Add(Me.職別編號_tb)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "員工資料表"

MAOJI-ERP-SYS/人事系統管理/員工資料表.vb → MAOJI-ERP-SYS/02、人事系統管理/員工資料表.vb

@@ -90,7 +90,7 @@ Public Class 員工資料表
         'DataGridView1貼上資料後去除雙引號()
     End Sub
 
-    Private Sub 員工資料表_Load(sender As Object, e As EventArgs)
+    Private Sub 員工資料表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         編號_tb.Enabled = False : 職別編號_tb.Visible = False : 負責區域編號_tb.Visible = False : 模式一_bt.Enabled = False : 模式二_bt.Enabled = True
         If gUserName = "李協叡" Then : 資料刪除ToolStripMenuItem.Enabled = True : Else : 資料刪除ToolStripMenuItem.Enabled = False : End If
@@ -115,7 +115,7 @@ Public Class 員工資料表
             DataGridView1多行列貼上()
         End If
     End Sub
-    Private Sub Button8_Click(sender As Object, e As EventArgs)
+    Private Sub 模式一_bt_Click(sender As Object, e As EventArgs) Handles 模式一_bt.Click
         模式一_bt.Enabled = False : 模式二_bt.Enabled = True
         員工資料表_dgv.Columns(15).Visible = False : 員工資料表_dgv.Columns(16).Visible = False
         員工資料表_dgv.Columns(1).ReadOnly = True : 員工資料表_dgv.Columns(2).ReadOnly = True : 員工資料表_dgv.Columns(3).ReadOnly = True : 員工資料表_dgv.Columns(4).ReadOnly = True
@@ -123,7 +123,7 @@ Public Class 員工資料表
         員工資料表_dgv.Columns(9).ReadOnly = True : 員工資料表_dgv.Columns(10).ReadOnly = True : 員工資料表_dgv.Columns(11).ReadOnly = True : 員工資料表_dgv.Columns(12).ReadOnly = True
         員工資料表_dgv.Columns(13).ReadOnly = True : 員工資料表_dgv.Columns(14).ReadOnly = True
     End Sub
-    Private Sub Button7_Click(sender As Object, e As EventArgs)
+    Private Sub 模式二_bt_Click(sender As Object, e As EventArgs) Handles 模式二_bt.Click
         模式一_bt.Enabled = True : 模式二_bt.Enabled = False
         員工資料表_dgv.Columns(15).Visible = True : 員工資料表_dgv.Columns(16).Visible = True
         員工資料表_dgv.Columns(1).ReadOnly = False : 員工資料表_dgv.Columns(2).ReadOnly = False : 員工資料表_dgv.Columns(3).ReadOnly = False : 員工資料表_dgv.Columns(4).ReadOnly = False
@@ -131,17 +131,17 @@ Public Class 員工資料表
         員工資料表_dgv.Columns(9).ReadOnly = False : 員工資料表_dgv.Columns(10).ReadOnly = False : 員工資料表_dgv.Columns(11).ReadOnly = False : 員工資料表_dgv.Columns(12).ReadOnly = False
         員工資料表_dgv.Columns(13).ReadOnly = False : 員工資料表_dgv.Columns(14).ReadOnly = False
     End Sub
-    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs)
+    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles 可全選_ch.Click
         If 可全選_ch.Checked = False Then : 可全選_ch.Checked = False : 員工資料表_dgv.EditMode = DataGridViewEditMode.EditOnEnter
         Else : 可全選_ch.Checked = True : 員工資料表_dgv.EditMode = DataGridViewEditMode.EditOnKeystrokeOrF2 : End If
     End Sub
-    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs)
-        PA = 職別_cb.Text : SQL_職別查詢() : If dr.Read() Then : 職別編號_tb.Text = dr("編號") : End If : conn.Close() : PA = ""
-    End Sub
-    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs)
+    Private Sub 負責區域_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 負責區域_cb.SelectedIndexChanged
         PA = 負責區域_cb.Text : SQL_負責區域查詢() : If dr.Read() Then : 負責區域編號_tb.Text = dr("編號") : End If : conn.Close() : PA = ""
     End Sub
-    Private Sub Button3_Click(sender As Object, e As EventArgs)
+    Private Sub 職別_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 職別_cb.SelectedIndexChanged
+        PA = 職別_cb.Text : SQL_職別查詢() : If dr.Read() Then : 職別編號_tb.Text = dr("編號") : End If : conn.Close() : PA = ""
+    End Sub
+    Private Sub 關鍵字查詢_bt_Click(sender As Object, e As EventArgs) Handles 關鍵字查詢_bt.Click
         PA = InputBox("請輸入要查詢的關鍵字") : Set_員工清單() : PA = ""
     End Sub
     Private Sub Set_日期格式轉換()
@@ -183,18 +183,18 @@ Public Class 員工資料表
             SQL_員工資料表修改()
         End If
     End Sub
-    Private Sub Button6_Click(sender As Object, e As EventArgs)
+    Private Sub 新增一筆空白資料_bt_Click(sender As Object, e As EventArgs) Handles 新增一筆空白資料_bt.Click
         存檔1() : 新增1()
         性別_cb.Text = "NA" : ComboBox2下拉表單資料載入() : ComboBox3下拉表單資料載入()
         名稱_tb.Text = "" : 身分證_tb.Text = "" : 地址_tb.Text = "" : 手機_tb.Text = "" : 配偶_tb.Text = "" : 配偶手機_tb.Text = ""
         住家電話_tb.Text = "" : 薪資_tb.Text = "" : LINEID_tb.Text = "" : 職別編號_tb.Text = "" : 負責區域編號_tb.Text = ""
         新增2() : Set_員工清單()
     End Sub
-    Private Sub Button4_Click(sender As Object, e As EventArgs)
+    Private Sub 單一資料存檔_bt_Click(sender As Object, e As EventArgs) Handles 單一資料存檔_bt.Click
         If 編號_tb.Text = "" Then : 新增1() : 新增2() : End If
         存檔2() : Set_員工清單() : MsgBox("資料存檔完畢 。")
     End Sub
-    Private Sub Button1_Click(sender As Object, e As EventArgs)
+    Private Sub 整體清單存檔_bt_Click(sender As Object, e As EventArgs) Handles 整體清單存檔_bt.Click
         If 模式二_bt.Enabled = True Then : MsgBox("整體存檔功能使用前請切換至模式二，並注意清單最後兩排資料的編碼原則，如不熟悉此操作規則請使用模式一作業。")
         Else : 存檔1() : MsgBox("資料存檔完畢 。") : End If
     End Sub
@@ -223,7 +223,4 @@ Public Class 員工資料表
     Private Sub 重新讀取清單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新讀取清單ToolStripMenuItem.Click
         Set_員工清單()
     End Sub
-    Private Sub 資料刪除ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 資料刪除ToolStripMenuItem.Click
-
-    End Sub
 End Class

MAOJI-ERP-SYS/總務系統管理/車輛保養紀錄表.Designer.vb → MAOJI-ERP-SYS/03、總務系統管理/車輛保養紀錄表.Designer.vb

@@ -22,24 +22,9 @@ Partial Class 車輛保養紀錄表
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        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.逆時鐘90度_bt = New System.Windows.Forms.Button()
-        Me.順時鐘90度_bt = New System.Windows.Forms.Button()
         Me.流水號_tb = New System.Windows.Forms.TextBox()
-        Me.刪除資料_bt = New System.Windows.Forms.Button()
-        Me.修改資料_bt = New System.Windows.Forms.Button()
-        Me.新增資料_bt = New System.Windows.Forms.Button()
-        Me.Label8 = New System.Windows.Forms.Label()
-        Me.Label2 = New System.Windows.Forms.Label()
-        Me.讀取資料夾路徑_bt = New System.Windows.Forms.Button()
         Me.檔名讀取_tb = New System.Windows.Forms.TextBox()
         Me.檔案名稱_tb = New System.Windows.Forms.TextBox()
-        Me.Label6 = New System.Windows.Forms.Label()
-        Me.本機資料夾_wb = New System.Windows.Forms.WebBrowser()
-        Me.FTP資料夾_wb = New System.Windows.Forms.WebBrowser()
         Me.保養日期_dtp = New System.Windows.Forms.DateTimePicker()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.里程數_nud = New System.Windows.Forms.NumericUpDown()
@@ -49,159 +34,40 @@ Partial Class 車輛保養紀錄表
         Me.紀錄清單_dgv = New System.Windows.Forms.DataGridView()
         Me.車牌號碼_cb = New System.Windows.Forms.ComboBox()
         Me.Label15 = New System.Windows.Forms.Label()
-        Me.Label9 = New System.Windows.Forms.Label()
-        Me.報告圖_pb = New System.Windows.Forms.PictureBox()
         Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
         Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
+        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.逆時鐘90度_bt = New System.Windows.Forms.Button()
+        Me.順時鐘90度_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.讀取資料夾路徑_bt = New System.Windows.Forms.Button()
+        Me.報告圖_pb = New System.Windows.Forms.PictureBox()
+        Me.開啟檔案 = New System.Windows.Forms.OpenFileDialog()
         CType(Me.里程數_nud, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.紀錄清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.報告圖_pb, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
-        '復原_bt
-        '
-        Me.復原_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.復原_bt.Location = New System.Drawing.Point(669, 35)
-        Me.復原_bt.Name = "復原_bt"
-        Me.復原_bt.Size = New System.Drawing.Size(60, 23)
-        Me.復原_bt.TabIndex = 1159
-        Me.復原_bt.Text = "復原"
-        Me.復原_bt.UseVisualStyleBackColor = True
-        '
-        '放大_bt
-        '
-        Me.放大_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.放大_bt.Location = New System.Drawing.Point(669, 10)
-        Me.放大_bt.Name = "放大_bt"
-        Me.放大_bt.Size = New System.Drawing.Size(60, 23)
-        Me.放大_bt.TabIndex = 1158
-        Me.放大_bt.Text = "放大"
-        Me.放大_bt.UseVisualStyleBackColor = True
-        '
-        '垂直翻轉_bt
-        '
-        Me.垂直翻轉_bt.ForeColor = System.Drawing.Color.Blue
-        Me.垂直翻轉_bt.Location = New System.Drawing.Point(587, 35)
-        Me.垂直翻轉_bt.Name = "垂直翻轉_bt"
-        Me.垂直翻轉_bt.Size = New System.Drawing.Size(80, 23)
-        Me.垂直翻轉_bt.TabIndex = 1157
-        Me.垂直翻轉_bt.Text = "垂直翻轉"
-        Me.垂直翻轉_bt.UseVisualStyleBackColor = True
-        '
-        '水平翻轉_bt
-        '
-        Me.水平翻轉_bt.ForeColor = System.Drawing.Color.Blue
-        Me.水平翻轉_bt.Location = New System.Drawing.Point(587, 10)
-        Me.水平翻轉_bt.Name = "水平翻轉_bt"
-        Me.水平翻轉_bt.Size = New System.Drawing.Size(80, 23)
-        Me.水平翻轉_bt.TabIndex = 1156
-        Me.水平翻轉_bt.Text = "水平翻轉"
-        Me.水平翻轉_bt.UseVisualStyleBackColor = True
-        '
-        '逆時鐘90度_bt
-        '
-        Me.逆時鐘90度_bt.ForeColor = System.Drawing.Color.Blue
-        Me.逆時鐘90度_bt.Location = New System.Drawing.Point(468, 35)
-        Me.逆時鐘90度_bt.Name = "逆時鐘90度_bt"
-        Me.逆時鐘90度_bt.Size = New System.Drawing.Size(117, 23)
-        Me.逆時鐘90度_bt.TabIndex = 1155
-        Me.逆時鐘90度_bt.Text = "逆時鐘90度旋轉"
-        Me.逆時鐘90度_bt.UseVisualStyleBackColor = True
-        '
-        '順時鐘90度_bt
-        '
-        Me.順時鐘90度_bt.ForeColor = System.Drawing.Color.Blue
-        Me.順時鐘90度_bt.Location = New System.Drawing.Point(468, 10)
-        Me.順時鐘90度_bt.Name = "順時鐘90度_bt"
-        Me.順時鐘90度_bt.Size = New System.Drawing.Size(117, 23)
-        Me.順時鐘90度_bt.TabIndex = 1154
-        Me.順時鐘90度_bt.Text = "順時鐘90度旋轉"
-        Me.順時鐘90度_bt.UseVisualStyleBackColor = True
-        '
         '流水號_tb
         '
-        Me.流水號_tb.Location = New System.Drawing.Point(606, 105)
+        Me.流水號_tb.Location = New System.Drawing.Point(315, 94)
         Me.流水號_tb.Name = "流水號_tb"
-        Me.流水號_tb.Size = New System.Drawing.Size(157, 23)
+        Me.流水號_tb.Size = New System.Drawing.Size(172, 23)
         Me.流水號_tb.TabIndex = 1153
         '
-        '刪除資料_bt
-        '
-        Me.刪除資料_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.刪除資料_bt.ForeColor = System.Drawing.Color.Red
-        Me.刪除資料_bt.Location = New System.Drawing.Point(413, 9)
-        Me.刪除資料_bt.Name = "刪除資料_bt"
-        Me.刪除資料_bt.Size = New System.Drawing.Size(53, 50)
-        Me.刪除資料_bt.TabIndex = 1152
-        Me.刪除資料_bt.Text = "刪除資料"
-        Me.刪除資料_bt.UseVisualStyleBackColor = True
-        '
-        '修改資料_bt
-        '
-        Me.修改資料_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.修改資料_bt.ForeColor = System.Drawing.Color.Green
-        Me.修改資料_bt.Location = New System.Drawing.Point(359, 9)
-        Me.修改資料_bt.Name = "修改資料_bt"
-        Me.修改資料_bt.Size = New System.Drawing.Size(53, 50)
-        Me.修改資料_bt.TabIndex = 1151
-        Me.修改資料_bt.Text = "儲存"
-        Me.修改資料_bt.UseVisualStyleBackColor = True
-        '
-        '新增資料_bt
-        '
-        Me.新增資料_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        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(305, 9)
-        Me.新增資料_bt.Name = "新增資料_bt"
-        Me.新增資料_bt.Size = New System.Drawing.Size(53, 50)
-        Me.新增資料_bt.TabIndex = 1150
-        Me.新增資料_bt.Text = "新增資料"
-        Me.新增資料_bt.UseVisualStyleBackColor = True
-        '
-        'Label8
-        '
-        Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label8.AutoSize = True
-        Me.Label8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label8.ForeColor = System.Drawing.Color.Red
-        Me.Label8.Location = New System.Drawing.Point(1543, 8)
-        Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(338, 48)
-        Me.Label8.TabIndex = 1148
-        Me.Label8.Text = "1、將我的電腦內的資料拖曳到伺服器FTP文件夾。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "2、在我的電腦檔案顯示處將要上傳的檔案拖曳到檔案名稱處。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "3、確認單據內容、檔案名稱資料無誤後方可按確認入庫" &
-    "。"
-        '
-        'Label2
-        '
-        Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label2.AutoSize = True
-        Me.Label2.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label2.Location = New System.Drawing.Point(1443, 5)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(86, 24)
-        Me.Label2.TabIndex = 1147
-        Me.Label2.Text = "我的電腦"
-        '
-        '讀取資料夾路徑_bt
-        '
-        Me.讀取資料夾路徑_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.讀取資料夾路徑_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.讀取資料夾路徑_bt.ForeColor = System.Drawing.Color.Blue
-        Me.讀取資料夾路徑_bt.Location = New System.Drawing.Point(1440, 29)
-        Me.讀取資料夾路徑_bt.Name = "讀取資料夾路徑_bt"
-        Me.讀取資料夾路徑_bt.Size = New System.Drawing.Size(97, 30)
-        Me.讀取資料夾路徑_bt.TabIndex = 1146
-        Me.讀取資料夾路徑_bt.Text = "讀取料夾路徑"
-        Me.讀取資料夾路徑_bt.UseVisualStyleBackColor = True
-        '
         '檔名讀取_tb
         '
         Me.檔名讀取_tb.AllowDrop = True
         Me.檔名讀取_tb.ForeColor = System.Drawing.Color.Black
-        Me.檔名讀取_tb.Location = New System.Drawing.Point(769, 105)
+        Me.檔名讀取_tb.Location = New System.Drawing.Point(315, 123)
         Me.檔名讀取_tb.Multiline = True
         Me.檔名讀取_tb.Name = "檔名讀取_tb"
-        Me.檔名讀取_tb.Size = New System.Drawing.Size(25, 23)
+        Me.檔名讀取_tb.Size = New System.Drawing.Size(172, 23)
         Me.檔名讀取_tb.TabIndex = 1145
         '
         '檔案名稱_tb
@@ -209,47 +75,16 @@ Partial Class 車輛保養紀錄表
         Me.檔案名稱_tb.AllowDrop = True
         Me.檔案名稱_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.檔案名稱_tb.ForeColor = System.Drawing.Color.Black
-        Me.檔案名稱_tb.Location = New System.Drawing.Point(1491, 771)
+        Me.檔案名稱_tb.Location = New System.Drawing.Point(302, 265)
         Me.檔案名稱_tb.Name = "檔案名稱_tb"
         Me.檔案名稱_tb.Size = New System.Drawing.Size(391, 23)
         Me.檔案名稱_tb.TabIndex = 1143
         '
-        'Label6
-        '
-        Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label6.AutoSize = True
-        Me.Label6.ForeColor = System.Drawing.Color.Red
-        Me.Label6.Location = New System.Drawing.Point(1444, 797)
-        Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(423, 16)
-        Me.Label6.TabIndex = 1142
-        Me.Label6.Text = "如檔案無法拖曳至伺服器FTP文件夾，請修改檔案名稱不要帶有中文字或是符號"
-        '
-        '本機資料夾_wb
-        '
-        Me.本機資料夾_wb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.本機資料夾_wb.Location = New System.Drawing.Point(1440, 65)
-        Me.本機資料夾_wb.MinimumSize = New System.Drawing.Size(20, 20)
-        Me.本機資料夾_wb.Name = "本機資料夾_wb"
-        Me.本機資料夾_wb.Size = New System.Drawing.Size(442, 703)
-        Me.本機資料夾_wb.TabIndex = 1141
-        Me.本機資料夾_wb.Url = New System.Uri("", System.UriKind.Relative)
-        '
-        'FTP資料夾_wb
-        '
-        Me.FTP資料夾_wb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.FTP資料夾_wb.Location = New System.Drawing.Point(1440, 816)
-        Me.FTP資料夾_wb.MinimumSize = New System.Drawing.Size(20, 20)
-        Me.FTP資料夾_wb.Name = "FTP資料夾_wb"
-        Me.FTP資料夾_wb.Size = New System.Drawing.Size(442, 150)
-        Me.FTP資料夾_wb.TabIndex = 1140
-        Me.FTP資料夾_wb.Url = New System.Uri("", System.UriKind.Relative)
-        '
         '保養日期_dtp
         '
-        Me.保養日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.保養日期_dtp.Location = New System.Drawing.Point(209, 10)
+        Me.保養日期_dtp.CustomFormat = "yyyy/MM/dd"
+        Me.保養日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.保養日期_dtp.Location = New System.Drawing.Point(201, 3)
         Me.保養日期_dtp.Name = "保養日期_dtp"
         Me.保養日期_dtp.Size = New System.Drawing.Size(90, 23)
         Me.保養日期_dtp.TabIndex = 1138
@@ -259,7 +94,7 @@ Partial Class 車輛保養紀錄表
         Me.Label1.AutoSize = True
         Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label1.Location = New System.Drawing.Point(156, 14)
+        Me.Label1.Location = New System.Drawing.Point(148, 7)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(55, 16)
         Me.Label1.TabIndex = 1139
@@ -267,7 +102,7 @@ Partial Class 車輛保養紀錄表
         '
         '里程數_nud
         '
-        Me.里程數_nud.Location = New System.Drawing.Point(209, 37)
+        Me.里程數_nud.Location = New System.Drawing.Point(201, 30)
         Me.里程數_nud.Maximum = New Decimal(New Integer() {10000000, 0, 0, 0})
         Me.里程數_nud.Name = "里程數_nud"
         Me.里程數_nud.Size = New System.Drawing.Size(90, 23)
@@ -278,7 +113,7 @@ Partial Class 車輛保養紀錄表
         'Label13
         '
         Me.Label13.AutoSize = True
-        Me.Label13.Location = New System.Drawing.Point(161, 40)
+        Me.Label13.Location = New System.Drawing.Point(153, 33)
         Me.Label13.Name = "Label13"
         Me.Label13.Size = New System.Drawing.Size(43, 16)
         Me.Label13.TabIndex = 1136
@@ -286,8 +121,9 @@ Partial Class 車輛保養紀錄表
         '
         '預保日期_dtp
         '
-        Me.預保日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.預保日期_dtp.Location = New System.Drawing.Point(65, 36)
+        Me.預保日期_dtp.CustomFormat = "yyyy/MM/dd"
+        Me.預保日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.預保日期_dtp.Location = New System.Drawing.Point(57, 29)
         Me.預保日期_dtp.Name = "預保日期_dtp"
         Me.預保日期_dtp.Size = New System.Drawing.Size(90, 23)
         Me.預保日期_dtp.TabIndex = 1134
@@ -297,7 +133,7 @@ Partial Class 車輛保養紀錄表
         Me.Label20.AutoSize = True
         Me.Label20.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label20.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label20.Location = New System.Drawing.Point(12, 40)
+        Me.Label20.Location = New System.Drawing.Point(4, 33)
         Me.Label20.Name = "Label20"
         Me.Label20.Size = New System.Drawing.Size(55, 16)
         Me.Label20.TabIndex = 1135
@@ -308,19 +144,20 @@ Partial Class 車輛保養紀錄表
         Me.紀錄清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.紀錄清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.紀錄清單_dgv.BackgroundColor = System.Drawing.Color.White
         Me.紀錄清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.紀錄清單_dgv.Location = New System.Drawing.Point(12, 65)
+        Me.紀錄清單_dgv.Location = New System.Drawing.Point(3, 55)
         Me.紀錄清單_dgv.Name = "紀錄清單_dgv"
         Me.紀錄清單_dgv.RowHeadersWidth = 5
         Me.紀錄清單_dgv.RowTemplate.Height = 24
-        Me.紀錄清單_dgv.Size = New System.Drawing.Size(287, 901)
+        Me.紀錄清單_dgv.Size = New System.Drawing.Size(287, 556)
         Me.紀錄清單_dgv.TabIndex = 1133
         '
         '車牌號碼_cb
         '
         Me.車牌號碼_cb.ForeColor = System.Drawing.Color.Blue
         Me.車牌號碼_cb.FormattingEnabled = True
-        Me.車牌號碼_cb.Location = New System.Drawing.Point(66, 9)
+        Me.車牌號碼_cb.Location = New System.Drawing.Point(58, 2)
         Me.車牌號碼_cb.Name = "車牌號碼_cb"
         Me.車牌號碼_cb.Size = New System.Drawing.Size(89, 24)
         Me.車牌號碼_cb.TabIndex = 1131
@@ -329,21 +166,131 @@ Partial Class 車輛保養紀錄表
         '
         Me.Label15.AutoSize = True
         Me.Label15.ForeColor = System.Drawing.Color.Blue
-        Me.Label15.Location = New System.Drawing.Point(12, 12)
+        Me.Label15.Location = New System.Drawing.Point(4, 5)
         Me.Label15.Name = "Label15"
         Me.Label15.Size = New System.Drawing.Size(55, 16)
         Me.Label15.TabIndex = 1132
         Me.Label15.Text = "車牌號碼"
         '
-        'Label9
+        'SaveFileDialog1
+        '
+        Me.SaveFileDialog1.DefaultExt = "jpg"
+        Me.SaveFileDialog1.SupportMultiDottedExtensions = True
+        Me.SaveFileDialog1.Title = "指定檔案名稱與選擇檔案路徑"
         '
-        Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label9.AutoSize = True
-        Me.Label9.Location = New System.Drawing.Point(1437, 774)
-        Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(55, 16)
-        Me.Label9.TabIndex = 1144
-        Me.Label9.Text = "檔案名稱"
+        '復原_bt
+        '
+        Me.復原_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.renew
+        Me.復原_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.復原_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.復原_bt.Location = New System.Drawing.Point(830, 3)
+        Me.復原_bt.Name = "復原_bt"
+        Me.復原_bt.Size = New System.Drawing.Size(50, 50)
+        Me.復原_bt.TabIndex = 1159
+        Me.復原_bt.UseVisualStyleBackColor = True
+        '
+        '放大_bt
+        '
+        Me.放大_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.Search
+        Me.放大_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.放大_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.放大_bt.Location = New System.Drawing.Point(780, 3)
+        Me.放大_bt.Name = "放大_bt"
+        Me.放大_bt.Size = New System.Drawing.Size(50, 50)
+        Me.放大_bt.TabIndex = 1158
+        Me.放大_bt.UseVisualStyleBackColor = True
+        '
+        '垂直翻轉_bt
+        '
+        Me.垂直翻轉_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.R180
+        Me.垂直翻轉_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.垂直翻轉_bt.ForeColor = System.Drawing.Color.Blue
+        Me.垂直翻轉_bt.Location = New System.Drawing.Point(730, 3)
+        Me.垂直翻轉_bt.Name = "垂直翻轉_bt"
+        Me.垂直翻轉_bt.Size = New System.Drawing.Size(50, 50)
+        Me.垂直翻轉_bt.TabIndex = 1157
+        Me.垂直翻轉_bt.UseVisualStyleBackColor = True
+        '
+        '水平翻轉_bt
+        '
+        Me.水平翻轉_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.L180
+        Me.水平翻轉_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.水平翻轉_bt.ForeColor = System.Drawing.Color.Blue
+        Me.水平翻轉_bt.Location = New System.Drawing.Point(680, 3)
+        Me.水平翻轉_bt.Name = "水平翻轉_bt"
+        Me.水平翻轉_bt.Size = New System.Drawing.Size(50, 50)
+        Me.水平翻轉_bt.TabIndex = 1156
+        Me.水平翻轉_bt.UseVisualStyleBackColor = True
+        '
+        '逆時鐘90度_bt
+        '
+        Me.逆時鐘90度_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.R90
+        Me.逆時鐘90度_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.逆時鐘90度_bt.ForeColor = System.Drawing.Color.Blue
+        Me.逆時鐘90度_bt.Location = New System.Drawing.Point(630, 3)
+        Me.逆時鐘90度_bt.Name = "逆時鐘90度_bt"
+        Me.逆時鐘90度_bt.Size = New System.Drawing.Size(50, 50)
+        Me.逆時鐘90度_bt.TabIndex = 1155
+        Me.逆時鐘90度_bt.UseVisualStyleBackColor = True
+        '
+        '順時鐘90度_bt
+        '
+        Me.順時鐘90度_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.L90
+        Me.順時鐘90度_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.順時鐘90度_bt.ForeColor = System.Drawing.Color.Blue
+        Me.順時鐘90度_bt.Location = New System.Drawing.Point(580, 3)
+        Me.順時鐘90度_bt.Name = "順時鐘90度_bt"
+        Me.順時鐘90度_bt.Size = New System.Drawing.Size(50, 50)
+        Me.順時鐘90度_bt.TabIndex = 1154
+        Me.順時鐘90度_bt.UseVisualStyleBackColor = True
+        '
+        '刪除資料_bt
+        '
+        Me.刪除資料_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.GarbageEmpty
+        Me.刪除資料_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.刪除資料_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.刪除資料_bt.ForeColor = System.Drawing.Color.Red
+        Me.刪除資料_bt.Location = New System.Drawing.Point(453, 2)
+        Me.刪除資料_bt.Name = "刪除資料_bt"
+        Me.刪除資料_bt.Size = New System.Drawing.Size(53, 50)
+        Me.刪除資料_bt.TabIndex = 1152
+        Me.刪除資料_bt.UseVisualStyleBackColor = True
+        '
+        '修改資料_bt
+        '
+        Me.修改資料_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.SAVER
+        Me.修改資料_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.修改資料_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.修改資料_bt.ForeColor = System.Drawing.Color.Green
+        Me.修改資料_bt.Location = New System.Drawing.Point(400, 2)
+        Me.修改資料_bt.Name = "修改資料_bt"
+        Me.修改資料_bt.Size = New System.Drawing.Size(53, 50)
+        Me.修改資料_bt.TabIndex = 1151
+        Me.修改資料_bt.UseVisualStyleBackColor = True
+        '
+        '新增資料_bt
+        '
+        Me.新增資料_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.add_2
+        Me.新增資料_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.新增資料_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        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(347, 2)
+        Me.新增資料_bt.Name = "新增資料_bt"
+        Me.新增資料_bt.Size = New System.Drawing.Size(53, 50)
+        Me.新增資料_bt.TabIndex = 1150
+        Me.新增資料_bt.UseVisualStyleBackColor = True
+        '
+        '讀取資料夾路徑_bt
+        '
+        Me.讀取資料夾路徑_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.Scan_film
+        Me.讀取資料夾路徑_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.讀取資料夾路徑_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.讀取資料夾路徑_bt.ForeColor = System.Drawing.Color.Blue
+        Me.讀取資料夾路徑_bt.Location = New System.Drawing.Point(297, 2)
+        Me.讀取資料夾路徑_bt.Name = "讀取資料夾路徑_bt"
+        Me.讀取資料夾路徑_bt.Size = New System.Drawing.Size(50, 50)
+        Me.讀取資料夾路徑_bt.TabIndex = 1146
+        Me.讀取資料夾路徑_bt.UseVisualStyleBackColor = True
         '
         '報告圖_pb
         '
@@ -352,42 +299,33 @@ Partial Class 車輛保養紀錄表
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.報告圖_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.報告圖_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-        Me.報告圖_pb.Location = New System.Drawing.Point(305, 65)
+        Me.報告圖_pb.Location = New System.Drawing.Point(291, 55)
         Me.報告圖_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.報告圖_pb.Name = "報告圖_pb"
-        Me.報告圖_pb.Size = New System.Drawing.Size(1129, 901)
+        Me.報告圖_pb.Size = New System.Drawing.Size(890, 556)
         Me.報告圖_pb.TabIndex = 1149
         Me.報告圖_pb.TabStop = False
         '
-        'SaveFileDialog1
+        '開啟檔案
         '
-        Me.SaveFileDialog1.DefaultExt = "jpg"
-        Me.SaveFileDialog1.SupportMultiDottedExtensions = True
-        Me.SaveFileDialog1.Title = "指定檔案名稱與選擇檔案路徑"
+        Me.開啟檔案.Multiselect = True
         '
         '車輛保養紀錄表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1894, 971)
+        Me.ClientSize = New System.Drawing.Size(1185, 614)
         Me.Controls.Add(Me.復原_bt)
         Me.Controls.Add(Me.放大_bt)
         Me.Controls.Add(Me.垂直翻轉_bt)
         Me.Controls.Add(Me.水平翻轉_bt)
         Me.Controls.Add(Me.逆時鐘90度_bt)
         Me.Controls.Add(Me.順時鐘90度_bt)
-        Me.Controls.Add(Me.流水號_tb)
         Me.Controls.Add(Me.刪除資料_bt)
         Me.Controls.Add(Me.修改資料_bt)
         Me.Controls.Add(Me.新增資料_bt)
-        Me.Controls.Add(Me.Label8)
-        Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.讀取資料夾路徑_bt)
-        Me.Controls.Add(Me.檔名讀取_tb)
         Me.Controls.Add(Me.檔案名稱_tb)
-        Me.Controls.Add(Me.Label6)
-        Me.Controls.Add(Me.本機資料夾_wb)
-        Me.Controls.Add(Me.FTP資料夾_wb)
         Me.Controls.Add(Me.保養日期_dtp)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.里程數_nud)
@@ -397,10 +335,11 @@ Partial Class 車輛保養紀錄表
         Me.Controls.Add(Me.紀錄清單_dgv)
         Me.Controls.Add(Me.車牌號碼_cb)
         Me.Controls.Add(Me.Label15)
-        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.流水號_tb)
+        Me.Controls.Add(Me.檔名讀取_tb)
         Me.Controls.Add(Me.報告圖_pb)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "車輛保養紀錄表"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "車輛保養紀錄表"
@@ -422,14 +361,9 @@ Partial Class 車輛保養紀錄表
     Friend WithEvents 刪除資料_bt As Button
     Friend WithEvents 修改資料_bt As Button
     Friend WithEvents 新增資料_bt As Button
-    Friend WithEvents Label8 As Label
-    Friend WithEvents Label2 As Label
     Friend WithEvents 讀取資料夾路徑_bt As Button
     Friend WithEvents 檔名讀取_tb As TextBox
     Friend WithEvents 檔案名稱_tb As TextBox
-    Friend WithEvents Label6 As Label
-    Friend WithEvents 本機資料夾_wb As WebBrowser
-    Friend WithEvents FTP資料夾_wb As WebBrowser
     Friend WithEvents 保養日期_dtp As DateTimePicker
     Friend WithEvents Label1 As Label
     Friend WithEvents 里程數_nud As NumericUpDown
@@ -439,8 +373,8 @@ Partial Class 車輛保養紀錄表
     Friend WithEvents 紀錄清單_dgv As DataGridView
     Friend WithEvents 車牌號碼_cb As ComboBox
     Friend WithEvents Label15 As Label
-    Friend WithEvents Label9 As Label
     Friend WithEvents 報告圖_pb As PictureBox
     Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
     Friend WithEvents SaveFileDialog1 As SaveFileDialog
+    Friend WithEvents 開啟檔案 As OpenFileDialog
 End Class

MAOJI-ERP-SYS/總務系統管理/車輛保養紀錄表.resx → MAOJI-ERP-SYS/03、總務系統管理/車輛保養紀錄表.resx

@@ -118,9 +118,15 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>338, 12</value>
+    <value>18, 12</value>
   </metadata>
   <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>518, 12</value>
+    <value>198, 12</value>
+  </metadata>
+  <metadata name="開啟檔案.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>484, 9</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>41</value>
   </metadata>
 </root>

MAOJI-ERP-SYS/03、總務系統管理/車輛保養紀錄表.vb

@@ -0,0 +1,110 @@
+Option Explicit On
+Imports System.Net
+Imports System.IO
+Public Class 車輛保養紀錄表
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet
+    Dim EDR As Integer = 0 : Dim ESTR As String
+    Private m_Leftx As Integer = 152
+    Private m_Lefty As Integer = 0
+    Dim m_MousePosX As Integer
+    Dim m_MousePosY As Integer
+    Dim m_DeltaX As Integer
+    Dim m_DeltaY As Integer
+    ReadOnly m_StrecthX As Double
+    ReadOnly m_StrecthY As Double
+    Private Sub Set_清單()
+        紀錄清單_dgv.DataSource = Nothing : ds.Clear()
+        紀錄清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        紀錄清單_dgv.ColumnHeadersHeight = 25 : 紀錄清單_dgv.AllowUserToAddRows = False
+        SQL_車輛保養紀錄表()
+        da.Fill(ds) : 紀錄清單_dgv.DataSource = ds.Tables(0) : conn.Close()
+        紀錄清單_dgv.Columns(0).Visible = False : 紀錄清單_dgv.Columns(1).Visible = False : 紀錄清單_dgv.Columns(2).FillWeight = 100 : 紀錄清單_dgv.Columns(3).FillWeight = 100
+        紀錄清單_dgv.Columns(4).FillWeight = 100 : 紀錄清單_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
+        紀錄清單_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        紀錄清單_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+    End Sub
+    Private Sub ComboBox1下拉表單資料載入()
+        SQL_車牌號碼清單() : 車牌號碼_cb.Items.Clear() : While (dr.Read()) : 車牌號碼_cb.Items.Add(dr("車牌號碼")) : End While : conn.Close()
+    End Sub
+    Private Sub 車輛保養紀錄表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        報告圖_pb.BringToFront() : 流水號_tb.Visible = False : 檔名讀取_tb.Visible = False : ComboBox1下拉表單資料載入()
+    End Sub
+    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 紀錄清單_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            保養日期_dtp.Value = 紀錄清單_dgv.Rows(e.RowIndex).Cells("保養日期").Value.ToString : 預保日期_dtp.Value = 紀錄清單_dgv.Rows(e.RowIndex).Cells("預保日期").Value.ToString
+            里程數_nud.Value = 紀錄清單_dgv.Rows(e.RowIndex).Cells("里程數").Value.ToString : 流水號_tb.Text = 紀錄清單_dgv.Rows(e.RowIndex).Cells("流水號").Value.ToString
+            Set_圖片顯示()
+        End If
+    End Sub
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 車牌號碼_cb.SelectedIndexChanged
+        Set_清單()
+    End Sub
+    Private Sub Set_日期格式轉換()
+        DTP1 = Format(保養日期_dtp.Value, "yyyy/MM/dd") : DTP2 = Format(預保日期_dtp.Value, "yyyy/MM/dd")
+    End Sub
+    Private Sub Set_流水號()
+        SQL_車輛保養紀錄表流水號最後一筆()
+        If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("流水號").ToString, 8)) : Else : EDR = 0 : End If : conn.Close() : EDR += 1
+        If EDR < 10 Then : ESTR = "VM" & "0000000" & EDR : ElseIf EDR > 9 And EDR < 100 Then : ESTR = "VM" & "000000" & EDR
+        ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "VM" & "00000" & EDR : ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "VM" & "0000" & EDR
+        ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "VM" & "000" & EDR : ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "VM" & "00" & EDR
+        ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "VM" & "0" & EDR : ElseIf EDR > 9999999 Then : ESTR = "VM" & EDR : End If
+        流水號_tb.Text = ESTR : Set_日期格式轉換()
+    End Sub
+    Private Sub Set_圖片顯示()
+        報告圖_pb.Image = Nothing : SQL_車輛保養紀錄表圖片讀取()
+        While dr.Read() = True
+            Dim unused As Byte() = New Byte(-1) {}
+            Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+            Dim oStream As New MemoryStream(bytes)
+            報告圖_pb.Image = Bitmap.FromStream(oStream)
+        End While : conn.Close() : 報告圖_pb.SizeMode = 4
+    End Sub
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 新增資料_bt.Click
+        If 車牌號碼_cb.Text = "" Then : MsgBox("請先輸入車牌，或選擇車牌") : Else
+            If 檔案名稱_tb.Text = "" Then : Set_流水號() : SQL_車輛保養紀錄表新增_無圖片() : conn.Close() : 檔案名稱_tb.Text = "" : Set_圖片顯示() : 流水號_tb.Text = ""
+            Else : PA49 = 檔案名稱_tb.Text : Set_流水號() : SQL_車輛保養紀錄表新增_有圖片() : conn.Close() : 檔案名稱_tb.Text = "" : Set_圖片顯示() : 流水號_tb.Text = ""
+            End If : Set_清單()
+        End If
+    End Sub
+    Private Sub 修改資料_bt_Click(sender As Object, e As EventArgs) Handles 修改資料_bt.Click
+        If 車牌號碼_cb.Text = "" Then : MsgBox("請先輸入車牌，或選擇車牌") : Else
+            If 檔案名稱_tb.Text = "" Then
+                Set_日期格式轉換() : SQL_車輛保養紀錄表修改_無圖片() : conn.Close() : 檔案名稱_tb.Text = "" : Set_圖片顯示() : 流水號_tb.Text = ""
+            Else
+                PA49 = 檔案名稱_tb.Text : Set_日期格式轉換() : SQL_車輛保養紀錄表修改_有圖片() : conn.Close() : 檔案名稱_tb.Text = "" : Set_圖片顯示() : 流水號_tb.Text = ""
+            End If : MsgBox("修改完成") : Set_清單()
+        End If
+    End Sub
+    Private Sub 讀取資料夾路徑_bt_Click(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_bt.Click
+        開啟檔案.Filter = "圖片文件 (*.jpg; *.jpeg; *.png; *.bmp)|*.jpg;*.jpeg;*.png;*.bmp"
+        開啟檔案.Title = "選擇圖片文件"
+        開啟檔案.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
+        If 開啟檔案.ShowDialog() = DialogResult.OK Then
+            Try
+                報告圖_pb.Image = Image.FromFile(開啟檔案.FileName) : 報告圖_pb.SizeMode = 4:   檔案名稱_tb.Text = 開啟檔案.FileName
+            Catch ex As Exception
+                MessageBox.Show("無法加載圖片: " & ex.Message, "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
+            End Try
+        End If
+    End Sub
+    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles 順時鐘90度_bt.Click
+        報告圖_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 報告圖_pb.Refresh() : 報告圖_pb.SizeMode = 4
+    End Sub
+    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度_bt.Click
+        報告圖_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 報告圖_pb.Refresh() : 報告圖_pb.SizeMode = 4
+    End Sub
+    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles 水平翻轉_bt.Click
+        報告圖_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 報告圖_pb.Refresh() : 報告圖_pb.SizeMode = 4
+    End Sub
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles 垂直翻轉_bt.Click
+        報告圖_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 報告圖_pb.Refresh() : 報告圖_pb.SizeMode = 4
+    End Sub
+    Private Sub 放大_bt_Click(sender As Object, e As EventArgs) Handles 放大_bt.Click
+        Dim image = 報告圖_pb.Image : Dim g As Graphics = 報告圖_pb.CreateGraphics : g.DrawImage(image, New Rectangle(0, 0, image.Width * 2, image.Height * 2))
+    End Sub
+    Private Sub 復原_bt_Click(sender As Object, e As EventArgs) Handles 復原_bt.Click
+        報告圖_pb.Refresh()
+    End Sub
+End Class

MAOJI-ERP-SYS/業務系統管理/出貨單申請.Designer.vb → MAOJI-ERP-SYS/04、業務系統管理/出貨單申請.Designer.vb

@@ -770,6 +770,7 @@ Partial Class 出貨單申請
         Me.庫存_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.庫存_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.庫存_dgv.BackgroundColor = System.Drawing.Color.White
         Me.庫存_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.庫存_dgv.Location = New System.Drawing.Point(8, 56)
         Me.庫存_dgv.Name = "庫存_dgv"
@@ -929,6 +930,7 @@ Partial Class 出貨單申請
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.明細_dgv.BackgroundColor = System.Drawing.Color.White
         Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.明細_dgv.Location = New System.Drawing.Point(457, 129)
         Me.明細_dgv.Name = "明細_dgv"
@@ -945,6 +947,7 @@ Partial Class 出貨單申請
         Me.彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
         Me.彙總_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.彙總_dgv.BackgroundColor = System.Drawing.Color.White
         Me.彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.彙總_dgv.Location = New System.Drawing.Point(8, 367)
         Me.彙總_dgv.Name = "彙總_dgv"
@@ -1027,6 +1030,8 @@ Partial Class 出貨單申請
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1249, 611)
+        Me.Controls.Add(Me.明細_dgv)
+        Me.Controls.Add(Me.庫存_dgv)
         Me.Controls.Add(Me.列印產品標籤_bt)
         Me.Controls.Add(Me.列印出貨單_bt)
         Me.Controls.Add(Me.改佣金_bt)
@@ -1088,7 +1093,6 @@ Partial Class 出貨單申請
         Me.Controls.Add(Me.Label6)
         Me.Controls.Add(Me.物料關鍵字_tb)
         Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.庫存_dgv)
         Me.Controls.Add(Me.依商品排序_ch)
         Me.Controls.Add(Me.依供應商排序_ch)
         Me.Controls.Add(Me.Label18)
@@ -1102,10 +1106,9 @@ Partial Class 出貨單申請
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.Label20)
         Me.Controls.Add(Me.Label26)
-        Me.Controls.Add(Me.明細_dgv)
         Me.Controls.Add(Me.彙總_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "出貨單申請"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "出貨單申請"

MAOJI-ERP-SYS/業務系統管理/出貨確認.Designer.vb → MAOJI-ERP-SYS/04、業務系統管理/出貨確認.Designer.vb

@@ -23,8 +23,8 @@ Partial Class 出貨確認
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.佣金修改_bt = New System.Windows.Forms.Button()
         Me.司機比例_cb = New System.Windows.Forms.ComboBox()
         Me.Label28 = New System.Windows.Forms.Label()
@@ -243,18 +243,19 @@ Partial Class 出貨確認
         '
         '銷售出貨_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.銷售出貨_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.銷售出貨_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.銷售出貨_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.銷售出貨_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.銷售出貨_dgv.BackgroundColor = System.Drawing.Color.White
         Me.銷售出貨_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.銷售出貨_dgv.Location = New System.Drawing.Point(7, 58)
         Me.銷售出貨_dgv.Name = "銷售出貨_dgv"
         Me.銷售出貨_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售出貨_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售出貨_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.銷售出貨_dgv.RowTemplate.Height = 24
         Me.銷售出貨_dgv.Size = New System.Drawing.Size(1235, 547)
         Me.銷售出貨_dgv.TabIndex = 1150
@@ -356,7 +357,7 @@ Partial Class 出貨確認
         Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.Label20)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "出貨確認"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "出貨確認"

MAOJI-ERP-SYS/業務系統管理/列印_出貨單.Designer.vb → MAOJI-ERP-SYS/04、業務系統管理/列印_出貨單.Designer.vb

@@ -473,6 +473,7 @@ Partial Class 列印_出貨單
         '出貨明細_dgv
         '
         Me.出貨明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.出貨明細_dgv.BackgroundColor = System.Drawing.Color.White
         Me.出貨明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.出貨明細_dgv.Location = New System.Drawing.Point(116, 196)
         Me.出貨明細_dgv.Name = "出貨明細_dgv"
@@ -873,7 +874,7 @@ Partial Class 列印_出貨單
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.Label1)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "列印_出貨單"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "列印_出貨單"

MAOJI-ERP-SYS/業務系統管理/客戶資料管理.Designer.vb → MAOJI-ERP-SYS/04、業務系統管理/客戶資料管理.Designer.vb

@@ -23,8 +23,8 @@ Partial Class 客戶資料管理
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.只顯示35筆資料_ch = New System.Windows.Forms.CheckBox()
         Me.付款編號_tb = New System.Windows.Forms.TextBox()
         Me.可全選_ch = New System.Windows.Forms.CheckBox()
@@ -92,6 +92,7 @@ Partial Class 客戶資料管理
         Me.資料存檔整體清單ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
         Me.資料刪除ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
         CType(Me.客戶清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.SuspendLayout()
@@ -99,11 +100,11 @@ Partial Class 客戶資料管理
         '只顯示35筆資料_ch
         '
         Me.只顯示35筆資料_ch.AutoSize = True
-        Me.只顯示35筆資料_ch.Location = New System.Drawing.Point(478, 196)
+        Me.只顯示35筆資料_ch.Location = New System.Drawing.Point(88, 172)
         Me.只顯示35筆資料_ch.Name = "只顯示35筆資料_ch"
-        Me.只顯示35筆資料_ch.Size = New System.Drawing.Size(112, 20)
+        Me.只顯示35筆資料_ch.Size = New System.Drawing.Size(88, 20)
         Me.只顯示35筆資料_ch.TabIndex = 1049
-        Me.只顯示35筆資料_ch.Text = "只顯示35筆資料"
+        Me.只顯示35筆資料_ch.Text = "只顯示35筆"
         Me.只顯示35筆資料_ch.UseVisualStyleBackColor = True
         '
         '付款編號_tb
@@ -117,7 +118,7 @@ Partial Class 客戶資料管理
         '可全選_ch
         '
         Me.可全選_ch.AutoSize = True
-        Me.可全選_ch.Location = New System.Drawing.Point(157, 195)
+        Me.可全選_ch.Location = New System.Drawing.Point(76, 82)
         Me.可全選_ch.Name = "可全選_ch"
         Me.可全選_ch.Size = New System.Drawing.Size(62, 20)
         Me.可全選_ch.TabIndex = 1047
@@ -128,10 +129,10 @@ Partial Class 客戶資料管理
         '
         Me.模式一_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.模式一_bt.ForeColor = System.Drawing.Color.Black
-        Me.模式一_bt.Location = New System.Drawing.Point(7, 193)
+        Me.模式一_bt.Location = New System.Drawing.Point(2, 53)
         Me.模式一_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.模式一_bt.Name = "模式一_bt"
-        Me.模式一_bt.Size = New System.Drawing.Size(69, 23)
+        Me.模式一_bt.Size = New System.Drawing.Size(69, 26)
         Me.模式一_bt.TabIndex = 1046
         Me.模式一_bt.Text = "模式一"
         Me.模式一_bt.UseVisualStyleBackColor = True
@@ -140,66 +141,70 @@ Partial Class 客戶資料管理
         '
         Me.模式二_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.模式二_bt.ForeColor = System.Drawing.Color.Black
-        Me.模式二_bt.Location = New System.Drawing.Point(82, 193)
+        Me.模式二_bt.Location = New System.Drawing.Point(71, 53)
         Me.模式二_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.模式二_bt.Name = "模式二_bt"
-        Me.模式二_bt.Size = New System.Drawing.Size(69, 23)
+        Me.模式二_bt.Size = New System.Drawing.Size(69, 26)
         Me.模式二_bt.TabIndex = 1045
         Me.模式二_bt.Text = "模式二"
         Me.模式二_bt.UseVisualStyleBackColor = True
         '
         '單筆存檔_bt
         '
+        Me.單筆存檔_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.SAVER
+        Me.單筆存檔_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.單筆存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         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(627, 192)
+        Me.單筆存檔_bt.Location = New System.Drawing.Point(239, 54)
         Me.單筆存檔_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.單筆存檔_bt.Name = "單筆存檔_bt"
-        Me.單筆存檔_bt.Size = New System.Drawing.Size(144, 23)
+        Me.單筆存檔_bt.Size = New System.Drawing.Size(50, 50)
         Me.單筆存檔_bt.TabIndex = 1044
-        Me.單筆存檔_bt.Text = "資料存檔(單一筆資料)"
         Me.單筆存檔_bt.UseVisualStyleBackColor = True
         '
         '關鍵字查詢_bt
         '
+        Me.關鍵字查詢_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.Search
+        Me.關鍵字查詢_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.關鍵字查詢_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.關鍵字查詢_bt.ForeColor = System.Drawing.Color.Black
-        Me.關鍵字查詢_bt.Location = New System.Drawing.Point(226, 193)
+        Me.關鍵字查詢_bt.Location = New System.Drawing.Point(139, 54)
         Me.關鍵字查詢_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.關鍵字查詢_bt.Name = "關鍵字查詢_bt"
-        Me.關鍵字查詢_bt.Size = New System.Drawing.Size(120, 23)
+        Me.關鍵字查詢_bt.Size = New System.Drawing.Size(50, 50)
         Me.關鍵字查詢_bt.TabIndex = 1043
-        Me.關鍵字查詢_bt.Text = "關鍵字查詢"
         Me.關鍵字查詢_bt.UseVisualStyleBackColor = True
         '
         '批量存檔_bt
         '
+        Me.批量存檔_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.SAVER2
+        Me.批量存檔_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.批量存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         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(777, 192)
+        Me.批量存檔_bt.Location = New System.Drawing.Point(289, 54)
         Me.批量存檔_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.批量存檔_bt.Name = "批量存檔_bt"
-        Me.批量存檔_bt.Size = New System.Drawing.Size(314, 23)
+        Me.批量存檔_bt.Size = New System.Drawing.Size(50, 50)
         Me.批量存檔_bt.TabIndex = 1042
-        Me.批量存檔_bt.Text = "資料存檔 - 整體清單 - 適用excel表格資料貼上"
         Me.批量存檔_bt.UseVisualStyleBackColor = True
         '
         '新增一筆空白資料_bt
         '
+        Me.新增一筆空白資料_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.add_2
+        Me.新增一筆空白資料_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.新增一筆空白資料_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.新增一筆空白資料_bt.ForeColor = System.Drawing.Color.Green
-        Me.新增一筆空白資料_bt.Location = New System.Drawing.Point(352, 193)
+        Me.新增一筆空白資料_bt.Location = New System.Drawing.Point(189, 54)
         Me.新增一筆空白資料_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.新增一筆空白資料_bt.Name = "新增一筆空白資料_bt"
-        Me.新增一筆空白資料_bt.Size = New System.Drawing.Size(120, 23)
+        Me.新增一筆空白資料_bt.Size = New System.Drawing.Size(50, 50)
         Me.新增一筆空白資料_bt.TabIndex = 1041
-        Me.新增一筆空白資料_bt.Text = "新增一筆空白資料"
         Me.新增一筆空白資料_bt.UseVisualStyleBackColor = True
         '
         '建立日期_dtp
         '
         Me.建立日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.建立日期_dtp.Location = New System.Drawing.Point(1157, 191)
+        Me.建立日期_dtp.Location = New System.Drawing.Point(1157, 81)
         Me.建立日期_dtp.Name = "建立日期_dtp"
         Me.建立日期_dtp.Size = New System.Drawing.Size(87, 23)
         Me.建立日期_dtp.TabIndex = 1040
@@ -209,7 +214,7 @@ Partial Class 客戶資料管理
         Me.付款方式_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.付款方式_cb.FormattingEnabled = True
         Me.付款方式_cb.Items.AddRange(New Object() {"男", "女", "NA"})
-        Me.付款方式_cb.Location = New System.Drawing.Point(219, 32)
+        Me.付款方式_cb.Location = New System.Drawing.Point(219, 28)
         Me.付款方式_cb.Name = "付款方式_cb"
         Me.付款方式_cb.Size = New System.Drawing.Size(121, 24)
         Me.付款方式_cb.TabIndex = 1039
@@ -218,26 +223,28 @@ Partial Class 客戶資料管理
         '
         Me.Label21.AutoSize = True
         Me.Label21.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label21.Location = New System.Drawing.Point(4, 115)
+        Me.Label21.Location = New System.Drawing.Point(1246, 7)
         Me.Label21.Name = "Label21"
-        Me.Label21.Size = New System.Drawing.Size(34, 17)
+        Me.Label21.Size = New System.Drawing.Size(21, 34)
         Me.Label21.TabIndex = 1037
-        Me.Label21.Text = "備註"
+        Me.Label21.Text = "備" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "註"
         '
         '備註_tb
         '
+        Me.備註_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.備註_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.備註_tb.Location = New System.Drawing.Point(38, 112)
+        Me.備註_tb.Location = New System.Drawing.Point(1267, 4)
         Me.備註_tb.Multiline = True
         Me.備註_tb.Name = "備註_tb"
         Me.備註_tb.ScrollBars = System.Windows.Forms.ScrollBars.Both
-        Me.備註_tb.Size = New System.Drawing.Size(1206, 78)
+        Me.備註_tb.Size = New System.Drawing.Size(233, 100)
         Me.備註_tb.TabIndex = 1035
         '
         '負責業務_tb
         '
         Me.負責業務_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.負責業務_tb.Location = New System.Drawing.Point(1156, 85)
+        Me.負責業務_tb.Location = New System.Drawing.Point(1156, 53)
         Me.負責業務_tb.Name = "負責業務_tb"
         Me.負責業務_tb.Size = New System.Drawing.Size(88, 25)
         Me.負責業務_tb.TabIndex = 1033
@@ -246,7 +253,7 @@ Partial Class 客戶資料管理
         '
         Me.Label18.AutoSize = True
         Me.Label18.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label18.Location = New System.Drawing.Point(4, 62)
+        Me.Label18.Location = New System.Drawing.Point(490, 83)
         Me.Label18.Name = "Label18"
         Me.Label18.Size = New System.Drawing.Size(34, 17)
         Me.Label18.TabIndex = 1032
@@ -255,7 +262,7 @@ Partial Class 客戶資料管理
         '折扣_tb
         '
         Me.折扣_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.折扣_tb.Location = New System.Drawing.Point(38, 58)
+        Me.折扣_tb.Location = New System.Drawing.Point(524, 79)
         Me.折扣_tb.Name = "折扣_tb"
         Me.折扣_tb.Size = New System.Drawing.Size(121, 25)
         Me.折扣_tb.TabIndex = 1031
@@ -263,39 +270,39 @@ Partial Class 客戶資料管理
         'LineID_tb
         '
         Me.LineID_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.LineID_tb.Location = New System.Drawing.Point(400, 58)
+        Me.LineID_tb.Location = New System.Drawing.Point(400, 79)
         Me.LineID_tb.Name = "LineID_tb"
-        Me.LineID_tb.Size = New System.Drawing.Size(245, 25)
+        Me.LineID_tb.Size = New System.Drawing.Size(89, 25)
         Me.LineID_tb.TabIndex = 1029
         '
         '發票額度_tb
         '
         Me.發票額度_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.發票額度_tb.Location = New System.Drawing.Point(219, 58)
+        Me.發票額度_tb.Location = New System.Drawing.Point(61, 28)
         Me.發票額度_tb.Name = "發票額度_tb"
-        Me.發票額度_tb.Size = New System.Drawing.Size(121, 25)
+        Me.發票額度_tb.Size = New System.Drawing.Size(98, 25)
         Me.發票額度_tb.TabIndex = 1027
         '
         '發票地址郵號_tb
         '
         Me.發票地址郵號_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.發票地址郵號_tb.Location = New System.Drawing.Point(574, 86)
+        Me.發票地址郵號_tb.Location = New System.Drawing.Point(735, 78)
         Me.發票地址郵號_tb.Name = "發票地址郵號_tb"
-        Me.發票地址郵號_tb.Size = New System.Drawing.Size(73, 25)
+        Me.發票地址郵號_tb.Size = New System.Drawing.Size(69, 25)
         Me.發票地址郵號_tb.TabIndex = 1025
         '
         '發票地址_tb
         '
         Me.發票地址_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.發票地址_tb.Location = New System.Drawing.Point(708, 31)
+        Me.發票地址_tb.Location = New System.Drawing.Point(708, 27)
         Me.發票地址_tb.Name = "發票地址_tb"
-        Me.發票地址_tb.Size = New System.Drawing.Size(536, 25)
+        Me.發票地址_tb.Size = New System.Drawing.Size(380, 25)
         Me.發票地址_tb.TabIndex = 1023
         '
         '發票抬頭_tb
         '
         Me.發票抬頭_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.發票抬頭_tb.Location = New System.Drawing.Point(400, 31)
+        Me.發票抬頭_tb.Location = New System.Drawing.Point(400, 27)
         Me.發票抬頭_tb.Name = "發票抬頭_tb"
         Me.發票抬頭_tb.Size = New System.Drawing.Size(245, 25)
         Me.發票抬頭_tb.TabIndex = 1021
@@ -304,7 +311,7 @@ Partial Class 客戶資料管理
         '
         Me.Label12.AutoSize = True
         Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label12.Location = New System.Drawing.Point(4, 34)
+        Me.Label12.Location = New System.Drawing.Point(535, 5)
         Me.Label12.Name = "Label12"
         Me.Label12.Size = New System.Drawing.Size(34, 17)
         Me.Label12.TabIndex = 1020
@@ -313,15 +320,16 @@ Partial Class 客戶資料管理
         '統編_tb
         '
         Me.統編_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.統編_tb.Location = New System.Drawing.Point(38, 31)
+        Me.統編_tb.Location = New System.Drawing.Point(568, 2)
         Me.統編_tb.Name = "統編_tb"
-        Me.統編_tb.Size = New System.Drawing.Size(121, 25)
+        Me.統編_tb.Size = New System.Drawing.Size(76, 25)
         Me.統編_tb.TabIndex = 1019
+        Me.統編_tb.Text = "54986841"
         '
         '傳真_tb
         '
         Me.傳真_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.傳真_tb.Location = New System.Drawing.Point(975, 85)
+        Me.傳真_tb.Location = New System.Drawing.Point(1123, 2)
         Me.傳真_tb.Name = "傳真_tb"
         Me.傳真_tb.Size = New System.Drawing.Size(121, 25)
         Me.傳真_tb.TabIndex = 1017
@@ -329,7 +337,7 @@ Partial Class 客戶資料管理
         '手機_tb
         '
         Me.手機_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.手機_tb.Location = New System.Drawing.Point(366, 84)
+        Me.手機_tb.Location = New System.Drawing.Point(524, 53)
         Me.手機_tb.Name = "手機_tb"
         Me.手機_tb.Size = New System.Drawing.Size(121, 25)
         Me.手機_tb.TabIndex = 1015
@@ -337,7 +345,7 @@ Partial Class 客戶資料管理
         '電話_tb
         '
         Me.電話_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.電話_tb.Location = New System.Drawing.Point(819, 85)
+        Me.電話_tb.Location = New System.Drawing.Point(1123, 27)
         Me.電話_tb.Name = "電話_tb"
         Me.電話_tb.Size = New System.Drawing.Size(121, 25)
         Me.電話_tb.TabIndex = 1013
@@ -345,32 +353,32 @@ Partial Class 客戶資料管理
         '聯絡人_tb
         '
         Me.聯絡人_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.聯絡人_tb.Location = New System.Drawing.Point(694, 85)
+        Me.聯絡人_tb.Location = New System.Drawing.Point(850, 78)
         Me.聯絡人_tb.Name = "聯絡人_tb"
-        Me.聯絡人_tb.Size = New System.Drawing.Size(91, 25)
+        Me.聯絡人_tb.Size = New System.Drawing.Size(87, 25)
         Me.聯絡人_tb.TabIndex = 1011
         '
         '負責人_tb
         '
         Me.負責人_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.負責人_tb.Location = New System.Drawing.Point(210, 85)
+        Me.負責人_tb.Location = New System.Drawing.Point(400, 53)
         Me.負責人_tb.Name = "負責人_tb"
-        Me.負責人_tb.Size = New System.Drawing.Size(121, 25)
+        Me.負責人_tb.Size = New System.Drawing.Size(89, 25)
         Me.負責人_tb.TabIndex = 1009
         '
         '送貨地址_tb
         '
         Me.送貨地址_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.送貨地址_tb.Location = New System.Drawing.Point(708, 58)
+        Me.送貨地址_tb.Location = New System.Drawing.Point(708, 52)
         Me.送貨地址_tb.Name = "送貨地址_tb"
-        Me.送貨地址_tb.Size = New System.Drawing.Size(536, 25)
+        Me.送貨地址_tb.Size = New System.Drawing.Size(380, 25)
         Me.送貨地址_tb.TabIndex = 1007
         '
         'Label5
         '
         Me.Label5.AutoSize = True
         Me.Label5.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label5.Location = New System.Drawing.Point(4, 88)
+        Me.Label5.Location = New System.Drawing.Point(937, 81)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(86, 17)
         Me.Label5.TabIndex = 1006
@@ -379,23 +387,23 @@ Partial Class 客戶資料管理
         '店面地址郵號_tb
         '
         Me.店面地址郵號_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.店面地址郵號_tb.Location = New System.Drawing.Point(90, 85)
+        Me.店面地址郵號_tb.Location = New System.Drawing.Point(1023, 78)
         Me.店面地址郵號_tb.Name = "店面地址郵號_tb"
-        Me.店面地址郵號_tb.Size = New System.Drawing.Size(73, 25)
+        Me.店面地址郵號_tb.Size = New System.Drawing.Size(65, 25)
         Me.店面地址郵號_tb.TabIndex = 1005
         '
         '店面地址_tb
         '
         Me.店面地址_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.店面地址_tb.Location = New System.Drawing.Point(708, 4)
+        Me.店面地址_tb.Location = New System.Drawing.Point(708, 2)
         Me.店面地址_tb.Name = "店面地址_tb"
-        Me.店面地址_tb.Size = New System.Drawing.Size(536, 25)
+        Me.店面地址_tb.Size = New System.Drawing.Size(380, 25)
         Me.店面地址_tb.TabIndex = 1003
         '
         '簡稱_tb
         '
         Me.簡稱_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.簡稱_tb.Location = New System.Drawing.Point(219, 5)
+        Me.簡稱_tb.Location = New System.Drawing.Point(219, 3)
         Me.簡稱_tb.Name = "簡稱_tb"
         Me.簡稱_tb.Size = New System.Drawing.Size(121, 25)
         Me.簡稱_tb.TabIndex = 1001
@@ -403,16 +411,16 @@ Partial Class 客戶資料管理
         '店名_tb
         '
         Me.店名_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.店名_tb.Location = New System.Drawing.Point(400, 4)
+        Me.店名_tb.Location = New System.Drawing.Point(400, 2)
         Me.店名_tb.Name = "店名_tb"
-        Me.店名_tb.Size = New System.Drawing.Size(245, 25)
+        Me.店名_tb.Size = New System.Drawing.Size(136, 25)
         Me.店名_tb.TabIndex = 999
         '
         'Label1
         '
         Me.Label1.AutoSize = True
         Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label1.Location = New System.Drawing.Point(4, 7)
+        Me.Label1.Location = New System.Drawing.Point(4, 5)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(34, 17)
         Me.Label1.TabIndex = 998
@@ -421,32 +429,33 @@ Partial Class 客戶資料管理
         '編號_tb
         '
         Me.編號_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.編號_tb.Location = New System.Drawing.Point(38, 4)
+        Me.編號_tb.Location = New System.Drawing.Point(38, 2)
         Me.編號_tb.Name = "編號_tb"
         Me.編號_tb.Size = New System.Drawing.Size(121, 25)
         Me.編號_tb.TabIndex = 997
         '
         '客戶清單_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.客戶清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.客戶清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.客戶清單_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.客戶清單_dgv.BackgroundColor = System.Drawing.Color.White
         Me.客戶清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.客戶清單_dgv.Location = New System.Drawing.Point(7, 217)
+        Me.客戶清單_dgv.Location = New System.Drawing.Point(3, 105)
         Me.客戶清單_dgv.Name = "客戶清單_dgv"
         Me.客戶清單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.客戶清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.客戶清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.客戶清單_dgv.RowTemplate.Height = 24
-        Me.客戶清單_dgv.Size = New System.Drawing.Size(1237, 390)
+        Me.客戶清單_dgv.Size = New System.Drawing.Size(1498, 502)
         Me.客戶清單_dgv.TabIndex = 996
         '
         'Label22
         '
         Me.Label22.AutoSize = True
-        Me.Label22.Location = New System.Drawing.Point(164, 35)
+        Me.Label22.Location = New System.Drawing.Point(164, 31)
         Me.Label22.Name = "Label22"
         Me.Label22.Size = New System.Drawing.Size(55, 16)
         Me.Label22.TabIndex = 1038
@@ -456,7 +465,7 @@ Partial Class 客戶資料管理
         '
         Me.Label16.AutoSize = True
         Me.Label16.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label16.Location = New System.Drawing.Point(160, 62)
+        Me.Label16.Location = New System.Drawing.Point(2, 32)
         Me.Label16.Name = "Label16"
         Me.Label16.Size = New System.Drawing.Size(60, 17)
         Me.Label16.TabIndex = 1028
@@ -466,7 +475,7 @@ Partial Class 客戶資料管理
         '
         Me.Label3.AutoSize = True
         Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label3.Location = New System.Drawing.Point(186, 8)
+        Me.Label3.Location = New System.Drawing.Point(186, 6)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(34, 17)
         Me.Label3.TabIndex = 1002
@@ -476,7 +485,7 @@ Partial Class 客戶資料管理
         '
         Me.Label20.AutoSize = True
         Me.Label20.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label20.Location = New System.Drawing.Point(1099, 195)
+        Me.Label20.Location = New System.Drawing.Point(1090, 81)
         Me.Label20.Name = "Label20"
         Me.Label20.Size = New System.Drawing.Size(60, 17)
         Me.Label20.TabIndex = 1036
@@ -486,7 +495,7 @@ Partial Class 客戶資料管理
         '
         Me.Label13.AutoSize = True
         Me.Label13.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label13.Location = New System.Drawing.Point(342, 34)
+        Me.Label13.Location = New System.Drawing.Point(342, 30)
         Me.Label13.Name = "Label13"
         Me.Label13.Size = New System.Drawing.Size(60, 17)
         Me.Label13.TabIndex = 1022
@@ -496,17 +505,17 @@ Partial Class 客戶資料管理
         '
         Me.Label2.AutoSize = True
         Me.Label2.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label2.Location = New System.Drawing.Point(368, 7)
+        Me.Label2.Location = New System.Drawing.Point(341, 5)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(34, 17)
+        Me.Label2.Size = New System.Drawing.Size(61, 17)
         Me.Label2.TabIndex = 1000
-        Me.Label2.Text = "店名"
+        Me.Label2.Text = "店         名"
         '
         'Label14
         '
         Me.Label14.AutoSize = True
         Me.Label14.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label14.Location = New System.Drawing.Point(649, 34)
+        Me.Label14.Location = New System.Drawing.Point(649, 30)
         Me.Label14.Name = "Label14"
         Me.Label14.Size = New System.Drawing.Size(60, 17)
         Me.Label14.TabIndex = 1024
@@ -516,7 +525,7 @@ Partial Class 客戶資料管理
         '
         Me.Label6.AutoSize = True
         Me.Label6.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label6.Location = New System.Drawing.Point(649, 61)
+        Me.Label6.Location = New System.Drawing.Point(649, 55)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(60, 17)
         Me.Label6.TabIndex = 1008
@@ -526,7 +535,7 @@ Partial Class 客戶資料管理
         '
         Me.Label4.AutoSize = True
         Me.Label4.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label4.Location = New System.Drawing.Point(649, 7)
+        Me.Label4.Location = New System.Drawing.Point(649, 5)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(60, 17)
         Me.Label4.TabIndex = 1004
@@ -536,17 +545,17 @@ Partial Class 客戶資料管理
         '
         Me.Label7.AutoSize = True
         Me.Label7.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label7.Location = New System.Drawing.Point(165, 88)
+        Me.Label7.Location = New System.Drawing.Point(343, 56)
         Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(47, 17)
+        Me.Label7.Size = New System.Drawing.Size(59, 17)
         Me.Label7.TabIndex = 1010
-        Me.Label7.Text = "負責人"
+        Me.Label7.Text = "負  責  人"
         '
         'Label10
         '
         Me.Label10.AutoSize = True
         Me.Label10.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label10.Location = New System.Drawing.Point(333, 87)
+        Me.Label10.Location = New System.Drawing.Point(491, 55)
         Me.Label10.Name = "Label10"
         Me.Label10.Size = New System.Drawing.Size(34, 17)
         Me.Label10.TabIndex = 1016
@@ -556,7 +565,7 @@ Partial Class 客戶資料管理
         '
         Me.Label15.AutoSize = True
         Me.Label15.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label15.Location = New System.Drawing.Point(489, 89)
+        Me.Label15.Location = New System.Drawing.Point(650, 81)
         Me.Label15.Name = "Label15"
         Me.Label15.Size = New System.Drawing.Size(86, 17)
         Me.Label15.TabIndex = 1026
@@ -566,7 +575,7 @@ Partial Class 客戶資料管理
         '
         Me.Label8.AutoSize = True
         Me.Label8.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label8.Location = New System.Drawing.Point(649, 88)
+        Me.Label8.Location = New System.Drawing.Point(805, 81)
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(47, 17)
         Me.Label8.TabIndex = 1012
@@ -576,7 +585,7 @@ Partial Class 客戶資料管理
         '
         Me.Label11.AutoSize = True
         Me.Label11.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label11.Location = New System.Drawing.Point(942, 88)
+        Me.Label11.Location = New System.Drawing.Point(1090, 5)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(34, 17)
         Me.Label11.TabIndex = 1018
@@ -586,7 +595,7 @@ Partial Class 客戶資料管理
         '
         Me.Label9.AutoSize = True
         Me.Label9.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label9.Location = New System.Drawing.Point(786, 89)
+        Me.Label9.Location = New System.Drawing.Point(1090, 31)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(34, 17)
         Me.Label9.TabIndex = 1014
@@ -596,7 +605,7 @@ Partial Class 客戶資料管理
         '
         Me.Label19.AutoSize = True
         Me.Label19.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label19.Location = New System.Drawing.Point(1097, 89)
+        Me.Label19.Location = New System.Drawing.Point(1090, 56)
         Me.Label19.Name = "Label19"
         Me.Label19.Size = New System.Drawing.Size(60, 17)
         Me.Label19.TabIndex = 1034
@@ -606,11 +615,11 @@ Partial Class 客戶資料管理
         '
         Me.Label17.AutoSize = True
         Me.Label17.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Label17.Location = New System.Drawing.Point(354, 61)
+        Me.Label17.Location = New System.Drawing.Point(345, 82)
         Me.Label17.Name = "Label17"
-        Me.Label17.Size = New System.Drawing.Size(47, 17)
+        Me.Label17.Size = New System.Drawing.Size(56, 17)
         Me.Label17.TabIndex = 1030
-        Me.Label17.Text = "LineID"
+        Me.Label17.Text = "Line   ID"
         '
         'ContextMenuStrip1
         '
@@ -693,12 +702,20 @@ Partial Class 客戶資料管理
         Me.資料刪除ToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
         Me.資料刪除ToolStripMenuItem.Text = "資料刪除"
         '
+        'ToolTip1
+        '
+        Me.ToolTip1.AutoPopDelay = 5000
+        Me.ToolTip1.InitialDelay = 500
+        Me.ToolTip1.IsBalloon = True
+        Me.ToolTip1.ReshowDelay = 100
+        Me.ToolTip1.ToolTipTitle = "系統說明"
+        '
         '客戶資料管理
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1249, 611)
-        Me.Controls.Add(Me.只顯示35筆資料_ch)
+        Me.ClientSize = New System.Drawing.Size(1505, 611)
+        Me.Controls.Add(Me.客戶清單_dgv)
         Me.Controls.Add(Me.付款編號_tb)
         Me.Controls.Add(Me.可全選_ch)
         Me.Controls.Add(Me.模式一_bt)
@@ -719,7 +736,6 @@ Partial Class 客戶資料管理
         Me.Controls.Add(Me.發票地址郵號_tb)
         Me.Controls.Add(Me.發票地址_tb)
         Me.Controls.Add(Me.發票抬頭_tb)
-        Me.Controls.Add(Me.Label12)
         Me.Controls.Add(Me.統編_tb)
         Me.Controls.Add(Me.傳真_tb)
         Me.Controls.Add(Me.手機_tb)
@@ -734,7 +750,6 @@ Partial Class 客戶資料管理
         Me.Controls.Add(Me.店名_tb)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.編號_tb)
-        Me.Controls.Add(Me.客戶清單_dgv)
         Me.Controls.Add(Me.Label22)
         Me.Controls.Add(Me.Label16)
         Me.Controls.Add(Me.Label3)
@@ -752,8 +767,10 @@ Partial Class 客戶資料管理
         Me.Controls.Add(Me.Label9)
         Me.Controls.Add(Me.Label19)
         Me.Controls.Add(Me.Label17)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.只顯示35筆資料_ch)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "客戶資料管理"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "客戶資料管理"
@@ -769,7 +786,6 @@ Partial Class 客戶資料管理
     Friend WithEvents 可全選_ch As CheckBox
     Friend WithEvents 模式一_bt As Button
     Friend WithEvents 模式二_bt As Button
-    Friend WithEvents 單筆存檔_bt As Button
     Friend WithEvents 關鍵字查詢_bt As Button
     Friend WithEvents 批量存檔_bt As Button
     Friend WithEvents 新增一筆空白資料_bt As Button
@@ -831,4 +847,6 @@ Partial Class 客戶資料管理
     Friend WithEvents 資料存檔整體清單ToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
     Friend WithEvents 資料刪除ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolTip1 As ToolTip
+    Friend WithEvents 單筆存檔_bt As Button
 End Class

MAOJI-ERP-SYS/04、業務系統管理/客戶資料管理.resx

@@ -0,0 +1,129 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>14, 6</value>
+  </metadata>
+  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>178, 6</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>38</value>
+  </metadata>
+</root>

MAOJI-ERP-SYS/業務系統管理/客戶資料管理.vb → MAOJI-ERP-SYS/04、業務系統管理/客戶資料管理.vb

@@ -93,13 +93,28 @@ Public Class 客戶資料管理
         客戶清單_dgv.Columns(17).ReadOnly = False : 客戶清單_dgv.Columns(18).ReadOnly = False : 客戶清單_dgv.Columns(19).ReadOnly = False : 客戶清單_dgv.Columns(20).ReadOnly = False
         客戶清單_dgv.Columns(21).ReadOnly = False : 客戶清單_dgv.Columns(22).ReadOnly = False
     End Sub
+    Private Sub 關鍵字查詢_bt_MouseEnter(sender As Object, e As EventArgs) Handles 關鍵字查詢_bt.MouseEnter
+        ToolTip1.SetToolTip(Me.關鍵字查詢_bt, "關鍵字查詢")
+    End Sub
+    Private Sub 新增一筆空白資料_bt_MouseEnter(sender As Object, e As EventArgs) Handles 新增一筆空白資料_bt.MouseEnter
+        ToolTip1.SetToolTip(Me.新增一筆空白資料_bt, "新增一筆空白資料")
+    End Sub
+    Private Sub 單筆存檔_bt_MouseEnter(sender As Object, e As EventArgs) Handles 單筆存檔_bt.MouseEnter
+        ToolTip1.SetToolTip(Me.單筆存檔_bt, "單筆存檔")
+    End Sub
+    Private Sub 批量存檔_bt_MouseEnter(sender As Object, e As EventArgs) Handles 批量存檔_bt.MouseEnter
+        ToolTip1.SetToolTip(Me.批量存檔_bt, "批量存檔")
+    End Sub
     Private Sub 客戶資料管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        MAOJI_ERP_SYS.WindowState = 2 : Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         ComboBox1下拉表單資料載入()
         Set_客戶清單()
         編號_tb.Enabled = False : 付款編號_tb.Visible = False : 模式一_bt.Enabled = False : 模式二_bt.Enabled = True
         格式1_縮小() : If gUserName = "李協叡" Then : 資料刪除ToolStripMenuItem.Enabled = True : Else : 資料刪除ToolStripMenuItem.Enabled = False : End If
     End Sub
+    Private Sub 客戶資料管理_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
+        MAOJI_ERP_SYS.WindowState = 0
+    End Sub
     Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 客戶清單_dgv.CellClick
         If e.RowIndex = -1 Then : Else
             編號_tb.Text = 客戶清單_dgv.Rows(e.RowIndex).Cells("編號").Value.ToString : 店名_tb.Text = 客戶清單_dgv.Rows(e.RowIndex).Cells("店名").Value.ToString

MAOJI-ERP-SYS/業務系統管理/維修單出庫確認.Designer.vb → MAOJI-ERP-SYS/04、業務系統管理/維修單出庫確認.Designer.vb

@@ -50,7 +50,7 @@ Partial Class 維修單出庫確認
         '
         Me.確認物料出貨_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.確認物料出貨_bt.ForeColor = System.Drawing.Color.Green
-        Me.確認物料出貨_bt.Location = New System.Drawing.Point(7, 5)
+        Me.確認物料出貨_bt.Location = New System.Drawing.Point(7, 3)
         Me.確認物料出貨_bt.Name = "確認物料出貨_bt"
         Me.確認物料出貨_bt.Size = New System.Drawing.Size(95, 24)
         Me.確認物料出貨_bt.TabIndex = 1091
@@ -62,7 +62,7 @@ Partial Class 維修單出庫確認
         Me.依單據選擇_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.依單據選擇_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.依單據選擇_bt.ForeColor = System.Drawing.Color.Olive
-        Me.依單據選擇_bt.Location = New System.Drawing.Point(987, 5)
+        Me.依單據選擇_bt.Location = New System.Drawing.Point(987, 3)
         Me.依單據選擇_bt.Name = "依單據選擇_bt"
         Me.依單據選擇_bt.Size = New System.Drawing.Size(113, 24)
         Me.依單據選擇_bt.TabIndex = 1090
@@ -72,7 +72,7 @@ Partial Class 維修單出庫確認
         '單據號碼_tb
         '
         Me.單據號碼_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.單據號碼_tb.Location = New System.Drawing.Point(170, 6)
+        Me.單據號碼_tb.Location = New System.Drawing.Point(170, 4)
         Me.單據號碼_tb.Name = "單據號碼_tb"
         Me.單據號碼_tb.Size = New System.Drawing.Size(137, 23)
         Me.單據號碼_tb.TabIndex = 1088
@@ -80,7 +80,7 @@ Partial Class 維修單出庫確認
         '出庫日期_dtp
         '
         Me.出庫日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.出庫日期_dtp.Location = New System.Drawing.Point(368, 5)
+        Me.出庫日期_dtp.Location = New System.Drawing.Point(368, 3)
         Me.出庫日期_dtp.Name = "出庫日期_dtp"
         Me.出庫日期_dtp.Size = New System.Drawing.Size(91, 23)
         Me.出庫日期_dtp.TabIndex = 1086
@@ -90,7 +90,7 @@ Partial Class 維修單出庫確認
         Me.全部取消_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.全部取消_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.全部取消_bt.ForeColor = System.Drawing.Color.Olive
-        Me.全部取消_bt.Location = New System.Drawing.Point(1177, 5)
+        Me.全部取消_bt.Location = New System.Drawing.Point(1177, 3)
         Me.全部取消_bt.Name = "全部取消_bt"
         Me.全部取消_bt.Size = New System.Drawing.Size(65, 24)
         Me.全部取消_bt.TabIndex = 1085
@@ -102,7 +102,7 @@ Partial Class 維修單出庫確認
         Me.全部選擇_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.全部選擇_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.全部選擇_bt.ForeColor = System.Drawing.Color.Olive
-        Me.全部選擇_bt.Location = New System.Drawing.Point(1106, 5)
+        Me.全部選擇_bt.Location = New System.Drawing.Point(1106, 3)
         Me.全部選擇_bt.Name = "全部選擇_bt"
         Me.全部選擇_bt.Size = New System.Drawing.Size(65, 24)
         Me.全部選擇_bt.TabIndex = 1084
@@ -117,21 +117,22 @@ Partial Class 維修單出庫確認
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.物料出庫_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.物料出庫_dgv.BackgroundColor = System.Drawing.Color.White
         Me.物料出庫_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.物料出庫_dgv.Location = New System.Drawing.Point(7, 35)
+        Me.物料出庫_dgv.Location = New System.Drawing.Point(3, 31)
         Me.物料出庫_dgv.Name = "物料出庫_dgv"
         Me.物料出庫_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.物料出庫_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.物料出庫_dgv.RowTemplate.Height = 24
-        Me.物料出庫_dgv.Size = New System.Drawing.Size(1235, 570)
+        Me.物料出庫_dgv.Size = New System.Drawing.Size(1243, 578)
         Me.物料出庫_dgv.TabIndex = 1083
         '
         'Label4
         '
         Me.Label4.AutoSize = True
         Me.Label4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label4.Location = New System.Drawing.Point(108, 9)
+        Me.Label4.Location = New System.Drawing.Point(108, 7)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(55, 16)
         Me.Label4.TabIndex = 1089
@@ -142,7 +143,7 @@ Partial Class 維修單出庫確認
         Me.Label20.AutoSize = True
         Me.Label20.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label20.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label20.Location = New System.Drawing.Point(313, 9)
+        Me.Label20.Location = New System.Drawing.Point(313, 7)
         Me.Label20.Name = "Label20"
         Me.Label20.Size = New System.Drawing.Size(55, 16)
         Me.Label20.TabIndex = 1087
@@ -213,7 +214,7 @@ Partial Class 維修單出庫確認
         Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.Label20)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "維修單出庫確認"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "維修單出庫確認"

MAOJI-ERP-SYS/業務系統管理/維修單申請.Designer.vb → MAOJI-ERP-SYS/04、業務系統管理/維修單申請.Designer.vb

@@ -23,11 +23,11 @@ Partial Class 維修單申請
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.列印產品標籤_bt = New System.Windows.Forms.Button()
         Me.Label28 = New System.Windows.Forms.Label()
         Me.非當天日期_ch = New System.Windows.Forms.CheckBox()
@@ -158,7 +158,7 @@ Partial Class 維修單申請
         '
         Me.維修出庫_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.維修出庫_tb.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
-        Me.維修出庫_tb.Location = New System.Drawing.Point(203, 250)
+        Me.維修出庫_tb.Location = New System.Drawing.Point(198, 247)
         Me.維修出庫_tb.Name = "維修出庫_tb"
         Me.維修出庫_tb.Size = New System.Drawing.Size(137, 23)
         Me.維修出庫_tb.TabIndex = 1261
@@ -171,7 +171,7 @@ Partial Class 維修單申請
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.修改存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.修改存檔_bt.ForeColor = System.Drawing.Color.Green
-        Me.修改存檔_bt.Location = New System.Drawing.Point(457, 575)
+        Me.修改存檔_bt.Location = New System.Drawing.Point(457, 580)
         Me.修改存檔_bt.Name = "修改存檔_bt"
         Me.修改存檔_bt.Size = New System.Drawing.Size(787, 30)
         Me.修改存檔_bt.TabIndex = 1260
@@ -375,20 +375,21 @@ Partial Class 維修單申請
         '
         '明細_dgv
         '
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.明細_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.明細_dgv.BackgroundColor = System.Drawing.Color.White
         Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.明細_dgv.Location = New System.Drawing.Point(457, 104)
+        Me.明細_dgv.Location = New System.Drawing.Point(447, 104)
         Me.明細_dgv.Name = "明細_dgv"
         Me.明細_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.明細_dgv.RowTemplate.Height = 24
-        Me.明細_dgv.Size = New System.Drawing.Size(787, 470)
+        Me.明細_dgv.Size = New System.Drawing.Size(795, 474)
         Me.明細_dgv.TabIndex = 1255
         '
         '列印維修單_bt
@@ -406,7 +407,7 @@ Partial Class 維修單申請
         '
         Me.開新維修單_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         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(369, 30)
+        Me.開新維修單_bt.Location = New System.Drawing.Point(364, 27)
         Me.開新維修單_bt.Name = "開新維修單_bt"
         Me.開新維修單_bt.Size = New System.Drawing.Size(82, 25)
         Me.開新維修單_bt.TabIndex = 1238
@@ -416,7 +417,7 @@ Partial Class 維修單申請
         '倉庫編號_tb
         '
         Me.倉庫編號_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.倉庫編號_tb.Location = New System.Drawing.Point(169, 29)
+        Me.倉庫編號_tb.Location = New System.Drawing.Point(164, 26)
         Me.倉庫編號_tb.Name = "倉庫編號_tb"
         Me.倉庫編號_tb.Size = New System.Drawing.Size(42, 23)
         Me.倉庫編號_tb.TabIndex = 1236
@@ -428,7 +429,7 @@ Partial Class 維修單申請
         Me.指定倉處_cb.ForeColor = System.Drawing.Color.Green
         Me.指定倉處_cb.FormattingEnabled = True
         Me.指定倉處_cb.Items.AddRange(New Object() {"NA", "女", "男"})
-        Me.指定倉處_cb.Location = New System.Drawing.Point(59, 29)
+        Me.指定倉處_cb.Location = New System.Drawing.Point(54, 26)
         Me.指定倉處_cb.Name = "指定倉處_cb"
         Me.指定倉處_cb.Size = New System.Drawing.Size(105, 23)
         Me.指定倉處_cb.TabIndex = 1235
@@ -437,7 +438,7 @@ Partial Class 維修單申請
         '
         Me.Label14.AutoSize = True
         Me.Label14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label14.Location = New System.Drawing.Point(5, 32)
+        Me.Label14.Location = New System.Drawing.Point(0, 29)
         Me.Label14.Name = "Label14"
         Me.Label14.Size = New System.Drawing.Size(55, 16)
         Me.Label14.TabIndex = 1237
@@ -447,7 +448,7 @@ Partial Class 維修單申請
         '
         Me.Label21.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label21.AutoSize = True
-        Me.Label21.Location = New System.Drawing.Point(8, 321)
+        Me.Label21.Location = New System.Drawing.Point(3, 318)
         Me.Label21.Name = "Label21"
         Me.Label21.Size = New System.Drawing.Size(55, 16)
         Me.Label21.TabIndex = 1234
@@ -457,7 +458,7 @@ Partial Class 維修單申請
         '
         Me.已出庫的維修單_rb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.已出庫的維修單_rb.AutoSize = True
-        Me.已出庫的維修單_rb.Location = New System.Drawing.Point(136, 343)
+        Me.已出庫的維修單_rb.Location = New System.Drawing.Point(131, 340)
         Me.已出庫的維修單_rb.Name = "已出庫的維修單_rb"
         Me.已出庫的維修單_rb.Size = New System.Drawing.Size(109, 20)
         Me.已出庫的維修單_rb.TabIndex = 1231
@@ -468,7 +469,7 @@ Partial Class 維修單申請
         '
         Me.未出庫的維修單_rb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.未出庫的維修單_rb.AutoSize = True
-        Me.未出庫的維修單_rb.Location = New System.Drawing.Point(8, 343)
+        Me.未出庫的維修單_rb.Location = New System.Drawing.Point(3, 340)
         Me.未出庫的維修單_rb.Name = "未出庫的維修單_rb"
         Me.未出庫的維修單_rb.Size = New System.Drawing.Size(109, 20)
         Me.未出庫的維修單_rb.TabIndex = 1230
@@ -478,7 +479,7 @@ Partial Class 維修單申請
         '歷史售價_tb
         '
         Me.歷史售價_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.歷史售價_tb.Location = New System.Drawing.Point(76, 318)
+        Me.歷史售價_tb.Location = New System.Drawing.Point(71, 315)
         Me.歷史售價_tb.Name = "歷史售價_tb"
         Me.歷史售價_tb.Size = New System.Drawing.Size(65, 23)
         Me.歷史售價_tb.TabIndex = 1229
@@ -488,7 +489,7 @@ Partial Class 維修單申請
         '加權成本_台幣_tb
         '
         Me.加權成本_台幣_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.加權成本_台幣_tb.Location = New System.Drawing.Point(13, 249)
+        Me.加權成本_台幣_tb.Location = New System.Drawing.Point(8, 246)
         Me.加權成本_台幣_tb.Name = "加權成本_台幣_tb"
         Me.加權成本_台幣_tb.Size = New System.Drawing.Size(65, 23)
         Me.加權成本_台幣_tb.TabIndex = 1228
@@ -499,7 +500,7 @@ Partial Class 維修單申請
         '
         Me.Label17.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label17.AutoSize = True
-        Me.Label17.Location = New System.Drawing.Point(141, 321)
+        Me.Label17.Location = New System.Drawing.Point(136, 318)
         Me.Label17.Name = "Label17"
         Me.Label17.Size = New System.Drawing.Size(43, 16)
         Me.Label17.TabIndex = 1227
@@ -508,7 +509,7 @@ Partial Class 維修單申請
         '可出庫_tb
         '
         Me.可出庫_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.可出庫_tb.Location = New System.Drawing.Point(185, 318)
+        Me.可出庫_tb.Location = New System.Drawing.Point(180, 315)
         Me.可出庫_tb.Name = "可出庫_tb"
         Me.可出庫_tb.Size = New System.Drawing.Size(65, 23)
         Me.可出庫_tb.TabIndex = 1226
@@ -519,7 +520,7 @@ Partial Class 維修單申請
         '
         Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(8, 294)
+        Me.Label3.Location = New System.Drawing.Point(3, 291)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(67, 16)
         Me.Label3.TabIndex = 1225
@@ -529,7 +530,7 @@ Partial Class 維修單申請
         '
         Me.供應商編號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.供應商編號_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.供應商編號_tb.Location = New System.Drawing.Point(76, 291)
+        Me.供應商編號_tb.Location = New System.Drawing.Point(71, 288)
         Me.供應商編號_tb.Name = "供應商編號_tb"
         Me.供應商編號_tb.Size = New System.Drawing.Size(128, 25)
         Me.供應商編號_tb.TabIndex = 1224
@@ -540,7 +541,7 @@ Partial Class 維修單申請
         Me.新增物料到維修單_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.新增物料到維修單_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         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(369, 290)
+        Me.新增物料到維修單_bt.Location = New System.Drawing.Point(364, 287)
         Me.新增物料到維修單_bt.Name = "新增物料到維修單_bt"
         Me.新增物料到維修單_bt.Size = New System.Drawing.Size(82, 73)
         Me.新增物料到維修單_bt.TabIndex = 1222
@@ -550,7 +551,7 @@ Partial Class 維修單申請
         '申請數_nud
         '
         Me.申請數_nud.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.申請數_nud.Location = New System.Drawing.Point(300, 318)
+        Me.申請數_nud.Location = New System.Drawing.Point(295, 315)
         Me.申請數_nud.Maximum = New Decimal(New Integer() {10000, 0, 0, 0})
         Me.申請數_nud.Name = "申請數_nud"
         Me.申請數_nud.Size = New System.Drawing.Size(67, 23)
@@ -561,7 +562,7 @@ Partial Class 維修單申請
         '
         Me.Label13.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label13.AutoSize = True
-        Me.Label13.Location = New System.Drawing.Point(255, 321)
+        Me.Label13.Location = New System.Drawing.Point(250, 318)
         Me.Label13.Name = "Label13"
         Me.Label13.Size = New System.Drawing.Size(43, 16)
         Me.Label13.TabIndex = 1220
@@ -571,7 +572,7 @@ Partial Class 維修單申請
         '
         Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label11.AutoSize = True
-        Me.Label11.Location = New System.Drawing.Point(205, 295)
+        Me.Label11.Location = New System.Drawing.Point(200, 292)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(31, 16)
         Me.Label11.TabIndex = 1219
@@ -581,7 +582,7 @@ Partial Class 維修單申請
         '
         Me.料號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.料號_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.料號_tb.Location = New System.Drawing.Point(237, 291)
+        Me.料號_tb.Location = New System.Drawing.Point(232, 288)
         Me.料號_tb.Name = "料號_tb"
         Me.料號_tb.Size = New System.Drawing.Size(130, 25)
         Me.料號_tb.TabIndex = 1218
@@ -593,7 +594,7 @@ Partial Class 維修單申請
         Me.頁碼_cb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.頁碼_cb.FormattingEnabled = True
         Me.頁碼_cb.Items.AddRange(New Object() {"男", "女", "NA"})
-        Me.頁碼_cb.Location = New System.Drawing.Point(217, 5)
+        Me.頁碼_cb.Location = New System.Drawing.Point(212, 2)
         Me.頁碼_cb.Name = "頁碼_cb"
         Me.頁碼_cb.Size = New System.Drawing.Size(64, 24)
         Me.頁碼_cb.TabIndex = 1217
@@ -603,7 +604,7 @@ Partial Class 維修單申請
         Me.Label27.AutoSize = True
         Me.Label27.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label27.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label27.Location = New System.Drawing.Point(186, 10)
+        Me.Label27.Location = New System.Drawing.Point(181, 7)
         Me.Label27.Name = "Label27"
         Me.Label27.Size = New System.Drawing.Size(31, 16)
         Me.Label27.TabIndex = 1216
@@ -616,7 +617,7 @@ Partial Class 維修單申請
         Me.客戶編號_cb.ForeColor = System.Drawing.Color.Green
         Me.客戶編號_cb.FormattingEnabled = True
         Me.客戶編號_cb.Items.AddRange(New Object() {"男", "女", "NA"})
-        Me.客戶編號_cb.Location = New System.Drawing.Point(84, 249)
+        Me.客戶編號_cb.Location = New System.Drawing.Point(79, 246)
         Me.客戶編號_cb.Name = "客戶編號_cb"
         Me.客戶編號_cb.Size = New System.Drawing.Size(113, 24)
         Me.客戶編號_cb.TabIndex = 1215
@@ -624,7 +625,7 @@ Partial Class 維修單申請
         '物料關鍵字_tb
         '
         Me.物料關鍵字_tb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.物料關鍵字_tb.Location = New System.Drawing.Point(349, 5)
+        Me.物料關鍵字_tb.Location = New System.Drawing.Point(344, 2)
         Me.物料關鍵字_tb.Name = "物料關鍵字_tb"
         Me.物料關鍵字_tb.Size = New System.Drawing.Size(102, 25)
         Me.物料關鍵字_tb.TabIndex = 1214
@@ -634,7 +635,7 @@ Partial Class 維修單申請
         Me.Label1.AutoSize = True
         Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label1.Location = New System.Drawing.Point(282, 10)
+        Me.Label1.Location = New System.Drawing.Point(277, 7)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(67, 16)
         Me.Label1.TabIndex = 1213
@@ -645,12 +646,13 @@ Partial Class 維修單申請
         Me.庫存_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.庫存_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.庫存_dgv.BackgroundColor = System.Drawing.Color.White
         Me.庫存_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.庫存_dgv.Location = New System.Drawing.Point(8, 55)
+        Me.庫存_dgv.Location = New System.Drawing.Point(3, 52)
         Me.庫存_dgv.Name = "庫存_dgv"
         Me.庫存_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.庫存_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.庫存_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
         Me.庫存_dgv.RowTemplate.Height = 24
         Me.庫存_dgv.Size = New System.Drawing.Size(443, 234)
         Me.庫存_dgv.TabIndex = 1212
@@ -658,7 +660,7 @@ Partial Class 維修單申請
         '依商品排序_ch
         '
         Me.依商品排序_ch.AutoSize = True
-        Me.依商品排序_ch.Location = New System.Drawing.Point(105, 9)
+        Me.依商品排序_ch.Location = New System.Drawing.Point(100, 6)
         Me.依商品排序_ch.Name = "依商品排序_ch"
         Me.依商品排序_ch.Size = New System.Drawing.Size(86, 20)
         Me.依商品排序_ch.TabIndex = 1233
@@ -668,7 +670,7 @@ Partial Class 維修單申請
         '依供應商排序_ch
         '
         Me.依供應商排序_ch.AutoSize = True
-        Me.依供應商排序_ch.Location = New System.Drawing.Point(8, 9)
+        Me.依供應商排序_ch.Location = New System.Drawing.Point(3, 6)
         Me.依供應商排序_ch.Name = "依供應商排序_ch"
         Me.依供應商排序_ch.Size = New System.Drawing.Size(98, 20)
         Me.依供應商排序_ch.TabIndex = 1232
@@ -677,18 +679,19 @@ Partial Class 維修單申請
         '
         '彙總_dgv
         '
-        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
         Me.彙總_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.彙總_dgv.BackgroundColor = System.Drawing.Color.White
         Me.彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.彙總_dgv.Location = New System.Drawing.Point(8, 366)
+        Me.彙總_dgv.Location = New System.Drawing.Point(3, 363)
         Me.彙總_dgv.Name = "彙總_dgv"
         Me.彙總_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
         Me.彙總_dgv.RowTemplate.Height = 24
-        Me.彙總_dgv.Size = New System.Drawing.Size(443, 239)
+        Me.彙總_dgv.Size = New System.Drawing.Size(443, 245)
         Me.彙總_dgv.TabIndex = 1223
         '
         'ContextMenuStrip1
@@ -763,6 +766,7 @@ Partial Class 維修單申請
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1249, 611)
+        Me.Controls.Add(Me.庫存_dgv)
         Me.Controls.Add(Me.列印產品標籤_bt)
         Me.Controls.Add(Me.Label28)
         Me.Controls.Add(Me.非當天日期_ch)
@@ -814,12 +818,11 @@ Partial Class 維修單申請
         Me.Controls.Add(Me.客戶編號_cb)
         Me.Controls.Add(Me.物料關鍵字_tb)
         Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.庫存_dgv)
         Me.Controls.Add(Me.依商品排序_ch)
         Me.Controls.Add(Me.依供應商排序_ch)
         Me.Controls.Add(Me.彙總_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "維修單申請"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "維修單申請"

MAOJI-ERP-SYS/業務系統管理/訂單出貨控制表.Designer.vb → MAOJI-ERP-SYS/04、業務系統管理/訂單出貨控制表.Designer.vb

@@ -23,8 +23,8 @@ Partial Class 訂單出貨控制表
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.隱藏_ch = New System.Windows.Forms.CheckBox()
         Me.出貨單號_tb = New System.Windows.Forms.TextBox()
         Me.Label16 = New System.Windows.Forms.Label()
@@ -201,12 +201,13 @@ Partial Class 訂單出貨控制表
         Me.庫存清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.庫存清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.庫存清單_dgv.BackgroundColor = System.Drawing.Color.White
         Me.庫存清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.庫存清單_dgv.Location = New System.Drawing.Point(802, 35)
         Me.庫存清單_dgv.Name = "庫存清單_dgv"
         Me.庫存清單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.庫存清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.庫存清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
         Me.庫存清單_dgv.RowTemplate.Height = 24
         Me.庫存清單_dgv.Size = New System.Drawing.Size(443, 570)
         Me.庫存清單_dgv.TabIndex = 1134
@@ -217,12 +218,13 @@ Partial Class 訂單出貨控制表
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.訂單明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.訂單明細_dgv.BackgroundColor = System.Drawing.Color.White
         Me.訂單明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.訂單明細_dgv.Location = New System.Drawing.Point(9, 35)
         Me.訂單明細_dgv.Name = "訂單明細_dgv"
         Me.訂單明細_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.訂單明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.訂單明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.訂單明細_dgv.RowTemplate.Height = 24
         Me.訂單明細_dgv.Size = New System.Drawing.Size(791, 570)
         Me.訂單明細_dgv.TabIndex = 1133
@@ -291,7 +293,7 @@ Partial Class 訂單出貨控制表
         Me.Controls.Add(Me.訂單明細_dgv)
         Me.Controls.Add(Me.出貨備齊_ch)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "訂單出貨控制表"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "訂單出貨控制表"

MAOJI-ERP-SYS/業務系統管理/訂單採購需求申請.Designer.vb → MAOJI-ERP-SYS/04、業務系統管理/訂單採購需求申請.Designer.vb

@@ -23,7 +23,7 @@ Partial Class 訂單採購需求申請
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.開立採購單_bt = New System.Windows.Forms.Button()
         Me.非當天日期_ch = New System.Windows.Forms.CheckBox()
         Me.供應商交期_dtp = New System.Windows.Forms.DateTimePicker()
@@ -186,12 +186,13 @@ Partial Class 訂單採購需求申請
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.訂單明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.訂單明細_dgv.BackgroundColor = System.Drawing.Color.White
         Me.訂單明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.訂單明細_dgv.Location = New System.Drawing.Point(7, 35)
         Me.訂單明細_dgv.Name = "訂單明細_dgv"
         Me.訂單明細_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.訂單明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.訂單明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
         Me.訂單明細_dgv.RowTemplate.Height = 24
         Me.訂單明細_dgv.Size = New System.Drawing.Size(1235, 570)
         Me.訂單明細_dgv.TabIndex = 1174
@@ -225,6 +226,7 @@ Partial Class 訂單採購需求申請
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1249, 611)
+        Me.Controls.Add(Me.訂單明細_dgv)
         Me.Controls.Add(Me.開立採購單_bt)
         Me.Controls.Add(Me.非當天日期_ch)
         Me.Controls.Add(Me.供應商交期_dtp)
@@ -238,9 +240,8 @@ Partial Class 訂單採購需求申請
         Me.Controls.Add(Me.供應商_cb)
         Me.Controls.Add(Me.Label9)
         Me.Controls.Add(Me.Label20)
-        Me.Controls.Add(Me.訂單明細_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "訂單採購需求申請"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "訂單採購需求申請"

MAOJI-ERP-SYS/業務系統管理/訂單管理控制表.Designer.vb → MAOJI-ERP-SYS/04、業務系統管理/訂單管理控制表.Designer.vb

@@ -23,11 +23,11 @@ Partial Class 訂單管理控制表
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.新單號_tb = New System.Windows.Forms.TextBox()
         Me.出貨單號_tb = New System.Windows.Forms.TextBox()
         Me.組裝需求_cb = New System.Windows.Forms.ComboBox()
@@ -479,38 +479,40 @@ Partial Class 訂單管理控制表
         Me.物料清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.物料清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.物料清單_dgv.BackgroundColor = System.Drawing.Color.White
         Me.物料清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.物料清單_dgv.Location = New System.Drawing.Point(7, 110)
         Me.物料清單_dgv.Name = "物料清單_dgv"
         Me.物料清單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
         Me.物料清單_dgv.RowTemplate.Height = 24
         Me.物料清單_dgv.Size = New System.Drawing.Size(443, 497)
         Me.物料清單_dgv.TabIndex = 1193
         '
         '訂單彙總_dgv
         '
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.訂單彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.訂單彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         Me.訂單彙總_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.訂單彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.訂單彙總_dgv.BackgroundColor = System.Drawing.Color.White
         Me.訂單彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.訂單彙總_dgv.Location = New System.Drawing.Point(454, 60)
         Me.訂單彙總_dgv.Name = "訂單彙總_dgv"
         Me.訂單彙總_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.訂單彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.訂單彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
         Me.訂單彙總_dgv.RowTemplate.Height = 24
         Me.訂單彙總_dgv.Size = New System.Drawing.Size(787, 547)
         Me.訂單彙總_dgv.TabIndex = 1216
         '
         '訂單明細_dgv
         '
-        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.訂單明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.訂單明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
         Me.訂單明細_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -519,8 +521,8 @@ Partial Class 訂單管理控制表
         Me.訂單明細_dgv.Location = New System.Drawing.Point(454, 60)
         Me.訂單明細_dgv.Name = "訂單明細_dgv"
         Me.訂單明細_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.訂單明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.訂單明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
         Me.訂單明細_dgv.RowTemplate.Height = 24
         Me.訂單明細_dgv.Size = New System.Drawing.Size(787, 547)
         Me.訂單明細_dgv.TabIndex = 1219
@@ -580,6 +582,7 @@ Partial Class 訂單管理控制表
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1249, 611)
+        Me.Controls.Add(Me.物料清單_dgv)
         Me.Controls.Add(Me.新單號_tb)
         Me.Controls.Add(Me.出貨單號_tb)
         Me.Controls.Add(Me.組裝需求_cb)
@@ -619,11 +622,10 @@ Partial Class 訂單管理控制表
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.依商品排序_ch)
         Me.Controls.Add(Me.依供應商排序_ch)
-        Me.Controls.Add(Me.物料清單_dgv)
         Me.Controls.Add(Me.訂單彙總_dgv)
         Me.Controls.Add(Me.訂單明細_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "訂單管理控制表"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "訂單管理控制表"

MAOJI-ERP-SYS/業務系統管理/銷售控制表.Designer.vb → MAOJI-ERP-SYS/04、業務系統管理/銷售控制表.Designer.vb

@@ -87,7 +87,7 @@ Partial Class 銷售控制表
         '
         Me.中間日期_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
         Me.中間日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.中間日期_dtp.Location = New System.Drawing.Point(77, 30)
+        Me.中間日期_dtp.Location = New System.Drawing.Point(77, 26)
         Me.中間日期_dtp.Name = "中間日期_dtp"
         Me.中間日期_dtp.Size = New System.Drawing.Size(43, 23)
         Me.中間日期_dtp.TabIndex = 1217
@@ -95,7 +95,7 @@ Partial Class 銷售控制表
         '一般月_ch
         '
         Me.一般月_ch.AutoSize = True
-        Me.一般月_ch.Location = New System.Drawing.Point(137, 33)
+        Me.一般月_ch.Location = New System.Drawing.Point(137, 29)
         Me.一般月_ch.Name = "一般月_ch"
         Me.一般月_ch.Size = New System.Drawing.Size(62, 20)
         Me.一般月_ch.TabIndex = 1216
@@ -107,7 +107,7 @@ Partial Class 銷售控制表
         Me.會計月_ch.AutoSize = True
         Me.會計月_ch.Checked = True
         Me.會計月_ch.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.會計月_ch.Location = New System.Drawing.Point(8, 32)
+        Me.會計月_ch.Location = New System.Drawing.Point(8, 28)
         Me.會計月_ch.Name = "會計月_ch"
         Me.會計月_ch.Size = New System.Drawing.Size(62, 20)
         Me.會計月_ch.TabIndex = 1215
@@ -117,7 +117,7 @@ Partial Class 銷售控制表
         '隱藏單據編號_ch
         '
         Me.隱藏單據編號_ch.AutoSize = True
-        Me.隱藏單據編號_ch.Location = New System.Drawing.Point(347, 8)
+        Me.隱藏單據編號_ch.Location = New System.Drawing.Point(347, 4)
         Me.隱藏單據編號_ch.Name = "隱藏單據編號_ch"
         Me.隱藏單據編號_ch.Size = New System.Drawing.Size(98, 20)
         Me.隱藏單據編號_ch.TabIndex = 1214
@@ -127,7 +127,7 @@ Partial Class 銷售控制表
         '隱藏供應商_ch
         '
         Me.隱藏供應商_ch.AutoSize = True
-        Me.隱藏供應商_ch.Location = New System.Drawing.Point(452, 8)
+        Me.隱藏供應商_ch.Location = New System.Drawing.Point(452, 4)
         Me.隱藏供應商_ch.Name = "隱藏供應商_ch"
         Me.隱藏供應商_ch.Size = New System.Drawing.Size(86, 20)
         Me.隱藏供應商_ch.TabIndex = 1213
@@ -137,7 +137,7 @@ Partial Class 銷售控制表
         '顯示彙總表_ch
         '
         Me.顯示彙總表_ch.AutoSize = True
-        Me.顯示彙總表_ch.Location = New System.Drawing.Point(254, 8)
+        Me.顯示彙總表_ch.Location = New System.Drawing.Point(254, 4)
         Me.顯示彙總表_ch.Name = "顯示彙總表_ch"
         Me.顯示彙總表_ch.Size = New System.Drawing.Size(86, 20)
         Me.顯示彙總表_ch.TabIndex = 1212
@@ -147,7 +147,7 @@ Partial Class 銷售控制表
         'Label25
         '
         Me.Label25.AutoSize = True
-        Me.Label25.Location = New System.Drawing.Point(693, 57)
+        Me.Label25.Location = New System.Drawing.Point(693, 53)
         Me.Label25.Name = "Label25"
         Me.Label25.Size = New System.Drawing.Size(79, 16)
         Me.Label25.TabIndex = 1211
@@ -156,7 +156,7 @@ Partial Class 銷售控制表
         '總成本_tb
         '
         Me.總成本_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.總成本_tb.Location = New System.Drawing.Point(980, 54)
+        Me.總成本_tb.Location = New System.Drawing.Point(980, 50)
         Me.總成本_tb.Name = "總成本_tb"
         Me.總成本_tb.Size = New System.Drawing.Size(100, 23)
         Me.總成本_tb.TabIndex = 1185
@@ -166,7 +166,7 @@ Partial Class 銷售控制表
         'Label24
         '
         Me.Label24.AutoSize = True
-        Me.Label24.Location = New System.Drawing.Point(693, 33)
+        Me.Label24.Location = New System.Drawing.Point(693, 29)
         Me.Label24.Name = "Label24"
         Me.Label24.Size = New System.Drawing.Size(91, 16)
         Me.Label24.TabIndex = 1210
@@ -175,7 +175,7 @@ Partial Class 銷售控制表
         '客戶_利潤_tb
         '
         Me.客戶_利潤_tb.ForeColor = System.Drawing.Color.Purple
-        Me.客戶_利潤_tb.Location = New System.Drawing.Point(587, 54)
+        Me.客戶_利潤_tb.Location = New System.Drawing.Point(587, 50)
         Me.客戶_利潤_tb.Name = "客戶_利潤_tb"
         Me.客戶_利潤_tb.Size = New System.Drawing.Size(100, 23)
         Me.客戶_利潤_tb.TabIndex = 1179
@@ -185,7 +185,7 @@ Partial Class 銷售控制表
         '總利潤_tb
         '
         Me.總利潤_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.總利潤_tb.Location = New System.Drawing.Point(1144, 54)
+        Me.總利潤_tb.Location = New System.Drawing.Point(1144, 50)
         Me.總利潤_tb.Name = "總利潤_tb"
         Me.總利潤_tb.Size = New System.Drawing.Size(100, 23)
         Me.總利潤_tb.TabIndex = 1178
@@ -196,7 +196,7 @@ Partial Class 銷售控制表
         '
         Me.Label12.AutoSize = True
         Me.Label12.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label12.Location = New System.Drawing.Point(1111, 57)
+        Me.Label12.Location = New System.Drawing.Point(1111, 53)
         Me.Label12.Name = "Label12"
         Me.Label12.Size = New System.Drawing.Size(31, 16)
         Me.Label12.TabIndex = 1176
@@ -205,7 +205,7 @@ Partial Class 銷售控制表
         '已出_成本_tb
         '
         Me.已出_成本_tb.ForeColor = System.Drawing.Color.Green
-        Me.已出_成本_tb.Location = New System.Drawing.Point(980, 30)
+        Me.已出_成本_tb.Location = New System.Drawing.Point(980, 26)
         Me.已出_成本_tb.Name = "已出_成本_tb"
         Me.已出_成本_tb.Size = New System.Drawing.Size(100, 23)
         Me.已出_成本_tb.TabIndex = 1186
@@ -215,7 +215,7 @@ Partial Class 銷售控制表
         '總銷售_tb
         '
         Me.總銷售_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.總銷售_tb.Location = New System.Drawing.Point(824, 54)
+        Me.總銷售_tb.Location = New System.Drawing.Point(824, 50)
         Me.總銷售_tb.Name = "總銷售_tb"
         Me.總銷售_tb.Size = New System.Drawing.Size(100, 23)
         Me.總銷售_tb.TabIndex = 1193
@@ -225,7 +225,7 @@ Partial Class 銷售控制表
         '未出_成本_tb
         '
         Me.未出_成本_tb.ForeColor = System.Drawing.Color.Maroon
-        Me.未出_成本_tb.Location = New System.Drawing.Point(980, 6)
+        Me.未出_成本_tb.Location = New System.Drawing.Point(980, 2)
         Me.未出_成本_tb.Name = "未出_成本_tb"
         Me.未出_成本_tb.Size = New System.Drawing.Size(100, 23)
         Me.未出_成本_tb.TabIndex = 1188
@@ -236,7 +236,7 @@ Partial Class 銷售控制表
         '
         Me.Label13.AutoSize = True
         Me.Label13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label13.Location = New System.Drawing.Point(791, 57)
+        Me.Label13.Location = New System.Drawing.Point(791, 53)
         Me.Label13.Name = "Label13"
         Me.Label13.Size = New System.Drawing.Size(31, 16)
         Me.Label13.TabIndex = 1191
@@ -245,7 +245,7 @@ Partial Class 銷售控制表
         '已出_利潤_tb
         '
         Me.已出_利潤_tb.ForeColor = System.Drawing.Color.Green
-        Me.已出_利潤_tb.Location = New System.Drawing.Point(1144, 30)
+        Me.已出_利潤_tb.Location = New System.Drawing.Point(1144, 26)
         Me.已出_利潤_tb.Name = "已出_利潤_tb"
         Me.已出_利潤_tb.Size = New System.Drawing.Size(100, 23)
         Me.已出_利潤_tb.TabIndex = 1177
@@ -257,7 +257,7 @@ Partial Class 銷售控制表
         Me.Label14.AutoSize = True
         Me.Label14.Font = New System.Drawing.Font("微軟正黑體", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label14.Location = New System.Drawing.Point(1079, 51)
+        Me.Label14.Location = New System.Drawing.Point(1079, 47)
         Me.Label14.Name = "Label14"
         Me.Label14.Size = New System.Drawing.Size(27, 27)
         Me.Label14.TabIndex = 1204
@@ -267,7 +267,7 @@ Partial Class 銷售控制表
         '
         Me.Label1.AutoSize = True
         Me.Label1.ForeColor = System.Drawing.Color.Green
-        Me.Label1.Location = New System.Drawing.Point(1111, 33)
+        Me.Label1.Location = New System.Drawing.Point(1111, 29)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(31, 16)
         Me.Label1.TabIndex = 1173
@@ -277,7 +277,7 @@ Partial Class 銷售控制表
         '
         Me.Label15.AutoSize = True
         Me.Label15.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label15.Location = New System.Drawing.Point(947, 57)
+        Me.Label15.Location = New System.Drawing.Point(947, 53)
         Me.Label15.Name = "Label15"
         Me.Label15.Size = New System.Drawing.Size(31, 16)
         Me.Label15.TabIndex = 1184
@@ -286,7 +286,7 @@ Partial Class 銷售控制表
         'Label23
         '
         Me.Label23.AutoSize = True
-        Me.Label23.Location = New System.Drawing.Point(693, 9)
+        Me.Label23.Location = New System.Drawing.Point(693, 5)
         Me.Label23.Name = "Label23"
         Me.Label23.Size = New System.Drawing.Size(91, 16)
         Me.Label23.TabIndex = 1209
@@ -297,7 +297,7 @@ Partial Class 銷售控制表
         Me.Label16.AutoSize = True
         Me.Label16.Font = New System.Drawing.Font("微軟正黑體", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label16.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label16.Location = New System.Drawing.Point(924, 51)
+        Me.Label16.Location = New System.Drawing.Point(924, 47)
         Me.Label16.Name = "Label16"
         Me.Label16.Size = New System.Drawing.Size(21, 27)
         Me.Label16.TabIndex = 1197
@@ -306,7 +306,7 @@ Partial Class 銷售控制表
         '已出_銷售_tb
         '
         Me.已出_銷售_tb.ForeColor = System.Drawing.Color.Green
-        Me.已出_銷售_tb.Location = New System.Drawing.Point(824, 30)
+        Me.已出_銷售_tb.Location = New System.Drawing.Point(824, 26)
         Me.已出_銷售_tb.Name = "已出_銷售_tb"
         Me.已出_銷售_tb.Size = New System.Drawing.Size(100, 23)
         Me.已出_銷售_tb.TabIndex = 1196
@@ -316,7 +316,7 @@ Partial Class 銷售控制表
         '未出_利潤_tb
         '
         Me.未出_利潤_tb.ForeColor = System.Drawing.Color.Maroon
-        Me.未出_利潤_tb.Location = New System.Drawing.Point(1144, 6)
+        Me.未出_利潤_tb.Location = New System.Drawing.Point(1144, 2)
         Me.未出_利潤_tb.Name = "未出_利潤_tb"
         Me.未出_利潤_tb.Size = New System.Drawing.Size(100, 23)
         Me.未出_利潤_tb.TabIndex = 1180
@@ -327,7 +327,7 @@ Partial Class 銷售控制表
         '
         Me.Label5.AutoSize = True
         Me.Label5.ForeColor = System.Drawing.Color.Green
-        Me.Label5.Location = New System.Drawing.Point(791, 33)
+        Me.Label5.Location = New System.Drawing.Point(791, 29)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(31, 16)
         Me.Label5.TabIndex = 1190
@@ -337,7 +337,7 @@ Partial Class 銷售控制表
         '
         Me.Label6.AutoSize = True
         Me.Label6.ForeColor = System.Drawing.Color.Maroon
-        Me.Label6.Location = New System.Drawing.Point(1110, 9)
+        Me.Label6.Location = New System.Drawing.Point(1110, 5)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(31, 16)
         Me.Label6.TabIndex = 1175
@@ -348,7 +348,7 @@ Partial Class 銷售控制表
         Me.Label9.AutoSize = True
         Me.Label9.Font = New System.Drawing.Font("微軟正黑體", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label9.ForeColor = System.Drawing.Color.Green
-        Me.Label9.Location = New System.Drawing.Point(1079, 27)
+        Me.Label9.Location = New System.Drawing.Point(1079, 23)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(27, 27)
         Me.Label9.TabIndex = 1203
@@ -358,7 +358,7 @@ Partial Class 銷售控制表
         '
         Me.Label10.AutoSize = True
         Me.Label10.ForeColor = System.Drawing.Color.Green
-        Me.Label10.Location = New System.Drawing.Point(947, 33)
+        Me.Label10.Location = New System.Drawing.Point(947, 29)
         Me.Label10.Name = "Label10"
         Me.Label10.Size = New System.Drawing.Size(31, 16)
         Me.Label10.TabIndex = 1181
@@ -369,7 +369,7 @@ Partial Class 銷售控制表
         Me.Label11.AutoSize = True
         Me.Label11.Font = New System.Drawing.Font("微軟正黑體", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label11.ForeColor = System.Drawing.Color.Green
-        Me.Label11.Location = New System.Drawing.Point(924, 27)
+        Me.Label11.Location = New System.Drawing.Point(924, 23)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(21, 27)
         Me.Label11.TabIndex = 1198
@@ -378,7 +378,7 @@ Partial Class 銷售控制表
         '未出_銷售_tb
         '
         Me.未出_銷售_tb.ForeColor = System.Drawing.Color.Maroon
-        Me.未出_銷售_tb.Location = New System.Drawing.Point(824, 6)
+        Me.未出_銷售_tb.Location = New System.Drawing.Point(824, 2)
         Me.未出_銷售_tb.Name = "未出_銷售_tb"
         Me.未出_銷售_tb.Size = New System.Drawing.Size(100, 23)
         Me.未出_銷售_tb.TabIndex = 1195
@@ -389,7 +389,7 @@ Partial Class 銷售控制表
         '
         Me.Label8.AutoSize = True
         Me.Label8.ForeColor = System.Drawing.Color.Maroon
-        Me.Label8.Location = New System.Drawing.Point(791, 9)
+        Me.Label8.Location = New System.Drawing.Point(791, 5)
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(31, 16)
         Me.Label8.TabIndex = 1189
@@ -400,7 +400,7 @@ Partial Class 銷售控制表
         Me.Label3.AutoSize = True
         Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label3.ForeColor = System.Drawing.Color.Maroon
-        Me.Label3.Location = New System.Drawing.Point(1079, 3)
+        Me.Label3.Location = New System.Drawing.Point(1079, -1)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(27, 27)
         Me.Label3.TabIndex = 1205
@@ -410,7 +410,7 @@ Partial Class 銷售控制表
         '
         Me.Label7.AutoSize = True
         Me.Label7.ForeColor = System.Drawing.Color.Maroon
-        Me.Label7.Location = New System.Drawing.Point(947, 9)
+        Me.Label7.Location = New System.Drawing.Point(947, 5)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(31, 16)
         Me.Label7.TabIndex = 1182
@@ -421,7 +421,7 @@ Partial Class 銷售控制表
         Me.Label2.AutoSize = True
         Me.Label2.Font = New System.Drawing.Font("微軟正黑體", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label2.ForeColor = System.Drawing.Color.Maroon
-        Me.Label2.Location = New System.Drawing.Point(924, 3)
+        Me.Label2.Location = New System.Drawing.Point(924, -1)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(21, 27)
         Me.Label2.TabIndex = 1201
@@ -432,21 +432,22 @@ Partial Class 銷售控制表
         Me.清單_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.清單_dgv.BackgroundColor = System.Drawing.Color.White
         Me.清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.清單_dgv.Location = New System.Drawing.Point(378, 79)
+        Me.清單_dgv.Location = New System.Drawing.Point(371, 74)
         Me.清單_dgv.Name = "清單_dgv"
         Me.清單_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
         Me.清單_dgv.RowTemplate.Height = 24
-        Me.清單_dgv.Size = New System.Drawing.Size(866, 529)
+        Me.清單_dgv.Size = New System.Drawing.Size(873, 535)
         Me.清單_dgv.TabIndex = 1200
         '
         '下個月_bt
         '
         Me.下個月_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         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(106, 53)
+        Me.下個月_bt.Location = New System.Drawing.Point(106, 49)
         Me.下個月_bt.Name = "下個月_bt"
         Me.下個月_bt.Size = New System.Drawing.Size(97, 25)
         Me.下個月_bt.TabIndex = 1172
@@ -457,7 +458,7 @@ Partial Class 銷售控制表
         '
         Me.上個月_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         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(5, 53)
+        Me.上個月_bt.Location = New System.Drawing.Point(5, 49)
         Me.上個月_bt.Name = "上個月_bt"
         Me.上個月_bt.Size = New System.Drawing.Size(97, 25)
         Me.上個月_bt.TabIndex = 1171
@@ -467,7 +468,7 @@ Partial Class 銷售控制表
         'Label4
         '
         Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(94, 10)
+        Me.Label4.Location = New System.Drawing.Point(94, 6)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(19, 16)
         Me.Label4.TabIndex = 1170
@@ -477,7 +478,7 @@ Partial Class 銷售控制表
         '
         Me.結束日期_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
         Me.結束日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.結束日期_dtp.Location = New System.Drawing.Point(116, 6)
+        Me.結束日期_dtp.Location = New System.Drawing.Point(116, 2)
         Me.結束日期_dtp.Name = "結束日期_dtp"
         Me.結束日期_dtp.Size = New System.Drawing.Size(87, 23)
         Me.結束日期_dtp.TabIndex = 1169
@@ -485,7 +486,7 @@ Partial Class 銷售控制表
         '開始日期_dtp
         '
         Me.開始日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.開始日期_dtp.Location = New System.Drawing.Point(5, 6)
+        Me.開始日期_dtp.Location = New System.Drawing.Point(5, 2)
         Me.開始日期_dtp.Name = "開始日期_dtp"
         Me.開始日期_dtp.Size = New System.Drawing.Size(87, 23)
         Me.開始日期_dtp.TabIndex = 1168
@@ -497,21 +498,22 @@ Partial Class 銷售控制表
         Me.彙總_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.彙總_dgv.BackgroundColor = System.Drawing.Color.White
         Me.彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.彙總_dgv.Location = New System.Drawing.Point(5, 79)
+        Me.彙總_dgv.Location = New System.Drawing.Point(5, 74)
         Me.彙總_dgv.Name = "彙總_dgv"
         Me.彙總_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
         Me.彙總_dgv.RowTemplate.Height = 24
-        Me.彙總_dgv.Size = New System.Drawing.Size(367, 529)
+        Me.彙總_dgv.Size = New System.Drawing.Size(367, 535)
         Me.彙總_dgv.TabIndex = 1208
         '
         'Label22
         '
         Me.Label22.AutoSize = True
         Me.Label22.ForeColor = System.Drawing.Color.Black
-        Me.Label22.Location = New System.Drawing.Point(251, 33)
+        Me.Label22.Location = New System.Drawing.Point(251, 29)
         Me.Label22.Name = "Label22"
         Me.Label22.Size = New System.Drawing.Size(31, 16)
         Me.Label22.TabIndex = 1206
@@ -520,7 +522,7 @@ Partial Class 銷售控制表
         '客戶_tb
         '
         Me.客戶_tb.ForeColor = System.Drawing.Color.Black
-        Me.客戶_tb.Location = New System.Drawing.Point(289, 30)
+        Me.客戶_tb.Location = New System.Drawing.Point(289, 26)
         Me.客戶_tb.Name = "客戶_tb"
         Me.客戶_tb.Size = New System.Drawing.Size(100, 23)
         Me.客戶_tb.TabIndex = 1207
@@ -529,7 +531,7 @@ Partial Class 銷售控制表
         '客戶_成本_tb
         '
         Me.客戶_成本_tb.ForeColor = System.Drawing.Color.Purple
-        Me.客戶_成本_tb.Location = New System.Drawing.Point(438, 54)
+        Me.客戶_成本_tb.Location = New System.Drawing.Point(438, 50)
         Me.客戶_成本_tb.Name = "客戶_成本_tb"
         Me.客戶_成本_tb.Size = New System.Drawing.Size(100, 23)
         Me.客戶_成本_tb.TabIndex = 1187
@@ -540,7 +542,7 @@ Partial Class 銷售控制表
         '
         Me.Label18.AutoSize = True
         Me.Label18.ForeColor = System.Drawing.Color.Purple
-        Me.Label18.Location = New System.Drawing.Point(251, 57)
+        Me.Label18.Location = New System.Drawing.Point(251, 53)
         Me.Label18.Name = "Label18"
         Me.Label18.Size = New System.Drawing.Size(31, 16)
         Me.Label18.TabIndex = 1192
@@ -549,7 +551,7 @@ Partial Class 銷售控制表
         '客戶_銷售_tb
         '
         Me.客戶_銷售_tb.ForeColor = System.Drawing.Color.Purple
-        Me.客戶_銷售_tb.Location = New System.Drawing.Point(289, 54)
+        Me.客戶_銷售_tb.Location = New System.Drawing.Point(289, 50)
         Me.客戶_銷售_tb.Name = "客戶_銷售_tb"
         Me.客戶_銷售_tb.Size = New System.Drawing.Size(100, 23)
         Me.客戶_銷售_tb.TabIndex = 1194
@@ -561,7 +563,7 @@ Partial Class 銷售控制表
         Me.Label21.AutoSize = True
         Me.Label21.Font = New System.Drawing.Font("微軟正黑體", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label21.ForeColor = System.Drawing.Color.Purple
-        Me.Label21.Location = New System.Drawing.Point(389, 51)
+        Me.Label21.Location = New System.Drawing.Point(389, 47)
         Me.Label21.Name = "Label21"
         Me.Label21.Size = New System.Drawing.Size(21, 27)
         Me.Label21.TabIndex = 1199
@@ -571,7 +573,7 @@ Partial Class 銷售控制表
         '
         Me.Label20.AutoSize = True
         Me.Label20.ForeColor = System.Drawing.Color.Purple
-        Me.Label20.Location = New System.Drawing.Point(408, 57)
+        Me.Label20.Location = New System.Drawing.Point(408, 53)
         Me.Label20.Name = "Label20"
         Me.Label20.Size = New System.Drawing.Size(31, 16)
         Me.Label20.TabIndex = 1183
@@ -581,7 +583,7 @@ Partial Class 銷售控制表
         '
         Me.Label17.AutoSize = True
         Me.Label17.ForeColor = System.Drawing.Color.Purple
-        Me.Label17.Location = New System.Drawing.Point(557, 57)
+        Me.Label17.Location = New System.Drawing.Point(557, 53)
         Me.Label17.Name = "Label17"
         Me.Label17.Size = New System.Drawing.Size(31, 16)
         Me.Label17.TabIndex = 1174
@@ -592,7 +594,7 @@ Partial Class 銷售控制表
         Me.Label19.AutoSize = True
         Me.Label19.Font = New System.Drawing.Font("微軟正黑體", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label19.ForeColor = System.Drawing.Color.Purple
-        Me.Label19.Location = New System.Drawing.Point(537, 51)
+        Me.Label19.Location = New System.Drawing.Point(537, 47)
         Me.Label19.Name = "Label19"
         Me.Label19.Size = New System.Drawing.Size(27, 27)
         Me.Label19.TabIndex = 1202
@@ -649,7 +651,6 @@ Partial Class 銷售控制表
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.Label7)
         Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.清單_dgv)
         Me.Controls.Add(Me.下個月_bt)
         Me.Controls.Add(Me.上個月_bt)
         Me.Controls.Add(Me.Label4)
@@ -665,8 +666,9 @@ Partial Class 銷售控制表
         Me.Controls.Add(Me.Label20)
         Me.Controls.Add(Me.Label17)
         Me.Controls.Add(Me.Label19)
+        Me.Controls.Add(Me.清單_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "銷售控制表"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "銷售控制表"

MAOJI-ERP-SYS/業務系統管理/銷售控制表.vb → MAOJI-ERP-SYS/04、業務系統管理/銷售控制表.vb

@@ -76,20 +76,6 @@ Public Class 銷售控制表
 
         彙總_dgv.Columns(0).ReadOnly = True : 彙總_dgv.Columns(1).ReadOnly = True : 彙總_dgv.Columns(2).ReadOnly = True : 彙總_dgv.Columns(3).ReadOnly = True
     End Sub
-    Private Sub 格式設定()
-        screenWidth = MAOJI_ERP_SYS.Width
-        screenHeight = MAOJI_ERP_SYS.Height
-        If 顯示彙總表_ch.Checked = True Then
-            彙總_dgv.Visible = True : 清單_dgv.Location = New Point(379, 76)
-            newWidth1 = screenWidth - 403 : newHeight1 = screenHeight - 171
-            清單_dgv.Size = New Size(newWidth1, newHeight1)
-        Else
-            彙總_dgv.Visible = False : 清單_dgv.Location = New Point(6, 76)
-            newWidth1 = screenWidth - 30 : newHeight1 = screenHeight - 171
-            清單_dgv.Size = New Size(newWidth1, newHeight1)
-        End If
-        If 顯示彙總表_ch.Checked = True Then : 清單_dgv.Columns(18).Width = 62 : Else : 清單_dgv.Columns(18).Width = 435 : End If
-    End Sub
     Private Sub 格式設定1()
         If 隱藏供應商_ch.Checked = True Then : 清單_dgv.Columns(4).Visible = False : Else : 清單_dgv.Columns(4).Visible = True : End If
     End Sub
@@ -189,13 +175,10 @@ Public Class 銷售控制表
         日期格式()
     End Sub
     Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles 開始日期_dtp.ValueChanged
-        Set_清單() : Set_清單1() : 格式設定()
+        Set_清單() : Set_清單1()
     End Sub
     Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles 結束日期_dtp.ValueChanged
-        Set_清單() : Set_清單1() : 格式設定()
-    End Sub
-    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles 顯示彙總表_ch.CheckedChanged
-        格式設定()
+        Set_清單() : Set_清單1()
     End Sub
     Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles 隱藏供應商_ch.CheckedChanged
         格式設定1()
@@ -211,7 +194,6 @@ Public Class 銷售控制表
     End Sub
     '-----------------------------滑鼠右鍵------------------------------------------------------------------------------------------------------------------------------------------
     Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click
-        Set_清單() : Set_清單1() : 格式設定()
+        Set_清單() : Set_清單1()
     End Sub
-
 End Class

MAOJI-ERP-SYS/業務系統管理/銷售退貨清單.Designer.vb → MAOJI-ERP-SYS/04、業務系統管理/銷售退貨清單.Designer.vb

@@ -23,10 +23,10 @@ Partial Class 銷售退貨清單
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.單號查詢_bt = New System.Windows.Forms.Button()
         Me.列印產品標籤_bt = New System.Windows.Forms.Button()
         Me.列印退貨單_bt = New System.Windows.Forms.Button()
@@ -84,7 +84,7 @@ Partial Class 銷售退貨清單
         '
         Me.單號查詢_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.單號查詢_bt.ForeColor = System.Drawing.Color.Green
-        Me.單號查詢_bt.Location = New System.Drawing.Point(6, 6)
+        Me.單號查詢_bt.Location = New System.Drawing.Point(6, 2)
         Me.單號查詢_bt.Name = "單號查詢_bt"
         Me.單號查詢_bt.Size = New System.Drawing.Size(102, 35)
         Me.單號查詢_bt.TabIndex = 1286
@@ -95,7 +95,7 @@ Partial Class 銷售退貨清單
         '
         Me.列印產品標籤_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.列印產品標籤_bt.ForeColor = System.Drawing.Color.Green
-        Me.列印產品標籤_bt.Location = New System.Drawing.Point(285, 6)
+        Me.列印產品標籤_bt.Location = New System.Drawing.Point(285, 2)
         Me.列印產品標籤_bt.Name = "列印產品標籤_bt"
         Me.列印產品標籤_bt.Size = New System.Drawing.Size(102, 35)
         Me.列印產品標籤_bt.TabIndex = 1285
@@ -106,7 +106,7 @@ Partial Class 銷售退貨清單
         '
         Me.列印退貨單_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.列印退貨單_bt.ForeColor = System.Drawing.Color.Green
-        Me.列印退貨單_bt.Location = New System.Drawing.Point(177, 6)
+        Me.列印退貨單_bt.Location = New System.Drawing.Point(177, 2)
         Me.列印退貨單_bt.Name = "列印退貨單_bt"
         Me.列印退貨單_bt.Size = New System.Drawing.Size(102, 35)
         Me.列印退貨單_bt.TabIndex = 1284
@@ -518,37 +518,39 @@ Partial Class 銷售退貨清單
         '
         '明細_dgv
         '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.明細_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.明細_dgv.BackgroundColor = System.Drawing.Color.White
         Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.明細_dgv.Location = New System.Drawing.Point(393, 105)
+        Me.明細_dgv.Location = New System.Drawing.Point(390, 104)
         Me.明細_dgv.Name = "明細_dgv"
         Me.明細_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.明細_dgv.RowTemplate.Height = 24
-        Me.明細_dgv.Size = New System.Drawing.Size(849, 501)
+        Me.明細_dgv.Size = New System.Drawing.Size(854, 505)
         Me.明細_dgv.TabIndex = 1266
         '
         '彙總_dgv
         '
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.彙總_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.彙總_dgv.BackgroundColor = System.Drawing.Color.White
         Me.彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.彙總_dgv.Location = New System.Drawing.Point(6, 43)
+        Me.彙總_dgv.Location = New System.Drawing.Point(6, 38)
         Me.彙總_dgv.Name = "彙總_dgv"
         Me.彙總_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.彙總_dgv.RowTemplate.Height = 24
-        Me.彙總_dgv.Size = New System.Drawing.Size(381, 563)
+        Me.彙總_dgv.Size = New System.Drawing.Size(381, 571)
         Me.彙總_dgv.TabIndex = 1271
         '
         'ContextMenuStrip1
@@ -587,6 +589,7 @@ Partial Class 銷售退貨清單
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1249, 611)
+        Me.Controls.Add(Me.明細_dgv)
         Me.Controls.Add(Me.單號查詢_bt)
         Me.Controls.Add(Me.列印產品標籤_bt)
         Me.Controls.Add(Me.列印退貨單_bt)
@@ -628,10 +631,9 @@ Partial Class 銷售退貨清單
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.Label20)
         Me.Controls.Add(Me.Label26)
-        Me.Controls.Add(Me.明細_dgv)
         Me.Controls.Add(Me.彙總_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "銷售退貨清單"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "銷售退貨清單"

MAOJI-ERP-SYS/業務系統管理/銷售退貨申請.Designer.vb → MAOJI-ERP-SYS/04、業務系統管理/銷售退貨申請.Designer.vb

@@ -23,10 +23,10 @@ Partial Class 銷售退貨申請
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.修改存檔_bt = New System.Windows.Forms.Button()
         Me.本單售價_nud = New System.Windows.Forms.NumericUpDown()
         Me.Label21 = New System.Windows.Forms.Label()
@@ -106,7 +106,7 @@ Partial Class 銷售退貨申請
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.修改存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.修改存檔_bt.ForeColor = System.Drawing.Color.Green
-        Me.修改存檔_bt.Location = New System.Drawing.Point(395, 576)
+        Me.修改存檔_bt.Location = New System.Drawing.Point(395, 579)
         Me.修改存檔_bt.Name = "修改存檔_bt"
         Me.修改存檔_bt.Size = New System.Drawing.Size(849, 30)
         Me.修改存檔_bt.TabIndex = 1266
@@ -117,7 +117,7 @@ Partial Class 銷售退貨申請
         '
         Me.本單售價_nud.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.本單售價_nud.DecimalPlaces = 2
-        Me.本單售價_nud.Location = New System.Drawing.Point(207, 558)
+        Me.本單售價_nud.Location = New System.Drawing.Point(201, 558)
         Me.本單售價_nud.Maximum = New Decimal(New Integer() {100000, 0, 0, 0})
         Me.本單售價_nud.Name = "本單售價_nud"
         Me.本單售價_nud.Size = New System.Drawing.Size(82, 23)
@@ -128,7 +128,7 @@ Partial Class 銷售退貨申請
         '
         Me.Label21.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label21.AutoSize = True
-        Me.Label21.Location = New System.Drawing.Point(151, 562)
+        Me.Label21.Location = New System.Drawing.Point(145, 562)
         Me.Label21.Name = "Label21"
         Me.Label21.Size = New System.Drawing.Size(55, 16)
         Me.Label21.TabIndex = 1264
@@ -138,7 +138,7 @@ Partial Class 銷售退貨申請
         '
         Me.Label14.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label14.AutoSize = True
-        Me.Label14.Location = New System.Drawing.Point(291, 562)
+        Me.Label14.Location = New System.Drawing.Point(285, 562)
         Me.Label14.Name = "Label14"
         Me.Label14.Size = New System.Drawing.Size(43, 16)
         Me.Label14.TabIndex = 1263
@@ -147,7 +147,7 @@ Partial Class 銷售退貨申請
         '可退貨數_tb
         '
         Me.可退貨數_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.可退貨數_tb.Location = New System.Drawing.Point(335, 558)
+        Me.可退貨數_tb.Location = New System.Drawing.Point(329, 558)
         Me.可退貨數_tb.Name = "可退貨數_tb"
         Me.可退貨數_tb.Size = New System.Drawing.Size(54, 23)
         Me.可退貨數_tb.TabIndex = 1262
@@ -158,7 +158,7 @@ Partial Class 銷售退貨申請
         '
         Me.Label15.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label15.AutoSize = True
-        Me.Label15.Location = New System.Drawing.Point(5, 536)
+        Me.Label15.Location = New System.Drawing.Point(-1, 536)
         Me.Label15.Name = "Label15"
         Me.Label15.Size = New System.Drawing.Size(67, 16)
         Me.Label15.TabIndex = 1261
@@ -168,7 +168,7 @@ Partial Class 銷售退貨申請
         '
         Me.供應商編號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.供應商編號_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.供應商編號_tb.Location = New System.Drawing.Point(73, 533)
+        Me.供應商編號_tb.Location = New System.Drawing.Point(67, 533)
         Me.供應商編號_tb.Name = "供應商編號_tb"
         Me.供應商編號_tb.Size = New System.Drawing.Size(128, 23)
         Me.供應商編號_tb.TabIndex = 1260
@@ -200,7 +200,7 @@ Partial Class 銷售退貨申請
         '
         Me.匯率_nud.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.匯率_nud.DecimalPlaces = 4
-        Me.匯率_nud.Location = New System.Drawing.Point(67, 583)
+        Me.匯率_nud.Location = New System.Drawing.Point(61, 583)
         Me.匯率_nud.Maximum = New Decimal(New Integer() {10000, 0, 0, 0})
         Me.匯率_nud.Name = "匯率_nud"
         Me.匯率_nud.Size = New System.Drawing.Size(69, 23)
@@ -212,7 +212,7 @@ Partial Class 銷售退貨申請
         '
         Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(11, 586)
+        Me.Label3.Location = New System.Drawing.Point(5, 586)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(55, 16)
         Me.Label3.TabIndex = 1256
@@ -222,7 +222,7 @@ Partial Class 銷售退貨申請
         '
         Me.成本金額_nud.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.成本金額_nud.DecimalPlaces = 2
-        Me.成本金額_nud.Location = New System.Drawing.Point(67, 558)
+        Me.成本金額_nud.Location = New System.Drawing.Point(61, 558)
         Me.成本金額_nud.Maximum = New Decimal(New Integer() {100000, 0, 0, 0})
         Me.成本金額_nud.Name = "成本金額_nud"
         Me.成本金額_nud.Size = New System.Drawing.Size(82, 23)
@@ -233,7 +233,7 @@ Partial Class 銷售退貨申請
         '
         Me.Label17.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label17.AutoSize = True
-        Me.Label17.Location = New System.Drawing.Point(11, 561)
+        Me.Label17.Location = New System.Drawing.Point(5, 561)
         Me.Label17.Name = "Label17"
         Me.Label17.Size = New System.Drawing.Size(55, 16)
         Me.Label17.TabIndex = 1254
@@ -244,7 +244,7 @@ Partial Class 銷售退貨申請
         Me.新增物料到退貨單_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.新增物料到退貨單_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         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(271, 583)
+        Me.新增物料到退貨單_bt.Location = New System.Drawing.Point(265, 583)
         Me.新增物料到退貨單_bt.Name = "新增物料到退貨單_bt"
         Me.新增物料到退貨單_bt.Size = New System.Drawing.Size(118, 24)
         Me.新增物料到退貨單_bt.TabIndex = 1253
@@ -254,7 +254,7 @@ Partial Class 銷售退貨申請
         '退貨數_nud
         '
         Me.退貨數_nud.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.退貨數_nud.Location = New System.Drawing.Point(207, 584)
+        Me.退貨數_nud.Location = New System.Drawing.Point(201, 584)
         Me.退貨數_nud.Maximum = New Decimal(New Integer() {10000, 0, 0, 0})
         Me.退貨數_nud.Name = "退貨數_nud"
         Me.退貨數_nud.Size = New System.Drawing.Size(62, 23)
@@ -265,7 +265,7 @@ Partial Class 銷售退貨申請
         '
         Me.Label13.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label13.AutoSize = True
-        Me.Label13.Location = New System.Drawing.Point(142, 586)
+        Me.Label13.Location = New System.Drawing.Point(136, 586)
         Me.Label13.Name = "Label13"
         Me.Label13.Size = New System.Drawing.Size(67, 16)
         Me.Label13.TabIndex = 1251
@@ -275,7 +275,7 @@ Partial Class 銷售退貨申請
         '
         Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label11.AutoSize = True
-        Me.Label11.Location = New System.Drawing.Point(210, 536)
+        Me.Label11.Location = New System.Drawing.Point(204, 536)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(31, 16)
         Me.Label11.TabIndex = 1250
@@ -284,7 +284,7 @@ Partial Class 銷售退貨申請
         '料號_tb
         '
         Me.料號_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.料號_tb.Location = New System.Drawing.Point(248, 533)
+        Me.料號_tb.Location = New System.Drawing.Point(242, 533)
         Me.料號_tb.Name = "料號_tb"
         Me.料號_tb.Size = New System.Drawing.Size(141, 23)
         Me.料號_tb.TabIndex = 1249
@@ -681,35 +681,37 @@ Partial Class 銷售退貨申請
         '
         '明細_dgv
         '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.明細_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.明細_dgv.BackgroundColor = System.Drawing.Color.White
         Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.明細_dgv.Location = New System.Drawing.Point(395, 103)
+        Me.明細_dgv.Location = New System.Drawing.Point(386, 103)
         Me.明細_dgv.Name = "明細_dgv"
         Me.明細_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.明細_dgv.RowTemplate.Height = 24
-        Me.明細_dgv.Size = New System.Drawing.Size(849, 466)
+        Me.明細_dgv.Size = New System.Drawing.Size(858, 473)
         Me.明細_dgv.TabIndex = 1232
         '
         '物料清單_dgv
         '
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.物料清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.物料清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.物料清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.物料清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.物料清單_dgv.BackgroundColor = System.Drawing.Color.White
         Me.物料清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.物料清單_dgv.Location = New System.Drawing.Point(8, 4)
+        Me.物料清單_dgv.Location = New System.Drawing.Point(3, 2)
         Me.物料清單_dgv.Name = "物料清單_dgv"
         Me.物料清單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.物料清單_dgv.RowTemplate.Height = 24
         Me.物料清單_dgv.Size = New System.Drawing.Size(381, 525)
         Me.物料清單_dgv.TabIndex = 1237
@@ -762,6 +764,7 @@ Partial Class 銷售退貨申請
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1249, 611)
+        Me.Controls.Add(Me.明細_dgv)
         Me.Controls.Add(Me.修改存檔_bt)
         Me.Controls.Add(Me.本單售價_nud)
         Me.Controls.Add(Me.Label21)
@@ -817,10 +820,9 @@ Partial Class 銷售退貨申請
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.Label20)
         Me.Controls.Add(Me.Label26)
-        Me.Controls.Add(Me.明細_dgv)
         Me.Controls.Add(Me.物料清單_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "銷售退貨申請"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "銷售退貨申請"

MAOJI-ERP-SYS/業務系統管理/銷售退貨確認.Designer.vb → MAOJI-ERP-SYS/04、業務系統管理/銷售退貨確認.Designer.vb

@@ -23,8 +23,8 @@ Partial Class 銷售退貨確認
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.佣金修改_bt = New System.Windows.Forms.Button()
         Me.司機比例_cb = New System.Windows.Forms.ComboBox()
         Me.Label28 = New System.Windows.Forms.Label()
@@ -243,20 +243,21 @@ Partial Class 銷售退貨確認
         '
         '銷售退貨_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.銷售退貨_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.銷售退貨_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.銷售退貨_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.銷售退貨_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.銷售退貨_dgv.BackgroundColor = System.Drawing.Color.White
         Me.銷售退貨_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.銷售退貨_dgv.Location = New System.Drawing.Point(7, 58)
+        Me.銷售退貨_dgv.Location = New System.Drawing.Point(2, 56)
         Me.銷售退貨_dgv.Name = "銷售退貨_dgv"
         Me.銷售退貨_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.銷售退貨_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷售退貨_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.銷售退貨_dgv.RowTemplate.Height = 24
-        Me.銷售退貨_dgv.Size = New System.Drawing.Size(1235, 547)
+        Me.銷售退貨_dgv.Size = New System.Drawing.Size(1243, 552)
         Me.銷售退貨_dgv.TabIndex = 1170
         '
         'Label4
@@ -356,7 +357,7 @@ Partial Class 銷售退貨確認
         Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.Label20)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "銷售退貨確認"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "銷售退貨確認"

MAOJI-ERP-SYS/業務系統管理/零售客戶記錄表.Designer.vb → MAOJI-ERP-SYS/04、業務系統管理/零售客戶記錄表.Designer.vb

@@ -89,6 +89,7 @@ Partial Class 零售客戶記錄表
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.零售清單_tb.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.零售清單_tb.BackgroundColor = System.Drawing.Color.White
         Me.零售清單_tb.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.零售清單_tb.Location = New System.Drawing.Point(7, 55)
         Me.零售清單_tb.Name = "零售清單_tb"
@@ -302,7 +303,7 @@ Partial Class 零售客戶記錄表
         Me.Controls.Add(Me.Label8)
         Me.Controls.Add(Me.Label26)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "零售客戶記錄表"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "零售客戶記錄表"

MAOJI-ERP-SYS/生產系統管理/生產入庫.Designer.vb → MAOJI-ERP-SYS/05、生產系統管理/生產入庫.Designer.vb

@@ -149,6 +149,7 @@ Partial Class 生產入庫
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.生產入庫_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.生產入庫_dgv.BackgroundColor = System.Drawing.Color.White
         Me.生產入庫_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.生產入庫_dgv.Location = New System.Drawing.Point(7, 31)
         Me.生產入庫_dgv.Name = "生產入庫_dgv"
@@ -225,7 +226,7 @@ Partial Class 生產入庫
         Me.Controls.Add(Me.入庫確認_bt)
         Me.Controls.Add(Me.生產入庫_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "生產入庫"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "生產入庫"

MAOJI-ERP-SYS/生產系統管理/生產控制表.Designer.vb → MAOJI-ERP-SYS/05、生產系統管理/生產控制表.Designer.vb

@@ -296,6 +296,7 @@ Partial Class 生產控制表
         Me.彙總_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.彙總_dgv.BackgroundColor = System.Drawing.Color.White
         Me.彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.彙總_dgv.Location = New System.Drawing.Point(7, 56)
         Me.彙總_dgv.Name = "彙總_dgv"
@@ -311,6 +312,7 @@ Partial Class 生產控制表
         Me.完整清單_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.完整清單_dgv.BackgroundColor = System.Drawing.Color.White
         Me.完整清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.完整清單_dgv.Location = New System.Drawing.Point(425, 56)
         Me.完整清單_dgv.Name = "完整清單_dgv"
@@ -381,7 +383,7 @@ Partial Class 生產控制表
         Me.Controls.Add(Me.完整清單_dgv)
         Me.Controls.Add(Me.部分清單_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "生產控制表"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "生產控制表"

MAOJI-ERP-SYS/生產系統管理/生產確認.Designer.vb → MAOJI-ERP-SYS/05、生產系統管理/生產確認.Designer.vb

@@ -149,6 +149,7 @@ Partial Class 生產確認
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.生產出庫_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.生產出庫_dgv.BackgroundColor = System.Drawing.Color.White
         Me.生產出庫_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.生產出庫_dgv.Location = New System.Drawing.Point(7, 31)
         Me.生產出庫_dgv.Name = "生產出庫_dgv"
@@ -225,7 +226,7 @@ Partial Class 生產確認
         Me.Controls.Add(Me.出庫確認_bt)
         Me.Controls.Add(Me.生產出庫_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "生產確認"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "生產確認"

MAOJI-ERP-SYS/06、採購系統管理/供應商資料管理.resx

@@ -0,0 +1,129 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>25, 7</value>
+  </metadata>
+  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>181, 5</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>32</value>
+  </metadata>
+</root>

MAOJI-ERP-SYS/採購系統管理/供應商資料管理.vb → MAOJI-ERP-SYS/06、採購系統管理/供應商資料管理.vb

@@ -6,7 +6,13 @@ Public Class 供應商資料管理
         供應商明細_dgv.DataSource = Nothing : ds.Clear() : 供應商明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         供應商明細_dgv.ColumnHeadersHeight = 50 : 供應商明細_dgv.AllowUserToAddRows = False : 供應商明細_dgv.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText
         供應商明細_dgv.MultiSelect = True
-        SQL__供應商資料管理清單()
+        If 全部_ch.Checked = True And 啟用_ch.Checked = False And 停用1_ch.Checked = False Then : SQL2 = ""
+        ElseIf 全部_ch.Checked = False And 啟用_ch.Checked = True And 停用1_ch.Checked = False Then : SQL2 = " AND 供應商資料表.停用 <> '1'"
+        ElseIf 全部_ch.Checked = False And 啟用_ch.Checked = False And 停用1_ch.Checked = True Then : SQL2 = " AND 供應商資料表.停用 = '1'" : End If
+        If 貿易_ch.Checked = True And 國內_ch.Checked = False And 國外_ch.Checked = False Then : SQL2 &= ""
+        ElseIf 貿易_ch.Checked = False And 國內_ch.Checked = True And 國外_ch.Checked = False Then : SQL2 &= " AND 供應商資料表.外貿對象 <> '1'"
+        ElseIf 貿易_ch.Checked = False And 國內_ch.Checked = False And 國外_ch.Checked = True Then : SQL2 &= " AND 供應商資料表.外貿對象 = '1'" : End If
+        SQL__供應商資料管理清單() : SQL2 = ""
         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : 供應商明細_dgv.DataSource = ds.Tables(0) : conn.Close()
 
         供應商明細_dgv.Columns(0).Visible = False : 供應商明細_dgv.Columns(1).FillWeight = 8 : 供應商明細_dgv.Columns(2).FillWeight = 3.5 : 供應商明細_dgv.Columns(3).Visible = False
@@ -37,11 +43,30 @@ Public Class 供應商資料管理
         PA = "%%" : SQL_付款方式查詢()
         付款方式_cb.Items.Clear() : While (dr.Read()) : 付款方式_cb.Items.Add(dr("付款方式")) : End While : conn.Close()
     End Sub
+    Private Sub 關鍵字查詢_bt_MouseEnter(sender As Object, e As EventArgs) Handles 關鍵字查詢_bt.MouseEnter
+        ToolTip1.SetToolTip(Me.關鍵字查詢_bt, "關鍵字查詢")
+    End Sub
+    Private Sub 新增供應商資料_bt_MouseEnter(sender As Object, e As EventArgs) Handles 新增供應商資料_bt.MouseEnter
+        ToolTip1.SetToolTip(Me.新增供應商資料_bt, "新增供應商資料")
+    End Sub
+    Private Sub 資料存檔_bt_MouseEnter(sender As Object, e As EventArgs) Handles 資料存檔_bt.MouseEnter
+        ToolTip1.SetToolTip(Me.資料存檔_bt, "資料存檔")
+    End Sub
+    Private Sub 導入EXCEL_bt_MouseEnter(sender As Object, e As EventArgs) Handles 導入EXCEL_bt.MouseEnter
+        ToolTip1.SetToolTip(Me.導入EXCEL_bt, "導入EXCEL")
+    End Sub
+    Private Sub 導出EXCEL_bt_MouseEnter(sender As Object, e As EventArgs) Handles 導出EXCEL_bt.MouseEnter
+        ToolTip1.SetToolTip(Me.導出EXCEL_bt, "導出EXCEL")
+    End Sub
     Private Sub 供應商資料管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        MAOJI_ERP_SYS.WindowState = 2 : Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         編號_tb.Enabled = False : TextBox27.Visible = False
         ComboBox1下拉表單資料載入() : Set_供應商清單()
-        If gUserName = "李協叡" Then : 資料刪除ToolStripMenuItem.Enabled = True : Else : 資料刪除ToolStripMenuItem.Enabled = False : End If
+        If gUserName = "李協叡" Then : 資料刪除ToolStripMenuItem.Enabled = True : 導入EXCEL_bt.Enabled = True : 導出EXCEL_bt.Enabled = True
+        Else : 資料刪除ToolStripMenuItem.Enabled = False : 導入EXCEL_bt.Enabled = False : 導出EXCEL_bt.Enabled = False : End If
+    End Sub
+    Private Sub 供應商資料管理_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
+        MAOJI_ERP_SYS.WindowState = 0
     End Sub
     Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 供應商明細_dgv.CellClick
         If e.RowIndex = -1 Then : Else
@@ -73,6 +98,24 @@ Public Class 供應商資料管理
         PA = InputBox("請輸入要查詢的關鍵字")
         Set_供應商清單()
     End Sub
+    Private Sub 全部_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 全部_ch.Click
+        全部_ch.Checked = True : 啟用_ch.Checked = False : 停用1_ch.Checked = False : Set_供應商清單()
+    End Sub
+    Private Sub 啟用_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 啟用_ch.Click
+        全部_ch.Checked = False : 啟用_ch.Checked = True : 停用1_ch.Checked = False : Set_供應商清單()
+    End Sub
+    Private Sub 停用1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 停用1_ch.Click
+        全部_ch.Checked = False : 啟用_ch.Checked = False : 停用1_ch.Checked = True : Set_供應商清單()
+    End Sub
+    Private Sub 貿易_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 貿易_ch.Click
+        貿易_ch.Checked = True : 國外_ch.Checked = False : 國內_ch.Checked = False : Set_供應商清單()
+    End Sub
+    Private Sub 國外_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 國外_ch.Click
+        貿易_ch.Checked = False : 國外_ch.Checked = True : 國內_ch.Checked = False : Set_供應商清單()
+    End Sub
+    Private Sub 國內_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 國內_ch.Click
+        貿易_ch.Checked = False : 國外_ch.Checked = False : 國內_ch.Checked = True : Set_供應商清單()
+    End Sub
     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles 新增供應商資料_bt.Click
         供應商明細_dgv.Enabled = False
         公司_tb.Text = "" : 簡稱_tb.Text = "" : 負責人_tb.Text = "" : 負責人電話_tb.Text = "" : 公司電話1_tb.Text = "" : 公司電話2_tb.Text = "" : 傳真1_tb.Text = "" : 傳真2_tb.Text = ""

MAOJI-ERP-SYS/採購系統管理/採購單申請.Designer.vb → MAOJI-ERP-SYS/06、採購系統管理/採購單申請.Designer.vb

@@ -582,6 +582,7 @@ Partial Class 採購單申請
         Me.彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.彙總_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.彙總_dgv.BackgroundColor = System.Drawing.Color.White
         Me.彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.彙總_dgv.Location = New System.Drawing.Point(9, 355)
         Me.彙總_dgv.Name = "彙總_dgv"
@@ -668,6 +669,7 @@ Partial Class 採購單申請
         Me.物料檔案_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.物料檔案_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.物料檔案_dgv.BackgroundColor = System.Drawing.Color.White
         Me.物料檔案_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.物料檔案_dgv.Location = New System.Drawing.Point(9, 31)
         Me.物料檔案_dgv.Name = "物料檔案_dgv"
@@ -741,6 +743,7 @@ Partial Class 採購單申請
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.明細_dgv.BackgroundColor = System.Drawing.Color.White
         Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.明細_dgv.Location = New System.Drawing.Point(393, 133)
         Me.明細_dgv.Name = "明細_dgv"
@@ -841,6 +844,7 @@ Partial Class 採購單申請
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1249, 611)
+        Me.Controls.Add(Me.明細_dgv)
         Me.Controls.Add(Me.列印產品標籤_bt)
         Me.Controls.Add(Me.列印採購單_bt)
         Me.Controls.Add(Me.非當天日期_ch)
@@ -900,9 +904,8 @@ Partial Class 採購單申請
         Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.Label20)
-        Me.Controls.Add(Me.明細_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "採購單申請"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "採購單申請"

MAOJI-ERP-SYS/採購系統管理/採購控制表.Designer.vb → MAOJI-ERP-SYS/06、採購系統管理/採購控制表.Designer.vb

@@ -134,6 +134,7 @@ Partial Class 採購控制表
         Me.彙總_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.彙總_dgv.BackgroundColor = System.Drawing.Color.White
         Me.彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.彙總_dgv.Location = New System.Drawing.Point(7, 58)
         Me.彙總_dgv.Name = "彙總_dgv"
@@ -218,6 +219,7 @@ Partial Class 採購控制表
         Me.明細_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.明細_dgv.BackgroundColor = System.Drawing.Color.White
         Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.明細_dgv.Location = New System.Drawing.Point(250, 58)
         Me.明細_dgv.Name = "明細_dgv"
@@ -337,7 +339,7 @@ Partial Class 採購控制表
         Me.Controls.Add(Me.開始日期_dtp)
         Me.Controls.Add(Me.Label22)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "採購控制表"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "採購控制表"

MAOJI-ERP-SYS/採購系統管理/採購退貨申請.Designer.vb → MAOJI-ERP-SYS/06、採購系統管理/採購退貨申請.Designer.vb

@@ -23,11 +23,11 @@ Partial Class 採購退貨申請
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Label23 = New System.Windows.Forms.Label()
         Me.修改存檔_bt = New System.Windows.Forms.Button()
         Me.新增物料到退貨單 = New System.Windows.Forms.Button()
@@ -323,12 +323,13 @@ Partial Class 採購退貨申請
         Me.庫存_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.庫存_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.庫存_dgv.BackgroundColor = System.Drawing.Color.White
         Me.庫存_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.庫存_dgv.Location = New System.Drawing.Point(12, 308)
         Me.庫存_dgv.Name = "庫存_dgv"
         Me.庫存_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.庫存_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.庫存_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
         Me.庫存_dgv.RowTemplate.Height = 24
         Me.庫存_dgv.Size = New System.Drawing.Size(378, 245)
         Me.庫存_dgv.TabIndex = 1188
@@ -709,33 +710,35 @@ Partial Class 採購退貨申請
         '
         '明細_dgv
         '
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         Me.明細_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.明細_dgv.BackgroundColor = System.Drawing.Color.White
         Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.明細_dgv.Location = New System.Drawing.Point(396, 130)
         Me.明細_dgv.Name = "明細_dgv"
         Me.明細_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
         Me.明細_dgv.RowTemplate.Height = 24
         Me.明細_dgv.Size = New System.Drawing.Size(849, 450)
         Me.明細_dgv.TabIndex = 1178
         '
         '彙總_dgv
         '
-        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
         Me.彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.彙總_dgv.BackgroundColor = System.Drawing.Color.White
         Me.彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.彙總_dgv.Location = New System.Drawing.Point(9, 5)
         Me.彙總_dgv.Name = "彙總_dgv"
         Me.彙總_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
         Me.彙總_dgv.RowTemplate.Height = 24
         Me.彙總_dgv.Size = New System.Drawing.Size(381, 251)
         Me.彙總_dgv.TabIndex = 1152
@@ -849,7 +852,7 @@ Partial Class 採購退貨申請
         Me.Controls.Add(Me.明細_dgv)
         Me.Controls.Add(Me.彙總_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "採購退貨申請"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "採購退貨申請"

MAOJI-ERP-SYS/採購系統管理/採購退貨確認.Designer.vb → MAOJI-ERP-SYS/06、採購系統管理/採購退貨確認.Designer.vb

@@ -167,6 +167,7 @@ Partial Class 採購退貨確認
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.退貨明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.退貨明細_dgv.BackgroundColor = System.Drawing.Color.White
         Me.退貨明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.退貨明細_dgv.Location = New System.Drawing.Point(7, 31)
         Me.退貨明細_dgv.Name = "退貨明細_dgv"
@@ -245,7 +246,7 @@ Partial Class 採購退貨確認
         Me.Controls.Add(Me.確認收料入庫_bt)
         Me.Controls.Add(Me.退貨明細_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "採購退貨確認"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "採購退貨確認"

MAOJI-ERP-SYS/採購系統管理/採購退賀清單.Designer.vb → MAOJI-ERP-SYS/06、採購系統管理/採購退賀清單.Designer.vb

@@ -23,10 +23,10 @@ Partial Class 採購退賀清單
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.單號查詢_bt = New System.Windows.Forms.Button()
         Me.列印產品標籤_bt = New System.Windows.Forms.Button()
         Me.列印退貨單_bt = New System.Windows.Forms.Button()
@@ -465,35 +465,37 @@ Partial Class 採購退賀清單
         '
         '明細_dgv
         '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.明細_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.明細_dgv.BackgroundColor = System.Drawing.Color.White
         Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.明細_dgv.Location = New System.Drawing.Point(393, 131)
         Me.明細_dgv.Name = "明細_dgv"
         Me.明細_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.明細_dgv.RowTemplate.Height = 24
         Me.明細_dgv.Size = New System.Drawing.Size(849, 475)
         Me.明細_dgv.TabIndex = 1271
         '
         '彙總_dgv
         '
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.彙總_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.彙總_dgv.BackgroundColor = System.Drawing.Color.White
         Me.彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.彙總_dgv.Location = New System.Drawing.Point(6, 43)
         Me.彙總_dgv.Name = "彙總_dgv"
         Me.彙總_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.彙總_dgv.RowTemplate.Height = 24
         Me.彙總_dgv.Size = New System.Drawing.Size(381, 563)
         Me.彙總_dgv.TabIndex = 1245
@@ -574,7 +576,7 @@ Partial Class 採購退賀清單
         Me.Controls.Add(Me.明細_dgv)
         Me.Controls.Add(Me.彙總_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "採購退賀清單"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "採購退賀清單"

MAOJI-ERP-SYS/倉儲系統管理/倉儲入庫驗收.Designer.vb → MAOJI-ERP-SYS/07、倉儲系統管理/倉儲入庫驗收.Designer.vb

@@ -23,8 +23,8 @@ Partial Class 倉儲入庫驗收
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.倉庫編號_tb = New System.Windows.Forms.TextBox()
         Me.指定倉處_cb = New System.Windows.Forms.ComboBox()
@@ -165,18 +165,19 @@ Partial Class 倉儲入庫驗收
         '
         '倉儲入庫_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.倉儲入庫_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.倉儲入庫_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.倉儲入庫_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.倉儲入庫_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.倉儲入庫_dgv.BackgroundColor = System.Drawing.Color.White
         Me.倉儲入庫_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.倉儲入庫_dgv.Location = New System.Drawing.Point(7, 31)
         Me.倉儲入庫_dgv.Name = "倉儲入庫_dgv"
         Me.倉儲入庫_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.倉儲入庫_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.倉儲入庫_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.倉儲入庫_dgv.RowTemplate.Height = 24
         Me.倉儲入庫_dgv.Size = New System.Drawing.Size(1235, 575)
         Me.倉儲入庫_dgv.TabIndex = 1090
@@ -249,7 +250,7 @@ Partial Class 倉儲入庫驗收
         Me.Controls.Add(Me.入庫確認_bt)
         Me.Controls.Add(Me.倉儲入庫_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "倉儲入庫驗收"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "倉儲入庫驗收"

MAOJI-ERP-SYS/倉儲系統管理/倉儲分區控制表.Designer.vb → MAOJI-ERP-SYS/07、倉儲系統管理/倉儲分區控制表.Designer.vb

@@ -22,12 +22,11 @@ Partial Class 倉儲分區控制表
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.倉名_tb = New System.Windows.Forms.TextBox()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.倉明編號_tb = New System.Windows.Forms.TextBox()
-        Me.關閉_bt = New System.Windows.Forms.Button()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.倉級_cb = New System.Windows.Forms.ComboBox()
         Me.刪除_bt = New System.Windows.Forms.Button()
@@ -40,7 +39,7 @@ Partial Class 倉儲分區控制表
         'Label3
         '
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(270, 63)
+        Me.Label3.Location = New System.Drawing.Point(1, 30)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(31, 16)
         Me.Label3.TabIndex = 618
@@ -48,16 +47,16 @@ Partial Class 倉儲分區控制表
         '
         '倉名_tb
         '
-        Me.倉名_tb.Location = New System.Drawing.Point(308, 59)
+        Me.倉名_tb.Location = New System.Drawing.Point(36, 27)
         Me.倉名_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.倉名_tb.Name = "倉名_tb"
-        Me.倉名_tb.Size = New System.Drawing.Size(108, 23)
+        Me.倉名_tb.Size = New System.Drawing.Size(206, 23)
         Me.倉名_tb.TabIndex = 617
         '
         'Label2
         '
         Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(130, 63)
+        Me.Label2.Location = New System.Drawing.Point(114, 6)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(55, 16)
         Me.Label2.TabIndex = 616
@@ -65,27 +64,16 @@ Partial Class 倉儲分區控制表
         '
         '倉明編號_tb
         '
-        Me.倉明編號_tb.Location = New System.Drawing.Point(192, 59)
+        Me.倉明編號_tb.Location = New System.Drawing.Point(170, 2)
         Me.倉明編號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.倉明編號_tb.Name = "倉明編號_tb"
         Me.倉明編號_tb.Size = New System.Drawing.Size(72, 23)
         Me.倉明編號_tb.TabIndex = 615
         '
-        '關閉_bt
-        '
-        Me.關閉_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.關閉_bt.Location = New System.Drawing.Point(332, 9)
-        Me.關閉_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.關閉_bt.Name = "關閉_bt"
-        Me.關閉_bt.Size = New System.Drawing.Size(84, 42)
-        Me.關閉_bt.TabIndex = 614
-        Me.關閉_bt.Text = "關閉 "
-        Me.關閉_bt.UseVisualStyleBackColor = True
-        '
         'Label1
         '
         Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(11, 63)
+        Me.Label1.Location = New System.Drawing.Point(1, 6)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(31, 16)
         Me.Label1.TabIndex = 613
@@ -96,7 +84,7 @@ Partial Class 倉儲分區控制表
         Me.倉級_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.倉級_cb.FormattingEnabled = True
         Me.倉級_cb.Items.AddRange(New Object() {"1", "2", "3"})
-        Me.倉級_cb.Location = New System.Drawing.Point(52, 59)
+        Me.倉級_cb.Location = New System.Drawing.Point(36, 2)
         Me.倉級_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.倉級_cb.Name = "倉級_cb"
         Me.倉級_cb.Size = New System.Drawing.Size(70, 24)
@@ -104,38 +92,41 @@ Partial Class 倉儲分區控制表
         '
         '刪除_bt
         '
+        Me.刪除_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.GarbageEmpty
+        Me.刪除_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.刪除_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.刪除_bt.ForeColor = System.Drawing.Color.Red
-        Me.刪除_bt.Location = New System.Drawing.Point(191, 9)
+        Me.刪除_bt.Location = New System.Drawing.Point(337, 3)
         Me.刪除_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.刪除_bt.Name = "刪除_bt"
-        Me.刪除_bt.Size = New System.Drawing.Size(84, 42)
+        Me.刪除_bt.Size = New System.Drawing.Size(48, 48)
         Me.刪除_bt.TabIndex = 611
-        Me.刪除_bt.Text = "刪除"
         Me.刪除_bt.UseVisualStyleBackColor = True
         '
         '修改_bt
         '
+        Me.修改_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.SAVER
+        Me.修改_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.修改_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.修改_bt.ForeColor = System.Drawing.Color.Green
-        Me.修改_bt.Location = New System.Drawing.Point(101, 9)
+        Me.修改_bt.Location = New System.Drawing.Point(290, 3)
         Me.修改_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.修改_bt.Name = "修改_bt"
-        Me.修改_bt.Size = New System.Drawing.Size(84, 42)
+        Me.修改_bt.Size = New System.Drawing.Size(48, 48)
         Me.修改_bt.TabIndex = 610
-        Me.修改_bt.Text = "修改 "
         Me.修改_bt.UseVisualStyleBackColor = True
         '
         '新增_bt
         '
+        Me.新增_bt.BackgroundImage = Global.MAOJI_ERP_SYS.My.Resources.Resources.add_2
+        Me.新增_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.新增_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         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(11, 9)
+        Me.新增_bt.Location = New System.Drawing.Point(242, 3)
         Me.新增_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.新增_bt.Name = "新增_bt"
-        Me.新增_bt.Size = New System.Drawing.Size(84, 42)
+        Me.新增_bt.Size = New System.Drawing.Size(48, 48)
         Me.新增_bt.TabIndex = 609
-        Me.新增_bt.Text = "新增 "
         Me.新增_bt.UseVisualStyleBackColor = True
         '
         '倉編清單_dgv
@@ -144,27 +135,27 @@ Partial Class 倉儲分區控制表
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.倉編清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.倉編清單_dgv.BackgroundColor = System.Drawing.Color.White
         Me.倉編清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.倉編清單_dgv.Location = New System.Drawing.Point(13, 90)
+        Me.倉編清單_dgv.Location = New System.Drawing.Point(3, 52)
         Me.倉編清單_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.倉編清單_dgv.Name = "倉編清單_dgv"
         Me.倉編清單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.倉編清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.倉編清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
         Me.倉編清單_dgv.RowTemplate.Height = 24
-        Me.倉編清單_dgv.Size = New System.Drawing.Size(403, 344)
+        Me.倉編清單_dgv.Size = New System.Drawing.Size(382, 388)
         Me.倉編清單_dgv.TabIndex = 608
         '
         '倉儲分區控制表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(427, 443)
+        Me.ClientSize = New System.Drawing.Size(389, 444)
         Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.倉名_tb)
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.倉明編號_tb)
-        Me.Controls.Add(Me.關閉_bt)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.倉級_cb)
         Me.Controls.Add(Me.刪除_bt)
@@ -172,7 +163,7 @@ Partial Class 倉儲分區控制表
         Me.Controls.Add(Me.新增_bt)
         Me.Controls.Add(Me.倉編清單_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "倉儲分區控制表"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "倉儲分區控制表"
@@ -186,7 +177,6 @@ Partial Class 倉儲分區控制表
     Friend WithEvents 倉名_tb As TextBox
     Friend WithEvents Label2 As Label
     Friend WithEvents 倉明編號_tb As TextBox
-    Friend WithEvents 關閉_bt As Button
     Friend WithEvents Label1 As Label
     Friend WithEvents 倉級_cb As ComboBox
     Friend WithEvents 刪除_bt As Button

MAOJI-ERP-SYS/倉儲系統管理/倉儲分區控制表.vb → MAOJI-ERP-SYS/07、倉儲系統管理/倉儲分區控制表.vb

@@ -4,36 +4,24 @@ Public Class 倉儲分區控制表
     Private Sub Set_清單1()
         倉編清單_dgv.DataSource = Nothing : ds.Clear()
         倉編清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        倉編清單_dgv.ColumnHeadersHeight = 25
-        倉編清單_dgv.AllowUserToAddRows = False
-        倉編清單_dgv.RowTemplate.Height = 25
+        倉編清單_dgv.ColumnHeadersHeight = 25 : 倉編清單_dgv.AllowUserToAddRows = False : 倉編清單_dgv.RowTemplate.Height = 25
         SQL_倉儲分區控制表清單()
         da.Fill(ds) : 倉編清單_dgv.DataSource = ds.Tables(0) : conn.Close()
-        倉編清單_dgv.Columns(0).FillWeight = 126 : 倉編清單_dgv.Columns(1).FillWeight = 126 : 倉編清單_dgv.Columns(2).FillWeight = 126
+        倉編清單_dgv.Columns(0).FillWeight = 50 : 倉編清單_dgv.Columns(1).FillWeight = 50 : 倉編清單_dgv.Columns(2).FillWeight = 100
     End Sub
     Private Sub 編號推進()
         SQL_倉儲分區控制表流水號最後一筆()
-        If dr.Read() Then
-            倉明編號_tb.Text = dr("倉名編號")
+        If dr.Read() Then : 倉明編號_tb.Text = dr("倉名編號")
             If Val(Strings.Right(倉明編號_tb.Text, 2)) < 10 Then
                 倉明編號_tb.Text = "N0" & Val(Strings.Right(倉明編號_tb.Text, 2)) + 1
             Else
                 倉明編號_tb.Text = "N" & Val(Strings.Right(倉明編號_tb.Text, 2)) + 1
             End If
-        Else
-            倉明編號_tb.Text = "N01"
-        End If
-        conn.Close()
+        Else : 倉明編號_tb.Text = "N01" : End If : conn.Close()
     End Sub
     Private Sub 倉儲分區控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        ControlBox = False
-        Set_清單1()
-        倉明編號_tb.Enabled = False
-        If gUserName = "李協叡" Then
-            修改_bt.Enabled = True : 刪除_bt.Enabled = True
-        Else
-            修改_bt.Enabled = False : 刪除_bt.Enabled = False
-        End If
+        Set_清單1() : 倉明編號_tb.Enabled = False
+        If gUserName = "李協叡" Then : 修改_bt.Enabled = True : 刪除_bt.Enabled = True : Else : 修改_bt.Enabled = False : 刪除_bt.Enabled = False : End If
         編號推進()
     End Sub
     Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 倉編清單_dgv.CellClick
@@ -41,39 +29,26 @@ Public Class 倉儲分區控制表
             倉級_cb.Text = 倉編清單_dgv(0, e.RowIndex).Value.ToString : 倉明編號_tb.Text = 倉編清單_dgv(1, e.RowIndex).Value.ToString : 倉名_tb.Text = 倉編清單_dgv(2, e.RowIndex).Value.ToString
         End If
     End Sub
-    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 關閉_bt.Click
-        Me.Close()
-    End Sub
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
-        If 倉級_cb.Text = "" Or 倉名_tb.Text = "" Then : MsgBox("資料不齊全。")
-        Else
+        If 倉級_cb.Text = "" Or 倉名_tb.Text = "" Then : MsgBox("資料不齊全。") : Else
             編號推進() : PA = 倉名_tb.Text : SQL_倉名編號取得()
-            If dr.Read() Then : conn.Close() : MsgBox("資料重複。")
-            Else
+            If dr.Read() Then : conn.Close() : MsgBox("資料重複。") : Else
                 SQL_倉儲分區控制表_倉名編號_資料重複驗證()
                 If dr.Read() Then : conn.Close() : MsgBox("資料重複。")
-                Else : SQL_倉儲分區控制表新增() : conn.Close() : MsgBox("新增完成。") : 編號推進() : 倉名_tb.Text = "" : Set_清單1()
-                End If
+                Else : SQL_倉儲分區控制表新增() : conn.Close() : MsgBox("新增完成。") : 編號推進() : 倉名_tb.Text = "" : Set_清單1() : End If
             End If
         End If
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
-        If 倉級_cb.Text = "" Or 倉名_tb.Text = "" Then : MsgBox("資料不齊全。")
-        Else
-            PA = 倉名_tb.Text : SQL_倉名編號取得()
-            If dr.Read() Then : conn.Close() : MsgBox("資料重複。")
-            Else
-                SQL_倉儲分區控制表_倉名編號_資料重複驗證()
+        If 倉級_cb.Text = "" Or 倉名_tb.Text = "" Then : MsgBox("資料不齊全。") : Else : PA = 倉名_tb.Text : SQL_倉名編號取得()
+            If dr.Read() Then : conn.Close() : MsgBox("資料重複。") : Else : SQL_倉儲分區控制表_倉名編號_資料重複驗證()
                 If dr.Read() Then : conn.Close() : MsgBox("資料重複。")
-                Else : SQL_倉儲分區控制表修改() : conn.Close() : MsgBox("修改完成。") : Set_清單1()
-                End If
+                Else : SQL_倉儲分區控制表修改() : conn.Close() : MsgBox("修改完成。") : Set_清單1() : End If
             End If
         End If
     End Sub
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
         Dim aa As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
-        If aa = MsgBoxResult.Ok Then
-            SQL_倉儲分區控制表刪除() : conn.Close() : MsgBox("刪除完成。") : 編號推進() : 倉名_tb.Text = "" : Set_清單1()
-        End If
+        If aa = MsgBoxResult.Ok Then : SQL_倉儲分區控制表刪除() : conn.Close() : MsgBox("刪除完成。") : 編號推進() : 倉名_tb.Text = "" : Set_清單1() : End If
     End Sub
 End Class

MAOJI-ERP-SYS/倉儲系統管理/倉儲庫存清單.Designer.vb → MAOJI-ERP-SYS/07、倉儲系統管理/倉儲庫存清單.Designer.vb

@@ -23,11 +23,11 @@ Partial Class 倉儲庫存清單
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.加權成本_台幣_tb = New System.Windows.Forms.TextBox()
         Me.材質_tb = New System.Windows.Forms.TextBox()
         Me.尺寸_tb = New System.Windows.Forms.TextBox()
@@ -170,43 +170,44 @@ Partial Class 倉儲庫存清單
         Me.動態庫存_dgv.Location = New System.Drawing.Point(123, 115)
         Me.動態庫存_dgv.Name = "動態庫存_dgv"
         Me.動態庫存_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.動態庫存_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.動態庫存_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
         Me.動態庫存_dgv.RowTemplate.Height = 24
         Me.動態庫存_dgv.Size = New System.Drawing.Size(251, 256)
         Me.動態庫存_dgv.TabIndex = 1109
         '
         '組裝清單_dgv
         '
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.組裝清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.組裝清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         Me.組裝清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.組裝清單_dgv.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllCellsExceptHeaders
         Me.組裝清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.組裝清單_dgv.Location = New System.Drawing.Point(380, 115)
         Me.組裝清單_dgv.Name = "組裝清單_dgv"
         Me.組裝清單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.組裝清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.組裝清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
         Me.組裝清單_dgv.RowTemplate.Height = 24
         Me.組裝清單_dgv.Size = New System.Drawing.Size(272, 256)
         Me.組裝清單_dgv.TabIndex = 1110
         '
         '庫存清單_dgv
         '
-        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.庫存清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.庫存清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
         Me.庫存清單_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.庫存清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.庫存清單_dgv.BackgroundColor = System.Drawing.Color.White
         Me.庫存清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.庫存清單_dgv.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.供應商, Me.品名, Me.尺寸, Me.材質, Me.庫存, Me.採購下單, Me.入庫日期, Me.單價, Me.成本, Me.採購單號, Me.料號})
         Me.庫存清單_dgv.Location = New System.Drawing.Point(10, 37)
         Me.庫存清單_dgv.Name = "庫存清單_dgv"
         Me.庫存清單_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.庫存清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.庫存清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
         Me.庫存清單_dgv.RowTemplate.Height = 24
         Me.庫存清單_dgv.Size = New System.Drawing.Size(1895, 935)
         Me.庫存清單_dgv.TabIndex = 1116
@@ -283,6 +284,7 @@ Partial Class 倉儲庫存清單
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 981)
+        Me.Controls.Add(Me.庫存清單_dgv)
         Me.Controls.Add(Me.加權成本_台幣_tb)
         Me.Controls.Add(Me.材質_tb)
         Me.Controls.Add(Me.尺寸_tb)
@@ -296,9 +298,8 @@ Partial Class 倉儲庫存清單
         Me.Controls.Add(Me.供應商編號_tb)
         Me.Controls.Add(Me.動態庫存_dgv)
         Me.Controls.Add(Me.組裝清單_dgv)
-        Me.Controls.Add(Me.庫存清單_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "倉儲庫存清單"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "倉儲庫存清單"