LEEHSIEHJUI 10 个月前
父节点
当前提交
48408ce17d

二进制
.vs/HSKIN-MIS-SYS/FileContentIndex/356ac129-6470-4253-9b4f-441a68aa785d.vsidx 查看文件


二进制
.vs/HSKIN-MIS-SYS/FileContentIndex/3d7d9309-13ac-455c-8b7b-ad4d2f68b463.vsidx 查看文件


二进制
.vs/HSKIN-MIS-SYS/v17/.suo 查看文件


+ 111
- 80
.vs/HSKIN-MIS-SYS/v17/DocumentLayout.json 查看文件

@@ -2,6 +2,46 @@
2 2
   "Version": 1,
3 3
   "WorkspaceRootPath": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\",
4 4
   "Documents": [
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\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.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\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.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\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.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\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.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\\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}"
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\\00\u3001module\\sql_\u7CFB\u7D71\u8A2D\u5B9A.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_\u7CFB\u7D71\u8A2D\u5B9A.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
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\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u8A2D\u5B9A.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\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u8A2D\u5B9A.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\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u8A2D\u5B9A.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\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u8A2D\u5B9A.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\\hskin-mis-sys.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\\hskin-mis-sys.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\\hskin-mis-sys.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\\hskin-mis-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
36
+    },
37
+    {
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\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
39
+      "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}"
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\\loginform1.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\\loginform1.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
44
+    },
5 45
     {
6 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}",
7 47
       "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\u57F7\u884C.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
@@ -11,7 +51,7 @@
11 51
       "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\u57F7\u884C.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
12 52
     },
13 53
     {
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\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
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\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
15 55
       "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
16 56
     },
17 57
     {
@@ -22,18 +62,10 @@
22 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\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6838\u51C6.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
23 63
       "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6838\u51C6.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
24 64
     },
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\\00\u3001module\\\u5168\u57DF\u8B8A\u6578.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\\00\u3001module\\\u5168\u57DF\u8B8A\u6578.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
28
-    },
29 65
     {
30 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\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6838\u51C6.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
31 67
       "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6838\u51C6.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
32 68
     },
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\\00\u3001module\\sql_\u7CFB\u7D71\u8A2D\u5B9A.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\\00\u3001module\\sql_\u7CFB\u7D71\u8A2D\u5B9A.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
36
-    },
37 69
     {
38 70
       "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_\u6392\u73ED\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
39 71
       "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\00\u3001module\\sql_\u6392\u73ED\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
@@ -46,14 +78,6 @@
46 78
       "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_module.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
47 79
       "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\00\u3001module\\sql_module.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
48 80
     },
49
-    {
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\\hskin-mis-sys.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\\hskin-mis-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
52
-    },
53
-    {
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\\hskin-mis-sys.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
55
-      "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"
56
-    },
57 81
     {
58 82
       "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\u4F7F\u7528\u8005\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
59 83
       "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\u4F7F\u7528\u8005\u7BA1\u7406.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
@@ -66,10 +90,6 @@
66 90
       "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\\05\u3001\u696D\u52D9\u7BA1\u7406\\\u696D\u52D9\u92B7\u552E\u63A7\u5236\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
67 91
       "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\05\u3001\u696D\u52D9\u7BA1\u7406\\\u696D\u52D9\u92B7\u552E\u63A7\u5236\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
68 92
     },
69
-    {
70
-      "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}",
71
-      "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}"
72
-    },
73 93
     {
74 94
       "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_line.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
75 95
       "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\00\u3001module\\sql_line.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
@@ -86,10 +106,6 @@
86 106
       "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",
87 107
       "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"
88 108
     },
89
-    {
90
-      "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}",
91
-      "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}"
92
-    },
93 109
     {
94 110
       "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\\01\u3001\u6392\u73ED\u7BA1\u7406\\\u500B\u4EBA\u73ED\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
95 111
       "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\01\u3001\u6392\u73ED\u7BA1\u7406\\\u500B\u4EBA\u73ED\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
@@ -102,10 +118,6 @@
102 118
       "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\\05\u3001\u696D\u52D9\u7BA1\u7406\\\u696D\u52D9\u92B7\u552E\u63A7\u5236\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
103 119
       "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\05\u3001\u696D\u52D9\u7BA1\u7406\\\u696D\u52D9\u92B7\u552E\u63A7\u5236\u8868.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
104 120
     },
105
-    {
106
-      "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",
107
-      "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"
108
-    },
109 121
     {
110 122
       "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_\u696D\u52D9\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
111 123
       "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\00\u3001module\\sql_\u696D\u52D9\u7CFB\u7D71.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
@@ -125,10 +137,6 @@
125 137
     {
126 138
       "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\\05\u3001\u696D\u52D9\u7BA1\u7406\\\u91AB\u5E2B.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
127 139
       "RelativeMoniker": "D:0:0:{F92A9C18-49EF-4972-978C-2BB60F1EA759}|GRAMS-SYS\\HSKIN-MIS-SYS.vbproj|solutionrelative:grams-sys\\05\u3001\u696D\u52D9\u7BA1\u7406\\\u91AB\u5E2B.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
128
-    },
129
-    {
130
-      "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",
131
-      "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"
132 140
     }
133 141
   ],
