LEEHSIEHJUI 11 місяці тому
джерело
коміт
2fb2f7bb51
33 змінених файлів з 337 додано та 847 видалено
  1. BIN
      .vs/YD-ERP-SYS/FileContentIndex/d5ba8dd4-6bec-46cf-ba07-925bfcfd1f5e.vsidx
  2. BIN
      .vs/YD-ERP-SYS/FileContentIndex/f3f5b3ea-96d0-42dd-8e1e-cd83d65bb1d6.vsidx
  3. BIN
      .vs/YD-ERP-SYS/v17/.suo
  4. 190
    69
      .vs/YD-ERP-SYS/v17/DocumentLayout.json
  5. 17
    17
      YD-ERP-SYS/LoginForm1.Designer.vb
  6. 32
    31
      YD-ERP-SYS/LoginForm1.vb
  7. 4
    0
      YD-ERP-SYS/Module/SQL_Module.vb
  8. 2
    2
      YD-ERP-SYS/Module/SQL_倉儲系統管理.vb
  9. 0
    16
      YD-ERP-SYS/Module/SQL_資料庫系統管理.vb
  10. 4
    2
      YD-ERP-SYS/Module/全域變數.vb
  11. 1
    17
      YD-ERP-SYS/YD-ERP-SYS.Designer.vb
  12. 1
    6
      YD-ERP-SYS/YD-ERP-SYS.vb
  13. 0
    9
      YD-ERP-SYS/YD-ERP-SYS.vbproj
  14. BIN
      YD-ERP-SYS/bin/Debug/YD-ERP-SYS.exe
  15. BIN
      YD-ERP-SYS/bin/Debug/YD-ERP-SYS.pdb
  16. BIN
      YD-ERP-SYS/obj/Debug/DesignTimeResolveAssemblyReferences.cache
  17. BIN
      YD-ERP-SYS/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
  18. BIN
      YD-ERP-SYS/obj/Debug/YD-ERP-SYS.exe
  19. BIN
      YD-ERP-SYS/obj/Debug/YD-ERP-SYS.pdb
  20. BIN
      YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.AssemblyReference.cache
  21. 1
    1
      YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.CoreCompileInputs.cache
  22. 12
    13
      YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.FileListAbsolute.txt
  23. BIN
      YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.GenerateResource.cache
  24. BIN
      YD-ERP-SYS/obj/Debug/YD_ERP_SYS.FTP資料夾管理.resources
  25. 26
    129
      YD-ERP-SYS/倉儲系統管理/物料檔案.Designer.vb
  26. 3
    0
      YD-ERP-SYS/倉儲系統管理/物料檔案.resx
  27. 33
    66
      YD-ERP-SYS/倉儲系統管理/物料檔案.vb
  28. 2
    1
      YD-ERP-SYS/財務系統管理/業績獎金彙總表.vb
  29. 0
    198
      YD-ERP-SYS/資料庫系統管理/FTP資料夾管理.Designer.vb
  30. 0
    120
      YD-ERP-SYS/資料庫系統管理/FTP資料夾管理.resx
  31. 0
    40
      YD-ERP-SYS/資料庫系統管理/FTP資料夾管理.vb
  32. 9
    104
      YD-ERP-SYS/資料庫系統管理/系統執行檔版本管理.Designer.vb
  33. 0
    6
      YD-ERP-SYS/資料庫系統管理/系統執行檔版本管理.vb

BIN
.vs/YD-ERP-SYS/FileContentIndex/d5ba8dd4-6bec-46cf-ba07-925bfcfd1f5e.vsidx Переглянути файл


BIN
.vs/YD-ERP-SYS/FileContentIndex/f3f5b3ea-96d0-42dd-8e1e-cd83d65bb1d6.vsidx Переглянути файл


BIN
.vs/YD-ERP-SYS/v17/.suo Переглянути файл


+ 190
- 69
.vs/YD-ERP-SYS/v17/DocumentLayout.json Переглянути файл

@@ -3,60 +3,88 @@
3 3
   "WorkspaceRootPath": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\",
