backup

.vs/GF00-ERP-SYS/v17/DocumentLayout.json

       "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|d:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\0.mymodule\\\u4E3B\u8CC7\u6599\u5EAB\\sql_\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\0.mymodule\\\u4E3B\u8CC7\u6599\u5EAB\\sql_\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
       "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\0.mymodule\\\u4E3B\u8CC7\u6599\u5EAB\\sql_\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\gcm-cpv-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\gcm-cpv-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|d:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|d:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|d:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|d:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
       "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
       "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
     },
     {
       "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
       "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
     },
+    {
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\gcm-cpv-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\gcm-cpv-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
     {
       "AbsoluteMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|D:\\gf00-erp-sys-leehsiehjui\\gf00-erp-sys\\gcm-cpv-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
       "RelativeMoniker": "D:0:0:{FE513A1E-39BC-4D77-9C8F-00C243513418}|GF00-ERP-SYS\\GF00-ERP-SYS.vbproj|solutionrelative:gf00-erp-sys\\gcm-cpv-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
       "DocumentGroups": [
         {
           "DockedHeight": 200,
-          "SelectedChildIndex": 3,
+          "SelectedChildIndex": 5,
           "Children": [
+            {
+              "$type": "Document",
+              "DocumentIndex": 5,
+              "Title": "\u9023\u52D5\u6A21\u7D44.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb",
+              "RelativeDocumentMoniker": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb",
+              "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2025-04-15T01:25:08.296Z",
+              "EditorCaption": " [\u8A2D\u8A08]"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 3,
+              "Title": "\u4F30\u50F9\u55AE.vb",
+              "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb",
+              "RelativeDocumentMoniker": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb",
+              "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb",
+              "RelativeToolTip": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb",
+              "ViewState": "AQIAAAECAAAAAAAAAAAAACoCAAAzAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2025-04-14T03:49:42.652Z",
+              "EditorCaption": ""
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 4,
+              "Title": "\u4F30\u50F9\u55AE.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb",
+              "RelativeDocumentMoniker": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb",
+              "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u4F30\u50F9\u55AE.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2025-04-14T03:18:24.485Z",
+              "EditorCaption": " [\u8A2D\u8A08]"
+            },
             {
               "$type": "Document",
               "DocumentIndex": 2,
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\0.MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71.vb",
               "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\0.MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71.vb",
               "RelativeToolTip": "GF00-ERP-SYS\\0.MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71.vb",
-              "ViewState": "AQIAANcAAAAAAAAAAAAtwOgAAABLAAAA",
+              "ViewState": "AQIAANUBAAAAAAAAAAAtwM0BAABaAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2025-04-14T01:20:53.528Z",
               "EditorCaption": ""
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb",
               "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb",
               "RelativeToolTip": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb",
-              "ViewState": "AQIAAFAFAAAAAAAAAADgv2AFAAAjAAAA",
+              "ViewState": "AQIAAAkLAAAAAAAAAAAAABQLAAAIAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2025-04-14T01:20:07.011Z",
               "EditorCaption": ""
             },
-            {
-              "$type": "Document",
-              "DocumentIndex": 8,
-              "Title": "\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb [\u8A2D\u8A08]",
-              "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb",
-              "RelativeDocumentMoniker": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb",
-              "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb [\u8A2D\u8A08]",
-              "RelativeToolTip": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb [\u8A2D\u8A08]",
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2025-04-14T01:20:05.707Z",
-              "EditorCaption": " [\u8A2D\u8A08]"
-            },
             {
               "$type": "Document",
               "DocumentIndex": 0,
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb",
               "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb",
               "RelativeToolTip": "GF00-ERP-SYS\\0.MyModule\\\u6A21\u7D44\\\u5168\u57DF\u8B8A\u6578.vb",
-              "ViewState": "AQIAAAEAAAAAAAAAAAAuwAYAAAAbAAAA",
+              "ViewState": "AQIAAAEAAAAAAAAAAAAuwAYAAAAlAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2025-04-07T03:11:18.17Z",
               "EditorCaption": ""
             },
             {
               "$type": "Document",
-              "DocumentIndex": 7,
+              "DocumentIndex": 12,
               "Title": "\u5217\u5370.vb",
               "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
               "RelativeToolTip": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
               "ViewState": "AQIAAAAAAAAAAAAAAABAwAYAAAATAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2025-04-07T01:39:04.358Z",
-              "EditorCaption": ""
+              "WhenOpened": "2025-04-07T01:39:04.358Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 6,
+              "DocumentIndex": 7,
               "Title": "\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb",
               "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb",
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb",
               "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb",
               "RelativeToolTip": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb",
-              "ViewState": "AQIAAIsCAAAAAAAAAADwv5kCAAAWAAAA",
+              "ViewState": "AQIAAHIDAAAAAAAAAIAwwIcDAAAIAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2025-04-07T01:38:01.876Z",
               "EditorCaption": ""
             },
             {
               "$type": "Document",
-              "DocumentIndex": 5,
+              "DocumentIndex": 8,
               "Title": "\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb [\u8A2D\u8A08]",
               "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb",
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8CA1\u52D9_\u6536\u652F\u55AE\u4E00\u89BD\u8868.vb",
             },
             {
               "$type": "Document",
-              "DocumentIndex": 4,
+              "DocumentIndex": 6,
+              "Title": "\u9023\u52D5\u6A21\u7D44.vb",
+              "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb",
+              "RelativeDocumentMoniker": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb",
+              "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb",
+              "RelativeToolTip": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u9023\u52D5\u6A21\u7D44.vb",
+              "ViewState": "AQIAACMAAAAAAAAAAAAQwDkAAABmAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2025-04-15T01:25:09.779Z",
+              "EditorCaption": ""
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 9,
+              "Title": "\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb",
+              "RelativeDocumentMoniker": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb",
+              "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "GF00-ERP-SYS\\06.\u696D\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u8ECA\u8F1B\\\u8ECA\u8F1B\u92B7\u552E\u7BA1\u7406.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2025-04-14T01:20:05.707Z",
+              "EditorCaption": " [\u8A2D\u8A08]"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 11,
               "Title": "\u5217\u5370.vb [\u8A2D\u8A08]",
               "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb",
               "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb [\u8A2D\u8A08]",
               "RelativeToolTip": "GF00-ERP-SYS\\04.\u8CA1\u52D9\u7BA1\u7406\u7CFB\u7D71\\\u5217\u5370.vb [\u8A2D\u8A08]",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2025-04-07T01:35:14.496Z",
-              "EditorCaption": " [\u8A2D\u8A08]"
+              "WhenOpened": "2025-04-07T01:35:14.496Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 3,
+              "DocumentIndex": 10,
               "Title": "GCM-CPV-ERP-SYS.vb",
               "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb",
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb",
               "RelativeToolTip": "GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb",
               "ViewState": "AQIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2025-04-04T02:01:29.451Z",
-              "EditorCaption": ""
+              "WhenOpened": "2025-04-04T02:01:29.451Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 9,
+              "DocumentIndex": 13,
               "Title": "GCM-CPV-ERP-SYS.vb [\u8A2D\u8A08]",
               "DocumentMoniker": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb",
               "RelativeDocumentMoniker": "GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb",
               "ToolTip": "D:\\gf00-erp-sys-leehsiehjui\\GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb [\u8A2D\u8A08]",
               "RelativeToolTip": "GF00-ERP-SYS\\GCM-CPV-ERP-SYS.vb [\u8A2D\u8A08]",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2025-04-04T02:01:27.845Z",
-              "EditorCaption": " [\u8A2D\u8A08]"
+              "WhenOpened": "2025-04-04T02:01:27.845Z"
             }
           ]
         }

GF00-ERP-SYS/0.MyModule/主資料庫/SQL_業務管理系統.vb

-Module SQL_業務管理系統
+Imports System.Windows.Forms.VisualStyles.VisualStyleElement
+
+Module SQL_業務管理系統
     '---------------------客戶資料表-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_客戶資料表_清單()
         ConnOpen()
                 ORDER BY 車輛銷售控制表.控制表單號 DESC"
         CmdSet_For_DGV()
     End Sub
-    Friend Sub SQL_車輛銷售管理_物料清單()
+    Friend Sub SQL_車輛銷售管理_物料清單(選擇供應商 As String)
         'If 系統語言 = "中文" Then : 系統語言 = "繁體中文" : End If
         ConnOpen()
         If PA56 = "" Then
             SQL1 = "SELECT 物料資料庫.料號,物料資料庫.品名  ,物料資料庫.廠牌,物料資料庫.車種年份 ,物料資料庫.狀態 ,物料資料庫.成本 FROM 物料資料庫
                     INNER JOIN 供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.供應商編碼
-                    WHERE 供應商資料表.公司名 LIKE N'%" & 車輛銷售管理.選擇供應商_cb.Text & "%' ORDER BY 物料資料庫.料號"
+                    WHERE 供應商資料表.公司名 LIKE N'%" & 選擇供應商 & "%' ORDER BY 物料資料庫.料號"
 
         Else
             SQL1 = "SELECT 物料資料庫.料號,物料資料庫.品名  ,物料資料庫.廠牌,物料資料庫.車種年份 ,物料資料庫.狀態 ,物料資料庫.成本 FROM 物料資料庫
                     INNER JOIN 供應商資料表 ON 物料資料庫.供應商編號 = 供應商資料表.供應商編碼
                     WHERE (物料資料庫.品名 LIKE N'%" & PA56 & "%'  OR  物料資料庫.廠牌 LIKE N'%" & PA56 & "%' OR 物料資料庫.車種年份 LIKE N'%" & PA56 & "%')  AND
-                    供應商資料表.公司名 LIKE N'%" & 車輛銷售管理.選擇供應商_cb.Text & "%' ORDER BY 物料資料庫.料號 "
+                    供應商資料表.公司名 LIKE N'%" & 選擇供應商 & "%' ORDER BY 物料資料庫.料號 "
         End If
 
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_估價單_控制表新增()
         ConnOpen()
-        SQL1 = "INSERT INTO 估價單控制表 (控制表單號,客戶,報價日期,廠牌車種,進廠,車身型式,業務,總計,備註,付款方式)
-                VALUES (N'" & PA & "',N'',N'',N'',N'',N'',N'',N'0',N'',N'')"
+        SQL1 = "INSERT INTO 估價單控制表 (控制表單號, 車主名稱, 車主電話, 車號, 報價日期, 備註, 里程)
+                VALUES (N'" & PA & "',N'',N'',N'',N'',N'',N'')"
         CmdSet_For_dr()
     End Sub
 
     Friend Sub SQL_估價單_控制表修改()
         ConnOpen()
-        SQL1 = "UPDATE 估價單控制表 SET 客戶 = N'" & 估價單.客戶_tb.Text & "', 報價日期 = N'" & 估價單.選擇日期_dtp.Text & "', 
-                                        廠牌車種 = N'" & 估價單.廠牌_tb.Text & "', 進廠= N'" & 估價單.進廠_tb.Text & "', 
-                                        車身型式 = N'" & 估價單.年分_tb.Text & "', 業務 = N'" & 估價單.業務_tb.Text & "', 
-                                        總計 = N'" & 估價單.總價_tb.Text & "', 備註 = N'" & 估價單.備註_tb.Text & "', 
-                                        付款方式 = N'" & 估價單.付款_tb.Text & "'
+        SQL1 = "UPDATE 估價單控制表 SET 車主名稱 = N'" & 估價單.車主名稱_tb.Text & "', 報價日期 = N'" & 估價單.報價日期_dtp.Value.ToString("yyyy/MM/dd") & "', 
+                                        車主電話 = N'" & 估價單.電話_tb.Text & "', 車號= N'" & 估價單.車號_tb.Text & "', 
+                                        備註 = N'" & 估價單.備註_tb.Text & "'  , 里程= N'" & 估價單.里程_tb.Text & "'                 
                  WHERE (控制表單號 = N'" & 估價單.單號_tb.Text & "')"
 
         CmdSet_For_dr()
         If PA56 = "" Then
             SQL2 = ""
         Else
-            SQL2 = "WHERE 估價單控制表.客戶 LIKE N'%" & PA56 & "%' OR 估價單控制表.廠牌車種 LIKE N'%" & PA56 & "%'"
+            SQL2 = "WHERE 客戶 LIKE N'%" & PA56 & "%' OR 車號 LIKE N'%" & PA56 & "%'"
         End If
-        SQL1 = "SELECT 估價單控制表.控制表單號,估價單控制表.客戶,估價單控制表.報價日期,估價單控制表.廠牌車種,
-                        估價單控制表.進廠,估價單控制表.車身型式,估價單控制表.業務,估價單控制表.總計,
-                        估價單控制表.備註,估價單控制表.付款方式   FROM 估價單控制表 " & SQL2 & " 
-                ORDER BY 估價單控制表.控制表單號 DESC"
+        SQL1 = "SELECT 控制表單號, 車主名稱, 車主電話, 車號, 報價日期, 備註, 里程
+                FROM 估價單控制表 " & SQL2 & " 
+                ORDER BY 控制表單號 DESC"
         CmdSet_For_DGV()
     End Sub
 
     Friend Sub SQL_估價單_查詢明細表()
         ConnOpen()
-        SQL1 = "SELECT      估價單明細表.控制表單號,估價單明細表.項次 ,估價單明細表.內容
+        SQL1 = "SELECT      流水號, 項次, 各項支出名稱, 數量, 成本, 金額 AS 售價, 成本 AS 總成本, 金額 AS 總售價, 金額 AS 利潤,備註, 
+                            控制表單號, 料號 ,狀態
                 FROM        估價單明細表
-                WHERE       (估價單明細表.控制表單號 LIKE N'" & 估價單.單號_tb.Text & "')
-                ORDER BY    估價單明細表.項次"
+                WHERE       (控制表單號 LIKE N'" & 估價單.單號_tb.Text & "')
+                ORDER BY    項次"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_估價單_查詢最後一筆單號項次()
         SQL1 = "SELECT TOP(1) 項次 FROM 估價單明細表 WHERE 控制表單號 LIKE N'" & 估價單.單號_tb.Text & "' ORDER BY 項次 DESC"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_估價單_新增明細表()
+    Friend Sub SQL_估價單_新增明細表(項次 As String, 項 As String, 控制表單號 As String, 料號 As String, 成本 As String, 狀態 As String)
         ConnOpen()
-        SQL1 = "INSERT INTO 估價單明細表 (控制表單號,項次,內容) " &
-                   "VALUES (N'" & 估價單.單號_tb.Text & "', N'" & PA15 & "',N'')"
+        SQL1 = "INSERT INTO 估價單明細表 (流水號, 項次, 各項支出名稱, 數量, 金額, 備註, 控制表單號, 料號, 成本, 狀態) " &
+                   "VALUES (N'', N'" & 項次 & "',N'" & 項 & "',N'1',N'0',N'',N'" & 控制表單號 & "',N'" & 料號 & "',N'" & 成本 & "',N'" & 狀態 & "')"
         CmdSet_For_dr()
     End Sub
 
         CmdSet_For_dr()
     End Sub
 
-    Friend Sub SQL_估價單_修改明細表()
+    Friend Sub SQL_估價單_修改明細表(項次 As String, 項 As String, 控制表單號 As String, 數量 As String, 金額 As String, 備註 As String)
         ConnOpen()
-        SQL1 = "UPDATE 估價單明細表 SET 內容= N'" & PA2 & "'
-                WHERE  (控制表單號 LIKE N'" & 估價單.單號_tb.Text & "' AND 項次 LIKE N'" & PA1 & "') "
+        SQL1 = "UPDATE 估價單明細表 SET 各項支出名稱 = N'" & 項 & "' , 數量 = N'" & 數量 & "',金額 = N'" & 金額 & "',備註 = N'" & 備註 & "'
+                WHERE  (控制表單號 LIKE N'" & 控制表單號 & "' AND 項次 LIKE N'" & 項次 & "') "
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_估價單_車輛銷售控制表新增(單號 As String, 狀態 As String, 車主 As String, 車號 As String, 日期 As String, 電話 As String, 稅 As String, 合計 As String,
+                                 廠牌 As String, 年份 As String, 引擎號碼 As String, 輪胎尺寸 As String)
+        ConnOpen()
+        SQL1 = "INSERT INTO 車輛銷售控制表 (控制表單號,狀態,買入車主名稱,買入牌照號碼,買入日期,買入車主電話,已交車,買入進價,備註,廠牌, 年份型式,引擎號碼, 買入顏色,買入車主地址,
+                            買入經手人,賣出日期,賣出牌照號碼,賣出顏色,賣出車主名稱,賣出車主電話,賣出車主地址,賣出售價,賣出經手人, 檢測日期,買入總成本,支出合計,進廠里程,出廠里程) 
+                VALUES ( N'" & 單號 & "',N'" & 狀態 & "',N'" & 車主 & "',N'" & 車號 & "',N'" & 日期 & "',N'" & 電話 & "',N'" & 稅 & "',N'" & 合計 & "',N'',N'" & 廠牌 & "',
+                         N'" & 年份 & "',N'" & 引擎號碼 & "',N'" & 輪胎尺寸 & "',N'',N'',N'',N'',N'',N'',N'',N'',N'0',N'',N'',N'0',N'0',N'',N'')"
+        CmdSet_For_dr()
 
+        SQL1 = "UPDATE 車輛銷售控制表 SET 廠牌 = N'" & 車輛銷售管理.車型_tb.Text & "', 年份型式 = N'" & 車輛銷售管理.年_tb.Text & "', 
+                                        引擎號碼 = N'" & 車輛銷售管理.引擎號碼1_tb.Text & "', 買入日期 = N'" & 車輛銷售管理.入廠日期_dtp.Text & "', 
+                                        買入牌照號碼 = N'" & 車輛銷售管理.車號_tb.Text & "', 買入顏色 = N'" & 車輛銷售管理.輪胎尺寸_tb.Text & "', 
+                                        買入車主名稱 = N'" & 車輛銷售管理.車主名稱_tb.Text & "', 買入車主電話 = N'" & 車輛銷售管理.電話_tb.Text & "', 
+                                        買入車主地址 = N'" & 車輛銷售管理.地址_tb.Text & "', 買入進價 = N'" & 車輛銷售管理.全部_tb.Text & "', 
+                                        買入經手人 = N'" & 車輛銷售管理.出險公司_tb.Text & "', 賣出日期 = N'', 
+                                        賣出牌照號碼  = N'', 賣出顏色 = N'', 
+                                        賣出車主名稱 = N'', 賣出車主電話 = N'', 
+                                        賣出車主地址 = N'" & 車輛銷售管理.賒帳_tb.Text & "', 賣出售價 = N'" & 車輛銷售管理.現金_tb.Text & "', 
+                                        賣出經手人 = N'', 備註 = N'', 
+                                        檢測日期 = N'" & 車輛銷售管理.應驗車日_dtp.Text & "', 買入總成本 = N'" & 車輛銷售管理.信用卡_tb.Text & "',
+                                        支出合計 = N'" & 車輛銷售管理.支票_tb.Text & "',
+                                        已交車 = N'" & 車輛銷售管理.是否收稅_cb.Checked & "',進廠里程 = N'" & 車輛銷售管理.里程_tb.Text & "',
+                                        出廠里程 = N'" & 車輛銷售管理.保養預示_tb.Text & "'
+                 WHERE (控制表單號 = N'" & 車輛銷售管理.單號_tb.Text & "')"
+    End Sub
+    Friend Sub SQL_估價單_車輛銷售明細表新增(流水 As String, 項 As String, 數量 As String, 金額 As String, 備註 As String, 單號 As String, 料號 As String, 項次 As String, 成本 As String, 狀態 As String)
+        ConnOpen()
+        SQL1 = "INSERT INTO 車輛銷售明細表 (流水號, 各項支出名稱, 數量, 金額, 備註, 控制表單號, 料號, 項次,成本,已儲存,狀態) 
+                VALUES (N'" & 流水 & "', N'" & 項 & "', N'" & 數量 & "', N'" & 金額 & "', N'" & 備註 & "', N'" & 單號 & "', N'" & 料號 & "', N'" & 項次 & "'," & 成本 & ",'0',N'" & 狀態 & "')"
+        CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_估價單_明細表項次更新()
         ConnOpen()
         SQL1 = "WITH NumberedRows AS (
         CmdSet_For_dr()
     End Sub
 
+    Friend Sub SQL_估價單_查詢客戶資料(車主 As String, 車號 As String)
+        ConnOpen()
+        SQL1 = "SELECT * FROM 客戶資料表 
+                WHERE  (客戶名稱 LIKE N'" & 車主 & "') AND (客戶車號 LIKE N'" & 車號 & "')"
+
+        CmdSet_For_dr()
+    End Sub
+
+    Friend Sub SQL_估價單_新增客戶資料(流水 As String, 車主 As String, 車號 As String, 電話 As String, 備註 As String)
+        ConnOpen()
+        SQL1 = "INSERT INTO 客戶資料表 (流水號, 簡稱, 客戶名稱, 公司電話, 地址, 負責人, 負責人電話, 聯繫人1, 聯繫人1電話, 聯繫人1郵件, 聯繫人2, 聯繫人2電話, 聯繫人2郵件,客戶車號,備註) 
+                VALUES (N'" & 流水 & "', N'', N'" & 車主 & "', N'" & 電話 & "', 
+                        N'', N'', N'', N'', N'', N'', N'', N'', N'',N'" & 車號 & "', N'" & 備註 & "')"
 
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_估價單_修改客戶資料(車主 As String, 車號 As String, 電話 As String, 備註 As String)
+        ConnOpen()
+        SQL1 = "UPDATE 客戶資料表 SET  公司電話 = N'" & 電話 & "', 備註 = N'" & 備註 & "'
+                WHERE  (客戶名稱 LIKE N'" & 車主 & "') AND (客戶車號 LIKE N'" & 車號 & "')"
 
+        CmdSet_For_dr()
+    End Sub
 
     Friend Sub SQL_點燈_查詢第一筆單號()
         ConnOpen()

GF00-ERP-SYS/0.MyModule/模組/全域變數.vb

     '-----系統通用變數------
     Public 系統語言, 進度條後墜, 登入人IP, 登入人級別, 介面, 行政採購簽核級別基數, 建築採購簽核級別基數, Target, Target1, Target2, AA(99), FTP帳號, FTP密碼, gUserName,
                  電腦識別碼, 版本號, 資料庫版本, g_conn_type, FTP物理位置, 圖片庫 As String
-    Public 版本 As String = "2025041401"
+    Public 版本 As String = "2025041502"
     Public 比例1, 比例2, 比例3, 分母, 密碼時限, 工程圖庫限制, NN1, 帳本數量, 行, 列 As Integer
     Public 分段1, 分段2, 分段3, 分段4 As Double
     Public BBL1, BBL2, BBL3, BBL4, BBL5, BBL6 As String

GF00-ERP-SYS/06.業務管理系統/車輛/估價單.resx

   <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="Button2.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAABGdBTUEAALGPC/xhBQAADIlJREFUaEPt
+        WHlQ02caLp497LbbbmeH2e3u9I/1j/6x7R+1RZ0WdDy2HY+pW7e21lqdrc5Yx3XxGKaslt3igaKcAURR
+        rnAYziCHQAgEkCvcSQgkISGQi0BCwhVR99l5P/LTNN1tC9Vud7bvzDvz4zvC87zf873f+32PPTZHy8vL
+        8xcIBIHZ2dn8zMxMKZ/Pl6ampkqTk5OlSUlJ0suXL0sTEhL4cXFxgTExMf7e8/8rJhQKfQsKCgLz8vLE
+        4upqVX9/v3lkZMSJ/2AWi8WpUCjMQqFQFRERIQ4PDw8MCwvz9f7dH8SEQuG+wsJCiUKh0E9NTbm8wX6b
+        jY+PuyQSif7s2TBJaGjoPu/ff2RWVFTkKxQK+a2trSpP4Ha7HU1NTUhJ5+NcRDROhl1EyPkofHkhBqci
+        eeAlJiGvUIju7m44nU7cu3cPMzMzsFqtLoFAoAoJCeGfOHHi0a5GUVHRcqFQKB4YGDBzwE0mE64lp+DE
+        mXBE8gtwpewWbnbrUKe2oL5/GLVqC0S9JuS39SO+tAGxOTfBu8aHqEoMs9mMiYkJOBwO1NbWmoODg8VB
+        QUHLvf/vQzECX1ZWJrHZbPc1XlpaiuDT53G5qBqSPiN6LQ5Yxm/DNO6CweGCfmwa/bYpqEYm0TM8gW7L
+        OGo0Vlxv0yKu5BYSM3LQ0tICm81GK4HOzk7nF198ITly5MjDJeGWjZgDPz09DV7CJZxOTEdFtxa60XHY
+        pmaYj07NwDpxG+bx24zEwNg0NLYp9I5MQm6ZQKfJiVaDA1VqK1Ia+hCXV46yikoYDAbmLS0tzsOHD4sP
+        HTr08OREmudkQ+BjExLByy1Hs9YC+9QMHK47GHc7fRMRIkErMeiYhtb+YBW6zONoMzrRPORAvd6OzFYd
+        eCW3cFMkhk6ng1arhVAoNH/22Wd8bxzzssLCwn1SqVTFySYuIRGxueVo148woAR4cuYupu/cw/Sdu5i8
+        fZe10UpYJmZXQWefhnp0EkrrrIzajU60DDlwSz8Gic6G7HY94kobIZbUQq1Wo7e3F5GRkar9+/d/v+xU
+        UFBAeV7CZZuysjKcTuSjXmPG8MRt2KdnMH57Fvyde/9kTt+0ErQyNMbodMtodIoRkBEBkxMtBgcaGAE7
+        qvpHkdKsRVJpLVpbW6FQKNDY2Oj69NN9kr17985fSvn5+YFyuVzPZZu/nb2IGx39DBRJhCPgunMPdz0J
+        3L7D+uZC4KZqBPESJQpFdejq6kJHRwfi4+P1u3fvDvTG9Z0tJydHzEX/uiAHcYViyEwOGJwuBo4k5HTd
+        wdTMLAlykhO1UR+TEBHwkBAj8BUJ2SFyExB0GRFX0YYWaStbCbFY7Proo4/E3ri+kwkEAn9RVRXT/tjY
+        GP5+PhKlskHo7FMYcrhYlhmZnIF9+g4DPHH7LnP6puhbJ2fYmCHHNJujGnWnUo9NTARqtDaINLMEbvRa
+        wavtQ8UtKUuvDQ0NOHL0mGrHjh1zr52ys7MDNRoNyzz0Yxf5hWjRj7K8TvmdpEERJhIUbQJNTt/URucB
+        RZ87C/pGJqEYnkCneZyl0abBMdQP2FGttaFSM4qyvhEUKa1IbxtEanU7W4G6ujokJCSYt2/fPncZZWZm
+        8rnCLCPrOuKK65kESAqUFgfdJCjKJCfr5KzTNzsD3OC1dJB5yKfD5ITU4ECjfgy1OjvE/TZUqEdR2jcC
+        oXIYeQoLois60NbZhZqaGmRlZTm3bds295Sanp4u5VJnJC8BOVI1iyAdSOrRKUaCAJKciIinUxsDb59i
+        hHuts4eY5xnA6Z82cLlqBMW9VhT2DCNXbkF0tRLt8h5UVVWhoqICW7dulXrj+1ajWp4jQMVYidzA9PuA
+        xCSTBuV4yjIEmJy+SfPUx4GnOTSXbV6K/uAY6jzlQ/pXWlGgGIZAZgGvTo2GLiUDT6l78+bNcydw7dq1
+        +wTORiegRGFky8+RIEmQrgkkpUgCTE7f1EZ9NEbuBs9Jh9M+bV4WffUISvqss/KRW3C92wxevQbN8j4G
+        vri4GO+8887cCdAtiiNwnncZN+QGtvkoiiQF0jNHhKJMq8LcOttGfTSGxtKcWfAPpMNpnzYvi37PMHJk
+        FmR1mxFbp0GrUoMbN25QWYGNGzfOnUBiYuJ9AhcSriKvc5BFj4CQjimiBI5KAwIqdzt9Uxv10Rgay0We
+        wNPG5aRDqZO0L+x5EP2MThMiJSp0qHQoLCxEXl4e1q9fP3cC8fHx9wlcTctAamMfA0D6pU3IEaHoElBP
+        pzYOOI2lOfUDD8BzeZ+kU6QcRr5b+1ldZqR3mBBe1QP1wBADLxAIsHbt2rkT4PF4fLPZzNJoyc1yRBU3
+        sqWnzedJhE5U2pgElpy+qa15aHYMjaU5nGwo8pR1Stx5nzZujtyC7G4z+J0mpLQbESWSoVetYeBjYmKc
+        AQEBl7zxfatFR0cHymQydpAplUrE5FdCKDexCHJEaDMSQKppGgbdrp8FTX0ccJpTReDVnpGf1T2lTU46
+        qR1GxDVoIWhRobm5mc4AnDx50vzWW2/N/SCLiIjwz8vPV9HdlUqJq9l5SGpQswgSmOp+G8skBJCk4enU
+        Rn00hgGnqKtHWLokzXuDz+wyIa3DiOQ2I05XKNA7NMz0z+fzsf3991WrV6+eeylBdu7cObHdbnfRJUZc
+        XYPo4gbky0wMDGUQ0jKlQgLp6VScUR+N4YBT1KnWoQ1LmifZPABvQnK7EbwGHS5JeqBSaxj4+Ph416pV
+        q+ZXzJGdOXMmUCQS6enibTQakZZfjLiaHgaGjn4CRpIgkJ5ObdRHY0p63cCVwyzqlG1ow5LmMzzAJ7Ua
+        cLpCDqXBytJnamoqDh48qPfz85v/pebUqVO+X4aGSoxGo4su3u3t7bhUVI3LDRomAwJGkiAnUuTc39RH
+        YyjiDLjCMht1mZllG9qwnGwI/FmREsVdOsjlcqSkpCA2Nta1ctUqyeuvvz7/Cw1ZSEjIvoyMDBW9GtAz
+        SE1dPWJKm5DUpGUZhMBRDePp1EZ9+QoL0zkdUAy4O+qUKlPbjbjWZsCVVgPOV/exC/6QyczAX716FTt3
+        7lStWLFi/tH3tODgYL5IJDLTqwFdvCW3GhFb1oy4OhWLKjkBZWDdgAUyMwNNUqGIU5ZJd2cakszVVgMu
+        S4dwRqRk4AcMJmRkZDDwQUFBWLNmTb03jnlbUFCQ7/Hjx8X05EGvBiqVCo0tUqRUNuFilRzJ0kEWXc4z
+        u2Y3J4EmqXARZ8DdUY+5pcWpcjlKugdgMFvugw8LC8OePXvoHoCQkJDd3ljmbUePHl3++eefS+rr6530
+        akAXb7q7lje0IrayHeFVSiQ2DTCwpG2KNAeapEIRvyI1IKquH1+Wy5FQq0SfycZ+Jzk5GUlJSQgNDcWW
+        LZtxPTsLRoMB6enpD5fEoUOHlh88eFCcm5trpjdOunjTxu7slqGuQ4602m5EVHTivEiBC9V9uFijwoUa
+        Fc6Je3G2UoFIkQw5Ug3UZhs0/VoUFRXdB3/s2DFs2LCBtI8zp0+hWiR6NCQOHDjgu3//fn54eLhKIpG4
+        6MRsbGxkToRkPUooNTp09OnQpdFDph1Cz4AJevMwNLoBdj0tKChAWloaAx8TE+OiDRsQEFBP2g8ODsae
+        PZ98jcQHUbniV/f/45o3nnnb3r17932yZ68kKipKX15eTk/l9IqAyspK3Lx5EyUlJSzCXEVJdQ2VBnRA
+        UY7n8XiuAwcO6P38Vkpee+01lm0o0iEhIV8j0aC14vCNHmzjleKhkti1a5fvzp079+3YsUN86PBhVWxs
+        rDktLc3JgadI5+bm3gcfGRnpDA4ONv9x+3aVn5+f+I033ti3YsWKr+R5bxKpJTWsIs7vGXk0JDh77733
+        /N99993ALVu2XNq0aZP07bffltJFZN26dVIqh/39/aVvvvkmf/Xq1YErV678xtqGI3Hg/BUEZtWhoGvo
+        hyHxMG3dX0LFm0ISsTs2/3+TxMu7jl/zO3gKP5H4b9tPJH4s9n9Dgk5s73k/KvsmEk0DtodfOz0K+3ck
+        sipvobamhtVOfD7f7j3nR2eeJOjE9qid7I6xsVe8x39f8/Hx8Vng4+OzyMfHZ/ECH5+lCxYseHLhggXL
+        Fi5c+MyihYueW7xo0QuLFy/2XbJkyYtLlyx96fGlj//uicefePmpJ558ddmTT614etmy1c88/fTaZ3/2
+        zB+ee/bZrc///Lk/Ld/6Z8nKj/+q3PnhTux4fwc2rt8wvS5gzdGXXvzNN5Yq87FHQuCF55//+Je/eOHT
+        Nf4BZz/84AP7q79/Jei3v/r1JiLwLxjhjlDEke7uAAAAAElFTkSuQmCC
+</value>
+  </data>
 </root>

GF00-ERP-SYS/06.業務管理系統/車輛/估價單.vb

 Imports Microsoft.Office.Interop.Excel.XlWindowState
 Imports Microsoft.Office.Interop.Excel
 Imports System.IO
+Imports System.Reflection
+Imports Microsoft.Office.Interop
 Public Class 估價單
-    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : Dim boo As Boolean : Dim 新項次 As String
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : Dim boo As Boolean : Dim 新項次 As String : Dim 新流水 As String : Dim 新流水1 As String
     Dim NUM1, NUM2 As Integer
     Dim xlApp As New Microsoft.Office.Interop.Excel.Application
     Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
     Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
     Dim 位置1 As String
     Dim N2 As Integer : Dim N3 As Integer
+    Dim index As Integer
     Private Sub 估價單_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = ICS_ASMS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        選擇日期_dtp.CustomFormat = "yyyy/MM/dd"
-        選擇日期_dtp.Format = DateTimePickerFormat.Custom
+        報價日期_dtp.CustomFormat = "yyyy/MM/dd"
+        報價日期_dtp.Format = DateTimePickerFormat.Custom
         確認新增_bt.Enabled = False : 修改_bt.Enabled = False : boo = False
-        Set_清單1()
+
+        選擇供應商_cb.Items.Add("")
+        SQL_物料資料庫_供應商_下拉清單()
+        While (dr.Read()) : 選擇供應商_cb.Items.Add(dr("公司名")) : End While : conn.Close()
         SQL_讀取公司名稱()
         If dr.Read() Then
             公司_tb.Text = dr("公司名稱")
         End If
+        Set_清單1() : Set_清單3()
+    End Sub
+    Private Sub 類別清單_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 選擇供應商_cb.SelectedIndexChanged
+        Set_清單3() : 料號_tb.Text = "" : 品名_tb.Text = "" : 成本_tb.Text = "" : 狀態_tb.Text = ""
     End Sub
-
     Private Sub Set_清單1()
         控制表_dgv.DataSource = Nothing : ds.Clear()
         控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         控制表_dgv.Columns(1).FillWeight = 50 : 控制表_dgv.Columns(3).FillWeight = 50
         控制表_dgv.Columns(0).Visible = False : 控制表_dgv.Columns(2).Visible = False
         控制表_dgv.Columns(4).Visible = False : 控制表_dgv.Columns(5).Visible = False : 控制表_dgv.Columns(6).Visible = False
-        控制表_dgv.Columns(9).Visible = False : 控制表_dgv.Columns(8).Visible = False : 控制表_dgv.Columns(7).Visible = False
     End Sub
     Private Sub 控制表_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 控制表_dgv.CellClick
         If boo = False Then
             If e.RowIndex = -1 Then : Else
                 確認新增_bt.Enabled = False : 修改_bt.Enabled = True
-                單號_tb.Text = 控制表_dgv(0, e.RowIndex).Value.ToString : 客戶_tb.Text = 控制表_dgv(1, e.RowIndex).Value.ToString
-                選擇日期_dtp.Text = 控制表_dgv(2, e.RowIndex).Value.ToString
-                選擇日期_dtp.CustomFormat = "yyyy/MM/dd"
-                選擇日期_dtp.Format = DateTimePickerFormat.Custom
-                廠牌_tb.Text = 控制表_dgv(3, e.RowIndex).Value.ToString : 進廠_tb.Text = 控制表_dgv(4, e.RowIndex).Value.ToString
-                年分_tb.Text = 控制表_dgv(5, e.RowIndex).Value.ToString : 業務_tb.Text = 控制表_dgv(6, e.RowIndex).Value.ToString
-                Dim value As String = 控制表_dgv(7, e.RowIndex).Value.ToString()
-                Dim intValue As Integer
-                If Int32.TryParse(value, intValue) Then
-                    ' 值是整數，格式化為千分位
-                    總價_tb.Text = Strings.Format(intValue, "#,##0")
-                Else
-                    ' 值不是整數，不格式化
-                    總價_tb.Text = value
-                End If
-                備註_tb.Text = 控制表_dgv(8, e.RowIndex).Value.ToString : 付款_tb.Text = 控制表_dgv(9, e.RowIndex).Value.ToString
+                單號_tb.Text = 控制表_dgv(0, e.RowIndex).Value.ToString : 車主名稱_tb.Text = 控制表_dgv(1, e.RowIndex).Value.ToString
+                電話_tb.Text = 控制表_dgv(2, e.RowIndex).Value.ToString : 車號_tb.Text = 控制表_dgv(3, e.RowIndex).Value.ToString
+                報價日期_dtp.Text = 控制表_dgv(4, e.RowIndex).Value.ToString : 備註_tb.Text = 控制表_dgv(5, e.RowIndex).Value.ToString
+                里程_tb.Text = 控制表_dgv(6, e.RowIndex).Value.ToString
                 Set_清單2()
             End If
         End If
-
     End Sub
     Private Sub Set_清單2()
         明細表_dgv.DataSource = Nothing : ds1.Clear()
         明細表_dgv.AllowUserToAddRows = False
         明細表_dgv.RowTemplate.Height = 35
         明細表_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+
         SQL_估價單_查詢明細表() : da.Fill(ds1) : 明細表_dgv.DataSource = ds1.Tables(0) : conn.Close()
-        明細表_dgv.Columns("項次").ReadOnly = True
-        明細表_dgv.Columns(0).Visible = False : 明細表_dgv.Columns(1).FillWeight = 30 : 明細表_dgv.Columns(2).FillWeight = 400
+        Dim newFont As New System.Drawing.Font("微軟正黑體", 9)
+        明細表_dgv.Columns("總售價").ReadOnly = True : 明細表_dgv.Columns("項次").ReadOnly = True : 明細表_dgv.Columns("總成本").ReadOnly = True
+        明細表_dgv.Columns("利潤").ReadOnly = True
+        明細表_dgv.Columns(0).Visible = False : 明細表_dgv.Columns(1).FillWeight = 60 : 明細表_dgv.Columns(2).FillWeight = 400 : 明細表_dgv.Columns(3).FillWeight = 60
+        明細表_dgv.Columns(5).FillWeight = 100 : 明細表_dgv.Columns(7).Visible = 100
+        明細表_dgv.Columns(9).Visible = 300 : 明細表_dgv.Columns(10).Visible = False : 明細表_dgv.Columns(11).Visible = False : 明細表_dgv.Columns(12).Visible = False
+
+        明細表_dgv.RowsDefaultCellStyle.Font = newFont
+        If 隱藏成本_cb.Checked = False Then
+            明細表_dgv.Columns(4).Visible = False
+            明細表_dgv.Columns(6).Visible = False
+            明細表_dgv.Columns(8).Visible = False
+        Else
+            明細表_dgv.Columns(4).FillWeight = 100 : 明細表_dgv.Columns(6).FillWeight = 100 : 明細表_dgv.Columns(8).Visible = 100
+            明細表_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.##"
+            明細表_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.##"
+            明細表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0.##"
+            明細表_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            明細表_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+            明細表_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            明細表_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+            明細表_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            明細表_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        End If
+        明細表_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.##" : 明細表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.##"
+        明細表_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細表_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細表_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細表_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細表_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細表_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細表_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細表_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        Dim NUM1 As Integer = 0
+        Dim NUM2 As Integer = 0
+        For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
+            明細表_dgv.Rows(i).Cells("總售價").Value = 明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("售價").Value
+            明細表_dgv.Rows(i).Cells("總成本").Value = 明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("成本").Value
+            明細表_dgv.Rows(i).Cells("利潤").Value = (明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("售價").Value) - (明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("成本").Value)
+            If 明細表_dgv.Rows(i).Cells("狀態").Value <> "承修項目" Then
+                NUM1 += 明細表_dgv.Rows(i).Cells("總售價").Value
+            Else
+                NUM2 += 明細表_dgv.Rows(i).Cells("總售價").Value
+            End If
+        Next
+        零件_tb.Text = Strings.Format(Val(NUM1), "#,##0")
+        工資_tb.Text = Strings.Format(Val(NUM2), "#,##0")
+        總計_tb.Text = Strings.Format(Val(NUM1 + NUM2), "#,##0")
+
+        If 是否收稅_cb.Checked = True Then
+            稅金_tb.Text = Strings.Format(Val((NUM1 + NUM2) * 0.05), "#,##0")
+            應收合計_tb.Text = Strings.Format(Val(NUM1 + NUM2 + ((NUM1 + NUM2) * 0.05)), "#,##0")
+            總計_tb.Text = Strings.Format(Val(NUM1 + NUM2 + ((NUM1 + NUM2) * 0.05)), "#,##0")
+        Else
+            稅金_tb.Text = "0"
+            應收合計_tb.Text = Strings.Format(Val(NUM1 + NUM2), "#,##0")
+        End If
+
+    End Sub
+    Private Sub 是否收稅_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 是否收稅_cb.CheckedChanged
+        Dim NUM1, NUM2 As Integer
+
+        If 總計_tb.Text <> "" Then
+            NUM1 = 總計_tb.Text
+            NUM2 = NUM1 * 0.05
+            If 是否收稅_cb.Checked = True Then
+                稅金_tb.Text = Strings.Format(Val(NUM2), "#,##0")
+                應收合計_tb.Text = Strings.Format(Val(NUM1 + NUM2), "#,##0")
+                總計_tb.Text = Strings.Format(Val(NUM1 + NUM2), "#,##0")
+            Else
+                稅金_tb.Text = "0"
+                應收合計_tb.Text = Strings.Format(Val(NUM1), "#,##0")
+            End If
+        End If
+
     End Sub
     Private Sub 明細表_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 明細表_dgv.CellEnter
+        Dim NUM1 As Integer = 0
+        Dim NUM2 As Integer = 0
+        index = e.RowIndex
         If e.RowIndex = -1 Then : Else
             項次_tb.Text = 明細表_dgv(1, e.RowIndex).Value.ToString
+
+            For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
+                If 明細表_dgv.Rows(i).Cells("數量").Value.ToString <> "" And 明細表_dgv.Rows(i).Cells("售價").Value.ToString <> "" And 明細表_dgv.Rows(i).Cells("成本").Value.ToString <> "" Then
+                    明細表_dgv.Rows(i).Cells("總售價").Value = 明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("售價").Value
+                    明細表_dgv.Rows(i).Cells("總成本").Value = 明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("成本").Value
+                    明細表_dgv.Rows(i).Cells("利潤").Value = (明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("售價").Value) - (明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("成本").Value)
+                End If
+                If 明細表_dgv.Rows(i).Cells("狀態").Value <> "承修項目" Then
+                    NUM1 += 明細表_dgv.Rows(i).Cells("總售價").Value
+                Else
+                    NUM2 += 明細表_dgv.Rows(i).Cells("總售價").Value
+                End If
+            Next
+            零件_tb.Text = Strings.Format(Val(NUM1), "#,##0")
+            工資_tb.Text = Strings.Format(Val(NUM2), "#,##0")
+            總計_tb.Text = Strings.Format(Val(NUM1 + NUM2), "#,##0")
+            If 是否收稅_cb.Checked = True Then
+                稅金_tb.Text = Strings.Format(Val((NUM1 + NUM2) * 0.05), "#,##0")
+                應收合計_tb.Text = Strings.Format(Val(NUM1 + NUM2 + ((NUM1 + NUM2) * 0.05)), "#,##0")
+                總計_tb.Text = Strings.Format(Val(NUM1 + NUM2 + ((NUM1 + NUM2) * 0.05)), "#,##0")
+            Else
+                稅金_tb.Text = "0"
+                應收合計_tb.Text = Strings.Format(Val(NUM1 + NUM2), "#,##0")
+            End If
         End If
     End Sub
-    Private Sub 總價_tb_Leave(sender As Object, e As EventArgs) Handles 總價_tb.Leave
-        If Not String.IsNullOrEmpty(總價_tb.Text) AndAlso IsNumeric(總價_tb.Text) Then
-            ' 將文本轉換為數字
-            Dim number As Double = CDbl(總價_tb.Text)
+    Private Sub Set_清單3()
+
+        物料_dgv.DataSource = Nothing : ds2.Clear()
+        物料_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        物料_dgv.ColumnHeadersHeight = 25
+        物料_dgv.AllowUserToAddRows = False
+        物料_dgv.RowTemplate.Height = 30
+        物料_dgv.DefaultCellStyle.Font = SystemFonts.DefaultFont
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
 
-            ' 格式化數字為千分位
-            總價_tb.Text = number.ToString("#,##0")
+        SQL_車輛銷售管理_物料清單(選擇供應商_cb.Text)
+        da.Fill(ds2) : 物料_dgv.DataSource = ds2.Tables(0) : conn.Close()
+        Dim newFont As New System.Drawing.Font("微軟正黑體", 9) ' 創建一個新字體，Arial 12pt
+        物料_dgv.RowsDefaultCellStyle.Font = newFont
+        物料_dgv.Columns(1).FillWeight = 55 : 物料_dgv.Columns(3).FillWeight = 30
+        物料_dgv.Columns(0).Visible = False : 物料_dgv.Columns(2).FillWeight = 15 : 物料_dgv.Columns(4).Visible = False
+        If 顯示成本_cb.Checked = True Then
+            物料_dgv.Columns(5).FillWeight = 30
+            物料_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.##"
+            物料_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            物料_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        Else
+            物料_dgv.Columns(5).Visible = False
         End If
+
     End Sub
+    Private Sub 物料_dgv_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(0, e.RowIndex).Value.ToString
+            品名_tb.Text = 物料_dgv(1, e.RowIndex).Value.ToString
+            成本_tb.Text = 物料_dgv(5, e.RowIndex).Value.ToString
+            狀態_tb.Text = 物料_dgv(4, e.RowIndex).Value.ToString
+        End If
+
+    End Sub
+
+
     Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
         新增_bt.Enabled = False : 確認新增_bt.Enabled = True : 修改_bt.Enabled = False
         Set_日期格式轉換() : Dim NUM1 As Integer
             PA = 單號_tb.Text : SQL_估價單_單號查詢()
             If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
         Next
-        客戶_tb.Text = "" : 進廠_tb.Text = "" : 總價_tb.Text = "0" : 業務_tb.Text = ""
-        廠牌_tb.Text = "" : 年分_tb.Text = "" : 備註_tb.Text = "" : 付款_tb.Text = ""
+        報價日期_dtp.Value = Date.Today
+        車主名稱_tb.Text = "" : 車號_tb.Text = "" : 電話_tb.Text = "" : 備註_tb.Text = "" : 項次_tb.Text = "" : 里程_tb.Text = ""
+        工資_tb.Text = "0" : 零件_tb.Text = "0" : 總計_tb.Text = "0" : 稅金_tb.Text = "0" : 應收合計_tb.Text = "0"
         SQL_估價單_控制表新增() : boo = True : Set_清單2()
 
     End Sub
 
 
     Private Sub Set_日期格式轉換()
-        Dim selectedDate As DateTime = 選擇日期_dtp.Value
+        Dim selectedDate As DateTime = Date.Today
         DTP4 = Strings.Format(selectedDate, "yyyy/MM/dd") : DTP1 = Strings.Format(selectedDate, "yyyyMMdd")
     End Sub
 
     Private Sub 確認新增_bt_Click(sender As Object, e As EventArgs) Handles 確認新增_bt.Click
-        If 客戶_tb.Text = "" Or 廠牌_tb.Text = "" Then
-            MsgBox("客戶及廠牌車種未輸入完成!!")
+        If 車主名稱_tb.Text = "" Or 車號_tb.Text = "" Then
+            MsgBox("車主名稱及車號未輸入完成!!")
         Else
             新增_bt.Enabled = True : 確認新增_bt.Enabled = False : 修改_bt.Enabled = True : boo = False
-
-            選擇日期_dtp.CustomFormat = "yyyy/MM/dd"
-            選擇日期_dtp.Format = DateTimePickerFormat.Custom
             SQL_估價單_控制表修改() : conn.Close() : MsgBox("儲存成功!!") : Set_清單1()
         End If
 
     End Sub
 
     Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
-        選擇日期_dtp.CustomFormat = "yyyy/MM/dd"
-        選擇日期_dtp.Format = DateTimePickerFormat.Custom
-        SQL_估價單_控制表修改() : conn.Close() : MsgBox("儲存成功!!") : Set_清單1()
+        If 單號_tb.Text = "" Then
+            MsgBox("未選擇單號!!")
+        Else
+            SQL_估價單_控制表修改() : conn.Close() : MsgBox("儲存成功!!") : Set_清單1()
+        End If
+
     End Sub
 
     Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
-        新增_bt.Enabled = True : 確認新增_bt.Enabled = False : 修改_bt.Enabled = False : boo = False
-        SQL_估價單_控制表刪除() : SQL_估價單_明細表刪除() : conn.Close() : MsgBox("刪除成功")
-        客戶_tb.Text = "" : 進廠_tb.Text = "" : 總價_tb.Text = "" : 業務_tb.Text = ""
-        廠牌_tb.Text = "" : 年分_tb.Text = "" : 備註_tb.Text = "" : 付款_tb.Text = ""
-        單號_tb.Text = ""
-        Set_清單1() : Set_清單2() : 項次_tb.Text = ""
+        If 單號_tb.Text = "" Then
+            MsgBox("未選擇單號!!")
+        Else
+            新增_bt.Enabled = True : 確認新增_bt.Enabled = False : 修改_bt.Enabled = False : boo = False
+            SQL_估價單_控制表刪除() : SQL_估價單_明細表刪除() : conn.Close() : MsgBox("刪除成功")
+
+            單號_tb.Text = "" : 項次_tb.Text = ""
+            車主名稱_tb.Text = "" : 車號_tb.Text = "" : 電話_tb.Text = "" : 備註_tb.Text = "" : 里程_tb.Text = ""
+            工資_tb.Text = "0" : 零件_tb.Text = "0" : 總計_tb.Text = "0" : 稅金_tb.Text = "0" : 應收合計_tb.Text = "0"
+            Set_清單1() : Set_清單2()
+        End If
     End Sub
 
-    Private Sub 刪除選中的一筆資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除選中的一筆資料_bt.Click
+    Private Sub 刪除選中的一筆資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除選中的一筆資料1_bt.Click
         If 項次_tb.Text = "" Then
             MsgBox("未選擇需要刪除的資料。")
         Else
             For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
-                PA1 = 明細表_dgv.Rows(i).Cells("項次").Value.ToString : PA2 = 明細表_dgv.Rows(i).Cells("內容").Value.ToString
-                SQL_估價單_修改明細表() : conn.Close()
+                Dim 項次 As String = 明細表_dgv.Rows(i).Cells("項次").Value.ToString
+                Dim 項 As String = 明細表_dgv.Rows(i).Cells("各項支出名稱").Value.ToString
+                Dim 數量 As String = 明細表_dgv.Rows(i).Cells("數量").Value.ToString
+                Dim 金額 As String = 明細表_dgv.Rows(i).Cells("售價").Value.ToString
+                Dim 備註 As String = 明細表_dgv.Rows(i).Cells("備註").Value.ToString
+                SQL_估價單_修改明細表(項次, 項, 單號_tb.Text, 數量, 金額, 備註) : conn.Close()
             Next
             SQL_估價單_刪除明細表項次() : SQL_估價單_明細表項次更新() : conn.Close()
             Set_清單2() : 項次_tb.Text = "" : MsgBox("刪除成功。")
         End If
     End Sub
 
-    Private Sub 申請_bt_Click(sender As Object, e As EventArgs) Handles 申請_bt.Click
+    Private Sub 申請_bt_Click(sender As Object, e As EventArgs) Handles 申請1_bt.Click
         For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
-            PA1 = 明細表_dgv.Rows(i).Cells("項次").Value.ToString : PA2 = 明細表_dgv.Rows(i).Cells("內容").Value.ToString
-            SQL_估價單_修改明細表() : conn.Close()
+            Dim 項次 As String = 明細表_dgv.Rows(i).Cells("項次").Value.ToString
+            Dim 項 As String = 明細表_dgv.Rows(i).Cells("各項支出名稱").Value.ToString
+            Dim 數量 As String = 明細表_dgv.Rows(i).Cells("數量").Value.ToString
+            Dim 金額 As String = 明細表_dgv.Rows(i).Cells("售價").Value.ToString
+            Dim 備註 As String = 明細表_dgv.Rows(i).Cells("備註").Value.ToString
+            SQL_估價單_修改明細表(項次, 項, 單號_tb.Text, 數量, 金額, 備註) : conn.Close()
         Next : Set_清單2() : MsgBox("儲存成功。")
     End Sub
 
     Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
         CHB("請輸入要查詢的單號資料。") : PA56 = 訊息回應 : Set_清單1() : PA56 = ""
     End Sub
-
-    Private Sub 收支單中新增一筆空白資料_bt_Click(sender As Object, e As EventArgs) Handles 收支單中新增一筆空白資料_bt.Click
+    Private Sub 收支單中新增一筆資料1_bt_Click(sender As Object, e As EventArgs) Handles 收支單中新增一筆資料1_bt.Click
+        If 單號_tb.Text = "" Then
+            MsgBox("未選擇單號!!")
+        Else
+            If 明細表_dgv.Rows.Count > 0 Then
+                For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
+                    Dim 項次 As String = 明細表_dgv.Rows(i).Cells("項次").Value.ToString
+                    Dim 項 As String = 明細表_dgv.Rows(i).Cells("各項支出名稱").Value.ToString
+                    Dim 數量 As String = 明細表_dgv.Rows(i).Cells("數量").Value.ToString
+                    Dim 金額 As String = 明細表_dgv.Rows(i).Cells("售價").Value.ToString
+                    Dim 備註 As String = 明細表_dgv.Rows(i).Cells("備註").Value.ToString
+                    SQL_估價單_修改明細表(項次, 項, 單號_tb.Text, 數量, 金額, 備註) : conn.Close()
+                Next
+            End If
+            If 料號_tb.Text = "" Or 品名_tb.Text = "" Or 成本_tb.Text = "" Then
+                MsgBox("未選擇物料。")
+            Else
+                SQL_估價單_查詢最後一筆單號項次()
+                If dr.Read() Then
+                    新項次 = dr("項次")
+                    NUM1 = Double.Parse(新項次) + 1
+                Else
+                    NUM1 = 1
+                End If : conn.Close()
+                SQL_估價單_新增明細表(NUM1.ToString(), 品名_tb.Text, 單號_tb.Text, 料號_tb.Text, 成本_tb.Text, 狀態_tb.Text) : conn.Close()
+                Set_清單2()
+                MsgBox("明細表新增成功!!")
+            End If
+        End If
+    End Sub
+    Private Sub 收支單中新增一筆空白資料_bt_Click(sender As Object, e As EventArgs) Handles 收支單中新增一筆空白資料1_bt.Click
         If 單號_tb.Text = "" Then
             MsgBox("未選擇單號!!")
         Else
             If 明細表_dgv.Rows.Count > 0 Then
                 For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
-                    PA1 = 明細表_dgv.Rows(i).Cells("項次").Value.ToString : PA2 = 明細表_dgv.Rows(i).Cells("內容").Value.ToString
-                    SQL_估價單_修改明細表() : conn.Close()
+                    Dim 項次 As String = 明細表_dgv.Rows(i).Cells("項次").Value.ToString
+                    Dim 項 As String = 明細表_dgv.Rows(i).Cells("各項支出名稱").Value.ToString
+                    Dim 數量 As String = 明細表_dgv.Rows(i).Cells("數量").Value.ToString
+                    Dim 金額 As String = 明細表_dgv.Rows(i).Cells("售價").Value.ToString
+                    Dim 備註 As String = 明細表_dgv.Rows(i).Cells("備註").Value.ToString
+                    SQL_估價單_修改明細表(項次, 項, 單號_tb.Text, 數量, 金額, 備註) : conn.Close()
                 Next
             End If
 
             Else
                 NUM1 = 1
             End If : conn.Close()
-            PA15 = NUM1.ToString()
-            SQL_估價單_新增明細表() : conn.Close()
+            SQL_估價單_新增明細表(NUM1.ToString(), "", 單號_tb.Text, "", "", "免") : conn.Close()
             Set_清單2()
             MsgBox("明細表新增成功!!")
         End If
     End Sub
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        連動模組.SetCallingPage("估價單") : 連動模組.ShowDialog() : 連動模組.BringToFront()
+    End Sub
+
+    Public Sub ReceiveDataFromPageB(ByVal data As String, ByVal data1 As String, ByVal data3 As String, ByVal data4 As String)
+        ' 在這裡處理從頁面B接收到的數據，將其設定到頁面A的TextBox中
+        車主名稱_tb.Text = data
+        電話_tb.Text = data1
+        車號_tb.Text = data3
+        備註_tb.Text = data4
+    End Sub
+
+    Private Sub 匯入_bt_Click(sender As Object, e As EventArgs) Handles 匯入_bt.Click
+        If 單號_tb.Text = "" Then
+            MsgBox("未選擇單號!!")
+        Else
+            If 車主名稱_tb.Text <> "" And 車號_tb.Text <> "" Then
+                SQL_估價單_查詢客戶資料(車主名稱_tb.Text, 車號_tb.Text)
+                If dr.Read() Then
+                    SQL_估價單_修改客戶資料(車主名稱_tb.Text, 車號_tb.Text, 電話_tb.Text, 備註_tb.Text)
+                Else
+                    SQL_客戶資料表_最後一筆資料()
+                    If dr.Read() Then : 新流水 = dr("流水號").ToString : Else : 新流水 = "CL00000" : End If
+                    conn.Close()
+                    Dim NUM1 As Integer
+                    NUM1 = Double.Parse(Strings.Right(新流水, 5)) + 1
+                    If NUM1 < 10 Then : 新流水 = "CL" & "0000" & NUM1
+                    ElseIf NUM1 > 9 And NUM1 < 100 Then : 新流水 = "CL" & "000" & NUM1
+                    ElseIf NUM1 > 99 And NUM1 < 1000 Then : 新流水 = "CL" & "00" & NUM1
+                    ElseIf NUM1 > 999 And NUM1 < 10000 Then : 新流水 = "CL" & "0" & NUM1
+                    ElseIf NUM1 > 9999 And NUM1 < 100000 Then : 新流水 = "CL" & NUM1 : End If
+                    SQL_估價單_新增客戶資料(新流水, 車主名稱_tb.Text, 車號_tb.Text, 電話_tb.Text, 備註_tb.Text) : conn.Close()
+                End If
 
+                Set_日期格式轉換()
+                For i As Integer = 1 To 999
+                    NUM1 = 0 + i
+                    If NUM1 < 10 Then : 單號_tb.Text = "CR-" & DTP1 & "-00" & NUM1
+                    ElseIf NUM1 > 9 And NUM1 < 100 Then : 單號_tb.Text = "CR-" & DTP1 & "-0" & NUM1
+                    ElseIf NUM1 > 99 Then : 單號_tb.Text = "CR-" & DTP1 & "-" & NUM1 : End If
+                    PA = 單號_tb.Text : SQL_車輛銷售管理_單號查詢()
+                    If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
+                Next
+
+                SQL_車輛銷售管理_人員明細(車主名稱_tb.Text, 車號_tb.Text)
+                If dr.Read() Then
+                    車型_tb.Text = dr("廠牌")
+                    年_tb.Text = dr("年份型式")
+                    引擎號碼1_tb.Text = dr("引擎號碼")
+                    輪胎尺寸_tb.Text = dr("買入顏色")
+                Else
+                    車型_tb.Text = ""
+                    年_tb.Text = ""
+                    引擎號碼1_tb.Text = ""
+                    輪胎尺寸_tb.Text = ""
+                End If : conn.Close()
+
+                SQL_估價單_車輛銷售控制表新增(PA, "保養維修", 車主名稱_tb.Text, 車號_tb.Text, DTP4, 電話_tb.Text, 是否收稅_cb.Checked, 應收合計_tb.Text,
+                                                車型_tb.Text, 年_tb.Text, 引擎號碼1_tb.Text, 輪胎尺寸_tb.Text) : conn.Close()
+                For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
+                    Set_流水號()
+                    Dim 項次 As String = 明細表_dgv.Rows(i).Cells("項次").Value.ToString
+                    Dim 項 As String = 明細表_dgv.Rows(i).Cells("各項支出名稱").Value.ToString
+                    Dim 數量 As String = 明細表_dgv.Rows(i).Cells("數量").Value.ToString
+                    Dim 金額 As String = 明細表_dgv.Rows(i).Cells("售價").Value.ToString
+                    Dim 備註 As String = 明細表_dgv.Rows(i).Cells("備註").Value.ToString
+                    Dim 料號 As String = 明細表_dgv.Rows(i).Cells("料號").Value.ToString
+                    Dim 成本 As String = 明細表_dgv.Rows(i).Cells("成本").Value.ToString
+                    Dim 狀態 As String = 明細表_dgv.Rows(i).Cells("狀態").Value.ToString
+                    SQL_估價單_車輛銷售明細表新增(新流水1, 項, 數量, 金額, 備註, PA, 料號, 項次, 成本, 狀態) : conn.Close()
+                Next
+                MsgBox("車輛銷售管理匯入成功!!")
+            Else
+                MsgBox("車主和車號不能為空!!")
+            End If
+
+        End If
+
+
+    End Sub
+    Private Sub Set_流水號()
+        conn.Close() : dr.Close()
+        Dim NUM1 As Integer
+        For NUM1 = 0 To 999
+            Dim d As String : Dim f As String
+            Dim selectedDate As DateTime = Date.Today
+            Dim y As String = selectedDate.Year.ToString().Substring(2, 2)
+            If selectedDate.Month < 10 Then : d = "0" & selectedDate.Month.ToString()
+            Else : d = selectedDate.Month.ToString()
+            End If
+            If selectedDate.Day < 10 Then : f = "0" & selectedDate.Day.ToString()
+            Else : f = selectedDate.Day.ToString()
+            End If
+            If NUM1 < 10 Then : 新流水1 = "C" & y & d & f & "00" & NUM1
+            ElseIf NUM1 > 9 And NUM1 < 100 Then : 新流水1 = "C" & y & d & f & "0" & NUM1
+            ElseIf NUM1 > 99 Then : 新流水1 = "C" & y & d & f & NUM1
+            End If : PA19 = 新流水1
+            SQL_車輛銷售管理_查詢明細表流水號()
+            If dr.Read() Then : conn.Close() : Else : conn.Close() : NUM1 = 999 : End If
+        Next
+    End Sub
+    Private Sub 顯示成本_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 顯示成本_cb.CheckedChanged
+        Set_清單3()
+    End Sub
+    Private Sub 隱藏成本_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 隱藏成本_cb.CheckedChanged
+        Set_清單2()
+    End Sub
+    Private Sub 查詢物_bt_Click(sender As Object, e As EventArgs) Handles 查詢物_bt.Click
+        CHB("請輸入要查詢的關鍵字。") : PA56 = 訊息回應 : Set_清單3() : PA56 = ""
+    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 申請_bt_MouseEnter(sender As Object, e As EventArgs) Handles 申請_bt.MouseEnter
-        ToolTip1.SetToolTip(Me.申請_bt, "資料存檔")
+    Private Sub 申請_bt_MouseEnter(sender As Object, e As EventArgs) Handles 申請1_bt.MouseEnter
+        ToolTip1.SetToolTip(Me.申請1_bt, "明細表存檔")
     End Sub
     Private Sub 匯出EXCEL_bt_MouseEnter(sender As Object, e As EventArgs) Handles 匯出EXCEL_bt.MouseEnter
         ToolTip1.SetToolTip(Me.匯出EXCEL_bt, "匯出PDF")
     End Sub
-    Private Sub 收支單中新增一筆空白資料_bt_MouseEnter(sender As Object, e As EventArgs) Handles 收支單中新增一筆空白資料_bt.MouseEnter
-        ToolTip1.SetToolTip(Me.收支單中新增一筆空白資料_bt, "明細表新增空白的資料")
+    Private Sub 收支單中新增一筆資料_bt_MouseEnter(sender As Object, e As EventArgs) Handles 收支單中新增一筆資料1_bt.MouseEnter
+        ToolTip1.SetToolTip(Me.收支單中新增一筆資料1_bt, "明細表新增帶料號的資料")
+    End Sub
+    Private Sub 收支單中新增一筆空白資料_bt_MouseEnter(sender As Object, e As EventArgs) Handles 收支單中新增一筆空白資料1_bt.MouseEnter
+        ToolTip1.SetToolTip(Me.收支單中新增一筆空白資料1_bt, "明細表新增空白的資料")
     End Sub
-    Private Sub 刪除選中的一筆資料_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除選中的一筆資料_bt.MouseEnter
-        ToolTip1.SetToolTip(Me.刪除選中的一筆資料_bt, "刪除選中的一筆資料")
+    Private Sub 刪除選中的一筆資料_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除選中的一筆資料1_bt.MouseEnter
+        ToolTip1.SetToolTip(Me.刪除選中的一筆資料1_bt, "刪除選中的一筆資料")
     End Sub
 
     Private Sub 匯出EXCEL_bt_Click(sender As Object, e As EventArgs) Handles 匯出EXCEL_bt.Click
         xlSheet = NewMethod(xlBook)
         xlBook.Activate()
         xlSheet.Activate()
-        xlSheet.Cells(1, 3) = 公司_tb.Text
-        xlSheet.Cells(2, 3) = "估    價    單"
-        Dim selectedDate As Date = 選擇日期_dtp.Value
-        Dim rocYear As Integer = selectedDate.Year - 1911
-        Dim rocDate As String = rocYear.ToString() & "年" & selectedDate.Month.ToString() & "月" & selectedDate.Day.ToString() & "日"
-        xlSheet.Cells(3, 2) = "客戶 : " & 客戶_tb.Text : xlSheet.Cells(3, 4) = "報價日期 : " & rocDate
-
-        xlSheet.Cells(4, 2) = "廠牌/車種 : " & 廠牌_tb.Text : xlSheet.Cells(4, 4) = "進廠 : " & 進廠_tb.Text
-        xlSheet.Cells(5, 2) = "車身型式 : " & 年分_tb.Text : xlSheet.Cells(5, 4) = "業務 : " & 業務_tb.Text
-        xlSheet.Cells(7, 3) = "施工說明 : (以合格證標準規格承製)"
+        xlSheet.Cells(1, 1) = 公司_tb.Text
+        xlSheet.Cells(2, 1) = "估    價    單"
+        xlSheet.Cells(3, 1) = "車主名稱 " : xlSheet.Cells(3, 2) = 車主名稱_tb.Text : xlSheet.Cells(3, 3) = "工資 " : xlSheet.Cells(3, 4) = 工資_tb.Text
+        xlSheet.Cells(3, 5) = "零件 " : xlSheet.Cells(3, 6) = 零件_tb.Text : xlSheet.Cells(4, 1) = "車號 " : xlSheet.Cells(4, 2) = 車號_tb.Text
+        xlSheet.Cells(4, 3) = "稅金5% " : xlSheet.Cells(4, 4) = 稅金_tb.Text : xlSheet.Cells(4, 5) = "總計 " : xlSheet.Cells(4, 6) = 總計_tb.Text
+        xlSheet.Cells(5, 1) = "估價日期 " : xlSheet.Cells(5, 2) = 報價日期_dtp.Text : xlSheet.Cells(5, 5) = "應收合計 " : xlSheet.Cells(5, 6) = 應收合計_tb.Text
+        xlSheet.Cells(5, 3) = "進廠里程 " : xlSheet.Cells(5, 4) = 里程_tb.Text
+
+        xlSheet.Cells(6, 1) = "項次" : xlSheet.Cells(6, 2) = "各項支出名稱" : xlSheet.Cells(6, 3) = "數量"
+        xlSheet.Cells(6, 4) = "售價" : xlSheet.Cells(6, 5) = "總售價" : xlSheet.Cells(6, 6) = "備註"
+
+        Dim 總計 As Double = 0
         For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
 
-            xlSheet.Cells(i + 8, 2) = 明細表_dgv.Rows(i).Cells("項次").Value : xlSheet.Cells(i + 8, 3) = 明細表_dgv.Rows(i).Cells("內容").Value
-            N2 = 8 + i
+            xlSheet.Cells(i + 7, 1) = 明細表_dgv.Rows(i).Cells("項次").Value
+            xlSheet.Cells(i + 7, 2) = 明細表_dgv.Rows(i).Cells("各項支出名稱").Value
+            Dim 數量 As Double = Convert.ToDouble(明細表_dgv.Rows(i).Cells("數量").Value)
+            Dim 售價 As Double = Convert.ToDouble(明細表_dgv.Rows(i).Cells("售價").Value)
+            Dim 總售價 As Double = Convert.ToDouble(明細表_dgv.Rows(i).Cells("總售價").Value)
+            總計 = 總計 + 總售價
+            xlSheet.Cells(i + 7, 3) = 數量.ToString("#,##0")
+            xlSheet.Cells(i + 7, 4) = 售價.ToString("#,##0")
+            xlSheet.Cells(i + 7, 5) = 總售價.ToString("#,##0")
+            xlSheet.Cells(i + 7, 6) = 明細表_dgv.Rows(i).Cells("備註").Value
+            N2 = i + 8
         Next i
-        Dim number As Double = CDbl(總價_tb.Text)
-
-        xlSheet.Cells(N2 + 1, 3) = "總計 :" & number.ToString("#,##0") & " 元(不含稅)"
-        xlSheet.Cells(N2 + 2, 3) = "備註 :" & 備註_tb.Text
-        xlSheet.Cells(N2 + 3, 3) = "付款方式 :" & 付款_tb.Text
-
-        BB(xlApp, xlSheet) '未改
+        xlSheet.Cells(N2, 4) = "總計" : xlSheet.Cells(N2, 5) = 總計.ToString("#,##0")
+        xlSheet.Cells(N2 + 1, 1) = "車主須知"
+        xlSheet.Cells(N2 + 2, 1) = "1.本估價單有效期限3個月，逾期需視材料物料波動情況，重新報價。"
+        xlSheet.Cells(N2 + 3, 1) = "2.如蒙惠顧，請先預付訂金5成。"
+        xlSheet.Cells(N2 + 4, 1) = "3.如在本估價單內未列項目，如需維修，另加計費。"
+        BB(xlApp, xlSheet)
 
         xlApp.Sheets(2).Delete : xlSheet.PageSetup.PrintArea = ""
         '----轉成PDF-----
     End Sub
     Private Sub BB(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
         xlSheet.Cells.Select()
-        With myExcel.Selection.Font
-            .Name = "微軟正黑體"
-            .Size = 14
-            .Strikethrough = False
-            .Superscript = False
-            .Subscript = False
-            .OutlineFont = False
-            .Shadow = False
-            .Underline = xlUnderlineStyleNone
-            .ThemeColor = xlThemeColorLight1
-            .TintAndShade = 0
-            .ThemeFont = xlThemeFontNone
-        End With
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
+            .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
 
-        xlSheet.Range("B7:D" & N2 + 3).Select()
+        xlSheet.Range("A3:F" & N2).Select()
         myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
         myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
         With myExcel.Selection.Borders(xlEdgeLeft)
             .TintAndShade = 0
             .Weight = xlThin
         End With
-        xlSheet.Range("C1").Select()
-        With myExcel.Selection.Font
-            .Name = "微軟正黑體"
-            .Size = 20
-            .Strikethrough = False
-            .Superscript = False
-            .Subscript = False
-            .OutlineFont = False
-            .Shadow = False
-            .Underline = xlUnderlineStyleNone
-            .ThemeColor = xlThemeColorLight1
-            .TintAndShade = 0
-            .ThemeFont = xlThemeFontNone
-        End With
-        xlSheet.Range("C2").Select()
-        With myExcel.Selection.Font
-            .Name = "微軟正黑體"
-            .Size = 18
-            .Strikethrough = False
-            .Superscript = False
-            .Subscript = False
-            .OutlineFont = False
-            .Shadow = False
-            .Underline = xlUnderlineStyleNone
-            .ThemeColor = xlThemeColorLight1
-            .TintAndShade = 0
-            .ThemeFont = xlThemeFontNone
-        End With
-        xlSheet.Rows("1:1").EntireRow.AutoFit
-        xlSheet.Rows("2:2").EntireRow.AutoFit
-
-        xlSheet.Columns("A:A").ColumnWidth = 8
-        xlSheet.Columns("B:B").ColumnWidth = 5
-        xlSheet.Columns("C:C").ColumnWidth = 35
-        xlSheet.Columns("D:D").ColumnWidth = 40
 
-
-        xlSheet.Range("B1:D1").Select()
+        xlSheet.Range("A1:F1").Select()
 
         With myExcel.Selection
             .HorizontalAlignment = xlCenter
             .MergeCells = False
         End With
         myExcel.Selection.Merge
-        xlSheet.Range("B2:D2").Select()
+        xlSheet.Range("A2:F2").Select()
 
         With myExcel.Selection
             .HorizontalAlignment = xlCenter
         End With
         myExcel.Selection.Merge
 
+        xlSheet.Range("A3:F" & N2).Select()
+        With myExcel.Selection
+            .HorizontalAlignment = xlCenter
+            .VerticalAlignment = xlCenter
+            .WrapText = False
+            .Orientation = 0
+            .AddIndent = False
+            .IndentLevel = 0
+            .ShrinkToFit = False
+            .ReadingOrder = xlContext
+            .MergeCells = False
+        End With
+
 
-        xlSheet.Range("B3:C3").Select()
+
+        xlSheet.Range("A" & N2 + 1 & ":F" & N2 + 1).Select()
 
         With myExcel.Selection
-            .HorizontalAlignment = xlLeft
+            .HorizontalAlignment = xlCenter
             .VerticalAlignment = xlCenter
             .WrapText = False
             .Orientation = 0
             .MergeCells = False
         End With
         myExcel.Selection.Merge
-        xlSheet.Range("B4:C4").Select()
+
+        xlSheet.Range("A" & N2 + 2 & ":F" & N2 + 2).Select()
 
         With myExcel.Selection
-            .HorizontalAlignment = xlLeft
+            .HorizontalAlignment = xlCenter
             .VerticalAlignment = xlCenter
             .WrapText = False
             .Orientation = 0
             .MergeCells = False
         End With
         myExcel.Selection.Merge
-        xlSheet.Range("B5:C5").Select()
+
+        xlSheet.Range("A" & N2 + 3 & ":F" & N2 + 3).Select()
 
         With myExcel.Selection
-            .HorizontalAlignment = xlLeft
+            .HorizontalAlignment = xlCenter
             .VerticalAlignment = xlCenter
             .WrapText = False
             .Orientation = 0
         End With
         myExcel.Selection.Merge
 
-        xlSheet.Range("B7:D7").Select()
+        xlSheet.Range("A" & N2 + 4 & ":F" & N2 + 4).Select()
 
         With myExcel.Selection
             .HorizontalAlignment = xlCenter
         End With
         myExcel.Selection.Merge
 
-        For i As Integer = 8 To N2 + 3
-
-            xlSheet.Range("C" & i & ":D" & i).Select()
-            If i > N2 Then
-                With myExcel.Selection
-                    .HorizontalAlignment = xlCenter
-                    .VerticalAlignment = xlCenter
-                    .WrapText = False
-                    .Orientation = 0
-                    .AddIndent = False
-                    .IndentLevel = 0
-                    .ShrinkToFit = False
-                    .ReadingOrder = xlContext
-                    .MergeCells = False
-                End With
-            Else
-                With myExcel.Selection
-                    .HorizontalAlignment = xlLeft
-                    .VerticalAlignment = xlCenter
-                    .WrapText = False
-                    .Orientation = 0
-                    .AddIndent = False
-                    .IndentLevel = 0
-                    .ShrinkToFit = False
-                    .ReadingOrder = xlContext
-                    .MergeCells = False
-                End With
-            End If
+        xlSheet.Columns("A:F").AutoFit()
 
-            myExcel.Selection.Merge
-
-            xlSheet.Range("B" & i).Select()
-            With myExcel.Selection
-                .HorizontalAlignment = xlCenter
-                .VerticalAlignment = xlCenter
-                .WrapText = False
-                .Orientation = 0
-                .AddIndent = False
-                .IndentLevel = 0
-                .ShrinkToFit = False
-                .ReadingOrder = xlContext
-                .MergeCells = False
-            End With
-        Next i
+        AdjustColumnWidth(xlSheet, "A", 10)
+        AdjustColumnWidth(xlSheet, "C", 10)
+        AdjustColumnWidth(xlSheet, "D", 10)
+        AdjustColumnWidth(xlSheet, "E", 10)
+
+        If xlSheet.Columns("B:B").ColumnWidth > 30 Then
+            xlSheet.Columns("B:B").ColumnWidth = 30
+        ElseIf xlSheet.Columns("B:B").ColumnWidth < 10 Then
+            xlSheet.Columns("B:B").ColumnWidth = 10
+        End If
+        If xlSheet.Columns("F:F").ColumnWidth > 20 Then
+            xlSheet.Columns("F:F").ColumnWidth = 20
+        ElseIf xlSheet.Columns("F:F").ColumnWidth < 10 Then
+            xlSheet.Columns("F:F").ColumnWidth = 10
+        End If
+
+        xlSheet.Range("B:B,F:F").Select()
+        With myExcel.Selection
+            .VerticalAlignment = xlCenter
+            .WrapText = True
+            .Orientation = 0
+            .AddIndent = False
+            .IndentLevel = 0
+            .ShrinkToFit = False
+            .ReadingOrder = xlContext
+        End With
 
+        xlSheet.Range("A3:F5").Select()
 
+        With myExcel.Selection.Interior
+            .Pattern = xlSolid
+            .PatternColorIndex = xlAutomatic
+            .ThemeColor = xlThemeColorAccent4
+            .TintAndShade = 0.799981688894314
+            .PatternTintAndShade = 0
+        End With
+        xlSheet.Range("A6:F6").Select()
+
+        With myExcel.Selection.Interior
+            .Pattern = xlSolid
+            .PatternColorIndex = xlAutomatic
+            .ThemeColor = xlThemeColorAccent1
+            .TintAndShade = 0.799981688894314
+            .PatternTintAndShade = 0
+        End With
 
-        For i = 1 To N2 + 3
+        For i As Integer = 1 To N2 + 4
+            xlSheet.Rows(i).AutoFit
             xlSheet.Rows(i).RowHeight = xlSheet.Rows(i).RowHeight + 5
-        Next i
-
+        Next
 
         myExcel.Application.PrintCommunication = False
         With myExcel.ActiveSheet.PageSetup
             .FooterMargin = myExcel.Application.InchesToPoints(0.3)
             .PrintHeadings = False
             .PrintGridlines = False
-            .CenterHorizontally = False
+            .CenterHorizontally = True
             .CenterVertically = False
             .Draft = False
             .FirstPageNumber = xlAutomatic
             .FirstPage.RightFooter.Text = ""
         End With
         myExcel.Application.PrintCommunication = True
+    End Sub
 
+    Private Sub AdjustColumnWidth(ByVal sheet As Excel.Worksheet, ByVal column As String, ByVal minWidth As Double)
+        Dim colRange As Excel.Range = sheet.Columns(column & ":" & column)
+        If colRange.ColumnWidth < minWidth Then
+            colRange.ColumnWidth = minWidth
+        End If
     End Sub
+
     Private Shared Function NewMethod(xlBook As Microsoft.Office.Interop.Excel.Workbook) As Microsoft.Office.Interop.Excel.Worksheet
         Return CType(xlBook.Worksheets.Add, Microsoft.Office.Interop.Excel.Worksheet)
     End Function

GF00-ERP-SYS/06.業務管理系統/車輛/車輛銷售管理.Designer.vb

         Me.Controls.Add(Me.單號_tb)
         Me.Controls.Add(Me.控制表_dgv)
         Me.Controls.Add(Me.Panel1)
-        Me.Controls.Add(Me.Panel4)
         Me.Controls.Add(Me.Panel5)
         Me.Controls.Add(Me.Panel2)
         Me.Controls.Add(Me.Panel6)
+        Me.Controls.Add(Me.Panel4)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "車輛銷售管理"

GF00-ERP-SYS/06.業務管理系統/車輛/車輛銷售管理.vb

         物料_dgv.DefaultCellStyle.Font = SystemFonts.DefaultFont
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
 
-        SQL_車輛銷售管理_物料清單()
+        SQL_車輛銷售管理_物料清單(選擇供應商_cb.Text)
         da.Fill(ds) : 物料_dgv.DataSource = ds.Tables(0) : conn.Close()
         Dim newFont As New System.Drawing.Font("微軟正黑體", 9) ' 創建一個新字體，Arial 12pt
         物料_dgv.RowsDefaultCellStyle.Font = newFont

GF00-ERP-SYS/06.業務管理系統/連動模組.vb

                     信眾燈位編輯.ReceiveDataFromPageB(selectedData, selectedData5, selectedData6, selectedData4)
                 Case "燈位基本資料"
                     PA10 = selectedData4 : PA11 = selectedData
+                Case "估價單"
+                    估價單.ReceiveDataFromPageB(selectedData, selectedData1, selectedData3, selectedData7)
             End Select
 
             Me.Close()

GF00-ERP-SYS/bin/Debug/TEST.txt

-1CGX0RI1EF
+1CGX9RI9EF
+
+
+