134 142
   "DocumentGroupContainers": [
@@ -138,7 +146,7 @@
138 146
       "DocumentGroups": [
139 147
         {
140 148
           "DockedWidth": 200,
141
-          "SelectedChildIndex": 15,
149
+          "SelectedChildIndex": 19,
142 150
           "Children": [
143 151
             {
144 152
               "$type": "Bookmark",
@@ -146,7 +154,30 @@
146 154
             },
147 155
             {
148 156
               "$type": "Document",
149
-              "DocumentIndex": 8,
157
+              "DocumentIndex": 4,
158
+              "Title": "\u7CFB\u7D71\u8A2D\u5B9A.vb",
159
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u8A2D\u5B9A.vb",
160
+              "RelativeDocumentMoniker": "GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u8A2D\u5B9A.vb",
161
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u8A2D\u5B9A.vb",
162
+              "RelativeToolTip": "GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u8A2D\u5B9A.vb",
163
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAALMAAAALAAAA",
164
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
165
+              "WhenOpened": "2024-06-13T14:05:18.026Z"
166
+            },
167
+            {
168
+              "$type": "Document",
169
+              "DocumentIndex": 5,
170
+              "Title": "\u7CFB\u7D71\u8A2D\u5B9A.vb [\u8A2D\u8A08]",
171
+              "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u8A2D\u5B9A.vb",
172
+              "RelativeDocumentMoniker": "GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u8A2D\u5B9A.vb",
173
+              "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u8A2D\u5B9A.vb [\u8A2D\u8A08]",
174
+              "RelativeToolTip": "GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u8A2D\u5B9A.vb [\u8A2D\u8A08]",
175
+              "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
176
+              "WhenOpened": "2024-06-13T14:03:43.645Z"
177
+            },
178
+            {
179
+              "$type": "Document",
180
+              "DocumentIndex": 16,
150 181
               "Title": "SQL_\u6392\u73ED\u7CFB\u7D71.vb",
151 182
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\SQL_\u6392\u73ED\u7CFB\u7D71.vb",
152 183
               "RelativeDocumentMoniker": "GRAMS-SYS\\00\u3001Module\\SQL_\u6392\u73ED\u7CFB\u7D71.vb",
@@ -158,7 +189,7 @@
158 189
             },
159 190
             {
160 191
               "$type": "Document",
161
-              "DocumentIndex": 9,
192
+              "DocumentIndex": 17,
162 193
               "Title": "SQL_\u4F11\u5047\u8207\u52A0\u73ED.vb",
163 194
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\SQL_\u4F11\u5047\u8207\u52A0\u73ED.vb",
164 195
               "RelativeDocumentMoniker": "GRAMS-SYS\\00\u3001Module\\SQL_\u4F11\u5047\u8207\u52A0\u73ED.vb",
@@ -170,7 +201,7 @@
170 201
             },
171 202
             {
172 203
               "$type": "Document",
173
-              "DocumentIndex": 2,
204
+              "DocumentIndex": 12,
174 205
               "Title": "\u4F11\u5047\u7533\u8ACB.vb",
175 206
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb",
176 207
               "RelativeDocumentMoniker": "GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb",
@@ -178,12 +209,11 @@
178 209
               "RelativeToolTip": "GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb",
179 210
               "ViewState": "AQIAAC4AAAAAAAAAAAAUwDoAAAB0AAAA",
180 211
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
181
-              "WhenOpened": "2024-05-27T07:30:56.906Z",
182
-              "EditorCaption": ""
212
+              "WhenOpened": "2024-05-27T07:30:56.906Z"
183 213
             },
184 214
             {
185 215
               "$type": "Document",
186
-              "DocumentIndex": 3,
216
+              "DocumentIndex": 13,
187 217
               "Title": "\u4F11\u5047\u7533\u8ACB.vb [\u8A2D\u8A08]",
188 218
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb",
189 219
               "RelativeDocumentMoniker": "GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u7533\u8ACB.vb",
@@ -194,7 +224,7 @@
194 224
             },
195 225
             {
196 226
               "$type": "Document",
197
-              "DocumentIndex": 6,
227
+              "DocumentIndex": 15,
198 228
               "Title": "\u4F11\u5047\u6838\u51C6.vb",
199 229
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6838\u51C6.vb",
200 230
               "RelativeDocumentMoniker": "GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6838\u51C6.vb",
@@ -206,7 +236,7 @@
206 236
             },
207 237
             {
208 238
               "$type": "Document",
209
-              "DocumentIndex": 4,
239
+              "DocumentIndex": 14,
210 240
               "Title": "\u4F11\u5047\u6838\u51C6.vb [\u8A2D\u8A08]",
211 241
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6838\u51C6.vb",
212 242
               "RelativeDocumentMoniker": "GRAMS-SYS\\02\u3001\u4F11\u5047\u7BA1\u7406\\\u4F11\u5047\u6838\u51C6.vb",
@@ -217,7 +247,7 @@
217 247
             },
218 248
             {
219 249
               "$type": "Document",
220
-              "DocumentIndex": 10,
250
+              "DocumentIndex": 18,
221 251
               "Title": "SQL_Module.vb",
222 252
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\SQL_Module.vb",
223 253
               "RelativeDocumentMoniker": "GRAMS-SYS\\00\u3001Module\\SQL_Module.vb",
@@ -229,7 +259,7 @@
229 259
             },
230 260
             {
231 261
               "$type": "Document",
232
-              "DocumentIndex": 13,
262
+              "DocumentIndex": 19,
233 263
               "Title": "\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb",
234 264
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb",
235 265
               "RelativeDocumentMoniker": "GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb",
@@ -241,7 +271,7 @@
241 271
             },
242 272
             {
243 273
               "$type": "Document",
244
-              "DocumentIndex": 14,
274
+              "DocumentIndex": 20,
245 275
               "Title": "\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb [\u8A2D\u8A08]",
246 276
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb",
247 277
               "RelativeDocumentMoniker": "GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u4F7F\u7528\u8005\u7BA1\u7406.vb",
@@ -252,7 +282,7 @@
252 282
             },
253 283
             {
254 284
               "$type": "Document",
255
-              "DocumentIndex": 18,
285
+              "DocumentIndex": 23,
256 286
               "Title": "LINE_\u4F7F\u7528\u8005\u7BA1\u7406\u8868.vb [\u8A2D\u8A08]",
257 287
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\LINE_\u4F7F\u7528\u8005\u7BA1\u7406\u8868.vb",
258 288
               "RelativeDocumentMoniker": "GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\LINE_\u4F7F\u7528\u8005\u7BA1\u7406\u8868.vb",
@@ -263,7 +293,7 @@
263 293
             },
264 294
             {
265 295
               "$type": "Document",
266
-              "DocumentIndex": 19,
296
+              "DocumentIndex": 24,
267 297
               "Title": "\u7CFB\u7D71\u7D81\u5B9A\u96FB\u8166\u8CC7\u8A0A.vb",
268 298
               "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",
269 299
               "RelativeDocumentMoniker": "GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7D81\u5B9A\u96FB\u8166\u8CC7\u8A0A.vb",
@@ -275,7 +305,7 @@
275 305
             },
276 306
             {
277 307
               "$type": "Document",
278
-              "DocumentIndex": 20,
308
+              "DocumentIndex": 25,
279 309
               "Title": "\u7CFB\u7D71\u7D81\u5B9A\u96FB\u8166\u8CC7\u8A0A.vb [\u8A2D\u8A08]",
280 310
               "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",
281 311
               "RelativeDocumentMoniker": "GRAMS-SYS\\10\u3001\u7CFB\u7D71\u7BA1\u7406\\\u7CFB\u7D71\u7D81\u5B9A\u96FB\u8166\u8CC7\u8A0A.vb",
@@ -286,7 +316,7 @@
286 316
             },
287 317
             {
288 318
               "$type": "Document",
289
-              "DocumentIndex": 22,
319
+              "DocumentIndex": 26,
290 320
               "Title": "\u500B\u4EBA\u73ED\u8868.vb",
291 321
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\01\u3001\u6392\u73ED\u7BA1\u7406\\\u500B\u4EBA\u73ED\u8868.vb",
292 322
               "RelativeDocumentMoniker": "GRAMS-SYS\\01\u3001\u6392\u73ED\u7BA1\u7406\\\u500B\u4EBA\u73ED\u8868.vb",
@@ -298,7 +328,7 @@
298 328
             },
299 329
             {
300 330
               "$type": "Document",
301
-              "DocumentIndex": 23,
331
+              "DocumentIndex": 27,
302 332
               "Title": "\u500B\u4EBA\u73ED\u8868.vb [\u8A2D\u8A08]",
303 333
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\01\u3001\u6392\u73ED\u7BA1\u7406\\\u500B\u4EBA\u73ED\u8868.vb",
304 334
               "RelativeDocumentMoniker": "GRAMS-SYS\\01\u3001\u6392\u73ED\u7BA1\u7406\\\u500B\u4EBA\u73ED\u8868.vb",
@@ -309,55 +339,55 @@
309 339
             },
310 340
             {
311 341
               "$type": "Document",
312
-              "DocumentIndex": 0,
342
+              "DocumentIndex": 10,
313 343
               "Title": "\u5C08\u6848\u53CA\u6703\u8B70\u57F7\u884C.vb",
314 344
               "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",
315 345
               "RelativeDocumentMoniker": "GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u57F7\u884C.vb",
316 346
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u57F7\u884C.vb",
317 347
               "RelativeToolTip": "GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u57F7\u884C.vb",
318
-              "ViewState": "AQIAAGkAAAAAAAAAAAA5wIIAAABHAAAA",
348
+              "ViewState": "AQIAAGoAAAAAAAAAAAAgwIIAAABHAAAA",
319 349
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
320
-              "WhenOpened": "2024-05-01T09:51:09.958Z",
321
-              "EditorCaption": ""
350
+              "WhenOpened": "2024-05-01T09:51:09.958Z"
322 351
             },
323 352
             {
324 353
               "$type": "Document",
325
-              "DocumentIndex": 1,
354
+              "DocumentIndex": 11,
326 355
               "Title": "\u5C08\u6848\u53CA\u6703\u8B70\u57F7\u884C.vb [\u8A2D\u8A08]",
327 356
               "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",
328 357
               "RelativeDocumentMoniker": "GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u57F7\u884C.vb",
329 358
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u57F7\u884C.vb [\u8A2D\u8A08]",
330 359
               "RelativeToolTip": "GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u57F7\u884C.vb [\u8A2D\u8A08]",
331 360
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
332
-              "WhenOpened": "2024-05-01T09:51:07.493Z",
333
-              "EditorCaption": " [\u8A2D\u8A08]"
361
+              "WhenOpened": "2024-05-01T09:51:07.493Z"
334 362
             },
335 363
             {
336 364
               "$type": "Document",
337
-              "DocumentIndex": 16,
365
+              "DocumentIndex": 0,
338 366
               "Title": "\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb",
339 367
               "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",
340 368
               "RelativeDocumentMoniker": "GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb",
341 369
               "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",
342 370
               "RelativeToolTip": "GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb",
343
-              "ViewState": "AQIAAJQAAAAAAAAAAAAUwMwAAABqAAAA",
371
+              "ViewState": "AQIAAA0BAAAAAAAAAAAiwDwBAAAAAAAA",
344 372
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
345
-              "WhenOpened": "2024-05-01T09:48:04.424Z"
373
+              "WhenOpened": "2024-05-01T09:48:04.424Z",
374
+              "EditorCaption": ""
346 375
             },
347 376
             {
348 377
               "$type": "Document",
349
-              "DocumentIndex": 25,
378
+              "DocumentIndex": 1,
350 379
               "Title": "\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb [\u8A2D\u8A08]",
351 380
               "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",
352 381
               "RelativeDocumentMoniker": "GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb",
353 382
               "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]",
354 383
               "RelativeToolTip": "GRAMS-SYS\\06\u3001\u7E3D\u52D9\u7BA1\u7406\\\u5C08\u6848\u53CA\u6703\u8B70\u63D0\u6848.vb [\u8A2D\u8A08]",
355 384
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
356
-              "WhenOpened": "2024-05-01T09:48:01.009Z"
385
+              "WhenOpened": "2024-05-01T09:48:01.009Z",
386
+              "EditorCaption": " [\u8A2D\u8A08]"
357 387
             },
358 388
             {
359 389
               "$type": "Document",
360
-              "DocumentIndex": 24,
390
+              "DocumentIndex": 28,
361 391
               "Title": "\u696D\u52D9\u92B7\u552E\u63A7\u5236\u8868.vb",
362 392
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\05\u3001\u696D\u52D9\u7BA1\u7406\\\u696D\u52D9\u92B7\u552E\u63A7\u5236\u8868.vb",
363 393
               "RelativeDocumentMoniker": "GRAMS-SYS\\05\u3001\u696D\u52D9\u7BA1\u7406\\\u696D\u52D9\u92B7\u552E\u63A7\u5236\u8868.vb",
@@ -369,7 +399,7 @@
369 399
             },
370 400
             {
371 401
               "$type": "Document",
372
-              "DocumentIndex": 15,
402
+              "DocumentIndex": 21,
373 403
               "Title": "\u696D\u52D9\u92B7\u552E\u63A7\u5236\u8868.vb [\u8A2D\u8A08]",
374 404
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\05\u3001\u696D\u52D9\u7BA1\u7406\\\u696D\u52D9\u92B7\u552E\u63A7\u5236\u8868.vb",
375 405
               "RelativeDocumentMoniker": "GRAMS-SYS\\05\u3001\u696D\u52D9\u7BA1\u7406\\\u696D\u52D9\u92B7\u552E\u63A7\u5236\u8868.vb",
@@ -380,7 +410,7 @@
380 410
             },
381 411
             {
382 412
               "$type": "Document",
383
-              "DocumentIndex": 26,
413
+              "DocumentIndex": 29,
384 414
               "Title": "SQL_\u696D\u52D9\u7CFB\u7D71.vb",
385 415
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\SQL_\u696D\u52D9\u7CFB\u7D71.vb",
386 416
               "RelativeDocumentMoniker": "GRAMS-SYS\\00\u3001Module\\SQL_\u696D\u52D9\u7CFB\u7D71.vb",
@@ -392,31 +422,31 @@
392 422
             },
393 423
             {
394 424
               "$type": "Document",
395
-              "DocumentIndex": 7,
425
+              "DocumentIndex": 3,
396 426
               "Title": "SQL_\u7CFB\u7D71\u8A2D\u5B9A.vb",
397 427
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\SQL_\u7CFB\u7D71\u8A2D\u5B9A.vb",
398 428
               "RelativeDocumentMoniker": "GRAMS-SYS\\00\u3001Module\\SQL_\u7CFB\u7D71\u8A2D\u5B9A.vb",
399 429
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\SQL_\u7CFB\u7D71\u8A2D\u5B9A.vb",
400 430
               "RelativeToolTip": "GRAMS-SYS\\00\u3001Module\\SQL_\u7CFB\u7D71\u8A2D\u5B9A.vb",
401
-              "ViewState": "AQIAACYAAAAAAAAAAAAhwDUAAAAeAAAA",
431
+              "ViewState": "AQIAAGcBAAAAAAAAAAArwBMBAAAAAAAA",
402 432
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
403 433
               "WhenOpened": "2024-05-01T07:48:42.618Z"
404 434
             },
405 435
             {
406 436
               "$type": "Document",
407
-              "DocumentIndex": 21,
437
+              "DocumentIndex": 8,
408 438
               "Title": "LoginForm1.vb",
409 439
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\LoginForm1.vb",
410 440
               "RelativeDocumentMoniker": "GRAMS-SYS\\LoginForm1.vb",
411 441
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\LoginForm1.vb",
412 442
               "RelativeToolTip": "GRAMS-SYS\\LoginForm1.vb",
413
-              "ViewState": "AQIAAD8AAAAAAAAAAAAAwFEAAAASAAAA",
443
+              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAMAAAAAAAAA",
414 444
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
415 445
               "WhenOpened": "2024-05-01T07:17:04.146Z"
416 446
             },
417 447
             {
418 448
               "$type": "Document",
419
-              "DocumentIndex": 31,
449
+              "DocumentIndex": 9,
420 450
               "Title": "LoginForm1.vb [\u8A2D\u8A08]",
421 451
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\LoginForm1.vb",
422 452
               "RelativeDocumentMoniker": "GRAMS-SYS\\LoginForm1.vb",
@@ -427,7 +457,7 @@
427 457
             },
428 458
             {
429 459
               "$type": "Document",
430
-              "DocumentIndex": 5,
460
+              "DocumentIndex": 2,
431 461
               "Title": "\u5168\u57DF\u8B8A\u6578.vb",
432 462
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\\u5168\u57DF\u8B8A\u6578.vb",
433 463
               "RelativeDocumentMoniker": "GRAMS-SYS\\00\u3001Module\\\u5168\u57DF\u8B8A\u6578.vb",
@@ -435,11 +465,12 @@
435 465
               "RelativeToolTip": "GRAMS-SYS\\00\u3001Module\\\u5168\u57DF\u8B8A\u6578.vb",
436 466
               "ViewState": "AQIAAAAAAAAAAAAAAAAAAAkAAAAlAAAA",
437 467
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
438
-              "WhenOpened": "2024-05-01T07:16:23.262Z"
468
+              "WhenOpened": "2024-05-01T07:16:23.262Z",
469
+              "EditorCaption": ""
439 470
             },
440 471
             {
441 472
               "$type": "Document",
442
-              "DocumentIndex": 29,
473
+              "DocumentIndex": 32,
443 474
               "Title": "\u91AB\u5E2B.vb",
444 475
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\05\u3001\u696D\u52D9\u7BA1\u7406\\\u91AB\u5E2B.vb",
445 476
               "RelativeDocumentMoniker": "GRAMS-SYS\\05\u3001\u696D\u52D9\u7BA1\u7406\\\u91AB\u5E2B.vb",
@@ -451,7 +482,7 @@
451 482
             },
452 483
             {
453 484
               "$type": "Document",
454
-              "DocumentIndex": 30,
485
+              "DocumentIndex": 33,
455 486
               "Title": "\u91AB\u5E2B.vb [\u8A2D\u8A08]",
456 487
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\05\u3001\u696D\u52D9\u7BA1\u7406\\\u91AB\u5E2B.vb",
457 488
               "RelativeDocumentMoniker": "GRAMS-SYS\\05\u3001\u696D\u52D9\u7BA1\u7406\\\u91AB\u5E2B.vb",
@@ -462,7 +493,7 @@
462 493
             },
463 494
             {
464 495
               "$type": "Document",
465
-              "DocumentIndex": 28,
496
+              "DocumentIndex": 31,
466 497
               "Title": "\u9069\u61C9\u75C7\u9078\u64C7.vb",
467 498
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\05\u3001\u696D\u52D9\u7BA1\u7406\\\u9069\u61C9\u75C7\u9078\u64C7.vb",
468 499
               "RelativeDocumentMoniker": "GRAMS-SYS\\05\u3001\u696D\u52D9\u7BA1\u7406\\\u9069\u61C9\u75C7\u9078\u64C7.vb",
@@ -474,7 +505,7 @@
474 505
             },
475 506
             {
476 507
               "$type": "Document",
477
-              "DocumentIndex": 27,
508
+              "DocumentIndex": 30,
478 509
               "Title": "\u9069\u61C9\u75C7\u9078\u64C7.vb [\u8A2D\u8A08]",
479 510
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\05\u3001\u696D\u52D9\u7BA1\u7406\\\u9069\u61C9\u75C7\u9078\u64C7.vb",
480 511
               "RelativeDocumentMoniker": "GRAMS-SYS\\05\u3001\u696D\u52D9\u7BA1\u7406\\\u9069\u61C9\u75C7\u9078\u64C7.vb",
@@ -485,7 +516,7 @@
485 516
             },
486 517
             {
487 518
               "$type": "Document",
488
-              "DocumentIndex": 17,
519
+              "DocumentIndex": 22,
489 520
               "Title": "SQL_LINE.vb",
490 521
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\00\u3001Module\\SQL_LINE.vb",
491 522
               "RelativeDocumentMoniker": "GRAMS-SYS\\00\u3001Module\\SQL_LINE.vb",
@@ -497,7 +528,7 @@
497 528
             },
498 529
             {
499 530
               "$type": "Document",
500
-              "DocumentIndex": 12,
531
+              "DocumentIndex": 7,
501 532
               "Title": "HSKIN-MIS-SYS.vb [\u8A2D\u8A08]",
502 533
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\HSKIN-MIS-SYS.vb",
503 534
               "RelativeDocumentMoniker": "GRAMS-SYS\\HSKIN-MIS-SYS.vb",
@@ -508,13 +539,13 @@
508 539
             },
509 540
             {
510 541
               "$type": "Document",
511
-              "DocumentIndex": 11,
542
+              "DocumentIndex": 6,
512 543
               "Title": "HSKIN-MIS-SYS.vb",
513 544
               "DocumentMoniker": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\HSKIN-MIS-SYS.vb",
514 545
               "RelativeDocumentMoniker": "GRAMS-SYS\\HSKIN-MIS-SYS.vb",
515 546
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\HSKIN\\HSKIN-MIS-SYS\\GRAMS-SYS\\HSKIN-MIS-SYS.vb",
516 547
               "RelativeToolTip": "GRAMS-SYS\\HSKIN-MIS-SYS.vb",
517
-              "ViewState": "AQIAADwAAAAAAAAAAAD4v1QAAAAhAAAA",
548
+              "ViewState": "AQIAAFMAAAAAAAAAAAAowGcAAAAIAAAA",
518 549
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
519 550
               "WhenOpened": "2024-03-07T14:40:27.952Z"
520 551
             }

+ 0
- 43
GRAMS-SYS/00、Module/SQL_系統設定.vb 查看文件

@@ -169,12 +169,6 @@
169 169
     Friend Sub SQL_保養品主清單2()
170 170
         ConnOpen_ERP() : SQL1 = "SELECT  產品  FROM  適應產品  WHERE 品牌 LIKE N'" & 適應症選擇.品牌_cb.Text & "'  ORDER BY   產品" : CmdSet_For_dr()
171 171
     End Sub
172
-    Friend Sub SQL_適應症刪除()
173
-        ConnOpen_ERP() : SQL1 = "DELETE FROM  業務對應適應症  WHERE 編號 LIKE N'" & 系統設定.適應症_編號_tb.Text & "'" : CmdSet_For_dr()
174
-    End Sub
175
-    Friend Sub SQL_適應症修改()
176
-        ConnOpen_ERP() : SQL1 = "UPDATE  業務對應適應症   SET   適應症 = N'" & PA1 & "' WHERE 編號 LIKE N'" & 系統設定.適應症_編號_tb.Text & "'" : CmdSet_For_dr()
177
-    End Sub
178 172
     Friend Sub SQL_查詢最後一筆適應症()
179 173
         ConnOpen_ERP() : SQL1 = "SELECT TOP(1) 編號 FROM 業務對應適應症 ORDER BY 編號 DESC" : CmdSet_For_dr()
180 174
     End Sub
@@ -206,9 +200,6 @@
206 200
         SQL1 = "INSERT INTO  適應產品 (流水號, 品牌, 產品)  VALUES (N'" & PA & "', N'" & 適應症選擇.品牌_cb.Text & "',N'" & 適應症選擇.保養品_cb.Text & "')"
207 201
         CmdSet_For_dr()
208 202
     End Sub
209
-    Friend Sub SQL_適應症新增()
210
-        ConnOpen_ERP() : SQL1 = "INSERT INTO  業務對應適應症 (編號, 適應症)  VALUES (N'" & 系統設定.適應症_編號_tb.Text & "',N'" & 系統設定.適應症_tb.Text & "')" : CmdSet_For_dr()
211
-    End Sub
212 203
     Friend Sub SQL_時段新增()
213 204
         ConnOpen() : SQL1 = "INSERT INTO  時段設定 (ID, 時段, 時段1, 時段2, 時段3, 時段4, 時段5, 時段6, 時段7, 時段8,
214 205
                                                      上午上班, 下午上班, 加班上班, 一段休息,  二段休息)
@@ -230,24 +221,6 @@
230 221
     Friend Sub SQL_時段刪除()
231 222
         ConnOpen() : SQL1 = "DELETE FROM  時段設定  WHERE 時段 LIKE N'" & 系統設定.時段_tb.Text & "'" : CmdSet_For_dr()
232 223
     End Sub
233
-    Friend Sub SQL_FTP資料庫管理()
234
-        ConnOpen() : SQL1 = "SELECT  FTP地址, FTP帳號, FTP密碼, 地區, FTP物理位置  FROM  FTP資料庫管理 " : CmdSet_For_DGV()
235
-    End Sub
236
-    Friend Sub SQL_資料庫新增()
237
-        ConnOpen() : SQL1 = "INSERT INTO  FTP資料庫管理 (FTP地址, FTP帳號, FTP密碼, 地區, FTP物理位置) 
238
-                                         VALUES (N'" & 系統設定.地址_tb.Text & "',N'" & 系統設定.帳號_tb.Text & "',N'" & 系統設定.密碼_tb.Text & "'
239
-                                              ,N'" & 系統設定.地區_tb.Text & "',N'" & 系統設定.位置_tb.Text & "')"
240
-        CmdSet_For_dr()
241
-    End Sub
242
-    Friend Sub SQL_資料庫修改()
243
-        ConnOpen()
244
-        SQL1 = "UPDATE FTP資料庫管理  SET FTP地址= N'" & PA & "', FTP帳號= N'" & PA3 & "', FTP密碼=N'" & PA4 & "', FTP物理位置=N'" & PA2 & "'
245
-                                      WHERE 地區 LIKE N'" & 系統設定.地區_tb.Text & "'"
246
-        CmdSet_For_dr()
247
-    End Sub
248
-    Friend Sub SQL_資料庫刪除()
249
-        ConnOpen() : SQL1 = "DELETE FROM  FTP資料庫管理  WHERE 地區 LIKE N'" & 系統設定.地區_tb.Text & "'" : CmdSet_For_dr()
250
-    End Sub
251 224
     Friend Sub SQL_工作職務()
252 225
         ConnOpen() : SQL1 = "SELECT  職務 FROM  工作職務 ORDER BY 職務" : CmdSet_For_DGV()
253 226
     End Sub
@@ -300,22 +273,6 @@
300 273
         SQL1 = "UPDATE 門診資料 SET 星期 = N'" & PA3 & "', 早 = N'" & PA & "', 中 = N'" & PA1 & "', 晚 = N'" & PA2 & "' WHERE 日期 LIKE N'" & PA5 & "' AND 診別 LIKE N'" & PA4 & "'"
301 274
         CmdSet_For_dr()
302 275
     End Sub
303
-    '---------------------FTP資料夾管理-----------------------------------------------------------------------------------------------------------------
304
-    Friend Sub SQL_FTP資料夾管理新增()
305
-        ConnOpen()
306
-        SQL1 = "INSERT INTO FTP資料夾管理 (資料夾名稱, 指定頁面, 備註, 指定) 
307
-                VALUES (N'" & 系統設定.資料夾名稱_tb.Text & "',N'" & 系統設定.指定頁面_tb.Text & "',N'" & 系統設定.備註_tb.Text & "',N'" & 系統設定.指定_tb.Text & "')"
308
-        CmdSet_For_dr()
309
-    End Sub
310
-    Friend Sub SQL_FTP資料夾管理修改()
311
-        ConnOpen()
312
-        SQL1 = "UPDATE FTP資料夾管理 SET 指定頁面 = N'" & 系統設定.指定頁面_tb.Text & "', 備註 = N'" & 系統設定.備註_tb.Text & "', 指定 = N'" & 系統設定.指定_tb.Text & "' 
313
-                WHERE (資料夾名稱 = N'" & 系統設定.資料夾名稱_tb.Text & "')"
314
-        CmdSet_For_dr()
315
-    End Sub
316
-    Friend Sub SQL_FTP資料夾管理刪除()
317
-        ConnOpen() : SQL1 = "DELETE FROM FTP資料夾管理 WHERE (資料夾名稱 = N'" & 系統設定.資料夾名稱_tb.Text & "')" : CmdSet_For_dr()
318
-    End Sub
319 276
     '---------------------系統執行檔版本管理-----------------------------------------------------------------------------------------------------------------
320 277
     Friend Sub SQL_版本號管理修改()
321 278
         ConnOpen()

+ 1
- 1
GRAMS-SYS/00、Module/全域變數.vb 查看文件

@@ -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 = "2024052701"
10
+    Public 版本 As String = "2024052702"
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 As String

+ 14
- 483
GRAMS-SYS/10、系統管理/系統設定.Designer.vb 查看文件

@@ -22,12 +22,9 @@ Partial Class 系統設定
22 22
     '請勿使用程式碼編輯器進行修改。
23 23
     <System.Diagnostics.DebuggerStepThrough()>
24 24
     Private Sub InitializeComponent()
25
-        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
26
-        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27
-        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
28
-        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
29
-        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
30
-        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
25
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
26
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
31 28
         Me.GroupBox4 = New System.Windows.Forms.GroupBox()
32 29
         Me.年份_新增_bt = New System.Windows.Forms.Button()
33 30
         Me.年份_dgv = New System.Windows.Forms.DataGridView()
@@ -35,40 +32,11 @@ Partial Class 系統設定
35 32
         Me.年份_刪除_bt = New System.Windows.Forms.Button()
36 33
         Me.年份_tb = New System.Windows.Forms.TextBox()
37 34
         Me.資料庫版本號_lb = New System.Windows.Forms.Label()
38
-        Me.Label12 = New System.Windows.Forms.Label()
39
-        Me.Label13 = New System.Windows.Forms.Label()
40
-        Me.讀取資料夾路徑_bt = New System.Windows.Forms.Button()
41
-        Me.本機資料夾_wb = New System.Windows.Forms.WebBrowser()
42
-        Me.FTP執行檔_wb = New System.Windows.Forms.WebBrowser()
43 35
         Me.修改1_bt = New System.Windows.Forms.Button()
44 36
         Me.Label2 = New System.Windows.Forms.Label()
45 37
         Me.版本號_tb = New System.Windows.Forms.TextBox()
46 38
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
47
-        Me.Panel1 = New System.Windows.Forms.Panel()
48
-        Me.Panel2 = New System.Windows.Forms.Panel()
49 39
         Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
50
-        Me.指定_tb = New System.Windows.Forms.TextBox()
51
-        Me.刪除_bt = New System.Windows.Forms.Button()
52
-        Me.修改_bt = New System.Windows.Forms.Button()
53
-        Me.新增_bt = New System.Windows.Forms.Button()
54
-        Me.備註_tb = New System.Windows.Forms.TextBox()
55
-        Me.指定頁面_tb = New System.Windows.Forms.TextBox()
56
-        Me.資料夾名稱_tb = New System.Windows.Forms.TextBox()
57
-        Me.資料夾清單_dgv = New System.Windows.Forms.DataGridView()
58
-        Me.Label4 = New System.Windows.Forms.Label()
59
-        Me.FTP資料夾_wb = New System.Windows.Forms.WebBrowser()
60
-        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
61
-        Me.Panel3 = New System.Windows.Forms.Panel()
62
-        Me.FTP_dgv = New System.Windows.Forms.DataGridView()
63
-        Me.GroupBox6 = New System.Windows.Forms.GroupBox()
64
-        Me.位置_tb = New System.Windows.Forms.TextBox()
65
-        Me.資料庫刪除_tb = New System.Windows.Forms.Button()
66
-        Me.地區_tb = New System.Windows.Forms.TextBox()
67
-        Me.密碼_tb = New System.Windows.Forms.TextBox()
68
-        Me.資料庫修改_tb = New System.Windows.Forms.Button()
69
-        Me.帳號_tb = New System.Windows.Forms.TextBox()
70
-        Me.地址_tb = New System.Windows.Forms.TextBox()
71
-        Me.資料庫新增_tb = New System.Windows.Forms.Button()
72 40
         Me.ID_tb = New System.Windows.Forms.TextBox()
73 41
         Me.時段_tb = New System.Windows.Forms.TextBox()
74 42
         Me.時段1_tb = New System.Windows.Forms.TextBox()
@@ -95,13 +63,6 @@ Partial Class 系統設定
95 63
         Me.職務_dgv = New System.Windows.Forms.DataGridView()
96 64
         Me.職務_tb = New System.Windows.Forms.TextBox()
97 65
         Me.GroupBox5 = New System.Windows.Forms.GroupBox()
98
-        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
99
-        Me.適應症_編號_tb = New System.Windows.Forms.TextBox()
100
-        Me.適應症_tb = New System.Windows.Forms.TextBox()
101
-        Me.適應症_dgv = New System.Windows.Forms.DataGridView()
102
-        Me.適應症_刪除_bt = New System.Windows.Forms.Button()
103
-        Me.適應症_修改_bt = New System.Windows.Forms.Button()
104
-        Me.適應症_新增_bt = New System.Windows.Forms.Button()
105 66
         Me.GroupBox8 = New System.Windows.Forms.GroupBox()
106 67
         Me.醫生_新增_bt = New System.Windows.Forms.Button()
107 68
         Me.醫師_dgv = New System.Windows.Forms.DataGridView()
@@ -111,19 +72,10 @@ Partial Class 系統設定
111 72
         Me.GroupBox4.SuspendLayout()
112 73
         CType(Me.年份_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
113 74
         Me.GroupBox1.SuspendLayout()
114
-        Me.Panel1.SuspendLayout()
115
-        Me.Panel2.SuspendLayout()
116
-        CType(Me.資料夾清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
117
-        Me.GroupBox2.SuspendLayout()
118
-        Me.Panel3.SuspendLayout()
119
-        CType(Me.FTP_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
120
-        Me.GroupBox6.SuspendLayout()
121 75
         CType(Me.時段_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
122 76
         Me.GroupBox7.SuspendLayout()
123 77
         CType(Me.職務_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
124 78
         Me.GroupBox5.SuspendLayout()
125
-        Me.GroupBox3.SuspendLayout()
126
-        CType(Me.適應症_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
127 79
         Me.GroupBox8.SuspendLayout()
128 80
         CType(Me.醫師_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
129 81
         Me.SuspendLayout()
@@ -155,8 +107,8 @@ Partial Class 系統設定
155 107
         '
156 108
         '年份_dgv
157 109
         '
158
-        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
159
-        Me.年份_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
110
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
111
+        Me.年份_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
160 112
         Me.年份_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
161 113
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
162 114
         Me.年份_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -202,70 +154,19 @@ Partial Class 系統設定
202 154
         '
203 155
         Me.資料庫版本號_lb.AutoSize = True
204 156
         Me.資料庫版本號_lb.BackColor = System.Drawing.Color.White
205
-        Me.資料庫版本號_lb.Location = New System.Drawing.Point(171, 48)
157
+        Me.資料庫版本號_lb.Location = New System.Drawing.Point(7, 42)
206 158
         Me.資料庫版本號_lb.Name = "資料庫版本號_lb"
207 159
         Me.資料庫版本號_lb.Size = New System.Drawing.Size(158, 16)
208 160
         Me.資料庫版本號_lb.TabIndex = 694
209 161
         Me.資料庫版本號_lb.Text = "資料庫版本號 : 2018110801"
210 162
         '
211
-        'Label12
212
-        '
213
-        Me.Label12.AutoSize = True
214
-        Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
215
-        Me.Label12.Location = New System.Drawing.Point(9, 264)
216
-        Me.Label12.Name = "Label12"
217
-        Me.Label12.Size = New System.Drawing.Size(91, 16)
218
-        Me.Label12.TabIndex = 693
219
-        Me.Label12.Text = "執行檔案更新區"
220
-        '
221
-        'Label13
222
-        '
223
-        Me.Label13.AutoSize = True
224
-        Me.Label13.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
225
-        Me.Label13.Location = New System.Drawing.Point(6, 48)
226
-        Me.Label13.Name = "Label13"
227
-        Me.Label13.Size = New System.Drawing.Size(55, 16)
228
-        Me.Label13.TabIndex = 692
229
-        Me.Label13.Text = "我的電腦"
230
-        '
231
-        '讀取資料夾路徑_bt
232
-        '
233
-        Me.讀取資料夾路徑_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
234
-        Me.讀取資料夾路徑_bt.ForeColor = System.Drawing.Color.Blue
235
-        Me.讀取資料夾路徑_bt.Location = New System.Drawing.Point(68, 44)
236
-        Me.讀取資料夾路徑_bt.Name = "讀取資料夾路徑_bt"
237
-        Me.讀取資料夾路徑_bt.Size = New System.Drawing.Size(97, 24)
238
-        Me.讀取資料夾路徑_bt.TabIndex = 691
239
-        Me.讀取資料夾路徑_bt.Text = "讀取料夾路徑"
240
-        Me.讀取資料夾路徑_bt.UseVisualStyleBackColor = True
241
-        '
242
-        '本機資料夾_wb
243
-        '
244
-        Me.本機資料夾_wb.Dock = System.Windows.Forms.DockStyle.Fill
245
-        Me.本機資料夾_wb.Location = New System.Drawing.Point(0, 0)
246
-        Me.本機資料夾_wb.MinimumSize = New System.Drawing.Size(20, 20)
247
-        Me.本機資料夾_wb.Name = "本機資料夾_wb"
248
-        Me.本機資料夾_wb.Size = New System.Drawing.Size(323, 191)
249
-        Me.本機資料夾_wb.TabIndex = 690
250
-        Me.本機資料夾_wb.Url = New System.Uri("", System.UriKind.Relative)
251
-        '
252
-        'FTP執行檔_wb
253
-        '
254
-        Me.FTP執行檔_wb.Dock = System.Windows.Forms.DockStyle.Fill
255
-        Me.FTP執行檔_wb.Location = New System.Drawing.Point(0, 0)
256
-        Me.FTP執行檔_wb.MinimumSize = New System.Drawing.Size(20, 20)
257
-        Me.FTP執行檔_wb.Name = "FTP執行檔_wb"
258
-        Me.FTP執行檔_wb.Size = New System.Drawing.Size(323, 150)
259
-        Me.FTP執行檔_wb.TabIndex = 689
260
-        Me.FTP執行檔_wb.Url = New System.Uri("", System.UriKind.Relative)
261
-        '
262 163
         '修改1_bt
263 164
         '
264 165
         Me.修改1_bt.BackColor = System.Drawing.Color.White
265
-        Me.修改1_bt.Location = New System.Drawing.Point(161, 16)
166
+        Me.修改1_bt.Location = New System.Drawing.Point(169, 13)
266 167
         Me.修改1_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
267 168
         Me.修改1_bt.Name = "修改1_bt"
268
-        Me.修改1_bt.Size = New System.Drawing.Size(105, 24)
169
+        Me.修改1_bt.Size = New System.Drawing.Size(105, 45)
269 170
         Me.修改1_bt.TabIndex = 688
270 171
         Me.修改1_bt.Text = "修改"
271 172
         Me.修改1_bt.UseVisualStyleBackColor = False
@@ -286,262 +187,22 @@ Partial Class 系統設定
286 187
         Me.版本號_tb.Location = New System.Drawing.Point(52, 16)
287 188
         Me.版本號_tb.Margin = New System.Windows.Forms.Padding(5)
288 189
         Me.版本號_tb.Name = "版本號_tb"
289
-        Me.版本號_tb.Size = New System.Drawing.Size(101, 23)
190
+        Me.版本號_tb.Size = New System.Drawing.Size(113, 23)
290 191
         Me.版本號_tb.TabIndex = 686
291 192
         '
292 193
         'GroupBox1
293 194
         '
294
-        Me.GroupBox1.Controls.Add(Me.Panel1)
295 195
         Me.GroupBox1.Controls.Add(Me.Label2)
296 196
         Me.GroupBox1.Controls.Add(Me.資料庫版本號_lb)
297 197
         Me.GroupBox1.Controls.Add(Me.版本號_tb)
298 198
         Me.GroupBox1.Controls.Add(Me.修改1_bt)
299
-        Me.GroupBox1.Controls.Add(Me.Label13)
300
-        Me.GroupBox1.Controls.Add(Me.讀取資料夾路徑_bt)
301
-        Me.GroupBox1.Controls.Add(Me.Label12)
302
-        Me.GroupBox1.Controls.Add(Me.Panel2)
303 199
         Me.GroupBox1.Location = New System.Drawing.Point(552, 2)
304 200
         Me.GroupBox1.Name = "GroupBox1"
305
-        Me.GroupBox1.Size = New System.Drawing.Size(334, 442)
201
+        Me.GroupBox1.Size = New System.Drawing.Size(280, 66)
306 202
         Me.GroupBox1.TabIndex = 695
307 203
         Me.GroupBox1.TabStop = False
308 204
         Me.GroupBox1.Text = "系統執行檔版本管理"
309 205
         '
310
-        'Panel1
311
-        '
312
-        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
313
-        Me.Panel1.Controls.Add(Me.本機資料夾_wb)
314
-        Me.Panel1.Location = New System.Drawing.Point(5, 68)
315
-        Me.Panel1.Name = "Panel1"
316
-        Me.Panel1.Size = New System.Drawing.Size(325, 193)
317
-        Me.Panel1.TabIndex = 695
318
-        '
319
-        'Panel2
320
-        '
321
-        Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
322
-        Me.Panel2.Controls.Add(Me.FTP執行檔_wb)
323
-        Me.Panel2.Location = New System.Drawing.Point(5, 284)
324
-        Me.Panel2.Name = "Panel2"
325
-        Me.Panel2.Size = New System.Drawing.Size(325, 152)
326
-        Me.Panel2.TabIndex = 696
327
-        '
328
-        '指定_tb
329
-        '
330
-        Me.指定_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
331
-        Me.指定_tb.Location = New System.Drawing.Point(465, 17)
332
-        Me.指定_tb.Name = "指定_tb"
333
-        Me.指定_tb.Size = New System.Drawing.Size(70, 23)
334
-        Me.指定_tb.TabIndex = 705
335
-        '
336
-        '刪除_bt
337
-        '
338
-        Me.刪除_bt.Location = New System.Drawing.Point(171, 195)
339
-        Me.刪除_bt.Name = "刪除_bt"
340
-        Me.刪除_bt.Size = New System.Drawing.Size(75, 23)
341
-        Me.刪除_bt.TabIndex = 704
342
-        Me.刪除_bt.Text = "刪除"
343
-        Me.刪除_bt.UseVisualStyleBackColor = True
344
-        '
345
-        '修改_bt
346
-        '
347
-        Me.修改_bt.Location = New System.Drawing.Point(90, 195)
348
-        Me.修改_bt.Name = "修改_bt"
349
-        Me.修改_bt.Size = New System.Drawing.Size(75, 23)
350
-        Me.修改_bt.TabIndex = 703
351
-        Me.修改_bt.Text = "修改"
352
-        Me.修改_bt.UseVisualStyleBackColor = True
353
-        '
354
-        '新增_bt
355
-        '
356
-        Me.新增_bt.Location = New System.Drawing.Point(9, 195)
357
-        Me.新增_bt.Name = "新增_bt"
358
-        Me.新增_bt.Size = New System.Drawing.Size(75, 23)
359
-        Me.新增_bt.TabIndex = 702
360
-        Me.新增_bt.Text = "新增"
361
-        Me.新增_bt.UseVisualStyleBackColor = True
362
-        '
363
-        '備註_tb
364
-        '
365
-        Me.備註_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
366
-        Me.備註_tb.Location = New System.Drawing.Point(274, 17)
367
-        Me.備註_tb.Name = "備註_tb"
368
-        Me.備註_tb.Size = New System.Drawing.Size(192, 23)
369
-        Me.備註_tb.TabIndex = 701
370
-        '
371
-        '指定頁面_tb
372
-        '
373
-        Me.指定頁面_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
374
-        Me.指定頁面_tb.Location = New System.Drawing.Point(75, 17)
375
-        Me.指定頁面_tb.Name = "指定頁面_tb"
376
-        Me.指定頁面_tb.Size = New System.Drawing.Size(200, 23)
377
-        Me.指定頁面_tb.TabIndex = 700
378
-        '
379
-        '資料夾名稱_tb
380
-        '
381
-        Me.資料夾名稱_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
382
-        Me.資料夾名稱_tb.Location = New System.Drawing.Point(6, 17)
383
-        Me.資料夾名稱_tb.Name = "資料夾名稱_tb"
384
-        Me.資料夾名稱_tb.Size = New System.Drawing.Size(70, 23)
385
-        Me.資料夾名稱_tb.TabIndex = 699
386
-        '
387
-        '資料夾清單_dgv
388
-        '
389
-        DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
390
-        Me.資料夾清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
391
-        Me.資料夾清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
392
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
393
-        Me.資料夾清單_dgv.BackgroundColor = System.Drawing.Color.White
394
-        Me.資料夾清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
395
-        Me.資料夾清單_dgv.Location = New System.Drawing.Point(3, 41)
396
-        Me.資料夾清單_dgv.Name = "資料夾清單_dgv"
397
-        Me.資料夾清單_dgv.RowHeadersWidth = 5
398
-        Me.資料夾清單_dgv.RowTemplate.Height = 24
399
-        Me.資料夾清單_dgv.Size = New System.Drawing.Size(533, 153)
400
-        Me.資料夾清單_dgv.TabIndex = 698
401
-        '
402
-        'Label4
403
-        '
404
-        Me.Label4.AutoSize = True
405
-        Me.Label4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
406
-        Me.Label4.Location = New System.Drawing.Point(252, 202)
407
-        Me.Label4.Name = "Label4"
408
-        Me.Label4.Size = New System.Drawing.Size(99, 16)
409
-        Me.Label4.TabIndex = 697
410
-        Me.Label4.Text = "伺服器FTP文件夾"
411
-        '
412
-        'FTP資料夾_wb
413
-        '
414
-        Me.FTP資料夾_wb.Dock = System.Windows.Forms.DockStyle.Fill
415
-        Me.FTP資料夾_wb.Location = New System.Drawing.Point(0, 0)
416
-        Me.FTP資料夾_wb.MinimumSize = New System.Drawing.Size(20, 20)
417
-        Me.FTP資料夾_wb.Name = "FTP資料夾_wb"
418
-        Me.FTP資料夾_wb.Size = New System.Drawing.Size(531, 82)
419
-        Me.FTP資料夾_wb.TabIndex = 696
420
-        Me.FTP資料夾_wb.Url = New System.Uri("", System.UriKind.Relative)
421
-        '
422
-        'GroupBox2
423
-        '
424
-        Me.GroupBox2.Controls.Add(Me.資料夾名稱_tb)
425
-        Me.GroupBox2.Controls.Add(Me.指定_tb)
426
-        Me.GroupBox2.Controls.Add(Me.刪除_bt)
427
-        Me.GroupBox2.Controls.Add(Me.Label4)
428
-        Me.GroupBox2.Controls.Add(Me.修改_bt)
429
-        Me.GroupBox2.Controls.Add(Me.資料夾清單_dgv)
430
-        Me.GroupBox2.Controls.Add(Me.新增_bt)
431
-        Me.GroupBox2.Controls.Add(Me.指定頁面_tb)
432
-        Me.GroupBox2.Controls.Add(Me.備註_tb)
433
-        Me.GroupBox2.Controls.Add(Me.Panel3)
434
-        Me.GroupBox2.Location = New System.Drawing.Point(885, 135)
435
-        Me.GroupBox2.Name = "GroupBox2"
436
-        Me.GroupBox2.Size = New System.Drawing.Size(541, 309)
437
-        Me.GroupBox2.TabIndex = 706
438
-        Me.GroupBox2.TabStop = False
439
-        Me.GroupBox2.Text = "FTP資料夾管理"
440
-        '
441
-        'Panel3
442
-        '
443
-        Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
444
-        Me.Panel3.Controls.Add(Me.FTP資料夾_wb)
445
-        Me.Panel3.Location = New System.Drawing.Point(3, 219)
446
-        Me.Panel3.Name = "Panel3"
447
-        Me.Panel3.Size = New System.Drawing.Size(533, 84)
448
-        Me.Panel3.TabIndex = 706
449
-        '
450
-        'FTP_dgv
451
-        '
452
-        DataGridViewCellStyle15.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
453
-        Me.FTP_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle15
454
-        Me.FTP_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
455
-        Me.FTP_dgv.BackgroundColor = System.Drawing.Color.White
456
-        Me.FTP_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
457
-        Me.FTP_dgv.Location = New System.Drawing.Point(6, 69)
458
-        Me.FTP_dgv.Name = "FTP_dgv"
459
-        Me.FTP_dgv.RowHeadersWidth = 5
460
-        Me.FTP_dgv.RowTemplate.Height = 24
461
-        Me.FTP_dgv.Size = New System.Drawing.Size(529, 55)
462
-        Me.FTP_dgv.TabIndex = 709
463
-        '
464
-        'GroupBox6
465
-        '
466
-        Me.GroupBox6.Controls.Add(Me.位置_tb)
467
-        Me.GroupBox6.Controls.Add(Me.資料庫刪除_tb)
468
-        Me.GroupBox6.Controls.Add(Me.地區_tb)
469
-        Me.GroupBox6.Controls.Add(Me.密碼_tb)
470
-        Me.GroupBox6.Controls.Add(Me.資料庫修改_tb)
471
-        Me.GroupBox6.Controls.Add(Me.帳號_tb)
472
-        Me.GroupBox6.Controls.Add(Me.地址_tb)
473
-        Me.GroupBox6.Controls.Add(Me.資料庫新增_tb)
474
-        Me.GroupBox6.Controls.Add(Me.FTP_dgv)
475
-        Me.GroupBox6.Location = New System.Drawing.Point(885, 2)
476
-        Me.GroupBox6.Name = "GroupBox6"
477
-        Me.GroupBox6.Size = New System.Drawing.Size(541, 133)
478
-        Me.GroupBox6.TabIndex = 710
479
-        Me.GroupBox6.TabStop = False
480
-        Me.GroupBox6.Text = "FTP資料庫管理"
481
-        '
482
-        '位置_tb
483
-        '
484
-        Me.位置_tb.Location = New System.Drawing.Point(383, 17)
485
-        Me.位置_tb.Name = "位置_tb"
486
-        Me.位置_tb.Size = New System.Drawing.Size(142, 23)
487
-        Me.位置_tb.TabIndex = 715
488
-        '
489
-        '資料庫刪除_tb
490
-        '
491
-        Me.資料庫刪除_tb.Location = New System.Drawing.Point(166, 43)
492
-        Me.資料庫刪除_tb.Name = "資料庫刪除_tb"
493
-        Me.資料庫刪除_tb.Size = New System.Drawing.Size(75, 23)
494
-        Me.資料庫刪除_tb.TabIndex = 706
495
-        Me.資料庫刪除_tb.Text = "刪除"
496
-        Me.資料庫刪除_tb.UseVisualStyleBackColor = True
497
-        '
498
-        '地區_tb
499
-        '
500
-        Me.地區_tb.Enabled = False
501
-        Me.地區_tb.Location = New System.Drawing.Point(246, 43)
502
-        Me.地區_tb.Name = "地區_tb"
503
-        Me.地區_tb.Size = New System.Drawing.Size(74, 23)
504
-        Me.地區_tb.TabIndex = 714
505
-        '
506
-        '密碼_tb
507
-        '
508
-        Me.密碼_tb.Location = New System.Drawing.Point(277, 17)
509
-        Me.密碼_tb.Name = "密碼_tb"
510
-        Me.密碼_tb.Size = New System.Drawing.Size(100, 23)
511
-        Me.密碼_tb.TabIndex = 713
512
-        '
513
-        '資料庫修改_tb
514
-        '
515
-        Me.資料庫修改_tb.Location = New System.Drawing.Point(88, 43)
516
-        Me.資料庫修改_tb.Name = "資料庫修改_tb"
517
-        Me.資料庫修改_tb.Size = New System.Drawing.Size(75, 23)
518
-        Me.資料庫修改_tb.TabIndex = 711
519
-        Me.資料庫修改_tb.Text = "修改"
520
-        Me.資料庫修改_tb.UseVisualStyleBackColor = True
521
-        '
522
-        '帳號_tb
523
-        '
524
-        Me.帳號_tb.Location = New System.Drawing.Point(171, 17)
525
-        Me.帳號_tb.Name = "帳號_tb"
526
-        Me.帳號_tb.Size = New System.Drawing.Size(100, 23)
527
-        Me.帳號_tb.TabIndex = 712
528
-        '
529
-        '地址_tb
530
-        '
531
-        Me.地址_tb.Location = New System.Drawing.Point(11, 17)
532
-        Me.地址_tb.Name = "地址_tb"
533
-        Me.地址_tb.Size = New System.Drawing.Size(154, 23)
534
-        Me.地址_tb.TabIndex = 711
535
-        '
536
-        '資料庫新增_tb
537
-        '
538
-        Me.資料庫新增_tb.Location = New System.Drawing.Point(8, 43)
539
-        Me.資料庫新增_tb.Name = "資料庫新增_tb"
540
-        Me.資料庫新增_tb.Size = New System.Drawing.Size(75, 23)
541
-        Me.資料庫新增_tb.TabIndex = 716
542
-        Me.資料庫新增_tb.Text = "新增"
543
-        Me.資料庫新增_tb.UseVisualStyleBackColor = True
544
-        '
545 206
         'ID_tb
546 207
         '
547 208
         Me.ID_tb.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -772,8 +433,8 @@ Partial Class 系統設定
772 433
         '
773 434
         '職務_dgv
774 435
         '
775
-        DataGridViewCellStyle16.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
776
-        Me.職務_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
436
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
437
+        Me.職務_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
777 438
         Me.職務_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
778 439
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
779 440
         Me.職務_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -807,85 +468,6 @@ Partial Class 系統設定
807 468
         Me.GroupBox5.TabStop = False
808 469
         Me.GroupBox5.Text = "工作職務"
809 470
         '
810
-        'GroupBox3
811
-        '
812
-        Me.GroupBox3.Controls.Add(Me.適應症_編號_tb)
813
-        Me.GroupBox3.Controls.Add(Me.適應症_tb)
814
-        Me.GroupBox3.Controls.Add(Me.適應症_dgv)
815
-        Me.GroupBox3.Controls.Add(Me.適應症_刪除_bt)
816
-        Me.GroupBox3.Controls.Add(Me.適應症_修改_bt)
817
-        Me.GroupBox3.Controls.Add(Me.適應症_新增_bt)
818
-        Me.GroupBox3.Location = New System.Drawing.Point(357, 2)
819
-        Me.GroupBox3.Name = "GroupBox3"
820
-        Me.GroupBox3.Size = New System.Drawing.Size(196, 442)
821
-        Me.GroupBox3.TabIndex = 718
822
-        Me.GroupBox3.TabStop = False
823
-        Me.GroupBox3.Text = "適應症資料"
824
-        '
825
-        '適應症_編號_tb
826
-        '
827
-        Me.適應症_編號_tb.Enabled = False
828
-        Me.適應症_編號_tb.Location = New System.Drawing.Point(5, 17)
829
-        Me.適應症_編號_tb.Name = "適應症_編號_tb"
830
-        Me.適應症_編號_tb.Size = New System.Drawing.Size(50, 23)
831
-        Me.適應症_編號_tb.TabIndex = 230
832
-        '
833
-        '適應症_tb
834
-        '
835
-        Me.適應症_tb.Location = New System.Drawing.Point(55, 17)
836
-        Me.適應症_tb.Name = "適應症_tb"
837
-        Me.適應症_tb.Size = New System.Drawing.Size(136, 23)
838
-        Me.適應症_tb.TabIndex = 229
839
-        '
840
-        '適應症_dgv
841
-        '
842
-        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
843
-        Me.適應症_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
844
-        Me.適應症_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
845
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
846
-        Me.適應症_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
847
-        Me.適應症_dgv.BackgroundColor = System.Drawing.Color.White
848
-        Me.適應症_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
849
-        Me.適應症_dgv.Location = New System.Drawing.Point(4, 122)
850
-        Me.適應症_dgv.Name = "適應症_dgv"
851
-        Me.適應症_dgv.RowHeadersWidth = 5
852
-        Me.適應症_dgv.RowTemplate.Height = 24
853
-        Me.適應症_dgv.Size = New System.Drawing.Size(187, 314)
854
-        Me.適應症_dgv.TabIndex = 227
855
-        '
856
-        '適應症_刪除_bt
857
-        '
858
-        Me.適應症_刪除_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
859
-        Me.適應症_刪除_bt.ForeColor = System.Drawing.Color.Red
860
-        Me.適應症_刪除_bt.Location = New System.Drawing.Point(3, 94)
861
-        Me.適應症_刪除_bt.Name = "適應症_刪除_bt"
862
-        Me.適應症_刪除_bt.Size = New System.Drawing.Size(187, 25)
863
-        Me.適應症_刪除_bt.TabIndex = 226
864
-        Me.適應症_刪除_bt.Text = "刪除"
865
-        Me.適應症_刪除_bt.UseVisualStyleBackColor = True
866
-        '
867
-        '適應症_修改_bt
868
-        '
869
-        Me.適應症_修改_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
870
-        Me.適應症_修改_bt.ForeColor = System.Drawing.Color.DarkGreen
871
-        Me.適應症_修改_bt.Location = New System.Drawing.Point(3, 67)
872
-        Me.適應症_修改_bt.Name = "適應症_修改_bt"
873
-        Me.適應症_修改_bt.Size = New System.Drawing.Size(187, 25)
874
-        Me.適應症_修改_bt.TabIndex = 225
875
-        Me.適應症_修改_bt.Text = "修改"
876
-        Me.適應症_修改_bt.UseVisualStyleBackColor = True
877
-        '
878
-        '適應症_新增_bt
879
-        '
880
-        Me.適應症_新增_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
881
-        Me.適應症_新增_bt.ForeColor = System.Drawing.Color.Blue
882
-        Me.適應症_新增_bt.Location = New System.Drawing.Point(3, 41)
883
-        Me.適應症_新增_bt.Name = "適應症_新增_bt"
884
-        Me.適應症_新增_bt.Size = New System.Drawing.Size(187, 25)
885
-        Me.適應症_新增_bt.TabIndex = 224
886
-        Me.適應症_新增_bt.Text = "新增"
887
-        Me.適應症_新增_bt.UseVisualStyleBackColor = True
888
-        '
889 471
         'GroupBox8
890 472
         '
891 473
         Me.GroupBox8.Controls.Add(Me.醫生_新增_bt)
@@ -913,8 +495,8 @@ Partial Class 系統設定
913 495
         '
914 496
         '醫師_dgv
915 497
         '
916
-        DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
917
-        Me.醫師_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18
498
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
499
+        Me.醫師_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
918 500
         Me.醫師_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
919 501
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
920 502
         Me.醫師_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -963,11 +545,8 @@ Partial Class 系統設定
963 545
         Me.BackColor = System.Drawing.Color.White
964 546
         Me.ClientSize = New System.Drawing.Size(1656, 861)
965 547
         Me.Controls.Add(Me.GroupBox8)
966
-        Me.Controls.Add(Me.GroupBox3)
967 548
         Me.Controls.Add(Me.GroupBox7)
968
-        Me.Controls.Add(Me.GroupBox6)
969 549
         Me.Controls.Add(Me.GroupBox5)
970
-        Me.Controls.Add(Me.GroupBox2)
971 550
         Me.Controls.Add(Me.GroupBox1)
972 551
         Me.Controls.Add(Me.GroupBox4)
973 552
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
@@ -980,24 +559,12 @@ Partial Class 系統設定
980 559
         CType(Me.年份_dgv, System.ComponentModel.ISupportInitialize).EndInit()
981 560
         Me.GroupBox1.ResumeLayout(False)
982 561
         Me.GroupBox1.PerformLayout()
983
-        Me.Panel1.ResumeLayout(False)
984
-        Me.Panel2.ResumeLayout(False)
985
-        CType(Me.資料夾清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
986
-        Me.GroupBox2.ResumeLayout(False)
987
-        Me.GroupBox2.PerformLayout()
988
-        Me.Panel3.ResumeLayout(False)
989
-        CType(Me.FTP_dgv, System.ComponentModel.ISupportInitialize).EndInit()
990
-        Me.GroupBox6.ResumeLayout(False)
991
-        Me.GroupBox6.PerformLayout()
992 562
         CType(Me.時段_dgv, System.ComponentModel.ISupportInitialize).EndInit()
993 563
         Me.GroupBox7.ResumeLayout(False)
994 564
         Me.GroupBox7.PerformLayout()
995 565
         CType(Me.職務_dgv, System.ComponentModel.ISupportInitialize).EndInit()
996 566
         Me.GroupBox5.ResumeLayout(False)
997 567
         Me.GroupBox5.PerformLayout()
998
-        Me.GroupBox3.ResumeLayout(False)
999
-        Me.GroupBox3.PerformLayout()
1000
-        CType(Me.適應症_dgv, System.ComponentModel.ISupportInitialize).EndInit()
1001 568
         Me.GroupBox8.ResumeLayout(False)
1002 569
         Me.GroupBox8.PerformLayout()
1003 570
         CType(Me.醫師_dgv, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1011,37 +578,11 @@ Partial Class 系統設定
1011 578
     Friend WithEvents 年份_刪除_bt As Button
1012 579
     Friend WithEvents 年份_tb As TextBox
1013 580
     Friend WithEvents 資料庫版本號_lb As Label
1014
-    Friend WithEvents Label12 As Label
1015
-    Friend WithEvents Label13 As Label
1016
-    Friend WithEvents 讀取資料夾路徑_bt As Button
1017
-    Friend WithEvents 本機資料夾_wb As WebBrowser
1018
-    Friend WithEvents FTP執行檔_wb As WebBrowser
1019 581
     Friend WithEvents 修改1_bt As Button
1020 582
     Friend WithEvents Label2 As Label
1021 583
     Friend WithEvents 版本號_tb As TextBox
1022 584
     Friend WithEvents GroupBox1 As GroupBox
1023 585
     Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
1024
-    Friend WithEvents 指定_tb As TextBox
1025
-    Friend WithEvents 刪除_bt As Button
1026
-    Friend WithEvents 修改_bt As Button
1027
-    Friend WithEvents 新增_bt As Button
1028
-    Friend WithEvents 備註_tb As TextBox
1029
-    Friend WithEvents 指定頁面_tb As TextBox
1030
-    Friend WithEvents 資料夾名稱_tb As TextBox
1031
-    Friend WithEvents 資料夾清單_dgv As DataGridView
1032
-    Friend WithEvents Label4 As Label
1033
-    Friend WithEvents FTP資料夾_wb As WebBrowser
1034
-    Friend WithEvents GroupBox2 As GroupBox
1035
-    Friend WithEvents FTP_dgv As DataGridView
1036
-    Friend WithEvents GroupBox6 As GroupBox
1037
-    Friend WithEvents 資料庫刪除_tb As Button
1038
-    Friend WithEvents 資料庫修改_tb As Button
1039
-    Friend WithEvents 資料庫新增_tb As Button
1040
-    Friend WithEvents 位置_tb As TextBox
1041
-    Friend WithEvents 地區_tb As TextBox
1042
-    Friend WithEvents 密碼_tb As TextBox
1043
-    Friend WithEvents 帳號_tb As TextBox
1044
-    Friend WithEvents 地址_tb As TextBox
1045 586
     Friend WithEvents ID_tb As TextBox
1046 587
     Friend WithEvents 時段_tb As TextBox
1047 588
     Friend WithEvents 時段1_tb As TextBox
@@ -1068,16 +609,6 @@ Partial Class 系統設定
1068 609
     Friend WithEvents 職務_dgv As DataGridView
1069 610
     Friend WithEvents 職務_tb As TextBox
1070 611
     Friend WithEvents GroupBox5 As GroupBox
1071
-    Friend WithEvents GroupBox3 As GroupBox
1072
-    Friend WithEvents 適應症_tb As TextBox
1073
-    Friend WithEvents 適應症_dgv As DataGridView
1074
-    Friend WithEvents 適應症_刪除_bt As Button
1075
-    Friend WithEvents 適應症_修改_bt As Button
1076
-    Friend WithEvents 適應症_新增_bt As Button
1077
-    Friend WithEvents Panel1 As Panel
1078
-    Friend WithEvents Panel2 As Panel
1079
-    Friend WithEvents Panel3 As Panel
1080
-    Friend WithEvents 適應症_編號_tb As TextBox
1081 612
     Friend WithEvents GroupBox8 As GroupBox
1082 613
     Friend WithEvents 醫生_新增_bt As Button
1083 614
     Friend WithEvents 醫師_dgv As DataGridView

+ 1
- 119
GRAMS-SYS/10、系統管理/系統設定.vb 查看文件

@@ -7,15 +7,6 @@
7 7
         SQL_醫生清單()
8 8
         da.Fill(ds2) : 醫師_dgv.DataSource = ds2.Tables(0) : conn.Close()
9 9
     End Sub
10
-    Private Sub Set_適應症設定()
11
-        'Dim ds2 As New DataSet
12
-        '適應症_dgv.DataSource = Nothing : ds2.Clear()
13
-        '適應症_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
14
-        '適應症_dgv.ColumnHeadersHeight = 25 : 適應症_dgv.AllowUserToAddRows = False
15
-        'SQL_適應症設定()
16
-        'da.Fill(ds2) : 適應症_dgv.DataSource = ds2.Tables(0) : conn.Close()
17
-        '適應症_dgv.Columns(0).FillWeight = 30
18
-    End Sub
19 10
     Private Sub Set_時段設定()
20 11
         Dim ds2 As New DataSet
21 12
         時段_dgv.DataSource = Nothing : ds2.Clear()
@@ -25,15 +16,6 @@
25 16
         da.Fill(ds2) : 時段_dgv.DataSource = ds2.Tables(0) : conn.Close()
26 17
         時段_dgv.Columns(0).FillWeight = 100
27 18
     End Sub
28
-    Private Sub Set_FTP資料庫管理清單()
29
-        Dim ds7 As New DataSet
30
-        FTP_dgv.DataSource = Nothing : ds7.Clear()
31
-        FTP_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
32
-        FTP_dgv.ColumnHeadersHeight = 25 : FTP_dgv.AllowUserToAddRows = False
33
-        SQL_FTP資料庫管理()
34
-        da.Fill(ds7) : FTP_dgv.DataSource = ds7.Tables(0) : conn.Close()
35
-        FTP_dgv.Columns(0).FillWeight = 100
36
-    End Sub
37 19
     Private Sub Set_年度清單()
38 20
         Dim ds1 As New DataSet
39 21
         年份_dgv.DataSource = Nothing : ds1.Clear()
@@ -43,15 +25,6 @@
43 25
         da.Fill(ds1) : 年份_dgv.DataSource = ds1.Tables(0) : conn.Close()
44 26
         年份_dgv.Columns(0).FillWeight = 100
45 27
     End Sub
46
-    Private Sub Set_FTP資料夾清單()
47
-        Dim ds As New DataSet
48
-        資料夾清單_dgv.DataSource = Nothing : ds.Clear()
49
-        資料夾清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
50
-        資料夾清單_dgv.ColumnHeadersHeight = 25 : 資料夾清單_dgv.AllowUserToAddRows = False
51
-        SQL_FTP資料夾路徑分配()
52
-        da.Fill(ds) : 資料夾清單_dgv.DataSource = ds.Tables(0) : conn.Close()
53
-        資料夾清單_dgv.Columns(0).Width = 70 : 資料夾清單_dgv.Columns(1).Width = 200 : 資料夾清單_dgv.Columns(2).Width = 200 : 資料夾清單_dgv.Columns(3).Width = 70
54
-    End Sub
55 28
     Private Sub Set_工作職務()
56 29
         Dim ds3 As New DataSet
57 30
         職務_dgv.DataSource = Nothing : ds3.Clear()
@@ -63,47 +36,25 @@
63 36
     End Sub
64 37
     Private Sub 系統設定_Load(sender As Object, e As EventArgs) Handles MyBase.Load
65 38
         Me.AutoScroll = True
66
-        Set_年度清單() : Set_FTP資料夾清單() : Set_工作職務() : Set_適應症設定() : Set_醫師設定() : Set_FTP資料庫管理清單() : Set_時段設定()
67
-        Target1 = Target : FTP資料夾_wb.Url = New Uri(Target1)
68
-
39
+        Set_年度清單() : Set_工作職務() : Set_醫師設定() : Set_時段設定()
69 40
         SQL_系統版本號驗證()
70 41
         If dr.Read() Then : 資料庫版本號_lb.Text = "資料庫版本號 : " & dr("系統認證版本號") : 版本號_tb.Text = dr("系統認證版本號") : End If : conn.Close()
71
-        Target1 = Target & AA(0) & "/" : FTP執行檔_wb.Url = New Uri(Target1)
72
-        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then : 本機資料夾_wb.Navigate(FolderBrowserDialog1.SelectedPath) : End If
73 42
     End Sub
74 43
     Private Sub 年份_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 年份_dgv.CellClick
75 44
         If e.RowIndex = -1 Then : Else
76 45
             年份_tb.Text = 年份_dgv("年份", e.RowIndex).Value.ToString
77 46
         End If
78 47
     End Sub
79
-    Private Sub 資料夾清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 資料夾清單_dgv.CellClick
80
-        If e.RowIndex = -1 Then : Else
81
-            資料夾名稱_tb.Text = 資料夾清單_dgv("資料夾名稱", e.RowIndex).Value.ToString : 指定頁面_tb.Text = 資料夾清單_dgv("指定頁面", e.RowIndex).Value.ToString
82
-            備註_tb.Text = 資料夾清單_dgv("備註", e.RowIndex).Value.ToString : 指定_tb.Text = 資料夾清單_dgv("指定", e.RowIndex).Value.ToString
83
-        End If
84
-    End Sub
85 48
     Private Sub 職務_dgv_Click(sender As Object, e As DataGridViewCellEventArgs) Handles 職務_dgv.CellClick
86 49
         If e.RowIndex = -1 Then : Else
87 50
             職務_tb.Text = 職務_dgv("職務", e.RowIndex).Value.ToString
88 51
         End If
89 52
     End Sub
90
-    Private Sub 適應症_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 適應症_dgv.CellClick
91
-        If e.RowIndex = -1 Then : Else
92
-            適應症_編號_tb.Text = 適應症_dgv(0, e.RowIndex).Value.ToString : 適應症_tb.Text = 適應症_dgv(1, e.RowIndex).Value.ToString
93
-        End If
94
-    End Sub
95 53
     Private Sub 醫師_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 醫師_dgv.CellClick
96 54
         If e.RowIndex = -1 Then : Else
97 55
             醫師_tb.Text = 醫師_dgv(0, e.RowIndex).Value.ToString
98 56
         End If
99 57
     End Sub
100
-    Private Sub FTP_dgvCellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles FTP_dgv.CellClick
101
-        If e.RowIndex = -1 Then : Else
102
-            地址_tb.Text = FTP_dgv("FTP地址", e.RowIndex).Value.ToString : 帳號_tb.Text = FTP_dgv("FTP帳號", e.RowIndex).Value.ToString
103
-            密碼_tb.Text = FTP_dgv("FTP密碼", e.RowIndex).Value.ToString : 地區_tb.Text = FTP_dgv("地區", e.RowIndex).Value.ToString
104
-            位置_tb.Text = FTP_dgv("FTP物理位置", e.RowIndex).Value.ToString
105
-        End If
106
-    End Sub
107 58
     Private Sub 時段_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 時段_dgv.CellClick
108 59
         If e.RowIndex = -1 Then : Else
109 60
             ID_tb.Text = 時段_dgv("ID", e.RowIndex).Value.ToString : 時段_tb.Text = 時段_dgv("時段", e.RowIndex).Value.ToString
@@ -210,59 +161,6 @@
210 161
             End If
211 162
         End If
212 163
     End Sub
213
-    '---------------------FTP資料庫管理-----------------------------------------------------------------------------------------------------------------
214
-    Private Sub 資料庫新增_tb_Click(sender As Object, e As EventArgs) Handles 資料庫新增_tb.Click
215
-        If 地址_tb.Text = "" Or 位置_tb.Text = "" Or 位置_tb.Text = "" Then : MsgBox("不能為空白")
216
-        Else
217
-            PA = 地址_tb.Text : PA1 = 地區_tb.Text : PA2 = 位置_tb.Text : PA3 = 帳號_tb.Text : PA4 = 密碼_tb.Text : SQL_資料庫新增() : Set_FTP資料庫管理清單()
218
-        End If
219
-    End Sub
220
-    Private Sub 資料庫修改_tb_Click(sender As Object, e As EventArgs) Handles 資料庫修改_tb.Click
221
-        If 地址_tb.Text = "" Or 位置_tb.Text = "" Then
222
-            MsgBox("沒有選擇修改內容")
223
-        Else
224
-            PA = 地址_tb.Text : PA2 = 位置_tb.Text : PA3 = 帳號_tb.Text : PA4 = 密碼_tb.Text
225
-            SQL_資料庫修改() : Set_FTP資料庫管理清單() : conn.Close() : MsgBox("修改完成")
226
-        End If
227
-    End Sub
228
-    Private Sub 資料庫刪除_tb_Click(sender As Object, e As EventArgs) Handles 資料庫刪除_tb.Click
229
-        If 地區_tb.Text = "" And 位置_tb.Text = "" Then
230
-            MsgBox("沒有選擇刪除內容")
231
-        Else
232
-            Dim cc As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
233
-            If cc = MsgBoxResult.Ok Then
234
-                SQL_資料庫刪除() : conn.Close() : Set_FTP資料庫管理清單() : MsgBox("刪除完成")
235
-            End If
236
-        End If
237
-    End Sub
238
-    '---------------------適應症-----------------------------------------------------------------------------------------------------------------
239
-    Private Sub 適應症_新增_bt_Click(sender As Object, e As EventArgs) Handles 適應症_新增_bt.Click
240
-        SQL_查詢最後一筆適應症()
241
-        If dr.Read() Then : 適應症_編號_tb.Text = dr("編號").ToString : Else : 適應症_編號_tb.Text = "0" : End If : conn.Close()
242
-        Dim NUM1 As Integer
243
-        NUM1 = Double.Parse(Strings.Right(適應症_編號_tb.Text, 2)) + 1
244
-        If NUM1 < 10 Then : 適應症_編號_tb.Text = "N" & "0" & NUM1
245
-        ElseIf NUM1 > 9 And NUM1 < 100 Then : 適應症_編號_tb.Text = "N" & NUM1 : End If
246
-        SQL_適應症新增() : Set_適應症設定() : conn.Close() : MsgBox("新增完成")
247
-    End Sub
248
-    Private Sub 適應症_修改_bt_Click(sender As Object, e As EventArgs) Handles 適應症_修改_bt.Click
249
-        If 適應症_編號_tb.Text = "" Then
250
-            MsgBox("沒有選擇修改內容")
251
-        Else
252
-            PA = 適應症_編號_tb.Text : PA1 = 適應症_tb.Text
253
-            SQL_適應症修改() : Set_適應症設定() : conn.Close() : MsgBox("修改完成")
254
-        End If
255
-    End Sub
256
-    Private Sub 適應症_刪除_bt_Click(sender As Object, e As EventArgs) Handles 適應症_刪除_bt.Click
257
-        If 適應症_編號_tb.Text = "" Then
258
-            MsgBox("沒有選擇刪除內容")
259
-        Else
260
-            Dim cc As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
261
-            If cc = MsgBoxResult.Ok Then
262
-                SQL_適應症刪除() : conn.Close() : Set_適應症設定() : MsgBox("刪除完成")
263
-            End If
264
-        End If
265
-    End Sub
266 164
     '---------------------醫生-----------------------------------------------------------------------------------------------------------------
267 165
     Private Sub 醫生_新增_bt_Click(sender As Object, e As EventArgs) Handles 醫生_新增_bt.Click
268 166
         SQL_查詢醫生()
@@ -280,25 +178,9 @@
280 178
         Else : SQL_醫生刪除() : Set_醫師設定() : conn.Close() : MsgBox("刪除完成")
281 179
         End If : conn.Close()
282 180
     End Sub
283
-    '---------------------FTP資料夾管理-----------------------------------------------------------------------------------------------------------------
284
-    Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
285
-        SQL_FTP資料夾管理新增() : conn.Close() : Set_FTP資料夾清單()
286
-    End Sub
287
-    Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
288
-        SQL_FTP資料夾管理修改() : conn.Close() : Set_FTP資料夾清單()
289
-    End Sub
290
-    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
291
-        Dim aa As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
292
-        If aa = MsgBoxResult.Ok Then
293
-            SQL_FTP資料夾管理刪除()
294
-        End If : conn.Close() : Set_FTP資料夾清單()
295
-    End Sub
296 181
     '---------------------系統執行檔版本管理-----------------------------------------------------------------------------------------------------------------
297 182
     Private Sub 修改1_bt_Click(sender As Object, e As EventArgs) Handles 修改1_bt.Click
298 183
         SQL_版本號管理修改() : conn.Close() : SQL_系統版本號驗證()
299 184
         If dr.Read() Then : 資料庫版本號_lb.Text = "資料庫版本號 : " & dr("系統認證版本號") : 版本號_tb.Text = dr("系統認證版本號") : End If : conn.Close() : MsgBox("修改完成")
300 185
     End Sub
301
-    Private Sub 讀取資料夾路徑_bt_Click(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_bt.Click
302
-        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then : 本機資料夾_wb.Navigate(FolderBrowserDialog1.SelectedPath) : End If
303
-    End Sub
304 186
 End Class

+ 2
- 27
GRAMS-SYS/LoginForm1.vb 查看文件

@@ -1,13 +1,6 @@
1 1
 Option Explicit On
2 2
 Imports System.IO
3 3
 Public Class LoginForm1
4
-    ' TODO: 插入程式碼,利用提供的使用者名稱和密碼執行自訂驗證
5
-    ' (請參閱 https://go.microsoft.com/fwlink/?LinkId=35339)。
6
-    ' 如此便可將自訂主體附加到目前執行緒的主體,如下所示: 
7
-    '     My.User.CurrentPrincipal = CustomPrincipal
8
-    ' 其中 CustomPrincipal 是用來執行驗證的 IPrincipal 實作。
9
-    ' 接著,My.User 便會傳回封裝在 CustomPrincipal 物件中的識別資訊,
10
-    ' 例如使用者名稱、顯示名稱等。
11 4
     Dim MACKK As String 'MAC碼
12 5
     Dim diskId As String '數字ID
13 6
     Dim diskSerialNumber As String '硬碟序列
@@ -17,15 +10,6 @@ Public Class LoginForm1
17 10
     ReadOnly ds2 As New DataSet
18 11
     ReadOnly screenWidth = Screen.PrimaryScreen.Bounds.Width
19 12
     ReadOnly screenHeight = Screen.PrimaryScreen.Bounds.Height
20
-    Private Sub Set_清單1()
21
-        FTP_dgv.DataSource = Nothing : ds2.Clear()
22
-        FTP_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
23
-        FTP_dgv.ColumnHeadersHeight = 25
24
-        FTP_dgv.AllowUserToAddRows = False
25
-        ConnOpen()
26
-        SQL1 = "SELECT 資料夾名稱, 指定 FROM FTP資料夾管理"
27
-        CmdSet_For_DGV() : da.Fill(ds2) : FTP_dgv.DataSource = ds2.Tables(0) : conn.Close()
28
-    End Sub
29 13
     Private Sub SQL_使用者下拉清單載入()
30 14
         SQL_使用者下拉清單() : 使用者_cb.Items.Clear()
31 15
         While (dr.Read()) : 使用者_cb.Items.Add(dr("UserName")) : End While : conn.Close()
@@ -49,16 +33,7 @@ Public Class LoginForm1
49 33
         End If : conn.Close()
50 34
         Label1.Text = "執行檔版本號 : " & 版本
51 35
         '-----------------------FTP伺服器登入位置--------------------------------------------------------------------------------------------------------------------------------------------
52
-        SQL_FTP伺服器登入位置()
53
-        If dr.Read() Then : Target = dr("FTP地址") : FTP帳號 = dr("FTP帳號") : FTP密碼 = dr("FTP密碼") : FTP物理位置 = dr("FTP物理位置") : End If : conn.Close()
54
-        Set_清單1()
55
-        Dim HH As String = 0
56
-        For i As Integer = 0 To FTP_dgv.Rows.Count - 1
57
-            If i < 10 Then : HH = "0" & i : ElseIf i >= 10 Then : HH = i : End If
58
-            If FTP_dgv("指定", i).Value.ToString = "AA" & HH Then : AA(i) = FTP_dgv("資料夾名稱", i).Value.ToString : End If
59
-        Next
60
-        Target1 = Target & AA(0) & "/"
61
-        WebBrowser3.Url = New Uri(Target1)
36
+        Target = "https://gcm-smart.com/ERP/HSKIN/"
62 37
         '-----------------------系統版本號驗證-----------------------------------------------------------------------------------------------------------------------------------------------
63 38
         If Strings.Right(Label1.Text, 10) <> Strings.Right(Label2.Text, 10) Then
64 39
             自動更新2()
@@ -89,7 +64,7 @@ Public Class LoginForm1
89 64
     Private Sub 自動更新2()
90 65
         Dim Str As String = Application.StartupPath
91 66
         If File.Exists(Str + "\NOTAUTO.txt") Then : Else
92
-            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "SYS-UPDATE.exe", Str + "\SYS-UPDATE.exe")
67
+            My.Computer.Network.DownloadFile(Target & "SYS-UPDATE.exe", Str + "\SYS-UPDATE.exe")
93 68
             Shell(Str + "\SYS-UPDATE.exe", vbNormalFocus)
94 69
             Me.Close()
95 70
         End If

二进制
GRAMS-SYS/bin/Debug/HSKIN-MIS-SYS.exe 查看文件


二进制
GRAMS-SYS/bin/Debug/HSKIN-MIS-SYS.pdb 查看文件


二进制
GRAMS-SYS/obj/Debug/DesignTimeResolveAssemblyReferences.cache 查看文件


二进制
GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.exe 查看文件


二进制
GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.pdb 查看文件


二进制
GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.vbproj.AssemblyReference.cache 查看文件


+ 1
- 1
GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.vbproj.CoreCompileInputs.cache 查看文件

@@ -1 +1 @@
1
-ad10bcbe8558772d3027938f09a66fdf533a9c5b965c692d5fcb62cddfecc502
1
+2f06138ce308fc10b82d622754a630d612a3ee07fe480825652205b265271110

+ 0
- 6
GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.vbproj.FileListAbsolute.txt 查看文件

@@ -121,12 +121,6 @@ D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\obj\Debug\HSKIN_MIS_SYS.業務銷售
121 121
 D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\obj\Debug\HSKIN_MIS_SYS.系統綁定電腦資訊.resources
122 122
 D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\obj\Debug\HSKIN_MIS_SYS.專案及會議執行.resources
123 123
 D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\obj\Debug\HSKIN_MIS_SYS.專案及會議提案.resources
124
-D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\bin\Debug\Telerik.WinControls.dll
125
-D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\bin\Debug\Telerik.WinControls.PdfViewer.dll
126
-D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\bin\Debug\Telerik.WinControls.UI.dll
127
-D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\bin\Debug\Telerik.Windows.Documents.Core.dll
128
-D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\bin\Debug\Telerik.Windows.Documents.Fixed.dll
129
-D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\bin\Debug\TelerikCommon.dll
130 124
 D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\bin\Debug\Telerik.Windows.Zip.dll
131 125
 D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\bin\Debug\Telerik.WinControls.xml
132 126
 D:\工巧明\HSKIN\HSKIN-MIS-SYS\GRAMS-SYS\bin\Debug\Telerik.WinControls.PdfViewer.xml

二进制
GRAMS-SYS/obj/Debug/HSKIN-MIS-SYS.vbproj.GenerateResource.cache 查看文件


正在加载...
取消
保存