4 4
   "Documents": [
5 5
     {
6
-      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\yd\\yd-erp-sys\\yd-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
7
-      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
6
+      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\yd\\yd-erp-sys\\yd-erp-sys\\module\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
7
+      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\module\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
8 8
     },
9 9
     {
10
-      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
11
-      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
10
+      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u734E\u91D1\u5F59\u7E3D\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
11
+      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u734E\u91D1\u5F59\u7E3D\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
12 12
     },
13 13
     {
14
-      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\yd-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
15
-      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\yd-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
14
+      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u734E\u91D1\u5F59\u7E3D\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
15
+      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u734E\u91D1\u5F59\u7E3D\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
16 16
     },
17 17
     {
18
-      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\module\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
19
-      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\module\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
18
+      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\\u696D\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u92B7\u552E\u55AE\u7533\u8ACB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
19
+      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\\u696D\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u92B7\u552E\u55AE\u7533\u8ACB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
20 20
     },
21 21
     {
22
-      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u8CA1\u52D9_\u6536\u652F\u55AE\u7533\u8ACB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
23
-      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u8CA1\u52D9_\u6536\u652F\u55AE\u7533\u8ACB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
22
+      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u8CA1\u52D9_\u6536\u652F\u55AE\u7533\u8ACB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
23
+      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u8CA1\u52D9_\u6536\u652F\u55AE\u7533\u8ACB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
24 24
     },
25 25
     {
26
-      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\\u696D\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u92B7\u552E\u55AE\u7533\u8ACB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
27
-      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\\u696D\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u92B7\u552E\u55AE\u7533\u8ACB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
26
+      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\yd-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
27
+      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\yd-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
28 28
     },
29 29
     {
30
-      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\\u696D\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u92B7\u552E\u55AE\u7533\u8ACB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
31
-      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\\u696D\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u92B7\u552E\u55AE\u7533\u8ACB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
30
+      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u904B\u8CBB\u660E\u7D30\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
31
+      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u904B\u8CBB\u660E\u7D30\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
32 32
     },
33 33
     {
34
-      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\module\\sql_\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
35
-      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\module\\sql_\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
34
+      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\module\\sql_\u696D\u7E3E\u8A08\u7B97\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
35
+      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\module\\sql_\u696D\u7E3E\u8A08\u7B97\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
36 36
     },
37 37
     {
38
-      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u8CA1\u52D9_\u6536\u652F\u55AE\u7533\u8ACB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
39
-      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u8CA1\u52D9_\u6536\u652F\u55AE\u7533\u8ACB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
38
+      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\module\\sql_module.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
39
+      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\module\\sql_module.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
40 40
     },
41 41
     {
42
-      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u734E\u91D1\u5F59\u7E3D\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
43
-      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u734E\u91D1\u5F59\u7E3D\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
42
+      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u6A94\u6848.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
43
+      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u6A94\u6848.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
44 44
     },
45 45
     {
46
-      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\module\\sql_\u696D\u7E3E\u8A08\u7B97\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
47
-      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\module\\sql_\u696D\u7E3E\u8A08\u7B97\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
46
+      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u6A94\u6848.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
47
+      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u6A94\u6848.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
48 48
     },
49 49
     {
50
-      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u734E\u91D1\u5F59\u7E3D\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
51
-      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u734E\u91D1\u5F59\u7E3D\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
50
+      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\module\\sql_\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
51
+      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\module\\sql_\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
52 52
     },
53 53
     {
54
-      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u904B\u8CBB\u660E\u7D30\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
55
-      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u904B\u8CBB\u660E\u7D30\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
54
+      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\module\\sql_\u5009\u5132\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
55
+      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\module\\sql_\u5009\u5132\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
56 56
     },
57 57
     {
58
-      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\yd-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
59
-      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\yd-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
58
+      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\yd-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
59
+      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\yd-erp-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
60
+    },
61
+    {
62
+      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
63
+      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
64
+    },
65
+    {
66
+      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
67
+      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
68
+    },
69
+    {
70
+      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
71
+      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
72
+    },
73
+    {
74
+      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
75
+      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
76
+    },
77
+    {
78
+      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u8CA1\u52D9_\u6536\u652F\u55AE\u7533\u8ACB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
79
+      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u8CA1\u52D9_\u6536\u652F\u55AE\u7533\u8ACB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
80
+    },
81
+    {
82
+      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\\u696D\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u92B7\u552E\u55AE\u7533\u8ACB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
83
+      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\\u696D\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u92B7\u552E\u55AE\u7533\u8ACB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
84
+    },
85
+    {
86
+      "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\module\\sql_\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
87
+      "RelativeMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|solutionrelative:yd-erp-sys\\module\\sql_\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
60 88
     },
61 89
     {
62 90
       "AbsoluteMoniker": "D:0:0:{4AB4746C-E4AF-4F91-A2D4-72960D193B33}|YD-ERP-SYS\\YD-ERP-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\yd-erp-sys\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7DE8\u78BC\u898F\u5247.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
@@ -78,7 +106,7 @@
78 106
       "DocumentGroups": [
79 107
         {
80 108
           "DockedWidth": 200,
81
-          "SelectedChildIndex": 1,
109
+          "SelectedChildIndex": 18,
82 110
           "Children": [
83 111
             {
84 112
               "$type": "Bookmark",
@@ -86,64 +114,149 @@
86 114
             },
87 115
             {
88 116
               "$type": "Document",
89
-              "DocumentIndex": 0,
117
+              "DocumentIndex": 11,
118
+              "Title": "SQL_\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406.vb",
119
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\Module\\SQL_\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406.vb",
120
+              "RelativeDocumentMoniker": "YD-ERP-SYS\\Module\\SQL_\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406.vb",
121
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\Module\\SQL_\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406.vb",
122
+              "RelativeToolTip": "YD-ERP-SYS\\Module\\SQL_\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406.vb",
123
+              "ViewState": "AQIAAAAAAAAAAAAAAAAwwAsAAAAcAAAA",
124
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
125
+              "WhenOpened": "2024-06-13T08:28:47.044Z"
126
+            },
127
+            {
128
+              "$type": "Document",
129
+              "DocumentIndex": 8,
130
+              "Title": "SQL_Module.vb",
131
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\Module\\SQL_Module.vb",
132
+              "RelativeDocumentMoniker": "YD-ERP-SYS\\Module\\SQL_Module.vb",
133
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\Module\\SQL_Module.vb",
134
+              "RelativeToolTip": "YD-ERP-SYS\\Module\\SQL_Module.vb",
135
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAsAAAAEAAAA",
136
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
137
+              "WhenOpened": "2024-06-13T08:27:45.713Z",
138
+              "EditorCaption": ""
139
+            },
140
+            {
141
+              "$type": "Document",
142
+              "DocumentIndex": 12,
143
+              "Title": "SQL_\u5009\u5132\u7CFB\u7D71\u7BA1\u7406.vb",
144
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\Module\\SQL_\u5009\u5132\u7CFB\u7D71\u7BA1\u7406.vb",
145
+              "RelativeDocumentMoniker": "YD-ERP-SYS\\Module\\SQL_\u5009\u5132\u7CFB\u7D71\u7BA1\u7406.vb",
146
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\Module\\SQL_\u5009\u5132\u7CFB\u7D71\u7BA1\u7406.vb",
147
+              "RelativeToolTip": "YD-ERP-SYS\\Module\\SQL_\u5009\u5132\u7CFB\u7D71\u7BA1\u7406.vb",
148
+              "ViewState": "AQIAAAYAAAAAAAAAAADwvyAAAAAAAAAA",
149
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
150
+              "WhenOpened": "2024-06-13T08:26:50.073Z"
151
+            },
152
+            {
153
+              "$type": "Document",
154
+              "DocumentIndex": 9,
155
+              "Title": "\u7269\u6599\u6A94\u6848.vb",
156
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u6A94\u6848.vb",
157
+              "RelativeDocumentMoniker": "YD-ERP-SYS\\\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u6A94\u6848.vb",
158
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u6A94\u6848.vb",
159
+              "RelativeToolTip": "YD-ERP-SYS\\\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u6A94\u6848.vb",
160
+              "ViewState": "AQIAAEkAAAAAAAAAAAA5wK4AAAAAAAAA",
161
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
162
+              "WhenOpened": "2024-06-13T08:21:13.603Z"
163
+            },
164
+            {
165
+              "$type": "Document",
166
+              "DocumentIndex": 10,
167
+              "Title": "\u7269\u6599\u6A94\u6848.vb [\u8A2D\u8A08]",
168
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u6A94\u6848.vb",
169
+              "RelativeDocumentMoniker": "YD-ERP-SYS\\\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u6A94\u6848.vb",
170
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u6A94\u6848.vb [\u8A2D\u8A08]",
171
+              "RelativeToolTip": "YD-ERP-SYS\\\u5009\u5132\u7CFB\u7D71\u7BA1\u7406\\\u7269\u6599\u6A94\u6848.vb [\u8A2D\u8A08]",
172
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
173
+              "WhenOpened": "2024-06-13T08:20:58.39Z"
174
+            },
175
+            {
176
+              "$type": "Document",
177
+              "DocumentIndex": 15,
178
+              "Title": "\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
179
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
180
+              "RelativeDocumentMoniker": "YD-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
181
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
182
+              "RelativeToolTip": "YD-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
183
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAMAAAAAAAAA",
184
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
185
+              "WhenOpened": "2024-06-13T08:17:47.078Z"
186
+            },
187
+            {
188
+              "$type": "Document",
189
+              "DocumentIndex": 14,
190
+              "Title": "\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb [\u8A2D\u8A08]",
191
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
192
+              "RelativeDocumentMoniker": "YD-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb",
193
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb [\u8A2D\u8A08]",
194
+              "RelativeToolTip": "YD-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u57F7\u884C\u6A94\u7248\u672C\u7BA1\u7406.vb [\u8A2D\u8A08]",
195
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
196
+              "WhenOpened": "2024-06-13T08:16:37.758Z"
197
+            },
198
+            {
199
+              "$type": "Document",
200
+              "DocumentIndex": 16,
90 201
               "Title": "LoginForm1.vb",
91 202
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\LoginForm1.vb",
92 203
               "RelativeDocumentMoniker": "YD-ERP-SYS\\LoginForm1.vb",
93 204
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\LoginForm1.vb",
94 205
               "RelativeToolTip": "YD-ERP-SYS\\LoginForm1.vb",
95
-              "ViewState": "AQIAAEsAAAAAAAAAAAAAAGoAAAAkAAAA",
206
+              "ViewState": "AQIAAKwAAAAAAAAAAAAmwAEAAAAAAAAA",
96 207
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
97
-              "WhenOpened": "2024-04-25T13:52:31.162Z",
98
-              "EditorCaption": ""
208
+              "WhenOpened": "2024-04-25T13:52:31.162Z"
99 209
             },
100 210
             {
101 211
               "$type": "Document",
102
-              "DocumentIndex": 1,
212
+              "DocumentIndex": 17,
103 213
               "Title": "LoginForm1.vb [\u8A2D\u8A08]",
104 214
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\LoginForm1.vb",
105 215
               "RelativeDocumentMoniker": "YD-ERP-SYS\\LoginForm1.vb",
106
-              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\LoginForm1.vb [\u8A2D\u8A08]*",
107
-              "RelativeToolTip": "YD-ERP-SYS\\LoginForm1.vb [\u8A2D\u8A08]*",
216
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\LoginForm1.vb [\u8A2D\u8A08]",
217
+              "RelativeToolTip": "YD-ERP-SYS\\LoginForm1.vb [\u8A2D\u8A08]",
108 218
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
109 219
               "WhenOpened": "2024-04-25T13:52:29.386Z"
110 220
             },
111 221
             {
112 222
               "$type": "Document",
113
-              "DocumentIndex": 4,
223
+              "DocumentIndex": 18,
114 224
               "Title": "\u8CA1\u52D9_\u6536\u652F\u55AE\u7533\u8ACB.vb [\u8A2D\u8A08]",
115 225
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u8CA1\u52D9_\u6536\u652F\u55AE\u7533\u8ACB.vb",
116 226
               "RelativeDocumentMoniker": "YD-ERP-SYS\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u8CA1\u52D9_\u6536\u652F\u55AE\u7533\u8ACB.vb",
117 227
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u8CA1\u52D9_\u6536\u652F\u55AE\u7533\u8ACB.vb [\u8A2D\u8A08]",
118 228
               "RelativeToolTip": "YD-ERP-SYS\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u8CA1\u52D9_\u6536\u652F\u55AE\u7533\u8ACB.vb [\u8A2D\u8A08]",
119 229
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
120
-              "WhenOpened": "2024-03-15T14:23:42.152Z"
230
+              "WhenOpened": "2024-03-15T14:23:42.152Z",
231
+              "EditorCaption": " [\u8A2D\u8A08]"
121 232
             },
122 233
             {
123 234
               "$type": "Document",
124
-              "DocumentIndex": 2,
235
+              "DocumentIndex": 13,
125 236
               "Title": "YD-ERP-SYS.vb [\u8A2D\u8A08]",
126 237
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\YD-ERP-SYS.vb",
127 238
               "RelativeDocumentMoniker": "YD-ERP-SYS\\YD-ERP-SYS.vb",
128 239
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\YD-ERP-SYS.vb [\u8A2D\u8A08]",
129 240
               "RelativeToolTip": "YD-ERP-SYS\\YD-ERP-SYS.vb [\u8A2D\u8A08]",
130 241
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
131
-              "WhenOpened": "2024-03-02T04:21:09.805Z"
242
+              "WhenOpened": "2024-03-02T04:21:09.805Z",
243
+              "EditorCaption": " [\u8A2D\u8A08]"
132 244
             },
133 245
             {
134 246
               "$type": "Document",
135
-              "DocumentIndex": 6,
247
+              "DocumentIndex": 3,
136 248
               "Title": "\u92B7\u552E\u55AE\u7533\u8ACB.vb [\u8A2D\u8A08]",
137 249
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\\u696D\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u92B7\u552E\u55AE\u7533\u8ACB.vb",
138 250
               "RelativeDocumentMoniker": "YD-ERP-SYS\\\u696D\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u92B7\u552E\u55AE\u7533\u8ACB.vb",
139 251
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\\u696D\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u92B7\u552E\u55AE\u7533\u8ACB.vb [\u8A2D\u8A08]",
140 252
               "RelativeToolTip": "YD-ERP-SYS\\\u696D\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u92B7\u552E\u55AE\u7533\u8ACB.vb [\u8A2D\u8A08]",
141 253
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
142
-              "WhenOpened": "2024-01-31T02:01:12.915Z"
254
+              "WhenOpened": "2024-01-31T02:01:12.915Z",
255
+              "EditorCaption": " [\u8A2D\u8A08]"
143 256
             },
144 257
             {
145 258
               "$type": "Document",
146
-              "DocumentIndex": 5,
259
+              "DocumentIndex": 19,
147 260
               "Title": "\u92B7\u552E\u55AE\u7533\u8ACB.vb",
148 261
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\\u696D\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u92B7\u552E\u55AE\u7533\u8ACB.vb",
149 262
               "RelativeDocumentMoniker": "YD-ERP-SYS\\\u696D\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u92B7\u552E\u55AE\u7533\u8ACB.vb",
@@ -151,11 +264,12 @@
151 264
               "RelativeToolTip": "YD-ERP-SYS\\\u696D\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u92B7\u552E\u55AE\u7533\u8ACB.vb",
152 265
               "ViewState": "AQIAACAFAAAAAAAAAAAQwEEFAAAQAAAA",
153 266
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
154
-              "WhenOpened": "2024-01-12T05:36:45.44Z"
267
+              "WhenOpened": "2024-01-12T05:36:45.44Z",
268
+              "EditorCaption": ""
155 269
             },
156 270
             {
157 271
               "$type": "Document",
158
-              "DocumentIndex": 16,
272
+              "DocumentIndex": 23,
159 273
               "Title": "\u7CFB\u7D71\u7DE8\u78BC\u898F\u5247.vb",
160 274
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7DE8\u78BC\u898F\u5247.vb",
161 275
               "RelativeDocumentMoniker": "YD-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7DE8\u78BC\u898F\u5247.vb",
@@ -167,7 +281,7 @@
167 281
             },
168 282
             {
169 283
               "$type": "Document",
170
-              "DocumentIndex": 14,
284
+              "DocumentIndex": 21,
171 285
               "Title": "\u7CFB\u7D71\u7DE8\u78BC\u898F\u5247.vb [\u8A2D\u8A08]",
172 286
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7DE8\u78BC\u898F\u5247.vb",
173 287
               "RelativeDocumentMoniker": "YD-ERP-SYS\\\u8CC7\u6599\u5EAB\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7DE8\u78BC\u898F\u5247.vb",
@@ -178,19 +292,20 @@
178 292
             },
179 293
             {
180 294
               "$type": "Document",
181
-              "DocumentIndex": 9,
295
+              "DocumentIndex": 1,
182 296
               "Title": "\u696D\u7E3E\u734E\u91D1\u5F59\u7E3D\u8868.vb",
183 297
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u734E\u91D1\u5F59\u7E3D\u8868.vb",
184 298
               "RelativeDocumentMoniker": "YD-ERP-SYS\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u734E\u91D1\u5F59\u7E3D\u8868.vb",
185 299
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u734E\u91D1\u5F59\u7E3D\u8868.vb",
186 300
               "RelativeToolTip": "YD-ERP-SYS\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u734E\u91D1\u5F59\u7E3D\u8868.vb",
187
-              "ViewState": "AQIAAJQAAAAAAAAAAAAgwKAAAAAMAAAA",
188
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003525|",
189
-              "WhenOpened": "2023-12-06T07:50:25.846Z"
301
+              "ViewState": "AQIAAG8AAAAAAAAAAAAiwIMAAAAWAAAA",
302
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
303
+              "WhenOpened": "2023-12-06T07:50:25.846Z",
304
+              "EditorCaption": ""
190 305
             },
191 306
             {
192 307
               "$type": "Document",
193
-              "DocumentIndex": 7,
308
+              "DocumentIndex": 20,
194 309
               "Title": "SQL_\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406.vb",
195 310
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\Module\\SQL_\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406.vb",
196 311
               "RelativeDocumentMoniker": "YD-ERP-SYS\\Module\\SQL_\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406.vb",
@@ -202,19 +317,20 @@
202 317
             },
203 318
             {
204 319
               "$type": "Document",
205
-              "DocumentIndex": 3,
320
+              "DocumentIndex": 0,
206 321
               "Title": "\u5168\u57DF\u8B8A\u6578.vb",
207 322
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\Module\\\u5168\u57DF\u8B8A\u6578.vb",
208 323
               "RelativeDocumentMoniker": "YD-ERP-SYS\\Module\\\u5168\u57DF\u8B8A\u6578.vb",
209 324
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\Module\\\u5168\u57DF\u8B8A\u6578.vb",
210 325
               "RelativeToolTip": "YD-ERP-SYS\\Module\\\u5168\u57DF\u8B8A\u6578.vb",
211
-              "ViewState": "AQIAAAEAAAAAAAAAAAAuwAUAAAAlAAAA",
326
+              "ViewState": "AQIAAAEAAAAAAAAAAAAuwAcAAAAAAAAA",
212 327
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
213
-              "WhenOpened": "2023-10-18T14:40:28.072Z"
328
+              "WhenOpened": "2023-10-18T14:40:28.072Z",
329
+              "EditorCaption": ""
214 330
             },
215 331
             {
216 332
               "$type": "Document",
217
-              "DocumentIndex": 8,
333
+              "DocumentIndex": 4,
218 334
               "Title": "\u8CA1\u52D9_\u6536\u652F\u55AE\u7533\u8ACB.vb",
219 335
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u8CA1\u52D9_\u6536\u652F\u55AE\u7533\u8ACB.vb",
220 336
               "RelativeDocumentMoniker": "YD-ERP-SYS\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u8CA1\u52D9_\u6536\u652F\u55AE\u7533\u8ACB.vb",
@@ -222,57 +338,62 @@
222 338
               "RelativeToolTip": "YD-ERP-SYS\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u8CA1\u52D9_\u6536\u652F\u55AE\u7533\u8ACB.vb",
223 339
               "ViewState": "AQIAAFUBAAAAAAAAAAAAwGkBAAAIAAAA",
224 340
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
225
-              "WhenOpened": "2024-03-15T14:24:13.731Z"
341
+              "WhenOpened": "2024-03-15T14:24:13.731Z",
342
+              "EditorCaption": ""
226 343
             },
227 344
             {
228 345
               "$type": "Document",
229
-              "DocumentIndex": 13,
346
+              "DocumentIndex": 5,
230 347
               "Title": "YD-ERP-SYS.vb",
231 348
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\YD-ERP-SYS.vb",
232 349
               "RelativeDocumentMoniker": "YD-ERP-SYS\\YD-ERP-SYS.vb",
233 350
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\YD-ERP-SYS.vb",
234 351
               "RelativeToolTip": "YD-ERP-SYS\\YD-ERP-SYS.vb",
235
-              "ViewState": "AQIAAIcAAAAAAAAAAADwvzkAAAAIAAAA",
352
+              "ViewState": "AQIAAFUAAAAAAAAAAADwvz8AAABOAAAA",
236 353
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
237
-              "WhenOpened": "2024-03-02T04:21:11.864Z"
354
+              "WhenOpened": "2024-03-02T04:21:11.864Z",
355
+              "EditorCaption": ""
238 356
             },
239 357
             {
240 358
               "$type": "Document",
241
-              "DocumentIndex": 11,
359
+              "DocumentIndex": 2,
242 360
               "Title": "\u696D\u7E3E\u734E\u91D1\u5F59\u7E3D\u8868.vb [\u8A2D\u8A08]",
243 361
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u734E\u91D1\u5F59\u7E3D\u8868.vb",
244 362
               "RelativeDocumentMoniker": "YD-ERP-SYS\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u734E\u91D1\u5F59\u7E3D\u8868.vb",
245 363
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u734E\u91D1\u5F59\u7E3D\u8868.vb [\u8A2D\u8A08]",
246 364
               "RelativeToolTip": "YD-ERP-SYS\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u734E\u91D1\u5F59\u7E3D\u8868.vb [\u8A2D\u8A08]",
247
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003525|",
248
-              "WhenOpened": "2023-12-06T07:50:24.311Z"
365
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
366
+              "WhenOpened": "2023-12-06T07:50:24.311Z",
367
+              "EditorCaption": " [\u8A2D\u8A08]"
249 368
             },
250 369
             {
251 370
               "$type": "Document",
252
-              "DocumentIndex": 10,
371
+              "DocumentIndex": 7,
253 372
               "Title": "SQL_\u696D\u7E3E\u8A08\u7B97\u7CFB\u7D71.vb",
254 373
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\Module\\SQL_\u696D\u7E3E\u8A08\u7B97\u7CFB\u7D71.vb",
255 374
               "RelativeDocumentMoniker": "YD-ERP-SYS\\Module\\SQL_\u696D\u7E3E\u8A08\u7B97\u7CFB\u7D71.vb",
256 375
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\Module\\SQL_\u696D\u7E3E\u8A08\u7B97\u7CFB\u7D71.vb",
257 376
               "RelativeToolTip": "YD-ERP-SYS\\Module\\SQL_\u696D\u7E3E\u8A08\u7B97\u7CFB\u7D71.vb",
258
-              "ViewState": "AQIAAG4AAAAAAAAAAAAmwJEAAAAEAAAA",
377
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAACsAAAARAAAA",
259 378
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
260
-              "WhenOpened": "2024-03-02T10:04:54.861Z"
379
+              "WhenOpened": "2024-03-02T10:04:54.861Z",
380
+              "EditorCaption": ""
261 381
             },
262 382
             {
263 383
               "$type": "Document",
264
-              "DocumentIndex": 12,
384
+              "DocumentIndex": 6,
265 385
               "Title": "\u696D\u7E3E\u904B\u8CBB\u660E\u7D30\u8868.vb [\u8A2D\u8A08]",
266 386
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u904B\u8CBB\u660E\u7D30\u8868.vb",
267 387
               "RelativeDocumentMoniker": "YD-ERP-SYS\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u904B\u8CBB\u660E\u7D30\u8868.vb",
268 388
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u904B\u8CBB\u660E\u7D30\u8868.vb [\u8A2D\u8A08]",
269 389
               "RelativeToolTip": "YD-ERP-SYS\\\u8CA1\u52D9\u7CFB\u7D71\u7BA1\u7406\\\u696D\u7E3E\u904B\u8CBB\u660E\u7D30\u8868.vb [\u8A2D\u8A08]",
270
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003525|",
271
-              "WhenOpened": "2023-12-06T07:50:16.896Z"
390
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
391
+              "WhenOpened": "2023-12-06T07:50:16.896Z",
392
+              "EditorCaption": " [\u8A2D\u8A08]"
272 393
             },
273 394
             {
274 395
               "$type": "Document",
275
-              "DocumentIndex": 15,
396
+              "DocumentIndex": 22,
276 397
               "Title": "SQL_\u696D\u52D9\u7CFB\u7D71\u7BA1\u7406.vb",
277 398
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\YD\\YD-ERP-SYS\\YD-ERP-SYS\\Module\\SQL_\u696D\u52D9\u7CFB\u7D71\u7BA1\u7406.vb",
278 399
               "RelativeDocumentMoniker": "YD-ERP-SYS\\Module\\SQL_\u696D\u52D9\u7CFB\u7D71\u7BA1\u7406.vb",

+ 17
- 17
YD-ERP-SYS/LoginForm1.Designer.vb Переглянути файл

@@ -57,7 +57,7 @@ Partial Class LoginForm1
57 57
         '
58 58
         Me.使用者帳號_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
59 59
         Me.使用者帳號_cb.FormattingEnabled = True
60
-        Me.使用者帳號_cb.Location = New System.Drawing.Point(267, 56)
60
+        Me.使用者帳號_cb.Location = New System.Drawing.Point(267, 68)
61 61
         Me.使用者帳號_cb.Name = "使用者帳號_cb"
62 62
         Me.使用者帳號_cb.Size = New System.Drawing.Size(164, 24)
63 63
         Me.使用者帳號_cb.TabIndex = 667
@@ -66,9 +66,9 @@ Partial Class LoginForm1
66 66
         '
67 67
         Me.Label5.AutoSize = True
68 68
         Me.Label5.BackColor = System.Drawing.Color.White
69
-        Me.Label5.Location = New System.Drawing.Point(265, 15)
69
+        Me.Label5.Location = New System.Drawing.Point(265, 27)
70 70
         Me.Label5.Name = "Label5"
71
-        Me.Label5.Size = New System.Drawing.Size(68, 16)
71
+        Me.Label5.Size = New System.Drawing.Size(67, 16)
72 72
         Me.Label5.TabIndex = 666
73 73
         Me.Label5.Text = "伺服器區域"
74 74
         '
@@ -78,7 +78,7 @@ Partial Class LoginForm1
78 78
         Me.伺服器區域_ch.ForeColor = System.Drawing.Color.Blue
79 79
         Me.伺服器區域_ch.FormattingEnabled = True
80 80
         Me.伺服器區域_ch.Items.AddRange(New Object() {"雅邸", "設計"})
81
-        Me.伺服器區域_ch.Location = New System.Drawing.Point(339, 12)
81
+        Me.伺服器區域_ch.Location = New System.Drawing.Point(339, 24)
82 82
         Me.伺服器區域_ch.Name = "伺服器區域_ch"
83 83
         Me.伺服器區域_ch.Size = New System.Drawing.Size(92, 24)
84 84
         Me.伺服器區域_ch.TabIndex = 665
@@ -87,9 +87,9 @@ Partial Class LoginForm1
87 87
         '
88 88
         Me.登入綁定_ch.AutoSize = True
89 89
         Me.登入綁定_ch.BackColor = System.Drawing.Color.White
90
-        Me.登入綁定_ch.Location = New System.Drawing.Point(268, 129)
90
+        Me.登入綁定_ch.Location = New System.Drawing.Point(268, 141)
91 91
         Me.登入綁定_ch.Name = "登入綁定_ch"
92
-        Me.登入綁定_ch.Size = New System.Drawing.Size(75, 20)
92
+        Me.登入綁定_ch.Size = New System.Drawing.Size(74, 20)
93 93
         Me.登入綁定_ch.TabIndex = 664
94 94
         Me.登入綁定_ch.Text = "登入綁定"
95 95
         Me.登入綁定_ch.UseVisualStyleBackColor = False
@@ -98,9 +98,9 @@ Partial Class LoginForm1
98 98
         '
99 99
         Me.刷卡登入_ch.AutoSize = True
100 100
         Me.刷卡登入_ch.BackColor = System.Drawing.Color.White
101
-        Me.刷卡登入_ch.Location = New System.Drawing.Point(356, 129)
101
+        Me.刷卡登入_ch.Location = New System.Drawing.Point(356, 141)
102 102
         Me.刷卡登入_ch.Name = "刷卡登入_ch"
103
-        Me.刷卡登入_ch.Size = New System.Drawing.Size(75, 20)
103
+        Me.刷卡登入_ch.Size = New System.Drawing.Size(74, 20)
104 104
         Me.刷卡登入_ch.TabIndex = 663
105 105
         Me.刷卡登入_ch.Text = "刷卡登入"
106 106
         Me.刷卡登入_ch.UseVisualStyleBackColor = False
@@ -123,7 +123,7 @@ Partial Class LoginForm1
123 123
         Me.Label3.ForeColor = System.Drawing.Color.Red
124 124
         Me.Label3.Location = New System.Drawing.Point(481, 19)
125 125
         Me.Label3.Name = "Label3"
126
-        Me.Label3.Size = New System.Drawing.Size(188, 48)
126
+        Me.Label3.Size = New System.Drawing.Size(187, 48)
127 127
         Me.Label3.TabIndex = 661
128 128
         Me.Label3.Text = "更新時請直接拖曳檔案到桌面,再" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "將原來的執行檔刪除即可,請不要" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "使用剪下的方式來更新檔案"
129 129
         '
@@ -133,7 +133,7 @@ Partial Class LoginForm1
133 133
         Me.Label4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
134 134
         Me.Label4.Location = New System.Drawing.Point(476, 3)
135 135
         Me.Label4.Name = "Label4"
136
-        Me.Label4.Size = New System.Drawing.Size(100, 16)
136
+        Me.Label4.Size = New System.Drawing.Size(99, 16)
137 137
         Me.Label4.TabIndex = 660
138 138
         Me.Label4.Text = "伺服器FTP文件夾"
139 139
         '
@@ -151,9 +151,9 @@ Partial Class LoginForm1
151 151
         Me.更新下載_ch.AutoSize = True
152 152
         Me.更新下載_ch.BackColor = System.Drawing.Color.White
153 153
         Me.更新下載_ch.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
154
-        Me.更新下載_ch.Location = New System.Drawing.Point(356, 153)
154
+        Me.更新下載_ch.Location = New System.Drawing.Point(597, -1)
155 155
         Me.更新下載_ch.Name = "更新下載_ch"
156
-        Me.更新下載_ch.Size = New System.Drawing.Size(75, 20)
156
+        Me.更新下載_ch.Size = New System.Drawing.Size(74, 20)
157 157
         Me.更新下載_ch.TabIndex = 658
158 158
         Me.更新下載_ch.Text = "更新下載"
159 159
         Me.更新下載_ch.UseVisualStyleBackColor = False
@@ -165,7 +165,7 @@ Partial Class LoginForm1
165 165
         Me.資料庫版本號_lb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
166 166
         Me.資料庫版本號_lb.Location = New System.Drawing.Point(55, 201)
167 167
         Me.資料庫版本號_lb.Name = "資料庫版本號_lb"
168
-        Me.資料庫版本號_lb.Size = New System.Drawing.Size(159, 16)
168
+        Me.資料庫版本號_lb.Size = New System.Drawing.Size(158, 16)
169 169
         Me.資料庫版本號_lb.TabIndex = 657
170 170
         Me.資料庫版本號_lb.Text = "資料庫版本號 : 2018110801"
171 171
         '
@@ -176,7 +176,7 @@ Partial Class LoginForm1
176 176
         Me.執行檔版本號_lb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
177 177
         Me.執行檔版本號_lb.Location = New System.Drawing.Point(55, 180)
178 178
         Me.執行檔版本號_lb.Name = "執行檔版本號_lb"
179
-        Me.執行檔版本號_lb.Size = New System.Drawing.Size(159, 16)
179
+        Me.執行檔版本號_lb.Size = New System.Drawing.Size(158, 16)
180 180
         Me.執行檔版本號_lb.TabIndex = 656
181 181
         Me.執行檔版本號_lb.Text = "執行檔版本號 : 2018110801"
182 182
         '
@@ -222,7 +222,7 @@ Partial Class LoginForm1
222 222
         '密碼_tb
223 223
         '
224 224
         Me.密碼_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
225
-        Me.密碼_tb.Location = New System.Drawing.Point(267, 103)
225
+        Me.密碼_tb.Location = New System.Drawing.Point(267, 115)
226 226
         Me.密碼_tb.Name = "密碼_tb"
227 227
         Me.密碼_tb.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
228 228
         Me.密碼_tb.Size = New System.Drawing.Size(164, 23)
@@ -239,7 +239,7 @@ Partial Class LoginForm1
239 239
         'PasswordLabel
240 240
         '
241 241
         Me.PasswordLabel.BackColor = System.Drawing.Color.White
242
-        Me.PasswordLabel.Location = New System.Drawing.Point(265, 83)
242
+        Me.PasswordLabel.Location = New System.Drawing.Point(265, 95)
243 243
         Me.PasswordLabel.Name = "PasswordLabel"
244 244
         Me.PasswordLabel.Size = New System.Drawing.Size(183, 23)
245 245
         Me.PasswordLabel.TabIndex = 650
@@ -249,7 +249,7 @@ Partial Class LoginForm1
249 249
         'UsernameLabel
250 250
         '
251 251
         Me.UsernameLabel.BackColor = System.Drawing.Color.White
252
-        Me.UsernameLabel.Location = New System.Drawing.Point(265, 37)
252
+        Me.UsernameLabel.Location = New System.Drawing.Point(265, 49)
253 253
         Me.UsernameLabel.Name = "UsernameLabel"
254 254
         Me.UsernameLabel.Size = New System.Drawing.Size(183, 23)
255 255
         Me.UsernameLabel.TabIndex = 648

+ 32
- 31
YD-ERP-SYS/LoginForm1.vb Переглянути файл

@@ -1,14 +1,4 @@
1
-Imports System.Drawing
2
-Imports System.Net
3
-Imports System.Windows.Forms
4
-Public Class LoginForm1
5
-    ' TODO: 插入程式碼,利用提供的使用者名稱和密碼執行自訂驗證
6
-    ' (請參閱 https://go.microsoft.com/fwlink/?LinkId=35339)。
7
-    ' 如此便可將自訂主體附加到目前執行緒的主體,如下所示: 
8
-    '     My.User.CurrentPrincipal = CustomPrincipal
9
-    ' 其中 CustomPrincipal 是用來執行驗證的 IPrincipal 實作。
10
-    ' 接著,My.User 便會傳回封裝在 CustomPrincipal 物件中的識別資訊,
11
-    ' 例如使用者名稱、顯示名稱等。
1
+Public Class LoginForm1
12 2
     ReadOnly ds2 As New DataSet
13 3
     Dim Str As String = Application.StartupPath
14 4
     Dim MACKK As String 'MAC碼
@@ -18,13 +8,6 @@ Public Class LoginForm1
18 8
     Public Property Credentials As ICredentials
19 9
     ReadOnly screenWidth = Screen.PrimaryScreen.Bounds.Width
20 10
     ReadOnly screenHeight = Screen.PrimaryScreen.Bounds.Height
21
-    Private Sub Set_清單1()
22
-        FTP清單_dgv.DataSource = Nothing : ds2.Clear()
23
-        FTP清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
24
-        FTP清單_dgv.ColumnHeadersHeight = 25 : FTP清單_dgv.AllowUserToAddRows = False
25
-        SQL_FTP資料夾路徑分配()
26
-        da.Fill(ds2) : FTP清單_dgv.DataSource = ds2.Tables(0) : conn.Close()
27
-    End Sub
28 11
     Private Sub LoginForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
29 12
         '-----------------------控件基本設定-----------------------------------------------------------------------------------------------------------------------------------------------
30 13
         刷卡登入_ch.Checked = True : 刷卡登入_ch.Enabled = False : 登入綁定_ch.Checked = False : 登入綁定_ch.Enabled = False : 帳號_tb.Visible = False
@@ -39,6 +22,34 @@ Public Class LoginForm1
39 22
         ElseIf screenWidth = 1600 And screenHeight = 900 Then : Me.Location = New Point(567, 311)
40 23
         End If
41 24
         Me.ActiveControl = 使用者帳號_cb
25
+        '-----------------------刪除自動更新項目-----------------------------------------------------------------------------------------------------------------------------------------------
26
+        Dim 已開啟 As Boolean = False
27
+        Dim Strs As String = Application.StartupPath
28
+        If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\SYS-UPDATE.exe") Then
29
+            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
30
+            ' 判斷是否有符合的Process
31
+            For Each process As Process In pro
32
+                If ("SYS-UPDATE").Equals(process.ProcessName) Then
33
+                    已開啟 = True
34
+                End If
35
+            Next
36
+            If 已開啟 = False Then
37
+                Timer1.Enabled = False
38
+                If File.Exists(Str + "\SYS-UPDATE.exe") Then : File.Delete(Str + "\SYS-UPDATE.exe") : End If
39
+            End If
40
+        ElseIf File.Exists(Strs & "\SYS-UPDATE.exe") Then
41
+            Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
42
+            ' 判斷是否有符合的Process
43
+            For Each process As Process In pro
44
+                If ("SYS-UPDATE").Equals(process.ProcessName) Then
45
+                    已開啟 = True
46
+                End If
47
+            Next
48
+            If 已開啟 = False Then
49
+                Timer1.Enabled = False
50
+                If File.Exists(Str + "\SYS-UPDATE.exe") Then : File.Delete(Str + "\SYS-UPDATE.exe") : End If
51
+            End If
52
+        End If
42 53
         Timer1.Enabled = True
43 54
     End Sub
44 55
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
@@ -121,20 +132,10 @@ Public Class LoginForm1
121 132
         SQL_系統版本號驗證()
122 133
         If dr.Read() Then : 資料庫版本號_lb.Text = "資料庫版本號 : " & dr("系統認證版本號") : 版本號 = dr("系統認證版本號") : End If : conn.Close()
123 134
         '-----------------------FTP伺服器登入位置--------------------------------------------------------------------------------------------------------------------------------------------
124
-        SQL_FTP伺服器登入位置()
125
-        If dr.Read() Then : Target = dr("FTP地址") : FTP帳號 = dr("FTP帳號") : FTP密碼 = dr("FTP密碼") : FTP物理位置 = dr("FTP物理位置") : End If : conn.Close()
126
-        Set_清單1()
127
-        Dim HH As String = 0
128
-        For i As Integer = 0 To FTP清單_dgv.Rows.Count - 1
129
-            If i < 10 Then : HH = "0" & i : ElseIf i >= 10 Then : HH = i : End If
130
-            If FTP清單_dgv("指定", i).Value.ToString = "AA" & HH Then : AA(i) = FTP清單_dgv("資料夾名稱", i).Value.ToString : End If
131
-        Next
132
-        Target1 = Target & AA(0) & "/"
133
-        FTP執行檔_wb.Url = New Uri(Target1)
135
+        Target = "https://gcm-smart.com/ERP/YD-ERP/"
134 136
         '-----------------------帳號下拉清單----------------------------------------------------------------------------------------------------------------------------------------------------
135 137
         SQL_帳號讀取()
136 138
         使用者帳號_cb.Items.Clear() : While (dr.Read()) : 使用者帳號_cb.Items.Add(dr("帳號")) : End While : conn.Close()
137
-
138 139
         If Strings.Right(執行檔版本號_lb.Text, 10) <> Strings.Right(資料庫版本號_lb.Text, 10) Then
139 140
             自動更新2()
140 141
         Else : End If
@@ -147,7 +148,7 @@ Public Class LoginForm1
147 148
         If File.Exists(Str + "\NOTAUTO.txt") Then
148 149
             If 使用者帳號_cb.Text = "b70340" Or 使用者帳號_cb.Text = "B70340" Then : Else : End If
149 150
         Else
150
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "SYS-UPDATE.exe", Str + "\SYS-UPDATE.exe")
151
+            My.Computer.Network.DownloadFile(Target & "SYS-UPDATE.exe", Str + "\SYS-UPDATE.exe")
151 152
             Shell(Str + "\SYS-UPDATE.exe", vbNormalFocus) : Me.Close()
152 153
         End If
153 154
     End Sub
@@ -247,7 +248,7 @@ Public Class LoginForm1
247 248
     End Sub
248 249
     Private Sub UPDATE_bt_Click(sender As Object, e As EventArgs) Handles UPDATE_bt.Click
249 250
         Dim Str As String = Application.StartupPath
250
-        My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "SYS-UPDATE.exe", Str + "\SYS-UPDATE.exe")
251
+        My.Computer.Network.DownloadFile(Target & "SYS-UPDATE.exe", Str + "\SYS-UPDATE.exe")
251 252
         Shell(Str + "\SYS-UPDATE.exe", vbNormalFocus)
252 253
         Me.Close()
253 254
     End Sub

+ 4
- 0
YD-ERP-SYS/Module/SQL_Module.vb Переглянути файл

@@ -16,4 +16,8 @@ Module SQL_Module
16 16
     Friend Sub CmdSet_For_dr()
17 17
         cmd.CommandText = SQL1 : cmd.Connection = conn : dr = cmd.ExecuteReader
18 18
     End Sub
19
+    Friend Sub CmdSet_For_dr_pic()
20
+        Dim fs As FileStream : fs = File.OpenRead(PA49) : Dim picb(fs.Length) As Byte : fs.Read(picb, 0, fs.Length) : fs.Close() : cmd.Parameters.Clear()
21
+        cmd.CommandText = SQL1 : cmd.Parameters.Add("@binary_file", SqlDbType.VarBinary).Value = picb : cmd.Connection = conn : dr = cmd.ExecuteReader
22
+    End Sub
19 23
 End Module

+ 2
- 2
YD-ERP-SYS/Module/SQL_倉儲系統管理.vb Переглянути файл

@@ -26,9 +26,9 @@
26 26
     End Sub
27 27
     Friend Sub SQL_物料檔案_圖片修改()
28 28
         ConnOpen()
29
-        SQL1 = "UPDATE 物料資料庫 SET 是否有圖 = N'1', 圖片 = BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP物理位置 & AA(1) & "\" & 物料檔案.檔案名稱_tb.Text & "', SINGLE_BLOB) AS EMPLOYEEPICTURE 
29
+        SQL1 = "UPDATE 物料資料庫 SET 是否有圖 = N'1', 圖片 = @binary_file 
30 30
                 WHERE (料號 LIKE '" & 物料檔案.料號_tb.Text & "')"
31
-        CmdSet_For_dr()
31
+        CmdSet_For_dr_pic()
32 32
     End Sub
33 33
     Friend Sub SQL_物料圖庫_圖片下載()
34 34
         ConnOpen() : SQL1 = "SELECT 圖片 FROM 物料資料庫 WHERE 料號 LIKE N'" & 物料檔案.料號_tb.Text & "'" : CmdSet_For_DGV()

+ 0
- 16
YD-ERP-SYS/Module/SQL_資料庫系統管理.vb Переглянути файл

@@ -1,20 +1,4 @@
1 1
 Module SQL_資料庫系統管理
2
-    '---------------------FTP資料夾管理-----------------------------------------------------------------------------------------------------------------
3
-    Friend Sub SQL_FTP資料夾管理新增()
4
-        ConnOpen()
5
-        SQL1 = "INSERT INTO FTP資料夾管理 (資料夾名稱, 指定頁面, 備註, 指定) 
6
-                VALUES (N'" & FTP資料夾管理.資料夾名稱_tb.Text & "',N'" & FTP資料夾管理.指定頁面_tb.Text & "',N'" & FTP資料夾管理.備註_tb.Text & "',N'" & FTP資料夾管理.指定_tb.Text & "')"
7
-        CmdSet_For_dr()
8
-    End Sub
9
-    Friend Sub SQL_FTP資料夾管理修改()
10
-        ConnOpen()
11
-        SQL1 = "UPDATE FTP資料夾管理 SET 指定頁面 = N'" & FTP資料夾管理.指定頁面_tb.Text & "', 備註 = N'" & FTP資料夾管理.備註_tb.Text & "', 指定 = N'" & FTP資料夾管理.指定_tb.Text & "' 
12
-                WHERE (資料夾名稱 = N'" & FTP資料夾管理.資料夾名稱_tb.Text & "')"
13
-        CmdSet_For_dr()
14
-    End Sub
15
-    Friend Sub SQL_FTP資料夾管理刪除()
16
-        ConnOpen() : SQL1 = "DELETE FROM FTP資料夾管理 WHERE (資料夾名稱 = N'" & FTP資料夾管理.資料夾名稱_tb.Text & "')" : CmdSet_For_dr()
17
-    End Sub
18 2
     '---------------------系統執行檔版本管理-----------------------------------------------------------------------------------------------------------------
19 3
     Friend Sub SQL_版本號管理修改()
20 4
         ConnOpen()

+ 4
- 2
YD-ERP-SYS/Module/全域變數.vb Переглянути файл

@@ -3,7 +3,9 @@
3 3
     Public g_conn_type, gUserName, 登入人職稱, 登入人級別, 登入人組別, 登入人IP, 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, FTP物理位置, 業務號碼, AA(99), 類別 As String
4 4
     Public BB(99), CC(99), 登入判斷 As Boolean
5 5
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
6
-    Public 版本 As String = "2024033001"
6
+    Public 版本 As String = "
7
+
8
+"
7 9
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
8 10
     Public 列印用SQL, 列印用SQL2, 公司編號, 公司電話, 公司統編, 公司地址, 關鍵字編號, 進度條後墜 As String
9 11
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -11,7 +13,7 @@
11 13
     Public timeExit, timeExit2, timeNow, timeNow2, 分母, NN1 As Integer : Public 密碼時限 As Integer = 30
12 14
     '----全域字串變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
13 15
     Public PPAA, PA, PA1, PA2, PA3, PA4, PA5, PA6, PA7, PA8, PA9, PA10, PA11, PA12, PA13, PA14, PA15, PA16, PA17, PA18, PA19, PA20, PA21, PA22, PA23, PA24, PA25, PA26 As String
14
-    Public PA27, PA28, PA29, PA30, PA31, PA32, PA33, PA34, PA35, PA36 As String
16
+    Public PA27, PA28, PA29, PA30, PA31, PA32, PA33, PA34, PA35, PA36, PA49 As String
15 17
     Public PPBB(3000) As String
16 18
     '----全域數字變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
17 19
     Public NU1, NU2, NU3, NU4, NU5, 分段1, 分段2, 分段3, 分段4 As Double

+ 1
- 17
YD-ERP-SYS/YD-ERP-SYS.Designer.vb Переглянути файл

@@ -106,8 +106,6 @@ Partial Class YD_ERP_SYS
106 106
         Me.系統編碼規則_tsm = New System.Windows.Forms.ToolStripMenuItem()
107 107
         Me.系統執行檔版本管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
108 108
         Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
109
-        Me.FTP資料夾管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
110
-        Me.ToolStripSeparator14 = New System.Windows.Forms.ToolStripSeparator()
111 109
         Me.簽名檔管理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
112 110
         Me.StatusStrip = New System.Windows.Forms.StatusStrip()
113 111
         Me.著作權_tss = New System.Windows.Forms.ToolStripStatusLabel()
@@ -655,7 +653,7 @@ Partial Class YD_ERP_SYS
655 653
         '
656 654
         '資料庫系統管理_tsm
657 655
         '
658
-        Me.資料庫系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.系統使用者管理_tsm, Me.ToolStripSeparator5, Me.系統編碼規則_tsm, Me.系統執行檔版本管理_tsm, Me.ToolStripSeparator4, Me.FTP資料夾管理_tsm, Me.ToolStripSeparator14, Me.簽名檔管理ToolStripMenuItem})
656
+        Me.資料庫系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.系統使用者管理_tsm, Me.ToolStripSeparator5, Me.系統編碼規則_tsm, Me.系統執行檔版本管理_tsm, Me.ToolStripSeparator4, Me.簽名檔管理ToolStripMenuItem})
659 657
         Me.資料庫系統管理_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Sys_Command
