LEEHSIEHJUI 7 months ago
parent
commit
223009e923
28 changed files with 1236 additions and 366 deletions
  1. BIN
      .vs/HSKIN-MIS-SYS/FileContentIndex/0594c510-fa7a-47c4-83fd-3b1b75906667.vsidx
  2. BIN
      .vs/HSKIN-MIS-SYS/FileContentIndex/0c4caa58-ddaa-4e0f-9431-3df42736ea43.vsidx
  3. BIN
      .vs/HSKIN-MIS-SYS/FileContentIndex/11b12dcb-6f8b-422b-aabc-a019bd876af9.vsidx
  4. BIN
      .vs/HSKIN-MIS-SYS/FileContentIndex/193782ba-854a-4d81-98e2-37ed94875da8.vsidx
  5. BIN
      .vs/HSKIN-MIS-SYS/FileContentIndex/69399db5-6421-4a3a-84d3-f57c5bd49305.vsidx
  6. BIN
      .vs/HSKIN-MIS-SYS/FileContentIndex/81ee0f1e-15ed-46e8-8f0f-f3606ebb9472.vsidx
  7. BIN
      .vs/HSKIN-MIS-SYS/FileContentIndex/c39da519-3076-4a7d-93b7-d92cce5ff0b9.vsidx
  8. BIN
      .vs/HSKIN-MIS-SYS/v17/.suo
  9. 59
    157
      .vs/HSKIN-MIS-SYS/v17/DocumentLayout.json
  10. 67
    7
      GRAMS-SYS/00、Module/SQL_總務系統.vb
  11. 1
    1
      GRAMS-SYS/00、Module/全域變數.vb
  12. 1
    1
      GRAMS-SYS/06、總務管理/專案及會議提案.vb
  13. 472
    77
      GRAMS-SYS/06、總務管理/文件.Designer.vb
  14. 325
    0
      GRAMS-SYS/06、總務管理/文件.resx
  15. 170
    72
      GRAMS-SYS/06、總務管理/文件.vb
  16. 54
    38
      GRAMS-SYS/HSKIN-MIS-SYS.Designer.vb
  17. 45
    13
      GRAMS-SYS/HSKIN-MIS-SYS.vb
  18. BIN
      GRAMS-SYS/bin/Debug/HSKIN-MIS-SYS.exe
  19. BIN
      GRAMS-SYS/bin/Debug/HSKIN-MIS-SYS.pdb
  20. 42
    0
      GRAMS-SYS/bin/Debug/IM02.pdf
  21. BIN
      GRAMS-SYS/obj/Debug/DesignTimeResolveAssemblyReferences.cache
  22. BIN
      GRAMS-SYS/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
  23. BIN
      GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.exe
  24. BIN
      GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.pdb
  25. BIN
      GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.vbproj.GenerateResource.cache
  26. BIN
      GRAMS-SYS/obj/Debug/HSKIN_MIS_SYS.Resources.resources
  27. BIN
      GRAMS-SYS/obj/Debug/HSKIN_MIS_SYS.文件.resources
  28. BIN
      GRAMS-SYS/圖片/無檔案.png

BIN
.vs/HSKIN-MIS-SYS/FileContentIndex/dd936901-2920-4970-b794-c820bf7b958e.vsidx → .vs/HSKIN-MIS-SYS/FileContentIndex/0594c510-fa7a-47c4-83fd-3b1b75906667.vsidx View File


BIN
.vs/HSKIN-MIS-SYS/FileContentIndex/0c4caa58-ddaa-4e0f-9431-3df42736ea43.vsidx View File


BIN
.vs/HSKIN-MIS-SYS/FileContentIndex/11b12dcb-6f8b-422b-aabc-a019bd876af9.vsidx View File


BIN
.vs/HSKIN-MIS-SYS/FileContentIndex/193782ba-854a-4d81-98e2-37ed94875da8.vsidx View File


BIN
.vs/HSKIN-MIS-SYS/FileContentIndex/69399db5-6421-4a3a-84d3-f57c5bd49305.vsidx View File


BIN
.vs/HSKIN-MIS-SYS/FileContentIndex/81ee0f1e-15ed-46e8-8f0f-f3606ebb9472.vsidx View File


BIN
.vs/HSKIN-MIS-SYS/FileContentIndex/c39da519-3076-4a7d-93b7-d92cce5ff0b9.vsidx View File


BIN
.vs/HSKIN-MIS-SYS/v17/.suo View File


+ 59
- 157
.vs/HSKIN-MIS-SYS/v17/DocumentLayout.json View File

@@ -3,68 +3,44 @@
3 3
   "WorkspaceRootPath": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\",
