backup

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

@@ -7,40 +7,40 @@
       "RelativeMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|solutionrelative:ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u7CBE\u88FD\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|d:\\ow-erp-sys\\ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u7CBE\u88FD\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
-      "RelativeMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|solutionrelative:ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u7CBE\u88FD\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+      "AbsoluteMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|D:\\ow-erp-sys\\ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u7CBE\u88FD\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|solutionrelative:ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u7CBE\u88FD\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|d:\\ow-erp-sys\\ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u5976\u6CB9\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|solutionrelative:ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u5976\u6CB9\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+      "AbsoluteMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|d:\\ow-erp-sys\\ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u7CBE\u88FD\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|solutionrelative:ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u7CBE\u88FD\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|d:\\ow-erp-sys\\ow-erp-sys\\0\u3001mymodule\\\u4E3B\u8CC7\u6599\u5EAB\\sql_\u6280\u8853\u7BA1\u7406\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "AbsoluteMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|D:\\ow-erp-sys\\ow-erp-sys\\0\u3001mymodule\\\u4E3B\u8CC7\u6599\u5EAB\\sql_\u6280\u8853\u7BA1\u7406\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
       "RelativeMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|solutionrelative:ow-erp-sys\\0\u3001mymodule\\\u4E3B\u8CC7\u6599\u5EAB\\sql_\u6280\u8853\u7BA1\u7406\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|d:\\ow-erp-sys\\ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|solutionrelative:ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