660 658
         Me.資料庫系統管理_tsm.Name = "資料庫系統管理_tsm"
661 659
         Me.資料庫系統管理_tsm.Size = New System.Drawing.Size(119, 20)
@@ -692,18 +690,6 @@ Partial Class YD_ERP_SYS
692 690
         Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
693 691
         Me.ToolStripSeparator4.Size = New System.Drawing.Size(179, 6)
694 692
         '
695
-        'FTP資料夾管理_tsm
696
-        '
697
-        Me.FTP資料夾管理_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Sys_Command
698
-        Me.FTP資料夾管理_tsm.Name = "FTP資料夾管理_tsm"
699
-        Me.FTP資料夾管理_tsm.Size = New System.Drawing.Size(182, 22)
700
-        Me.FTP資料夾管理_tsm.Text = "FTP資料夾管理"
701
-        '
702
-        'ToolStripSeparator14
703
-        '
704
-        Me.ToolStripSeparator14.Name = "ToolStripSeparator14"
705
-        Me.ToolStripSeparator14.Size = New System.Drawing.Size(179, 6)
706
-        '
707 693
         '簽名檔管理ToolStripMenuItem
708 694
         '
709 695
         Me.簽名檔管理ToolStripMenuItem.Image = Global.YD_ERP_SYS.My.Resources.Resources.Sys_Command