4 4
   "Documents": [
5 5
     {
6
-      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\hskin\\hskin-mis-sys\\grams-sys\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u6253\u5361\u4E3B\u6A5F.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
7
-      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u6253\u5361\u4E3B\u6A5F.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
8
-    },
9
-    {
10
-      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\hskin\\hskin-mis-sys\\grams-sys\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u6253\u5361\u4E3B\u6A5F.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
11
-      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u6253\u5361\u4E3B\u6A5F.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
12
-    },
13
-    {
14
-      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\hskin\\hskin-mis-sys\\grams-sys\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7D81\u5B9A\u96FB\u8166\u8CC7\u8A0A.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
15
-      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7D81\u5B9A\u96FB\u8166\u8CC7\u8A0A.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
16
-    },
17
-    {
18
-      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\hskin\\hskin-mis-sys\\grams-sys\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7D81\u5B9A\u96FB\u8166\u8CC7\u8A0A.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
19
-      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7D81\u5B9A\u96FB\u8166\u8CC7\u8A0A.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
20
-    },
21
-    {
22
-      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\grams-sys\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u660E\u7D30\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
23
-      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u660E\u7D30\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
24
-    },
25
-    {
26
-      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\grams-sys\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u660E\u7D30\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
27
-      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u660E\u7D30\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
28
-    },
29
-    {
30
-      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\grams-sys\\00\u3001module\\sql_\u8003\u52E4\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
31
-      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\00\u3001module\\sql_\u8003\u52E4\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
32
-    },
33
-    {
34
-      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\hskin\\hskin-mis-sys\\grams-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
35
-      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
6
+      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\grams-sys\\hskin-mis-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
7
+      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\hskin-mis-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
36 8
     },
37 9
     {
38
-      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\hskin\\hskin-mis-sys\\grams-sys\\hskin-mis-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
10
+      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\grams-sys\\hskin-mis-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
39 11
       "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\hskin-mis-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
40 12
     },
41 13
     {
42
-      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\hskin\\hskin-mis-sys\\grams-sys\\hskin-mis-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
43
-      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\hskin-mis-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
14
+      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\grams-sys\\00\u3001module\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
15
+      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\00\u3001module\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
44 16
     },
45 17
     {
46
-      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\hskin\\hskin-mis-sys\\grams-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
47
-      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
18
+      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\grams-sys\\00\u3001module\\sql_\u7E3D\u52D9\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
19
+      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\00\u3001module\\sql_\u7E3D\u52D9\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
48 20
     },
49 21
     {
50
-      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\hskin\\hskin-mis-sys\\grams-sys\\00\u3001module\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
51
-      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\00\u3001module\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
22
+      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\grams-sys\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
23
+      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
52 24
     },
53 25
     {
54
-      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\hskin\\hskin-mis-sys\\grams-sys\\00\u3001module\\sql_\u767B\u5165\u8207\u4E3B\u7A0B\u5F0F.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
55
-      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\00\u3001module\\sql_\u767B\u5165\u8207\u4E3B\u7A0B\u5F0F.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
26
+      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\grams-sys\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u660E\u7D30\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
27
+      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u660E\u7D30\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
56 28
     },
57 29
     {
58 30
       "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\grams-sys\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
59 31
       "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
60 32
     },
61 33
     {
62
-      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\grams-sys\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
63
-      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
34
+      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|d:\\\u5DE5\u5DE7\u660E\\hskin\\hskin-mis-sys\\grams-sys\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u6587\u4EF6.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
35
+      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u6587\u4EF6.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
64 36
     },
65 37
     {
66
-      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\grams-sys\\00\u3001module\\sql_\u7E3D\u52D9\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
67
-      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\00\u3001module\\sql_\u7E3D\u52D9\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
38
+      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\grams-sys\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u6587\u4EF6.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
39
+      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u6587\u4EF6.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
40
+    },
41
+    {
42
+      "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\grams-sys\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u660E\u7D30\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
43
+      "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u660E\u7D30\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
68 44
     },
69 45
     {
70 46
       "AbsoluteMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\grams-sys\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u57F7\u884C.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
@@ -82,7 +58,7 @@
82 58
       "DocumentGroups": [
83 59
         {
84 60
           "DockedWidth": 200,
85
-          "SelectedChildIndex": 5,
61
+          "SelectedChildIndex": 4,
86 62
           "Children": [
87 63
             {
88 64
               "$type": "Bookmark",
@@ -90,45 +66,44 @@
90 66
             },
91 67
             {
92 68
               "$type": "Document",
93
-              "DocumentIndex": 2,
94
-              "Title": "\u7CFB\u7D71\u7D81\u5B9A\u96FB\u8166\u8CC7\u8A0A.vb",
95
-              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7D81\u5B9A\u96FB\u8166\u8CC7\u8A0A.vb",
96
-              "RelativeDocumentMoniker": "GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7D81\u5B9A\u96FB\u8166\u8CC7\u8A0A.vb",
97
-              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7D81\u5B9A\u96FB\u8166\u8CC7\u8A0A.vb",
98
-              "RelativeToolTip": "GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7D81\u5B9A\u96FB\u8166\u8CC7\u8A0A.vb",
99
-              "ViewState": "AQIAACEAAAAAAAAAAAAYwDsAAAAMAAAA",
100
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
101
-              "WhenOpened": "2024-10-13T12:38:54.01Z",
69
+              "DocumentIndex": 7,
70
+              "Title": "\u6587\u4EF6.vb",
71
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u6587\u4EF6.vb",
72
+              "RelativeDocumentMoniker": "GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u6587\u4EF6.vb",
73
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u6587\u4EF6.vb",
74
+              "RelativeToolTip": "GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u6587\u4EF6.vb",
75
+              "ViewState": "AQIAAAMBAAAAAAAAAAAMwCQBAAAtAAAA",
76
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
77
+              "WhenOpened": "2024-10-16T09:54:00.293Z",
102 78
               "EditorCaption": ""
103 79
             },
104 80
             {
105 81
               "$type": "Document",
106
-              "DocumentIndex": 3,
107
-              "Title": "\u7CFB\u7D71\u7D81\u5B9A\u96FB\u8166\u8CC7\u8A0A.vb [\u8A2D\u8A08]",
108
-              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7D81\u5B9A\u96FB\u8166\u8CC7\u8A0A.vb",
109
-              "RelativeDocumentMoniker": "GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7D81\u5B9A\u96FB\u8166\u8CC7\u8A0A.vb",
110
-              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7D81\u5B9A\u96FB\u8166\u8CC7\u8A0A.vb [\u8A2D\u8A08]",
111
-              "RelativeToolTip": "GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7D81\u5B9A\u96FB\u8166\u8CC7\u8A0A.vb [\u8A2D\u8A08]",
82
+              "DocumentIndex": 8,
83
+              "Title": "\u6587\u4EF6.vb [\u8A2D\u8A08]",
84
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u6587\u4EF6.vb",
85
+              "RelativeDocumentMoniker": "GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u6587\u4EF6.vb",
86
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u6587\u4EF6.vb [\u8A2D\u8A08]",
87
+              "RelativeToolTip": "GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u6587\u4EF6.vb [\u8A2D\u8A08]",
112 88
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
113
-              "WhenOpened": "2024-10-13T12:37:33.584Z",
114
-              "EditorCaption": " [\u8A2D\u8A08]"
89
+              "WhenOpened": "2024-10-16T09:53:56.843Z"
115 90
             },
116 91
             {
117 92
               "$type": "Document",
118
-              "DocumentIndex": 8,
93
+              "DocumentIndex": 1,
119 94
               "Title": "HSKIN-MIS-SYS.vb",
120 95
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\HSKIN-MIS-SYS.vb",
121 96
               "RelativeDocumentMoniker": "GRAMS-SYS\\HSKIN-MIS-SYS.vb",
122 97
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\HSKIN-MIS-SYS.vb",
123 98
               "RelativeToolTip": "GRAMS-SYS\\HSKIN-MIS-SYS.vb",
124
-              "ViewState": "AQIAAJ4AAAAAAAAAAAAlwLIAAAAIAAAA",
99
+              "ViewState": "AQIAAGEAAAAAAAAAAAAgwHgAAABHAAAA",
125 100
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
126 101
               "WhenOpened": "2024-10-13T12:37:24.854Z",
127 102
               "EditorCaption": ""
128 103
             },
129 104
             {
130 105
               "$type": "Document",
131
-              "DocumentIndex": 9,
106
+              "DocumentIndex": 0,
132 107
               "Title": "HSKIN-MIS-SYS.vb [\u8A2D\u8A08]",
133 108
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\HSKIN-MIS-SYS.vb",
134 109
               "RelativeDocumentMoniker": "GRAMS-SYS\\HSKIN-MIS-SYS.vb",
@@ -140,109 +115,33 @@
140 115
             },
141 116
             {
142 117
               "$type": "Document",
143
-              "DocumentIndex": 0,
144
-              "Title": "\u8003\u52E4\u6253\u5361\u4E3B\u6A5F.vb",
145
-              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u6253\u5361\u4E3B\u6A5F.vb",
146
-              "RelativeDocumentMoniker": "GRAMS-SYS\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u6253\u5361\u4E3B\u6A5F.vb",
147
-              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u6253\u5361\u4E3B\u6A5F.vb",
148
-              "RelativeToolTip": "GRAMS-SYS\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u6253\u5361\u4E3B\u6A5F.vb",
149
-              "ViewState": "AQIAAAAAAAAAAAAAAAAAABkAAAAJAAAA",
150
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
151
-              "WhenOpened": "2024-10-13T12:33:06.98Z",
152
-              "EditorCaption": ""
153
-            },
154
-            {
155
-              "$type": "Document",
156
-              "DocumentIndex": 1,
157
-              "Title": "\u8003\u52E4\u6253\u5361\u4E3B\u6A5F.vb [\u8A2D\u8A08]",
158
-              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u6253\u5361\u4E3B\u6A5F.vb",
159
-              "RelativeDocumentMoniker": "GRAMS-SYS\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u6253\u5361\u4E3B\u6A5F.vb",
160
-              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u6253\u5361\u4E3B\u6A5F.vb [\u8A2D\u8A08]",
161
-              "RelativeToolTip": "GRAMS-SYS\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u6253\u5361\u4E3B\u6A5F.vb [\u8A2D\u8A08]",
162
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
163
-              "WhenOpened": "2024-10-13T12:32:59.495Z",
164
-              "EditorCaption": " [\u8A2D\u8A08]"
165
-            },
166
-            {
167
-              "$type": "Document",
168
-              "DocumentIndex": 12,
169
-              "Title": "SQL_\u767B\u5165\u8207\u4E3B\u7A0B\u5F0F.vb",
170
-              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\SQL_\u767B\u5165\u8207\u4E3B\u7A0B\u5F0F.vb",
171
-              "RelativeDocumentMoniker": "GRAMS-SYS\\00\u3001Module\\SQL_\u767B\u5165\u8207\u4E3B\u7A0B\u5F0F.vb",
172
-              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\SQL_\u767B\u5165\u8207\u4E3B\u7A0B\u5F0F.vb",
173
-              "RelativeToolTip": "GRAMS-SYS\\00\u3001Module\\SQL_\u767B\u5165\u8207\u4E3B\u7A0B\u5F0F.vb",
174
-              "ViewState": "AQIAAAUAAAAAAAAAAAAlwBsAAAAhAAAA",
175
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
176
-              "WhenOpened": "2024-10-13T12:25:10.207Z",
177
-              "EditorCaption": ""
178
-            },
179
-            {
180
-              "$type": "Document",
181
-              "DocumentIndex": 10,
182
-              "Title": "LoginForm1.vb",
183
-              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\LoginForm1.vb",
184
-              "RelativeDocumentMoniker": "GRAMS-SYS\\LoginForm1.vb",
185
-              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\LoginForm1.vb",
186
-              "RelativeToolTip": "GRAMS-SYS\\LoginForm1.vb",
187
-              "ViewState": "AQIAAF8AAAAAAAAAAAAcwHUAAAAWAAAA",
188
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
189
-              "WhenOpened": "2024-10-13T12:24:54.135Z",
190
-              "EditorCaption": ""
191
-            },
192
-            {
193
-              "$type": "Document",
194
-              "DocumentIndex": 7,
195
-              "Title": "LoginForm1.vb [\u8A2D\u8A08]",
196
-              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\LoginForm1.vb",
197
-              "RelativeDocumentMoniker": "GRAMS-SYS\\LoginForm1.vb",
198
-              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\LoginForm1.vb [\u8A2D\u8A08]",
199
-              "RelativeToolTip": "GRAMS-SYS\\LoginForm1.vb [\u8A2D\u8A08]",
200
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
201
-              "WhenOpened": "2024-10-13T12:24:46.449Z",
202
-              "EditorCaption": " [\u8A2D\u8A08]"
203
-            },
204
-            {
205
-              "$type": "Document",
206
-              "DocumentIndex": 11,
118
+              "DocumentIndex": 2,
207 119
               "Title": "\u5168\u57DF\u8B8A\u6578.vb",
208 120
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\\u5168\u57DF\u8B8A\u6578.vb",
209 121
               "RelativeDocumentMoniker": "GRAMS-SYS\\00\u3001Module\\\u5168\u57DF\u8B8A\u6578.vb",
210 122
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\\u5168\u57DF\u8B8A\u6578.vb",
211 123
               "RelativeToolTip": "GRAMS-SYS\\00\u3001Module\\\u5168\u57DF\u8B8A\u6578.vb",
212
-              "ViewState": "AQIAAAAAAAAAAAAAAAAAAA8AAAA5AAAA",
124
+              "ViewState": "AQIAAAAAAAAAAAAAAAAwwAkAAAAlAAAA",
213 125
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
214 126
               "WhenOpened": "2024-10-09T11:38:20.386Z",
215 127
               "EditorCaption": ""
216 128
             },
217 129
             {
218 130
               "$type": "Document",
219
-              "DocumentIndex": 6,
220
-              "Title": "SQL_\u8003\u52E4\u7CFB\u7D71.vb",
221
-              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\SQL_\u8003\u52E4\u7CFB\u7D71.vb",
222
-              "RelativeDocumentMoniker": "GRAMS-SYS\\00\u3001Module\\SQL_\u8003\u52E4\u7CFB\u7D71.vb",
223
-              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\SQL_\u8003\u52E4\u7CFB\u7D71.vb",
224
-              "RelativeToolTip": "GRAMS-SYS\\00\u3001Module\\SQL_\u8003\u52E4\u7CFB\u7D71.vb",
225
-              "ViewState": "AQIAAMsAAAAAAAAAAAAYwMgAAAAWAAAA",
226
-              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
227
-              "WhenOpened": "2024-10-08T01:33:24.51Z",
228
-              "EditorCaption": ""
229
-            },
230
-            {
231
-              "$type": "Document",
232
-              "DocumentIndex": 4,
131
+              "DocumentIndex": 5,
233 132
               "Title": "\u8003\u52E4\u660E\u7D30\u8868.vb",
234 133
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u660E\u7D30\u8868.vb",
235 134
               "RelativeDocumentMoniker": "GRAMS-SYS\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u660E\u7D30\u8868.vb",
236 135
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u660E\u7D30\u8868.vb",
237 136
               "RelativeToolTip": "GRAMS-SYS\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u660E\u7D30\u8868.vb",
238
-              "ViewState": "AQIAAE4CAAAAAAAAAAAlwF8CAABuAAAA",
137
+              "ViewState": "AQIAAAIDAAAAAAAAAAAawBkDAAAxAAAA",
239 138
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
240 139
               "WhenOpened": "2024-10-08T01:33:01.846Z",
241 140
               "EditorCaption": ""
242 141
             },
243 142
             {
244 143
               "$type": "Document",
245
-              "DocumentIndex": 5,
144
+              "DocumentIndex": 9,
246 145
               "Title": "\u8003\u52E4\u660E\u7D30\u8868.vb [\u8A2D\u8A08]",
247 146
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u660E\u7D30\u8868.vb",
248 147
               "RelativeDocumentMoniker": "GRAMS-SYS\\04\u3001\u8003\u52E4\u7BA1\u7406\\\u8003\u52E4\u660E\u7D30\u8868.vb",
@@ -254,42 +153,45 @@
254 153
             },
255 154
             {
256 155
               "$type": "Document",
257
-              "DocumentIndex": 15,
156
+              "DocumentIndex": 3,
258 157
               "Title": "SQL_\u7E3D\u52D9\u7CFB\u7D71.vb",
259 158
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\SQL_\u7E3D\u52D9\u7CFB\u7D71.vb",
260 159
               "RelativeDocumentMoniker": "GRAMS-SYS\\00\u3001Module\\SQL_\u7E3D\u52D9\u7CFB\u7D71.vb",
261 160
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\SQL_\u7E3D\u52D9\u7CFB\u7D71.vb",
262 161
               "RelativeToolTip": "GRAMS-SYS\\00\u3001Module\\SQL_\u7E3D\u52D9\u7CFB\u7D71.vb",
263
-              "ViewState": "AQIAALQAAAAAAAAAAAAxwMUAAAB+AAAA",
162
+              "ViewState": "AQIAAPUAAAAAAAAAAAAwwBEBAAALAAAA",
264 163
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
265
-              "WhenOpened": "2024-10-07T02:10:04.555Z"
164
+              "WhenOpened": "2024-10-07T02:10:04.555Z",
165
+              "EditorCaption": ""
266 166
             },
267 167
             {
268 168
               "$type": "Document",
269
-              "DocumentIndex": 14,
169
+              "DocumentIndex": 4,
270 170
               "Title": "\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb",
271 171
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb",
272 172
               "RelativeDocumentMoniker": "GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb",
273 173
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb",
274 174
               "RelativeToolTip": "GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb",
275
-              "ViewState": "AQIAAPUAAAAAAAAAAAAjwEEBAAB3AAAA",
175
+              "ViewState": "AQIAAB4BAAAAAAAAAAAcwDYBAABPAAAA",
276 176
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
277
-              "WhenOpened": "2024-09-30T13:49:58.688Z"
177
+              "WhenOpened": "2024-09-30T13:49:58.688Z",
178
+              "EditorCaption": ""
278 179
             },
279 180
             {
280 181
               "$type": "Document",
281
-              "DocumentIndex": 13,
182
+              "DocumentIndex": 6,
282 183
               "Title": "\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb [\u8A2D\u8A08]",
283 184
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb",
284 185
               "RelativeDocumentMoniker": "GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb",
285
-              "ToolTip": "D:\\hskin-mis-sys-leehsiehjui\\GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb [\u8A2D\u8A08]",
286
-              "RelativeToolTip": "..\\..\\..\\hskin-mis-sys-leehsiehjui\\GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb [\u8A2D\u8A08]",
186
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb [\u8A2D\u8A08]",
187
+              "RelativeToolTip": "GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb [\u8A2D\u8A08]",
287 188
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
288
-              "WhenOpened": "2024-09-30T13:37:57.879Z"
189
+              "WhenOpened": "2024-09-30T13:37:57.879Z",
190
+              "EditorCaption": " [\u8A2D\u8A08]"
289 191
             },
290 192
             {
291 193
               "$type": "Document",
292
-              "DocumentIndex": 17,
194
+              "DocumentIndex": 11,
293 195
               "Title": "\u5C08\u6848\u53CA\u6703\u8B70\u57F7\u884C.vb [\u8A2D\u8A08]",
294 196
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u57F7\u884C.vb",
295 197
               "RelativeDocumentMoniker": "GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u57F7\u884C.vb",
@@ -300,7 +202,7 @@
300 202
             },
301 203
             {
302 204
               "$type": "Document",
303
-              "DocumentIndex": 16,
205
+              "DocumentIndex": 10,
304 206
               "Title": "\u5C08\u6848\u53CA\u6703\u8B70\u57F7\u884C.vb",
305 207
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u57F7\u884C.vb",
306 208
               "RelativeDocumentMoniker": "GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u57F7\u884C.vb",

+ 67
- 7
GRAMS-SYS/00、Module/SQL_總務系統.vb View File

@@ -118,7 +118,7 @@
118 118
             SQL2 = " AND 文件控制表.檔案名稱 LIKE N'%" & PA56 & "%' OR 文件控制表.主旨 LIKE N'%" & PA56 & "%' OR 文件控制表.說明 LIKE N'%" & PA56 & "%'
119 119
                     OR 文件控制表.開單人 Like N'%" & PA56 & "%'"
120 120
         End If
121
-        SQL1 = "SELECT 選擇日期 AS 日期,檔案名稱,流水號,主旨,說明,已儲存,已作廢,已發行,開單人,全選 FROM 文件控制表
121
+        SQL1 = "SELECT 選擇日期 AS 日期,檔案名稱,流水號,主旨,說明,已儲存,已作廢,已發行,開單人,全選,圖片庫 FROM 文件控制表
122 122
                 WHERE (已儲存 = 1) AND (已作廢 = 0) AND (已發行 = 0) " & SQL2 & " 
123 123
                 ORDER BY 流水號 DESC"
124 124
         CmdSet_For_DGV()
@@ -131,7 +131,7 @@
131 131
             SQL2 = " AND 文件控制表.檔案名稱 LIKE N'%" & PA56 & "%' OR 文件控制表.主旨 LIKE N'%" & PA56 & "%' OR 文件控制表.說明 LIKE N'%" & PA56 & "%'
132 132
                      OR 文件控制表.開單人 Like N'%" & PA56 & "%'"
133 133
         End If
134
-        SQL1 = "SELECT 選擇日期 AS 日期,檔案名稱,流水號,主旨,說明,已儲存,已作廢,已發行,開單人,全選 FROM 文件控制表
134
+        SQL1 = "SELECT 選擇日期 AS 日期,檔案名稱,流水號,主旨,說明,已儲存,已作廢,已發行,開單人,全選,圖片庫 FROM 文件控制表
135 135
                 WHERE 已作廢 = 1  " & SQL2 & " 
136 136
                 ORDER BY 流水號 DESC"
137 137
         CmdSet_For_DGV()
@@ -144,7 +144,7 @@
144 144
             SQL2 = " AND 文件控制表.檔案名稱 LIKE N'%" & PA56 & "%' OR 文件控制表.主旨 LIKE N'%" & PA56 & "%' OR 文件控制表.說明 LIKE N'%" & PA56 & "%'
145 145
                      OR 文件控制表.開單人 Like N'%" & PA56 & "%'"
146 146
         End If
147
-        SQL1 = "SELECT 選擇日期 AS 日期,檔案名稱,流水號,主旨,說明,已儲存,已作廢,已發行,開單人,全選 FROM 文件控制表
147
+        SQL1 = "SELECT 選擇日期 AS 日期,檔案名稱,流水號,主旨,說明,已儲存,已作廢,已發行,開單人,全選,圖片庫 FROM 文件控制表
148 148
                 WHERE 已發行 = 1  " & SQL2 & " 
149 149
                 ORDER BY 流水號 DESC"
150 150
         CmdSet_For_DGV()
@@ -154,11 +154,13 @@
154 154
         SQL1 = "SELECT TOP (1)  流水號 FROM 文件控制表 ORDER BY 流水號 DESC"
155 155
         CmdSet_For_dr()
156 156
     End Sub
157
-
158
-    Friend Sub SQL_通用_新增一筆公函控制表()
157
+    Friend Sub SQL_文件沒存檔的全部存檔()
158
+        ConnOpen_ERP() : SQL1 = "UPDATE  文件控制表  SET  已儲存 = 1  WHERE  (已儲存 = 0)" : CmdSet_For_dr()
159
+    End Sub
160
+    Friend Sub SQL_通用_新增一筆公函控制表(ByVal 檔案名稱 As String, ByVal 圖片庫 As String)
159 161
         ConnOpen_ERP()
160
-        SQL1 = "INSERT INTO 文件控制表 (流水號 ,檔案名稱,選擇日期,主旨,說明,已儲存,已作廢,已發行,開單人,全選) " &
161
-               "VALUES (N'" & PA & "', N'', N'" & PA1 & "', N'', N'',0,0,0,N'" & gUserName & "',0)"
162
+        SQL1 = "INSERT INTO 文件控制表 (流水號 ,檔案名稱,選擇日期,主旨,說明,已儲存,已作廢,已發行,開單人,全選, 圖片庫) " &
163
+               "VALUES (N'" & PA & "', N'" & 檔案名稱 & "', N'" & PA1 & "', N'', N'',0,0,0,N'" & gUserName & "',0, N'" & 圖片庫 & "')"
162 164
         CmdSet_For_dr()
163 165
     End Sub
164 166
     Friend Sub SQL_通用_控制表刪除(ByVal 流水號 As String)
@@ -219,4 +221,62 @@
219 221
                 WHERE   控制表流水號 =N'" & PA57 & "'"
220 222
         CmdSet_For_dr()
221 223
     End Sub
224
+    Friend Sub SQL_文件圖片讀取()
225
+        ConnOpen_圖庫SQL() : SQL1 = "SELECT 圖片 FROM 文件圖片庫 WHERE 文件編號 LIKE '" & PA1 & "' AND 項次 LIKE '" & PA2 & "' ORDER BY 項次 DESC" : CmdSet_For_dr()
226
+    End Sub
227
+    Friend Sub SQL_文件圖片()
228
+        ConnOpen_圖庫SQL() : SQL1 = "UPDATE 文件圖片庫 SET 檔案 = 'JPG' WHERE 檔案 IS NULL" : CmdSet_For_dr()
229
+        ConnOpen_圖庫SQL() : SQL1 = "SELECT 項次 AS Item, 檔案 AS [File.] FROM 文件圖片庫 WHERE 文件編號 LIKE '" & PA1 & "' ORDER BY 項次" : CmdSet_For_DGV()
230
+    End Sub
231
+    Friend Sub SQL_文件圖片讀取1()
232
+        ConnOpen_圖庫SQL() : SQL1 = "SELECT 圖片 FROM 文件圖片庫 WHERE 文件編號 LIKE '" & PA1 & "' AND 項次 LIKE '" & PA2 & "' ORDER BY 項次 DESC" : CmdSet_For_DGV()
233
+    End Sub
234
+    Friend Sub SQL_文件圖片入系統()
235
+        ConnOpen_圖庫SQL()
236
+        SQL1 = "INSERT INTO 文件圖片庫 (文件編號, 項次, 檔案, 圖片) SELECT N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', @binary_file"
237
+        CmdSet_For_dr_pic()
238
+    End Sub
239
+    Friend Sub SQL_文件圖片最後一筆編號查詢()
240
+        ConnOpen_圖庫SQL() : SQL1 = "SELECT 項次 FROM 文件圖片庫 WHERE 文件編號 LIKE '" & PA1 & "' ORDER BY 項次 DESC" : CmdSet_For_dr()
241
+    End Sub
242
+    Friend Sub SQL_文件圖片刪除()
243
+        ConnOpen_圖庫SQL() : SQL1 = "DELETE 文件圖片庫 WHERE (文件編號 LIKE '" & PA57 & "')" : CmdSet_For_dr()
244
+    End Sub
245
+    Friend Sub SQL_會議未簽()
246
+        ConnOpen_ERP()
247
+        SQL1 = "SELECT    會議記錄控制表.會議項目, QQ.人員集合
248
+                FROM      會議記錄控制表 INNER JOIN
249
+                         (SELECT    會議記錄明細表.控制表流水號, COUNT(會議記錄明細表.人員) AS 人員集合
250
+                          FROM      會議記錄明細表 INNER JOIN
251
+                                    Huang_PH_SYS.dbo.ras_Users ON 
252
+                                    會議記錄明細表.人員 = Huang_PH_SYS.dbo.ras_Users.UserName
253
+                          WHERE    (會議記錄明細表.圖片流水號 LIKE '') AND (會議記錄明細表.人員 NOT LIKE '即時清') AND 
254
+                                   (Huang_PH_SYS.dbo.ras_Users.IsLockedOut = 0)
255
+                          GROUP BY  會議記錄明細表.控制表流水號) AS QQ ON 會議記錄控制表.會議編號 = QQ.控制表流水號
256
+                WHERE    (會議記錄控制表.核准 = 0)
257
+                ORDER BY  會議記錄控制表.會議編號 DESC"
258
+        CmdSet_For_DGV()
259
+    End Sub
260
+    Friend Sub SQL_文件未簽()
261
+        ConnOpen_ERP()
262
+        SQL1 = "SELECT    文件控制表.檔案名稱, QQ.人員集合
263
+                FROM      文件控制表 INNER JOIN
264
+                         (SELECT    文件明細表.控制表流水號, COUNT(文件明細表.人員) AS 人員集合
265
+                          FROM      文件明細表 INNER JOIN
266
+                                    Huang_PH_SYS.dbo.ras_Users ON 
267
+                                    文件明細表.人員 = Huang_PH_SYS.dbo.ras_Users.UserName
268
+                          WHERE    (文件明細表.圖片流水號 LIKE '') AND (Huang_PH_SYS.dbo.ras_Users.IsLockedOut = 0) AND 
269
+                                   (文件明細表.人員 NOT LIKE '即時清')
270
+                          GROUP BY  文件明細表.控制表流水號) AS QQ ON 文件控制表.流水號 = QQ.控制表流水號
271
+                WHERE    (文件控制表.已發行 = 1)
272
+                ORDER BY  文件控制表.流水號"
273
+        CmdSet_For_DGV()
274
+    End Sub
275
+    Friend Sub SQL_判斷是否已經通知()
276
+        ConnOpen_ERP() : SQL1 = "SELECT  發訊日期  FROM  到期LINE通知 WHERE 發訊日期 LIKE N'" & Strings.Format(Today(), "yyyy/MM/dd") & "'" : CmdSet_For_dr()
277
+    End Sub
278
+    Friend Sub SQL_到期LINE通知寫入()
279
+        SQL1 = "INSERT INTO  到期LINE通知 (發訊日期) VALUES (N'" & Strings.Format(Today(), "yyyy/MM/dd") & "')"
280
+        ConnOpen_ERP() : CmdSet_For_dr()
281
+    End Sub
222 282
 End Module

+ 1
- 1
GRAMS-SYS/00、Module/全域變數.vb View File

@@ -7,7 +7,7 @@
7 7
     Public 版本號 As String : Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public FTP物理位置 As String
8 8
     Public AA(99) As String : Public CC(99) As Boolean
9 9
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
10
-    Public 版本 As String = "2024100901"
10
+    Public 版本 As String = "2024101602"
11 11
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
12 12
     Public 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, PA27, PA28, PA29, PA30,
13 13
            PA31, PA32, PA33, PA34, PA35, PA36, PA37, PA38, PA39, PA40, PA41, PA42, PA49, PA50, PA54, PA55, PA56, PA57, PA58 As String

+ 1
- 1
GRAMS-SYS/06、總務管理/專案及會議提案.vb View File

@@ -281,7 +281,7 @@ Public Class 專案及會議提案
281 281
                 ElseIf NUM1 > 9 And NUM1 < 100 Then : 會議編號_tb.Text = "MT-" & DTP1 & "-0" & NUM1
282 282
                 ElseIf NUM1 > 99 Then : 會議編號_tb.Text = "MT-" & DTP1 & "-" & NUM1 : End If
283 283
                 PA1 = 會議編號_tb.Text : SQL_會議記錄_單號查詢() : If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
284
-            Next
284
+            Next : 會議項目_tb.Text = InputBox("請輸入要新建的議題名稱!!")
285 285
         End If
286 286
     End Sub
287 287
     Private Sub 存檔_rbt_Click(sender As Object, e As EventArgs) Handles 存檔_rbt.Click

+ 472
- 77
GRAMS-SYS/06、總務管理/文件.Designer.vb View File

@@ -23,8 +23,10 @@ Partial Class 文件
23 23
     <System.Diagnostics.DebuggerStepThrough()>
24 24
     Private Sub InitializeComponent()
25 25
         Me.components = New System.ComponentModel.Container()
26
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27 26
         Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
28
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
29
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(文件))
28 30
         Me.Label10 = New System.Windows.Forms.Label()
29 31
         Me.主旨_tb = New System.Windows.Forms.TextBox()
30 32
         Me.Label9 = New System.Windows.Forms.Label()
@@ -58,19 +60,57 @@ Partial Class 文件
58 60
         Me.列印_bt = New System.Windows.Forms.Button()
59 61
         Me.全選_cb = New System.Windows.Forms.CheckBox()
60 62
         Me.ppp = New System.Windows.Forms.Panel()
63
+        Me.副檔名_tb = New System.Windows.Forms.TextBox()
64
+        Me.圖片庫_tb = New System.Windows.Forms.TextBox()
65
+        Me.檔案路徑_tb = New System.Windows.Forms.TextBox()
61 66
         Me.人員1_dgv = New System.Windows.Forms.DataGridView()
67
+        Me.圖片清單_dgv = New System.Windows.Forms.DataGridView()
68
+        Me.圖片_pb = New System.Windows.Forms.PictureBox()
69
+        Me.圖檔入系統_rbt = New System.Windows.Forms.Button()
70
+        Me.讀取資料夾路徑_rbt = New System.Windows.Forms.Button()
71
+        Me.PB5 = New System.Windows.Forms.PictureBox()
72
+        Me.PB4 = New System.Windows.Forms.PictureBox()
73
+        Me.PB1 = New System.Windows.Forms.PictureBox()
74
+        Me.PB2 = New System.Windows.Forms.PictureBox()
75
+        Me.PB3 = New System.Windows.Forms.PictureBox()
76
+        Me.PB6 = New System.Windows.Forms.PictureBox()
77
+        Me.TabControl1 = New System.Windows.Forms.TabControl()
78
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
79
+        Me.PDF_P = New System.Windows.Forms.Panel()
80
+        Me.RadPdfViewer1 = New Telerik.WinControls.UI.RadPdfViewer()
81
+        Me.RadPdfViewerNavigator1 = New Telerik.WinControls.UI.RadPdfViewerNavigator()
82
+        Me.圖片_P = New System.Windows.Forms.Panel()
83
+        Me.圖片1_pb = New System.Windows.Forms.PictureBox()
84
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
85
+        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
62 86
         CType(Me.控制表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
63 87
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
64 88
         CType(Me.人員_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
65 89
         Me.ppp.SuspendLayout()
66 90
         CType(Me.人員1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
91
+        CType(Me.圖片清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
92
+        CType(Me.圖片_pb, System.ComponentModel.ISupportInitialize).BeginInit()
93
+        CType(Me.PB5, System.ComponentModel.ISupportInitialize).BeginInit()
94
+        CType(Me.PB4, System.ComponentModel.ISupportInitialize).BeginInit()
95
+        CType(Me.PB1, System.ComponentModel.ISupportInitialize).BeginInit()
96
+        CType(Me.PB2, System.ComponentModel.ISupportInitialize).BeginInit()
97
+        CType(Me.PB3, System.ComponentModel.ISupportInitialize).BeginInit()
98
+        CType(Me.PB6, System.ComponentModel.ISupportInitialize).BeginInit()
99
+        Me.TabControl1.SuspendLayout()
100
+        Me.TabPage1.SuspendLayout()
101
+        Me.PDF_P.SuspendLayout()
102
+        CType(Me.RadPdfViewer1, System.ComponentModel.ISupportInitialize).BeginInit()
103
+        CType(Me.RadPdfViewerNavigator1, System.ComponentModel.ISupportInitialize).BeginInit()
104
+        Me.圖片_P.SuspendLayout()
105
+        CType(Me.圖片1_pb, System.ComponentModel.ISupportInitialize).BeginInit()
106
+        Me.TabPage2.SuspendLayout()
67 107
         Me.SuspendLayout()
68 108
         '
69 109
         'Label10
70 110
         '
71 111
         Me.Label10.AutoSize = True
72 112
         Me.Label10.ImeMode = System.Windows.Forms.ImeMode.NoControl
73
-        Me.Label10.Location = New System.Drawing.Point(390, 117)
113
+        Me.Label10.Location = New System.Drawing.Point(4, 84)
74 114
         Me.Label10.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
75 115
         Me.Label10.Name = "Label10"
76 116
         Me.Label10.Size = New System.Drawing.Size(31, 16)
@@ -79,22 +119,22 @@ Partial Class 文件
79 119
         '
80 120
         '主旨_tb
81 121
         '
82
-        Me.主旨_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
83
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
122
+        Me.主旨_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
123
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
84 124
         Me.主旨_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
85
-        Me.主旨_tb.Location = New System.Drawing.Point(390, 62)
125
+        Me.主旨_tb.Location = New System.Drawing.Point(2, 29)
86 126
         Me.主旨_tb.Margin = New System.Windows.Forms.Padding(4)
87 127
         Me.主旨_tb.Multiline = True
88 128
         Me.主旨_tb.Name = "主旨_tb"
89 129
         Me.主旨_tb.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
90
-        Me.主旨_tb.Size = New System.Drawing.Size(475, 51)
130
+        Me.主旨_tb.Size = New System.Drawing.Size(508, 51)
91 131
         Me.主旨_tb.TabIndex = 1853
92 132
         '
93 133
         'Label9
94 134
         '
95 135
         Me.Label9.AutoSize = True
96 136
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
97
-        Me.Label9.Location = New System.Drawing.Point(387, 42)
137
+        Me.Label9.Location = New System.Drawing.Point(4, 7)
98 138
         Me.Label9.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
99 139
         Me.Label9.Name = "Label9"
100 140
         Me.Label9.Size = New System.Drawing.Size(31, 16)
@@ -103,7 +143,7 @@ Partial Class 文件
103 143
         '
104 144
         '單號_tb
105 145
         '
106
-        Me.單號_tb.Location = New System.Drawing.Point(48, 6)
146
+        Me.單號_tb.Location = New System.Drawing.Point(43, 95)
107 147
         Me.單號_tb.Margin = New System.Windows.Forms.Padding(4)
108 148
         Me.單號_tb.Name = "單號_tb"
109 149
         Me.單號_tb.ReadOnly = True
@@ -113,26 +153,29 @@ Partial Class 文件
113 153
         '
114 154
         '選擇日期_dtp
115 155
         '
116
-        Me.選擇日期_dtp.Location = New System.Drawing.Point(457, 6)
156
+        Me.選擇日期_dtp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
157
+        Me.選擇日期_dtp.Location = New System.Drawing.Point(886, 29)
117 158
         Me.選擇日期_dtp.Name = "選擇日期_dtp"
118 159
         Me.選擇日期_dtp.Size = New System.Drawing.Size(134, 23)
119 160
         Me.選擇日期_dtp.TabIndex = 1851
120 161
         '
121 162
         '開單人_tb
122 163
         '
123
-        Me.開單人_tb.Location = New System.Drawing.Point(267, 6)
164
+        Me.開單人_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
165
+        Me.開單人_tb.Location = New System.Drawing.Point(1068, 2)
124 166
         Me.開單人_tb.Margin = New System.Windows.Forms.Padding(4)
125 167
         Me.開單人_tb.Name = "開單人_tb"
126 168
         Me.開單人_tb.ReadOnly = True
127
-        Me.開單人_tb.Size = New System.Drawing.Size(120, 23)
169
+        Me.開單人_tb.Size = New System.Drawing.Size(127, 23)
128 170
         Me.開單人_tb.TabIndex = 1868
129 171
         Me.開單人_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
130 172
         '
131 173
         'Label29
132 174
         '
175
+        Me.Label29.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
133 176
         Me.Label29.AutoSize = True
134 177
         Me.Label29.ImeMode = System.Windows.Forms.ImeMode.NoControl
135
-        Me.Label29.Location = New System.Drawing.Point(394, 9)
178
+        Me.Label29.Location = New System.Drawing.Point(828, 32)
136 179
         Me.Label29.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
137 180
         Me.Label29.Name = "Label29"
138 181
         Me.Label29.Size = New System.Drawing.Size(55, 16)
@@ -143,7 +186,7 @@ Partial Class 文件
143 186
         '
144 187
         Me.Label0.AutoSize = True
145 188
         Me.Label0.ImeMode = System.Windows.Forms.ImeMode.NoControl
146
-        Me.Label0.Location = New System.Drawing.Point(8, 9)
189
+        Me.Label0.Location = New System.Drawing.Point(4, 101)
147 190
         Me.Label0.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
148 191
         Me.Label0.Name = "Label0"
149 192
         Me.Label0.Size = New System.Drawing.Size(31, 16)
@@ -153,27 +196,28 @@ Partial Class 文件
153 196
         '
154 197
         '控制表_dgv
155 198
         '
156
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
157
-        Me.控制表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
199
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
200
+        Me.控制表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
158 201
         Me.控制表_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
159 202
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
160 203
         Me.控制表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
161 204
         Me.控制表_dgv.BackgroundColor = System.Drawing.Color.White
162 205
         Me.控制表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
163
-        Me.控制表_dgv.Location = New System.Drawing.Point(11, 62)
206
+        Me.控制表_dgv.Location = New System.Drawing.Point(306, 25)
164 207
         Me.控制表_dgv.Margin = New System.Windows.Forms.Padding(4)
165 208
         Me.控制表_dgv.Name = "控制表_dgv"
166 209
         Me.控制表_dgv.ReadOnly = True
167 210
         Me.控制表_dgv.RowHeadersWidth = 5
168 211
         Me.控制表_dgv.RowTemplate.Height = 24
169
-        Me.控制表_dgv.Size = New System.Drawing.Size(371, 576)
212
+        Me.控制表_dgv.Size = New System.Drawing.Size(193, 652)
170 213
         Me.控制表_dgv.TabIndex = 1843
171 214
         '
172 215
         'Label13
173 216
         '
217
+        Me.Label13.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
174 218
         Me.Label13.AutoSize = True
175 219
         Me.Label13.ImeMode = System.Windows.Forms.ImeMode.NoControl
176
-        Me.Label13.Location = New System.Drawing.Point(218, 9)
220
+        Me.Label13.Location = New System.Drawing.Point(1022, 5)
177 221
         Me.Label13.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
178 222
         Me.Label13.Name = "Label13"
179 223
         Me.Label13.Size = New System.Drawing.Size(43, 16)
@@ -188,9 +232,10 @@ Partial Class 文件
188 232
         '
189 233
         '字體_NUD
190 234
         '
235
+        Me.字體_NUD.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
191 236
         Me.字體_NUD.DecimalPlaces = 1
192 237
         Me.字體_NUD.Increment = New Decimal(New Integer() {1, 0, 0, 65536})
193
-        Me.字體_NUD.Location = New System.Drawing.Point(311, 35)
238
+        Me.字體_NUD.Location = New System.Drawing.Point(453, 4)
194 239
         Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 0, 0, 0})
195 240
         Me.字體_NUD.Minimum = New Decimal(New Integer() {6, 0, 0, 0})
196 241
         Me.字體_NUD.Name = "字體_NUD"
@@ -200,11 +245,12 @@ Partial Class 文件
200 245
         '
201 246
         '字體大小調整_lb
202 247
         '
248
+        Me.字體大小調整_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
203 249
         Me.字體大小調整_lb.AutoSize = True
204 250
         Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
205 251
         Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Brown
206 252
         Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
207
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(247, 38)
253
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(389, 7)
208 254
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
209 255
         Me.字體大小調整_lb.Size = New System.Drawing.Size(55, 16)
210 256
         Me.字體大小調整_lb.TabIndex = 1865
@@ -212,17 +258,19 @@ Partial Class 文件
212 258
         '
213 259
         '檔案名稱_tb
214 260
         '
215
-        Me.檔案名稱_tb.Location = New System.Drawing.Point(664, 6)
261
+        Me.檔案名稱_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
262
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
263
+        Me.檔案名稱_tb.Location = New System.Drawing.Point(559, 2)
216 264
         Me.檔案名稱_tb.Margin = New System.Windows.Forms.Padding(4)
217 265
         Me.檔案名稱_tb.Name = "檔案名稱_tb"
218
-        Me.檔案名稱_tb.Size = New System.Drawing.Size(298, 23)
266
+        Me.檔案名稱_tb.Size = New System.Drawing.Size(464, 23)
219 267
         Me.檔案名稱_tb.TabIndex = 1861
220 268
         '
221 269
         'Label8
222 270
         '
223 271
         Me.Label8.AutoSize = True
224 272
         Me.Label8.ImeMode = System.Windows.Forms.ImeMode.NoControl
225
-        Me.Label8.Location = New System.Drawing.Point(603, 9)
273
+        Me.Label8.Location = New System.Drawing.Point(501, 5)
226 274
         Me.Label8.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
227 275
         Me.Label8.Name = "Label8"
228 276
         Me.Label8.Size = New System.Drawing.Size(55, 16)
@@ -233,18 +281,19 @@ Partial Class 文件
233 281
         '公司名稱
234 282
         '
235 283
         Me.公司名稱.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
236
-        Me.公司名稱.Location = New System.Drawing.Point(180, 124)
284
+        Me.公司名稱.Location = New System.Drawing.Point(7, 11)
237 285
         Me.公司名稱.Margin = New System.Windows.Forms.Padding(4)
238 286
         Me.公司名稱.Multiline = True
239 287
         Me.公司名稱.Name = "公司名稱"
240
-        Me.公司名稱.Size = New System.Drawing.Size(81, 20)
288
+        Me.公司名稱.Size = New System.Drawing.Size(116, 20)
241 289
         Me.公司名稱.TabIndex = 1859
242 290
         Me.公司名稱.Visible = False
243 291
         '
244 292
         '已核准的營運成本收支單_rb
245 293
         '
246 294
         Me.已核准的營運成本收支單_rb.AutoSize = True
247
-        Me.已核准的營運成本收支單_rb.Location = New System.Drawing.Point(12, 36)
295
+        Me.已核准的營運成本收支單_rb.ForeColor = System.Drawing.Color.Blue
296
+        Me.已核准的營運成本收支單_rb.Location = New System.Drawing.Point(307, 4)
248 297
         Me.已核准的營運成本收支單_rb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
249 298
         Me.已核准的營運成本收支單_rb.Name = "已核准的營運成本收支單_rb"
250 299
         Me.已核准的營運成本收支單_rb.Size = New System.Drawing.Size(61, 20)
@@ -256,7 +305,8 @@ Partial Class 文件
256 305
         '作廢的營運成本收支單_rb
257 306
         '
258 307
         Me.作廢的營運成本收支單_rb.AutoSize = True
259
-        Me.作廢的營運成本收支單_rb.Location = New System.Drawing.Point(86, 36)
308
+        Me.作廢的營運成本收支單_rb.ForeColor = System.Drawing.Color.Blue
309
+        Me.作廢的營運成本收支單_rb.Location = New System.Drawing.Point(372, 4)
260 310
         Me.作廢的營運成本收支單_rb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
261 311
         Me.作廢的營運成本收支單_rb.Name = "作廢的營運成本收支單_rb"
262 312
         Me.作廢的營運成本收支單_rb.Size = New System.Drawing.Size(61, 20)
@@ -268,7 +318,8 @@ Partial Class 文件
268 318
         '已發行的營運成本收支單_rb
269 319
         '
270 320
         Me.已發行的營運成本收支單_rb.AutoSize = True
271
-        Me.已發行的營運成本收支單_rb.Location = New System.Drawing.Point(160, 35)
321
+        Me.已發行的營運成本收支單_rb.ForeColor = System.Drawing.Color.Blue
322
+        Me.已發行的營運成本收支單_rb.Location = New System.Drawing.Point(437, 4)
272 323
         Me.已發行的營運成本收支單_rb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
273 324
         Me.已發行的營運成本收支單_rb.Name = "已發行的營運成本收支單_rb"
274 325
         Me.已發行的營運成本收支單_rb.Size = New System.Drawing.Size(61, 20)
@@ -279,45 +330,48 @@ Partial Class 文件
279 330
         '
280 331
         '說明_tb
281 332
         '
282
-        Me.說明_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
283
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
333
+        Me.說明_tb.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
334
+            Or System.Windows.Forms.AnchorStyles.Left) _
335
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
284 336
         Me.說明_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
285
-        Me.說明_tb.Location = New System.Drawing.Point(390, 137)
337
+        Me.說明_tb.Location = New System.Drawing.Point(3, 104)
286 338
         Me.說明_tb.Margin = New System.Windows.Forms.Padding(4)
287 339
         Me.說明_tb.Multiline = True
288 340
         Me.說明_tb.Name = "說明_tb"
289 341
         Me.說明_tb.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
290
-        Me.說明_tb.Size = New System.Drawing.Size(475, 501)
342
+        Me.說明_tb.Size = New System.Drawing.Size(508, 511)
291 343
         Me.說明_tb.TabIndex = 1873
292 344
         '
293 345
         '人員_dgv
294 346
         '
295 347
         Me.人員_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
296
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
348
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
297 349
         Me.人員_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
298 350
         Me.人員_dgv.BackgroundColor = System.Drawing.Color.White
299 351
         Me.人員_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
300
-        Me.人員_dgv.Location = New System.Drawing.Point(872, 84)
352
+        Me.人員_dgv.Location = New System.Drawing.Point(1025, 64)
301 353
         Me.人員_dgv.Name = "人員_dgv"
302 354
         Me.人員_dgv.RowHeadersWidth = 5
303 355
         Me.人員_dgv.RowTemplate.Height = 24
304
-        Me.人員_dgv.Size = New System.Drawing.Size(393, 547)
356
+        Me.人員_dgv.Size = New System.Drawing.Size(318, 613)
305 357
         Me.人員_dgv.TabIndex = 1874
306 358
         '
307 359
         '指定人員_bt
308 360
         '
309
-        Me.指定人員_bt.Location = New System.Drawing.Point(1003, 59)
361
+        Me.指定人員_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
362
+        Me.指定人員_bt.Location = New System.Drawing.Point(1093, 25)
310 363
         Me.指定人員_bt.Name = "指定人員_bt"
311
-        Me.指定人員_bt.Size = New System.Drawing.Size(95, 23)
364
+        Me.指定人員_bt.Size = New System.Drawing.Size(102, 32)
312 365
         Me.指定人員_bt.TabIndex = 1875
313 366
         Me.指定人員_bt.Text = "指定人員"
314 367
         Me.指定人員_bt.UseVisualStyleBackColor = True
315 368
         '
316 369
         'Label1
317 370
         '
371
+        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
318 372
         Me.Label1.AutoSize = True
319 373
         Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
320
-        Me.Label1.Location = New System.Drawing.Point(873, 62)
374
+        Me.Label1.Location = New System.Drawing.Point(1031, 46)
321 375
         Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
322 376
         Me.Label1.Name = "Label1"
323 377
         Me.Label1.Size = New System.Drawing.Size(55, 16)
@@ -326,15 +380,15 @@ Partial Class 文件
326 380
         '
327 381
         '發行_bt
328 382
         '
329
-        Me.發行_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
383
+        Me.發行_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
330 384
         Me.發行_bt.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.check
331 385
         Me.發行_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
332 386
         Me.發行_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
333 387
         Me.發行_bt.ForeColor = System.Drawing.Color.DarkGreen
334
-        Me.發行_bt.Location = New System.Drawing.Point(1170, 6)
388
+        Me.發行_bt.Location = New System.Drawing.Point(2, 278)
335 389
         Me.發行_bt.Margin = New System.Windows.Forms.Padding(4)
336 390
         Me.發行_bt.Name = "發行_bt"
337
-        Me.發行_bt.Size = New System.Drawing.Size(45, 45)
391
+        Me.發行_bt.Size = New System.Drawing.Size(35, 35)
338 392
         Me.發行_bt.TabIndex = 1872
339 393
         Me.發行_bt.UseVisualStyleBackColor = True
340 394
         '
@@ -344,7 +398,7 @@ Partial Class 文件
344 398
         Me.查詢_tb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
345 399
         Me.查詢_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
346 400
         Me.查詢_tb.ForeColor = System.Drawing.Color.Red
347
-        Me.查詢_tb.Location = New System.Drawing.Point(180, 5)
401
+        Me.查詢_tb.Location = New System.Drawing.Point(171, 97)
348 402
         Me.查詢_tb.Margin = New System.Windows.Forms.Padding(4)
349 403
         Me.查詢_tb.Name = "查詢_tb"
350 404
         Me.查詢_tb.Size = New System.Drawing.Size(30, 25)
@@ -353,15 +407,15 @@ Partial Class 文件
353 407
         '
354 408
         '作廢_bt
355 409
         '
356
-        Me.作廢_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
410
+        Me.作廢_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
357 411
         Me.作廢_bt.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.Close
358 412
         Me.作廢_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
359 413
         Me.作廢_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
360 414
         Me.作廢_bt.ForeColor = System.Drawing.Color.DarkGreen
361
-        Me.作廢_bt.Location = New System.Drawing.Point(1120, 6)
415
+        Me.作廢_bt.Location = New System.Drawing.Point(39, 278)
362 416
         Me.作廢_bt.Margin = New System.Windows.Forms.Padding(4)
363 417
         Me.作廢_bt.Name = "作廢_bt"
364
-        Me.作廢_bt.Size = New System.Drawing.Size(45, 45)
418
+        Me.作廢_bt.Size = New System.Drawing.Size(35, 35)
365 419
         Me.作廢_bt.TabIndex = 1848
366 420
         Me.作廢_bt.UseVisualStyleBackColor = True
367 421
         '
@@ -372,10 +426,10 @@ Partial Class 文件
372 426
         Me.刪除_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
373 427
         Me.刪除_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
374 428
         Me.刪除_bt.ForeColor = System.Drawing.Color.Red
375
-        Me.刪除_bt.Location = New System.Drawing.Point(1020, 5)
429
+        Me.刪除_bt.Location = New System.Drawing.Point(1245, 7)
376 430
         Me.刪除_bt.Margin = New System.Windows.Forms.Padding(4)
377 431
         Me.刪除_bt.Name = "刪除_bt"
378
-        Me.刪除_bt.Size = New System.Drawing.Size(45, 45)
432
+        Me.刪除_bt.Size = New System.Drawing.Size(50, 50)
379 433
         Me.刪除_bt.TabIndex = 1847
380 434
         Me.刪除_bt.UseVisualStyleBackColor = True
381 435
         '
@@ -386,10 +440,10 @@ Partial Class 文件
386 440
         Me.儲存_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
387 441
         Me.儲存_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
388 442
         Me.儲存_bt.ForeColor = System.Drawing.Color.DarkGreen
389
-        Me.儲存_bt.Location = New System.Drawing.Point(1070, 5)
443
+        Me.儲存_bt.Location = New System.Drawing.Point(1295, 7)
390 444
         Me.儲存_bt.Margin = New System.Windows.Forms.Padding(4)
391 445
         Me.儲存_bt.Name = "儲存_bt"
392
-        Me.儲存_bt.Size = New System.Drawing.Size(45, 45)
446
+        Me.儲存_bt.Size = New System.Drawing.Size(50, 50)
393 447
         Me.儲存_bt.TabIndex = 1846
394 448
         Me.儲存_bt.UseVisualStyleBackColor = True
395 449
         '
@@ -400,31 +454,32 @@ Partial Class 文件
400 454
         Me.新增_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
401 455
         Me.新增_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
402 456
         Me.新增_bt.ForeColor = System.Drawing.Color.Blue
403
-        Me.新增_bt.Location = New System.Drawing.Point(970, 6)
457
+        Me.新增_bt.Location = New System.Drawing.Point(1195, 7)
404 458
         Me.新增_bt.Margin = New System.Windows.Forms.Padding(4)
405 459
         Me.新增_bt.Name = "新增_bt"
406
-        Me.新增_bt.Size = New System.Drawing.Size(45, 45)
460
+        Me.新增_bt.Size = New System.Drawing.Size(50, 50)
407 461
         Me.新增_bt.TabIndex = 1845
408 462
         Me.新增_bt.UseVisualStyleBackColor = True
409 463
         '
410 464
         '列印_bt
411 465
         '
412
-        Me.列印_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
466
+        Me.列印_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
413 467
         Me.列印_bt.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.print
414 468
         Me.列印_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
415 469
         Me.列印_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
416 470
         Me.列印_bt.ForeColor = System.Drawing.Color.Red
417
-        Me.列印_bt.Location = New System.Drawing.Point(1220, 6)
471
+        Me.列印_bt.Location = New System.Drawing.Point(76, 278)
418 472
         Me.列印_bt.Margin = New System.Windows.Forms.Padding(4)
419 473
         Me.列印_bt.Name = "列印_bt"
420
-        Me.列印_bt.Size = New System.Drawing.Size(45, 45)
474
+        Me.列印_bt.Size = New System.Drawing.Size(35, 35)
421 475
         Me.列印_bt.TabIndex = 1844
422 476
         Me.列印_bt.UseVisualStyleBackColor = True
423 477
         '
424 478
         '全選_cb
425 479
         '
480
+        Me.全選_cb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
426 481
         Me.全選_cb.AutoSize = True
427
-        Me.全選_cb.Location = New System.Drawing.Point(935, 61)
482
+        Me.全選_cb.Location = New System.Drawing.Point(1030, 27)
428 483
         Me.全選_cb.Name = "全選_cb"
429 484
         Me.全選_cb.Size = New System.Drawing.Size(62, 20)
430 485
         Me.全選_cb.TabIndex = 1877
@@ -433,65 +488,364 @@ Partial Class 文件
433 488
         '
434 489
         'ppp
435 490
         '
491
+        Me.ppp.Controls.Add(Me.副檔名_tb)
492
+        Me.ppp.Controls.Add(Me.圖片庫_tb)
493
+        Me.ppp.Controls.Add(Me.檔案路徑_tb)
436 494
         Me.ppp.Controls.Add(Me.人員1_dgv)
437
-        Me.ppp.Location = New System.Drawing.Point(935, 88)
495
+        Me.ppp.Controls.Add(Me.公司名稱)
496
+        Me.ppp.Controls.Add(Me.Label0)
497
+        Me.ppp.Controls.Add(Me.單號_tb)
498
+        Me.ppp.Controls.Add(Me.查詢_tb)
499
+        Me.ppp.Location = New System.Drawing.Point(1028, 278)
438 500
         Me.ppp.Name = "ppp"
439
-        Me.ppp.Size = New System.Drawing.Size(253, 415)
501
+        Me.ppp.Size = New System.Drawing.Size(253, 137)
440 502
         Me.ppp.TabIndex = 1878
441 503
         Me.ppp.Visible = False
442 504
         '
505
+        '副檔名_tb
506
+        '
507
+        Me.副檔名_tb.Enabled = False
508
+        Me.副檔名_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
509
+        Me.副檔名_tb.Location = New System.Drawing.Point(129, 65)
510
+        Me.副檔名_tb.Name = "副檔名_tb"
511
+        Me.副檔名_tb.Size = New System.Drawing.Size(116, 23)
512
+        Me.副檔名_tb.TabIndex = 1878
513
+        '
514
+        '圖片庫_tb
515
+        '
516
+        Me.圖片庫_tb.AllowDrop = True
517
+        Me.圖片庫_tb.ForeColor = System.Drawing.Color.Black
518
+        Me.圖片庫_tb.Location = New System.Drawing.Point(7, 65)
519
+        Me.圖片庫_tb.Name = "圖片庫_tb"
520
+        Me.圖片庫_tb.Size = New System.Drawing.Size(116, 23)
521
+        Me.圖片庫_tb.TabIndex = 1877
522
+        '
523
+        '檔案路徑_tb
524
+        '
525
+        Me.檔案路徑_tb.AllowDrop = True
526
+        Me.檔案路徑_tb.ForeColor = System.Drawing.Color.Black
527
+        Me.檔案路徑_tb.Location = New System.Drawing.Point(7, 36)
528
+        Me.檔案路徑_tb.Multiline = True
529
+        Me.檔案路徑_tb.Name = "檔案路徑_tb"
530
+        Me.檔案路徑_tb.Size = New System.Drawing.Size(116, 23)
531
+        Me.檔案路徑_tb.TabIndex = 1876
532
+        '
443 533
         '人員1_dgv
444 534
         '
445
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
446
-        Me.人員1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
535
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
536
+        Me.人員1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
447 537
         Me.人員1_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
448 538
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
449 539
         Me.人員1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
450 540
         Me.人員1_dgv.BackgroundColor = System.Drawing.Color.White
451 541
         Me.人員1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
452
-        Me.人員1_dgv.Location = New System.Drawing.Point(7, 39)
542
+        Me.人員1_dgv.Location = New System.Drawing.Point(129, 156)
453 543
         Me.人員1_dgv.Name = "人員1_dgv"
454 544
         Me.人員1_dgv.RowHeadersWidth = 5
455 545
         Me.人員1_dgv.RowTemplate.Height = 24
456
-        Me.人員1_dgv.Size = New System.Drawing.Size(190, 346)
546
+        Me.人員1_dgv.Size = New System.Drawing.Size(116, 0)
457 547
         Me.人員1_dgv.TabIndex = 1875
458 548
         '
549
+        '圖片清單_dgv
550
+        '
551
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
552
+        Me.圖片清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
553
+        Me.圖片清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
554
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
555
+        Me.圖片清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
556
+        Me.圖片清單_dgv.BackgroundColor = System.Drawing.Color.White
557
+        Me.圖片清單_dgv.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
558
+        Me.圖片清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
559
+        Me.圖片清單_dgv.Location = New System.Drawing.Point(2, 3)
560
+        Me.圖片清單_dgv.Name = "圖片清單_dgv"
561
+        Me.圖片清單_dgv.RowHeadersWidth = 5
562
+        Me.圖片清單_dgv.RowTemplate.Height = 24
563
+        Me.圖片清單_dgv.Size = New System.Drawing.Size(100, 272)
564
+        Me.圖片清單_dgv.TabIndex = 1886
565
+        '
566
+        '圖片_pb
567
+        '
568
+        Me.圖片_pb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
569
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
570
+        Me.圖片_pb.BackColor = System.Drawing.Color.White
571
+        Me.圖片_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
572
+        Me.圖片_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
573
+        Me.圖片_pb.Location = New System.Drawing.Point(104, 3)
574
+        Me.圖片_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
575
+        Me.圖片_pb.Name = "圖片_pb"
576
+        Me.圖片_pb.Size = New System.Drawing.Size(200, 272)
577
+        Me.圖片_pb.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
578
+        Me.圖片_pb.TabIndex = 1885
579
+        Me.圖片_pb.TabStop = False
580
+        '
581
+        '圖檔入系統_rbt
582
+        '
583
+        Me.圖檔入系統_rbt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
584
+        Me.圖檔入系統_rbt.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.Add_Image
585
+        Me.圖檔入系統_rbt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
586
+        Me.圖檔入系統_rbt.Location = New System.Drawing.Point(197, 278)
587
+        Me.圖檔入系統_rbt.Name = "圖檔入系統_rbt"
588
+        Me.圖檔入系統_rbt.Size = New System.Drawing.Size(103, 35)
589
+        Me.圖檔入系統_rbt.TabIndex = 1888
590
+        Me.圖檔入系統_rbt.UseVisualStyleBackColor = True
591
+        '
592
+        '讀取資料夾路徑_rbt
593
+        '
594
+        Me.讀取資料夾路徑_rbt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
595
+        Me.讀取資料夾路徑_rbt.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.PortableComputer
596
+        Me.讀取資料夾路徑_rbt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
597
+        Me.讀取資料夾路徑_rbt.Location = New System.Drawing.Point(160, 278)
598
+        Me.讀取資料夾路徑_rbt.Name = "讀取資料夾路徑_rbt"
599
+        Me.讀取資料夾路徑_rbt.Size = New System.Drawing.Size(35, 35)
600
+        Me.讀取資料夾路徑_rbt.TabIndex = 1887
601
+        Me.讀取資料夾路徑_rbt.UseVisualStyleBackColor = True
602
+        '
603
+        'PB5
604
+        '
605
+        Me.PB5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
606
+        Me.PB5.BackColor = System.Drawing.Color.White
607
+        Me.PB5.BackgroundImage = CType(resources.GetObject("PB5.BackgroundImage"), System.Drawing.Image)
608
+        Me.PB5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
609
+        Me.PB5.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
610
+        Me.PB5.Location = New System.Drawing.Point(2, 558)
611
+        Me.PB5.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
612
+        Me.PB5.Name = "PB5"
613
+        Me.PB5.Size = New System.Drawing.Size(149, 119)
614
+        Me.PB5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
615
+        Me.PB5.TabIndex = 1884
616
+        Me.PB5.TabStop = False
617
+        '
618
+        'PB4
619
+        '
620
+        Me.PB4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
621
+        Me.PB4.BackColor = System.Drawing.Color.White
622
+        Me.PB4.BackgroundImage = CType(resources.GetObject("PB4.BackgroundImage"), System.Drawing.Image)
623
+        Me.PB4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
624
+        Me.PB4.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
625
+        Me.PB4.Location = New System.Drawing.Point(153, 436)
626
+        Me.PB4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
627
+        Me.PB4.Name = "PB4"
628
+        Me.PB4.Size = New System.Drawing.Size(149, 119)
629
+        Me.PB4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
630
+        Me.PB4.TabIndex = 1883
631
+        Me.PB4.TabStop = False
632
+        '
633
+        'PB1
634
+        '
635
+        Me.PB1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
636
+        Me.PB1.BackColor = System.Drawing.Color.White
637
+        Me.PB1.BackgroundImage = CType(resources.GetObject("PB1.BackgroundImage"), System.Drawing.Image)
638
+        Me.PB1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
639
+        Me.PB1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
640
+        Me.PB1.Location = New System.Drawing.Point(2, 314)
641
+        Me.PB1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
642
+        Me.PB1.Name = "PB1"
643
+        Me.PB1.Size = New System.Drawing.Size(149, 119)
644
+        Me.PB1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
645
+        Me.PB1.TabIndex = 1879
646
+        Me.PB1.TabStop = False
647
+        '
648
+        'PB2
649
+        '
650
+        Me.PB2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
651
+        Me.PB2.BackColor = System.Drawing.Color.White
652
+        Me.PB2.BackgroundImage = CType(resources.GetObject("PB2.BackgroundImage"), System.Drawing.Image)
653
+        Me.PB2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
654
+        Me.PB2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
655
+        Me.PB2.Location = New System.Drawing.Point(153, 314)
656
+        Me.PB2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
657
+        Me.PB2.Name = "PB2"
658
+        Me.PB2.Size = New System.Drawing.Size(149, 119)
659
+        Me.PB2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
660
+        Me.PB2.TabIndex = 1881
661
+        Me.PB2.TabStop = False
662
+        '
663
+        'PB3
664
+        '
665
+        Me.PB3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
666
+        Me.PB3.BackColor = System.Drawing.Color.White
667
+        Me.PB3.BackgroundImage = CType(resources.GetObject("PB3.BackgroundImage"), System.Drawing.Image)
668
+        Me.PB3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
669
+        Me.PB3.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
670
+        Me.PB3.Location = New System.Drawing.Point(2, 436)
671
+        Me.PB3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
672
+        Me.PB3.Name = "PB3"
673
+        Me.PB3.Size = New System.Drawing.Size(149, 119)
674
+        Me.PB3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
675
+        Me.PB3.TabIndex = 1882
676
+        Me.PB3.TabStop = False
677
+        '
678
+        'PB6
679
+        '
680
+        Me.PB6.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
681
+        Me.PB6.BackColor = System.Drawing.Color.White
682
+        Me.PB6.BackgroundImage = CType(resources.GetObject("PB6.BackgroundImage"), System.Drawing.Image)
683
+        Me.PB6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
684
+        Me.PB6.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
685
+        Me.PB6.Location = New System.Drawing.Point(153, 558)
686
+        Me.PB6.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
687
+        Me.PB6.Name = "PB6"
688
+        Me.PB6.Size = New System.Drawing.Size(149, 119)
689
+        Me.PB6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
690
+        Me.PB6.TabIndex = 1880
691
+        Me.PB6.TabStop = False
692
+        '
693
+        'TabControl1
694
+        '
695
+        Me.TabControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
696
+            Or System.Windows.Forms.AnchorStyles.Left) _
697
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
698
+        Me.TabControl1.Appearance = System.Windows.Forms.TabAppearance.Buttons
699
+        Me.TabControl1.Controls.Add(Me.TabPage1)
700
+        Me.TabControl1.Controls.Add(Me.TabPage2)
701
+        Me.TabControl1.Location = New System.Drawing.Point(498, 27)
702
+        Me.TabControl1.Name = "TabControl1"
703
+        Me.TabControl1.SelectedIndex = 0
704
+        Me.TabControl1.Size = New System.Drawing.Size(529, 655)
705
+        Me.TabControl1.TabIndex = 1889
706
+        '
707
+        'TabPage1
708
+        '
709
+        Me.TabPage1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
710
+        Me.TabPage1.Controls.Add(Me.PDF_P)
711
+        Me.TabPage1.Controls.Add(Me.圖片_P)
712
+        Me.TabPage1.Location = New System.Drawing.Point(4, 28)
713
+        Me.TabPage1.Name = "TabPage1"
714
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
715
+        Me.TabPage1.Size = New System.Drawing.Size(521, 623)
716
+        Me.TabPage1.TabIndex = 0
717
+        Me.TabPage1.Text = "文件清單與圖片"
718
+        Me.TabPage1.UseVisualStyleBackColor = True
719
+        '
720
+        'PDF_P
721
+        '
722
+        Me.PDF_P.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
723
+            Or System.Windows.Forms.AnchorStyles.Left) _
724
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
725
+        Me.PDF_P.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
726
+        Me.PDF_P.Controls.Add(Me.RadPdfViewer1)
727
+        Me.PDF_P.Controls.Add(Me.RadPdfViewerNavigator1)
728
+        Me.PDF_P.Location = New System.Drawing.Point(0, -1)
729
+        Me.PDF_P.Name = "PDF_P"
730
+        Me.PDF_P.Size = New System.Drawing.Size(519, 622)
731
+        Me.PDF_P.TabIndex = 1886
732
+        '
733
+        'RadPdfViewer1
734
+        '
735
+        Me.RadPdfViewer1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
736
+            Or System.Windows.Forms.AnchorStyles.Left) _
737
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
738
+        Me.RadPdfViewer1.BackColor = System.Drawing.SystemColors.ControlLightLight
739
+        Me.RadPdfViewer1.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
740
+        Me.RadPdfViewer1.Location = New System.Drawing.Point(0, 38)
741
+        Me.RadPdfViewer1.Name = "RadPdfViewer1"
742
+        '
743
+        '
744
+        '
745
+        Me.RadPdfViewer1.RootElement.ControlBounds = New System.Drawing.Rectangle(0, 38, 200, 200)
746
+        Me.RadPdfViewer1.Size = New System.Drawing.Size(516, 581)
747
+        Me.RadPdfViewer1.TabIndex = 1
748
+        Me.RadPdfViewer1.ThumbnailsScaleFactor = 0.15!
749
+        '
750
+        'RadPdfViewerNavigator1
751
+        '
752
+        Me.RadPdfViewerNavigator1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
753
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
754
+        Me.RadPdfViewerNavigator1.BackColor = System.Drawing.SystemColors.ControlLightLight
755
+        Me.RadPdfViewerNavigator1.Font = New System.Drawing.Font("新細明體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
756
+        Me.RadPdfViewerNavigator1.Location = New System.Drawing.Point(0, 1)
757
+        Me.RadPdfViewerNavigator1.Name = "RadPdfViewerNavigator1"
758
+        '
759
+        '
760
+        '
761
+        Me.RadPdfViewerNavigator1.RootElement.ControlBounds = New System.Drawing.Rectangle(0, 1, 610, 38)
762
+        Me.RadPdfViewerNavigator1.Size = New System.Drawing.Size(516, 38)
763
+        Me.RadPdfViewerNavigator1.TabIndex = 0
764
+        '
765
+        '圖片_P
766
+        '
767
+        Me.圖片_P.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
768
+            Or System.Windows.Forms.AnchorStyles.Left) _
769
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
770
+        Me.圖片_P.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
771
+        Me.圖片_P.Controls.Add(Me.圖片1_pb)
772
+        Me.圖片_P.Location = New System.Drawing.Point(0, -2)
773
+        Me.圖片_P.Name = "圖片_P"
774
+        Me.圖片_P.Size = New System.Drawing.Size(521, 628)
775
+        Me.圖片_P.TabIndex = 1888
776
+        '
777
+        '圖片1_pb
778
+        '
779
+        Me.圖片1_pb.BackColor = System.Drawing.Color.White
780
+        Me.圖片1_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
781
+        Me.圖片1_pb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
782
+        Me.圖片1_pb.Dock = System.Windows.Forms.DockStyle.Fill
783
+        Me.圖片1_pb.Location = New System.Drawing.Point(0, 0)
784
+        Me.圖片1_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
785
+        Me.圖片1_pb.Name = "圖片1_pb"
786
+        Me.圖片1_pb.Size = New System.Drawing.Size(519, 626)
787
+        Me.圖片1_pb.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
788
+        Me.圖片1_pb.TabIndex = 1887
789
+        Me.圖片1_pb.TabStop = False
790
+        '
791
+        'TabPage2
792
+        '
793
+        Me.TabPage2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
794
+        Me.TabPage2.Controls.Add(Me.Label9)
795
+        Me.TabPage2.Controls.Add(Me.主旨_tb)
796
+        Me.TabPage2.Controls.Add(Me.Label10)
797
+        Me.TabPage2.Controls.Add(Me.說明_tb)
798
+        Me.TabPage2.Controls.Add(Me.字體大小調整_lb)
799
+        Me.TabPage2.Controls.Add(Me.字體_NUD)
800
+        Me.TabPage2.Location = New System.Drawing.Point(4, 28)
801
+        Me.TabPage2.Name = "TabPage2"
802
+        Me.TabPage2.Size = New System.Drawing.Size(521, 621)
803
+        Me.TabPage2.TabIndex = 1
804
+        Me.TabPage2.Text = "文件內容"
805
+        Me.TabPage2.UseVisualStyleBackColor = True
806
+        '
807
+        'OpenFileDialog1
808
+        '
809
+        Me.OpenFileDialog1.FileName = "OpenFileDialog1"
810
+        Me.OpenFileDialog1.Multiselect = True
811
+        '
459 812
         '文件
460 813
         '
461 814
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
462 815
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
463
-        Me.ClientSize = New System.Drawing.Size(1270, 643)
816
+        Me.ClientSize = New System.Drawing.Size(1349, 681)
817
+        Me.Controls.Add(Me.ppp)
818
+        Me.Controls.Add(Me.控制表_dgv)
819
+        Me.Controls.Add(Me.已核准的營運成本收支單_rb)
820
+        Me.Controls.Add(Me.圖片清單_dgv)
821
+        Me.Controls.Add(Me.作廢的營運成本收支單_rb)
822
+        Me.Controls.Add(Me.圖片_pb)
823
+        Me.Controls.Add(Me.已發行的營運成本收支單_rb)
824
+        Me.Controls.Add(Me.圖檔入系統_rbt)
825
+        Me.Controls.Add(Me.讀取資料夾路徑_rbt)
826
+        Me.Controls.Add(Me.PB5)
827
+        Me.Controls.Add(Me.PB4)
828
+        Me.Controls.Add(Me.PB1)
829
+        Me.Controls.Add(Me.PB2)
830
+        Me.Controls.Add(Me.PB3)
831
+        Me.Controls.Add(Me.PB6)
464 832
         Me.Controls.Add(Me.全選_cb)
465 833
         Me.Controls.Add(Me.Label1)
466 834
         Me.Controls.Add(Me.指定人員_bt)
467 835
         Me.Controls.Add(Me.人員_dgv)
468
-        Me.Controls.Add(Me.說明_tb)
469 836
         Me.Controls.Add(Me.發行_bt)
470
-        Me.Controls.Add(Me.已發行的營運成本收支單_rb)
471
-        Me.Controls.Add(Me.Label10)
472
-        Me.Controls.Add(Me.主旨_tb)
473
-        Me.Controls.Add(Me.Label9)
474
-        Me.Controls.Add(Me.單號_tb)
475 837
         Me.Controls.Add(Me.選擇日期_dtp)
476 838
         Me.Controls.Add(Me.開單人_tb)
477
-        Me.Controls.Add(Me.查詢_tb)
478 839
         Me.Controls.Add(Me.Label29)
479
-        Me.Controls.Add(Me.Label0)
480 840
         Me.Controls.Add(Me.作廢_bt)
481 841
         Me.Controls.Add(Me.刪除_bt)
482 842
         Me.Controls.Add(Me.儲存_bt)
483 843
         Me.Controls.Add(Me.新增_bt)
484 844
         Me.Controls.Add(Me.列印_bt)
485
-        Me.Controls.Add(Me.控制表_dgv)
486 845
         Me.Controls.Add(Me.Label13)
487
-        Me.Controls.Add(Me.字體_NUD)
488
-        Me.Controls.Add(Me.字體大小調整_lb)
489 846
         Me.Controls.Add(Me.檔案名稱_tb)
490 847
         Me.Controls.Add(Me.Label8)
491
-        Me.Controls.Add(Me.公司名稱)
492
-        Me.Controls.Add(Me.已核准的營運成本收支單_rb)
493
-        Me.Controls.Add(Me.作廢的營運成本收支單_rb)
494
-        Me.Controls.Add(Me.ppp)
848
+        Me.Controls.Add(Me.TabControl1)
495 849
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
496 850
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
497 851
         Me.Name = "文件"
@@ -501,7 +855,26 @@ Partial Class 文件
501 855
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
502 856
         CType(Me.人員_dgv, System.ComponentModel.ISupportInitialize).EndInit()
503 857
         Me.ppp.ResumeLayout(False)
858
+        Me.ppp.PerformLayout()
504 859
         CType(Me.人員1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
860
+        CType(Me.圖片清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
861
+        CType(Me.圖片_pb, System.ComponentModel.ISupportInitialize).EndInit()
862
+        CType(Me.PB5, System.ComponentModel.ISupportInitialize).EndInit()
863
+        CType(Me.PB4, System.ComponentModel.ISupportInitialize).EndInit()
864
+        CType(Me.PB1, System.ComponentModel.ISupportInitialize).EndInit()
865
+        CType(Me.PB2, System.ComponentModel.ISupportInitialize).EndInit()
866
+        CType(Me.PB3, System.ComponentModel.ISupportInitialize).EndInit()
867
+        CType(Me.PB6, System.ComponentModel.ISupportInitialize).EndInit()
868
+        Me.TabControl1.ResumeLayout(False)
869
+        Me.TabPage1.ResumeLayout(False)
870
+        Me.PDF_P.ResumeLayout(False)
871
+        Me.PDF_P.PerformLayout()
872
+        CType(Me.RadPdfViewer1, System.ComponentModel.ISupportInitialize).EndInit()
873
+        CType(Me.RadPdfViewerNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
874
+        Me.圖片_P.ResumeLayout(False)
875
+        CType(Me.圖片1_pb, System.ComponentModel.ISupportInitialize).EndInit()
876
+        Me.TabPage2.ResumeLayout(False)
877
+        Me.TabPage2.PerformLayout()
505 878
         Me.ResumeLayout(False)
506 879
         Me.PerformLayout()
507 880
 
@@ -540,4 +913,26 @@ Partial Class 文件
540 913
     Friend WithEvents 全選_cb As CheckBox
541 914
     Friend WithEvents ppp As Panel
542 915
     Friend WithEvents 人員1_dgv As DataGridView
916
+    Friend WithEvents 圖片清單_dgv As DataGridView
917
+    Friend WithEvents 圖片_pb As PictureBox
918
+    Friend WithEvents 圖檔入系統_rbt As Button
919
+    Friend WithEvents 讀取資料夾路徑_rbt As Button
920
+    Friend WithEvents PB5 As PictureBox
921
+    Friend WithEvents PB4 As PictureBox
922
+    Friend WithEvents PB1 As PictureBox
923
+    Friend WithEvents PB2 As PictureBox
924
+    Friend WithEvents PB3 As PictureBox
925
+    Friend WithEvents PB6 As PictureBox
926
+    Friend WithEvents TabControl1 As TabControl
927
+    Friend WithEvents TabPage1 As TabPage
928
+    Friend WithEvents PDF_P As Panel
929
+    Friend WithEvents RadPdfViewer1 As Telerik.WinControls.UI.RadPdfViewer
930
+    Friend WithEvents RadPdfViewerNavigator1 As Telerik.WinControls.UI.RadPdfViewerNavigator
931
+    Friend WithEvents TabPage2 As TabPage
932
+    Friend WithEvents 副檔名_tb As TextBox
933
+    Friend WithEvents 圖片庫_tb As TextBox
934
+    Friend WithEvents 檔案路徑_tb As TextBox
935
+    Friend WithEvents OpenFileDialog1 As OpenFileDialog
936
+    Friend WithEvents 圖片1_pb As PictureBox
937
+    Friend WithEvents 圖片_P As Panel
543 938
 End Class

+ 325
- 0
GRAMS-SYS/06、總務管理/文件.resx View File

@@ -123,4 +123,329 @@
123 123
   <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
124 124
     <value>662, 17</value>
125 125
   </metadata>
126
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
127
+  <data name="PB5.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
128
+    <value>
129
+        iVBORw0KGgoAAAANSUhEUgAAAKIAAACOCAYAAACynNNWAAAABGdBTUEAALGPC/xhBQAACvZJREFUeF7t
130
+        nOlvVOcVh1FUKd3V/gMFY49t1DRSP1VKlfRDhJSq7X9QVWSBhAQS8NyZsYEEJxDCloWAA8EL3ncCTrDx
131
+        EBI32IADFCn9EBGxyARQg2ijlhAKYXl7zjvvuTpzfWe8NVLm6vdIR/edm+txrvToLO+9ZhYAAAAAAAAA
132
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
133
+        AAC+e1QPDX3PLX2qjbmHzy89ffpeOn6fY/mRIz+Q4PNhoa+rPnHih94nn/yIg9f+53TaBl3749Wjoz9d
134
+        NjT0s8rh4Z9z8OfkyMhP+MjB1y0dGLi3urr6Hhv0M3x0/5sgCqwaHY3N6+kxNnp7M8dca31OR3e3KaeY
135
+        19Vlyjk6OzPR0WHK29sz0dZmyltbM9HSYsqam015c5Mpa6JobDRlu3aZsoYGU1Zfn4m6OlNWW2vKdu40
136
+        pW+/bUp37DCl27eb0rfeykRNjUkdPFjnbgMUOitOnKjxhZqOiCwgixgUUCRkAUVCEtAGSegLGJTQCVia
137
+        S0ISsHTbNlO6datJvf/+ZXcboNCpOn68zwo22VACcha0Ak4hC9oIZkElIQtYGpoFSUCSMEYSxkjC2Jtv
138
+        mtSBA/91twEKHRKxw5dLi5Zr7TLgt5IFScCJsiALGNuyxcTeeMMk0+kb7jZAoUMiNoQKp9cSIuEUs2A5
139
+        CzguC06iF2QBaygDhkgYe/11kxwchIhRgUTcYaULCyWhLcNTyIJlUorzZEG/DOeQUJdhLWDstddM7NVX
140
+        TXL/fpTmqFB17FibL1xAPhtOwP9LFmQBlYT5ynBs29bQLCgSxjZvNsmBgZvuNkChQyIO+tIFRcwlYI4s
141
+        OK4XZAFDekErYB4J8wlYQgLGNm0yJRs3mkR//zfuNkChQyKOjCvFJCBz1wWjj8HzM1nL0V/fvWtDr/lT
142
+        iZOwxElYsmGDSe7bd8vdBih0Ko8dO5qVAV0W1CLIWo7B8zNZyzHfmkOyIAtYsn69KXnlFZN4773b7jZA
143
+        oUMZ8bhIqHtBLYKs5Rg8P5O1HPOtOYISlqxbBxGjBIsYNhFr5umBJHQiHt8Lhk3EZcGBJEcvWMrDCIVG
144
+        C1j88sumeO1ak+jrQ2mOClUff3w8bCBhJBvpiZiHkZlOxHYYsRKSgDkmYu4FszIiS8gCUpSsWWOKX3qJ
145
+        RcTUHBUoI/5NCygTcZaIdiKmDDjRRMwhAoZIKBvTpZOYiLkMZ4nIAlIWLHYSFr/4okns3Yt9xKhQNTp6
146
+        3JdQ7QtqfAEp7tBn7uAyXdw01k4sWcvRBq3LORu6XlCjBSyurjbFq1ebxJ49191tgEKncnT0aNi+ICOC
147
+        6CzoS0Ohr5nuWo42aP1ryo7SC/rnKYISWhHfeQciRoWqo0dHfAlVL6jRveC3zW+oZNtekMqwxhfwhRfM
148
+        3OefN3NXrTKJ3b0ozVGBRPyrnojtMELBSDbSvaDOUrfu3DHbT540D9HP3U8DypL9+82lq1ezfnaitRxl
149
+        /SD1kNILynkOyYIsYbET0evtxUsPUaHq8OEDIqF+RsyIBHoY0XKwhMGJ+A8k9Te3b/vX6O8JW8tR1g/T
150
+        d0gZlvMcnAmtgCtXZmLFCuP19GBqjgqVR44MlIVMxBrZkuE9Qc1v6Xo9Ecu+4KHzY+6KqTOfvkt6QQ1n
151
+        QBFwblWVmVtZabzubjxrjgqVhw/3he0LMpKN9L6gzlL38RaN7AuqLZl9n33mX6O/J2wtR1k/wiK6XlDO
152
+        c/gSkoASXlcXRIwKqZGR3WH7goxI4O8JUmg5Fvf3j9sX/BV9vvzVV/41+nvC1nKU9SM1W/1eUM5z+Jkw
153
+        lcpEMmm8zk6IGBWqhoe7tIDSC2r0xrTmIg0mv6feUjam7yMh93z6qfuv4Rz7/HOTPnXKnLp82dxx8mke
154
+        JqGlDGtEwCISsCiRMEWeZ7yODjziiwokYluWhK4MM5KN9ECisxRzkwaT4bEx00/l+PK1a/55fY2sh8+e
155
+        NWXqEd3vSLr2EyfMbZq+5doHNmzIiEgZUH6OQ7IgC2gjHjdeezteeogKlYcONUoW1L0gIxLIRMzDiJZD
156
+        XzPRmifp+ST0uI1p6gUXUH969soVc+qLL0wpT8auF5Tv4LASciYkAW1UVBivrQ0iRoXUoUMN/psyqhfU
157
+        6Il4unSePBkqoWxOx+gY40zoJmLOgBqRr2j5clO0bJkNEvGOuw1Q6KSGhurC3pRhJBvpiVhnKbnmo3Pn
158
+        zKp02jRSmb1C5VnOyzXXbt40D9LP68dz/sa02hf0J2LXC8p3cPgiOgmLnnvOeK2tEDEqkIg7fAFVL8iI
159
+        BPpNGS0Hc/LSJfNLflHBvS94/6ZNZgVN03+n8zyM8HVrBwezJLSZkLOf6wXDJmLuA/XvspmQgwS08eyz
160
+        Jt7SctfdBih0Kj/8cIsWUHpBjX5VS8Oi/bmjw39JQZ4R8+M5HkgeIoH/RJJbCVUZDm5M+/JJH+iGEY3I
161
+        N2fp0kwsWWK85maIGBWSBw9uFAn1H7Izko30+4I6S31EU3BMvTXNz4hlIg6+KZOVBVlEljAkC4qEnP30
162
+        7/JFJAEl4hAxOiQ/+GB92NMRLaJ+YVXO/fv6dTOfsl3YC6thvWBxjjLMGTBsIuY+UH4Xh58Nn3kmE08/
163
+        beJNTegRowJlxM0yEeteUKP/hPPrGzdsJvxjXZ3/tyOhEk5QioNlODgRcwbUaAHnLF5s5jz1lIk3NmL7
164
+        JipYEZWAuheUbBT867nJZsG8wwhLGJIFRULOfjojZkkoIu7aBRGjQmU6vS4oIf/xUpaIIRJOuRekTMhZ
165
+        kCWcqwWUadgJqHvBLBFVJrTx5JOcEfGILyok0+nVwT9eilEZ1iLagcSV4VwCTtQLZrIglWEpx5wBQ7Kg
166
+        7gWzRHQSziYBWcI5ixaZioYGZMSokEqnK0VC3QsGYRnkKKE/T3ctx7C1huWbTfLNXrgwE088YeINDZia
167
+        o0JqcDApWVD3gkxQEDkGz89kLcd8aw7JgiygiFhRXw8Ro0JyYGBl2D/n8V1D5LPx+ONm9mOPmXh9PUpz
168
+        VEj196+Z9ERMg4iNiSZi2ZjWvWDg8ZztAwP7gnoi5jIclgWthC4q6uowrEQFb9++GpFQno5MaltmMhOx
169
+        HkYo5pCAYRvTYROxFU96wkAmlKiorcWGdlSwIrqJeDob0/6eoGRAEVBtybCAfgbkx3MhGdAfRkS+hUo+
170
+        LeCjj2ZiwQITr61FjxgVEn19yXxZMGtfUJfimWRBDpGQy+8UsiALKCJSRoSIUSH57ruLJizDIiBnQZ0J
171
+        J9MLcgaUTChlmMOV4cn0glY8yYYsogsS0bjbAIWO19dXMZVSnPcZsRPQL8W6DEsptgKSeFKKbRnOkQFV
172
+        GQ4LKs0QMSok9u79S94syBK6iZgFtGV4hlkwqx+cYhbUgYwYIVLd3b+QbRm/F8wxEfsCTqcXdAL6ZThf
173
+        JuRg2fJIyEEifuluA0SBxO7dXyd6ew3F1URPzz8S3d1fUvzT6+wc87q6TlOcofU5r6PjDMU5r719zGtr
174
+        O09xwWttPU8xZqOl5YLX3HzRxQWvqemC19hoIx6MhoYL8fr6ixR8HIvX1Z2hOG2PtbXnKC5S/Ivianzn
175
+        zv/YqK29RnGLgssy/gEmAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
176
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcmsWf8DNipO3UsHTHAAAAAASUVORK5CYII=
177
+</value>
178
+  </data>
179
+  <data name="PB4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
180
+    <value>
181
+        iVBORw0KGgoAAAANSUhEUgAAAKIAAACOCAYAAACynNNWAAAABGdBTUEAALGPC/xhBQAACvZJREFUeF7t
182
+        nOlvVOcVh1FUKd3V/gMFY49t1DRSP1VKlfRDhJSq7X9QVWSBhAQS8NyZsYEEJxDCloWAA8EL3ncCTrDx
183
+        EBI32IADFCn9EBGxyARQg2ijlhAKYXl7zjvvuTpzfWe8NVLm6vdIR/edm+txrvToLO+9ZhYAAAAAAAAA
184
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
185
+        AAC+e1QPDX3PLX2qjbmHzy89ffpeOn6fY/mRIz+Q4PNhoa+rPnHih94nn/yIg9f+53TaBl3749Wjoz9d
186
+        NjT0s8rh4Z9z8OfkyMhP+MjB1y0dGLi3urr6Hhv0M3x0/5sgCqwaHY3N6+kxNnp7M8dca31OR3e3KaeY
187
+        19Vlyjk6OzPR0WHK29sz0dZmyltbM9HSYsqam015c5Mpa6JobDRlu3aZsoYGU1Zfn4m6OlNWW2vKdu40
188
+        pW+/bUp37DCl27eb0rfeykRNjUkdPFjnbgMUOitOnKjxhZqOiCwgixgUUCRkAUVCEtAGSegLGJTQCVia
189
+        S0ISsHTbNlO6datJvf/+ZXcboNCpOn68zwo22VACcha0Ak4hC9oIZkElIQtYGpoFSUCSMEYSxkjC2Jtv
190
+        mtSBA/91twEKHRKxw5dLi5Zr7TLgt5IFScCJsiALGNuyxcTeeMMk0+kb7jZAoUMiNoQKp9cSIuEUs2A5
191
+        CzguC06iF2QBaygDhkgYe/11kxwchIhRgUTcYaULCyWhLcNTyIJlUorzZEG/DOeQUJdhLWDstddM7NVX
192
+        TXL/fpTmqFB17FibL1xAPhtOwP9LFmQBlYT5ynBs29bQLCgSxjZvNsmBgZvuNkChQyIO+tIFRcwlYI4s
193
+        OK4XZAFDekErYB4J8wlYQgLGNm0yJRs3mkR//zfuNkChQyKOjCvFJCBz1wWjj8HzM1nL0V/fvWtDr/lT
194
+        iZOwxElYsmGDSe7bd8vdBih0Ko8dO5qVAV0W1CLIWo7B8zNZyzHfmkOyIAtYsn69KXnlFZN4773b7jZA
195
+        oUMZ8bhIqHtBLYKs5Rg8P5O1HPOtOYISlqxbBxGjBIsYNhFr5umBJHQiHt8Lhk3EZcGBJEcvWMrDCIVG
196
+        C1j88sumeO1ak+jrQ2mOClUff3w8bCBhJBvpiZiHkZlOxHYYsRKSgDkmYu4FszIiS8gCUpSsWWOKX3qJ
197
+        RcTUHBUoI/5NCygTcZaIdiKmDDjRRMwhAoZIKBvTpZOYiLkMZ4nIAlIWLHYSFr/4okns3Yt9xKhQNTp6
198
+        3JdQ7QtqfAEp7tBn7uAyXdw01k4sWcvRBq3LORu6XlCjBSyurjbFq1ebxJ49191tgEKncnT0aNi+ICOC
199
+        6CzoS0Ohr5nuWo42aP1ryo7SC/rnKYISWhHfeQciRoWqo0dHfAlVL6jRveC3zW+oZNtekMqwxhfwhRfM
200
+        3OefN3NXrTKJ3b0ozVGBRPyrnojtMELBSDbSvaDOUrfu3DHbT540D9HP3U8DypL9+82lq1ezfnaitRxl
201
+        /SD1kNILynkOyYIsYbET0evtxUsPUaHq8OEDIqF+RsyIBHoY0XKwhMGJ+A8k9Te3b/vX6O8JW8tR1g/T
202
+        d0gZlvMcnAmtgCtXZmLFCuP19GBqjgqVR44MlIVMxBrZkuE9Qc1v6Xo9Ecu+4KHzY+6KqTOfvkt6QQ1n
203
+        QBFwblWVmVtZabzubjxrjgqVhw/3he0LMpKN9L6gzlL38RaN7AuqLZl9n33mX6O/J2wtR1k/wiK6XlDO
204
+        c/gSkoASXlcXRIwKqZGR3WH7goxI4O8JUmg5Fvf3j9sX/BV9vvzVV/41+nvC1nKU9SM1W/1eUM5z+Jkw
205
+        lcpEMmm8zk6IGBWqhoe7tIDSC2r0xrTmIg0mv6feUjam7yMh93z6qfuv4Rz7/HOTPnXKnLp82dxx8mke
206
+        JqGlDGtEwCISsCiRMEWeZ7yODjziiwokYluWhK4MM5KN9ECisxRzkwaT4bEx00/l+PK1a/55fY2sh8+e
207
+        NWXqEd3vSLr2EyfMbZq+5doHNmzIiEgZUH6OQ7IgC2gjHjdeezteeogKlYcONUoW1L0gIxLIRMzDiJZD
208
+        XzPRmifp+ST0uI1p6gUXUH969soVc+qLL0wpT8auF5Tv4LASciYkAW1UVBivrQ0iRoXUoUMN/psyqhfU
209
+        6Il4unSePBkqoWxOx+gY40zoJmLOgBqRr2j5clO0bJkNEvGOuw1Q6KSGhurC3pRhJBvpiVhnKbnmo3Pn
210
+        zKp02jRSmb1C5VnOyzXXbt40D9LP68dz/sa02hf0J2LXC8p3cPgiOgmLnnvOeK2tEDEqkIg7fAFVL8iI
211
+        BPpNGS0Hc/LSJfNLflHBvS94/6ZNZgVN03+n8zyM8HVrBwezJLSZkLOf6wXDJmLuA/XvspmQgwS08eyz
212
+        Jt7SctfdBih0Kj/8cIsWUHpBjX5VS8Oi/bmjw39JQZ4R8+M5HkgeIoH/RJJbCVUZDm5M+/JJH+iGEY3I
213
+        N2fp0kwsWWK85maIGBWSBw9uFAn1H7Izko30+4I6S31EU3BMvTXNz4hlIg6+KZOVBVlEljAkC4qEnP30
214
+        7/JFJAEl4hAxOiQ/+GB92NMRLaJ+YVXO/fv6dTOfsl3YC6thvWBxjjLMGTBsIuY+UH4Xh58Nn3kmE08/
215
+        beJNTegRowJlxM0yEeteUKP/hPPrGzdsJvxjXZ3/tyOhEk5QioNlODgRcwbUaAHnLF5s5jz1lIk3NmL7
216
+        JipYEZWAuheUbBT867nJZsG8wwhLGJIFRULOfjojZkkoIu7aBRGjQmU6vS4oIf/xUpaIIRJOuRekTMhZ
217
+        kCWcqwWUadgJqHvBLBFVJrTx5JOcEfGILyok0+nVwT9eilEZ1iLagcSV4VwCTtQLZrIglWEpx5wBQ7Kg
218
+        7gWzRHQSziYBWcI5ixaZioYGZMSokEqnK0VC3QsGYRnkKKE/T3ctx7C1huWbTfLNXrgwE088YeINDZia
219
+        o0JqcDApWVD3gkxQEDkGz89kLcd8aw7JgiygiFhRXw8Ro0JyYGBl2D/n8V1D5LPx+ONm9mOPmXh9PUpz
220
+        VEj196+Z9ERMg4iNiSZi2ZjWvWDg8ZztAwP7gnoi5jIclgWthC4q6uowrEQFb9++GpFQno5MaltmMhOx
221
+        HkYo5pCAYRvTYROxFU96wkAmlKiorcWGdlSwIrqJeDob0/6eoGRAEVBtybCAfgbkx3MhGdAfRkS+hUo+
222
+        LeCjj2ZiwQITr61FjxgVEn19yXxZMGtfUJfimWRBDpGQy+8UsiALKCJSRoSIUSH57ruLJizDIiBnQZ0J
223
+        J9MLcgaUTChlmMOV4cn0glY8yYYsogsS0bjbAIWO19dXMZVSnPcZsRPQL8W6DEsptgKSeFKKbRnOkQFV
224
+        GQ4LKs0QMSok9u79S94syBK6iZgFtGV4hlkwqx+cYhbUgYwYIVLd3b+QbRm/F8wxEfsCTqcXdAL6ZThf
225
+        JuRg2fJIyEEifuluA0SBxO7dXyd6ew3F1URPzz8S3d1fUvzT6+wc87q6TlOcofU5r6PjDMU5r719zGtr
226
+        O09xwWttPU8xZqOl5YLX3HzRxQWvqemC19hoIx6MhoYL8fr6ixR8HIvX1Z2hOG2PtbXnKC5S/Ivianzn
227
+        zv/YqK29RnGLgssy/gEmAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
228
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcmsWf8DNipO3UsHTHAAAAAASUVORK5CYII=
229
+</value>
230
+  </data>
231
+  <data name="PB1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
232
+    <value>
233
+        iVBORw0KGgoAAAANSUhEUgAAAKIAAACOCAYAAACynNNWAAAABGdBTUEAALGPC/xhBQAACvZJREFUeF7t
234
+        nOlvVOcVh1FUKd3V/gMFY49t1DRSP1VKlfRDhJSq7X9QVWSBhAQS8NyZsYEEJxDCloWAA8EL3ncCTrDx
235
+        EBI32IADFCn9EBGxyARQg2ijlhAKYXl7zjvvuTpzfWe8NVLm6vdIR/edm+txrvToLO+9ZhYAAAAAAAAA
236
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
237
+        AAC+e1QPDX3PLX2qjbmHzy89ffpeOn6fY/mRIz+Q4PNhoa+rPnHih94nn/yIg9f+53TaBl3749Wjoz9d
238
+        NjT0s8rh4Z9z8OfkyMhP+MjB1y0dGLi3urr6Hhv0M3x0/5sgCqwaHY3N6+kxNnp7M8dca31OR3e3KaeY
239
+        19Vlyjk6OzPR0WHK29sz0dZmyltbM9HSYsqam015c5Mpa6JobDRlu3aZsoYGU1Zfn4m6OlNWW2vKdu40
240
+        pW+/bUp37DCl27eb0rfeykRNjUkdPFjnbgMUOitOnKjxhZqOiCwgixgUUCRkAUVCEtAGSegLGJTQCVia
241
+        S0ISsHTbNlO6datJvf/+ZXcboNCpOn68zwo22VACcha0Ak4hC9oIZkElIQtYGpoFSUCSMEYSxkjC2Jtv
242
+        mtSBA/91twEKHRKxw5dLi5Zr7TLgt5IFScCJsiALGNuyxcTeeMMk0+kb7jZAoUMiNoQKp9cSIuEUs2A5
243
+        CzguC06iF2QBaygDhkgYe/11kxwchIhRgUTcYaULCyWhLcNTyIJlUorzZEG/DOeQUJdhLWDstddM7NVX
244
+        TXL/fpTmqFB17FibL1xAPhtOwP9LFmQBlYT5ynBs29bQLCgSxjZvNsmBgZvuNkChQyIO+tIFRcwlYI4s
245
+        OK4XZAFDekErYB4J8wlYQgLGNm0yJRs3mkR//zfuNkChQyKOjCvFJCBz1wWjj8HzM1nL0V/fvWtDr/lT
246
+        iZOwxElYsmGDSe7bd8vdBih0Ko8dO5qVAV0W1CLIWo7B8zNZyzHfmkOyIAtYsn69KXnlFZN4773b7jZA
247
+        oUMZ8bhIqHtBLYKs5Rg8P5O1HPOtOYISlqxbBxGjBIsYNhFr5umBJHQiHt8Lhk3EZcGBJEcvWMrDCIVG
248
+        C1j88sumeO1ak+jrQ2mOClUff3w8bCBhJBvpiZiHkZlOxHYYsRKSgDkmYu4FszIiS8gCUpSsWWOKX3qJ
249
+        RcTUHBUoI/5NCygTcZaIdiKmDDjRRMwhAoZIKBvTpZOYiLkMZ4nIAlIWLHYSFr/4okns3Yt9xKhQNTp6
250
+        3JdQ7QtqfAEp7tBn7uAyXdw01k4sWcvRBq3LORu6XlCjBSyurjbFq1ebxJ49191tgEKncnT0aNi+ICOC
251
+        6CzoS0Ohr5nuWo42aP1ryo7SC/rnKYISWhHfeQciRoWqo0dHfAlVL6jRveC3zW+oZNtekMqwxhfwhRfM
252
+        3OefN3NXrTKJ3b0ozVGBRPyrnojtMELBSDbSvaDOUrfu3DHbT540D9HP3U8DypL9+82lq1ezfnaitRxl
253
+        /SD1kNILynkOyYIsYbET0evtxUsPUaHq8OEDIqF+RsyIBHoY0XKwhMGJ+A8k9Te3b/vX6O8JW8tR1g/T
254
+        d0gZlvMcnAmtgCtXZmLFCuP19GBqjgqVR44MlIVMxBrZkuE9Qc1v6Xo9Ecu+4KHzY+6KqTOfvkt6QQ1n
255
+        QBFwblWVmVtZabzubjxrjgqVhw/3he0LMpKN9L6gzlL38RaN7AuqLZl9n33mX6O/J2wtR1k/wiK6XlDO
256
+        c/gSkoASXlcXRIwKqZGR3WH7goxI4O8JUmg5Fvf3j9sX/BV9vvzVV/41+nvC1nKU9SM1W/1eUM5z+Jkw
257
+        lcpEMmm8zk6IGBWqhoe7tIDSC2r0xrTmIg0mv6feUjam7yMh93z6qfuv4Rz7/HOTPnXKnLp82dxx8mke
258
+        JqGlDGtEwCISsCiRMEWeZ7yODjziiwokYluWhK4MM5KN9ECisxRzkwaT4bEx00/l+PK1a/55fY2sh8+e
259
+        NWXqEd3vSLr2EyfMbZq+5doHNmzIiEgZUH6OQ7IgC2gjHjdeezteeogKlYcONUoW1L0gIxLIRMzDiJZD
260
+        XzPRmifp+ST0uI1p6gUXUH969soVc+qLL0wpT8auF5Tv4LASciYkAW1UVBivrQ0iRoXUoUMN/psyqhfU
261
+        6Il4unSePBkqoWxOx+gY40zoJmLOgBqRr2j5clO0bJkNEvGOuw1Q6KSGhurC3pRhJBvpiVhnKbnmo3Pn
262
+        zKp02jRSmb1C5VnOyzXXbt40D9LP68dz/sa02hf0J2LXC8p3cPgiOgmLnnvOeK2tEDEqkIg7fAFVL8iI
263
+        BPpNGS0Hc/LSJfNLflHBvS94/6ZNZgVN03+n8zyM8HVrBwezJLSZkLOf6wXDJmLuA/XvspmQgwS08eyz
264
+        Jt7SctfdBih0Kj/8cIsWUHpBjX5VS8Oi/bmjw39JQZ4R8+M5HkgeIoH/RJJbCVUZDm5M+/JJH+iGEY3I
265
+        N2fp0kwsWWK85maIGBWSBw9uFAn1H7Izko30+4I6S31EU3BMvTXNz4hlIg6+KZOVBVlEljAkC4qEnP30
266
+        7/JFJAEl4hAxOiQ/+GB92NMRLaJ+YVXO/fv6dTOfsl3YC6thvWBxjjLMGTBsIuY+UH4Xh58Nn3kmE08/
267
+        beJNTegRowJlxM0yEeteUKP/hPPrGzdsJvxjXZ3/tyOhEk5QioNlODgRcwbUaAHnLF5s5jz1lIk3NmL7
268
+        JipYEZWAuheUbBT867nJZsG8wwhLGJIFRULOfjojZkkoIu7aBRGjQmU6vS4oIf/xUpaIIRJOuRekTMhZ
269
+        kCWcqwWUadgJqHvBLBFVJrTx5JOcEfGILyok0+nVwT9eilEZ1iLagcSV4VwCTtQLZrIglWEpx5wBQ7Kg
270
+        7gWzRHQSziYBWcI5ixaZioYGZMSokEqnK0VC3QsGYRnkKKE/T3ctx7C1huWbTfLNXrgwE088YeINDZia
271
+        o0JqcDApWVD3gkxQEDkGz89kLcd8aw7JgiygiFhRXw8Ro0JyYGBl2D/n8V1D5LPx+ONm9mOPmXh9PUpz
272
+        VEj196+Z9ERMg4iNiSZi2ZjWvWDg8ZztAwP7gnoi5jIclgWthC4q6uowrEQFb9++GpFQno5MaltmMhOx
273
+        HkYo5pCAYRvTYROxFU96wkAmlKiorcWGdlSwIrqJeDob0/6eoGRAEVBtybCAfgbkx3MhGdAfRkS+hUo+
274
+        LeCjj2ZiwQITr61FjxgVEn19yXxZMGtfUJfimWRBDpGQy+8UsiALKCJSRoSIUSH57ruLJizDIiBnQZ0J
275
+        J9MLcgaUTChlmMOV4cn0glY8yYYsogsS0bjbAIWO19dXMZVSnPcZsRPQL8W6DEsptgKSeFKKbRnOkQFV
276
+        GQ4LKs0QMSok9u79S94syBK6iZgFtGV4hlkwqx+cYhbUgYwYIVLd3b+QbRm/F8wxEfsCTqcXdAL6ZThf
277
+        JuRg2fJIyEEifuluA0SBxO7dXyd6ew3F1URPzz8S3d1fUvzT6+wc87q6TlOcofU5r6PjDMU5r719zGtr
278
+        O09xwWttPU8xZqOl5YLX3HzRxQWvqemC19hoIx6MhoYL8fr6ixR8HIvX1Z2hOG2PtbXnKC5S/Ivianzn
279
+        zv/YqK29RnGLgssy/gEmAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
280
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcmsWf8DNipO3UsHTHAAAAAASUVORK5CYII=
281
+</value>
282
+  </data>
283
+  <data name="PB2.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
284
+    <value>
285
+        iVBORw0KGgoAAAANSUhEUgAAAKIAAACOCAYAAACynNNWAAAABGdBTUEAALGPC/xhBQAACvZJREFUeF7t
286
+        nOlvVOcVh1FUKd3V/gMFY49t1DRSP1VKlfRDhJSq7X9QVWSBhAQS8NyZsYEEJxDCloWAA8EL3ncCTrDx
287
+        EBI32IADFCn9EBGxyARQg2ijlhAKYXl7zjvvuTpzfWe8NVLm6vdIR/edm+txrvToLO+9ZhYAAAAAAAAA
288
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
289
+        AAC+e1QPDX3PLX2qjbmHzy89ffpeOn6fY/mRIz+Q4PNhoa+rPnHih94nn/yIg9f+53TaBl3749Wjoz9d
290
+        NjT0s8rh4Z9z8OfkyMhP+MjB1y0dGLi3urr6Hhv0M3x0/5sgCqwaHY3N6+kxNnp7M8dca31OR3e3KaeY
291
+        19Vlyjk6OzPR0WHK29sz0dZmyltbM9HSYsqam015c5Mpa6JobDRlu3aZsoYGU1Zfn4m6OlNWW2vKdu40
292
+        pW+/bUp37DCl27eb0rfeykRNjUkdPFjnbgMUOitOnKjxhZqOiCwgixgUUCRkAUVCEtAGSegLGJTQCVia
293
+        S0ISsHTbNlO6datJvf/+ZXcboNCpOn68zwo22VACcha0Ak4hC9oIZkElIQtYGpoFSUCSMEYSxkjC2Jtv
294
+        mtSBA/91twEKHRKxw5dLi5Zr7TLgt5IFScCJsiALGNuyxcTeeMMk0+kb7jZAoUMiNoQKp9cSIuEUs2A5
295
+        CzguC06iF2QBaygDhkgYe/11kxwchIhRgUTcYaULCyWhLcNTyIJlUorzZEG/DOeQUJdhLWDstddM7NVX
296
+        TXL/fpTmqFB17FibL1xAPhtOwP9LFmQBlYT5ynBs29bQLCgSxjZvNsmBgZvuNkChQyIO+tIFRcwlYI4s
297
+        OK4XZAFDekErYB4J8wlYQgLGNm0yJRs3mkR//zfuNkChQyKOjCvFJCBz1wWjj8HzM1nL0V/fvWtDr/lT
298
+        iZOwxElYsmGDSe7bd8vdBih0Ko8dO5qVAV0W1CLIWo7B8zNZyzHfmkOyIAtYsn69KXnlFZN4773b7jZA
299
+        oUMZ8bhIqHtBLYKs5Rg8P5O1HPOtOYISlqxbBxGjBIsYNhFr5umBJHQiHt8Lhk3EZcGBJEcvWMrDCIVG
300
+        C1j88sumeO1ak+jrQ2mOClUff3w8bCBhJBvpiZiHkZlOxHYYsRKSgDkmYu4FszIiS8gCUpSsWWOKX3qJ
301
+        RcTUHBUoI/5NCygTcZaIdiKmDDjRRMwhAoZIKBvTpZOYiLkMZ4nIAlIWLHYSFr/4okns3Yt9xKhQNTp6
302
+        3JdQ7QtqfAEp7tBn7uAyXdw01k4sWcvRBq3LORu6XlCjBSyurjbFq1ebxJ49191tgEKncnT0aNi+ICOC
303
+        6CzoS0Ohr5nuWo42aP1ryo7SC/rnKYISWhHfeQciRoWqo0dHfAlVL6jRveC3zW+oZNtekMqwxhfwhRfM
304
+        3OefN3NXrTKJ3b0ozVGBRPyrnojtMELBSDbSvaDOUrfu3DHbT540D9HP3U8DypL9+82lq1ezfnaitRxl
305
+        /SD1kNILynkOyYIsYbET0evtxUsPUaHq8OEDIqF+RsyIBHoY0XKwhMGJ+A8k9Te3b/vX6O8JW8tR1g/T
306
+        d0gZlvMcnAmtgCtXZmLFCuP19GBqjgqVR44MlIVMxBrZkuE9Qc1v6Xo9Ecu+4KHzY+6KqTOfvkt6QQ1n
307
+        QBFwblWVmVtZabzubjxrjgqVhw/3he0LMpKN9L6gzlL38RaN7AuqLZl9n33mX6O/J2wtR1k/wiK6XlDO
308
+        c/gSkoASXlcXRIwKqZGR3WH7goxI4O8JUmg5Fvf3j9sX/BV9vvzVV/41+nvC1nKU9SM1W/1eUM5z+Jkw
309
+        lcpEMmm8zk6IGBWqhoe7tIDSC2r0xrTmIg0mv6feUjam7yMh93z6qfuv4Rz7/HOTPnXKnLp82dxx8mke
310
+        JqGlDGtEwCISsCiRMEWeZ7yODjziiwokYluWhK4MM5KN9ECisxRzkwaT4bEx00/l+PK1a/55fY2sh8+e
311
+        NWXqEd3vSLr2EyfMbZq+5doHNmzIiEgZUH6OQ7IgC2gjHjdeezteeogKlYcONUoW1L0gIxLIRMzDiJZD
312
+        XzPRmifp+ST0uI1p6gUXUH969soVc+qLL0wpT8auF5Tv4LASciYkAW1UVBivrQ0iRoXUoUMN/psyqhfU
313
+        6Il4unSePBkqoWxOx+gY40zoJmLOgBqRr2j5clO0bJkNEvGOuw1Q6KSGhurC3pRhJBvpiVhnKbnmo3Pn
314
+        zKp02jRSmb1C5VnOyzXXbt40D9LP68dz/sa02hf0J2LXC8p3cPgiOgmLnnvOeK2tEDEqkIg7fAFVL8iI
315
+        BPpNGS0Hc/LSJfNLflHBvS94/6ZNZgVN03+n8zyM8HVrBwezJLSZkLOf6wXDJmLuA/XvspmQgwS08eyz
316
+        Jt7SctfdBih0Kj/8cIsWUHpBjX5VS8Oi/bmjw39JQZ4R8+M5HkgeIoH/RJJbCVUZDm5M+/JJH+iGEY3I
317
+        N2fp0kwsWWK85maIGBWSBw9uFAn1H7Izko30+4I6S31EU3BMvTXNz4hlIg6+KZOVBVlEljAkC4qEnP30
318
+        7/JFJAEl4hAxOiQ/+GB92NMRLaJ+YVXO/fv6dTOfsl3YC6thvWBxjjLMGTBsIuY+UH4Xh58Nn3kmE08/
319
+        beJNTegRowJlxM0yEeteUKP/hPPrGzdsJvxjXZ3/tyOhEk5QioNlODgRcwbUaAHnLF5s5jz1lIk3NmL7
320
+        JipYEZWAuheUbBT867nJZsG8wwhLGJIFRULOfjojZkkoIu7aBRGjQmU6vS4oIf/xUpaIIRJOuRekTMhZ
321
+        kCWcqwWUadgJqHvBLBFVJrTx5JOcEfGILyok0+nVwT9eilEZ1iLagcSV4VwCTtQLZrIglWEpx5wBQ7Kg
322
+        7gWzRHQSziYBWcI5ixaZioYGZMSokEqnK0VC3QsGYRnkKKE/T3ctx7C1huWbTfLNXrgwE088YeINDZia
323
+        o0JqcDApWVD3gkxQEDkGz89kLcd8aw7JgiygiFhRXw8Ro0JyYGBl2D/n8V1D5LPx+ONm9mOPmXh9PUpz
324
+        VEj196+Z9ERMg4iNiSZi2ZjWvWDg8ZztAwP7gnoi5jIclgWthC4q6uowrEQFb9++GpFQno5MaltmMhOx
325
+        HkYo5pCAYRvTYROxFU96wkAmlKiorcWGdlSwIrqJeDob0/6eoGRAEVBtybCAfgbkx3MhGdAfRkS+hUo+
326
+        LeCjj2ZiwQITr61FjxgVEn19yXxZMGtfUJfimWRBDpGQy+8UsiALKCJSRoSIUSH57ruLJizDIiBnQZ0J
327
+        J9MLcgaUTChlmMOV4cn0glY8yYYsogsS0bjbAIWO19dXMZVSnPcZsRPQL8W6DEsptgKSeFKKbRnOkQFV
328
+        GQ4LKs0QMSok9u79S94syBK6iZgFtGV4hlkwqx+cYhbUgYwYIVLd3b+QbRm/F8wxEfsCTqcXdAL6ZThf
329
+        JuRg2fJIyEEifuluA0SBxO7dXyd6ew3F1URPzz8S3d1fUvzT6+wc87q6TlOcofU5r6PjDMU5r719zGtr
330
+        O09xwWttPU8xZqOl5YLX3HzRxQWvqemC19hoIx6MhoYL8fr6ixR8HIvX1Z2hOG2PtbXnKC5S/Ivianzn
331
+        zv/YqK29RnGLgssy/gEmAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
332
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcmsWf8DNipO3UsHTHAAAAAASUVORK5CYII=
333
+</value>
334
+  </data>
335
+  <data name="PB3.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
336
+    <value>
337
+        iVBORw0KGgoAAAANSUhEUgAAAKIAAACOCAYAAACynNNWAAAABGdBTUEAALGPC/xhBQAACvZJREFUeF7t
338
+        nOlvVOcVh1FUKd3V/gMFY49t1DRSP1VKlfRDhJSq7X9QVWSBhAQS8NyZsYEEJxDCloWAA8EL3ncCTrDx
339
+        EBI32IADFCn9EBGxyARQg2ijlhAKYXl7zjvvuTpzfWe8NVLm6vdIR/edm+txrvToLO+9ZhYAAAAAAAAA
340
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
341
+        AAC+e1QPDX3PLX2qjbmHzy89ffpeOn6fY/mRIz+Q4PNhoa+rPnHih94nn/yIg9f+53TaBl3749Wjoz9d
342
+        NjT0s8rh4Z9z8OfkyMhP+MjB1y0dGLi3urr6Hhv0M3x0/5sgCqwaHY3N6+kxNnp7M8dca31OR3e3KaeY
343
+        19Vlyjk6OzPR0WHK29sz0dZmyltbM9HSYsqam015c5Mpa6JobDRlu3aZsoYGU1Zfn4m6OlNWW2vKdu40
344
+        pW+/bUp37DCl27eb0rfeykRNjUkdPFjnbgMUOitOnKjxhZqOiCwgixgUUCRkAUVCEtAGSegLGJTQCVia
345
+        S0ISsHTbNlO6datJvf/+ZXcboNCpOn68zwo22VACcha0Ak4hC9oIZkElIQtYGpoFSUCSMEYSxkjC2Jtv
346
+        mtSBA/91twEKHRKxw5dLi5Zr7TLgt5IFScCJsiALGNuyxcTeeMMk0+kb7jZAoUMiNoQKp9cSIuEUs2A5
347
+        CzguC06iF2QBaygDhkgYe/11kxwchIhRgUTcYaULCyWhLcNTyIJlUorzZEG/DOeQUJdhLWDstddM7NVX
348
+        TXL/fpTmqFB17FibL1xAPhtOwP9LFmQBlYT5ynBs29bQLCgSxjZvNsmBgZvuNkChQyIO+tIFRcwlYI4s
349
+        OK4XZAFDekErYB4J8wlYQgLGNm0yJRs3mkR//zfuNkChQyKOjCvFJCBz1wWjj8HzM1nL0V/fvWtDr/lT
350
+        iZOwxElYsmGDSe7bd8vdBih0Ko8dO5qVAV0W1CLIWo7B8zNZyzHfmkOyIAtYsn69KXnlFZN4773b7jZA
351
+        oUMZ8bhIqHtBLYKs5Rg8P5O1HPOtOYISlqxbBxGjBIsYNhFr5umBJHQiHt8Lhk3EZcGBJEcvWMrDCIVG
352
+        C1j88sumeO1ak+jrQ2mOClUff3w8bCBhJBvpiZiHkZlOxHYYsRKSgDkmYu4FszIiS8gCUpSsWWOKX3qJ
353
+        RcTUHBUoI/5NCygTcZaIdiKmDDjRRMwhAoZIKBvTpZOYiLkMZ4nIAlIWLHYSFr/4okns3Yt9xKhQNTp6
354
+        3JdQ7QtqfAEp7tBn7uAyXdw01k4sWcvRBq3LORu6XlCjBSyurjbFq1ebxJ49191tgEKncnT0aNi+ICOC
355
+        6CzoS0Ohr5nuWo42aP1ryo7SC/rnKYISWhHfeQciRoWqo0dHfAlVL6jRveC3zW+oZNtekMqwxhfwhRfM
356
+        3OefN3NXrTKJ3b0ozVGBRPyrnojtMELBSDbSvaDOUrfu3DHbT540D9HP3U8DypL9+82lq1ezfnaitRxl
357
+        /SD1kNILynkOyYIsYbET0evtxUsPUaHq8OEDIqF+RsyIBHoY0XKwhMGJ+A8k9Te3b/vX6O8JW8tR1g/T
358
+        d0gZlvMcnAmtgCtXZmLFCuP19GBqjgqVR44MlIVMxBrZkuE9Qc1v6Xo9Ecu+4KHzY+6KqTOfvkt6QQ1n
359
+        QBFwblWVmVtZabzubjxrjgqVhw/3he0LMpKN9L6gzlL38RaN7AuqLZl9n33mX6O/J2wtR1k/wiK6XlDO
360
+        c/gSkoASXlcXRIwKqZGR3WH7goxI4O8JUmg5Fvf3j9sX/BV9vvzVV/41+nvC1nKU9SM1W/1eUM5z+Jkw
361
+        lcpEMmm8zk6IGBWqhoe7tIDSC2r0xrTmIg0mv6feUjam7yMh93z6qfuv4Rz7/HOTPnXKnLp82dxx8mke
362
+        JqGlDGtEwCISsCiRMEWeZ7yODjziiwokYluWhK4MM5KN9ECisxRzkwaT4bEx00/l+PK1a/55fY2sh8+e
363
+        NWXqEd3vSLr2EyfMbZq+5doHNmzIiEgZUH6OQ7IgC2gjHjdeezteeogKlYcONUoW1L0gIxLIRMzDiJZD
364
+        XzPRmifp+ST0uI1p6gUXUH969soVc+qLL0wpT8auF5Tv4LASciYkAW1UVBivrQ0iRoXUoUMN/psyqhfU
365
+        6Il4unSePBkqoWxOx+gY40zoJmLOgBqRr2j5clO0bJkNEvGOuw1Q6KSGhurC3pRhJBvpiVhnKbnmo3Pn
366
+        zKp02jRSmb1C5VnOyzXXbt40D9LP68dz/sa02hf0J2LXC8p3cPgiOgmLnnvOeK2tEDEqkIg7fAFVL8iI
367
+        BPpNGS0Hc/LSJfNLflHBvS94/6ZNZgVN03+n8zyM8HVrBwezJLSZkLOf6wXDJmLuA/XvspmQgwS08eyz
368
+        Jt7SctfdBih0Kj/8cIsWUHpBjX5VS8Oi/bmjw39JQZ4R8+M5HkgeIoH/RJJbCVUZDm5M+/JJH+iGEY3I
369
+        N2fp0kwsWWK85maIGBWSBw9uFAn1H7Izko30+4I6S31EU3BMvTXNz4hlIg6+KZOVBVlEljAkC4qEnP30
370
+        7/JFJAEl4hAxOiQ/+GB92NMRLaJ+YVXO/fv6dTOfsl3YC6thvWBxjjLMGTBsIuY+UH4Xh58Nn3kmE08/
371
+        beJNTegRowJlxM0yEeteUKP/hPPrGzdsJvxjXZ3/tyOhEk5QioNlODgRcwbUaAHnLF5s5jz1lIk3NmL7
372
+        JipYEZWAuheUbBT867nJZsG8wwhLGJIFRULOfjojZkkoIu7aBRGjQmU6vS4oIf/xUpaIIRJOuRekTMhZ
373
+        kCWcqwWUadgJqHvBLBFVJrTx5JOcEfGILyok0+nVwT9eilEZ1iLagcSV4VwCTtQLZrIglWEpx5wBQ7Kg
374
+        7gWzRHQSziYBWcI5ixaZioYGZMSokEqnK0VC3QsGYRnkKKE/T3ctx7C1huWbTfLNXrgwE088YeINDZia
375
+        o0JqcDApWVD3gkxQEDkGz89kLcd8aw7JgiygiFhRXw8Ro0JyYGBl2D/n8V1D5LPx+ONm9mOPmXh9PUpz
376
+        VEj196+Z9ERMg4iNiSZi2ZjWvWDg8ZztAwP7gnoi5jIclgWthC4q6uowrEQFb9++GpFQno5MaltmMhOx
377
+        HkYo5pCAYRvTYROxFU96wkAmlKiorcWGdlSwIrqJeDob0/6eoGRAEVBtybCAfgbkx3MhGdAfRkS+hUo+
378
+        LeCjj2ZiwQITr61FjxgVEn19yXxZMGtfUJfimWRBDpGQy+8UsiALKCJSRoSIUSH57ruLJizDIiBnQZ0J
379
+        J9MLcgaUTChlmMOV4cn0glY8yYYsogsS0bjbAIWO19dXMZVSnPcZsRPQL8W6DEsptgKSeFKKbRnOkQFV
380
+        GQ4LKs0QMSok9u79S94syBK6iZgFtGV4hlkwqx+cYhbUgYwYIVLd3b+QbRm/F8wxEfsCTqcXdAL6ZThf
381
+        JuRg2fJIyEEifuluA0SBxO7dXyd6ew3F1URPzz8S3d1fUvzT6+wc87q6TlOcofU5r6PjDMU5r719zGtr
382
+        O09xwWttPU8xZqOl5YLX3HzRxQWvqemC19hoIx6MhoYL8fr6ixR8HIvX1Z2hOG2PtbXnKC5S/Ivianzn
383
+        zv/YqK29RnGLgssy/gEmAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
384
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcmsWf8DNipO3UsHTHAAAAAASUVORK5CYII=
385
+</value>
386
+  </data>
387
+  <data name="PB6.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
388
+    <value>
389
+        iVBORw0KGgoAAAANSUhEUgAAAKIAAACOCAYAAACynNNWAAAABGdBTUEAALGPC/xhBQAACvZJREFUeF7t
390
+        nOlvVOcVh1FUKd3V/gMFY49t1DRSP1VKlfRDhJSq7X9QVWSBhAQS8NyZsYEEJxDCloWAA8EL3ncCTrDx
391
+        EBI32IADFCn9EBGxyARQg2ijlhAKYXl7zjvvuTpzfWe8NVLm6vdIR/edm+txrvToLO+9ZhYAAAAAAAAA
392
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
393
+        AAC+e1QPDX3PLX2qjbmHzy89ffpeOn6fY/mRIz+Q4PNhoa+rPnHih94nn/yIg9f+53TaBl3749Wjoz9d
394
+        NjT0s8rh4Z9z8OfkyMhP+MjB1y0dGLi3urr6Hhv0M3x0/5sgCqwaHY3N6+kxNnp7M8dca31OR3e3KaeY
395
+        19Vlyjk6OzPR0WHK29sz0dZmyltbM9HSYsqam015c5Mpa6JobDRlu3aZsoYGU1Zfn4m6OlNWW2vKdu40
396
+        pW+/bUp37DCl27eb0rfeykRNjUkdPFjnbgMUOitOnKjxhZqOiCwgixgUUCRkAUVCEtAGSegLGJTQCVia
397
+        S0ISsHTbNlO6datJvf/+ZXcboNCpOn68zwo22VACcha0Ak4hC9oIZkElIQtYGpoFSUCSMEYSxkjC2Jtv
398
+        mtSBA/91twEKHRKxw5dLi5Zr7TLgt5IFScCJsiALGNuyxcTeeMMk0+kb7jZAoUMiNoQKp9cSIuEUs2A5
399
+        CzguC06iF2QBaygDhkgYe/11kxwchIhRgUTcYaULCyWhLcNTyIJlUorzZEG/DOeQUJdhLWDstddM7NVX
400
+        TXL/fpTmqFB17FibL1xAPhtOwP9LFmQBlYT5ynBs29bQLCgSxjZvNsmBgZvuNkChQyIO+tIFRcwlYI4s
401
+        OK4XZAFDekErYB4J8wlYQgLGNm0yJRs3mkR//zfuNkChQyKOjCvFJCBz1wWjj8HzM1nL0V/fvWtDr/lT
402
+        iZOwxElYsmGDSe7bd8vdBih0Ko8dO5qVAV0W1CLIWo7B8zNZyzHfmkOyIAtYsn69KXnlFZN4773b7jZA
403
+        oUMZ8bhIqHtBLYKs5Rg8P5O1HPOtOYISlqxbBxGjBIsYNhFr5umBJHQiHt8Lhk3EZcGBJEcvWMrDCIVG
404
+        C1j88sumeO1ak+jrQ2mOClUff3w8bCBhJBvpiZiHkZlOxHYYsRKSgDkmYu4FszIiS8gCUpSsWWOKX3qJ
405
+        RcTUHBUoI/5NCygTcZaIdiKmDDjRRMwhAoZIKBvTpZOYiLkMZ4nIAlIWLHYSFr/4okns3Yt9xKhQNTp6
406
+        3JdQ7QtqfAEp7tBn7uAyXdw01k4sWcvRBq3LORu6XlCjBSyurjbFq1ebxJ49191tgEKncnT0aNi+ICOC
407
+        6CzoS0Ohr5nuWo42aP1ryo7SC/rnKYISWhHfeQciRoWqo0dHfAlVL6jRveC3zW+oZNtekMqwxhfwhRfM
408
+        3OefN3NXrTKJ3b0ozVGBRPyrnojtMELBSDbSvaDOUrfu3DHbT540D9HP3U8DypL9+82lq1ezfnaitRxl
409
+        /SD1kNILynkOyYIsYbET0evtxUsPUaHq8OEDIqF+RsyIBHoY0XKwhMGJ+A8k9Te3b/vX6O8JW8tR1g/T
410
+        d0gZlvMcnAmtgCtXZmLFCuP19GBqjgqVR44MlIVMxBrZkuE9Qc1v6Xo9Ecu+4KHzY+6KqTOfvkt6QQ1n
411
+        QBFwblWVmVtZabzubjxrjgqVhw/3he0LMpKN9L6gzlL38RaN7AuqLZl9n33mX6O/J2wtR1k/wiK6XlDO
412
+        c/gSkoASXlcXRIwKqZGR3WH7goxI4O8JUmg5Fvf3j9sX/BV9vvzVV/41+nvC1nKU9SM1W/1eUM5z+Jkw
413
+        lcpEMmm8zk6IGBWqhoe7tIDSC2r0xrTmIg0mv6feUjam7yMh93z6qfuv4Rz7/HOTPnXKnLp82dxx8mke
414
+        JqGlDGtEwCISsCiRMEWeZ7yODjziiwokYluWhK4MM5KN9ECisxRzkwaT4bEx00/l+PK1a/55fY2sh8+e
415
+        NWXqEd3vSLr2EyfMbZq+5doHNmzIiEgZUH6OQ7IgC2gjHjdeezteeogKlYcONUoW1L0gIxLIRMzDiJZD
416
+        XzPRmifp+ST0uI1p6gUXUH969soVc+qLL0wpT8auF5Tv4LASciYkAW1UVBivrQ0iRoXUoUMN/psyqhfU
417
+        6Il4unSePBkqoWxOx+gY40zoJmLOgBqRr2j5clO0bJkNEvGOuw1Q6KSGhurC3pRhJBvpiVhnKbnmo3Pn
418
+        zKp02jRSmb1C5VnOyzXXbt40D9LP68dz/sa02hf0J2LXC8p3cPgiOgmLnnvOeK2tEDEqkIg7fAFVL8iI
419
+        BPpNGS0Hc/LSJfNLflHBvS94/6ZNZgVN03+n8zyM8HVrBwezJLSZkLOf6wXDJmLuA/XvspmQgwS08eyz
420
+        Jt7SctfdBih0Kj/8cIsWUHpBjX5VS8Oi/bmjw39JQZ4R8+M5HkgeIoH/RJJbCVUZDm5M+/JJH+iGEY3I
421
+        N2fp0kwsWWK85maIGBWSBw9uFAn1H7Izko30+4I6S31EU3BMvTXNz4hlIg6+KZOVBVlEljAkC4qEnP30
422
+        7/JFJAEl4hAxOiQ/+GB92NMRLaJ+YVXO/fv6dTOfsl3YC6thvWBxjjLMGTBsIuY+UH4Xh58Nn3kmE08/
423
+        beJNTegRowJlxM0yEeteUKP/hPPrGzdsJvxjXZ3/tyOhEk5QioNlODgRcwbUaAHnLF5s5jz1lIk3NmL7
424
+        JipYEZWAuheUbBT867nJZsG8wwhLGJIFRULOfjojZkkoIu7aBRGjQmU6vS4oIf/xUpaIIRJOuRekTMhZ
425
+        kCWcqwWUadgJqHvBLBFVJrTx5JOcEfGILyok0+nVwT9eilEZ1iLagcSV4VwCTtQLZrIglWEpx5wBQ7Kg
426
+        7gWzRHQSziYBWcI5ixaZioYGZMSokEqnK0VC3QsGYRnkKKE/T3ctx7C1huWbTfLNXrgwE088YeINDZia
427
+        o0JqcDApWVD3gkxQEDkGz89kLcd8aw7JgiygiFhRXw8Ro0JyYGBl2D/n8V1D5LPx+ONm9mOPmXh9PUpz
428
+        VEj196+Z9ERMg4iNiSZi2ZjWvWDg8ZztAwP7gnoi5jIclgWthC4q6uowrEQFb9++GpFQno5MaltmMhOx
429
+        HkYo5pCAYRvTYROxFU96wkAmlKiorcWGdlSwIrqJeDob0/6eoGRAEVBtybCAfgbkx3MhGdAfRkS+hUo+
430
+        LeCjj2ZiwQITr61FjxgVEn19yXxZMGtfUJfimWRBDpGQy+8UsiALKCJSRoSIUSH57ruLJizDIiBnQZ0J
431
+        J9MLcgaUTChlmMOV4cn0glY8yYYsogsS0bjbAIWO19dXMZVSnPcZsRPQL8W6DEsptgKSeFKKbRnOkQFV
432
+        GQ4LKs0QMSok9u79S94syBK6iZgFtGV4hlkwqx+cYhbUgYwYIVLd3b+QbRm/F8wxEfsCTqcXdAL6ZThf
433
+        JuRg2fJIyEEifuluA0SBxO7dXyd6ew3F1URPzz8S3d1fUvzT6+wc87q6TlOcofU5r6PjDMU5r719zGtr
434
+        O09xwWttPU8xZqOl5YLX3HzRxQWvqemC19hoIx6MhoYL8fr6ixR8HIvX1Z2hOG2PtbXnKC5S/Ivianzn
435
+        zv/YqK29RnGLgssy/gEmAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
436
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcmsWf8DNipO3UsHTHAAAAAASUVORK5CYII=
437
+</value>
438
+  </data>
439
+  <metadata name="RadPdfViewer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
440
+    <value>767, 17</value>
441
+  </metadata>
442
+  <metadata name="RadPdfViewerNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
443
+    <value>908, 17</value>
444
+  </metadata>
445
+  <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
446
+    <value>1106, 17</value>
447
+  </metadata>
448
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
449
+    <value>25</value>
450
+  </metadata>
126 451
 </root>

+ 170
- 72
GRAMS-SYS/06、總務管理/文件.vb View File

@@ -19,14 +19,25 @@ Public Class 文件
19 19
     Dim 位置1 As String : Dim 已處理字串 As String
20 20
     Dim N2 As Integer : Dim N3 As Integer
21 21
     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
22
+    Dim 圖片資料庫指定, WW(14), WA(14) As String
23
+    Dim DGVX As Integer
22 24
     Private Sub 文件_Load(sender As Object, e As EventArgs) Handles MyBase.Load
23
-        'Me.MdiParent = GRAMS_SYS : Me.WindowState = 2 : Me.AutoScroll = True
24
-        conn.Close()
25
+        Me.MdiParent = GRAMS_SYS : Me.WindowState = 2 : Me.AutoScroll = True
26
+        RadPdfViewerNavigator1.OpenButton.Visibility = Telerik.WinControls.ElementVisibility.Collapsed
27
+        RadPdfViewerNavigator1.SaveButton.Visibility = Telerik.WinControls.ElementVisibility.Collapsed
28
+        PDF_P.BringToFront()
25 29
         已核准的營運成本收支單_rb.Checked = True
26 30
         作廢的營運成本收支單_rb.Checked = False
27 31
         Set_清單1() : Set_清單3()
28 32
         刪除_bt.Enabled = False : 儲存_bt.Enabled = False : 作廢_bt.Enabled = False : 列印_bt.Enabled = False : 發行_bt.Enabled = False : 指定人員_bt.Enabled = False
29 33
     End Sub
34
+    Private Sub 文件_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
35
+        SQL_圖片資料庫查詢() : If dr.Read() Then : 圖片資料庫指定 = dr("圖片資料庫") : Else : MsgBox("圖片資料庫已滿,請聯繫系統管理員!!!") : Me.Close() : End If
36
+        If 圖片庫_tb.Text = "" Then : 圖片庫 = 圖片資料庫指定 : Else : 圖片庫 = 圖片庫_tb.Text : End If
37
+    End Sub
38
+    Private Sub 文件_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
39
+        SQL_文件沒存檔的全部存檔()
40
+    End Sub
30 41
     Private Sub Set_清單3()
31 42
         Dim ds As New DataSet
32 43
         人員1_dgv.DataSource = Nothing : ds.Clear()
@@ -52,10 +63,10 @@ Public Class 文件
52 63
             SQL_通用_控制表清單2()
53 64
         End If
54 65
         da.Fill(ds1) : 控制表_dgv.DataSource = ds1.Tables(0) : conn.Close()
55
-        控制表_dgv.Columns(0).FillWeight = 20 : 控制表_dgv.Columns(1).FillWeight = 60 : 控制表_dgv.Columns(2).Visible = False
66
+        控制表_dgv.Columns(0).Visible = False : 控制表_dgv.Columns(1).FillWeight = 60 : 控制表_dgv.Columns(2).Visible = False
56 67
         控制表_dgv.Columns(3).Visible = False : 控制表_dgv.Columns(4).Visible = False : 控制表_dgv.Columns(5).Visible = False
57
-        控制表_dgv.Columns(6).Visible = False : 控制表_dgv.Columns(7).Visible = False : 控制表_dgv.Columns(8).FillWeight = 20
58
-        控制表_dgv.Columns(9).Visible = False
68
+        控制表_dgv.Columns(6).Visible = False : 控制表_dgv.Columns(7).Visible = False : 控制表_dgv.Columns(8).Visible = False
69
+        控制表_dgv.Columns(9).Visible = False : 控制表_dgv.Columns(10).Visible = False
59 70
     End Sub
60 71
     Private Sub Set_清單2()
61 72
         人員_dgv.DataSource = Nothing : ds2.Clear()
@@ -112,8 +123,8 @@ Public Class 文件
112 123
             說明_tb.Text = 控制表_dgv(4, e.RowIndex).Value.ToString
113 124
             開單人_tb.Text = 控制表_dgv("開單人", e.RowIndex).Value.ToString
114 125
             全選_cb.Checked = 控制表_dgv("全選", e.RowIndex).Value
115
-            PA57 = 單號_tb.Text
116
-            Set_清單2()
126
+            圖片庫_tb.Text = 控制表_dgv("圖片庫", e.RowIndex).Value.ToString
127
+            PA57 = 單號_tb.Text : Set_清單2()
117 128
             If (全選_cb.Checked = True) Then
118 129
                 For I As Integer = 0 To 人員1_dgv.Rows.Count - 1
119 130
                     Dim skip As Boolean = False ' 用于标记是否跳过当前外层循环
@@ -123,31 +134,29 @@ Public Class 文件
123 134
                             Exit For ' 跳出内层循环
124 135
                         End If
125 136
                     Next
126
-
127 137
                     If skip Then
128 138
                         Continue For ' 跳过当前外层循环的当前迭代
129 139
                     End If
130
-                    PA58 = 人員1_dgv.Rows(I).Cells("姓名").Value.ToString()
131
-                    SQL_通用_明細表新增()
132
-                Next
133
-                Set_清單2()
140
+                    PA58 = 人員1_dgv.Rows(I).Cells("姓名").Value.ToString() : SQL_通用_明細表新增()
141
+                Next : Set_清單2()
134 142
             End If
135 143
             刪除_bt.Enabled = True : 儲存_bt.Enabled = True : 作廢_bt.Enabled = True : 列印_bt.Enabled = True : 發行_bt.Enabled = True : 指定人員_bt.Enabled = True
144
+            PA1 = 單號_tb.Text : 圖片_pb.Image = Nothing : 圖片1_pb.Image = Nothing : Set_文件圖片()
136 145
         End If
137 146
     End Sub
138 147
     Private Sub 查詢_tb_Click(sender As Object, e As EventArgs) Handles 查詢_tb.Click
139 148
         PA56 = InputBox("請輸入要查詢的單號資料。") : Set_清單1() : PA56 = ""
140 149
     End Sub
141 150
     Private Sub 檔案名稱_tb_KeyPress(sender As Object, e As KeyPressEventArgs) Handles 檔案名稱_tb.KeyPress
142
-        ' 允许字母、数字和空格,禁止其他字符
143 151
         If Not Char.IsLetterOrDigit(e.KeyChar) AndAlso Not Char.IsWhiteSpace(e.KeyChar) Then
144 152
             e.Handled = True
145 153
         End If
146 154
     End Sub
147 155
     Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
148
-        單號_tb.Text = "" : 檔案名稱_tb.Text = "" : 主旨_tb.Text = "" : 說明_tb.Text = "" : 開單人_tb.Text = gUserName
156
+        單號_tb.Text = "" : 檔案名稱_tb.Text = "" : 主旨_tb.Text = "" : 說明_tb.Text = "" : 開單人_tb.Text = gUserName : 全選_cb.Checked = False
149 157
         Dim NUM1 As Integer
150 158
         Dim dat1 As String
159
+        選擇日期_dtp.Value = DateTime.Now
151 160
         Dim selectedDate As DateTime = 選擇日期_dtp.Value
152 161
         Dim taiwanYear As Integer = selectedDate.Year - 1911
153 162
         Dim str As String = String.Format("{0}{1:00}{2:00}", taiwanYear, selectedDate.Month, selectedDate.Day)
@@ -163,79 +172,63 @@ Public Class 文件
163 172
         ElseIf NUM1 > 9 Then : 單號_tb.Text = str & NUM1
164 173
         End If
165 174
 
166
-        PA = 單號_tb.Text
167
-        SQL_通用_新增一筆公函控制表() : conn.Close()
175
+        PA = 單號_tb.Text : PA10 = 圖片資料庫指定 : 檔案名稱_tb.Text = InputBox("請輸入要新建的文件名稱!!")
176
+        SQL_通用_新增一筆公函控制表(檔案名稱_tb.Text, 圖片資料庫指定) : conn.Close()
168 177
 
169 178
         PA57 = "" : Set_清單2()
170 179
         刪除_bt.Enabled = True : 儲存_bt.Enabled = True : 作廢_bt.Enabled = True : 列印_bt.Enabled = True : 發行_bt.Enabled = True : 指定人員_bt.Enabled = True
171
-        'ComboBox1.SelectedIndex = 2
172
-        'ComboBox2.SelectedIndex = 3
173
-        'ComboBox3.SelectedIndex = 7
174
-        'ComboBox4.SelectedIndex = 8
180
+
175 181
     End Sub
176 182
     Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
177
-        PA57 = 單號_tb.Text : SQL_通用_明細表刪除()
178
-        SQL_通用_控制表刪除(單號_tb.Text) : conn.Close() : MsgBox("刪除成功!!")
179
-        單號_tb.Text = "" : 檔案名稱_tb.Text = "" : 主旨_tb.Text = "" : 說明_tb.Text = "" : 開單人_tb.Text = ""
180
-        Set_清單1() : Set_清單2()
181
-        刪除_bt.Enabled = False : 儲存_bt.Enabled = False : 作廢_bt.Enabled = False : 列印_bt.Enabled = False : 發行_bt.Enabled = False : 指定人員_bt.Enabled = False
183
+        If 單號_tb.Text = "" Then : MsgBox("請先選擇文件檔案名稱!!") : Else
184
+            Dim result As DialogResult = MsgBox("是否要刪除該筆資料?", MessageBoxButtons.OKCancel)
185
+            If result = DialogResult.OK Then
186
+                If 圖片庫_tb.Text = "" Then : 圖片庫 = 圖片資料庫指定 : Else : 圖片庫 = 圖片庫_tb.Text : End If
187
+                SQL_連線字串_圖片資料庫() : SQL_文件圖片刪除()
188
+                PA57 = 單號_tb.Text : SQL_通用_明細表刪除()
189
+                SQL_通用_控制表刪除(單號_tb.Text) : conn.Close() : MsgBox("刪除成功!!")
190
+                單號_tb.Text = "" : 檔案名稱_tb.Text = "" : 主旨_tb.Text = "" : 說明_tb.Text = "" : 開單人_tb.Text = ""
191
+                Set_清單1() : Set_清單2()
192
+                Set_文件圖片() : 圖片_pb.Image = Nothing : 圖片1_pb.Image = Nothing
193
+                刪除_bt.Enabled = False : 儲存_bt.Enabled = False : 作廢_bt.Enabled = False : 列印_bt.Enabled = False : 發行_bt.Enabled = False : 指定人員_bt.Enabled = False
194
+            End If
195
+        End If
182 196
     End Sub
183
-
184 197
     Private Sub 儲存_bt_Click(sender As Object, e As EventArgs) Handles 儲存_bt.Click
185
-        PA57 = 單號_tb.Text
186
-        If (全選_cb.Checked = True) Then
187
-            If 人員1_dgv.Rows.Count < 1 Then
188
-                For I As Integer = 0 To 人員1_dgv.Rows.Count - 1
189
-                    PA58 = 人員1_dgv.Rows(I).Cells("姓名").Value.ToString()
190
-                    SQL_通用_明細表新增()
191
-                Next
192
-            Else
193
-                For I As Integer = 0 To 人員1_dgv.Rows.Count - 1
194
-                    Dim skip As Boolean = False ' 用于标记是否跳过当前外层循环
195
-
196
-                    For II As Integer = 0 To 人員_dgv.Rows.Count - 1
197
-                        If 人員1_dgv.Rows(I).Cells("姓名").Value.ToString() = 人員_dgv.Rows(II).Cells("姓名").Value.ToString() Then
198
-                            skip = True ' 标记跳过当前外层循环
199
-                            Exit For ' 跳出内层循环
200
-                        End If
198
+        If 檔案名稱_tb.Text = "" Then : MsgBox("檔案名稱不可以空白!!") : Else
199
+            PA57 = 單號_tb.Text
200
+            If (全選_cb.Checked = True) Then
201
+                If 人員1_dgv.Rows.Count < 1 Then
202
+                    For I As Integer = 0 To 人員1_dgv.Rows.Count - 1
203
+                        PA58 = 人員1_dgv.Rows(I).Cells("姓名").Value.ToString() : SQL_通用_明細表新增()
201 204
                     Next
202
-
203
-                    If skip Then
204
-                        Continue For ' 跳过当前外层循环的当前迭代
205
-                    End If
206
-
207
-                    PA58 = 人員1_dgv.Rows(I).Cells("姓名").Value.ToString()
208
-                    SQL_通用_明細表新增()
209
-                Next
205
+                Else
206
+                    For I As Integer = 0 To 人員1_dgv.Rows.Count - 1 : Dim skip As Boolean = False ' 用于标记是否跳过当前外层循环
207
+                        For II As Integer = 0 To 人員_dgv.Rows.Count - 1
208
+                            If 人員1_dgv.Rows(I).Cells("姓名").Value.ToString() = 人員_dgv.Rows(II).Cells("姓名").Value.ToString() Then
209
+                                skip = True ' 标记跳过当前外层循环
210
+                                Exit For ' 跳出内层循环
211
+                            End If
212
+                        Next
213
+                        If skip Then
214
+                            Continue For ' 跳过当前外层循环的当前迭代
215
+                        End If : PA58 = 人員1_dgv.Rows(I).Cells("姓名").Value.ToString() : SQL_通用_明細表新增()
216
+                    Next
217
+                End If
210 218
             End If
211
-
219
+            SQL_通用_控制表修改(檔案名稱_tb.Text, 主旨_tb.Text, 說明_tb.Text, 單號_tb.Text, 全選_cb.Checked) : conn.Close() : MsgBox("儲存成功!!") : Set_清單1() : Set_清單2()
212 220
         End If
213
-        SQL_通用_控制表修改(檔案名稱_tb.Text, 主旨_tb.Text, 說明_tb.Text, 單號_tb.Text, 全選_cb.Checked) : conn.Close() : MsgBox("儲存成功!!") : Set_清單1() : Set_清單2()
214
-
215
-        'If 開單人_tb.Text = gUserName Or 登入人級別 = "00" Then
216
-        '    SQL_通用_控制表修改(檔案名稱_tb.Text, 主旨_tb.Text, 說明_rtb.Text, 單號_tb.Text) : conn.Close() : MsgBox("儲存成功!!") : Set_清單1()
217
-        '    If 登入人級別 <> "00" Then
218
-        '        刪除_bt.Enabled = True : 儲存_bt.Enabled = True : 作廢_bt.Enabled = True : 列印_bt.Enabled = True : 新增_bt.Enabled = True
219
-        '    End If
220
-        'Else
221
-        '    MsgBox("請確認開單人是否為本人")
222
-        'End If
223 221
     End Sub
224 222
     Private Sub 發行_bt_Click(sender As Object, e As EventArgs) Handles 發行_bt.Click
225 223
         SQL_通用_控制表發行(單號_tb.Text) : conn.Close() : MsgBox("發行成功!!") : Set_清單1()
226
-
227 224
     End Sub
228
-
229 225
     Private Sub 作廢_bt_Click(sender As Object, e As EventArgs) Handles 作廢_bt.Click
230 226
         SQL_通用_控制表作廢(單號_tb.Text) : conn.Close() : MsgBox("作廢成功!!") : Set_清單1()
231
-
232 227
     End Sub
233
-
234 228
     Private Sub 編輯人員_bt_Click(sender As Object, e As EventArgs) Handles 指定人員_bt.Click
235 229
         全選_cb.Checked = False
236 230
         PA57 = 單號_tb.Text : 選擇人員.ShowDialog() : Set_清單2()
237 231
     End Sub
238
-
239 232
     Private Sub 作廢的營運成本收支單_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 作廢的營運成本收支單_rb.Click
240 233
         作廢的營運成本收支單_rb.Checked = True : 已核准的營運成本收支單_rb.Checked = False : 已發行的營運成本收支單_rb.Checked = False
241 234
         Set_清單1()
@@ -248,6 +241,107 @@ Public Class 文件
248 241
         作廢的營運成本收支單_rb.Checked = False : 已核准的營運成本收支單_rb.Checked = False : 已發行的營運成本收支單_rb.Checked = True
249 242
         Set_清單1()
250 243
     End Sub
244
+    Private Sub 圖片清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片清單_dgv.CellClick
245
+        If e.RowIndex = -1 Then : Else : DGVX = e.RowIndex : 圖片清單讀取() : End If
246
+    End Sub
247
+    Private Sub 物料圖_pb_Click(sender As Object, e As EventArgs) Handles 圖片_pb.Click
248
+        If IsNothing(圖片_pb.Image) = False Then
249
+            If 圖片清單_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
250
+                圖片傳遞 = 圖片_pb.Image : 圖片放大視窗.ShowDialog()
251
+            Else : If 圖片庫_tb.Text = "" Then : 圖片庫 = 圖片資料庫指定 : Else : 圖片庫 = 圖片庫_tb.Text : End If
252
+                PA1 = 單號_tb.Text : PA2 = 圖片清單_dgv.Rows(DGVX).Cells("Item").Value : SQL_連線字串_圖片資料庫()
253
+                Dim Str As String = System.Windows.Forms.Application.StartupPath : Dim ds1 As New DataSet : ds1.Clear() : SQL_文件圖片讀取1() : da.Fill(ds1)
254
+                If ds1.Tables(0).Rows.Count > 0 Then
255
+                    Dim imgData() As Byte : imgData = ds1.Tables(0).Rows(0).Item("圖片")
256
+                    Dim fs As FileStream : fs = File.Create(Str + "\" & PA2 & ".pdf", imgData.Length - 1)
257
+                    fs.Write(imgData, 0, imgData.Length - 1) : fs.Close()
258
+                End If : conn.Close() : PDF路徑 = Str + "\" & PA2 & ".pdf" : PDF預覽.ShowDialog()
259
+            End If
260
+        End If
261
+    End Sub
262
+    Private Sub 圖檔入系統_rbt_Click(sender As Object, e As EventArgs) Handles 圖檔入系統_rbt.Click
263
+        If 單號_tb.Text = "" Then : MsgBox("請先選擇會議/專案項目!!") : Else : If 圖片庫_tb.Text = "" Then : 圖片庫 = 圖片資料庫指定 : Else : 圖片庫 = 圖片庫_tb.Text : End If
264
+            PA1 = 單號_tb.Text : SQL_連線字串_圖片資料庫()
265
+            For i As Integer = 0 To NU1
266
+                If WW(i) = "" Then : Else
267
+                    Dim 文件號 As String : Dim 文件編號 As Integer : SQL_文件圖片最後一筆編號查詢()
268
+                    If dr.Read() Then : 文件編號 = Double.Parse(Strings.Right(dr("項次").ToString, 2)) : Else : 文件編號 = 0 : End If
269
+                    conn.Close() : 文件編號 += 1
270
+                    If 文件編號 < 10 Then : 文件號 = "IM" & "0" & 文件編號
271
+                    ElseIf 文件編號 > 9 Then : 文件號 = "IM" & 文件編號 : End If
272
+                    PA2 = 文件號 : PA49 = WW(i) : PA3 = WA(i) : SQL_文件圖片入系統()
273
+                End If
274
+            Next
275
+            For i As Integer = 0 To 5 : WW(i) = "" : Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB" & i + 1, True)(0), PictureBox) : 選擇.Image = Nothing : Next
276
+            Set_文件圖片() : MsgBox("上傳完畢!!")
277
+        End If
278
+    End Sub
279
+    Private Sub Set_文件圖片()
280
+        Dim ds6 As New DataSet : 圖片清單_dgv.DataSource = Nothing : ds6.Clear()
281
+        圖片清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
282
+        圖片清單_dgv.ColumnHeadersHeight = 25 : 圖片清單_dgv.AllowUserToAddRows = False
283
+        If 圖片庫_tb.Text = "" Then : 圖片庫 = 圖片資料庫指定 : Else : 圖片庫 = 圖片庫_tb.Text : End If
284
+        SQL_連線字串_圖片資料庫() : SQL_文件圖片()
285
+        da.Fill(ds6) : 圖片清單_dgv.DataSource = ds6.Tables(0) : conn.Close()
286
+        圖片清單_dgv.Columns(0).ReadOnly = True
287
+        If 圖片清單_dgv.Rows.Count > 0 Then : DGVX = 0 : 圖片清單讀取() : TabControl1.SelectedIndex = 0 : Else
288
+            If 說明_tb.Text = "" Then
289
+                圖片_pb.Image = Nothing : 圖片1_pb.Image = Nothing : 圖片_P.BringToFront()
290
+                圖片1_pb.Image = My.Resources.無檔案 : 圖片_pb.SizeMode = 4
291
+                TabControl1.SelectedIndex = 0
292
+            Else
293
+                TabControl1.SelectedIndex = 1
294
+            End If
295
+        End If
296
+    End Sub
297
+    Private Sub 圖片清單讀取()
298
+        If 圖片庫_tb.Text = "" Then : 圖片庫 = 圖片資料庫指定 : Else : 圖片庫 = 圖片庫_tb.Text : End If
299
+        圖片_pb.Image = Nothing : 圖片1_pb.Image = Nothing : PA1 = 單號_tb.Text : SQL_連線字串_圖片資料庫()
300
+        PA2 = 圖片清單_dgv.Rows(DGVX).Cells("Item").Value
301
+        If 圖片清單_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then : 圖片_P.BringToFront()
302
+            SQL_文件圖片讀取()
303
+            While dr.Read() = True
304
+                Dim unused As Byte() = New Byte(-1) {}
305
+                Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
306
+                Dim oStream As New MemoryStream(bytes)
307
+                圖片_pb.Image = Bitmap.FromStream(oStream)
308
+                圖片1_pb.Image = Bitmap.FromStream(oStream)
309
+            End While : conn.Close() : 圖片_pb.SizeMode = 4 : 圖片1_pb.SizeMode = 4
310
+        ElseIf 圖片清單_dgv.Rows(DGVX).Cells("File.").Value.ToString <> "JPG" Then : PDF_P.BringToFront()
311
+            圖片_pb.Image = My.Resources.PDF : 圖片_pb.SizeMode = 4 : If 圖片庫_tb.Text = "" Then : 圖片庫 = 圖片資料庫指定 : Else : 圖片庫 = 圖片庫_tb.Text : End If
312
+            PA1 = 單號_tb.Text : PA2 = 圖片清單_dgv.Rows(DGVX).Cells("Item").Value : SQL_連線字串_圖片資料庫()
313
+            Dim Str As String = System.Windows.Forms.Application.StartupPath : Dim ds1 As New DataSet : ds1.Clear() : SQL_文件圖片讀取1() : da.Fill(ds1)
314
+            If ds1.Tables(0).Rows.Count > 0 Then
315
+                Dim imgData() As Byte : imgData = ds1.Tables(0).Rows(0).Item("圖片")
316
+                Dim fs As FileStream : fs = File.Create(Str + "\" & PA2 & ".pdf", imgData.Length - 1)
317
+                fs.Write(imgData, 0, imgData.Length - 1) : fs.Close()
318
+            End If : conn.Close() : PDF路徑 = Str + "\" & PA2 & ".pdf" : Me.RadPdfViewer1.LoadDocument(PDF路徑)
319
+        End If
320
+    End Sub
321
+
322
+    Private Sub 讀取資料夾路徑_rbt_Click(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_rbt.Click
323
+        If OpenFileDialog1.ShowDialog <> DialogResult.Cancel Then
324
+            If OpenFileDialog1.FileNames.Length > 6 Then : MsgBox("選取檔案不能超過6個!!") : Else
325
+                For i As Integer = 0 To 5 : WW(i) = "" : WA(i) = "" : Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB" & i + 1, True)(0), PictureBox) : 選擇.Image = Nothing : Next
326
+                NU1 = OpenFileDialog1.FileNames.Length - 1
327
+                For i As Integer = 0 To OpenFileDialog1.FileNames.Length - 1 : WW(i) = OpenFileDialog1.FileNames(i) : Next
328
+                For i As Integer = 0 To NU1
329
+                    Dim 驗證 As String = "" : Dim 取變數 As String : 取變數 = Strings.StrReverse(WW(i))
330
+                    For ii As Integer = 1 To 10
331
+                        If ii = 1 Then : 驗證 = Strings.Left(取變數, ii) : Else
332
+                            If Strings.Mid(取變數, ii, 1) = "." Then : 驗證 = Strings.StrReverse(驗證) : Exit For : Else : 驗證 &= Strings.Mid(取變數, ii, 1) : End If
333
+                        End If
334
+                    Next
335
+                    If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or
336
+                           驗證 = "JPEG" Or 驗證 = "jpeg" Then : WA(i) = "JPG"
337
+                        Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB" & i + 1, True)(0), PictureBox) : 選擇.Image = Image.FromFile(WW(i)) : 選擇.SizeMode = 4
338
+                    ElseIf 驗證 = "PDF" Or 驗證 = "pdf" Then : WA(i) = "PDF"
339
+                        Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB" & i + 1, True)(0), PictureBox) : 選擇.Image = My.Resources.PDF : 選擇.SizeMode = 4
340
+                    Else : WW(i) = "" : WA(i) = "" : End If
341
+                Next
342
+            End If
343
+        End If
344
+    End Sub
251 345
     Private Sub 查詢_tb_MouseEnter(sender As Object, e As EventArgs) Handles 查詢_tb.MouseEnter
252 346
         ToolTip1.SetToolTip(Me.查詢_tb, "關鍵字搜尋")
253 347
     End Sub
@@ -269,14 +363,21 @@ Public Class 文件
269 363
     Private Sub 匯出EXCEL_bt_MouseEnter(sender As Object, e As EventArgs) Handles 列印_bt.MouseEnter
270 364
         ToolTip1.SetToolTip(Me.列印_bt, "匯出PDF")
271 365
     End Sub
366
+    Private Sub 讀取資料夾路徑_rbt_MouseEnter(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_rbt.MouseEnter
367
+        ToolTip1.SetToolTip(Me.讀取資料夾路徑_rbt, "選擇電腦的資料夾路徑")
368
+    End Sub
369
+    Private Sub 圖檔入系統_rbt_MouseEnter(sender As Object, e As EventArgs) Handles 圖檔入系統_rbt.MouseEnter
370
+        ToolTip1.SetToolTip(Me.圖檔入系統_rbt, "檔案存入系統")
371
+    End Sub
272 372
     Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
273 373
         主旨_tb.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
274 374
         說明_tb.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
275 375
     End Sub
276 376
     Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
277
-        'If 登入人級別 <> "00" Then
278
-        '    刪除_bt.Enabled = False : 儲存_bt.Enabled = False : 作廢_bt.Enabled = True : 列印_bt.Enabled = True : 新增_bt.Enabled = True
279
-        'End If
377
+        If 檔案名稱_tb.Text = "" Then
378
+            MsgBox("檔案名稱不可空白!!!")
379
+            Exit Sub
380
+        End If
280 381
         Set_清單1()
281 382
         xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application) : xlApp.Visible = True : xlApp.DisplayAlerts = True
282 383
         xlApp.Application.WindowState = xlMaximized : xlBook = xlApp.Workbooks.Add : xlSheet = NewMethod(xlBook) : xlBook.Activate() : xlSheet.Activate()
@@ -501,9 +602,6 @@ Public Class 文件
501 602
             Else
502 603
                 xlSheet.Rows(i).RowHeight = xlSheet.Rows(i).RowHeight + 5
503 604
             End If
504
-
505 605
         Next
506 606
     End Sub
507
-
508
-
509 607
 End Class

+ 54
- 38
GRAMS-SYS/HSKIN-MIS-SYS.Designer.vb View File

@@ -64,6 +64,8 @@ Partial Class GRAMS_SYS
64 64
         Me.薪資表_tsm = New System.Windows.Forms.ToolStripMenuItem()
65 65
         Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
66 66
         Me.考勤位置設定_tsm = New System.Windows.Forms.ToolStripMenuItem()
67
+        Me.考勤位置異常清單_tsm = New System.Windows.Forms.ToolStripMenuItem()
68
+        Me.員工手機考勤驗證管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
67 69
         Me.業務管理系統_tsm = New System.Windows.Forms.ToolStripMenuItem()
68 70
         Me.業務銷售控制表_tsm = New System.Windows.Forms.ToolStripMenuItem()
69 71
         Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
@@ -85,16 +87,16 @@ Partial Class GRAMS_SYS
85 87
         Me.ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel()
86 88
         Me.ToolStripProgressBar1 = New System.Windows.Forms.ToolStripProgressBar()
87 89
         Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components)
88
-        Me.FTP清單_dgv = New System.Windows.Forms.DataGridView()
89 90
         Me.加班單_dgv = New System.Windows.Forms.DataGridView()
90 91
         Me.休假單_dgv = New System.Windows.Forms.DataGridView()
91
-        Me.考勤位置異常清單_tsm = New System.Windows.Forms.ToolStripMenuItem()
92
-        Me.員工手機考勤驗證管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
92
+        Me.會議未簽_dgv = New System.Windows.Forms.DataGridView()
93
+        Me.公告未簽_dgv = New System.Windows.Forms.DataGridView()
93 94
         Me.MenuStrip.SuspendLayout()
94 95
         Me.StatusStrip.SuspendLayout()
95
-        CType(Me.FTP清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
96 96
         CType(Me.加班單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
97 97
         CType(Me.休假單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
98
+        CType(Me.會議未簽_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
99
+        CType(Me.公告未簽_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
98 100
         Me.SuspendLayout()
99 101
         '
100 102
         'MenuStrip
@@ -193,7 +195,7 @@ Partial Class GRAMS_SYS
193 195
         Me.文件_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.PDF
194 196
         Me.文件_tsm.Name = "文件_tsm"
195 197
         Me.文件_tsm.Size = New System.Drawing.Size(193, 22)
196
-        Me.文件_tsm.Text = "文件"
198
+        Me.文件_tsm.Text = "文件與公告-系統簽名"
197 199
         '
198 200
         '排班管理系統_tsm
199 201
         '
@@ -367,6 +369,20 @@ Partial Class GRAMS_SYS
367 369
         Me.考勤位置設定_tsm.Size = New System.Drawing.Size(194, 22)
368 370
         Me.考勤位置設定_tsm.Text = "考勤位置設定"
369 371
         '
372
+        '考勤位置異常清單_tsm
373
+        '
374
+        Me.考勤位置異常清單_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.GM
375
+        Me.考勤位置異常清單_tsm.Name = "考勤位置異常清單_tsm"
376
+        Me.考勤位置異常清單_tsm.Size = New System.Drawing.Size(194, 22)
377
+        Me.考勤位置異常清單_tsm.Text = "考勤位置異常清單"
378
+        '
379
+        '員工手機考勤驗證管理_tsm
380
+        '
381
+        Me.員工手機考勤驗證管理_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.GM
382
+        Me.員工手機考勤驗證管理_tsm.Name = "員工手機考勤驗證管理_tsm"
383
+        Me.員工手機考勤驗證管理_tsm.Size = New System.Drawing.Size(194, 22)
384
+        Me.員工手機考勤驗證管理_tsm.Text = "員工手機考勤驗證管理"
385
+        '
370 386
         '業務管理系統_tsm
371 387
         '
372 388
         Me.業務管理系統_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.業務銷售控制表_tsm, Me.ToolStripSeparator4, Me.業績獎金計算表_tsm, Me.產品銷售分析表_tsm, Me.來客資料分析表_tsm, Me.人員貢獻分析表_tsm, Me.ToolStripSeparator24, Me.業務系統資料管理_tsm, Me.交易明細表導入_tsm})
@@ -379,59 +395,59 @@ Partial Class GRAMS_SYS
379 395
         '
380 396
         Me.業務銷售控制表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.business_info
381 397
         Me.業務銷售控制表_tsm.Name = "業務銷售控制表_tsm"
382
-        Me.業務銷售控制表_tsm.Size = New System.Drawing.Size(180, 22)
398
+        Me.業務銷售控制表_tsm.Size = New System.Drawing.Size(170, 22)
383 399
         Me.業務銷售控制表_tsm.Text = "業務銷售控制表"
384 400
         '
385 401
         'ToolStripSeparator4
386 402
         '
387 403
         Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
388
-        Me.ToolStripSeparator4.Size = New System.Drawing.Size(177, 6)
404
+        Me.ToolStripSeparator4.Size = New System.Drawing.Size(167, 6)
389 405
         '
390 406
         '業績獎金計算表_tsm
391 407
         '
392 408
         Me.業績獎金計算表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Report
393 409
         Me.業績獎金計算表_tsm.Name = "業績獎金計算表_tsm"
394
-        Me.業績獎金計算表_tsm.Size = New System.Drawing.Size(180, 22)
410
+        Me.業績獎金計算表_tsm.Size = New System.Drawing.Size(170, 22)
395 411
         Me.業績獎金計算表_tsm.Text = "業績獎金計算表"
396 412
         '
397 413
         '產品銷售分析表_tsm
398 414
         '
399 415
         Me.產品銷售分析表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Report
400 416
         Me.產品銷售分析表_tsm.Name = "產品銷售分析表_tsm"
401
-        Me.產品銷售分析表_tsm.Size = New System.Drawing.Size(180, 22)
417
+        Me.產品銷售分析表_tsm.Size = New System.Drawing.Size(170, 22)
402 418
         Me.產品銷售分析表_tsm.Text = "產品銷售分析表"
403 419
         '
404 420
         '來客資料分析表_tsm
405 421
         '
406 422
         Me.來客資料分析表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Report
407 423
         Me.來客資料分析表_tsm.Name = "來客資料分析表_tsm"
408
-        Me.來客資料分析表_tsm.Size = New System.Drawing.Size(180, 22)
424
+        Me.來客資料分析表_tsm.Size = New System.Drawing.Size(170, 22)
409 425
         Me.來客資料分析表_tsm.Text = "來客資料分析表"
410 426
         '
411 427
         '人員貢獻分析表_tsm
412 428
         '
413 429
         Me.人員貢獻分析表_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Report
414 430
         Me.人員貢獻分析表_tsm.Name = "人員貢獻分析表_tsm"
415
-        Me.人員貢獻分析表_tsm.Size = New System.Drawing.Size(180, 22)
431
+        Me.人員貢獻分析表_tsm.Size = New System.Drawing.Size(170, 22)
416 432
         Me.人員貢獻分析表_tsm.Text = "人員貢獻分析表"
417 433
         '
418 434
         'ToolStripSeparator24
419 435
         '
420 436
         Me.ToolStripSeparator24.Name = "ToolStripSeparator24"
421
-        Me.ToolStripSeparator24.Size = New System.Drawing.Size(177, 6)
437
+        Me.ToolStripSeparator24.Size = New System.Drawing.Size(167, 6)
422 438
         '
423 439
         '業務系統資料管理_tsm
424 440
         '
425 441
         Me.業務系統資料管理_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.Sys_Command
426 442
         Me.業務系統資料管理_tsm.Name = "業務系統資料管理_tsm"
427
-        Me.業務系統資料管理_tsm.Size = New System.Drawing.Size(180, 22)
443
+        Me.業務系統資料管理_tsm.Size = New System.Drawing.Size(170, 22)
428 444
         Me.業務系統資料管理_tsm.Text = "業務系統資料管理"
429 445
         '
430 446
         '交易明細表導入_tsm
431 447
         '
432 448
         Me.交易明細表導入_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.pen
433 449
         Me.交易明細表導入_tsm.Name = "交易明細表導入_tsm"
434
-        Me.交易明細表導入_tsm.Size = New System.Drawing.Size(180, 22)
450
+        Me.交易明細表導入_tsm.Size = New System.Drawing.Size(170, 22)
435 451
         Me.交易明細表導入_tsm.Text = "交易明細表導入"
436 452
         '
437 453
         '系統設定_tsm
@@ -506,17 +522,6 @@ Partial Class GRAMS_SYS
506 522
         Me.ToolStripProgressBar1.Name = "ToolStripProgressBar1"
507 523
         Me.ToolStripProgressBar1.Size = New System.Drawing.Size(750, 16)
508 524
         '
509
-        'FTP清單_dgv
510
-        '
511
-        Me.FTP清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
512
-        Me.FTP清單_dgv.Location = New System.Drawing.Point(42, 60)
513
-        Me.FTP清單_dgv.Name = "FTP清單_dgv"
514
-        Me.FTP清單_dgv.RowHeadersWidth = 5
515
-        Me.FTP清單_dgv.RowTemplate.Height = 24
516
-        Me.FTP清單_dgv.Size = New System.Drawing.Size(85, 29)
517
-        Me.FTP清單_dgv.TabIndex = 663
518
-        Me.FTP清單_dgv.Visible = False
519
-        '
520 525
         '加班單_dgv
521 526
         '
522 527
         Me.加班單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -539,19 +544,27 @@ Partial Class GRAMS_SYS
539 544
         Me.休假單_dgv.TabIndex = 667
540 545
         Me.休假單_dgv.Visible = False
541 546
         '
542
-        '考勤位置異常清單_tsm
547
+        '會議未簽_dgv
543 548
         '
544
-        Me.考勤位置異常清單_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.GM
545
-        Me.考勤位置異常清單_tsm.Name = "考勤位置異常清單_tsm"
546
-        Me.考勤位置異常清單_tsm.Size = New System.Drawing.Size(194, 22)
547
-        Me.考勤位置異常清單_tsm.Text = "考勤位置異常清單"
549
+        Me.會議未簽_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
550
+        Me.會議未簽_dgv.Location = New System.Drawing.Point(307, 60)
551
+        Me.會議未簽_dgv.Name = "會議未簽_dgv"
552
+        Me.會議未簽_dgv.RowHeadersWidth = 5
553
+        Me.會議未簽_dgv.RowTemplate.Height = 24
554
+        Me.會議未簽_dgv.Size = New System.Drawing.Size(81, 49)
555
+        Me.會議未簽_dgv.TabIndex = 669
556
+        Me.會議未簽_dgv.Visible = False
548 557
         '
549
-        '員工手機考勤驗證管理_tsm
558
+        '公告未簽_dgv
550 559
         '
551
-        Me.員工手機考勤驗證管理_tsm.Image = Global.HSKIN_MIS_SYS.My.Resources.Resources.GM
552
-        Me.員工手機考勤驗證管理_tsm.Name = "員工手機考勤驗證管理_tsm"
553
-        Me.員工手機考勤驗證管理_tsm.Size = New System.Drawing.Size(194, 22)
554
-        Me.員工手機考勤驗證管理_tsm.Text = "員工手機考勤驗證管理"
560
+        Me.公告未簽_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
561
+        Me.公告未簽_dgv.Location = New System.Drawing.Point(394, 60)
562
+        Me.公告未簽_dgv.Name = "公告未簽_dgv"
563
+        Me.公告未簽_dgv.RowHeadersWidth = 5
564
+        Me.公告未簽_dgv.RowTemplate.Height = 24
565
+        Me.公告未簽_dgv.Size = New System.Drawing.Size(81, 49)
566
+        Me.公告未簽_dgv.TabIndex = 671
567
+        Me.公告未簽_dgv.Visible = False
555 568
         '
556 569
         'GRAMS_SYS
557 570
         '
@@ -560,9 +573,10 @@ Partial Class GRAMS_SYS
560 573
         Me.BackgroundImage = Global.HSKIN_MIS_SYS.My.Resources.Resources.LOGO0101
561 574
         Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
562 575
         Me.ClientSize = New System.Drawing.Size(1270, 643)
576
+        Me.Controls.Add(Me.公告未簽_dgv)
577
+        Me.Controls.Add(Me.會議未簽_dgv)
563 578
         Me.Controls.Add(Me.休假單_dgv)
564 579
         Me.Controls.Add(Me.加班單_dgv)
565
-        Me.Controls.Add(Me.FTP清單_dgv)
566 580
         Me.Controls.Add(Me.MenuStrip)
567 581
         Me.Controls.Add(Me.StatusStrip)
568 582
         Me.DoubleBuffered = True
@@ -577,9 +591,10 @@ Partial Class GRAMS_SYS
577 591
         Me.MenuStrip.PerformLayout()
578 592
         Me.StatusStrip.ResumeLayout(False)
579 593
         Me.StatusStrip.PerformLayout()
580
-        CType(Me.FTP清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
581 594
         CType(Me.加班單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
582 595
         CType(Me.休假單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
596
+        CType(Me.會議未簽_dgv, System.ComponentModel.ISupportInitialize).EndInit()
597
+        CType(Me.公告未簽_dgv, System.ComponentModel.ISupportInitialize).EndInit()
583 598
         Me.ResumeLayout(False)
584 599
         Me.PerformLayout()
585 600
 
@@ -604,7 +619,6 @@ Partial Class GRAMS_SYS
604 619
     Friend WithEvents 系統設定_tsm As ToolStripMenuItem
605 620
     Friend WithEvents ToolStripStatusLabel2 As ToolStripStatusLabel
606 621
     Friend WithEvents ToolStripProgressBar1 As ToolStripProgressBar
607
-    Friend WithEvents FTP清單_dgv As DataGridView
608 622
     Friend WithEvents 系統使用者權限設定_tsm As ToolStripMenuItem
609 623
     Friend WithEvents 系統通用變數設定_tsm As ToolStripMenuItem
610 624
     Friend WithEvents ID卡配置設定_tsm As ToolStripMenuItem
@@ -649,4 +663,6 @@ Partial Class GRAMS_SYS
649 663
     Friend WithEvents 考勤位置設定_tsm As ToolStripMenuItem
650 664
     Friend WithEvents 考勤位置異常清單_tsm As ToolStripMenuItem
651 665
     Friend WithEvents 員工手機考勤驗證管理_tsm As ToolStripMenuItem
666
+    Friend WithEvents 會議未簽_dgv As DataGridView
667
+    Friend WithEvents 公告未簽_dgv As DataGridView
652 668
 End Class

+ 45
- 13
GRAMS-SYS/HSKIN-MIS-SYS.vb View File

@@ -1,6 +1,6 @@
1 1
 Imports System.IO
2 2
 Public Class GRAMS_SYS
3
-    ReadOnly ds1, ds2, ds3 As New DataSet
3
+    ReadOnly ds1, ds2, ds3, ds4 As New DataSet
4 4
     Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewWindowToolStripMenuItem.Click
5 5
         ' 建立子表單的新執行個體。
6 6
         ' 將它變成這個 MDI 表單的子表單,然後才顯示。
@@ -34,11 +34,18 @@ Public Class GRAMS_SYS
34 34
     End Sub
35 35
     Private m_ChildFormNumber As Integer
36 36
     Private Sub Set_清單1()
37
-        FTP清單_dgv.DataSource = Nothing : ds2.Clear()
38
-        FTP清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
39
-        FTP清單_dgv.ColumnHeadersHeight = 25 : FTP清單_dgv.AllowUserToAddRows = False
40
-        SQL_FTP資料夾路徑分配()
41
-        da.Fill(ds2) : FTP清單_dgv.DataSource = ds2.Tables(0) : conn.Close()
37
+        會議未簽_dgv.DataSource = Nothing : ds2.Clear()
38
+        會議未簽_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
39
+        會議未簽_dgv.ColumnHeadersHeight = 25 : 會議未簽_dgv.AllowUserToAddRows = False
40
+        SQL_會議未簽()
41
+        da.Fill(ds2) : 會議未簽_dgv.DataSource = ds2.Tables(0) : conn.Close()
42
+    End Sub
43
+    Private Sub Set_清單2()
44
+        公告未簽_dgv.DataSource = Nothing : ds4.Clear()
45
+        公告未簽_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
46
+        公告未簽_dgv.ColumnHeadersHeight = 25 : 公告未簽_dgv.AllowUserToAddRows = False
47
+        SQL_文件未簽()
48
+        da.Fill(ds4) : 公告未簽_dgv.DataSource = ds4.Tables(0) : conn.Close()
42 49
     End Sub
43 50
     Private Sub Set_加班明細()
44 51
         加班單_dgv.DataSource = Nothing : ds1.Clear()
@@ -77,14 +84,12 @@ Public Class GRAMS_SYS
77 84
         '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
78 85
         業務管理系統_tsm.Visible = CC(19) : 業績獎金計算表_tsm.Visible = CC(20) : 產品銷售分析表_tsm.Visible = CC(21) : 來客資料分析表_tsm.Visible = CC(22) : 人員貢獻分析表_tsm.Visible = CC(23)
79 86
         業務銷售控制表_tsm.Visible = CC(19) : 文件_tsm.Visible = CC(1)
80
-        If gUserName = "*系統管理者" Then
81
-            業務系統資料管理_tsm.Visible = True : 交易明細表導入_tsm.Visible = True
82
-        Else
83
-            業務系統資料管理_tsm.Visible = False : 交易明細表導入_tsm.Visible = False
84
-        End If
87
+        If gUserName = "*系統管理者" Then : 業務系統資料管理_tsm.Visible = True : 交易明細表導入_tsm.Visible = True
88
+        Else : 業務系統資料管理_tsm.Visible = False : 交易明細表導入_tsm.Visible = False : End If
85 89
         '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
86 90
         總務管理系統_tsm.Visible = CC(29)
87
-
91
+    End Sub
92
+    Private Sub GRAMS_SYS_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
88 93
         Set_加班明細() : Set_請假明細()
89 94
         Dim 提醒(3) As String
90 95
         If CC(9) = True Then : 提醒(0) = "系統中還有 " & " " & 加班單_dgv.Rows.Count & " " & "筆 加班申請尚未審核" : End If
@@ -93,7 +98,34 @@ Public Class GRAMS_SYS
93 98
             MsgBox(提醒(0) & vbCrLf & vbCrLf &
94 99
                    提醒(1))
95 100
         End If
96
-        'SYS-UPDATE.exe
101
+        Set_清單1() : Set_清單2() : Dim 會議未簽, 公告未簽 As String : 會議未簽 = "" : 公告未簽 = ""
102
+        If 會議未簽_dgv.Rows.Count = 0 And 公告未簽_dgv.Rows.Count = 0 Then : Else
103
+            If 會議未簽_dgv.Rows.Count = 0 Then : 會議未簽 = "沒有未簽名的會議紀錄!!" : Else
104
+                For i As Integer = 0 To 會議未簽_dgv.Rows.Count - 1
105
+                    If i <> 會議未簽_dgv.Rows.Count - 1 Then
106
+                        會議未簽 &= 會議未簽_dgv(0, i).Value.ToString & " : 未簽名人數 [ " & 會議未簽_dgv(1, i).Value.ToString & " ]" & vbCrLf
107
+                    Else
108
+                        會議未簽 &= 會議未簽_dgv(0, i).Value.ToString & " : 未簽名人數 [ " & 會議未簽_dgv(1, i).Value.ToString
109
+                    End If
110
+                Next
111
+            End If
112
+            If 公告未簽_dgv.Rows.Count = 0 Then : 公告未簽 = "沒有未簽名的公告或文件!!" : Else
113
+                For i As Integer = 0 To 公告未簽_dgv.Rows.Count - 1
114
+                    If i <> 會議未簽_dgv.Rows.Count - 1 Then
115
+                        公告未簽 &= 公告未簽_dgv(0, i).Value.ToString & " : 未簽名人數 [ " & 公告未簽_dgv(1, i).Value.ToString & " ]" & vbCrLf
116
+                    Else
117
+                        公告未簽 &= 公告未簽_dgv(0, i).Value.ToString & " : 未簽名人數 [ " & 公告未簽_dgv(1, i).Value.ToString & " ]"
118
+                    End If
119
+                Next
120
+            End If
121
+            '-------等待可以開啟通知的時機----------------------------------------
122
+            Dim 開啟通知 As Boolean = False
123
+            If 開啟通知 = True Then : SQL_判斷是否已經通知()
124
+                If dr.Read Then : Else
125
+                    LIN訊息通知("CC217", "李協叡", 會議未簽, 公告未簽) : LIN訊息通知("CC217", "主管群", 會議未簽, 公告未簽) : SQL_到期LINE通知寫入()
126
+                End If
127
+            End If
128
+        End If
97 129
     End Sub
98 130
     Private Sub GRAMS_SYS_SIZE(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
99 131
         Me.BackgroundImage = My.Resources.LOGO0101 : Me.BackgroundImageLayout = 3

BIN
GRAMS-SYS/bin/Debug/HSKIN-MIS-SYS.exe View File


BIN
GRAMS-SYS/bin/Debug/HSKIN-MIS-SYS.pdb View File


+ 42
- 0
GRAMS-SYS/bin/Debug/IM02.pdf View File

@@ -0,0 +1,42 @@
1
+          由日報新增          新增 修改 儲存 刪除
2
+
3
+組別 : 奶油組                                    申請日期 : 2024/05/29       新增入庫明細
4
+                                            入庫單號 : WR00000001       備註 刪除
5
+
6
+日期        組別 狀態       產品名稱        規格    規格  數量   單位 過帳 有效日期
7
+                     愛餡瑪雅琳      249紙箱   內容
8
+                     振順瑪雅琳
9
+2024/05/29 一般油脂 待入庫                     16  101  只      2024/09/29
10
+
11
+2024/05/28 奶油組 待入庫              249/紙箱           只
12
+
13
+                                        16  245         2025/03/29
14
+
15
+                     經理     品研  廠務          課長      製表
16
+
17
+                                                    簽章         確認
18
+                                                               入庫
19
+單位 : 生產課 組別 : 精緻組             113 年度 生產排程表                   ISO 編碼2
20
+                                                             ISO 編碼1
21
+批次  日期                      2024/02/01      2024/02/02
22
+                               星期四
23
+                                               星期五
24
+
25
+    品名                RPO
26
+
27
+    色澤                1.0R
28
+
29
+               原料油槽
30
+1
31
+
32
+               成品油槽
33
+
34
+                  品名
35
+
36
+                  色澤
37
+
38
+               原料油槽
39
+2
40
+
41
+               成品油槽
42
+

BIN
GRAMS-SYS/obj/Debug/DesignTimeResolveAssemblyReferences.cache View File


BIN
GRAMS-SYS/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache View File


BIN
GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.exe View File


BIN
GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.pdb View File


BIN
GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.vbproj.GenerateResource.cache View File


BIN
GRAMS-SYS/obj/Debug/HSKIN_MIS_SYS.Resources.resources View File


BIN
GRAMS-SYS/obj/Debug/HSKIN_MIS_SYS.文件.resources View File


BIN
GRAMS-SYS/圖片/無檔案.png View File


Loading…
Cancel
Save