-    },
-    {
-      "AbsoluteMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|d:\\ow-erp-sys\\ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u6392\u7A0B\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
-      "RelativeMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|solutionrelative:ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u6392\u7A0B\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+      "AbsoluteMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|D:\\ow-erp-sys\\ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u7CBE\u88FD\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|solutionrelative:ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u7CBE\u88FD\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|D:\\ow-erp-sys\\ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u6392\u7A0B\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|solutionrelative:ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u6392\u7A0B\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+      "AbsoluteMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|D:\\ow-erp-sys\\ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u5976\u6CB9\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|solutionrelative:ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u5976\u6CB9\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
       "AbsoluteMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|D:\\ow-erp-sys\\ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
       "RelativeMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|solutionrelative:ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|d:\\ow-erp-sys\\ow-erp-sys\\ow-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
-      "RelativeMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|solutionrelative:ow-erp-sys\\ow-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+      "AbsoluteMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|D:\\ow-erp-sys\\ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|solutionrelative:ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|d:\\ow-erp-sys\\ow-erp-sys\\ow-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|solutionrelative:ow-erp-sys\\ow-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+      "AbsoluteMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|D:\\ow-erp-sys\\ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u6392\u7A0B\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|solutionrelative:ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u6392\u7A0B\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|D:\\ow-erp-sys\\ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u6392\u7A0B\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|solutionrelative:ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u6392\u7A0B\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
     },
     {
       "AbsoluteMoniker": "D:0:0:{6EC44D36-D153-43A1-BE08-174C088DDE70}|OW-ERP-SYS\\OW-ERP-SYS.vbproj|D:\\ow-erp-sys\\ow-erp-sys\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u4E00\u822C\u7D44.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
@@ -62,8 +62,33 @@
       "DocumentGroups": [
         {
           "DockedWidth": 200,
-          "SelectedChildIndex": 0,
+          "SelectedChildIndex": 2,
           "Children": [
+            {
+              "$type": "Document",
+              "DocumentIndex": 2,
+              "Title": "\u751F\u7522\u65E5\u5831\u8868_\u7CBE\u88FD\u7D44.vb",
+              "DocumentMoniker": "D:\\ow-erp-sys\\OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u7CBE\u88FD\u7D44.vb",
+              "RelativeDocumentMoniker": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u7CBE\u88FD\u7D44.vb",
+              "ToolTip": "D:\\ow-erp-sys\\OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u7CBE\u88FD\u7D44.vb",
+              "RelativeToolTip": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u7CBE\u88FD\u7D44.vb",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAAHEAAAAdAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-11-01T05:40:29.977Z",
+              "EditorCaption": ""
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 1,
+              "Title": "\u751F\u7522\u65E5\u5831\u8868_\u7CBE\u88FD\u7D44.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\ow-erp-sys\\OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u7CBE\u88FD\u7D44.vb",
+              "RelativeDocumentMoniker": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u7CBE\u88FD\u7D44.vb",
+              "ToolTip": "D:\\ow-erp-sys\\OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u7CBE\u88FD\u7D44.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u7CBE\u88FD\u7D44.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-11-01T03:07:54.034Z",
+              "EditorCaption": " [\u8A2D\u8A08]"
+            },
             {
               "$type": "Document",
               "DocumentIndex": 0,
@@ -72,14 +97,14 @@
               "RelativeDocumentMoniker": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u7CBE\u88FD\u7D44.vb",
               "ToolTip": "D:\\ow-erp-sys\\OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u7CBE\u88FD\u7D44.vb",
               "RelativeToolTip": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u7CBE\u88FD\u7D44.vb",
-              "ViewState": "AQIAAJoAAAAAAAAAAAAUwKwAAAAOAAAA",
+              "ViewState": "AQIAABsBAAAAAAAAAAAWwCoBAAAuAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-10-28T03:17:41.128Z",
               "EditorCaption": ""
             },
             {
               "$type": "Document",
-              "DocumentIndex": 1,
+              "DocumentIndex": 4,
               "Title": "\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u7CBE\u88FD\u7D44.vb [\u8A2D\u8A08]",
               "DocumentMoniker": "D:\\ow-erp-sys\\OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u7CBE\u88FD\u7D44.vb",
               "RelativeDocumentMoniker": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u7CBE\u88FD\u7D44.vb",
@@ -91,29 +116,15 @@
             },
             {
               "$type": "Document",
-              "DocumentIndex": 2,
-              "Title": "\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u5976\u6CB9\u7D44.vb",
-              "DocumentMoniker": "D:\\ow-erp-sys\\OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u5976\u6CB9\u7D44.vb",
-              "RelativeDocumentMoniker": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u5976\u6CB9\u7D44.vb",
-              "ToolTip": "D:\\ow-erp-sys\\OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u5976\u6CB9\u7D44.vb",
-              "RelativeToolTip": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u5976\u6CB9\u7D44.vb",
-              "ViewState": "AQIAAF8BAAAAAAAAAAAuwHQBAAA4AAAA",
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-10-29T01:15:54.57Z",
-              "EditorCaption": ""
-            },
-            {
-              "$type": "Document",
-              "DocumentIndex": 4,
-              "Title": "\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb",
+              "DocumentIndex": 6,
+              "Title": "\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb [\u8A2D\u8A08]",
               "DocumentMoniker": "D:\\ow-erp-sys\\OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb",
               "RelativeDocumentMoniker": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb",
-              "ToolTip": "D:\\ow-erp-sys\\OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb",
-              "RelativeToolTip": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb",
-              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAAAAAADAAAA",
+              "ToolTip": "D:\\ow-erp-sys\\OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb [\u8A2D\u8A08]",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-10-29T05:29:35.043Z",
-              "EditorCaption": ""
+              "WhenOpened": "2024-10-28T02:01:56.788Z",
+              "EditorCaption": " [\u8A2D\u8A08]"
             },
             {
               "$type": "Document",
@@ -123,26 +134,40 @@
               "RelativeDocumentMoniker": "OW-ERP-SYS\\0\u3001MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u6280\u8853\u7BA1\u7406\u7CFB\u7D71.vb",
               "ToolTip": "D:\\ow-erp-sys\\OW-ERP-SYS\\0\u3001MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u6280\u8853\u7BA1\u7406\u7CFB\u7D71.vb",
               "RelativeToolTip": "OW-ERP-SYS\\0\u3001MyModule\\\u4E3B\u8CC7\u6599\u5EAB\\SQL_\u6280\u8853\u7BA1\u7406\u7CFB\u7D71.vb",
-              "ViewState": "AQIAALUHAAAAAAAAAAAQwMYHAAAgAAAA",
+              "ViewState": "AQIAANQHAAAAAAAAAAAMwO0HAABCAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-10-29T01:16:08.224Z",
               "EditorCaption": ""
             },
+            {
+              "$type": "Document",
+              "DocumentIndex": 7,
+              "Title": "\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb",
+              "DocumentMoniker": "D:\\ow-erp-sys\\OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb",
+              "RelativeDocumentMoniker": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb",
+              "ToolTip": "D:\\ow-erp-sys\\OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb",
+              "RelativeToolTip": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb",
+              "ViewState": "AQIAALoBAAAAAAAAAAAYwMgBAABTAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-10-29T05:29:35.043Z",
+              "EditorCaption": ""
+            },
             {
               "$type": "Document",
               "DocumentIndex": 5,
-              "Title": "\u751F\u7522\u6392\u7A0B\u8868.vb [\u8A2D\u8A08]",
-              "DocumentMoniker": "D:\\ow-erp-sys\\OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u6392\u7A0B\u8868.vb",
-              "RelativeDocumentMoniker": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u6392\u7A0B\u8868.vb",
-              "ToolTip": "D:\\ow-erp-sys\\OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u6392\u7A0B\u8868.vb [\u8A2D\u8A08]",
-              "RelativeToolTip": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u6392\u7A0B\u8868.vb [\u8A2D\u8A08]",
+              "Title": "\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u5976\u6CB9\u7D44.vb",
+              "DocumentMoniker": "D:\\ow-erp-sys\\OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u5976\u6CB9\u7D44.vb",
+              "RelativeDocumentMoniker": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u5976\u6CB9\u7D44.vb",
+              "ToolTip": "D:\\ow-erp-sys\\OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u5976\u6CB9\u7D44.vb",
+              "RelativeToolTip": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u5976\u6CB9\u7D44.vb",
+              "ViewState": "AQIAAMsAAAAAAAAAAAAQwHQBAAA4AAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-10-28T03:29:49.294Z",
-              "EditorCaption": " [\u8A2D\u8A08]"
+              "WhenOpened": "2024-10-29T01:15:54.57Z",
+              "EditorCaption": ""
             },
             {
               "$type": "Document",
-              "DocumentIndex": 6,
+              "DocumentIndex": 8,
               "Title": "\u751F\u7522\u6392\u7A0B\u8868.vb",
               "DocumentMoniker": "D:\\ow-erp-sys\\OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u6392\u7A0B\u8868.vb",
               "RelativeDocumentMoniker": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u6392\u7A0B\u8868.vb",
@@ -150,45 +175,18 @@
               "RelativeToolTip": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u6392\u7A0B\u8868.vb",
               "ViewState": "AQIAAF4AAAAAAAAAAAAUwH0BAAALAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-10-14T06:17:02.197Z",
-              "EditorCaption": ""
-            },
-            {
-              "$type": "Document",
-              "DocumentIndex": 7,
-              "Title": "\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb [\u8A2D\u8A08]",
-              "DocumentMoniker": "D:\\ow-erp-sys\\OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb",
-              "RelativeDocumentMoniker": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb",
-              "ToolTip": "D:\\ow-erp-sys\\OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb [\u8A2D\u8A08]",
-              "RelativeToolTip": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u65E5\u5831\u8868_\u5976\u6CB9\u7D44.vb [\u8A2D\u8A08]",
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-10-28T02:01:56.788Z",
-              "EditorCaption": " [\u8A2D\u8A08]"
-            },
-            {
-              "$type": "Document",
-              "DocumentIndex": 8,
-              "Title": "OW-ERP-SYS.vb [\u8A2D\u8A08]",
-              "DocumentMoniker": "D:\\ow-erp-sys\\OW-ERP-SYS\\OW-ERP-SYS.vb",
-              "RelativeDocumentMoniker": "OW-ERP-SYS\\OW-ERP-SYS.vb",
-              "ToolTip": "D:\\ow-erp-sys\\OW-ERP-SYS\\OW-ERP-SYS.vb [\u8A2D\u8A08]",
-              "RelativeToolTip": "OW-ERP-SYS\\OW-ERP-SYS.vb [\u8A2D\u8A08]",
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-10-29T01:34:52.775Z",
-              "EditorCaption": " [\u8A2D\u8A08]"
+              "WhenOpened": "2024-10-14T06:17:02.197Z"
             },
             {
               "$type": "Document",
               "DocumentIndex": 9,
-              "Title": "OW-ERP-SYS.vb",
-              "DocumentMoniker": "D:\\ow-erp-sys\\OW-ERP-SYS\\OW-ERP-SYS.vb",
-              "RelativeDocumentMoniker": "OW-ERP-SYS\\OW-ERP-SYS.vb",
-              "ToolTip": "D:\\ow-erp-sys\\OW-ERP-SYS\\OW-ERP-SYS.vb",
-              "RelativeToolTip": "OW-ERP-SYS\\OW-ERP-SYS.vb",
-              "ViewState": "AQIAAKEBAAAAAAAAAAAQwLABAABJAAAA",
+              "Title": "\u751F\u7522\u6392\u7A0B\u8868.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\ow-erp-sys\\OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u6392\u7A0B\u8868.vb",
+              "RelativeDocumentMoniker": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u6392\u7A0B\u8868.vb",
+              "ToolTip": "D:\\ow-erp-sys\\OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u6392\u7A0B\u8868.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u751F\u7522\u6392\u7A0B\u8868.vb [\u8A2D\u8A08]",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-10-29T01:35:57.141Z",
-              "EditorCaption": ""
+              "WhenOpened": "2024-10-28T03:29:49.294Z"
             },
             {
               "$type": "Document",
@@ -199,8 +197,7 @@
               "ToolTip": "D:\\ow-erp-sys\\OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u4E00\u822C\u7D44.vb [\u8A2D\u8A08]",
               "RelativeToolTip": "OW-ERP-SYS\\05\u3001\u6280\u8853\u7BA1\u7406\u7CFB\u7D71\\\u88FD\u7A0B\u7BA1\u5236\u7D00\u9304\u8868_\u4E00\u822C\u7D44.vb [\u8A2D\u8A08]",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-10-28T02:01:21.101Z",
-              "EditorCaption": " [\u8A2D\u8A08]"
+              "WhenOpened": "2024-10-28T02:01:21.101Z"
             },
             {
               "$type": "Document",
@@ -212,8 +209,7 @@
               "RelativeToolTip": "OW-ERP-SYS\\LoginForm1.vb",
               "ViewState": "AQIAAJ0AAAAAAAAAAAAWwKsAAAALAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-08-12T06:36:55.284Z",
-              "EditorCaption": ""
+              "WhenOpened": "2024-08-12T06:36:55.284Z"
             },
             {
               "$type": "Document",

OW-ERP-SYS/05、技術管理系統/生產日報表_精製組.resx

@@ -0,0 +1,120 @@
+<?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>
+</root>

OW-ERP-SYS/05、技術管理系統/生產日報表_精製組.vb

@@ -0,0 +1,539 @@
+Imports System.IO
+
+Public Class 生產日報表_精製組
+    Private isLoading As Boolean = True
+    Private 有無修改 As Boolean = False
+    Private 有無生產排程 As Boolean = False
+    Dim 登入人級別num As Integer
+    Private Button_light As Boolean = False
+    Private Sub 生產日報表_精製組_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        SQL_查找表單ISO編碼_共用(Me.Text)
+        If dr.Read() Then
+            ISO編碼001_lb.Text = "【" & dr("ISO編碼001").ToString() & "】"
+        End If
+        抗氧化劑_cb.Items.Clear()
+        LoadDataToCB(抗氧化劑_dgv, 抗氧化劑_cb)
+        Set_原料油()
+        最高權限_pl.Height = 45 : 最高權限_pl.Width = 142
+        If 登入人級別 = "00" Then : 最高權限_pl.Visible = True
+        Else : 最高權限_pl.Visible = False
+        End If
+        AddHandler 抗氧化劑_cb.TextChanged, AddressOf TextBox_TextChanged
+        AddHandler BHA_tb.TextChanged, AddressOf TextBox_TextChanged
+        AddHandler 丙二醇_tb.TextChanged, AddressOf TextBox_TextChanged
+        AddHandler TBHQ_tb.TextChanged, AddressOf TextBox_TextChanged
+        AddHandler 維他命E_tb.TextChanged, AddressOf TextBox_TextChanged
+        AddHandler 抗氧化劑_tb.TextChanged, AddressOf TextBox_TextChanged
+        AddHandler 柴油K_tb.TextChanged, AddressOf TextBox_TextChanged
+        AddHandler 開始時間_tb.TextChanged, AddressOf TextBox_TextChanged
+        AddHandler 結束時間_tb.TextChanged, AddressOf TextBox_TextChanged
+        AddHandler 合計時間_tb.TextChanged, AddressOf TextBox_TextChanged
+        AddHandler 人工人數_tb.TextChanged, AddressOf TextBox_TextChanged
+        AddHandler 備註_tb.TextChanged, AddressOf TextBox_TextChanged
+        Set_管制控制表_讀取() : Set_日報明細表_精製組_更新()
+        isLoading = False
+    End Sub
+    Private Sub TextBox_TextChanged(sender As Object, e As EventArgs)
+        ' 取得發生改變的控件
+        有無修改 = True
+    End Sub
+    Private Sub Set_原料油()
+        Dim ds1 As New DataSet : 原料油_dgv.DataSource = Nothing : ds1.Clear()
+        SQL_製程管制精製組_原料油_讀取()
+        da.Fill(ds1) : 原料油_dgv.DataSource = ds1.Tables(0) : conn.Close()
+    End Sub
+    Private Sub 批次_nud_ValueChanged(sender As Object, e As EventArgs) Handles 批次_nud.ValueChanged
+        If isLoading Then Return
+        If 有無修改 AndAlso 日報流水號_tb.Text <> "" Then
+            MGB("有偵測到物件修改，是否要進行存檔?", 2)
+            If 訊息回應 = "YES" Then
+                控制存()
+            End If
+        End If
+        日報流水號_tb.Text = "" : 預設控件() : Set_管制控制表_讀取() : Set_日報明細表_精製組_更新()
+    End Sub
+    Private Sub 前一天_bt_Click(sender As Object, e As EventArgs) Handles 前一天_bt.Click
+        '檢查當前日期是否大於DateTimePicker的最小值， 以避免超出範圍
+        If 有無修改 AndAlso 日報流水號_tb.Text <> "" Then
+            MGB("有偵測到物件修改，是否要進行存檔?", 2)
+            If 訊息回應 = "YES" Then
+                控制存()
+            End If
+        End If
+
+        If 生產日期_dtp.Value.Date > 生產日期_dtp.MinDate Then
+            日報流水號_tb.Text = "" : 預設控件()
+            生產日期_dtp.Value = 生產日期_dtp.Value.AddDays(-1)
+            Set_管制控制表_讀取() : Set_日報明細表_精製組_更新()
+        Else
+            MessageBox.Show("已達到可選擇的最早日期。")
+        End If
+    End Sub
+    Private Sub 後一天_bt_Click(sender As Object, e As EventArgs) Handles 後一天_bt.Click
+        '檢查目前日期是否小於DateTimePicker的最大值， 以避免超出範圍
+        If 有無修改 AndAlso 日報流水號_tb.Text <> "" Then
+            MGB("有偵測到物件修改，是否要進行存檔?", 2)
+            If 訊息回應 = "YES" Then
+                控制存()
+            End If
+        End If
+        If 生產日期_dtp.Value.Date < 生產日期_dtp.MaxDate Then
+            日報流水號_tb.Text = "" : 預設控件()
+            生產日期_dtp.Value = 生產日期_dtp.Value.AddDays(1)
+            Set_管制控制表_讀取() : Set_日報明細表_精製組_更新()
+        Else
+            MessageBox.Show("已達到可選擇的最晚日期。")
+        End If
+    End Sub
+    Private Sub Set_管制控制表_讀取()
+        Dim 生產日期 As String = 生產日期_dtp.Value.ToString("yyyy/MM/dd")
+        Dim 批次 As String = 批次_nud.Value.ToString
+        SQL_製程管制控制表_精製組_讀取(生產日期, 批次)
+        If dr.Read() Then
+            儲存_bt.Enabled = True : 審核簽名_bt.Enabled = True
+            SQL_生產日報控制表_精製組_讀取(生產日期, 批次)
+            If dr.Read() Then ' 有資料，讀取
+                日報流水號_tb.Text = dr("控制流水號").ToString
+                開始時間_tb.Text = dr("運轉開始時間").ToString : 結束時間_tb.Text = dr("運轉結束時間").ToString
+                合計時間_tb.Text = dr("合計時間").ToString : 人工人數_tb.Text = dr("人工人數").ToString
+                製表簽名編碼_tb.Text = dr("製表簽名編碼").ToString()
+                課長簽名編碼_tb.Text = dr("課長簽名編碼").ToString() : 經理簽名編碼_tb.Text = dr("經理簽名編碼").ToString()
+                製表日期_DTP.Text = dr("製表簽名時間").ToString()
+                課長日期_DTP.Text = dr("課長簽名時間").ToString() : 經理日期_DTP.Text = dr("經理簽名時間").ToString()
+                BHA_tb.Text = dr("BHA").ToString()
+                丙二醇_tb.Text = dr("丙二醇").ToString()
+                TBHQ_tb.Text = dr("TBHQ20").ToString()
+                維他命E_tb.Text = dr("維他命E").ToString()
+                抗氧化劑_cb.Text = dr("額外抗氧").ToString()
+                抗氧化劑_tb.Text = dr("額外抗氧公斤").ToString()
+                柴油K_tb.Text = dr("柴油").ToString()
+                Dim 備註內容 As String = dr("備註").ToString()
+                Dim 分割後的備註 As String() = 備註內容.Split(New Char() {";"c}, StringSplitOptions.RemoveEmptyEntries)
+                備註_tb.Text = String.Join(Environment.NewLine, 分割後的備註)
+                有無生產排程 = True
+            Else  ' 無資料，新增
+                日報流水號_tb.Text = 產生新流水號("DR", "生產日報表_精製組", "控制流水號")
+                SQL_生產日報控制表_精製組_新增(日報流水號_tb.Text, 生產日期, 批次, "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")
+                SQL_生產日報控制表_精製組_讀取(生產日期, 批次) : dr.Read()
+                日報流水號_tb.Text = dr("控制流水號").ToString
+                開始時間_tb.Text = dr("運轉開始時間").ToString : 結束時間_tb.Text = dr("運轉結束時間").ToString
+                合計時間_tb.Text = dr("合計時間").ToString : 人工人數_tb.Text = dr("人工人數").ToString
+                Dim 備註內容 As String = dr("備註").ToString()
+                Dim 分割後的備註 As String() = 備註內容.Split(New Char() {";"c}, StringSplitOptions.RemoveEmptyEntries)
+                備註_tb.Text = String.Join(Environment.NewLine, 分割後的備註)
+            End If
+        Else
+            儲存_bt.Enabled = False : 審核簽名_bt.Enabled = False : 有無生產排程 = False
+        End If
+        圖片讀取()
+    End Sub
+    Private Sub Set_日報明細表_精製組_更新()
+        Dim 生產日期 As String = 生產日期_dtp.Value.ToString("yyyy/MM/dd")
+        Dim 批次 As String = 批次_nud.Value.ToString
+        SQL_製程管制控制表_精製組_讀取(生產日期, 批次)
+        If dr.Read() Then
+            桶槽編號_tb.Text = dr("使用油槽").ToString
+            使用數量_tb.Text = dr("總重").ToString
+            磷酸_tb.Text = dr("總添加次數").ToString
+            白土_tb.Text = dr("總添加量").ToString
+            顯示後(dr("VE208").ToString, 液鹼_tb)
+            顯示後(dr("VE226").ToString, 硫酸_tb)
+            檸檬酸_tb.Text = dr("檸檬酸").ToString
+            分配TB文字(dr("FCQ553結束").ToString(), 數量1_tb, 數量2_tb, 數量3_tb, 數量4_tb)
+            分配TB文字(dr("桶槽").ToString(), 編號1_tb, 編號2_tb, 編號3_tb, 編號4_tb)
+            If 數量1_tb.Text <> "" Then
+                成品1_tb.Text = dr("原料油").ToString
+            Else
+                成品1_tb.Text = ""
+            End If
+            If 數量2_tb.Text <> "" Then
+                成品2_tb.Text = dr("原料油").ToString
+            Else
+                成品2_tb.Text = ""
+            End If
+            If 數量3_tb.Text <> "" Then
+                成品3_tb.Text = dr("原料油").ToString
+            Else
+                成品3_tb.Text = ""
+            End If
+            If 數量4_tb.Text <> "" Then
+                成品4_tb.Text = dr("原料油").ToString
+            Else
+                成品4_tb.Text = ""
+            End If
+            數量5_tb.Text = dr("高酸油").ToString
+            顯示後(dr("FCQ512").ToString, 柴油L_tb)
+            For i As Integer = 0 To 原料油_dgv.Rows.Count - 1
+                If 原料油_dgv.Rows(i).Cells("原料油").Value IsNot Nothing AndAlso Not IsDBNull(原料油_dgv.Rows(i).Cells("原料油").Value) Then
+                    If 原料油_dgv.Rows(i).Cells("原料油").Value.ToString() = dr("原料油").ToString Then
+                        If dr("原料油").ToString <> "" Then
+                            品名_tb.Text = 原料油_dgv.Rows(i).Cells("成品").Value.ToString()
+                            Exit For  ' 找到後退出迴圈
+                        End If
+                    End If
+                End If
+            Next
+            Dim sum As Double
+            Dim ls As Double
+            Dim result As Double
+            If Double.TryParse(使用數量_tb.Text, sum) AndAlso Double.TryParse(磷酸_tb.Text, ls) Then
+                result = (ls / sum) * 100
+                磷酸1_tb.Text = result.ToString("F2")
+            Else
+                磷酸1_tb.Text = ""
+            End If
+            If Double.TryParse(使用數量_tb.Text, sum) AndAlso Double.TryParse(白土_tb.Text, ls) Then
+                result = (ls / sum) * 100
+                白土1_tb.Text = result.ToString("F2")
+            Else
+                白土1_tb.Text = ""
+            End If
+            If Double.TryParse(使用數量_tb.Text, sum) AndAlso Double.TryParse(液鹼_tb.Text, ls) Then
+                result = (ls / sum) * 100
+                液鹼1_tb.Text = result.ToString("F2")
+            Else
+                液鹼1_tb.Text = ""
+            End If
+            If Double.TryParse(使用數量_tb.Text, sum) AndAlso Double.TryParse(硫酸_tb.Text, ls) Then
+                result = (ls / sum) * 100
+                硫酸1_tb.Text = result.ToString("F2")
+            Else
+                硫酸1_tb.Text = ""
+            End If
+            If Double.TryParse(使用數量_tb.Text, sum) AndAlso Double.TryParse(柴油K_tb.Text, ls) Then
+                result = (ls / sum) * 100
+                柴油P_tb.Text = result.ToString("F2")
+            Else
+                柴油P_tb.Text = ""
+            End If
+
+            Dim total As Double = 0
+            Dim la As Double
+            If Double.TryParse(數量1_tb.Text, la) Then
+                total = total + la
+            End If
+            If Double.TryParse(數量2_tb.Text, la) Then
+                total = total + la
+            End If
+            If Double.TryParse(數量3_tb.Text, la) Then
+                total = total + la
+            End If
+            If Double.TryParse(數量4_tb.Text, la) Then
+                total = total + la
+            End If
+            總重量_tb.Text = total.ToString()
+            If total > 0 Then
+                製成率_tb.Text = ((total / sum) * 100).ToString("F2")
+            End If
+
+        Else
+
+        End If
+        有無修改 = False
+    End Sub
+    Private Sub 顯示後(str As String, 液鹼_tb As TextBox)
+        ' 檢查 VE208 是否為空
+        If String.IsNullOrEmpty(str) Then
+            液鹼_tb.Text = ""
+        Else
+            ' 使用 ";" 分割文字
+            Dim parts As String() = str.Split(";"c)
+
+            ' 檢查是否有第二段，並確保其內容不為空
+            If parts.Length > 1 AndAlso Not String.IsNullOrEmpty(parts(1)) Then
+                液鹼_tb.Text = parts(1)
+            Else
+                液鹼_tb.Text = ""
+            End If
+        End If
+    End Sub
+    Private Sub 分配TB文字(input As String, ParamArray textboxes() As TextBox)
+        ' 如果輸入字串為空，清空所有 TextBox
+        If String.IsNullOrEmpty(input) Then
+            For Each tb In textboxes
+                tb.Text = String.Empty
+            Next
+            Return
+        End If
+
+        ' 使用 ';' 將字串分割
+        Dim parts As String() = input.Split(";"c)
+
+        ' 檢查分割的數量與 TextBox 的數量是否匹配
+        If parts.Length <> textboxes.Length Then
+            For Each tb In textboxes
+                tb.Text = String.Empty
+            Next
+            Return
+        End If
+
+        ' 將分割後的結果賦值給 TextBox
+        For i As Integer = 0 To textboxes.Length - 1
+            textboxes(i).Text = parts(i)
+        Next
+    End Sub
+    Private Function 產生新流水號(流水號標頭 As String, 查詢表單名稱 As String, SQL欄位名稱 As String)
+        Dim 新流水號 As String
+        SQL_查找表單最後流水號_共用(查詢表單名稱, SQL欄位名稱)
+        If dr.Read() Then : 新流水號 = dr(SQL欄位名稱).ToString() : Else : 新流水號 = 流水號標頭 & "00000000" : End If : conn.Close()
+        Dim NUM1 As Integer = Integer.Parse(新流水號.Substring(2)) + 1
+        新流水號 = 流水號標頭 & NUM1.ToString().PadLeft(8, "0"c)
+        Return 新流水號
+    End Function
+    Private Sub 預設控件()
+        品名_tb.Text = "" : 桶槽編號_tb.Text = "" : 使用數量_tb.Text = ""
+        磷酸_tb.Text = "" : 白土_tb.Text = "" : 液鹼_tb.Text = "" : 硫酸_tb.Text = ""
+        磷酸1_tb.Text = "" : 白土1_tb.Text = "" : 液鹼1_tb.Text = "" : 硫酸1_tb.Text = ""
+        檸檬酸_tb.Text = "" : BHA_tb.Text = "" : 丙二醇_tb.Text = "" : TBHQ_tb.Text = "" : 維他命E_tb.Text = ""
+        數量1_tb.Text = "" : 數量2_tb.Text = "" : 數量3_tb.Text = "" : 數量4_tb.Text = "" : 數量5_tb.Text = ""
+        編號1_tb.Text = "" : 編號2_tb.Text = "" : 編號3_tb.Text = "" : 編號4_tb.Text = ""
+        成品1_tb.Text = "" : 成品2_tb.Text = "" : 成品3_tb.Text = "" : 成品4_tb.Text = ""
+        柴油L_tb.Text = "" : 柴油K_tb.Text = "" : 製成率_tb.Text = "" : 柴油P_tb.Text = ""
+        製表簽名編碼_tb.Text = "" : 組長簽名編碼_tb.Text = ""
+        課長簽名編碼_tb.Text = "" : 經理簽名編碼_tb.Text = ""
+        開始時間_tb.Text = "" : 結束時間_tb.Text = ""
+        合計時間_tb.Text = "" : 人工人數_tb.Text = ""
+        備註_tb.Text = "" : 抗氧化劑_cb.Text = "" : 抗氧化劑_tb.Text = ""
+    End Sub
+    Private Sub 儲存_bt_Click(sender As Object, e As EventArgs) Handles 儲存_bt.Click
+        MGB("確 定 要 儲 存 資 料 嗎?", 2)
+        If 訊息回應 = "YES" Then
+            控制存()
+            有無修改 = False
+            MGB("存檔完成!", 1)
+        End If
+    End Sub
+    Private Sub 控制存()
+        SQL_生產日報控制表_精製組_更新(日報流水號_tb.Text, 生產日期_dtp.Value.ToString("yyyy/MM/dd"), 批次_nud.Value.ToString, 開始時間_tb.Text, 結束時間_tb.Text, 合計時間_tb.Text,
+                               人工人數_tb.Text, 備註_tb.Text, BHA_tb.Text, 丙二醇_tb.Text, TBHQ_tb.Text, 維他命E_tb.Text, 抗氧化劑_cb.Text, 抗氧化劑_tb.Text, 柴油K_tb.Text)
+    End Sub
+    Private Sub LoadDataToCB(dgv As DataGridView, cb As ComboBox)
+        Using ds As New DataSet()
+            SQL_製程管制精製組_抗氧化劑_讀取()
+            da.Fill(ds)
+            dgv.DataSource = ds.Tables(0)
+            dgv.Columns(0).ReadOnly = True
+            cb.Items.Add("")
+            For i As Integer = 0 To dgv.Rows.Count - 2
+                Dim item As String = dgv.Rows(i).Cells("名稱").Value.ToString()
+                cb.Items.Add(item)
+            Next
+        End Using
+        conn.Close()
+    End Sub
+
+    Private Sub 柴油K_tb_TextChanged(sender As Object, e As EventArgs) Handles 柴油K_tb.TextChanged
+        Dim sum As Double
+        Dim ls As Double
+        Dim result As Double
+        If Double.TryParse(使用數量_tb.Text, sum) AndAlso Double.TryParse(柴油K_tb.Text, ls) Then
+            result = (ls / sum) * 100
+            柴油P_tb.Text = result.ToString("F2")
+        Else
+            柴油P_tb.Text = ""
+        End If
+    End Sub
+
+    Private Sub 表單簽名_bt_Click(sender As Object, e As EventArgs) Handles 審核簽名_bt.Click
+        ' ----- 查找流水號是否有 已有製程控制表流水號紀錄，有則走核准途徑，無則出現提示途徑 ----- 
+        SQL_生產日報控制表_精製組_圖片查詢_讀取(日報流水號_tb.Text)
+        ' 核准途徑: 更新控制表內容 
+        If dr.Read() Then
+            '製表簽名編碼, 備料簽名編碼, 泡油簽名編碼, 組長簽名編碼, 課長簽名編碼, 審核簽名編碼, 配方確認簽名編碼 
+            Dim 製表簽名編碼紀錄 As String = If(IsDBNull(dr("製表簽名編碼")), String.Empty, dr("製表簽名編碼").ToString())
+            Dim 課長簽名編碼紀錄 As String = If(IsDBNull(dr("課長簽名編碼")), String.Empty, dr("課長簽名編碼").ToString())
+            Dim 審核簽名編碼紀錄 As String = If(IsDBNull(dr("經理簽名編碼")), String.Empty, dr("經理簽名編碼").ToString())
+            Integer.TryParse(登入人級別, 登入人級別num)
+
+            ' ↓↓----- 核准按下時，將登入主管圖片檔填入 暫存簽名檔圖片_pb.Image -----↓↓
+            If 登入人級別 = "00" Then
+            Else
+                Dim ds1 As New DataSet : 簽名檔_dgv.DataSource = Nothing : ds1.Clear()
+                簽名檔_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+                簽名檔_dgv.ColumnHeadersHeight = 25 : 簽名檔_dgv.AllowUserToAddRows = False
+
+                SQL_人事系統管理.SQL_主管簽名檔管理()
+                da.Fill(ds1) : 簽名檔_dgv.DataSource = ds1.Tables(0) : conn.Close()
+                If 簽名檔_dgv.Rows.Count <= 0 Then
+                    MGB("使用者簽名檔未登入，無法簽名 !", 1)
+                    Exit Sub
+                End If
+
+                簽名檔_dgv.Columns(0).FillWeight = 173 : 簽名檔_dgv.Columns(1).Visible = False
+                If 簽名檔_dgv.Rows.Count = 0 Then : Else
+                    暫存簽名編碼_tb.Text = 簽名檔_dgv(0, 0).Value.ToString
+                    PA1 = 暫存簽名編碼_tb.Text : 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 If
+            End If
+            ' ↑↑----- 審核按下時，將登入者圖片檔填入 暫存簽名檔圖片_pb.Image -----↑↑
+            Dim 簽核完成 As Boolean = False
+            If 登入人級別 = "00" And 登入人職稱 = "系統管理員" Then
+                If 製表簽名編碼紀錄 = "" Then
+                    製表簽名檔_pb.Image = 暫存簽名檔圖片_pb.Image
+                    製表簽名檔_pb.SizeMode = 4
+                    SQL_控制表_更新簽名("生產日報表_精製組", "製表簽名編碼", 暫存簽名編碼_tb.Text, "製表簽名時間", "控制流水號", 日報流水號_tb.Text)
+                    簽核完成 = True
+                ElseIf 課長簽名編碼紀錄 = "" Then
+                    課長簽名檔_pb.Image = 暫存簽名檔圖片_pb.Image
+                    課長簽名檔_pb.SizeMode = 4
+                    SQL_控制表_更新簽名("生產日報表_精製組", "課長簽名編碼", 暫存簽名編碼_tb.Text, "課長簽名時間", "控制流水號", 日報流水號_tb.Text)
+                    簽核完成 = True
+                ElseIf (暫存簽名編碼_tb.Text = "PG00000004") And 審核簽名編碼紀錄 = "" Then
+                    經理簽名檔_pb.Image = 暫存簽名檔圖片_pb.Image
+                    經理簽名檔_pb.SizeMode = 4
+                    SQL_控制表_更新簽名("生產日報表_精製組", "經理簽名編碼", 暫存簽名編碼_tb.Text, "經理簽名時間", "控制流水號", 日報流水號_tb.Text)
+                    簽核完成 = True
+                End If : conn.Close()
+            ElseIf 製表簽名編碼紀錄 = "" Then
+                製表簽名檔_pb.Image = 暫存簽名檔圖片_pb.Image ' 確認可簽核時，將登入者圖片檔填入 廠長簽名檔_pb.Image
+                製表簽名檔_pb.SizeMode = 4
+                SQL_控制表_更新簽名("生產日報表_精製組", "製表簽名編碼", 暫存簽名編碼_tb.Text, "製表簽名時間", "控制流水號", 日報流水號_tb.Text)
+                簽核完成 = True
+            ElseIf (登入人職稱 = "經理" Or 登入人部門 = "4.生產部" Or 登入人部門 = "5.品研部" Or 登入人部門 = "6.廠務部") And
+                登入人級別num <= 3 And 課長簽名編碼紀錄 = "" Then
+                If IsNothing(製表簽名檔_pb.Image) Then
+                    MGB("製表尚未簽名，單據無法簽核!", 1)
+                    簽核完成 = False
+                Else
+                    課長簽名檔_pb.Image = 暫存簽名檔圖片_pb.Image ' 確認可簽核時，將登入者圖片檔填入 副總簽名檔_pb.Image
+                    課長簽名檔_pb.SizeMode = 4
+                    SQL_控制表_更新簽名("生產日報表_精製組", "課長簽名編碼", 暫存簽名編碼_tb.Text, "課長簽名時間", "控制流水號", 日報流水號_tb.Text)
+                    簽核完成 = True
+                End If
+            ElseIf ((登入人級別 = "02") And (登入人職稱 = "經理")) And 審核簽名編碼紀錄 = "" Then
+                If IsNothing(製表簽名檔_pb.Image) Then
+                    MGB("製表尚未簽名，單據無法簽核!", 1)
+                    簽核完成 = False
+                ElseIf IsNothing(課長簽名檔_pb.Image) Then
+                    MGB("課長尚未簽名，單據無法簽核!", 1)
+                    簽核完成 = False
+                Else
+                    經理簽名檔_pb.Image = 暫存簽名檔圖片_pb.Image ' 確認可簽核時，將登入者圖片檔填入 總經理簽名檔_pb.Image
+                    經理簽名檔_pb.SizeMode = 4
+                    SQL_控制表_更新簽名("生產日報表_精製組", "經理簽名編碼", 暫存簽名編碼_tb.Text, "經理簽名時間", "控制流水號", 日報流水號_tb.Text)
+                    簽核完成 = True
+                End If
+            ElseIf 審核簽名編碼紀錄 <> "" And 課長簽名編碼紀錄 <> "" And 製表簽名編碼紀錄 <> "" Then
+                MGB("製程管制表簽核已完成，無法再簽核!", 1)
+                Exit Sub
+            Else
+                MGB("簽核權限錯誤!", 1)
+                Exit Sub
+            End If
+            製表簽名檔_pb.BackColor = Color.White
+            課長簽名檔_pb.BackColor = Color.White
+            經理簽名檔_pb.BackColor = Color.White
+            If 製表簽名檔_pb.Image Is Nothing Then
+                製表簽名檔_pb.BackColor = Color.LightPink
+            ElseIf 課長簽名檔_pb.Image Is Nothing Then
+                課長簽名檔_pb.BackColor = Color.LightPink
+            ElseIf 經理簽名檔_pb.Image Is Nothing Then
+                經理簽名檔_pb.BackColor = Color.LightPink
+            End If
+            If 簽核完成 = True Then
+                MGB("簽章完成!", 1)
+            End If
+        Else
+            MGB("製程管制表單尚未建立，無法審核!", 1)
+        End If : conn.Close()
+    End Sub
+    Private Sub 開簽名檔_bt_Click(sender As Object, e As EventArgs) Handles 開簽名檔_bt.Click
+        Dim ds1 As New DataSet : 簽名檔_dgv.DataSource = Nothing : ds1.Clear()
+        簽名檔_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        簽名檔_dgv.ColumnHeadersHeight = 25 : 簽名檔_dgv.AllowUserToAddRows = False
+
+        SQL_人事系統管理.SQL_主管簽名檔管理()
+        da.Fill(ds1) : 簽名檔_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        簽名檔_dgv.Columns(0).Visible = False : 簽名檔_dgv.Columns(1).FillWeight = 173
+        If 簽名檔_dgv.Rows.Count = 0 Then : Else
+            暫存簽名編碼_tb.Text = 簽名檔_dgv(0, 0).Value.ToString
+            PA1 = 暫存簽名編碼_tb.Text : 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 If
+
+        ' 反轉布爾變數的狀態
+        Button_light = Not Button_light
+        ' 根據新的狀態執行相應的動作
+        If Button_light Then
+            ' Button_light 是 ON
+            ' 在這裡實現你的功能，比如改變按鈕的顏色或文字等
+            開簽名檔_bt.Text = "縮回簽名檔"
+            最高權限_pl.Height = 184
+        Else
+            ' Button_light 是 OFF
+            ' 在這裡實現你的功能，比如改變按鈕的顏色或文字等
+            開簽名檔_bt.Text = "展開簽名檔"
+            最高權限_pl.Height = 45
+        End If
+    End Sub
+    Private Sub 簽名檔_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 簽名檔_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            暫存簽名編碼_tb.Text = 簽名檔_dgv(0, e.RowIndex).Value.ToString
+            PA20 = 暫存簽名編碼_tb.Text : 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 If
+    End Sub
+    ' ↓↓---------------------- 讀取圖片 相關功能 ----------------------↓↓
+    Private Sub 圖片讀取()
+        設定簽名圖片(製表簽名編碼_tb, 製表簽名檔_pb)
+        設定簽名圖片(課長簽名編碼_tb, 課長簽名檔_pb) : 設定簽名圖片(經理簽名編碼_tb, 經理簽名檔_pb)
+
+
+        製表簽名檔_pb.BackColor = Color.White
+
+        課長簽名檔_pb.BackColor = Color.White
+        經理簽名檔_pb.BackColor = Color.White
+
+        If 有無生產排程 Then
+            If 製表簽名檔_pb.Image Is Nothing Then
+                製表簽名檔_pb.BackColor = Color.LightPink
+            ElseIf 課長簽名檔_pb.Image Is Nothing Then
+                課長簽名檔_pb.BackColor = Color.LightPink
+            ElseIf 經理簽名檔_pb.Image Is Nothing Then
+                經理簽名檔_pb.BackColor = Color.LightPink
+            End If
+        End If
+    End Sub
+    Private Sub 設定簽名圖片(簽名碼_tb As TextBox, 簽名檔圖片 As PictureBox)
+        Dim 暫存簽名碼 As String = 簽名碼_tb.Text
+        If String.IsNullOrEmpty(暫存簽名碼) Then
+            暫存簽名檔圖片_pb.Image = Nothing
+            簽名檔圖片.Image = Nothing
+        Else
+            ' 藉由 "暫存簽名碼" 簽名檔編碼 獲取對應的簽名圖片檔
+            PA1 = 暫存簽名碼 : SQL_主管簽名檔管理_圖片流水號()
+            While dr.Read() = True
+                Dim bytes As Byte() = DirectCast(dr.Item("簽名檔圖片"), Byte())
+                Dim oStream As New MemoryStream(bytes)
+                Dim bitmaps = Bitmap.FromStream(oStream)
+
+                ' 將簽名圖片檔放入對應的 panel.Image 顯示
+                暫存簽名檔圖片_pb.Image = bitmaps
+                簽名檔圖片.Image = bitmaps
+            End While
+            conn.Close()
+            暫存簽名檔圖片_pb.SizeMode = 4
+            簽名檔圖片.SizeMode = 4
+        End If
+    End Sub
+End Class

OW-ERP-SYS/05、技術管理系統/製程管制紀錄表_精製組.Designer.vb

@@ -22,9 +22,9 @@ Partial Class 製程管制紀錄表_精製組
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
-        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()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.最高權限_pl = New System.Windows.Forms.Panel()
         Me.簽名檔_lb = New System.Windows.Forms.Label()
         Me.簽名檔選擇_lb = New System.Windows.Forms.Label()
@@ -176,6 +176,11 @@ Partial Class 製程管制紀錄表_精製組
         Me.種類_1_tb = New System.Windows.Forms.TextBox()
         Me.Panel2 = New System.Windows.Forms.Panel()
         Me.隱藏_pl2 = New System.Windows.Forms.Panel()
+        Me.物料料號_tb = New System.Windows.Forms.TextBox()
+        Me.課長簽名編碼_tb = New System.Windows.Forms.TextBox()
+        Me.組長簽名編碼_tb = New System.Windows.Forms.TextBox()
+        Me.經理簽名編碼_tb = New System.Windows.Forms.TextBox()
+        Me.製表簽名編碼_tb = New System.Windows.Forms.TextBox()
         Me.暫存簽名編碼_tb = New System.Windows.Forms.TextBox()
         Me.原料油_dgv = New System.Windows.Forms.DataGridView()
         Me.暫存dgv_01 = New System.Windows.Forms.DataGridView()
@@ -271,11 +276,6 @@ Partial Class 製程管制紀錄表_精製組
         Me.儲存明細表_bt = New System.Windows.Forms.Button()
         Me.批次_nud = New System.Windows.Forms.NumericUpDown()
         Me.批次_lb = New System.Windows.Forms.Label()
-        Me.課長簽名編碼_tb = New System.Windows.Forms.TextBox()
-        Me.組長簽名編碼_tb = New System.Windows.Forms.TextBox()
-        Me.經理簽名編碼_tb = New System.Windows.Forms.TextBox()
-        Me.製表簽名編碼_tb = New System.Windows.Forms.TextBox()
-        Me.物料料號_tb = New System.Windows.Forms.TextBox()
         Me.最高權限_pl.SuspendLayout()
         CType(Me.簽名檔_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.暫存簽名檔圖片_pb, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -352,8 +352,8 @@ Partial Class 製程管制紀錄表_精製組
         Me.簽名檔_dgv.Name = "簽名檔_dgv"
         Me.簽名檔_dgv.ReadOnly = True
         Me.簽名檔_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle1.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.簽名檔_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.簽名檔_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.簽名檔_dgv.RowTemplate.Height = 24
         Me.簽名檔_dgv.Size = New System.Drawing.Size(150, 111)
         Me.簽名檔_dgv.TabIndex = 1785
@@ -704,7 +704,7 @@ Partial Class 製程管制紀錄表_精製組
         Me.Label66.Name = "Label66"
         Me.Label66.Size = New System.Drawing.Size(25, 23)
         Me.Label66.TabIndex = 66
-        Me.Label66.Text = "次"
+        Me.Label66.Text = "Kg"
         Me.Label66.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
         '
         '高酸油_tb
@@ -1410,7 +1410,7 @@ Partial Class 製程管制紀錄表_精製組
         'Panel6
         '
         Me.Panel6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.Panel6.Controls.Add(Me.種類_2_cb)
+        Me.Panel6.Controls.Add(Me.種類_2_tb)
         Me.Panel6.Location = New System.Drawing.Point(380, 85)
         Me.Panel6.Name = "Panel6"
         Me.Panel6.Size = New System.Drawing.Size(76, 23)
@@ -1418,10 +1418,9 @@ Partial Class 製程管制紀錄表_精製組
         '
         '種類_2_cb
         '
-        Me.種類_2_cb.Dock = System.Windows.Forms.DockStyle.Fill
         Me.種類_2_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.種類_2_cb.FormattingEnabled = True
-        Me.種類_2_cb.Location = New System.Drawing.Point(0, 0)
+        Me.種類_2_cb.Location = New System.Drawing.Point(306, 50)
         Me.種類_2_cb.Name = "種類_2_cb"
         Me.種類_2_cb.Size = New System.Drawing.Size(74, 24)
         Me.種類_2_cb.TabIndex = 2182
@@ -1429,7 +1428,7 @@ Partial Class 製程管制紀錄表_精製組
         'Panel7
         '
         Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.Panel7.Controls.Add(Me.種類_3_cb)
+        Me.Panel7.Controls.Add(Me.種類_3_tb)
         Me.Panel7.Location = New System.Drawing.Point(380, 107)
         Me.Panel7.Name = "Panel7"
         Me.Panel7.Size = New System.Drawing.Size(76, 23)
@@ -1437,10 +1436,9 @@ Partial Class 製程管制紀錄表_精製組
         '
         '種類_3_cb
         '
-        Me.種類_3_cb.Dock = System.Windows.Forms.DockStyle.Fill
         Me.種類_3_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.種類_3_cb.FormattingEnabled = True
-        Me.種類_3_cb.Location = New System.Drawing.Point(0, 0)
+        Me.種類_3_cb.Location = New System.Drawing.Point(306, 81)
         Me.種類_3_cb.Name = "種類_3_cb"
         Me.種類_3_cb.Size = New System.Drawing.Size(74, 24)
         Me.種類_3_cb.TabIndex = 2181
@@ -1448,7 +1446,7 @@ Partial Class 製程管制紀錄表_精製組
         'Panel8
         '
         Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.Panel8.Controls.Add(Me.種類_4_cb)
+        Me.Panel8.Controls.Add(Me.種類_4_tb)
         Me.Panel8.Location = New System.Drawing.Point(380, 129)
         Me.Panel8.Name = "Panel8"
         Me.Panel8.Size = New System.Drawing.Size(76, 23)
@@ -1456,10 +1454,9 @@ Partial Class 製程管制紀錄表_精製組
         '
         '種類_4_cb
         '
-        Me.種類_4_cb.Dock = System.Windows.Forms.DockStyle.Fill
         Me.種類_4_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.種類_4_cb.FormattingEnabled = True
-        Me.種類_4_cb.Location = New System.Drawing.Point(0, 0)
+        Me.種類_4_cb.Location = New System.Drawing.Point(306, 114)
         Me.種類_4_cb.Name = "種類_4_cb"
         Me.種類_4_cb.Size = New System.Drawing.Size(74, 24)
         Me.種類_4_cb.TabIndex = 2180
@@ -1467,7 +1464,7 @@ Partial Class 製程管制紀錄表_精製組
         'Panel5
         '
         Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.Panel5.Controls.Add(Me.種類_1_cb)
+        Me.Panel5.Controls.Add(Me.種類_1_tb)
         Me.Panel5.Location = New System.Drawing.Point(380, 63)
         Me.Panel5.Name = "Panel5"
         Me.Panel5.Size = New System.Drawing.Size(76, 23)
@@ -1475,10 +1472,9 @@ Partial Class 製程管制紀錄表_精製組
         '
         '種類_1_cb
         '
-        Me.種類_1_cb.Dock = System.Windows.Forms.DockStyle.Fill
         Me.種類_1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.種類_1_cb.FormattingEnabled = True
-        Me.種類_1_cb.Location = New System.Drawing.Point(0, 0)
+        Me.種類_1_cb.Location = New System.Drawing.Point(306, 20)
         Me.種類_1_cb.Name = "種類_1_cb"
         Me.種類_1_cb.Size = New System.Drawing.Size(74, 24)
         Me.種類_1_cb.TabIndex = 2179
@@ -1876,7 +1872,7 @@ Partial Class 製程管制紀錄表_精製組
         '種類_4_tb
         '
         Me.種類_4_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.種類_4_tb.Location = New System.Drawing.Point(13, 180)
+        Me.種類_4_tb.Location = New System.Drawing.Point(-1, -1)
         Me.種類_4_tb.Name = "種類_4_tb"
         Me.種類_4_tb.Size = New System.Drawing.Size(76, 23)
         Me.種類_4_tb.TabIndex = 71
@@ -1886,7 +1882,7 @@ Partial Class 製程管制紀錄表_精製組
         '種類_3_tb
         '
         Me.種類_3_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.種類_3_tb.Location = New System.Drawing.Point(13, 158)
+        Me.種類_3_tb.Location = New System.Drawing.Point(-1, -1)
         Me.種類_3_tb.Name = "種類_3_tb"
         Me.種類_3_tb.Size = New System.Drawing.Size(76, 23)
         Me.種類_3_tb.TabIndex = 63
@@ -1896,7 +1892,7 @@ Partial Class 製程管制紀錄表_精製組
         '種類_2_tb
         '
         Me.種類_2_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.種類_2_tb.Location = New System.Drawing.Point(13, 136)
+        Me.種類_2_tb.Location = New System.Drawing.Point(-1, -1)
         Me.種類_2_tb.Name = "種類_2_tb"
         Me.種類_2_tb.Size = New System.Drawing.Size(76, 23)
         Me.種類_2_tb.TabIndex = 55
@@ -1906,7 +1902,7 @@ Partial Class 製程管制紀錄表_精製組
         '種類_1_tb
         '
         Me.種類_1_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.種類_1_tb.Location = New System.Drawing.Point(13, 114)
+        Me.種類_1_tb.Location = New System.Drawing.Point(-1, -1)
         Me.種類_1_tb.Name = "種類_1_tb"
         Me.種類_1_tb.Size = New System.Drawing.Size(76, 23)
         Me.種類_1_tb.TabIndex = 47
@@ -2007,6 +2003,10 @@ Partial Class 製程管制紀錄表_精製組
         '
         '隱藏_pl2
         '
+        Me.隱藏_pl2.Controls.Add(Me.種類_4_cb)
+        Me.隱藏_pl2.Controls.Add(Me.種類_3_cb)
+        Me.隱藏_pl2.Controls.Add(Me.種類_2_cb)
+        Me.隱藏_pl2.Controls.Add(Me.種類_1_cb)
         Me.隱藏_pl2.Controls.Add(Me.物料料號_tb)
         Me.隱藏_pl2.Controls.Add(Me.課長簽名編碼_tb)
         Me.隱藏_pl2.Controls.Add(Me.組長簽名編碼_tb)
@@ -2015,17 +2015,53 @@ Partial Class 製程管制紀錄表_精製組
         Me.隱藏_pl2.Controls.Add(Me.暫存簽名編碼_tb)
         Me.隱藏_pl2.Controls.Add(Me.原料油_dgv)
         Me.隱藏_pl2.Controls.Add(Me.暫存dgv_01)
-        Me.隱藏_pl2.Controls.Add(Me.種類_4_tb)
         Me.隱藏_pl2.Controls.Add(Me.原料油_tb)
-        Me.隱藏_pl2.Controls.Add(Me.種類_3_tb)
-        Me.隱藏_pl2.Controls.Add(Me.種類_1_tb)
-        Me.隱藏_pl2.Controls.Add(Me.種類_2_tb)
         Me.隱藏_pl2.Location = New System.Drawing.Point(22, 18)
         Me.隱藏_pl2.Name = "隱藏_pl2"
         Me.隱藏_pl2.Size = New System.Drawing.Size(405, 220)
         Me.隱藏_pl2.TabIndex = 2026
         Me.隱藏_pl2.Visible = False
         '
+        '物料料號_tb
+        '
+        Me.物料料號_tb.Location = New System.Drawing.Point(107, 109)
+        Me.物料料號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.物料料號_tb.Name = "物料料號_tb"
+        Me.物料料號_tb.Size = New System.Drawing.Size(86, 23)
+        Me.物料料號_tb.TabIndex = 2158
+        '
+        '課長簽名編碼_tb
+        '
+        Me.課長簽名編碼_tb.Location = New System.Drawing.Point(201, 108)
+        Me.課長簽名編碼_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.課長簽名編碼_tb.Name = "課長簽名編碼_tb"
+        Me.課長簽名編碼_tb.Size = New System.Drawing.Size(86, 23)
+        Me.課長簽名編碼_tb.TabIndex = 2157
+        '
+        '組長簽名編碼_tb
+        '
+        Me.組長簽名編碼_tb.Location = New System.Drawing.Point(200, 81)
+        Me.組長簽名編碼_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.組長簽名編碼_tb.Name = "組長簽名編碼_tb"
+        Me.組長簽名編碼_tb.Size = New System.Drawing.Size(86, 23)
+        Me.組長簽名編碼_tb.TabIndex = 2156
+        '
+        '經理簽名編碼_tb
+        '
+        Me.經理簽名編碼_tb.Location = New System.Drawing.Point(200, 56)
+        Me.經理簽名編碼_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.經理簽名編碼_tb.Name = "經理簽名編碼_tb"
+        Me.經理簽名編碼_tb.Size = New System.Drawing.Size(86, 23)
+        Me.經理簽名編碼_tb.TabIndex = 2155
+        '
+        '製表簽名編碼_tb
+        '
+        Me.製表簽名編碼_tb.Location = New System.Drawing.Point(200, 6)
+        Me.製表簽名編碼_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.製表簽名編碼_tb.Name = "製表簽名編碼_tb"
+        Me.製表簽名編碼_tb.Size = New System.Drawing.Size(86, 23)
+        Me.製表簽名編碼_tb.TabIndex = 2154
+        '
         '暫存簽名編碼_tb
         '
         Me.暫存簽名編碼_tb.Location = New System.Drawing.Point(107, 80)
@@ -2035,8 +2071,8 @@ Partial Class 製程管制紀錄表_精製組
         '
         '原料油_dgv
         '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.原料油_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.原料油_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
         Me.原料油_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.原料油_dgv.BackgroundColor = System.Drawing.Color.White
         Me.原料油_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
@@ -2871,8 +2907,8 @@ Partial Class 製程管制紀錄表_精製組
         '
         '明細表_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.White
-        Me.明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.White
+        Me.明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
         Me.明細表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.明細表_dgv.BackgroundColor = System.Drawing.Color.White
         Me.明細表_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
@@ -2989,46 +3025,6 @@ Partial Class 製程管制紀錄表_精製組
         Me.批次_lb.TabIndex = 2176
         Me.批次_lb.Text = "批次 :"
         '
-        '課長簽名編碼_tb
-        '
-        Me.課長簽名編碼_tb.Location = New System.Drawing.Point(201, 108)
-        Me.課長簽名編碼_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.課長簽名編碼_tb.Name = "課長簽名編碼_tb"
-        Me.課長簽名編碼_tb.Size = New System.Drawing.Size(86, 23)
-        Me.課長簽名編碼_tb.TabIndex = 2157
-        '
-        '組長簽名編碼_tb
-        '
-        Me.組長簽名編碼_tb.Location = New System.Drawing.Point(200, 81)
-        Me.組長簽名編碼_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.組長簽名編碼_tb.Name = "組長簽名編碼_tb"
-        Me.組長簽名編碼_tb.Size = New System.Drawing.Size(86, 23)
-        Me.組長簽名編碼_tb.TabIndex = 2156
-        '
-        '經理簽名編碼_tb
-        '
-        Me.經理簽名編碼_tb.Location = New System.Drawing.Point(200, 56)
-        Me.經理簽名編碼_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.經理簽名編碼_tb.Name = "經理簽名編碼_tb"
-        Me.經理簽名編碼_tb.Size = New System.Drawing.Size(86, 23)
-        Me.經理簽名編碼_tb.TabIndex = 2155
-        '
-        '製表簽名編碼_tb
-        '
-        Me.製表簽名編碼_tb.Location = New System.Drawing.Point(200, 6)
-        Me.製表簽名編碼_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.製表簽名編碼_tb.Name = "製表簽名編碼_tb"
-        Me.製表簽名編碼_tb.Size = New System.Drawing.Size(86, 23)
-        Me.製表簽名編碼_tb.TabIndex = 2154
-        '
-        '物料料號_tb
-        '
-        Me.物料料號_tb.Location = New System.Drawing.Point(107, 109)
-        Me.物料料號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.物料料號_tb.Name = "物料料號_tb"
-        Me.物料料號_tb.Size = New System.Drawing.Size(86, 23)
-        Me.物料料號_tb.TabIndex = 2158
-        '
         '製程管制紀錄表_精製組
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@@ -3084,9 +3080,13 @@ Partial Class 製程管制紀錄表_精製組
         Me.Panel1.ResumeLayout(False)
         Me.Panel1.PerformLayout()
         Me.Panel6.ResumeLayout(False)
+        Me.Panel6.PerformLayout()
         Me.Panel7.ResumeLayout(False)
+        Me.Panel7.PerformLayout()
         Me.Panel8.ResumeLayout(False)
+        Me.Panel8.PerformLayout()
         Me.Panel5.ResumeLayout(False)
+        Me.Panel5.PerformLayout()
         Me.Panel2.ResumeLayout(False)
         Me.Panel2.PerformLayout()
         Me.隱藏_pl2.ResumeLayout(False)

OW-ERP-SYS/05、技術管理系統/製程管制紀錄表_精製組.vb

@@ -296,7 +296,7 @@ Public Class 製程管制紀錄表_精製組
 
         製表簽名編碼_tb.Text = "" : 組長簽名編碼_tb.Text = ""
         課長簽名編碼_tb.Text = "" : 經理簽名編碼_tb.Text = ""
-        物料料號_tb.Text = ""
+        物料料號_tb.Text = "" : 選擇流水號_tb.Text = ""
 
     End Sub
     Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
@@ -321,6 +321,7 @@ Public Class 製程管制紀錄表_精製組
         MGB("確 定 要 儲 存 資 料 嗎?", 2)
         If 訊息回應 = "YES" Then
             控制存()
+            有無修改 = False
             MGB("存檔完成!", 1)
         End If
     End Sub
@@ -403,6 +404,8 @@ Public Class 製程管制紀錄表_精製組
         If 訊息回應 = "YES" Then
             SQL_製程管制控制表_精製組_刪除(製程流水號_tb.Text)
             SQL_製程管制明細表_精製組_刪除(製程流水號_tb.Text)
+            Dim 批次 As String = 批次_nud.Value.ToString
+            SQL_生產日報控制表_精製組_刪除(生產日期_dtp.Value.ToString("yyyy/MM/dd"), 批次)
             預設控件() : 製程流水號_tb.Text = "" : Set_管制控制表_讀取() : Set_明細表_讀取()
             MGB("刪除成功!", 1)
         End If
@@ -458,13 +461,13 @@ Public Class 製程管制紀錄表_精製組
     End Sub
     Private Sub LoadDataToCB(dgv As DataGridView, cb As ComboBox)
         Using ds As New DataSet()
-            SQL_製程管制_原料油_讀取()
+            SQL_製程管制精製組_原料油_讀取()
             da.Fill(ds)
             dgv.DataSource = ds.Tables(0)
             dgv.Columns(0).ReadOnly = True
             cb.Items.Add("")
             For i As Integer = 0 To dgv.Rows.Count - 2
-                Dim item As String = dgv.Rows(i).Cells("名稱").Value.ToString()
+                Dim item As String = dgv.Rows(i).Cells("原料油").Value.ToString()
                 cb.Items.Add(item)
             Next
         End Using
@@ -703,7 +706,7 @@ Public Class 製程管制紀錄表_精製組
     Private Sub 原料油_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 原料油_cb.SelectedIndexChanged
         If 原料油_cb.Text <> "" Then
             For i As Integer = 0 To 原料油_dgv.Rows.Count - 1
-                If 原料油_dgv.Rows(i).Cells("名稱").Value.ToString() = 原料油_cb.Text Then
+                If 原料油_dgv.Rows(i).Cells("原料油").Value.ToString() = 原料油_cb.Text Then
                     物料料號_tb.Text = 原料油_dgv.Rows(i).Cells("物料料號").Value.ToString()
                     Exit For  ' 找到後退出迴圈
                 End If

OW-ERP-SYS/0、MyModule/主資料庫/SQL_技術管理系統.vb

@@ -1986,11 +1986,10 @@ Module SQL_技術管理系統
                 WHERE  (製程流水號 LIKE N'" & 製程流水號 & "')"
         CmdSet_For_DGV()
     End Sub
-    Friend Sub SQL_製程管制_原料油_讀取()
+    Friend Sub SQL_製程管制精製組_原料油_讀取()
         ConnOpen()
-        SQL1 = "SELECT DISTINCT 名稱,物料料號    
-                FROM      物料規格表
-                WHERE     種類 LIKE N'原料油'"
+        SQL1 = "SELECT 精製組對應表.原料油, 精製組對應表.成品, 物料規格表.物料料號
+                FROM 精製組對應表 JOIN 物料規格表 ON 精製組對應表.原料油 = 物料規格表.名稱"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_製程管制控制表_精製組_圖片查詢_讀取(製程流水號 As String)
@@ -2000,4 +1999,56 @@ Module SQL_技術管理系統
                 WHERE       製程流水號 LIKE N'" & 製程流水號 & "'"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_生產日報控制表_精製組_讀取(生產日期 As String, 批次 As String)
+        ConnOpen()
+        SQL1 = "SELECT        控制流水號, 生產日期, 批次,運轉開始時間, 運轉結束時間, 合計時間, 人工人數, 備註, 製表簽名編碼, 課長簽名編碼, 
+                              經理簽名編碼, 製表簽名時間, 課長簽名時間, 經理簽名時間,BHA, 丙二醇, TBHQ20, 維他命E, 
+                              額外抗氧, 額外抗氧公斤, 柴油
+                FROM          生產日報表_精製組
+                WHERE         生產日期 ='" & 生產日期 & "' AND 批次 LIKE N'" & 批次 & "'"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_生產日報控制表_精製組_圖片查詢_讀取(控制流水號 As String)
+        ConnOpen()
+        SQL1 = "SELECT      製表簽名編碼,  課長簽名編碼, 經理簽名編碼 
+                FROM        生產日報表_精製組
+                WHERE       控制流水號 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,
+                                              課長簽名時間 As String, 經理簽名時間 As String, BHA As String, 丙二醇 As String, TBHQ20 As String, 維他命E As String,
+                                              額外抗氧 As String, 額外抗氧公斤 As String, 柴油 As String)
+        ConnOpen()
+        SQL1 = "INSERT INTO     生產日報表_精製組 (控制流水號, 生產日期,批次 ,運轉開始時間, 運轉結束時間, 合計時間, 人工人數, 備註, 製表簽名編碼, 
+                                課長簽名編碼, 經理簽名編碼, 製表簽名時間, 課長簽名時間, 經理簽名時間,BHA, 丙二醇, TBHQ20, 維他命E, 
+                            額外抗氧, 額外抗氧公斤, 柴油) 
+                VALUES          (N'" & 控制流水號 & "', N'" & 生產日期 & "',N'" & 批次 & "', N'" & 運轉開始時間 & "', N'" & 運轉結束時間 & "', N'" & 合計時間 & "', 
+                                 N'" & 人工人數 & "', N'" & 備註 & "', N'" & 製表簽名編碼 & "', N'" & 課長簽名編碼 & "', 
+                                 N'" & 經理簽名編碼 & "', N'" & 製表簽名時間 & "', N'" & 課長簽名時間 & "', N'" & 經理簽名時間 & "',
+                                 N'" & BHA & "', N'" & 丙二醇 & "', N'" & TBHQ20 & "', N'" & 維他命E & "', N'" & 額外抗氧 & "',
+                                 N'" & 額外抗氧公斤 & "', 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, BHA As String, 丙二醇 As String, TBHQ20 As String, 維他命E As String,
+                                              額外抗氧 As String, 額外抗氧公斤 As String, 柴油 As String)
+        ConnOpen()
+        SQL1 = "UPDATE   生產日報表_精製組 SET 運轉開始時間 = N'" & 運轉開始時間 & "', 運轉結束時間 = N'" & 運轉結束時間 & "', 合計時間 = N'" & 合計時間 & "'
+                        , 人工人數 = N'" & 人工人數 & "', 備註 = N'" & 備註 & "',  BHA = N'" & BHA & "', 丙二醇 = N'" & 丙二醇 & "', TBHQ20 = N'" & TBHQ20 & "'
+                        , 維他命E = N'" & 維他命E & "', 額外抗氧 = N'" & 額外抗氧 & "', 額外抗氧公斤 = N'" & 額外抗氧公斤 & "', 柴油 = N'" & 柴油 & "'
+                WHERE   (控制流水號 LIKE N'" & 控制流水號 & "') AND (生產日期 LIKE N'" & 生產日期 & "') AND (批次 LIKE N'" & 批次 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_製程管制精製組_抗氧化劑_讀取()
+        ConnOpen()
+        SQL1 = "SELECT 名稱,物料料號
+                FROM  物料規格表 WHERE 種類 =N'抗氧化劑'"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_生產日報控制表_精製組_刪除(生產日期 As String, 批次 As String)
+        ConnOpen()
+        SQL1 = "DELETE FROM 生產日報表_精製組 WHERE 生產日期 ='" & 生產日期 & "' AND 批次 LIKE N'" & 批次 & "'"
+        CmdSet_For_dr()
+    End Sub
 End Module

OW-ERP-SYS/OW-ERP-SYS.Designer.vb

@@ -55,6 +55,8 @@ Partial Class OW_ERP_SYS
         Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
         Me.生產製程管制表_一般油脂_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.生產日報表_一般油脂組_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
+        Me.生產製程管制表_精緻組_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
         Me.設備點檢表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.ISO編碼表_tsm = New System.Windows.Forms.ToolStripMenuItem()
@@ -141,8 +143,7 @@ Partial Class OW_ERP_SYS
         Me.製程配方表_p = New System.Windows.Forms.Panel()
         Me.製程配方表_lb = New System.Windows.Forms.Label()
         Me.製程配方表_pb = New System.Windows.Forms.PictureBox()
-        Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
-        Me.生產製程管制表_精緻組_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.生產日報表_精製組_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.MenuStrip.SuspendLayout()
         Me.StatusStrip1.SuspendLayout()
         Me.虛擬桌_pl.SuspendLayout()
@@ -285,7 +286,7 @@ Partial Class OW_ERP_SYS
         '
         '技術系統管理_tsm
         '
-        Me.技術系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.製程配方表_tsm, Me.ToolStripSeparator1, Me.生產製程表_tsm, Me.生產製程人力表_tsm, Me.生產備料表_tsm, Me.ToolStripSeparator2, Me.生產製程管制表_奶油組_tsm, Me.生產日報表_奶油組_tsm, Me.ToolStripSeparator3, Me.生產製程管制表_一般油脂_tsm, Me.生產日報表_一般油脂組_tsm, Me.ToolStripSeparator6, Me.生產製程管制表_精緻組_tsm, Me.ToolStripSeparator4, Me.設備點檢表_tsm, Me.ISO編碼表_tsm, Me.非登非追_tsm})
+        Me.技術系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.製程配方表_tsm, Me.ToolStripSeparator1, Me.生產製程表_tsm, Me.生產製程人力表_tsm, Me.生產備料表_tsm, Me.ToolStripSeparator2, Me.生產製程管制表_奶油組_tsm, Me.生產日報表_奶油組_tsm, Me.ToolStripSeparator3, Me.生產製程管制表_一般油脂_tsm, Me.生產日報表_一般油脂組_tsm, Me.ToolStripSeparator6, Me.生產製程管制表_精緻組_tsm, Me.生產日報表_精製組_tsm, Me.ToolStripSeparator4, Me.設備點檢表_tsm, Me.ISO編碼表_tsm, Me.非登非追_tsm})
         Me.技術系統管理_tsm.Font = New System.Drawing.Font("Microsoft JhengHei UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.技術系統管理_tsm.ForeColor = System.Drawing.Color.Red
         Me.技術系統管理_tsm.Name = "技術系統管理_tsm"
@@ -363,6 +364,17 @@ Partial Class OW_ERP_SYS
         Me.生產日報表_一般油脂組_tsm.Size = New System.Drawing.Size(209, 22)
         Me.生產日報表_一般油脂組_tsm.Text = "生產日報表 一般油脂組"
         '
+        'ToolStripSeparator6
+        '
+        Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
+        Me.ToolStripSeparator6.Size = New System.Drawing.Size(206, 6)
+        '
+        '生產製程管制表_精緻組_tsm
+        '
+        Me.生產製程管制表_精緻組_tsm.Name = "生產製程管制表_精緻組_tsm"
+        Me.生產製程管制表_精緻組_tsm.Size = New System.Drawing.Size(209, 22)
+        Me.生產製程管制表_精緻組_tsm.Text = "生產製程管制表 精製組"
+        '
         'ToolStripSeparator4
         '
         Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
@@ -1174,16 +1186,11 @@ Partial Class OW_ERP_SYS
         Me.製程配方表_pb.TabIndex = 0
         Me.製程配方表_pb.TabStop = False
         '
-        'ToolStripSeparator6
-        '
-        Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
-        Me.ToolStripSeparator6.Size = New System.Drawing.Size(206, 6)
-        '
-        '生產製程管制表_精緻組_tsm
+        '生產日報表_精製組_tsm
         '
-        Me.生產製程管制表_精緻組_tsm.Name = "生產製程管制表_精緻組_tsm"
-        Me.生產製程管制表_精緻組_tsm.Size = New System.Drawing.Size(209, 22)
-        Me.生產製程管制表_精緻組_tsm.Text = "生產製程管制表 精製組"
+        Me.生產日報表_精製組_tsm.Name = "生產日報表_精製組_tsm"
+        Me.生產日報表_精製組_tsm.Size = New System.Drawing.Size(209, 22)
+        Me.生產日報表_精製組_tsm.Text = "生產日報表 精製組"
         '
         'OW_ERP_SYS
         '
@@ -1362,4 +1369,5 @@ Partial Class OW_ERP_SYS
     Friend WithEvents 成品入庫單_pb As PictureBox
     Friend WithEvents ToolStripSeparator6 As ToolStripSeparator
     Friend WithEvents 生產製程管制表_精緻組_tsm As ToolStripMenuItem
+    Friend WithEvents 生產日報表_精製組_tsm As ToolStripMenuItem
 End Class

OW-ERP-SYS/OW-ERP-SYS.vb

@@ -432,6 +432,10 @@ Public Class OW_ERP_SYS
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         重置() : 製程管制紀錄表_精製組.Show() : 製程管制紀錄表_精製組.BringToFront() : 虛擬桌面隱藏()
     End Sub
+    Private Sub 生產日報表_精製組_tsm_Click(sender As Object, e As EventArgs) Handles 生產日報表_精製組_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        重置() : 生產日報表_精製組.Show() : 生產日報表_精製組.BringToFront() : 虛擬桌面隱藏()
+    End Sub
 
     Private Sub 製程管制表_一般_pb_Click(sender As Object, e As EventArgs) Handles 製程管制表_一般_pb.Click
         生產製程管制表_一般油脂_tsm.PerformClick()
@@ -491,6 +495,7 @@ Public Class OW_ERP_SYS
     End Sub
 
 
+
     Private Sub 部門權限設定_tsm_Click(sender As Object, e As EventArgs) Handles 部門權限設定_tsm.Click
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         重置() : 部門權限設定.Show() : 部門權限設定.BringToFront() : 虛擬桌面隱藏()

OW-ERP-SYS/OW-ERP-SYS.vbproj

@@ -177,6 +177,12 @@
     <Compile Include="05、技術管理系統\生產日報表_奶油組.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="05、技術管理系統\生產日報表_精製組.Designer.vb">
+      <DependentUpon>生產日報表_精製組.vb</DependentUpon>
+    </Compile>
+    <Compile Include="05、技術管理系統\生產日報表_精製組.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="05、技術管理系統\製程管制紀錄表_一般組.Designer.vb">
       <DependentUpon>製程管制紀錄表_一般組.vb</DependentUpon>
     </Compile>
@@ -450,6 +456,9 @@
     <EmbeddedResource Include="05、技術管理系統\生產日報表_奶油組.resx">
       <DependentUpon>生產日報表_奶油組.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="05、技術管理系統\生產日報表_精製組.resx">
+      <DependentUpon>生產日報表_精製組.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="05、技術管理系統\製程管制紀錄表_一般組.resx">
       <DependentUpon>製程管制紀錄表_一般組.vb</DependentUpon>
     </EmbeddedResource>

OW-ERP-SYS/obj/Debug/OW-ERP-SYS.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-6076a27de8d3ebb6fdaa88ac8f99b0f032c1e65b7d502d1af0ee1622e0ecab9e
+1e4a245190078fe53e22d6a8ada7158d611f8b6182559cc869395aa4fbf4c298

OW-ERP-SYS/obj/Debug/OW-ERP-SYS.vbproj.FileListAbsolute.txt

@@ -272,3 +272,4 @@ D:\ow-erp-sys\OW-ERP-SYS\obj\Debug\OW-ERP-SYS.vbproj.Up2Date
 D:\ow-erp-sys\OW-ERP-SYS\obj\Debug\OW-ERP-SYS.exe
 D:\ow-erp-sys\OW-ERP-SYS\obj\Debug\OW-ERP-SYS.xml
 D:\ow-erp-sys\OW-ERP-SYS\obj\Debug\OW-ERP-SYS.pdb
+D:\ow-erp-sys\OW-ERP-SYS\obj\Debug\OW_ERP_SYS.生產日報表_精製組.resources