@@ -850,7 +836,6 @@ Partial Class YD_ERP_SYS
850 836
     Friend WithEvents FileMenu As System.Windows.Forms.ToolStripMenuItem
851 837
     Friend WithEvents MenuStrip As System.Windows.Forms.MenuStrip
852 838
     Friend WithEvents 資料庫系統管理_tsm As Windows.Forms.ToolStripMenuItem
853
-    Friend WithEvents FTP資料夾管理_tsm As Windows.Forms.ToolStripMenuItem
854 839
     Friend WithEvents 系統執行檔版本管理_tsm As Windows.Forms.ToolStripMenuItem
855 840
     Friend WithEvents ToolStripSeparator4 As Windows.Forms.ToolStripSeparator
856 841
     Friend WithEvents 系統使用者管理_tsm As Windows.Forms.ToolStripMenuItem
@@ -910,7 +895,6 @@ Partial Class YD_ERP_SYS
910 895
     Friend WithEvents 匯率管理_tsm As ToolStripMenuItem
911 896
     Friend WithEvents 會計科目管理_tsm As ToolStripMenuItem
912 897
     Friend WithEvents 簽名檔管理ToolStripMenuItem As ToolStripMenuItem
913
-    Friend WithEvents ToolStripSeparator14 As ToolStripSeparator
914 898
     Friend WithEvents 薪資轉帳表_tsm As ToolStripMenuItem
915 899
     Friend WithEvents ToolStripSeparator15 As ToolStripSeparator
916 900
     Friend WithEvents ToolStripSeparator16 As ToolStripSeparator

+ 1
- 6
YD-ERP-SYS/YD-ERP-SYS.vb Переглянути файл

@@ -67,7 +67,6 @@ Public Class YD_ERP_SYS
67 67
 
68 68
         '----------資料庫系統管理-------------------------------------------------------------------------------------------------------------
69 69
         資料庫系統管理_tsm.Enabled = CC(1) : 系統使用者管理_tsm.Enabled = CC(2) : 系統編碼規則_tsm.Enabled = CC(3) : 系統執行檔版本管理_tsm.Enabled = CC(4)
70
-        FTP資料夾管理_tsm.Enabled = CC(5)
71 70
         '----------倉儲系統管理---------------------------------------------------------------------------------------------------------------
72 71
         倉儲系統管理_tsm.Enabled = CC(6) : 倉儲控制表_tsm.Enabled = CC(7) : 單據狀態查詢_tsm.Enabled = CC(8) : 倉儲入庫_tsm.Enabled = CC(9)
73 72
         盤盈盤損申請_tsm.Enabled = CC(10) : 盤盈盤損審核倉儲調整_tsm.Enabled = CC(11) : 盤盈盤損控制表_tsm.Enabled = CC(12) : 物料檔案_tsm.Enabled = CC(13)
@@ -134,13 +133,9 @@ Public Class YD_ERP_SYS
134 133
         PA32 = "" : PA33 = "" : PA34 = "" : PA35 = "" : PA36 = ""
135 134
     End Sub
136 135
     '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
137
-    Private Sub FTP資料夾管理_tsm_Click_1(sender As Object, e As EventArgs) Handles FTP資料夾管理_tsm.Click
138
-        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
139
-        歸零() : FTP資料夾管理.Show() : FTP資料夾管理.BringToFront()
140
-    End Sub
141 136
     Private Sub 系統執行檔版本管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理_tsm.Click
142 137
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
143
-        歸零() : 系統執行檔版本管理.Show() : 系統執行檔版本管理.BringToFront()
138
+        歸零() : 系統執行檔版本管理.ShowDialog()
144 139
     End Sub
145 140
     Private Sub 系統使用者管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統使用者管理_tsm.Click
146 141
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next

+ 0
- 9
YD-ERP-SYS/YD-ERP-SYS.vbproj Переглянути файл

@@ -399,12 +399,6 @@
399 399
     <Compile Include="財務系統管理\高層客製報表.vb">
400 400
       <SubType>Form</SubType>
401 401
     </Compile>
402
-    <Compile Include="資料庫系統管理\FTP資料夾管理.Designer.vb">
403
-      <DependentUpon>FTP資料夾管理.vb</DependentUpon>
404
-    </Compile>
405
-    <Compile Include="資料庫系統管理\FTP資料夾管理.vb">
406
-      <SubType>Form</SubType>
407
-    </Compile>
408 402
     <Compile Include="LoginForm1.Designer.vb">
409 403
       <DependentUpon>LoginForm1.vb</DependentUpon>
410 404
     </Compile>
@@ -614,9 +608,6 @@
614 608
     <EmbeddedResource Include="財務系統管理\高層客製報表.resx">
615 609
       <DependentUpon>高層客製報表.vb</DependentUpon>
616 610
     </EmbeddedResource>
617
-    <EmbeddedResource Include="資料庫系統管理\FTP資料夾管理.resx">
618
-      <DependentUpon>FTP資料夾管理.vb</DependentUpon>
619
-    </EmbeddedResource>
620 611
     <EmbeddedResource Include="LoginForm1.resx">
621 612
       <DependentUpon>LoginForm1.vb</DependentUpon>
622 613
       <SubType>Designer</SubType>

BIN
YD-ERP-SYS/bin/Debug/YD-ERP-SYS.exe Переглянути файл


BIN
YD-ERP-SYS/bin/Debug/YD-ERP-SYS.pdb Переглянути файл


BIN
YD-ERP-SYS/obj/Debug/DesignTimeResolveAssemblyReferences.cache Переглянути файл


BIN
YD-ERP-SYS/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache Переглянути файл


BIN
YD-ERP-SYS/obj/Debug/YD-ERP-SYS.exe Переглянути файл


BIN
YD-ERP-SYS/obj/Debug/YD-ERP-SYS.pdb Переглянути файл


BIN
YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.AssemblyReference.cache Переглянути файл


+ 1
- 1
YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.CoreCompileInputs.cache Переглянути файл

@@ -1 +1 @@
1
-93013896f86026b0eb3b62b8ddb5149bdaa4d200a2d3ccfffa6ef042476ae355
1
+ba8ebc7c864c0345bf8f49c7193a65d757ac4edc80d66f52f8bbd58c16d482ea

+ 12
- 13
YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.FileListAbsolute.txt Переглянути файл

@@ -515,8 +515,7 @@ D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.財務_決算表.resou
515 515
 D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.財務_收支單一覽表.resources
