소스 검색

補充VSEOEE100

B70340 4 년 전
부모
커밋
adb1008346
60개의 변경된 파일10799개의 추가작업 그리고 51개의 파일을 삭제
  1. BIN
      .vs/YD-ERP-SYS/v16/.suo
  2. 781
    0
      YD-ERP-SYS/Module/SQL_財務系統管理.vb
  3. 51
    0
      YD-ERP-SYS/Module/SQL_資料庫系統管理.vb
  4. 5
    0
      YD-ERP-SYS/Module/全域變數.vb
  5. 160
    0
      YD-ERP-SYS/My Project/Resources.Designer.vb
  6. 74
    26
      YD-ERP-SYS/My Project/Resources.resx
  7. 114
    4
      YD-ERP-SYS/YD-ERP-SYS.Designer.vb
  8. 29
    0
      YD-ERP-SYS/YD-ERP-SYS.vb
  9. 75
    0
      YD-ERP-SYS/YD-ERP-SYS.vbproj
  10. BIN
      YD-ERP-SYS/bin/Debug/Interop.VSTOEE100.dll
  11. BIN
      YD-ERP-SYS/bin/Debug/YD-ERP-SYS.exe
  12. BIN
      YD-ERP-SYS/bin/Debug/YD-ERP-SYS.pdb
  13. 80
    0
      YD-ERP-SYS/bin/Debug/YD-ERP-SYS.xml
  14. 7
    0
      YD-ERP-SYS/obj/Debug/.NETFramework,Version=v4.5.AssemblyAttributes.vb
  15. BIN
      YD-ERP-SYS/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
  16. BIN
      YD-ERP-SYS/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll
  17. BIN
      YD-ERP-SYS/obj/Debug/YD-ERP-SYS.exe
  18. BIN
      YD-ERP-SYS/obj/Debug/YD-ERP-SYS.pdb
  19. 1
    1
      YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.CoreCompileInputs.cache
  20. 53
    0
      YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.FileListAbsolute.txt
  21. BIN
      YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.GenerateResource.cache
  22. BIN
      YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbprojAssemblyReference.cache
  23. 80
    0
      YD-ERP-SYS/obj/Debug/YD-ERP-SYS.xml
  24. BIN
      YD-ERP-SYS/obj/Debug/YD_ERP_SYS.Resources.resources
  25. BIN
      YD-ERP-SYS/obj/Debug/YD_ERP_SYS.匯率管理.resources
  26. BIN
      YD-ERP-SYS/obj/Debug/YD_ERP_SYS.會計科目管理.resources
  27. BIN
      YD-ERP-SYS/obj/Debug/YD_ERP_SYS.營運報表.resources
  28. BIN
      YD-ERP-SYS/obj/Debug/YD_ERP_SYS.營運成本收支單_對帳表.resources
  29. BIN
      YD-ERP-SYS/obj/Debug/YD_ERP_SYS.營運成本收支單一覽表.resources
  30. BIN
      YD-ERP-SYS/obj/Debug/YD_ERP_SYS.營運成本收支單審核.resources
  31. BIN
      YD-ERP-SYS/obj/Debug/YD_ERP_SYS.營運成本收支單申請.resources
  32. BIN
      YD-ERP-SYS/obj/Debug/YD_ERP_SYS.簽名檔管理.resources
  33. BIN
      YD-ERP-SYS/圖片/Payment.png
  34. 1
    0
      YD-ERP-SYS/業務系統管理/客戶資料表.vb
  35. 279
    0
      YD-ERP-SYS/財務系統管理/匯率管理.Designer.vb
  36. 120
    0
      YD-ERP-SYS/財務系統管理/匯率管理.resx
  37. 92
    0
      YD-ERP-SYS/財務系統管理/匯率管理.vb
  38. 518
    0
      YD-ERP-SYS/財務系統管理/會計科目管理.Designer.vb
  39. 120
    0
      YD-ERP-SYS/財務系統管理/會計科目管理.resx
  40. 178
    0
      YD-ERP-SYS/財務系統管理/會計科目管理.vb
  41. 1908
    0
      YD-ERP-SYS/財務系統管理/營運報表.Designer.vb
  42. 120
    0
      YD-ERP-SYS/財務系統管理/營運報表.resx
  43. 911
    0
      YD-ERP-SYS/財務系統管理/營運報表.vb
  44. 611
    0
      YD-ERP-SYS/財務系統管理/營運成本收支單 - 對帳表.Designer.vb
  45. 129
    0
      YD-ERP-SYS/財務系統管理/營運成本收支單 - 對帳表.resx
  46. 205
    0
      YD-ERP-SYS/財務系統管理/營運成本收支單 - 對帳表.vb
  47. 766
    0
      YD-ERP-SYS/財務系統管理/營運成本收支單一覽表.Designer.vb
  48. 126
    0
      YD-ERP-SYS/財務系統管理/營運成本收支單一覽表.resx
  49. 454
    0
      YD-ERP-SYS/財務系統管理/營運成本收支單一覽表.vb
  50. 503
    0
      YD-ERP-SYS/財務系統管理/營運成本收支單審核.Designer.vb
  51. 123
    0
      YD-ERP-SYS/財務系統管理/營運成本收支單審核.resx
  52. 231
    0
      YD-ERP-SYS/財務系統管理/營運成本收支單審核.vb
  53. 665
    0
      YD-ERP-SYS/財務系統管理/營運成本收支單申請.Designer.vb
  54. 135
    0
      YD-ERP-SYS/財務系統管理/營運成本收支單申請.resx
  55. 332
    0
      YD-ERP-SYS/財務系統管理/營運成本收支單申請.vb
  56. 317
    0
      YD-ERP-SYS/資料庫系統管理/簽名檔管理.Designer.vb
  57. 129
    0
      YD-ERP-SYS/資料庫系統管理/簽名檔管理.resx
  58. 163
    0
      YD-ERP-SYS/資料庫系統管理/簽名檔管理.vb
  59. 113
    15
      YD-ERP-SYS/資料庫系統管理/系統編碼規則.Designer.vb
  60. 40
    5
      YD-ERP-SYS/資料庫系統管理/系統編碼規則.vb

BIN
.vs/YD-ERP-SYS/v16/.suo 파일 보기


+ 781
- 0
YD-ERP-SYS/Module/SQL_財務系統管理.vb 파일 보기

@@ -0,0 +1,781 @@
1
+Module SQL_財務系統管理
2
+    '---------------------匯率管理.------------------------------------------------------------------------------------------------------------------------------------------
3
+    Friend Sub SQL_匯率管理_歷史匯率清單()
4
+        ConnOpen()
5
+        SQL1 = "SELECT 年, 月, 買進匯率, 賣出匯率, 中心匯率, 美金匯率 FROM 歷史匯率表 ORDER BY 年 DESC, 月 DESC"
6
+        CmdSet_For_DGV()
7
+    End Sub
8
+    Friend Sub SQL_匯率管理_查詢指定匯率()
9
+        ConnOpen()
10
+        SQL1 = "SELECT 買進匯率, 賣出匯率, 中心匯率, 美金匯率 FROM 歷史匯率表 WHERE (年 LIKE '" & 匯率管理.年_tb.Text & "%') AND (月 LIKE '" & 匯率管理.月_tb.Text & "%')"
11
+        CmdSet_For_dr()
12
+    End Sub
13
+    Friend Sub SQL_匯率管理_修改匯率()
14
+        ConnOpen()
15
+        SQL1 = "UPDATE 歷史匯率表 SET 買進匯率 = '" & 匯率管理.買進匯率_tb.Text & "', 賣出匯率 = '" & 匯率管理.賣出匯率_tb.Text & "', 中心匯率 = '" & 匯率管理.目前匯率_tb.Text & "', 
16
+                                      美金匯率 = '" & 匯率管理.美金匯率_tb.Text & "'  
17
+                WHERE (年 LIKE '" & 匯率管理.年_tb.Text & "%') AND (月 LIKE '" & 匯率管理.月_tb.Text & "%')"
18
+        CmdSet_For_dr()
19
+    End Sub
20
+    Friend Sub SQL_匯率管理_新增匯率()
21
+        ConnOpen()
22
+        SQL1 = "INSERT INTO 歷史匯率表 (年, 月, 買進匯率, 賣出匯率, 中心匯率, 美金匯率) VALUES ('" & 匯率管理.年_tb.Text & "','" & 匯率管理.月_tb.Text & "
23
+                          ','" & 匯率管理.買進匯率_tb.Text & "', '" & 匯率管理.賣出匯率_tb.Text & "', '" & 匯率管理.目前匯率_tb.Text & "', '" & 匯率管理.美金匯率_tb.Text & "')"
24
+        CmdSet_For_dr()
25
+    End Sub
26
+    Friend Sub SQL_匯率管理_查詢人民幣匯率()
27
+        ConnOpen()
28
+        SQL1 = "SELECT 匯率 FROM 匯率表 WHERE (對應 = '人民幣兌台幣')"
29
+        CmdSet_For_dr()
30
+    End Sub
31
+    Friend Sub SQL_匯率管理_修改人民幣匯率()
32
+        ConnOpen()
33
+        SQL1 = "UPDATE 匯率表 SET 匯率 = '" & 匯率管理.目前匯率_tb.Text & "' WHERE (對應 = '人民幣兌台幣')"
34
+        CmdSet_For_dr()
35
+    End Sub
36
+    '---------------------會計科目管理.------------------------------------------------------------------------------------------------------------------------------------------
37
+    Friend Sub SQL_會計科目管理_查詢會計科目()
38
+        ConnOpen()
39
+        SQL1 = "SELECT 第一階, 第二階, 會計科目, 編號, 層級, 英文名稱, 統制科目, 抵銷科目, 停用, 附註, 顯示 FROM  會計科目 WHERE 編號 LIKE N'" & 會計科目管理.ComboBox2.Text & "%' ORDER BY  編號"
40
+        CmdSet_For_DGV()
41
+    End Sub
42
+    Friend Sub SQL_會計科目管理_查詢第一階編號()
43
+        ConnOpen()
44
+        SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目 GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號"
45
+        CmdSet_For_dr()
46
+    End Sub
47
+    Friend Sub SQL_會計科目管理_查詢第二階編號()
48
+        ConnOpen()
49
+        SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE N'" & 會計科目管理.ComboBox2.Text & "') AND (層級 LIKE '" & 會計科目管理.ComboBox5.Text & "')
50
+                GROUP BY   LEFT(編號, 7), 第二階, 層級 ORDER BY   編號"
51
+        CmdSet_For_dr()
52
+    End Sub
53
+    Friend Sub SQL_會計科目管理_查詢最後一筆編號1()
54
+        ConnOpen()
55
+        SQL1 = "SELECT TOP (1) LEFT(編號, 7) AS 編號 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE '" & 會計科目管理.ComboBox2.Text & "') AND (層級 LIKE '2') 
56
+                                GROUP BY   LEFT(編號, 7) ORDER BY   編號 DESC"
57
+        CmdSet_For_dr()
58
+    End Sub
59
+    Friend Sub SQL_會計科目管理_查詢最後一筆編號2()
60
+        ConnOpen()
61
+        SQL1 = "SELECT TOP (1) LEFT(編號, 10) AS 編號 FROM  會計科目 WHERE (LEFT(編號, 7) LIKE '" & 會計科目管理.ComboBox4.Text & "') AND (層級 LIKE '3') 
62
+                                GROUP BY   LEFT(編號, 10) ORDER BY   編號 DESC"
63
+        CmdSet_For_dr()
64
+    End Sub
65
+    Friend Sub SQL_會計科目管理_修改會計科目()
66
+        ConnOpen()
67
+        SQL1 = "UPDATE 會計科目 SET 會計科目 = N'" & 會計科目管理.TextBox8.Text & "', 層級 = N'" & 會計科目管理.ComboBox6.Text & "', 
68
+                                    英文名稱 = N'" & 會計科目管理.英文名稱_tb.Text & "', 統制科目 = N'" & 會計科目管理.統制科目_cb.Checked & "',   
69
+                                    抵銷科目 = N'" & 會計科目管理.抵銷科目_cb.Checked & "', 停用 = N'" & 會計科目管理.停用_cb.Checked & "', 
70
+                                    附註 = N'" & 會計科目管理.TextBox18.Text & "', 第一階 = N'" & 會計科目管理.ComboBox1.Text & "', 第二階 = N'" & 會計科目管理.ComboBox3.Text & "' , 
71
+                                    顯示 = N'" & 會計科目管理.顯示_cb.Checked & "'
72
+                WHERE 編號 LIKE N'" & 會計科目管理.TextBox16.Text & "'"
73
+        CmdSet_For_dr()
74
+    End Sub
75
+    Friend Sub SQL_會計科目管理_刪除會計科目()
76
+        ConnOpen()
77
+        SQL1 = "DELETE FROM 會計科目 WHERE (編號 = N'" & 會計科目管理.TextBox16.Text & "')"
78
+        CmdSet_For_dr()
79
+    End Sub
80
+    Friend Sub SQL_會計科目管理_查詢會計科目編號()
81
+        ConnOpen()
82
+        SQL1 = "SELECT 編號 FROM 會計科目 WHERE 編號 LIKE '" & 會計科目管理.TextBox16.Text & "'"
83
+        CmdSet_For_dr()
84
+    End Sub
85
+    Friend Sub SQL_會計科目管理_快速修改會計科目()
86
+        ConnOpen()
87
+        SQL1 = "UPDATE 會計科目 SET 會計科目 = N'" & PA1 & "', 層級 = N'" & PA2 & "', 英文名稱 = N'" & PA3 & "', 統制科目 = N'" & PA4 &
88
+                                    "', 抵銷科目 = N'" & PA5 & "', 停用 = N'" & PA6 & "', 附註 = N'" & PA7 & "', 第一階 = N'" & PA8 &
89
+                                    "', 第二階 = N'" & PA9 & "' , 顯示 = N'" & PA10 & "'
90
+                WHERE  編號 LIKE N'" & PA11 & "'"
91
+        CmdSet_For_dr()
92
+    End Sub
93
+    Friend Sub SQL_會計科目管理_新增會計科目編號1()
94
+        ConnOpen()
95
+        SQL1 = "INSERT INTO 會計科目 (會計科目, 編號, 層級, 英文名稱, 統制科目, 抵銷科目, 停用, 附註, 第一階, 第二階, 顯示) 
96
+                                  VALUES (N'" & 會計科目管理.TextBox8.Text & "', N'" & 會計科目管理.TextBox16.Text & "', N'" & 會計科目管理.ComboBox6.Text & "', N'" & 會計科目管理.英文名稱_tb.Text &
97
+                                      "', N'" & 會計科目管理.統制科目_cb.Checked & "', N'" & 會計科目管理.抵銷科目_cb.Checked & "', N'" & 會計科目管理.停用_cb.Checked & "', N'" & 會計科目管理.TextBox18.Text &
98
+                                      "', N'" & 會計科目管理.TextBox8.Text & "', N'" & 會計科目管理.TextBox8.Text & "', N'" & 會計科目管理.顯示_cb.Checked & "')"
99
+        CmdSet_For_dr()
100
+    End Sub
101
+    Friend Sub SQL_會計科目管理_新增會計科目編號2()
102
+        ConnOpen()
103
+        SQL1 = "INSERT INTO 會計科目 (會計科目, 編號, 層級, 英文名稱, 統制科目, 抵銷科目, 停用, 附註, 第一階, 第二階, 顯示) 
104
+                                  VALUES (N'" & 會計科目管理.TextBox8.Text & "', N'" & 會計科目管理.TextBox16.Text & "', N'" & 會計科目管理.ComboBox6.Text & "', N'" & 會計科目管理.英文名稱_tb.Text &
105
+                                      "', N'" & 會計科目管理.統制科目_cb.Checked & "', N'" & 會計科目管理.抵銷科目_cb.Checked & "', N'" & 會計科目管理.停用_cb.Checked & "', N'" & 會計科目管理.TextBox18.Text &
106
+                                      "', N'" & 會計科目管理.ComboBox1.Text & "', N'" & 會計科目管理.TextBox8.Text & "', N'" & 會計科目管理.顯示_cb.Checked & "')"
107
+        CmdSet_For_dr()
108
+    End Sub
109
+    Friend Sub SQL_會計科目管理_新增會計科目編號3()
110
+        ConnOpen()
111
+        SQL1 = "INSERT INTO 會計科目 (會計科目, 編號, 層級, 英文名稱, 統制科目, 抵銷科目, 停用, 附註, 第一階, 第二階, 顯示) 
112
+                                  VALUES (N'" & 會計科目管理.TextBox8.Text & "', N'" & 會計科目管理.TextBox16.Text & "', N'" & 會計科目管理.ComboBox6.Text & "', N'" & 會計科目管理.英文名稱_tb.Text &
113
+                                      "', N'" & 會計科目管理.統制科目_cb.Checked & "', N'" & 會計科目管理.抵銷科目_cb.Checked & "', N'" & 會計科目管理.停用_cb.Checked & "', N'" & 會計科目管理.TextBox18.Text &
114
+                                      "', N'" & 會計科目管理.ComboBox1.Text & "', N'" & 會計科目管理.ComboBox3.Text & "', N'" & 會計科目管理.顯示_cb.Checked & "')"
115
+        CmdSet_For_dr()
116
+    End Sub
117
+    '---------------------營運成本收支單申請.------------------------------------------------------------------------------------------------------------------------------------------
118
+    Friend Sub SQL_營運成本收支單申請_審核人1()
119
+        PA20 = "WHERE (審核人 LIKE '') "
120
+    End Sub
121
+    Friend Sub SQL_營運成本收支單申請_審核人2()
122
+        PA20 = "WHERE (審核人 LIKE '作廢%') "
123
+    End Sub
124
+    Friend Sub SQL_營運成本收支單申請_審核人3()
125
+        PA20 = "WHERE (審核人 NOT LIKE '作廢%') AND (審核人 NOT LIKE '') "
126
+    End Sub
127
+    Friend Sub SQL_營運成本收支單申請_查詢公帳控制表()
128
+        ConnOpen()
129
+        SQL1 = "SELECT 支付單號 AS 收支單號, 申請日期, 審核日期, 申請人 FROM 公帳控制表 " & PA20 & " ORDER BY 申請日期 DESC"
130
+        CmdSet_For_DGV()
131
+    End Sub
132
+    Friend Sub SQL_營運成本收支單申請_查詢費用清單()
133
+        ConnOpen()
134
+        SQL1 = "SELECT      公帳流水帳.支付單號, 公帳流水帳.項次, 會計科目.會計科目, 公帳流水帳.明細 AS 用途, 
135
+                            公帳流水帳.零用金, 公帳流水帳.支票數 AS 支票, Cast(公帳流水帳.收入 AS money) AS 現金, 
136
+                            Cast(公帳流水帳.支出 AS money) AS 支出, 公帳流水帳.備註 AS 票期, 公帳流水帳.匯率, 公帳流水帳.銀行 AS 幣別, 公帳流水帳.類別, 公帳流水帳.流水號
137
+                FROM        公帳流水帳 INNER JOIN
138
+                            會計科目 ON 公帳流水帳.類別 = 會計科目.編號
139
+                WHERE       (公帳流水帳.支付單號 LIKE '" & 營運成本收支單申請.營運成本收支單號_tb.Text & "')
140
+                ORDER BY    公帳流水帳.項次"
141
+        CmdSet_For_DGV()
142
+    End Sub
143
+    Friend Sub SQL_營運成本收支單申請_查詢公帳控制表會計科目()
144
+        ConnOpen()
145
+        SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (LEFT(編號, 7) LIKE N'" & 營運成本收支單申請.ComboBox4.Text & "') AND (停用 = 0) AND (統制科目 = 0) ORDER BY 編號"
146
+        CmdSet_For_dr()
147
+    End Sub
148
+    Friend Sub SQL_營運成本收支單申請_查詢最後一筆公帳控制表會計科目()
149
+        ConnOpen()
150
+        SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  WHERE (停用 = 0) GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號"
151
+        CmdSet_For_dr()
152
+    End Sub
153
+    Friend Sub SQL_營運成本收支單申請_查詢最左邊公帳控制表會計科目()
154
+        ConnOpen()
155
+        SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE N'" & 營運成本收支單申請.ComboBox2.Text & "') AND (層級 NOT LIKE '3') AND (停用 = 0)
156
+                GROUP BY   LEFT(編號, 7), 第二階, 層級 ORDER BY   編號"
157
+        CmdSet_For_dr()
158
+    End Sub
159
+    Friend Sub SQL_營運成本收支單申請_查詢匯率()
160
+        ConnOpen()
161
+        SQL1 = "SELECT 中心匯率, 美金匯率 FROM 歷史匯率表 
162
+                WHERE (年 LIKE '" & Strings.Left(Format(營運成本收支單申請.申請日期_dtp.Value, "yyyyMMdd"), 4) & "%') AND (月 LIKE '" & Strings.Mid(Format(營運成本收支單申請.申請日期_dtp.Value, "yyyyMMdd"), 5, 2) & "%')"
163
+        CmdSet_For_dr()
164
+    End Sub
165
+    Friend Sub SQL_營運成本收支單申請_營運成本會計科目查詢()
166
+        ConnOpen()
167
+        SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (會計科目 LIKE N'%" & 營運成本收支單申請.關鍵字查詢會計科目_tb.Text & "%') AND (停用 = 0) AND (統制科目 = 0) ORDER BY 編號"
168
+        CmdSet_For_dr()
169
+    End Sub
170
+    Friend Sub SQL_會計科目管理_修改收支單申請表()
171
+        ConnOpen()
172
+        SQL1 = "UPDATE 公帳流水帳 SET  明細 = N'" & PA1 & "', 支出 = N'" & PA2 & "', 
173
+                       備註 = N'" & PA3 & "' , 類別 = N'" & PA4 & "', 收入 = N'" & PA5 & "',
174
+                       零用金 = N'" & PA6 & "', 支票數 = N'" & PA7 & "', 匯率 = N'" & PA8 & "'
175
+                WHERE  (支付單號 LIKE '" & 營運成本收支單申請.營運成本收支單號_tb.Text & "' AND 項次 LIKE '" & PA9 & "')"
176
+        CmdSet_For_dr()
177
+    End Sub
178
+    Friend Sub SQL_營運成本收支單申請_查詢收支單公帳流水號()
179
+        ConnOpen()
180
+        SQL1 = "SELECT 流水號 FROM 公帳流水帳 WHERE (流水號 ='" & PA19 & "')"
181
+        CmdSet_For_dr()
182
+    End Sub
183
+    Friend Sub SQL_營運成本收支單申請_查詢第一筆公帳支付單號()
184
+        ConnOpen()
185
+        SQL1 = "SELECT TOP (1)  支付單號 FROM 公帳控制表 WHERE ( 支付單號 LIKE '" & 營運成本收支單申請.營運成本收支單號_tb.Text & "')"
186
+        CmdSet_For_dr()
187
+    End Sub
188
+    Friend Sub SQL_營運成本收支單申請_新增一筆公帳控制表()
189
+        ConnOpen()
190
+        SQL1 = "INSERT INTO 公帳控制表 (支付單號, 申請人, 申請日期, 審核人, 審核日期, 會計, 作帳日期, 出納, 出納日期, 備註, 公司編號) " &
191
+               "VALUES (N'" & 營運成本收支單申請.營運成本收支單號_tb.Text & "', N'" & gUserName & "', N'" & DTP & "', N'', N'', N'', N'', N'', N'', N'', N'雅邸家具')"
192
+        CmdSet_For_dr()
193
+    End Sub
194
+    Friend Sub SQL_會計科目管理_開立零用金支付單()
195
+        ConnOpen()
196
+        SQL1 = "INSERT INTO 公帳流水帳 (流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員, 支付單號, 項次, 會計, 出納, 現金, 備用金, 公帳, 支票, 
197
+                            出納日期, 零用金, 支票數, 匯率, 備註) 
198
+                    VALUES (N'" & PA19 & "', N'" & PA21 & "', N'" & DTP & "', N'" & PA22 & "', N'" & PA23 & "', N'" & PA24 & "', N'" & PA25 & "', '', 
199
+                            N'" & gUserName & "', N'" & 營運成本收支單申請.營運成本收支單號_tb.Text & "', N'" & PA26 & "', '1', '0', '0', '0', '0', '0', '" & DTP & "', N'" & PA27 & "', 
200
+                            N'" & PA28 & "', N'" & PA29 & "', N'" & PA30 & "')"
201
+        CmdSet_For_DGV()
202
+    End Sub
203
+    Friend Sub SQL_營運成本收支單申請_刪除公帳控制表()
204
+        ConnOpen()
205
+        SQL1 = "DELETE FROM 公帳控制表 WHERE (支付單號 LIKE '" & 營運成本收支單申請.營運成本收支單號_tb.Text & "')"
206
+        CmdSet_For_dr()
207
+    End Sub
208
+    Friend Sub SQL_營運成本收支單申請_刪除公帳流水帳()
209
+        ConnOpen()
210
+        SQL1 = "DELETE FROM 公帳流水帳 WHERE (支付單號 LIKE '" & 營運成本收支單申請.營運成本收支單號_tb.Text & "')"
211
+        CmdSet_For_dr()
212
+    End Sub
213
+    Friend Sub SQL_營運成本收支單申請_刪除公帳流水帳支付單號()
214
+        ConnOpen()
215
+        SQL1 = "DELETE FROM 公帳流水帳 WHERE (支付單號 LIKE '" & 營運成本收支單申請.營運成本收支單號_tb.Text & "' AND 項次 LIKE '" & 營運成本收支單申請.選擇項次_tb.Text & "')"
216
+        CmdSet_For_dr()
217
+    End Sub
218
+    Friend Sub SQL_營運成本收支單申請_修改公帳流水帳支付單號()
219
+        ConnOpen()
220
+        SQL1 = "UPDATE 公帳流水帳 SET 項次 = N'" & PA18 & "' WHERE (支付單號 LIKE '" & 營運成本收支單申請.營運成本收支單號_tb.Text & "' AND 項次 LIKE '" & PA17 & "')"
221
+        CmdSet_For_dr()
222
+    End Sub
223
+    Friend Sub SQL_營運成本收支單申請_查詢最後一筆公帳支付單號()
224
+        ConnOpen()
225
+        SQL1 = "SELECT TOP(1) 項次 FROM 公帳流水帳 WHERE 支付單號 LIKE '" & 營運成本收支單申請.營運成本收支單號_tb.Text & "' ORDER BY 項次 DESC"
226
+        CmdSet_For_dr()
227
+    End Sub
228
+    Friend Sub SQL_營運成本收支單申請_新增公帳流水帳資料()
229
+        ConnOpen()
230
+        SQL1 = "INSERT INTO 公帳流水帳 (流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員, 支付單號, 項次, 會計, 出納, 現金, 備用金, 公帳, 支票, 
231
+                            出納日期, 零用金, 支票數, 匯率, 備註) " &
232
+                   "VALUES (N'" & PA19 & "', N'" & 營運成本收支單申請.幣別_cb.Text & "', N'" & DTP & "', N'" & 營運成本收支單申請.ComboBox6.Text & "', N'0', N'0', N'', N'" & gUserName & "', N'" & 營運成本收支單申請.營運成本收支單號_tb.Text & "', N'" & PA15 &
233
+                        "', N'0', N'0', N'0', N'0', N'0', N'0', N'" & DTP & "', N'0', N'0', N'" & PA16 & "', N'')"
234
+        CmdSet_For_dr()
235
+    End Sub
236
+    '---------------------營運成本收支單審核.------------------------------------------------------------------------------------------------------------------------------------------
237
+    Friend Sub SQL_營運成本收支單審核_審核人1()
238
+        PA = "WHERE (審核人 LIKE '') "
239
+    End Sub
240
+    Friend Sub SQL_營運成本收支單審核_審核人2()
241
+        PA = "WHERE (審核人 LIKE '作廢%') "
242
+    End Sub
243
+    Friend Sub SQL_營運成本收支單審核_審核人3()
244
+        ConnOpen()
245
+        SQL1 = "UPDATE 公帳控制表 SET 審核人 = N'作廢-" & gUserName & "', 審核日期 = N'" & DTP & "', 備註 = N'" & PA & "' WHERE (支付單號 = N'" & 營運成本收支單審核.營運成本收支單號_tb.Text & "')"
246
+        CmdSet_For_dr()
247
+    End Sub
248
+    Friend Sub SQL_營運成本收支單審核_查詢收支單審核()
249
+        ConnOpen()
250
+        SQL1 = "SELECT 支付單號 AS 收支單號, 申請日期, 審核日期, 申請人 FROM 公帳控制表 " & PA & " ORDER BY 支付單號 DESC"
251
+        CmdSet_For_DGV()
252
+    End Sub
253
+    Friend Sub SQL_營運成本收支單審核_查詢費用清單()
254
+        ConnOpen()
255
+        SQL1 = "SELECT      公帳流水帳.支付單號, 公帳流水帳.項次, 會計科目.會計科目, 公帳流水帳.明細 AS 用途, 
256
+                            Cast(公帳流水帳.零用金 AS money) AS 零用金, Cast(公帳流水帳.支票數 AS money) AS 支票, Cast(公帳流水帳.收入 AS money) AS 現金, 
257
+                            Cast(公帳流水帳.支出 AS money) AS 支出, 公帳流水帳.備註 AS 票期, 公帳流水帳.匯率, 公帳流水帳.銀行 AS 幣別, 公帳流水帳.類別, 公帳流水帳.流水號
258
+                FROM        公帳流水帳 INNER JOIN
259
+                            會計科目 ON 公帳流水帳.類別 = 會計科目.編號
260
+                WHERE      (公帳流水帳.支付單號 LIKE '" & 營運成本收支單審核.營運成本收支單號_tb.Text & "')
261
+                ORDER BY    公帳流水帳.項次"
262
+        CmdSet_For_DGV()
263
+    End Sub
264
+    Friend Sub SQL_營運成本收支單審核_查詢圖片流水號()
265
+        ConnOpen()
266
+        SQL1 = "SELECT 圖片流水號 AS 圖檔編碼, 簽名檔人名 FROM YD主管簽名檔管理 ORDER BY 圖片流水號 DESC"
267
+        CmdSet_For_DGV()
268
+    End Sub
269
+    Friend Sub SQL_營運成本收支單審核_查詢簽名檔圖片()
270
+        ConnOpen()
271
+        SQL1 = "SELECT 簽名檔圖片 FROM YD主管簽名檔管理 WHERE 圖片流水號 LIKE '" & 營運成本收支單審核.圖片編碼_tb.Text & "'"
272
+        CmdSet_For_dr()
273
+    End Sub
274
+    Friend Sub SQL_營運成本收支單審核_查詢簽名編碼()
275
+        ConnOpen()
276
+        SQL1 = "SELECT 簽名編碼 FROM 公帳控制表 WHERE 簽名編碼 LIKE '" & 營運成本收支單審核.驗證碼_tb.Text & "'"
277
+        CmdSet_For_dr()
278
+    End Sub
279
+    Friend Sub SQL_營運成本收支單審核_修改公帳控制表()
280
+        ConnOpen()
281
+        SQL1 = "UPDATE 公帳控制表 SET 審核人 = N'" & gUserName & "', 審核日期 = N'" & DTP & "', 核准圖檔 = N'" & 營運成本收支單審核.圖片編碼_tb.Text & "', 簽名編碼 = N'" &
282
+                                                     營運成本收支單審核.驗證碼_tb.Text & "', 出納 = '" & gUserName & "', 出納日期 = N'" & DTP & "'
283
+                WHERE (支付單號 = N'" & 營運成本收支單審核.營運成本收支單號_tb.Text & "')"
284
+        CmdSet_For_dr()
285
+    End Sub
286
+    Friend Sub SQL_營運成本收支單審核_修改公帳流水帳()
287
+        ConnOpen()
288
+        SQL1 = "UPDATE 公帳流水帳 SET 出納 = '1', 出納日期 = N'" & DTP & "'
289
+                WHERE (支付單號 LIKE '" & 營運成本收支單審核.營運成本收支單號_tb.Text & "')"
290
+        CmdSet_For_dr()
291
+    End Sub
292
+    Friend Sub SQL_營運成本收支單審核_修改公帳流水帳備用金()
293
+        ConnOpen()
294
+        SQL1 = "UPDATE 公帳流水帳 SET  備用金 = N'1' WHERE (支付單號 LIKE '" & 營運成本收支單審核.營運成本收支單號_tb.Text & "' AND 項次 LIKE '" & PA1 & "')"
295
+        CmdSet_For_dr()
296
+    End Sub
297
+    Friend Sub SQL_營運成本收支單審核_修改公帳流水帳現金()
298
+        ConnOpen()
299
+        SQL1 = "UPDATE 公帳流水帳 SET  現金 = N'1' WHERE (支付單號 LIKE '" & 營運成本收支單審核.營運成本收支單號_tb.Text & "' AND 項次 LIKE '" & PA1 & "')"
300
+        CmdSet_For_dr()
301
+    End Sub
302
+    Friend Sub SQL_營運成本收支單審核_修改公帳流水帳支出()
303
+        ConnOpen()
304
+        SQL1 = "UPDATE 公帳流水帳 SET  公帳 = N'1' WHERE (支付單號 LIKE '" & 營運成本收支單審核.營運成本收支單號_tb.Text & "' AND 項次 LIKE '" & PA1 & "')"
305
+        CmdSet_For_dr()
306
+    End Sub
307
+    '---------------------營運成本收支單一覽表.-------------------------------------------------------------------------------------------------------------------------------------------------
308
+    Friend Sub SQL_營運成本收支單一覽表_查詢清單()
309
+        ConnOpen()
310
+        SQL1 = "SELECT 支付單號 AS 收支單號, 申請人, 申請日期, 審核人, 審核日期, 核准圖檔,  簽名編碼 FROM 公帳控制表 
311
+                WHERE (審核人 NOT LIKE '') AND (審核人 NOT LIKE '作廢%') AND 
312
+                審核日期 BETWEEN '" & Strings.Format(營運成本收支單一覽表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(營運成本收支單一覽表.結束日期_dtp.Value, "yyyy/MM/dd") & "'
313
+                ORDER BY 審核日期 DESC"
314
+        CmdSet_For_DGV()
315
+    End Sub
316
+    Friend Sub SQL_營運成本收支單一覽表_查詢清單2()
317
+        ConnOpen()
318
+        SQL1 = "SELECT      LEFT(公帳控制表.審核日期, 7) AS 日期, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 
319
+                            會計科目.會計科目 AS 子細項, SUM(公帳流水帳.零用金) AS 零用金, SUM(公帳流水帳.支票數) 
320
+                            AS 支票, SUM(Cast(公帳流水帳.收入 AS money)) AS 現金, SUM(Cast(公帳流水帳.支出 AS money)) AS 支出, 公帳流水帳.銀行 AS 幣別, 公帳流水帳.匯率
321
+                FROM        公帳控制表 RIGHT OUTER JOIN
322
+                            公帳流水帳 ON 公帳控制表.支付單號 = 公帳流水帳.支付單號 RIGHT OUTER JOIN
323
+                            會計科目 ON 公帳流水帳.類別 = 會計科目.編號
324
+                WHERE      (公帳控制表.審核日期 BETWEEN '" & Strings.Format(營運成本收支單一覽表.開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(營運成本收支單一覽表.結束日期_dtp.Value, "yyyy/MM/dd") & "')
325
+                GROUP BY    會計科目.第一階, 會計科目.第二階, 會計科目.會計科目, LEFT(會計科目.編號, 7), 
326
+                            LEFT(公帳控制表.審核日期, 7), 公帳流水帳.銀行, 公帳流水帳.匯率
327
+                ORDER BY    幣別, LEFT(公帳控制表.審核日期, 7), LEFT(會計科目.編號, 7)"
328
+        CmdSet_For_DGV()
329
+    End Sub
330
+    Friend Sub SQL_營運成本收支單一覽表_查詢費用清單()
331
+        ConnOpen()
332
+        SQL1 = "SELECT      公帳流水帳.支付單號, 公帳流水帳.項次, 會計科目.會計科目, 公帳流水帳.明細 AS 用途, 
333
+                            Cast(公帳流水帳.零用金 AS money) AS 零用金, Cast(公帳流水帳.支票數 AS money) AS 支票, Cast(公帳流水帳.收入 AS money) AS 現金, 
334
+                            Cast(公帳流水帳.支出 AS money) AS 支出, 公帳流水帳.備註 AS 票期, 公帳流水帳.匯率, 公帳流水帳.銀行 AS 幣別, 公帳流水帳.類別, 公帳流水帳.流水號
335
+                FROM        公帳流水帳 INNER JOIN
336
+                            會計科目 ON 公帳流水帳.類別 = 會計科目.編號
337
+                WHERE      (公帳流水帳.支付單號 LIKE '" & 營運成本收支單一覽表.收支單號_tb.Text & "')
338
+                ORDER BY    公帳流水帳.項次"
339
+        CmdSet_For_DGV()
340
+    End Sub
341
+    Friend Sub SQL_營運成本收支單一覽表_查詢簽名檔圖片()
342
+        ConnOpen()
343
+        SQL1 = "SELECT 簽名檔圖片 FROM YD主管簽名檔管理 WHERE 圖片流水號 LIKE '" & 營運成本收支單一覽表.圖片編碼_tb.Text & "'"
344
+        CmdSet_For_dr()
345
+    End Sub
346
+    '---------------------營運成本收支單_對帳表.----------------------------------------------------------------------------------------------------------------------------------------------
347
+    Friend Sub SQL_營運成本收支單對帳表_查詢最後一筆清單()
348
+        ConnOpen()
349
+        SQL1 = "SELECT      公帳控制表.支付單號 AS 收支單號, 公帳控制表.申請人, 公帳控制表.申請日期, 公帳控制表.審核人, 
350
+                            公帳控制表.審核日期, 公帳流水帳.項次, 會計科目.會計科目, 公帳流水帳.明細 AS 用途與內容, 
351
+                            公帳流水帳.零用金, 公帳流水帳.支票數 AS 支票, Cast(公帳流水帳.收入 AS money) AS 現金, 
352
+                            Cast(公帳流水帳.支出 AS money) AS 支出, 公帳流水帳.備註 AS 票期, 公帳流水帳.會計, 公帳流水帳.日期 AS 作帳日期, 
353
+                            公帳流水帳.出納 AS 點交, 公帳流水帳.出納日期 AS 點交日期, 公帳流水帳.備用金 AS 零用金點交, 
354
+                            公帳流水帳.支票 AS 支票兌現, 公帳流水帳.現金 AS 現金點交, 公帳流水帳.公帳 AS 支出點交, 公帳流水帳.匯率, 公帳流水帳.銀行 AS 幣別
355
+                FROM        公帳流水帳 INNER JOIN
356
+                            會計科目 ON 公帳流水帳.類別 = 會計科目.編號 FULL OUTER JOIN
357
+                            公帳控制表 ON 公帳流水帳.支付單號 = 公帳控制表.支付單號
358
+                WHERE      (公帳控制表.審核人 NOT LIKE '') AND 
359
+                           (公帳控制表.審核人 NOT LIKE '作廢%') " & PA20 & PA19 & PA18 & " 
360
+                ORDER BY    收支單號 DESC, 公帳流水帳.項次"
361
+        CmdSet_For_DGV()
362
+    End Sub
363
+    Friend Sub SQL_營運成本收支單對帳表_查詢最後一筆年份清單()
364
+        ConnOpen()
365
+        SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC"
366
+        CmdSet_For_dr()
367
+    End Sub
368
+    Friend Sub SQL_營運成本收支單對帳表_修改會計()
369
+        ConnOpen()
370
+        SQL1 = "UPDATE 公帳流水帳 SET 會計 = N'0' WHERE (會計 IS NULL)"
371
+        CmdSet_For_dr()
372
+    End Sub
373
+    Friend Sub SQL_營運成本收支單對帳表_修改出納()
374
+        ConnOpen()
375
+        SQL1 = "UPDATE 公帳流水帳 SET 出納 = N'0' WHERE (出納 IS NULL)"
376
+        CmdSet_For_dr()
377
+    End Sub
378
+    Friend Sub SQL_營運成本收支單對帳表_修改現金()
379
+        ConnOpen()
380
+        SQL1 = "UPDATE 公帳流水帳 SET 現金 = N'0' WHERE (現金 IS NULL)"
381
+        CmdSet_For_dr()
382
+    End Sub
383
+    Friend Sub SQL_營運成本收支單對帳表_修改備用金()
384
+        ConnOpen()
385
+        SQL1 = "UPDATE 公帳流水帳 SET 備用金 = N'0' WHERE (備用金 IS NULL)"
386
+        CmdSet_For_dr()
387
+    End Sub
388
+    Friend Sub SQL_營運成本收支單對帳表_修改公帳()
389
+        ConnOpen()
390
+        SQL1 = "UPDATE 公帳流水帳 SET 公帳 = N'0' WHERE (公帳 IS NULL)"
391
+        CmdSet_For_dr()
392
+    End Sub
393
+    Friend Sub SQL_營運成本收支單對帳表_修改支票()
394
+        ConnOpen()
395
+        SQL1 = "UPDATE 公帳流水帳 SET 支票 = N'0' WHERE (支票 IS NULL)"
396
+        CmdSet_For_dr()
397
+    End Sub
398
+    Friend Sub SQL_營運成本收支單對帳表_修改日期()
399
+        ConnOpen()
400
+        SQL1 = "UPDATE 公帳流水帳 SET 日期 = N'' WHERE (日期 IS NULL)"
401
+        CmdSet_For_dr()
402
+    End Sub
403
+    Friend Sub SQL_營運成本收支單對帳表_修改出納日期()
404
+        ConnOpen()
405
+        SQL1 = "UPDATE 公帳流水帳 SET 出納日期 = N'' WHERE (出納日期 IS NULL)"
406
+        CmdSet_For_dr()
407
+    End Sub
408
+    Friend Sub SQL_營運成本收支單對帳表_修改對帳記錄存檔()
409
+        ConnOpen()
410
+        SQL1 = "UPDATE 公帳流水帳 SET 現金 = '" & PA15 & "', 備用金 = '" & PA14 & "', 
411
+                                      公帳 = '" & PA13 & "', 支票 = '" & PA12 & "' 
412
+                WHERE  支付單號   LIKE       '" & PA11 & "' AND 項次 Like '" & PA10 & "'"
413
+        CmdSet_For_DGV()
414
+    End Sub
415
+    '---------------------營運報表.-------------------------------------------------------------------------------------------------------------------------------------------------------------
416
+    Friend Sub SQL_營運報表_年份查詢()
417
+        ConnOpen()
418
+        SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC"
419
+        CmdSet_For_dr()
420
+    End Sub
421
+    Friend Sub SQL_營運報表_查詢清單()
422
+        ConnOpen()
423
+        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, EERR.細項金額
424
+                FROM        會計科目 FULL OUTER JOIN
425
+                               (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
426
+                                       SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
427
+                                FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
428
+                                WHERE (LEFT(公帳控制表_3.審核日期,4) LIKE N'" & 營運報表.年份_cb.Text & "')
429
+                                GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
430
+                            FULL OUTER JOIN
431
+                               (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
432
+                                       SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
433
+                                FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
434
+                                WHERE (LEFT(公帳控制表_2.審核日期,4) LIKE N'" & 營運報表.年份_cb.Text & "')
435
+                                GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
436
+                            FULL OUTER JOIN
437
+                               (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
438
+                                       SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
439
+                                FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
440
+                                WHERE (LEFT(公帳控制表_1.審核日期,4) LIKE N'" & 營運報表.年份_cb.Text & "')
441
+                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
442
+                WHERE     (會計科目.顯示 = 1)
443
+                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
444
+        CmdSet_For_DGV()
445
+    End Sub
446
+    Friend Sub SQL_營運報表_查詢一月份清單()
447
+        ConnOpen()
448
+        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
449
+                            EERR.細項金額, EERR.細項金額 AS [金額]
450
+                FROM        會計科目 FULL OUTER JOIN
451
+                               (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
452
+                                       SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
453
+                                FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
454
+                                WHERE (LEFT(公帳控制表_3.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/01') 
455
+                                GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
456
+                            FULL OUTER JOIN
457
+                               (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
458
+                                       SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
459
+                                FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
460
+                                WHERE (LEFT(公帳控制表_2.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/01')
461
+                                GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
462
+                            FULL OUTER JOIN
463
+                               (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
464
+                                       SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
465
+                                FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
466
+                                WHERE (LEFT(公帳控制表_1.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/01')
467
+                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
468
+                WHERE     (會計科目.顯示 = 1)
469
+                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
470
+        CmdSet_For_DGV()
471
+    End Sub
472
+    Friend Sub SQL_營運報表_查詢二月份清單()
473
+        ConnOpen()
474
+        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
475
+                            EERR.細項金額, EERR.細項金額 AS [金額]
476
+                FROM        會計科目 FULL OUTER JOIN
477
+                               (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
478
+                                       SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
479
+                                FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
480
+                                WHERE (LEFT(公帳控制表_3.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/02') 
481
+                                GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
482
+                            FULL OUTER JOIN
483
+                               (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
484
+                                       SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
485
+                                FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
486
+                                WHERE (LEFT(公帳控制表_2.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/02')
487
+                                GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
488
+                            FULL OUTER JOIN
489
+                               (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
490
+                                       SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
491
+                                FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
492
+                                WHERE (LEFT(公帳控制表_1.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/02')
493
+                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
494
+                WHERE     (會計科目.顯示 = 1)
495
+                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
496
+        CmdSet_For_DGV()
497
+    End Sub
498
+    Friend Sub SQL_營運報表_查詢三月份清單()
499
+        ConnOpen()
500
+        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
501
+                            EERR.細項金額, EERR.細項金額 AS [金額]
502
+                FROM        會計科目 FULL OUTER JOIN
503
+                               (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
504
+                                       SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
505
+                                FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
506
+                                WHERE (LEFT(公帳控制表_3.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/03') 
507
+                                GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
508
+                            FULL OUTER JOIN
509
+                               (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
510
+                                       SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
511
+                                FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
512
+                                WHERE (LEFT(公帳控制表_2.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/03')
513
+                                GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
514
+                            FULL OUTER JOIN
515
+                               (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
516
+                                       SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
517
+                                FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
518
+                                WHERE (LEFT(公帳控制表_1.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/03')
519
+                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
520
+                WHERE     (會計科目.顯示 = 1)
521
+                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
522
+        CmdSet_For_DGV()
523
+    End Sub
524
+    Friend Sub SQL_營運報表_查詢四月份清單()
525
+        ConnOpen()
526
+        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
527
+                            EERR.細項金額, EERR.細項金額 AS [金額]
528
+                FROM        會計科目 FULL OUTER JOIN
529
+                               (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
530
+                                       SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
531
+                                FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
532
+                                WHERE (LEFT(公帳控制表_3.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/04') 
533
+                                GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
534
+                            FULL OUTER JOIN
535
+                               (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
536
+                                       SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
537
+                                FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
538
+                                WHERE (LEFT(公帳控制表_2.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/04')
539
+                                GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
540
+                            FULL OUTER JOIN
541
+                               (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
542
+                                       SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
543
+                                FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
544
+                                WHERE (LEFT(公帳控制表_1.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/04')
545
+                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
546
+                WHERE     (會計科目.顯示 = 1)
547
+                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
548
+        CmdSet_For_DGV()
549
+    End Sub
550
+    Friend Sub SQL_營運報表_查詢五月份清單()
551
+        ConnOpen()
552
+        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
553
+                            EERR.細項金額, EERR.細項金額 AS [金額]
554
+                FROM        會計科目 FULL OUTER JOIN
555
+                               (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
556
+                                       SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
557
+                                FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
558
+                                WHERE (LEFT(公帳控制表_3.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/05') 
559
+                                GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
560
+                            FULL OUTER JOIN
561
+                               (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
562
+                                       SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
563
+                                FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
564
+                                WHERE (LEFT(公帳控制表_2.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/05')
565
+                                GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
566
+                            FULL OUTER JOIN
567
+                               (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
568
+                                       SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
569
+                                FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
570
+                                WHERE (LEFT(公帳控制表_1.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/05')
571
+                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
572
+                WHERE     (會計科目.顯示 = 1)
573
+                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
574
+        CmdSet_For_DGV()
575
+    End Sub
576
+    Friend Sub SQL_營運報表_查詢六月份清單()
577
+        ConnOpen()
578
+        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
579
+                            EERR.細項金額, EERR.細項金額 AS [金額]
580
+                FROM        會計科目 FULL OUTER JOIN
581
+                               (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
582
+                                       SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
583
+                                FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
584
+                                WHERE (LEFT(公帳控制表_3.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/06') 
585
+                                GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
586
+                            FULL OUTER JOIN
587
+                               (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
588
+                                       SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
589
+                                FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
590
+                                WHERE (LEFT(公帳控制表_2.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/06')
591
+                                GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
592
+                            FULL OUTER JOIN
593
+                               (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
594
+                                       SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
595
+                                FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
596
+                                WHERE (LEFT(公帳控制表_1.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/06')
597
+                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
598
+                WHERE     (會計科目.顯示 = 1)
599
+                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
600
+        CmdSet_For_DGV()
601
+    End Sub
602
+    Friend Sub SQL_營運報表_查詢七月份清單()
603
+        ConnOpen()
604
+        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
605
+                            EERR.細項金額, EERR.細項金額 AS [金額]
606
+                FROM        會計科目 FULL OUTER JOIN
607
+                               (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
608
+                                       SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
609
+                                FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
610
+                                WHERE (LEFT(公帳控制表_3.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/07') 
611
+                                GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
612
+                            FULL OUTER JOIN
613
+                               (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
614
+                                       SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
615
+                                FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
616
+                                WHERE (LEFT(公帳控制表_2.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/07')
617
+                                GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
618
+                            FULL OUTER JOIN
619
+                               (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
620
+                                       SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
621
+                                FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
622
+                                WHERE (LEFT(公帳控制表_1.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/07')
623
+                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
624
+                WHERE     (會計科目.顯示 = 1)
625
+                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
626
+        CmdSet_For_DGV()
627
+    End Sub
628
+    Friend Sub SQL_營運報表_查詢八月份清單()
629
+        ConnOpen()
630
+        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
631
+                            EERR.細項金額, EERR.細項金額 AS [金額]
632
+                FROM        會計科目 FULL OUTER JOIN
633
+                               (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
634
+                                       SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
635
+                                FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
636
+                                WHERE (LEFT(公帳控制表_3.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/08') 
637
+                                GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
638
+                            FULL OUTER JOIN
639
+                               (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
640
+                                       SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
641
+                                FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
642
+                                WHERE (LEFT(公帳控制表_2.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/08')
643
+                                GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
644
+                            FULL OUTER JOIN
645
+                               (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
646
+                                       SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
647
+                                FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
648
+                                WHERE (LEFT(公帳控制表_1.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/08')
649
+                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
650
+                WHERE     (會計科目.顯示 = 1)
651
+                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
652
+        CmdSet_For_DGV()
653
+    End Sub
654
+    Friend Sub SQL_營運報表_查詢九月份清單()
655
+        ConnOpen()
656
+        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
657
+                            EERR.細項金額, EERR.細項金額 AS [金額]
658
+                FROM        會計科目 FULL OUTER JOIN
659
+                               (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
660
+                                       SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
661
+                                FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
662
+                                WHERE (LEFT(公帳控制表_3.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/09') 
663
+                                GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
664
+                            FULL OUTER JOIN
665
+                               (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
666
+                                       SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
667
+                                FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
668
+                                WHERE (LEFT(公帳控制表_2.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/09')
669
+                                GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
670
+                            FULL OUTER JOIN
671
+                               (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
672
+                                       SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
673
+                                FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
674
+                                WHERE (LEFT(公帳控制表_1.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/09')
675
+                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
676
+                WHERE     (會計科目.顯示 = 1)
677
+                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
678
+        CmdSet_For_DGV()
679
+    End Sub
680
+    Friend Sub SQL_營運報表_查詢十月份清單()
681
+        ConnOpen()
682
+        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
683
+                            EERR.細項金額, EERR.細項金額 AS [金額]
684
+                FROM        會計科目 FULL OUTER JOIN
685
+                               (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
686
+                                       SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
687
+                                FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
688
+                                WHERE (LEFT(公帳控制表_3.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/10') 
689
+                                GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
690
+                            FULL OUTER JOIN
691
+                               (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
692
+                                       SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
693
+                                FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
694
+                                WHERE (LEFT(公帳控制表_2.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/10')
695
+                                GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
696
+                            FULL OUTER JOIN
697
+                               (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
698
+                                       SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
699
+                                FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
700
+                                WHERE (LEFT(公帳控制表_1.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/10')
701
+                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
702
+                WHERE     (會計科目.顯示 = 1)
703
+                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
704
+        CmdSet_For_DGV()
705
+    End Sub
706
+    Friend Sub SQL_營運報表_查詢十一月份清單()
707
+        ConnOpen()
708
+        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
709
+                            EERR.細項金額, EERR.細項金額 AS [金額]
710
+                FROM        會計科目 FULL OUTER JOIN
711
+                               (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
712
+                                       SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
713
+                                FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
714
+                                WHERE (LEFT(公帳控制表_3.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/11') 
715
+                                GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
716
+                            FULL OUTER JOIN
717
+                               (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
718
+                                       SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
719
+                                FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
720
+                                WHERE (LEFT(公帳控制表_2.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/11')
721
+                                GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
722
+                            FULL OUTER JOIN
723
+                               (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
724
+                                       SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
725
+                                FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
726
+                                WHERE (LEFT(公帳控制表_1.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/11')
727
+                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
728
+                WHERE     (會計科目.顯示 = 1)
729
+                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
730
+        CmdSet_For_DGV()
731
+    End Sub
732
+    Friend Sub SQL_營運報表_查詢十二月份清單()
733
+        ConnOpen()
734
+        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
735
+                            EERR.細項金額, EERR.細項金額 AS [金額]
736
+                FROM        會計科目 FULL OUTER JOIN
737
+                               (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
738
+                                       SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
739
+                                FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
740
+                                WHERE (LEFT(公帳控制表_3.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/12') 
741
+                                GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
742
+                            FULL OUTER JOIN
743
+                               (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
744
+                                       SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
745
+                                FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
746
+                                WHERE (LEFT(公帳控制表_2.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/12')
747
+                                GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
748
+                            FULL OUTER JOIN
749
+                               (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
750
+                                       SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
751
+                                FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
752
+                                WHERE (LEFT(公帳控制表_1.審核日期,7) LIKE N'" & 營運報表.年份_cb.Text & "/12')
753
+                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
754
+                WHERE     (會計科目.顯示 = 1)
755
+                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
756
+        CmdSet_For_DGV()
757
+    End Sub
758
+    Friend Sub SQL_營運報表_查詢會計科目()
759
+        ConnOpen()
760
+        SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, EERR.細項金額
761
+                FROM        會計科目 FULL OUTER JOIN
762
+                               (SELECT 公帳流水帳_3.類別 AS 細項, SUM(公帳流水帳_3.零用金 * (公帳流水帳_3.匯率)) + SUM(公帳流水帳_3.支票數 * (公帳流水帳_3.匯率)) + 
763
+                                       SUM(Cast(公帳流水帳_3.收入 AS money) * (公帳流水帳_3.匯率)) - SUM(Cast(公帳流水帳_3.支出 AS money) * (公帳流水帳_3.匯率)) AS 細項金額
764
+                                FROM   公帳流水帳 AS 公帳流水帳_3 INNER JOIN 公帳控制表 AS 公帳控制表_3 ON 公帳流水帳_3.支付單號 = 公帳控制表_3.支付單號
765
+                                GROUP BY    公帳流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
766
+                            FULL OUTER JOIN
767
+                               (SELECT LEFT(公帳流水帳_2.類別, 4) AS 主碼, SUM(公帳流水帳_2.零用金 * (公帳流水帳_2.匯率)) + SUM(公帳流水帳_2.支票數 * (公帳流水帳_2.匯率)) + 
768
+                                       SUM(Cast(公帳流水帳_2.收入 AS money) * (公帳流水帳_2.匯率)) - SUM(Cast(公帳流水帳_2.支出 AS money) * (公帳流水帳_2.匯率)) AS 主項金額
769
+                                FROM   公帳流水帳 AS 公帳流水帳_2 INNER JOIN 公帳控制表 AS 公帳控制表_2 ON 公帳流水帳_2.支付單號 = 公帳控制表_2.支付單號
770
+                                GROUP BY    LEFT(公帳流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
771
+                            FULL OUTER JOIN
772
+                               (SELECT LEFT(公帳流水帳_1.類別, 7) AS 子碼, SUM(公帳流水帳_1.零用金 * (公帳流水帳_1.匯率)) + SUM(公帳流水帳_1.支票數 * (公帳流水帳_1.匯率)) + 
773
+                                       SUM(Cast(公帳流水帳_1.收入 AS money) * (公帳流水帳_1.匯率)) - SUM(Cast(公帳流水帳_1.支出 AS money) * (公帳流水帳_1.匯率)) AS 子項金額
774
+                                FROM   公帳流水帳 AS 公帳流水帳_1 INNER JOIN 公帳控制表 AS 公帳控制表_1 ON 公帳流水帳_1.支付單號 = 公帳控制表_1.支付單號
775
+                                GROUP BY    LEFT(公帳流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
776
+                WHERE     (會計科目.顯示 = 1)
777
+                ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
778
+        CmdSet_For_DGV()
779
+    End Sub
780
+End Module
781
+

+ 51
- 0
YD-ERP-SYS/Module/SQL_資料庫系統管理.vb 파일 보기

@@ -76,6 +76,7 @@
76 76
     Friend Sub SQL_系統編碼規則_送貨起車參數()
77 77
         ConnOpen() : SQL1 = "SELECT 地區, 起車, 最低售額 FROM  送貨起車參數 ORDER BY 起車" : CmdSet_For_DGV()
78 78
     End Sub
79
+
79 80
     Friend Sub SQL_系統編碼規則_物料訂製()
80 81
         ConnOpen() : SQL1 = "SELECT 訂製, 編碼 FROM 物料訂製狀態 ORDER BY 編碼 DESC" : CmdSet_For_DGV()
81 82
     End Sub
@@ -163,6 +164,22 @@
163 164
     Friend Sub SQL_系統編碼規則_倉儲狀態刪除()
164 165
         SQL1 = "DELETE FROM 倉儲狀態 WHERE (狀態 = N'" & 系統編碼規則.倉儲編碼_cb.Text & "')"
165 166
     End Sub
167
+    Friend Sub SQL_年份清單()
168
+        ConnOpen() : SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC" : CmdSet_For_DGV()
169
+    End Sub
170
+    Friend Sub SQL_年份清單新增()
171
+        SQL1 = "INSERT INTO 年份清單 (年份) VALUES (N'" & 系統編碼規則.年份_tb.Text & "')"
172
+    End Sub
173
+    Friend Sub SQL_年份清單修改()
174
+        SQL1 = "UPDATE 年份清單 SET 年份 = N'" & PA & "' WHERE 年份 LIKE N'" & 系統編碼規則.年份_tb.Text & "'"
175
+    End Sub
176
+    Friend Sub SQL_年份清單刪除()
177
+        SQL1 = "DELETE FROM 年份清單 WHERE (年份 = N'" & 系統編碼規則.年份_tb.Text & "')"
178
+    End Sub
179
+    Friend Sub SQL_年份清單查詢()
180
+        ConnOpen() : SQL1 = "SELECT 年份 FROM 年份清單 WHERE 年份 LIKE '" & PA & "'" : CmdSet_For_dr()
181
+    End Sub
182
+
166 183
     '---------------------個人帳號管理-----------------------------------------------------------------------------------------------------------------
167 184
     Friend Sub SQL_個人帳號管理_使用者資料查詢()
168 185
         ConnOpen() : SQL1 = "SELECT 姓名, 帳號, 密碼 FROM 使用者權限管理表 WHERE (姓名 = '" & gUserName & "')" : CmdSet_For_dr()
@@ -172,4 +189,38 @@
172 189
         SQL1 = "UPDATE 使用者權限管理表 SET 帳號 = '" & 個人帳號管理.帳號_tb.Text & "', 密碼 = '" & 個人帳號管理.密碼_tb.Text & "' WHERE (姓名 = '" & 個人帳號管理.姓名_tb.Text & "')"
173 190
         CmdSet_For_dr()
174 191
     End Sub
192
+    '---------------------簽名檔管理.-----------------------------------------------------------------------------------------------------------------
193
+    Friend Sub SQL_簽名檔管理_圖片流水號查詢()
194
+        ConnOpen()
195
+        SQL1 = "SELECT 圖片流水號 AS 圖檔編碼, 簽名檔人名 FROM YD主管簽名檔管理 ORDER BY 圖片流水號"
196
+        CmdSet_For_DGV()
197
+    End Sub
198
+    Friend Sub SQL_簽名檔管理_使用者權限管理表姓名查詢()
199
+        ConnOpen()
200
+        SQL1 = "SELECT 姓名 FROM 使用者權限管理表 ORDER BY 姓名"
201
+        CmdSet_For_dr()
202
+    End Sub
203
+    Friend Sub SQL_簽名檔管理_主管簽名檔查詢()
204
+        ConnOpen()
205
+        SQL1 = "SELECT 簽名檔圖片 FROM YD主管簽名檔管理 WHERE 圖片流水號 LIKE '" & 簽名檔管理.圖檔編號_tb.Text & "'"
206
+        CmdSet_For_dr()
207
+    End Sub
208
+    Friend Sub SQL_簽名檔管理_主管簽名檔新增()
209
+        ConnOpen()
210
+        SQL1 = "INSERT INTO YD主管簽名檔管理 (圖片流水號, 簽名檔人名, 簽名檔圖片) 
211
+                SELECT '" & 簽名檔管理.圖檔編號_tb.Text & "', '" & 簽名檔管理.簽名檔持有人_cb.Text & "', " &
212
+               "BULKCOLUMN FROM OPENROWSET ( BULK '" & FTP物理位置 & AA(1) & "\" & 簽名檔管理.檔案名稱_tb.Text & "', SINGLE_BLOB) AS 
213
+                EMPLOYEEPICTURE"
214
+        CmdSet_For_dr()
215
+    End Sub
216
+    Friend Sub SQL_簽名檔管理_主管簽名檔最後一筆查詢()
217
+        ConnOpen()
218
+        SQL1 = "SELECT TOP (1) 圖片流水號 FROM YD主管簽名檔管理 ORDER BY 圖片流水號 DESC"
219
+        CmdSet_For_dr()
220
+    End Sub
221
+    Friend Sub SQL_簽名檔管理_主管簽名檔刪除()
222
+        ConnOpen()
223
+        SQL1 = "DELETE FROM YD主管簽名檔管理 WHERE (圖片流水號 = N'" & 簽名檔管理.圖檔編號_tb.Text & "')"
224
+        CmdSet_For_dr()
225
+    End Sub
175 226
 End Module

+ 5
- 0
YD-ERP-SYS/Module/全域變數.vb 파일 보기

@@ -8,11 +8,16 @@
8 8
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
9 9
     Public 列印用SQL As String = "" : Public 列印用SQL2 As String : Public 公司編號 As String : Public 公司電話 As String : Public 公司統編 As String : Public 公司地址 As String
10 10
     Public 關鍵字編號 As String
11
+    '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
12
+    Public 判斷重登 As Boolean : Public 內外網 As Boolean : Public 重登確認 As Boolean : Public 主頁開啟 As Boolean
13
+    Public timeExit As Integer = 0 : Public timeExit2 As Integer = 0 : Public timeNow As Integer = 0 : Public timeNow2 As Integer = 0 : Public 密碼時限 As Integer = 30
11 14
     '----全域字串變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
12 15
     Public PA As String = "" : Public PA1 As String = "" : Public PA2 As String = "" : Public PA3 As String = "" : Public PA4 As String = "" : Public PA5 As String = ""
13 16
     Public PA6 As String = "" : Public PA7 As String = "" : Public PA8 As String = "" : Public PA9 As String = "" : Public PA10 As String = "" : Public PA11 As String = ""
14 17
     Public PA12 As String = "" : Public PA13 As String = "" : Public PA14 As String = "" : Public PA15 As String = "" : Public PA16 As String = "" : Public PA17 As String = ""
15 18
     Public PA18 As String = "" : Public PA19 As String = "" : Public PA20 As String = ""
19
+    Public PA21 As String = "" : Public PA22 As String = "" : Public PA23 As String = "" : Public PA24 As String = "" : Public PA25 As String = "" : Public PA26 As String = ""
20
+    Public PA27 As String = "" : Public PA28 As String = "" : Public PA29 As String = "" : Public PA30 As String = "" : Public PA31 As String = "" : Public PA32 As String = ""
16 21
     '----全域數字變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
17 22
     Public NU1 As Double : Public NU2 As Double : Public NU3 As Double : Public NU4 As Double : Public NU5 As Double
18 23
     '----全域布林含數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

+ 160
- 0
YD-ERP-SYS/My Project/Resources.Designer.vb 파일 보기

@@ -1110,6 +1110,26 @@ Namespace My.Resources
1110 1110
             End Get
1111 1111
         End Property
1112 1112
         
1113
+        '''<summary>
1114
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
1115
+        '''</summary>
1116
+        Friend ReadOnly Property check1() As System.Drawing.Bitmap
1117
+            Get
1118
+                Dim obj As Object = ResourceManager.GetObject("check1", resourceCulture)
1119
+                Return CType(obj,System.Drawing.Bitmap)
1120
+            End Get
1121
+        End Property
1122
+        
1123
+        '''<summary>
1124
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
1125
+        '''</summary>
1126
+        Friend ReadOnly Property check2() As System.Drawing.Bitmap
1127
+            Get
1128
+                Dim obj As Object = ResourceManager.GetObject("check2", resourceCulture)
1129
+                Return CType(obj,System.Drawing.Bitmap)
1130
+            End Get
1131
+        End Property
1132
+        
1113 1133
         '''<summary>
1114 1134
         '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
1115 1135
         '''</summary>
@@ -1130,6 +1150,26 @@ Namespace My.Resources
1130 1150
             End Get
1131 1151
         End Property
1132 1152
         
1153
+        '''<summary>
1154
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
1155
+        '''</summary>
1156
+        Friend ReadOnly Property Payment() As System.Drawing.Bitmap
1157
+            Get
1158
+                Dim obj As Object = ResourceManager.GetObject("Payment", resourceCulture)
1159
+                Return CType(obj,System.Drawing.Bitmap)
1160
+            End Get
1161
+        End Property
1162
+        
1163
+        '''<summary>
1164
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
1165
+        '''</summary>
1166
+        Friend ReadOnly Property Payment1() As System.Drawing.Bitmap
1167
+            Get
1168
+                Dim obj As Object = ResourceManager.GetObject("Payment1", resourceCulture)
1169
+                Return CType(obj,System.Drawing.Bitmap)
1170
+            End Get
1171
+        End Property
1172
+        
1133 1173
         '''<summary>
1134 1174
         '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
1135 1175
         '''</summary>
@@ -1140,6 +1180,26 @@ Namespace My.Resources
1140 1180
             End Get
1141 1181
         End Property
1142 1182
         
1183
+        '''<summary>
1184
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
1185
+        '''</summary>
1186
+        Friend ReadOnly Property pen1() As System.Drawing.Bitmap
1187
+            Get
1188
+                Dim obj As Object = ResourceManager.GetObject("pen1", resourceCulture)
1189
+                Return CType(obj,System.Drawing.Bitmap)
1190
+            End Get
1191
+        End Property
1192
+        
1193
+        '''<summary>
1194
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
1195
+        '''</summary>
1196
+        Friend ReadOnly Property pen2() As System.Drawing.Bitmap
1197
+            Get
1198
+                Dim obj As Object = ResourceManager.GetObject("pen2", resourceCulture)
1199
+                Return CType(obj,System.Drawing.Bitmap)
1200
+            End Get
1201
+        End Property
1202
+        
1143 1203
         '''<summary>
1144 1204
         '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
1145 1205
         '''</summary>
@@ -1160,6 +1220,66 @@ Namespace My.Resources
1160 1220
             End Get
1161 1221
         End Property
1162 1222
         
1223
+        '''<summary>
1224
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
1225
+        '''</summary>
1226
+        Friend ReadOnly Property Report1() As System.Drawing.Bitmap
1227
+            Get
1228
+                Dim obj As Object = ResourceManager.GetObject("Report1", resourceCulture)
1229
+                Return CType(obj,System.Drawing.Bitmap)
1230
+            End Get
1231
+        End Property
1232
+        
1233
+        '''<summary>
1234
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
1235
+        '''</summary>
1236
+        Friend ReadOnly Property Report2() As System.Drawing.Bitmap
1237
+            Get
1238
+                Dim obj As Object = ResourceManager.GetObject("Report2", resourceCulture)
1239
+                Return CType(obj,System.Drawing.Bitmap)
1240
+            End Get
1241
+        End Property
1242
+        
1243
+        '''<summary>
1244
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
1245
+        '''</summary>
1246
+        Friend ReadOnly Property Report3() As System.Drawing.Bitmap
1247
+            Get
1248
+                Dim obj As Object = ResourceManager.GetObject("Report3", resourceCulture)
1249
+                Return CType(obj,System.Drawing.Bitmap)
1250
+            End Get
1251
+        End Property
1252
+        
1253
+        '''<summary>
1254
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
1255
+        '''</summary>
1256
+        Friend ReadOnly Property Report4() As System.Drawing.Bitmap
1257
+            Get
1258
+                Dim obj As Object = ResourceManager.GetObject("Report4", resourceCulture)
1259
+                Return CType(obj,System.Drawing.Bitmap)
1260
+            End Get
1261
+        End Property
1262
+        
1263
+        '''<summary>
1264
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
1265
+        '''</summary>
1266
+        Friend ReadOnly Property Report5() As System.Drawing.Bitmap
1267
+            Get
1268
+                Dim obj As Object = ResourceManager.GetObject("Report5", resourceCulture)
1269
+                Return CType(obj,System.Drawing.Bitmap)
1270
+            End Get
1271
+        End Property
1272
+        
1273
+        '''<summary>
1274
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
1275
+        '''</summary>
1276
+        Friend ReadOnly Property Report6() As System.Drawing.Bitmap
1277
+            Get
1278
+                Dim obj As Object = ResourceManager.GetObject("Report6", resourceCulture)
1279
+                Return CType(obj,System.Drawing.Bitmap)
1280
+            End Get
1281
+        End Property
1282
+        
1163 1283
         '''<summary>
1164 1284
         '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
1165 1285
         '''</summary>
@@ -1190,6 +1310,46 @@ Namespace My.Resources
1190 1310
             End Get
1191 1311
         End Property
1192 1312
         
1313
+        '''<summary>
1314
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
1315
+        '''</summary>
1316
+        Friend ReadOnly Property Sys_Command11() As System.Drawing.Bitmap
1317
+            Get
1318
+                Dim obj As Object = ResourceManager.GetObject("Sys-Command11", resourceCulture)
1319
+                Return CType(obj,System.Drawing.Bitmap)
1320
+            End Get
1321
+        End Property
1322
+        
1323
+        '''<summary>
1324
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
1325
+        '''</summary>
1326
+        Friend ReadOnly Property Sys_Command12() As System.Drawing.Bitmap
1327
+            Get
1328
+                Dim obj As Object = ResourceManager.GetObject("Sys-Command12", resourceCulture)
1329
+                Return CType(obj,System.Drawing.Bitmap)
1330
+            End Get
1331
+        End Property
1332
+        
1333
+        '''<summary>
1334
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
1335
+        '''</summary>
1336
+        Friend ReadOnly Property Sys_Command13() As System.Drawing.Bitmap
1337
+            Get
1338
+                Dim obj As Object = ResourceManager.GetObject("Sys-Command13", resourceCulture)
1339
+                Return CType(obj,System.Drawing.Bitmap)
1340
+            End Get
1341
+        End Property
1342
+        
1343
+        '''<summary>
1344
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
1345
+        '''</summary>
1346
+        Friend ReadOnly Property Sys_Command14() As System.Drawing.Bitmap
1347
+            Get
1348
+                Dim obj As Object = ResourceManager.GetObject("Sys-Command14", resourceCulture)
1349
+                Return CType(obj,System.Drawing.Bitmap)
1350
+            End Get
1351
+        End Property
1352
+        
1193 1353
         '''<summary>
1194 1354
         '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
1195 1355
         '''</summary>

+ 74
- 26
YD-ERP-SYS/My Project/Resources.resx 파일 보기

@@ -133,12 +133,18 @@
133 133
   <data name="010" type="System.Resources.ResXFileRef, System.Windows.Forms">
134 134
     <value>..\圖片比例用\010.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
135 135
   </data>
136
-  <data name="pen" type="System.Resources.ResXFileRef, System.Windows.Forms">
137
-    <value>..\圖片\pen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
136
+  <data name="Sys-Command11" type="System.Resources.ResXFileRef, System.Windows.Forms">
137
+    <value>..\圖片\Sys-Command1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
138 138
   </data>
139 139
   <data name="071" type="System.Resources.ResXFileRef, System.Windows.Forms">
140 140
     <value>..\圖片比例用\071.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
141 141
   </data>
142
+  <data name="Report3" type="System.Resources.ResXFileRef, System.Windows.Forms">
143
+    <value>..\圖片\Report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
144
+  </data>
145
+  <data name="008" type="System.Resources.ResXFileRef, System.Windows.Forms">
146
+    <value>..\圖片比例用\008.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
147
+  </data>
142 148
   <data name="017" type="System.Resources.ResXFileRef, System.Windows.Forms">
143 149
     <value>..\圖片比例用\017.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
144 150
   </data>
@@ -154,8 +160,8 @@
154 160
   <data name="033" type="System.Resources.ResXFileRef, System.Windows.Forms">
155 161
     <value>..\圖片比例用\033.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
156 162
   </data>
157
-  <data name="008" type="System.Resources.ResXFileRef, System.Windows.Forms">
158
-    <value>..\圖片比例用\008.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
163
+  <data name="069" type="System.Resources.ResXFileRef, System.Windows.Forms">
164
+    <value>..\圖片比例用\069.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
159 165
   </data>
160 166
   <data name="067" type="System.Resources.ResXFileRef, System.Windows.Forms">
161 167
     <value>..\圖片比例用\067.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -166,6 +172,9 @@
166 172
   <data name="timg02" type="System.Resources.ResXFileRef, System.Windows.Forms">
167 173
     <value>..\圖片\timg02.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
168 174
   </data>
175
+  <data name="Sys-Command13" type="System.Resources.ResXFileRef, System.Windows.Forms">
176
+    <value>..\圖片\Sys-Command1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
177
+  </data>
169 178
   <data name="061" type="System.Resources.ResXFileRef, System.Windows.Forms">
170 179
     <value>..\圖片比例用\061.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
171 180
   </data>
@@ -175,11 +184,14 @@
175 184
   <data name="090" type="System.Resources.ResXFileRef, System.Windows.Forms">
176 185
     <value>..\圖片比例用\090.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
177 186
   </data>
187
+  <data name="pen1" type="System.Resources.ResXFileRef, System.Windows.Forms">
188
+    <value>..\圖片\pen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
189
+  </data>
178 190
   <data name="005" type="System.Resources.ResXFileRef, System.Windows.Forms">
179 191
     <value>..\圖片比例用\005.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
180 192
   </data>
181
-  <data name="006" type="System.Resources.ResXFileRef, System.Windows.Forms">
182
-    <value>..\圖片比例用\006.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
193
+  <data name="pen" type="System.Resources.ResXFileRef, System.Windows.Forms">
194
+    <value>..\圖片\pen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
183 195
   </data>
184 196
   <data name="023" type="System.Resources.ResXFileRef, System.Windows.Forms">
185 197
     <value>..\圖片比例用\023.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -223,33 +235,42 @@
223 235
   <data name="043" type="System.Resources.ResXFileRef, System.Windows.Forms">
224 236
     <value>..\圖片比例用\043.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
225 237
   </data>
238
+  <data name="Report2" type="System.Resources.ResXFileRef, System.Windows.Forms">
239
+    <value>..\圖片\Report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
240
+  </data>
226 241
   <data name="052" type="System.Resources.ResXFileRef, System.Windows.Forms">
227 242
     <value>..\圖片比例用\052.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
228 243
   </data>
244
+  <data name="pen2" type="System.Resources.ResXFileRef, System.Windows.Forms">
245
+    <value>..\圖片\pen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
246
+  </data>
229 247
   <data name="035" type="System.Resources.ResXFileRef, System.Windows.Forms">
230 248
     <value>..\圖片比例用\035.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
231 249
   </data>
232 250
   <data name="086" type="System.Resources.ResXFileRef, System.Windows.Forms">
233 251
     <value>..\圖片比例用\086.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
234 252
   </data>
253
+  <data name="check" type="System.Resources.ResXFileRef, System.Windows.Forms">
254
+    <value>..\圖片\check.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
255
+  </data>
235 256
   <data name="089" type="System.Resources.ResXFileRef, System.Windows.Forms">
236 257
     <value>..\圖片比例用\089.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
237 258
   </data>
238
-  <data name="013" type="System.Resources.ResXFileRef, System.Windows.Forms">
239
-    <value>..\圖片比例用\013.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
240
-  </data>
241
-  <data name="069" type="System.Resources.ResXFileRef, System.Windows.Forms">
242
-    <value>..\圖片比例用\069.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
243
-  </data>
244 259
   <data name="031" type="System.Resources.ResXFileRef, System.Windows.Forms">
245 260
     <value>..\圖片比例用\031.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
246 261
   </data>
262
+  <data name="Payment1" type="System.Resources.ResXFileRef, System.Windows.Forms">
263
+    <value>..\圖片\Payment.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
264
+  </data>
247 265
   <data name="timg03" type="System.Resources.ResXFileRef, System.Windows.Forms">
248 266
     <value>..\圖片\timg03.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
249 267
   </data>
250 268
   <data name="078" type="System.Resources.ResXFileRef, System.Windows.Forms">
251 269
     <value>..\圖片比例用\078.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
252 270
   </data>
271
+  <data name="004" type="System.Resources.ResXFileRef, System.Windows.Forms">
272
+    <value>..\圖片比例用\004.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
273
+  </data>
253 274
   <data name="082" type="System.Resources.ResXFileRef, System.Windows.Forms">
254 275
     <value>..\圖片比例用\082.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
255 276
   </data>
@@ -292,8 +313,8 @@
292 313
   <data name="059" type="System.Resources.ResXFileRef, System.Windows.Forms">
293 314
     <value>..\圖片比例用\059.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
294 315
   </data>
295
-  <data name="044" type="System.Resources.ResXFileRef, System.Windows.Forms">
296
-    <value>..\圖片比例用\044.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
316
+  <data name="013" type="System.Resources.ResXFileRef, System.Windows.Forms">
317
+    <value>..\圖片比例用\013.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
297 318
   </data>
298 319
   <data name="076" type="System.Resources.ResXFileRef, System.Windows.Forms">
299 320
     <value>..\圖片比例用\076.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -334,6 +355,9 @@
334 355
   <data name="030" type="System.Resources.ResXFileRef, System.Windows.Forms">
335 356
     <value>..\圖片比例用\030.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
336 357
   </data>
358
+  <data name="Report6" type="System.Resources.ResXFileRef, System.Windows.Forms">
359
+    <value>..\圖片\Report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
360
+  </data>
337 361
   <data name="034" type="System.Resources.ResXFileRef, System.Windows.Forms">
338 362
     <value>..\圖片比例用\034.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
339 363
   </data>
@@ -358,6 +382,12 @@
358 382
   <data name="024" type="System.Resources.ResXFileRef, System.Windows.Forms">
359 383
     <value>..\圖片比例用\024.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
360 384
   </data>
385
+  <data name="093" type="System.Resources.ResXFileRef, System.Windows.Forms">
386
+    <value>..\圖片比例用\093.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
387
+  </data>
388
+  <data name="070" type="System.Resources.ResXFileRef, System.Windows.Forms">
389
+    <value>..\圖片比例用\070.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
390
+  </data>
361 391
   <data name="Sys-Command1" type="System.Resources.ResXFileRef, System.Windows.Forms">
362 392
     <value>..\圖片\Sys-Command.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
363 393
   </data>
@@ -370,6 +400,9 @@
370 400
   <data name="LOGO -01" type="System.Resources.ResXFileRef, System.Windows.Forms">
371 401
     <value>..\圖片\LOGO -01.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
372 402
   </data>
403
+  <data name="044" type="System.Resources.ResXFileRef, System.Windows.Forms">
404
+    <value>..\圖片比例用\044.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
405
+  </data>
373 406
   <data name="066" type="System.Resources.ResXFileRef, System.Windows.Forms">
374 407
     <value>..\圖片比例用\066.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
375 408
   </data>
@@ -379,8 +412,8 @@
379 412
   <data name="084" type="System.Resources.ResXFileRef, System.Windows.Forms">
380 413
     <value>..\圖片比例用\084.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
381 414
   </data>
382
-  <data name="098" type="System.Resources.ResXFileRef, System.Windows.Forms">
383
-    <value>..\圖片比例用\098.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
415
+  <data name="Report1" type="System.Resources.ResXFileRef, System.Windows.Forms">
416
+    <value>..\圖片\Report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
384 417
   </data>
385 418
   <data name="015" type="System.Resources.ResXFileRef, System.Windows.Forms">
386 419
     <value>..\圖片比例用\015.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -388,17 +421,26 @@
388 421
   <data name="002" type="System.Resources.ResXFileRef, System.Windows.Forms">
389 422
     <value>..\圖片比例用\002.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
390 423
   </data>
424
+  <data name="Payment" type="System.Resources.ResXFileRef, System.Windows.Forms">
425
+    <value>..\圖片\Payment.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
426
+  </data>
391 427
   <data name="016" type="System.Resources.ResXFileRef, System.Windows.Forms">
392 428
     <value>..\圖片比例用\016.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
393 429
   </data>
394 430
   <data name="021" type="System.Resources.ResXFileRef, System.Windows.Forms">
395 431
     <value>..\圖片比例用\021.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
396 432
   </data>
433
+  <data name="098" type="System.Resources.ResXFileRef, System.Windows.Forms">
434
+    <value>..\圖片比例用\098.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
435
+  </data>
397 436
   <data name="048" type="System.Resources.ResXFileRef, System.Windows.Forms">
398 437
     <value>..\圖片比例用\048.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
399 438
   </data>
400
-  <data name="093" type="System.Resources.ResXFileRef, System.Windows.Forms">
401
-    <value>..\圖片比例用\093.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
439
+  <data name="Report4" type="System.Resources.ResXFileRef, System.Windows.Forms">
440
+    <value>..\圖片\Report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
441
+  </data>
442
+  <data name="006" type="System.Resources.ResXFileRef, System.Windows.Forms">
443
+    <value>..\圖片比例用\006.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
402 444
   </data>
403 445
   <data name="buy" type="System.Resources.ResXFileRef, System.Windows.Forms">
404 446
     <value>..\圖片\buy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -421,11 +463,14 @@
421 463
   <data name="Report" type="System.Resources.ResXFileRef, System.Windows.Forms">
422 464
     <value>..\圖片\Report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
423 465
   </data>
466
+  <data name="Report5" type="System.Resources.ResXFileRef, System.Windows.Forms">
467
+    <value>..\圖片\Report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
468
+  </data>
424 469
   <data name="card_ipod" type="System.Resources.ResXFileRef, System.Windows.Forms">
425 470
     <value>..\圖片\card_ipod.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
426 471
   </data>
427
-  <data name="004" type="System.Resources.ResXFileRef, System.Windows.Forms">
428
-    <value>..\圖片比例用\004.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
472
+  <data name="check1" type="System.Resources.ResXFileRef, System.Windows.Forms">
473
+    <value>..\圖片\check.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
429 474
   </data>
430 475
   <data name="042" type="System.Resources.ResXFileRef, System.Windows.Forms">
431 476
     <value>..\圖片比例用\042.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -433,14 +478,14 @@
433 478
   <data name="000" type="System.Resources.ResXFileRef, System.Windows.Forms">
434 479
     <value>..\圖片比例用\000.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
435 480
   </data>
436
-  <data name="070" type="System.Resources.ResXFileRef, System.Windows.Forms">
437
-    <value>..\圖片比例用\070.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
481
+  <data name="Sys-Command12" type="System.Resources.ResXFileRef, System.Windows.Forms">
482
+    <value>..\圖片\Sys-Command1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
438 483
   </data>
439 484
   <data name="055" type="System.Resources.ResXFileRef, System.Windows.Forms">
440 485
     <value>..\圖片比例用\055.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
441 486
   </data>
442
-  <data name="001" type="System.Resources.ResXFileRef, System.Windows.Forms">
443
-    <value>..\圖片比例用\001.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
487
+  <data name="check2" type="System.Resources.ResXFileRef, System.Windows.Forms">
488
+    <value>..\圖片\check.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
444 489
   </data>
445 490
   <data name="046" type="System.Resources.ResXFileRef, System.Windows.Forms">
446 491
     <value>..\圖片比例用\046.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -457,13 +502,16 @@
457 502
   <data name="053" type="System.Resources.ResXFileRef, System.Windows.Forms">
458 503
     <value>..\圖片比例用\053.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
459 504
   </data>
505
+  <data name="001" type="System.Resources.ResXFileRef, System.Windows.Forms">
506
+    <value>..\圖片比例用\001.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
507
+  </data>
460 508
   <data name="094" type="System.Resources.ResXFileRef, System.Windows.Forms">
461 509
     <value>..\圖片比例用\094.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
462 510
   </data>
463 511
   <data name="029" type="System.Resources.ResXFileRef, System.Windows.Forms">
464 512
     <value>..\圖片比例用\029.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
465 513
   </data>
466
-  <data name="check" type="System.Resources.ResXFileRef, System.Windows.Forms">
467
-    <value>..\圖片\check.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
514
+  <data name="Sys-Command14" type="System.Resources.ResXFileRef, System.Windows.Forms">
515
+    <value>..\圖片\Sys-Command1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
468 516
   </data>
469 517
 </root>

+ 114
- 4
YD-ERP-SYS/YD-ERP-SYS.Designer.vb 파일 보기

@@ -74,6 +74,16 @@ Partial Class YD_ERP_SYS
74 74
         Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
75 75
         Me.物料檔案_tsm = New System.Windows.Forms.ToolStripMenuItem()
76 76
         Me.倉儲分區控制表_tsm = New System.Windows.Forms.ToolStripMenuItem()
77
+        Me.財務系統管理ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
78
+        Me.營運成本收支單申請ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
79
+        Me.營運成本收支單審核ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
80
+        Me.營運成本收支單一覽表ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
81
+        Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator()
82
+        Me.營運成本收支單對帳表ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
83
+        Me.營運報表_tsm = New System.Windows.Forms.ToolStripMenuItem()
84
+        Me.ToolStripSeparator13 = New System.Windows.Forms.ToolStripSeparator()
85
+        Me.匯率管理ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
86
+        Me.會計科目管理ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
77 87
         Me.資料庫系統管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
78 88
         Me.系統使用者管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
79 89
         Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
@@ -81,19 +91,21 @@ Partial Class YD_ERP_SYS
81 91
         Me.系統執行檔版本管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
82 92
         Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
83 93
         Me.FTP資料夾管理_tsm = New System.Windows.Forms.ToolStripMenuItem()
94
+        Me.簽名檔管理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
84 95
         Me.StatusStrip = New System.Windows.Forms.StatusStrip()
85 96
         Me.著作權_tss = New System.Windows.Forms.ToolStripStatusLabel()
86 97
         Me.執行進度_tss = New System.Windows.Forms.ToolStripStatusLabel()
87 98
         Me.ToolStripProgressBar1 = New System.Windows.Forms.ToolStripProgressBar()
88 99
         Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components)
89 100
         Me.使用者_cb = New System.Windows.Forms.ComboBox()
101
+        Me.ToolStripSeparator14 = New System.Windows.Forms.ToolStripSeparator()
90 102
         Me.MenuStrip.SuspendLayout()
91 103
         Me.StatusStrip.SuspendLayout()
92 104
         Me.SuspendLayout()
93 105
         '
94 106
         'MenuStrip
95 107
         '
96
-        Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileMenu, Me.WindowsMenu, Me.人事系統管理_tsm, Me.業務系統管理_tsm, Me.採購系統管理_tsm, Me.倉儲系統管理_tsm, Me.資料庫系統管理_tsm})
108
+        Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileMenu, Me.WindowsMenu, Me.人事系統管理_tsm, Me.業務系統管理_tsm, Me.採購系統管理_tsm, Me.倉儲系統管理_tsm, Me.財務系統管理ToolStripMenuItem1, Me.資料庫系統管理_tsm})
97 109
         Me.MenuStrip.Location = New System.Drawing.Point(0, 0)
98 110
         Me.MenuStrip.MdiWindowListItem = Me.WindowsMenu
99 111
         Me.MenuStrip.Name = "MenuStrip"
@@ -452,9 +464,84 @@ Partial Class YD_ERP_SYS
452 464
         Me.倉儲分區控制表_tsm.Size = New System.Drawing.Size(199, 22)
453 465
         Me.倉儲分區控制表_tsm.Text = "倉儲分區控制表"
454 466
         '
467
+        '財務系統管理ToolStripMenuItem1
468
+        '
469
+        Me.財務系統管理ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.營運成本收支單申請ToolStripMenuItem1, Me.營運成本收支單審核ToolStripMenuItem1, Me.營運成本收支單一覽表ToolStripMenuItem1, Me.ToolStripSeparator12, Me.營運成本收支單對帳表ToolStripMenuItem, Me.營運報表_tsm, Me.ToolStripSeparator13, Me.匯率管理ToolStripMenuItem1, Me.會計科目管理ToolStripMenuItem1})
470
+        Me.財務系統管理ToolStripMenuItem1.ForeColor = System.Drawing.Color.Red
471
+        Me.財務系統管理ToolStripMenuItem1.Image = Global.YD_ERP_SYS.My.Resources.Resources.Payment1
472
+        Me.財務系統管理ToolStripMenuItem1.Name = "財務系統管理ToolStripMenuItem1"
473
+        Me.財務系統管理ToolStripMenuItem1.Size = New System.Drawing.Size(107, 20)
474
+        Me.財務系統管理ToolStripMenuItem1.Text = "財務系統管理"
475
+        '
476
+        '營運成本收支單申請ToolStripMenuItem1
477
+        '
478
+        Me.營運成本收支單申請ToolStripMenuItem1.ForeColor = System.Drawing.Color.Red
479
+        Me.營運成本收支單申請ToolStripMenuItem1.Image = Global.YD_ERP_SYS.My.Resources.Resources.pen2
480
+        Me.營運成本收支單申請ToolStripMenuItem1.Name = "營運成本收支單申請ToolStripMenuItem1"
481
+        Me.營運成本收支單申請ToolStripMenuItem1.Size = New System.Drawing.Size(205, 22)
482
+        Me.營運成本收支單申請ToolStripMenuItem1.Text = "營運成本收支單申請"
483
+        '
484
+        '營運成本收支單審核ToolStripMenuItem1
485
+        '
486
+        Me.營運成本收支單審核ToolStripMenuItem1.ForeColor = System.Drawing.Color.Red
487
+        Me.營運成本收支單審核ToolStripMenuItem1.Image = Global.YD_ERP_SYS.My.Resources.Resources.check2
488
+        Me.營運成本收支單審核ToolStripMenuItem1.Name = "營運成本收支單審核ToolStripMenuItem1"
489
+        Me.營運成本收支單審核ToolStripMenuItem1.Size = New System.Drawing.Size(205, 22)
490
+        Me.營運成本收支單審核ToolStripMenuItem1.Text = "營運成本收支單審核"
491
+        '
492
+        '營運成本收支單一覽表ToolStripMenuItem1
493
+        '
494
+        Me.營運成本收支單一覽表ToolStripMenuItem1.ForeColor = System.Drawing.Color.Red
495
+        Me.營運成本收支單一覽表ToolStripMenuItem1.Image = Global.YD_ERP_SYS.My.Resources.Resources.Report4
496
+        Me.營運成本收支單一覽表ToolStripMenuItem1.Name = "營運成本收支單一覽表ToolStripMenuItem1"
497
+        Me.營運成本收支單一覽表ToolStripMenuItem1.Size = New System.Drawing.Size(205, 22)
498
+        Me.營運成本收支單一覽表ToolStripMenuItem1.Text = "營運成本收支單一覽表"
499
+        '
500
+        'ToolStripSeparator12
501
+        '
502
+        Me.ToolStripSeparator12.Name = "ToolStripSeparator12"
503
+        Me.ToolStripSeparator12.Size = New System.Drawing.Size(202, 6)
504
+        '
505
+        '營運成本收支單對帳表ToolStripMenuItem
506
+        '
507
+        Me.營運成本收支單對帳表ToolStripMenuItem.ForeColor = System.Drawing.Color.Red
508
+        Me.營運成本收支單對帳表ToolStripMenuItem.Image = Global.YD_ERP_SYS.My.Resources.Resources.Report5
509
+        Me.營運成本收支單對帳表ToolStripMenuItem.Name = "營運成本收支單對帳表ToolStripMenuItem"
510
+        Me.營運成本收支單對帳表ToolStripMenuItem.Size = New System.Drawing.Size(205, 22)
511
+        Me.營運成本收支單對帳表ToolStripMenuItem.Text = "營運成本收支單 - 對帳表"
512
+        '
513
+        '營運報表_tsm
514
+        '
515
+        Me.營運報表_tsm.ForeColor = System.Drawing.Color.Red
516
+        Me.營運報表_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Report6
517
+        Me.營運報表_tsm.Name = "營運報表_tsm"
518
+        Me.營運報表_tsm.Size = New System.Drawing.Size(205, 22)
519
+        Me.營運報表_tsm.Text = "營運成本收支 - 決算表"
520
+        '
521
+        'ToolStripSeparator13
522
+        '
523
+        Me.ToolStripSeparator13.Name = "ToolStripSeparator13"
524
+        Me.ToolStripSeparator13.Size = New System.Drawing.Size(202, 6)
525
+        '
526
+        '匯率管理ToolStripMenuItem1
527
+        '
528
+        Me.匯率管理ToolStripMenuItem1.ForeColor = System.Drawing.Color.Red
529
+        Me.匯率管理ToolStripMenuItem1.Image = Global.YD_ERP_SYS.My.Resources.Resources.Sys_Command13
530
+        Me.匯率管理ToolStripMenuItem1.Name = "匯率管理ToolStripMenuItem1"
531
+        Me.匯率管理ToolStripMenuItem1.Size = New System.Drawing.Size(205, 22)
532
+        Me.匯率管理ToolStripMenuItem1.Text = "匯率管理"
533
+        '
534
+        '會計科目管理ToolStripMenuItem1
535
+        '
536
+        Me.會計科目管理ToolStripMenuItem1.ForeColor = System.Drawing.Color.Red
537
+        Me.會計科目管理ToolStripMenuItem1.Image = Global.YD_ERP_SYS.My.Resources.Resources.Sys_Command14
538
+        Me.會計科目管理ToolStripMenuItem1.Name = "會計科目管理ToolStripMenuItem1"
539
+        Me.會計科目管理ToolStripMenuItem1.Size = New System.Drawing.Size(205, 22)
540
+        Me.會計科目管理ToolStripMenuItem1.Text = "會計科目管理"
541
+        '
455 542
         '資料庫系統管理_tsm
456 543
         '
457
-        Me.資料庫系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.系統使用者管理_tsm, Me.ToolStripSeparator5, Me.系統編碼規則_tsm, Me.系統執行檔版本管理_tsm, Me.ToolStripSeparator4, Me.FTP資料夾管理_tsm})
544
+        Me.資料庫系統管理_tsm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.系統使用者管理_tsm, Me.ToolStripSeparator5, Me.系統編碼規則_tsm, Me.系統執行檔版本管理_tsm, Me.ToolStripSeparator4, Me.FTP資料夾管理_tsm, Me.ToolStripSeparator14, Me.簽名檔管理ToolStripMenuItem})
458 545
         Me.資料庫系統管理_tsm.Image = Global.YD_ERP_SYS.My.Resources.Resources.Sys_Command
459 546
         Me.資料庫系統管理_tsm.Name = "資料庫系統管理_tsm"
460 547
         Me.資料庫系統管理_tsm.Size = New System.Drawing.Size(119, 20)
@@ -498,6 +585,12 @@ Partial Class YD_ERP_SYS
498 585
         Me.FTP資料夾管理_tsm.Size = New System.Drawing.Size(182, 22)
499 586
         Me.FTP資料夾管理_tsm.Text = "FTP資料夾管理"
500 587
         '
588
+        '簽名檔管理ToolStripMenuItem
589
+        '
590
+        Me.簽名檔管理ToolStripMenuItem.Name = "簽名檔管理ToolStripMenuItem"
591
+        Me.簽名檔管理ToolStripMenuItem.Size = New System.Drawing.Size(182, 22)
592
+        Me.簽名檔管理ToolStripMenuItem.Text = "簽名檔管理"
593
+        '
501 594
         'StatusStrip
502 595
         '
503 596
         Me.StatusStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.著作權_tss, Me.執行進度_tss, Me.ToolStripProgressBar1})
@@ -539,6 +632,11 @@ Partial Class YD_ERP_SYS
539 632
         Me.使用者_cb.Size = New System.Drawing.Size(97, 23)
540 633
         Me.使用者_cb.TabIndex = 9
541 634
         '
635
+        'ToolStripSeparator14
636
+        '
637
+        Me.ToolStripSeparator14.Name = "ToolStripSeparator14"
638
+        Me.ToolStripSeparator14.Size = New System.Drawing.Size(179, 6)
639
+        '
542 640
         'YD_ERP_SYS
543 641
         '
544 642
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@@ -555,8 +653,8 @@ Partial Class YD_ERP_SYS
555 653
         Me.MainMenuStrip = Me.MenuStrip
556 654
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
557 655
         Me.Name = "YD_ERP_SYS"
558
-        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
559
-        Me.Text = "YD ERP SYS"
656
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
657
+        Me.Text = "YD-ERP-SYS"
560 658
         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
561 659
         Me.MenuStrip.ResumeLayout(False)
562 660
         Me.MenuStrip.PerformLayout()
@@ -628,4 +726,16 @@ Partial Class YD_ERP_SYS
628 726
     Friend WithEvents ToolStripSeparator11 As ToolStripSeparator
629 727
     Friend WithEvents 倉儲出庫_tsm As ToolStripMenuItem
630 728
     Friend WithEvents 單據狀態查詢_tsm As ToolStripMenuItem
729
+    Friend WithEvents 財務系統管理ToolStripMenuItem1 As ToolStripMenuItem
730
+    Friend WithEvents 營運成本收支單申請ToolStripMenuItem1 As ToolStripMenuItem
731
+    Friend WithEvents 營運成本收支單審核ToolStripMenuItem1 As ToolStripMenuItem
732
+    Friend WithEvents 營運成本收支單一覽表ToolStripMenuItem1 As ToolStripMenuItem
733
+    Friend WithEvents ToolStripSeparator12 As ToolStripSeparator
734
+    Friend WithEvents 營運成本收支單對帳表ToolStripMenuItem As ToolStripMenuItem
735
+    Friend WithEvents 營運報表_tsm As ToolStripMenuItem
736
+    Friend WithEvents ToolStripSeparator13 As ToolStripSeparator
737
+    Friend WithEvents 匯率管理ToolStripMenuItem1 As ToolStripMenuItem
738
+    Friend WithEvents 會計科目管理ToolStripMenuItem1 As ToolStripMenuItem
739
+    Friend WithEvents 簽名檔管理ToolStripMenuItem As ToolStripMenuItem
740
+    Friend WithEvents ToolStripSeparator14 As ToolStripSeparator
631 741
 End Class

+ 29
- 0
YD-ERP-SYS/YD-ERP-SYS.vb 파일 보기

@@ -159,4 +159,33 @@ Public Class YD_ERP_SYS
159 159
     Private Sub 單據狀態查詢_tsm_Click(sender As Object, e As EventArgs) Handles 單據狀態查詢_tsm.Click
160 160
         PA = "" : 單據狀態查詢.Show() : 單據狀態查詢.BringToFront()
161 161
     End Sub
162
+    Private Sub 會計科目管理ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 會計科目管理ToolStripMenuItem1.Click
163
+        PA = "" : 會計科目管理.Show() : 會計科目管理.BringToFront()
164
+    End Sub
165
+
166
+    Private Sub 營運成本收支單申請ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 營運成本收支單申請ToolStripMenuItem1.Click
167
+        PA = "" : 營運成本收支單申請.Show() : 營運成本收支單申請.BringToFront()
168
+    End Sub
169
+
170
+    Private Sub 營運成本收支單審核ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 營運成本收支單審核ToolStripMenuItem1.Click
171
+        PA = "" : 營運成本收支單審核.Show() : 營運成本收支單審核.BringToFront()
172
+    End Sub
173
+
174
+    Private Sub 營運成本收支單一覽表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 營運成本收支單一覽表ToolStripMenuItem1.Click
175
+        PA = "" : 營運成本收支單一覽表.Show() : 營運成本收支單一覽表.BringToFront()
176
+    End Sub
177
+
178
+    Private Sub 營運成本收支單對帳表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運成本收支單對帳表ToolStripMenuItem.Click
179
+        PA = "" : 營運成本收支單_對帳表.Show() : 營運成本收支單_對帳表.BringToFront()
180
+    End Sub
181
+    Private Sub 營運成本收支決算表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 營運報表_tsm.Click
182
+        PA = "" : 營運報表.Show() : 營運報表.BringToFront()
183
+    End Sub
184
+
185
+    Private Sub 匯率管理ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 匯率管理ToolStripMenuItem1.Click
186
+        PA = "" : 匯率管理.Show() : 匯率管理.BringToFront()
187
+    End Sub
188
+    Private Sub 簽名檔管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 簽名檔管理ToolStripMenuItem.Click
189
+        PA = "" : 簽名檔管理.Show() : 簽名檔管理.BringToFront()
190
+    End Sub
162 191
 End Class

+ 75
- 0
YD-ERP-SYS/YD-ERP-SYS.vbproj 파일 보기

@@ -129,6 +129,7 @@
129 129
     <Compile Include="Module\SQL_倉儲系統管理.vb" />
130 130
     <Compile Include="Module\SQL_採購系統管理.vb" />
131 131
     <Compile Include="Module\SQL_業務系統管理.vb" />
132
+    <Compile Include="Module\SQL_財務系統管理.vb" />
132 133
     <Compile Include="Module\SQL_連線字串.vb" />
133 134
     <Compile Include="人事系統管理\人事資料表.Designer.vb">
134 135
       <DependentUpon>人事資料表.vb</DependentUpon>
@@ -274,6 +275,48 @@
274 275
     <Compile Include="業務系統管理\銷售單申請.vb">
275 276
       <SubType>Form</SubType>
276 277
     </Compile>
278
+    <Compile Include="財務系統管理\匯率管理.Designer.vb">
279
+      <DependentUpon>匯率管理.vb</DependentUpon>
280
+    </Compile>
281
+    <Compile Include="財務系統管理\匯率管理.vb">
282
+      <SubType>Form</SubType>
283
+    </Compile>
284
+    <Compile Include="財務系統管理\會計科目管理.Designer.vb">
285
+      <DependentUpon>會計科目管理.vb</DependentUpon>
286
+    </Compile>
287
+    <Compile Include="財務系統管理\會計科目管理.vb">
288
+      <SubType>Form</SubType>
289
+    </Compile>
290
+    <Compile Include="財務系統管理\營運報表.Designer.vb">
291
+      <DependentUpon>營運報表.vb</DependentUpon>
292
+    </Compile>
293
+    <Compile Include="財務系統管理\營運報表.vb">
294
+      <SubType>Form</SubType>
295
+    </Compile>
296
+    <Compile Include="財務系統管理\營運成本收支單 - 對帳表.Designer.vb">
297
+      <DependentUpon>營運成本收支單 - 對帳表.vb</DependentUpon>
298
+    </Compile>
299
+    <Compile Include="財務系統管理\營運成本收支單 - 對帳表.vb">
300
+      <SubType>Form</SubType>
301
+    </Compile>
302
+    <Compile Include="財務系統管理\營運成本收支單一覽表.Designer.vb">
303
+      <DependentUpon>營運成本收支單一覽表.vb</DependentUpon>
304
+    </Compile>
305
+    <Compile Include="財務系統管理\營運成本收支單一覽表.vb">
306
+      <SubType>Form</SubType>
307
+    </Compile>
308
+    <Compile Include="財務系統管理\營運成本收支單審核.Designer.vb">
309
+      <DependentUpon>營運成本收支單審核.vb</DependentUpon>
310
+    </Compile>
311
+    <Compile Include="財務系統管理\營運成本收支單審核.vb">
312
+      <SubType>Form</SubType>
313
+    </Compile>
314
+    <Compile Include="財務系統管理\營運成本收支單申請.Designer.vb">
315
+      <DependentUpon>營運成本收支單申請.vb</DependentUpon>
316
+    </Compile>
317
+    <Compile Include="財務系統管理\營運成本收支單申請.vb">
318
+      <SubType>Form</SubType>
319
+    </Compile>
277 320
     <Compile Include="資料庫系統管理\FTP資料夾管理.Designer.vb">
278 321
       <DependentUpon>FTP資料夾管理.vb</DependentUpon>
279 322
     </Compile>
@@ -319,6 +362,12 @@
319 362
     <Compile Include="資料庫系統管理\個人帳號管理.vb">
320 363
       <SubType>Form</SubType>
321 364
     </Compile>
365
+    <Compile Include="資料庫系統管理\簽名檔管理.Designer.vb">
366
+      <DependentUpon>簽名檔管理.vb</DependentUpon>
367
+    </Compile>
368
+    <Compile Include="資料庫系統管理\簽名檔管理.vb">
369
+      <SubType>Form</SubType>
370
+    </Compile>
322 371
     <Compile Include="資料庫系統管理\系統使用者管理.Designer.vb">
323 372
       <DependentUpon>系統使用者管理.vb</DependentUpon>
324 373
     </Compile>
@@ -417,6 +466,27 @@
417 466
     <EmbeddedResource Include="業務系統管理\銷售單申請.resx">
418 467
       <DependentUpon>銷售單申請.vb</DependentUpon>
419 468
     </EmbeddedResource>
469
+    <EmbeddedResource Include="財務系統管理\匯率管理.resx">
470
+      <DependentUpon>匯率管理.vb</DependentUpon>
471
+    </EmbeddedResource>
472
+    <EmbeddedResource Include="財務系統管理\會計科目管理.resx">
473
+      <DependentUpon>會計科目管理.vb</DependentUpon>
474
+    </EmbeddedResource>
475
+    <EmbeddedResource Include="財務系統管理\營運報表.resx">
476
+      <DependentUpon>營運報表.vb</DependentUpon>
477
+    </EmbeddedResource>
478
+    <EmbeddedResource Include="財務系統管理\營運成本收支單 - 對帳表.resx">
479
+      <DependentUpon>營運成本收支單 - 對帳表.vb</DependentUpon>
480
+    </EmbeddedResource>
481
+    <EmbeddedResource Include="財務系統管理\營運成本收支單一覽表.resx">
482
+      <DependentUpon>營運成本收支單一覽表.vb</DependentUpon>
483
+    </EmbeddedResource>
484
+    <EmbeddedResource Include="財務系統管理\營運成本收支單審核.resx">
485
+      <DependentUpon>營運成本收支單審核.vb</DependentUpon>
486
+    </EmbeddedResource>
487
+    <EmbeddedResource Include="財務系統管理\營運成本收支單申請.resx">
488
+      <DependentUpon>營運成本收支單申請.vb</DependentUpon>
489
+    </EmbeddedResource>
420 490
     <EmbeddedResource Include="資料庫系統管理\FTP資料夾管理.resx">
421 491
       <DependentUpon>FTP資料夾管理.vb</DependentUpon>
422 492
     </EmbeddedResource>
@@ -436,6 +506,9 @@
436 506
     <EmbeddedResource Include="資料庫系統管理\個人帳號管理.resx">
437 507
       <DependentUpon>個人帳號管理.vb</DependentUpon>
438 508
     </EmbeddedResource>
509
+    <EmbeddedResource Include="資料庫系統管理\簽名檔管理.resx">
510
+      <DependentUpon>簽名檔管理.vb</DependentUpon>
511
+    </EmbeddedResource>
439 512
     <EmbeddedResource Include="資料庫系統管理\系統使用者管理.resx">
440 513
       <DependentUpon>系統使用者管理.vb</DependentUpon>
441 514
     </EmbeddedResource>
@@ -473,6 +546,8 @@
473 546
   </ItemGroup>
474 547
   <ItemGroup>
475 548
     <Content Include="logo__01_POH_icon.ico" />
549
+    <None Include="圖片\Sys-Command1.png" />
550
+    <None Include="圖片\Payment.png" />
476 551
     <None Include="圖片\check.png" />
477 552
     <None Include="圖片\pen.png" />
478 553
     <None Include="圖片\Report.png" />

BIN
YD-ERP-SYS/bin/Debug/Interop.VSTOEE100.dll 파일 보기


BIN
YD-ERP-SYS/bin/Debug/YD-ERP-SYS.exe 파일 보기


BIN
YD-ERP-SYS/bin/Debug/YD-ERP-SYS.pdb 파일 보기


+ 80
- 0
YD-ERP-SYS/bin/Debug/YD-ERP-SYS.xml 파일 보기

@@ -547,6 +547,16 @@ YD-ERP-SYS
547 547
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
548 548
 </summary>
549 549
 </member>
550
+<member name="P:YD_ERP_SYS.My.Resources.Resources.check1">
551
+<summary>
552
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
553
+</summary>
554
+</member>
555
+<member name="P:YD_ERP_SYS.My.Resources.Resources.check2">
556
+<summary>
557
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
558
+</summary>
559
+</member>
550 560
 <member name="P:YD_ERP_SYS.My.Resources.Resources.LOGO__01">
551 561
 <summary>
552 562
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
@@ -557,11 +567,31 @@ YD-ERP-SYS
557 567
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
558 568
 </summary>
559 569
 </member>
570
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Payment">
571
+<summary>
572
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
573
+</summary>
574
+</member>
575
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Payment1">
576
+<summary>
577
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
578
+</summary>
579
+</member>
560 580
 <member name="P:YD_ERP_SYS.My.Resources.Resources.pen">
561 581
 <summary>
562 582
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
563 583
 </summary>
564 584
 </member>
585
+<member name="P:YD_ERP_SYS.My.Resources.Resources.pen1">
586
+<summary>
587
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
588
+</summary>
589
+</member>
590
+<member name="P:YD_ERP_SYS.My.Resources.Resources.pen2">
591
+<summary>
592
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
593
+</summary>
594
+</member>
565 595
 <member name="P:YD_ERP_SYS.My.Resources.Resources.Personnel">
566 596
 <summary>
567 597
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
@@ -572,6 +602,36 @@ YD-ERP-SYS
572 602
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
573 603
 </summary>
574 604
 </member>
605
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Report1">
606
+<summary>
607
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
608
+</summary>
609
+</member>
610
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Report2">
611
+<summary>
612
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
613
+</summary>
614
+</member>
615
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Report3">
616
+<summary>
617
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
618
+</summary>
619
+</member>
620
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Report4">
621
+<summary>
622
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
623
+</summary>
624
+</member>
625
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Report5">
626
+<summary>
627
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
628
+</summary>
629
+</member>
630
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Report6">
631
+<summary>
632
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
633
+</summary>
634
+</member>
575 635
 <member name="P:YD_ERP_SYS.My.Resources.Resources.Shipping5">
576 636
 <summary>
577 637
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
@@ -587,6 +647,26 @@ YD-ERP-SYS
587 647
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
588 648
 </summary>
589 649
 </member>
650
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Sys_Command11">
651
+<summary>
652
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
653
+</summary>
654
+</member>
655
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Sys_Command12">
656
+<summary>
657
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
658
+</summary>
659
+</member>
660
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Sys_Command13">
661
+<summary>
662
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
663
+</summary>
664
+</member>
665
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Sys_Command14">
666
+<summary>
667
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
668
+</summary>
669
+</member>
590 670
 <member name="P:YD_ERP_SYS.My.Resources.Resources.timg02">
591 671
 <summary>
592 672
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。

+ 7
- 0
YD-ERP-SYS/obj/Debug/.NETFramework,Version=v4.5.AssemblyAttributes.vb 파일 보기

@@ -0,0 +1,7 @@
1
+' <autogenerated/>
2
+            Option Strict Off
3
+            Option Explicit On
4
+
5
+            Imports System
6
+            Imports System.Reflection
7
+            <Assembly: Global.System.Runtime.Versioning.TargetFrameworkAttribute(".NETFramework,Version=v4.5", FrameworkDisplayName:=".NET Framework 4.5")>

BIN
YD-ERP-SYS/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache 파일 보기


BIN
YD-ERP-SYS/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll 파일 보기


BIN
YD-ERP-SYS/obj/Debug/YD-ERP-SYS.exe 파일 보기


BIN
YD-ERP-SYS/obj/Debug/YD-ERP-SYS.pdb 파일 보기


+ 1
- 1
YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.CoreCompileInputs.cache 파일 보기

@@ -1 +1 @@
1
-7bf5c891f45a24d1efc9695dd0a9d5e368d3f7d7
1
+49988577c2bbadc38503a8e2d39e249a231d014f

+ 53
- 0
YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.FileListAbsolute.txt 파일 보기

@@ -43,3 +43,56 @@ G:\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbprojAssemblyReference.cache
43 43
 G:\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.倉儲入庫.resources
44 44
 G:\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.倉儲出庫.resources
45 45
 G:\YD-ERP-SYS\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.單據狀態查詢.resources
46
+D:\yd-erp-sys-team\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.exe.config
47
+D:\yd-erp-sys-team\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.exe
48
+D:\yd-erp-sys-team\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.pdb
49
+D:\yd-erp-sys-team\YD-ERP-SYS\bin\Debug\YD-ERP-SYS.xml
50
+D:\yd-erp-sys-team\YD-ERP-SYS\bin\Debug\PInvoke.Windows.Core.xml
51
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbprojAssemblyReference.cache
52
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.人事資料表.resources
53
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.人員ID卡系統配置設定.resources
54
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.倉儲入庫.resources
55
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.倉儲出庫.resources
56
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.倉儲分區控制表.resources
57
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.倉儲控制表.resources
58
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.單據狀態查詢.resources
59
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.盤盈盤損控制表.resources
60
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.盤盈盤損申請.resources
61
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.盤盈盤損審核_倉儲調整.resources
62
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.一般性申請採購單.resources
63
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.依銷售申請採購單.resources
64
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購單審核.resources
65
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購對帳單.resources
66
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購控制表.resources
67
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.採購訂製大圖.resources
68
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.客戶資料表.resources
69
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.供應商資料表.resources
70
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.物料檔案.resources
71
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.訂單控制表.resources
72
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.貨款試算表.resources
73
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.銷售分析表.resources
74
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.銷售單審核.resources
75
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.銷售單申請.resources
76
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.FTP資料夾管理.resources
77
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.LoginForm1.resources
78
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.Resources.resources
79
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.YD_ERP_SYS.resources
80
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.個人帳號管理.resources
81
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.系統使用者管理.resources
82
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.系統執行檔版本管理.resources
83
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.系統編碼規則.resources
84
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.網段.resources
85
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbproj.GenerateResource.cache
86
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbproj.CoreCompileInputs.cache
87
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.vbproj.CopyComplete
88
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.exe
89
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.xml
90
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD-ERP-SYS.pdb
91
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運成本收支單申請.resources
92
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運成本收支單審核.resources
93
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.匯率管理.resources
94
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.會計科目管理.resources
95
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運成本收支單一覽表.resources
96
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運成本收支單_對帳表.resources
97
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.營運報表.resources
98
+D:\yd-erp-sys-team\YD-ERP-SYS\obj\Debug\YD_ERP_SYS.簽名檔管理.resources

BIN
YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbproj.GenerateResource.cache 파일 보기


BIN
YD-ERP-SYS/obj/Debug/YD-ERP-SYS.vbprojAssemblyReference.cache 파일 보기


+ 80
- 0
YD-ERP-SYS/obj/Debug/YD-ERP-SYS.xml 파일 보기

@@ -547,6 +547,16 @@ YD-ERP-SYS
547 547
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
548 548
 </summary>
549 549
 </member>
550
+<member name="P:YD_ERP_SYS.My.Resources.Resources.check1">
551
+<summary>
552
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
553
+</summary>
554
+</member>
555
+<member name="P:YD_ERP_SYS.My.Resources.Resources.check2">
556
+<summary>
557
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
558
+</summary>
559
+</member>
550 560
 <member name="P:YD_ERP_SYS.My.Resources.Resources.LOGO__01">
551 561
 <summary>
552 562
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
@@ -557,11 +567,31 @@ YD-ERP-SYS
557 567
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
558 568
 </summary>
559 569
 </member>
570
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Payment">
571
+<summary>
572
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
573
+</summary>
574
+</member>
575
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Payment1">
576
+<summary>
577
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
578
+</summary>
579
+</member>
560 580
 <member name="P:YD_ERP_SYS.My.Resources.Resources.pen">
561 581
 <summary>
562 582
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
563 583
 </summary>
564 584
 </member>
585
+<member name="P:YD_ERP_SYS.My.Resources.Resources.pen1">
586
+<summary>
587
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
588
+</summary>
589
+</member>
590
+<member name="P:YD_ERP_SYS.My.Resources.Resources.pen2">
591
+<summary>
592
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
593
+</summary>
594
+</member>
565 595
 <member name="P:YD_ERP_SYS.My.Resources.Resources.Personnel">
566 596
 <summary>
567 597
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
@@ -572,6 +602,36 @@ YD-ERP-SYS
572 602
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
573 603
 </summary>
574 604
 </member>
605
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Report1">
606
+<summary>
607
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
608
+</summary>
609
+</member>
610
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Report2">
611
+<summary>
612
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
613
+</summary>
614
+</member>
615
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Report3">
616
+<summary>
617
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
618
+</summary>
619
+</member>
620
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Report4">
621
+<summary>
622
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
623
+</summary>
624
+</member>
625
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Report5">
626
+<summary>
627
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
628
+</summary>
629
+</member>
630
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Report6">
631
+<summary>
632
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
633
+</summary>
634
+</member>
575 635
 <member name="P:YD_ERP_SYS.My.Resources.Resources.Shipping5">
576 636
 <summary>
577 637
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
@@ -587,6 +647,26 @@ YD-ERP-SYS
587 647
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
588 648
 </summary>
589 649
 </member>
650
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Sys_Command11">
651
+<summary>
652
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
653
+</summary>
654
+</member>
655
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Sys_Command12">
656
+<summary>
657
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
658
+</summary>
659
+</member>
660
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Sys_Command13">
661
+<summary>
662
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
663
+</summary>
664
+</member>
665
+<member name="P:YD_ERP_SYS.My.Resources.Resources.Sys_Command14">
666
+<summary>
667
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
668
+</summary>
669
+</member>
590 670
 <member name="P:YD_ERP_SYS.My.Resources.Resources.timg02">
591 671
 <summary>
592 672
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。

BIN
YD-ERP-SYS/obj/Debug/YD_ERP_SYS.Resources.resources 파일 보기


BIN
YD-ERP-SYS/obj/Debug/YD_ERP_SYS.匯率管理.resources 파일 보기


BIN
YD-ERP-SYS/obj/Debug/YD_ERP_SYS.會計科目管理.resources 파일 보기


BIN
YD-ERP-SYS/obj/Debug/YD_ERP_SYS.營運報表.resources 파일 보기


BIN
YD-ERP-SYS/obj/Debug/YD_ERP_SYS.營運成本收支單_對帳表.resources 파일 보기


BIN
YD-ERP-SYS/obj/Debug/YD_ERP_SYS.營運成本收支單一覽表.resources 파일 보기


BIN
YD-ERP-SYS/obj/Debug/YD_ERP_SYS.營運成本收支單審核.resources 파일 보기


BIN
YD-ERP-SYS/obj/Debug/YD_ERP_SYS.營運成本收支單申請.resources 파일 보기


BIN
YD-ERP-SYS/obj/Debug/YD_ERP_SYS.簽名檔管理.resources 파일 보기


BIN
YD-ERP-SYS/圖片/Payment.png 파일 보기


+ 1
- 0
YD-ERP-SYS/業務系統管理/客戶資料表.vb 파일 보기

@@ -10,6 +10,7 @@ Public Class 客戶資料表
10 10
         客戶_dgv.AllowUserToAddRows = False
11 11
         SQL_客戶資料表_清單()
12 12
         da.Fill(ds1) : 客戶_dgv.DataSource = ds1.Tables(0) : conn.Close()
13
+
13 14
         客戶_dgv.Columns(0).Visible = False : 客戶_dgv.Columns(1).FillWeight = 50 : 客戶_dgv.Columns(2).FillWeight = 50 : 客戶_dgv.Columns(3).FillWeight = 100
14 15
         客戶_dgv.Columns(4).FillWeight = 80 : 客戶_dgv.Columns(5).FillWeight = 80 : 客戶_dgv.Columns(6).FillWeight = 150 : 客戶_dgv.Columns(7).FillWeight = 80
15 16
         客戶_dgv.Columns(8).FillWeight = 150

+ 279
- 0
YD-ERP-SYS/財務系統管理/匯率管理.Designer.vb 파일 보기

@@ -0,0 +1,279 @@
1
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2
+Partial Class 匯率管理
3
+    Inherits System.Windows.Forms.Form
4
+
5
+    'Form 覆寫 Dispose 以清除元件清單。
6
+    <System.Diagnostics.DebuggerNonUserCode()> _
7
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8
+        Try
9
+            If disposing AndAlso components IsNot Nothing Then
10
+                components.Dispose()
11
+            End If
12
+        Finally
13
+            MyBase.Dispose(disposing)
14
+        End Try
15
+    End Sub
16
+
17
+    '為 Windows Form 設計工具的必要項
18
+    Private components As System.ComponentModel.IContainer
19
+
20
+    '注意: 以下為 Windows Form 設計工具所需的程序
21
+    '可以使用 Windows Form 設計工具進行修改。
22
+    '請勿使用程式碼編輯器進行修改。
23
+    <System.Diagnostics.DebuggerStepThrough()> _
24
+    Private Sub InitializeComponent()
25
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
26
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
28
+        Me.美金匯率_tb = New System.Windows.Forms.TextBox()
29
+        Me.Label4 = New System.Windows.Forms.Label()
30
+        Me.月_tb = New System.Windows.Forms.TextBox()
31
+        Me.年_tb = New System.Windows.Forms.TextBox()
32
+        Me.寫入歷史資料_cb = New System.Windows.Forms.CheckBox()
33
+        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
34
+        Me.賣出匯率_tb = New System.Windows.Forms.TextBox()
35
+        Me.買進匯率_tb = New System.Windows.Forms.TextBox()
36
+        Me.Label3 = New System.Windows.Forms.Label()
37
+        Me.Label2 = New System.Windows.Forms.Label()
38
+        Me.歷史匯率_dgv = New System.Windows.Forms.DataGridView()
39
+        Me.取消_bt = New System.Windows.Forms.Button()
40
+        Me.儲存修改_bt = New System.Windows.Forms.Button()
41
+        Me.修改_bt = New System.Windows.Forms.Button()
42
+        Me.目前匯率_tb = New System.Windows.Forms.TextBox()
43
+        Me.Label1 = New System.Windows.Forms.Label()
44
+        CType(Me.歷史匯率_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
45
+        Me.SuspendLayout()
46
+        '
47
+        '美金匯率_tb
48
+        '
49
+        Me.美金匯率_tb.Enabled = False
50
+        Me.美金匯率_tb.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
51
+        Me.美金匯率_tb.Location = New System.Drawing.Point(92, 154)
52
+        Me.美金匯率_tb.Name = "美金匯率_tb"
53
+        Me.美金匯率_tb.Size = New System.Drawing.Size(147, 29)
54
+        Me.美金匯率_tb.TabIndex = 109
55
+        '
56
+        'Label4
57
+        '
58
+        Me.Label4.AutoSize = True
59
+        Me.Label4.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
60
+        Me.Label4.Location = New System.Drawing.Point(13, 157)
61
+        Me.Label4.Name = "Label4"
62
+        Me.Label4.Size = New System.Drawing.Size(73, 20)
63
+        Me.Label4.TabIndex = 108
64
+        Me.Label4.Text = "美金匯率"
65
+        '
66
+        '月_tb
67
+        '
68
+        Me.月_tb.Enabled = False
69
+        Me.月_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
70
+        Me.月_tb.Location = New System.Drawing.Point(366, 38)
71
+        Me.月_tb.Name = "月_tb"
72
+        Me.月_tb.Size = New System.Drawing.Size(83, 23)
73
+        Me.月_tb.TabIndex = 107
74
+        Me.月_tb.Visible = False
75
+        '
76
+        '年_tb
77
+        '
78
+        Me.年_tb.Enabled = False
79
+        Me.年_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
80
+        Me.年_tb.Location = New System.Drawing.Point(277, 38)
81
+        Me.年_tb.Name = "年_tb"
82
+        Me.年_tb.Size = New System.Drawing.Size(83, 23)
83
+        Me.年_tb.TabIndex = 106
84
+        Me.年_tb.Visible = False
85
+        '
86
+        '寫入歷史資料_cb
87
+        '
88
+        Me.寫入歷史資料_cb.AutoSize = True
89
+        Me.寫入歷史資料_cb.Location = New System.Drawing.Point(143, 18)
90
+        Me.寫入歷史資料_cb.Name = "寫入歷史資料_cb"
91
+        Me.寫入歷史資料_cb.Size = New System.Drawing.Size(96, 16)
92
+        Me.寫入歷史資料_cb.TabIndex = 105
93
+        Me.寫入歷史資料_cb.Text = "寫入歷史資料"
94
+        Me.寫入歷史資料_cb.UseVisualStyleBackColor = True
95
+        '
96
+        'DateTimePicker1
97
+        '
98
+        Me.DateTimePicker1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
99
+        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
100
+        Me.DateTimePicker1.Location = New System.Drawing.Point(17, 12)
101
+        Me.DateTimePicker1.Name = "DateTimePicker1"
102
+        Me.DateTimePicker1.Size = New System.Drawing.Size(120, 23)
103
+        Me.DateTimePicker1.TabIndex = 104
104
+        '
105
+        '賣出匯率_tb
106
+        '
107
+        Me.賣出匯率_tb.Enabled = False
108
+        Me.賣出匯率_tb.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
109
+        Me.賣出匯率_tb.Location = New System.Drawing.Point(92, 85)
110
+        Me.賣出匯率_tb.Name = "賣出匯率_tb"
111
+        Me.賣出匯率_tb.Size = New System.Drawing.Size(147, 29)
112
+        Me.賣出匯率_tb.TabIndex = 103
113
+        '
114
+        '買進匯率_tb
115
+        '
116
+        Me.買進匯率_tb.Enabled = False
117
+        Me.買進匯率_tb.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
118
+        Me.買進匯率_tb.Location = New System.Drawing.Point(92, 50)
119
+        Me.買進匯率_tb.Name = "買進匯率_tb"
120
+        Me.買進匯率_tb.Size = New System.Drawing.Size(147, 29)
121
+        Me.買進匯率_tb.TabIndex = 102
122
+        '
123
+        'Label3
124
+        '
125
+        Me.Label3.AutoSize = True
126
+        Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
127
+        Me.Label3.Location = New System.Drawing.Point(13, 88)
128
+        Me.Label3.Name = "Label3"
129
+        Me.Label3.Size = New System.Drawing.Size(73, 20)
130
+        Me.Label3.TabIndex = 101
131
+        Me.Label3.Text = "賣出匯率"
132
+        '
133
+        'Label2
134
+        '
135
+        Me.Label2.AutoSize = True
136
+        Me.Label2.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
137
+        Me.Label2.Location = New System.Drawing.Point(13, 53)
138
+        Me.Label2.Name = "Label2"
139
+        Me.Label2.Size = New System.Drawing.Size(73, 20)
140
+        Me.Label2.TabIndex = 100
141
+        Me.Label2.Text = "買進匯率"
142
+        '
143
+        '歷史匯率_dgv
144
+        '
145
+        Me.歷史匯率_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
146
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
147
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
148
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
149
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
150
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
151
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
152
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
153
+        Me.歷史匯率_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
154
+        Me.歷史匯率_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
155
+        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
156
+        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
157
+        DataGridViewCellStyle5.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
158
+        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
159
+        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
160
+        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
161
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
162
+        Me.歷史匯率_dgv.DefaultCellStyle = DataGridViewCellStyle5
163
+        Me.歷史匯率_dgv.Location = New System.Drawing.Point(245, 12)
164
+        Me.歷史匯率_dgv.Name = "歷史匯率_dgv"
165
+        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
166
+        DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
167
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
168
+        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
169
+        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
170
+        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
171
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
172
+        Me.歷史匯率_dgv.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
173
+        Me.歷史匯率_dgv.RowHeadersWidth = 5
174
+        Me.歷史匯率_dgv.RowTemplate.Height = 24
175
+        Me.歷史匯率_dgv.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
176
+        Me.歷史匯率_dgv.Size = New System.Drawing.Size(410, 247)
177
+        Me.歷史匯率_dgv.TabIndex = 99
178
+        '
179
+        '取消_bt
180
+        '
181
+        Me.取消_bt.Enabled = False
182
+        Me.取消_bt.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
183
+        Me.取消_bt.ForeColor = System.Drawing.Color.Black
184
+        Me.取消_bt.Location = New System.Drawing.Point(12, 225)
185
+        Me.取消_bt.Name = "取消_bt"
186
+        Me.取消_bt.Size = New System.Drawing.Size(101, 34)
187
+        Me.取消_bt.TabIndex = 98
188
+        Me.取消_bt.Text = "取消"
189
+        Me.取消_bt.UseVisualStyleBackColor = True
190
+        '
191
+        '儲存修改_bt
192
+        '
193
+        Me.儲存修改_bt.Enabled = False
194
+        Me.儲存修改_bt.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
195
+        Me.儲存修改_bt.ForeColor = System.Drawing.Color.Green
196
+        Me.儲存修改_bt.Location = New System.Drawing.Point(119, 185)
197
+        Me.儲存修改_bt.Name = "儲存修改_bt"
198
+        Me.儲存修改_bt.Size = New System.Drawing.Size(120, 74)
199
+        Me.儲存修改_bt.TabIndex = 97
200
+        Me.儲存修改_bt.Text = "儲存修改"
201
+        Me.儲存修改_bt.UseVisualStyleBackColor = True
202
+        '
203
+        '修改_bt
204
+        '
205
+        Me.修改_bt.Font = New System.Drawing.Font("微軟正黑體", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
206
+        Me.修改_bt.ForeColor = System.Drawing.Color.DarkGreen
207
+        Me.修改_bt.Location = New System.Drawing.Point(12, 185)
208
+        Me.修改_bt.Name = "修改_bt"
209
+        Me.修改_bt.Size = New System.Drawing.Size(101, 34)
210
+        Me.修改_bt.TabIndex = 96
211
+        Me.修改_bt.Text = "修改"
212
+        Me.修改_bt.UseVisualStyleBackColor = True
213
+        '
214
+        '目前匯率_tb
215
+        '
216
+        Me.目前匯率_tb.Enabled = False
217
+        Me.目前匯率_tb.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
218
+        Me.目前匯率_tb.Location = New System.Drawing.Point(92, 120)
219
+        Me.目前匯率_tb.Name = "目前匯率_tb"
220
+        Me.目前匯率_tb.Size = New System.Drawing.Size(147, 29)
221
+        Me.目前匯率_tb.TabIndex = 95
222
+        '
223
+        'Label1
224
+        '
225
+        Me.Label1.AutoSize = True
226
+        Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
227
+        Me.Label1.Location = New System.Drawing.Point(13, 123)
228
+        Me.Label1.Name = "Label1"
229
+        Me.Label1.Size = New System.Drawing.Size(73, 20)
230
+        Me.Label1.TabIndex = 94
231
+        Me.Label1.Text = "目前匯率"
232
+        '
233
+        '匯率管理
234
+        '
235
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
236
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
237
+        Me.ClientSize = New System.Drawing.Size(664, 266)
238
+        Me.Controls.Add(Me.美金匯率_tb)
239
+        Me.Controls.Add(Me.Label4)
240
+        Me.Controls.Add(Me.月_tb)
241
+        Me.Controls.Add(Me.年_tb)
242
+        Me.Controls.Add(Me.寫入歷史資料_cb)
243
+        Me.Controls.Add(Me.DateTimePicker1)
244
+        Me.Controls.Add(Me.賣出匯率_tb)
245
+        Me.Controls.Add(Me.買進匯率_tb)
246
+        Me.Controls.Add(Me.Label3)
247
+        Me.Controls.Add(Me.Label2)
248
+        Me.Controls.Add(Me.歷史匯率_dgv)
249
+        Me.Controls.Add(Me.取消_bt)
250
+        Me.Controls.Add(Me.儲存修改_bt)
251
+        Me.Controls.Add(Me.修改_bt)
252
+        Me.Controls.Add(Me.目前匯率_tb)
253
+        Me.Controls.Add(Me.Label1)
254
+        Me.Name = "匯率管理"
255
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
256
+        Me.Text = "匯率管理"
257
+        CType(Me.歷史匯率_dgv, System.ComponentModel.ISupportInitialize).EndInit()
258
+        Me.ResumeLayout(False)
259
+        Me.PerformLayout()
260
+
261
+    End Sub
262
+
263
+    Friend WithEvents 美金匯率_tb As TextBox
264
+    Friend WithEvents Label4 As Label
265
+    Friend WithEvents 月_tb As TextBox
266
+    Friend WithEvents 年_tb As TextBox
267
+    Friend WithEvents 寫入歷史資料_cb As CheckBox
268
+    Friend WithEvents DateTimePicker1 As DateTimePicker
269
+    Friend WithEvents 賣出匯率_tb As TextBox
270
+    Friend WithEvents 買進匯率_tb As TextBox
271
+    Friend WithEvents Label3 As Label
272
+    Friend WithEvents Label2 As Label
273
+    Friend WithEvents 歷史匯率_dgv As DataGridView
274
+    Friend WithEvents 取消_bt As Button
275
+    Friend WithEvents 儲存修改_bt As Button
276
+    Friend WithEvents 修改_bt As Button
277
+    Friend WithEvents 目前匯率_tb As TextBox
278
+    Friend WithEvents Label1 As Label
279
+End Class

+ 120
- 0
YD-ERP-SYS/財務系統管理/匯率管理.resx 파일 보기

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

+ 92
- 0
YD-ERP-SYS/財務系統管理/匯率管理.vb 파일 보기

@@ -0,0 +1,92 @@
1
+Option Strict Off
2
+Imports System.Data.SqlClient
3
+Public Class 匯率管理
4
+    Dim ds As New DataSet : Dim ds2 As DataSet
5
+
6
+    Private Sub Set_grid()
7
+        歷史匯率_dgv.Columns(0).FillWeight = 60 : 歷史匯率_dgv.Columns(1).FillWeight = 60
8
+        歷史匯率_dgv.Columns(2).FillWeight = 60 : 歷史匯率_dgv.Columns(3).FillWeight = 60
9
+        歷史匯率_dgv.Columns(4).FillWeight = 60 : 歷史匯率_dgv.Columns(5).FillWeight = 60
10
+    End Sub
11
+    Private Sub Set_日期()
12
+        年_tb.Text = Format(DateTimePicker1.Value, "yyyy") : 月_tb.Text = Format(DateTimePicker1.Value, "MM")
13
+    End Sub
14
+    Private Sub Set_歷史匯率清單()
15
+        歷史匯率_dgv.DataSource = Nothing : ds.Clear()
16
+        歷史匯率_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
17
+        歷史匯率_dgv.ColumnHeadersHeight = 25
18
+        歷史匯率_dgv.AllowUserToAddRows = False
19
+        SQL_匯率管理_歷史匯率清單()
20
+        da.Fill(ds) : 歷史匯率_dgv.DataSource = ds.Tables(0) : conn.Close()
21
+    End Sub
22
+    Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 歷史匯率_dgv.CellClick
23
+        If e.RowIndex = -1 Then : Else
24
+            買進匯率_tb.Text = 歷史匯率_dgv(2, e.RowIndex).Value.ToString
25
+            賣出匯率_tb.Text = 歷史匯率_dgv(3, e.RowIndex).Value.ToString
26
+            目前匯率_tb.Text = 歷史匯率_dgv(4, e.RowIndex).Value.ToString
27
+            美金匯率_tb.Text = 歷史匯率_dgv(5, e.RowIndex).Value.ToString
28
+        End If
29
+    End Sub
30
+    Private Sub Set_日期寫入()
31
+        Set_日期()
32
+        SQL_匯率管理_查詢指定匯率()
33
+        If dr.Read() Then
34
+            SQL_匯率管理_修改匯率() : conn.Close()
35
+        Else
36
+            SQL_匯率管理_新增匯率() : conn.Close()
37
+        End If
38
+        conn.Close()
39
+        MsgBox("完成")
40
+    End Sub
41
+    Private Sub 匯率管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
42
+        DateTimePicker1.Value = Today
43
+        SQL_匯率管理_查詢人民幣匯率()
44
+
45
+        If dr.Read() Then : 目前匯率_tb.Text = dr("匯率").ToString : End If
46
+
47
+        If 目前匯率_tb.Text = "" Then : 目前匯率_tb.Text = "0.00" : End If
48
+        conn.Close() : dr.Close()
49
+
50
+
51
+        SQL_匯率管理_查詢指定匯率()
52
+        If dr.Read() Then : 買進匯率_tb.Text = dr("買進匯率").ToString : 賣出匯率_tb.Text = dr("賣出匯率").ToString : 美金匯率_tb.Text = dr("美金匯率").ToString : End If
53
+        If 目前匯率_tb.Text = "" Then : 目前匯率_tb.Text = "0.00" : End If
54
+        conn.Close() : dr.Close()
55
+
56
+        Set_歷史匯率清單() : Set_grid() : Set_日期()
57
+    End Sub
58
+
59
+    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改_bt.Click
60
+        目前匯率_tb.Enabled = True : 買進匯率_tb.Enabled = True : 賣出匯率_tb.Enabled = True : 美金匯率_tb.Enabled = True : 儲存修改_bt.Enabled = True : 取消_bt.Enabled = True
61
+        目前匯率_tb.Text = "" : 買進匯率_tb.Text = "" : 賣出匯率_tb.Text = "" : 美金匯率_tb.Text = ""
62
+    End Sub
63
+    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 取消_bt.Click
64
+        目前匯率_tb.Enabled = False : 買進匯率_tb.Enabled = False : 賣出匯率_tb.Enabled = False : 美金匯率_tb.Enabled = False : 儲存修改_bt.Enabled = False : 取消_bt.Enabled = False
65
+    End Sub
66
+    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 儲存修改_bt.Click
67
+        If 目前匯率_tb.Text = "" Or 買進匯率_tb.Text = "" Or 賣出匯率_tb.Text = "" Then
68
+            MsgBox("輸入資料有誤")
69
+        Else
70
+            If 寫入歷史資料_cb.Checked = False Then
71
+                DateTimePicker1.Value = Today
72
+                Set_日期寫入()
73
+                SQL_匯率管理_修改人民幣匯率()
74
+                conn.Close() : dr.Close()
75
+            Else
76
+                Set_日期寫入()
77
+            End If
78
+        End If
79
+        目前匯率_tb.Enabled = False : 買進匯率_tb.Enabled = False : 賣出匯率_tb.Enabled = False : 美金匯率_tb.Enabled = False : 儲存修改_bt.Enabled = False : 取消_bt.Enabled = False
80
+        Set_歷史匯率清單() : Set_grid() : Set_日期()
81
+    End Sub
82
+    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles 買進匯率_tb.TextChanged
83
+        If 買進匯率_tb.Text <> "" And 賣出匯率_tb.Text <> "" Then
84
+            目前匯率_tb.Text = (Val(買進匯率_tb.Text) + Val(賣出匯率_tb.Text)) / 2
85
+        End If
86
+    End Sub
87
+    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles 賣出匯率_tb.TextChanged
88
+        If 買進匯率_tb.Text <> "" And 賣出匯率_tb.Text <> "" Then
89
+            目前匯率_tb.Text = (Val(買進匯率_tb.Text) + Val(賣出匯率_tb.Text)) / 2
90
+        End If
91
+    End Sub
92
+End Class

+ 518
- 0
YD-ERP-SYS/財務系統管理/會計科目管理.Designer.vb 파일 보기

@@ -0,0 +1,518 @@
1
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2
+Partial Class 會計科目管理
3
+    Inherits System.Windows.Forms.Form
4
+
5
+    'Form 覆寫 Dispose 以清除元件清單。
6
+    <System.Diagnostics.DebuggerNonUserCode()> _
7
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8
+        Try
9
+            If disposing AndAlso components IsNot Nothing Then
10
+                components.Dispose()
11
+            End If
12
+        Finally
13
+            MyBase.Dispose(disposing)
14
+        End Try
15
+    End Sub
16
+
17
+    '為 Windows Form 設計工具的必要項
18
+    Private components As System.ComponentModel.IContainer
19
+
20
+    '注意: 以下為 Windows Form 設計工具所需的程序
21
+    '可以使用 Windows Form 設計工具進行修改。
22
+    '請勿使用程式碼編輯器進行修改。
23
+    <System.Diagnostics.DebuggerStepThrough()> _
24
+    Private Sub InitializeComponent()
25
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
26
+        Me.重新整理_bt = New System.Windows.Forms.Button()
27
+        Me.批量存檔_bt = New System.Windows.Forms.Button()
28
+        Me.停用_cb = New System.Windows.Forms.CheckBox()
29
+        Me.TextBox18 = New System.Windows.Forms.TextBox()
30
+        Me.Label26 = New System.Windows.Forms.Label()
31
+        Me.抵銷科目_cb = New System.Windows.Forms.CheckBox()
32
+        Me.統制科目_cb = New System.Windows.Forms.CheckBox()
33
+        Me.英文名稱_tb = New System.Windows.Forms.TextBox()
34
+        Me.Label25 = New System.Windows.Forms.Label()
35
+        Me.Label19 = New System.Windows.Forms.Label()
36
+        Me.TextBox16 = New System.Windows.Forms.TextBox()
37
+        Me.ComboBox6 = New System.Windows.Forms.ComboBox()
38
+        Me.TextBox15 = New System.Windows.Forms.TextBox()
39
+        Me.ComboBox5 = New System.Windows.Forms.ComboBox()
40
+        Me.ComboBox4 = New System.Windows.Forms.ComboBox()
41
+        Me.ComboBox3 = New System.Windows.Forms.ComboBox()
42
+        Me.ComboBox2 = New System.Windows.Forms.ComboBox()
43
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
44
+        Me.修改_bt = New System.Windows.Forms.Button()
45
+        Me.刪除_bt = New System.Windows.Forms.Button()
46
+        Me.TextBox8 = New System.Windows.Forms.TextBox()
47
+        Me.Label16 = New System.Windows.Forms.Label()
48
+        Me.Label18 = New System.Windows.Forms.Label()
49
+        Me.Label17 = New System.Windows.Forms.Label()
50
+        Me.新增_bt = New System.Windows.Forms.Button()
51
+        Me.新增模式_cb = New System.Windows.Forms.CheckBox()
52
+        Me.修改刪除_cb = New System.Windows.Forms.CheckBox()
53
+        Me.顯示_cb = New System.Windows.Forms.CheckBox()
54
+        Me.Label20 = New System.Windows.Forms.Label()
55
+        Me.Label15 = New System.Windows.Forms.Label()
56
+        Me.Label11 = New System.Windows.Forms.Label()
57
+        Me.會計科目清單_dgv = New System.Windows.Forms.DataGridView()
58
+        Me.Label1 = New System.Windows.Forms.Label()
59
+        CType(Me.會計科目清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
60
+        Me.SuspendLayout()
61
+        '
62
+        '重新整理_bt
63
+        '
64
+        Me.重新整理_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
65
+        Me.重新整理_bt.ForeColor = System.Drawing.Color.Black
66
+        Me.重新整理_bt.Location = New System.Drawing.Point(1653, 6)
67
+        Me.重新整理_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
68
+        Me.重新整理_bt.Name = "重新整理_bt"
69
+        Me.重新整理_bt.Size = New System.Drawing.Size(125, 52)
70
+        Me.重新整理_bt.TabIndex = 760
71
+        Me.重新整理_bt.Text = "重新整理"
72
+        Me.重新整理_bt.UseVisualStyleBackColor = True
73
+        '
74
+        '批量存檔_bt
75
+        '
76
+        Me.批量存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
77
+        Me.批量存檔_bt.ForeColor = System.Drawing.Color.DarkGreen
78
+        Me.批量存檔_bt.Location = New System.Drawing.Point(1485, 5)
79
+        Me.批量存檔_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
80
+        Me.批量存檔_bt.Name = "批量存檔_bt"
81
+        Me.批量存檔_bt.Size = New System.Drawing.Size(79, 53)
82
+        Me.批量存檔_bt.TabIndex = 758
83
+        Me.批量存檔_bt.Text = "批量存檔"
84
+        Me.批量存檔_bt.UseVisualStyleBackColor = True
85
+        '
86
+        '停用_cb
87
+        '
88
+        Me.停用_cb.AutoSize = True
89
+        Me.停用_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
90
+        Me.停用_cb.ForeColor = System.Drawing.Color.Red
91
+        Me.停用_cb.Location = New System.Drawing.Point(824, 36)
92
+        Me.停用_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
93
+        Me.停用_cb.Name = "停用_cb"
94
+        Me.停用_cb.Size = New System.Drawing.Size(51, 20)
95
+        Me.停用_cb.TabIndex = 754
96
+        Me.停用_cb.Text = "停用"
97
+        Me.停用_cb.UseVisualStyleBackColor = True
98
+        '
99
+        'TextBox18
100
+        '
101
+        Me.TextBox18.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
102
+        Me.TextBox18.ForeColor = System.Drawing.Color.Green
103
+        Me.TextBox18.Location = New System.Drawing.Point(938, 7)
104
+        Me.TextBox18.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
105
+        Me.TextBox18.Multiline = True
106
+        Me.TextBox18.Name = "TextBox18"
107
+        Me.TextBox18.ScrollBars = System.Windows.Forms.ScrollBars.Both
108
+        Me.TextBox18.Size = New System.Drawing.Size(273, 48)
109
+        Me.TextBox18.TabIndex = 752
110
+        '
111
+        'Label26
112
+        '
113
+        Me.Label26.AutoSize = True
114
+        Me.Label26.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
115
+        Me.Label26.ForeColor = System.Drawing.Color.Green
116
+        Me.Label26.Location = New System.Drawing.Point(905, 11)
117
+        Me.Label26.Name = "Label26"
118
+        Me.Label26.Size = New System.Drawing.Size(32, 16)
119
+        Me.Label26.TabIndex = 753
120
+        Me.Label26.Text = "附註"
121
+        '
122
+        '抵銷科目_cb
123
+        '
124
+        Me.抵銷科目_cb.AutoSize = True
125
+        Me.抵銷科目_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
126
+        Me.抵銷科目_cb.ForeColor = System.Drawing.Color.Red
127
+        Me.抵銷科目_cb.Location = New System.Drawing.Point(733, 36)
128
+        Me.抵銷科目_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
129
+        Me.抵銷科目_cb.Name = "抵銷科目_cb"
130
+        Me.抵銷科目_cb.Size = New System.Drawing.Size(75, 20)
131
+        Me.抵銷科目_cb.TabIndex = 751
132
+        Me.抵銷科目_cb.Text = "抵銷科目"
133
+        Me.抵銷科目_cb.UseVisualStyleBackColor = True
134
+        '
135
+        '統制科目_cb
136
+        '
137
+        Me.統制科目_cb.AutoSize = True
138
+        Me.統制科目_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
139
+        Me.統制科目_cb.ForeColor = System.Drawing.Color.Red
140
+        Me.統制科目_cb.Location = New System.Drawing.Point(644, 36)
141
+        Me.統制科目_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
142
+        Me.統制科目_cb.Name = "統制科目_cb"
143
+        Me.統制科目_cb.Size = New System.Drawing.Size(75, 20)
144
+        Me.統制科目_cb.TabIndex = 750
145
+        Me.統制科目_cb.Text = "統制科目"
146
+        Me.統制科目_cb.UseVisualStyleBackColor = True
147
+        '
148
+        '英文名稱_tb
149
+        '
150
+        Me.英文名稱_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
151
+        Me.英文名稱_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
152
+        Me.英文名稱_tb.Location = New System.Drawing.Point(706, 6)
153
+        Me.英文名稱_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
154
+        Me.英文名稱_tb.Name = "英文名稱_tb"
155
+        Me.英文名稱_tb.Size = New System.Drawing.Size(198, 23)
156
+        Me.英文名稱_tb.TabIndex = 748
157
+        '
158
+        'Label25
159
+        '
160
+        Me.Label25.AutoSize = True
161
+        Me.Label25.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
162
+        Me.Label25.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
163
+        Me.Label25.Location = New System.Drawing.Point(640, 13)
164
+        Me.Label25.Name = "Label25"
165
+        Me.Label25.Size = New System.Drawing.Size(56, 16)
166
+        Me.Label25.TabIndex = 749
167
+        Me.Label25.Text = "英文名稱"
168
+        '
169
+        'Label19
170
+        '
171
+        Me.Label19.AutoSize = True
172
+        Me.Label19.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
173
+        Me.Label19.Location = New System.Drawing.Point(219, 39)
174
+        Me.Label19.Name = "Label19"
175
+        Me.Label19.Size = New System.Drawing.Size(32, 16)
176
+        Me.Label19.TabIndex = 746
177
+        Me.Label19.Text = "編號"
178
+        '
179
+        'TextBox16
180
+        '
181
+        Me.TextBox16.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
182
+        Me.TextBox16.Location = New System.Drawing.Point(527, 35)
183
+        Me.TextBox16.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
184
+        Me.TextBox16.Name = "TextBox16"
185
+        Me.TextBox16.Size = New System.Drawing.Size(110, 23)
186
+        Me.TextBox16.TabIndex = 744
187
+        '
188
+        'ComboBox6
189
+        '
190
+        Me.ComboBox6.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
191
+        Me.ComboBox6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
192
+        Me.ComboBox6.FormattingEnabled = True
193
+        Me.ComboBox6.Items.AddRange(New Object() {"1", "2", "3"})
194
+        Me.ComboBox6.Location = New System.Drawing.Point(456, 34)
195
+        Me.ComboBox6.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
196
+        Me.ComboBox6.Name = "ComboBox6"
197
+        Me.ComboBox6.Size = New System.Drawing.Size(63, 24)
198
+        Me.ComboBox6.TabIndex = 742
199
+        '
200
+        'TextBox15
201
+        '
202
+        Me.TextBox15.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
203
+        Me.TextBox15.Location = New System.Drawing.Point(59, 35)
204
+        Me.TextBox15.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
205
+        Me.TextBox15.Name = "TextBox15"
206
+        Me.TextBox15.Size = New System.Drawing.Size(46, 23)
207
+        Me.TextBox15.TabIndex = 740
208
+        Me.TextBox15.Text = "1"
209
+        Me.TextBox15.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
210
+        '
211
+        'ComboBox5
212
+        '
213
+        Me.ComboBox5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
214
+        Me.ComboBox5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
215
+        Me.ComboBox5.FormattingEnabled = True
216
+        Me.ComboBox5.Items.AddRange(New Object() {"1", "2"})
217
+        Me.ComboBox5.Location = New System.Drawing.Point(258, 34)
218
+        Me.ComboBox5.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
219
+        Me.ComboBox5.Name = "ComboBox5"
220
+        Me.ComboBox5.Size = New System.Drawing.Size(51, 24)
221
+        Me.ComboBox5.TabIndex = 738
222
+        '
223
+        'ComboBox4
224
+        '
225
+        Me.ComboBox4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
226
+        Me.ComboBox4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
227
+        Me.ComboBox4.FormattingEnabled = True
228
+        Me.ComboBox4.Location = New System.Drawing.Point(311, 34)
229
+        Me.ComboBox4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
230
+        Me.ComboBox4.Name = "ComboBox4"
231
+        Me.ComboBox4.Size = New System.Drawing.Size(87, 24)
232
+        Me.ComboBox4.TabIndex = 737
233
+        '
234
+        'ComboBox3
235
+        '
236
+        Me.ComboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
237
+        Me.ComboBox3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
238
+        Me.ComboBox3.FormattingEnabled = True
239
+        Me.ComboBox3.Location = New System.Drawing.Point(258, 6)
240
+        Me.ComboBox3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
241
+        Me.ComboBox3.Name = "ComboBox3"
242
+        Me.ComboBox3.Size = New System.Drawing.Size(140, 24)
243
+        Me.ComboBox3.TabIndex = 736
244
+        '
245
+        'ComboBox2
246
+        '
247
+        Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
248
+        Me.ComboBox2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
249
+        Me.ComboBox2.FormattingEnabled = True
250
+        Me.ComboBox2.Location = New System.Drawing.Point(113, 34)
251
+        Me.ComboBox2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
252
+        Me.ComboBox2.Name = "ComboBox2"
253
+        Me.ComboBox2.Size = New System.Drawing.Size(87, 24)
254
+        Me.ComboBox2.TabIndex = 735
255
+        '
256
+        'ComboBox1
257
+        '
258
+        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
259
+        Me.ComboBox1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
260
+        Me.ComboBox1.FormattingEnabled = True
261
+        Me.ComboBox1.Location = New System.Drawing.Point(59, 6)
262
+        Me.ComboBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
263
+        Me.ComboBox1.Name = "ComboBox1"
264
+        Me.ComboBox1.Size = New System.Drawing.Size(140, 24)
265
+        Me.ComboBox1.TabIndex = 734
266
+        '
267
+        '修改_bt
268
+        '
269
+        Me.修改_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
270
+        Me.修改_bt.ForeColor = System.Drawing.Color.DarkGreen
271
+        Me.修改_bt.Location = New System.Drawing.Point(1399, 5)
272
+        Me.修改_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
273
+        Me.修改_bt.Name = "修改_bt"
274
+        Me.修改_bt.Size = New System.Drawing.Size(79, 53)
275
+        Me.修改_bt.TabIndex = 731
276
+        Me.修改_bt.Text = "修改"
277
+        Me.修改_bt.UseVisualStyleBackColor = True
278
+        '
279
+        '刪除_bt
280
+        '
281
+        Me.刪除_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
282
+        Me.刪除_bt.ForeColor = System.Drawing.Color.Red
283
+        Me.刪除_bt.Location = New System.Drawing.Point(1571, 5)
284
+        Me.刪除_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
285
+        Me.刪除_bt.Name = "刪除_bt"
286
+        Me.刪除_bt.Size = New System.Drawing.Size(79, 53)
287
+        Me.刪除_bt.TabIndex = 732
288
+        Me.刪除_bt.Text = "刪除"
289
+        Me.刪除_bt.UseVisualStyleBackColor = True
290
+        '
291
+        'TextBox8
292
+        '
293
+        Me.TextBox8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
294
+        Me.TextBox8.Location = New System.Drawing.Point(456, 6)
295
+        Me.TextBox8.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
296
+        Me.TextBox8.Name = "TextBox8"
297
+        Me.TextBox8.Size = New System.Drawing.Size(181, 23)
298
+        Me.TextBox8.TabIndex = 733
299
+        '
300
+        'Label16
301
+        '
302
+        Me.Label16.AutoSize = True
303
+        Me.Label16.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
304
+        Me.Label16.Location = New System.Drawing.Point(208, 11)
305
+        Me.Label16.Name = "Label16"
306
+        Me.Label16.Size = New System.Drawing.Size(44, 16)
307
+        Me.Label16.TabIndex = 741
308
+        Me.Label16.Text = "第二層"
309
+        '
310
+        'Label18
311
+        '
312
+        Me.Label18.AutoSize = True
313
+        Me.Label18.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
314
+        Me.Label18.Location = New System.Drawing.Point(420, 39)
315
+        Me.Label18.Name = "Label18"
316
+        Me.Label18.Size = New System.Drawing.Size(32, 16)
317
+        Me.Label18.TabIndex = 745
318
+        Me.Label18.Text = "層級"
319
+        '
320
+        'Label17
321
+        '
322
+        Me.Label17.AutoSize = True
323
+        Me.Label17.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
324
+        Me.Label17.Location = New System.Drawing.Point(406, 11)
325
+        Me.Label17.Name = "Label17"
326
+        Me.Label17.Size = New System.Drawing.Size(44, 16)
327
+        Me.Label17.TabIndex = 743
328
+        Me.Label17.Text = "第三層"
329
+        '
330
+        '新增_bt
331
+        '
332
+        Me.新增_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
333
+        Me.新增_bt.ForeColor = System.Drawing.Color.Blue
334
+        Me.新增_bt.Location = New System.Drawing.Point(1312, 5)
335
+        Me.新增_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
336
+        Me.新增_bt.Name = "新增_bt"
337
+        Me.新增_bt.Size = New System.Drawing.Size(79, 53)
338
+        Me.新增_bt.TabIndex = 730
339
+        Me.新增_bt.Text = "新增"
340
+        Me.新增_bt.UseVisualStyleBackColor = True
341
+        '
342
+        '新增模式_cb
343
+        '
344
+        Me.新增模式_cb.AutoSize = True
345
+        Me.新增模式_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
346
+        Me.新增模式_cb.Location = New System.Drawing.Point(1218, 7)
347
+        Me.新增模式_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
348
+        Me.新增模式_cb.Name = "新增模式_cb"
349
+        Me.新增模式_cb.Size = New System.Drawing.Size(75, 20)
350
+        Me.新增模式_cb.TabIndex = 755
351
+        Me.新增模式_cb.Text = "新增模式"
352
+        Me.新增模式_cb.UseVisualStyleBackColor = True
353
+        '
354
+        '修改刪除_cb
355
+        '
356
+        Me.修改刪除_cb.AutoSize = True
357
+        Me.修改刪除_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
358
+        Me.修改刪除_cb.Location = New System.Drawing.Point(1219, 32)
359
+        Me.修改刪除_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
360
+        Me.修改刪除_cb.Name = "修改刪除_cb"
361
+        Me.修改刪除_cb.Size = New System.Drawing.Size(87, 20)
362
+        Me.修改刪除_cb.TabIndex = 756
363
+        Me.修改刪除_cb.Text = "修改、刪除"
364
+        Me.修改刪除_cb.UseVisualStyleBackColor = True
365
+        '
366
+        '顯示_cb
367
+        '
368
+        Me.顯示_cb.AutoSize = True
369
+        Me.顯示_cb.Checked = True
370
+        Me.顯示_cb.CheckState = System.Windows.Forms.CheckState.Checked
371
+        Me.顯示_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
372
+        Me.顯示_cb.ForeColor = System.Drawing.Color.Red
373
+        Me.顯示_cb.Location = New System.Drawing.Point(885, 36)
374
+        Me.顯示_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
375
+        Me.顯示_cb.Name = "顯示_cb"
376
+        Me.顯示_cb.Size = New System.Drawing.Size(51, 20)
377
+        Me.顯示_cb.TabIndex = 757
378
+        Me.顯示_cb.Text = "顯示"
379
+        Me.顯示_cb.UseVisualStyleBackColor = True
380
+        '
381
+        'Label20
382
+        '
383
+        Me.Label20.AutoSize = True
384
+        Me.Label20.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
385
+        Me.Label20.Location = New System.Drawing.Point(18, 40)
386
+        Me.Label20.Name = "Label20"
387
+        Me.Label20.Size = New System.Drawing.Size(32, 16)
388
+        Me.Label20.TabIndex = 747
389
+        Me.Label20.Text = "編號"
390
+        '
391
+        'Label15
392
+        '
393
+        Me.Label15.AutoSize = True
394
+        Me.Label15.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
395
+        Me.Label15.Location = New System.Drawing.Point(6, 13)
396
+        Me.Label15.Name = "Label15"
397
+        Me.Label15.Size = New System.Drawing.Size(44, 16)
398
+        Me.Label15.TabIndex = 739
399
+        Me.Label15.Text = "第一層"
400
+        '
401
+        'Label11
402
+        '
403
+        Me.Label11.FlatStyle = System.Windows.Forms.FlatStyle.Popup
404
+        Me.Label11.ForeColor = System.Drawing.Color.Red
405
+        Me.Label11.Location = New System.Drawing.Point(7, 62)
406
+        Me.Label11.Name = "Label11"
407
+        Me.Label11.Size = New System.Drawing.Size(630, 16)
408
+        Me.Label11.TabIndex = 1119
409
+        Me.Label11.Text = "開啟「會計管理科目」時請先選擇第一層指定會計科目後選擇「編號」第二層會計科目必須先選擇下方層級方可選擇" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
410
+        '
411
+        '會計科目清單_dgv
412
+        '
413
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
414
+        Me.會計科目清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
415
+        Me.會計科目清單_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
416
+            Or System.Windows.Forms.AnchorStyles.Left) _
417
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
418
+        Me.會計科目清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
419
+        Me.會計科目清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
420
+        Me.會計科目清單_dgv.Location = New System.Drawing.Point(9, 82)
421
+        Me.會計科目清單_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
422
+        Me.會計科目清單_dgv.Name = "會計科目清單_dgv"
423
+        Me.會計科目清單_dgv.RowHeadersWidth = 5
424
+        Me.會計科目清單_dgv.RowTemplate.Height = 24
425
+        Me.會計科目清單_dgv.Size = New System.Drawing.Size(1769, 619)
426
+        Me.會計科目清單_dgv.TabIndex = 761
427
+        '
428
+        'Label1
429
+        '
430
+        Me.Label1.ForeColor = System.Drawing.Color.Red
431
+        Me.Label1.Location = New System.Drawing.Point(1215, 59)
432
+        Me.Label1.Name = "Label1"
433
+        Me.Label1.Size = New System.Drawing.Size(608, 19)
434
+        Me.Label1.TabIndex = 1120
435
+        Me.Label1.Text = "使用新增、修改、批量存檔、刪除、重新整理按鍵功能前,請依照需求勾選「新增模式」、「修改、刪除」" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
436
+        '
437
+        '會計科目管理
438
+        '
439
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
440
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
441
+        Me.ClientSize = New System.Drawing.Size(1784, 711)
442
+        Me.Controls.Add(Me.Label1)
443
+        Me.Controls.Add(Me.Label11)
444
+        Me.Controls.Add(Me.會計科目清單_dgv)
445
+        Me.Controls.Add(Me.重新整理_bt)
446
+        Me.Controls.Add(Me.批量存檔_bt)
447
+        Me.Controls.Add(Me.停用_cb)
448
+        Me.Controls.Add(Me.TextBox18)
449
+        Me.Controls.Add(Me.Label26)
450
+        Me.Controls.Add(Me.抵銷科目_cb)
451
+        Me.Controls.Add(Me.統制科目_cb)
452
+        Me.Controls.Add(Me.英文名稱_tb)
453
+        Me.Controls.Add(Me.Label25)
454
+        Me.Controls.Add(Me.Label19)
455
+        Me.Controls.Add(Me.TextBox16)
456
+        Me.Controls.Add(Me.ComboBox6)
457
+        Me.Controls.Add(Me.TextBox15)
458
+        Me.Controls.Add(Me.ComboBox5)
459
+        Me.Controls.Add(Me.ComboBox4)
460
+        Me.Controls.Add(Me.ComboBox3)
461
+        Me.Controls.Add(Me.ComboBox2)
462
+        Me.Controls.Add(Me.ComboBox1)
463
+        Me.Controls.Add(Me.修改_bt)
464
+        Me.Controls.Add(Me.刪除_bt)
465
+        Me.Controls.Add(Me.TextBox8)
466
+        Me.Controls.Add(Me.Label16)
467
+        Me.Controls.Add(Me.Label18)
468
+        Me.Controls.Add(Me.Label17)
469
+        Me.Controls.Add(Me.新增_bt)
470
+        Me.Controls.Add(Me.新增模式_cb)
471
+        Me.Controls.Add(Me.修改刪除_cb)
472
+        Me.Controls.Add(Me.顯示_cb)
473
+        Me.Controls.Add(Me.Label20)
474
+        Me.Controls.Add(Me.Label15)
475
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
476
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
477
+        Me.Name = "會計科目管理"
478
+        Me.Text = "會計科目管理"
479
+        CType(Me.會計科目清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
480
+        Me.ResumeLayout(False)
481
+        Me.PerformLayout()
482
+
483
+    End Sub
484
+
485
+    Friend WithEvents 重新整理_bt As Button
486
+    Friend WithEvents 批量存檔_bt As Button
487
+    Friend WithEvents 停用_cb As CheckBox
488
+    Friend WithEvents TextBox18 As TextBox
489
+    Friend WithEvents Label26 As Label
490
+    Friend WithEvents 抵銷科目_cb As CheckBox
491
+    Friend WithEvents 統制科目_cb As CheckBox
492
+    Friend WithEvents 英文名稱_tb As TextBox
493
+    Friend WithEvents Label25 As Label
494
+    Friend WithEvents Label19 As Label
495
+    Friend WithEvents TextBox16 As TextBox
496
+    Friend WithEvents ComboBox6 As ComboBox
497
+    Friend WithEvents TextBox15 As TextBox
498
+    Friend WithEvents ComboBox5 As ComboBox
499
+    Friend WithEvents ComboBox4 As ComboBox
500
+    Friend WithEvents ComboBox3 As ComboBox
501
+    Friend WithEvents ComboBox2 As ComboBox
502
+    Friend WithEvents ComboBox1 As ComboBox
503
+    Friend WithEvents 修改_bt As Button
504
+    Friend WithEvents 刪除_bt As Button
505
+    Friend WithEvents TextBox8 As TextBox
506
+    Friend WithEvents Label16 As Label
507
+    Friend WithEvents Label18 As Label
508
+    Friend WithEvents Label17 As Label
509
+    Friend WithEvents 新增_bt As Button
510
+    Friend WithEvents 新增模式_cb As CheckBox
511
+    Friend WithEvents 修改刪除_cb As CheckBox
512
+    Friend WithEvents 顯示_cb As CheckBox
513
+    Friend WithEvents Label20 As Label
514
+    Friend WithEvents Label15 As Label
515
+    Friend WithEvents Label11 As Label
516
+    Friend WithEvents 會計科目清單_dgv As DataGridView
517
+    Friend WithEvents Label1 As Label
518
+End Class

+ 120
- 0
YD-ERP-SYS/財務系統管理/會計科目管理.resx 파일 보기

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

+ 178
- 0
YD-ERP-SYS/財務系統管理/會計科目管理.vb 파일 보기

@@ -0,0 +1,178 @@
1
+Option Strict Off
2
+Imports System.Data.SqlClient
3
+Public Class 會計科目管理
4
+    ReadOnly ds3 As New DataSet
5
+    Dim EDR As Integer = 0 : Dim ESTR As String
6
+    Private Sub Set_會計科目()
7
+        會計科目清單_dgv.DataSource = Nothing : ds3.Clear() : 會計科目清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
8
+        會計科目清單_dgv.ColumnHeadersHeight = 25 : 會計科目清單_dgv.AllowUserToAddRows = False
9
+        SQL_會計科目管理_查詢會計科目() : da.Fill(ds3) : 會計科目清單_dgv.DataSource = ds3.Tables(0) : conn.Close()
10
+        會計科目清單_dgv.Columns(0).FillWeight = 8 : 會計科目清單_dgv.Columns(1).FillWeight = 8 : 會計科目清單_dgv.Columns(2).FillWeight = 12 : 會計科目清單_dgv.Columns(3).FillWeight = 6
11
+        會計科目清單_dgv.Columns(4).FillWeight = 3 : 會計科目清單_dgv.Columns(5).FillWeight = 15 : 會計科目清單_dgv.Columns(6).FillWeight = 3 : 會計科目清單_dgv.Columns(7).FillWeight = 3
12
+        會計科目清單_dgv.Columns(8).FillWeight = 3 : 會計科目清單_dgv.Columns(9).FillWeight = 28 : 會計科目清單_dgv.Columns(10).FillWeight = 3
13
+    End Sub
14
+    Private Sub ComboBox1下拉表單資料載入()
15
+        conn.Close()
16
+        SQL_會計科目管理_查詢第一階編號() : ComboBox1.Items.Clear() : ComboBox2.Items.Clear() : ComboBox1.Text = "" : ComboBox2.Text = ""
17
+        While (dr.Read()) : ComboBox1.Items.Add(dr("第一階")) : ComboBox2.Items.Add(dr("編號")) : End While : conn.Close()
18
+    End Sub
19
+    Private Sub ComboBox3下拉表單資料載入()
20
+        conn.Close()
21
+        SQL_會計科目管理_查詢第二階編號() : ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : ComboBox3.Text = "" : ComboBox4.Text = ""
22
+        While (dr.Read()) : ComboBox3.Items.Add(dr("第二階")) : ComboBox4.Items.Add(dr("編號")) : End While : conn.Close()
23
+    End Sub
24
+    Private Sub ComboBox6變化()
25
+        If ComboBox6.Text = "1" Then : ComboBox5.Text = "1"
26
+        ElseIf ComboBox6.Text = "2" Then : ComboBox5.Text = "2"
27
+        ElseIf ComboBox6.Text = "3" Then : ComboBox5.Text = "2"
28
+        End If
29
+        If 修改刪除_cb.Checked = True Then : Else
30
+            If ComboBox2.Text = "" Then : Else
31
+                If ComboBox6.Text = "1" Then
32
+                    TextBox16.Text = ""
33
+                ElseIf ComboBox6.Text = "2" Then
34
+                    If ComboBox4.Text = "" Then : Else
35
+                        '----------------------自动生成流水号-------------------------------------------------------------------------
36
+                        SQL_會計科目管理_查詢最後一筆編號1()
37
+                        If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("編號").ToString, 2)) : Else : EDR = 0 : End If
38
+                        conn.Close() : EDR += 1
39
+                        If EDR < 10 Then : ESTR = ComboBox2.Text & "-" & "0" & EDR & "-00"
40
+                        ElseIf EDR > 9 And EDR < 100 Then : ESTR = ComboBox2.Text & "-" & "" & EDR & "-00"
41
+                        End If
42
+                        TextBox16.Text = ESTR
43
+                    End If
44
+                ElseIf ComboBox6.Text = "3" Then
45
+                    If ComboBox4.Text = "" Then : Else
46
+                        '----------------------自动生成流水号-------------------------------------------------------------------------
47
+                        SQL_會計科目管理_查詢最後一筆編號2()
48
+                        If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("編號").ToString, 2)) : Else : EDR = 0 : End If
49
+                        conn.Close() : EDR += 1
50
+                        If EDR < 10 Then : ESTR = ComboBox4.Text & "-" & "0" & EDR
51
+                        ElseIf EDR > 9 And EDR < 100 Then : ESTR = ComboBox4.Text & "-" & "" & EDR
52
+                        End If
53
+                        TextBox16.Text = ESTR
54
+                    End If
55
+                End If
56
+            End If
57
+        End If
58
+    End Sub
59
+    Private Sub 會計科目管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
60
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
61
+        TextBox15.Enabled = False : 修改刪除_cb.Checked = True : 新增_bt.Enabled = False : TextBox16.Enabled = False
62
+        Set_會計科目() : ComboBox1下拉表單資料載入()
63
+    End Sub
64
+    Private Sub DataGridView7_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 會計科目清單_dgv.CellClick
65
+        Dim SSXX As String
66
+        If e.RowIndex = -1 Then : Else
67
+            ComboBox6.Text = 會計科目清單_dgv(4, e.RowIndex).Value.ToString : SSXX = 會計科目清單_dgv(1, e.RowIndex).Value.ToString
68
+            ComboBox3.Text = SSXX
69
+            If 修改刪除_cb.Checked = True Then
70
+                TextBox8.Text = 會計科目清單_dgv(2, e.RowIndex).Value.ToString : TextBox16.Text = 會計科目清單_dgv(3, e.RowIndex).Value.ToString
71
+                英文名稱_tb.Text = 會計科目清單_dgv(5, e.RowIndex).Value.ToString : TextBox18.Text = 會計科目清單_dgv(9, e.RowIndex).Value.ToString
72
+                統制科目_cb.Checked = 會計科目清單_dgv(6, e.RowIndex).Value : 抵銷科目_cb.Checked = 會計科目清單_dgv(7, e.RowIndex).Value
73
+                停用_cb.Checked = 會計科目清單_dgv(8, e.RowIndex).Value
74
+            Else
75
+                ComboBox6變化()
76
+            End If
77
+            ComboBox1.Text = 會計科目清單_dgv(0, e.RowIndex).Value.ToString
78
+        End If
79
+    End Sub
80
+    Private Sub DataGridView7_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 會計科目清單_dgv.RowPostPaint
81
+        Dim linePen As New Pen(Color.Blue, 2)
82
+        If e.RowIndex = 會計科目清單_dgv.Rows.Count - 1 Then
83
+            Exit Sub
84
+        Else
85
+            If 會計科目清單_dgv(1, e.RowIndex).Value.ToString <> 會計科目清單_dgv(1, e.RowIndex + 1).Value.ToString Then
86
+                Dim startX As Integer = IIf(會計科目清單_dgv.RowHeadersVisible, 會計科目清單_dgv.RowHeadersWidth, 0)
87
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
88
+                Dim endX As Integer = startX + 會計科目清單_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 會計科目清單_dgv.HorizontalScrollingOffset
89
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
90
+                Exit Sub
91
+            End If
92
+        End If
93
+    End Sub
94
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.TextChanged
95
+        ComboBox2.SelectedIndex = ComboBox1.SelectedIndex : ComboBox3下拉表單資料載入()
96
+    End Sub
97
+    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.TextChanged
98
+        ComboBox1.SelectedIndex = ComboBox2.SelectedIndex : Set_會計科目() : ComboBox3下拉表單資料載入()
99
+    End Sub
100
+    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.TextChanged
101
+        ComboBox4.SelectedIndex = ComboBox3.SelectedIndex
102
+    End Sub
103
+    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.TextChanged
104
+        ComboBox3.SelectedIndex = ComboBox4.SelectedIndex
105
+    End Sub
106
+    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.TextChanged
107
+        ComboBox3下拉表單資料載入()
108
+    End Sub
109
+    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles 新增模式_cb.Click
110
+        新增模式_cb.Checked = True : 修改刪除_cb.Checked = False : TextBox16.Enabled = True
111
+        TextBox8.Text = "" : 英文名稱_tb.Text = "" : TextBox18.Text = "" : 統制科目_cb.Checked = False : 抵銷科目_cb.Checked = False : 停用_cb.Checked = False
112
+    End Sub
113
+    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles 修改刪除_cb.Click
114
+        新增模式_cb.Checked = False : 修改刪除_cb.Checked = True : TextBox16.Enabled = False
115
+    End Sub
116
+    Private Sub ComboBox6_TextChanged(sender As Object, e As EventArgs) Handles ComboBox6.TextChanged
117
+        ComboBox6變化()
118
+    End Sub
119
+    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
120
+        If TextBox8.Text = "" Then
121
+            MsgBox("資料有缺或有誤,請重新檢查")
122
+        Else
123
+            conn.Close() : dr.Close()
124
+            SQL_會計科目管理_修改會計科目() : conn.Close()
125
+            MsgBox("修改完成")
126
+        End If : Set_會計科目()
127
+    End Sub
128
+    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles 批量存檔_bt.Click
129
+        For i As Integer = 0 To 會計科目清單_dgv.Rows.Count - 1
130
+            資料數 = 會計科目清單_dgv.Rows.Count : MyModule1.進度條() : YD_ERP_SYS.ToolStripProgressBar1.Value = 最終數
131
+            PA1 = 會計科目清單_dgv.Rows(i).Cells("會計科目").Value : PA2 = 會計科目清單_dgv.Rows(i).Cells("層級").Value : PA3 = 會計科目清單_dgv.Rows(i).Cells("英文名稱").Value.ToString
132
+            PA4 = 會計科目清單_dgv.Rows(i).Cells("統制科目").Value : PA5 = 會計科目清單_dgv.Rows(i).Cells("抵銷科目").Value : PA6 = 會計科目清單_dgv.Rows(i).Cells("停用").Value
133
+            PA7 = 會計科目清單_dgv.Rows(i).Cells("附註").Value.ToString : PA8 = 會計科目清單_dgv.Rows(i).Cells("第一階").Value : PA9 = 會計科目清單_dgv.Rows(i).Cells("第二階").Value
134
+            PA10 = 會計科目清單_dgv.Rows(i).Cells("顯示").Value : PA11 = 會計科目清單_dgv.Rows(i).Cells("編號").Value
135
+            SQL_會計科目管理_快速修改會計科目() : conn.Close()
136
+        Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : MsgBox("修改完成")
137
+    End Sub
138
+    Private Sub Button21_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
139
+        Dim aa As MsgBoxResult
140
+        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
141
+        If aa = MsgBoxResult.Ok Then
142
+            SQL_會計科目管理_刪除會計科目() : conn.Close()
143
+            MsgBox("刪除完成")
144
+        End If
145
+        Set_會計科目()
146
+    End Sub
147
+    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
148
+        If TextBox8.Text = "" Or ComboBox6.Text = "" Then
149
+            MsgBox("資料有缺或有誤,請重新檢查")
150
+        Else
151
+            SQL_會計科目管理_查詢會計科目編號()
152
+            If dr.Read() Then
153
+                MsgBox("資料重複,請從新輸入或檢查") : conn.Close() : dr.Close()
154
+            Else
155
+                conn.Close() : dr.Close()
156
+                If ComboBox6.Text = "1" Then
157
+                    SQL_會計科目管理_新增會計科目編號1()
158
+                ElseIf ComboBox6.Text = "2" Then
159
+                    SQL_會計科目管理_新增會計科目編號2()
160
+                Else
161
+                    SQL_會計科目管理_新增會計科目編號3()
162
+                End If
163
+                MsgBox("新增完成")
164
+                conn.Close() : dr.Close()
165
+            End If
166
+        End If : Set_會計科目()
167
+    End Sub
168
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 重新整理_bt.Click
169
+        ComboBox1下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox6變化() : Set_會計科目()
170
+    End Sub
171
+    Private Sub 新增模式_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 新增模式_cb.CheckedChanged
172
+        If 新增模式_cb.Checked = True Then
173
+            新增_bt.Enabled = True : 修改_bt.Enabled = False : 批量存檔_bt.Enabled = False : 刪除_bt.Enabled = False : 重新整理_bt.Enabled = False
174
+        Else
175
+            新增_bt.Enabled = False : 修改_bt.Enabled = True : 批量存檔_bt.Enabled = True : 刪除_bt.Enabled = True : 重新整理_bt.Enabled = True
176
+        End If
177
+    End Sub
178
+End Class

+ 1908
- 0
YD-ERP-SYS/財務系統管理/營運報表.Designer.vb
파일 크기가 너무 크기때문에 변경 상태를 표시하지 않습니다.
파일 보기


+ 120
- 0
YD-ERP-SYS/財務系統管理/營運報表.resx 파일 보기

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

+ 911
- 0
YD-ERP-SYS/財務系統管理/營運報表.vb 파일 보기

@@ -0,0 +1,911 @@
1
+Option Strict Off
2
+Imports System.Data.SqlClient
3
+Public Class 營運報表
4
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet : ReadOnly ds5 As New DataSet : ReadOnly ds6 As New DataSet
5
+    ReadOnly ds7 As New DataSet : ReadOnly ds8 As New DataSet : ReadOnly ds9 As New DataSet : ReadOnly ds10 As New DataSet : ReadOnly ds11 As New DataSet : ReadOnly ds12 As New DataSet
6
+    Private Sub Set_DGV2開始()
7
+        主表_dgv.DataSource = Nothing : ds2.Clear() : 主表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
8
+        主表_dgv.ColumnHeadersHeight = 50 : 主表_dgv.AllowUserToAddRows = False
9
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
10
+    End Sub
11
+    Private Sub Set_DGV2結束()
12
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds2) : 主表_dgv.DataSource = ds2.Tables(0) : conn.Close()
13
+
14
+        主表_dgv.Columns(0).FillWeight = 40 : 主表_dgv.Columns(1).Visible = False : 主表_dgv.Columns(2).Visible = False : 主表_dgv.Columns(3).FillWeight = 90
15
+        主表_dgv.Columns(4).FillWeight = 90 : 主表_dgv.Columns(5).FillWeight = 150 : 主表_dgv.Columns(6).FillWeight = 80 : 主表_dgv.Columns(7).FillWeight = 80
16
+        主表_dgv.Columns(8).FillWeight = 80
17
+        主表_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 主表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 主表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"
18
+        主表_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 主表_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
19
+        主表_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 主表_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
20
+        主表_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 主表_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
21
+
22
+        主表_dgv.Columns(0).ReadOnly = True : 主表_dgv.Columns(1).ReadOnly = True : 主表_dgv.Columns(2).ReadOnly = True : 主表_dgv.Columns(3).ReadOnly = True
23
+        主表_dgv.Columns(4).ReadOnly = True : 主表_dgv.Columns(5).ReadOnly = True : 主表_dgv.Columns(6).ReadOnly = True : 主表_dgv.Columns(7).ReadOnly = True
24
+        主表_dgv.Columns(8).ReadOnly = True
25
+        TextBox61.Text = "0" : TextBox62.Text = "0" : TextBox63.Text = "0" : TextBox64.Text = "0"
26
+        For i As Integer = 0 To 主表_dgv.Rows.Count - 1
27
+
28
+            If 主表_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 主表_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
29
+            If 主表_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 主表_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
30
+            If 主表_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 主表_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
31
+            If 主表_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 主表_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
32
+            If 主表_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 主表_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
33
+            If 主表_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 主表_dgv.Rows(i).Cells("子項").Value = "" : End If
34
+            If 主表_dgv.Rows(i).Cells("層級").Value.ToString <> "3" Then : 主表_dgv.Rows(i).Cells("子細項").Value = "" : End If
35
+            If 主表_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then
36
+                主表_dgv.Rows(i).Cells("主項金額").Value = 0 : 主表_dgv.Rows(i).Cells("子項金額").Value = 0 : 主表_dgv.Rows(i).Cells("細項金額").Value = 0
37
+            End If
38
+            If i = 0 Then : Else
39
+                If 主表_dgv.Rows(i).Cells("第一階").Value.ToString = 主表_dgv.Rows(i - 1).Cells("第一階").Value.ToString Then : 主表_dgv.Rows(i).Cells("主項").Value = "" : End If
40
+                If 主表_dgv.Rows(i).Cells("第二階").Value.ToString = 主表_dgv.Rows(i - 1).Cells("第二階").Value.ToString Then : 主表_dgv.Rows(i).Cells("子項").Value = "" : End If
41
+            End If
42
+
43
+            If 主表_dgv("第一階", i).Value.ToString = "歲出合計" Then
44
+                主表_dgv("主項金額", i).Value = Val(主表_dgv.Rows(i).Cells("主項金額").Value) * -1
45
+                主表_dgv("子項金額", i).Value = Val(主表_dgv.Rows(i).Cells("子項金額").Value) * -1
46
+                主表_dgv("細項金額", i).Value = Val(主表_dgv.Rows(i).Cells("細項金額").Value) * -1
47
+            End If
48
+
49
+            If 主表_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox61.Text = Val(TextBox61.Text) + 主表_dgv.Rows(i).Cells("主項金額").Value : End If
50
+            If 主表_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox62.Text = Val(TextBox62.Text) + 主表_dgv.Rows(i).Cells("主項金額").Value : End If
51
+            If 主表_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox63.Text = Val(TextBox63.Text) + 主表_dgv.Rows(i).Cells("主項金額").Value : End If
52
+        Next
53
+        TextBox64.Text = Val(TextBox62.Text) - Val(TextBox63.Text)
54
+    End Sub
55
+    Private Sub Set_清單()
56
+        Set_DGV2開始()
57
+        SQL_營運報表_查詢清單()
58
+        Set_DGV2結束()
59
+    End Sub
60
+    Private Sub Set_清單1()
61
+        月1_dgv.DataSource = Nothing : ds.Clear() : 月1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
62
+        月1_dgv.ColumnHeadersHeight = 50 : 月1_dgv.AllowUserToAddRows = False
63
+        SQL_營運報表_查詢一月份清單() : da.Fill(ds) : 月1_dgv.DataSource = ds.Tables(0) : conn.Close()
64
+        月1_dgv.Columns(0).FillWeight = 20 : 月1_dgv.Columns(1).Visible = False : 月1_dgv.Columns(2).Visible = False : 月1_dgv.Columns(3).Visible = False
65
+        月1_dgv.Columns(4).Visible = False : 月1_dgv.Columns(5).Visible = False : 月1_dgv.Columns(6).Visible = False : 月1_dgv.Columns(7).Visible = False
66
+        月1_dgv.Columns(8).Visible = False : 月1_dgv.Columns(9).FillWeight = 75
67
+        月1_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
68
+        月1_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月1_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
69
+        月1_dgv.Columns(9).ReadOnly = True
70
+        TextBox1.Text = "0" : TextBox2.Text = "0" : TextBox3.Text = "0" : TextBox4.Text = "0" : TextBox30.Text = "0" : TextBox76.Text = "0"
71
+        For i As Integer = 0 To 月1_dgv.Rows.Count - 1
72
+            If 月1_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月1_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
73
+            If 月1_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月1_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
74
+            If 月1_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月1_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
75
+            If 月1_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月1_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
76
+            If 月1_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月1_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
77
+            If 月1_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月1_dgv.Rows(i).Cells("金額").Value = 月1_dgv.Rows(i).Cells("主項金額").Value
78
+            ElseIf 月1_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月1_dgv.Rows(i).Cells("金額").Value = 月1_dgv.Rows(i).Cells("子項金額").Value
79
+            ElseIf 月1_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月1_dgv.Rows(i).Cells("金額").Value = 月1_dgv.Rows(i).Cells("細項金額").Value
80
+            Else : 月1_dgv.Rows(i).Cells("金額").Value = 0 : End If
81
+
82
+            If 月1_dgv("第一階", i).Value.ToString = "歲出合計" Then
83
+                月1_dgv("金額", i).Value = Val(月1_dgv.Rows(i).Cells("金額").Value) * -1
84
+            End If
85
+
86
+            If 月1_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox1.Text = Val(TextBox1.Text) + 月1_dgv.Rows(i).Cells("主項金額").Value : End If
87
+            If 月1_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox2.Text = Val(TextBox2.Text) + 月1_dgv.Rows(i).Cells("主項金額").Value : End If
88
+            If 月1_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox3.Text = Val(TextBox3.Text) + 月1_dgv.Rows(i).Cells("主項金額").Value : End If
89
+            If 月1_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox30.Text = Val(TextBox30.Text) + 月1_dgv.Rows(i).Cells("主項金額").Value : End If
90
+        Next
91
+        TextBox3.Text = Val(TextBox3.Text) * -1
92
+        TextBox4.Text = Val(TextBox30.Text) + Val(TextBox1.Text) + Val(TextBox2.Text) - Val(TextBox3.Text) : TextBox76.Text = Val(TextBox2.Text) - Val(TextBox3.Text)
93
+    End Sub
94
+    Private Sub Set_清單2()
95
+        月2_dgv.DataSource = Nothing : ds1.Clear() : 月2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
96
+        月2_dgv.ColumnHeadersHeight = 50 : 月2_dgv.AllowUserToAddRows = False
97
+        SQL_營運報表_查詢二月份清單() : da.Fill(ds1) : 月2_dgv.DataSource = ds1.Tables(0) : conn.Close()
98
+        月2_dgv.Columns(0).FillWeight = 20 : 月2_dgv.Columns(1).Visible = False : 月2_dgv.Columns(2).Visible = False : 月2_dgv.Columns(3).Visible = False
99
+        月2_dgv.Columns(4).Visible = False : 月2_dgv.Columns(5).Visible = False : 月2_dgv.Columns(6).Visible = False : 月2_dgv.Columns(7).Visible = False
100
+        月2_dgv.Columns(8).Visible = False : 月2_dgv.Columns(9).FillWeight = 75
101
+        月2_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
102
+        月2_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月2_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
103
+        月2_dgv.Columns(9).ReadOnly = True
104
+        TextBox5.Text = "0" : TextBox6.Text = "0" : TextBox7.Text = "0" : TextBox8.Text = "0" : TextBox29.Text = "0" : TextBox75.Text = "0"
105
+        For i As Integer = 0 To 月2_dgv.Rows.Count - 1
106
+            If 月2_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月2_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
107
+            If 月2_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月2_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
108
+            If 月2_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月2_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
109
+            If 月2_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月2_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
110
+            If 月2_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月2_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
111
+            If 月2_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月2_dgv.Rows(i).Cells("金額").Value = 月2_dgv.Rows(i).Cells("主項金額").Value
112
+            ElseIf 月2_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月2_dgv.Rows(i).Cells("金額").Value = 月2_dgv.Rows(i).Cells("子項金額").Value
113
+            ElseIf 月2_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月2_dgv.Rows(i).Cells("金額").Value = 月2_dgv.Rows(i).Cells("細項金額").Value
114
+            Else : 月2_dgv.Rows(i).Cells("金額").Value = 0 : End If
115
+
116
+            If 月2_dgv("第一階", i).Value.ToString = "歲出合計" Then
117
+                月2_dgv("金額", i).Value = Val(月2_dgv.Rows(i).Cells("金額").Value) * -1
118
+            End If
119
+
120
+            If 月2_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox5.Text = Val(TextBox5.Text) + 月2_dgv.Rows(i).Cells("主項金額").Value : End If
121
+            If 月2_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox6.Text = Val(TextBox6.Text) + 月2_dgv.Rows(i).Cells("主項金額").Value : End If
122
+            If 月2_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox7.Text = Val(TextBox7.Text) + 月2_dgv.Rows(i).Cells("主項金額").Value : End If
123
+            If 月2_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox29.Text = Val(TextBox29.Text) + 月2_dgv.Rows(i).Cells("主項金額").Value : End If
124
+        Next
125
+        If Val(TextBox29.Text) > 0 Then
126
+            TextBox87.Text = Val(TextBox29.Text) - Val(TextBox4.Text)
127
+        Else
128
+            TextBox87.Text = 0
129
+        End If
130
+
131
+        TextBox7.Text = Val(TextBox7.Text) * -1
132
+        TextBox8.Text = Val(TextBox29.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) - Val(TextBox7.Text)
133
+        TextBox75.Text = Val(TextBox6.Text) - Val(TextBox7.Text)
134
+    End Sub
135
+    Private Sub Set_清單3()
136
+        月3_dgv.DataSource = Nothing : ds3.Clear() : 月3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
137
+        月3_dgv.ColumnHeadersHeight = 50 : 月3_dgv.AllowUserToAddRows = False
138
+        SQL_營運報表_查詢三月份清單() : da.Fill(ds3) : 月3_dgv.DataSource = ds3.Tables(0) : conn.Close()
139
+        月3_dgv.Columns(0).FillWeight = 20 : 月3_dgv.Columns(1).Visible = False : 月3_dgv.Columns(2).Visible = False : 月3_dgv.Columns(3).Visible = False
140
+        月3_dgv.Columns(4).Visible = False : 月3_dgv.Columns(5).Visible = False : 月3_dgv.Columns(6).Visible = False : 月3_dgv.Columns(7).Visible = False
141
+        月3_dgv.Columns(8).Visible = False : 月3_dgv.Columns(9).FillWeight = 75
142
+        月3_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
143
+        月3_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月3_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
144
+        月3_dgv.Columns(9).ReadOnly = True
145
+        TextBox9.Text = "0" : TextBox10.Text = "0" : TextBox11.Text = "0" : TextBox12.Text = "0" : TextBox28.Text = "0" : TextBox74.Text = "0"
146
+        For i As Integer = 0 To 月3_dgv.Rows.Count - 1
147
+            If 月3_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月3_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
148
+            If 月3_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月3_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
149
+            If 月3_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月3_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
150
+            If 月3_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月3_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
151
+            If 月3_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月3_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
152
+            If 月3_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月3_dgv.Rows(i).Cells("金額").Value = 月3_dgv.Rows(i).Cells("主項金額").Value
153
+            ElseIf 月3_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月3_dgv.Rows(i).Cells("金額").Value = 月3_dgv.Rows(i).Cells("子項金額").Value
154
+            ElseIf 月3_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月3_dgv.Rows(i).Cells("金額").Value = 月3_dgv.Rows(i).Cells("細項金額").Value
155
+            Else : 月3_dgv.Rows(i).Cells("金額").Value = 0 : End If
156
+
157
+            If 月3_dgv("第一階", i).Value.ToString = "歲出合計" Then
158
+                月3_dgv("金額", i).Value = Val(月3_dgv.Rows(i).Cells("金額").Value) * -1
159
+            End If
160
+
161
+            If 月3_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox9.Text = Val(TextBox9.Text) + 月3_dgv.Rows(i).Cells("主項金額").Value : End If
162
+            If 月3_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox10.Text = Val(TextBox10.Text) + 月3_dgv.Rows(i).Cells("主項金額").Value : End If
163
+            If 月3_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox11.Text = Val(TextBox11.Text) + 月3_dgv.Rows(i).Cells("主項金額").Value : End If
164
+            If 月3_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox28.Text = Val(TextBox28.Text) + 月3_dgv.Rows(i).Cells("主項金額").Value : End If
165
+        Next
166
+        If Val(TextBox28.Text) > 0 Then
167
+            TextBox86.Text = Val(TextBox28.Text) - Val(TextBox8.Text)
168
+        Else
169
+            TextBox86.Text = 0
170
+        End If
171
+
172
+        TextBox11.Text = Val(TextBox11.Text) * -1
173
+        TextBox12.Text = Val(TextBox28.Text) + Val(TextBox9.Text) + Val(TextBox10.Text) - Val(TextBox11.Text)
174
+        TextBox74.Text = Val(TextBox10.Text) - Val(TextBox11.Text)
175
+    End Sub
176
+    Private Sub Set_清單4()
177
+        月4_dgv.DataSource = Nothing : ds4.Clear() : 月4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
178
+        月4_dgv.ColumnHeadersHeight = 50 : 月4_dgv.AllowUserToAddRows = False
179
+        SQL_營運報表_查詢四月份清單() : da.Fill(ds4) : 月4_dgv.DataSource = ds4.Tables(0) : conn.Close()
180
+        月4_dgv.Columns(0).FillWeight = 20 : 月4_dgv.Columns(1).Visible = False : 月4_dgv.Columns(2).Visible = False : 月4_dgv.Columns(3).Visible = False
181
+        月4_dgv.Columns(4).Visible = False : 月4_dgv.Columns(5).Visible = False : 月4_dgv.Columns(6).Visible = False : 月4_dgv.Columns(7).Visible = False
182
+        月4_dgv.Columns(8).Visible = False : 月4_dgv.Columns(9).FillWeight = 75
183
+        月4_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
184
+        月4_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月4_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
185
+        月4_dgv.Columns(9).ReadOnly = True
186
+        TextBox13.Text = "0" : TextBox14.Text = "0" : TextBox15.Text = "0" : TextBox16.Text = "0" : TextBox27.Text = "0" : TextBox73.Text = "0"
187
+        For i As Integer = 0 To 月4_dgv.Rows.Count - 1
188
+            If 月4_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月4_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
189
+            If 月4_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月4_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
190
+            If 月4_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月4_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
191
+            If 月4_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月4_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
192
+            If 月4_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月4_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
193
+            If 月4_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月4_dgv.Rows(i).Cells("金額").Value = 月4_dgv.Rows(i).Cells("主項金額").Value
194
+            ElseIf 月4_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月4_dgv.Rows(i).Cells("金額").Value = 月4_dgv.Rows(i).Cells("子項金額").Value
195
+            ElseIf 月4_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月4_dgv.Rows(i).Cells("金額").Value = 月4_dgv.Rows(i).Cells("細項金額").Value
196
+            Else : 月4_dgv.Rows(i).Cells("金額").Value = 0 : End If
197
+
198
+            If 月4_dgv("第一階", i).Value.ToString = "歲出合計" Then
199
+                月4_dgv("金額", i).Value = Val(月4_dgv.Rows(i).Cells("金額").Value) * -1
200
+            End If
201
+
202
+            If 月4_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox13.Text = Val(TextBox13.Text) + 月4_dgv.Rows(i).Cells("主項金額").Value : End If
203
+            If 月4_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox14.Text = Val(TextBox14.Text) + 月4_dgv.Rows(i).Cells("主項金額").Value : End If
204
+            If 月4_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox15.Text = Val(TextBox15.Text) + 月4_dgv.Rows(i).Cells("主項金額").Value : End If
205
+            If 月4_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox27.Text = Val(TextBox27.Text) + 月4_dgv.Rows(i).Cells("主項金額").Value : End If
206
+        Next
207
+        If Val(TextBox27.Text) > 0 Then
208
+            TextBox85.Text = Val(TextBox27.Text) - Val(TextBox12.Text)
209
+        Else
210
+            TextBox85.Text = 0
211
+        End If
212
+
213
+        TextBox15.Text = Val(TextBox15.Text) * -1
214
+        TextBox16.Text = Val(TextBox27.Text) + Val(TextBox13.Text) + Val(TextBox14.Text) - Val(TextBox15.Text)
215
+        TextBox73.Text = Val(TextBox14.Text) - Val(TextBox15.Text)
216
+    End Sub
217
+    Private Sub Set_清單5()
218
+        月5_dgv.DataSource = Nothing : ds5.Clear() : 月5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
219
+        月5_dgv.ColumnHeadersHeight = 50 : 月5_dgv.AllowUserToAddRows = False
220
+        SQL_營運報表_查詢五月份清單() : da.Fill(ds5) : 月5_dgv.DataSource = ds5.Tables(0) : conn.Close()
221
+        月5_dgv.Columns(0).FillWeight = 20 : 月5_dgv.Columns(1).Visible = False : 月5_dgv.Columns(2).Visible = False : 月5_dgv.Columns(3).Visible = False
222
+        月5_dgv.Columns(4).Visible = False : 月5_dgv.Columns(5).Visible = False : 月5_dgv.Columns(6).Visible = False : 月5_dgv.Columns(7).Visible = False
223
+        月5_dgv.Columns(8).Visible = False : 月5_dgv.Columns(9).FillWeight = 75
224
+        月5_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
225
+        月5_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月5_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
226
+        月5_dgv.Columns(9).ReadOnly = True
227
+        TextBox17.Text = "0" : TextBox18.Text = "0" : TextBox19.Text = "0" : TextBox20.Text = "0" : TextBox26.Text = "0" : TextBox72.Text = "0"
228
+        For i As Integer = 0 To 月5_dgv.Rows.Count - 1
229
+            If 月5_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月5_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
230
+            If 月5_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月5_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
231
+            If 月5_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月5_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
232
+            If 月5_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月5_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
233
+            If 月5_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月5_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
234
+            If 月5_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月5_dgv.Rows(i).Cells("金額").Value = 月5_dgv.Rows(i).Cells("主項金額").Value
235
+            ElseIf 月5_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月5_dgv.Rows(i).Cells("金額").Value = 月5_dgv.Rows(i).Cells("子項金額").Value
236
+            ElseIf 月5_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月5_dgv.Rows(i).Cells("金額").Value = 月5_dgv.Rows(i).Cells("細項金額").Value
237
+            Else : 月5_dgv.Rows(i).Cells("金額").Value = 0 : End If
238
+
239
+            If 月5_dgv("第一階", i).Value.ToString = "歲出合計" Then
240
+                月5_dgv("金額", i).Value = Val(月5_dgv.Rows(i).Cells("金額").Value) * -1
241
+            End If
242
+
243
+            If 月5_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox17.Text = Val(TextBox17.Text) + 月5_dgv.Rows(i).Cells("主項金額").Value : End If
244
+            If 月5_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox18.Text = Val(TextBox18.Text) + 月5_dgv.Rows(i).Cells("主項金額").Value : End If
245
+            If 月5_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox19.Text = Val(TextBox19.Text) + 月5_dgv.Rows(i).Cells("主項金額").Value : End If
246
+            If 月5_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox26.Text = Val(TextBox26.Text) + 月5_dgv.Rows(i).Cells("主項金額").Value : End If
247
+        Next
248
+        If Val(TextBox26.Text) > 0 Then
249
+            TextBox84.Text = Val(TextBox26.Text) - Val(TextBox16.Text)
250
+        Else
251
+            TextBox84.Text = 0
252
+        End If
253
+
254
+        TextBox19.Text = Val(TextBox19.Text) * -1
255
+        TextBox20.Text = Val(TextBox17.Text) + Val(TextBox18.Text) - Val(TextBox19.Text) + Val(TextBox26.Text)
256
+        TextBox72.Text = Val(TextBox18.Text) - Val(TextBox19.Text)
257
+    End Sub
258
+    Private Sub Set_清單6()
259
+        月6_dgv.DataSource = Nothing : ds6.Clear() : 月6_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
260
+        月6_dgv.ColumnHeadersHeight = 50 : 月6_dgv.AllowUserToAddRows = False
261
+        SQL_營運報表_查詢六月份清單() : da.Fill(ds6) : 月6_dgv.DataSource = ds6.Tables(0) : conn.Close()
262
+        月6_dgv.Columns(0).FillWeight = 20 : 月6_dgv.Columns(1).Visible = False : 月6_dgv.Columns(2).Visible = False : 月6_dgv.Columns(3).Visible = False
263
+        月6_dgv.Columns(4).Visible = False : 月6_dgv.Columns(5).Visible = False : 月6_dgv.Columns(6).Visible = False : 月6_dgv.Columns(7).Visible = False
264
+        月6_dgv.Columns(8).Visible = False : 月6_dgv.Columns(9).FillWeight = 75
265
+        月6_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
266
+        月6_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月6_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
267
+        月6_dgv.Columns(9).ReadOnly = True
268
+        TextBox21.Text = "0" : TextBox22.Text = "0" : TextBox23.Text = "0" : TextBox24.Text = "0" : TextBox25.Text = "0" : TextBox71.Text = "0"
269
+        For i As Integer = 0 To 月6_dgv.Rows.Count - 1
270
+            If 月6_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月6_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
271
+            If 月6_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月6_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
272
+            If 月6_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月6_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
273
+            If 月6_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月6_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
274
+            If 月6_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月6_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
275
+            If 月6_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月6_dgv.Rows(i).Cells("金額").Value = 月6_dgv.Rows(i).Cells("主項金額").Value
276
+            ElseIf 月6_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月6_dgv.Rows(i).Cells("金額").Value = 月6_dgv.Rows(i).Cells("子項金額").Value
277
+            ElseIf 月6_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月6_dgv.Rows(i).Cells("金額").Value = 月6_dgv.Rows(i).Cells("細項金額").Value
278
+            Else : 月6_dgv.Rows(i).Cells("金額").Value = 0 : End If
279
+
280
+            If 月6_dgv("第一階", i).Value.ToString = "歲出合計" Then
281
+                月6_dgv("金額", i).Value = Val(月6_dgv.Rows(i).Cells("金額").Value) * -1
282
+            End If
283
+
284
+            If 月6_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox21.Text = Val(TextBox21.Text) + 月6_dgv.Rows(i).Cells("主項金額").Value : End If
285
+            If 月6_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox22.Text = Val(TextBox22.Text) + 月6_dgv.Rows(i).Cells("主項金額").Value : End If
286
+            If 月6_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox23.Text = Val(TextBox23.Text) + 月6_dgv.Rows(i).Cells("主項金額").Value : End If
287
+            If 月6_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox25.Text = Val(TextBox25.Text) + 月6_dgv.Rows(i).Cells("主項金額").Value : End If
288
+        Next
289
+        If Val(TextBox25.Text) > 0 Then
290
+            TextBox83.Text = Val(TextBox25.Text) - Val(TextBox20.Text)
291
+        Else
292
+            TextBox83.Text = 0
293
+        End If
294
+
295
+        TextBox23.Text = Val(TextBox23.Text) * -1
296
+        TextBox24.Text = Val(TextBox21.Text) + Val(TextBox22.Text) - Val(TextBox23.Text) + Val(TextBox25.Text)
297
+        TextBox71.Text = Val(TextBox22.Text) - Val(TextBox23.Text)
298
+    End Sub
299
+    Private Sub Set_清單7()
300
+        月7_dgv.DataSource = Nothing : ds7.Clear() : 月7_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
301
+        月7_dgv.ColumnHeadersHeight = 50 : 月7_dgv.AllowUserToAddRows = False
302
+        SQL_營運報表_查詢七月份清單() : da.Fill(ds7) : 月7_dgv.DataSource = ds7.Tables(0) : conn.Close()
303
+        月7_dgv.Columns(0).FillWeight = 20 : 月7_dgv.Columns(1).Visible = False : 月7_dgv.Columns(2).Visible = False : 月7_dgv.Columns(3).Visible = False
304
+        月7_dgv.Columns(4).Visible = False : 月7_dgv.Columns(5).Visible = False : 月7_dgv.Columns(6).Visible = False : 月7_dgv.Columns(7).Visible = False
305
+        月7_dgv.Columns(8).Visible = False : 月7_dgv.Columns(9).FillWeight = 75
306
+        月7_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
307
+        月7_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月7_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
308
+        月7_dgv.Columns(9).ReadOnly = True
309
+        TextBox31.Text = "0" : TextBox32.Text = "0" : TextBox33.Text = "0" : TextBox34.Text = "0" : TextBox35.Text = "0" : TextBox70.Text = "0"
310
+        For i As Integer = 0 To 月7_dgv.Rows.Count - 1
311
+            If 月7_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月7_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
312
+            If 月7_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月7_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
313
+            If 月7_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月7_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
314
+            If 月7_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月7_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
315
+            If 月7_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月7_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
316
+            If 月7_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月7_dgv.Rows(i).Cells("金額").Value = 月7_dgv.Rows(i).Cells("主項金額").Value
317
+            ElseIf 月7_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月7_dgv.Rows(i).Cells("金額").Value = 月7_dgv.Rows(i).Cells("子項金額").Value
318
+            ElseIf 月7_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月7_dgv.Rows(i).Cells("金額").Value = 月7_dgv.Rows(i).Cells("細項金額").Value
319
+            Else : 月7_dgv.Rows(i).Cells("金額").Value = 0 : End If
320
+
321
+            If 月7_dgv("第一階", i).Value.ToString = "歲出合計" Then
322
+                月7_dgv("金額", i).Value = Val(月7_dgv.Rows(i).Cells("金額").Value) * -1
323
+            End If
324
+
325
+            If 月7_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox35.Text = Val(TextBox35.Text) + 月7_dgv.Rows(i).Cells("主項金額").Value : End If
326
+            If 月7_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox34.Text = Val(TextBox34.Text) + 月7_dgv.Rows(i).Cells("主項金額").Value : End If
327
+            If 月7_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox33.Text = Val(TextBox33.Text) + 月7_dgv.Rows(i).Cells("主項金額").Value : End If
328
+            If 月7_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox31.Text = Val(TextBox31.Text) + 月7_dgv.Rows(i).Cells("主項金額").Value : End If
329
+        Next
330
+        If Val(TextBox31.Text) > 0 Then
331
+            TextBox82.Text = Val(TextBox31.Text) - Val(TextBox24.Text)
332
+        Else
333
+            TextBox82.Text = 0
334
+        End If
335
+
336
+        TextBox33.Text = Val(TextBox33.Text) * -1
337
+        TextBox32.Text = Val(TextBox35.Text) + Val(TextBox34.Text) - Val(TextBox33.Text) + Val(TextBox31.Text)
338
+        TextBox70.Text = Val(TextBox34.Text) - Val(TextBox33.Text)
339
+    End Sub
340
+    Private Sub Set_清單8()
341
+        月8_dgv.DataSource = Nothing : ds8.Clear() : 月8_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
342
+        月8_dgv.ColumnHeadersHeight = 50 : 月8_dgv.AllowUserToAddRows = False
343
+        SQL_營運報表_查詢八月份清單() : da.Fill(ds8) : 月8_dgv.DataSource = ds8.Tables(0) : conn.Close()
344
+        月8_dgv.Columns(0).FillWeight = 20 : 月8_dgv.Columns(1).Visible = False : 月8_dgv.Columns(2).Visible = False : 月8_dgv.Columns(3).Visible = False
345
+        月8_dgv.Columns(4).Visible = False : 月8_dgv.Columns(5).Visible = False : 月8_dgv.Columns(6).Visible = False : 月8_dgv.Columns(7).Visible = False
346
+        月8_dgv.Columns(8).Visible = False : 月8_dgv.Columns(9).FillWeight = 75
347
+        月8_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
348
+        月8_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月8_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
349
+        月8_dgv.Columns(9).ReadOnly = True
350
+        TextBox36.Text = "0" : TextBox37.Text = "0" : TextBox38.Text = "0" : TextBox39.Text = "0" : TextBox40.Text = "0" : TextBox69.Text = "0"
351
+        For i As Integer = 0 To 月8_dgv.Rows.Count - 1
352
+            If 月8_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月8_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
353
+            If 月8_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月8_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
354
+            If 月8_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月8_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
355
+            If 月8_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月8_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
356
+            If 月8_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月8_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
357
+            If 月8_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月8_dgv.Rows(i).Cells("金額").Value = 月8_dgv.Rows(i).Cells("主項金額").Value
358
+            ElseIf 月8_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月8_dgv.Rows(i).Cells("金額").Value = 月8_dgv.Rows(i).Cells("子項金額").Value
359
+            ElseIf 月8_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月8_dgv.Rows(i).Cells("金額").Value = 月8_dgv.Rows(i).Cells("細項金額").Value
360
+            Else : 月8_dgv.Rows(i).Cells("金額").Value = 0 : End If
361
+
362
+            If 月8_dgv("第一階", i).Value.ToString = "歲出合計" Then
363
+                月8_dgv("金額", i).Value = Val(月8_dgv.Rows(i).Cells("金額").Value) * -1
364
+            End If
365
+
366
+            If 月8_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox40.Text = Val(TextBox40.Text) + 月8_dgv.Rows(i).Cells("主項金額").Value : End If
367
+            If 月8_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox39.Text = Val(TextBox39.Text) + 月8_dgv.Rows(i).Cells("主項金額").Value : End If
368
+            If 月8_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox38.Text = Val(TextBox38.Text) + 月8_dgv.Rows(i).Cells("主項金額").Value : End If
369
+            If 月8_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox36.Text = Val(TextBox36.Text) + 月8_dgv.Rows(i).Cells("主項金額").Value : End If
370
+        Next
371
+        If Val(TextBox36.Text) > 0 Then
372
+            TextBox81.Text = Val(TextBox36.Text) - Val(TextBox32.Text)
373
+        Else
374
+            TextBox81.Text = 0
375
+        End If
376
+
377
+        TextBox38.Text = Val(TextBox38.Text) * -1
378
+        TextBox37.Text = Val(TextBox40.Text) + Val(TextBox39.Text) - Val(TextBox38.Text) + Val(TextBox36.Text)
379
+        TextBox69.Text = Val(TextBox39.Text) - Val(TextBox38.Text)
380
+    End Sub
381
+    Private Sub Set_清單9()
382
+        月9_dgv.DataSource = Nothing : ds9.Clear() : 月9_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
383
+        月9_dgv.ColumnHeadersHeight = 50 : 月9_dgv.AllowUserToAddRows = False
384
+        SQL_營運報表_查詢九月份清單() : da.Fill(ds9) : 月9_dgv.DataSource = ds9.Tables(0) : conn.Close()
385
+        月9_dgv.Columns(0).FillWeight = 20 : 月9_dgv.Columns(1).Visible = False : 月9_dgv.Columns(2).Visible = False : 月9_dgv.Columns(3).Visible = False
386
+        月9_dgv.Columns(4).Visible = False : 月9_dgv.Columns(5).Visible = False : 月9_dgv.Columns(6).Visible = False : 月9_dgv.Columns(7).Visible = False
387
+        月9_dgv.Columns(8).Visible = False : 月9_dgv.Columns(9).FillWeight = 75
388
+        月9_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
389
+        月9_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月9_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
390
+        月9_dgv.Columns(9).ReadOnly = True
391
+        TextBox41.Text = "0" : TextBox42.Text = "0" : TextBox43.Text = "0" : TextBox44.Text = "0" : TextBox45.Text = "0" : TextBox68.Text = "0"
392
+        For i As Integer = 0 To 月9_dgv.Rows.Count - 1
393
+            If 月9_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月9_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
394
+            If 月9_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月9_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
395
+            If 月9_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月9_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
396
+            If 月9_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月9_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
397
+            If 月9_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月9_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
398
+            If 月9_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月9_dgv.Rows(i).Cells("金額").Value = 月9_dgv.Rows(i).Cells("主項金額").Value
399
+            ElseIf 月9_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月9_dgv.Rows(i).Cells("金額").Value = 月9_dgv.Rows(i).Cells("子項金額").Value
400
+            ElseIf 月9_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月9_dgv.Rows(i).Cells("金額").Value = 月9_dgv.Rows(i).Cells("細項金額").Value
401
+            Else : 月9_dgv.Rows(i).Cells("金額").Value = 0 : End If
402
+
403
+            If 月9_dgv("第一階", i).Value.ToString = "歲出合計" Then
404
+                月9_dgv("金額", i).Value = Val(月9_dgv.Rows(i).Cells("金額").Value) * -1
405
+            End If
406
+
407
+            If 月9_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox45.Text = Val(TextBox45.Text) + 月9_dgv.Rows(i).Cells("主項金額").Value : End If
408
+            If 月9_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox44.Text = Val(TextBox44.Text) + 月9_dgv.Rows(i).Cells("主項金額").Value : End If
409
+            If 月9_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox43.Text = Val(TextBox43.Text) + 月9_dgv.Rows(i).Cells("主項金額").Value : End If
410
+            If 月9_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox41.Text = Val(TextBox41.Text) + 月9_dgv.Rows(i).Cells("主項金額").Value : End If
411
+        Next
412
+        If Val(TextBox41.Text) > 0 Then
413
+            TextBox80.Text = Val(TextBox41.Text) - Val(TextBox37.Text)
414
+        Else
415
+            TextBox80.Text = 0
416
+        End If
417
+
418
+        TextBox43.Text = Val(TextBox43.Text) * -1
419
+        TextBox42.Text = Val(TextBox45.Text) + Val(TextBox44.Text) - Val(TextBox43.Text) + Val(TextBox41.Text)
420
+        TextBox68.Text = Val(TextBox44.Text) - Val(TextBox43.Text)
421
+    End Sub
422
+    Private Sub Set_清單10()
423
+        月10_dgv.DataSource = Nothing : ds10.Clear() : 月10_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
424
+        月10_dgv.ColumnHeadersHeight = 50 : 月10_dgv.AllowUserToAddRows = False
425
+        SQL_營運報表_查詢十月份清單() : da.Fill(ds10) : 月10_dgv.DataSource = ds10.Tables(0) : conn.Close()
426
+        月10_dgv.Columns(0).FillWeight = 20 : 月10_dgv.Columns(1).Visible = False : 月10_dgv.Columns(2).Visible = False : 月10_dgv.Columns(3).Visible = False
427
+        月10_dgv.Columns(4).Visible = False : 月10_dgv.Columns(5).Visible = False : 月10_dgv.Columns(6).Visible = False : 月10_dgv.Columns(7).Visible = False
428
+        月10_dgv.Columns(8).Visible = False : 月10_dgv.Columns(9).FillWeight = 75
429
+        月10_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
430
+        月10_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月10_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
431
+        月10_dgv.Columns(9).ReadOnly = True
432
+        TextBox46.Text = "0" : TextBox47.Text = "0" : TextBox48.Text = "0" : TextBox49.Text = "0" : TextBox50.Text = "0" : TextBox67.Text = "0"
433
+        For i As Integer = 0 To 月10_dgv.Rows.Count - 1
434
+            If 月10_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月10_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
435
+            If 月10_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月10_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
436
+            If 月10_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月10_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
437
+            If 月10_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月10_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
438
+            If 月10_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月10_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
439
+            If 月10_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月10_dgv.Rows(i).Cells("金額").Value = 月10_dgv.Rows(i).Cells("主項金額").Value
440
+            ElseIf 月10_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月10_dgv.Rows(i).Cells("金額").Value = 月10_dgv.Rows(i).Cells("子項金額").Value
441
+            ElseIf 月10_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月10_dgv.Rows(i).Cells("金額").Value = 月10_dgv.Rows(i).Cells("細項金額").Value
442
+            Else : 月10_dgv.Rows(i).Cells("金額").Value = 0 : End If
443
+
444
+            If 月10_dgv("第一階", i).Value.ToString = "歲出合計" Then
445
+                月10_dgv("金額", i).Value = Val(月10_dgv.Rows(i).Cells("金額").Value) * -1
446
+            End If
447
+
448
+            If 月10_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox50.Text = Val(TextBox50.Text) + 月10_dgv.Rows(i).Cells("主項金額").Value : End If
449
+            If 月10_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox49.Text = Val(TextBox49.Text) + 月10_dgv.Rows(i).Cells("主項金額").Value : End If
450
+            If 月10_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox48.Text = Val(TextBox48.Text) + 月10_dgv.Rows(i).Cells("主項金額").Value : End If
451
+            If 月10_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox46.Text = Val(TextBox46.Text) + 月10_dgv.Rows(i).Cells("主項金額").Value : End If
452
+        Next
453
+        If Val(TextBox46.Text) > 0 Then
454
+            TextBox79.Text = Val(TextBox46.Text) - Val(TextBox42.Text)
455
+        Else
456
+            TextBox79.Text = 0
457
+        End If
458
+
459
+        TextBox48.Text = Val(TextBox48.Text) * -1
460
+        TextBox47.Text = Val(TextBox50.Text) + Val(TextBox49.Text) - Val(TextBox48.Text) + Val(TextBox46.Text)
461
+        TextBox67.Text = Val(TextBox49.Text) - Val(TextBox48.Text)
462
+    End Sub
463
+    Private Sub Set_清單11()
464
+        月11_dgv.DataSource = Nothing : ds11.Clear() : 月11_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
465
+        月11_dgv.ColumnHeadersHeight = 50 : 月11_dgv.AllowUserToAddRows = False
466
+        SQL_營運報表_查詢十一月份清單() : da.Fill(ds11) : 月11_dgv.DataSource = ds11.Tables(0) : conn.Close()
467
+        月11_dgv.Columns(0).FillWeight = 20 : 月11_dgv.Columns(1).Visible = False : 月11_dgv.Columns(2).Visible = False : 月11_dgv.Columns(3).Visible = False
468
+        月11_dgv.Columns(4).Visible = False : 月11_dgv.Columns(5).Visible = False : 月11_dgv.Columns(6).Visible = False : 月11_dgv.Columns(7).Visible = False
469
+        月11_dgv.Columns(8).Visible = False : 月11_dgv.Columns(9).FillWeight = 75
470
+        月11_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
471
+        月11_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月11_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
472
+        月11_dgv.Columns(9).ReadOnly = True
473
+        TextBox51.Text = "0" : TextBox52.Text = "0" : TextBox53.Text = "0" : TextBox54.Text = "0" : TextBox55.Text = "0" : TextBox66.Text = "0"
474
+        For i As Integer = 0 To 月11_dgv.Rows.Count - 1
475
+            If 月11_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月11_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
476
+            If 月11_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月11_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
477
+            If 月11_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月11_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
478
+            If 月11_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月11_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
479
+            If 月11_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月11_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
480
+            If 月11_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月11_dgv.Rows(i).Cells("金額").Value = 月11_dgv.Rows(i).Cells("主項金額").Value
481
+            ElseIf 月11_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月11_dgv.Rows(i).Cells("金額").Value = 月11_dgv.Rows(i).Cells("子項金額").Value
482
+            ElseIf 月11_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月11_dgv.Rows(i).Cells("金額").Value = 月11_dgv.Rows(i).Cells("細項金額").Value
483
+            Else : 月11_dgv.Rows(i).Cells("金額").Value = 0 : End If
484
+
485
+            If 月11_dgv("第一階", i).Value.ToString = "歲出合計" Then
486
+                月11_dgv("金額", i).Value = Val(月11_dgv.Rows(i).Cells("金額").Value) * -1
487
+            End If
488
+
489
+            If 月11_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox55.Text = Val(TextBox55.Text) + 月11_dgv.Rows(i).Cells("主項金額").Value : End If
490
+            If 月11_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox54.Text = Val(TextBox54.Text) + 月11_dgv.Rows(i).Cells("主項金額").Value : End If
491
+            If 月11_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox53.Text = Val(TextBox53.Text) + 月11_dgv.Rows(i).Cells("主項金額").Value : End If
492
+            If 月11_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox51.Text = Val(TextBox51.Text) + 月11_dgv.Rows(i).Cells("主項金額").Value : End If
493
+        Next
494
+        If Val(TextBox51.Text) > 0 Then
495
+            TextBox78.Text = Val(TextBox51.Text) - Val(TextBox47.Text)
496
+        Else
497
+            TextBox78.Text = 0
498
+        End If
499
+
500
+        TextBox53.Text = Val(TextBox53.Text) * -1
501
+        TextBox52.Text = Val(TextBox55.Text) + Val(TextBox54.Text) - Val(TextBox53.Text) + Val(TextBox51.Text)
502
+        TextBox66.Text = Val(TextBox54.Text) - Val(TextBox53.Text)
503
+    End Sub
504
+    Private Sub Set_清單12()
505
+        月12_dgv.DataSource = Nothing : ds12.Clear() : 月12_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
506
+        月12_dgv.ColumnHeadersHeight = 50 : 月12_dgv.AllowUserToAddRows = False
507
+        SQL_營運報表_查詢十二月份清單() : da.Fill(ds12) : 月12_dgv.DataSource = ds12.Tables(0) : conn.Close()
508
+        月12_dgv.Columns(0).FillWeight = 20 : 月12_dgv.Columns(1).Visible = False : 月12_dgv.Columns(2).Visible = False : 月12_dgv.Columns(3).Visible = False
509
+        月12_dgv.Columns(4).Visible = False : 月12_dgv.Columns(5).Visible = False : 月12_dgv.Columns(6).Visible = False : 月12_dgv.Columns(7).Visible = False
510
+        月12_dgv.Columns(8).Visible = False : 月12_dgv.Columns(9).FillWeight = 75
511
+        月12_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
512
+        月12_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 月12_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
513
+        月12_dgv.Columns(9).ReadOnly = True
514
+        TextBox56.Text = "0" : TextBox57.Text = "0" : TextBox58.Text = "0" : TextBox59.Text = "0" : TextBox60.Text = "0" : TextBox65.Text = "0"
515
+        For i As Integer = 0 To 月12_dgv.Rows.Count - 1
516
+            If 月12_dgv.Rows(i).Cells("主項金額").Value.ToString = "" Then : 月12_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
517
+            If 月12_dgv.Rows(i).Cells("子項金額").Value.ToString = "" Then : 月12_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
518
+            If 月12_dgv.Rows(i).Cells("細項金額").Value.ToString = "" Then : 月12_dgv.Rows(i).Cells("細項金額").Value = 0 : End If
519
+            If 月12_dgv.Rows(i).Cells("層級").Value.ToString <> "1" Then : 月12_dgv.Rows(i).Cells("主項金額").Value = 0 : End If
520
+            If 月12_dgv.Rows(i).Cells("層級").Value.ToString <> "2" Then : 月12_dgv.Rows(i).Cells("子項金額").Value = 0 : End If
521
+            If 月12_dgv.Rows(i).Cells("主項金額").Value.ToString <> "0" Then : 月12_dgv.Rows(i).Cells("金額").Value = 月12_dgv.Rows(i).Cells("主項金額").Value
522
+            ElseIf 月12_dgv.Rows(i).Cells("子項金額").Value.ToString <> "0" Then : 月12_dgv.Rows(i).Cells("金額").Value = 月12_dgv.Rows(i).Cells("子項金額").Value
523
+            ElseIf 月12_dgv.Rows(i).Cells("細項金額").Value.ToString <> "0" Then : 月12_dgv.Rows(i).Cells("金額").Value = 月12_dgv.Rows(i).Cells("細項金額").Value
524
+            Else : 月12_dgv.Rows(i).Cells("金額").Value = 0 : End If
525
+
526
+            If 月12_dgv("第一階", i).Value.ToString = "歲出合計" Then
527
+                月12_dgv("金額", i).Value = Val(月12_dgv.Rows(i).Cells("金額").Value) * -1
528
+            End If
529
+
530
+            If 月12_dgv.Rows(i).Cells("第一階").Value.ToString = "資本" Then : TextBox60.Text = Val(TextBox60.Text) + 月12_dgv.Rows(i).Cells("主項金額").Value : End If
531
+            If 月12_dgv.Rows(i).Cells("第一階").Value.ToString = "歲入合計" Then : TextBox59.Text = Val(TextBox59.Text) + 月12_dgv.Rows(i).Cells("主項金額").Value : End If
532
+            If 月12_dgv.Rows(i).Cells("第一階").Value.ToString = "歲出合計" Then : TextBox58.Text = Val(TextBox58.Text) + 月12_dgv.Rows(i).Cells("主項金額").Value : End If
533
+            If 月12_dgv.Rows(i).Cells("第一階").Value.ToString = "上月結存" Then : TextBox56.Text = Val(TextBox56.Text) + 月12_dgv.Rows(i).Cells("主項金額").Value : End If
534
+        Next
535
+        If Val(TextBox56.Text) > 0 Then
536
+            TextBox77.Text = Val(TextBox56.Text) - Val(TextBox52.Text)
537
+        Else
538
+            TextBox77.Text = 0
539
+        End If
540
+
541
+        TextBox58.Text = Val(TextBox58.Text) * -1
542
+        TextBox57.Text = Val(TextBox60.Text) + Val(TextBox59.Text) - Val(TextBox58.Text) + Val(TextBox56.Text)
543
+        TextBox65.Text = Val(TextBox59.Text) - Val(TextBox58.Text)
544
+    End Sub
545
+    Private Sub ComboBox1下拉表單資料載入()
546
+        conn.Close()
547
+        SQL_營運報表_年份查詢()
548
+        年份_cb.Items.Clear()
549
+        While (dr.Read()) : 年份_cb.Items.Add(dr("年份")) : End While
550
+        conn.Close()
551
+    End Sub
552
+    Private Sub 格式設定()
553
+        For no As Integer = 1 To 88
554
+            Dim TextBoxOO As TextBox = CType(Me.Controls.Find("TextBox" + no.ToString(), True)(0), TextBox)
555
+            TextBoxOO.Text = Format(Val(TextBoxOO.Text), "#,##0 ")
556
+        Next
557
+        For no As Integer = 64 To 88
558
+            Dim TextBoxOO As TextBox = CType(Me.Controls.Find("TextBox" + no.ToString(), True)(0), TextBox)
559
+            If Val(TextBoxOO.Text) > 1 Then : TextBoxOO.ForeColor = Color.Blue : ElseIf Val(TextBoxOO.Text) < 1 Then : TextBoxOO.ForeColor = Color.Red : End If
560
+        Next
561
+    End Sub
562
+    Private Sub 營運報表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
563
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
564
+        ComboBox1下拉表單資料載入() : 年份_cb.Text = Year(Today)
565
+        Set_清單() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() : Set_清單8() : Set_清單9() : Set_清單10() : Set_清單11() : Set_清單12() : 格式設定()
566
+    End Sub
567
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年份_cb.SelectedIndexChanged
568
+        Set_清單() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() : Set_清單8() : Set_清單9() : Set_清單10() : Set_清單11() : Set_清單12() : 格式設定()
569
+    End Sub
570
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 重新整理_bt.Click
571
+        Set_清單() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() : Set_清單8() : Set_清單9() : Set_清單10() : Set_清單11() : Set_清單12() : 格式設定()
572
+    End Sub
573
+    Private Sub 主表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 主表_dgv.RowPostPaint
574
+        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
575
+        If e.RowIndex = 主表_dgv.Rows.Count - 1 Then : Exit Sub : Else
576
+            If 主表_dgv(1, e.RowIndex).Value.ToString <> 主表_dgv(1, e.RowIndex + 1).Value.ToString Then
577
+                Dim startX As Integer = IIf(主表_dgv.RowHeadersVisible, 主表_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
578
+                Dim endX As Integer = startX + 主表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 主表_dgv.HorizontalScrollingOffset
579
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
580
+            End If
581
+            If 主表_dgv(2, e.RowIndex).Value.ToString <> 主表_dgv(2, e.RowIndex + 1).Value.ToString Then
582
+                Dim startX As Integer = IIf(主表_dgv.RowHeadersVisible, 主表_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
583
+                Dim endX As Integer = startX + 主表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 主表_dgv.HorizontalScrollingOffset
584
+                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
585
+            End If
586
+            For i As Integer = 0 To 主表_dgv.Rows.Count - 1
587
+                If 主表_dgv("層級", i).Value = 1 Then : 主表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
588
+                ElseIf 主表_dgv("層級", i).Value = 2 Then : 主表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
589
+                End If
590
+                If 主表_dgv("第一階", i).Value.ToString = "資本" Then : 主表_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
591
+                ElseIf 主表_dgv("第一階", i).Value.ToString = "上月結存" Then : 主表_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
592
+                ElseIf 主表_dgv("第一階", i).Value.ToString = "歲入合計" Then : 主表_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
593
+                ElseIf 主表_dgv("第一階", i).Value.ToString = "歲出合計" Then : 主表_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
594
+                End If
595
+            Next
596
+        End If
597
+    End Sub
598
+    Private Sub 月1_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月1_dgv.RowPostPaint
599
+        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
600
+        If e.RowIndex = 月1_dgv.Rows.Count - 1 Then : Exit Sub : Else
601
+            If 月1_dgv(1, e.RowIndex).Value.ToString <> 月1_dgv(1, e.RowIndex + 1).Value.ToString Then
602
+                Dim startX As Integer = IIf(月1_dgv.RowHeadersVisible, 月1_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
603
+                Dim endX As Integer = startX + 月1_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月1_dgv.HorizontalScrollingOffset
604
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
605
+            End If
606
+            If 月1_dgv(2, e.RowIndex).Value.ToString <> 月1_dgv(2, e.RowIndex + 1).Value.ToString Then
607
+                Dim startX As Integer = IIf(月1_dgv.RowHeadersVisible, 月1_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
608
+                Dim endX As Integer = startX + 月1_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月1_dgv.HorizontalScrollingOffset
609
+                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
610
+            End If
611
+            For i As Integer = 0 To 月1_dgv.Rows.Count - 1
612
+                If 月1_dgv("層級", i).Value = 1 Then : 月1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
613
+                ElseIf 月1_dgv("層級", i).Value = 2 Then : 月1_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
614
+                End If
615
+                If 月1_dgv("第一階", i).Value.ToString = "資本" Then : 月1_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
616
+                ElseIf 月1_dgv("第一階", i).Value.ToString = "上月結存" Then : 月1_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
617
+                ElseIf 月1_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月1_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
618
+                ElseIf 月1_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月1_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
619
+                End If
620
+            Next
621
+        End If
622
+    End Sub
623
+    Private Sub 月2_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月2_dgv.RowPostPaint
624
+        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
625
+        If e.RowIndex = 月2_dgv.Rows.Count - 1 Then : Exit Sub : Else
626
+            If 月2_dgv(1, e.RowIndex).Value.ToString <> 月2_dgv(1, e.RowIndex + 1).Value.ToString Then
627
+                Dim startX As Integer = IIf(月2_dgv.RowHeadersVisible, 月2_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
628
+                Dim endX As Integer = startX + 月2_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月2_dgv.HorizontalScrollingOffset
629
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
630
+            End If
631
+            If 月2_dgv(2, e.RowIndex).Value.ToString <> 月2_dgv(2, e.RowIndex + 1).Value.ToString Then
632
+                Dim startX As Integer = IIf(月2_dgv.RowHeadersVisible, 月2_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
633
+                Dim endX As Integer = startX + 月2_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月2_dgv.HorizontalScrollingOffset
634
+                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
635
+            End If
636
+            For i As Integer = 0 To 月2_dgv.Rows.Count - 1
637
+                If 月2_dgv("層級", i).Value = 1 Then : 月2_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
638
+                ElseIf 月2_dgv("層級", i).Value = 2 Then : 月2_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
639
+                End If
640
+                If 月2_dgv("第一階", i).Value.ToString = "資本" Then : 月2_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
641
+                ElseIf 月2_dgv("第一階", i).Value.ToString = "上月結存" Then : 月2_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
642
+                ElseIf 月2_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月2_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
643
+                ElseIf 月2_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月2_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
644
+                End If
645
+            Next
646
+        End If
647
+    End Sub
648
+    Private Sub 月3_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月3_dgv.RowPostPaint
649
+        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
650
+        If e.RowIndex = 月3_dgv.Rows.Count - 1 Then : Exit Sub : Else
651
+            If 月3_dgv(1, e.RowIndex).Value.ToString <> 月3_dgv(1, e.RowIndex + 1).Value.ToString Then
652
+                Dim startX As Integer = IIf(月3_dgv.RowHeadersVisible, 月3_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
653
+                Dim endX As Integer = startX + 月3_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月3_dgv.HorizontalScrollingOffset
654
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
655
+            End If
656
+            If 月3_dgv(2, e.RowIndex).Value.ToString <> 月3_dgv(2, e.RowIndex + 1).Value.ToString Then
657
+                Dim startX As Integer = IIf(月3_dgv.RowHeadersVisible, 月3_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
658
+                Dim endX As Integer = startX + 月3_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月3_dgv.HorizontalScrollingOffset
659
+                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
660
+            End If
661
+            For i As Integer = 0 To 月3_dgv.Rows.Count - 1
662
+                If 月3_dgv("層級", i).Value = 1 Then : 月3_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
663
+                ElseIf 月3_dgv("層級", i).Value = 2 Then : 月3_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
664
+                End If
665
+                If 月3_dgv("第一階", i).Value.ToString = "資本" Then : 月3_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
666
+                ElseIf 月3_dgv("第一階", i).Value.ToString = "上月結存" Then : 月3_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
667
+                ElseIf 月3_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月3_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
668
+                ElseIf 月3_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月3_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
669
+                End If
670
+            Next
671
+        End If
672
+    End Sub
673
+    Private Sub 月4_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月4_dgv.RowPostPaint
674
+        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
675
+        If e.RowIndex = 月4_dgv.Rows.Count - 1 Then : Exit Sub : Else
676
+            If 月4_dgv(1, e.RowIndex).Value.ToString <> 月4_dgv(1, e.RowIndex + 1).Value.ToString Then
677
+                Dim startX As Integer = IIf(月4_dgv.RowHeadersVisible, 月4_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
678
+                Dim endX As Integer = startX + 月4_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月4_dgv.HorizontalScrollingOffset
679
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
680
+            End If
681
+            If 月4_dgv(2, e.RowIndex).Value.ToString <> 月4_dgv(2, e.RowIndex + 1).Value.ToString Then
682
+                Dim startX As Integer = IIf(月4_dgv.RowHeadersVisible, 月4_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
683
+                Dim endX As Integer = startX + 月4_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月4_dgv.HorizontalScrollingOffset
684
+                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
685
+            End If
686
+            For i As Integer = 0 To 月4_dgv.Rows.Count - 1
687
+                If 月4_dgv("層級", i).Value = 1 Then : 月4_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
688
+                ElseIf 月4_dgv("層級", i).Value = 2 Then : 月4_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
689
+                End If
690
+                If 月4_dgv("第一階", i).Value.ToString = "資本" Then : 月4_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
691
+                ElseIf 月4_dgv("第一階", i).Value.ToString = "上月結存" Then : 月4_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
692
+                ElseIf 月4_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月4_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
693
+                ElseIf 月4_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月4_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
694
+                End If
695
+            Next
696
+        End If
697
+    End Sub
698
+    Private Sub 月5_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月5_dgv.RowPostPaint
699
+        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
700
+        If e.RowIndex = 月5_dgv.Rows.Count - 1 Then : Exit Sub : Else
701
+            If 月5_dgv(1, e.RowIndex).Value.ToString <> 月5_dgv(1, e.RowIndex + 1).Value.ToString Then
702
+                Dim startX As Integer = IIf(月5_dgv.RowHeadersVisible, 月5_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
703
+                Dim endX As Integer = startX + 月5_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月5_dgv.HorizontalScrollingOffset
704
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
705
+            End If
706
+            If 月5_dgv(2, e.RowIndex).Value.ToString <> 月5_dgv(2, e.RowIndex + 1).Value.ToString Then
707
+                Dim startX As Integer = IIf(月5_dgv.RowHeadersVisible, 月5_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
708
+                Dim endX As Integer = startX + 月5_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月5_dgv.HorizontalScrollingOffset
709
+                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
710
+            End If
711
+            For i As Integer = 0 To 月5_dgv.Rows.Count - 1
712
+                If 月5_dgv("層級", i).Value = 1 Then : 月5_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
713
+                ElseIf 月5_dgv("層級", i).Value = 2 Then : 月5_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
714
+                End If
715
+                If 月5_dgv("第一階", i).Value.ToString = "資本" Then : 月5_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
716
+                ElseIf 月5_dgv("第一階", i).Value.ToString = "上月結存" Then : 月5_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
717
+                ElseIf 月5_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月5_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
718
+                ElseIf 月5_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月5_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
719
+                End If
720
+            Next
721
+        End If
722
+    End Sub
723
+    Private Sub 月6_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月6_dgv.RowPostPaint
724
+        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
725
+        If e.RowIndex = 月6_dgv.Rows.Count - 1 Then : Exit Sub : Else
726
+            If 月6_dgv(1, e.RowIndex).Value.ToString <> 月6_dgv(1, e.RowIndex + 1).Value.ToString Then
727
+                Dim startX As Integer = IIf(月6_dgv.RowHeadersVisible, 月6_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
728
+                Dim endX As Integer = startX + 月6_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月6_dgv.HorizontalScrollingOffset
729
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
730
+            End If
731
+            If 月6_dgv(2, e.RowIndex).Value.ToString <> 月6_dgv(2, e.RowIndex + 1).Value.ToString Then
732
+                Dim startX As Integer = IIf(月6_dgv.RowHeadersVisible, 月6_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
733
+                Dim endX As Integer = startX + 月6_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月6_dgv.HorizontalScrollingOffset
734
+                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
735
+            End If
736
+            For i As Integer = 0 To 月6_dgv.Rows.Count - 1
737
+                If 月6_dgv("層級", i).Value = 1 Then : 月6_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
738
+                ElseIf 月6_dgv("層級", i).Value = 2 Then : 月6_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
739
+                End If
740
+                If 月6_dgv("第一階", i).Value.ToString = "資本" Then : 月6_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
741
+                ElseIf 月6_dgv("第一階", i).Value.ToString = "上月結存" Then : 月6_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
742
+                ElseIf 月6_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月6_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
743
+                ElseIf 月6_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月6_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
744
+                End If
745
+            Next
746
+        End If
747
+    End Sub
748
+    Private Sub 月7_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月7_dgv.RowPostPaint
749
+        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
750
+        If e.RowIndex = 月7_dgv.Rows.Count - 1 Then : Exit Sub : Else
751
+            If 月7_dgv(1, e.RowIndex).Value.ToString <> 月7_dgv(1, e.RowIndex + 1).Value.ToString Then
752
+                Dim startX As Integer = IIf(月7_dgv.RowHeadersVisible, 月7_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
753
+                Dim endX As Integer = startX + 月7_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月7_dgv.HorizontalScrollingOffset
754
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
755
+            End If
756
+            If 月7_dgv(2, e.RowIndex).Value.ToString <> 月7_dgv(2, e.RowIndex + 1).Value.ToString Then
757
+                Dim startX As Integer = IIf(月7_dgv.RowHeadersVisible, 月7_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
758
+                Dim endX As Integer = startX + 月7_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月7_dgv.HorizontalScrollingOffset
759
+                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
760
+            End If
761
+            For i As Integer = 0 To 月7_dgv.Rows.Count - 1
762
+                If 月7_dgv("層級", i).Value = 1 Then : 月7_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
763
+                ElseIf 月7_dgv("層級", i).Value = 2 Then : 月7_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
764
+                End If
765
+                If 月7_dgv("第一階", i).Value.ToString = "資本" Then : 月7_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
766
+                ElseIf 月7_dgv("第一階", i).Value.ToString = "上月結存" Then : 月7_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
767
+                ElseIf 月7_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月7_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
768
+                ElseIf 月7_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月7_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
769
+                End If
770
+            Next
771
+        End If
772
+    End Sub
773
+    Private Sub 月8_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月8_dgv.RowPostPaint
774
+        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
775
+        If e.RowIndex = 月8_dgv.Rows.Count - 1 Then : Exit Sub : Else
776
+            If 月8_dgv(1, e.RowIndex).Value.ToString <> 月8_dgv(1, e.RowIndex + 1).Value.ToString Then
777
+                Dim startX As Integer = IIf(月8_dgv.RowHeadersVisible, 月8_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
778
+                Dim endX As Integer = startX + 月8_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月8_dgv.HorizontalScrollingOffset
779
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
780
+            End If
781
+            If 月8_dgv(2, e.RowIndex).Value.ToString <> 月8_dgv(2, e.RowIndex + 1).Value.ToString Then
782
+                Dim startX As Integer = IIf(月8_dgv.RowHeadersVisible, 月8_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
783
+                Dim endX As Integer = startX + 月8_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月8_dgv.HorizontalScrollingOffset
784
+                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
785
+            End If
786
+            For i As Integer = 0 To 月8_dgv.Rows.Count - 1
787
+                If 月8_dgv("層級", i).Value = 1 Then : 月8_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
788
+                ElseIf 月8_dgv("層級", i).Value = 2 Then : 月8_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
789
+                End If
790
+                If 月8_dgv("第一階", i).Value.ToString = "資本" Then : 月8_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
791
+                ElseIf 月8_dgv("第一階", i).Value.ToString = "上月結存" Then : 月8_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
792
+                ElseIf 月8_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月8_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
793
+                ElseIf 月8_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月8_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
794
+                End If
795
+            Next
796
+        End If
797
+    End Sub
798
+    Private Sub 月9_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月9_dgv.RowPostPaint
799
+        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
800
+        If e.RowIndex = 月9_dgv.Rows.Count - 1 Then : Exit Sub : Else
801
+            If 月9_dgv(1, e.RowIndex).Value.ToString <> 月9_dgv(1, e.RowIndex + 1).Value.ToString Then
802
+                Dim startX As Integer = IIf(月9_dgv.RowHeadersVisible, 月9_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
803
+                Dim endX As Integer = startX + 月9_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月9_dgv.HorizontalScrollingOffset
804
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
805
+            End If
806
+            If 月9_dgv(2, e.RowIndex).Value.ToString <> 月9_dgv(2, e.RowIndex + 1).Value.ToString Then
807
+                Dim startX As Integer = IIf(月9_dgv.RowHeadersVisible, 月9_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
808
+                Dim endX As Integer = startX + 月9_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月9_dgv.HorizontalScrollingOffset
809
+                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
810
+            End If
811
+            For i As Integer = 0 To 月9_dgv.Rows.Count - 1
812
+                If 月9_dgv("層級", i).Value = 1 Then : 月9_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
813
+                ElseIf 月9_dgv("層級", i).Value = 2 Then : 月9_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
814
+                End If
815
+                If 月9_dgv("第一階", i).Value.ToString = "資本" Then : 月9_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
816
+                ElseIf 月9_dgv("第一階", i).Value.ToString = "上月結存" Then : 月9_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
817
+                ElseIf 月9_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月9_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
818
+                ElseIf 月9_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月9_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
819
+                End If
820
+            Next
821
+        End If
822
+    End Sub
823
+    Private Sub 月10_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月10_dgv.RowPostPaint
824
+        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
825
+        If e.RowIndex = 月10_dgv.Rows.Count - 1 Then : Exit Sub : Else
826
+            If 月10_dgv(1, e.RowIndex).Value.ToString <> 月10_dgv(1, e.RowIndex + 1).Value.ToString Then
827
+                Dim startX As Integer = IIf(月10_dgv.RowHeadersVisible, 月10_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
828
+                Dim endX As Integer = startX + 月10_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月10_dgv.HorizontalScrollingOffset
829
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
830
+            End If
831
+            If 月10_dgv(2, e.RowIndex).Value.ToString <> 月10_dgv(2, e.RowIndex + 1).Value.ToString Then
832
+                Dim startX As Integer = IIf(月10_dgv.RowHeadersVisible, 月10_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
833
+                Dim endX As Integer = startX + 月10_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月10_dgv.HorizontalScrollingOffset
834
+                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
835
+            End If
836
+            For i As Integer = 0 To 月10_dgv.Rows.Count - 1
837
+                If 月10_dgv("層級", i).Value = 1 Then : 月10_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
838
+                ElseIf 月10_dgv("層級", i).Value = 2 Then : 月10_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
839
+                End If
840
+                If 月10_dgv("第一階", i).Value.ToString = "資本" Then : 月10_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
841
+                ElseIf 月10_dgv("第一階", i).Value.ToString = "上月結存" Then : 月10_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
842
+                ElseIf 月10_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月10_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
843
+                ElseIf 月10_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月10_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
844
+                End If
845
+            Next
846
+        End If
847
+    End Sub
848
+    Private Sub 月11_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月11_dgv.RowPostPaint
849
+        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
850
+        If e.RowIndex = 月11_dgv.Rows.Count - 1 Then : Exit Sub : Else
851
+            If 月11_dgv(1, e.RowIndex).Value.ToString <> 月11_dgv(1, e.RowIndex + 1).Value.ToString Then
852
+                Dim startX As Integer = IIf(月11_dgv.RowHeadersVisible, 月11_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
853
+                Dim endX As Integer = startX + 月11_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月11_dgv.HorizontalScrollingOffset
854
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
855
+            End If
856
+            If 月11_dgv(2, e.RowIndex).Value.ToString <> 月11_dgv(2, e.RowIndex + 1).Value.ToString Then
857
+                Dim startX As Integer = IIf(月11_dgv.RowHeadersVisible, 月11_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
858
+                Dim endX As Integer = startX + 月11_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月11_dgv.HorizontalScrollingOffset
859
+                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
860
+            End If
861
+            For i As Integer = 0 To 月11_dgv.Rows.Count - 1
862
+                If 月11_dgv("層級", i).Value = 1 Then : 月11_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
863
+                ElseIf 月11_dgv("層級", i).Value = 2 Then : 月11_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
864
+                End If
865
+                If 月11_dgv("第一階", i).Value.ToString = "資本" Then : 月11_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
866
+                ElseIf 月11_dgv("第一階", i).Value.ToString = "上月結存" Then : 月11_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
867
+                ElseIf 月11_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月11_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
868
+                ElseIf 月11_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月11_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
869
+                End If
870
+            Next
871
+        End If
872
+    End Sub
873
+    Private Sub 月12_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月12_dgv.RowPostPaint
874
+        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
875
+        If e.RowIndex = 月12_dgv.Rows.Count - 1 Then : Exit Sub : Else
876
+            If 月12_dgv(1, e.RowIndex).Value.ToString <> 月12_dgv(1, e.RowIndex + 1).Value.ToString Then
877
+                Dim startX As Integer = IIf(月12_dgv.RowHeadersVisible, 月12_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
878
+                Dim endX As Integer = startX + 月12_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月12_dgv.HorizontalScrollingOffset
879
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
880
+            End If
881
+            If 月12_dgv(2, e.RowIndex).Value.ToString <> 月12_dgv(2, e.RowIndex + 1).Value.ToString Then
882
+                Dim startX As Integer = IIf(月12_dgv.RowHeadersVisible, 月12_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
883
+                Dim endX As Integer = startX + 月12_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月12_dgv.HorizontalScrollingOffset
884
+                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
885
+            End If
886
+            For i As Integer = 0 To 月12_dgv.Rows.Count - 1
887
+                If 月12_dgv("層級", i).Value = 1 Then : 月12_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
888
+                ElseIf 月12_dgv("層級", i).Value = 2 Then : 月12_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
889
+                End If
890
+                If 月12_dgv("第一階", i).Value.ToString = "資本" Then : 月12_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Green
891
+                ElseIf 月12_dgv("第一階", i).Value.ToString = "上月結存" Then : 月12_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Black
892
+                ElseIf 月12_dgv("第一階", i).Value.ToString = "歲入合計" Then : 月12_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Blue
893
+                ElseIf 月12_dgv("第一階", i).Value.ToString = "歲出合計" Then : 月12_dgv.Rows(i).DefaultCellStyle.ForeColor = Color.Red
894
+                End If
895
+            Next
896
+        End If
897
+    End Sub
898
+    Private Sub DataGridView2_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 主表_dgv.Scroll
899
+        月1_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex
900
+        月3_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex
901
+        月5_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex
902
+        月7_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex
903
+        月9_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex
904
+        月11_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex
905
+    End Sub
906
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 全部資料合併計算_bt.Click
907
+        Set_DGV2開始()
908
+        SQL_營運報表_查詢會計科目()
909
+        Set_DGV2結束() : Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() : Set_清單8() : Set_清單9() : Set_清單10() : Set_清單11() : Set_清單12() : 格式設定()
910
+    End Sub
911
+End Class

+ 611
- 0
YD-ERP-SYS/財務系統管理/營運成本收支單 - 對帳表.Designer.vb 파일 보기

@@ -0,0 +1,611 @@
1
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2
+Partial Class 營運成本收支單_對帳表
3
+    Inherits System.Windows.Forms.Form
4
+
5
+    'Form 覆寫 Dispose 以清除元件清單。
6
+    <System.Diagnostics.DebuggerNonUserCode()> _
7
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8
+        Try
9
+            If disposing AndAlso components IsNot Nothing Then
10
+                components.Dispose()
11
+            End If
12
+        Finally
13
+            MyBase.Dispose(disposing)
14
+        End Try
15
+    End Sub
16
+
17
+    '為 Windows Form 設計工具的必要項
18
+    Private components As System.ComponentModel.IContainer
19
+
20
+    '注意: 以下為 Windows Form 設計工具所需的程序
21
+    '可以使用 Windows Form 設計工具進行修改。
22
+    '請勿使用程式碼編輯器進行修改。
23
+    <System.Diagnostics.DebuggerStepThrough()> _
24
+    Private Sub InitializeComponent()
25
+        Me.components = New System.ComponentModel.Container()
26
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27
+        Me.未兌現支票1_tb = New System.Windows.Forms.TextBox()
28
+        Me.Label13 = New System.Windows.Forms.Label()
29
+        Me.未兌現支票_tb = New System.Windows.Forms.TextBox()
30
+        Me.Label14 = New System.Windows.Forms.Label()
31
+        Me.已兌現支票1_tb = New System.Windows.Forms.TextBox()
32
+        Me.Label11 = New System.Windows.Forms.Label()
33
+        Me.已兌現支票_tb = New System.Windows.Forms.TextBox()
34
+        Me.Label12 = New System.Windows.Forms.Label()
35
+        Me.零用金1_tb = New System.Windows.Forms.TextBox()
36
+        Me.Label1 = New System.Windows.Forms.Label()
37
+        Me.零用金_tb = New System.Windows.Forms.TextBox()
38
+        Me.Label3 = New System.Windows.Forms.Label()
39
+        Me.只顯示支票資料_cb = New System.Windows.Forms.CheckBox()
40
+        Me.隱藏作帳點交資訊_cb = New System.Windows.Forms.CheckBox()
41
+        Me.隱藏申請審核資訊_cb = New System.Windows.Forms.CheckBox()
42
+        Me.損益1_tb = New System.Windows.Forms.TextBox()
43
+        Me.Label7 = New System.Windows.Forms.Label()
44
+        Me.支出1_tb = New System.Windows.Forms.TextBox()
45
+        Me.Label8 = New System.Windows.Forms.Label()
46
+        Me.現金1_tb = New System.Windows.Forms.TextBox()
47
+        Me.Label10 = New System.Windows.Forms.Label()
48
+        Me.損益_tb = New System.Windows.Forms.TextBox()
49
+        Me.Label6 = New System.Windows.Forms.Label()
50
+        Me.支出_tb = New System.Windows.Forms.TextBox()
51
+        Me.Label5 = New System.Windows.Forms.Label()
52
+        Me.Label4 = New System.Windows.Forms.Label()
53
+        Me.收支單號_tb = New System.Windows.Forms.TextBox()
54
+        Me.現金_tb = New System.Windows.Forms.TextBox()
55
+        Me.Label9 = New System.Windows.Forms.Label()
56
+        Me.查詢日期1_cb = New System.Windows.Forms.ComboBox()
57
+        Me.查詢日期_cb = New System.Windows.Forms.ComboBox()
58
+        Me.Label2 = New System.Windows.Forms.Label()
59
+        Me.明細_dgv = New System.Windows.Forms.DataGridView()
60
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
61
+        Me.重新整理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
62
+        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
63
+        Me.BBBToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
64
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
65
+        Me.資料尚未存檔_lb = New System.Windows.Forms.Label()
66
+        Me.關鍵字查詢_bt = New System.Windows.Forms.Button()
67
+        Me.對帳記錄存檔_bt = New System.Windows.Forms.Button()
68
+        Me.清除查詢資料_bt = New System.Windows.Forms.Button()
69
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
70
+        Me.ContextMenuStrip1.SuspendLayout()
71
+        Me.SuspendLayout()
72
+        '
73
+        '未兌現支票1_tb
74
+        '
75
+        Me.未兌現支票1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
76
+        Me.未兌現支票1_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
77
+        Me.未兌現支票1_tb.Location = New System.Drawing.Point(506, 32)
78
+        Me.未兌現支票1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
79
+        Me.未兌現支票1_tb.Name = "未兌現支票1_tb"
80
+        Me.未兌現支票1_tb.Size = New System.Drawing.Size(90, 23)
81
+        Me.未兌現支票1_tb.TabIndex = 1072
82
+        Me.未兌現支票1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
83
+        '
84
+        'Label13
85
+        '
86
+        Me.Label13.AutoSize = True
87
+        Me.Label13.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
88
+        Me.Label13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
89
+        Me.Label13.Location = New System.Drawing.Point(436, 35)
90
+        Me.Label13.Name = "Label13"
91
+        Me.Label13.Size = New System.Drawing.Size(68, 16)
92
+        Me.Label13.TabIndex = 1071
93
+        Me.Label13.Text = "未兌現支票"
94
+        '
95
+        '未兌現支票_tb
96
+        '
97
+        Me.未兌現支票_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
98
+        Me.未兌現支票_tb.ForeColor = System.Drawing.Color.Green
99
+        Me.未兌現支票_tb.Location = New System.Drawing.Point(506, 5)
100
+        Me.未兌現支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
101
+        Me.未兌現支票_tb.Name = "未兌現支票_tb"
102
+        Me.未兌現支票_tb.Size = New System.Drawing.Size(90, 23)
103
+        Me.未兌現支票_tb.TabIndex = 1070
104
+        Me.未兌現支票_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
105
+        '
106
+        'Label14
107
+        '
108
+        Me.Label14.AutoSize = True
109
+        Me.Label14.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
110
+        Me.Label14.ForeColor = System.Drawing.Color.Green
111
+        Me.Label14.Location = New System.Drawing.Point(436, 10)
112
+        Me.Label14.Name = "Label14"
113
+        Me.Label14.Size = New System.Drawing.Size(68, 16)
114
+        Me.Label14.TabIndex = 1069
115
+        Me.Label14.Text = "未兌現支票"
116
+        '
117
+        '已兌現支票1_tb
118
+        '
119
+        Me.已兌現支票1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
120
+        Me.已兌現支票1_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
121
+        Me.已兌現支票1_tb.Location = New System.Drawing.Point(668, 32)
122
+        Me.已兌現支票1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
123
+        Me.已兌現支票1_tb.Name = "已兌現支票1_tb"
124
+        Me.已兌現支票1_tb.Size = New System.Drawing.Size(90, 23)
125
+        Me.已兌現支票1_tb.TabIndex = 1068
126
+        Me.已兌現支票1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
127
+        '
128
+        'Label11
129
+        '
130
+        Me.Label11.AutoSize = True
131
+        Me.Label11.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
132
+        Me.Label11.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
133
+        Me.Label11.Location = New System.Drawing.Point(598, 36)
134
+        Me.Label11.Name = "Label11"
135
+        Me.Label11.Size = New System.Drawing.Size(68, 16)
136
+        Me.Label11.TabIndex = 1067
137
+        Me.Label11.Text = "已兌現支票"
138
+        '
139
+        '已兌現支票_tb
140
+        '
141
+        Me.已兌現支票_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
142
+        Me.已兌現支票_tb.ForeColor = System.Drawing.Color.Green
143
+        Me.已兌現支票_tb.Location = New System.Drawing.Point(668, 4)
144
+        Me.已兌現支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
145
+        Me.已兌現支票_tb.Name = "已兌現支票_tb"
146
+        Me.已兌現支票_tb.Size = New System.Drawing.Size(90, 23)
147
+        Me.已兌現支票_tb.TabIndex = 1066
148
+        Me.已兌現支票_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
149
+        '
150
+        'Label12
151
+        '
152
+        Me.Label12.AutoSize = True
153
+        Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
154
+        Me.Label12.ForeColor = System.Drawing.Color.Green
155
+        Me.Label12.Location = New System.Drawing.Point(598, 9)
156
+        Me.Label12.Name = "Label12"
157
+        Me.Label12.Size = New System.Drawing.Size(68, 16)
158
+        Me.Label12.TabIndex = 1065
159
+        Me.Label12.Text = "已兌現支票"
160
+        '
161
+        '零用金1_tb
162
+        '
163
+        Me.零用金1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
164
+        Me.零用金1_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
165
+        Me.零用金1_tb.Location = New System.Drawing.Point(806, 32)
166
+        Me.零用金1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
167
+        Me.零用金1_tb.Name = "零用金1_tb"
168
+        Me.零用金1_tb.Size = New System.Drawing.Size(90, 23)
169
+        Me.零用金1_tb.TabIndex = 1064
170
+        Me.零用金1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
171
+        '
172
+        'Label1
173
+        '
174
+        Me.Label1.AutoSize = True
175
+        Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
176
+        Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
177
+        Me.Label1.Location = New System.Drawing.Point(760, 35)
178
+        Me.Label1.Name = "Label1"
179
+        Me.Label1.Size = New System.Drawing.Size(44, 16)
180
+        Me.Label1.TabIndex = 1063
181
+        Me.Label1.Text = "零用金"
182
+        '
183
+        '零用金_tb
184
+        '
185
+        Me.零用金_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
186
+        Me.零用金_tb.ForeColor = System.Drawing.Color.Green
187
+        Me.零用金_tb.Location = New System.Drawing.Point(806, 4)
188
+        Me.零用金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
189
+        Me.零用金_tb.Name = "零用金_tb"
190
+        Me.零用金_tb.Size = New System.Drawing.Size(90, 23)
191
+        Me.零用金_tb.TabIndex = 1062
192
+        Me.零用金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
193
+        '
194
+        'Label3
195
+        '
196
+        Me.Label3.AutoSize = True
197
+        Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
198
+        Me.Label3.ForeColor = System.Drawing.Color.Green
199
+        Me.Label3.Location = New System.Drawing.Point(760, 9)
200
+        Me.Label3.Name = "Label3"
201
+        Me.Label3.Size = New System.Drawing.Size(44, 16)
202
+        Me.Label3.TabIndex = 1061
203
+        Me.Label3.Text = "零用金"
204
+        '
205
+        '只顯示支票資料_cb
206
+        '
207
+        Me.只顯示支票資料_cb.AutoSize = True
208
+        Me.只顯示支票資料_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
209
+        Me.只顯示支票資料_cb.Location = New System.Drawing.Point(326, 34)
210
+        Me.只顯示支票資料_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
211
+        Me.只顯示支票資料_cb.Name = "只顯示支票資料_cb"
212
+        Me.只顯示支票資料_cb.Size = New System.Drawing.Size(111, 20)
213
+        Me.只顯示支票資料_cb.TabIndex = 1060
214
+        Me.只顯示支票資料_cb.Text = "只顯示支票資料"
215
+        Me.只顯示支票資料_cb.UseVisualStyleBackColor = True
216
+        '
217
+        '隱藏作帳點交資訊_cb
218
+        '
219
+        Me.隱藏作帳點交資訊_cb.AutoSize = True
220
+        Me.隱藏作帳點交資訊_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
221
+        Me.隱藏作帳點交資訊_cb.Location = New System.Drawing.Point(173, 34)
222
+        Me.隱藏作帳點交資訊_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
223
+        Me.隱藏作帳點交資訊_cb.Name = "隱藏作帳點交資訊_cb"
224
+        Me.隱藏作帳點交資訊_cb.Size = New System.Drawing.Size(135, 20)
225
+        Me.隱藏作帳點交資訊_cb.TabIndex = 1059
226
+        Me.隱藏作帳點交資訊_cb.Text = "隱藏作帳、點交資訊"
227
+        Me.隱藏作帳點交資訊_cb.UseVisualStyleBackColor = True
228
+        '
229
+        '隱藏申請審核資訊_cb
230
+        '
231
+        Me.隱藏申請審核資訊_cb.AutoSize = True
232
+        Me.隱藏申請審核資訊_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
233
+        Me.隱藏申請審核資訊_cb.Location = New System.Drawing.Point(20, 34)
234
+        Me.隱藏申請審核資訊_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
235
+        Me.隱藏申請審核資訊_cb.Name = "隱藏申請審核資訊_cb"
236
+        Me.隱藏申請審核資訊_cb.Size = New System.Drawing.Size(135, 20)
237
+        Me.隱藏申請審核資訊_cb.TabIndex = 1058
238
+        Me.隱藏申請審核資訊_cb.Text = "隱藏申請、審核資訊"
239
+        Me.隱藏申請審核資訊_cb.UseVisualStyleBackColor = True
240
+        '
241
+        '損益1_tb
242
+        '
243
+        Me.損益1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
244
+        Me.損益1_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
245
+        Me.損益1_tb.Location = New System.Drawing.Point(1185, 32)
246
+        Me.損益1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
247
+        Me.損益1_tb.Name = "損益1_tb"
248
+        Me.損益1_tb.Size = New System.Drawing.Size(90, 23)
249
+        Me.損益1_tb.TabIndex = 1057
250
+        Me.損益1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
251
+        '
252
+        'Label7
253
+        '
254
+        Me.Label7.AutoSize = True
255
+        Me.Label7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
256
+        Me.Label7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
257
+        Me.Label7.Location = New System.Drawing.Point(1151, 35)
258
+        Me.Label7.Name = "Label7"
259
+        Me.Label7.Size = New System.Drawing.Size(32, 16)
260
+        Me.Label7.TabIndex = 1056
261
+        Me.Label7.Text = "損益"
262
+        '
263
+        '支出1_tb
264
+        '
265
+        Me.支出1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
266
+        Me.支出1_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
267
+        Me.支出1_tb.Location = New System.Drawing.Point(1059, 32)
268
+        Me.支出1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
269
+        Me.支出1_tb.Name = "支出1_tb"
270
+        Me.支出1_tb.Size = New System.Drawing.Size(90, 23)
271
+        Me.支出1_tb.TabIndex = 1055
272
+        Me.支出1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
273
+        '
274
+        'Label8
275
+        '
276
+        Me.Label8.AutoSize = True
277
+        Me.Label8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
278
+        Me.Label8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
279
+        Me.Label8.Location = New System.Drawing.Point(1025, 36)
280
+        Me.Label8.Name = "Label8"
281
+        Me.Label8.Size = New System.Drawing.Size(32, 16)
282
+        Me.Label8.TabIndex = 1054
283
+        Me.Label8.Text = "支出"
284
+        '
285
+        '現金1_tb
286
+        '
287
+        Me.現金1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
288
+        Me.現金1_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
289
+        Me.現金1_tb.Location = New System.Drawing.Point(933, 32)
290
+        Me.現金1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
291
+        Me.現金1_tb.Name = "現金1_tb"
292
+        Me.現金1_tb.Size = New System.Drawing.Size(90, 23)
293
+        Me.現金1_tb.TabIndex = 1053
294
+        Me.現金1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
295
+        '
296
+        'Label10
297
+        '
298
+        Me.Label10.AutoSize = True
299
+        Me.Label10.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
300
+        Me.Label10.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
301
+        Me.Label10.Location = New System.Drawing.Point(898, 36)
302
+        Me.Label10.Name = "Label10"
303
+        Me.Label10.Size = New System.Drawing.Size(32, 16)
304
+        Me.Label10.TabIndex = 1052
305
+        Me.Label10.Text = "現金"
306
+        '
307
+        '損益_tb
308
+        '
309
+        Me.損益_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
310
+        Me.損益_tb.ForeColor = System.Drawing.Color.Green
311
+        Me.損益_tb.Location = New System.Drawing.Point(1185, 4)
312
+        Me.損益_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
313
+        Me.損益_tb.Name = "損益_tb"
314
+        Me.損益_tb.Size = New System.Drawing.Size(90, 23)
315
+        Me.損益_tb.TabIndex = 1051
316
+        Me.損益_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
317
+        '
318
+        'Label6
319
+        '
320
+        Me.Label6.AutoSize = True
321
+        Me.Label6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
322
+        Me.Label6.ForeColor = System.Drawing.Color.Green
323
+        Me.Label6.Location = New System.Drawing.Point(1151, 9)
324
+        Me.Label6.Name = "Label6"
325
+        Me.Label6.Size = New System.Drawing.Size(32, 16)
326
+        Me.Label6.TabIndex = 1050
327
+        Me.Label6.Text = "損益"
328
+        '
329
+        '支出_tb
330
+        '
331
+        Me.支出_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
332
+        Me.支出_tb.ForeColor = System.Drawing.Color.Green
333
+        Me.支出_tb.Location = New System.Drawing.Point(1059, 4)
334
+        Me.支出_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
335
+        Me.支出_tb.Name = "支出_tb"
336
+        Me.支出_tb.Size = New System.Drawing.Size(90, 23)
337
+        Me.支出_tb.TabIndex = 1049
338
+        Me.支出_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
339
+        '
340
+        'Label5
341
+        '
342
+        Me.Label5.AutoSize = True
343
+        Me.Label5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
344
+        Me.Label5.ForeColor = System.Drawing.Color.Green
345
+        Me.Label5.Location = New System.Drawing.Point(1025, 9)
346
+        Me.Label5.Name = "Label5"
347
+        Me.Label5.Size = New System.Drawing.Size(32, 16)
348
+        Me.Label5.TabIndex = 1048
349
+        Me.Label5.Text = "支出"
350
+        '
351
+        'Label4
352
+        '
353
+        Me.Label4.AutoSize = True
354
+        Me.Label4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
355
+        Me.Label4.ForeColor = System.Drawing.Color.Green
356
+        Me.Label4.Location = New System.Drawing.Point(223, 11)
357
+        Me.Label4.Name = "Label4"
358
+        Me.Label4.Size = New System.Drawing.Size(32, 16)
359
+        Me.Label4.TabIndex = 1047
360
+        Me.Label4.Text = "單號"
361
+        '
362
+        '收支單號_tb
363
+        '
364
+        Me.收支單號_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
365
+        Me.收支單號_tb.ForeColor = System.Drawing.Color.Green
366
+        Me.收支單號_tb.Location = New System.Drawing.Point(257, 7)
367
+        Me.收支單號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
368
+        Me.收支單號_tb.Name = "收支單號_tb"
369
+        Me.收支單號_tb.Size = New System.Drawing.Size(172, 23)
370
+        Me.收支單號_tb.TabIndex = 1046
371
+        Me.收支單號_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
372
+        '
373
+        '現金_tb
374
+        '
375
+        Me.現金_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
376
+        Me.現金_tb.ForeColor = System.Drawing.Color.Green
377
+        Me.現金_tb.Location = New System.Drawing.Point(933, 4)
378
+        Me.現金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
379
+        Me.現金_tb.Name = "現金_tb"
380
+        Me.現金_tb.Size = New System.Drawing.Size(90, 23)
381
+        Me.現金_tb.TabIndex = 1045
382
+        Me.現金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
383
+        '
384
+        'Label9
385
+        '
386
+        Me.Label9.AutoSize = True
387
+        Me.Label9.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
388
+        Me.Label9.ForeColor = System.Drawing.Color.Green
389
+        Me.Label9.Location = New System.Drawing.Point(898, 9)
390
+        Me.Label9.Name = "Label9"
391
+        Me.Label9.Size = New System.Drawing.Size(32, 16)
392
+        Me.Label9.TabIndex = 1044
393
+        Me.Label9.Text = "現金"
394
+        '
395
+        '查詢日期1_cb
396
+        '
397
+        Me.查詢日期1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
398
+        Me.查詢日期1_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
399
+        Me.查詢日期1_cb.FormattingEnabled = True
400
+        Me.查詢日期1_cb.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"})
401
+        Me.查詢日期1_cb.Location = New System.Drawing.Point(155, 7)
402
+        Me.查詢日期1_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
403
+        Me.查詢日期1_cb.Name = "查詢日期1_cb"
404
+        Me.查詢日期1_cb.Size = New System.Drawing.Size(63, 24)
405
+        Me.查詢日期1_cb.TabIndex = 1043
406
+        '
407
+        '查詢日期_cb
408
+        '
409
+        Me.查詢日期_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
410
+        Me.查詢日期_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
411
+        Me.查詢日期_cb.FormattingEnabled = True
412
+        Me.查詢日期_cb.Items.AddRange(New Object() {"2019"})
413
+        Me.查詢日期_cb.Location = New System.Drawing.Point(66, 7)
414
+        Me.查詢日期_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
415
+        Me.查詢日期_cb.Name = "查詢日期_cb"
416
+        Me.查詢日期_cb.Size = New System.Drawing.Size(81, 24)
417
+        Me.查詢日期_cb.TabIndex = 1042
418
+        '
419
+        'Label2
420
+        '
421
+        Me.Label2.AutoSize = True
422
+        Me.Label2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
423
+        Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
424
+        Me.Label2.Location = New System.Drawing.Point(4, 11)
425
+        Me.Label2.Name = "Label2"
426
+        Me.Label2.Size = New System.Drawing.Size(56, 16)
427
+        Me.Label2.TabIndex = 1041
428
+        Me.Label2.Text = "查詢日期"
429
+        '
430
+        '明細_dgv
431
+        '
432
+        Me.明細_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
433
+            Or System.Windows.Forms.AnchorStyles.Left) _
434
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
435
+        Me.明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
436
+        Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
437
+        Me.明細_dgv.Location = New System.Drawing.Point(6, 60)
438
+        Me.明細_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
439
+        Me.明細_dgv.Name = "明細_dgv"
440
+        Me.明細_dgv.RowHeadersWidth = 5
441
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
442
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
443
+        Me.明細_dgv.RowTemplate.Height = 24
444
+        Me.明細_dgv.Size = New System.Drawing.Size(1743, 544)
445
+        Me.明細_dgv.TabIndex = 1073
446
+        '
447
+        'ContextMenuStrip1
448
+        '
449
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新整理ToolStripMenuItem, Me.ToolStripSeparator2, Me.BBBToolStripMenuItem})
450
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
451
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(147, 54)
452
+        '
453
+        '重新整理ToolStripMenuItem
454
+        '
455
+        Me.重新整理ToolStripMenuItem.Name = "重新整理ToolStripMenuItem"
456
+        Me.重新整理ToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
457
+        Me.重新整理ToolStripMenuItem.Text = "重新整理"
458
+        '
459
+        'ToolStripSeparator2
460
+        '
461
+        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
462
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(143, 6)
463
+        '
464
+        'BBBToolStripMenuItem
465
+        '
466
+        Me.BBBToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
467
+        Me.BBBToolStripMenuItem.Name = "BBBToolStripMenuItem"
468
+        Me.BBBToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
469
+        Me.BBBToolStripMenuItem.Text = "列印成EXCEL"
470
+        '
471
+        'Timer1
472
+        '
473
+        Me.Timer1.Interval = 500
474
+        '
475
+        '資料尚未存檔_lb
476
+        '
477
+        Me.資料尚未存檔_lb.AutoSize = True
478
+        Me.資料尚未存檔_lb.Font = New System.Drawing.Font("微軟正黑體", 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
479
+        Me.資料尚未存檔_lb.ForeColor = System.Drawing.Color.Red
480
+        Me.資料尚未存檔_lb.Location = New System.Drawing.Point(1473, 11)
481
+        Me.資料尚未存檔_lb.Name = "資料尚未存檔_lb"
482
+        Me.資料尚未存檔_lb.Size = New System.Drawing.Size(331, 37)
483
+        Me.資料尚未存檔_lb.TabIndex = 1075
484
+        Me.資料尚未存檔_lb.Text = "資    料    尚    未    存    檔"
485
+        Me.資料尚未存檔_lb.Visible = False
486
+        '
487
+        '關鍵字查詢_bt
488
+        '
489
+        Me.關鍵字查詢_bt.Location = New System.Drawing.Point(1281, 4)
490
+        Me.關鍵字查詢_bt.Name = "關鍵字查詢_bt"
491
+        Me.關鍵字查詢_bt.Size = New System.Drawing.Size(90, 23)
492
+        Me.關鍵字查詢_bt.TabIndex = 1076
493
+        Me.關鍵字查詢_bt.Text = "關鍵字查詢"
494
+        Me.關鍵字查詢_bt.UseVisualStyleBackColor = True
495
+        '
496
+        '對帳記錄存檔_bt
497
+        '
498
+        Me.對帳記錄存檔_bt.ForeColor = System.Drawing.Color.Green
499
+        Me.對帳記錄存檔_bt.Location = New System.Drawing.Point(1281, 32)
500
+        Me.對帳記錄存檔_bt.Name = "對帳記錄存檔_bt"
501
+        Me.對帳記錄存檔_bt.Size = New System.Drawing.Size(186, 23)
502
+        Me.對帳記錄存檔_bt.TabIndex = 1077
503
+        Me.對帳記錄存檔_bt.Text = "對帳記錄存檔"
504
+        Me.對帳記錄存檔_bt.UseVisualStyleBackColor = True
505
+        '
506
+        '清除查詢資料_bt
507
+        '
508
+        Me.清除查詢資料_bt.Location = New System.Drawing.Point(1377, 4)
509
+        Me.清除查詢資料_bt.Name = "清除查詢資料_bt"
510
+        Me.清除查詢資料_bt.Size = New System.Drawing.Size(90, 24)
511
+        Me.清除查詢資料_bt.TabIndex = 1078
512
+        Me.清除查詢資料_bt.Text = "清除查詢資料"
513
+        Me.清除查詢資料_bt.UseVisualStyleBackColor = True
514
+        '
515
+        '營運成本收支單_對帳表
516
+        '
517
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
518
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
519
+        Me.ClientSize = New System.Drawing.Size(1754, 611)
520
+        Me.ContextMenuStrip = Me.ContextMenuStrip1
521
+        Me.Controls.Add(Me.清除查詢資料_bt)
522
+        Me.Controls.Add(Me.對帳記錄存檔_bt)
523
+        Me.Controls.Add(Me.關鍵字查詢_bt)
524
+        Me.Controls.Add(Me.明細_dgv)
525
+        Me.Controls.Add(Me.資料尚未存檔_lb)
526
+        Me.Controls.Add(Me.未兌現支票1_tb)
527
+        Me.Controls.Add(Me.Label13)
528
+        Me.Controls.Add(Me.未兌現支票_tb)
529
+        Me.Controls.Add(Me.Label14)
530
+        Me.Controls.Add(Me.已兌現支票1_tb)
531
+        Me.Controls.Add(Me.Label11)
532
+        Me.Controls.Add(Me.已兌現支票_tb)
533
+        Me.Controls.Add(Me.Label12)
534
+        Me.Controls.Add(Me.零用金1_tb)
535
+        Me.Controls.Add(Me.Label1)
536
+        Me.Controls.Add(Me.零用金_tb)
537
+        Me.Controls.Add(Me.Label3)
538
+        Me.Controls.Add(Me.只顯示支票資料_cb)
539
+        Me.Controls.Add(Me.隱藏作帳點交資訊_cb)
540
+        Me.Controls.Add(Me.隱藏申請審核資訊_cb)
541
+        Me.Controls.Add(Me.損益1_tb)
542
+        Me.Controls.Add(Me.Label7)
543
+        Me.Controls.Add(Me.支出1_tb)
544
+        Me.Controls.Add(Me.Label8)
545
+        Me.Controls.Add(Me.現金1_tb)
546
+        Me.Controls.Add(Me.Label10)
547
+        Me.Controls.Add(Me.損益_tb)
548
+        Me.Controls.Add(Me.Label6)
549
+        Me.Controls.Add(Me.支出_tb)
550
+        Me.Controls.Add(Me.Label5)
551
+        Me.Controls.Add(Me.Label4)
552
+        Me.Controls.Add(Me.收支單號_tb)
553
+        Me.Controls.Add(Me.現金_tb)
554
+        Me.Controls.Add(Me.Label9)
555
+        Me.Controls.Add(Me.查詢日期1_cb)
556
+        Me.Controls.Add(Me.查詢日期_cb)
557
+        Me.Controls.Add(Me.Label2)
558
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
559
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
560
+        Me.Name = "營運成本收支單_對帳表"
561
+        Me.Text = "營運成本收支單___對帳表"
562
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
563
+        Me.ContextMenuStrip1.ResumeLayout(False)
564
+        Me.ResumeLayout(False)
565
+        Me.PerformLayout()
566
+
567
+    End Sub
568
+
569
+    Friend WithEvents 未兌現支票1_tb As TextBox
570
+    Friend WithEvents Label13 As Label
571
+    Friend WithEvents 未兌現支票_tb As TextBox
572
+    Friend WithEvents Label14 As Label
573
+    Friend WithEvents 已兌現支票1_tb As TextBox
574
+    Friend WithEvents Label11 As Label
575
+    Friend WithEvents 已兌現支票_tb As TextBox
576
+    Friend WithEvents Label12 As Label
577
+    Friend WithEvents 零用金1_tb As TextBox
578
+    Friend WithEvents Label1 As Label
579
+    Friend WithEvents 零用金_tb As TextBox
580
+    Friend WithEvents Label3 As Label
581
+    Friend WithEvents 只顯示支票資料_cb As CheckBox
582
+    Friend WithEvents 隱藏作帳點交資訊_cb As CheckBox
583
+    Friend WithEvents 隱藏申請審核資訊_cb As CheckBox
584
+    Friend WithEvents 損益1_tb As TextBox
585
+    Friend WithEvents Label7 As Label
586
+    Friend WithEvents 支出1_tb As TextBox
587
+    Friend WithEvents Label8 As Label
588
+    Friend WithEvents 現金1_tb As TextBox
589
+    Friend WithEvents Label10 As Label
590
+    Friend WithEvents 損益_tb As TextBox
591
+    Friend WithEvents Label6 As Label
592
+    Friend WithEvents 支出_tb As TextBox
593
+    Friend WithEvents Label5 As Label
594
+    Friend WithEvents Label4 As Label
595
+    Friend WithEvents 收支單號_tb As TextBox
596
+    Friend WithEvents 現金_tb As TextBox
597
+    Friend WithEvents Label9 As Label
598
+    Friend WithEvents 查詢日期1_cb As ComboBox
599
+    Friend WithEvents 查詢日期_cb As ComboBox
600
+    Friend WithEvents Label2 As Label
601
+    Friend WithEvents 明細_dgv As DataGridView
602
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
603
+    Friend WithEvents 重新整理ToolStripMenuItem As ToolStripMenuItem
604
+    Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
605
+    Friend WithEvents BBBToolStripMenuItem As ToolStripMenuItem
606
+    Friend WithEvents Timer1 As Timer
607
+    Friend WithEvents 資料尚未存檔_lb As Label
608
+    Friend WithEvents 關鍵字查詢_bt As Button
609
+    Friend WithEvents 對帳記錄存檔_bt As Button
610
+    Friend WithEvents 清除查詢資料_bt As Button
611
+End Class

+ 129
- 0
YD-ERP-SYS/財務系統管理/營運成本收支單 - 對帳表.resx 파일 보기

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

+ 205
- 0
YD-ERP-SYS/財務系統管理/營運成本收支單 - 對帳表.vb 파일 보기

@@ -0,0 +1,205 @@
1
+Option Strict Off
2
+Imports System.Data.SqlClient
3
+Public Class 營運成本收支單_對帳表
4
+    ReadOnly conn1 As New SqlConnection
5
+    ReadOnly cmd As New SqlCommand : ReadOnly cmd1 As New SqlCommand
6
+    'Dim dr As SqlDataReader
7
+    'ReadOnly da As New SqlDataAdapter
8
+    ReadOnly ds As New DataSet
9
+    'PA20 = KKKJJ3 : PA19 = KKKJJ : PA18 = KKKJJ2 : PA17 = KKK3 : PA16 = KKK4
10
+    Private Sub Set_清單1()
11
+        明細_dgv.DataSource = Nothing : ds.Clear()
12
+        明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
13
+        明細_dgv.ColumnHeadersHeight = 25
14
+        明細_dgv.AllowUserToAddRows = False
15
+        SQL_營運成本收支單對帳表_查詢最後一筆清單() : da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close() : Set_grid()
16
+    End Sub
17
+    Private Sub Set_grid()
18
+        明細_dgv.Columns(0).FillWeight = 120 : 明細_dgv.Columns(1).FillWeight = 60 : 明細_dgv.Columns(2).FillWeight = 80 : 明細_dgv.Columns(3).FillWeight = 60
19
+        明細_dgv.Columns(4).FillWeight = 80 : 明細_dgv.Columns(5).FillWeight = 50 : 明細_dgv.Columns(6).FillWeight = 150 : 明細_dgv.Columns(7).FillWeight = 233
20
+        明細_dgv.Columns(8).FillWeight = 80 : 明細_dgv.Columns(9).FillWeight = 80 : 明細_dgv.Columns(10).FillWeight = 80 : 明細_dgv.Columns(11).FillWeight = 80
21
+        明細_dgv.Columns(12).FillWeight = 80 : 明細_dgv.Columns(13).FillWeight = 50 : 明細_dgv.Columns(14).FillWeight = 85 : 明細_dgv.Columns(15).FillWeight = 50
22
+        明細_dgv.Columns(16).FillWeight = 85 : 明細_dgv.Columns(17).FillWeight = 80 : 明細_dgv.Columns(18).FillWeight = 80 : 明細_dgv.Columns(19).FillWeight = 80
23
+        明細_dgv.Columns(20).FillWeight = 80 : 明細_dgv.Columns(21).FillWeight = 70 : 明細_dgv.Columns(22).FillWeight = 70
24
+
25
+        If 隱藏申請審核資訊_cb.Checked = False Then
26
+            明細_dgv.Columns(1).Visible = True : 明細_dgv.Columns(2).Visible = True : 明細_dgv.Columns(3).Visible = True : 明細_dgv.Columns(4).Visible = True
27
+        Else
28
+            明細_dgv.Columns(1).Visible = False : 明細_dgv.Columns(2).Visible = False : 明細_dgv.Columns(3).Visible = False : 明細_dgv.Columns(4).Visible = False
29
+        End If
30
+
31
+        If 隱藏作帳點交資訊_cb.Checked = False Then
32
+            明細_dgv.Columns(13).Visible = True : 明細_dgv.Columns(14).Visible = True : 明細_dgv.Columns(15).Visible = True : 明細_dgv.Columns(16).Visible = True
33
+        Else
34
+            明細_dgv.Columns(13).Visible = False : 明細_dgv.Columns(14).Visible = False : 明細_dgv.Columns(15).Visible = False : 明細_dgv.Columns(16).Visible = False
35
+        End If
36
+
37
+        明細_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 明細_dgv.Columns(9).DefaultCellStyle.Format = "#,##0" : 明細_dgv.Columns(10).DefaultCellStyle.Format = "#,##0"
38
+        明細_dgv.Columns(11).DefaultCellStyle.Format = "#,##0"
39
+        明細_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
40
+        明細_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
41
+        明細_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
42
+        明細_dgv.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
43
+        明細_dgv.Columns(21).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(21).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
44
+        明細_dgv.Columns(22).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(22).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
45
+
46
+        支出1_tb.Text = "0" : 現金1_tb.Text = "0" : 損益1_tb.Text = "0" : 零用金1_tb.Text = "0" : 已兌現支票1_tb.Text = "0" : 未兌現支票1_tb.Text = "0"
47
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
48
+            現金1_tb.Text = Val(現金1_tb.Text) + 明細_dgv.Rows(i).Cells("現金").Value * 明細_dgv.Rows(i).Cells("匯率").Value
49
+            支出1_tb.Text = Val(支出1_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value * 明細_dgv.Rows(i).Cells("匯率").Value
50
+            零用金1_tb.Text = Val(零用金1_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value * 明細_dgv.Rows(i).Cells("匯率").Value
51
+            If 明細_dgv(9, i).Value <> 0 And 明細_dgv(18, i).Value = True Then
52
+                已兌現支票1_tb.Text = Val(已兌現支票1_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value * 明細_dgv.Rows(i).Cells("匯率").Value
53
+            ElseIf 明細_dgv(9, i).Value <> 0 And 明細_dgv(18, i).Value = False Then
54
+                未兌現支票1_tb.Text = Val(未兌現支票1_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value * 明細_dgv.Rows(i).Cells("匯率").Value
55
+            End If
56
+            If 明細_dgv("幣別", i).Value = "台幣現金" Then : 明細_dgv("幣別", i).Value = "台幣" : Else : 明細_dgv("幣別", i).Value = "人民幣" : End If
57
+        Next i
58
+        損益1_tb.Text = Val(已兌現支票1_tb.Text) + Val(零用金1_tb.Text) + Val(現金1_tb.Text) - Val(支出1_tb.Text)
59
+        If Val(損益1_tb.Text) > 0 Then : 損益1_tb.ForeColor = Color.Blue : Else : 損益1_tb.ForeColor = Color.Red : End If
60
+        支出1_tb.Text = Format(Val(支出1_tb.Text), "#,##0") : 損益1_tb.Text = Format(Val(損益1_tb.Text), "#,##0") : 現金1_tb.Text = Format(Val(現金1_tb.Text), "#,##0")
61
+        零用金1_tb.Text = Format(Val(零用金1_tb.Text), "#,##0") : 已兌現支票1_tb.Text = Format(Val(已兌現支票1_tb.Text), "#,##0") : 未兌現支票1_tb.Text = Format(Val(未兌現支票1_tb.Text), "#,##0")
62
+    End Sub
63
+    Private Sub ComboBox1下拉表單資料載入()
64
+        conn.Close()
65
+        SQL_營運成本收支單對帳表_查詢最後一筆年份清單() : 查詢日期_cb.Items.Clear()
66
+        While (dr.Read()) : 查詢日期_cb.Items.Add(dr("年份")) : End While
67
+        conn.Close()
68
+    End Sub
69
+
70
+    Private Sub 營運成本收支單_對帳表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
71
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
72
+        現金_tb.Text = "0" : 支出_tb.Text = "0" : 損益_tb.Text = "0" : 零用金_tb.Text = "0" : 已兌現支票_tb.Text = "0" : 未兌現支票_tb.Text = "0"
73
+        現金1_tb.Text = "0" : 支出1_tb.Text = "0" : 損益1_tb.Text = "0" : 零用金1_tb.Text = "0" : 已兌現支票1_tb.Text = "0" : 未兌現支票1_tb.Text = "0"
74
+        SQL_營運成本收支單對帳表_修改會計() : conn.Close()
75
+        SQL_營運成本收支單對帳表_修改出納() : conn.Close()
76
+        SQL_營運成本收支單對帳表_修改現金() : conn.Close()
77
+        SQL_營運成本收支單對帳表_修改備用金() : conn.Close()
78
+        SQL_營運成本收支單對帳表_修改公帳() : conn.Close()
79
+        SQL_營運成本收支單對帳表_修改支票() : conn.Close()
80
+        SQL_營運成本收支單對帳表_修改日期() : conn.Close()
81
+        SQL_營運成本收支單對帳表_修改出納日期() : conn.Close()
82
+        資料尚未存檔_lb.Visible = False
83
+        ComboBox1下拉表單資料載入()
84
+        查詢日期_cb.Text = Year(Today) : 查詢日期1_cb.SelectedIndex = Month(Today) - 1
85
+        PA20 = "AND (公帳控制表.審核日期 LIKE '" & PA17 & "/" & PA16 & "%') "
86
+    End Sub
87
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
88
+        If 資料尚未存檔_lb.Visible = True Then : 資料尚未存檔_lb.Visible = False : Else : 資料尚未存檔_lb.Visible = True : End If
89
+    End Sub
90
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 清除查詢資料_bt.Click
91
+        ComboBox1下拉表單資料載入()
92
+        查詢日期1_cb.Items.Clear()
93
+        查詢日期1_cb.Items.Add("01") : 查詢日期1_cb.Items.Add("02") : 查詢日期1_cb.Items.Add("03") : 查詢日期1_cb.Items.Add("04") : 查詢日期1_cb.Items.Add("05") : 查詢日期1_cb.Items.Add("06")
94
+        查詢日期1_cb.Items.Add("07") : 查詢日期1_cb.Items.Add("08") : 查詢日期1_cb.Items.Add("09") : 查詢日期1_cb.Items.Add("10") : 查詢日期1_cb.Items.Add("11") : 查詢日期1_cb.Items.Add("12")
95
+        PA17 = "" : PA16 = "" : PA20 = ""
96
+        明細_dgv.DataSource = Nothing : ds.Clear()
97
+    End Sub
98
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 對帳記錄存檔_bt.Click
99
+        Timer1.Enabled = False : 資料尚未存檔_lb.Visible = False
100
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
101
+            PA15 = 明細_dgv.Rows(i).Cells("現金點交").Value
102
+            PA14 = 明細_dgv.Rows(i).Cells("零用金點交").Value
103
+            PA13 = 明細_dgv.Rows(i).Cells("支出點交").Value
104
+            PA12 = 明細_dgv.Rows(i).Cells("支票兌現").Value
105
+            PA11 = 明細_dgv.Rows(i).Cells("收支單號").Value
106
+            PA10 = 明細_dgv.Rows(i).Cells("項次").Value
107
+            資料數 = 明細_dgv.Rows.Count : MyModule1.進度條()
108
+            SQL_營運成本收支單對帳表_修改對帳記錄存檔() : conn1.Close()
109
+        Next
110
+        MsgBox("存檔完成。") : Set_清單1() : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
111
+    End Sub
112
+    Private Sub 總金額計算()
113
+        Dim FFGG As Integer = 0 : Dim GGHH As Integer = 0 : Dim HHJJ As Integer = 0 : Dim JJKK As Integer = 0 : Dim KKLL As Integer = 0
114
+        現金_tb.Text = "0" : 支出_tb.Text = "0" : 損益_tb.Text = "0" : 零用金_tb.Text = "0" : 已兌現支票_tb.Text = "0" : 未兌現支票_tb.Text = "0"
115
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
116
+            If 明細_dgv.Rows(i).Cells("收支單號").Value = 收支單號_tb.Text Then
117
+                FFGG = Val(FFGG) + 明細_dgv.Rows(i).Cells("現金").Value * 明細_dgv.Rows(i).Cells("匯率").Value
118
+                GGHH = Val(GGHH) + 明細_dgv.Rows(i).Cells("支出").Value * 明細_dgv.Rows(i).Cells("匯率").Value
119
+                HHJJ = Val(HHJJ) + 明細_dgv.Rows(i).Cells("零用金").Value * 明細_dgv.Rows(i).Cells("匯率").Value
120
+                If 明細_dgv(9, i).Value <> 0 And 明細_dgv(18, i).Value = True Then
121
+                    JJKK = Val(JJKK) + 明細_dgv.Rows(i).Cells("支票").Value * 明細_dgv.Rows(i).Cells("匯率").Value
122
+                ElseIf 明細_dgv(9, i).Value <> 0 And 明細_dgv(18, i).Value = False Then
123
+                    KKLL = Val(KKLL) + 明細_dgv.Rows(i).Cells("支票").Value * 明細_dgv.Rows(i).Cells("匯率").Value
124
+                End If
125
+            End If
126
+        Next i
127
+        現金_tb.Text = FFGG : 支出_tb.Text = GGHH : 零用金_tb.Text = HHJJ : 已兌現支票_tb.Text = JJKK : 未兌現支票_tb.Text = KKLL
128
+        損益_tb.Text = JJKK + HHJJ + FFGG - GGHH
129
+        If Val(損益_tb.Text) > 0 Then : 損益_tb.ForeColor = Color.Blue : Else : 損益_tb.ForeColor = Color.Red : End If
130
+        現金_tb.Text = Strings.Format(Val(現金_tb.Text), "#,##0") : 支出_tb.Text = Strings.Format(Val(支出_tb.Text), "#,##0") : 損益_tb.Text = Strings.Format(Val(損益_tb.Text), "#,##0")
131
+        零用金_tb.Text = Strings.Format(Val(零用金_tb.Text), "#,##0") : 已兌現支票_tb.Text = Strings.Format(Val(已兌現支票_tb.Text), "#,##0") : 未兌現支票_tb.Text = Strings.Format(Val(未兌現支票_tb.Text), "#,##0")
132
+    End Sub
133
+    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 明細_dgv.CellClick
134
+        If e.RowIndex = -1 Then : Else
135
+            收支單號_tb.Text = 明細_dgv.Rows(e.RowIndex).Cells("收支單號").Value
136
+            Timer1.Enabled = True
137
+            總金額計算()
138
+        End If
139
+    End Sub
140
+    Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 明細_dgv.RowPostPaint
141
+        Dim linePen As New Pen(Color.Blue, 2)
142
+        If e.RowIndex = 明細_dgv.Rows.Count - 1 Then
143
+            Exit Sub
144
+        Else
145
+            If 明細_dgv(0, e.RowIndex).Value.ToString <> 明細_dgv(0, e.RowIndex + 1).Value.ToString Then
146
+                Dim startX As Integer = IIf(明細_dgv.RowHeadersVisible, 明細_dgv.RowHeadersWidth, 0)
147
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
148
+                Dim endX As Integer = startX + 明細_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 明細_dgv.HorizontalScrollingOffset
149
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
150
+                Exit Sub
151
+            End If
152
+        End If
153
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
154
+            If 明細_dgv(9, i).Value <> 0 And 明細_dgv(18, i).Value = True Then
155
+                明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
156
+            ElseIf 明細_dgv(9, i).Value <> 0 And 明細_dgv(18, i).Value = False Then
157
+                明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
158
+            End If
159
+        Next
160
+    End Sub
161
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 查詢日期_cb.SelectedIndexChanged
162
+        PA17 = 查詢日期_cb.Text
163
+        If PA17 = "" Or PA16 = "" Then
164
+        Else
165
+            PA20 = "AND (公帳控制表.審核日期 LIKE '" & PA17 & "/" & PA16 & "%') "
166
+            Set_清單1()
167
+        End If
168
+    End Sub
169
+    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 查詢日期1_cb.SelectedIndexChanged
170
+        PA16 = 查詢日期1_cb.Text
171
+        If PA17 = "" Or PA16 = "" Then
172
+        Else
173
+            PA20 = "AND (公帳控制表.審核日期 LIKE '" & PA17 & "/" & PA16 & "%') "
174
+            Set_清單1()
175
+        End If
176
+    End Sub
177
+    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles 只顯示支票資料_cb.Click
178
+        If 只顯示支票資料_cb.Checked = False Then
179
+            PA19 = ""
180
+            Set_清單1()
181
+        Else
182
+            PA19 = " AND (公帳流水帳.支票數 <> 0) "
183
+            Set_清單1()
184
+        End If
185
+    End Sub
186
+    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles 隱藏申請審核資訊_cb.Click
187
+        Set_grid()
188
+    End Sub
189
+    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles 隱藏作帳點交資訊_cb.Click
190
+        Set_grid()
191
+    End Sub
192
+    '-----------------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------
193
+    Private Sub BBBToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BBBToolStripMenuItem.Click
194
+        MsgBox("待開發。")
195
+        '列印_零用金支付明細.ShowDialog()
196
+    End Sub
197
+
198
+
199
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 關鍵字查詢_bt.Click
200
+        PA = InputBox("請輸入要查詢的關鍵字。")
201
+        PA18 = " AND (公帳控制表.支付單號 LIKE N'%" & PA & "%' OR 公帳控制表.申請人 LIKE N'%" & PA & "%' OR 公帳控制表.審核人 LIKE N'%" & PA &
202
+                 "%' OR 公帳流水帳.明細 LIKE N'%" & PA & "%' OR 公帳控制表.備註 LIKE N'%" & PA & "%' OR 公帳流水帳.備註 LIKE N'%" & PA & "%')" : Set_清單1()
203
+        PA18 = "" : PA = ""
204
+    End Sub
205
+End Class

+ 766
- 0
YD-ERP-SYS/財務系統管理/營運成本收支單一覽表.Designer.vb 파일 보기

@@ -0,0 +1,766 @@
1
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
2
+Partial Class 營運成本收支單一覽表
3
+    Inherits System.Windows.Forms.Form
4
+
5
+    'Form 覆寫 Dispose 以清除元件清單。
6
+    <System.Diagnostics.DebuggerNonUserCode()>
7
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8
+        Try
9
+            If disposing AndAlso components IsNot Nothing Then
10
+                components.Dispose()
11
+            End If
12
+        Finally
13
+            MyBase.Dispose(disposing)
14
+        End Try
15
+    End Sub
16
+
17
+    '為 Windows Form 設計工具的必要項
18
+    Private components As System.ComponentModel.IContainer
19
+
20
+    '注意: 以下為 Windows Form 設計工具所需的程序
21
+    '可以使用 Windows Form 設計工具進行修改。
22
+    '請勿使用程式碼編輯器進行修改。
23
+    <System.Diagnostics.DebuggerStepThrough()>
24
+    Private Sub InitializeComponent()
25
+        Me.components = New System.ComponentModel.Container()
26
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
28
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
29
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
30
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
31
+        Me.會計月_ch = New System.Windows.Forms.CheckBox()
32
+        Me.下個月_bt = New System.Windows.Forms.Button()
33
+        Me.上個月_bt = New System.Windows.Forms.Button()
34
+        Me.中間日期_dtp = New System.Windows.Forms.DateTimePicker()
35
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
36
+        Me.重新讀取ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
37
+        Me.一般月_ch = New System.Windows.Forms.CheckBox()
38
+        Me.Label2 = New System.Windows.Forms.Label()
39
+        Me.人民幣零用金_tb = New System.Windows.Forms.TextBox()
40
+        Me.人民幣零用金_ = New System.Windows.Forms.Label()
41
+        Me.人民幣支票_tb = New System.Windows.Forms.TextBox()
42
+        Me.人民幣現金餘額_tb = New System.Windows.Forms.TextBox()
43
+        Me.Label13 = New System.Windows.Forms.Label()
44
+        Me.人民幣支出_tb = New System.Windows.Forms.TextBox()
45
+        Me.Label16 = New System.Windows.Forms.Label()
46
+        Me.人民幣現金_tb = New System.Windows.Forms.TextBox()
47
+        Me.Label17 = New System.Windows.Forms.Label()
48
+        Me.圖片編碼_tb = New System.Windows.Forms.TextBox()
49
+        Me.驗證碼_tb = New System.Windows.Forms.TextBox()
50
+        Me.Label20 = New System.Windows.Forms.Label()
51
+        Me.Label19 = New System.Windows.Forms.Label()
52
+        Me.簽名圖_pb = New System.Windows.Forms.PictureBox()
53
+        Me.彙總_rb = New System.Windows.Forms.RadioButton()
54
+        Me.明細_rb = New System.Windows.Forms.RadioButton()
55
+        Me.Label14 = New System.Windows.Forms.Label()
56
+        Me.台幣零用金_tb = New System.Windows.Forms.TextBox()
57
+        Me.Label15 = New System.Windows.Forms.Label()
58
+        Me.台幣支票_tb = New System.Windows.Forms.TextBox()
59
+        Me.台幣現金餘額_tb = New System.Windows.Forms.TextBox()
60
+        Me.Label9 = New System.Windows.Forms.Label()
61
+        Me.台幣支出_tb = New System.Windows.Forms.TextBox()
62
+        Me.Label11 = New System.Windows.Forms.Label()
63
+        Me.當月_bt = New System.Windows.Forms.Button()
64
+        Me.當日_bt = New System.Windows.Forms.Button()
65
+        Me.Label4 = New System.Windows.Forms.Label()
66
+        Me.結束日期_dtp = New System.Windows.Forms.DateTimePicker()
67
+        Me.開始日期_dtp = New System.Windows.Forms.DateTimePicker()
68
+        Me.台幣現金_tb = New System.Windows.Forms.TextBox()
69
+        Me.Label10 = New System.Windows.Forms.Label()
70
+        Me.支付單列印成EXCEL = New System.Windows.Forms.Button()
71
+        Me.Label8 = New System.Windows.Forms.Label()
72
+        Me.Label7 = New System.Windows.Forms.Label()
73
+        Me.審核日期_dtp = New System.Windows.Forms.DateTimePicker()
74
+        Me.申請日期_dtp = New System.Windows.Forms.DateTimePicker()
75
+        Me.Label5 = New System.Windows.Forms.Label()
76
+        Me.審核人_tb = New System.Windows.Forms.TextBox()
77
+        Me.申請人_tb = New System.Windows.Forms.TextBox()
78
+        Me.收支單號_tb = New System.Windows.Forms.TextBox()
79
+        Me.Label6 = New System.Windows.Forms.Label()
80
+        Me.單據彙總_dgv = New System.Windows.Forms.DataGridView()
81
+        Me.Label1 = New System.Windows.Forms.Label()
82
+        Me.Label3 = New System.Windows.Forms.Label()
83
+        Me.明細_dgv = New System.Windows.Forms.DataGridView()
84
+        Me.財務彙總_dgv = New System.Windows.Forms.DataGridView()
85
+        Me.ContextMenuStrip1.SuspendLayout()
86
+        CType(Me.簽名圖_pb, System.ComponentModel.ISupportInitialize).BeginInit()
87
+        CType(Me.單據彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
88
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
89
+        CType(Me.財務彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
90
+        Me.SuspendLayout()
91
+        '
92
+        '會計月_ch
93
+        '
94
+        Me.會計月_ch.AutoSize = True
95
+        Me.會計月_ch.Checked = True
96
+        Me.會計月_ch.CheckState = System.Windows.Forms.CheckState.Checked
97
+        Me.會計月_ch.Location = New System.Drawing.Point(43, 58)
98
+        Me.會計月_ch.Name = "會計月_ch"
99
+        Me.會計月_ch.Size = New System.Drawing.Size(63, 20)
100
+        Me.會計月_ch.TabIndex = 1222
101
+        Me.會計月_ch.Text = "會計月"
102
+        Me.會計月_ch.UseVisualStyleBackColor = True
103
+        '
104
+        '下個月_bt
105
+        '
106
+        Me.下個月_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
107
+        Me.下個月_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
108
+        Me.下個月_bt.Location = New System.Drawing.Point(274, 56)
109
+        Me.下個月_bt.Name = "下個月_bt"
110
+        Me.下個月_bt.Size = New System.Drawing.Size(57, 23)
111
+        Me.下個月_bt.TabIndex = 1221
112
+        Me.下個月_bt.Text = "下個月"
113
+        Me.下個月_bt.UseVisualStyleBackColor = True
114
+        '
115
+        '上個月_bt
116
+        '
117
+        Me.上個月_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
118
+        Me.上個月_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
119
+        Me.上個月_bt.Location = New System.Drawing.Point(216, 56)
120
+        Me.上個月_bt.Name = "上個月_bt"
121
+        Me.上個月_bt.Size = New System.Drawing.Size(57, 23)
122
+        Me.上個月_bt.TabIndex = 1220
123
+        Me.上個月_bt.Text = "上個月"
124
+        Me.上個月_bt.UseVisualStyleBackColor = True
125
+        '
126
+        '中間日期_dtp
127
+        '
128
+        Me.中間日期_dtp.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
129
+        Me.中間日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
130
+        Me.中間日期_dtp.Location = New System.Drawing.Point(39, 100)
131
+        Me.中間日期_dtp.Name = "中間日期_dtp"
132
+        Me.中間日期_dtp.Size = New System.Drawing.Size(43, 23)
133
+        Me.中間日期_dtp.TabIndex = 1219
134
+        Me.中間日期_dtp.Visible = False
135
+        '
136
+        'ContextMenuStrip1
137
+        '
138
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新讀取ToolStripMenuItem})
139
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
140
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(123, 26)
141
+        '
142
+        '重新讀取ToolStripMenuItem
143
+        '
144
+        Me.重新讀取ToolStripMenuItem.Name = "重新讀取ToolStripMenuItem"
145
+        Me.重新讀取ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
146
+        Me.重新讀取ToolStripMenuItem.Text = "重新讀取"
147
+        '
148
+        '一般月_ch
149
+        '
150
+        Me.一般月_ch.AutoSize = True
151
+        Me.一般月_ch.Location = New System.Drawing.Point(135, 58)
152
+        Me.一般月_ch.Name = "一般月_ch"
153
+        Me.一般月_ch.Size = New System.Drawing.Size(63, 20)
154
+        Me.一般月_ch.TabIndex = 1223
155
+        Me.一般月_ch.Text = "一般月"
156
+        Me.一般月_ch.UseVisualStyleBackColor = True
157
+        '
158
+        'Label2
159
+        '
160
+        Me.Label2.AutoSize = True
161
+        Me.Label2.ForeColor = System.Drawing.Color.Red
162
+        Me.Label2.Location = New System.Drawing.Point(525, 59)
163
+        Me.Label2.Name = "Label2"
164
+        Me.Label2.Size = New System.Drawing.Size(32, 16)
165
+        Me.Label2.TabIndex = 1217
166
+        Me.Label2.Text = "支票"
167
+        '
168
+        '人民幣零用金_tb
169
+        '
170
+        Me.人民幣零用金_tb.ForeColor = System.Drawing.Color.Red
171
+        Me.人民幣零用金_tb.Location = New System.Drawing.Point(420, 56)
172
+        Me.人民幣零用金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
173
+        Me.人民幣零用金_tb.Name = "人民幣零用金_tb"
174
+        Me.人民幣零用金_tb.Size = New System.Drawing.Size(99, 23)
175
+        Me.人民幣零用金_tb.TabIndex = 1216
176
+        Me.人民幣零用金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
177
+        '
178
+        '人民幣零用金_
179
+        '
180
+        Me.人民幣零用金_.AutoSize = True
181
+        Me.人民幣零用金_.ForeColor = System.Drawing.Color.Red
182
+        Me.人民幣零用金_.Location = New System.Drawing.Point(333, 60)
183
+        Me.人民幣零用金_.Name = "人民幣零用金_"
184
+        Me.人民幣零用金_.Size = New System.Drawing.Size(85, 16)
185
+        Me.人民幣零用金_.TabIndex = 1215
186
+        Me.人民幣零用金_.Text = "人民幣-零用金"
187
+        '
188
+        '人民幣支票_tb
189
+        '
190
+        Me.人民幣支票_tb.ForeColor = System.Drawing.Color.Red
191
+        Me.人民幣支票_tb.Location = New System.Drawing.Point(559, 56)
192
+        Me.人民幣支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
193
+        Me.人民幣支票_tb.Name = "人民幣支票_tb"
194
+        Me.人民幣支票_tb.Size = New System.Drawing.Size(99, 23)
195
+        Me.人民幣支票_tb.TabIndex = 1218
196
+        Me.人民幣支票_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
197
+        '
198
+        '人民幣現金餘額_tb
199
+        '
200
+        Me.人民幣現金餘額_tb.ForeColor = System.Drawing.Color.Red
201
+        Me.人民幣現金餘額_tb.Location = New System.Drawing.Point(1000, 56)
202
+        Me.人民幣現金餘額_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
203
+        Me.人民幣現金餘額_tb.Name = "人民幣現金餘額_tb"
204
+        Me.人民幣現金餘額_tb.Size = New System.Drawing.Size(113, 23)
205
+        Me.人民幣現金餘額_tb.TabIndex = 1214
206
+        Me.人民幣現金餘額_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
207
+        '
208
+        'Label13
209
+        '
210
+        Me.Label13.AutoSize = True
211
+        Me.Label13.ForeColor = System.Drawing.Color.Red
212
+        Me.Label13.Location = New System.Drawing.Point(942, 60)
213
+        Me.Label13.Name = "Label13"
214
+        Me.Label13.Size = New System.Drawing.Size(56, 16)
215
+        Me.Label13.TabIndex = 1213
216
+        Me.Label13.Text = "現金餘額"
217
+        '
218
+        '人民幣支出_tb
219
+        '
220
+        Me.人民幣支出_tb.ForeColor = System.Drawing.Color.Red
221
+        Me.人民幣支出_tb.Location = New System.Drawing.Point(837, 56)
222
+        Me.人民幣支出_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
223
+        Me.人民幣支出_tb.Name = "人民幣支出_tb"
224
+        Me.人民幣支出_tb.Size = New System.Drawing.Size(99, 23)
225
+        Me.人民幣支出_tb.TabIndex = 1212
226
+        Me.人民幣支出_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
227
+        '
228
+        'Label16
229
+        '
230
+        Me.Label16.AutoSize = True
231
+        Me.Label16.ForeColor = System.Drawing.Color.Red
232
+        Me.Label16.Location = New System.Drawing.Point(803, 59)
233
+        Me.Label16.Name = "Label16"
234
+        Me.Label16.Size = New System.Drawing.Size(32, 16)
235
+        Me.Label16.TabIndex = 1211
236
+        Me.Label16.Text = "支出"
237
+        '
238
+        '人民幣現金_tb
239
+        '
240
+        Me.人民幣現金_tb.ForeColor = System.Drawing.Color.Red
241
+        Me.人民幣現金_tb.Location = New System.Drawing.Point(698, 56)
242
+        Me.人民幣現金_tb.Name = "人民幣現金_tb"
243
+        Me.人民幣現金_tb.Size = New System.Drawing.Size(99, 23)
244
+        Me.人民幣現金_tb.TabIndex = 1210
245
+        Me.人民幣現金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
246
+        '
247
+        'Label17
248
+        '
249
+        Me.Label17.AutoSize = True
250
+        Me.Label17.ForeColor = System.Drawing.Color.Red
251
+        Me.Label17.Location = New System.Drawing.Point(664, 59)
252
+        Me.Label17.Name = "Label17"
253
+        Me.Label17.Size = New System.Drawing.Size(32, 16)
254
+        Me.Label17.TabIndex = 1209
255
+        Me.Label17.Text = "現金"
256
+        '
257
+        '圖片編碼_tb
258
+        '
259
+        Me.圖片編碼_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
260
+        Me.圖片編碼_tb.ForeColor = System.Drawing.Color.Blue
261
+        Me.圖片編碼_tb.Location = New System.Drawing.Point(203, 596)
262
+        Me.圖片編碼_tb.Name = "圖片編碼_tb"
263
+        Me.圖片編碼_tb.Size = New System.Drawing.Size(128, 23)
264
+        Me.圖片編碼_tb.TabIndex = 1208
265
+        Me.圖片編碼_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
266
+        '
267
+        '驗證碼_tb
268
+        '
269
+        Me.驗證碼_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
270
+        Me.驗證碼_tb.ForeColor = System.Drawing.Color.Blue
271
+        Me.驗證碼_tb.Location = New System.Drawing.Point(204, 572)
272
+        Me.驗證碼_tb.Name = "驗證碼_tb"
273
+        Me.驗證碼_tb.Size = New System.Drawing.Size(127, 23)
274
+        Me.驗證碼_tb.TabIndex = 1207
275
+        Me.驗證碼_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
276
+        '
277
+        'Label20
278
+        '
279
+        Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
280
+        Me.Label20.AutoSize = True
281
+        Me.Label20.ForeColor = System.Drawing.Color.Blue
282
+        Me.Label20.Location = New System.Drawing.Point(147, 599)
283
+        Me.Label20.Name = "Label20"
284
+        Me.Label20.Size = New System.Drawing.Size(56, 16)
285
+        Me.Label20.TabIndex = 1206
286
+        Me.Label20.Text = "圖片編碼"
287
+        '
288
+        'Label19
289
+        '
290
+        Me.Label19.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
291
+        Me.Label19.AutoSize = True
292
+        Me.Label19.ForeColor = System.Drawing.Color.Blue
293
+        Me.Label19.Location = New System.Drawing.Point(147, 575)
294
+        Me.Label19.Name = "Label19"
295
+        Me.Label19.Size = New System.Drawing.Size(44, 16)
296
+        Me.Label19.TabIndex = 1205
297
+        Me.Label19.Text = "驗證碼"
298
+        '
299
+        '簽名圖_pb
300
+        '
301
+        Me.簽名圖_pb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
302
+        Me.簽名圖_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
303
+        Me.簽名圖_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
304
+        Me.簽名圖_pb.Location = New System.Drawing.Point(15, 572)
305
+        Me.簽名圖_pb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
306
+        Me.簽名圖_pb.Name = "簽名圖_pb"
307
+        Me.簽名圖_pb.Size = New System.Drawing.Size(129, 47)
308
+        Me.簽名圖_pb.TabIndex = 1204
309
+        Me.簽名圖_pb.TabStop = False
310
+        '
311
+        '彙總_rb
312
+        '
313
+        Me.彙總_rb.AutoSize = True
314
+        Me.彙總_rb.Location = New System.Drawing.Point(278, 7)
315
+        Me.彙總_rb.Name = "彙總_rb"
316
+        Me.彙總_rb.Size = New System.Drawing.Size(50, 20)
317
+        Me.彙總_rb.TabIndex = 1203
318
+        Me.彙總_rb.TabStop = True
319
+        Me.彙總_rb.Text = "彙總"
320
+        Me.彙總_rb.UseVisualStyleBackColor = True
321
+        '
322
+        '明細_rb
323
+        '
324
+        Me.明細_rb.AutoSize = True
325
+        Me.明細_rb.Location = New System.Drawing.Point(222, 7)
326
+        Me.明細_rb.Name = "明細_rb"
327
+        Me.明細_rb.Size = New System.Drawing.Size(50, 20)
328
+        Me.明細_rb.TabIndex = 1202
329
+        Me.明細_rb.TabStop = True
330
+        Me.明細_rb.Text = "明細"
331
+        Me.明細_rb.UseVisualStyleBackColor = True
332
+        '
333
+        'Label14
334
+        '
335
+        Me.Label14.AutoSize = True
336
+        Me.Label14.ForeColor = System.Drawing.Color.Green
337
+        Me.Label14.Location = New System.Drawing.Point(525, 33)
338
+        Me.Label14.Name = "Label14"
339
+        Me.Label14.Size = New System.Drawing.Size(32, 16)
340
+        Me.Label14.TabIndex = 1200
341
+        Me.Label14.Text = "支票"
342
+        '
343
+        '台幣零用金_tb
344
+        '
345
+        Me.台幣零用金_tb.ForeColor = System.Drawing.Color.Green
346
+        Me.台幣零用金_tb.Location = New System.Drawing.Point(420, 30)
347
+        Me.台幣零用金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
348
+        Me.台幣零用金_tb.Name = "台幣零用金_tb"
349
+        Me.台幣零用金_tb.Size = New System.Drawing.Size(99, 23)
350
+        Me.台幣零用金_tb.TabIndex = 1199
351
+        Me.台幣零用金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
352
+        '
353
+        'Label15
354
+        '
355
+        Me.Label15.AutoSize = True
356
+        Me.Label15.ForeColor = System.Drawing.Color.Green
357
+        Me.Label15.Location = New System.Drawing.Point(339, 34)
358
+        Me.Label15.Name = "Label15"
359
+        Me.Label15.Size = New System.Drawing.Size(79, 16)
360
+        Me.Label15.TabIndex = 1198
361
+        Me.Label15.Text = "台幣 - 零用金"
362
+        '
363
+        '台幣支票_tb
364
+        '
365
+        Me.台幣支票_tb.ForeColor = System.Drawing.Color.Green
366
+        Me.台幣支票_tb.Location = New System.Drawing.Point(559, 30)
367
+        Me.台幣支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
368
+        Me.台幣支票_tb.Name = "台幣支票_tb"
369
+        Me.台幣支票_tb.Size = New System.Drawing.Size(99, 23)
370
+        Me.台幣支票_tb.TabIndex = 1201
371
+        Me.台幣支票_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
372
+        '
373
+        '台幣現金餘額_tb
374
+        '
375
+        Me.台幣現金餘額_tb.ForeColor = System.Drawing.Color.Green
376
+        Me.台幣現金餘額_tb.Location = New System.Drawing.Point(1000, 30)
377
+        Me.台幣現金餘額_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
378
+        Me.台幣現金餘額_tb.Name = "台幣現金餘額_tb"
379
+        Me.台幣現金餘額_tb.Size = New System.Drawing.Size(113, 23)
380
+        Me.台幣現金餘額_tb.TabIndex = 1197
381
+        Me.台幣現金餘額_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
382
+        '
383
+        'Label9
384
+        '
385
+        Me.Label9.AutoSize = True
386
+        Me.Label9.ForeColor = System.Drawing.Color.Green
387
+        Me.Label9.Location = New System.Drawing.Point(942, 34)
388
+        Me.Label9.Name = "Label9"
389
+        Me.Label9.Size = New System.Drawing.Size(56, 16)
390
+        Me.Label9.TabIndex = 1196
391
+        Me.Label9.Text = "現金餘額"
392
+        '
393
+        '台幣支出_tb
394
+        '
395
+        Me.台幣支出_tb.ForeColor = System.Drawing.Color.Green
396
+        Me.台幣支出_tb.Location = New System.Drawing.Point(837, 30)
397
+        Me.台幣支出_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
398
+        Me.台幣支出_tb.Name = "台幣支出_tb"
399
+        Me.台幣支出_tb.Size = New System.Drawing.Size(99, 23)
400
+        Me.台幣支出_tb.TabIndex = 1195
401
+        Me.台幣支出_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
402
+        '
403
+        'Label11
404
+        '
405
+        Me.Label11.AutoSize = True
406
+        Me.Label11.ForeColor = System.Drawing.Color.Green
407
+        Me.Label11.Location = New System.Drawing.Point(803, 33)
408
+        Me.Label11.Name = "Label11"
409
+        Me.Label11.Size = New System.Drawing.Size(32, 16)
410
+        Me.Label11.TabIndex = 1194
411
+        Me.Label11.Text = "支出"
412
+        '
413
+        '當月_bt
414
+        '
415
+        Me.當月_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
416
+        Me.當月_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
417
+        Me.當月_bt.Location = New System.Drawing.Point(286, 29)
418
+        Me.當月_bt.Name = "當月_bt"
419
+        Me.當月_bt.Size = New System.Drawing.Size(45, 25)
420
+        Me.當月_bt.TabIndex = 1193
421
+        Me.當月_bt.Text = "當月"
422
+        Me.當月_bt.UseVisualStyleBackColor = True
423
+        '
424
+        '當日_bt
425
+        '
426
+        Me.當日_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
427
+        Me.當日_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
428
+        Me.當日_bt.Location = New System.Drawing.Point(232, 29)
429
+        Me.當日_bt.Name = "當日_bt"
430
+        Me.當日_bt.Size = New System.Drawing.Size(45, 25)
431
+        Me.當日_bt.TabIndex = 1192
432
+        Me.當日_bt.Text = "當日"
433
+        Me.當日_bt.UseVisualStyleBackColor = True
434
+        '
435
+        'Label4
436
+        '
437
+        Me.Label4.AutoSize = True
438
+        Me.Label4.Location = New System.Drawing.Point(112, 34)
439
+        Me.Label4.Name = "Label4"
440
+        Me.Label4.Size = New System.Drawing.Size(20, 16)
441
+        Me.Label4.TabIndex = 1191
442
+        Me.Label4.Text = "到"
443
+        '
444
+        '結束日期_dtp
445
+        '
446
+        Me.結束日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
447
+        Me.結束日期_dtp.Location = New System.Drawing.Point(135, 30)
448
+        Me.結束日期_dtp.Name = "結束日期_dtp"
449
+        Me.結束日期_dtp.Size = New System.Drawing.Size(91, 23)
450
+        Me.結束日期_dtp.TabIndex = 1190
451
+        '
452
+        '開始日期_dtp
453
+        '
454
+        Me.開始日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
455
+        Me.開始日期_dtp.Location = New System.Drawing.Point(15, 30)
456
+        Me.開始日期_dtp.Name = "開始日期_dtp"
457
+        Me.開始日期_dtp.Size = New System.Drawing.Size(91, 23)
458
+        Me.開始日期_dtp.TabIndex = 1189
459
+        '
460
+        '台幣現金_tb
461
+        '
462
+        Me.台幣現金_tb.ForeColor = System.Drawing.Color.Green
463
+        Me.台幣現金_tb.Location = New System.Drawing.Point(698, 30)
464
+        Me.台幣現金_tb.Name = "台幣現金_tb"
465
+        Me.台幣現金_tb.Size = New System.Drawing.Size(99, 23)
466
+        Me.台幣現金_tb.TabIndex = 1188
467
+        Me.台幣現金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
468
+        '
469
+        'Label10
470
+        '
471
+        Me.Label10.AutoSize = True
472
+        Me.Label10.ForeColor = System.Drawing.Color.Green
473
+        Me.Label10.Location = New System.Drawing.Point(664, 33)
474
+        Me.Label10.Name = "Label10"
475
+        Me.Label10.Size = New System.Drawing.Size(32, 16)
476
+        Me.Label10.TabIndex = 1187
477
+        Me.Label10.Text = "現金"
478
+        '
479
+        '支付單列印成EXCEL
480
+        '
481
+        Me.支付單列印成EXCEL.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
482
+        Me.支付單列印成EXCEL.ForeColor = System.Drawing.Color.Blue
483
+        Me.支付單列印成EXCEL.Location = New System.Drawing.Point(1119, 4)
484
+        Me.支付單列印成EXCEL.Name = "支付單列印成EXCEL"
485
+        Me.支付單列印成EXCEL.Size = New System.Drawing.Size(130, 75)
486
+        Me.支付單列印成EXCEL.TabIndex = 1186
487
+        Me.支付單列印成EXCEL.Text = "支付單列印成EXCEL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
488
+        Me.支付單列印成EXCEL.UseVisualStyleBackColor = True
489
+        '
490
+        'Label8
491
+        '
492
+        Me.Label8.AutoSize = True
493
+        Me.Label8.ForeColor = System.Drawing.Color.Blue
494
+        Me.Label8.Location = New System.Drawing.Point(980, 7)
495
+        Me.Label8.Name = "Label8"
496
+        Me.Label8.Size = New System.Drawing.Size(32, 16)
497
+        Me.Label8.TabIndex = 1185
498
+        Me.Label8.Text = "日期"
499
+        '
500
+        'Label7
501
+        '
502
+        Me.Label7.AutoSize = True
503
+        Me.Label7.ForeColor = System.Drawing.Color.Blue
504
+        Me.Label7.Location = New System.Drawing.Point(715, 7)
505
+        Me.Label7.Name = "Label7"
506
+        Me.Label7.Size = New System.Drawing.Size(32, 16)
507
+        Me.Label7.TabIndex = 1184
508
+        Me.Label7.Text = "日期"
509
+        '
510
+        '審核日期_dtp
511
+        '
512
+        Me.審核日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
513
+        Me.審核日期_dtp.Location = New System.Drawing.Point(1014, 4)
514
+        Me.審核日期_dtp.Name = "審核日期_dtp"
515
+        Me.審核日期_dtp.Size = New System.Drawing.Size(99, 23)
516
+        Me.審核日期_dtp.TabIndex = 1183
517
+        '
518
+        '申請日期_dtp
519
+        '
520
+        Me.申請日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
521
+        Me.申請日期_dtp.Location = New System.Drawing.Point(750, 4)
522
+        Me.申請日期_dtp.Name = "申請日期_dtp"
523
+        Me.申請日期_dtp.Size = New System.Drawing.Size(99, 23)
524
+        Me.申請日期_dtp.TabIndex = 1182
525
+        '
526
+        'Label5
527
+        '
528
+        Me.Label5.AutoSize = True
529
+        Me.Label5.ForeColor = System.Drawing.Color.Blue
530
+        Me.Label5.Location = New System.Drawing.Point(859, 7)
531
+        Me.Label5.Name = "Label5"
532
+        Me.Label5.Size = New System.Drawing.Size(44, 16)
533
+        Me.Label5.TabIndex = 1181
534
+        Me.Label5.Text = "審核人"
535
+        '
536
+        '審核人_tb
537
+        '
538
+        Me.審核人_tb.ForeColor = System.Drawing.Color.Blue
539
+        Me.審核人_tb.Location = New System.Drawing.Point(904, 4)
540
+        Me.審核人_tb.Name = "審核人_tb"
541
+        Me.審核人_tb.Size = New System.Drawing.Size(74, 23)
542
+        Me.審核人_tb.TabIndex = 1180
543
+        '
544
+        '申請人_tb
545
+        '
546
+        Me.申請人_tb.ForeColor = System.Drawing.Color.Blue
547
+        Me.申請人_tb.Location = New System.Drawing.Point(639, 4)
548
+        Me.申請人_tb.Name = "申請人_tb"
549
+        Me.申請人_tb.Size = New System.Drawing.Size(74, 23)
550
+        Me.申請人_tb.TabIndex = 1177
551
+        '
552
+        '收支單號_tb
553
+        '
554
+        Me.收支單號_tb.ForeColor = System.Drawing.Color.Blue
555
+        Me.收支單號_tb.Location = New System.Drawing.Point(438, 4)
556
+        Me.收支單號_tb.Name = "收支單號_tb"
557
+        Me.收支單號_tb.Size = New System.Drawing.Size(150, 23)
558
+        Me.收支單號_tb.TabIndex = 1175
559
+        '
560
+        'Label6
561
+        '
562
+        Me.Label6.AutoSize = True
563
+        Me.Label6.Location = New System.Drawing.Point(12, 9)
564
+        Me.Label6.Name = "Label6"
565
+        Me.Label6.Size = New System.Drawing.Size(140, 16)
566
+        Me.Label6.TabIndex = 1174
567
+        Me.Label6.Text = "已核准的營運成本收支單"
568
+        '
569
+        '單據彙總_dgv
570
+        '
571
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
572
+        Me.單據彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
573
+        Me.單據彙總_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
574
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
575
+        Me.單據彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
576
+        Me.單據彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
577
+        Me.單據彙總_dgv.Location = New System.Drawing.Point(16, 82)
578
+        Me.單據彙總_dgv.Name = "單據彙總_dgv"
579
+        Me.單據彙總_dgv.RowHeadersWidth = 5
580
+        Me.單據彙總_dgv.RowTemplate.Height = 24
581
+        Me.單據彙總_dgv.Size = New System.Drawing.Size(315, 483)
582
+        Me.單據彙總_dgv.TabIndex = 1173
583
+        '
584
+        'Label1
585
+        '
586
+        Me.Label1.AutoSize = True
587
+        Me.Label1.ForeColor = System.Drawing.Color.Blue
588
+        Me.Label1.Location = New System.Drawing.Point(334, 7)
589
+        Me.Label1.Name = "Label1"
590
+        Me.Label1.Size = New System.Drawing.Size(104, 16)
591
+        Me.Label1.TabIndex = 1176
592
+        Me.Label1.Text = "營運成本收支單號"
593
+        '
594
+        'Label3
595
+        '
596
+        Me.Label3.AutoSize = True
597
+        Me.Label3.ForeColor = System.Drawing.Color.Blue
598
+        Me.Label3.Location = New System.Drawing.Point(594, 7)
599
+        Me.Label3.Name = "Label3"
600
+        Me.Label3.Size = New System.Drawing.Size(44, 16)
601
+        Me.Label3.TabIndex = 1178
602
+        Me.Label3.Text = "申請人"
603
+        '
604
+        '明細_dgv
605
+        '
606
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
607
+        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
608
+        Me.明細_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
609
+            Or System.Windows.Forms.AnchorStyles.Left) _
610
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
611
+        Me.明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
612
+        Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
613
+        Me.明細_dgv.Location = New System.Drawing.Point(342, 82)
614
+        Me.明細_dgv.Name = "明細_dgv"
615
+        Me.明細_dgv.RowHeadersWidth = 5
616
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
617
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
618
+        Me.明細_dgv.RowTemplate.Height = 24
619
+        Me.明細_dgv.Size = New System.Drawing.Size(1045, 537)
620
+        Me.明細_dgv.TabIndex = 1179
621
+        '
622
+        '財務彙總_dgv
623
+        '
624
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
625
+        Me.財務彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
626
+        Me.財務彙總_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
627
+            Or System.Windows.Forms.AnchorStyles.Left) _
628
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
629
+        Me.財務彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
630
+        Me.財務彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
631
+        Me.財務彙總_dgv.Location = New System.Drawing.Point(342, 82)
632
+        Me.財務彙總_dgv.Name = "財務彙總_dgv"
633
+        Me.財務彙總_dgv.RowHeadersWidth = 5
634
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
635
+        Me.財務彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
636
+        Me.財務彙總_dgv.RowTemplate.Height = 24
637
+        Me.財務彙總_dgv.Size = New System.Drawing.Size(1045, 537)
638
+        Me.財務彙總_dgv.TabIndex = 1224
639
+        '
640
+        '營運成本收支單一覽表
641
+        '
642
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
643
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
644
+        Me.ClientSize = New System.Drawing.Size(1399, 631)
645
+        Me.Controls.Add(Me.會計月_ch)
646
+        Me.Controls.Add(Me.下個月_bt)
647
+        Me.Controls.Add(Me.上個月_bt)
648
+        Me.Controls.Add(Me.中間日期_dtp)
649
+        Me.Controls.Add(Me.一般月_ch)
650
+        Me.Controls.Add(Me.Label2)
651
+        Me.Controls.Add(Me.人民幣零用金_tb)
652
+        Me.Controls.Add(Me.人民幣零用金_)
653
+        Me.Controls.Add(Me.人民幣支票_tb)
654
+        Me.Controls.Add(Me.人民幣現金餘額_tb)
655
+        Me.Controls.Add(Me.Label13)
656
+        Me.Controls.Add(Me.人民幣支出_tb)
657
+        Me.Controls.Add(Me.Label16)
658
+        Me.Controls.Add(Me.人民幣現金_tb)
659
+        Me.Controls.Add(Me.Label17)
660
+        Me.Controls.Add(Me.圖片編碼_tb)
661
+        Me.Controls.Add(Me.驗證碼_tb)
662
+        Me.Controls.Add(Me.Label20)
663
+        Me.Controls.Add(Me.Label19)
664
+        Me.Controls.Add(Me.簽名圖_pb)
665
+        Me.Controls.Add(Me.彙總_rb)
666
+        Me.Controls.Add(Me.明細_rb)
667
+        Me.Controls.Add(Me.Label14)
668
+        Me.Controls.Add(Me.台幣零用金_tb)
669
+        Me.Controls.Add(Me.Label15)
670
+        Me.Controls.Add(Me.台幣支票_tb)
671
+        Me.Controls.Add(Me.台幣現金餘額_tb)
672
+        Me.Controls.Add(Me.Label9)
673
+        Me.Controls.Add(Me.台幣支出_tb)
674
+        Me.Controls.Add(Me.Label11)
675
+        Me.Controls.Add(Me.當月_bt)
676
+        Me.Controls.Add(Me.當日_bt)
677
+        Me.Controls.Add(Me.Label4)
678
+        Me.Controls.Add(Me.結束日期_dtp)
679
+        Me.Controls.Add(Me.開始日期_dtp)
680
+        Me.Controls.Add(Me.台幣現金_tb)
681
+        Me.Controls.Add(Me.Label10)
682
+        Me.Controls.Add(Me.支付單列印成EXCEL)
683
+        Me.Controls.Add(Me.Label8)
684
+        Me.Controls.Add(Me.Label7)
685
+        Me.Controls.Add(Me.審核日期_dtp)
686
+        Me.Controls.Add(Me.申請日期_dtp)
687
+        Me.Controls.Add(Me.Label5)
688
+        Me.Controls.Add(Me.審核人_tb)
689
+        Me.Controls.Add(Me.申請人_tb)
690
+        Me.Controls.Add(Me.收支單號_tb)
691
+        Me.Controls.Add(Me.Label6)
692
+        Me.Controls.Add(Me.Label1)
693
+        Me.Controls.Add(Me.Label3)
694
+        Me.Controls.Add(Me.財務彙總_dgv)
695
+        Me.Controls.Add(Me.單據彙總_dgv)
696
+        Me.Controls.Add(Me.明細_dgv)
697
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
698
+        Me.ForeColor = System.Drawing.Color.CornflowerBlue
699
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
700
+        Me.Name = "營運成本收支單一覽表"
701
+        Me.Text = "營運成本收支單一覽表"
702
+        Me.ContextMenuStrip1.ResumeLayout(False)
703
+        CType(Me.簽名圖_pb, System.ComponentModel.ISupportInitialize).EndInit()
704
+        CType(Me.單據彙總_dgv, System.ComponentModel.ISupportInitialize).EndInit()
705
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
706
+        CType(Me.財務彙總_dgv, System.ComponentModel.ISupportInitialize).EndInit()
707
+        Me.ResumeLayout(False)
708
+        Me.PerformLayout()
709
+
710
+    End Sub
711
+
712
+    Friend WithEvents 會計月_ch As CheckBox
713
+    Friend WithEvents 下個月_bt As Button
714
+    Friend WithEvents 上個月_bt As Button
715
+    Friend WithEvents 中間日期_dtp As DateTimePicker
716
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
717
+    Friend WithEvents 重新讀取ToolStripMenuItem As ToolStripMenuItem
718
+    Friend WithEvents 一般月_ch As CheckBox
719
+    Friend WithEvents Label2 As Label
720
+    Friend WithEvents 人民幣零用金_tb As TextBox
721
+    Friend WithEvents 人民幣零用金_ As Label
722
+    Friend WithEvents 人民幣支票_tb As TextBox
723
+    Friend WithEvents 人民幣現金餘額_tb As TextBox
724
+    Friend WithEvents Label13 As Label
725
+    Friend WithEvents 人民幣支出_tb As TextBox
726
+    Friend WithEvents Label16 As Label
727
+    Friend WithEvents 人民幣現金_tb As TextBox
728
+    Friend WithEvents Label17 As Label
729
+    Friend WithEvents 圖片編碼_tb As TextBox
730
+    Friend WithEvents 驗證碼_tb As TextBox
731
+    Friend WithEvents Label20 As Label
732
+    Friend WithEvents Label19 As Label
733
+    Friend WithEvents 簽名圖_pb As PictureBox
734
+    Friend WithEvents 彙總_rb As RadioButton
735
+    Friend WithEvents 明細_rb As RadioButton
736
+    Friend WithEvents Label14 As Label
737
+    Friend WithEvents 台幣零用金_tb As TextBox
738
+    Friend WithEvents Label15 As Label
739
+    Friend WithEvents 台幣支票_tb As TextBox
740
+    Friend WithEvents 台幣現金餘額_tb As TextBox
741
+    Friend WithEvents Label9 As Label
742
+    Friend WithEvents 台幣支出_tb As TextBox
743
+    Friend WithEvents Label11 As Label
744
+    Friend WithEvents 當月_bt As Button
745
+    Friend WithEvents 當日_bt As Button
746
+    Friend WithEvents Label4 As Label
747
+    Friend WithEvents 結束日期_dtp As DateTimePicker
748
+    Friend WithEvents 開始日期_dtp As DateTimePicker
749
+    Friend WithEvents 台幣現金_tb As TextBox
750
+    Friend WithEvents Label10 As Label
751
+    Friend WithEvents 支付單列印成EXCEL As Button
752
+    Friend WithEvents Label8 As Label
753
+    Friend WithEvents Label7 As Label
754
+    Friend WithEvents 審核日期_dtp As DateTimePicker
755
+    Friend WithEvents 申請日期_dtp As DateTimePicker
756
+    Friend WithEvents Label5 As Label
757
+    Friend WithEvents 審核人_tb As TextBox
758
+    Friend WithEvents 申請人_tb As TextBox
759
+    Friend WithEvents 收支單號_tb As TextBox
760
+    Friend WithEvents Label6 As Label
761
+    Friend WithEvents 單據彙總_dgv As DataGridView
762
+    Friend WithEvents Label1 As Label
763
+    Friend WithEvents Label3 As Label
764
+    Friend WithEvents 明細_dgv As DataGridView
765
+    Friend WithEvents 財務彙總_dgv As DataGridView
766
+End Class

+ 126
- 0
YD-ERP-SYS/財務系統管理/營運成本收支單一覽表.resx 파일 보기

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

+ 454
- 0
YD-ERP-SYS/財務系統管理/營運成本收支單一覽表.vb 파일 보기

@@ -0,0 +1,454 @@
1
+Option Strict Off
2
+Imports System.Data.SqlClient
3
+Imports System.IO
4
+Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
5
+Imports Microsoft.Office.Interop.Excel.Constants
6
+Imports Microsoft.Office.Interop.Excel.XlBordersIndex
7
+Imports Microsoft.Office.Interop.Excel.XlLineStyle
8
+Imports Microsoft.Office.Interop.Excel.XlBorderWeight
9
+Imports Microsoft.Office.Interop.Excel.XlThemeFont
10
+Imports Microsoft.Office.Interop.Excel.XlThemeColor
11
+Imports Microsoft.Office.Interop.Excel.XlWindowState
12
+Imports Microsoft.Office.Interop.Excel
13
+Public Class 營運成本收支單一覽表
14
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
15
+    Dim DTP As String : Dim N1 As Integer : Dim N2 As Integer
16
+    Dim xlApp As Application
17
+    Dim xlBook As Workbook
18
+    Dim xlSheet As Worksheet
19
+    Private Sub Set_清單1()
20
+        單據彙總_dgv.DataSource = Nothing : ds1.Clear()
21
+        單據彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
22
+        單據彙總_dgv.ColumnHeadersHeight = 25
23
+        單據彙總_dgv.AllowUserToAddRows = False
24
+        SQL_營運成本收支單一覽表_查詢清單() : da.Fill(ds1) : 單據彙總_dgv.DataSource = ds1.Tables(0) : conn.Close()
25
+
26
+        單據彙總_dgv.Columns(0).FillWeight = 160 : 單據彙總_dgv.Columns(1).Visible = False : 單據彙總_dgv.Columns(2).FillWeight = 100 : 單據彙總_dgv.Columns(3).Visible = False
27
+        單據彙總_dgv.Columns(4).FillWeight = 100 : 單據彙總_dgv.Columns(5).Visible = False : 單據彙總_dgv.Columns(6).Visible = False
28
+    End Sub
29
+    Private Sub Set_清單2()
30
+        財務彙總_dgv.DataSource = Nothing : ds2.Clear()
31
+        財務彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
32
+        財務彙總_dgv.ColumnHeadersHeight = 25
33
+        財務彙總_dgv.AllowUserToAddRows = False
34
+        SQL_營運成本收支單一覽表_查詢清單2() : da.Fill(ds2) : 財務彙總_dgv.DataSource = ds2.Tables(0) : conn.Close()
35
+
36
+        財務彙總_dgv.Columns(0).FillWeight = 100 : 財務彙總_dgv.Columns(1).FillWeight = 140 : 財務彙總_dgv.Columns(2).FillWeight = 140 : 財務彙總_dgv.Columns(3).FillWeight = 140
37
+        財務彙總_dgv.Columns(4).FillWeight = 100 : 財務彙總_dgv.Columns(5).FillWeight = 100 : 財務彙總_dgv.Columns(6).FillWeight = 100 : 財務彙總_dgv.Columns(7).FillWeight = 100
38
+        財務彙總_dgv.Columns(8).FillWeight = 100 : 財務彙總_dgv.Columns(9).FillWeight = 100
39
+        財務彙總_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00" : 財務彙總_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.00" : 財務彙總_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00"
40
+        財務彙總_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.00"
41
+        財務彙總_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 財務彙總_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
42
+        財務彙總_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 財務彙總_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
43
+        財務彙總_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 財務彙總_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
44
+        財務彙總_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 財務彙總_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
45
+        財務彙總_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 財務彙總_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
46
+        財務彙總_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 財務彙總_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
47
+
48
+        財務彙總_dgv.Columns(0).ReadOnly = True : 財務彙總_dgv.Columns(1).ReadOnly = True : 財務彙總_dgv.Columns(2).ReadOnly = True : 財務彙總_dgv.Columns(3).ReadOnly = True
49
+        財務彙總_dgv.Columns(4).ReadOnly = True : 財務彙總_dgv.Columns(5).ReadOnly = True : 財務彙總_dgv.Columns(6).ReadOnly = True : 財務彙總_dgv.Columns(7).ReadOnly = True
50
+    End Sub
51
+    Private Sub Set_費用清單()
52
+        明細_dgv.DataSource = Nothing : ds.Clear()
53
+        明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
54
+        明細_dgv.ColumnHeadersHeight = 25
55
+        明細_dgv.AllowUserToAddRows = False
56
+        明細_dgv.RowTemplate.Height = 35
57
+        SQL_營運成本收支單一覽表_查詢費用清單() : da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()
58
+
59
+        明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 80 : 明細_dgv.Columns(2).FillWeight = 300 : 明細_dgv.Columns(3).FillWeight = 500
60
+        明細_dgv.Columns(4).FillWeight = 140 : 明細_dgv.Columns(5).FillWeight = 140 : 明細_dgv.Columns(6).FillWeight = 140 : 明細_dgv.Columns(7).FillWeight = 140
61
+        明細_dgv.Columns(8).FillWeight = 140 : 明細_dgv.Columns(9).FillWeight = 140 : 明細_dgv.Columns(10).FillWeight = 140 : 明細_dgv.Columns(11).Visible = False
62
+        明細_dgv.Columns(12).Visible = False
63
+
64
+        明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(2).ReadOnly = True : 明細_dgv.Columns(9).ReadOnly = True : 明細_dgv.Columns(10).ReadOnly = True
65
+
66
+        明細_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00"
67
+        明細_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.00"
68
+        明細_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
69
+        明細_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
70
+        明細_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
71
+        明細_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
72
+        明細_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
73
+        明細_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
74
+        明細_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
75
+        明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
76
+
77
+        台幣現金_tb.Text = "0.00" : 台幣支出_tb.Text = "0.00" : 台幣現金餘額_tb.Text = "0.00" : 台幣零用金_tb.Text = "0.00" : 台幣支票_tb.Text = "0.00"
78
+        人民幣零用金_tb.Text = "0.00" : 人民幣支票_tb.Text = "0.00" : 人民幣現金_tb.Text = "0.00" : 人民幣支出_tb.Text = "0.00" : 人民幣現金餘額_tb.Text = "0.00"
79
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
80
+            If 明細_dgv.Rows(i).Cells("幣別").Value = "台幣現金" Then
81
+                台幣現金_tb.Text = Val(台幣現金_tb.Text) + 明細_dgv.Rows(i).Cells("現金").Value
82
+                台幣支出_tb.Text = Val(台幣支出_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value
83
+                台幣零用金_tb.Text = Val(台幣零用金_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value
84
+                台幣支票_tb.Text = Val(台幣支票_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value
85
+            End If
86
+            If 明細_dgv.Rows(i).Cells("幣別").Value = "人民幣現金" Then
87
+                人民幣現金_tb.Text = Val(人民幣現金_tb.Text) + 明細_dgv.Rows(i).Cells("現金").Value
88
+                人民幣支出_tb.Text = Val(人民幣支出_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value
89
+
90
+                人民幣零用金_tb.Text = Val(人民幣零用金_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value
91
+                人民幣支票_tb.Text = Val(人民幣支票_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value
92
+            End If
93
+        Next i
94
+        台幣現金餘額_tb.Text = Val(台幣零用金_tb.Text) + Val(台幣現金_tb.Text) - Val(台幣支出_tb.Text) : 人民幣現金餘額_tb.Text = Val(人民幣零用金_tb.Text) + Val(人民幣現金_tb.Text) - Val(人民幣支出_tb.Text)
95
+        If Val(台幣現金餘額_tb.Text) > 0 Then : 台幣現金餘額_tb.ForeColor = Color.Blue : Else : 台幣現金餘額_tb.ForeColor = Color.Red : End If
96
+        If Val(人民幣現金餘額_tb.Text) > 0 Then : 人民幣現金餘額_tb.ForeColor = Color.Blue : Else : 台幣現金餘額_tb.ForeColor = Color.Red : End If
97
+        台幣現金_tb.Text = Strings.Format(Val(台幣現金_tb.Text), "#,##0.00") : 台幣支出_tb.Text = Strings.Format(Val(台幣支出_tb.Text), "#,##0.00") : 台幣現金餘額_tb.Text = Strings.Format(Val(台幣現金餘額_tb.Text), "#,##0.00")
98
+        台幣零用金_tb.Text = Strings.Format(Val(台幣零用金_tb.Text), "#,##0.00") : 台幣支票_tb.Text = Strings.Format(Val(台幣支票_tb.Text), "#,##0.00")
99
+        人民幣零用金_tb.Text = Strings.Format(Val(人民幣零用金_tb.Text), "#,##0.00") : 人民幣支票_tb.Text = Strings.Format(Val(人民幣支票_tb.Text), "#,##0.00") : 人民幣現金_tb.Text = Strings.Format(Val(人民幣現金_tb.Text), "#,##0.00")
100
+        人民幣支出_tb.Text = Strings.Format(Val(人民幣支出_tb.Text), "#,##0.00") : 人民幣現金餘額_tb.Text = Strings.Format(Val(人民幣現金餘額_tb.Text), "#,##0.00")
101
+    End Sub
102
+    Private Sub 日期格式()
103
+        If 會計月_ch.Checked = True Then
104
+            '-------------日期一----------------------------------------------------------------------------------------
105
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
106
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(-1)
107
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "26" : 開始日期_dtp.Value = DTP
108
+            '-------------日期二----------------------------------------------------------------------------------------
109
+            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "25" : 結束日期_dtp.Value = DTP
110
+        Else
111
+            '-------------日期一----------------------------------------------------------------------------------------
112
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(1)
113
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
114
+            '-------------日期二----------------------------------------------------------------------------------------
115
+            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
116
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
117
+        End If
118
+    End Sub
119
+    Private Sub 營運成本收支單一覽表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
120
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
121
+        DTP = Strings.Left(Strings.Format(Today(), "yyyy/MM/dd"), 8) & "01"
122
+        開始日期_dtp.Value = DTP : 結束日期_dtp.Value = Today()
123
+        日期格式() : 財務彙總_dgv.Visible = False : 明細_rb.Checked = True
124
+    End Sub
125
+    Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 單據彙總_dgv.CellClick
126
+        If e.RowIndex = -1 Then : Else
127
+            收支單號_tb.Text = 單據彙總_dgv(0, e.RowIndex).Value.ToString : 驗證碼_tb.Text = 單據彙總_dgv(6, e.RowIndex).Value.ToString
128
+            申請人_tb.Text = 單據彙總_dgv(1, e.RowIndex).Value.ToString : 申請日期_dtp.Value = 單據彙總_dgv(2, e.RowIndex).Value.ToString
129
+            審核人_tb.Text = 單據彙總_dgv(3, e.RowIndex).Value.ToString : 審核日期_dtp.Value = 單據彙總_dgv(4, e.RowIndex).Value.ToString
130
+            圖片編碼_tb.Text = 單據彙總_dgv(5, e.RowIndex).Value.ToString
131
+            Set_費用清單()
132
+        End If
133
+    End Sub
134
+    Private Sub 財務彙總_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 財務彙總_dgv.RowPostPaint
135
+        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2) : Dim linePen2 As New Pen(Color.Green, 2)
136
+        If e.RowIndex = 財務彙總_dgv.Rows.Count - 1 Then
137
+            Exit Sub
138
+        Else
139
+            If 財務彙總_dgv(0, e.RowIndex).Value.ToString <> 財務彙總_dgv(0, e.RowIndex + 1).Value.ToString Then
140
+                Dim startX As Integer = IIf(財務彙總_dgv.RowHeadersVisible, 財務彙總_dgv.RowHeadersWidth, 0)
141
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
142
+                Dim endX As Integer = startX + 財務彙總_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 財務彙總_dgv.HorizontalScrollingOffset
143
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
144
+                Exit Sub
145
+            End If
146
+            If 財務彙總_dgv(8, e.RowIndex).Value.ToString <> 財務彙總_dgv(8, e.RowIndex + 1).Value.ToString Then
147
+                Dim startX As Integer = IIf(財務彙總_dgv.RowHeadersVisible, 財務彙總_dgv.RowHeadersWidth, 0)
148
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
149
+                Dim endX As Integer = startX + 財務彙總_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 財務彙總_dgv.HorizontalScrollingOffset
150
+                e.Graphics.DrawLine(linePen2, startX, startY, endX, startY)
151
+                Exit Sub
152
+            End If
153
+            If 財務彙總_dgv(1, e.RowIndex).Value.ToString <> 財務彙總_dgv(1, e.RowIndex + 1).Value.ToString Then
154
+                Dim startX As Integer = IIf(財務彙總_dgv.RowHeadersVisible, 財務彙總_dgv.RowHeadersWidth, 0)
155
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
156
+                Dim endX As Integer = startX + 財務彙總_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 財務彙總_dgv.HorizontalScrollingOffset
157
+                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY)
158
+                Exit Sub
159
+            End If
160
+        End If
161
+    End Sub
162
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 當日_bt.Click
163
+        DTP = Strings.Format(Today(), "yyyy/MM/dd")
164
+        開始日期_dtp.Value = DTP : 結束日期_dtp.Value = DTP
165
+    End Sub
166
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 當月_bt.Click
167
+        DTP = Strings.Left(Strings.Format(Today(), "yyyy/MM/dd"), 8) & "01"
168
+        開始日期_dtp.Value = DTP : 結束日期_dtp.Value = Today()
169
+    End Sub
170
+    Private Sub 彙總計算()
171
+        If 明細_rb.Checked = False And 彙總_rb.Checked = True Then
172
+            台幣現金_tb.Text = "0.00" : 台幣支出_tb.Text = "0.00" : 台幣現金餘額_tb.Text = "0.00" : 台幣零用金_tb.Text = "0.00" : 台幣支票_tb.Text = "0.00"
173
+            人民幣零用金_tb.Text = "0.00" : 人民幣支票_tb.Text = "0.00" : 人民幣現金_tb.Text = "0.00" : 人民幣支出_tb.Text = "0.00" : 人民幣現金餘額_tb.Text = "0.00"
174
+            For i As Integer = 0 To 財務彙總_dgv.Rows.Count - 1
175
+                If 財務彙總_dgv.Rows(i).Cells("幣別").Value = "台幣現金" Then
176
+                    台幣現金_tb.Text = Val(台幣現金_tb.Text) + 財務彙總_dgv.Rows(i).Cells("現金").Value
177
+                    台幣支出_tb.Text = Val(台幣支出_tb.Text) + 財務彙總_dgv.Rows(i).Cells("支出").Value
178
+                    台幣零用金_tb.Text = Val(台幣零用金_tb.Text) + 財務彙總_dgv.Rows(i).Cells("零用金").Value
179
+                    台幣支票_tb.Text = Val(台幣支票_tb.Text) + 財務彙總_dgv.Rows(i).Cells("支票").Value
180
+                End If
181
+                If 財務彙總_dgv.Rows(i).Cells("幣別").Value = "人民幣現金" Then
182
+                    If 財務彙總_dgv.Rows(i).Cells("主項").Value <> "上月結存" Then
183
+                        人民幣現金_tb.Text = Val(人民幣現金_tb.Text) + 財務彙總_dgv.Rows(i).Cells("現金").Value
184
+                        人民幣支出_tb.Text = Val(人民幣支出_tb.Text) + 財務彙總_dgv.Rows(i).Cells("支出").Value
185
+                        人民幣零用金_tb.Text = Val(人民幣零用金_tb.Text) + 財務彙總_dgv.Rows(i).Cells("零用金").Value
186
+                        人民幣支票_tb.Text = Val(人民幣支票_tb.Text) + 財務彙總_dgv.Rows(i).Cells("支票").Value
187
+                    End If
188
+                End If
189
+            Next i
190
+            台幣現金餘額_tb.Text = Val(台幣零用金_tb.Text) + Val(台幣現金_tb.Text) - Val(台幣支出_tb.Text) : 人民幣現金餘額_tb.Text = Val(人民幣零用金_tb.Text) + Val(人民幣現金_tb.Text) - Val(人民幣支出_tb.Text)
191
+            If Val(台幣現金餘額_tb.Text) > 0 Then : 台幣現金餘額_tb.ForeColor = Color.Blue : Else : 台幣現金餘額_tb.ForeColor = Color.Red : End If
192
+            If Val(人民幣現金餘額_tb.Text) > 0 Then : 人民幣現金餘額_tb.ForeColor = Color.Blue : Else : 台幣現金餘額_tb.ForeColor = Color.Red : End If
193
+            台幣現金_tb.Text = Strings.Format(Val(台幣現金_tb.Text), "#,##0.00") : 台幣支出_tb.Text = Strings.Format(Val(台幣支出_tb.Text), "#,##0.00") : 台幣現金餘額_tb.Text = Strings.Format(Val(台幣現金餘額_tb.Text), "#,##0.00")
194
+            台幣零用金_tb.Text = Strings.Format(Val(台幣零用金_tb.Text), "#,##0.00") : 台幣支票_tb.Text = Strings.Format(Val(台幣支票_tb.Text), "#,##0.00")
195
+            人民幣零用金_tb.Text = Strings.Format(Val(人民幣零用金_tb.Text), "#,##0.00") : 人民幣支票_tb.Text = Strings.Format(Val(人民幣支票_tb.Text), "#,##0.00") : 人民幣現金_tb.Text = Strings.Format(Val(人民幣現金_tb.Text), "#,##0.00")
196
+            人民幣支出_tb.Text = Strings.Format(Val(人民幣支出_tb.Text), "#,##0.00") : 人民幣現金餘額_tb.Text = Strings.Format(Val(人民幣現金餘額_tb.Text), "#,##0.00")
197
+        End If
198
+    End Sub
199
+    Private Sub 上個月_bt_Click(sender As Object, e As EventArgs) Handles 上個月_bt.Click
200
+        If 會計月_ch.Checked = True Then
201
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
202
+            開始日期_dtp.Value = 中間日期_dtp.Value
203
+            結束日期_dtp.Value = 中間日期_dtp.Value
204
+        Else
205
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
206
+            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
207
+            結束日期_dtp.Value = 中間日期_dtp.Value
208
+        End If
209
+        日期格式()
210
+    End Sub
211
+    Private Sub 下個月_bt_Click(sender As Object, e As EventArgs) Handles 下個月_bt.Click
212
+        If 會計月_ch.Checked = True Then
213
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
214
+            開始日期_dtp.Value = 中間日期_dtp.Value
215
+            結束日期_dtp.Value = 中間日期_dtp.Value
216
+        Else
217
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
218
+            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
219
+            結束日期_dtp.Value = 中間日期_dtp.Value
220
+        End If
221
+        日期格式()
222
+    End Sub
223
+    Private Sub DateTimePicker4_ValueChanged(sender As Object, e As EventArgs) Handles 開始日期_dtp.ValueChanged
224
+        Set_清單1() : Set_清單2() : 彙總計算()
225
+    End Sub
226
+    Private Sub DateTimePicker3_ValueChanged(sender As Object, e As EventArgs) Handles 結束日期_dtp.ValueChanged
227
+        Set_清單1() : Set_清單2() : 彙總計算()
228
+    End Sub
229
+    Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月_ch.Click
230
+        會計月_ch.Checked = True : 一般月_ch.Checked = False : 日期格式()
231
+    End Sub
232
+    Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月_ch.Click
233
+        會計月_ch.Checked = False : 一般月_ch.Checked = True : 日期格式()
234
+    End Sub
235
+    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles 明細_rb.Click
236
+        明細_dgv.Visible = True : 財務彙總_dgv.Visible = False : 明細_rb.Checked = True : 彙總_rb.Checked = False
237
+        台幣現金_tb.Text = "0.00" : 台幣支出_tb.Text = "0.00" : 台幣現金餘額_tb.Text = "0.00" : 台幣零用金_tb.Text = "0.00" : 台幣支票_tb.Text = "0.00" : 單據彙總_dgv.Enabled = True
238
+    End Sub
239
+    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles 彙總_rb.Click
240
+        明細_dgv.Visible = False : 財務彙總_dgv.Visible = True : 明細_rb.Checked = False : 彙總_rb.Checked = True
241
+        收支單號_tb.Text = "" : 申請人_tb.Text = "" : 審核人_tb.Text = "" : 明細_dgv.DataSource = Nothing : ds.Clear() : 單據彙總_dgv.Enabled = False
242
+        彙總計算()
243
+    End Sub
244
+    Private Sub TextBox14_TextChanged(sender As Object, e As EventArgs) Handles 圖片編碼_tb.TextChanged
245
+        SQL_營運成本收支單一覽表_查詢簽名檔圖片()
246
+        While dr.Read() = True
247
+            Dim unused As Byte() = New Byte(-1) {}
248
+            Dim bytes As Byte() = DirectCast(dr.Item("簽名檔圖片"), Byte())
249
+            Dim oStream As New MemoryStream(bytes)
250
+            簽名圖_pb.Image = Bitmap.FromStream(oStream)
251
+        End While
252
+        conn.Close()
253
+        簽名圖_pb.SizeMode = 4
254
+    End Sub
255
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 支付單列印成EXCEL.Click
256
+        xlApp = CType(CreateObject("Excel.Application"), Application)
257
+        xlBook = xlApp.Workbooks.Add
258
+        xlApp.DisplayAlerts = True
259
+        xlBook.Activate()
260
+        xlSheet = NewMethod(xlBook)
261
+        xlSheet.Activate()
262
+        xlApp.Visible = True
263
+        xlApp.Application.WindowState = xlMaximized
264
+
265
+        xlSheet.Cells(1, 1) = "年度" : xlSheet.Cells(1, 2) = Year(Today) - 1911
266
+        If 明細_rb.Checked = True And 彙總_rb.Checked = False Then
267
+            xlSheet.Cells(1, 3) = "工巧明智能企業有限公司-營運費用收支明細表"
268
+            xlSheet.Cells(2, 1) = "收款日期" : xlSheet.Cells(2, 2) = "會計科目" : xlSheet.Cells(2, 3) = "客戶或用途"
269
+            xlSheet.Cells(2, 4) = "零用金" : xlSheet.Cells(2, 5) = "支票" : xlSheet.Cells(2, 6) = "現金" : xlSheet.Cells(2, 7) = "支出" : xlSheet.Cells(2, 8) = "現金餘額" : xlSheet.Cells(2, 9) = "票期"
270
+
271
+            For i As Integer = 0 To 明細_dgv.Rows.Count - 1
272
+                xlSheet.Cells(i + 3, 1) = 申請日期_dtp.Value : xlSheet.Cells(i + 3, 2) = 明細_dgv.Rows(i).Cells("會計科目").Value
273
+                xlSheet.Cells(i + 3, 3) = 明細_dgv.Rows(i).Cells("用途").Value : xlSheet.Cells(i + 3, 4) = 明細_dgv.Rows(i).Cells("零用金").Value
274
+                xlSheet.Cells(i + 3, 5) = 明細_dgv.Rows(i).Cells("支票").Value : xlSheet.Cells(i + 3, 6) = 明細_dgv.Rows(i).Cells("現金").Value
275
+                xlSheet.Cells(i + 3, 7) = 明細_dgv.Rows(i).Cells("支出").Value : xlSheet.Cells(i + 3, 9) = 明細_dgv.Rows(i).Cells("票期").Value
276
+                If i = 0 Then
277
+                    xlSheet.Cells(i + 3, 8) = "=D3+F3-G3"
278
+                Else
279
+                    xlSheet.Cells(i + 3, 8) = "=H" & i + 2 & "+D" & i + 3 & "+F" & i + 3 & "-G" & i + 3 & ""
280
+                End If
281
+                With xlApp.Selection
282
+                    .Font.Bold = True
283
+                End With
284
+                N1 = i + 3 : N2 = i + 3
285
+            Next i
286
+            xlSheet.Cells(N1 + 1, 3) = "以下空白" : xlSheet.Cells(N1 + 3, 1) = "簽核(點交)" : xlSheet.Cells(N1 + 3, 7) = "製表 : " & 申請人_tb.Text & " - " & 申請日期_dtp.Value
287
+            xlSheet.Cells(N1 + 2, 4) = "=SUM(D3:D" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 5) = "=SUM(E3:E" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 6) = "=SUM(F3:F" & N1 + 1 & ")"
288
+            xlSheet.Cells(N1 + 2, 7) = "=SUM(G3:G" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 8) = "=H" & N1 : xlSheet.Cells(N1 + 2, 1) = "合計"
289
+
290
+            AA(xlApp, xlSheet) : BB(xlApp, xlSheet)
291
+        ElseIf 明細_rb.Checked = False And 彙總_rb.Checked = True Then
292
+            xlSheet.Cells(1, 3) = "工巧明智能企業有限公司-營運費用收支彙總簡表"
293
+            xlSheet.Cells(2, 1) = "日期" : xlSheet.Cells(2, 2) = "主項" : xlSheet.Cells(2, 3) = "子項" : xlSheet.Cells(2, 4) = "子細項" : xlSheet.Cells(2, 5) = "零用金"
294
+            xlSheet.Cells(2, 6) = "支票" : xlSheet.Cells(2, 7) = "現金" : xlSheet.Cells(2, 8) = "支出" : xlSheet.Cells(2, 9) = "現金餘額"
295
+
296
+            For i As Integer = 0 To 財務彙總_dgv.Rows.Count - 1
297
+                xlSheet.Cells(i + 3, 1) = 財務彙總_dgv.Rows(i).Cells("日期").Value
298
+                xlSheet.Cells(i + 3, 2) = 財務彙總_dgv.Rows(i).Cells("主項").Value
299
+                xlSheet.Cells(i + 3, 3) = 財務彙總_dgv.Rows(i).Cells("子項").Value
300
+                xlSheet.Cells(i + 3, 4) = 財務彙總_dgv.Rows(i).Cells("子細項").Value
301
+                xlSheet.Cells(i + 3, 5) = 財務彙總_dgv.Rows(i).Cells("零用金").Value
302
+                xlSheet.Cells(i + 3, 6) = 財務彙總_dgv.Rows(i).Cells("支票").Value
303
+                xlSheet.Cells(i + 3, 7) = 財務彙總_dgv.Rows(i).Cells("現金").Value
304
+                xlSheet.Cells(i + 3, 8) = 財務彙總_dgv.Rows(i).Cells("支出").Value
305
+                If i = 0 Then
306
+                    xlSheet.Cells(i + 3, 9) = "=E3+G3-H3"
307
+                Else
308
+                    xlSheet.Cells(i + 3, 9) = "=I" & i + 2 & "+E" & i + 3 & "+G" & i + 3 & "-H" & i + 3 & ""
309
+                End If
310
+                With xlApp.Selection
311
+                    .Font.Bold = True
312
+                End With
313
+                N1 = i + 3 : N2 = i + 3
314
+            Next i
315
+            xlSheet.Cells(N1 + 1, 2) = "以下空白" : xlSheet.Cells(N1 + 3, 1) = "簽核" : xlSheet.Cells(N1 + 3, 5) = "製表 : " & gUserName & " - " & Today()
316
+            xlSheet.Cells(N1 + 2, 5) = "=SUM(E3:E" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 6) = "=SUM(F3:F" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 7) = "=SUM(G3:G" & N1 + 1 & ")"
317
+            xlSheet.Cells(N1 + 2, 8) = "=SUM(H3:H" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 9) = "=I" & N1 : xlSheet.Cells(N1 + 2, 1) = "合計"
318
+
319
+            CC(xlApp, xlSheet)
320
+        End If
321
+
322
+        xlSheet.PageSetup.PrintArea = ""
323
+        xlApp.Cells.Select()
324
+        xlSheet.Range("B1").Select()
325
+        xlApp.Application.WindowState = xlMinimized
326
+        xlSheet.Cells.Select()
327
+        xlApp.ActiveSheet.Protect(DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="0911274990")
328
+        xlApp.ActiveSheet.EnableSelection = 1
329
+        MsgBox("列印完成。")
330
+    End Sub
331
+    Private Shared Function NewMethod(xlBook As Workbook) As Worksheet
332
+        Return CType(xlBook.Worksheets.Add, Worksheet)
333
+    End Function
334
+    Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
335
+        xlSheet.Cells.Select()
336
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
337
+            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
338
+        End With
339
+
340
+        xlSheet.Columns("A:A").Select : myExcel.Selection.NumberFormatLocal = "m/d;@"
341
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
342
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
343
+        End With
344
+
345
+        xlSheet.Range("B1").Select()
346
+        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
347
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
348
+        End With
349
+
350
+        xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 25
351
+        xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 30
352
+        xlSheet.Columns("D:H").Select : myExcel.Selection.ColumnWidth = 10 : myExcel.Selection.NumberFormatLocal = "#,##0;[紅色]-#,##0"
353
+        xlSheet.Columns("I:I").Select : myExcel.Selection.ColumnWidth = 10 : myExcel.Selection.NumberFormatLocal = "[$-zh-TW]e/m/d;@"
354
+        xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 25
355
+
356
+        xlSheet.Range("A2:I2").Select()
357
+        With myExcel.Selection : .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
358
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
359
+        End With
360
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
361
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
362
+        End With
363
+
364
+        xlSheet.Range("A2:I" & N1 + 2).Select() : myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
365
+        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
366
+        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
367
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
368
+        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
369
+        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
370
+        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
371
+        myExcel.ActiveWindow.DisplayGridlines = False
372
+
373
+        xlSheet.Rows("3:" & N1 + 2).Select : myExcel.Selection.RowHeight = 20
374
+        xlSheet.Rows(N1 + 3 & ":" & N1 + 3).Select : myExcel.Selection.RowHeight = 40
375
+
376
+        xlSheet.Columns("I:I").Select
377
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
378
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
379
+        End With
380
+
381
+        xlSheet.Range("A" & N1 + 2 & ":C" & N1 + 2).Select() : myExcel.Selection.Merge
382
+        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
383
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True
384
+        End With
385
+
386
+        xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 25
387
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 14 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
388
+            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
389
+        End With
390
+    End Sub
391
+    Private Sub BB(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
392
+        Clipboard.SetDataObject(簽名圖_pb.Image)
393
+        xlSheet.Range("B" & N2 + 3).Select()
394
+        myExcel.ActiveSheet.Pictures.Paste.Select
395
+        myExcel.Selection.ShapeRange.Height = 43
396
+        myExcel.Selection.ShapeRange.IncrementTop(3)
397
+    End Sub
398
+    Private Sub CC(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
399
+        xlSheet.Cells.Select()
400
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
401
+            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
402
+        End With
403
+
404
+        xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 8
405
+        xlSheet.Columns("B:C").Select : myExcel.Selection.ColumnWidth = 15
406
+        xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 20
407
+        xlSheet.Columns("E:I").Select : myExcel.Selection.ColumnWidth = 10 : myExcel.Selection.NumberFormatLocal = "#,##0.00;[紅色]-#,##0.00"
408
+        xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 25
409
+        xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 25
410
+        xlSheet.Rows("3:" & N1 + 2).Select : myExcel.Selection.RowHeight = 20
411
+        xlSheet.Rows(N1 + 3 & ":" & N1 + 3).Select : myExcel.Selection.RowHeight = 40
412
+
413
+        xlSheet.Rows("2:2").Select
414
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
415
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
416
+        End With
417
+
418
+        xlSheet.Range("A1").Select()
419
+        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
420
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
421
+        End With
422
+
423
+        xlSheet.Range("B1").Select()
424
+        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
425
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
426
+        End With
427
+
428
+        xlSheet.Rows("1:1").Select
429
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 16 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
430
+            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
431
+        End With
432
+
433
+        xlSheet.Range("A2:I" & N1 + 2).Select() : myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
434
+        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
435
+        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
436
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
437
+        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
438
+        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
439
+        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
440
+
441
+        xlSheet.Range("A" & N1 + 2 & ":D" & N1 + 2).Select() : myExcel.Selection.Merge
442
+        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
443
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True
444
+        End With
445
+
446
+        xlSheet.Columns("E:I").Select : myExcel.Selection.NumberFormatLocal = "#,##0.00;[紅色]-#,##0.00"
447
+        myExcel.ActiveWindow.DisplayGridlines = False
448
+    End Sub
449
+
450
+    '----------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------------------------------------
451
+    Private Sub 重新讀取ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新讀取ToolStripMenuItem.Click
452
+        Set_清單1() : Set_清單2() : 彙總計算()
453
+    End Sub
454
+End Class

+ 503
- 0
YD-ERP-SYS/財務系統管理/營運成本收支單審核.Designer.vb 파일 보기

@@ -0,0 +1,503 @@
1
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2
+Partial Class 營運成本收支單審核
3
+    Inherits System.Windows.Forms.Form
4
+
5
+    'Form 覆寫 Dispose 以清除元件清單。
6
+    <System.Diagnostics.DebuggerNonUserCode()> _
7
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8
+        Try
9
+            If disposing AndAlso components IsNot Nothing Then
10
+                components.Dispose()
11
+            End If
12
+        Finally
13
+            MyBase.Dispose(disposing)
14
+        End Try
15
+    End Sub
16
+
17
+    '為 Windows Form 設計工具的必要項
18
+    Private components As System.ComponentModel.IContainer
19
+
20
+    '注意: 以下為 Windows Form 設計工具所需的程序
21
+    '可以使用 Windows Form 設計工具進行修改。
22
+    '請勿使用程式碼編輯器進行修改。
23
+    <System.Diagnostics.DebuggerStepThrough()> _
24
+    Private Sub InitializeComponent()
25
+        Me.components = New System.ComponentModel.Container()
26
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
28
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
29
+        Me.圖片編碼_tb = New System.Windows.Forms.TextBox()
30
+        Me.驗證碼_tb = New System.Windows.Forms.TextBox()
31
+        Me.Label20 = New System.Windows.Forms.Label()
32
+        Me.Label19 = New System.Windows.Forms.Label()
33
+        Me.簽名清單_dgv = New System.Windows.Forms.DataGridView()
34
+        Me.Label11 = New System.Windows.Forms.Label()
35
+        Me.零用金_tb = New System.Windows.Forms.TextBox()
36
+        Me.Label10 = New System.Windows.Forms.Label()
37
+        Me.現金餘額_tb = New System.Windows.Forms.TextBox()
38
+        Me.Label9 = New System.Windows.Forms.Label()
39
+        Me.支出_tb = New System.Windows.Forms.TextBox()
40
+        Me.Label6 = New System.Windows.Forms.Label()
41
+        Me.非當天日期_ch = New System.Windows.Forms.CheckBox()
42
+        Me.Label2 = New System.Windows.Forms.Label()
43
+        Me.審核日期_dtp = New System.Windows.Forms.DateTimePicker()
44
+        Me.支票_tb = New System.Windows.Forms.TextBox()
45
+        Me.單據作廢ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
46
+        Me.簽名圖_pb = New System.Windows.Forms.PictureBox()
47
+        Me.現金_tb = New System.Windows.Forms.TextBox()
48
+        Me.Label8 = New System.Windows.Forms.Label()
49
+        Me.Label3 = New System.Windows.Forms.Label()
50
+        Me.申請人_tb = New System.Windows.Forms.TextBox()
51
+        Me.營運成本收支單號_tb = New System.Windows.Forms.TextBox()
52
+        Me.Label1 = New System.Windows.Forms.Label()
53
+        Me.單據作廢_bt = New System.Windows.Forms.Button()
54
+        Me.審核通過_bt = New System.Windows.Forms.Button()
55
+        Me.明細_dgv = New System.Windows.Forms.DataGridView()
56
+        Me.作廢的營運成本收支單_rb = New System.Windows.Forms.RadioButton()
57
+        Me.未核准的營運成本收支單_rb = New System.Windows.Forms.RadioButton()
58
+        Me.彙總_dgv = New System.Windows.Forms.DataGridView()
59
+        Me.重新讀取ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
60
+        Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
61
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
62
+        Me.審核通過ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
63
+        CType(Me.簽名清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
64
+        CType(Me.簽名圖_pb, System.ComponentModel.ISupportInitialize).BeginInit()
65
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
66
+        CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
67
+        Me.ContextMenuStrip1.SuspendLayout()
68
+        Me.SuspendLayout()
69
+        '
70
+        '圖片編碼_tb
71
+        '
72
+        Me.圖片編碼_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
73
+        Me.圖片編碼_tb.ForeColor = System.Drawing.Color.Blue
74
+        Me.圖片編碼_tb.Location = New System.Drawing.Point(258, 506)
75
+        Me.圖片編碼_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
76
+        Me.圖片編碼_tb.Name = "圖片編碼_tb"
77
+        Me.圖片編碼_tb.Size = New System.Drawing.Size(115, 23)
78
+        Me.圖片編碼_tb.TabIndex = 993
79
+        Me.圖片編碼_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
80
+        '
81
+        '驗證碼_tb
82
+        '
83
+        Me.驗證碼_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
84
+        Me.驗證碼_tb.ForeColor = System.Drawing.Color.Blue
85
+        Me.驗證碼_tb.Location = New System.Drawing.Point(54, 506)
86
+        Me.驗證碼_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
87
+        Me.驗證碼_tb.Name = "驗證碼_tb"
88
+        Me.驗證碼_tb.Size = New System.Drawing.Size(139, 23)
89
+        Me.驗證碼_tb.TabIndex = 992
90
+        Me.驗證碼_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
91
+        '
92
+        'Label20
93
+        '
94
+        Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
95
+        Me.Label20.AutoSize = True
96
+        Me.Label20.ForeColor = System.Drawing.Color.Blue
97
+        Me.Label20.Location = New System.Drawing.Point(195, 510)
98
+        Me.Label20.Name = "Label20"
99
+        Me.Label20.Size = New System.Drawing.Size(56, 16)
100
+        Me.Label20.TabIndex = 991
101
+        Me.Label20.Text = "圖片編碼"
102
+        '
103
+        'Label19
104
+        '
105
+        Me.Label19.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
106
+        Me.Label19.AutoSize = True
107
+        Me.Label19.ForeColor = System.Drawing.Color.Blue
108
+        Me.Label19.Location = New System.Drawing.Point(5, 510)
109
+        Me.Label19.Name = "Label19"
110
+        Me.Label19.Size = New System.Drawing.Size(44, 16)
111
+        Me.Label19.TabIndex = 990
112
+        Me.Label19.Text = "驗證碼"
113
+        '
114
+        '簽名清單_dgv
115
+        '
116
+        Me.簽名清單_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
117
+        Me.簽名清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
118
+        Me.簽名清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
119
+        Me.簽名清單_dgv.Location = New System.Drawing.Point(6, 535)
120
+        Me.簽名清單_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
121
+        Me.簽名清單_dgv.Name = "簽名清單_dgv"
122
+        Me.簽名清單_dgv.RowHeadersWidth = 5
123
+        Me.簽名清單_dgv.RowTemplate.Height = 24
124
+        Me.簽名清單_dgv.Size = New System.Drawing.Size(210, 63)
125
+        Me.簽名清單_dgv.TabIndex = 988
126
+        '
127
+        'Label11
128
+        '
129
+        Me.Label11.AutoSize = True
130
+        Me.Label11.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
131
+        Me.Label11.Location = New System.Drawing.Point(568, 34)
132
+        Me.Label11.Name = "Label11"
133
+        Me.Label11.Size = New System.Drawing.Size(32, 16)
134
+        Me.Label11.TabIndex = 986
135
+        Me.Label11.Text = "支票"
136
+        '
137
+        '零用金_tb
138
+        '
139
+        Me.零用金_tb.Location = New System.Drawing.Point(434, 30)
140
+        Me.零用金_tb.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
141
+        Me.零用金_tb.Name = "零用金_tb"
142
+        Me.零用金_tb.Size = New System.Drawing.Size(131, 23)
143
+        Me.零用金_tb.TabIndex = 985
144
+        Me.零用金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
145
+        '
146
+        'Label10
147
+        '
148
+        Me.Label10.AutoSize = True
149
+        Me.Label10.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
150
+        Me.Label10.Location = New System.Drawing.Point(380, 34)
151
+        Me.Label10.Name = "Label10"
152
+        Me.Label10.Size = New System.Drawing.Size(44, 16)
153
+        Me.Label10.TabIndex = 984
154
+        Me.Label10.Text = "零用金"
155
+        '
156
+        '現金餘額_tb
157
+        '
158
+        Me.現金餘額_tb.Location = New System.Drawing.Point(1152, 29)
159
+        Me.現金餘額_tb.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
160
+        Me.現金餘額_tb.Name = "現金餘額_tb"
161
+        Me.現金餘額_tb.Size = New System.Drawing.Size(131, 23)
162
+        Me.現金餘額_tb.TabIndex = 983
163
+        Me.現金餘額_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
164
+        '
165
+        'Label9
166
+        '
167
+        Me.Label9.AutoSize = True
168
+        Me.Label9.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
169
+        Me.Label9.Location = New System.Drawing.Point(1090, 34)
170
+        Me.Label9.Name = "Label9"
171
+        Me.Label9.Size = New System.Drawing.Size(56, 16)
172
+        Me.Label9.TabIndex = 982
173
+        Me.Label9.Text = "現金餘額"
174
+        '
175
+        '支出_tb
176
+        '
177
+        Me.支出_tb.Location = New System.Drawing.Point(953, 30)
178
+        Me.支出_tb.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
179
+        Me.支出_tb.Name = "支出_tb"
180
+        Me.支出_tb.Size = New System.Drawing.Size(131, 23)
181
+        Me.支出_tb.TabIndex = 981
182
+        Me.支出_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
183
+        '
184
+        'Label6
185
+        '
186
+        Me.Label6.AutoSize = True
187
+        Me.Label6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
188
+        Me.Label6.Location = New System.Drawing.Point(915, 33)
189
+        Me.Label6.Name = "Label6"
190
+        Me.Label6.Size = New System.Drawing.Size(32, 16)
191
+        Me.Label6.TabIndex = 980
192
+        Me.Label6.Text = "支出"
193
+        '
194
+        '非當天日期_ch
195
+        '
196
+        Me.非當天日期_ch.AutoSize = True
197
+        Me.非當天日期_ch.Checked = True
198
+        Me.非當天日期_ch.CheckState = System.Windows.Forms.CheckState.Checked
199
+        Me.非當天日期_ch.Location = New System.Drawing.Point(958, 7)
200
+        Me.非當天日期_ch.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
201
+        Me.非當天日期_ch.Name = "非當天日期_ch"
202
+        Me.非當天日期_ch.Size = New System.Drawing.Size(39, 20)
203
+        Me.非當天日期_ch.TabIndex = 979
204
+        Me.非當天日期_ch.Text = "補"
205
+        Me.非當天日期_ch.UseVisualStyleBackColor = True
206
+        '
207
+        'Label2
208
+        '
209
+        Me.Label2.AutoSize = True
210
+        Me.Label2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
211
+        Me.Label2.ForeColor = System.Drawing.Color.Blue
212
+        Me.Label2.Location = New System.Drawing.Point(800, 6)
213
+        Me.Label2.Name = "Label2"
214
+        Me.Label2.Size = New System.Drawing.Size(32, 16)
215
+        Me.Label2.TabIndex = 978
216
+        Me.Label2.Text = "日期"
217
+        '
218
+        '審核日期_dtp
219
+        '
220
+        Me.審核日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
221
+        Me.審核日期_dtp.Location = New System.Drawing.Point(838, 3)
222
+        Me.審核日期_dtp.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
223
+        Me.審核日期_dtp.Name = "審核日期_dtp"
224
+        Me.審核日期_dtp.Size = New System.Drawing.Size(112, 23)
225
+        Me.審核日期_dtp.TabIndex = 977
226
+        '
227
+        '支票_tb
228
+        '
229
+        Me.支票_tb.Location = New System.Drawing.Point(605, 30)
230
+        Me.支票_tb.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
231
+        Me.支票_tb.Name = "支票_tb"
232
+        Me.支票_tb.Size = New System.Drawing.Size(131, 23)
233
+        Me.支票_tb.TabIndex = 987
234
+        Me.支票_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
235
+        '
236
+        '單據作廢ToolStripMenuItem
237
+        '
238
+        Me.單據作廢ToolStripMenuItem.ForeColor = System.Drawing.Color.Red
239
+        Me.單據作廢ToolStripMenuItem.Name = "單據作廢ToolStripMenuItem"
240
+        Me.單據作廢ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
241
+        Me.單據作廢ToolStripMenuItem.Text = "單據作廢"
242
+        '
243
+        '簽名圖_pb
244
+        '
245
+        Me.簽名圖_pb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
246
+        Me.簽名圖_pb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
247
+        Me.簽名圖_pb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
248
+        Me.簽名圖_pb.Location = New System.Drawing.Point(223, 535)
249
+        Me.簽名圖_pb.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
250
+        Me.簽名圖_pb.Name = "簽名圖_pb"
251
+        Me.簽名圖_pb.Size = New System.Drawing.Size(150, 61)
252
+        Me.簽名圖_pb.TabIndex = 989
253
+        Me.簽名圖_pb.TabStop = False
254
+        '
255
+        '現金_tb
256
+        '
257
+        Me.現金_tb.Location = New System.Drawing.Point(779, 30)
258
+        Me.現金_tb.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
259
+        Me.現金_tb.Name = "現金_tb"
260
+        Me.現金_tb.Size = New System.Drawing.Size(131, 23)
261
+        Me.現金_tb.TabIndex = 976
262
+        Me.現金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
263
+        '
264
+        'Label8
265
+        '
266
+        Me.Label8.AutoSize = True
267
+        Me.Label8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
268
+        Me.Label8.Location = New System.Drawing.Point(742, 34)
269
+        Me.Label8.Name = "Label8"
270
+        Me.Label8.Size = New System.Drawing.Size(32, 16)
271
+        Me.Label8.TabIndex = 975
272
+        Me.Label8.Text = "現金"
273
+        '
274
+        'Label3
275
+        '
276
+        Me.Label3.AutoSize = True
277
+        Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
278
+        Me.Label3.Location = New System.Drawing.Point(637, 6)
279
+        Me.Label3.Name = "Label3"
280
+        Me.Label3.Size = New System.Drawing.Size(44, 16)
281
+        Me.Label3.TabIndex = 974
282
+        Me.Label3.Text = "申請人"
283
+        '
284
+        '申請人_tb
285
+        '
286
+        Me.申請人_tb.Location = New System.Drawing.Point(687, 3)
287
+        Me.申請人_tb.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
288
+        Me.申請人_tb.Name = "申請人_tb"
289
+        Me.申請人_tb.Size = New System.Drawing.Size(107, 23)
290
+        Me.申請人_tb.TabIndex = 973
291
+        '
292
+        '營運成本收支單號_tb
293
+        '
294
+        Me.營運成本收支單號_tb.Location = New System.Drawing.Point(489, 3)
295
+        Me.營運成本收支單號_tb.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
296
+        Me.營運成本收支單號_tb.Name = "營運成本收支單號_tb"
297
+        Me.營運成本收支單號_tb.Size = New System.Drawing.Size(142, 23)
298
+        Me.營運成本收支單號_tb.TabIndex = 971
299
+        '
300
+        'Label1
301
+        '
302
+        Me.Label1.AutoSize = True
303
+        Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
304
+        Me.Label1.Location = New System.Drawing.Point(379, 6)
305
+        Me.Label1.Name = "Label1"
306
+        Me.Label1.Size = New System.Drawing.Size(104, 16)
307
+        Me.Label1.TabIndex = 972
308
+        Me.Label1.Text = "營運成本收支單號"
309
+        '
310
+        '單據作廢_bt
311
+        '
312
+        Me.單據作廢_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
313
+        Me.單據作廢_bt.ForeColor = System.Drawing.Color.Red
314
+        Me.單據作廢_bt.Location = New System.Drawing.Point(1384, 6)
315
+        Me.單據作廢_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
316
+        Me.單據作廢_bt.Name = "單據作廢_bt"
317
+        Me.單據作廢_bt.Size = New System.Drawing.Size(80, 46)
318
+        Me.單據作廢_bt.TabIndex = 970
319
+        Me.單據作廢_bt.Text = "單據作廢"
320
+        Me.單據作廢_bt.UseVisualStyleBackColor = True
321
+        '
322
+        '審核通過_bt
323
+        '
324
+        Me.審核通過_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
325
+        Me.審核通過_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
326
+        Me.審核通過_bt.Location = New System.Drawing.Point(1298, 6)
327
+        Me.審核通過_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
328
+        Me.審核通過_bt.Name = "審核通過_bt"
329
+        Me.審核通過_bt.Size = New System.Drawing.Size(80, 47)
330
+        Me.審核通過_bt.TabIndex = 969
331
+        Me.審核通過_bt.Text = "審核通過"
332
+        Me.審核通過_bt.UseVisualStyleBackColor = True
333
+        '
334
+        '明細_dgv
335
+        '
336
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
337
+        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
338
+        Me.明細_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
339
+            Or System.Windows.Forms.AnchorStyles.Left) _
340
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
341
+        Me.明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
342
+        Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
343
+        Me.明細_dgv.Location = New System.Drawing.Point(379, 56)
344
+        Me.明細_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
345
+        Me.明細_dgv.Name = "明細_dgv"
346
+        Me.明細_dgv.RowHeadersWidth = 5
347
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
348
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
349
+        Me.明細_dgv.RowTemplate.Height = 24
350
+        Me.明細_dgv.Size = New System.Drawing.Size(1085, 542)
351
+        Me.明細_dgv.TabIndex = 968
352
+        '
353
+        '作廢的營運成本收支單_rb
354
+        '
355
+        Me.作廢的營運成本收支單_rb.AutoSize = True
356
+        Me.作廢的營運成本收支單_rb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
357
+        Me.作廢的營運成本收支單_rb.Location = New System.Drawing.Point(170, 4)
358
+        Me.作廢的營運成本收支單_rb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
359
+        Me.作廢的營運成本收支單_rb.Name = "作廢的營運成本收支單_rb"
360
+        Me.作廢的營運成本收支單_rb.Size = New System.Drawing.Size(146, 20)
361
+        Me.作廢的營運成本收支單_rb.TabIndex = 967
362
+        Me.作廢的營運成本收支單_rb.TabStop = True
363
+        Me.作廢的營運成本收支單_rb.Text = "作廢的營運成本收支單"
364
+        Me.作廢的營運成本收支單_rb.UseVisualStyleBackColor = True
365
+        '
366
+        '未核准的營運成本收支單_rb
367
+        '
368
+        Me.未核准的營運成本收支單_rb.AutoSize = True
369
+        Me.未核准的營運成本收支單_rb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
370
+        Me.未核准的營運成本收支單_rb.Location = New System.Drawing.Point(6, 4)
371
+        Me.未核准的營運成本收支單_rb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
372
+        Me.未核准的營運成本收支單_rb.Name = "未核准的營運成本收支單_rb"
373
+        Me.未核准的營運成本收支單_rb.Size = New System.Drawing.Size(158, 20)
374
+        Me.未核准的營運成本收支單_rb.TabIndex = 966
375
+        Me.未核准的營運成本收支單_rb.TabStop = True
376
+        Me.未核准的營運成本收支單_rb.Text = "未核准的營運成本收支單"
377
+        Me.未核准的營運成本收支單_rb.UseVisualStyleBackColor = True
378
+        '
379
+        '彙總_dgv
380
+        '
381
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
382
+        Me.彙總_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
383
+        Me.彙總_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
384
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
385
+        Me.彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
386
+        Me.彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
387
+        Me.彙總_dgv.Location = New System.Drawing.Point(8, 29)
388
+        Me.彙總_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
389
+        Me.彙總_dgv.Name = "彙總_dgv"
390
+        Me.彙總_dgv.RowHeadersWidth = 5
391
+        Me.彙總_dgv.RowTemplate.Height = 24
392
+        Me.彙總_dgv.Size = New System.Drawing.Size(367, 472)
393
+        Me.彙總_dgv.TabIndex = 965
394
+        '
395
+        '重新讀取ToolStripMenuItem
396
+        '
397
+        Me.重新讀取ToolStripMenuItem.Name = "重新讀取ToolStripMenuItem"
398
+        Me.重新讀取ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
399
+        Me.重新讀取ToolStripMenuItem.Text = "重新讀取"
400
+        '
401
+        'ToolStripSeparator6
402
+        '
403
+        Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
404
+        Me.ToolStripSeparator6.Size = New System.Drawing.Size(119, 6)
405
+        '
406
+        'ContextMenuStrip1
407
+        '
408
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新讀取ToolStripMenuItem, Me.ToolStripSeparator6, Me.審核通過ToolStripMenuItem, Me.單據作廢ToolStripMenuItem})
409
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
410
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(123, 76)
411
+        '
412
+        '審核通過ToolStripMenuItem
413
+        '
414
+        Me.審核通過ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
415
+        Me.審核通過ToolStripMenuItem.Name = "審核通過ToolStripMenuItem"
416
+        Me.審核通過ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
417
+        Me.審核通過ToolStripMenuItem.Text = "審核通過"
418
+        '
419
+        '營運成本收支單審核
420
+        '
421
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
422
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
423
+        Me.ClientSize = New System.Drawing.Size(1471, 603)
424
+        Me.ContextMenuStrip = Me.ContextMenuStrip1
425
+        Me.Controls.Add(Me.圖片編碼_tb)
426
+        Me.Controls.Add(Me.驗證碼_tb)
427
+        Me.Controls.Add(Me.Label20)
428
+        Me.Controls.Add(Me.Label19)
429
+        Me.Controls.Add(Me.簽名清單_dgv)
430
+        Me.Controls.Add(Me.Label11)
431
+        Me.Controls.Add(Me.零用金_tb)
432
+        Me.Controls.Add(Me.Label10)
433
+        Me.Controls.Add(Me.現金餘額_tb)
434
+        Me.Controls.Add(Me.Label9)
435
+        Me.Controls.Add(Me.支出_tb)
436
+        Me.Controls.Add(Me.Label6)
437
+        Me.Controls.Add(Me.非當天日期_ch)
438
+        Me.Controls.Add(Me.Label2)
439
+        Me.Controls.Add(Me.審核日期_dtp)
440
+        Me.Controls.Add(Me.支票_tb)
441
+        Me.Controls.Add(Me.簽名圖_pb)
442
+        Me.Controls.Add(Me.現金_tb)
443
+        Me.Controls.Add(Me.Label8)
444
+        Me.Controls.Add(Me.Label3)
445
+        Me.Controls.Add(Me.申請人_tb)
446
+        Me.Controls.Add(Me.營運成本收支單號_tb)
447
+        Me.Controls.Add(Me.Label1)
448
+        Me.Controls.Add(Me.單據作廢_bt)
449
+        Me.Controls.Add(Me.審核通過_bt)
450
+        Me.Controls.Add(Me.明細_dgv)
451
+        Me.Controls.Add(Me.作廢的營運成本收支單_rb)
452
+        Me.Controls.Add(Me.未核准的營運成本收支單_rb)
453
+        Me.Controls.Add(Me.彙總_dgv)
454
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
455
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
456
+        Me.Name = "營運成本收支單審核"
457
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
458
+        Me.Text = "營運成本收支單審核"
459
+        CType(Me.簽名清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
460
+        CType(Me.簽名圖_pb, System.ComponentModel.ISupportInitialize).EndInit()
461
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
462
+        CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).EndInit()
463
+        Me.ContextMenuStrip1.ResumeLayout(False)
464
+        Me.ResumeLayout(False)
465
+        Me.PerformLayout()
466
+
467
+    End Sub
468
+
469
+    Friend WithEvents 圖片編碼_tb As TextBox
470
+    Friend WithEvents 驗證碼_tb As TextBox
471
+    Friend WithEvents Label20 As Label
472
+    Friend WithEvents Label19 As Label
473
+    Friend WithEvents 簽名清單_dgv As DataGridView
474
+    Friend WithEvents Label11 As Label
475
+    Friend WithEvents 零用金_tb As TextBox
476
+    Friend WithEvents Label10 As Label
477
+    Friend WithEvents 現金餘額_tb As TextBox
478
+    Friend WithEvents Label9 As Label
479
+    Friend WithEvents 支出_tb As TextBox
480
+    Friend WithEvents Label6 As Label
481
+    Friend WithEvents 非當天日期_ch As CheckBox
482
+    Friend WithEvents Label2 As Label
483
+    Friend WithEvents 審核日期_dtp As DateTimePicker
484
+    Friend WithEvents 支票_tb As TextBox
485
+    Friend WithEvents 單據作廢ToolStripMenuItem As ToolStripMenuItem
486
+    Friend WithEvents 簽名圖_pb As PictureBox
487
+    Friend WithEvents 現金_tb As TextBox
488
+    Friend WithEvents Label8 As Label
489
+    Friend WithEvents Label3 As Label
490
+    Friend WithEvents 申請人_tb As TextBox
491
+    Friend WithEvents 營運成本收支單號_tb As TextBox
492
+    Friend WithEvents Label1 As Label
493
+    Friend WithEvents 單據作廢_bt As Button
494
+    Friend WithEvents 審核通過_bt As Button
495
+    Friend WithEvents 明細_dgv As DataGridView
496
+    Friend WithEvents 作廢的營運成本收支單_rb As RadioButton
497
+    Friend WithEvents 未核准的營運成本收支單_rb As RadioButton
498
+    Friend WithEvents 彙總_dgv As DataGridView
499
+    Friend WithEvents 重新讀取ToolStripMenuItem As ToolStripMenuItem
500
+    Friend WithEvents ToolStripSeparator6 As ToolStripSeparator
501
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
502
+    Friend WithEvents 審核通過ToolStripMenuItem As ToolStripMenuItem
503
+End Class

+ 123
- 0
YD-ERP-SYS/財務系統管理/營運成本收支單審核.resx 파일 보기

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

+ 231
- 0
YD-ERP-SYS/財務系統管理/營運成本收支單審核.vb 파일 보기

@@ -0,0 +1,231 @@
1
+Option Strict Off
2
+Imports System.Data.SqlClient
3
+Imports System.IO
4
+Public Class 營運成本收支單審核
5
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
6
+    'Dim dr As SqlDataReader
7
+    Private ReadOnly QQW(11) As String
8
+    Dim DTP As String : Dim WWEE As String : Private II As Integer
9
+    Private Sub Set_清單1()
10
+        彙總_dgv.DataSource = Nothing : ds1.Clear()
11
+        彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
12
+        彙總_dgv.ColumnHeadersHeight = 25
13
+        彙總_dgv.AllowUserToAddRows = False
14
+        'If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
15
+        If 未核准的營運成本收支單_rb.Checked = True And 作廢的營運成本收支單_rb.Checked = False Then
16
+            SQL_營運成本收支單審核_審核人1()
17
+        ElseIf 未核准的營運成本收支單_rb.Checked = False And 作廢的營運成本收支單_rb.Checked = True Then
18
+            SQL_營運成本收支單審核_審核人2()
19
+        End If
20
+        SQL_營運成本收支單審核_查詢收支單審核()
21
+        da.Fill(ds1) : 彙總_dgv.DataSource = ds1.Tables(0) : conn.Close()
22
+        彙總_dgv.Columns(0).FillWeight = 160 : 彙總_dgv.Columns(1).FillWeight = 100 : 彙總_dgv.Columns(2).FillWeight = 100 : 彙總_dgv.Columns(3).Visible = False
23
+    End Sub
24
+    Private Sub Set_費用清單()
25
+        明細_dgv.DataSource = Nothing : ds.Clear()
26
+        明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
27
+        明細_dgv.ColumnHeadersHeight = 25
28
+        明細_dgv.AllowUserToAddRows = False
29
+        明細_dgv.RowTemplate.Height = 35
30
+        SQL_營運成本收支單審核_查詢費用清單() : da.SelectCommand = cmd : da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()
31
+
32
+        明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 80 : 明細_dgv.Columns(2).FillWeight = 300 : 明細_dgv.Columns(3).FillWeight = 500
33
+        明細_dgv.Columns(4).FillWeight = 140 : 明細_dgv.Columns(5).FillWeight = 140 : 明細_dgv.Columns(6).FillWeight = 140 : 明細_dgv.Columns(7).FillWeight = 140
34
+        明細_dgv.Columns(8).FillWeight = 140 : 明細_dgv.Columns(9).FillWeight = 140 : 明細_dgv.Columns(10).FillWeight = 140 : 明細_dgv.Columns(11).Visible = False
35
+        明細_dgv.Columns(12).Visible = False
36
+
37
+        明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(2).ReadOnly = True : 明細_dgv.Columns(9).ReadOnly = True : 明細_dgv.Columns(10).ReadOnly = True
38
+
39
+        明細_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00"
40
+        明細_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(8).DefaultCellStyle.Format = "#,##0.00"
41
+        明細_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
42
+        明細_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
43
+        明細_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
44
+        明細_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
45
+        明細_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
46
+        明細_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
47
+        明細_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
48
+        明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
49
+
50
+        現金_tb.Text = "0" : 支出_tb.Text = "0" : 現金餘額_tb.Text = "0" : 零用金_tb.Text = "0" : 支票_tb.Text = "0"
51
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
52
+            現金_tb.Text = Val(現金_tb.Text) + 明細_dgv.Rows(i).Cells("現金").Value : 支出_tb.Text = Val(支出_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value
53
+            零用金_tb.Text = Val(零用金_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value : 支票_tb.Text = Val(支票_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value
54
+        Next i
55
+        現金餘額_tb.Text = Val(零用金_tb.Text) + Val(現金_tb.Text) - Val(支出_tb.Text)
56
+        If Val(現金餘額_tb.Text) > 0 Then : 現金餘額_tb.ForeColor = Color.Blue : Else : 現金餘額_tb.ForeColor = Color.Red : End If
57
+        現金_tb.Text = Format(Val(現金_tb.Text), "#,##0.00") : 支出_tb.Text = Format(Val(支出_tb.Text), "#,##0.00") : 現金餘額_tb.Text = Format(Val(現金餘額_tb.Text), "#,##0.00")
58
+        零用金_tb.Text = Format(Val(零用金_tb.Text), "#,##0.00") : 支票_tb.Text = Format(Val(支票_tb.Text), "#,##0.00")
59
+    End Sub
60
+    Private Sub Set_清單()
61
+        簽名清單_dgv.DataSource = Nothing : ds2.Clear()
62
+        簽名清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
63
+        簽名清單_dgv.ColumnHeadersHeight = 25
64
+        簽名清單_dgv.AllowUserToAddRows = False
65
+        SQL_營運成本收支單審核_查詢圖片流水號() : da.Fill(ds2) : 簽名清單_dgv.DataSource = ds2.Tables(0) : conn.Close()
66
+
67
+        簽名清單_dgv.Columns(0).FillWeight = 173 : 簽名清單_dgv.Columns(1).Visible = False
68
+        If 簽名清單_dgv.Rows.Count = 0 Then : Else
69
+            圖片編碼_tb.Text = 簽名清單_dgv(0, 0).Value.ToString
70
+            SQL_營運成本收支單審核_查詢簽名檔圖片()
71
+            While dr.Read() = True
72
+                Dim unused As Byte() = New Byte(-1) {}
73
+                Dim bytes As Byte() = DirectCast(dr.Item("簽名檔圖片"), Byte())
74
+                Dim oStream As New MemoryStream(bytes)
75
+                簽名圖_pb.Image = Bitmap.FromStream(oStream)
76
+            End While
77
+            conn.Close()
78
+            簽名圖_pb.SizeMode = 4
79
+            For QAZ = 0 To 999
80
+                QQW(0) = Strings.Right(簽名清單_dgv(0, 0).Value.ToString, 2) : QQW(1) = Strings.Right(Year(Today), 2) : QQW(2) = Strings.Left(Year(Today), 2) : QQW(3) = Month(Today) + 9
81
+                QQW(4) = Strings.Right(QQW(0), 1) : QQW(5) = Strings.Left(QQW(0), 1) : QQW(6) = Strings.Right(QQW(1), 1) : QQW(7) = Strings.Left(QQW(1), 1) : QQW(8) = Strings.Right(QQW(2), 1)
82
+                QQW(9) = Strings.Left(QQW(2), 1) : QQW(10) = Strings.Right(QQW(3), 1) : QQW(11) = Strings.Left(QQW(3), 1)
83
+                For RT = 4 To 11
84
+                    Delay(3)
85
+                    Dim ran = New Random(DateTime.Now.Millisecond) : Dim NUM1 As Integer = ran.Next(1, 4096)
86
+                    For I = 0 To 4096 : If NUM1 > 9 Then : NUM1 -= 9 : ElseIf NUM1 < 9 Then : I = 4096 : End If : Next
87
+                    If NUM1 = 1 Then : II = RT : 轉換() : ElseIf NUM1 = 2 Then : II = RT : 轉換() : ElseIf NUM1 = 3 Then : ElseIf NUM1 = 4 Then : II = RT : 轉換() : ElseIf NUM1 = 5 Then
88
+                    ElseIf NUM1 = 6 Then : II = RT : 轉換() : ElseIf NUM1 = 7 Then : ElseIf NUM1 = 8 Then : II = RT : 轉換() : ElseIf NUM1 = 9 Then : II = RT : 轉換() : End If
89
+                Next
90
+
91
+                Dim ran1 = New Random(DateTime.Now.Millisecond) : Dim NUM2 As Integer = ran1.Next(1, 4096)
92
+                For I = 0 To 4096 : If NUM2 > 99 Then : NUM2 -= 49 : ElseIf NUM2 < 99 Then : I = 4096 : End If : Next
93
+
94
+                驗證碼_tb.Text = QQW(11) & "2" & QQW(9) & "7" & QQW(7) & "0" & QQW(5) & QQW(4) & "1" & QQW(6) & "3" & QQW(8) & "9" & QQW(10) & NUM2
95
+
96
+                SQL_營運成本收支單審核_查詢簽名編碼()
97
+                If dr.Read() = True Then : Else : QAZ = 999 : End If : conn.Close()
98
+            Next
99
+        End If
100
+    End Sub
101
+    Private Sub 轉換()
102
+        If QQW(II) = "1" Then : QQW(II) = "A" : ElseIf QQW(II) = "2" Then : QQW(II) = "B" : ElseIf QQW(II) = "3" Then : QQW(II) = "C" : ElseIf QQW(II) = "4" Then : QQW(II) = "D"
103
+        ElseIf QQW(II) = "5" Then : QQW(II) = "E" : ElseIf QQW(II) = "6" Then : QQW(II) = "F" : ElseIf QQW(II) = "7" Then : QQW(II) = "G" : ElseIf QQW(II) = "8" Then : QQW(II) = "H"
104
+        ElseIf QQW(II) = "9" Then : QQW(II) = "I" : ElseIf QQW(II) = "0" Then : QQW(II) = "J"
105
+        End If
106
+    End Sub
107
+    Public Sub Delay(ByRef Interval As Double)  'Interval单位为毫秒
108
+        Dim time As DateTime = DateTime.Now : Dim Span As Double = Interval * 1234 : While ((DateTime.Now.Ticks - time.Ticks) < Span) : Application.DoEvents() : End While
109
+    End Sub
110
+    Private Sub 營運成本收支單審核_Load(sender As Object, e As EventArgs) Handles MyBase.Load
111
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
112
+        未核准的營運成本收支單_rb.Checked = True : 彙總_dgv.Visible = True
113
+        Set_清單1() : Set_清單()
114
+    End Sub
115
+    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 彙總_dgv.CellClick
116
+        If e.RowIndex = -1 Then : Else
117
+            營運成本收支單號_tb.Text = 彙總_dgv(0, e.RowIndex).Value.ToString : 審核日期_dtp.Value = 彙總_dgv(1, e.RowIndex).Value.ToString : Set_費用清單()
118
+            申請人_tb.Text = 彙總_dgv(3, e.RowIndex).Value.ToString
119
+        End If
120
+    End Sub
121
+    Private Sub DataGridView3_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 簽名清單_dgv.CellClick
122
+        If e.RowIndex = -1 Then : Else
123
+            圖片編碼_tb.Text = 簽名清單_dgv(0, e.RowIndex).Value.ToString
124
+            SQL_營運成本收支單審核_查詢簽名檔圖片()
125
+            While dr.Read() = True
126
+                Dim unused As Byte() = New Byte(-1) {}
127
+                Dim bytes As Byte() = DirectCast(dr.Item("簽名檔圖片"), Byte())
128
+                Dim oStream As New MemoryStream(bytes)
129
+                簽名圖_pb.Image = Bitmap.FromStream(oStream)
130
+            End While
131
+            conn.Close()
132
+            簽名圖_pb.SizeMode = 4
133
+            For QAZ = 0 To 999
134
+                QQW(0) = Strings.Right(簽名清單_dgv(0, e.RowIndex).Value.ToString, 2) : QQW(1) = Strings.Right(Year(Today), 2) : QQW(2) = Strings.Left(Year(Today), 2) : QQW(3) = Month(Today) + 9
135
+                QQW(4) = Strings.Right(QQW(0), 1) : QQW(5) = Strings.Left(QQW(0), 1) : QQW(6) = Strings.Right(QQW(1), 1) : QQW(7) = Strings.Left(QQW(1), 1) : QQW(8) = Strings.Right(QQW(2), 1)
136
+                QQW(9) = Strings.Left(QQW(2), 1) : QQW(10) = Strings.Right(QQW(3), 1) : QQW(11) = Strings.Left(QQW(3), 1)
137
+                For RT = 4 To 11
138
+                    Delay(3)
139
+                    Dim ran = New Random(DateTime.Now.Millisecond) : Dim NUM1 As Integer = ran.Next(1, 4096)
140
+                    For I = 0 To 4096 : If NUM1 > 9 Then : NUM1 -= 9 : ElseIf NUM1 < 9 Then : I = 4096 : End If : Next
141
+                    If NUM1 = 1 Then : II = RT : 轉換() : ElseIf NUM1 = 2 Then : II = RT : 轉換() : ElseIf NUM1 = 3 Then : ElseIf NUM1 = 4 Then : II = RT : 轉換() : ElseIf NUM1 = 5 Then
142
+                    ElseIf NUM1 = 6 Then : II = RT : 轉換() : ElseIf NUM1 = 7 Then : ElseIf NUM1 = 8 Then : II = RT : 轉換() : ElseIf NUM1 = 9 Then : II = RT : 轉換() : End If
143
+                Next
144
+
145
+                Dim ran1 = New Random(DateTime.Now.Millisecond) : Dim NUM2 As Integer = ran1.Next(1, 4096)
146
+                For I = 0 To 4096 : If NUM2 > 99 Then : NUM2 -= 49 : ElseIf NUM2 < 99 Then : I = 4096 : End If : Next
147
+
148
+                驗證碼_tb.Text = QQW(11) & "2" & QQW(9) & "7" & QQW(7) & "0" & QQW(5) & QQW(4) & "1" & QQW(6) & "3" & QQW(8) & "9" & QQW(10) & NUM2
149
+
150
+                SQL_營運成本收支單審核_查詢簽名編碼() : conn.Close()
151
+            Next
152
+        End If
153
+    End Sub
154
+    Private Sub Set_切換格式()
155
+        明細_dgv.DataSource = Nothing : ds.Clear() : 營運成本收支單號_tb.Text = "" : 申請人_tb.Text = "" : 現金_tb.Text = "" : 支出_tb.Text = "" : 現金餘額_tb.Text = ""
156
+        零用金_tb.Text = "" : 支票_tb.Text = "" : Set_清單1()
157
+    End Sub
158
+    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles 未核准的營運成本收支單_rb.Click
159
+        未核准的營運成本收支單_rb.Checked = True : 作廢的營運成本收支單_rb.Checked = False
160
+        明細_dgv.DataSource = Nothing : ds.Clear() : 營運成本收支單號_tb.Text = "" : 申請人_tb.Text = "" : 現金_tb.Text = "" : 支出_tb.Text = "" : 現金餘額_tb.Text = ""
161
+        審核通過_bt.Enabled = True : 單據作廢_bt.Enabled = True : 審核通過ToolStripMenuItem.Enabled = True : 單據作廢ToolStripMenuItem.Enabled = True : Set_切換格式()
162
+    End Sub
163
+    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles 作廢的營運成本收支單_rb.Click
164
+        未核准的營運成本收支單_rb.Checked = False : 作廢的營運成本收支單_rb.Checked = True
165
+        明細_dgv.DataSource = Nothing : ds.Clear() : 營運成本收支單號_tb.Text = "" : 申請人_tb.Text = "" : 現金_tb.Text = "" : 支出_tb.Text = "" : 現金餘額_tb.Text = ""
166
+        審核通過_bt.Enabled = False : 單據作廢_bt.Enabled = False : 審核通過ToolStripMenuItem.Enabled = False : 單據作廢ToolStripMenuItem.Enabled = False : Set_切換格式()
167
+    End Sub
168
+    Private Sub Set_日期格式轉換()
169
+        DTP = Format(Today(), "yyyy/MM/dd")
170
+    End Sub
171
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 審核通過_bt.Click
172
+        If 營運成本收支單號_tb.Text = "" Then
173
+            MsgBox("請選擇需要審核的單據。")
174
+        Else
175
+            If 非當天日期_ch.Checked = False Then
176
+                Set_日期格式轉換()
177
+            Else
178
+                DTP = Format(審核日期_dtp.Value, "yyyy/MM/dd")
179
+            End If
180
+            conn.Close()
181
+            SQL_營運成本收支單審核_修改公帳控制表()
182
+            SQL_營運成本收支單審核_修改公帳流水帳() : conn.Close()
183
+            For i As Integer = 0 To 明細_dgv.Rows.Count - 1
184
+                PA1 = 明細_dgv.Rows(i).Cells("項次").Value
185
+                If 明細_dgv.Rows(i).Cells("零用金").Value <> 0 Then
186
+                    SQL_營運成本收支單審核_修改公帳流水帳備用金() : conn.Close()
187
+                ElseIf 明細_dgv.Rows(i).Cells("現金").Value <> 0 Then
188
+                    SQL_營運成本收支單審核_修改公帳流水帳現金() : conn.Close()
189
+                ElseIf 明細_dgv.Rows(i).Cells("支出").Value <> 0 Then
190
+                    SQL_營運成本收支單審核_修改公帳流水帳支出() : conn.Close()
191
+                End If
192
+            Next
193
+            MsgBox("審核完畢。")
194
+            營運成本收支單號_tb.Text = "" : 申請人_tb.Text = ""
195
+            明細_dgv.DataSource = Nothing : ds.Clear()
196
+            Set_清單1() : Set_清單()
197
+        End If
198
+    End Sub
199
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 單據作廢_bt.Click
200
+        If 營運成本收支單號_tb.Text = "" Then
201
+            MsgBox("請選擇需要審核的單據。")
202
+        Else
203
+            PA = InputBox("請輸入作廢原因。")
204
+            If PA = "" Then
205
+                MsgBox("請輸入作廢原因,不可空白。")
206
+            Else
207
+                If 非當天日期_ch.Checked = False Then
208
+                    Set_日期格式轉換()
209
+                Else
210
+                    DTP = Format(審核日期_dtp.Value, "yyyy/MM/dd")
211
+                End If
212
+                conn.Close()
213
+                SQL_營運成本收支單審核_審核人3() : conn.Close()
214
+                MsgBox("審核完畢。") : PA = ""
215
+                營運成本收支單號_tb.Text = "" : 申請人_tb.Text = ""
216
+                明細_dgv.DataSource = Nothing : ds.Clear()
217
+                Set_清單1()
218
+            End If
219
+        End If
220
+    End Sub
221
+    '----------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------------------------------------
222
+    Private Sub 重新讀取ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新讀取ToolStripMenuItem.Click
223
+        Set_清單1()
224
+    End Sub
225
+    Private Sub 審核通過ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 審核通過ToolStripMenuItem.Click
226
+        Me.審核通過_bt.PerformClick()
227
+    End Sub
228
+    Private Sub 單據作廢ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 單據作廢ToolStripMenuItem.Click
229
+        Me.單據作廢_bt.PerformClick()
230
+    End Sub
231
+End Class

+ 665
- 0
YD-ERP-SYS/財務系統管理/營運成本收支單申請.Designer.vb 파일 보기

@@ -0,0 +1,665 @@
1
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2
+Partial Class 營運成本收支單申請
3
+    Inherits System.Windows.Forms.Form
4
+
5
+    'Form 覆寫 Dispose 以清除元件清單。
6
+    <System.Diagnostics.DebuggerNonUserCode()> _
7
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8
+        Try
9
+            If disposing AndAlso components IsNot Nothing Then
10
+                components.Dispose()
11
+            End If
12
+        Finally
13
+            MyBase.Dispose(disposing)
14
+        End Try
15
+    End Sub
16
+
17
+    '為 Windows Form 設計工具的必要項
18
+    Private components As System.ComponentModel.IContainer
19
+
20
+    '注意: 以下為 Windows Form 設計工具所需的程序
21
+    '可以使用 Windows Form 設計工具進行修改。
22
+    '請勿使用程式碼編輯器進行修改。
23
+    <System.Diagnostics.DebuggerStepThrough()> _
24
+    Private Sub InitializeComponent()
25
+        Me.components = New System.ComponentModel.Container()
26
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
28
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
29
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
30
+        Me.美金匯率_tb = New System.Windows.Forms.TextBox()
31
+        Me.人民幣匯率_tb = New System.Windows.Forms.TextBox()
32
+        Me.幣別_cb = New System.Windows.Forms.ComboBox()
33
+        Me.ComboBox6 = New System.Windows.Forms.ComboBox()
34
+        Me.關鍵字查詢會計科目_tb = New System.Windows.Forms.TextBox()
35
+        Me.ComboBox4 = New System.Windows.Forms.ComboBox()
36
+        Me.ComboBox3 = New System.Windows.Forms.ComboBox()
37
+        Me.ComboBox2 = New System.Windows.Forms.ComboBox()
38
+        Me.ComboBox5 = New System.Windows.Forms.ComboBox()
39
+        Me.複製歷史單據重新開立_bt = New System.Windows.Forms.Button()
40
+        Me.日期_dtp = New System.Windows.Forms.DateTimePicker()
41
+        Me.已核准的營運成本收支單_rb = New System.Windows.Forms.RadioButton()
42
+        Me.支票_tb = New System.Windows.Forms.TextBox()
43
+        Me.Label11 = New System.Windows.Forms.Label()
44
+        Me.零用金_tb = New System.Windows.Forms.TextBox()
45
+        Me.Label10 = New System.Windows.Forms.Label()
46
+        Me.現金餘額_tb = New System.Windows.Forms.TextBox()
47
+        Me.Label9 = New System.Windows.Forms.Label()
48
+        Me.支出_tb = New System.Windows.Forms.TextBox()
49
+        Me.Label5 = New System.Windows.Forms.Label()
50
+        Me.補單_cb = New System.Windows.Forms.CheckBox()
51
+        Me.Label4 = New System.Windows.Forms.Label()
52
+        Me.申請日期_dtp = New System.Windows.Forms.DateTimePicker()
53
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
54
+        Me.現金_tb = New System.Windows.Forms.TextBox()
55
+        Me.Label8 = New System.Windows.Forms.Label()
56
+        Me.資料尚未存檔_lb = New System.Windows.Forms.Label()
57
+        Me.選擇項次_tb = New System.Windows.Forms.TextBox()
58
+        Me.Label28 = New System.Windows.Forms.Label()
59
+        Me.Label27 = New System.Windows.Forms.Label()
60
+        Me.Label3 = New System.Windows.Forms.Label()
61
+        Me.申請人_tb = New System.Windows.Forms.TextBox()
62
+        Me.營運成本收支單號_tb = New System.Windows.Forms.TextBox()
63
+        Me.Label1 = New System.Windows.Forms.Label()
64
+        Me.作廢的營運成本收支單_rb = New System.Windows.Forms.RadioButton()
65
+        Me.未核准的營運成本收支單_rb = New System.Windows.Forms.RadioButton()
66
+        Me.Label2 = New System.Windows.Forms.Label()
67
+        Me.營運收支單_dgv = New System.Windows.Forms.DataGridView()
68
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
69
+        Me.重新讀取ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
70
+        Me.單一筆收支單_dgv = New System.Windows.Forms.DataGridView()
71
+        Me.申請_bt = New System.Windows.Forms.Button()
72
+        Me.開立營運成本收支單_bt = New System.Windows.Forms.Button()
73
+        Me.刪除選中的營運成本收支單_bt = New System.Windows.Forms.Button()
74
+        Me.刪除選中的一筆資料_bt = New System.Windows.Forms.Button()
75
+        Me.收支單中新增一筆空白資料_bt = New System.Windows.Forms.Button()
76
+        Me.Label6 = New System.Windows.Forms.Label()
77
+        Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
78
+        Me.BackgroundWorker2 = New System.ComponentModel.BackgroundWorker()
79
+        CType(Me.營運收支單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
80
+        Me.ContextMenuStrip1.SuspendLayout()
81
+        CType(Me.單一筆收支單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
82
+        Me.SuspendLayout()
83
+        '
84
+        'Timer1
85
+        '
86
+        Me.Timer1.Interval = 500
87
+        '
88
+        '美金匯率_tb
89
+        '
90
+        Me.美金匯率_tb.Location = New System.Drawing.Point(894, 263)
91
+        Me.美金匯率_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
92
+        Me.美金匯率_tb.Name = "美金匯率_tb"
93
+        Me.美金匯率_tb.Size = New System.Drawing.Size(175, 23)
94
+        Me.美金匯率_tb.TabIndex = 941
95
+        Me.美金匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
96
+        Me.美金匯率_tb.Visible = False
97
+        '
98
+        '人民幣匯率_tb
99
+        '
100
+        Me.人民幣匯率_tb.Location = New System.Drawing.Point(894, 232)
101
+        Me.人民幣匯率_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
102
+        Me.人民幣匯率_tb.Name = "人民幣匯率_tb"
103
+        Me.人民幣匯率_tb.Size = New System.Drawing.Size(175, 23)
104
+        Me.人民幣匯率_tb.TabIndex = 940
105
+        Me.人民幣匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
106
+        Me.人民幣匯率_tb.Visible = False
107
+        '
108
+        '幣別_cb
109
+        '
110
+        Me.幣別_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
111
+        Me.幣別_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
112
+        Me.幣別_cb.FormattingEnabled = True
113
+        Me.幣別_cb.Items.AddRange(New Object() {"台幣現金", "人民幣現金", "美金"})
114
+        Me.幣別_cb.Location = New System.Drawing.Point(1118, 85)
115
+        Me.幣別_cb.Name = "幣別_cb"
116
+        Me.幣別_cb.Size = New System.Drawing.Size(119, 24)
117
+        Me.幣別_cb.TabIndex = 939
118
+        '
119
+        'ComboBox6
120
+        '
121
+        Me.ComboBox6.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
122
+        Me.ComboBox6.FormattingEnabled = True
123
+        Me.ComboBox6.Location = New System.Drawing.Point(894, 200)
124
+        Me.ComboBox6.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
125
+        Me.ComboBox6.Name = "ComboBox6"
126
+        Me.ComboBox6.Size = New System.Drawing.Size(175, 24)
127
+        Me.ComboBox6.TabIndex = 937
128
+        '
129
+        '關鍵字查詢會計科目_tb
130
+        '
131
+        Me.關鍵字查詢會計科目_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
132
+        Me.關鍵字查詢會計科目_tb.Location = New System.Drawing.Point(462, 115)
133
+        Me.關鍵字查詢會計科目_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
134
+        Me.關鍵字查詢會計科目_tb.Name = "關鍵字查詢會計科目_tb"
135
+        Me.關鍵字查詢會計科目_tb.Size = New System.Drawing.Size(458, 23)
136
+        Me.關鍵字查詢會計科目_tb.TabIndex = 936
137
+        Me.關鍵字查詢會計科目_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
138
+        '
139
+        'ComboBox4
140
+        '
141
+        Me.ComboBox4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
142
+        Me.ComboBox4.FormattingEnabled = True
143
+        Me.ComboBox4.Location = New System.Drawing.Point(842, 85)
144
+        Me.ComboBox4.Name = "ComboBox4"
145
+        Me.ComboBox4.Size = New System.Drawing.Size(78, 24)
146
+        Me.ComboBox4.TabIndex = 935
147
+        '
148
+        'ComboBox3
149
+        '
150
+        Me.ComboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
151
+        Me.ComboBox3.FormattingEnabled = True
152
+        Me.ComboBox3.Location = New System.Drawing.Point(717, 85)
153
+        Me.ComboBox3.Name = "ComboBox3"
154
+        Me.ComboBox3.Size = New System.Drawing.Size(121, 24)
155
+        Me.ComboBox3.TabIndex = 934
156
+        '
157
+        'ComboBox2
158
+        '
159
+        Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
160
+        Me.ComboBox2.FormattingEnabled = True
161
+        Me.ComboBox2.Location = New System.Drawing.Point(653, 85)
162
+        Me.ComboBox2.Name = "ComboBox2"
163
+        Me.ComboBox2.Size = New System.Drawing.Size(61, 24)
164
+        Me.ComboBox2.TabIndex = 933
165
+        '
166
+        'ComboBox5
167
+        '
168
+        Me.ComboBox5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
169
+        Me.ComboBox5.FormattingEnabled = True
170
+        Me.ComboBox5.Location = New System.Drawing.Point(529, 85)
171
+        Me.ComboBox5.Name = "ComboBox5"
172
+        Me.ComboBox5.Size = New System.Drawing.Size(121, 24)
173
+        Me.ComboBox5.TabIndex = 932
174
+        '
175
+        '複製歷史單據重新開立_bt
176
+        '
177
+        Me.複製歷史單據重新開立_bt.ForeColor = System.Drawing.Color.Green
178
+        Me.複製歷史單據重新開立_bt.Location = New System.Drawing.Point(497, 3)
179
+        Me.複製歷史單據重新開立_bt.Name = "複製歷史單據重新開立_bt"
180
+        Me.複製歷史單據重新開立_bt.Size = New System.Drawing.Size(163, 26)
181
+        Me.複製歷史單據重新開立_bt.TabIndex = 931
182
+        Me.複製歷史單據重新開立_bt.Text = "複製歷史單據重新開立"
183
+        Me.複製歷史單據重新開立_bt.UseVisualStyleBackColor = True
184
+        '
185
+        '日期_dtp
186
+        '
187
+        Me.日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
188
+        Me.日期_dtp.Location = New System.Drawing.Point(348, 201)
189
+        Me.日期_dtp.Name = "日期_dtp"
190
+        Me.日期_dtp.Size = New System.Drawing.Size(90, 23)
191
+        Me.日期_dtp.TabIndex = 930
192
+        '
193
+        '已核准的營運成本收支單_rb
194
+        '
195
+        Me.已核准的營運成本收支單_rb.AutoSize = True
196
+        Me.已核准的營運成本收支單_rb.Location = New System.Drawing.Point(14, 30)
197
+        Me.已核准的營運成本收支單_rb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
198
+        Me.已核准的營運成本收支單_rb.Name = "已核准的營運成本收支單_rb"
199
+        Me.已核准的營運成本收支單_rb.Size = New System.Drawing.Size(158, 20)
200
+        Me.已核准的營運成本收支單_rb.TabIndex = 929
201
+        Me.已核准的營運成本收支單_rb.TabStop = True
202
+        Me.已核准的營運成本收支單_rb.Text = "已核准的營運成本收支單"
203
+        Me.已核准的營運成本收支單_rb.UseVisualStyleBackColor = True
204
+        '
205
+        '支票_tb
206
+        '
207
+        Me.支票_tb.Location = New System.Drawing.Point(529, 59)
208
+        Me.支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
209
+        Me.支票_tb.Name = "支票_tb"
210
+        Me.支票_tb.Size = New System.Drawing.Size(113, 23)
211
+        Me.支票_tb.TabIndex = 928
212
+        Me.支票_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
213
+        '
214
+        'Label11
215
+        '
216
+        Me.Label11.AutoSize = True
217
+        Me.Label11.Location = New System.Drawing.Point(495, 62)
218
+        Me.Label11.Name = "Label11"
219
+        Me.Label11.Size = New System.Drawing.Size(32, 16)
220
+        Me.Label11.TabIndex = 927
221
+        Me.Label11.Text = "支票"
222
+        '
223
+        '零用金_tb
224
+        '
225
+        Me.零用金_tb.Location = New System.Drawing.Point(380, 59)
226
+        Me.零用金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
227
+        Me.零用金_tb.Name = "零用金_tb"
228
+        Me.零用金_tb.Size = New System.Drawing.Size(113, 23)
229
+        Me.零用金_tb.TabIndex = 926
230
+        Me.零用金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
231
+        '
232
+        'Label10
233
+        '
234
+        Me.Label10.AutoSize = True
235
+        Me.Label10.Location = New System.Drawing.Point(334, 62)
236
+        Me.Label10.Name = "Label10"
237
+        Me.Label10.Size = New System.Drawing.Size(44, 16)
238
+        Me.Label10.TabIndex = 925
239
+        Me.Label10.Text = "零用金"
240
+        '
241
+        '現金餘額_tb
242
+        '
243
+        Me.現金餘額_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
244
+        Me.現金餘額_tb.Location = New System.Drawing.Point(1001, 58)
245
+        Me.現金餘額_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
246
+        Me.現金餘額_tb.Name = "現金餘額_tb"
247
+        Me.現金餘額_tb.Size = New System.Drawing.Size(113, 23)
248
+        Me.現金餘額_tb.TabIndex = 924
249
+        Me.現金餘額_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
250
+        '
251
+        'Label9
252
+        '
253
+        Me.Label9.AutoSize = True
254
+        Me.Label9.Location = New System.Drawing.Point(943, 61)
255
+        Me.Label9.Name = "Label9"
256
+        Me.Label9.Size = New System.Drawing.Size(56, 16)
257
+        Me.Label9.TabIndex = 923
258
+        Me.Label9.Text = "現金餘額"
259
+        '
260
+        '支出_tb
261
+        '
262
+        Me.支出_tb.Location = New System.Drawing.Point(827, 59)
263
+        Me.支出_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
264
+        Me.支出_tb.Name = "支出_tb"
265
+        Me.支出_tb.Size = New System.Drawing.Size(113, 23)
266
+        Me.支出_tb.TabIndex = 922
267
+        Me.支出_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
268
+        '
269
+        'Label5
270
+        '
271
+        Me.Label5.AutoSize = True
272
+        Me.Label5.Location = New System.Drawing.Point(793, 62)
273
+        Me.Label5.Name = "Label5"
274
+        Me.Label5.Size = New System.Drawing.Size(32, 16)
275
+        Me.Label5.TabIndex = 921
276
+        Me.Label5.Text = "支出"
277
+        '
278
+        '補單_cb
279
+        '
280
+        Me.補單_cb.AutoSize = True
281
+        Me.補單_cb.Checked = True
282
+        Me.補單_cb.CheckState = System.Windows.Forms.CheckState.Checked
283
+        Me.補單_cb.Location = New System.Drawing.Point(834, 33)
284
+        Me.補單_cb.Name = "補單_cb"
285
+        Me.補單_cb.Size = New System.Drawing.Size(39, 20)
286
+        Me.補單_cb.TabIndex = 920
287
+        Me.補單_cb.Text = "補"
288
+        Me.補單_cb.UseVisualStyleBackColor = True
289
+        '
290
+        'Label4
291
+        '
292
+        Me.Label4.AutoSize = True
293
+        Me.Label4.ForeColor = System.Drawing.Color.Blue
294
+        Me.Label4.Location = New System.Drawing.Point(703, 35)
295
+        Me.Label4.Name = "Label4"
296
+        Me.Label4.Size = New System.Drawing.Size(32, 16)
297
+        Me.Label4.TabIndex = 919
298
+        Me.Label4.Text = "日期"
299
+        '
300
+        '申請日期_dtp
301
+        '
302
+        Me.申請日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
303
+        Me.申請日期_dtp.Location = New System.Drawing.Point(735, 32)
304
+        Me.申請日期_dtp.Name = "申請日期_dtp"
305
+        Me.申請日期_dtp.Size = New System.Drawing.Size(90, 23)
306
+        Me.申請日期_dtp.TabIndex = 918
307
+        '
308
+        'ComboBox1
309
+        '
310
+        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
311
+        Me.ComboBox1.FormattingEnabled = True
312
+        Me.ComboBox1.Location = New System.Drawing.Point(926, 85)
313
+        Me.ComboBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
314
+        Me.ComboBox1.Name = "ComboBox1"
315
+        Me.ComboBox1.Size = New System.Drawing.Size(188, 24)
316
+        Me.ComboBox1.TabIndex = 915
317
+        '
318
+        '現金_tb
319
+        '
320
+        Me.現金_tb.Location = New System.Drawing.Point(678, 59)
321
+        Me.現金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
322
+        Me.現金_tb.Name = "現金_tb"
323
+        Me.現金_tb.Size = New System.Drawing.Size(113, 23)
324
+        Me.現金_tb.TabIndex = 914
325
+        Me.現金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
326
+        '
327
+        'Label8
328
+        '
329
+        Me.Label8.AutoSize = True
330
+        Me.Label8.Location = New System.Drawing.Point(644, 62)
331
+        Me.Label8.Name = "Label8"
332
+        Me.Label8.Size = New System.Drawing.Size(32, 16)
333
+        Me.Label8.TabIndex = 913
334
+        Me.Label8.Text = "現金"
335
+        '
336
+        '資料尚未存檔_lb
337
+        '
338
+        Me.資料尚未存檔_lb.Font = New System.Drawing.Font("微軟正黑體", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
339
+        Me.資料尚未存檔_lb.ForeColor = System.Drawing.Color.Red
340
+        Me.資料尚未存檔_lb.Location = New System.Drawing.Point(864, 17)
341
+        Me.資料尚未存檔_lb.Name = "資料尚未存檔_lb"
342
+        Me.資料尚未存檔_lb.Size = New System.Drawing.Size(250, 50)
343
+        Me.資料尚未存檔_lb.TabIndex = 912
344
+        Me.資料尚未存檔_lb.Text = "資  料  尚  未  存  檔"
345
+        Me.資料尚未存檔_lb.Visible = False
346
+        '
347
+        '選擇項次_tb
348
+        '
349
+        Me.選擇項次_tb.Location = New System.Drawing.Point(366, 86)
350
+        Me.選擇項次_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
351
+        Me.選擇項次_tb.Name = "選擇項次_tb"
352
+        Me.選擇項次_tb.Size = New System.Drawing.Size(61, 23)
353
+        Me.選擇項次_tb.TabIndex = 911
354
+        Me.選擇項次_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
355
+        '
356
+        'Label28
357
+        '
358
+        Me.Label28.AutoSize = True
359
+        Me.Label28.Location = New System.Drawing.Point(426, 89)
360
+        Me.Label28.Name = "Label28"
361
+        Me.Label28.Size = New System.Drawing.Size(44, 16)
362
+        Me.Label28.TabIndex = 910
363
+        Me.Label28.Text = "項次。"
364
+        '
365
+        'Label27
366
+        '
367
+        Me.Label27.AutoSize = True
368
+        Me.Label27.Location = New System.Drawing.Point(334, 89)
369
+        Me.Label27.Name = "Label27"
370
+        Me.Label27.Size = New System.Drawing.Size(32, 16)
371
+        Me.Label27.TabIndex = 909
372
+        Me.Label27.Text = "選擇"
373
+        '
374
+        'Label3
375
+        '
376
+        Me.Label3.AutoSize = True
377
+        Me.Label3.Location = New System.Drawing.Point(561, 35)
378
+        Me.Label3.Name = "Label3"
379
+        Me.Label3.Size = New System.Drawing.Size(44, 16)
380
+        Me.Label3.TabIndex = 907
381
+        Me.Label3.Text = "申請人"
382
+        '
383
+        '申請人_tb
384
+        '
385
+        Me.申請人_tb.Location = New System.Drawing.Point(605, 32)
386
+        Me.申請人_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
387
+        Me.申請人_tb.Name = "申請人_tb"
388
+        Me.申請人_tb.Size = New System.Drawing.Size(92, 23)
389
+        Me.申請人_tb.TabIndex = 906
390
+        Me.申請人_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
391
+        '
392
+        '營運成本收支單號_tb
393
+        '
394
+        Me.營運成本收支單號_tb.Location = New System.Drawing.Point(438, 32)
395
+        Me.營運成本收支單號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
396
+        Me.營運成本收支單號_tb.Name = "營運成本收支單號_tb"
397
+        Me.營運成本收支單號_tb.Size = New System.Drawing.Size(122, 23)
398
+        Me.營運成本收支單號_tb.TabIndex = 904
399
+        Me.營運成本收支單號_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
400
+        '
401
+        'Label1
402
+        '
403
+        Me.Label1.AutoSize = True
404
+        Me.Label1.Location = New System.Drawing.Point(334, 35)
405
+        Me.Label1.Name = "Label1"
406
+        Me.Label1.Size = New System.Drawing.Size(104, 16)
407
+        Me.Label1.TabIndex = 905
408
+        Me.Label1.Text = "營運成本收支單號"
409
+        '
410
+        '作廢的營運成本收支單_rb
411
+        '
412
+        Me.作廢的營運成本收支單_rb.AutoSize = True
413
+        Me.作廢的營運成本收支單_rb.Location = New System.Drawing.Point(178, 7)
414
+        Me.作廢的營運成本收支單_rb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
415
+        Me.作廢的營運成本收支單_rb.Name = "作廢的營運成本收支單_rb"
416
+        Me.作廢的營運成本收支單_rb.Size = New System.Drawing.Size(146, 20)
417
+        Me.作廢的營運成本收支單_rb.TabIndex = 903
418
+        Me.作廢的營運成本收支單_rb.TabStop = True
419
+        Me.作廢的營運成本收支單_rb.Text = "作廢的營運成本收支單"
420
+        Me.作廢的營運成本收支單_rb.UseVisualStyleBackColor = True
421
+        '
422
+        '未核准的營運成本收支單_rb
423
+        '
424
+        Me.未核准的營運成本收支單_rb.AutoSize = True
425
+        Me.未核准的營運成本收支單_rb.ImageAlign = System.Drawing.ContentAlignment.BottomRight
426
+        Me.未核准的營運成本收支單_rb.Location = New System.Drawing.Point(14, 7)
427
+        Me.未核准的營運成本收支單_rb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
428
+        Me.未核准的營運成本收支單_rb.Name = "未核准的營運成本收支單_rb"
429
+        Me.未核准的營運成本收支單_rb.Size = New System.Drawing.Size(158, 20)
430
+        Me.未核准的營運成本收支單_rb.TabIndex = 902
431
+        Me.未核准的營運成本收支單_rb.TabStop = True
432
+        Me.未核准的營運成本收支單_rb.Text = "未核准的營運成本收支單"
433
+        Me.未核准的營運成本收支單_rb.UseVisualStyleBackColor = True
434
+        '
435
+        'Label2
436
+        '
437
+        Me.Label2.AutoSize = True
438
+        Me.Label2.Location = New System.Drawing.Point(471, 89)
439
+        Me.Label2.Name = "Label2"
440
+        Me.Label2.Size = New System.Drawing.Size(56, 16)
441
+        Me.Label2.TabIndex = 917
442
+        Me.Label2.Text = "會計科目"
443
+        '
444
+        '營運收支單_dgv
445
+        '
446
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
447
+        Me.營運收支單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
448
+        Me.營運收支單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
449
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
450
+        Me.營運收支單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
451
+        Me.營運收支單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
452
+        Me.營運收支單_dgv.Location = New System.Drawing.Point(9, 52)
453
+        Me.營運收支單_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
454
+        Me.營運收支單_dgv.Name = "營運收支單_dgv"
455
+        Me.營運收支單_dgv.RowHeadersWidth = 5
456
+        Me.營運收支單_dgv.RowTemplate.Height = 24
457
+        Me.營運收支單_dgv.Size = New System.Drawing.Size(315, 555)
458
+        Me.營運收支單_dgv.TabIndex = 901
459
+        '
460
+        'ContextMenuStrip1
461
+        '
462
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新讀取ToolStripMenuItem})
463
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
464
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(123, 26)
465
+        '
466
+        '重新讀取ToolStripMenuItem
467
+        '
468
+        Me.重新讀取ToolStripMenuItem.Name = "重新讀取ToolStripMenuItem"
469
+        Me.重新讀取ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
470
+        Me.重新讀取ToolStripMenuItem.Text = "重新讀取"
471
+        '
472
+        '單一筆收支單_dgv
473
+        '
474
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
475
+        Me.單一筆收支單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
476
+        Me.單一筆收支單_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
477
+            Or System.Windows.Forms.AnchorStyles.Left) _
478
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
479
+        Me.單一筆收支單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
480
+        Me.單一筆收支單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
481
+        Me.單一筆收支單_dgv.Location = New System.Drawing.Point(333, 142)
482
+        Me.單一筆收支單_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
483
+        Me.單一筆收支單_dgv.Name = "單一筆收支單_dgv"
484
+        Me.單一筆收支單_dgv.RowHeadersWidth = 5
485
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
486
+        Me.單一筆收支單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
487
+        Me.單一筆收支單_dgv.RowTemplate.Height = 24
488
+        Me.單一筆收支單_dgv.Size = New System.Drawing.Size(906, 435)
489
+        Me.單一筆收支單_dgv.TabIndex = 908
490
+        '
491
+        '申請_bt
492
+        '
493
+        Me.申請_bt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
494
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
495
+        Me.申請_bt.ForeColor = System.Drawing.Color.Red
496
+        Me.申請_bt.Location = New System.Drawing.Point(333, 584)
497
+        Me.申請_bt.Name = "申請_bt"
498
+        Me.申請_bt.Size = New System.Drawing.Size(906, 23)
499
+        Me.申請_bt.TabIndex = 942
500
+        Me.申請_bt.Text = "申請完成"
501
+        Me.申請_bt.UseVisualStyleBackColor = True
502
+        '
503
+        '開立營運成本收支單_bt
504
+        '
505
+        Me.開立營運成本收支單_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
506
+        Me.開立營運成本收支單_bt.Location = New System.Drawing.Point(333, 3)
507
+        Me.開立營運成本收支單_bt.Name = "開立營運成本收支單_bt"
508
+        Me.開立營運成本收支單_bt.Size = New System.Drawing.Size(158, 25)
509
+        Me.開立營運成本收支單_bt.TabIndex = 943
510
+        Me.開立營運成本收支單_bt.Text = "開立營運成本收支單"
511
+        Me.開立營運成本收支單_bt.UseVisualStyleBackColor = True
512
+        '
513
+        '刪除選中的營運成本收支單_bt
514
+        '
515
+        Me.刪除選中的營運成本收支單_bt.ForeColor = System.Drawing.Color.Red
516
+        Me.刪除選中的營運成本收支單_bt.Location = New System.Drawing.Point(666, 3)
517
+        Me.刪除選中的營運成本收支單_bt.Name = "刪除選中的營運成本收支單_bt"
518
+        Me.刪除選中的營運成本收支單_bt.Size = New System.Drawing.Size(159, 26)
519
+        Me.刪除選中的營運成本收支單_bt.TabIndex = 944
520
+        Me.刪除選中的營運成本收支單_bt.Text = "刪除選中的營運成本收支單"
521
+        Me.刪除選中的營運成本收支單_bt.UseVisualStyleBackColor = True
522
+        '
523
+        '刪除選中的一筆資料_bt
524
+        '
525
+        Me.刪除選中的一筆資料_bt.ForeColor = System.Drawing.Color.Red
526
+        Me.刪除選中的一筆資料_bt.Location = New System.Drawing.Point(1088, 114)
527
+        Me.刪除選中的一筆資料_bt.Name = "刪除選中的一筆資料_bt"
528
+        Me.刪除選中的一筆資料_bt.Size = New System.Drawing.Size(149, 24)
529
+        Me.刪除選中的一筆資料_bt.TabIndex = 946
530
+        Me.刪除選中的一筆資料_bt.Text = "刪除選中的一筆資料"
531
+        Me.刪除選中的一筆資料_bt.UseVisualStyleBackColor = True
532
+        '
533
+        '收支單中新增一筆空白資料_bt
534
+        '
535
+        Me.收支單中新增一筆空白資料_bt.ForeColor = System.Drawing.Color.Green
536
+        Me.收支單中新增一筆空白資料_bt.Location = New System.Drawing.Point(926, 114)
537
+        Me.收支單中新增一筆空白資料_bt.Name = "收支單中新增一筆空白資料_bt"
538
+        Me.收支單中新增一筆空白資料_bt.Size = New System.Drawing.Size(160, 24)
539
+        Me.收支單中新增一筆空白資料_bt.TabIndex = 945
540
+        Me.收支單中新增一筆空白資料_bt.Text = "收支單中新增一筆空白資料"
541
+        Me.收支單中新增一筆空白資料_bt.UseVisualStyleBackColor = True
542
+        '
543
+        'Label6
544
+        '
545
+        Me.Label6.AutoSize = True
546
+        Me.Label6.Location = New System.Drawing.Point(334, 118)
547
+        Me.Label6.Name = "Label6"
548
+        Me.Label6.Size = New System.Drawing.Size(121, 16)
549
+        Me.Label6.TabIndex = 947
550
+        Me.Label6.Text = "關鍵字查詢-會計科目"
551
+        '
552
+        '營運成本收支單申請
553
+        '
554
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
555
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
556
+        Me.ClientSize = New System.Drawing.Size(1249, 611)
557
+        Me.ContextMenuStrip = Me.ContextMenuStrip1
558
+        Me.Controls.Add(Me.Label6)
559
+        Me.Controls.Add(Me.刪除選中的一筆資料_bt)
560
+        Me.Controls.Add(Me.收支單中新增一筆空白資料_bt)
561
+        Me.Controls.Add(Me.刪除選中的營運成本收支單_bt)
562
+        Me.Controls.Add(Me.開立營運成本收支單_bt)
563
+        Me.Controls.Add(Me.申請_bt)
564
+        Me.Controls.Add(Me.美金匯率_tb)
565
+        Me.Controls.Add(Me.人民幣匯率_tb)
566
+        Me.Controls.Add(Me.幣別_cb)
567
+        Me.Controls.Add(Me.ComboBox6)
568
+        Me.Controls.Add(Me.關鍵字查詢會計科目_tb)
569
+        Me.Controls.Add(Me.ComboBox4)
570
+        Me.Controls.Add(Me.ComboBox3)
571
+        Me.Controls.Add(Me.ComboBox2)
572
+        Me.Controls.Add(Me.ComboBox5)
573
+        Me.Controls.Add(Me.複製歷史單據重新開立_bt)
574
+        Me.Controls.Add(Me.日期_dtp)
575
+        Me.Controls.Add(Me.已核准的營運成本收支單_rb)
576
+        Me.Controls.Add(Me.支票_tb)
577
+        Me.Controls.Add(Me.Label11)
578
+        Me.Controls.Add(Me.零用金_tb)
579
+        Me.Controls.Add(Me.Label10)
580
+        Me.Controls.Add(Me.現金餘額_tb)
581
+        Me.Controls.Add(Me.Label9)
582
+        Me.Controls.Add(Me.支出_tb)
583
+        Me.Controls.Add(Me.Label5)
584
+        Me.Controls.Add(Me.補單_cb)
585
+        Me.Controls.Add(Me.Label4)
586
+        Me.Controls.Add(Me.申請日期_dtp)
587
+        Me.Controls.Add(Me.ComboBox1)
588
+        Me.Controls.Add(Me.現金_tb)
589
+        Me.Controls.Add(Me.Label8)
590
+        Me.Controls.Add(Me.資料尚未存檔_lb)
591
+        Me.Controls.Add(Me.選擇項次_tb)
592
+        Me.Controls.Add(Me.Label28)
593
+        Me.Controls.Add(Me.Label27)
594
+        Me.Controls.Add(Me.Label3)
595
+        Me.Controls.Add(Me.申請人_tb)
596
+        Me.Controls.Add(Me.營運成本收支單號_tb)
597
+        Me.Controls.Add(Me.Label1)
598
+        Me.Controls.Add(Me.作廢的營運成本收支單_rb)
599
+        Me.Controls.Add(Me.未核准的營運成本收支單_rb)
600
+        Me.Controls.Add(Me.Label2)
601
+        Me.Controls.Add(Me.營運收支單_dgv)
602
+        Me.Controls.Add(Me.單一筆收支單_dgv)
603
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
604
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
605
+        Me.Name = "營運成本收支單申請"
606
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
607
+        Me.Text = "營運成本收支單申請"
608
+        CType(Me.營運收支單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
609
+        Me.ContextMenuStrip1.ResumeLayout(False)
610
+        CType(Me.單一筆收支單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
611
+        Me.ResumeLayout(False)
612
+        Me.PerformLayout()
613
+
614
+    End Sub
615
+    Friend WithEvents Timer1 As Timer
616
+    Friend WithEvents 美金匯率_tb As TextBox
617
+    Friend WithEvents 人民幣匯率_tb As TextBox
618
+    Friend WithEvents 幣別_cb As ComboBox
619
+    Friend WithEvents ComboBox6 As ComboBox
620
+    Friend WithEvents 關鍵字查詢會計科目_tb As TextBox
621
+    Friend WithEvents ComboBox4 As ComboBox
622
+    Friend WithEvents ComboBox3 As ComboBox
623
+    Friend WithEvents ComboBox2 As ComboBox
624
+    Friend WithEvents ComboBox5 As ComboBox
625
+    Friend WithEvents 複製歷史單據重新開立_bt As Button
626
+    Friend WithEvents 日期_dtp As DateTimePicker
627
+    Friend WithEvents 已核准的營運成本收支單_rb As RadioButton
628
+    Friend WithEvents 支票_tb As TextBox
629
+    Friend WithEvents Label11 As Label
630
+    Friend WithEvents 零用金_tb As TextBox
631
+    Friend WithEvents Label10 As Label
632
+    Friend WithEvents 現金餘額_tb As TextBox
633
+    Friend WithEvents Label9 As Label
634
+    Friend WithEvents 支出_tb As TextBox
635
+    Friend WithEvents Label5 As Label
636
+    Friend WithEvents 補單_cb As CheckBox
637
+    Friend WithEvents Label4 As Label
638
+    Friend WithEvents 申請日期_dtp As DateTimePicker
639
+    Friend WithEvents ComboBox1 As ComboBox
640
+    Friend WithEvents 現金_tb As TextBox
641
+    Friend WithEvents Label8 As Label
642
+    Friend WithEvents 資料尚未存檔_lb As Label
643
+    Friend WithEvents 選擇項次_tb As TextBox
644
+    Friend WithEvents Label28 As Label
645
+    Friend WithEvents Label27 As Label
646
+    Friend WithEvents Label3 As Label
647
+    Friend WithEvents 申請人_tb As TextBox
648
+    Friend WithEvents 營運成本收支單號_tb As TextBox
649
+    Friend WithEvents Label1 As Label
650
+    Friend WithEvents 作廢的營運成本收支單_rb As RadioButton
651
+    Friend WithEvents 未核准的營運成本收支單_rb As RadioButton
652
+    Friend WithEvents Label2 As Label
653
+    Friend WithEvents 營運收支單_dgv As DataGridView
654
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
655
+    Friend WithEvents 重新讀取ToolStripMenuItem As ToolStripMenuItem
656
+    Friend WithEvents 單一筆收支單_dgv As DataGridView
657
+    Friend WithEvents 申請_bt As Button
658
+    Friend WithEvents 開立營運成本收支單_bt As Button
659
+    Friend WithEvents 刪除選中的營運成本收支單_bt As Button
660
+    Friend WithEvents 刪除選中的一筆資料_bt As Button
661
+    Friend WithEvents 收支單中新增一筆空白資料_bt As Button
662
+    Friend WithEvents Label6 As Label
663
+    Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker
664
+    Friend WithEvents BackgroundWorker2 As System.ComponentModel.BackgroundWorker
665
+End Class

+ 135
- 0
YD-ERP-SYS/財務系統管理/營運成本收支單申請.resx 파일 보기

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

+ 332
- 0
YD-ERP-SYS/財務系統管理/營運成本收支單申請.vb 파일 보기

@@ -0,0 +1,332 @@
1
+Option Strict Off
2
+Imports System.Data.SqlClient
3
+Public Class 營運成本收支單申請
4
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet
5
+    Dim 新項次 As String : Dim 新流水1 As String : Dim 新流水2 As String
6
+    Dim NUM1 As Integer : Dim 匯率1 As Double
7
+    Private Sub Set_清單1()
8
+        營運收支單_dgv.DataSource = Nothing : ds1.Clear()
9
+        營運收支單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
10
+        營運收支單_dgv.ColumnHeadersHeight = 25
11
+        營運收支單_dgv.AllowUserToAddRows = False
12
+
13
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
14
+        If 未核准的營運成本收支單_rb.Checked = True And 作廢的營運成本收支單_rb.Checked = False And 已核准的營運成本收支單_rb.Checked = False Then
15
+            SQL_營運成本收支單申請_審核人1()
16
+        ElseIf 未核准的營運成本收支單_rb.Checked = False And 作廢的營運成本收支單_rb.Checked = True And 已核准的營運成本收支單_rb.Checked = False Then
17
+            SQL_營運成本收支單申請_審核人2()
18
+        ElseIf 未核准的營運成本收支單_rb.Checked = False And 作廢的營運成本收支單_rb.Checked = False And 已核准的營運成本收支單_rb.Checked = True Then
19
+            SQL_營運成本收支單申請_審核人3()
20
+        End If
21
+        SQL_營運成本收支單申請_查詢公帳控制表()
22
+        da.Fill(ds1) : 營運收支單_dgv.DataSource = ds1.Tables(0) : conn.Close()
23
+        營運收支單_dgv.Columns(0).FillWeight = 160 : 營運收支單_dgv.Columns(1).FillWeight = 100 : 營運收支單_dgv.Columns(2).FillWeight = 100 : 營運收支單_dgv.Columns(3).Visible = False
24
+    End Sub
25
+    Private Sub Set_費用清單()
26
+        單一筆收支單_dgv.DataSource = Nothing : ds.Clear()
27
+        單一筆收支單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
28
+        單一筆收支單_dgv.ColumnHeadersHeight = 25
29
+        單一筆收支單_dgv.AllowUserToAddRows = False
30
+        單一筆收支單_dgv.RowTemplate.Height = 35
31
+        SQL_營運成本收支單申請_查詢費用清單() : da.Fill(ds) : 單一筆收支單_dgv.DataSource = ds.Tables(0) : conn.Close()
32
+
33
+        單一筆收支單_dgv.Columns(0).Visible = False : 單一筆收支單_dgv.Columns(1).FillWeight = 80 : 單一筆收支單_dgv.Columns(2).FillWeight = 300 : 單一筆收支單_dgv.Columns(3).FillWeight = 500
34
+        單一筆收支單_dgv.Columns(4).FillWeight = 140 : 單一筆收支單_dgv.Columns(5).FillWeight = 140 : 單一筆收支單_dgv.Columns(6).FillWeight = 140 : 單一筆收支單_dgv.Columns(7).FillWeight = 140
35
+        單一筆收支單_dgv.Columns(8).FillWeight = 140 : 單一筆收支單_dgv.Columns(9).FillWeight = 140 : 單一筆收支單_dgv.Columns(10).FillWeight = 140 : 單一筆收支單_dgv.Columns(11).Visible = False
36
+        單一筆收支單_dgv.Columns(12).Visible = False
37
+
38
+        單一筆收支單_dgv.Columns(1).ReadOnly = True : 單一筆收支單_dgv.Columns(2).ReadOnly = True : 單一筆收支單_dgv.Columns(9).ReadOnly = True : 單一筆收支單_dgv.Columns(10).ReadOnly = True
39
+
40
+        單一筆收支單_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 單一筆收支單_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.00"
41
+        單一筆收支單_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00"
42
+        單一筆收支單_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.00" : 單一筆收支單_dgv.Columns(8).DefaultCellStyle.Format = "#,##0.00"
43
+        單一筆收支單_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
44
+        單一筆收支單_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
45
+        單一筆收支單_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
46
+        單一筆收支單_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
47
+        單一筆收支單_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
48
+        單一筆收支單_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
49
+        單一筆收支單_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
50
+        單一筆收支單_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
51
+        單一筆收支單_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
52
+        單一筆收支單_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
53
+        單一筆收支單_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
54
+        單一筆收支單_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
55
+        單一筆收支單_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
56
+        單一筆收支單_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
57
+        單一筆收支單_dgv.EditMode = DataGridViewEditMode.EditOnEnter
58
+
59
+        現金_tb.Text = "0.00" : 支出_tb.Text = "0.00" : 現金餘額_tb.Text = "0.00" : 零用金_tb.Text = "0" : 支票_tb.Text = "0.00"
60
+        For i As Integer = 0 To 單一筆收支單_dgv.Rows.Count - 1
61
+            現金_tb.Text = Val(現金_tb.Text) + Val(單一筆收支單_dgv.Rows(i).Cells("現金").Value) : 支出_tb.Text = Val(支出_tb.Text) + Val(單一筆收支單_dgv.Rows(i).Cells("支出").Value)
62
+            零用金_tb.Text = Val(零用金_tb.Text) + 單一筆收支單_dgv.Rows(i).Cells("零用金").Value : 支票_tb.Text = Val(支票_tb.Text) + 單一筆收支單_dgv.Rows(i).Cells("支票").Value
63
+        Next i
64
+        現金餘額_tb.Text = Val(零用金_tb.Text) + Val(現金_tb.Text) - Val(支出_tb.Text)
65
+        If Val(現金餘額_tb.Text) > 0 Then : 現金餘額_tb.ForeColor = Color.Blue : Else : 現金餘額_tb.ForeColor = Color.Red : End If
66
+        現金_tb.Text = Format(Val(現金_tb.Text), "#,##0.00") : 支出_tb.Text = Format(Val(支出_tb.Text), "#,##0.00") : 現金餘額_tb.Text = Format(Val(現金餘額_tb.Text), "#,##0.00")
67
+        零用金_tb.Text = Format(Val(零用金_tb.Text), "#,##0.00") : 支票_tb.Text = Format(Val(支票_tb.Text), "#,##0.00")
68
+    End Sub
69
+    Private Sub ComboBox1下拉表單資料載入()
70
+        conn.Close()
71
+        SQL_營運成本收支單申請_查詢公帳控制表會計科目() : ComboBox1.Items.Clear() : ComboBox6.Items.Clear()
72
+        While (dr.Read()) : ComboBox1.Items.Add(dr("會計科目")) : ComboBox6.Items.Add(dr("編號")) : End While : conn.Close()
73
+        If ComboBox1.Items.Count <> 0 Then : ComboBox1.SelectedIndex = 0 : End If
74
+    End Sub
75
+    Private Sub ComboBox2下拉表單資料載入()
76
+        conn.Close()
77
+        SQL_營運成本收支單申請_查詢最後一筆公帳控制表會計科目() : ComboBox5.Items.Clear() : ComboBox2.Items.Clear() : ComboBox5.Text = "" : ComboBox2.Text = ""
78
+        While (dr.Read()) : ComboBox5.Items.Add(dr("第一階")) : ComboBox2.Items.Add(dr("編號")) : End While : conn.Close()
79
+    End Sub
80
+    Private Sub ComboBox3下拉表單資料載入()
81
+        conn.Close()
82
+        SQL_營運成本收支單申請_查詢最左邊公帳控制表會計科目() : ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : ComboBox3.Text = "" : ComboBox4.Text = ""
83
+        While (dr.Read()) : ComboBox3.Items.Add(dr("第二階")) : ComboBox4.Items.Add(dr("編號")) : End While : conn.Close()
84
+    End Sub
85
+    Private Sub 匯率()
86
+        SQL_營運成本收支單申請_查詢匯率()
87
+        If dr.Read() Then
88
+            人民幣匯率_tb.Text = dr("中心匯率").ToString : 美金匯率_tb.Text = dr("美金匯率").ToString : conn.Close() : dr.Close()
89
+        Else
90
+            conn.Close() : dr.Close() : 匯率管理.Close() : 匯率管理.Show() : 匯率管理.BringToFront()
91
+        End If
92
+    End Sub
93
+    Private Sub Set_切換格式()
94
+        單一筆收支單_dgv.DataSource = Nothing : ds.Clear() : 營運成本收支單號_tb.Text = "" : 申請人_tb.Text = ""
95
+        選擇項次_tb.Text = "" : 現金_tb.Text = "" : 支出_tb.Text = "" : 現金餘額_tb.Text = ""
96
+        零用金_tb.Text = "" : 支票_tb.Text = "" : ComboBox1下拉表單資料載入() : Set_清單1()
97
+    End Sub
98
+    Private Sub 營運成本收支單申請_Load(sender As Object, e As EventArgs) Handles MyBase.Load
99
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
100
+        未核准的營運成本收支單_rb.Checked = True : 日期_dtp.Visible = False : 複製歷史單據重新開立_bt.Enabled = False : ComboBox6.Visible = False
101
+        營運收支單_dgv.Visible = True : Set_清單1() : ComboBox2下拉表單資料載入() : 幣別_cb.SelectedIndex = 0
102
+        匯率()
103
+    End Sub
104
+    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.TextChanged
105
+        ComboBox2.SelectedIndex = ComboBox5.SelectedIndex : 關鍵字查詢會計科目_tb.Text = "" : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
106
+    End Sub
107
+    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.TextChanged
108
+        ComboBox5.SelectedIndex = ComboBox2.SelectedIndex : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
109
+    End Sub
110
+    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.TextChanged
111
+        ComboBox4.SelectedIndex = ComboBox3.SelectedIndex : ComboBox1下拉表單資料載入()
112
+    End Sub
113
+    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.TextChanged
114
+        ComboBox3.SelectedIndex = ComboBox4.SelectedIndex : ComboBox1下拉表單資料載入()
115
+    End Sub
116
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
117
+        ComboBox6.SelectedIndex = ComboBox1.SelectedIndex
118
+    End Sub
119
+    Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedIndexChanged
120
+        ComboBox1.SelectedIndex = ComboBox6.SelectedIndex
121
+    End Sub
122
+    Private Sub 關鍵字查詢會計科目_tb_TextChanged(sender As Object, e As EventArgs) Handles 關鍵字查詢會計科目_tb.TextChanged
123
+        conn.Close()
124
+        SQL_營運成本收支單申請_營運成本會計科目查詢() : conn.Close()
125
+        If ComboBox1.Items.Count <> 0 Then : ComboBox1.SelectedIndex = 0 : End If
126
+    End Sub
127
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
128
+        If 資料尚未存檔_lb.Visible = True Then : 資料尚未存檔_lb.Visible = False : Else : 資料尚未存檔_lb.Visible = True : End If
129
+    End Sub
130
+    Private Sub 單一筆收支單_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 單一筆收支單_dgv.CellEndEdit
131
+        現金_tb.Text = "0" : 支出_tb.Text = "0" : 現金餘額_tb.Text = "0" : 零用金_tb.Text = "0" : 支票_tb.Text = "0"
132
+        For i As Integer = 0 To 單一筆收支單_dgv.Rows.Count - 1
133
+            現金_tb.Text = Val(現金_tb.Text) + 單一筆收支單_dgv.Rows(i).Cells("現金").Value : 支出_tb.Text = Val(支出_tb.Text) + 單一筆收支單_dgv.Rows(i).Cells("支出").Value
134
+            零用金_tb.Text = Val(零用金_tb.Text) + 單一筆收支單_dgv.Rows(i).Cells("零用金").Value : 支票_tb.Text = Val(支票_tb.Text) + 單一筆收支單_dgv.Rows(i).Cells("支票").Value
135
+        Next i
136
+        現金餘額_tb.Text = Val(零用金_tb.Text) + Val(現金_tb.Text) - Val(支出_tb.Text)
137
+        If Val(現金餘額_tb.Text) > 0 Then : 現金餘額_tb.ForeColor = Color.Blue : Else : 現金餘額_tb.ForeColor = Color.Red : End If
138
+        現金_tb.Text = Format(Val(現金_tb.Text), "#,##0") : 支出_tb.Text = Format(Val(支出_tb.Text), "#,##0") : 現金餘額_tb.Text = Format(Val(現金餘額_tb.Text), "#,##0")
139
+        零用金_tb.Text = Format(Val(零用金_tb.Text), "#,##0") : 支票_tb.Text = Format(Val(支票_tb.Text), "#,##0")
140
+        Dim EU As String
141
+        EU = 單一筆收支單_dgv("票期", e.RowIndex).Value.ToString
142
+        If EU = "" Then
143
+        Else
144
+            日期_dtp.Text = EU
145
+            單一筆收支單_dgv.Rows(e.RowIndex).Cells("票期").Value = Format(日期_dtp.Value, "yyyy/MM/dd")
146
+        End If
147
+    End Sub
148
+    Private Sub 營運收支單_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 營運收支單_dgv.CellClick
149
+        If e.RowIndex = -1 Then : Else
150
+            營運成本收支單號_tb.Text = 營運收支單_dgv(0, e.RowIndex).Value.ToString : 申請日期_dtp.Value = 營運收支單_dgv(1, e.RowIndex).Value.ToString : Set_費用清單()
151
+            申請人_tb.Text = 營運收支單_dgv(3, e.RowIndex).Value.ToString
152
+        End If
153
+    End Sub
154
+    Private Sub 單一筆收支單_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 單一筆收支單_dgv.CellClick
155
+        If e.RowIndex = -1 Then : Else
156
+            選擇項次_tb.Text = 單一筆收支單_dgv(1, e.RowIndex).Value.ToString
157
+        End If
158
+    End Sub
159
+
160
+    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles 未核准的營運成本收支單_rb.Click
161
+        未核准的營運成本收支單_rb.Checked = True : 作廢的營運成本收支單_rb.Checked = False : 已核准的營運成本收支單_rb.Checked = False
162
+        申請_bt.Enabled = True : 複製歷史單據重新開立_bt.Enabled = False
163
+        開立營運成本收支單_bt.Enabled = True : 收支單中新增一筆空白資料_bt.Enabled = True
164
+        刪除選中的一筆資料_bt.Enabled = True : 刪除選中的營運成本收支單_bt.Enabled = True : Set_切換格式()
165
+    End Sub
166
+    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles 作廢的營運成本收支單_rb.Click
167
+        未核准的營運成本收支單_rb.Checked = False : 作廢的營運成本收支單_rb.Checked = True : 已核准的營運成本收支單_rb.Checked = False
168
+        申請_bt.Enabled = False : 複製歷史單據重新開立_bt.Enabled = False
169
+        開立營運成本收支單_bt.Enabled = False : 收支單中新增一筆空白資料_bt.Enabled = False
170
+        刪除選中的一筆資料_bt.Enabled = False : 刪除選中的營運成本收支單_bt.Enabled = False : Set_切換格式()
171
+    End Sub
172
+    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles 已核准的營運成本收支單_rb.Click
173
+        If CC(28) = False Then
174
+            未核准的營運成本收支單_rb.Checked = False : 作廢的營運成本收支單_rb.Checked = False : 已核准的營運成本收支單_rb.Checked = True
175
+            申請_bt.Enabled = False : 複製歷史單據重新開立_bt.Enabled = True
176
+            開立營運成本收支單_bt.Enabled = False : 收支單中新增一筆空白資料_bt.Enabled = False
177
+            刪除選中的一筆資料_bt.Enabled = False : 刪除選中的營運成本收支單_bt.Enabled = False : Set_切換格式()
178
+        Else
179
+            未核准的營運成本收支單_rb.Checked = False : 作廢的營運成本收支單_rb.Checked = False : 已核准的營運成本收支單_rb.Checked = True
180
+            申請_bt.Enabled = True : 複製歷史單據重新開立_bt.Enabled = True
181
+            開立營運成本收支單_bt.Enabled = True : 收支單中新增一筆空白資料_bt.Enabled = True
182
+            刪除選中的一筆資料_bt.Enabled = True : 刪除選中的營運成本收支單_bt.Enabled = True : Set_切換格式()
183
+        End If
184
+    End Sub
185
+    Private Sub 存檔()
186
+        For i As Integer = 0 To 單一筆收支單_dgv.Rows.Count - 1
187
+            資料數 = 單一筆收支單_dgv.Rows.Count : MyModule1.進度條()
188
+            PA1 = 單一筆收支單_dgv.Rows(i).Cells("用途").Value : PA2 = 單一筆收支單_dgv.Rows(i).Cells("支出").Value : PA3 = 單一筆收支單_dgv.Rows(i).Cells("票期").Value
189
+            PA4 = 單一筆收支單_dgv.Rows(i).Cells("類別").Value : PA5 = 單一筆收支單_dgv.Rows(i).Cells("現金").Value : PA6 = 單一筆收支單_dgv.Rows(i).Cells("零用金").Value
190
+            PA7 = 單一筆收支單_dgv.Rows(i).Cells("支票").Value : PA8 = 單一筆收支單_dgv.Rows(i).Cells("匯率").Value : PA9 = 單一筆收支單_dgv.Rows(i).Cells("項次").Value
191
+            SQL_會計科目管理_修改收支單申請表() : conn.Close()
192
+        Next : YD_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
193
+    End Sub
194
+
195
+    Private Sub Set_流水號()
196
+        conn.Close() : dr.Close()
197
+        Dim NUM1 As Integer
198
+        For NUM1 = 0 To 99
199
+            Dim d As String : Dim f As String : Dim g As Integer = 1
200
+            If Month(Now) < 10 Then : d = "0" & CStr(Month(Now))
201
+            Else : d = CStr(Month(Now))
202
+            End If
203
+            If Now.Day() < 10 Then : f = "0" & CStr(Now.Day())
204
+            Else : f = CStr(Now.Day())
205
+            End If
206
+            If NUM1 < 10 Then : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(Now)), 2) & d & f & "0" & NUM1
207
+            Else : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(Now)), 2) & d & f & NUM1
208
+            End If : PA19 = 新流水1
209
+            SQL_營運成本收支單申請_查詢收支單公帳流水號() : conn.Close() : NUM1 = 99  'End If
210
+        Next
211
+    End Sub
212
+
213
+    Private Sub 複製歷史單據重新開立_bt_Click(sender As Object, e As EventArgs) Handles 複製歷史單據重新開立_bt.Click
214
+        開立零用金支付單()
215
+        開立營運成本收支單_bt.Enabled = False : 未核准的營運成本收支單_rb.Enabled = False : 作廢的營運成本收支單_rb.Enabled = False : 已核准的營運成本收支單_rb.Enabled = False
216
+        營運收支單_dgv.Enabled = False : 未核准的營運成本收支單_rb.Checked = True : 作廢的營運成本收支單_rb.Checked = False : 已核准的營運成本收支單_rb.Checked = False : 申請_bt.Enabled = True
217
+        複製歷史單據重新開立_bt.Enabled = False : 開立營運成本收支單_bt.Enabled = True : 收支單中新增一筆空白資料_bt.Enabled = True
218
+        刪除選中的一筆資料_bt.Enabled = True : 刪除選中的營運成本收支單_bt.Enabled = True
219
+        Set_清單1()
220
+        For i As Integer = 0 To 單一筆收支單_dgv.Rows.Count - 1
221
+            Set_流水號()
222
+            SQL_會計科目管理_開立零用金支付單()
223
+        Next
224
+        Set_費用清單() : MsgBox("複製單據開立完成。")
225
+    End Sub
226
+    Private Sub 申請日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 申請日期_dtp.ValueChanged
227
+        匯率()
228
+    End Sub
229
+    Private Sub 申請_bt_Click(sender As Object, e As EventArgs) Handles 申請_bt.Click
230
+        Timer1.Enabled = False : 資料尚未存檔_lb.Visible = False
231
+        開立營運成本收支單_bt.Enabled = True : 未核准的營運成本收支單_rb.Enabled = True : 作廢的營運成本收支單_rb.Enabled = True
232
+        營運收支單_dgv.Enabled = True : 已核准的營運成本收支單_rb.Enabled = True
233
+        存檔() : Set_清單1()
234
+        MsgBox("申請完成,請通知主管審核。")
235
+    End Sub
236
+
237
+    Private Sub 收支單中新增一筆空白資料_bt_Click(sender As Object, e As EventArgs) Handles 收支單中新增一筆空白資料_bt.Click
238
+        If ComboBox6.Text = "" Or 幣別_cb.Text = "" Then
239
+            MsgBox("沒有選擇會計科目或幣別。")
240
+        Else
241
+            If 營運成本收支單號_tb.Text = "" Then
242
+                開立零用金支付單()
243
+            End If
244
+            Set_日期格式轉換() : Set_流水號()
245
+            存檔()
246
+            SQL_營運成本收支單申請_查詢最後一筆公帳支付單號()
247
+            If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close()
248
+            NUM1 = Double.Parse(新項次) + 1
249
+            If NUM1 < 10 Then : 新項次 = "0" & NUM1
250
+            ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1
251
+            End If
252
+            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
253
+
254
+            If 幣別_cb.Text = "台幣現金" Then
255
+                匯率1 = 1
256
+            ElseIf 幣別_cb.Text = "人民幣現金" Then
257
+                匯率1 = 人民幣匯率_tb.Text
258
+            ElseIf 幣別_cb.Text = "美金" Then
259
+                匯率1 = 美金匯率_tb.Text
260
+            End If
261
+            PA16 = 匯率1
262
+            PA15 = 新項次
263
+            SQL_營運成本收支單申請_新增公帳流水帳資料() : conn.Close()
264
+            Set_費用清單()
265
+        End If
266
+    End Sub
267
+    Private Sub 刪除選中的一筆資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除選中的一筆資料_bt.Click
268
+        If 選擇項次_tb.Text = "" Then
269
+            MsgBox("未選擇需要刪除的資料。")
270
+        Else
271
+            存檔()
272
+            SQL_營運成本收支單申請_刪除公帳流水帳支付單號() : conn.Close()
273
+            Set_費用清單()
274
+            Dim NUM1 As Integer = 0
275
+            For i As Integer = 0 To 單一筆收支單_dgv.Rows.Count - 1
276
+                PA17 = 單一筆收支單_dgv.Rows(i).Cells("項次").Value
277
+                NUM1 += 1 : If NUM1 < 10 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
278
+                PA18 = 新項次
279
+                SQL_營運成本收支單申請_修改公帳流水帳支付單號() : conn.Close()
280
+            Next
281
+            Set_費用清單()
282
+        End If
283
+    End Sub
284
+    Private Sub Set_日期格式轉換()
285
+        If 補單_cb.Checked = False Then
286
+            DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
287
+        Else
288
+            DTP1 = Format(申請日期_dtp.Value, "yyyyMMdd") : DTP = Format(申請日期_dtp.Value, "yyyy/MM/dd")
289
+        End If
290
+    End Sub
291
+    Private Sub 開立零用金支付單()
292
+        Dim NUM1 As Integer : Timer1.Enabled = True
293
+        Set_日期格式轉換()
294
+        For i As Integer = 1 To 999
295
+            NUM1 = 0 + i
296
+            If NUM1 < 10 Then : 營運成本收支單號_tb.Text = "OE-" & DTP1 & "-00" & NUM1
297
+            ElseIf NUM1 > 9 And NUM1 < 100 Then : 營運成本收支單號_tb.Text = "OE-" & DTP1 & "-0" & NUM1
298
+            ElseIf NUM1 > 99 Then : 營運成本收支單號_tb.Text = "OE-" & DTP1 & "-" & NUM1
299
+            End If
300
+            conn.Close()
301
+            SQL_營運成本收支單申請_查詢第一筆公帳支付單號()
302
+            If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
303
+        Next
304
+        SQL_營運成本收支單申請_新增一筆公帳控制表() : conn.Close()
305
+        申請人_tb.Text = gUserName
306
+        Set_清單1()
307
+    End Sub
308
+    Private Sub 開立營運成本收支單_bt_Click(sender As Object, e As EventArgs) Handles 開立營運成本收支單_bt.Click
309
+        開立零用金支付單()
310
+        開立營運成本收支單_bt.Enabled = False : 未核准的營運成本收支單_rb.Enabled = False
311
+        作廢的營運成本收支單_rb.Enabled = False : 已核准的營運成本收支單_rb.Enabled = False
312
+        營運收支單_dgv.Enabled = False
313
+        單一筆收支單_dgv.DataSource = Nothing : ds.Clear() : conn.Close()
314
+        Set_清單1()
315
+    End Sub
316
+    Private Sub 刪除選中的營運成本收支單_bt_Click(sender As Object, e As EventArgs) Handles 刪除選中的營運成本收支單_bt.Click
317
+        Dim aa As MsgBoxResult
318
+        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
319
+        If aa = MsgBoxResult.Ok Then
320
+            SQL_營運成本收支單申請_刪除公帳控制表() : conn.Close()
321
+            SQL_營運成本收支單申請_刪除公帳流水帳() : conn.Close()
322
+            營運成本收支單號_tb.Text = "" : 申請人_tb.Text = "" : 選擇項次_tb.Text = ""
323
+            單一筆收支單_dgv.DataSource = Nothing : ds.Clear()
324
+            Set_清單1()
325
+        End If
326
+    End Sub
327
+
328
+    '----------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------------------------------------
329
+    Private Sub 重新讀取ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新讀取ToolStripMenuItem.Click
330
+        Set_清單1()
331
+    End Sub
332
+End Class

+ 317
- 0
YD-ERP-SYS/資料庫系統管理/簽名檔管理.Designer.vb 파일 보기

@@ -0,0 +1,317 @@
1
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2
+Partial Class 簽名檔管理
3
+    Inherits System.Windows.Forms.Form
4
+
5
+    'Form 覆寫 Dispose 以清除元件清單。
6
+    <System.Diagnostics.DebuggerNonUserCode()> _
7
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8
+        Try
9
+            If disposing AndAlso components IsNot Nothing Then
10
+                components.Dispose()
11
+            End If
12
+        Finally
13
+            MyBase.Dispose(disposing)
14
+        End Try
15
+    End Sub
16
+
17
+    '為 Windows Form 設計工具的必要項
18
+    Private components As System.ComponentModel.IContainer
19
+
20
+    '注意: 以下為 Windows Form 設計工具所需的程序
21
+    '可以使用 Windows Form 設計工具進行修改。
22
+    '請勿使用程式碼編輯器進行修改。
23
+    <System.Diagnostics.DebuggerStepThrough()> _
24
+    Private Sub InitializeComponent()
25
+        Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
26
+        Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
27
+        Me.檔案名稱tb = New System.Windows.Forms.TextBox()
28
+        Me.刪除簽名檔_bt = New System.Windows.Forms.Button()
29
+        Me.Label15 = New System.Windows.Forms.Label()
30
+        Me.簽名檔持有人_cb = New System.Windows.Forms.ComboBox()
31
+        Me.簽名檔人名_dgv = New System.Windows.Forms.DataGridView()
32
+        Me.Label3 = New System.Windows.Forms.Label()
33
+        Me.圖檔編號_tb = New System.Windows.Forms.TextBox()
34
+        Me.生成圖檔編號_bt = New System.Windows.Forms.Button()
35
+        Me.簽名檔入系統_bt = New System.Windows.Forms.Button()
36
+        Me.Label8 = New System.Windows.Forms.Label()
37
+        Me.Label9 = New System.Windows.Forms.Label()
38
+        Me.檔案名稱_tb = New System.Windows.Forms.TextBox()
39
+        Me.Label6 = New System.Windows.Forms.Label()
40
+        Me.Label12 = New System.Windows.Forms.Label()
41
+        Me.Label13 = New System.Windows.Forms.Label()
42
+        Me.讀取料夾路徑_bt = New System.Windows.Forms.Button()
43
+        Me.本機資料夾_wb = New System.Windows.Forms.WebBrowser()
44
+        Me.伺服器FTP文件夾_wb = New System.Windows.Forms.WebBrowser()
45
+        Me.圖片顯示_vb = New System.Windows.Forms.PictureBox()
46
+        CType(Me.簽名檔人名_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
47
+        CType(Me.圖片顯示_vb, System.ComponentModel.ISupportInitialize).BeginInit()
48
+        Me.SuspendLayout()
49
+        '
50
+        'SaveFileDialog1
51
+        '
52
+        Me.SaveFileDialog1.DefaultExt = "jpg"
53
+        Me.SaveFileDialog1.SupportMultiDottedExtensions = True
54
+        Me.SaveFileDialog1.Title = "指定檔案名稱與選擇檔案路徑"
55
+        '
56
+        '檔案名稱tb
57
+        '
58
+        Me.檔案名稱tb.AllowDrop = True
59
+        Me.檔案名稱tb.ForeColor = System.Drawing.Color.Black
60
+        Me.檔案名稱tb.Location = New System.Drawing.Point(406, 512)
61
+        Me.檔案名稱tb.Multiline = True
62
+        Me.檔案名稱tb.Name = "檔案名稱tb"
63
+        Me.檔案名稱tb.Size = New System.Drawing.Size(25, 23)
64
+        Me.檔案名稱tb.TabIndex = 660
65
+        '
66
+        '刪除簽名檔_bt
67
+        '
68
+        Me.刪除簽名檔_bt.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
69
+        Me.刪除簽名檔_bt.ForeColor = System.Drawing.Color.Red
70
+        Me.刪除簽名檔_bt.Location = New System.Drawing.Point(464, 69)
71
+        Me.刪除簽名檔_bt.Name = "刪除簽名檔_bt"
72
+        Me.刪除簽名檔_bt.Size = New System.Drawing.Size(153, 30)
73
+        Me.刪除簽名檔_bt.TabIndex = 659
74
+        Me.刪除簽名檔_bt.Text = "刪除簽名檔"
75
+        Me.刪除簽名檔_bt.UseVisualStyleBackColor = True
76
+        '
77
+        'Label15
78
+        '
79
+        Me.Label15.AutoSize = True
80
+        Me.Label15.ForeColor = System.Drawing.Color.Blue
81
+        Me.Label15.Location = New System.Drawing.Point(216, 73)
82
+        Me.Label15.Name = "Label15"
83
+        Me.Label15.Size = New System.Drawing.Size(80, 16)
84
+        Me.Label15.TabIndex = 658
85
+        Me.Label15.Text = "簽名檔持有人"
86
+        '
87
+        '簽名檔持有人_cb
88
+        '
89
+        Me.簽名檔持有人_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
90
+        Me.簽名檔持有人_cb.ForeColor = System.Drawing.Color.Blue
91
+        Me.簽名檔持有人_cb.FormattingEnabled = True
92
+        Me.簽名檔持有人_cb.Location = New System.Drawing.Point(302, 70)
93
+        Me.簽名檔持有人_cb.Name = "簽名檔持有人_cb"
94
+        Me.簽名檔持有人_cb.Size = New System.Drawing.Size(140, 24)
95
+        Me.簽名檔持有人_cb.TabIndex = 657
96
+        '
97
+        '簽名檔人名_dgv
98
+        '
99
+        Me.簽名檔人名_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
100
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
101
+        Me.簽名檔人名_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
102
+        Me.簽名檔人名_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
103
+        Me.簽名檔人名_dgv.Location = New System.Drawing.Point(874, 11)
104
+        Me.簽名檔人名_dgv.Name = "簽名檔人名_dgv"
105
+        Me.簽名檔人名_dgv.RowHeadersWidth = 5
106
+        Me.簽名檔人名_dgv.RowTemplate.Height = 24
107
+        Me.簽名檔人名_dgv.Size = New System.Drawing.Size(466, 422)
108
+        Me.簽名檔人名_dgv.TabIndex = 656
109
+        '
110
+        'Label3
111
+        '
112
+        Me.Label3.AutoSize = True
113
+        Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
114
+        Me.Label3.Location = New System.Drawing.Point(10, 73)
115
+        Me.Label3.Name = "Label3"
116
+        Me.Label3.Size = New System.Drawing.Size(56, 16)
117
+        Me.Label3.TabIndex = 654
118
+        Me.Label3.Text = "圖檔編號"
119
+        '
120
+        '圖檔編號_tb
121
+        '
122
+        Me.圖檔編號_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
123
+        Me.圖檔編號_tb.Location = New System.Drawing.Point(70, 70)
124
+        Me.圖檔編號_tb.Name = "圖檔編號_tb"
125
+        Me.圖檔編號_tb.Size = New System.Drawing.Size(140, 23)
126
+        Me.圖檔編號_tb.TabIndex = 653
127
+        '
128
+        '生成圖檔編號_bt
129
+        '
130
+        Me.生成圖檔編號_bt.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
131
+        Me.生成圖檔編號_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
132
+        Me.生成圖檔編號_bt.Location = New System.Drawing.Point(464, 7)
133
+        Me.生成圖檔編號_bt.Name = "生成圖檔編號_bt"
134
+        Me.生成圖檔編號_bt.Size = New System.Drawing.Size(153, 30)
135
+        Me.生成圖檔編號_bt.TabIndex = 652
136
+        Me.生成圖檔編號_bt.Text = "生成圖檔編號"
137
+        Me.生成圖檔編號_bt.UseVisualStyleBackColor = True
138
+        '
139
+        '簽名檔入系統_bt
140
+        '
141
+        Me.簽名檔入系統_bt.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
142
+        Me.簽名檔入系統_bt.ForeColor = System.Drawing.Color.Green
143
+        Me.簽名檔入系統_bt.Location = New System.Drawing.Point(464, 38)
144
+        Me.簽名檔入系統_bt.Name = "簽名檔入系統_bt"
145
+        Me.簽名檔入系統_bt.Size = New System.Drawing.Size(153, 30)
146
+        Me.簽名檔入系統_bt.TabIndex = 651
147
+        Me.簽名檔入系統_bt.Text = "簽名檔入系統"
148
+        Me.簽名檔入系統_bt.UseVisualStyleBackColor = True
149
+        '
150
+        'Label8
151
+        '
152
+        Me.Label8.AutoSize = True
153
+        Me.Label8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
154
+        Me.Label8.ForeColor = System.Drawing.Color.Red
155
+        Me.Label8.Location = New System.Drawing.Point(114, 14)
156
+        Me.Label8.Name = "Label8"
157
+        Me.Label8.Size = New System.Drawing.Size(339, 48)
158
+        Me.Label8.TabIndex = 650
159
+        Me.Label8.Text = "1、將我的電腦內的資料拖曳到伺服器FTP文件夾。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "2、在我的電腦檔案顯示處將要上傳的檔案拖曳到檔案名稱處。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "3、確認單據內容、檔案名稱資料無誤後方可按確認入庫" &
160
+    "。"
161
+        '
162
+        'Label9
163
+        '
164
+        Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
165
+        Me.Label9.AutoSize = True
166
+        Me.Label9.Location = New System.Drawing.Point(13, 486)
167
+        Me.Label9.Name = "Label9"
168
+        Me.Label9.Size = New System.Drawing.Size(56, 16)
169
+        Me.Label9.TabIndex = 649
170
+        Me.Label9.Text = "檔案名稱"
171
+        '
172
+        '檔案名稱_tb
173
+        '
174
+        Me.檔案名稱_tb.AllowDrop = True
175
+        Me.檔案名稱_tb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
176
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
177
+        Me.檔案名稱_tb.ForeColor = System.Drawing.Color.Black
178
+        Me.檔案名稱_tb.Location = New System.Drawing.Point(75, 483)
179
+        Me.檔案名稱_tb.Name = "檔案名稱_tb"
180
+        Me.檔案名稱_tb.Size = New System.Drawing.Size(786, 23)
181
+        Me.檔案名稱_tb.TabIndex = 648
182
+        '
183
+        'Label6
184
+        '
185
+        Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
186
+        Me.Label6.AutoSize = True
187
+        Me.Label6.ForeColor = System.Drawing.Color.Red
188
+        Me.Label6.Location = New System.Drawing.Point(437, 516)
189
+        Me.Label6.Name = "Label6"
190
+        Me.Label6.Size = New System.Drawing.Size(415, 16)
191
+        Me.Label6.TabIndex = 647
192
+        Me.Label6.Text = "如檔案無法拖曳至伺服器FTP文件夾,請修改檔案名稱不要帶有中文字或是符號"
193
+        '
194
+        'Label12
195
+        '
196
+        Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
197
+        Me.Label12.AutoSize = True
198
+        Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
199
+        Me.Label12.Location = New System.Drawing.Point(8, 509)
200
+        Me.Label12.Name = "Label12"
201
+        Me.Label12.Size = New System.Drawing.Size(156, 24)
202
+        Me.Label12.TabIndex = 646
203
+        Me.Label12.Text = "伺服器FTP文件夾"
204
+        '
205
+        'Label13
206
+        '
207
+        Me.Label13.AutoSize = True
208
+        Me.Label13.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
209
+        Me.Label13.Location = New System.Drawing.Point(14, 11)
210
+        Me.Label13.Name = "Label13"
211
+        Me.Label13.Size = New System.Drawing.Size(86, 24)
212
+        Me.Label13.TabIndex = 645
213
+        Me.Label13.Text = "我的電腦"
214
+        '
215
+        '讀取料夾路徑_bt
216
+        '
217
+        Me.讀取料夾路徑_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
218
+        Me.讀取料夾路徑_bt.ForeColor = System.Drawing.Color.Blue
219
+        Me.讀取料夾路徑_bt.Location = New System.Drawing.Point(11, 35)
220
+        Me.讀取料夾路徑_bt.Name = "讀取料夾路徑_bt"
221
+        Me.讀取料夾路徑_bt.Size = New System.Drawing.Size(97, 30)
222
+        Me.讀取料夾路徑_bt.TabIndex = 644
223
+        Me.讀取料夾路徑_bt.Text = "讀取料夾路徑"
224
+        Me.讀取料夾路徑_bt.UseVisualStyleBackColor = True
225
+        '
226
+        '本機資料夾_wb
227
+        '
228
+        Me.本機資料夾_wb.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
229
+            Or System.Windows.Forms.AnchorStyles.Left) _
230
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
231
+        Me.本機資料夾_wb.Location = New System.Drawing.Point(12, 103)
232
+        Me.本機資料夾_wb.MinimumSize = New System.Drawing.Size(20, 20)
233
+        Me.本機資料夾_wb.Name = "本機資料夾_wb"
234
+        Me.本機資料夾_wb.Size = New System.Drawing.Size(852, 373)
235
+        Me.本機資料夾_wb.TabIndex = 643
236
+        Me.本機資料夾_wb.Url = New System.Uri("", System.UriKind.Relative)
237
+        '
238
+        '伺服器FTP文件夾_wb
239
+        '
240
+        Me.伺服器FTP文件夾_wb.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
241
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
242
+        Me.伺服器FTP文件夾_wb.Location = New System.Drawing.Point(15, 536)
243
+        Me.伺服器FTP文件夾_wb.MinimumSize = New System.Drawing.Size(20, 20)
244
+        Me.伺服器FTP文件夾_wb.Name = "伺服器FTP文件夾_wb"
245
+        Me.伺服器FTP文件夾_wb.Size = New System.Drawing.Size(849, 138)
246
+        Me.伺服器FTP文件夾_wb.TabIndex = 642
247
+        Me.伺服器FTP文件夾_wb.Url = New System.Uri("", System.UriKind.Relative)
248
+        '
249
+        '圖片顯示_vb
250
+        '
251
+        Me.圖片顯示_vb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
252
+        Me.圖片顯示_vb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
253
+        Me.圖片顯示_vb.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
254
+        Me.圖片顯示_vb.Location = New System.Drawing.Point(874, 440)
255
+        Me.圖片顯示_vb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
256
+        Me.圖片顯示_vb.Name = "圖片顯示_vb"
257
+        Me.圖片顯示_vb.Size = New System.Drawing.Size(466, 233)
258
+        Me.圖片顯示_vb.TabIndex = 655
259
+        Me.圖片顯示_vb.TabStop = False
260
+        '
261
+        '簽名檔管理
262
+        '
263
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
264
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
265
+        Me.ClientSize = New System.Drawing.Size(1349, 681)
266
+        Me.Controls.Add(Me.檔案名稱tb)
267
+        Me.Controls.Add(Me.刪除簽名檔_bt)
268
+        Me.Controls.Add(Me.Label15)
269
+        Me.Controls.Add(Me.簽名檔持有人_cb)
270
+        Me.Controls.Add(Me.簽名檔人名_dgv)
271
+        Me.Controls.Add(Me.圖片顯示_vb)
272
+        Me.Controls.Add(Me.Label3)
273
+        Me.Controls.Add(Me.圖檔編號_tb)
274
+        Me.Controls.Add(Me.生成圖檔編號_bt)
275
+        Me.Controls.Add(Me.簽名檔入系統_bt)
276
+        Me.Controls.Add(Me.Label8)
277
+        Me.Controls.Add(Me.Label9)
278
+        Me.Controls.Add(Me.檔案名稱_tb)
279
+        Me.Controls.Add(Me.Label6)
280
+        Me.Controls.Add(Me.Label12)
281
+        Me.Controls.Add(Me.Label13)
282
+        Me.Controls.Add(Me.讀取料夾路徑_bt)
283
+        Me.Controls.Add(Me.本機資料夾_wb)
284
+        Me.Controls.Add(Me.伺服器FTP文件夾_wb)
285
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
286
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
287
+        Me.Name = "簽名檔管理"
288
+        Me.Text = "簽名檔管理"
289
+        CType(Me.簽名檔人名_dgv, System.ComponentModel.ISupportInitialize).EndInit()
290
+        CType(Me.圖片顯示_vb, System.ComponentModel.ISupportInitialize).EndInit()
291
+        Me.ResumeLayout(False)
292
+        Me.PerformLayout()
293
+
294
+    End Sub
295
+
296
+    Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
297
+    Friend WithEvents SaveFileDialog1 As SaveFileDialog
298
+    Friend WithEvents 檔案名稱tb As TextBox
299
+    Friend WithEvents 刪除簽名檔_bt As Button
300
+    Friend WithEvents Label15 As Label
301
+    Friend WithEvents 簽名檔持有人_cb As ComboBox
302
+    Friend WithEvents 簽名檔人名_dgv As DataGridView
303
+    Friend WithEvents 圖片顯示_vb As PictureBox
304
+    Friend WithEvents Label3 As Label
305
+    Friend WithEvents 圖檔編號_tb As TextBox
306
+    Friend WithEvents 生成圖檔編號_bt As Button
307
+    Friend WithEvents 簽名檔入系統_bt As Button
308
+    Friend WithEvents Label8 As Label
309
+    Friend WithEvents Label9 As Label
310
+    Friend WithEvents 檔案名稱_tb As TextBox
311
+    Friend WithEvents Label6 As Label
312
+    Friend WithEvents Label12 As Label
313
+    Friend WithEvents Label13 As Label
314
+    Friend WithEvents 讀取料夾路徑_bt As Button
315
+    Friend WithEvents 本機資料夾_wb As WebBrowser
316
+    Friend WithEvents 伺服器FTP文件夾_wb As WebBrowser
317
+End Class

+ 129
- 0
YD-ERP-SYS/資料庫系統管理/簽名檔管理.resx 파일 보기

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

+ 163
- 0
YD-ERP-SYS/資料庫系統管理/簽名檔管理.vb 파일 보기

@@ -0,0 +1,163 @@
1
+Option Explicit On
2
+Imports System.Net
3
+Imports System.IO
4
+Imports System.Data.SqlClient
5
+Public Class 簽名檔管理
6
+    Public Property Credentials As ICredentials
7
+    ReadOnly ds As New DataSet
8
+    ReadOnly ds1 As New DataSet
9
+    Dim EDR As Integer = 0 : Dim ESTR As String
10
+    Private Sub Set_DGV1載入前設定()
11
+        簽名檔人名_dgv.DataSource = Nothing : ds.Clear()
12
+        簽名檔人名_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
13
+        簽名檔人名_dgv.ColumnHeadersHeight = 25
14
+        簽名檔人名_dgv.AllowUserToAddRows = False
15
+        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
16
+    End Sub
17
+    Private Sub Set_DGV1載入後設定()
18
+        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : 簽名檔人名_dgv.DataSource = ds.Tables(0) : conn.Close()
19
+        Set_grid()
20
+    End Sub
21
+    Private Sub Set_清單()
22
+        Set_DGV1載入前設定()
23
+        SQL_簽名檔管理_圖片流水號查詢()
24
+        Set_DGV1載入後設定()
25
+    End Sub
26
+    Private Sub Set_grid()
27
+        簽名檔人名_dgv.Columns(0).FillWeight = 221 : 簽名檔人名_dgv.Columns(1).FillWeight = 220
28
+    End Sub
29
+    Private Sub ComboBox1下拉表單資料載入()
30
+        conn.Close()
31
+        SQL_簽名檔管理_使用者權限管理表姓名查詢()
32
+        簽名檔持有人_cb.Items.Clear()
33
+        While (dr.Read()) : 簽名檔持有人_cb.Items.Add(dr("姓名")) : End While
34
+        conn.Close()
35
+    End Sub
36
+    Private Sub 簽名檔管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
37
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
38
+        Set_清單() : 檔案名稱tb.Visible = False
39
+        ComboBox1下拉表單資料載入()
40
+        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
41
+            本機資料夾_wb.Navigate(FolderBrowserDialog1.SelectedPath)
42
+        End If
43
+        Target1 = Target & AA(1) & "/"
44
+        伺服器FTP文件夾_wb.Url = New Uri(Target1)
45
+    End Sub
46
+    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 簽名檔人名_dgv.CellClick
47
+        If e.RowIndex = -1 Then : Else
48
+            圖檔編號_tb.Text = 簽名檔人名_dgv(0, e.RowIndex).Value.ToString : 簽名檔持有人_cb.Text = 簽名檔人名_dgv(1, e.RowIndex).Value.ToString
49
+            SQL_簽名檔管理_主管簽名檔查詢()
50
+            While dr.Read() = True
51
+                Dim unused As Byte() = New Byte(-1) {}
52
+                Dim bytes As Byte() = DirectCast(dr.Item("簽名檔圖片"), Byte())
53
+                Dim oStream As New MemoryStream(bytes)
54
+                圖片顯示_vb.Image = Bitmap.FromStream(oStream)
55
+            End While
56
+            conn.Close()
57
+            圖片顯示_vb.SizeMode = 4
58
+        End If
59
+    End Sub
60
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 簽名檔入系統_bt.Click
61
+        If 圖檔編號_tb.Text = "" Then
62
+            MsgBox("請先將要入庫的編號準備好")
63
+        Else
64
+            If 檔案名稱_tb.Text = "" Then
65
+                MsgBox("請先確定圖片資料已準備完畢")
66
+            Else
67
+                SQL_簽名檔管理_主管簽名檔新增() : conn.Close()
68
+                '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
69
+                Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
70
+                frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest)
71
+                fcr = New NetworkCredential(FTP帳號, FTP密碼)
72
+                frq.Credentials = fcr
73
+                frq.Method = WebRequestMethods.Ftp.DeleteFile
74
+                frq.UseBinary = True
75
+                frp = CType(frq.GetResponse, FtpWebResponse)
76
+                frp.Close()
77
+                伺服器FTP文件夾_wb.Refresh()
78
+                '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
79
+                檔案名稱_tb.Text = ""
80
+                SQL_簽名檔管理_主管簽名檔查詢()
81
+                While dr.Read() = True
82
+                    Dim unused As Byte() = New Byte(-1) {}
83
+                    Dim bytes As Byte() = DirectCast(dr.Item("簽名檔圖片"), Byte())
84
+                    Dim oStream As New MemoryStream(bytes)
85
+                    圖片顯示_vb.Image = Bitmap.FromStream(oStream)
86
+                End While
87
+                conn.Close()
88
+                圖片顯示_vb.SizeMode = 4
89
+                Set_清單() : 圖檔編號_tb.Text = ""
90
+            End If
91
+        End If
92
+    End Sub
93
+    Private Sub 生成圖檔編號_bt_Click(sender As Object, e As EventArgs) Handles 生成圖檔編號_bt.Click
94
+        SQL_簽名檔管理_主管簽名檔最後一筆查詢()
95
+        If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("圖片流水號").ToString, 8)) : Else : EDR = 0 : End If
96
+        conn.Close()
97
+        EDR += 1
98
+        If EDR < 10 Then : ESTR = "PG" & "0000000" & EDR
99
+        ElseIf EDR > 9 And EDR < 100 Then : ESTR = "PG" & "000000" & EDR
100
+        ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "PG" & "00000" & EDR
101
+        ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "PG" & "0000" & EDR
102
+        ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "PG" & "000" & EDR
103
+        ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "PG" & "00" & EDR
104
+        ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "PG" & "0" & EDR
105
+        ElseIf EDR > 9999999 Then : ESTR = "PG" & EDR
106
+        End If
107
+        圖檔編號_tb.Text = ESTR
108
+    End Sub
109
+    Private Sub 檔案名稱_tb_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
110
+        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
111
+            Dim files As String()
112
+            Try
113
+                files = CType(e.Data.GetData(DataFormats.FileDrop), String())
114
+                檔案名稱_tb.Text = files(files.Length - 1)
115
+            Catch ex As Exception
116
+                MessageBox.Show(ex.Message)
117
+                Return
118
+            End Try
119
+        End If
120
+
121
+        Dim STR2 As Integer = 0
122
+        檔案名稱tb.Text = 檔案名稱_tb.Text
123
+        If 檔案名稱_tb.Text = "" Then
124
+        Else
125
+            For i As Integer = 0 To 9999
126
+                Dim STR1 As Integer = Strings.Len(檔案名稱tb.Text)
127
+                If Strings.Right((檔案名稱tb.Text), 1) <> "\" Then
128
+                    STR1 -= 1 : STR2 += 1
129
+                    If STR1 = 0 Then
130
+                        檔案名稱tb.Text = ""
131
+                        檔案名稱_tb.Text = ""
132
+                        i = 9999
133
+                    Else
134
+                        檔案名稱tb.Text = Strings.Left((檔案名稱tb.Text), STR1)
135
+                    End If
136
+                Else
137
+                    檔案名稱tb.Text = Strings.Right((檔案名稱_tb.Text), STR2)
138
+                    檔案名稱_tb.Text = 檔案名稱tb.Text
139
+                    i = 9999
140
+                End If
141
+            Next
142
+        End If
143
+    End Sub
144
+    Private Sub 檔案名稱_tb_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles 檔案名稱_tb.DragDrop
145
+        Dim files As Array = e.Data.GetData(DataFormats.FileDrop)
146
+        For Each file As String In files
147
+            檔案名稱_tb.AppendText(file + Environment.NewLine)
148
+        Next
149
+    End Sub
150
+    Private Sub 刪除簽名檔_bt_Click(sender As Object, e As EventArgs) Handles 刪除簽名檔_bt.Click
151
+        Dim aa As MsgBoxResult
152
+        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
153
+        If aa = MsgBoxResult.Ok Then
154
+            SQL_簽名檔管理_主管簽名檔刪除()
155
+            Set_清單() : 圖檔編號_tb.Text = ""
156
+        End If
157
+    End Sub
158
+    Private Sub 讀取料夾路徑_bt_Click(sender As Object, e As EventArgs) Handles 讀取料夾路徑_bt.Click
159
+        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
160
+            本機資料夾_wb.Navigate(FolderBrowserDialog1.SelectedPath)
161
+        End If
162
+    End Sub
163
+End Class

+ 113
- 15
YD-ERP-SYS/資料庫系統管理/系統編碼規則.Designer.vb 파일 보기

@@ -22,11 +22,12 @@ Partial Class 系統編碼規則
22 22
     '請勿使用程式碼編輯器進行修改。
23 23
     <System.Diagnostics.DebuggerStepThrough()> _
24 24
     Private Sub InitializeComponent()
25
-        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
26
-        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
27
-        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
28
-        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
29
-        Dim DataGridViewCellStyle20 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()
28
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
29
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
30
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
30 31
         Me.Label3 = New System.Windows.Forms.Label()
31 32
         Me.GroupBox2 = New System.Windows.Forms.GroupBox()
32 33
         Me.級別修改_bt = New System.Windows.Forms.Button()
@@ -76,6 +77,13 @@ Partial Class 系統編碼規則
76 77
         Me.送貨新增_bt = New System.Windows.Forms.Button()
77 78
         Me.送貨刪除_bt = New System.Windows.Forms.Button()
78 79
         Me.地點_tb = New System.Windows.Forms.TextBox()
80
+        Me.GroupBox6 = New System.Windows.Forms.GroupBox()
81
+        Me.年份_dgv = New System.Windows.Forms.DataGridView()
82
+        Me.年份_修改_bt = New System.Windows.Forms.Button()
83
+        Me.Label12 = New System.Windows.Forms.Label()
84
+        Me.年份_新增_bt = New System.Windows.Forms.Button()
85
+        Me.年份_刪除_bt = New System.Windows.Forms.Button()
86
+        Me.年份_tb = New System.Windows.Forms.TextBox()
79 87
         Me.GroupBox2.SuspendLayout()
80 88
         CType(Me.職稱_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
81 89
         Me.GroupBox1.SuspendLayout()
@@ -86,6 +94,8 @@ Partial Class 系統編碼規則
86 94
         CType(Me.料定狀態_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
87 95
         Me.GroupBox5.SuspendLayout()
88 96
         CType(Me.送貨運費_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
97
+        Me.GroupBox6.SuspendLayout()
98
+        CType(Me.年份_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
89 99
         Me.SuspendLayout()
90 100
         '
91 101
         'Label3
@@ -149,8 +159,8 @@ Partial Class 系統編碼規則
149 159
         '
150 160
         '職稱_dgv
151 161
         '
152
-        DataGridViewCellStyle16.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
153
-        Me.職稱_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
162
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
163
+        Me.職稱_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
154 164
         Me.職稱_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
155 165
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
156 166
         Me.職稱_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -249,8 +259,8 @@ Partial Class 系統編碼規則
249 259
         '
250 260
         '地區碼_dgv
251 261
         '
252
-        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
253
-        Me.地區碼_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
262
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
263
+        Me.地區碼_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
254 264
         Me.地區碼_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
255 265
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
256 266
         Me.地區碼_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -349,8 +359,8 @@ Partial Class 系統編碼規則
349 359
         '
350 360
         '倉儲狀態_dgv
351 361
         '
352
-        DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
353
-        Me.倉儲狀態_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18
362
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
363
+        Me.倉儲狀態_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
354 364
         Me.倉儲狀態_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
355 365
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
356 366
         Me.倉儲狀態_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -446,8 +456,8 @@ Partial Class 系統編碼規則
446 456
         '
447 457
         '料定狀態_dgv
448 458
         '
449
-        DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
450
-        Me.料定狀態_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
459
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
460
+        Me.料定狀態_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
451 461
         Me.料定狀態_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
452 462
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
453 463
         Me.料定狀態_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -561,8 +571,8 @@ Partial Class 系統編碼規則
561 571
         '
562 572
         '送貨運費_dgv
563 573
         '
564
-        DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
565
-        Me.送貨運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
574
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
575
+        Me.送貨運費_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
566 576
         Me.送貨運費_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
567 577
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
568 578
         Me.送貨運費_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -623,11 +633,89 @@ Partial Class 系統編碼規則
623 633
         Me.地點_tb.Size = New System.Drawing.Size(88, 23)
624 634
         Me.地點_tb.TabIndex = 227
625 635
         '
636
+        'GroupBox6
637
+        '
638
+        Me.GroupBox6.Controls.Add(Me.年份_dgv)
639
+        Me.GroupBox6.Controls.Add(Me.年份_修改_bt)
640
+        Me.GroupBox6.Controls.Add(Me.Label12)
641
+        Me.GroupBox6.Controls.Add(Me.年份_新增_bt)
642
+        Me.GroupBox6.Controls.Add(Me.年份_刪除_bt)
643
+        Me.GroupBox6.Controls.Add(Me.年份_tb)
644
+        Me.GroupBox6.Location = New System.Drawing.Point(1224, 39)
645
+        Me.GroupBox6.Name = "GroupBox6"
646
+        Me.GroupBox6.Size = New System.Drawing.Size(99, 356)
647
+        Me.GroupBox6.TabIndex = 681
648
+        Me.GroupBox6.TabStop = False
649
+        Me.GroupBox6.Text = "報表及對帳單年份清單"
650
+        '
651
+        '年份_dgv
652
+        '
653
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
654
+        Me.年份_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
655
+        Me.年份_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
656
+        Me.年份_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
657
+        Me.年份_dgv.Location = New System.Drawing.Point(6, 133)
658
+        Me.年份_dgv.Name = "年份_dgv"
659
+        Me.年份_dgv.RowHeadersWidth = 5
660
+        Me.年份_dgv.RowTemplate.Height = 24
661
+        Me.年份_dgv.Size = New System.Drawing.Size(86, 217)
662
+        Me.年份_dgv.TabIndex = 222
663
+        '
664
+        '年份_修改_bt
665
+        '
666
+        Me.年份_修改_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
667
+        Me.年份_修改_bt.ForeColor = System.Drawing.Color.DarkGreen
668
+        Me.年份_修改_bt.Location = New System.Drawing.Point(6, 82)
669
+        Me.年份_修改_bt.Name = "年份_修改_bt"
670
+        Me.年份_修改_bt.Size = New System.Drawing.Size(86, 25)
671
+        Me.年份_修改_bt.TabIndex = 224
672
+        Me.年份_修改_bt.Text = "修改"
673
+        Me.年份_修改_bt.UseVisualStyleBackColor = True
674
+        '
675
+        'Label12
676
+        '
677
+        Me.Label12.AutoSize = True
678
+        Me.Label12.Location = New System.Drawing.Point(4, 35)
679
+        Me.Label12.Name = "Label12"
680
+        Me.Label12.Size = New System.Drawing.Size(32, 16)
681
+        Me.Label12.TabIndex = 229
682
+        Me.Label12.Text = "年份"
683
+        '
684
+        '年份_新增_bt
685
+        '
686
+        Me.年份_新增_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
687
+        Me.年份_新增_bt.ForeColor = System.Drawing.Color.Blue
688
+        Me.年份_新增_bt.Location = New System.Drawing.Point(6, 56)
689
+        Me.年份_新增_bt.Name = "年份_新增_bt"
690
+        Me.年份_新增_bt.Size = New System.Drawing.Size(86, 25)
691
+        Me.年份_新增_bt.TabIndex = 223
692
+        Me.年份_新增_bt.Text = "新增"
693
+        Me.年份_新增_bt.UseVisualStyleBackColor = True
694
+        '
695
+        '年份_刪除_bt
696
+        '
697
+        Me.年份_刪除_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
698
+        Me.年份_刪除_bt.ForeColor = System.Drawing.Color.Red
699
+        Me.年份_刪除_bt.Location = New System.Drawing.Point(6, 107)
700
+        Me.年份_刪除_bt.Name = "年份_刪除_bt"
701
+        Me.年份_刪除_bt.Size = New System.Drawing.Size(86, 25)
702
+        Me.年份_刪除_bt.TabIndex = 225
703
+        Me.年份_刪除_bt.Text = "刪除"
704
+        Me.年份_刪除_bt.UseVisualStyleBackColor = True
705
+        '
706
+        '年份_tb
707
+        '
708
+        Me.年份_tb.Location = New System.Drawing.Point(37, 32)
709
+        Me.年份_tb.Name = "年份_tb"
710
+        Me.年份_tb.Size = New System.Drawing.Size(55, 23)
711
+        Me.年份_tb.TabIndex = 227
712
+        '
626 713
         '系統編碼規則
627 714
         '
628 715
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
629 716
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
630 717
         Me.ClientSize = New System.Drawing.Size(1490, 681)
718
+        Me.Controls.Add(Me.GroupBox6)
631 719
         Me.Controls.Add(Me.GroupBox5)
632 720
         Me.Controls.Add(Me.GroupBox4)
633 721
         Me.Controls.Add(Me.GroupBox3)
@@ -653,6 +741,9 @@ Partial Class 系統編碼規則
653 741
         Me.GroupBox5.ResumeLayout(False)
654 742
         Me.GroupBox5.PerformLayout()
655 743
         CType(Me.送貨運費_dgv, System.ComponentModel.ISupportInitialize).EndInit()
744
+        Me.GroupBox6.ResumeLayout(False)
745
+        Me.GroupBox6.PerformLayout()
746
+        CType(Me.年份_dgv, System.ComponentModel.ISupportInitialize).EndInit()
656 747
         Me.ResumeLayout(False)
657 748
         Me.PerformLayout()
658 749
 
@@ -707,4 +798,11 @@ Partial Class 系統編碼規則
707 798
     Friend WithEvents 送貨新增_bt As Button
708 799
     Friend WithEvents 送貨刪除_bt As Button
709 800
     Friend WithEvents 地點_tb As TextBox
801
+    Friend WithEvents GroupBox6 As GroupBox
802
+    Friend WithEvents 年份_dgv As DataGridView
803
+    Friend WithEvents 年份_修改_bt As Button
804
+    Friend WithEvents Label12 As Label
805
+    Friend WithEvents 年份_新增_bt As Button
806
+    Friend WithEvents 年份_刪除_bt As Button
807
+    Friend WithEvents 年份_tb As TextBox
710 808
 End Class

+ 40
- 5
YD-ERP-SYS/資料庫系統管理/系統編碼規則.vb 파일 보기

@@ -1,5 +1,5 @@
1 1
 Public Class 系統編碼規則
2
-    ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet : ReadOnly ds5 As New DataSet
2
+    ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet : ReadOnly ds5 As New DataSet : ReadOnly ds6 As New DataSet
3 3
     Dim 首次開啟 As Boolean = False : Dim EDR As Integer = 0 : Dim ESTR As String
4 4
     Private Sub Set_運費參數()
5 5
         送貨運費_dgv.DataSource = Nothing : ds5.Clear() : 送貨運費_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
@@ -15,6 +15,15 @@
15 15
         送貨運費_dgv.Columns("最低售額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
16 16
         送貨運費_dgv.Columns("最低售額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
17 17
     End Sub
18
+    Private Sub Set_年度清單()
19
+        年份_dgv.DataSource = Nothing : ds6.Clear()
20
+        年份_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
21
+        年份_dgv.ColumnHeadersHeight = 25
22
+        年份_dgv.AllowUserToAddRows = False
23
+        SQL_年份清單()
24
+        da.Fill(ds6) : 年份_dgv.DataSource = ds6.Tables(0) : conn.Close()
25
+        年份_dgv.Columns(0).FillWeight = 100
26
+    End Sub
18 27
     Private Sub Set_物料訂製()
19 28
         料定狀態_dgv.DataSource = Nothing : ds4.Clear() : 料定狀態_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
20 29
         料定狀態_dgv.ColumnHeadersHeight = 25
@@ -51,9 +60,7 @@
51 60
         Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
52 61
         訂製編碼_tb.Enabled = False
53 62
 
54
-        首次開啟 = False
55
-        Set_職稱清單() : Set_地區碼清單() : Set_倉儲狀態() : Set_物料訂製() : Set_運費參數()
56
-        首次開啟 = True
63
+        首次開啟 = False : 式共用1() : 首次開啟 = True
57 64
     End Sub
58 65
     Private Sub 送貨運費_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 送貨運費_dgv.CellEnter
59 66
         If 首次開啟 = True Then
@@ -93,6 +100,13 @@
93 100
             End If
94 101
         End If
95 102
     End Sub
103
+    Private Sub 年份_dgv_CellContentClick(sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 年份_dgv.CellEnter
104
+        If 首次開啟 = True Then
105
+            If e.RowIndex = -1 Then : Else
106
+                年份_tb.Text = 年份_dgv(0, e.RowIndex).Value.ToString
107
+            End If
108
+        End If
109
+    End Sub
96 110
     Private Sub SET_新增按鈕程式共用2()
97 111
         CmdSet_For_dr() : MsgBox("新增完成") : conn.Close() : dr.Close()
98 112
     End Sub
@@ -110,7 +124,7 @@
110 124
         式共用1()
111 125
     End Sub
112 126
     Private Sub 式共用1()
113
-        Set_職稱清單() : Set_地區碼清單() : Set_倉儲狀態() : Set_物料訂製() : Set_運費參數()
127
+        Set_職稱清單() : Set_地區碼清單() : Set_倉儲狀態() : Set_物料訂製() : Set_運費參數() : Set_年度清單()
114 128
     End Sub
115 129
     Private Sub 式共用2()
116 130
         dr.Close() : ConnOpen()
@@ -273,4 +287,25 @@
273 287
     Private Sub 送貨刪除_bt_Click(sender As Object, e As EventArgs) Handles 送貨刪除_bt.Click
274 288
         SQL_系統編碼規則_送貨起車參數製刪除() : SET_刪除按鈕程式共用1()
275 289
     End Sub
290
+    '------------------------------------------------------------------------------------------------------------------------------------
291
+    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles 年份_新增_bt.Click
292
+        If 年份_tb.Text = "" Then : MsgBox("資料有缺或有誤,請重新檢查")
293
+        Else
294
+            PA = 年份_tb.Text : SQL_年份清單查詢()
295
+            If dr.Read() Then : MsgBox("資料重複,請從新輸入或檢查") : conn.Close() : dr.Close()
296
+            Else : 式共用2() : SQL_年份清單新增() : SET_新增按鈕程式共用2() : End If
297
+        End If : 式共用1()
298
+    End Sub
299
+    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles 年份_修改_bt.Click
300
+        If 年份_tb.Text = "" Then : MsgBox("資料有缺或有誤,請重新檢查")
301
+        Else
302
+            PA = InputBox("請輸入要修改的內容")
303
+            If PA = "" Then : MsgBox("沒有輸入修改內容")
304
+            Else : 式共用3() : SQL_年份清單修改() : SET_修改按鈕程式共用1() : End If
305
+        End If : 式共用1()
306
+    End Sub
307
+    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles 年份_刪除_bt.Click
308
+        SQL_年份清單刪除() : SET_刪除按鈕程式共用1()
309
+    End Sub
310
+
276 311
 End Class

Loading…
취소
저장