20240607備份

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

@@ -2,29 +2,85 @@
   "Version": 1,
   "WorkspaceRootPath": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\",
   "Documents": [
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\ga\u5E33\u52D9\u901A\u7528erp\\ga-erp-sys\\ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\ga\u5E33\u52D9\u901A\u7528erp\\ga-erp-sys\\ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    },
     {
       "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\ga\u5E33\u52D9\u901A\u7528erp\\ga-erp-sys\\ga-erp-sys\\module\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
       "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\module\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u9032\u5EA6\u689D\u8996\u7A97.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u9032\u5EA6\u689D\u8996\u7A97.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u9032\u5EA6\u689D\u8996\u7A97.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u9032\u5EA6\u689D\u8996\u7A97.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7DE8\u78BC\u898F\u5247.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7DE8\u78BC\u898F\u5247.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7DE8\u78BC\u898F\u5247.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7DE8\u78BC\u898F\u5247.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\module\\sql_\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\module\\sql_\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u901A\u7528\u8B8A\u6578\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u901A\u7528\u8B8A\u6578\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u901A\u7528\u8B8A\u6578\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u901A\u7528\u8B8A\u6578\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\module\\sql_\u9023\u7DDA\u5B57\u4E32.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\module\\sql_\u9023\u7DDA\u5B57\u4E32.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\module\\sql_module.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\module\\sql_module.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\module\\sql_\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\module\\sql_\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
       "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\module\\sql_\u5B50\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
       "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\module\\sql_\u5B50\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
-      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\module\\sql_\u767B\u5165\u8207\u4E3B\u7A0B\u5F0F.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\module\\sql_\u767B\u5165\u8207\u4E3B\u7A0B\u5F0F.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
-      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\ga-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\ga-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\ga-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\ga-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
     },
     {
       "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
@@ -35,12 +91,28 @@
       "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u7D19\u677F\u5E33\u52D9\u8A2D\u5B9A.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
-      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u7D19\u677F\u5E33\u52D9\u8A2D\u5B9A.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u57FA\u672C\u8CC7\u6599\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u57FA\u672C\u8CC7\u6599.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u57FA\u672C\u8CC7\u6599\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u57FA\u672C\u8CC7\u6599.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
     },
     {
-      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\module\\sql_module.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
-      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\module\\sql_module.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677Flog\u6A94.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677Flog\u6A94.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677Flog\u6A94.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677Flog\u6A94.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u672A\u6293\u5230\u5E33\u7684\u6E05\u55AE.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u672A\u6293\u5230\u5E33\u7684\u6E05\u55AE.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u672A\u6293\u5230\u5E33\u7684\u6E05\u55AE.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u672A\u6293\u5230\u5E33\u7684\u6E05\u55AE.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
+    },
+    {
+      "AbsoluteMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\ga-erp-sys\\\u57FA\u672C\u8CC7\u6599\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u57FA\u672C\u8CC7\u6599.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
+      "RelativeMoniker": "D:0:0:{7B21AD56-ED3A-4010-9436-BB7E3AA90337}|GA-ERP-SYS\\GA-ERP-SYS.vbproj|solutionrelative:ga-erp-sys\\\u57FA\u672C\u8CC7\u6599\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u57FA\u672C\u8CC7\u6599.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
     }
   ],
   "DocumentGroupContainers": [
@@ -50,7 +122,7 @@
       "DocumentGroups": [
         {
           "DockedWidth": 200,
-          "SelectedChildIndex": 10,
+          "SelectedChildIndex": 1,
           "Children": [
             {
               "$type": "Bookmark",
@@ -58,53 +130,288 @@
             },
             {
               "$type": "Document",
-              "DocumentIndex": 4,
+              "DocumentIndex": 0,
               "Title": "\u7D19\u677F\u5E33\u52D9.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb",
               "RelativeDocumentMoniker": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb",
               "RelativeToolTip": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb",
-              "ViewState": "AQIAAJIAAAAAAAAAAAA9wKMAAAAxAAAA",
+              "ViewState": "AQIAABYAAAAAAAAAAAAAwBIAAAAOAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-05-06T07:06:04.968Z"
+              "WhenOpened": "2024-06-01T14:48:44.019Z",
+              "EditorCaption": ""
             },
             {
               "$type": "Document",
-              "DocumentIndex": 5,
+              "DocumentIndex": 1,
               "Title": "\u7D19\u677F\u5E33\u52D9.vb [\u8A2D\u8A08]",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb",
               "RelativeDocumentMoniker": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb [\u8A2D\u8A08]",
               "RelativeToolTip": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u7D19\u677F\u5E33\u52D9.vb [\u8A2D\u8A08]",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-05-06T07:06:01.742Z"
+              "WhenOpened": "2024-06-01T14:48:42.464Z",
+              "EditorCaption": " [\u8A2D\u8A08]"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 8,
-              "Title": "\u96FB\u677F\u7D19\u677F\u5E33\u52D9\u8A2D\u5B9A.vb [\u8A2D\u8A08]",
-              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u7D19\u677F\u5E33\u52D9\u8A2D\u5B9A.vb",
-              "RelativeDocumentMoniker": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u7D19\u677F\u5E33\u52D9\u8A2D\u5B9A.vb",
-              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u7D19\u677F\u5E33\u52D9\u8A2D\u5B9A.vb [\u8A2D\u8A08]",
-              "RelativeToolTip": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u7D19\u677F\u5E33\u52D9\u8A2D\u5B9A.vb [\u8A2D\u8A08]",
+              "DocumentIndex": 3,
+              "Title": "\u9032\u5EA6\u689D\u8996\u7A97.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u9032\u5EA6\u689D\u8996\u7A97.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u9032\u5EA6\u689D\u8996\u7A97.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u9032\u5EA6\u689D\u8996\u7A97.vb",
+              "RelativeToolTip": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u9032\u5EA6\u689D\u8996\u7A97.vb",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAMAAAAAAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-05-06T06:18:16.051Z"
+              "WhenOpened": "2024-05-28T02:23:58.621Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 4,
+              "Title": "\u9032\u5EA6\u689D\u8996\u7A97.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u9032\u5EA6\u689D\u8996\u7A97.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u9032\u5EA6\u689D\u8996\u7A97.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u9032\u5EA6\u689D\u8996\u7A97.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u9032\u5EA6\u689D\u8996\u7A97.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-28T02:23:57.535Z"
             },
             {
               "$type": "Document",
               "DocumentIndex": 6,
+              "Title": "\u7CFB\u7D71\u7DE8\u78BC\u898F\u5247.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7DE8\u78BC\u898F\u5247.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7DE8\u78BC\u898F\u5247.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7DE8\u78BC\u898F\u5247.vb",
+              "RelativeToolTip": "GA-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7DE8\u78BC\u898F\u5247.vb",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAAD4AAAAAAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-28T01:35:49.665Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 9,
+              "Title": "\u7CFB\u7D71\u901A\u7528\u8B8A\u6578\u7BA1\u7406.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u901A\u7528\u8B8A\u6578\u7BA1\u7406.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u901A\u7528\u8B8A\u6578\u7BA1\u7406.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u901A\u7528\u8B8A\u6578\u7BA1\u7406.vb",
+              "RelativeToolTip": "GA-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u901A\u7528\u8B8A\u6578\u7BA1\u7406.vb",
+              "ViewState": "AQIAAFEAAAAAAAAAAEBAwF8AAABLAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-28T01:33:49.251Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 5,
+              "Title": "\u7CFB\u7D71\u7DE8\u78BC\u898F\u5247.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7DE8\u78BC\u898F\u5247.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7DE8\u78BC\u898F\u5247.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7DE8\u78BC\u898F\u5247.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "GA-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7DE8\u78BC\u898F\u5247.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-28T01:33:43.005Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 8,
+              "Title": "\u7CFB\u7D71\u901A\u7528\u8B8A\u6578\u7BA1\u7406.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u901A\u7528\u8B8A\u6578\u7BA1\u7406.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u901A\u7528\u8B8A\u6578\u7BA1\u7406.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u901A\u7528\u8B8A\u6578\u7BA1\u7406.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "GA-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u901A\u7528\u8B8A\u6578\u7BA1\u7406.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-28T01:33:46.809Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 12,
+              "Title": "SQL_\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\Module\\SQL_\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\Module\\SQL_\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\Module\\SQL_\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406.vb",
+              "RelativeToolTip": "GA-ERP-SYS\\Module\\SQL_\u4EBA\u4E8B\u7CFB\u7D71\u7BA1\u7406.vb",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAsAAAAnAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-27T02:31:47.063Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 7,
+              "Title": "SQL_\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\Module\\SQL_\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\Module\\SQL_\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\Module\\SQL_\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406.vb",
+              "RelativeToolTip": "GA-ERP-SYS\\Module\\SQL_\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406.vb",
+              "ViewState": "AQIAAHcAAAAAAAAAAAAtwIUAAAAAAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-27T02:27:23.158Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 14,
+              "Title": "SQL_\u767B\u5165\u8207\u4E3B\u7A0B\u5F0F.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\Module\\SQL_\u767B\u5165\u8207\u4E3B\u7A0B\u5F0F.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\Module\\SQL_\u767B\u5165\u8207\u4E3B\u7A0B\u5F0F.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\Module\\SQL_\u767B\u5165\u8207\u4E3B\u7A0B\u5F0F.vb",
+              "RelativeToolTip": "GA-ERP-SYS\\Module\\SQL_\u767B\u5165\u8207\u4E3B\u7A0B\u5F0F.vb",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAwwAkAAAALAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-27T02:19:57.987Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 17,
+              "Title": "\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb",
+              "RelativeToolTip": "GA-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb",
+              "ViewState": "AQIAACsAAAAAAAAAAAASwDkAAAAMAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-26T23:54:17.68Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 10,
+              "Title": "SQL_\u9023\u7DDA\u5B57\u4E32.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\Module\\SQL_\u9023\u7DDA\u5B57\u4E32.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\Module\\SQL_\u9023\u7DDA\u5B57\u4E32.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\Module\\SQL_\u9023\u7DDA\u5B57\u4E32.vb",
+              "RelativeToolTip": "GA-ERP-SYS\\Module\\SQL_\u9023\u7DDA\u5B57\u4E32.vb",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAwwA0AAAAeAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-26T23:40:32.73Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 15,
+              "Title": "LoginForm1.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\LoginForm1.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\LoginForm1.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\LoginForm1.vb",
+              "RelativeToolTip": "GA-ERP-SYS\\LoginForm1.vb",
+              "ViewState": "AQIAAL0AAAAAAAAAAAAtwMEAAAA8AAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-26T13:15:45.941Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 18,
+              "Title": "LoginForm1.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\LoginForm1.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\LoginForm1.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\LoginForm1.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "GA-ERP-SYS\\LoginForm1.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-26T13:15:43.804Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 16,
+              "Title": "GA-ERP-SYS.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\GA-ERP-SYS.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\GA-ERP-SYS.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\GA-ERP-SYS.vb",
+              "RelativeToolTip": "GA-ERP-SYS\\GA-ERP-SYS.vb",
+              "ViewState": "AQIAAMAAAAAAAAAAAAASwNoAAABIAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-23T12:12:27.901Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 19,
+              "Title": "GA-ERP-SYS.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\GA-ERP-SYS.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\GA-ERP-SYS.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\GA-ERP-SYS.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "GA-ERP-SYS\\GA-ERP-SYS.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-23T12:12:25.832Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 27,
+              "Title": "\u96FB\u677F\u57FA\u672C\u8CC7\u6599.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u57FA\u672C\u8CC7\u6599\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u57FA\u672C\u8CC7\u6599.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\\u57FA\u672C\u8CC7\u6599\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u57FA\u672C\u8CC7\u6599.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u57FA\u672C\u8CC7\u6599\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u57FA\u672C\u8CC7\u6599.vb",
+              "RelativeToolTip": "GA-ERP-SYS\\\u57FA\u672C\u8CC7\u6599\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u57FA\u672C\u8CC7\u6599.vb",
+              "ViewState": "AQIAABwDAAAAAAAAAAArwCEDAAALAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-18T11:47:39.527Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 22,
+              "Title": "\u96FB\u677F\u57FA\u672C\u8CC7\u6599.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u57FA\u672C\u8CC7\u6599\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u57FA\u672C\u8CC7\u6599.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\\u57FA\u672C\u8CC7\u6599\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u57FA\u672C\u8CC7\u6599.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u57FA\u672C\u8CC7\u6599\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u57FA\u672C\u8CC7\u6599.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "GA-ERP-SYS\\\u57FA\u672C\u8CC7\u6599\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u57FA\u672C\u8CC7\u6599.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-18T11:40:11.42Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 25,
+              "Title": "\u672A\u6293\u5230\u5E33\u7684\u6E05\u55AE.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u672A\u6293\u5230\u5E33\u7684\u6E05\u55AE.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u672A\u6293\u5230\u5E33\u7684\u6E05\u55AE.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u672A\u6293\u5230\u5E33\u7684\u6E05\u55AE.vb",
+              "RelativeToolTip": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u672A\u6293\u5230\u5E33\u7684\u6E05\u55AE.vb",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAAAAAAUAAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-18T01:59:50.655Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 26,
+              "Title": "\u672A\u6293\u5230\u5E33\u7684\u6E05\u55AE.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u672A\u6293\u5230\u5E33\u7684\u6E05\u55AE.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u672A\u6293\u5230\u5E33\u7684\u6E05\u55AE.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u672A\u6293\u5230\u5E33\u7684\u6E05\u55AE.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u672A\u6293\u5230\u5E33\u7684\u6E05\u55AE.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-18T01:59:31.404Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 24,
+              "Title": "\u96FB\u677FLOG\u6A94.vb",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677FLOG\u6A94.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677FLOG\u6A94.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677FLOG\u6A94.vb",
+              "RelativeToolTip": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677FLOG\u6A94.vb",
+              "ViewState": "AQIAACUAAAAAAAAAAAASwD8AAAA+AAAA",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-18T01:45:21.853Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 23,
+              "Title": "\u96FB\u677FLOG\u6A94.vb [\u8A2D\u8A08]",
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677FLOG\u6A94.vb",
+              "RelativeDocumentMoniker": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677FLOG\u6A94.vb",
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677FLOG\u6A94.vb [\u8A2D\u8A08]",
+              "RelativeToolTip": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677FLOG\u6A94.vb [\u8A2D\u8A08]",
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
+              "WhenOpened": "2024-05-13T13:11:02.825Z"
+            },
+            {
+              "$type": "Document",
+              "DocumentIndex": 20,
               "Title": "\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb",
               "RelativeDocumentMoniker": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb",
               "RelativeToolTip": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb",
-              "ViewState": "AQIAAJcDAAAAAAAAAAAcwNgDAAB6AAAA",
+              "ViewState": "AQIAAD4HAAAAAAAAAIA9wEoHAABJAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-05-06T05:58:56.37Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 7,
+              "DocumentIndex": 21,
               "Title": "\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb [\u8A2D\u8A08]",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb",
               "RelativeDocumentMoniker": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u660E\u7D30\u67E5\u8A62\u8868.vb",
@@ -115,63 +422,37 @@
             },
             {
               "$type": "Document",
-              "DocumentIndex": 1,
-              "Title": "\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb",
-              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb",
-              "RelativeDocumentMoniker": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb",
-              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb",
-              "RelativeToolTip": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb",
-              "ViewState": "AQIAADoAAAAAAAAAAAAMwEMAAAAVAAAA",
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-05-06T05:28:11.401Z",
-              "EditorCaption": ""
-            },
-            {
-              "$type": "Document",
-              "DocumentIndex": 3,
-              "Title": "\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb [\u8A2D\u8A08]",
-              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb",
-              "RelativeDocumentMoniker": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb",
-              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb [\u8A2D\u8A08]",
-              "RelativeToolTip": "GA-ERP-SYS\\\u5831\u8868\u7CFB\u7D71\u7BA1\u7406\\\u524D\u53F0\\\u96FB\u677F\u5E33\u52D9\u5F59\u7E3D\u8A08\u7B97\u8868.vb [\u8A2D\u8A08]",
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-05-06T05:55:50.342Z",
-              "EditorCaption": " [\u8A2D\u8A08]"
-            },
-            {
-              "$type": "Document",
-              "DocumentIndex": 9,
+              "DocumentIndex": 11,
               "Title": "SQL_Module.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\Module\\SQL_Module.vb",
               "RelativeDocumentMoniker": "GA-ERP-SYS\\Module\\SQL_Module.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\Module\\SQL_Module.vb",
               "RelativeToolTip": "GA-ERP-SYS\\Module\\SQL_Module.vb",
-              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAkAAAAhAAAA",
+              "ViewState": "AQIAACAAAAAAAAAAAAAcwCcAAAAEAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-05-06T03:54:16.497Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 2,
+              "DocumentIndex": 13,
               "Title": "SQL_\u5B50\u7CFB\u7D71\u7BA1\u7406.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\Module\\SQL_\u5B50\u7CFB\u7D71\u7BA1\u7406.vb",
               "RelativeDocumentMoniker": "GA-ERP-SYS\\Module\\SQL_\u5B50\u7CFB\u7D71\u7BA1\u7406.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\Module\\SQL_\u5B50\u7CFB\u7D71\u7BA1\u7406.vb",
               "RelativeToolTip": "GA-ERP-SYS\\Module\\SQL_\u5B50\u7CFB\u7D71\u7BA1\u7406.vb",
-              "ViewState": "AQIAAPMDAAAAAAAAAAApwJkEAAAaAAAA",
+              "ViewState": "AQIAAJsBAAAAAAAAAAD4v8IBAABCAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
-              "WhenOpened": "2024-05-06T03:49:48.348Z",
-              "EditorCaption": ""
+              "WhenOpened": "2024-05-06T03:49:48.348Z"
             },
             {
               "$type": "Document",
-              "DocumentIndex": 0,
+              "DocumentIndex": 2,
               "Title": "\u5168\u57DF\u8B8A\u6578.vb",
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\Module\\\u5168\u57DF\u8B8A\u6578.vb",
               "RelativeDocumentMoniker": "GA-ERP-SYS\\Module\\\u5168\u57DF\u8B8A\u6578.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\GA\u5E33\u52D9\u901A\u7528ERP\\GA-ERP-SYS\\GA-ERP-SYS\\Module\\\u5168\u57DF\u8B8A\u6578.vb",
               "RelativeToolTip": "GA-ERP-SYS\\Module\\\u5168\u57DF\u8B8A\u6578.vb",
-              "ViewState": "AQIAAAAAAAAAAAAAAABAwAkAAAAlAAAA",
+              "ViewState": "AQIAAAEAAAAAAAAAAAAuwB0AAAAAAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-05-02T13:20:38.003Z",
               "EditorCaption": ""

GA-ERP-SYS/GA-ERP-SYS.vb

@@ -341,7 +341,7 @@ Public Class GA_ERP_SYS
                 Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
                     Dim str As String = "8888,"
                     Dim str1 As String = 業務名稱 & ","
-                    str0 = "5ac2ac324f9c548425d3bdea8fb8a78b55e80188461e4995092c6725c9706138d1c12d787788a5765e852cf436918711f91534a860240265500d4e1e6084c590a3a5fbb7a1b409e2a8f2a402a48584c279a198eb1971c0075a9a4e4af9e243866cbe71266fb1f2be9e4a8c808e93ef6abb29b1e72aaa3d6cc68c6c59485c012ad904723d35cfb44fc65f56413db73c5a2cedf14a2c30fcb30f60868fa92f3ec1651b125bcecf54145056c0d3935c691dd50fe36c3378ff0b69feb498e443f674aa1c3c2e62ab783afde3b1f74f6bd6e6eff03da70b38c78ec7b721a068b92e3ae1d01dee08e9c16be5da5f621fc618dbfa5104188de76b5c1dcb1b20223e10fd3a6b8d342aff3d26ada5538b2602233b45f55c7be64de8fc662e65b25dcfdf776e5771c11d08f0c233b63bef1c4b7401aaee7ee32107c6563204ee1d21118726301943bb394911c571e8c8bb52cd21429715f1a978164814fa818612daa5cff068683e86d36da4b29db235cdcdcbdda0098950b4f0b1c69e05bb8ff6b7df10c4b16959a47c8506086d7cb281742f7a02693a947b5e8175bf3567c60db8ccfeb5893c2e5d9d0e47b9388325892d9e0c93e257789117f82119aa4d4faa13ac537755548de3c9a1e10500d81b94f73d2ce9f03af1926b93817904c6e1bf055d2919bf79c081e9b1e456505d41541f1f918aec70f5a8b64556c5546cdfc42e30a0fc" & ","
+                    str0 = "82cea5df781d111495d41e1202bb442fdedc30df94a18402ed8961ce6796f4a01553aade797e461e51275e748d33a9cf4e27e481ed0684e8e3a625354bc5931500b115604718adbf732f271da5b6bb2683100e71d65aaefa446aec963e1d2011d5a2188a3cc66d7b2ad21fcd93267f2fe2481bb3d905b1b7cdbe60a78a5d2d615751ed4a9149184a11bb253e25d874279685597113db3fb037de62776217b1767b6e87ce1a82d14bb8c5a0723dc6aa782f119b8d482ffead530c73e0e497df3e339dbb56176823ba81d2a7a19b01e7cad8731a2bf33ae6818cf89177b59af8955fa57288a088729352dc4565bbfb07daf7baecc2c81e42fe66f2c66752c4edd3e47dead843b1910a7a2d577aa59187cc691337fd6b35e0a1e251a035b5c64cec91d2e19de6629e82b88b33e12af64c36255551c90984131963954cfe74a9020043bba09072581b8d47e8e3f8d35dd6425bf7ada25e1ed212371f042f03a95769fdac9f6b17589066ee51f8c673f864de1e764ea431208400f37556462a5416eb67d151abcfc3aaf089eabbed08f6c262b22166ed722e2d2043597768b9f14f1fc0c142895dbbbdd16c5db3eb0087f746e75479be34cbc8b42022e2035236ad216dc10124fe180eaab6dd022809278a2666112e250c778187a3e9fbaa4d62769d828aa4e7ee2b8d645ef6de51e13bab6e0dd8d62c50837284000fa760ae13d72a"
                     'If IP印尼 = True Then
                     '    str0 = "831aa853c13b6bee0385f4e92a6b159537aa5d993a13e3eb91f0f07d90360ac89d832f265ea934a7306aff174a50f2399df56113459686fadbaac6717dba2740e6ac926693fec2830f1538e10d3f2ac827c1e0974b3041aaf512f4adc0a230133cb2dc3360acde726883a570b5ef8f3676f9f649b6f5b5b0a6763066ac02e6dc8c822152481b202221a7e09ea98914617484a85e7cd39d3305b8bc0de314c261d885c22ca7417987bfaa03b60b505b732fca7ce12d7554370d707ac745937cb6d066fce2f340ea374b1f283c659f1caa5b249d8628ed0cd0f24e668d1433c12aed4cd8080e2e1decf402f4ae1a8a7c9414d727f8ad91e567a08ec136fd86e9e5605d973eff20cf84e18ace9f04c09583696f30e4a359fb18cd5cecfe474ab3ebca484506bd1fe041924fd42ca340be33b60254d247c9b9c988aeb3a58ef930f3a3491665d66a79d1732ee3d5b0df160f7947e321ab8dfb9bd99b7ed8bdd7ce1315baa70c33342336c263974be6c8c552e1dfb196c44b4c4394e0ec33f63f34b4552bdac39c77c666fe6af0b5d7d10391b24ee8bacc5b43f6eacdc4e397ec5dab0b5986300437ce3c45035e45ebcec355f54cfa788f1347e45c06b8dbf35354cc6fb5c298468281af2777182874957ffc7a62b10e14dd449471758d73f59e738f123dfcdbb1e09d8a02debb08ac056b7a207ed18f55439c9c4a2ffa4e9635f022" & ","
                     'Else

GA-ERP-SYS/GA-ERP-SYS.vbproj

@@ -136,8 +136,6 @@
     </Compile>
     <Compile Include="Module\DGV進度條.vb" />
     <Compile Include="Module\SQL_LINE.vb" />
-    <Compile Include="Module\SQL_連線狀態模組.vb" />
-    <Compile Include="Module\SQL_連線狀態模組1.vb" />
     <Compile Include="基本資料管理\下拉清單_1.Designer.vb">
       <DependentUpon>下拉清單_1.vb</DependentUpon>
     </Compile>
@@ -192,6 +190,12 @@
     <Compile Include="報表系統管理\前台\彙總報表預覽.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="報表系統管理\前台\未抓到帳的清單.Designer.vb">
+      <DependentUpon>未抓到帳的清單.vb</DependentUpon>
+    </Compile>
+    <Compile Include="報表系統管理\前台\未抓到帳的清單.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="報表系統管理\前台\紙板帳務.Designer.vb">
       <DependentUpon>紙板帳務.vb</DependentUpon>
     </Compile>
@@ -506,6 +510,9 @@
     <EmbeddedResource Include="報表系統管理\前台\彙總報表預覽.resx">
       <DependentUpon>彙總報表預覽.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="報表系統管理\前台\未抓到帳的清單.resx">
+      <DependentUpon>未抓到帳的清單.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="報表系統管理\前台\紙板帳務.resx">
       <DependentUpon>紙板帳務.vb</DependentUpon>
     </EmbeddedResource>

GA-ERP-SYS/LoginForm1.vb

@@ -3,6 +3,7 @@ Imports System.Management
 Imports System.IO
 Imports System.Text
 Imports CefSharp
+Imports System.Net.Sockets
 
 Public Class LoginForm1
     ' TODO: 插入程式碼，利用提供的使用者名稱和密碼執行自訂驗證
@@ -190,10 +191,29 @@ Public Class LoginForm1
     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 伺服器區域_ch.SelectedIndexChanged
         '-----------------------確認登入伺服器位置-----------------------------------------------------------------------------------------------------------------------------------------
         ' 登入人IP = "mssql-147629-0.cloudclusters.net,12711" 
-        登入人IP = "mssql-147629-0.cloudclusters.net,12711" : 登入人IP_備用 = "106.1.48.106,4567"
-        IP台灣 = True : IP印尼 = True : Me.Text = "GA-ERP-SYS   line : USD"
+        Dim ip As String = "mssql-147629-0.cloudclusters.net"
+        Dim ports As String() = "12711".Split(","c)
+        For Each portStr As String In ports : Dim port As Integer
+            If Integer.TryParse(portStr.Trim(), port) Then
+                Dim isPortOpen As Boolean = CheckPort(ip, port) : Dim result As String
+                If isPortOpen = True Then : result = "正常" : Else : result = "異常" : End If
+                If result = "正常" Then : 登入人IP = "mssql-147629-0.cloudclusters.net,12711" : IP台灣 = True : IP印尼 = True : Me.Text = "GA-ERP-SYS   line : USD"
+                Else : 登入人IP = "106.1.48.106,4567" : IP台灣 = True : IP印尼 = True : Me.Text = "GA-ERP-SYS   line : TW" : End If
+            Else : 登入人IP = "106.1.48.106,4567" : End If
+        Next
+        登入人IP_備用 = "106.1.48.106,4567"
         登入() : 確認_bt.Enabled = True : 取消_bt.Enabled = True : 刷卡登入_ch.Checked = True
     End Sub
+    Private Function CheckPort(host As String, port As Integer) As Boolean
+        Try
+            Using client As New TcpClient()
+                Dim result = client.BeginConnect(host, port, Nothing, Nothing)
+                Dim success = result.AsyncWaitHandle.WaitOne(TimeSpan.FromSeconds(3))
+                If success Then : client.EndConnect(result) : Return True : End If
+            End Using
+        Catch ex As Exception
+        End Try : Return False
+    End Function
     Private Sub 登入()
         '-----------------------寫入連線字串-----------------------------------------------------------------------------------------------------------------------------------------------
         SQL_連線字串_主SQL() : SQL_連線字串_主SQL備用()
@@ -229,7 +249,8 @@ Public Class LoginForm1
                 If 驗證_tb.Text = "1" Then
                     SQL_使用者權限宣告()
                     If dr.Read() Then
-                        到期 = dr("到期日") : FFGG = DateDiff("d", Format(Today(), "yyyy/MM/dd"), dr("到期日")) : 不用WEB = dr("舊版").ToString : 剩餘天數 = FFGG
+                        到期 = dr("到期日") : FFGG = DateDiff("d", Format(Today(), "yyyy/MM/dd"), dr("到期日"))
+                        If dr("舊版").ToString = "" Then : 不用WEB = False : Else : 不用WEB = dr("舊版").ToString : End If : 剩餘天數 = FFGG
                         If FFGG < 0 Then
                             MsgBox("您帳號的合約日期已經到期，如要續約且恰客服人員!!!")
                         Else

GA-ERP-SYS/Module/SQL_子系統管理.vb

@@ -432,11 +432,12 @@
         ConnOpen_子SQL()
         SQL1 = "SELECT  [LOG].[index] AS 項次, [LOG].查詢區間, 商品資料表.商品, [LOG].帳號, [LOG].網址, [LOG].狀態, [LOG].查詢時間, 
                         商品資料表.編號, 商品資料表.系統, 商品資料表.層級, 商品資料表.備用網址, 商客基本資料表.資料, 
-                        商客基本資料表.上繳源, 商客基本資料表.密碼
-                FROM    商客基本資料表 INNER JOIN
-                        商品資料表 ON 商客基本資料表.商品 = 商品資料表.商品 AND 
-                        商客基本資料表.網址 = 商品資料表.網址 RIGHT OUTER JOIN
-                        [LOG] ON 商客基本資料表.帳號 = [LOG].帳號 AND 商品資料表.網址 = [LOG].網址
+                        商客基本資料表.上繳源, 商客基本資料表.密碼, 商品資料表_1.商品 AS 商品1
+                FROM    商品資料表 AS 商品資料表_1 RIGHT OUTER JOIN
+                        [LOG] ON 商品資料表_1.備用網址 = [LOG].網址 LEFT OUTER JOIN
+                        商客基本資料表 INNER JOIN
+                        商品資料表 ON 商客基本資料表.商品 = 商品資料表.商品 AND 商客基本資料表.網址 = 商品資料表.網址 ON
+                        [LOG].帳號 = 商客基本資料表.帳號 AND [LOG].網址 = 商品資料表.網址
                 WHERE   [LOG].查詢區間 LIKE N'" & PA & "-" & PA1 & "' AND [LOG].狀態 LIKE N'無法取得資料'"
         CmdSet_For_DGV()
     End Sub
@@ -452,6 +453,22 @@
                 WHERE   [LOG].查詢區間 LIKE N'" & PA & "-" & PA1 & "' AND [LOG].狀態 LIKE N'無法取得資料'"
         CmdSet_For_DGV()
     End Sub
+    Friend Sub SQL_須重讀_刪除()
+        ConnOpen_子SQL() : SQL1 = "DELETE  須重讀紀錄  WHERE 商品 LIKE N'" & PA2 & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_須重讀_寫入()
+        ConnOpen_子SQL() : SQL1 = "INSERT INTO  須重讀紀錄 (開始日期, 結束日期, 商品, 帳號) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_須重讀_讀取()
+        ConnOpen_子SQL()
+        SQL1 = "SELECT  商品, 帳號  FROM  須重讀紀錄 WHERE 開始日期 LIKE N'" & 開始D & "' AND 結束日期 LIKE N'" & 結束D & "' AND 商品 NOT LIKE ''  GROUP BY 商品, 帳號  ORDER BY 商品"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_須重讀_讀取1()
+        ConnOpen_子SQL()
+        SQL1 = "SELECT  商品, 帳號  FROM  須重讀紀錄 WHERE 開始日期 LIKE N'" & 開始D & "' AND 結束日期 LIKE N'" & 結束D & "'  GROUP BY 商品, 帳號  ORDER BY 商品"
+        CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_流水帳_帳號第一次驗證()
         ConnOpen_子SQL()
         SQL1 = "SELECT 下一層 AS 首次抓帳 FROM 商客基本資料表 WHERE (網址 LIKE '" & PA1 & "') AND (帳號 LIKE '" & PA2 & "')"

GA-ERP-SYS/Module/SQL_登入與主程式.vb

@@ -35,13 +35,11 @@
     End Sub
     Friend Sub SQL_登入鎖定()
         SQL1 = "UPDATE 使用者權限管理表 SET  CC07 = N'1' WHERE (姓名 = N'" & gUserName & "')"
-        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
-        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
+        ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_登入鎖定解除()
         SQL1 = "UPDATE 使用者權限管理表 SET  CC07 = N'0' WHERE (姓名 = N'" & gUserName & "')"
-        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
-        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
+        ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_簡易登入清單()
         ConnOpen() : SQL1 = "SELECT 備註, ID卡號, 姓名, CC07 AS 鎖定, CC20 AS 測試, 到期日 FROM 使用者權限管理表 ORDER BY 姓名" : CmdSet_For_DGV()
@@ -51,19 +49,9 @@
     End Sub
     Friend Sub SQL_單一登入寫入()
         SQL1 = "UPDATE 使用者權限管理表 SET  登入時間 = N'" & 系統單一登入 & "' WHERE (姓名 = N'" & gUserName & "')"
-        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
-        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
+        ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_單一登入驗證()
         ConnOpen() : SQL1 = "SELECT 登入時間 FROM 使用者權限管理表 WHERE (姓名 = N'" & gUserName & "')" : CmdSet_For_dr()
     End Sub
-    '---------------------測試-----------------------------------------------------------------------------------------------------------------
-    Friend Sub SQL_49連號讀取()
-        ConnOpen() : SQL1 = "SELECT 港號, 台號1, 台號2, 台號3, 台號4, 台號5 FROM 四十九號 WHERE 港號 LIKE '" & PA & "'" : CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_49連號新增()
-        ConnOpen()
-        SQL1 = "INSERT INTO 四十九號 (港號, 台號1, 台號2, 台號3, 台號4, 台號5) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "')"
-        CmdSet_For_dr()
-    End Sub
 End Module

GA-ERP-SYS/Module/SQL_資料庫系統管理.vb

@@ -5,49 +5,42 @@
                                       小更新4 = N'" & 系統執行檔版本管理.小更4.Text & "', 小更新5 = N'" & 系統執行檔版本管理.小更5.Text & "', 
                                       Auto = '" & 系統執行檔版本管理.Auto_ch.Checked & "', Verify = '" & 系統執行檔版本管理.Verify_ch.Checked & "' 
                 WHERE (系統認證版本號 = N'" & Strings.Right(系統執行檔版本管理.資料庫版本號_lb.Text, 10) & "')"
-        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
-        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
+        ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr()
     End Sub
     '------------------------------------FTP資料夾管理----------------------------------------------
     Friend Sub SQL_FTP資料夾管理新增()
         SQL1 = "INSERT INTO FTP資料夾管理 (資料夾名稱, 指定頁面, 備註, 指定) 
                 VALUES (N'" & FTP資料夾管理.資料夾名稱_tb.Text & "',N'" & FTP資料夾管理.指定頁面_tb.Text & "',N'" & FTP資料夾管理.備註_tb.Text & "',N'" & FTP資料夾管理.指定_tb.Text & "')"
-        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
-        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
+        ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_FTP資料夾管理修改()
         SQL1 = "UPDATE FTP資料夾管理 SET 指定頁面 = N'" & FTP資料夾管理.指定頁面_tb.Text & "', 備註 = N'" & FTP資料夾管理.備註_tb.Text & "', 指定 = N'" & FTP資料夾管理.指定_tb.Text & "' 
                 WHERE (資料夾名稱 = N'" & FTP資料夾管理.資料夾名稱_tb.Text & "')"
-        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
-        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
+        ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_FTP資料夾管理刪除()
         SQL1 = "DELETE FROM FTP資料夾管理 WHERE (資料夾名稱 = N'" & FTP資料夾管理.資料夾名稱_tb.Text & "')"
-        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
-        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
+        ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr()
     End Sub
     '---------------------系統使用者管理------------------------------------------------------------
     Friend Sub SQL_判斷是否已經通知()
         ConnOpen() : SQL1 = "SELECT  發訊日期  FROM  到期LINE通知 WHERE 發訊日期 LIKE N'" & Strings.Format(Today(), "yyyy/MM/dd") & "'" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_到期LINE通知寫入()
-        ConnOpen() : SQL1 = "INSERT INTO  到期LINE通知 (發訊日期) VALUES (N'" & Strings.Format(Today(), "yyyy/MM/dd") & "')" : CmdSet_For_dr()
+        SQL1 = "INSERT INTO  到期LINE通知 (發訊日期) VALUES (N'" & Strings.Format(Today(), "yyyy/MM/dd") & "')"
+        ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_資料庫顯示()
-        ConnOpen()
-        SQL1 = "SELECT 資料庫 FROM 客戶資料表 WHERE 客戶 LIKE N'" & 系統使用者管理.主客戶_cb.Text & "'" : CmdSet_For_dr()
+        ConnOpen() : SQL1 = "SELECT 資料庫 FROM 客戶資料表 WHERE 客戶 LIKE N'" & 系統使用者管理.主客戶_cb.Text & "'" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_系統使用者管理清單()
-        ConnOpen()
-        SQL1 = "SELECT " & 登入權限 & ", 舊版 FROM 使用者權限管理表 ORDER BY 姓名 DESC" : CmdSet_For_DGV()
+        ConnOpen() : SQL1 = "SELECT " & 登入權限 & ", 舊版 FROM 使用者權限管理表 ORDER BY 姓名 DESC" : CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_系統使用者管理清單1()
-        ConnOpen_備用()
-        SQL1 = "SELECT " & 登入權限 & " FROM 使用者權限管理表 ORDER BY 姓名 DESC" : CmdSet_For_DGV()
+        ConnOpen_備用() : SQL1 = "SELECT " & 登入權限 & " FROM 使用者權限管理表 ORDER BY 姓名 DESC" : CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_系統使用者密碼顯示()
-        ConnOpen()
-        SQL1 = "SELECT 密碼 FROM 使用者權限管理表 WHERE 帳號 LIKE N'" & 系統使用者管理.帳號_tb.Text & "'" : CmdSet_For_dr()
+        ConnOpen() : SQL1 = "SELECT 密碼 FROM 使用者權限管理表 WHERE 帳號 LIKE N'" & 系統使用者管理.帳號_tb.Text & "'" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_系統使用者新增()
         SQL1 = "INSERT INTO 使用者權限管理表 (" & 登入權限 & ") " &
@@ -68,8 +61,7 @@
                         N'" & 系統使用者管理.CheckBox37.Checked & "', N'" & 系統使用者管理.CheckBox38.Checked & "', N'" & 系統使用者管理.CheckBox39.Checked & "', 
                         N'" & 系統使用者管理.CheckBox40.Checked & "', N'" & 系統使用者管理.CheckBox41.Checked & "', N'" & 系統使用者管理.CheckBox42.Checked & "', 
                         N'" & 系統使用者管理.CheckBox43.Checked & "')"
-        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
-        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
+        ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_系統使用者修改()
         SQL1 = "UPDATE 使用者權限管理表 SET 姓名 = N'" & 系統使用者管理.姓名_tb.Text & "', 密碼 = N'" & 系統使用者管理.密碼_tb.Text & "', 
@@ -98,17 +90,14 @@
                                             CC41 = N'" & 系統使用者管理.CheckBox41.Checked & "', CC42 = N'" & 系統使用者管理.CheckBox42.Checked & "', 
                                             CC43 = N'" & 系統使用者管理.CheckBox43.Checked & "', 舊版 = N'" & 系統使用者管理.舊版_ch.Checked & "'
                 WHERE (帳號 = N'" & 系統使用者管理.帳號_tb.Text & "')"
-        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
-        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
+        ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_系統使用者刪除()
         SQL1 = "DELETE FROM 使用者權限管理表 WHERE (帳號 = N'" & 系統使用者管理.帳號_tb.Text & "')"
-        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
-        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
+        ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_下拉式清單讀取()
-        ConnOpen()
-        SQL1 = "SELECT 客戶 FROM 客戶資料表 ORDER BY 客戶 DESC" : CmdSet_For_dr()
+        ConnOpen() : SQL1 = "SELECT 客戶 FROM 客戶資料表 ORDER BY 客戶 DESC" : CmdSet_For_dr()
     End Sub
     '--------------系統編碼規則----------------------------------------------------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_LOG多餘資料刪除()
@@ -142,12 +131,6 @@
     Friend Sub SQL_LOG主資料表刪除3()
         ConnOpen_子SQL() : SQL1 = "DELETE [LOG]" : CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_LOG資料庫修改()
-        SQL1 = "UPDATE LOGDB SET 資料庫 = N'" & 系統編碼規則.LOG資料庫_tb.Text & "', IP位置 = N'" & 系統編碼規則.IP_tb.Text & "', 
-                                   帳號 = N'" & 系統編碼規則.帳號_tb.Text & "', 密碼 = N'" & 系統編碼規則.密碼_tb.Text & "'"
-        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
-        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
-    End Sub
     Friend Sub SQL_LOG資料庫讀取()
         ConnOpen() : SQL1 = "SELECT 資料庫, IP位置, 帳號, 密碼 FROM LOGDB" : CmdSet_For_dr()
     End Sub
@@ -183,30 +166,23 @@
     End Sub
     Friend Sub SQL_系統編碼規則_只修改IP()
         SQL1 = "UPDATE 客戶資料表 SET IP位置 = N'" & PA4 & "' WHERE 資料庫 LIKE N'" & PA3 & "'"
-        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
-        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
-        If IP印尼 = False And IP台灣 = False Then : MsgBox("網路異常，雙線路都不通!!") : 關閉系統 = True : End If
+        ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr()
     End Sub
     '------------------------------------個人帳號管理----------------------------------------------
     Friend Sub SQL_公告修改()
         SQL1 = "UPDATE 使用者權限管理表 SET CC40 = '0' WHERE (姓名 = '" & gUserName & "')"
-        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
-        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
+        ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_公告開啟()
         SQL1 = "UPDATE 使用者權限管理表 SET CC40 = '1'"
-        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
-        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
+        ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_個人帳號管理讀取()
-        ConnOpen()
-        SQL1 = "SELECT 姓名, 帳號, 密碼 FROM 使用者權限管理表 WHERE (姓名 = '" & gUserName & "')"
-        CmdSet_For_dr()
+        ConnOpen() : SQL1 = "SELECT 姓名, 帳號, 密碼 FROM 使用者權限管理表 WHERE (姓名 = '" & gUserName & "')" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_個人帳號修改()
         SQL1 = "UPDATE 使用者權限管理表 SET 帳號 = '" & 個人帳號管理.TextBox2.Text & "', 密碼 = '" & 個人帳號管理.TextBox3.Text & "' WHERE (姓名 = '" & 個人帳號管理.TextBox1.Text & "')"
-        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
-        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
+        ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_使用者下拉清單()
         ConnOpen()
@@ -230,8 +206,7 @@
     End Sub
     Friend Sub SQL_USB綁定()
         SQL1 = "INSERT INTO 系統綁定電腦資訊 (MAC碼, 硬碟序列, 磁盘型態, 硬碟ID, 客戶) VALUES (N'" & PA10 & "', N'" & PA11 & "', N'" & PA12 & "', N'" & PA13 & "', N'" & PA14 & "')"
-        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
-        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
+        ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr()
     End Sub
     '------------------------------------網址整合功能----------------------------------------------
     Friend Sub SQL_有用網址呈現()
@@ -360,13 +335,11 @@
     End Sub
     Friend Sub SQL_總網址修改_網址整合功能()
         SQL1 = "UPDATE 商品資料總表 SET 網址 = N'" & PA4 & "', 備用網址 = N'" & PA5 & "' WHERE 商品 LIKE '" & PA1 & "' AND 系統 LIKE '" & PA2 & "' AND 層級 LIKE '" & PA3 & "'"
-        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
-        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
+        ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_總網址新增_網址整合功能()
         SQL1 = "INSERT INTO 商品資料總表 (商品, 系統, 編號, 層級, 網址, 備用網址) VALUES (N'" & PA1 & "', N'" & PA2 & "', '', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "')"
-        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
-        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
+        ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_總個人址確認_網址整合功能()
         ConnOpen_備份1() : SQL1 = "SELECT 網址 FROM 商品資料表 WHERE 商品 LIKE '" & PA1 & "' AND 系統 LIKE '" & PA2 & "' AND 層級 LIKE '" & PA3 & "'" : CmdSet_For_dr()
@@ -643,29 +616,25 @@
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_租用帳務新增()
-        ConnOpen()
         SQL1 = "INSERT INTO 租用帳務表 (使用者, 帳號, 狀態, 起始日, 到期日, 費用, 備註) 
                 VALUES (N'" & 租用者帳務表.姓名_tb.Text & "', N'" & 租用者帳務表.帳號_tb.Text & "', N'" & 租用者帳務表.狀態_tb.Text & "', 
                         N'" & 租用者帳務表.起始日_dtp.Text & "', N'" & 租用者帳務表.到期日_dtp.Text & "', N'" & 租用者帳務表.費用_nud.Value & "', N'" & 租用者帳務表.備註_tb.Text & "')"
-        CmdSet_For_dr()
+        ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_租用帳務修改()
-        ConnOpen()
         SQL1 = "UPDATE 租用帳務表 SET 狀態 = N'" & 租用者帳務表.狀態_tb.Text & "', 起始日 = N'" & 租用者帳務表.起始日_dtp.Text & "', 到期日 = N'" & 租用者帳務表.到期日_dtp.Text & "', 
                                       費用 = N'" & 租用者帳務表.費用_nud.Value & "', 備註 =  N'" & 租用者帳務表.備註_tb.Text & "' 
                 WHERE (帳號 LIKE N'" & 租用者帳務表.帳號_tb.Text & "') AND (起始日 = N'" & 租用者帳務表.起始日_dtp.Text & "') AND (到期日 = N'" & 租用者帳務表.到期日_dtp.Text & "')"
-        CmdSet_For_dr()
+        ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_租用帳務刪除()
-        ConnOpen()
         SQL1 = "DELETE 租用帳務表 WHERE (帳號 LIKE N'" & 租用者帳務表.帳號_tb.Text & "') AND (起始日 = N'" & 租用者帳務表.起始日_dtp.Text & "') AND (到期日 = N'" & 租用者帳務表.到期日_dtp.Text & "')"
-        CmdSet_For_dr()
+        ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr()
     End Sub
 
     '------------------------------------通統通用變數管理----------------------------------------------
     Friend Sub SQL_伺服器IP取得()
-        ConnOpen()
-        SQL1 = "SELECT IP位置, 備份IP, 帳號, 密碼, 備份帳號, 密碼密碼 FROM 客戶資料表 GROUP BY IP位置, 備份IP, 帳號, 密碼, 備份帳號, 密碼密碼" : CmdSet_For_dr()
+        ConnOpen() : SQL1 = "SELECT IP位置, 備份IP, 帳號, 密碼, 備份帳號, 密碼密碼 FROM 客戶資料表 GROUP BY IP位置, 備份IP, 帳號, 密碼, 備份帳號, 密碼密碼" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_資料庫狀態()
         ConnOpen_備份1()
@@ -686,7 +655,6 @@
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_主資料庫狀態()
-        'If IP印尼 = True Then : ConnOpen() : Else : ConnOpen_備用() : End If
         ConnOpen_備用()
         SQL1 = "SELECT  DB_NAME(database_id) AS 資料庫, physical_name AS '實體檔案', type_desc AS '檔案類型', 
                         state_desc AS '檔案狀態', size * 8.0 / 1024 AS '檔案大小(MB)'

GA-ERP-SYS/Module/SQL_連線狀態模組.vb

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

GA-ERP-SYS/Module/SQL_連線狀態模組1.vb

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

GA-ERP-SYS/Module/全域變數.vb

@@ -7,7 +7,7 @@
     Public 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, FTP物理位置, 登入客戶, 登入資料庫, 業務名稱, AA(99), QA1, QA2, QA3, QA4, 到期 As String
     Public BB(99), CC(99), 登入判斷, IP印尼, IP台灣, 不用WEB As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2024050602"
+    Public 版本 As String = "2024052801"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 判斷重登, 內外網, 重登確認, 主頁開啟, 無KEY登入, 內網區域, 關閉系統, 內網確認 As Boolean

GA-ERP-SYS/bin/Debug/GA-ERP-SYS.xml

@@ -232,23 +232,5 @@ GA-ERP-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
-<member name="M:GA_ERP_SYS.SQL_連線狀態模組.ConnectTest(System.String,System.Decimal)">
- <summary>
- 测试连接：True-连接成功，False-连接失败
- 参数[必选]：服务器IP
- 参数[可选]：等待超时时间（秒）,默认为1.2秒
- </summary>
- <returns></returns>
- <remarks></remarks>
-</member>
-<member name="M:GA_ERP_SYS.SQL_連線狀態模組1.Connect1Test(System.String,System.Decimal)">
- <summary>
- 测试连接：True-连接成功，False-连接失败
- 参数[必选]：服务器IP
- 参数[可选]：等待超时时间（秒）,默认为1.2秒
- </summary>
- <returns></returns>
- <remarks></remarks>
-</member>
 </members>
 </doc>

GA-ERP-SYS/bin/Debug/debug.log

@@ -1821,3 +1821,96 @@ ERROR: Couldn't read tbsCertificate as SEQUENCE
 ERROR: Failed parsing Certificate
 
 [0506/153819.513:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0527/074220.284:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0527/074226.800:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0527/074228.901:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0527/074229.801:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0527/074640.924:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0527/074642.927:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0527/074644.325:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0527/074645.107:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0527/074746.157:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0527/074749.162:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0527/074749.559:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0527/074749.831:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0527/075345.238:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0527/075347.303:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0527/075348.805:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0527/075349.211:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0527/075555.155:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0527/075557.993:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0527/075559.369:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0527/075559.766:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0527/075608.497:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0527/080057.116:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0527/080059.012:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0527/080059.762:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0527/080100.067:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0527/082026.153:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0527/082028.575:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0527/082030.054:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0527/082030.589:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0527/083246.527:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0527/083249.557:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0527/083251.131:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0527/083251.376:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)
+[0528/100045.436:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0528/102122.895:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0528/102514.499:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0528/102518.882:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0528/102519.494:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0528/102519.911:INFO:CONSOLE(42)] "Uncaught SyntaxError: Invalid regular expression: missing /", source: https://gcm-smart.com/_jb_static/??-eJydkMsKAjEMRf/GlbUOo7gSP0XaTpzpmD5MMop/bxAfCLoRAjd3kZPcXKqJOeDUAdtR6zQBXR9iUuzJCSxSzIuR55dqQskCWWzFqY+Z7aFQMskdgawvhUXVMYPcYSFSQDCVSk/A/A+ix+Id/pgcQaoLR7vXBNZPETtLgHpwZ6qC+NN9SSEDJM0NZzWGxb02Y/Tk9A+DJFzzEM/v7h+Mpq8ld099IHZp22yatl2um3Y1C37b3ACRpJXr (42)

GA-ERP-SYS/bin/Debug/log.txt

@@ -0,0 +1,104 @@
+Traceback (most recent call last):
+  File "sqlalchemy\engine\base.py", line 3361, in _wrap_pool_connect
+  File "sqlalchemy\pool\base.py", line 310, in connect
+  File "sqlalchemy\pool\base.py", line 868, in _checkout
+  File "sqlalchemy\pool\base.py", line 476, in checkout
+  File "sqlalchemy\pool\impl.py", line 146, in _do_get
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\impl.py", line 143, in _do_get
+  File "sqlalchemy\pool\base.py", line 256, in _create_connection
+  File "sqlalchemy\pool\base.py", line 371, in __init__
+  File "sqlalchemy\pool\base.py", line 666, in __connect
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\base.py", line 661, in __connect
+  File "sqlalchemy\engine\create.py", line 578, in connect
+  File "sqlalchemy\engine\default.py", line 597, in connect
+pyodbc.InterfaceError: ('IM002', '[IM002] [Microsoft][ODBC 驅動程式管理員] 找不到資料來源名稱且未指定預設的驅動程式 (0) (SQLDriverConnect)')
+
+The above exception was the direct cause of the following exception:
+
+Traceback (most recent call last):
+  File "D-F.py", line 121, in connectEngine
+  File "sqlalchemy\orm\query.py", line 2772, in all
+  File "sqlalchemy\orm\query.py", line 2910, in _iter
+  File "sqlalchemy\orm\session.py", line 1711, in execute
+  File "sqlalchemy\orm\session.py", line 1553, in _connection_for_bind
+  File "sqlalchemy\orm\session.py", line 747, in _connection_for_bind
+  File "sqlalchemy\engine\base.py", line 3315, in connect
+  File "sqlalchemy\engine\base.py", line 96, in __init__
+  File "sqlalchemy\engine\base.py", line 3394, in raw_connection
+  File "sqlalchemy\engine\base.py", line 3365, in _wrap_pool_connect
+  File "sqlalchemy\engine\base.py", line 2199, in _handle_dbapi_exception_noconnection
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\engine\base.py", line 3361, in _wrap_pool_connect
+  File "sqlalchemy\pool\base.py", line 310, in connect
+  File "sqlalchemy\pool\base.py", line 868, in _checkout
+  File "sqlalchemy\pool\base.py", line 476, in checkout
+  File "sqlalchemy\pool\impl.py", line 146, in _do_get
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\impl.py", line 143, in _do_get
+  File "sqlalchemy\pool\base.py", line 256, in _create_connection
+  File "sqlalchemy\pool\base.py", line 371, in __init__
+  File "sqlalchemy\pool\base.py", line 666, in __connect
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\base.py", line 661, in __connect
+  File "sqlalchemy\engine\create.py", line 578, in connect
+  File "sqlalchemy\engine\default.py", line 597, in connect
+sqlalchemy.exc.InterfaceError: (pyodbc.InterfaceError) ('IM002', '[IM002] [Microsoft][ODBC 驅動程式管理員] 找不到資料來源名稱且未指定預設的驅動程式 (0) (SQLDriverConnect)')
+(Background on this error at: https://sqlalche.me/e/14/rvf5)
+Traceback (most recent call last):
+  File "sqlalchemy\engine\base.py", line 3361, in _wrap_pool_connect
+  File "sqlalchemy\pool\base.py", line 310, in connect
+  File "sqlalchemy\pool\base.py", line 868, in _checkout
+  File "sqlalchemy\pool\base.py", line 476, in checkout
+  File "sqlalchemy\pool\impl.py", line 146, in _do_get
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\impl.py", line 143, in _do_get
+  File "sqlalchemy\pool\base.py", line 256, in _create_connection
+  File "sqlalchemy\pool\base.py", line 371, in __init__
+  File "sqlalchemy\pool\base.py", line 666, in __connect
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\base.py", line 661, in __connect
+  File "sqlalchemy\engine\create.py", line 578, in connect
+  File "sqlalchemy\engine\default.py", line 597, in connect
+pyodbc.InterfaceError: ('IM002', '[IM002] [Microsoft][ODBC 驅動程式管理員] 找不到資料來源名稱且未指定預設的驅動程式 (0) (SQLDriverConnect)')
+
+The above exception was the direct cause of the following exception:
+
+Traceback (most recent call last):
+  File "D-F.py", line 236, in CreateLogEngine
+  File "sqlalchemy\orm\query.py", line 2772, in all
+  File "sqlalchemy\orm\query.py", line 2910, in _iter
+  File "sqlalchemy\orm\session.py", line 1711, in execute
+  File "sqlalchemy\orm\session.py", line 1553, in _connection_for_bind
+  File "sqlalchemy\orm\session.py", line 747, in _connection_for_bind
+  File "sqlalchemy\engine\base.py", line 3315, in connect
+  File "sqlalchemy\engine\base.py", line 96, in __init__
+  File "sqlalchemy\engine\base.py", line 3394, in raw_connection
+  File "sqlalchemy\engine\base.py", line 3365, in _wrap_pool_connect
+  File "sqlalchemy\engine\base.py", line 2199, in _handle_dbapi_exception_noconnection
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\engine\base.py", line 3361, in _wrap_pool_connect
+  File "sqlalchemy\pool\base.py", line 310, in connect
+  File "sqlalchemy\pool\base.py", line 868, in _checkout
+  File "sqlalchemy\pool\base.py", line 476, in checkout
+  File "sqlalchemy\pool\impl.py", line 146, in _do_get
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\impl.py", line 143, in _do_get
+  File "sqlalchemy\pool\base.py", line 256, in _create_connection
+  File "sqlalchemy\pool\base.py", line 371, in __init__
+  File "sqlalchemy\pool\base.py", line 666, in __connect
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\base.py", line 661, in __connect
+  File "sqlalchemy\engine\create.py", line 578, in connect
+  File "sqlalchemy\engine\default.py", line 597, in connect
+sqlalchemy.exc.InterfaceError: (pyodbc.InterfaceError) ('IM002', '[IM002] [Microsoft][ODBC 驅動程式管理員] 找不到資料來源名稱且未指定預設的驅動程式 (0) (SQLDriverConnect)')
+(Background on this error at: https://sqlalche.me/e/14/rvf5)

GA-ERP-SYS/bin/Debug/myLog.log

@@ -0,0 +1,424 @@
+2024-05-31 15:06:14,100 INFO: info message
+Traceback (most recent call last):
+  File "sqlalchemy\engine\base.py", line 3361, in _wrap_pool_connect
+  File "sqlalchemy\pool\base.py", line 310, in connect
+  File "sqlalchemy\pool\base.py", line 868, in _checkout
+  File "sqlalchemy\pool\base.py", line 476, in checkout
+  File "sqlalchemy\pool\impl.py", line 146, in _do_get
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\impl.py", line 143, in _do_get
+  File "sqlalchemy\pool\base.py", line 256, in _create_connection
+  File "sqlalchemy\pool\base.py", line 371, in __init__
+  File "sqlalchemy\pool\base.py", line 666, in __connect
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\base.py", line 661, in __connect
+  File "sqlalchemy\engine\create.py", line 578, in connect
+  File "sqlalchemy\engine\default.py", line 597, in connect
+pyodbc.InterfaceError: ('IM002', '[IM002] [Microsoft][ODBC 驅動程式管理員] 找不到資料來源名稱且未指定預設的驅動程式 (0) (SQLDriverConnect)')
+
+The above exception was the direct cause of the following exception:
+
+Traceback (most recent call last):
+  File "D-F.py", line 121, in connectEngine
+  File "sqlalchemy\orm\query.py", line 2772, in all
+  File "sqlalchemy\orm\query.py", line 2910, in _iter
+  File "sqlalchemy\orm\session.py", line 1711, in execute
+  File "sqlalchemy\orm\session.py", line 1553, in _connection_for_bind
+  File "sqlalchemy\orm\session.py", line 747, in _connection_for_bind
+  File "sqlalchemy\engine\base.py", line 3315, in connect
+  File "sqlalchemy\engine\base.py", line 96, in __init__
+  File "sqlalchemy\engine\base.py", line 3394, in raw_connection
+  File "sqlalchemy\engine\base.py", line 3365, in _wrap_pool_connect
+  File "sqlalchemy\engine\base.py", line 2199, in _handle_dbapi_exception_noconnection
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\engine\base.py", line 3361, in _wrap_pool_connect
+  File "sqlalchemy\pool\base.py", line 310, in connect
+  File "sqlalchemy\pool\base.py", line 868, in _checkout
+  File "sqlalchemy\pool\base.py", line 476, in checkout
+  File "sqlalchemy\pool\impl.py", line 146, in _do_get
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\impl.py", line 143, in _do_get
+  File "sqlalchemy\pool\base.py", line 256, in _create_connection
+  File "sqlalchemy\pool\base.py", line 371, in __init__
+  File "sqlalchemy\pool\base.py", line 666, in __connect
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\base.py", line 661, in __connect
+  File "sqlalchemy\engine\create.py", line 578, in connect
+  File "sqlalchemy\engine\default.py", line 597, in connect
+sqlalchemy.exc.InterfaceError: (pyodbc.InterfaceError) ('IM002', '[IM002] [Microsoft][ODBC 驅動程式管理員] 找不到資料來源名稱且未指定預設的驅動程式 (0) (SQLDriverConnect)')
+(Background on this error at: https://sqlalche.me/e/14/rvf5)
+2024-05-31 15:06:14,107 WARNING: warning message
+Traceback (most recent call last):
+  File "sqlalchemy\engine\base.py", line 3361, in _wrap_pool_connect
+  File "sqlalchemy\pool\base.py", line 310, in connect
+  File "sqlalchemy\pool\base.py", line 868, in _checkout
+  File "sqlalchemy\pool\base.py", line 476, in checkout
+  File "sqlalchemy\pool\impl.py", line 146, in _do_get
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\impl.py", line 143, in _do_get
+  File "sqlalchemy\pool\base.py", line 256, in _create_connection
+  File "sqlalchemy\pool\base.py", line 371, in __init__
+  File "sqlalchemy\pool\base.py", line 666, in __connect
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\base.py", line 661, in __connect
+  File "sqlalchemy\engine\create.py", line 578, in connect
+  File "sqlalchemy\engine\default.py", line 597, in connect
+pyodbc.InterfaceError: ('IM002', '[IM002] [Microsoft][ODBC 驅動程式管理員] 找不到資料來源名稱且未指定預設的驅動程式 (0) (SQLDriverConnect)')
+
+The above exception was the direct cause of the following exception:
+
+Traceback (most recent call last):
+  File "D-F.py", line 121, in connectEngine
+  File "sqlalchemy\orm\query.py", line 2772, in all
+  File "sqlalchemy\orm\query.py", line 2910, in _iter
+  File "sqlalchemy\orm\session.py", line 1711, in execute
+  File "sqlalchemy\orm\session.py", line 1553, in _connection_for_bind
+  File "sqlalchemy\orm\session.py", line 747, in _connection_for_bind
+  File "sqlalchemy\engine\base.py", line 3315, in connect
+  File "sqlalchemy\engine\base.py", line 96, in __init__
+  File "sqlalchemy\engine\base.py", line 3394, in raw_connection
+  File "sqlalchemy\engine\base.py", line 3365, in _wrap_pool_connect
+  File "sqlalchemy\engine\base.py", line 2199, in _handle_dbapi_exception_noconnection
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\engine\base.py", line 3361, in _wrap_pool_connect
+  File "sqlalchemy\pool\base.py", line 310, in connect
+  File "sqlalchemy\pool\base.py", line 868, in _checkout
+  File "sqlalchemy\pool\base.py", line 476, in checkout
+  File "sqlalchemy\pool\impl.py", line 146, in _do_get
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\impl.py", line 143, in _do_get
+  File "sqlalchemy\pool\base.py", line 256, in _create_connection
+  File "sqlalchemy\pool\base.py", line 371, in __init__
+  File "sqlalchemy\pool\base.py", line 666, in __connect
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\base.py", line 661, in __connect
+  File "sqlalchemy\engine\create.py", line 578, in connect
+  File "sqlalchemy\engine\default.py", line 597, in connect
+sqlalchemy.exc.InterfaceError: (pyodbc.InterfaceError) ('IM002', '[IM002] [Microsoft][ODBC 驅動程式管理員] 找不到資料來源名稱且未指定預設的驅動程式 (0) (SQLDriverConnect)')
+(Background on this error at: https://sqlalche.me/e/14/rvf5)
+2024-05-31 15:06:14,114 ERROR: error message
+Traceback (most recent call last):
+  File "sqlalchemy\engine\base.py", line 3361, in _wrap_pool_connect
+  File "sqlalchemy\pool\base.py", line 310, in connect
+  File "sqlalchemy\pool\base.py", line 868, in _checkout
+  File "sqlalchemy\pool\base.py", line 476, in checkout
+  File "sqlalchemy\pool\impl.py", line 146, in _do_get
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\impl.py", line 143, in _do_get
+  File "sqlalchemy\pool\base.py", line 256, in _create_connection
+  File "sqlalchemy\pool\base.py", line 371, in __init__
+  File "sqlalchemy\pool\base.py", line 666, in __connect
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\base.py", line 661, in __connect
+  File "sqlalchemy\engine\create.py", line 578, in connect
+  File "sqlalchemy\engine\default.py", line 597, in connect
+pyodbc.InterfaceError: ('IM002', '[IM002] [Microsoft][ODBC 驅動程式管理員] 找不到資料來源名稱且未指定預設的驅動程式 (0) (SQLDriverConnect)')
+
+The above exception was the direct cause of the following exception:
+
+Traceback (most recent call last):
+  File "D-F.py", line 121, in connectEngine
+  File "sqlalchemy\orm\query.py", line 2772, in all
+  File "sqlalchemy\orm\query.py", line 2910, in _iter
+  File "sqlalchemy\orm\session.py", line 1711, in execute
+  File "sqlalchemy\orm\session.py", line 1553, in _connection_for_bind
+  File "sqlalchemy\orm\session.py", line 747, in _connection_for_bind
+  File "sqlalchemy\engine\base.py", line 3315, in connect
+  File "sqlalchemy\engine\base.py", line 96, in __init__
+  File "sqlalchemy\engine\base.py", line 3394, in raw_connection
+  File "sqlalchemy\engine\base.py", line 3365, in _wrap_pool_connect
+  File "sqlalchemy\engine\base.py", line 2199, in _handle_dbapi_exception_noconnection
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\engine\base.py", line 3361, in _wrap_pool_connect
+  File "sqlalchemy\pool\base.py", line 310, in connect
+  File "sqlalchemy\pool\base.py", line 868, in _checkout
+  File "sqlalchemy\pool\base.py", line 476, in checkout
+  File "sqlalchemy\pool\impl.py", line 146, in _do_get
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\impl.py", line 143, in _do_get
+  File "sqlalchemy\pool\base.py", line 256, in _create_connection
+  File "sqlalchemy\pool\base.py", line 371, in __init__
+  File "sqlalchemy\pool\base.py", line 666, in __connect
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\base.py", line 661, in __connect
+  File "sqlalchemy\engine\create.py", line 578, in connect
+  File "sqlalchemy\engine\default.py", line 597, in connect
+sqlalchemy.exc.InterfaceError: (pyodbc.InterfaceError) ('IM002', '[IM002] [Microsoft][ODBC 驅動程式管理員] 找不到資料來源名稱且未指定預設的驅動程式 (0) (SQLDriverConnect)')
+(Background on this error at: https://sqlalche.me/e/14/rvf5)
+2024-05-31 15:06:14,124 CRITICAL: critical message
+Traceback (most recent call last):
+  File "sqlalchemy\engine\base.py", line 3361, in _wrap_pool_connect
+  File "sqlalchemy\pool\base.py", line 310, in connect
+  File "sqlalchemy\pool\base.py", line 868, in _checkout
+  File "sqlalchemy\pool\base.py", line 476, in checkout
+  File "sqlalchemy\pool\impl.py", line 146, in _do_get
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\impl.py", line 143, in _do_get
+  File "sqlalchemy\pool\base.py", line 256, in _create_connection
+  File "sqlalchemy\pool\base.py", line 371, in __init__
+  File "sqlalchemy\pool\base.py", line 666, in __connect
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\base.py", line 661, in __connect
+  File "sqlalchemy\engine\create.py", line 578, in connect
+  File "sqlalchemy\engine\default.py", line 597, in connect
+pyodbc.InterfaceError: ('IM002', '[IM002] [Microsoft][ODBC 驅動程式管理員] 找不到資料來源名稱且未指定預設的驅動程式 (0) (SQLDriverConnect)')
+
+The above exception was the direct cause of the following exception:
+
+Traceback (most recent call last):
+  File "D-F.py", line 121, in connectEngine
+  File "sqlalchemy\orm\query.py", line 2772, in all
+  File "sqlalchemy\orm\query.py", line 2910, in _iter
+  File "sqlalchemy\orm\session.py", line 1711, in execute
+  File "sqlalchemy\orm\session.py", line 1553, in _connection_for_bind
+  File "sqlalchemy\orm\session.py", line 747, in _connection_for_bind
+  File "sqlalchemy\engine\base.py", line 3315, in connect
+  File "sqlalchemy\engine\base.py", line 96, in __init__
+  File "sqlalchemy\engine\base.py", line 3394, in raw_connection
+  File "sqlalchemy\engine\base.py", line 3365, in _wrap_pool_connect
+  File "sqlalchemy\engine\base.py", line 2199, in _handle_dbapi_exception_noconnection
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\engine\base.py", line 3361, in _wrap_pool_connect
+  File "sqlalchemy\pool\base.py", line 310, in connect
+  File "sqlalchemy\pool\base.py", line 868, in _checkout
+  File "sqlalchemy\pool\base.py", line 476, in checkout
+  File "sqlalchemy\pool\impl.py", line 146, in _do_get
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\impl.py", line 143, in _do_get
+  File "sqlalchemy\pool\base.py", line 256, in _create_connection
+  File "sqlalchemy\pool\base.py", line 371, in __init__
+  File "sqlalchemy\pool\base.py", line 666, in __connect
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\base.py", line 661, in __connect
+  File "sqlalchemy\engine\create.py", line 578, in connect
+  File "sqlalchemy\engine\default.py", line 597, in connect
+sqlalchemy.exc.InterfaceError: (pyodbc.InterfaceError) ('IM002', '[IM002] [Microsoft][ODBC 驅動程式管理員] 找不到資料來源名稱且未指定預設的驅動程式 (0) (SQLDriverConnect)')
+(Background on this error at: https://sqlalche.me/e/14/rvf5)
+2024-05-31 15:06:17,341 INFO: info message
+Traceback (most recent call last):
+  File "sqlalchemy\engine\base.py", line 3361, in _wrap_pool_connect
+  File "sqlalchemy\pool\base.py", line 310, in connect
+  File "sqlalchemy\pool\base.py", line 868, in _checkout
+  File "sqlalchemy\pool\base.py", line 476, in checkout
+  File "sqlalchemy\pool\impl.py", line 146, in _do_get
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\impl.py", line 143, in _do_get
+  File "sqlalchemy\pool\base.py", line 256, in _create_connection
+  File "sqlalchemy\pool\base.py", line 371, in __init__
+  File "sqlalchemy\pool\base.py", line 666, in __connect
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\base.py", line 661, in __connect
+  File "sqlalchemy\engine\create.py", line 578, in connect
+  File "sqlalchemy\engine\default.py", line 597, in connect
+pyodbc.InterfaceError: ('IM002', '[IM002] [Microsoft][ODBC 驅動程式管理員] 找不到資料來源名稱且未指定預設的驅動程式 (0) (SQLDriverConnect)')
+
+The above exception was the direct cause of the following exception:
+
+Traceback (most recent call last):
+  File "D-F.py", line 236, in CreateLogEngine
+  File "sqlalchemy\orm\query.py", line 2772, in all
+  File "sqlalchemy\orm\query.py", line 2910, in _iter
+  File "sqlalchemy\orm\session.py", line 1711, in execute
+  File "sqlalchemy\orm\session.py", line 1553, in _connection_for_bind
+  File "sqlalchemy\orm\session.py", line 747, in _connection_for_bind
+  File "sqlalchemy\engine\base.py", line 3315, in connect
+  File "sqlalchemy\engine\base.py", line 96, in __init__
+  File "sqlalchemy\engine\base.py", line 3394, in raw_connection
+  File "sqlalchemy\engine\base.py", line 3365, in _wrap_pool_connect
+  File "sqlalchemy\engine\base.py", line 2199, in _handle_dbapi_exception_noconnection
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\engine\base.py", line 3361, in _wrap_pool_connect
+  File "sqlalchemy\pool\base.py", line 310, in connect
+  File "sqlalchemy\pool\base.py", line 868, in _checkout
+  File "sqlalchemy\pool\base.py", line 476, in checkout
+  File "sqlalchemy\pool\impl.py", line 146, in _do_get
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\impl.py", line 143, in _do_get
+  File "sqlalchemy\pool\base.py", line 256, in _create_connection
+  File "sqlalchemy\pool\base.py", line 371, in __init__
+  File "sqlalchemy\pool\base.py", line 666, in __connect
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\base.py", line 661, in __connect
+  File "sqlalchemy\engine\create.py", line 578, in connect
+  File "sqlalchemy\engine\default.py", line 597, in connect
+sqlalchemy.exc.InterfaceError: (pyodbc.InterfaceError) ('IM002', '[IM002] [Microsoft][ODBC 驅動程式管理員] 找不到資料來源名稱且未指定預設的驅動程式 (0) (SQLDriverConnect)')
+(Background on this error at: https://sqlalche.me/e/14/rvf5)
+2024-05-31 15:06:17,348 WARNING: warning message
+Traceback (most recent call last):
+  File "sqlalchemy\engine\base.py", line 3361, in _wrap_pool_connect
+  File "sqlalchemy\pool\base.py", line 310, in connect
+  File "sqlalchemy\pool\base.py", line 868, in _checkout
+  File "sqlalchemy\pool\base.py", line 476, in checkout
+  File "sqlalchemy\pool\impl.py", line 146, in _do_get
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\impl.py", line 143, in _do_get
+  File "sqlalchemy\pool\base.py", line 256, in _create_connection
+  File "sqlalchemy\pool\base.py", line 371, in __init__
+  File "sqlalchemy\pool\base.py", line 666, in __connect
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\base.py", line 661, in __connect
+  File "sqlalchemy\engine\create.py", line 578, in connect
+  File "sqlalchemy\engine\default.py", line 597, in connect
+pyodbc.InterfaceError: ('IM002', '[IM002] [Microsoft][ODBC 驅動程式管理員] 找不到資料來源名稱且未指定預設的驅動程式 (0) (SQLDriverConnect)')
+
+The above exception was the direct cause of the following exception:
+
+Traceback (most recent call last):
+  File "D-F.py", line 236, in CreateLogEngine
+  File "sqlalchemy\orm\query.py", line 2772, in all
+  File "sqlalchemy\orm\query.py", line 2910, in _iter
+  File "sqlalchemy\orm\session.py", line 1711, in execute
+  File "sqlalchemy\orm\session.py", line 1553, in _connection_for_bind
+  File "sqlalchemy\orm\session.py", line 747, in _connection_for_bind
+  File "sqlalchemy\engine\base.py", line 3315, in connect
+  File "sqlalchemy\engine\base.py", line 96, in __init__
+  File "sqlalchemy\engine\base.py", line 3394, in raw_connection
+  File "sqlalchemy\engine\base.py", line 3365, in _wrap_pool_connect
+  File "sqlalchemy\engine\base.py", line 2199, in _handle_dbapi_exception_noconnection
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\engine\base.py", line 3361, in _wrap_pool_connect
+  File "sqlalchemy\pool\base.py", line 310, in connect
+  File "sqlalchemy\pool\base.py", line 868, in _checkout
+  File "sqlalchemy\pool\base.py", line 476, in checkout
+  File "sqlalchemy\pool\impl.py", line 146, in _do_get
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\impl.py", line 143, in _do_get
+  File "sqlalchemy\pool\base.py", line 256, in _create_connection
+  File "sqlalchemy\pool\base.py", line 371, in __init__
+  File "sqlalchemy\pool\base.py", line 666, in __connect
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\base.py", line 661, in __connect
+  File "sqlalchemy\engine\create.py", line 578, in connect
+  File "sqlalchemy\engine\default.py", line 597, in connect
+sqlalchemy.exc.InterfaceError: (pyodbc.InterfaceError) ('IM002', '[IM002] [Microsoft][ODBC 驅動程式管理員] 找不到資料來源名稱且未指定預設的驅動程式 (0) (SQLDriverConnect)')
+(Background on this error at: https://sqlalche.me/e/14/rvf5)
+2024-05-31 15:06:17,354 ERROR: error message
+Traceback (most recent call last):
+  File "sqlalchemy\engine\base.py", line 3361, in _wrap_pool_connect
+  File "sqlalchemy\pool\base.py", line 310, in connect
+  File "sqlalchemy\pool\base.py", line 868, in _checkout
+  File "sqlalchemy\pool\base.py", line 476, in checkout
+  File "sqlalchemy\pool\impl.py", line 146, in _do_get
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\impl.py", line 143, in _do_get
+  File "sqlalchemy\pool\base.py", line 256, in _create_connection
+  File "sqlalchemy\pool\base.py", line 371, in __init__
+  File "sqlalchemy\pool\base.py", line 666, in __connect
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\base.py", line 661, in __connect
+  File "sqlalchemy\engine\create.py", line 578, in connect
+  File "sqlalchemy\engine\default.py", line 597, in connect
+pyodbc.InterfaceError: ('IM002', '[IM002] [Microsoft][ODBC 驅動程式管理員] 找不到資料來源名稱且未指定預設的驅動程式 (0) (SQLDriverConnect)')
+
+The above exception was the direct cause of the following exception:
+
+Traceback (most recent call last):
+  File "D-F.py", line 236, in CreateLogEngine
+  File "sqlalchemy\orm\query.py", line 2772, in all
+  File "sqlalchemy\orm\query.py", line 2910, in _iter
+  File "sqlalchemy\orm\session.py", line 1711, in execute
+  File "sqlalchemy\orm\session.py", line 1553, in _connection_for_bind
+  File "sqlalchemy\orm\session.py", line 747, in _connection_for_bind
+  File "sqlalchemy\engine\base.py", line 3315, in connect
+  File "sqlalchemy\engine\base.py", line 96, in __init__
+  File "sqlalchemy\engine\base.py", line 3394, in raw_connection
+  File "sqlalchemy\engine\base.py", line 3365, in _wrap_pool_connect
+  File "sqlalchemy\engine\base.py", line 2199, in _handle_dbapi_exception_noconnection
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\engine\base.py", line 3361, in _wrap_pool_connect
+  File "sqlalchemy\pool\base.py", line 310, in connect
+  File "sqlalchemy\pool\base.py", line 868, in _checkout
+  File "sqlalchemy\pool\base.py", line 476, in checkout
+  File "sqlalchemy\pool\impl.py", line 146, in _do_get
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\impl.py", line 143, in _do_get
+  File "sqlalchemy\pool\base.py", line 256, in _create_connection
+  File "sqlalchemy\pool\base.py", line 371, in __init__
+  File "sqlalchemy\pool\base.py", line 666, in __connect
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\base.py", line 661, in __connect
+  File "sqlalchemy\engine\create.py", line 578, in connect
+  File "sqlalchemy\engine\default.py", line 597, in connect
+sqlalchemy.exc.InterfaceError: (pyodbc.InterfaceError) ('IM002', '[IM002] [Microsoft][ODBC 驅動程式管理員] 找不到資料來源名稱且未指定預設的驅動程式 (0) (SQLDriverConnect)')
+(Background on this error at: https://sqlalche.me/e/14/rvf5)
+2024-05-31 15:06:17,360 CRITICAL: critical message
+Traceback (most recent call last):
+  File "sqlalchemy\engine\base.py", line 3361, in _wrap_pool_connect
+  File "sqlalchemy\pool\base.py", line 310, in connect
+  File "sqlalchemy\pool\base.py", line 868, in _checkout
+  File "sqlalchemy\pool\base.py", line 476, in checkout
+  File "sqlalchemy\pool\impl.py", line 146, in _do_get
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\impl.py", line 143, in _do_get
+  File "sqlalchemy\pool\base.py", line 256, in _create_connection
+  File "sqlalchemy\pool\base.py", line 371, in __init__
+  File "sqlalchemy\pool\base.py", line 666, in __connect
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\base.py", line 661, in __connect
+  File "sqlalchemy\engine\create.py", line 578, in connect
+  File "sqlalchemy\engine\default.py", line 597, in connect
+pyodbc.InterfaceError: ('IM002', '[IM002] [Microsoft][ODBC 驅動程式管理員] 找不到資料來源名稱且未指定預設的驅動程式 (0) (SQLDriverConnect)')
+
+The above exception was the direct cause of the following exception:
+
+Traceback (most recent call last):
+  File "D-F.py", line 236, in CreateLogEngine
+  File "sqlalchemy\orm\query.py", line 2772, in all
+  File "sqlalchemy\orm\query.py", line 2910, in _iter
+  File "sqlalchemy\orm\session.py", line 1711, in execute
+  File "sqlalchemy\orm\session.py", line 1553, in _connection_for_bind
+  File "sqlalchemy\orm\session.py", line 747, in _connection_for_bind
+  File "sqlalchemy\engine\base.py", line 3315, in connect
+  File "sqlalchemy\engine\base.py", line 96, in __init__
+  File "sqlalchemy\engine\base.py", line 3394, in raw_connection
+  File "sqlalchemy\engine\base.py", line 3365, in _wrap_pool_connect
+  File "sqlalchemy\engine\base.py", line 2199, in _handle_dbapi_exception_noconnection
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\engine\base.py", line 3361, in _wrap_pool_connect
+  File "sqlalchemy\pool\base.py", line 310, in connect
+  File "sqlalchemy\pool\base.py", line 868, in _checkout
+  File "sqlalchemy\pool\base.py", line 476, in checkout
+  File "sqlalchemy\pool\impl.py", line 146, in _do_get
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\impl.py", line 143, in _do_get
+  File "sqlalchemy\pool\base.py", line 256, in _create_connection
+  File "sqlalchemy\pool\base.py", line 371, in __init__
+  File "sqlalchemy\pool\base.py", line 666, in __connect
+  File "sqlalchemy\util\langhelpers.py", line 72, in __exit__
+  File "sqlalchemy\util\compat.py", line 208, in raise_
+  File "sqlalchemy\pool\base.py", line 661, in __connect
+  File "sqlalchemy\engine\create.py", line 578, in connect
+  File "sqlalchemy\engine\default.py", line 597, in connect
+sqlalchemy.exc.InterfaceError: (pyodbc.InterfaceError) ('IM002', '[IM002] [Microsoft][ODBC 驅動程式管理員] 找不到資料來源名稱且未指定預設的驅動程式 (0) (SQLDriverConnect)')
+(Background on this error at: https://sqlalche.me/e/14/rvf5)

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

@@ -1 +1 @@
-5feaa67f439be7acb8512c489b32e58172beb2e4b4bea7140d52e83082114f70
+22aa52249166556ebb2c7253f14242b55d39e52b7c85368c812cfb2f6cedf0db

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

@@ -465,3 +465,4 @@ D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.GA_ERP
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.帳務資料筆數查看.resources
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.Up2Date
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.LINE_使用者管理表.resources
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.未抓到帳的清單.resources

GA-ERP-SYS/obj/Debug/GA-ERP-SYS.xml

@@ -232,23 +232,5 @@ GA-ERP-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
-<member name="M:GA_ERP_SYS.SQL_連線狀態模組.ConnectTest(System.String,System.Decimal)">
- <summary>
- 测试连接：True-连接成功，False-连接失败
- 参数[必选]：服务器IP
- 参数[可选]：等待超时时间（秒）,默认为1.2秒
- </summary>
- <returns></returns>
- <remarks></remarks>
-</member>
-<member name="M:GA_ERP_SYS.SQL_連線狀態模組1.Connect1Test(System.String,System.Decimal)">
- <summary>
- 测试连接：True-连接成功，False-连接失败
- 参数[必选]：服务器IP
- 参数[可选]：等待超时时间（秒）,默认为1.2秒
- </summary>
- <returns></returns>
- <remarks></remarks>
-</member>
 </members>
 </doc>

GA-ERP-SYS/基本資料管理/前台/電板基本資料.Designer.vb

@@ -1482,11 +1482,11 @@ Partial Class 電板基本資料
         '帳號驗證_bt
         '
         Me.帳號驗證_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.帳號驗證_bt.Location = New System.Drawing.Point(214, 11)
+        Me.帳號驗證_bt.Location = New System.Drawing.Point(136, 11)
         Me.帳號驗證_bt.Name = "帳號驗證_bt"
-        Me.帳號驗證_bt.Size = New System.Drawing.Size(57, 25)
+        Me.帳號驗證_bt.Size = New System.Drawing.Size(135, 25)
         Me.帳號驗證_bt.TabIndex = 1550
-        Me.帳號驗證_bt.Text = "開網站"
+        Me.帳號驗證_bt.Text = "開啟抓帳有問題的清單"
         Me.帳號驗證_bt.UseVisualStyleBackColor = True
         '
         '取消1_bt
@@ -1660,7 +1660,7 @@ Partial Class 電板基本資料
         '備用網址_ch
         '
         Me.備用網址_ch.AutoSize = True
-        Me.備用網址_ch.Location = New System.Drawing.Point(156, 14)
+        Me.備用網址_ch.Location = New System.Drawing.Point(106, 201)
         Me.備用網址_ch.Name = "備用網址_ch"
         Me.備用網址_ch.Size = New System.Drawing.Size(62, 20)
         Me.備用網址_ch.TabIndex = 1637

GA-ERP-SYS/基本資料管理/前台/電板基本資料.vb

@@ -801,25 +801,26 @@ Public Class 電板基本資料
         End If
     End Sub
     Private Sub 帳號驗證_bt_Click(sender As Object, e As EventArgs) Handles 帳號驗證_bt.Click
-        If 網址_tb.Text = "" Or 帳號_tb.Text = "" Or 密碼_tb.Text = "" Then
-            MsgBox("資料不齊全，無法開啟網站!!")
-        Else
-            If 備用網址_ch.Checked = False Then : PA15 = 網址_tb.Text : Else : PA15 = 備用網址1_tb.Text : End If : PA16 = 帳號_tb.Text : PA17 = 密碼_tb.Text
-            Dim Str2 As String = Application.StartupPath
-            If File.Exists("365.txt") Then : File.Delete("365.txt") : ElseIf File.Exists(Str2 & "\365.txt") Then : File.Delete(Str2 & "\365.txt") : End If
-            If File.Exists("101.txt") Then : File.Delete("101.txt") : ElseIf File.Exists(Str2 & "\101.txt") Then : File.Delete(Str2 & "\101.txt") : End If
-            Dim FilePath As String = ""
-            If 系統1_cb.Text = "365" Then : FilePath = "365.txt" : Else : FilePath = "101.txt" : End If
-            Try
-                Using fs As IO.FileStream = New IO.FileStream(FilePath, FileMode.Append)
-                    Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
-                        sw.Flush()
-                    End Using
-                End Using
-            Catch ex As Exception
-            End Try
-            MyModule1.PY應用模組_01()
-        End If
+        開始D = "%%" : 結束D = "%%" : 未抓到帳的清單.Show()
+        'If 網址_tb.Text = "" Or 帳號_tb.Text = "" Or 密碼_tb.Text = "" Then
+        '    MsgBox("資料不齊全，無法開啟網站!!")
+        'Else
+        '    If 備用網址_ch.Checked = False Then : PA15 = 網址_tb.Text : Else : PA15 = 備用網址1_tb.Text : End If : PA16 = 帳號_tb.Text : PA17 = 密碼_tb.Text
+        '    Dim Str2 As String = Application.StartupPath
+        '    If File.Exists("365.txt") Then : File.Delete("365.txt") : ElseIf File.Exists(Str2 & "\365.txt") Then : File.Delete(Str2 & "\365.txt") : End If
+        '    If File.Exists("101.txt") Then : File.Delete("101.txt") : ElseIf File.Exists(Str2 & "\101.txt") Then : File.Delete(Str2 & "\101.txt") : End If
+        '    Dim FilePath As String = ""
+        '    If 系統1_cb.Text = "365" Then : FilePath = "365.txt" : Else : FilePath = "101.txt" : End If
+        '    Try
+        '        Using fs As IO.FileStream = New IO.FileStream(FilePath, FileMode.Append)
+        '            Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
+        '                sw.Flush()
+        '            End Using
+        '        End Using
+        '    Catch ex As Exception
+        '    End Try
+        '    MyModule1.PY應用模組_01()
+        'End If
     End Sub
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
         SQL_自動導入判斷()

GA-ERP-SYS/報表系統管理/前台/未抓到帳的清單.Designer.vb

@@ -0,0 +1,135 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 未抓到帳的清單
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.LOG1_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.自動導入_bt = New System.Windows.Forms.Button()
+        CType(Me.LOG1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'LOG1_dgv
+        '
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.Silver
+        Me.LOG1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.LOG1_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.LOG1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.LOG1_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.LOG1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.LOG1_dgv.Location = New System.Drawing.Point(4, 1)
+        Me.LOG1_dgv.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.LOG1_dgv.Name = "LOG1_dgv"
+        Me.LOG1_dgv.RowHeadersWidth = 4
+        Me.LOG1_dgv.RowTemplate.Height = 24
+        Me.LOG1_dgv.Size = New System.Drawing.Size(255, 205)
+        Me.LOG1_dgv.TabIndex = 1545
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label1.Location = New System.Drawing.Point(266, 5)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(261, 20)
+        Me.Label1.TabIndex = 1546
+        Me.Label1.Text = "未抓到商品的帳務有以下三種原因 : "
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label2.Location = New System.Drawing.Point(266, 132)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(345, 40)
+        Me.Label2.TabIndex = 1547
+        Me.Label2.Text = "請選擇左邊的清單，重新按下  導入報表  來進行" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "重新抓取帳務"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label3.ForeColor = System.Drawing.Color.Red
+        Me.Label3.Location = New System.Drawing.Point(266, 27)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(306, 20)
+        Me.Label3.TabIndex = 1548
+        Me.Label3.Text = "1、網路不穩定，導致帳務抓取過程斷連。"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label4.Location = New System.Drawing.Point(266, 50)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(354, 80)
+        Me.Label4.TabIndex = 1549
+        Me.Label4.Text = "2、商品網址變更，導致系統找不到資料。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "3、帳號密碼錯誤，到置系統無法登入商品網站。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "除了第一種情況，其他兩種情況重新抓帳是抓" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "不下來的。"
+        '
+        '自動導入_bt
+        '
+        Me.自動導入_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.自動導入_bt.Location = New System.Drawing.Point(266, 174)
+        Me.自動導入_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.自動導入_bt.Name = "自動導入_bt"
+        Me.自動導入_bt.Size = New System.Drawing.Size(354, 28)
+        Me.自動導入_bt.TabIndex = 1626
+        Me.自動導入_bt.Text = "導入報表"
+        Me.自動導入_bt.UseVisualStyleBackColor = True
+        '
+        '未抓到帳的清單
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(625, 208)
+        Me.Controls.Add(Me.自動導入_bt)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.LOG1_dgv)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(4)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "未抓到帳的清單"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "未抓到帳的清單"
+        CType(Me.LOG1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents LOG1_dgv As DataGridView
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 自動導入_bt As Button
+End Class

GA-ERP-SYS/報表系統管理/前台/未抓到帳的清單.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>

GA-ERP-SYS/報表系統管理/前台/未抓到帳的清單.vb

@@ -0,0 +1,27 @@
+Public Class 未抓到帳的清單
+    Private Sub Set_須重讀_讀取()
+        Dim ds6 As New DataSet
+        LOG1_dgv.DataSource = Nothing : ds6.Clear()
+        LOG1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        LOG1_dgv.ColumnHeadersHeight = 25 : LOG1_dgv.AllowUserToAddRows = False
+        SQL_須重讀_讀取()
+        da.Fill(ds6) : LOG1_dgv.DataSource = ds6.Tables(0) : conn.Close()
+        LOG1_dgv.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+    End Sub
+    Private Sub 未抓到帳的清單_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    End Sub
+    Private Sub 未抓到帳的清單_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        Set_須重讀_讀取()
+    End Sub
+    Private Sub LOG1_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles LOG1_dgv.CellClick
+        If e.RowIndex = -1 Then : Else : 電板帳務明細查詢表.商品_cb.Text = LOG1_dgv.Rows(e.RowIndex).Cells(0).Value.ToString : End If
+    End Sub
+
+    Private Sub 自動導入_bt_Click(sender As Object, e As EventArgs) Handles 自動導入_bt.Click
+        If 電板帳務明細查詢表.商品_cb.Text = "" Then
+            MsgBox("請先選擇需要重新抓取帳務的商品!!")
+        Else
+            電板帳務明細查詢表.自動導入_bt.PerformClick()
+        End If
+    End Sub
+End Class

GA-ERP-SYS/報表系統管理/前台/電板LOG檔.vb

@@ -23,10 +23,13 @@ Public Class 電板LOG檔
         da.Fill(ds6) : LOG2_dgv.DataSource = ds6.Tables(0) : conn.Close()
         LOG2_dgv.Columns(0).FillWeight = 40 : LOG2_dgv.Columns(2).FillWeight = 45 : LOG2_dgv.Columns(3).FillWeight = 45 : LOG2_dgv.Columns(6).Visible = False
         LOG2_dgv.Columns(7).Visible = False : LOG2_dgv.Columns(8).Visible = False : LOG2_dgv.Columns(9).Visible = False : LOG2_dgv.Columns(10).Visible = False
-        LOG2_dgv.Columns(11).Visible = False : LOG2_dgv.Columns(12).FillWeight = 40 : LOG2_dgv.Columns(13).FillWeight = 40
+        LOG2_dgv.Columns(11).Visible = False : LOG2_dgv.Columns(12).FillWeight = 40 : LOG2_dgv.Columns(13).FillWeight = 40 : LOG2_dgv.Columns("商品1").Visible = False
         LOG2_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
         For I As Integer = 0 To LOG2_dgv.Rows.Count - 1
             LOG2_dgv.Rows(I).Cells("項次").Value = I + 1
+            If LOG2_dgv.Rows(I).Cells("商品").Value.ToString = "" Then
+                LOG2_dgv.Rows(I).Cells("商品").Value = LOG2_dgv.Rows(I).Cells("商品1").Value.ToString
+            End If
         Next
     End Sub
     Private Sub Set_基數下拉讀取1()
@@ -41,15 +44,20 @@ Public Class 電板LOG檔
         商品_tb.Enabled = False : 網址2_tb.Enabled = False : 編號_tb.Enabled = False : 帳號_tb.Enabled = False : 密碼_tb.Enabled = False
         備用網址_tb.Enabled = False : 備用網址1_tb.Enabled = False : 資料1_cb.Enabled = False : 取消_bt.Enabled = False : 上繳源_cb.Enabled = False
         存檔1_bt.Enabled = False : 取消1_bt.Enabled = False : 商品1_cb.Enabled = False : 下拉1_bt.Enabled = False : 存檔_bt.Enabled = False
-        Set_基數下拉讀取1() : SQL_查詢日期資料()
-        If dr.Read() Then
-            PA = dr("開始").ToString : PA1 = dr("結束").ToString
-        End If
-        Set_LOG1() : Set_LOG2()
-        If LOG1_dgv.Rows.Count = 0 And LOG2_dgv.Rows.Count = 0 Then
-            Me.Close()
-        End If
+    End Sub
+    Private Sub LOG檔_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        Set_基數下拉讀取1() : SQL_查詢日期資料() : If dr.Read() Then : PA = dr("開始").ToString : PA1 = dr("結束").ToString : End If
+        Set_LOG1() : Set_LOG2() : If LOG1_dgv.Rows.Count = 0 And LOG2_dgv.Rows.Count = 0 Then : Me.Close() : End If
         開始日期_dtp.Value = PA : 結束日期_dtp.Value = PA1
+        If LOG2_dgv.Rows.Count > 0 And 電板帳務明細查詢表.商品_cb.Text = "" Then
+            For i As Integer = 0 To LOG2_dgv.Rows.Count - 1
+                If LOG2_dgv.Rows(i).Cells("商品").Value.ToString = "" And LOG2_dgv.Rows(i).Cells("帳號").Value.ToString <> "" Then : Else
+                    PA2 = LOG2_dgv.Rows(i).Cells("商品").Value.ToString : PA3 = LOG2_dgv.Rows(i).Cells("帳號").Value.ToString : SQL_須重讀_寫入()
+                End If
+            Next
+        ElseIf LOG2_dgv.Rows.Count = 0 And 電板帳務明細查詢表.商品_cb.Text = "" Then : PA2 = "%%" : SQL_須重讀_刪除()
+        ElseIf LOG2_dgv.Rows.Count = 0 And 電板帳務明細查詢表.商品_cb.Text <> "" Then : PA2 = 電板帳務明細查詢表.商品_cb.Text : SQL_須重讀_刪除()
+        ElseIf LOG2_dgv.Rows.Count > 0 And 電板帳務明細查詢表.商品_cb.Text <> "" Then : End If
     End Sub
     Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
         If 不用WEB = True Then

GA-ERP-SYS/報表系統管理/前台/電板帳務明細查詢表.Designer.vb

@@ -23,12 +23,12 @@ Partial Class 電板帳務明細查詢表
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(電板帳務明細查詢表))
-        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 DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.流水帳_dgv = New System.Windows.Forms.DataGridView()
         Me.客戶下_dgv = New System.Windows.Forms.DataGridView()
         Me.日期_dgv = New System.Windows.Forms.DataGridView()
@@ -153,6 +153,7 @@ Partial Class 電板帳務明細查詢表
         Me.CanceL2_bt = New System.Windows.Forms.Button()
         Me.查筆數_bt = New System.Windows.Forms.Button()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.帳號驗證_bt = New System.Windows.Forms.Button()
         CType(Me.流水帳_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.客戶下_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.日期_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -190,8 +191,8 @@ Partial Class 電板帳務明細查詢表
         '
         '客戶下_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.客戶下_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.客戶下_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
         Me.客戶下_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.客戶下_dgv.Location = New System.Drawing.Point(7, 6)
         Me.客戶下_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
@@ -203,8 +204,8 @@ Partial Class 電板帳務明細查詢表
         '
         '日期_dgv
         '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.日期_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.日期_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
         Me.日期_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.日期_dgv.Location = New System.Drawing.Point(7, 127)
         Me.日期_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
@@ -302,7 +303,7 @@ Partial Class 電板帳務明細查詢表
         Me.資料_cb.Location = New System.Drawing.Point(6, 674)
         Me.資料_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.資料_cb.Name = "資料_cb"
-        Me.資料_cb.Size = New System.Drawing.Size(158, 24)
+        Me.資料_cb.Size = New System.Drawing.Size(62, 24)
         Me.資料_cb.TabIndex = 1573
         '
         '結束日期1_dtp
@@ -354,7 +355,7 @@ Partial Class 電板帳務明細查詢表
         '
         Me.進階控制_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.進階控制_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.進階控制_bt.Location = New System.Drawing.Point(384, 673)
+        Me.進階控制_bt.Location = New System.Drawing.Point(306, 673)
         Me.進階控制_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.進階控制_bt.Name = "進階控制_bt"
         Me.進階控制_bt.Size = New System.Drawing.Size(40, 26)
@@ -380,7 +381,7 @@ Partial Class 電板帳務明細查詢表
         '存檔_bt
         '
         Me.存檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.存檔_bt.Location = New System.Drawing.Point(164, 674)
+        Me.存檔_bt.Location = New System.Drawing.Point(72, 674)
         Me.存檔_bt.Name = "存檔_bt"
         Me.存檔_bt.Size = New System.Drawing.Size(64, 24)
         Me.存檔_bt.TabIndex = 1626
@@ -391,7 +392,7 @@ Partial Class 電板帳務明細查詢表
         '
         Me.R_bT.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.R_bT.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.R_bT.Location = New System.Drawing.Point(354, 674)
+        Me.R_bT.Location = New System.Drawing.Point(273, 674)
         Me.R_bT.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.R_bT.Name = "R_bT"
         Me.R_bT.Size = New System.Drawing.Size(25, 25)
@@ -406,7 +407,7 @@ Partial Class 電板帳務明細查詢表
         Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Red
         Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(284, 678)
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(196, 678)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
         Me.字體大小調整_lb.Size = New System.Drawing.Size(34, 17)
         Me.字體大小調整_lb.TabIndex = 1629
@@ -417,7 +418,7 @@ Partial Class 電板帳務明細查詢表
         Me.字體_NUD.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.字體_NUD.DecimalPlaces = 1
         Me.字體_NUD.Increment = New Decimal(New Integer() {1, 0, 0, 65536})
-        Me.字體_NUD.Location = New System.Drawing.Point(315, 675)
+        Me.字體_NUD.Location = New System.Drawing.Point(232, 675)
         Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 0, 0, 0})
         Me.字體_NUD.Minimum = New Decimal(New Integer() {6, 0, 0, 0})
         Me.字體_NUD.Name = "字體_NUD"
@@ -515,7 +516,7 @@ Partial Class 電板帳務明細查詢表
         '加總_tb
         '
         Me.加總_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.加總_tb.Location = New System.Drawing.Point(479, 673)
+        Me.加總_tb.Location = New System.Drawing.Point(401, 673)
         Me.加總_tb.Name = "加總_tb"
         Me.加總_tb.Size = New System.Drawing.Size(76, 23)
         Me.加總_tb.TabIndex = 1639
@@ -715,8 +716,8 @@ Partial Class 電板帳務明細查詢表
         Me.彙總_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.彙總_dgv.Name = "彙總_dgv"
         Me.彙總_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
         Me.彙總_dgv.RowTemplate.Height = 24
         Me.彙總_dgv.Size = New System.Drawing.Size(653, 578)
         Me.彙總_dgv.TabIndex = 1522
@@ -732,8 +733,8 @@ Partial Class 電板帳務明細查詢表
         Me.彙總1_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.彙總1_dgv.Name = "彙總1_dgv"
         Me.彙總1_dgv.RowHeadersWidth = 4
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.彙總1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle9.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.彙總1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle9
         Me.彙總1_dgv.RowTemplate.Height = 24
         Me.彙總1_dgv.Size = New System.Drawing.Size(653, 578)
         Me.彙總1_dgv.TabIndex = 1675
@@ -753,7 +754,7 @@ Partial Class 電板帳務明細查詢表
         '
         Me.應付_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.應付_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.應付_tb.Location = New System.Drawing.Point(848, 673)
+        Me.應付_tb.Location = New System.Drawing.Point(770, 673)
         Me.應付_tb.Name = "應付_tb"
         Me.應付_tb.Size = New System.Drawing.Size(80, 23)
         Me.應付_tb.TabIndex = 1658
@@ -764,7 +765,7 @@ Partial Class 電板帳務明細查詢表
         Me.應付_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.應付_lb.AutoSize = True
         Me.應付_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.應付_lb.Location = New System.Drawing.Point(790, 676)
+        Me.應付_lb.Location = New System.Drawing.Point(712, 676)
         Me.應付_lb.Name = "應付_lb"
         Me.應付_lb.RightToLeft = System.Windows.Forms.RightToLeft.No
         Me.應付_lb.Size = New System.Drawing.Size(55, 16)
@@ -775,7 +776,7 @@ Partial Class 電板帳務明細查詢表
         '
         Me.應收_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.應收_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.應收_tb.Location = New System.Drawing.Point(984, 673)
+        Me.應收_tb.Location = New System.Drawing.Point(906, 673)
         Me.應收_tb.Name = "應收_tb"
         Me.應收_tb.Size = New System.Drawing.Size(80, 23)
         Me.應收_tb.TabIndex = 1660
@@ -786,7 +787,7 @@ Partial Class 電板帳務明細查詢表
         Me.應收_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.應收_lb.AutoSize = True
         Me.應收_lb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.應收_lb.Location = New System.Drawing.Point(930, 676)
+        Me.應收_lb.Location = New System.Drawing.Point(852, 676)
         Me.應收_lb.Name = "應收_lb"
         Me.應收_lb.RightToLeft = System.Windows.Forms.RightToLeft.No
         Me.應收_lb.Size = New System.Drawing.Size(51, 16)
@@ -797,7 +798,7 @@ Partial Class 電板帳務明細查詢表
         '
         Me.所得_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.所得_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.所得_tb.Location = New System.Drawing.Point(1136, 673)
+        Me.所得_tb.Location = New System.Drawing.Point(1058, 673)
         Me.所得_tb.Name = "所得_tb"
         Me.所得_tb.Size = New System.Drawing.Size(80, 23)
         Me.所得_tb.TabIndex = 1662
@@ -808,7 +809,7 @@ Partial Class 電板帳務明細查詢表
         Me.Label13.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label13.AutoSize = True
         Me.Label13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label13.Location = New System.Drawing.Point(1066, 676)
+        Me.Label13.Location = New System.Drawing.Point(988, 676)
         Me.Label13.Name = "Label13"
         Me.Label13.Size = New System.Drawing.Size(67, 16)
         Me.Label13.TabIndex = 1663
@@ -818,7 +819,7 @@ Partial Class 電板帳務明細查詢表
         '
         Me.核帳_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.核帳_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.核帳_tb.Location = New System.Drawing.Point(1264, 673)
+        Me.核帳_tb.Location = New System.Drawing.Point(1186, 673)
         Me.核帳_tb.Name = "核帳_tb"
         Me.核帳_tb.Size = New System.Drawing.Size(80, 23)
         Me.核帳_tb.TabIndex = 1664
@@ -829,7 +830,7 @@ Partial Class 電板帳務明細查詢表
         Me.Label14.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label14.AutoSize = True
         Me.Label14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label14.Location = New System.Drawing.Point(1218, 676)
+        Me.Label14.Location = New System.Drawing.Point(1140, 676)
         Me.Label14.Name = "Label14"
         Me.Label14.Size = New System.Drawing.Size(43, 16)
         Me.Label14.TabIndex = 1665
@@ -839,7 +840,7 @@ Partial Class 電板帳務明細查詢表
         '
         Me.商品_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.商品_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.商品_tb.Location = New System.Drawing.Point(592, 673)
+        Me.商品_tb.Location = New System.Drawing.Point(514, 673)
         Me.商品_tb.Name = "商品_tb"
         Me.商品_tb.Size = New System.Drawing.Size(80, 23)
         Me.商品_tb.TabIndex = 1666
@@ -850,7 +851,7 @@ Partial Class 電板帳務明細查詢表
         Me.Label15.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label15.AutoSize = True
         Me.Label15.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label15.Location = New System.Drawing.Point(558, 676)
+        Me.Label15.Location = New System.Drawing.Point(480, 676)
         Me.Label15.Name = "Label15"
         Me.Label15.RightToLeft = System.Windows.Forms.RightToLeft.Yes
         Me.Label15.Size = New System.Drawing.Size(31, 16)
@@ -861,7 +862,7 @@ Partial Class 電板帳務明細查詢表
         '
         Me.帳戶_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.帳戶_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.帳戶_tb.Location = New System.Drawing.Point(708, 673)
+        Me.帳戶_tb.Location = New System.Drawing.Point(630, 673)
         Me.帳戶_tb.Name = "帳戶_tb"
         Me.帳戶_tb.Size = New System.Drawing.Size(80, 23)
         Me.帳戶_tb.TabIndex = 1668
@@ -872,7 +873,7 @@ Partial Class 電板帳務明細查詢表
         Me.Label17.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label17.AutoSize = True
         Me.Label17.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label17.Location = New System.Drawing.Point(674, 676)
+        Me.Label17.Location = New System.Drawing.Point(596, 676)
         Me.Label17.Name = "Label17"
         Me.Label17.Size = New System.Drawing.Size(31, 16)
         Me.Label17.TabIndex = 1669
@@ -956,8 +957,8 @@ Partial Class 電板帳務明細查詢表
         '
         '網址修正_dgv
         '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.網址修正_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.網址修正_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
         Me.網址修正_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1271,7 +1272,7 @@ Partial Class 電板帳務明細查詢表
         '
         Me.LOG檔開啟_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.LOG檔開啟_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.LOG檔開啟_bt.Location = New System.Drawing.Point(228, 674)
+        Me.LOG檔開啟_bt.Location = New System.Drawing.Point(139, 674)
         Me.LOG檔開啟_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.LOG檔開啟_bt.Name = "LOG檔開啟_bt"
         Me.LOG檔開啟_bt.Size = New System.Drawing.Size(54, 24)
@@ -1283,7 +1284,7 @@ Partial Class 電板帳務明細查詢表
         '
         Me.Label19.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.Label19.AutoSize = True
-        Me.Label19.Location = New System.Drawing.Point(422, 677)
+        Me.Label19.Location = New System.Drawing.Point(344, 677)
         Me.Label19.Name = "Label19"
         Me.Label19.Size = New System.Drawing.Size(55, 16)
         Me.Label19.TabIndex = 1681
@@ -1489,15 +1490,27 @@ Partial Class 電板帳務明細查詢表
         Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.PictureBox1.Location = New System.Drawing.Point(3, 673)
         Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(380, 26)
+        Me.PictureBox1.Size = New System.Drawing.Size(300, 26)
         Me.PictureBox1.TabIndex = 1623
         Me.PictureBox1.TabStop = False
         '
+        '帳號驗證_bt
+        '
+        Me.帳號驗證_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.帳號驗證_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.帳號驗證_bt.Location = New System.Drawing.Point(1268, 671)
+        Me.帳號驗證_bt.Name = "帳號驗證_bt"
+        Me.帳號驗證_bt.Size = New System.Drawing.Size(73, 25)
+        Me.帳號驗證_bt.TabIndex = 1894
+        Me.帳號驗證_bt.Text = "異常清單"
+        Me.帳號驗證_bt.UseVisualStyleBackColor = True
+        '
         '電板帳務明細查詢表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1350, 701)
+        Me.Controls.Add(Me.帳號驗證_bt)
         Me.Controls.Add(Me.查筆數_bt)
         Me.Controls.Add(Me.迦納彩_ch)
         Me.Controls.Add(Me.加州彩_ch)
@@ -1734,4 +1747,5 @@ Partial Class 電板帳務明細查詢表
     Friend WithEvents CanceL2_bt As Button
     Friend WithEvents 存檔1_bt As Button
     Friend WithEvents 查筆數_bt As Button
+    Friend WithEvents 帳號驗證_bt As Button
 End Class

GA-ERP-SYS/報表系統管理/前台/電板帳務明細查詢表.resx

@@ -133,6 +133,6 @@
     <value>244, 5</value>
   </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>33</value>
+    <value>25</value>
   </metadata>
 </root>

GA-ERP-SYS/報表系統管理/前台/電板帳務明細查詢表.vb

@@ -971,7 +971,7 @@ Public Class 電板帳務明細查詢表
                 ElseIf Strings.Left(Text, 3) = "YES" Then : End If
             Else : 系統公告.ShowDialog() : End If
         End If : 首次登入 = False
-        Set_自定義商品導出正負反()
+        Set_自定義商品導出正負反() : SQL_須重讀_讀取1() : If dr.Read Then : 未抓到帳的清單.Show() : End If
     End Sub
     Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
         If 不用WEB = True Then
@@ -1489,9 +1489,7 @@ Public Class 電板帳務明細查詢表
                                         sw.Flush()
                                     End Using
                                 End Using
-                            Catch ex As Exception
-                            End Try
-                            Timer1.Enabled = True
+                            Catch ex As Exception : End Try : Timer1.Enabled = True
                         End If
                     End If
                 Else : MsgBox("沒有需要重新導入的網址與帳號!!") : Me.Enabled = True : End If
@@ -1499,7 +1497,7 @@ Public Class 電板帳務明細查詢表
         End If : Me.Enabled = True
     End Sub
     Private Sub 自動導入_bt_Click(sender As Object, e As EventArgs) Handles 自動導入_bt.Click
-        減輕計算 = False
+        減輕計算 = False : 未抓到帳的清單.Close()
         If 商品_cb.Text <> "" Or 商品_cb.Text <> "" Or 商品_cb.Text <> "" Then : 自動導入() : Else : 自動導入() : End If
     End Sub
     Private Sub 自動導入啟動_全導()
@@ -1533,7 +1531,7 @@ Public Class 電板帳務明細查詢表
                 Timer1.Enabled = False
                 電板LOG檔.ShowDialog() : SQL_SQL_自動導入判斷_關閉() : SQL_查詢日期清空() : SQL_商客資料暫存檔_刪除() : Set_日期清單()
                 存檔()
-
+                SQL_須重讀_讀取1() : If dr.Read Then : 未抓到帳的清單.Show() : End If
                 Dim SS As Integer : PA10 = "" : PA11 = "" : PA12 = "" : PA13 = ""
                 SQL_LOG流水()
                 If dr.Read() Then : SS = dr("項") : Else : SS = 0 : End If
@@ -1869,6 +1867,9 @@ Public Class 電板帳務明細查詢表
     Private Sub 查筆數_bt_Click(sender As Object, e As EventArgs) Handles 查筆數_bt.Click
         If 資料_cb.Text = "" Then : Else : 帳務資料筆數查看.Show() : End If
     End Sub
+    Private Sub 帳號驗證_bt_Click(sender As Object, e As EventArgs) Handles 帳號驗證_bt.Click
+        未抓到帳的清單.Show()
+    End Sub
     Private Sub 說明_bt_Click(sender As Object, e As EventArgs) Handles 說明_bt.Click
         公告項目 = "自定義報表" : 系統公告.ShowDialog()
     End Sub

GA-ERP-SYS/報表系統管理/進度條視窗.vb

@@ -1,18 +1,4 @@
 Public Class 進度條視窗
     Private Sub 進度條視窗_Load(sender As Object, e As EventArgs) Handles MyBase.Load
     End Sub
-    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
-        If 不用WEB = True Then
-            timeNow = 0 : GA_ERP_SYS_Old.Timer2.Enabled = False : GA_ERP_SYS_Old.Timer2.Enabled = True
-        Else
-            timeNow = 0 : GA_ERP_SYS.Timer2.Enabled = False : GA_ERP_SYS.Timer2.Enabled = True
-        End If
-    End Sub
-    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
-        If 不用WEB = True Then
-            timeNow = 0 : GA_ERP_SYS_Old.Timer2.Enabled = False : GA_ERP_SYS_Old.Timer2.Enabled = True
-        Else
-            timeNow = 0 : GA_ERP_SYS.Timer2.Enabled = False : GA_ERP_SYS.Timer2.Enabled = True
-        End If
-    End Sub
 End Class

GA-ERP-SYS/資料庫系統管理/系統使用者管理.vb

@@ -85,7 +85,9 @@ Public Class 系統使用者管理
                 姓名_tb.Text = 使用者清單_dgv.Rows(e.RowIndex).Cells("姓名").Value : 帳號_tb.Text = 使用者清單_dgv.Rows(e.RowIndex).Cells("帳號").Value
                 密碼_tb.Text = 使用者清單_dgv.Rows(e.RowIndex).Cells("密碼").Value : 主客戶_cb.Text = 使用者清單_dgv.Rows(e.RowIndex).Cells("主客戶").Value
                 備註_tb.Text = 使用者清單_dgv.Rows(e.RowIndex).Cells("備註").Value : 登入_tb.Text = 使用者清單_dgv.Rows(e.RowIndex).Cells("登入時間").Value.ToString
-                舊版_ch.Checked = 使用者清單_dgv.Rows(e.RowIndex).Cells("舊版").Value
+                If IsDBNull(使用者清單_dgv.Rows(e.RowIndex).Cells("舊版").Value) = True Then
+                    使用者清單_dgv.Rows(e.RowIndex).Cells("舊版").Value = False
+                End If : 舊版_ch.Checked = 使用者清單_dgv.Rows(e.RowIndex).Cells("舊版").Value
                 If 使用者清單_dgv.Rows(e.RowIndex).Cells("到期日").Value = "" Then : Else
                     到期日_dtp.Value = 使用者清單_dgv.Rows(e.RowIndex).Cells("到期日").Value
                 End If

GA-ERP-SYS/資料庫系統管理/系統編碼規則.Designer.vb

@@ -24,8 +24,12 @@ Partial Class 系統編碼規則
     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()
         Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+        Me.Label19 = New System.Windows.Forms.Label()
+        Me.帳號數量_l = New System.Windows.Forms.Label()
+        Me.計算數量_tb = New System.Windows.Forms.TextBox()
+        Me.帳號數量_tb = New System.Windows.Forms.TextBox()
+        Me.國外伺服器_ch = New System.Windows.Forms.CheckBox()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.密碼3_tb = New System.Windows.Forms.TextBox()
         Me.Label15 = New System.Windows.Forms.Label()
@@ -47,42 +51,9 @@ Partial Class 系統編碼規則
         Me.客戶表刪除_bt = New System.Windows.Forms.Button()
         Me.客戶名_tb = New System.Windows.Forms.TextBox()
         Me.Label5 = New System.Windows.Forms.Label()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.LOG資料庫_tb = New System.Windows.Forms.TextBox()
-        Me.Label2 = New System.Windows.Forms.Label()
-        Me.IP_tb = New System.Windows.Forms.TextBox()
-        Me.Label4 = New System.Windows.Forms.Label()
-        Me.帳號_tb = New System.Windows.Forms.TextBox()
-        Me.Label7 = New System.Windows.Forms.Label()
-        Me.密碼_tb = New System.Windows.Forms.TextBox()
-        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
-        Me.LOG資料庫修正_bt = New System.Windows.Forms.Button()
-        Me.LOG總_dgv = New System.Windows.Forms.DataGridView()
-        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
-        Me.比對_bt = New System.Windows.Forms.Button()
-        Me.Label8 = New System.Windows.Forms.Label()
-        Me.Label9 = New System.Windows.Forms.Label()
-        Me.LOG資料庫1_tb = New System.Windows.Forms.TextBox()
-        Me.密碼1_tb = New System.Windows.Forms.TextBox()
-        Me.IP1_tb = New System.Windows.Forms.TextBox()
-        Me.Label10 = New System.Windows.Forms.Label()
-        Me.Label11 = New System.Windows.Forms.Label()
-        Me.帳號1_tb = New System.Windows.Forms.TextBox()
         Me.LOG子_dgv = New System.Windows.Forms.DataGridView()
-        Me.批量比對_bt = New System.Windows.Forms.Button()
-        Me.刪除LOG檔_bt = New System.Windows.Forms.Button()
-        Me.Label17 = New System.Windows.Forms.Label()
-        Me.Label18 = New System.Windows.Forms.Label()
-        Me.國外伺服器_ch = New System.Windows.Forms.CheckBox()
-        Me.Label19 = New System.Windows.Forms.Label()
-        Me.帳號數量_l = New System.Windows.Forms.Label()
-        Me.計算數量_tb = New System.Windows.Forms.TextBox()
-        Me.帳號數量_tb = New System.Windows.Forms.TextBox()
         Me.GroupBox3.SuspendLayout()
         CType(Me.客戶資料表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.GroupBox1.SuspendLayout()
-        CType(Me.LOG總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.GroupBox2.SuspendLayout()
         CType(Me.LOG子_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -117,15 +88,59 @@ Partial Class 系統編碼規則
         Me.GroupBox3.Controls.Add(Me.客戶表刪除_bt)
         Me.GroupBox3.Controls.Add(Me.客戶名_tb)
         Me.GroupBox3.Controls.Add(Me.Label5)
-        Me.GroupBox3.Location = New System.Drawing.Point(12, -1)
+        Me.GroupBox3.Location = New System.Drawing.Point(-1, -1)
         Me.GroupBox3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.GroupBox3.Name = "GroupBox3"
         Me.GroupBox3.Padding = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.GroupBox3.Size = New System.Drawing.Size(1254, 335)
+        Me.GroupBox3.Size = New System.Drawing.Size(1274, 583)
         Me.GroupBox3.TabIndex = 1500
         Me.GroupBox3.TabStop = False
         Me.GroupBox3.Text = "客戶資料表"
         '
+        'Label19
+        '
+        Me.Label19.AutoSize = True
+        Me.Label19.Location = New System.Drawing.Point(1071, 42)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(55, 16)
+        Me.Label19.TabIndex = 1523
+        Me.Label19.Text = "計算數量"
+        '
+        '帳號數量_l
+        '
+        Me.帳號數量_l.AutoSize = True
+        Me.帳號數量_l.Location = New System.Drawing.Point(1071, 19)
+        Me.帳號數量_l.Name = "帳號數量_l"
+        Me.帳號數量_l.Size = New System.Drawing.Size(55, 16)
+        Me.帳號數量_l.TabIndex = 1524
+        Me.帳號數量_l.Text = "帳號數量"
+        '
+        '計算數量_tb
+        '
+        Me.計算數量_tb.Location = New System.Drawing.Point(1133, 38)
+        Me.計算數量_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.計算數量_tb.Name = "計算數量_tb"
+        Me.計算數量_tb.Size = New System.Drawing.Size(69, 23)
+        Me.計算數量_tb.TabIndex = 1521
+        '
+        '帳號數量_tb
+        '
+        Me.帳號數量_tb.Location = New System.Drawing.Point(1133, 14)
+        Me.帳號數量_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.帳號數量_tb.Name = "帳號數量_tb"
+        Me.帳號數量_tb.Size = New System.Drawing.Size(69, 23)
+        Me.帳號數量_tb.TabIndex = 1522
+        '
+        '國外伺服器_ch
+        '
+        Me.國外伺服器_ch.AutoSize = True
+        Me.國外伺服器_ch.Location = New System.Drawing.Point(965, 41)
+        Me.國外伺服器_ch.Name = "國外伺服器_ch"
+        Me.國外伺服器_ch.Size = New System.Drawing.Size(86, 20)
+        Me.國外伺服器_ch.TabIndex = 1520
+        Me.國外伺服器_ch.Text = "國外伺服器"
+        Me.國外伺服器_ch.UseVisualStyleBackColor = True
+        '
         'Label3
         '
         Me.Label3.AutoSize = True
@@ -254,13 +269,14 @@ Partial Class 系統編碼規則
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.客戶資料表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.客戶資料表_dgv.BackgroundColor = System.Drawing.Color.White
         Me.客戶資料表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.客戶資料表_dgv.Location = New System.Drawing.Point(4, 64)
         Me.客戶資料表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.客戶資料表_dgv.Name = "客戶資料表_dgv"
         Me.客戶資料表_dgv.RowHeadersWidth = 5
         Me.客戶資料表_dgv.RowTemplate.Height = 24
-        Me.客戶資料表_dgv.Size = New System.Drawing.Size(1245, 267)
+        Me.客戶資料表_dgv.Size = New System.Drawing.Size(1265, 515)
         Me.客戶資料表_dgv.TabIndex = 222
         '
         '客戶表修改_bt
@@ -325,339 +341,29 @@ Partial Class 系統編碼規則
         Me.Label5.TabIndex = 231
         Me.Label5.Text = "客    戶"
         '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(6, 16)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(92, 16)
-        Me.Label1.TabIndex = 1502
-        Me.Label1.Text = "LOG檔案資料庫"
-        '
-        'LOG資料庫_tb
-        '
-        Me.LOG資料庫_tb.Location = New System.Drawing.Point(99, 13)
-        Me.LOG資料庫_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.LOG資料庫_tb.Name = "LOG資料庫_tb"
-        Me.LOG資料庫_tb.Size = New System.Drawing.Size(119, 23)
-        Me.LOG資料庫_tb.TabIndex = 1501
-        '
-        'Label2
-        '
-        Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(221, 16)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(41, 16)
-        Me.Label2.TabIndex = 1504
-        Me.Label2.Text = "IP位置"
-        '
-        'IP_tb
-        '
-        Me.IP_tb.Location = New System.Drawing.Point(263, 13)
-        Me.IP_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.IP_tb.Name = "IP_tb"
-        Me.IP_tb.Size = New System.Drawing.Size(205, 23)
-        Me.IP_tb.TabIndex = 1503
-        '
-        'Label4
-        '
-        Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(471, 16)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(31, 16)
-        Me.Label4.TabIndex = 1506
-        Me.Label4.Text = "帳號"
-        '
-        '帳號_tb
-        '
-        Me.帳號_tb.Location = New System.Drawing.Point(503, 12)
-        Me.帳號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.帳號_tb.Name = "帳號_tb"
-        Me.帳號_tb.Size = New System.Drawing.Size(103, 23)
-        Me.帳號_tb.TabIndex = 1505
-        '
-        'Label7
-        '
-        Me.Label7.AutoSize = True
-        Me.Label7.Location = New System.Drawing.Point(609, 16)
-        Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(31, 16)
-        Me.Label7.TabIndex = 1508
-        Me.Label7.Text = "密碼"
-        '
-        '密碼_tb
-        '
-        Me.密碼_tb.Location = New System.Drawing.Point(640, 12)
-        Me.密碼_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.密碼_tb.Name = "密碼_tb"
-        Me.密碼_tb.Size = New System.Drawing.Size(114, 23)
-        Me.密碼_tb.TabIndex = 1507
-        '
-        'GroupBox1
-        '
-        Me.GroupBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.GroupBox1.Controls.Add(Me.LOG資料庫修正_bt)
-        Me.GroupBox1.Controls.Add(Me.Label1)
-        Me.GroupBox1.Controls.Add(Me.LOG資料庫_tb)
-        Me.GroupBox1.Controls.Add(Me.密碼_tb)
-        Me.GroupBox1.Controls.Add(Me.IP_tb)
-        Me.GroupBox1.Controls.Add(Me.Label4)
-        Me.GroupBox1.Controls.Add(Me.Label2)
-        Me.GroupBox1.Controls.Add(Me.帳號_tb)
-        Me.GroupBox1.Controls.Add(Me.Label7)
-        Me.GroupBox1.Location = New System.Drawing.Point(8, 338)
-        Me.GroupBox1.Name = "GroupBox1"
-        Me.GroupBox1.Size = New System.Drawing.Size(818, 42)
-        Me.GroupBox1.TabIndex = 1509
-        Me.GroupBox1.TabStop = False
-        Me.GroupBox1.Text = "LOG總資料庫"
-        '
-        'LOG資料庫修正_bt
-        '
-        Me.LOG資料庫修正_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.LOG資料庫修正_bt.ForeColor = System.Drawing.Color.DarkGreen
-        Me.LOG資料庫修正_bt.Location = New System.Drawing.Point(757, 11)
-        Me.LOG資料庫修正_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.LOG資料庫修正_bt.Name = "LOG資料庫修正_bt"
-        Me.LOG資料庫修正_bt.Size = New System.Drawing.Size(57, 25)
-        Me.LOG資料庫修正_bt.TabIndex = 1510
-        Me.LOG資料庫修正_bt.Text = "修改"
-        Me.LOG資料庫修正_bt.UseVisualStyleBackColor = True
-        '
-        'LOG總_dgv
-        '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.LOG總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
-        Me.LOG總_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.LOG總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.LOG總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.LOG總_dgv.Location = New System.Drawing.Point(8, 418)
-        Me.LOG總_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.LOG總_dgv.Name = "LOG總_dgv"
-        Me.LOG總_dgv.RowHeadersWidth = 5
-        Me.LOG總_dgv.RowTemplate.Height = 24
-        Me.LOG總_dgv.Size = New System.Drawing.Size(1258, 164)
-        Me.LOG總_dgv.TabIndex = 1510
-        '
-        'GroupBox2
-        '
-        Me.GroupBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.GroupBox2.Controls.Add(Me.比對_bt)
-        Me.GroupBox2.Controls.Add(Me.Label8)
-        Me.GroupBox2.Controls.Add(Me.Label9)
-        Me.GroupBox2.Controls.Add(Me.LOG資料庫1_tb)
-        Me.GroupBox2.Controls.Add(Me.密碼1_tb)
-        Me.GroupBox2.Controls.Add(Me.IP1_tb)
-        Me.GroupBox2.Controls.Add(Me.Label10)
-        Me.GroupBox2.Controls.Add(Me.Label11)
-        Me.GroupBox2.Controls.Add(Me.帳號1_tb)
-        Me.GroupBox2.Location = New System.Drawing.Point(8, 376)
-        Me.GroupBox2.Name = "GroupBox2"
-        Me.GroupBox2.Size = New System.Drawing.Size(818, 42)
-        Me.GroupBox2.TabIndex = 1511
-        Me.GroupBox2.TabStop = False
-        Me.GroupBox2.Text = "LOG客戶資料庫"
-        '
-        '比對_bt
-        '
-        Me.比對_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.比對_bt.ForeColor = System.Drawing.Color.DarkGreen
-        Me.比對_bt.Location = New System.Drawing.Point(758, 12)
-        Me.比對_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.比對_bt.Name = "比對_bt"
-        Me.比對_bt.Size = New System.Drawing.Size(56, 25)
-        Me.比對_bt.TabIndex = 1512
-        Me.比對_bt.Text = "比對"
-        Me.比對_bt.UseVisualStyleBackColor = True
-        '
-        'Label8
-        '
-        Me.Label8.AutoSize = True
-        Me.Label8.Location = New System.Drawing.Point(6, 17)
-        Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(92, 16)
-        Me.Label8.TabIndex = 1502
-        Me.Label8.Text = "LOG檔案資料庫"
-        '
-        'Label9
-        '
-        Me.Label9.AutoSize = True
-        Me.Label9.Location = New System.Drawing.Point(609, 17)
-        Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(31, 16)
-        Me.Label9.TabIndex = 1508
-        Me.Label9.Text = "密碼"
-        '
-        'LOG資料庫1_tb
-        '
-        Me.LOG資料庫1_tb.Location = New System.Drawing.Point(99, 14)
-        Me.LOG資料庫1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.LOG資料庫1_tb.Name = "LOG資料庫1_tb"
-        Me.LOG資料庫1_tb.Size = New System.Drawing.Size(119, 23)
-        Me.LOG資料庫1_tb.TabIndex = 1501
-        '
-        '密碼1_tb
-        '
-        Me.密碼1_tb.Location = New System.Drawing.Point(641, 13)
-        Me.密碼1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.密碼1_tb.Name = "密碼1_tb"
-        Me.密碼1_tb.Size = New System.Drawing.Size(114, 23)
-        Me.密碼1_tb.TabIndex = 1507
-        '
-        'IP1_tb
-        '
-        Me.IP1_tb.Location = New System.Drawing.Point(263, 14)
-        Me.IP1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.IP1_tb.Name = "IP1_tb"
-        Me.IP1_tb.Size = New System.Drawing.Size(205, 23)
-        Me.IP1_tb.TabIndex = 1503
-        '
-        'Label10
-        '
-        Me.Label10.AutoSize = True
-        Me.Label10.Location = New System.Drawing.Point(470, 17)
-        Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(31, 16)
-        Me.Label10.TabIndex = 1506
-        Me.Label10.Text = "帳號"
-        '
-        'Label11
-        '
-        Me.Label11.AutoSize = True
-        Me.Label11.Location = New System.Drawing.Point(221, 17)
-        Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(41, 16)
-        Me.Label11.TabIndex = 1504
-        Me.Label11.Text = "IP位置"
-        '
-        '帳號1_tb
-        '
-        Me.帳號1_tb.Location = New System.Drawing.Point(503, 13)
-        Me.帳號1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.帳號1_tb.Name = "帳號1_tb"
-        Me.帳號1_tb.Size = New System.Drawing.Size(103, 23)
-        Me.帳號1_tb.TabIndex = 1505
-        '
         'LOG子_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.LOG子_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.LOG子_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         Me.LOG子_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.LOG子_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.LOG子_dgv.BackgroundColor = System.Drawing.Color.White
         Me.LOG子_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.LOG子_dgv.Location = New System.Drawing.Point(8, 581)
+        Me.LOG子_dgv.Location = New System.Drawing.Point(3, 581)
         Me.LOG子_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.LOG子_dgv.Name = "LOG子_dgv"
         Me.LOG子_dgv.RowHeadersWidth = 5
         Me.LOG子_dgv.RowTemplate.Height = 24
-        Me.LOG子_dgv.Size = New System.Drawing.Size(1258, 164)
+        Me.LOG子_dgv.Size = New System.Drawing.Size(1265, 164)
         Me.LOG子_dgv.TabIndex = 1512
         '
-        '批量比對_bt
-        '
-        Me.批量比對_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.批量比對_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.批量比對_bt.ForeColor = System.Drawing.Color.DarkGreen
-        Me.批量比對_bt.Location = New System.Drawing.Point(828, 344)
-        Me.批量比對_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.批量比對_bt.Name = "批量比對_bt"
-        Me.批量比對_bt.Size = New System.Drawing.Size(118, 35)
-        Me.批量比對_bt.TabIndex = 1513
-        Me.批量比對_bt.Text = "批量比對"
-        Me.批量比對_bt.UseVisualStyleBackColor = True
-        '
-        '刪除LOG檔_bt
-        '
-        Me.刪除LOG檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.刪除LOG檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.刪除LOG檔_bt.ForeColor = System.Drawing.Color.Red
-        Me.刪除LOG檔_bt.Location = New System.Drawing.Point(828, 382)
-        Me.刪除LOG檔_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.刪除LOG檔_bt.Name = "刪除LOG檔_bt"
-        Me.刪除LOG檔_bt.Size = New System.Drawing.Size(118, 35)
-        Me.刪除LOG檔_bt.TabIndex = 1514
-        Me.刪除LOG檔_bt.Text = "刪除LOG檔"
-        Me.刪除LOG檔_bt.UseVisualStyleBackColor = True
-        '
-        'Label17
-        '
-        Me.Label17.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Label17.AutoSize = True
-        Me.Label17.Location = New System.Drawing.Point(952, 343)
-        Me.Label17.Name = "Label17"
-        Me.Label17.Size = New System.Drawing.Size(175, 32)
-        Me.Label17.TabIndex = 1515
-        Me.Label17.Text = "批量比對後，會把系統中當期無" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "資料的LOG檔案刪除。"
-        '
-        'Label18
-        '
-        Me.Label18.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Label18.AutoSize = True
-        Me.Label18.Location = New System.Drawing.Point(952, 382)
-        Me.Label18.Name = "Label18"
-        Me.Label18.Size = New System.Drawing.Size(188, 32)
-        Me.Label18.TabIndex = 1516
-        Me.Label18.Text = "在確定LOG檔案中的資料沒有參" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "考價值之後，可以將LOG檔清空。"
-        '
-        '國外伺服器_ch
-        '
-        Me.國外伺服器_ch.AutoSize = True
-        Me.國外伺服器_ch.Location = New System.Drawing.Point(965, 41)
-        Me.國外伺服器_ch.Name = "國外伺服器_ch"
-        Me.國外伺服器_ch.Size = New System.Drawing.Size(86, 20)
-        Me.國外伺服器_ch.TabIndex = 1520
-        Me.國外伺服器_ch.Text = "國外伺服器"
-        Me.國外伺服器_ch.UseVisualStyleBackColor = True
-        '
-        'Label19
-        '
-        Me.Label19.AutoSize = True
-        Me.Label19.Location = New System.Drawing.Point(1071, 42)
-        Me.Label19.Name = "Label19"
-        Me.Label19.Size = New System.Drawing.Size(55, 16)
-        Me.Label19.TabIndex = 1523
-        Me.Label19.Text = "計算數量"
-        '
-        '帳號數量_l
-        '
-        Me.帳號數量_l.AutoSize = True
-        Me.帳號數量_l.Location = New System.Drawing.Point(1071, 19)
-        Me.帳號數量_l.Name = "帳號數量_l"
-        Me.帳號數量_l.Size = New System.Drawing.Size(55, 16)
-        Me.帳號數量_l.TabIndex = 1524
-        Me.帳號數量_l.Text = "帳號數量"
-        '
-        '計算數量_tb
-        '
-        Me.計算數量_tb.Location = New System.Drawing.Point(1133, 38)
-        Me.計算數量_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.計算數量_tb.Name = "計算數量_tb"
-        Me.計算數量_tb.Size = New System.Drawing.Size(69, 23)
-        Me.計算數量_tb.TabIndex = 1521
-        '
-        '帳號數量_tb
-        '
-        Me.帳號數量_tb.Location = New System.Drawing.Point(1133, 14)
-        Me.帳號數量_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.帳號數量_tb.Name = "帳號數量_tb"
-        Me.帳號數量_tb.Size = New System.Drawing.Size(69, 23)
-        Me.帳號數量_tb.TabIndex = 1522
-        '
         '系統編碼規則
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1271, 746)
-        Me.Controls.Add(Me.Label18)
-        Me.Controls.Add(Me.Label17)
-        Me.Controls.Add(Me.刪除LOG檔_bt)
-        Me.Controls.Add(Me.批量比對_bt)
         Me.Controls.Add(Me.LOG子_dgv)
-        Me.Controls.Add(Me.GroupBox2)
-        Me.Controls.Add(Me.LOG總_dgv)
-        Me.Controls.Add(Me.GroupBox1)
         Me.Controls.Add(Me.GroupBox3)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
@@ -666,14 +372,8 @@ Partial Class 系統編碼規則
         Me.GroupBox3.ResumeLayout(False)
         Me.GroupBox3.PerformLayout()
         CType(Me.客戶資料表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.GroupBox1.ResumeLayout(False)
-        Me.GroupBox1.PerformLayout()
-        CType(Me.LOG總_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.GroupBox2.ResumeLayout(False)
-        Me.GroupBox2.PerformLayout()
         CType(Me.LOG子_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
-        Me.PerformLayout()
 
     End Sub
     Friend WithEvents GroupBox3 As GroupBox
@@ -685,30 +385,7 @@ Partial Class 系統編碼規則
     Friend WithEvents 客戶表刪除_bt As Button
     Friend WithEvents 客戶名_tb As TextBox
     Friend WithEvents 資料庫_tb As TextBox
-    Friend WithEvents Label1 As Label
-    Friend WithEvents LOG資料庫_tb As TextBox
-    Friend WithEvents Label2 As Label
-    Friend WithEvents IP_tb As TextBox
-    Friend WithEvents Label4 As Label
-    Friend WithEvents 帳號_tb As TextBox
-    Friend WithEvents Label7 As Label
-    Friend WithEvents 密碼_tb As TextBox
-    Friend WithEvents GroupBox1 As GroupBox
-    Friend WithEvents LOG資料庫修正_bt As Button
-    Friend WithEvents LOG總_dgv As DataGridView
-    Friend WithEvents GroupBox2 As GroupBox
-    Friend WithEvents 比對_bt As Button
-    Friend WithEvents Label8 As Label
-    Friend WithEvents Label9 As Label
-    Friend WithEvents LOG資料庫1_tb As TextBox
-    Friend WithEvents 密碼1_tb As TextBox
-    Friend WithEvents IP1_tb As TextBox
-    Friend WithEvents Label10 As Label
-    Friend WithEvents Label11 As Label
-    Friend WithEvents 帳號1_tb As TextBox
     Friend WithEvents LOG子_dgv As DataGridView
-    Friend WithEvents 批量比對_bt As Button
-    Friend WithEvents 刪除LOG檔_bt As Button
     Friend WithEvents Label13 As Label
     Friend WithEvents 密碼2_tb As TextBox
     Friend WithEvents Label14 As Label
@@ -722,8 +399,6 @@ Partial Class 系統編碼規則
     Friend WithEvents 帳號3_tb As TextBox
     Friend WithEvents IP3_tb As TextBox
     Friend WithEvents Label16 As Label
-    Friend WithEvents Label17 As Label
-    Friend WithEvents Label18 As Label
     Friend WithEvents 國外伺服器_ch As CheckBox
     Friend WithEvents Label19 As Label
     Friend WithEvents 帳號數量_l As Label

GA-ERP-SYS/資料庫系統管理/系統編碼規則.vb

@@ -3,40 +3,18 @@
     Private Sub Set_客戶資料清單()
         客戶資料表_dgv.DataSource = Nothing : ds.Clear()
         客戶資料表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        客戶資料表_dgv.ColumnHeadersHeight = 25
-        客戶資料表_dgv.AllowUserToAddRows = False
+        客戶資料表_dgv.ColumnHeadersHeight = 25 : 客戶資料表_dgv.AllowUserToAddRows = False
         SQL_客戶資料表()
         da.Fill(ds) : 客戶資料表_dgv.DataSource = ds.Tables(0) : conn.Close()
         客戶資料表_dgv.Columns(0).FillWeight = 80 : 客戶資料表_dgv.Columns(1).FillWeight = 70 : 客戶資料表_dgv.Columns(2).FillWeight = 70 : 客戶資料表_dgv.Columns(3).FillWeight = 90
         客戶資料表_dgv.Columns(4).FillWeight = 60 : 客戶資料表_dgv.Columns(5).FillWeight = 80 : 客戶資料表_dgv.Columns(6).FillWeight = 120 : 客戶資料表_dgv.Columns(7).FillWeight = 80
         客戶資料表_dgv.Columns(8).FillWeight = 80 : 客戶資料表_dgv.Columns(9).FillWeight = 35 : 客戶資料表_dgv.Columns(10).FillWeight = 120 : 客戶資料表_dgv.Columns(11).FillWeight = 80
         客戶資料表_dgv.Columns(12).FillWeight = 80 : 客戶資料表_dgv.Columns(13).FillWeight = 35
-
-        For i As Integer = 0 To 客戶資料表_dgv.Rows.Count - 1
-            If 客戶資料表_dgv("IP位置", i).Value.ToString = "192.168.0.112,2433" Then
-                客戶資料表_dgv("IP位置", i).Value = "111.95.41.244,2433"
-            End If
-        Next
-    End Sub
-    Private Sub Set_LOG總()
-        LOG總_dgv.DataSource = Nothing : ds1.Clear()
-        LOG總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        LOG總_dgv.ColumnHeadersHeight = 25
-        LOG總_dgv.AllowUserToAddRows = False
-        SQL_LOG主資料表()
-        da.Fill(ds1) : LOG總_dgv.DataSource = ds1.Tables(0) : conn.Close()
-        LOG總_dgv.Columns(0).FillWeight = 25 : LOG總_dgv.Columns(1).FillWeight = 40 : LOG總_dgv.Columns(4).FillWeight = 70
-        LOG總_dgv.Columns(5).FillWeight = 120 : LOG總_dgv.Columns(6).FillWeight = 30
-        For i As Integer = 0 To LOG總_dgv.Rows.Count - 1
-            LOG總_dgv("項", i).Value = i + 1
-            LOG總_dgv("比對", i).Value = False
-        Next
     End Sub
     Private Sub Set_LOG子()
         LOG子_dgv.DataSource = Nothing : ds2.Clear()
         LOG子_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        LOG子_dgv.ColumnHeadersHeight = 25
-        LOG子_dgv.AllowUserToAddRows = False
+        LOG子_dgv.ColumnHeadersHeight = 25 : LOG子_dgv.AllowUserToAddRows = False
         SQL_LOG子資料表()
         da.Fill(ds2) : LOG子_dgv.DataSource = ds2.Tables(0) : conn.Close()
         LOG子_dgv.Columns(0).FillWeight = 40 : LOG子_dgv.Columns(1).FillWeight = 110 : LOG子_dgv.Columns(3).FillWeight = 70 : LOG子_dgv.Columns(4).FillWeight = 120
@@ -44,7 +22,6 @@
     Private Sub LOG資料庫()
         SQL_LOG資料庫讀取()
         If dr.Read() Then
-            LOG資料庫_tb.Text = dr("資料庫").ToString : IP_tb.Text = dr("IP位置").ToString : 帳號_tb.Text = dr("帳號").ToString : 密碼_tb.Text = dr("密碼").ToString
             子SQL名稱1 = dr("資料庫").ToString : 登入人IP3 = dr("IP位置").ToString : 業務帳號1 = dr("帳號").ToString : 業務密碼1 = dr("密碼").ToString
         End If
     End Sub
@@ -54,12 +31,10 @@
         Else
             Me.MdiParent = GA_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         End If
-        If IP印尼 = False Or IP台灣 = False Then : MsgBox("雙伺服器沒有全部聯通，請注意網路環境!!") : End If
-        Set_客戶資料清單() : LOG資料庫() : SQL_連線字串_LOGSQL() : SQL_LOG多餘資料刪除() : Set_LOG總()
+        If IP印尼 = False Or IP台灣 = False Then : MsgBox("雙伺服器沒有全部聯通，請注意網路環境!!") : End If : Set_客戶資料清單()
     End Sub
     Private Sub 系統編碼規則_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
-        子SQL名稱 = Strings.Right(GA_ERP_SYS.使用者_cb.Text, 6)
-        SQL_連線字串_子SQL()
+        子SQL名稱 = Strings.Right(GA_ERP_SYS.使用者_cb.Text, 6) : SQL_連線字串_子SQL()
     End Sub
     Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
         If 不用WEB = True Then
@@ -75,21 +50,13 @@
             timeNow = 0 : GA_ERP_SYS.Timer2.Enabled = False : GA_ERP_SYS.Timer2.Enabled = True
         End If
     End Sub
-    Private Sub LOG總_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles LOG總_dgv.CellClick
-        If e.RowIndex = -1 Then : Else
-            客戶名_tb.Text = LOG總_dgv("客戶", e.RowIndex).Value.ToString
-        End If
-    End Sub
     Private Sub 客戶資料表_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 客戶資料表_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            客戶名_tb.Text = 客戶資料表_dgv("客戶", e.RowIndex).Value.ToString
-            資料庫_tb.Text = 客戶資料表_dgv("資料庫", e.RowIndex).Value.ToString : LOG資料庫1_tb.Text = 客戶資料表_dgv("資料庫", e.RowIndex).Value.ToString
-            子SQL名稱 = 客戶資料表_dgv("資料庫", e.RowIndex).Value.ToString
-            IP1_tb.Text = 客戶資料表_dgv("IP位置", e.RowIndex).Value.ToString : 登入人IP2 = 客戶資料表_dgv("IP位置", e.RowIndex).Value.ToString
+            客戶名_tb.Text = 客戶資料表_dgv("客戶", e.RowIndex).Value.ToString : 資料庫_tb.Text = 客戶資料表_dgv("資料庫", e.RowIndex).Value.ToString
+            子SQL名稱 = 客戶資料表_dgv("資料庫", e.RowIndex).Value.ToString : 登入人IP2 = 客戶資料表_dgv("IP位置", e.RowIndex).Value.ToString
             IP2_tb.Text = 客戶資料表_dgv("IP位置", e.RowIndex).Value.ToString : IP3_tb.Text = 客戶資料表_dgv("備份IP", e.RowIndex).Value.ToString
-            帳號1_tb.Text = 客戶資料表_dgv("帳號", e.RowIndex).Value.ToString : 業務帳號 = 客戶資料表_dgv("帳號", e.RowIndex).Value.ToString
+            業務帳號 = 客戶資料表_dgv("帳號", e.RowIndex).Value.ToString
             帳號2_tb.Text = 客戶資料表_dgv("帳號", e.RowIndex).Value.ToString : 帳號3_tb.Text = 客戶資料表_dgv("備份帳號", e.RowIndex).Value.ToString
-            密碼1_tb.Text = 客戶資料表_dgv("密碼", e.RowIndex).Value.ToString
             密碼2_tb.Text = 客戶資料表_dgv("密碼", e.RowIndex).Value.ToString : 密碼3_tb.Text = 客戶資料表_dgv("備份密碼", e.RowIndex).Value.ToString
             If 客戶資料表_dgv("國外", e.RowIndex).Value = True Then : If 內網確認 = True Then : 登入人IP2 = "192.168.0.112,2433" : Else : 登入人IP2 = "111.95.41.244,2433" : End If
             Else : 登入人IP2 = 客戶資料表_dgv("IP位置", e.RowIndex).Value.ToString : End If
@@ -102,101 +69,33 @@
         End If
     End Sub
     Private Sub 客戶表新增_bt_Click(sender As Object, e As EventArgs) Handles 客戶表新增_bt.Click
-        If 客戶名_tb.Text = "" And 資料庫_tb.Text = "" Then
-            MsgBox("資料沒有完整，請重新檢查")
-        Else
+        If 客戶名_tb.Text = "" And 資料庫_tb.Text = "" Then : MsgBox("資料沒有完整，請重新檢查") : Else
             PA = 客戶名_tb.Text : PA1 = 資料庫_tb.Text : PA2 = IP2_tb.Text : PA3 = 帳號2_tb.Text : PA4 = 密碼2_tb.Text
             ConnOpen() : SQL_系統編碼規則_客戶重複查詢() : CmdSet_For_dr()
-            If dr.Read() Then
-                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
-            Else
-                dr.Close()
-                SQL_系統編碼規則_客戶新增1()
-                ConnOpen() : CmdSet_For_dr()
-                ConnOpen_備用() : CmdSet_For_dr()
-                MsgBox("新增完成") : conn.Close() : dr.Close()
+            If dr.Read() Then : MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
+            Else : dr.Close() : SQL_系統編碼規則_客戶新增1() : ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr() : MsgBox("新增完成") : conn.Close() : dr.Close()
             End If
         End If : Set_客戶資料清單()
     End Sub
     Private Sub 客戶表修改_bt_Click(sender As Object, e As EventArgs) Handles 客戶表修改_bt.Click
-        If 客戶名_tb.Text = "" Or 資料庫_tb.Text = "" Then
-            MsgBox("資料有缺或有誤，請重新檢查")
-        Else
+        If 客戶名_tb.Text = "" Or 資料庫_tb.Text = "" Then : MsgBox("資料有缺或有誤，請重新檢查") : Else
             PA = 客戶名_tb.Text : PA1 = 資料庫_tb.Text : PA4 = IP2_tb.Text : PA5 = 帳號2_tb.Text : PA6 = 密碼2_tb.Text
             PA2 = 客戶名_tb.Text : PA3 = 資料庫_tb.Text : BL1 = 備份_cb.Checked : PA7 = IP3_tb.Text : PA8 = 帳號3_tb.Text
             PA9 = 密碼3_tb.Text : BL2 = 國外伺服器_ch.Checked
-            If PA = "" Or PA1 = "" Then
-                MsgBox("不能空白")
-            Else
-                SQL_系統編碼規則_客戶修改()
-                ConnOpen() : CmdSet_For_dr()
-                ConnOpen_備用() : CmdSet_For_dr()
-                MsgBox("修改完成") : conn.Close() : dr.Close()
+            If PA = "" Or PA1 = "" Then : MsgBox("不能空白") : Else
+                SQL_系統編碼規則_客戶修改() : ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr() : MsgBox("修改完成") : conn.Close() : dr.Close()
             End If
         End If : Set_客戶資料清單()
     End Sub
-    Private Sub 比對_bt_Click(sender As Object, e As EventArgs) Handles 比對_bt.Click
-        If 客戶名_tb.Text = "" Then
-            MsgBox("要先選擇客戶，才能比對LOG檔!!!")
-        Else
-            資料數 = LOG總_dgv.Rows.Count * 2 : 比對() :         If 不用WEB = True Then : GA_ERP_SYS_Old.ToolStripProgressBar1.Value = 0 : Else : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : End If : 最終數 = 0
-        End If
-    End Sub
-    Private Sub 批量比對_bt_Click(sender As Object, e As EventArgs) Handles 批量比對_bt.Click
-        資料數 = LOG總_dgv.Rows.Count * 客戶資料表_dgv.Rows.Count
-        For III As Integer = 0 To 客戶資料表_dgv.Rows.Count - 1
-            If 登入人IP2 = "" Then : Else
-                客戶名_tb.Text = 客戶資料表_dgv("客戶", III).Value.ToString : 資料庫_tb.Text = 客戶資料表_dgv("資料庫", III).Value.ToString
-                LOG資料庫1_tb.Text = 客戶資料表_dgv("資料庫", III).Value.ToString : IP1_tb.Text = 客戶資料表_dgv("IP位置", III).Value.ToString
-                帳號1_tb.Text = 客戶資料表_dgv("帳號", III).Value.ToString : 密碼1_tb.Text = 客戶資料表_dgv("密碼", III).Value.ToString
-                子SQL名稱 = 客戶資料表_dgv("資料庫", III).Value.ToString : 客戶資料表_dgv("密碼", III).Value.ToString()
-                業務帳號 = 客戶資料表_dgv("帳號", III).Value.ToString
-                If 客戶資料表_dgv("IP位置", III).Value = "111.95.41.244,2433" Then
-                    If 內網區域 = False Then : 登入人IP2 = 客戶資料表_dgv("IP位置", III).Value.ToString : Else : 登入人IP2 = "192.168.0.112,2433" : End If
-                Else : 登入人IP2 = 客戶資料表_dgv("IP位置", III).Value.ToString : End If
-                SQL_連線字串_子SQL() : Set_LOG子() : 比對()
-            End If
-        Next :         If 不用WEB = True Then : GA_ERP_SYS_Old.ToolStripProgressBar1.Value = 0 : Else : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : End If : 最終數 = 0
-    End Sub
-    Private Sub 比對()
-        For i As Integer = 0 To LOG總_dgv.Rows.Count - 1
-            MyModule1.進度條()
-            If 客戶名_tb.Text = LOG總_dgv("客戶", i).Value.ToString Then
-                For ii As Integer = 0 To LOG子_dgv.Rows.Count - 1
-                    If LOG總_dgv("比對", i).Value = False Then
-                        If LOG總_dgv("查詢區間", i).Value.ToString = LOG子_dgv("查詢區間", ii).Value.ToString And
-                           LOG總_dgv("網址", i).Value.ToString = LOG子_dgv("網址", ii).Value.ToString Then
-                            LOG總_dgv("比對", i).Value = True
-                        End If
-                    End If
-                Next
-            End If
-        Next
-        For i As Integer = 0 To LOG總_dgv.Rows.Count - 1
-            MyModule1.進度條()
-            If LOG總_dgv("比對", i).Value = False And 客戶名_tb.Text = LOG總_dgv("客戶", i).Value.ToString Then
-                PA1 = LOG總_dgv("查詢區間", i).Value.ToString : PA2 = LOG總_dgv("網址", i).Value.ToString : PA3 = LOG總_dgv("客戶", i).Value.ToString
-                SQL_LOG主資料表刪除1()
-            End If
-        Next
-        Set_LOG總()
-    End Sub
-    Private Sub 刪除LOG檔_bt_Click(sender As Object, e As EventArgs) Handles 刪除LOG檔_bt.Click
+    Private Sub 刪除LOG檔_bt_Click(sender As Object, e As EventArgs)
         Dim aa As MsgBoxResult = MsgBox("確定要刪除該客戶的LOG檔?", MsgBoxStyle.OkCancel)
         If aa = MsgBoxResult.Ok Then
             SQL_LOG主資料表刪除2() : SQL_LOG主資料表刪除3() : MsgBox("刪除完成")
-        End If : conn.Close() : Set_LOG總() : Set_LOG子()
+        End If : conn.Close() : Set_LOG子()
     End Sub
     Private Sub 客戶表刪除_bt_Click(sender As Object, e As EventArgs) Handles 客戶表刪除_bt.Click
         Dim aa As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
-        If aa = MsgBoxResult.Ok Then
-            SQL_系統編碼規則_客戶刪除()
-            ConnOpen() : CmdSet_For_dr()
-            ConnOpen_備用() : CmdSet_For_dr()
-            MsgBox("刪除完成")
+        If aa = MsgBoxResult.Ok Then : SQL_系統編碼規則_客戶刪除() : ConnOpen() : CmdSet_For_dr() : ConnOpen_備用() : CmdSet_For_dr() : MsgBox("刪除完成")
         End If : conn.Close() : Set_客戶資料清單()
     End Sub
-    Private Sub LOG資料庫修正_bt_Click(sender As Object, e As EventArgs) Handles LOG資料庫修正_bt.Click
-        SQL_LOG資料庫修改() : MsgBox("修改完成!!")
-    End Sub
 End Class

GA-ERP-SYS/資料庫系統管理/系統通用變數管理.vb

@@ -120,7 +120,7 @@
     Private Sub 重新讀取_bt_Click(sender As Object, e As EventArgs) Handles 重新讀取_bt.Click
         分母 = MAX_nud.Value : 分段1 = 0.2 : 分段2 = 0.19 : 分段3 = 0.8 : 分段4 = 0.79 : 進度條後墜 = " MB"
         登入人IP4 = "106.1.49.218,4567" : 業務帳號2 = "B70340" : 業務密碼2 = "Lee0911274990"
-        登入人IP5 = "180.177.181.162,5264" : 業務帳號3 = "B70340" : 業務密碼3 = "0911274990"
+        登入人IP5 = "106.1.49.218,2433" : 業務帳號3 = "B70340" : 業務密碼3 = "Lee0911274990"
         子SQL名稱2 = "GA-000" : 子SQL名稱3 = "GA-000"
         SQL_連線字串_備份1() : SQL_連線字串_備份2()
         Set_伺服器狀態() : Set_備份伺服器狀態() : Set_主伺服器狀態() : Set_伺服器1清單() : Set_伺服器2清單() : Set_伺服器3清單()