516 516
 D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.財務_收支單審核.resources
517 517
 D:\yd-erp-sys-team-austin\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.財務_收支單申請.resources
518
-D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.exe.config
519
-D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.exe
518
+D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbproj.AssemblyReference.cache
520 519
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.人事資料表.resources
521 520
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.人員ID卡系統配置設定.resources
522 521
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.倉儲入庫.resources
@@ -538,6 +537,7 @@ D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購訂製大圖.re
538 537
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.客戶資料表.resources
539 538
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.供應商資料表.resources
540 539
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.物料檔案.resources
540
+D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.業務單號修改功能.resources
541 541
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.訂單控制表.resources
542 542
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.貨款試算表.resources
543 543
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.銷售分析表.resources
@@ -548,18 +548,21 @@ D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.匯出EXCEL.resources
548 548
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.匯率管理.resources
549 549
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.會計科目管理.resources
550 550
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.業務獎金計算基礎.resources
551
+D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.業績結單控制表.resources
551 552
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.業績獎金彙總表.resources
552 553
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.業績運費明細表.resources
554
+D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運日報表.resources
553 555
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.財務_決算表.resources
554 556
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運成本收支單_對帳表.resources
555 557
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.財務_收支單一覽表.resources
556 558
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.財務_收支單審核.resources
557 559
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.財務_收支單申請.resources
558 560
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.薪資轉帳表.resources
559
-D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.FTP資料夾管理.resources
561
+D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.高層客製報表.resources
560 562
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.LoginForm1.resources
561 563
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.Resources.resources
562 564
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.YD_ERP_SYS.resources
565
+D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.下拉清單_1.resources
563 566
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.個人帳號管理.resources
564 567
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.簽名檔管理.resources
565 568
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.系統使用者管理.resources
@@ -567,17 +570,13 @@ D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.系統執行檔版本
567 570
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.系統編碼規則.resources
568 571
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.網段.resources
569 572
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbproj.GenerateResource.cache
573
+D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.exe.licenses
570 574
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbproj.CoreCompileInputs.cache
571
-D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.exe
572
-D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.xml
573
-D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.pdb
575
+D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.exe.config
576
+D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.exe
574 577
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.pdb
575 578
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.xml
576
-D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.業務單號修改功能.resources
577
-D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.下拉清單_1.resources
578
-D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.業績結單控制表.resources
579
-D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運日報表.resources
580
-D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.高層客製報表.resources
581
-D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbproj.AssemblyReference.cache
582
-D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.exe.licenses
583 579
 D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbproj.Up2Date
580
+D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.exe
581
+D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.xml
582
+D:\工巧明\YD\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.pdb

BIN
YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.GenerateResource.cache Переглянути файл


BIN
YD-ERP-SYS/obj/Debug/YD_ERP_SYS.FTP資料夾管理.resources Переглянути файл


+ 26
- 129
YD-ERP-SYS/倉儲系統管理/物料檔案.Designer.vb Переглянути файл

@@ -59,14 +59,6 @@ Partial Class 物料檔案
59 59
         Me.刪除_tsm = New System.Windows.Forms.ToolStripMenuItem()
60 60
         Me.下載圖檔_bt = New System.Windows.Forms.Button()
61 61
         Me.圖檔入系統_bt = New System.Windows.Forms.Button()
62
-        Me.檔案名稱_tb = New System.Windows.Forms.TextBox()
63
-        Me.Label12 = New System.Windows.Forms.Label()
64
-        Me.Label13 = New System.Windows.Forms.Label()
65
-        Me.讀取資料夾路徑_bt = New System.Windows.Forms.Button()
66
-        Me.本機資料夾_wb = New System.Windows.Forms.WebBrowser()
67
-        Me.FTP資料夾_wb = New System.Windows.Forms.WebBrowser()
68
-        Me.Label11 = New System.Windows.Forms.Label()
69
-        Me.Label10 = New System.Windows.Forms.Label()
70 62
         Me.下載檔名_tb = New System.Windows.Forms.TextBox()
71 63
         Me.檔名讀取_tb = New System.Windows.Forms.TextBox()
72 64
         Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
@@ -82,6 +74,7 @@ Partial Class 物料檔案
82 74
         Me.列印_bt = New System.Windows.Forms.Button()
83 75
         Me.字體大小調整_lb = New System.Windows.Forms.Label()
84 76
         Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
77
+        Me.開啟檔案 = New System.Windows.Forms.OpenFileDialog()
85 78
         CType(Me.物料清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
86 79
         CType(Me.成本_nud, System.ComponentModel.ISupportInitialize).BeginInit()
87 80
         Me.ContextMenuStrip1.SuspendLayout()
@@ -95,6 +88,7 @@ Partial Class 物料檔案
95 88
         Me.物料清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
96 89
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
97 90
         Me.物料清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
91
+        Me.物料清單_dgv.BackgroundColor = System.Drawing.Color.White
98 92
         Me.物料清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
99 93
         Me.物料清單_dgv.Location = New System.Drawing.Point(12, 83)
100 94
         Me.物料清單_dgv.Name = "物料清單_dgv"
@@ -102,7 +96,7 @@ Partial Class 物料檔案
102 96
         DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
103 97
         Me.物料清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
104 98
         Me.物料清單_dgv.RowTemplate.Height = 24
105
-        Me.物料清單_dgv.Size = New System.Drawing.Size(570, 572)
99
+        Me.物料清單_dgv.Size = New System.Drawing.Size(705, 572)
106 100
         Me.物料清單_dgv.TabIndex = 668
107 101
         '
108 102
         'Label3
@@ -112,7 +106,7 @@ Partial Class 物料檔案
112 106
         Me.Label3.ImeMode = System.Windows.Forms.ImeMode.NoControl
113 107
         Me.Label3.Location = New System.Drawing.Point(538, 664)
114 108
         Me.Label3.Name = "Label3"
115
-        Me.Label3.Size = New System.Drawing.Size(44, 16)
109
+        Me.Label3.Size = New System.Drawing.Size(43, 16)
116 110
         Me.Label3.TabIndex = 1017
117 111
         Me.Label3.Text = "筆資料"
118 112
         '
@@ -132,7 +126,7 @@ Partial Class 物料檔案
132 126
         Me.Label4.ImeMode = System.Windows.Forms.ImeMode.NoControl
133 127
         Me.Label4.Location = New System.Drawing.Point(411, 664)
134 128
         Me.Label4.Name = "Label4"
135
-        Me.Label4.Size = New System.Drawing.Size(20, 16)
129
+        Me.Label4.Size = New System.Drawing.Size(19, 16)
136 130
         Me.Label4.TabIndex = 1015
137 131
         Me.Label4.Text = "共"
138 132
         '
@@ -163,7 +157,7 @@ Partial Class 物料檔案
163 157
         Me.Label2.ForeColor = System.Drawing.Color.Red
164 158
         Me.Label2.Location = New System.Drawing.Point(9, 9)
165 159
         Me.Label2.Name = "Label2"
166
-        Me.Label2.Size = New System.Drawing.Size(50, 16)
160
+        Me.Label2.Size = New System.Drawing.Size(49, 16)
167 161
         Me.Label2.TabIndex = 1079
168 162
         Me.Label2.Text = "地      區"
169 163
         '
@@ -183,7 +177,7 @@ Partial Class 物料檔案
183 177
         Me.Label1.AutoSize = True
184 178
         Me.Label1.Location = New System.Drawing.Point(434, 192)
185 179
         Me.Label1.Name = "Label1"
186
-        Me.Label1.Size = New System.Drawing.Size(32, 16)
180
+        Me.Label1.Size = New System.Drawing.Size(31, 16)
187 181
         Me.Label1.TabIndex = 1082
188 182
         Me.Label1.Text = "編碼"
189 183
         Me.Label1.Visible = False
@@ -203,7 +197,7 @@ Partial Class 物料檔案
203 197
         Me.Label5.ForeColor = System.Drawing.Color.Red
204 198
         Me.Label5.Location = New System.Drawing.Point(9, 35)
205 199
         Me.Label5.Name = "Label5"
206
-        Me.Label5.Size = New System.Drawing.Size(50, 16)
200
+        Me.Label5.Size = New System.Drawing.Size(49, 16)
207 201
         Me.Label5.TabIndex = 1084
208 202
         Me.Label5.Text = "供 應 商"
209 203
         '
@@ -222,7 +216,7 @@ Partial Class 物料檔案
222 216
         Me.Label6.ForeColor = System.Drawing.Color.Red
223 217
         Me.Label6.Location = New System.Drawing.Point(120, 9)
224 218
         Me.Label6.Name = "Label6"
225
-        Me.Label6.Size = New System.Drawing.Size(56, 16)
219
+        Me.Label6.Size = New System.Drawing.Size(55, 16)
226 220
         Me.Label6.TabIndex = 1086
227 221
         Me.Label6.Text = "廠商編碼"
228 222
         '
@@ -232,7 +226,7 @@ Partial Class 物料檔案
232 226
         Me.Label29.ImeMode = System.Windows.Forms.ImeMode.NoControl
233 227
         Me.Label29.Location = New System.Drawing.Point(247, 8)
234 228
         Me.Label29.Name = "Label29"
235
-        Me.Label29.Size = New System.Drawing.Size(68, 16)
229
+        Me.Label29.Size = New System.Drawing.Size(67, 16)
236 230
         Me.Label29.TabIndex = 1089
237 231
         Me.Label29.Text = "關鍵字查詢"
238 232
         '
@@ -256,7 +250,7 @@ Partial Class 物料檔案
256 250
         Me.Label7.ImeMode = System.Windows.Forms.ImeMode.NoControl
257 251
         Me.Label7.Location = New System.Drawing.Point(10, 60)
258 252
         Me.Label7.Name = "Label7"
259
-        Me.Label7.Size = New System.Drawing.Size(50, 16)
253
+        Me.Label7.Size = New System.Drawing.Size(49, 16)
260 254
         Me.Label7.TabIndex = 1090
261 255
         Me.Label7.Text = "料      號"
262 256
         '
@@ -273,7 +267,7 @@ Partial Class 物料檔案
273 267
         Me.Label8.ImeMode = System.Windows.Forms.ImeMode.NoControl
274 268
         Me.Label8.Location = New System.Drawing.Point(144, 60)
275 269
         Me.Label8.Name = "Label8"
276
-        Me.Label8.Size = New System.Drawing.Size(32, 16)
270
+        Me.Label8.Size = New System.Drawing.Size(31, 16)
277 271
         Me.Label8.TabIndex = 1092
278 272
         Me.Label8.Text = "品名"
279 273
         '
@@ -291,7 +285,7 @@ Partial Class 物料檔案
291 285
         Me.Label25.AutoSize = True
292 286
         Me.Label25.Location = New System.Drawing.Point(463, 60)
293 287
         Me.Label25.Name = "Label25"
294
-        Me.Label25.Size = New System.Drawing.Size(32, 16)
288
+        Me.Label25.Size = New System.Drawing.Size(31, 16)
295 289
         Me.Label25.TabIndex = 1095
296 290
         Me.Label25.Text = "成本"
297 291
         '
@@ -301,7 +295,7 @@ Partial Class 物料檔案
301 295
         Me.停用_ch.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
302 296
         Me.停用_ch.Location = New System.Drawing.Point(466, 7)
303 297
         Me.停用_ch.Name = "停用_ch"
304
-        Me.停用_ch.Size = New System.Drawing.Size(123, 20)
298
+        Me.停用_ch.Size = New System.Drawing.Size(122, 20)
305 299
         Me.停用_ch.TabIndex = 1096
306 300
         Me.停用_ch.Text = "此料號為停用狀態"
307 301
         Me.停用_ch.UseVisualStyleBackColor = True
@@ -322,7 +316,7 @@ Partial Class 物料檔案
322 316
         Me.狀態_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
323 317
         Me.狀態_lb.Location = New System.Drawing.Point(1029, 65)
324 318
         Me.狀態_lb.Name = "狀態_lb"
325
-        Me.狀態_lb.Size = New System.Drawing.Size(56, 16)
319
+        Me.狀態_lb.Size = New System.Drawing.Size(55, 16)
326 320
         Me.狀態_lb.TabIndex = 1102
327 321
         Me.狀態_lb.Text = "編輯狀態"
328 322
         '
@@ -421,92 +415,6 @@ Partial Class 物料檔案
421 415
         Me.圖檔入系統_bt.Text = "圖檔入系統 或 圖片修改存檔"
422 416
         Me.圖檔入系統_bt.UseVisualStyleBackColor = True
423 417
         '
424
-        '檔案名稱_tb
425
-        '
426
-        Me.檔案名稱_tb.AllowDrop = True
427
-        Me.檔案名稱_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
428
-        Me.檔案名稱_tb.ForeColor = System.Drawing.Color.Black
429
-        Me.檔案名稱_tb.Location = New System.Drawing.Point(1145, 439)
430
-        Me.檔案名稱_tb.Name = "檔案名稱_tb"
431
-        Me.檔案名稱_tb.Size = New System.Drawing.Size(231, 23)
432
-        Me.檔案名稱_tb.TabIndex = 1119
433
-        '
434
-        'Label12
435
-        '
436
-        Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
437
-        Me.Label12.AutoSize = True
438
-        Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
439
-        Me.Label12.Location = New System.Drawing.Point(1093, 465)
440
-        Me.Label12.Name = "Label12"
441
-        Me.Label12.Size = New System.Drawing.Size(108, 17)
442
-        Me.Label12.TabIndex = 1117
443
-        Me.Label12.Text = "伺服器FTP文件夾"
444
-        '
445
-        'Label13
446
-        '
447
-        Me.Label13.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
448
-        Me.Label13.AutoSize = True
449
-        Me.Label13.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
450
-        Me.Label13.Location = New System.Drawing.Point(1096, 56)
451
-        Me.Label13.Name = "Label13"
452
-        Me.Label13.Size = New System.Drawing.Size(56, 16)
453
-        Me.Label13.TabIndex = 1116
454
-        Me.Label13.Text = "我的電腦"
455
-        '
456
-        '讀取資料夾路徑_bt
457
-        '
458
-        Me.讀取資料夾路徑_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
459
-        Me.讀取資料夾路徑_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
460
-        Me.讀取資料夾路徑_bt.ForeColor = System.Drawing.Color.Blue
461
-        Me.讀取資料夾路徑_bt.Location = New System.Drawing.Point(1091, 4)
462
-        Me.讀取資料夾路徑_bt.Name = "讀取資料夾路徑_bt"
463
-        Me.讀取資料夾路徑_bt.Size = New System.Drawing.Size(94, 51)
464
-        Me.讀取資料夾路徑_bt.TabIndex = 1115
465
-        Me.讀取資料夾路徑_bt.Text = "讀取料夾路徑"
466
-        Me.讀取資料夾路徑_bt.UseVisualStyleBackColor = True
467
-        '
468
-        '本機資料夾_wb
469
-        '
470
-        Me.本機資料夾_wb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
471
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
472
-        Me.本機資料夾_wb.Location = New System.Drawing.Point(1091, 112)
473
-        Me.本機資料夾_wb.MinimumSize = New System.Drawing.Size(20, 20)
474
-        Me.本機資料夾_wb.Name = "本機資料夾_wb"
475
-        Me.本機資料夾_wb.Size = New System.Drawing.Size(285, 321)
476
-        Me.本機資料夾_wb.TabIndex = 1114
477
-        Me.本機資料夾_wb.Url = New System.Uri("", System.UriKind.Relative)
478
-        '
479
-        'FTP資料夾_wb
480
-        '
481
-        Me.FTP資料夾_wb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
482
-        Me.FTP資料夾_wb.Location = New System.Drawing.Point(1091, 485)
483
-        Me.FTP資料夾_wb.MinimumSize = New System.Drawing.Size(20, 20)
484
-        Me.FTP資料夾_wb.Name = "FTP資料夾_wb"
485
-        Me.FTP資料夾_wb.Size = New System.Drawing.Size(285, 198)
486
-        Me.FTP資料夾_wb.TabIndex = 1113
487
-        Me.FTP資料夾_wb.Url = New System.Uri("", System.UriKind.Relative)
488
-        '
489
-        'Label11
490
-        '
491
-        Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
492
-        Me.Label11.AutoSize = True
493
-        Me.Label11.ForeColor = System.Drawing.Color.Red
494
-        Me.Label11.Location = New System.Drawing.Point(1094, 79)
495
-        Me.Label11.Name = "Label11"
496
-        Me.Label11.Size = New System.Drawing.Size(244, 32)
497
-        Me.Label11.TabIndex = 1118
498
-        Me.Label11.Text = "如檔案無法拖曳至伺服器FTP文件夾,請修改" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "檔案名稱不要帶有中文字或是符號"
499
-        '
500
-        'Label10
501
-        '
502
-        Me.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
503
-        Me.Label10.AutoSize = True
504
-        Me.Label10.Location = New System.Drawing.Point(1091, 442)
505
-        Me.Label10.Name = "Label10"
506
-        Me.Label10.Size = New System.Drawing.Size(56, 16)
507
-        Me.Label10.TabIndex = 1120
508
-        Me.Label10.Text = "檔案名稱"
509
-        '
510 418
         '下載檔名_tb
511 419
         '
512 420
         Me.下載檔名_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
@@ -550,7 +458,7 @@ Partial Class 物料檔案
550 458
         Me.啟用批改_ch.AutoSize = True
551 459
         Me.啟用批改_ch.Location = New System.Drawing.Point(588, 59)
552 460
         Me.啟用批改_ch.Name = "啟用批改_ch"
553
-        Me.啟用批改_ch.Size = New System.Drawing.Size(75, 20)
461
+        Me.啟用批改_ch.Size = New System.Drawing.Size(74, 20)
554 462
         Me.啟用批改_ch.TabIndex = 1127
555 463
         Me.啟用批改_ch.Text = "啟用批改"
556 464
         Me.啟用批改_ch.UseVisualStyleBackColor = True
@@ -560,7 +468,7 @@ Partial Class 物料檔案
560 468
         Me.批輛停用選擇_ch.AutoSize = True
561 469
         Me.批輛停用選擇_ch.Location = New System.Drawing.Point(669, 59)
562 470
         Me.批輛停用選擇_ch.Name = "批輛停用選擇_ch"
563
-        Me.批輛停用選擇_ch.Size = New System.Drawing.Size(99, 20)
471
+        Me.批輛停用選擇_ch.Size = New System.Drawing.Size(98, 20)
564 472
         Me.批輛停用選擇_ch.TabIndex = 1128
565 473
         Me.批輛停用選擇_ch.Text = "批量停用選擇"
566 474
         Me.批輛停用選擇_ch.UseVisualStyleBackColor = True
@@ -570,7 +478,7 @@ Partial Class 物料檔案
570 478
         Me.批量刪除選擇_ch.AutoSize = True
571 479
         Me.批量刪除選擇_ch.Location = New System.Drawing.Point(774, 59)
572 480
         Me.批量刪除選擇_ch.Name = "批量刪除選擇_ch"
573
-        Me.批量刪除選擇_ch.Size = New System.Drawing.Size(99, 20)
481
+        Me.批量刪除選擇_ch.Size = New System.Drawing.Size(98, 20)
574 482
         Me.批量刪除選擇_ch.TabIndex = 1129
575 483
         Me.批量刪除選擇_ch.Text = "批量刪除選擇"
576 484
         Me.批量刪除選擇_ch.UseVisualStyleBackColor = True
@@ -594,10 +502,10 @@ Partial Class 物料檔案
594 502
         Me.物料圖_pb.BackgroundImage = Global.YD_ERP_SYS.My.Resources.Resources.底圖1
595 503
         Me.物料圖_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
596 504
         Me.物料圖_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
597
-        Me.物料圖_pb.Location = New System.Drawing.Point(588, 84)
505
+        Me.物料圖_pb.Location = New System.Drawing.Point(718, 84)
598 506
         Me.物料圖_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
599 507
         Me.物料圖_pb.Name = "物料圖_pb"
600
-        Me.物料圖_pb.Size = New System.Drawing.Size(497, 599)
508
+        Me.物料圖_pb.Size = New System.Drawing.Size(658, 599)
601 509
         Me.物料圖_pb.TabIndex = 1112
602 510
         Me.物料圖_pb.TabStop = False
603 511
         '
@@ -615,7 +523,7 @@ Partial Class 物料檔案
615 523
         Me.Label9.AutoSize = True
616 524
         Me.Label9.Location = New System.Drawing.Point(461, 35)
617 525
         Me.Label9.Name = "Label9"
618
-        Me.Label9.Size = New System.Drawing.Size(68, 16)
526
+        Me.Label9.Size = New System.Drawing.Size(67, 16)
619 527
         Me.Label9.TabIndex = 1132
620 528
         Me.Label9.Text = "最低庫存量"
621 529
         '
@@ -655,6 +563,10 @@ Partial Class 物料檔案
655 563
         Me.字體_NUD.TabIndex = 1484
656 564
         Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
657 565
         '
566
+        '開啟檔案
567
+        '
568
+        Me.開啟檔案.Multiselect = True
569
+        '
658 570
         '物料檔案
659 571
         '
660 572
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@@ -675,14 +587,6 @@ Partial Class 物料檔案
675 587
         Me.Controls.Add(Me.檔名讀取_tb)
676 588
         Me.Controls.Add(Me.下載圖檔_bt)
677 589
         Me.Controls.Add(Me.圖檔入系統_bt)
678
-        Me.Controls.Add(Me.檔案名稱_tb)
679
-        Me.Controls.Add(Me.Label12)
680
-        Me.Controls.Add(Me.Label13)
681
-        Me.Controls.Add(Me.讀取資料夾路徑_bt)
682
-        Me.Controls.Add(Me.本機資料夾_wb)
683
-        Me.Controls.Add(Me.FTP資料夾_wb)
684
-        Me.Controls.Add(Me.Label11)
685
-        Me.Controls.Add(Me.Label10)
686 590
         Me.Controls.Add(Me.狀態_lb)
687 591
         Me.Controls.Add(Me.刪除_bt)
688 592
         Me.Controls.Add(Me.存檔_bt)
@@ -761,15 +665,7 @@ Partial Class 物料檔案
761 665
     Friend WithEvents 刪除_tsm As Windows.Forms.ToolStripMenuItem
762 666
     Friend WithEvents 下載圖檔_bt As Windows.Forms.Button
763 667
     Friend WithEvents 圖檔入系統_bt As Windows.Forms.Button
764
-    Friend WithEvents 檔案名稱_tb As Windows.Forms.TextBox
765
-    Friend WithEvents Label12 As Windows.Forms.Label
766
-    Friend WithEvents Label13 As Windows.Forms.Label
767
-    Friend WithEvents 讀取資料夾路徑_bt As Windows.Forms.Button
768
-    Friend WithEvents 本機資料夾_wb As Windows.Forms.WebBrowser
769
-    Friend WithEvents FTP資料夾_wb As Windows.Forms.WebBrowser
770
-    Friend WithEvents Label11 As Windows.Forms.Label
771 668
     Friend WithEvents 物料圖_pb As Windows.Forms.PictureBox
772
-    Friend WithEvents Label10 As Windows.Forms.Label
773 669
     Friend WithEvents 下載檔名_tb As Windows.Forms.TextBox
774 670
     Friend WithEvents 檔名讀取_tb As Windows.Forms.TextBox
775 671
     Friend WithEvents FolderBrowserDialog1 As Windows.Forms.FolderBrowserDialog
@@ -784,4 +680,5 @@ Partial Class 物料檔案
784 680
     Friend WithEvents 列印_bt As Button
785 681
     Friend WithEvents 字體大小調整_lb As Label
786 682
     Friend WithEvents 字體_NUD As NumericUpDown
683
+    Friend WithEvents 開啟檔案 As OpenFileDialog
787 684
 End Class

+ 3
- 0
YD-ERP-SYS/倉儲系統管理/物料檔案.resx Переглянути файл

@@ -126,6 +126,9 @@
126 126
   <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
127 127
     <value>345, 15</value>
128 128
   </metadata>
129
+  <metadata name="開啟檔案.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
130
+    <value>490, 15</value>
131
+  </metadata>
129 132
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
130 133
     <value>42</value>
131 134
   </metadata>

+ 33
- 66
YD-ERP-SYS/倉儲系統管理/物料檔案.vb Переглянути файл

@@ -63,12 +63,8 @@ Public Class 物料檔案
63 63
         Else
64 64
             刪除_tsm.Enabled = False : 刪除_bt.Enabled = False : 批量刪除_bt.Enabled = False
65 65
         End If
66
-
67 66
         首次開啟 = False : Set_清單() : 首次開啟 = True '--------------------資料讀取
68 67
 
69
-        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then : 本機資料夾_wb.Navigate(FolderBrowserDialog1.SelectedPath) : End If '--------------------讀取本機資料夾位置
70
-        Target1 = Target & AA(1) & "/" : FTP資料夾_wb.Url = New Uri(Target1) '--------------------指定伺服器ftp資料夾位置
71
-
72 68
         If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
73 69
             字體_NUD.Value = 9
74 70
         ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then
@@ -176,69 +172,40 @@ Public Class 物料檔案
176 172
             PA = 查詢_tb.Text : Set_清單() : 地區_cb.Text = ""
177 173
         End If
178 174
     End Sub
179
-    Private Sub 檔案名稱_tb_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
180
-        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
181
-            Dim files As String()
182
-            files = CType(e.Data.GetData(DataFormats.FileDrop), String())
183
-            檔案名稱_tb.Text = files(files.Length - 1)
184
-        End If
185
-        Dim STR2 As Integer = 0
186
-        檔名讀取_tb.Text = 檔案名稱_tb.Text
187
-        If 檔案名稱_tb.Text = "" Then
188
-        Else
189
-            For i As Integer = 0 To 9999
190
-                Dim STR1 As Integer = Strings.Len(檔名讀取_tb.Text)
191
-                If Strings.Right((檔名讀取_tb.Text), 1) <> "\" Then
192
-                    STR1 -= 1 : STR2 += 1
193
-                    If STR1 = 0 Then
194
-                        檔名讀取_tb.Text = ""
195
-                        檔案名稱_tb.Text = ""
196
-                        i = 9999
197
-                    Else
198
-                        檔名讀取_tb.Text = Strings.Left((檔名讀取_tb.Text), STR1)
199
-                    End If
200
-                Else
201
-                    檔名讀取_tb.Text = Strings.Right((檔案名稱_tb.Text), STR2)
202
-                    檔案名稱_tb.Text = 檔名讀取_tb.Text
203
-                    i = 9999
204
-                End If
205
-            Next
206
-        End If
207
-    End Sub
208
-    Private Sub 檔案名稱_tb_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles 檔案名稱_tb.DragDrop
209
-        Dim files As Array = e.Data.GetData(DataFormats.FileDrop)
210
-        For Each file As String In files
211
-            檔案名稱_tb.AppendText(file + Environment.NewLine)
212
-        Next
213
-    End Sub
214
-    Private Sub 讀取資料夾路徑_bt_Click(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_bt.Click
215
-        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then : 本機資料夾_wb.Navigate(FolderBrowserDialog1.SelectedPath) : End If
216
-    End Sub
217 175
     Private Sub 圖檔入系統_bt_Click(sender As Object, e As EventArgs) Handles 圖檔入系統_bt.Click
218
-        If 料號_tb.Text = "" Then : MsgBox("請先選擇未指定圖片的物料料號") : Else
219
-            SQL_物料檔案_圖片修改() : conn.Close()
220
-            '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
221
-            Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
222
-            frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest)
223
-            fcr = New NetworkCredential(FTP帳號, FTP密碼)
224
-            frq.Credentials = fcr
225
-            frq.Method = WebRequestMethods.Ftp.DeleteFile
226
-            frq.UseBinary = True
227
-            frp = CType(frq.GetResponse, FtpWebResponse)
228
-            frp.Close()
229
-            FTP資料夾_wb.Refresh()
230
-            '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
231
-            物料圖_pb.Image = Nothing : PA = 料號_tb.Text : SQL_物料圖庫_圖片顯示()
232
-            While dr.Read() = True
233
-                Dim unused As Byte() = New Byte(-1) {}
234
-                Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
235
-                Dim oStream As New MemoryStream(bytes)
236
-                物料圖_pb.Image = Bitmap.FromStream(oStream)
237
-            End While
238
-            conn.Close()
239
-            物料圖_pb.SizeMode = 4
240
-            '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
241
-            檔案名稱_tb.Text = ""
176
+        If 料號_tb.Text = "" Then : MsgBox("請先選擇未指定圖片的物料料號!!") : Else
177
+            開啟檔案.Filter = "圖片文件 (*.jpg; *.jpeg; *.png; *.bmp)|*.jpg;*.jpeg;*.png;*.bmp"
178
+            開啟檔案.Title = "選擇圖片文件"
179
+            開啟檔案.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
180
+            If 開啟檔案.ShowDialog() = DialogResult.OK Then
181
+                Try
182
+                    物料圖_pb.SizeMode = 4
183
+                    PA49 = 開啟檔案.FileName : SQL_物料檔案_圖片修改()
184
+                    'Set_附件清單() : MsgBox("附件導入系統完成!!")
185
+                    MsgBox("圖片導入系統完成!!")
186
+
187
+                    物料圖_pb.Image = Nothing : PA1 = 料號_tb.Text : SQL_物料檔案_是否有圖()
188
+                    If dr.Read() Then
189
+                        If dr("是否有圖") = True Then
190
+                            物料圖_pb.BackgroundImage = Nothing
191
+                            PA = 料號_tb.Text : SQL_物料圖庫_圖片顯示() '--------------------圖片顯示
192
+                            While dr.Read() = True
193
+                                Dim unused As Byte() = New Byte(-1) {}
194
+                                Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
195
+                                Dim oStream As New MemoryStream(bytes)
196
+                                物料圖_pb.Image = Bitmap.FromStream(oStream)
197
+                            End While
198
+                            conn.Close()
199
+                            物料圖_pb.SizeMode = 4
200
+                        Else
201
+                            物料圖_pb.BackgroundImage = My.Resources.底圖1 : 物料圖_pb.BackgroundImageLayout = 3
202
+                            物料圖_pb.Image = Nothing
203
+                        End If
204
+                    End If : conn.Close()
205
+                Catch ex As Exception
206
+                    MessageBox.Show("無法加載圖片: " & ex.Message, "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Error)
207
+                End Try
208
+            End If
242 209
         End If
243 210
     End Sub
244 211
     Private Sub 下載圖檔_bt_Click(sender As Object, e As EventArgs) Handles 下載圖檔_bt.Click

+ 2
- 1
YD-ERP-SYS/財務系統管理/業績獎金彙總表.vb Переглянути файл

@@ -139,7 +139,8 @@ Public Class 業績獎金彙總表
139 139
             Next
140 140
             For II As Integer = 0 To 外車車資_dgv.Rows.Count - 1
141 141
                 If 外車車資_dgv.Rows(II).Cells("單號").Value.ToString = 獎金明細表_dgv.Rows(I).Cells("編號").Value.ToString Then
142
-                    獎金明細表_dgv.Rows(I).Cells("銷貨總額").Value = 獎金明細表_dgv.Rows(I).Cells("銷貨總額").Value + 外車車資_dgv.Rows(II).Cells("外車_收").Value
142
+                    '獎金明細表_dgv.Rows(I).Cells("銷貨總額").Value = 獎金明細表_dgv.Rows(I).Cells("銷貨總額").Value + 外車車資_dgv.Rows(II).Cells("外車_收").Value
143
+                    獎金明細表_dgv.Rows(I).Cells("銷貨總額").Value = 獎金明細表_dgv.Rows(I).Cells("銷貨總額").Value
143 144
                 End If
144 145
             Next
145 146
             '--------------成本---------------------------------------------------------------------------------------------------------------------------------------------

+ 0
- 198
YD-ERP-SYS/資料庫系統管理/FTP資料夾管理.Designer.vb Переглянути файл

@@ -1,198 +0,0 @@
1
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2
-Partial Class FTP資料夾管理
3
-    Inherits System.Windows.Forms.Form
4
-
5
-    'Form 覆寫 Dispose 以清除元件清單。
6
-    <System.Diagnostics.DebuggerNonUserCode()> _
7
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8
-        Try
9
-            If disposing AndAlso components IsNot Nothing Then
10
-                components.Dispose()
11
-            End If
12
-        Finally
13
-            MyBase.Dispose(disposing)
14
-        End Try
15
-    End Sub
16
-
17
-    '為 Windows Form 設計工具的必要項
18
-    Private components As System.ComponentModel.IContainer
19
-
20
-    '注意: 以下為 Windows Form 設計工具所需的程序
21
-    '可以使用 Windows Form 設計工具進行修改。
22
-    '請勿使用程式碼編輯器進行修改。
23
-    <System.Diagnostics.DebuggerStepThrough()> _
24
-    Private Sub InitializeComponent()
25
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
26
-        Me.指定_tb = New System.Windows.Forms.TextBox()
27
-        Me.刪除_bt = New System.Windows.Forms.Button()
28
-        Me.修改_bt = New System.Windows.Forms.Button()
29
-        Me.新增_bt = New System.Windows.Forms.Button()
30
-        Me.備註_tb = New System.Windows.Forms.TextBox()
31
-        Me.指定頁面_tb = New System.Windows.Forms.TextBox()
32
-        Me.資料夾名稱_tb = New System.Windows.Forms.TextBox()
33
-        Me.資料夾清單_dgv = New System.Windows.Forms.DataGridView()
34
-        Me.Label12 = New System.Windows.Forms.Label()
35
-        Me.FTP資料夾_wb = New System.Windows.Forms.WebBrowser()
36
-        Me.字體大小調整_lb = New System.Windows.Forms.Label()
37
-        Me.字體_NUD = New System.Windows.Forms.NumericUpDown()
38
-        CType(Me.資料夾清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
39
-        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
40
-        Me.SuspendLayout()
41
-        '
42
-        '指定_tb
43
-        '
44
-        Me.指定_tb.Location = New System.Drawing.Point(500, 10)
45
-        Me.指定_tb.Name = "指定_tb"
46
-        Me.指定_tb.Size = New System.Drawing.Size(70, 23)
47
-        Me.指定_tb.TabIndex = 642
48
-        '
49
-        '刪除_bt
50
-        '
51
-        Me.刪除_bt.Location = New System.Drawing.Point(747, 10)
52
-        Me.刪除_bt.Name = "刪除_bt"
53
-        Me.刪除_bt.Size = New System.Drawing.Size(75, 23)
54
-        Me.刪除_bt.TabIndex = 641
55
-        Me.刪除_bt.Text = "刪除"
56
-        Me.刪除_bt.UseVisualStyleBackColor = True
57
-        '
58
-        '修改_bt
59
-        '
60
-        Me.修改_bt.Location = New System.Drawing.Point(666, 10)
61
-        Me.修改_bt.Name = "修改_bt"
62
-        Me.修改_bt.Size = New System.Drawing.Size(75, 23)
63
-        Me.修改_bt.TabIndex = 640
64
-        Me.修改_bt.Text = "修改"
65
-        Me.修改_bt.UseVisualStyleBackColor = True
66
-        '
67
-        '新增_bt
68
-        '
69
-        Me.新增_bt.Location = New System.Drawing.Point(585, 10)
70
-        Me.新增_bt.Name = "新增_bt"
71
-        Me.新增_bt.Size = New System.Drawing.Size(75, 23)
72
-        Me.新增_bt.TabIndex = 639
73
-        Me.新增_bt.Text = "新增"
74
-        Me.新增_bt.UseVisualStyleBackColor = True
75
-        '
76
-        '備註_tb
77
-        '
78
-        Me.備註_tb.Location = New System.Drawing.Point(294, 10)
79
-        Me.備註_tb.Name = "備註_tb"
80
-        Me.備註_tb.Size = New System.Drawing.Size(200, 23)
81
-        Me.備註_tb.TabIndex = 638
82
-        '
83
-        '指定頁面_tb
84
-        '
85
-        Me.指定頁面_tb.Location = New System.Drawing.Point(88, 10)
86
-        Me.指定頁面_tb.Name = "指定頁面_tb"
87
-        Me.指定頁面_tb.Size = New System.Drawing.Size(200, 23)
88
-        Me.指定頁面_tb.TabIndex = 637
89
-        '
90
-        '資料夾名稱_tb
91
-        '
92
-        Me.資料夾名稱_tb.Location = New System.Drawing.Point(12, 10)
93
-        Me.資料夾名稱_tb.Name = "資料夾名稱_tb"
94
-        Me.資料夾名稱_tb.Size = New System.Drawing.Size(70, 23)
95
-        Me.資料夾名稱_tb.TabIndex = 636
96
-        '
97
-        '資料夾清單_dgv
98
-        '
99
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
100
-        Me.資料夾清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
101
-        Me.資料夾清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
102
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
103
-        Me.資料夾清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
104
-        Me.資料夾清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
105
-        Me.資料夾清單_dgv.Location = New System.Drawing.Point(12, 39)
106
-        Me.資料夾清單_dgv.Name = "資料夾清單_dgv"
107
-        Me.資料夾清單_dgv.RowHeadersWidth = 5
108
-        Me.資料夾清單_dgv.RowTemplate.Height = 24
109
-        Me.資料夾清單_dgv.Size = New System.Drawing.Size(565, 922)
110
-        Me.資料夾清單_dgv.TabIndex = 635
111
-        '
112
-        'Label12
113
-        '
114
-        Me.Label12.AutoSize = True
115
-        Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
116
-        Me.Label12.Location = New System.Drawing.Point(828, 14)
117
-        Me.Label12.Name = "Label12"
118
-        Me.Label12.Size = New System.Drawing.Size(100, 16)
119
-        Me.Label12.TabIndex = 634
120
-        Me.Label12.Text = "伺服器FTP文件夾"
121
-        '
122
-        'FTP資料夾_wb
123
-        '
124
-        Me.FTP資料夾_wb.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
125
-            Or System.Windows.Forms.AnchorStyles.Left) _
126
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
127
-        Me.FTP資料夾_wb.Location = New System.Drawing.Point(585, 39)
128
-        Me.FTP資料夾_wb.MinimumSize = New System.Drawing.Size(20, 20)
129
-        Me.FTP資料夾_wb.Name = "FTP資料夾_wb"
130
-        Me.FTP資料夾_wb.Size = New System.Drawing.Size(1318, 922)
131
-        Me.FTP資料夾_wb.TabIndex = 633
132
-        Me.FTP資料夾_wb.Url = New System.Uri("", System.UriKind.Relative)
133
-        '
134
-        '字體大小調整_lb
135
-        '
136
-        Me.字體大小調整_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
137
-        Me.字體大小調整_lb.AutoSize = True
138
-        Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
139
-        Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Red
140
-        Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
141
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(1783, 11)
142
-        Me.字體大小調整_lb.Name = "字體大小調整_lb"
143
-        Me.字體大小調整_lb.Size = New System.Drawing.Size(69, 19)
144
-        Me.字體大小調整_lb.TabIndex = 1493
145
-        Me.字體大小調整_lb.Text = "字體調整"
146
-        '
147
-        '字體_NUD
148
-        '
149
-        Me.字體_NUD.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
150
-        Me.字體_NUD.Location = New System.Drawing.Point(1852, 10)
151
-        Me.字體_NUD.Maximum = New Decimal(New Integer() {15, 0, 0, 0})
152
-        Me.字體_NUD.Minimum = New Decimal(New Integer() {9, 0, 0, 0})
153
-        Me.字體_NUD.Name = "字體_NUD"
154
-        Me.字體_NUD.Size = New System.Drawing.Size(52, 23)
155
-        Me.字體_NUD.TabIndex = 1492
156
-        Me.字體_NUD.Value = New Decimal(New Integer() {9, 0, 0, 0})
157
-        '
158
-        'FTP資料夾管理
159
-        '
160
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
161
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
162
-        Me.ClientSize = New System.Drawing.Size(1914, 971)
163
-        Me.Controls.Add(Me.字體大小調整_lb)
164
-        Me.Controls.Add(Me.字體_NUD)
165
-        Me.Controls.Add(Me.指定_tb)
166
-        Me.Controls.Add(Me.刪除_bt)
167
-        Me.Controls.Add(Me.修改_bt)
168
-        Me.Controls.Add(Me.新增_bt)
169
-        Me.Controls.Add(Me.備註_tb)
170
-        Me.Controls.Add(Me.指定頁面_tb)
171
-        Me.Controls.Add(Me.資料夾名稱_tb)
172
-        Me.Controls.Add(Me.Label12)
173
-        Me.Controls.Add(Me.FTP資料夾_wb)
174
-        Me.Controls.Add(Me.資料夾清單_dgv)
175
-        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
176
-        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
177
-        Me.Name = "FTP資料夾管理"
178
-        Me.Text = "FTP資料夾管理"
179
-        CType(Me.資料夾清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
180
-        CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
181
-        Me.ResumeLayout(False)
182
-        Me.PerformLayout()
183
-
184
-    End Sub
185
-
186
-    Friend WithEvents 指定_tb As Windows.Forms.TextBox
187
-    Friend WithEvents 刪除_bt As Windows.Forms.Button
188
-    Friend WithEvents 修改_bt As Windows.Forms.Button
189
-    Friend WithEvents 新增_bt As Windows.Forms.Button
190
-    Friend WithEvents 備註_tb As Windows.Forms.TextBox
191
-    Friend WithEvents 指定頁面_tb As Windows.Forms.TextBox
192
-    Friend WithEvents 資料夾名稱_tb As Windows.Forms.TextBox
193
-    Friend WithEvents 資料夾清單_dgv As Windows.Forms.DataGridView
194
-    Friend WithEvents Label12 As Windows.Forms.Label
195
-    Friend WithEvents FTP資料夾_wb As Windows.Forms.WebBrowser
196
-    Friend WithEvents 字體大小調整_lb As Label
197
-    Friend WithEvents 字體_NUD As NumericUpDown
198
-End Class

+ 0
- 120
YD-ERP-SYS/資料庫系統管理/FTP資料夾管理.resx Переглянути файл

@@ -1,120 +0,0 @@
1
-<?xml version="1.0" encoding="utf-8"?>
2
-<root>
3
-  <!-- 
4
-    Microsoft ResX Schema 
5
-    
6
-    Version 2.0
7
-    
8
-    The primary goals of this format is to allow a simple XML format 
9
-    that is mostly human readable. The generation and parsing of the 
10
-    various data types are done through the TypeConverter classes 
11
-    associated with the data types.
12
-    
13
-    Example:
14
-    
15
-    ... ado.net/XML headers & schema ...
16
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
17
-    <resheader name="version">2.0</resheader>
18
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
19
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
20
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
21
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
22
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
23
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
24
-    </data>
25
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
26
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
27
-        <comment>This is a comment</comment>
28
-    </data>
29
-                
30
-    There are any number of "resheader" rows that contain simple 
31
-    name/value pairs.
32
-    
33
-    Each data row contains a name, and value. The row also contains a 
34
-    type or mimetype. Type corresponds to a .NET class that support 
35
-    text/value conversion through the TypeConverter architecture. 
36
-    Classes that don't support this are serialized and stored with the 
37
-    mimetype set.
38
-    
39
-    The mimetype is used for serialized objects, and tells the 
40
-    ResXResourceReader how to depersist the object. This is currently not 
41
-    extensible. For a given mimetype the value must be set accordingly:
42
-    
43
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
44
-    that the ResXResourceWriter will generate, however the reader can 
45
-    read any of the formats listed below.
46
-    
47
-    mimetype: application/x-microsoft.net.object.binary.base64
48
-    value   : The object must be serialized with 
49
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
50
-            : and then encoded with base64 encoding.
51
-    
52
-    mimetype: application/x-microsoft.net.object.soap.base64
53
-    value   : The object must be serialized with 
54
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
55
-            : and then encoded with base64 encoding.
56
-
57
-    mimetype: application/x-microsoft.net.object.bytearray.base64
58
-    value   : The object must be serialized into a byte array 
59
-            : using a System.ComponentModel.TypeConverter
60
-            : and then encoded with base64 encoding.
61
-    -->
62
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
63
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
64
-    <xsd:element name="root" msdata:IsDataSet="true">
65
-      <xsd:complexType>
66
-        <xsd:choice maxOccurs="unbounded">
67
-          <xsd:element name="metadata">
68
-            <xsd:complexType>
69
-              <xsd:sequence>
70
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
71
-              </xsd:sequence>
72
-              <xsd:attribute name="name" use="required" type="xsd:string" />
73
-              <xsd:attribute name="type" type="xsd:string" />
74
-              <xsd:attribute name="mimetype" type="xsd:string" />
75
-              <xsd:attribute ref="xml:space" />
76
-            </xsd:complexType>
77
-          </xsd:element>
78
-          <xsd:element name="assembly">
79
-            <xsd:complexType>
80
-              <xsd:attribute name="alias" type="xsd:string" />
81
-              <xsd:attribute name="name" type="xsd:string" />
82
-            </xsd:complexType>
83
-          </xsd:element>
84
-          <xsd:element name="data">
85
-            <xsd:complexType>
86
-              <xsd:sequence>
87
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
88
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
89
-              </xsd:sequence>
90
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
91
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
92
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
93
-              <xsd:attribute ref="xml:space" />
94
-            </xsd:complexType>
95
-          </xsd:element>
96
-          <xsd:element name="resheader">
97
-            <xsd:complexType>
98
-              <xsd:sequence>
99
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
100
-              </xsd:sequence>
101
-              <xsd:attribute name="name" type="xsd:string" use="required" />
102
-            </xsd:complexType>
103
-          </xsd:element>
104
-        </xsd:choice>
105
-      </xsd:complexType>
106
-    </xsd:element>
107
-  </xsd:schema>
108
-  <resheader name="resmimetype">
109
-    <value>text/microsoft-resx</value>
110
-  </resheader>
111
-  <resheader name="version">
112
-    <value>2.0</value>
113
-  </resheader>
114
-  <resheader name="reader">
115
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
116
-  </resheader>
117
-  <resheader name="writer">
118
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
119
-  </resheader>
120
-</root>

+ 0
- 40
YD-ERP-SYS/資料庫系統管理/FTP資料夾管理.vb Переглянути файл

@@ -1,40 +0,0 @@
1
-Option Strict Off
2
-Public Class FTP資料夾管理
3
-    ReadOnly ds As New DataSet
4
-    Private Sub Set_使用者清單()
5
-        資料夾清單_dgv.DataSource = Nothing : ds.Clear()
6
-        資料夾清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
7
-        資料夾清單_dgv.ColumnHeadersHeight = 25
8
-        資料夾清單_dgv.AllowUserToAddRows = False
9
-        SQL_FTP資料夾路徑分配()
10
-        資料夾清單_dgv.RowTemplate.Height = 30
11
-        da.Fill(ds) : 資料夾清單_dgv.DataSource = ds.Tables(0) : conn.Close()
12
-        資料夾清單_dgv.Columns(0).FillWeight = 70 : 資料夾清單_dgv.Columns(1).FillWeight = 200 : 資料夾清單_dgv.Columns(2).FillWeight = 200 : 資料夾清單_dgv.Columns(3).FillWeight = 100
13
-    End Sub
14
-    Private Sub FTP資料夾管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
15
-        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
16
-        Set_使用者清單()
17
-        Target1 = Target : FTP資料夾_wb.Url = New Uri(Target1)
18
-    End Sub
19
-    Private Sub 資料夾清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 資料夾清單_dgv.CellClick
20
-        If e.RowIndex = -1 Then : Else
21
-            資料夾名稱_tb.Text = 資料夾清單_dgv("資料夾名稱", e.RowIndex).Value.ToString : 指定頁面_tb.Text = 資料夾清單_dgv("指定頁面", e.RowIndex).Value.ToString
22
-            備註_tb.Text = 資料夾清單_dgv("備註", e.RowIndex).Value.ToString : 指定_tb.Text = 資料夾清單_dgv("指定", e.RowIndex).Value.ToString
23
-        End If
24
-    End Sub
25
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
26
-        SQL_FTP資料夾管理新增() : conn.Close() : Set_使用者清單()
27
-    End Sub
28
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
29
-        SQL_FTP資料夾管理修改() : conn.Close() : Set_使用者清單()
30
-    End Sub
31
-    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
32
-        Dim aa As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
33
-        If aa = MsgBoxResult.Ok Then
34
-            SQL_FTP資料夾管理刪除()
35
-        End If : conn.Close() : Set_使用者清單()
36
-    End Sub
37
-    Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
38
-        資料夾清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
39
-    End Sub
40
-End Class

+ 9
- 104
YD-ERP-SYS/資料庫系統管理/系統執行檔版本管理.Designer.vb Переглянути файл

@@ -22,112 +22,29 @@ Partial Class 系統執行檔版本管理
22 22
     '請勿使用程式碼編輯器進行修改。
23 23
     <System.Diagnostics.DebuggerStepThrough()> _
24 24
     Private Sub InitializeComponent()
25
-        Me.Label1 = New System.Windows.Forms.Label()
26
-        Me.FTP原代碼_wb = New System.Windows.Forms.WebBrowser()
27 25
         Me.資料庫版本號_lb = New System.Windows.Forms.Label()
28
-        Me.Label12 = New System.Windows.Forms.Label()
29
-        Me.Label13 = New System.Windows.Forms.Label()
30
-        Me.讀取資料夾路徑_bt = New System.Windows.Forms.Button()
31
-        Me.本機資料夾_wb = New System.Windows.Forms.WebBrowser()
32
-        Me.FTP執行檔_wb = New System.Windows.Forms.WebBrowser()
33 26
         Me.修改_bt = New System.Windows.Forms.Button()
34 27
         Me.Label3 = New System.Windows.Forms.Label()
35 28
         Me.版本號_tb = New System.Windows.Forms.TextBox()
36 29
         Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
37 30
         Me.SuspendLayout()
38 31
         '
39
-        'Label1
40
-        '
41
-        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
42
-        Me.Label1.AutoSize = True
43
-        Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
44
-        Me.Label1.Location = New System.Drawing.Point(696, 303)
45
-        Me.Label1.Name = "Label1"
46
-        Me.Label1.Size = New System.Drawing.Size(79, 16)
47
-        Me.Label1.TabIndex = 649
48
-        Me.Label1.Text = "原代碼存放取"
49
-        '
50
-        'FTP原代碼_wb
51
-        '
52
-        Me.FTP原代碼_wb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
53
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
54
-        Me.FTP原代碼_wb.Location = New System.Drawing.Point(695, 322)
55
-        Me.FTP原代碼_wb.MinimumSize = New System.Drawing.Size(20, 20)
56
-        Me.FTP原代碼_wb.Name = "FTP原代碼_wb"
57
-        Me.FTP原代碼_wb.Size = New System.Drawing.Size(364, 274)
58
-        Me.FTP原代碼_wb.TabIndex = 648
59
-        Me.FTP原代碼_wb.Url = New System.Uri("", System.UriKind.Relative)
60
-        '
61 32
         '資料庫版本號_lb
62 33
         '
63 34
         Me.資料庫版本號_lb.AutoSize = True
64 35
         Me.資料庫版本號_lb.BackColor = System.Drawing.SystemColors.Control
65
-        Me.資料庫版本號_lb.Location = New System.Drawing.Point(431, 6)
36
+        Me.資料庫版本號_lb.Location = New System.Drawing.Point(1, 34)
66 37
         Me.資料庫版本號_lb.Name = "資料庫版本號_lb"
67 38
         Me.資料庫版本號_lb.Size = New System.Drawing.Size(158, 16)
68 39
         Me.資料庫版本號_lb.TabIndex = 647
69 40
         Me.資料庫版本號_lb.Text = "資料庫版本號 : 2018110801"
70 41
         '
71
-        'Label12
72
-        '
73
-        Me.Label12.AutoSize = True
74
-        Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
75
-        Me.Label12.Location = New System.Drawing.Point(693, 5)
76
-        Me.Label12.Name = "Label12"
77
-        Me.Label12.Size = New System.Drawing.Size(91, 16)
78
-        Me.Label12.TabIndex = 646
79
-        Me.Label12.Text = "執行檔案更新區"
80
-        '
81
-        'Label13
82
-        '
83
-        Me.Label13.AutoSize = True
84
-        Me.Label13.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
85
-        Me.Label13.Location = New System.Drawing.Point(5, 7)
86
-        Me.Label13.Name = "Label13"
87
-        Me.Label13.Size = New System.Drawing.Size(55, 16)
88
-        Me.Label13.TabIndex = 645
89
-        Me.Label13.Text = "我的電腦"
90
-        '
91
-        '讀取資料夾路徑_bt
92
-        '
93
-        Me.讀取資料夾路徑_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
94
-        Me.讀取資料夾路徑_bt.ForeColor = System.Drawing.Color.Blue
95
-        Me.讀取資料夾路徑_bt.Location = New System.Drawing.Point(67, 3)
96
-        Me.讀取資料夾路徑_bt.Name = "讀取資料夾路徑_bt"
97
-        Me.讀取資料夾路徑_bt.Size = New System.Drawing.Size(97, 24)
98
-        Me.讀取資料夾路徑_bt.TabIndex = 644
99
-        Me.讀取資料夾路徑_bt.Text = "讀取料夾路徑"
100
-        Me.讀取資料夾路徑_bt.UseVisualStyleBackColor = True
101
-        '
102
-        '本機資料夾_wb
103
-        '
104
-        Me.本機資料夾_wb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
105
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
106
-        Me.本機資料夾_wb.Location = New System.Drawing.Point(8, 34)
107
-        Me.本機資料夾_wb.MinimumSize = New System.Drawing.Size(20, 20)
108
-        Me.本機資料夾_wb.Name = "本機資料夾_wb"
109
-        Me.本機資料夾_wb.Size = New System.Drawing.Size(682, 562)
110
-        Me.本機資料夾_wb.TabIndex = 643
111
-        Me.本機資料夾_wb.Url = New System.Uri("", System.UriKind.Relative)
112
-        '
113
-        'FTP執行檔_wb
114
-        '
115
-        Me.FTP執行檔_wb.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
116
-            Or System.Windows.Forms.AnchorStyles.Left) _
117
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
118
-        Me.FTP執行檔_wb.Location = New System.Drawing.Point(696, 24)
119
-        Me.FTP執行檔_wb.MinimumSize = New System.Drawing.Size(20, 20)
120
-        Me.FTP執行檔_wb.Name = "FTP執行檔_wb"
121
-        Me.FTP執行檔_wb.Size = New System.Drawing.Size(363, 276)
122
-        Me.FTP執行檔_wb.TabIndex = 642
123
-        Me.FTP執行檔_wb.Url = New System.Uri("", System.UriKind.Relative)
124
-        '
125 42
         '修改_bt
126 43
         '
127
-        Me.修改_bt.Location = New System.Drawing.Point(320, 3)
44
+        Me.修改_bt.Location = New System.Drawing.Point(162, 5)
128 45
         Me.修改_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
129 46
         Me.修改_bt.Name = "修改_bt"
130
-        Me.修改_bt.Size = New System.Drawing.Size(105, 24)
47
+        Me.修改_bt.Size = New System.Drawing.Size(105, 45)
131 48
         Me.修改_bt.TabIndex = 641
132 49
         Me.修改_bt.Text = "修改"
133 50
         '
@@ -135,7 +52,7 @@ Partial Class 系統執行檔版本管理
135 52
         '
136 53
         Me.Label3.AutoSize = True
137 54
         Me.Label3.BackColor = System.Drawing.SystemColors.Control
138
-        Me.Label3.Location = New System.Drawing.Point(170, 7)
55
+        Me.Label3.Location = New System.Drawing.Point(12, 9)
139 56
         Me.Label3.Name = "Label3"
140 57
         Me.Label3.Size = New System.Drawing.Size(43, 16)
141 58
         Me.Label3.TabIndex = 640
@@ -144,7 +61,7 @@ Partial Class 系統執行檔版本管理
144 61
         '版本號_tb
145 62
         '
146 63
         Me.版本號_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
147
-        Me.版本號_tb.Location = New System.Drawing.Point(216, 4)
64
+        Me.版本號_tb.Location = New System.Drawing.Point(58, 6)
148 65
         Me.版本號_tb.Margin = New System.Windows.Forms.Padding(5)
149 66
         Me.版本號_tb.Name = "版本號_tb"
150 67
         Me.版本號_tb.Size = New System.Drawing.Size(101, 23)
@@ -158,35 +75,23 @@ Partial Class 系統執行檔版本管理
158 75
         '
159 76
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
160 77
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
161
-        Me.ClientSize = New System.Drawing.Size(1068, 601)
162
-        Me.Controls.Add(Me.Label1)
163
-        Me.Controls.Add(Me.FTP原代碼_wb)
78
+        Me.ClientSize = New System.Drawing.Size(272, 58)
164 79
         Me.Controls.Add(Me.資料庫版本號_lb)
165
-        Me.Controls.Add(Me.Label12)
166
-        Me.Controls.Add(Me.Label13)
167
-        Me.Controls.Add(Me.讀取資料夾路徑_bt)
168
-        Me.Controls.Add(Me.本機資料夾_wb)
169
-        Me.Controls.Add(Me.FTP執行檔_wb)
170 80
         Me.Controls.Add(Me.修改_bt)
171 81
         Me.Controls.Add(Me.Label3)
172 82
         Me.Controls.Add(Me.版本號_tb)
173 83
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
174 84
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
85
+        Me.MaximizeBox = False
86
+        Me.MinimizeBox = False
175 87
         Me.Name = "系統執行檔版本管理"
88
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
176 89
         Me.Text = "系統執行檔版本管理"
177 90
         Me.ResumeLayout(False)
178 91
         Me.PerformLayout()
179 92
 
180 93
     End Sub
181
-
182
-    Friend WithEvents Label1 As Windows.Forms.Label
183
-    Friend WithEvents FTP原代碼_wb As Windows.Forms.WebBrowser
184 94
     Friend WithEvents 資料庫版本號_lb As Windows.Forms.Label
185
-    Friend WithEvents Label12 As Windows.Forms.Label
186
-    Friend WithEvents Label13 As Windows.Forms.Label
187
-    Friend WithEvents 讀取資料夾路徑_bt As Windows.Forms.Button
188
-    Friend WithEvents 本機資料夾_wb As Windows.Forms.WebBrowser
189
-    Friend WithEvents FTP執行檔_wb As Windows.Forms.WebBrowser
190 95
     Friend WithEvents 修改_bt As Windows.Forms.Button
191 96
     Friend WithEvents Label3 As Windows.Forms.Label
192 97
     Friend WithEvents 版本號_tb As Windows.Forms.TextBox

+ 0
- 6
YD-ERP-SYS/資料庫系統管理/系統執行檔版本管理.vb Переглянути файл

@@ -1,17 +1,11 @@
1 1
 Option Strict Off
2 2
 Public Class 系統執行檔版本管理
3 3
     Private Sub 系統執行檔版本管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
4
-        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
5 4
         SQL_系統版本號驗證()
6 5
         If dr.Read() Then : 資料庫版本號_lb.Text = "資料庫版本號 : " & dr("系統認證版本號") : 版本號_tb.Text = dr("系統認證版本號") : End If : conn.Close()
7
-        Target1 = Target & AA(0) & "/" : Target2 = Target & AA(1) & "/" : FTP執行檔_wb.Url = New Uri(Target1) : FTP原代碼_wb.Url = New Uri(Target2)
8
-        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then : 本機資料夾_wb.Navigate(FolderBrowserDialog1.SelectedPath) : End If
9 6
     End Sub
10 7
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
11 8
         SQL_版本號管理修改() : conn.Close() : SQL_系統版本號驗證()
12 9
         If dr.Read() Then : 資料庫版本號_lb.Text = "資料庫版本號 : " & dr("系統認證版本號") : 版本號_tb.Text = dr("系統認證版本號") : End If : conn.Close() : MsgBox("修改完成")
13 10
     End Sub
14
-    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_bt.Click
15
-        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then : 本機資料夾_wb.Navigate(FolderBrowserDialog1.SelectedPath) : End If
16
-    End Sub
17 11
 End Class

Завантаження…
Відмінити
Зберегти