GA-ERP-SYS
/
GA-ERP-SYS-LEEHSIEHJUI
İzle 4
Yıldızla 0
Çatalla 0
Kod Sorunlar 0 Değişiklik İstekleri 0 Sürümler 0 Wiki Aktivite
Kaynağa Gözat

20230415備份

B70340 2 yıl önce
ebeveyn
7063f58df6
işleme
7809b30828
28 değiştirilmiş dosya ile 320 ekleme ve 205 silme
Görünümü Böl Farklılık Durumunu Göster
  1. BIN
      .vs/GA-ERP-SYS/FileContentIndex/1c5605e3-125e-47ce-91f4-f7bcd34f7e28.vsidx
  2. BIN
      .vs/GA-ERP-SYS/FileContentIndex/294d9360-872a-4080-9af3-56e9fda8a6a7.vsidx
  3. BIN
      .vs/GA-ERP-SYS/FileContentIndex/29d142fd-a653-43a9-80b8-1280daeff87b.vsidx
  4. BIN
      .vs/GA-ERP-SYS/FileContentIndex/3ccc6225-0395-4afd-8a54-d0d6959c9a6b.vsidx
  5. BIN
      .vs/GA-ERP-SYS/FileContentIndex/6a586aaa-13cd-4365-9959-20a2aae5a0a0.vsidx
  6. BIN
      .vs/GA-ERP-SYS/v17/.suo
  7. 7
    5
      GA-ERP-SYS/Module/SQL_子系統管理.vb
  8. 1
    1
      GA-ERP-SYS/Module/全域變數.vb
  9. 0
    0
      GA-ERP-SYS/bin/Debug/B.txt
  10. BIN
      GA-ERP-SYS/bin/Debug/GA-ERP-SYS.exe
  11. BIN
      GA-ERP-SYS/bin/Debug/GA-ERP-SYS.pdb
  12. BIN
      GA-ERP-SYS/bin/Debug/Verify.exe
  13. BIN
      GA-ERP-SYS/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
  14. BIN
      GA-ERP-SYS/obj/Debug/GA-ERP-SYS.exe
  15. BIN
      GA-ERP-SYS/obj/Debug/GA-ERP-SYS.pdb
  16. 53
    53
      GA-ERP-SYS/obj/Debug/GA-ERP-SYS.vbproj.FileListAbsolute.txt
  17. BIN
      GA-ERP-SYS/obj/Debug/GA-ERP-SYS.vbproj.GenerateResource.cache
  18. BIN
      GA-ERP-SYS/obj/Debug/GA-ERP-SYS.vbproj.ResolveComReference.cache
  19. BIN
      GA-ERP-SYS/obj/Debug/GA_ERP_SYS.系統公告.resources
  20. 22
    4
      GA-ERP-SYS/基本資料管理/前台/電板基本資料.vb
  21. 22
    4
      GA-ERP-SYS/基本資料管理/後台/後台基本資料.vb
  22. 17
    1
      GA-ERP-SYS/報表系統管理/前台/電板LOG檔.vb
  23. 51
    12
      GA-ERP-SYS/報表系統管理/前台/電板帳務彙總計算表.Designer.vb
  24. 1
    0
      GA-ERP-SYS/報表系統管理/前台/電板帳務彙總計算表.vb
  25. 1
    1
      GA-ERP-SYS/報表系統管理/後台/後台帳務彙總結算表.Designer.vb
  26. 132
    120
      GA-ERP-SYS/報表系統管理/後台/後台帳務彙總結算表.vb
  27. 3
    3
      GA-ERP-SYS/特殊操作功能/系統公告.Designer.vb
  28. 10
    1
      GA-ERP-SYS/特殊操作功能/系統公告.resx

BIN
.vs/GA-ERP-SYS/FileContentIndex/1c5605e3-125e-47ce-91f4-f7bcd34f7e28.vsidx Dosyayı Görüntüle


BIN
.vs/GA-ERP-SYS/FileContentIndex/294d9360-872a-4080-9af3-56e9fda8a6a7.vsidx Dosyayı Görüntüle


BIN
.vs/GA-ERP-SYS/FileContentIndex/29d142fd-a653-43a9-80b8-1280daeff87b.vsidx Dosyayı Görüntüle


BIN
.vs/GA-ERP-SYS/FileContentIndex/3ccc6225-0395-4afd-8a54-d0d6959c9a6b.vsidx Dosyayı Görüntüle


BIN
.vs/GA-ERP-SYS/FileContentIndex/6a586aaa-13cd-4365-9959-20a2aae5a0a0.vsidx Dosyayı Görüntüle


BIN
.vs/GA-ERP-SYS/v17/.suo Dosyayı Görüntüle


+ 7
- 5
GA-ERP-SYS/Module/SQL_子系統管理.vb Dosyayı Görüntüle 

@@ -1878,11 +1878,13 @@ FROM 流水帳"
1878 1878 
     End Sub
1879 1879 
     Friend Sub SQL_後台彙總讀取5()
1880 1880 
         ConnOpen_子SQL()
1881 
-        SQL1 = "SELECT      後台彙總存檔.商品 AS 項次, 後台彙總存檔.商品, 後台彙總存檔.系統, SUM(CAST(後台彙總存檔.排序 AS money))
1882 
-                            AS [貢獻度-日], SUM(CAST(後台彙總存檔.排序 AS money)) AS [結果-日], SUM(CAST(後台彙總存檔.排序 AS money))
1883 
-                            AS [貢獻度-周], SUM(CAST(後台彙總存檔.排序 AS money)) AS [結果-周], SUM(CAST(後台彙總存檔.排序 AS money))
1884 
-                            AS [貢獻度-月], SUM(CAST(後台彙總存檔.排序 AS money)) AS [結果-月], SUM(CAST(後台彙總存檔.排序 AS money))
1885 
-                            AS [結果-年]
1881 
+        SQL1 = "SELECT      後台彙總存檔.商品 AS 項次, 後台彙總存檔.商品 AS [商品 (元)], 後台彙總存檔.系統, 後台彙總存檔.商品 AS [貢獻度-日], 後台彙總存檔.商品 AS [結果-日],
1882 
+                            後台彙總存檔.商品 AS [貢獻度-周], 後台彙總存檔.商品 AS [結果-周], 後台彙總存檔.商品 AS [貢獻度-月], 後台彙總存檔.商品 AS [結果-月],
1883 
+                            後台彙總存檔.商品 AS [貢獻度-年], 後台彙總存檔.商品 AS [結果-年], SUM(CAST(後台彙總存檔.排序 AS money)) AS [貢獻度-日1],
1884 
+                            SUM(CAST(後台彙總存檔.排序 AS money)) AS [結果-日1], SUM(CAST(後台彙總存檔.排序 AS money)) AS [貢獻度-周1],
1885 
+                            SUM(CAST(後台彙總存檔.排序 AS money)) AS [結果-周1], SUM(CAST(後台彙總存檔.排序 AS money)) AS [貢獻度-月1],
1886 
+                            SUM(CAST(後台彙總存檔.排序 AS money)) AS [結果-月1], SUM(CAST(後台彙總存檔.貢獻額 AS money)) AS [貢獻度-年1],
1887 
+                            SUM(CAST(後台彙總存檔.排序 AS money)) AS [結果-年1]
1886 1888 
                 FROM        後台彙總存檔 LEFT OUTER JOIN
1887 1889 
                             後台商客基本資料表 ON 後台彙總存檔.帳號 = 後台商客基本資料表.帳號 AND
1888 1890 
                             後台彙總存檔.商品 = 後台商客基本資料表.商品

+ 1
- 1
GA-ERP-SYS/Module/全域變數.vb Dosyayı Görüntüle 

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

+ 0
- 0
GA-ERP-SYS/bin/Debug/B.txt Dosyayı Görüntüle


BIN
GA-ERP-SYS/bin/Debug/GA-ERP-SYS.exe Dosyayı Görüntüle


BIN
GA-ERP-SYS/bin/Debug/GA-ERP-SYS.pdb Dosyayı Görüntüle


BIN
GA-ERP-SYS/bin/Debug/Verify.exe Dosyayı Görüntüle


BIN
GA-ERP-SYS/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache Dosyayı Görüntüle


BIN
GA-ERP-SYS/obj/Debug/GA-ERP-SYS.exe Dosyayı Görüntüle


BIN
GA-ERP-SYS/obj/Debug/GA-ERP-SYS.pdb Dosyayı Görüntüle


+ 53
- 53
GA-ERP-SYS/obj/Debug/GA-ERP-SYS.vbproj.FileListAbsolute.txt Dosyayı Görüntüle 

@@ -176,56 +176,6 @@ D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.測試.resources
176 176 
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.下拉清單_1.resources
177 177 
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.網址整合功能.resources
178 178 
 D:\工巧明\GA\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.空白帳戶設定.resources
179 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.exe.config
180 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.exe
181 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.pdb
182 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.xml
183 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\DocumentFormat.OpenXml.dll
184 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\itextsharp.dll
185 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\DocumentFormat.OpenXml.xml
186 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.ResolveComReference.cache
187 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.下拉清單_1.resources
188 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.網址帳號驗證中.resources
189 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板客戶名稱編輯器.resources
190 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.PDF列印預覽2.resources
191 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.列印選擇.resources
192 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.設定異常表.resources
193 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.進度條視窗.resources
194 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板紙板帳務設定.resources
195 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統公告.resources
196 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.錯誤排除手冊.resources
197 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.GA_ERP_SYS.resources
198 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.LoginForm1.resources
199 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.Resources.resources
200 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.SplashScreen1.resources
201 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.USB_KEY_指定.resources
202 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.商客資料導入.resources
203 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板基本資料.resources
204 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.流水帳手動輸入.resources
205 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.流水帳自動導入.resources
206 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.FTP資料夾管理.resources
207 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.人員ID卡系統配置設定.resources
208 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.個人帳號管理.resources
209 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.PY執行錯誤LOG檔.resources
210 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.PDF列印預覽1.resources
211 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.測試.resources
212 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.租用者帳務表.resources
213 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統使用者管理.resources
214 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統執行檔版本管理.resources
215 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統編碼規則.resources
216 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統通用變數管理.resources
217 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.網址整合功能.resources
218 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.計算機.resources
219 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.資料備份轉移.resources
220 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板股東紅利設定.resources
221 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.輸入密碼.resources
222 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.GenerateResource.cache
223 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.CoreCompileInputs.cache
224 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.CopyComplete
225 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.exe
226 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.xml
227 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.pdb
228 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.AssemblyReference.cache
229 179 
 D:\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.exe.config
230 180 
 D:\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.exe
231 181 
 D:\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.pdb
 
@@ -357,14 +307,31 @@ C:\Users\USER\Downloads\GA-ERP-SYS-Bowei-master\ga-erp-sys-bowei\GA-ERP-SYS\obj\
357 307 
 C:\Users\USER\Downloads\GA-ERP-SYS-Bowei-master\ga-erp-sys-bowei\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.後台LOG檔.resources
358 308 
 C:\Users\USER\Downloads\GA-ERP-SYS-Bowei-master\ga-erp-sys-bowei\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.後台客戶資料.resources
359 309 
 C:\Users\USER\Downloads\GA-ERP-SYS-Bowei-master\ga-erp-sys-bowei\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.後台帳號資料.resources
310 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.exe.config
311 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.exe
312 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.pdb
313 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\GA-ERP-SYS.xml
314 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\DocumentFormat.OpenXml.dll
315 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\itextsharp.dll
316 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\bin\Debug\DocumentFormat.OpenXml.xml
317 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.AssemblyReference.cache
360 318 
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.SuggestedBindingRedirects.cache
319 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.ResolveComReference.cache
320 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.下拉清單_1.resources
361 321 
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.後台基本資料.resources
362 322 
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.後台客戶名稱編輯器.resources
323 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.網址帳號驗證中.resources
324 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板客戶名稱編輯器.resources
325 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.PDF列印預覽2.resources
326 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.列印選擇.resources
327 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.彙總報表預覽.resources
328 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.紙板帳務.resources
363 329 
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板客戶資料.resources
364 330 
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板帳號資料.resources
365 331 
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板帳務明細查詢表.resources
366 332 
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.後台LOG檔.resources
367 333 
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.後台客戶資料.resources
334 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.後台帳務彙總結算表.resources
368 335 
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.後台帳務彙總計算表.resources
369 336 
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.後台帳務明細查詢表.resources
370 337 
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.後台帳號資料.resources
 
@@ -372,9 +339,42 @@ D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.後台
372 339 
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.後台紙板帳務設定.resources
373 340 
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.後台股東紅利設定.resources
374 341 
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板空白帳戶設定.resources
342 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.設定異常表.resources
343 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.進度條視窗.resources
344 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板紙板帳務設定.resources
345 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統公告.resources
346 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.錯誤排除手冊.resources
375 347 
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板LOG檔.resources
376 348 
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板帳務彙總計算表.resources
377 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.後台帳務彙總結算表.resources
349 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.GA_ERP_SYS.resources
350 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.LoginForm1.resources
351 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.Resources.resources
352 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.SplashScreen1.resources
353 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.USB_KEY_指定.resources
354 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.商客資料導入.resources
355 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板基本資料.resources
356 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.流水帳手動輸入.resources
357 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.流水帳自動導入.resources
358 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.FTP資料夾管理.resources
359 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.人員ID卡系統配置設定.resources
360 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.個人帳號管理.resources
361 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.PY執行錯誤LOG檔.resources
362 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.PDF列印預覽1.resources
378 363 
 D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.內網選擇.resources
379 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.彙總報表預覽.resources
380 
-D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.紙板帳務.resources
364 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.測試.resources
365 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.租用者帳務表.resources
366 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統使用者管理.resources
367 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統執行檔版本管理.resources
368 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統編碼規則.resources
369 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.系統通用變數管理.resources
370 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.網址整合功能.resources
371 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.計算機.resources
372 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.資料備份轉移.resources
373 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.電板股東紅利設定.resources
374 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA_ERP_SYS.輸入密碼.resources
375 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.GenerateResource.cache
376 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.CoreCompileInputs.cache
377 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.vbproj.CopyComplete
378 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.exe
379 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.xml
380 
+D:\工巧明\GA帳務通用ERP\GA-ERP-SYS\GA-ERP-SYS\obj\Debug\GA-ERP-SYS.pdb

BIN
GA-ERP-SYS/obj/Debug/GA-ERP-SYS.vbproj.GenerateResource.cache Dosyayı Görüntüle


BIN
GA-ERP-SYS/obj/Debug/GA-ERP-SYS.vbproj.ResolveComReference.cache Dosyayı Görüntüle


BIN
GA-ERP-SYS/obj/Debug/GA_ERP_SYS.系統公告.resources Dosyayı Görüntüle


+ 22
- 4
GA-ERP-SYS/基本資料管理/前台/電板基本資料.vb Dosyayı Görüntüle 

@@ -1,5 +1,6 @@
1 1 
 Option Strict Off
2 2 
 Imports System.IO
3 
+Imports System.Text
3 4 
 Public Class 電板基本資料
4 5 
     ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7 As New DataSet : Dim GP As Integer = 0 : Dim GPP As String
5 6 
     Dim 批次, 批次1 As Integer : ReadOnly 連線(299) As String
 
@@ -734,15 +735,19 @@ Public Class 電板基本資料
734 735 
                 Dim fullPath As String
735 736 
                 fullPath = Path.GetFullPath(fileName)
736 737 
                 If 備用網址1_ch.Checked = False Then
737 
-                    Process.Start(fullPath, "--app= http://" & 網址2_tb.Text)
738 
+                    If 系統_cb.Text = "365" Then : Process.Start(fullPath, "--app= https://" & 網址2_tb.Text)
739 
+                    ElseIf 系統_cb.Text = "101" Then : Process.Start(fullPath, "--app= http://" & 網址2_tb.Text) : End If
738 740 
                 Else
739 
-                    Process.Start(fullPath, "--app= http://" & 備用網址_tb.Text)
741 
+                    If 系統_cb.Text = "365" Then : Process.Start(fullPath, "--app= https://" & 備用網址_tb.Text)
742 
+                    ElseIf 系統_cb.Text = "101" Then : Process.Start(fullPath, "--app= http://" & 備用網址_tb.Text) : End If
740 743 
                 End If
741 744 
             Catch ex As Exception
742 745 
                 If 備用網址1_ch.Checked = False Then
743 
-                    System.Diagnostics.Process.Start("explorer.exe", "http://" & 網址2_tb.Text)
746 
+                    If 系統_cb.Text = "365" Then : System.Diagnostics.Process.Start("explorer.exe", "https://" & 網址2_tb.Text)
747 
+                    ElseIf 系統_cb.Text = "101" Then : System.Diagnostics.Process.Start("explorer.exe", "http://" & 網址2_tb.Text) : End If
744 748 
                 Else
745 
-                    System.Diagnostics.Process.Start("explorer.exe", "http://" & 備用網址_tb.Text)
749 
+                    If 系統_cb.Text = "365" Then : System.Diagnostics.Process.Start("explorer.exe", "https://" & 備用網址_tb.Text)
750 
+                    ElseIf 系統_cb.Text = "101" Then : System.Diagnostics.Process.Start("explorer.exe", "http://" & 備用網址_tb.Text) : End If
746 751 
                 End If
747 752 
             End Try
748 753 
         End If
 
@@ -770,6 +775,19 @@ Public Class 電板基本資料
770 775 
             MsgBox("資料不齊全，無法開啟網站!!")
771 776 
         Else
772 777 
             If 備用網址_ch.Checked = False Then : PA15 = 網址_tb.Text : Else : PA15 = 備用網址1_tb.Text : End If : PA16 = 帳號_tb.Text : PA17 = 密碼_tb.Text
778 
+            Dim Str2 As String = Application.StartupPath
779 
+            If File.Exists("365.txt") Then : File.Delete("365.txt") : ElseIf File.Exists(Str2 & "\365.txt") Then : File.Delete(Str2 & "\365.txt") : End If
780 
+            If File.Exists("101.txt") Then : File.Delete("101.txt") : ElseIf File.Exists(Str2 & "\101.txt") Then : File.Delete(Str2 & "\101.txt") : End If
781 
+            Dim FilePath As String = ""
782 
+            If 系統1_cb.Text = "365" Then : FilePath = "365.txt" : Else : FilePath = "101.txt" : End If
783 
+            Try
784 
+                Using fs As IO.FileStream = New IO.FileStream(FilePath, FileMode.Append)
785 
+                    Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
786 
+                        sw.Flush()
787 
+                    End Using
788 
+                End Using
789 
+            Catch ex As Exception
790 
+            End Try
773 791 
             MyModule1.PY應用模組_01()
774 792 
         End If
775 793 
     End Sub

+ 22
- 4
GA-ERP-SYS/基本資料管理/後台/後台基本資料.vb Dosyayı Görüntüle 

@@ -1,5 +1,6 @@
1 1 
 Option Strict Off
2 2 
 Imports System.IO
3 
+Imports System.Text
3 4 
 Public Class 後台基本資料
4 5 
     ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7 As New DataSet : Dim GP As Integer = 0 : Dim GPP As String
5 6 
     Dim 批次, 批次1 As Integer : ReadOnly 連線(299) As String
 
@@ -738,15 +739,19 @@ Public Class 後台基本資料
738 739 
                 Dim fullPath As String
739 740 
                 fullPath = Path.GetFullPath(fileName)
740 741 
                 If 備用網址1_ch.Checked = False Then
741 
-                    Process.Start(fullPath, "--app= http://" & 網址2_tb.Text)
742 
+                    If 系統_cb.Text = "365" Then : Process.Start(fullPath, "--app= https://" & 網址2_tb.Text)
743 
+                    ElseIf 系統_cb.Text = "101" Then : Process.Start(fullPath, "--app= http://" & 網址2_tb.Text) : End If
742 744 
                 Else
743 
-                    Process.Start(fullPath, "--app= http://" & 備用網址_tb.Text)
745 
+                    If 系統_cb.Text = "365" Then : Process.Start(fullPath, "--app= https://" & 備用網址_tb.Text)
746 
+                    ElseIf 系統_cb.Text = "101" Then : Process.Start(fullPath, "--app= http://" & 備用網址_tb.Text) : End If
744 747 
                 End If
745 748 
             Catch ex As Exception
746 749 
                 If 備用網址1_ch.Checked = False Then
747 
-                    System.Diagnostics.Process.Start("explorer.exe", "http://" & 網址2_tb.Text)
750 
+                    If 系統_cb.Text = "365" Then : System.Diagnostics.Process.Start("explorer.exe", "https://" & 網址2_tb.Text)
751 
+                    ElseIf 系統_cb.Text = "101" Then : System.Diagnostics.Process.Start("explorer.exe", "http://" & 網址2_tb.Text) : End If
748 752 
                 Else
749 
-                    System.Diagnostics.Process.Start("explorer.exe", "http://" & 備用網址_tb.Text)
753 
+                    If 系統_cb.Text = "365" Then : System.Diagnostics.Process.Start("explorer.exe", "https://" & 備用網址_tb.Text)
754 
+                    ElseIf 系統_cb.Text = "101" Then : System.Diagnostics.Process.Start("explorer.exe", "http://" & 備用網址_tb.Text) : End If
750 755 
                 End If
751 756 
             End Try
752 757 
         End If
 
@@ -774,6 +779,19 @@ Public Class 後台基本資料
774 779 
             MsgBox("資料不齊全，無法開啟網站!!")
775 780 
         Else
776 781 
             If 備用網址_ch.Checked = False Then : PA15 = 網址_tb.Text : Else : PA15 = 備用網址1_tb.Text : End If : PA16 = 帳號_tb.Text : PA17 = 密碼_tb.Text
782 
+            Dim Str2 As String = Application.StartupPath
783 
+            If File.Exists("365.txt") Then : File.Delete("365.txt") : ElseIf File.Exists(Str2 & "\365.txt") Then : File.Delete(Str2 & "\365.txt") : End If
784 
+            If File.Exists("101.txt") Then : File.Delete("101.txt") : ElseIf File.Exists(Str2 & "\101.txt") Then : File.Delete(Str2 & "\101.txt") : End If
785 
+            Dim FilePath As String = ""
786 
+            If 系統1_cb.Text = "365" Then : FilePath = "365.txt" : Else : FilePath = "101.txt" : End If
787 
+            Try
788 
+                Using fs As IO.FileStream = New IO.FileStream(FilePath, FileMode.Append)
789 
+                    Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
790 
+                        sw.Flush()
791 
+                    End Using
792 
+                End Using
793 
+            Catch ex As Exception
794 
+            End Try
777 795 
             MyModule1.PY應用模組_01()
778 796 
         End If
779 797 
     End Sub

+ 17
- 1
GA-ERP-SYS/報表系統管理/前台/電板LOG檔.vb Dosyayı Görüntüle 

@@ -1,4 +1,7 @@
1 
-Public Class 電板LOG檔
1 
+Option Strict Off
2 
+Imports System.IO
3 
+Imports System.Text
4 
+Public Class 電板LOG檔
2 5 
     ReadOnly ds5, ds6 As New DataSet
3 6 
     Private Sub Set_LOG1()
4 7 
         LOG1_dgv.DataSource = Nothing : ds5.Clear() : LOG1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
 
@@ -96,6 +99,19 @@
96 99 
             MsgBox("資料不齊全，無法開啟網站!!")
97 100 
         Else
98 101 
             If 備用網址_ch.Checked = False Then : PA15 = 網址_tb.Text : Else : PA15 = 備用網址1_tb.Text : End If : PA16 = 帳號_tb.Text : PA17 = 密碼_tb.Text
102 
+            Dim Str2 As String = Application.StartupPath
103 
+            If File.Exists("365.txt") Then : File.Delete("365.txt") : ElseIf File.Exists(Str2 & "\365.txt") Then : File.Delete(Str2 & "\365.txt") : End If
104 
+            If File.Exists("101.txt") Then : File.Delete("101.txt") : ElseIf File.Exists(Str2 & "\101.txt") Then : File.Delete(Str2 & "\101.txt") : End If
105 
+            Dim FilePath As String = ""
106 
+            If 系統1_cb.Text = "365" Then : FilePath = "365.txt" : Else : FilePath = "101.txt" : End If
107 
+            Try
108 
+                Using fs As IO.FileStream = New IO.FileStream(FilePath, FileMode.Append)
109 
+                    Using sw As StreamWriter = New StreamWriter(fs, Encoding.Default)
110 
+                        sw.Flush()
111 
+                    End Using
112 
+                End Using
113 
+            Catch ex As Exception
114 
+            End Try
99 115 
             MyModule1.PY應用模組_01()
100 116 
         End If
101 117 
     End Sub

+ 51
- 12
GA-ERP-SYS/報表系統管理/前台/電板帳務彙總計算表.Designer.vb Dosyayı Görüntüle 

@@ -245,10 +245,13 @@ Partial Class 電板帳務彙總計算表
245 245 
         Me.核帳0_tb = New System.Windows.Forms.TextBox()
246 246 
         Me.Label20 = New System.Windows.Forms.Label()
247 247 
         Me.SplitContainer4 = New System.Windows.Forms.SplitContainer()
248 
+        Me.控制隱藏_ch = New System.Windows.Forms.CheckBox()
248 249 
         Me.紙板帳務編輯_bt = New System.Windows.Forms.Button()
249 250 
         Me.其他操作功能_bt = New System.Windows.Forms.Button()
250 251 
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
251 
-        Me.控制隱藏_ch = New System.Windows.Forms.CheckBox()
252 
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
253 
+        Me.Label23 = New System.Windows.Forms.Label()
254 
+        Me.Label22 = New System.Windows.Forms.Label()
252 255 
         CType(Me.流水帳_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
253 256 
         CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
254 257 
         CType(Me.彙總1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
 
@@ -2576,6 +2579,8 @@ Partial Class 電板帳務彙總計算表
2576 2579 
         '
2577 2580 
         'SplitContainer4.Panel1
2578 2581 
         '
2582 
+        Me.SplitContainer4.Panel1.Controls.Add(Me.TextBox1)
2583 
+        Me.SplitContainer4.Panel1.Controls.Add(Me.Label22)
2579 2584 
         Me.SplitContainer4.Panel1.Controls.Add(Me.控制隱藏_ch)
2580 2585 
         Me.SplitContainer4.Panel1.Controls.Add(Me.紙板帳務編輯_bt)
2581 2586 
         Me.SplitContainer4.Panel1.Controls.Add(Me.水差合帳_dgv)
 
@@ -2584,6 +2589,7 @@ Partial Class 電板帳務彙總計算表
2584 2589 
         Me.SplitContainer4.Panel1.Controls.Add(Me.水差合帳1_dgv)
2585 2590 
         Me.SplitContainer4.Panel1.Controls.Add(Me.合帳_dgv)
2586 2591 
         Me.SplitContainer4.Panel1.Controls.Add(Me.彙總_dgv)
2592 
+        Me.SplitContainer4.Panel1.Controls.Add(Me.Label23)
2587 2593 
         '
2588 2594 
         'SplitContainer4.Panel2
2589 2595 
         '
 
@@ -2601,10 +2607,21 @@ Partial Class 電板帳務彙總計算表
2601 2607 
         Me.SplitContainer4.SplitterDistance = 807
2602 2608 
         Me.SplitContainer4.TabIndex = 1716
2603 2609 
         '
2610 
+        '控制隱藏_ch
2611 
+        '
2612 
+        Me.控制隱藏_ch.AutoSize = True
2613 
+        Me.控制隱藏_ch.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
2614 
+        Me.控制隱藏_ch.Location = New System.Drawing.Point(119, 3)
2615 
+        Me.控制隱藏_ch.Name = "控制隱藏_ch"
2616 
+        Me.控制隱藏_ch.Size = New System.Drawing.Size(110, 20)
2617 
+        Me.控制隱藏_ch.TabIndex = 1704
2618 
+        Me.控制隱藏_ch.Text = "正負反控制隱藏"
2619 
+        Me.控制隱藏_ch.UseVisualStyleBackColor = True
2620 
+        '
2604 2621 
         '紙板帳務編輯_bt
2605 2622 
         '
2606 2623 
         Me.紙板帳務編輯_bt.ForeColor = System.Drawing.Color.Green
2607 
-        Me.紙板帳務編輯_bt.Location = New System.Drawing.Point(413, 0)
2624 
+        Me.紙板帳務編輯_bt.Location = New System.Drawing.Point(288, 0)
2608 2625 
         Me.紙板帳務編輯_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
2609 2626 
         Me.紙板帳務編輯_bt.Name = "紙板帳務編輯_bt"
2610 2627 
         Me.紙板帳務編輯_bt.Size = New System.Drawing.Size(91, 24)
 
@@ -2615,7 +2632,7 @@ Partial Class 電板帳務彙總計算表
2615 2632 
         '其他操作功能_bt
2616 2633 
         '
2617 2634 
         Me.其他操作功能_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
2618 
-        Me.其他操作功能_bt.Location = New System.Drawing.Point(506, 0)
2635 
+        Me.其他操作功能_bt.Location = New System.Drawing.Point(381, 0)
2619 2636 
         Me.其他操作功能_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
2620 2637 
         Me.其他操作功能_bt.Name = "其他操作功能_bt"
2621 2638 
         Me.其他操作功能_bt.Size = New System.Drawing.Size(91, 24)
 
@@ -2634,16 +2651,35 @@ Partial Class 電板帳務彙總計算表
2634 2651 
         Me.PictureBox1.TabIndex = 1619
2635 2652 
         Me.PictureBox1.TabStop = False
2636 2653 
         '
2637 
-        '控制隱藏_ch
2654 
+        'TextBox1
2638 2655 
         '
2639 
-        Me.控制隱藏_ch.AutoSize = True
2640 
-        Me.控制隱藏_ch.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
2641 
-        Me.控制隱藏_ch.Location = New System.Drawing.Point(119, 3)
2642 
-        Me.控制隱藏_ch.Name = "控制隱藏_ch"
2643 
-        Me.控制隱藏_ch.Size = New System.Drawing.Size(110, 20)
2644 
-        Me.控制隱藏_ch.TabIndex = 1704
2645 
-        Me.控制隱藏_ch.Text = "正負反控制隱藏"
2646 
-        Me.控制隱藏_ch.UseVisualStyleBackColor = True
2656 
+        Me.TextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
2657 
+        Me.TextBox1.ForeColor = System.Drawing.Color.Red
2658 
+        Me.TextBox1.Location = New System.Drawing.Point(493, 1)
2659 
+        Me.TextBox1.Name = "TextBox1"
2660 
+        Me.TextBox1.Size = New System.Drawing.Size(61, 23)
2661 
+        Me.TextBox1.TabIndex = 1720
2662 
+        Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
2663 
+        '
2664 
+        'Label23
2665 
+        '
2666 
+        Me.Label23.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
2667 
+        Me.Label23.AutoSize = True
2668 
+        Me.Label23.Location = New System.Drawing.Point(554, 4)
2669 
+        Me.Label23.Name = "Label23"
2670 
+        Me.Label23.Size = New System.Drawing.Size(43, 16)
2671 
+        Me.Label23.TabIndex = 1719
2672 
+        Me.Label23.Text = "筆資料"
2673 
+        '
2674 
+        'Label22
2675 
+        '
2676 
+        Me.Label22.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
2677 
+        Me.Label22.AutoSize = True
2678 
+        Me.Label22.Location = New System.Drawing.Point(474, 4)
2679 
+        Me.Label22.Name = "Label22"
2680 
+        Me.Label22.Size = New System.Drawing.Size(19, 16)
2681 
+        Me.Label22.TabIndex = 1718
2682 
+        Me.Label22.Text = "共"
2647 2683 
         '
2648 2684 
         '電板帳務彙總計算表
2649 2685 
         '
 
@@ -2937,4 +2973,7 @@ Partial Class 電板帳務彙總計算表
2937 2973 
     Friend WithEvents 紙帳計算_bt As Button
2938 2974 
     Friend WithEvents 紙板帳務編輯_bt As Button
2939 2975 
     Friend WithEvents 控制隱藏_ch As CheckBox
2976 
+    Friend WithEvents TextBox1 As TextBox
2977 
+    Friend WithEvents Label22 As Label
2978 
+    Friend WithEvents Label23 As Label
2940 2979 
 End Class

+ 1
- 0
GA-ERP-SYS/報表系統管理/前台/電板帳務彙總計算表.vb Dosyayı Görüntüle 

@@ -2769,6 +2769,7 @@ Public Class 電板帳務彙總計算表
2769 2769 
             合帳_dgv.AllowUserToAddRows = False
2770 2770 
             SQL_彙總合帳使用()
2771 2771 
             da.Fill(DS) : 合帳_dgv.DataSource = DS.Tables(0) : conn.Close()
2772 
+            TextBox1.Text = 合帳_dgv.Rows.Count - 1
2772 2773 
             合帳_dgv.Columns("應付").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
2773 2774 
             合帳_dgv.Columns("應收").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
2774 2775 
             合帳_dgv.Columns("個人所得").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

+ 1
- 1
GA-ERP-SYS/報表系統管理/後台/後台帳務彙總結算表.Designer.vb Dosyayı Görüntüle 

@@ -240,8 +240,8 @@ Partial Class 後台帳務彙總結算表
240 240 
         Me.Panel1.Controls.Add(Me.A3_P)
241 241 
         Me.Panel1.Controls.Add(Me.A2_P)
242 242 
         Me.Panel1.Controls.Add(Me.A1_P)
243 
-        Me.Panel1.Controls.Add(Me.彙總5_dgv)
244 243 
         Me.Panel1.Controls.Add(Me.PictureBox2)
244 
+        Me.Panel1.Controls.Add(Me.彙總5_dgv)
245 245 
         Me.Panel1.Location = New System.Drawing.Point(198, 0)
246 246 
         Me.Panel1.Name = "Panel1"
247 247 
         Me.Panel1.Size = New System.Drawing.Size(918, 651)

+ 132
- 120
GA-ERP-SYS/報表系統管理/後台/後台帳務彙總結算表.vb Dosyayı Görüntüle 

@@ -166,7 +166,7 @@
166 166 
                     彙總3_dgv.Rows(i).Cells("大樂透-日").Value = CDbl(彙總1_dgv.Rows(ii).Cells("結果").Value)
167 167 
                 End If
168 168 
             Next
169 
-            結果_tb.Text = CLng(結果_tb.Text) + CLng(彙總3_dgv.Rows(i).Cells("結果-日").Value.ToString)
169 
+            結果_tb.Text = CLng(結果_tb.Text) + (CLng(彙總3_dgv.Rows(i).Cells("結果-日").Value.ToString) / 10000)
170 170 
             五_tb.Text = CLng(五_tb.Text) + CLng(彙總3_dgv.Rows(i).Cells("539-日").Value.ToString)
171 171 
             加_tb.Text = CLng(加_tb.Text) + CLng(彙總3_dgv.Rows(i).Cells("加州彩-日").Value.ToString)
172 172 
             六_tb.Text = CLng(六_tb.Text) + CLng(彙總3_dgv.Rows(i).Cells("六合彩-日").Value.ToString)
 
@@ -179,7 +179,7 @@
179 179 
         If CLng(加_tb.Text) <= 0 Then : 加_tb.ForeColor = Color.Red : Else : 加_tb.ForeColor = Color.Blue : End If : 加_tb.Text = Strings.Format(CLng(加_tb.Text), "#,##0")
180 180 
         If CLng(六_tb.Text) <= 0 Then : 六_tb.ForeColor = Color.Red : Else : 六_tb.ForeColor = Color.Blue : End If : 六_tb.Text = Strings.Format(CLng(六_tb.Text), "#,##0")
181 181 
         If CLng(大_tb.Text) <= 0 Then : 大_tb.ForeColor = Color.Red : Else : 大_tb.ForeColor = Color.Blue : End If : 大_tb.Text = Strings.Format(CLng(大_tb.Text), "#,##0")
182 
-
182 
+        結果_tb.Text = 結果_tb.Text
183 183 
         '--------周--------------------------------------------------------------------------------------------------------------------------------------------------------------------
184 184 
         Dim ds8 As New DataSet
185 185 
         彙總4_dgv.DataSource = Nothing : ds8.Clear() : 彙總4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
 
@@ -239,7 +239,7 @@
239 239 
                     彙總4_dgv.Rows(i).Cells("大樂透-周").Value = CDbl(彙總2_dgv.Rows(ii).Cells("結果").Value)
240 240 
                 End If
241 241 
             Next
242 
-            結果1_tb.Text = CLng(結果1_tb.Text) + CLng(彙總4_dgv.Rows(i).Cells("結果-周").Value.ToString)
242 
+            結果1_tb.Text = CLng(結果1_tb.Text) + (CLng(彙總4_dgv.Rows(i).Cells("結果-周").Value.ToString) / 10000)
243 243 
             五1_tb.Text = CLng(五1_tb.Text) + CLng(彙總4_dgv.Rows(i).Cells("539-周").Value.ToString)
244 244 
             加1_tb.Text = CLng(加1_tb.Text) + CLng(彙總4_dgv.Rows(i).Cells("加州彩-周").Value.ToString)
245 245 
             六1_tb.Text = CLng(六1_tb.Text) + CLng(彙總4_dgv.Rows(i).Cells("六合彩-周").Value.ToString)
 
@@ -251,7 +251,7 @@
251 251 
         If CLng(加1_tb.Text) <= 0 Then : 加1_tb.ForeColor = Color.Red : Else : 加1_tb.ForeColor = Color.Blue : End If : 加1_tb.Text = Strings.Format(CLng(加1_tb.Text), "#,##0")
252 252 
         If CLng(六1_tb.Text) <= 0 Then : 六1_tb.ForeColor = Color.Red : Else : 六1_tb.ForeColor = Color.Blue : End If : 六1_tb.Text = Strings.Format(CLng(六1_tb.Text), "#,##0")
253 253 
         If CLng(大1_tb.Text) <= 0 Then : 大1_tb.ForeColor = Color.Red : Else : 大1_tb.ForeColor = Color.Blue : End If : 大1_tb.Text = Strings.Format(CLng(大1_tb.Text), "#,##0")
254 
-
254 
+        結果1_tb.Text = 結果1_tb.Text
255 255 
         彙總4_dgv.Sort(彙總4_dgv.Columns("結果-周"), System.ComponentModel.ListSortDirection.Descending)
256 256 
         For i As Integer = 0 To 彙總4_dgv.Rows.Count - 1 : 彙總4_dgv.Rows(i).Cells("項次").Value = i + 1 : Next
257 257 
 
@@ -314,7 +314,7 @@
314 314 
                     彙總7_dgv.Rows(i).Cells("大樂透-月").Value = CDbl(彙總6_dgv.Rows(ii).Cells("結果").Value)
315 315 
                 End If
316 316 
             Next
317 
-            結果3_tb.Text = CLng(結果3_tb.Text) + CLng(彙總7_dgv.Rows(i).Cells("結果-月").Value.ToString)
317 
+            結果3_tb.Text = CLng(結果3_tb.Text) + (CLng(彙總7_dgv.Rows(i).Cells("結果-月").Value.ToString) / 10000)
318 318 
             五1_tb.Text = CLng(五1_tb.Text) + CLng(彙總7_dgv.Rows(i).Cells("539-月").Value.ToString)
319 319 
             加1_tb.Text = CLng(加1_tb.Text) + CLng(彙總7_dgv.Rows(i).Cells("加州彩-月").Value.ToString)
320 320 
             六1_tb.Text = CLng(六1_tb.Text) + CLng(彙總7_dgv.Rows(i).Cells("六合彩-月").Value.ToString)
 
@@ -326,7 +326,7 @@
326 326 
         If CLng(加1_tb.Text) <= 0 Then : 加1_tb.ForeColor = Color.Red : Else : 加1_tb.ForeColor = Color.Blue : End If : 加1_tb.Text = Strings.Format(CLng(加1_tb.Text), "#,##0")
327 327 
         If CLng(六1_tb.Text) <= 0 Then : 六1_tb.ForeColor = Color.Red : Else : 六1_tb.ForeColor = Color.Blue : End If : 六1_tb.Text = Strings.Format(CLng(六1_tb.Text), "#,##0")
328 328 
         If CLng(大1_tb.Text) <= 0 Then : 大1_tb.ForeColor = Color.Red : Else : 大1_tb.ForeColor = Color.Blue : End If : 大1_tb.Text = Strings.Format(CLng(大1_tb.Text), "#,##0")
329 
-
329 
+        結果3_tb.Text = 結果3_tb.Text
330 330 
         彙總7_dgv.Sort(彙總7_dgv.Columns("結果-月"), System.ComponentModel.ListSortDirection.Descending)
331 331 
         For i As Integer = 0 To 彙總7_dgv.Rows.Count - 1 : 彙總7_dgv.Rows(i).Cells("項次").Value = i + 1 : Next
332 332 
 
@@ -339,17 +339,23 @@
339 339 
         SQL_後台彙總讀取5()
340 340
341 341 
         da.Fill(ds9) : 彙總5_dgv.DataSource = ds9.Tables(0) : conn.Close()
342 
-        彙總5_dgv.Columns("項次").FillWeight = 40 : 彙總5_dgv.Columns("商品").FillWeight = 80 : 彙總5_dgv.Columns("系統").FillWeight = 40
342 
+
343 
+        彙總5_dgv.Columns("項次").FillWeight = 40 : 彙總5_dgv.Columns("商品 (元)").FillWeight = 80 : 彙總5_dgv.Columns("系統").FillWeight = 40
343 344 
         彙總5_dgv.Columns("貢獻度-日").FillWeight = 80 : 彙總5_dgv.Columns("結果-日").FillWeight = 80 : 彙總5_dgv.Columns("貢獻度-周").FillWeight = 80
344 345 
         彙總5_dgv.Columns("結果-周").FillWeight = 80 : 彙總5_dgv.Columns("貢獻度-月").FillWeight = 80 : 彙總5_dgv.Columns("結果-月").FillWeight = 80
345 
-        彙總5_dgv.Columns("結果-年").FillWeight = 160
346 
+        彙總5_dgv.Columns("結果-年").FillWeight = 80 : 彙總5_dgv.Columns("貢獻度-年").FillWeight = 80
347 
+        彙總5_dgv.Columns("貢獻度-日1").Visible = False : 彙總5_dgv.Columns("貢獻度-周1").Visible = False : 彙總5_dgv.Columns("結果-日1").Visible = False
348 
+        彙總5_dgv.Columns("結果-周1").Visible = False : 彙總5_dgv.Columns("貢獻度-月1").Visible = False : 彙總5_dgv.Columns("結果-月1").Visible = False
349 
+        彙總5_dgv.Columns("結果-年1").Visible = False : 彙總5_dgv.Columns("貢獻度-年1").Visible = False
346 350
347 
-        彙總5_dgv.Columns("貢獻度-日").DefaultCellStyle.Format = "#,##0" : 彙總5_dgv.Columns("結果-日").DefaultCellStyle.Format = "#,##0"
348 
-        彙總5_dgv.Columns("貢獻度-周").DefaultCellStyle.Format = "#,##0" : 彙總5_dgv.Columns("結果-周").DefaultCellStyle.Format = "#,##0"
349 
-        彙總5_dgv.Columns("貢獻度-月").DefaultCellStyle.Format = "#,##0" : 彙總5_dgv.Columns("結果-月").DefaultCellStyle.Format = "#,##0"
350 
-        彙總5_dgv.Columns("結果-年").DefaultCellStyle.Format = "#,##0"
351 
+        彙總5_dgv.Columns("貢獻度-日1").DefaultCellStyle.Format = "#,##0" : 彙總5_dgv.Columns("結果-日1").DefaultCellStyle.Format = "#,##0"
352 
+        彙總5_dgv.Columns("貢獻度-周1").DefaultCellStyle.Format = "#,##0" : 彙總5_dgv.Columns("結果-周1").DefaultCellStyle.Format = "#,##0"
353 
+        彙總5_dgv.Columns("貢獻度-月1").DefaultCellStyle.Format = "#,##0" : 彙總5_dgv.Columns("結果-月1").DefaultCellStyle.Format = "#,##0"
354 
+        彙總5_dgv.Columns("結果-年1").DefaultCellStyle.Format = "#,##0" : 彙總5_dgv.Columns("貢獻度-年1").DefaultCellStyle.Format = "#,##0"
351 355
356 
+        彙總5_dgv.Columns("貢獻度-年").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
352 357 
         彙總5_dgv.Columns("結果-年").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
358 
+        彙總5_dgv.Columns("貢獻度-年").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
353 359 
         彙總5_dgv.Columns("結果-年").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
354 360 
         彙總5_dgv.Columns("貢獻度-日").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
355 361 
         彙總5_dgv.Columns("結果-日").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
@@ -366,35 +372,39 @@
366 372
367 373 
         結果2_tb.Text = "0"
368 374 
         For i As Integer = 0 To 彙總5_dgv.Rows.Count - 1
369 
-            彙總5_dgv.Rows(i).Cells("貢獻度-日").Value = "0" : 彙總5_dgv.Rows(i).Cells("結果-日").Value = "0"
370 
-            彙總5_dgv.Rows(i).Cells("貢獻度-周").Value = "0" : 彙總5_dgv.Rows(i).Cells("結果-周").Value = "0"
371 
-            彙總5_dgv.Rows(i).Cells("貢獻度-月").Value = "0" : 彙總5_dgv.Rows(i).Cells("結果-月").Value = "0"
375 
+            彙總5_dgv.Rows(i).Cells("貢獻度-日").Value = "0 元" : 彙總5_dgv.Rows(i).Cells("結果-日").Value = "0 元" : 彙總5_dgv.Rows(i).Cells("結果-日1").Value = "0"
376 
+            彙總5_dgv.Rows(i).Cells("貢獻度-周").Value = "0 元" : 彙總5_dgv.Rows(i).Cells("結果-周").Value = "0 元"
377 
+            彙總5_dgv.Rows(i).Cells("貢獻度-月").Value = "0 元" : 彙總5_dgv.Rows(i).Cells("結果-月").Value = "0 元"
378 
+            彙總5_dgv.Rows(i).Cells("貢獻度-年").Value = Format(彙總5_dgv.Rows(i).Cells("貢獻度-年1").Value / 10000, "#,##0")
379 
+            彙總5_dgv.Rows(i).Cells("結果-年").Value = Format(彙總5_dgv.Rows(i).Cells("結果-年1").Value / 10000, "#,##0")
372 380 
             For ii As Integer = 0 To 彙總3_dgv.Rows.Count - 1
373 
-                If 彙總5_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總3_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() Then
374 
-                    彙總5_dgv.Rows(i).Cells("貢獻度-日").Value = CDbl(彙總3_dgv.Rows(ii).Cells("總量-日").Value)
375 
-                    彙總5_dgv.Rows(i).Cells("結果-日").Value = CDbl(彙總3_dgv.Rows(ii).Cells("結果-日").Value)
381 
+                If 彙總5_dgv.Rows(i).Cells("商品 (元)").Value.ToString.ToLower() = 彙總3_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() Then
382 
+                    彙總5_dgv.Rows(i).Cells("貢獻度-日").Value = Format(CDbl(彙總3_dgv.Rows(ii).Cells("總量-日").Value) / 10000, "#,##0")
383 
+                    彙總5_dgv.Rows(i).Cells("結果-日").Value = Format(CDbl(彙總3_dgv.Rows(ii).Cells("結果-日").Value) / 10000, "#,##0")
384 
+                    彙總5_dgv.Rows(i).Cells("結果-日1").Value = CDbl(彙總3_dgv.Rows(ii).Cells("結果-日").Value)
376 385 
                 End If
377 386 
             Next
378 387 
             For ii As Integer = 0 To 彙總4_dgv.Rows.Count - 1
379 
-                If 彙總5_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總4_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() Then
380 
-                    彙總5_dgv.Rows(i).Cells("貢獻度-周").Value = CDbl(彙總4_dgv.Rows(ii).Cells("總量-周").Value)
381 
-                    彙總5_dgv.Rows(i).Cells("結果-周").Value = CDbl(彙總4_dgv.Rows(ii).Cells("結果-周").Value)
388 
+                If 彙總5_dgv.Rows(i).Cells("商品 (元)").Value.ToString.ToLower() = 彙總4_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() Then
389 
+                    彙總5_dgv.Rows(i).Cells("貢獻度-周").Value = Format(CDbl(彙總4_dgv.Rows(ii).Cells("總量-周").Value) / 10000, "#,##0")
390 
+                    彙總5_dgv.Rows(i).Cells("結果-周").Value = Format(CDbl(彙總4_dgv.Rows(ii).Cells("結果-周").Value) / 10000, "#,##0")
382 391 
                 End If
383 392 
             Next
384 393 
             For ii As Integer = 0 To 彙總7_dgv.Rows.Count - 1
385 
-                If 彙總5_dgv.Rows(i).Cells("商品").Value.ToString.ToLower() = 彙總7_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() Then
386 
-                    彙總5_dgv.Rows(i).Cells("貢獻度-月").Value = CDbl(彙總7_dgv.Rows(ii).Cells("總量-月").Value)
387 
-                    彙總5_dgv.Rows(i).Cells("結果-月").Value = CDbl(彙總7_dgv.Rows(ii).Cells("結果-月").Value)
394 
+                If 彙總5_dgv.Rows(i).Cells("商品 (元)").Value.ToString.ToLower() = 彙總7_dgv.Rows(ii).Cells("商品").Value.ToString.ToLower() Then
395 
+                    彙總5_dgv.Rows(i).Cells("貢獻度-月").Value = Format(CDbl(彙總7_dgv.Rows(ii).Cells("總量-月").Value) / 10000, "#,##0")
396 
+                    彙總5_dgv.Rows(i).Cells("結果-月").Value = Format(CDbl(彙總7_dgv.Rows(ii).Cells("結果-月").Value) / 10000, "#,##0")
388 397 
                 End If
389 398 
             Next
390 
-            結果2_tb.Text = CLng(結果2_tb.Text) + CLng(彙總5_dgv.Rows(i).Cells("結果-年").Value.ToString)
391 
-            If CInt(彙總5_dgv.Rows(i).Cells("結果-日").Value.ToString) > 0 Then : 彙總5_dgv.Columns("結果-日").DefaultCellStyle.ForeColor = Color.Blue : End If
392 
-            If CInt(彙總5_dgv.Rows(i).Cells("結果-周").Value.ToString) > 0 Then : 彙總5_dgv.Columns("結果-周").DefaultCellStyle.ForeColor = Color.Blue : End If
393 
-            If CInt(彙總5_dgv.Rows(i).Cells("結果-月").Value.ToString) > 0 Then : 彙總5_dgv.Columns("結果-月").DefaultCellStyle.ForeColor = Color.Blue : End If
394 
-            If CInt(彙總5_dgv.Rows(i).Cells("結果-年").Value.ToString) > 0 Then : 彙總5_dgv.Columns("結果-年").DefaultCellStyle.ForeColor = Color.Blue : End If
399 
+            結果2_tb.Text = CLng(結果2_tb.Text) + (CLng(彙總5_dgv.Rows(i).Cells("結果-年1").Value.ToString) / 10000)
400 
+            If CInt(彙總5_dgv.Rows(i).Cells("結果-日1").Value.ToString) > 0 Then : 彙總5_dgv.Columns("結果-日").DefaultCellStyle.ForeColor = Color.Blue : End If
401 
+            If CInt(彙總5_dgv.Rows(i).Cells("結果-周1").Value.ToString) > 0 Then : 彙總5_dgv.Columns("結果-周").DefaultCellStyle.ForeColor = Color.Blue : End If
402 
+            If CInt(彙總5_dgv.Rows(i).Cells("結果-月1").Value.ToString) > 0 Then : 彙總5_dgv.Columns("結果-月").DefaultCellStyle.ForeColor = Color.Blue : End If
403 
+            If CInt(彙總5_dgv.Rows(i).Cells("結果-年1").Value.ToString) > 0 Then : 彙總5_dgv.Columns("結果-年").DefaultCellStyle.ForeColor = Color.Blue : End If
395 404 
         Next
396 405 
         If CLng(結果2_tb.Text) <= 0 Then : 結果2_tb.ForeColor = Color.Red : Else : 結果2_tb.ForeColor = Color.Blue : End If : 結果2_tb.Text = Strings.Format(CLng(結果2_tb.Text), "#,##0")
397 
-        彙總5_dgv.Sort(彙總5_dgv.Columns("結果-日"), System.ComponentModel.ListSortDirection.Descending)
406 
+        結果2_tb.Text = 結果2_tb.Text
407 
+        彙總5_dgv.Sort(彙總5_dgv.Columns("結果-日1"), System.ComponentModel.ListSortDirection.Descending)
398 408 
         For i As Integer = 0 To 彙總5_dgv.Rows.Count - 1 : 彙總5_dgv.Rows(i).Cells("項次").Value = i + 1 : Next : 顯示()
399 409 
     End Sub
400 410 
 
@@ -485,96 +495,98 @@
485 495 
         End If : 本周周一_dtp.Value = 結束日期1_dtp.Value.AddDays(-6) : 結束日期1_dtp.Value = Today()
486 496 
     End Sub
487 497 
     Private Sub 顯示()
488 
-        If 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
489 
-            Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = False : A4_P.Visible = False
490 
-            A1_P.Location = New Point(215, 2)
491 
-            彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
492 
-            彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
493 
-            彙總5_dgv.Columns("結果-年").Visible = False
494 
-        ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
495 
-            Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = False
496 
-            A2_P.Location = New Point(215, 2)
497 
-            彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
498 
-            彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
499 
-            彙總5_dgv.Columns("結果-年").Visible = False
500 
-        ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
501 
-            Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = False
502 
-            A3_P.Location = New Point(215, 2)
503 
-            彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = False
504 
-            彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
505 
-            彙總5_dgv.Columns("結果-年").Visible = False
506 
-        ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
507 
-            Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = False : A4_P.Visible = True
508 
-            A4_P.Location = New Point(215, 2)
509 
-            彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = False
510 
-            彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
511 
-            彙總5_dgv.Columns("結果-年").Visible = True
512 
-        ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
513 
-            Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = False
514 
-            A1_P.Location = New Point(215, 2) : A2_P.Location = New Point(397, 2)
515 
-            彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
516 
-            彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
517 
-            彙總5_dgv.Columns("結果-年").Visible = False
518 
-        ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
519 
-            Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = False
520 
-            A1_P.Location = New Point(215, 2) : A3_P.Location = New Point(397, 2)
521 
-            彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
522 
-            彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
523 
-            彙總5_dgv.Columns("結果-年").Visible = False
524 
-        ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
525 
-            Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = False : A4_P.Visible = True
526 
-            A1_P.Location = New Point(215, 2) : A4_P.Location = New Point(397, 2)
527 
-            彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
528 
-            彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
529 
-            彙總5_dgv.Columns("結果-年").Visible = True
530 
-        ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
531 
-            Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = False
532 
-            A2_P.Location = New Point(215, 2) : A3_P.Location = New Point(397, 2)
533 
-            彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
534 
-            彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
535 
-            彙總5_dgv.Columns("結果-年").Visible = False
536 
-        ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
537 
-            Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = True
538 
-            A2_P.Location = New Point(215, 2) : A4_P.Location = New Point(397, 2)
539 
-            彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
540 
-            彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
541 
-            彙總5_dgv.Columns("結果-年").Visible = True
542 
-        ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
543 
-            Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = True
544 
-            A3_P.Location = New Point(215, 2) : A4_P.Location = New Point(397, 2)
545 
-            彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = False
546 
-            彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
547 
-            彙總5_dgv.Columns("結果-年").Visible = True
548 
-        ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
549 
-            Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = False
550 
-            A1_P.Location = New Point(215, 2) : A2_P.Location = New Point(397, 2) : A3_P.Location = New Point(579, 2)
551 
-            彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
552 
-            彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
553 
-            彙總5_dgv.Columns("結果-年").Visible = False
554 
-        ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
555 
-            Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = True
556 
-            A1_P.Location = New Point(215, 2) : A2_P.Location = New Point(397, 2) : A4_P.Location = New Point(579, 2)
557 
-            彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
558 
-            彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
559 
-            彙總5_dgv.Columns("結果-年").Visible = True
560 
-        ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
561 
-            Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = True
562 
-            A1_P.Location = New Point(215, 2) : A3_P.Location = New Point(397, 2) : A4_P.Location = New Point(579, 2)
563 
-            彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
564 
-            彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
565 
-            彙總5_dgv.Columns("結果-年").Visible = True
566 
-        ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
567 
-            Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = True
568 
-            A2_P.Location = New Point(215, 2) : A3_P.Location = New Point(397, 2) : A4_P.Location = New Point(579, 2)
569 
-            彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
570 
-            彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
571 
-            彙總5_dgv.Columns("結果-年").Visible = True
572 
-        ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
573 
-            Me.Size = New Size(1133, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = True
574 
-            A1_P.Location = New Point(215, 2) : A2_P.Location = New Point(397, 2) : A3_P.Location = New Point(579, 2) : A4_P.Location = New Point(761, 2)
575 
-            彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
576 
-            彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
577 
-            彙總5_dgv.Columns("結果-年").Visible = True
498 
+        If 彙總5_dgv.Rows.Count > 0 Then
499 
+            If 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
500 
+                Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = False : A4_P.Visible = False
501 
+                A1_P.Location = New Point(215, 2)
502 
+                彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
503 
+                彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
504 
+                彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
505 
+            ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
506 
+                Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = False
507 
+                A2_P.Location = New Point(215, 2)
508 
+                彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
509 
+                彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
510 
+                彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
511 
+            ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
512 
+                Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = False
513 
+                A3_P.Location = New Point(215, 2)
514 
+                彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = False
515 
+                彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
516 
+                彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
517 
+            ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
518 
+                Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = False : A4_P.Visible = True
519 
+                A4_P.Location = New Point(215, 2)
520 
+                彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = False
521 
+                彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
522 
+                彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
523 
+            ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
524 
+                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = False
525 
+                A1_P.Location = New Point(215, 2) : A2_P.Location = New Point(397, 2)
526 
+                彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
527 
+                彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
528 
+                彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
529 
+            ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
530 
+                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = False
531 
+                A1_P.Location = New Point(215, 2) : A3_P.Location = New Point(397, 2)
532 
+                彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
533 
+                彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
534 
+                彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
535 
+            ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
536 
+                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = False : A4_P.Visible = True
537 
+                A1_P.Location = New Point(215, 2) : A4_P.Location = New Point(397, 2)
538 
+                彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
539 
+                彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
540 
+                彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
541 
+            ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
542 
+                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = False
543 
+                A2_P.Location = New Point(215, 2) : A3_P.Location = New Point(397, 2)
544 
+                彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
545 
+                彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
546 
+                彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
547 
+            ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
548 
+                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = True
549 
+                A2_P.Location = New Point(215, 2) : A4_P.Location = New Point(397, 2)
550 
+                彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
551 
+                彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
552 
+                彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
553 
+            ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
554 
+                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = True
555 
+                A3_P.Location = New Point(215, 2) : A4_P.Location = New Point(397, 2)
556 
+                彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = False
557 
+                彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
558 
+                彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
559 
+            ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
560 
+                Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = False
561 
+                A1_P.Location = New Point(215, 2) : A2_P.Location = New Point(397, 2) : A3_P.Location = New Point(579, 2)
562 
+                彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
563 
+                彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
564 
+                彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
565 
+            ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
566 
+                Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = True
567 
+                A1_P.Location = New Point(215, 2) : A2_P.Location = New Point(397, 2) : A4_P.Location = New Point(579, 2)
568 
+                彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
569 
+                彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
570 
+                彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
571 
+            ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
572 
+                Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = True
573 
+                A1_P.Location = New Point(215, 2) : A3_P.Location = New Point(397, 2) : A4_P.Location = New Point(579, 2)
574 
+                彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
575 
+                彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
576 
+                彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
577 
+            ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
578 
+                Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = True
579 
+                A2_P.Location = New Point(215, 2) : A3_P.Location = New Point(397, 2) : A4_P.Location = New Point(579, 2)
580 
+                彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
581 
+                彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
582 
+                彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
583 
+            ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
584 
+                Me.Size = New Size(1133, Screen.PrimaryScreen.Bounds.Height - 60) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = True
585 
+                A1_P.Location = New Point(215, 2) : A2_P.Location = New Point(397, 2) : A3_P.Location = New Point(579, 2) : A4_P.Location = New Point(761, 2)
586 
+                彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
587 
+                彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
588 
+                彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
589 
+            End If
578 590 
         End If
579 591 
     End Sub
580 592 
     Private Sub 顯日_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 顯日_ch.Click

+ 3
- 3
GA-ERP-SYS/特殊操作功能/系統公告.Designer.vb Dosyayı Görüntüle 

@@ -39,11 +39,11 @@ Partial Class 系統公告
39 39 
             Or System.Windows.Forms.AnchorStyles.Left) _
40 40 
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
41 41 
         Me.TextBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
42 
-        Me.TextBox1.Location = New System.Drawing.Point(2, 90)
42 
+        Me.TextBox1.Location = New System.Drawing.Point(2, 103)
43 43 
         Me.TextBox1.Multiline = True
44 44 
         Me.TextBox1.Name = "TextBox1"
45 45 
         Me.TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
46 
-        Me.TextBox1.Size = New System.Drawing.Size(569, 454)
46 
+        Me.TextBox1.Size = New System.Drawing.Size(569, 441)
47 47 
         Me.TextBox1.TabIndex = 0
48 48 
         Me.TextBox1.Text = resources.GetString("TextBox1.Text")
49 49 
         '
 
@@ -65,7 +65,7 @@ Partial Class 系統公告
65 65 
         Me.TextBox3.Name = "TextBox3"
66 66 
         Me.TextBox3.Size = New System.Drawing.Size(569, 514)
67 67 
         Me.TextBox3.TabIndex = 2
68 
-        Me.TextBox3.Text = "版本號 : 2023031701" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "更新內容如下 :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "1、彙總表加入可將 [正負反控制] 隱藏起來的功能。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
68 
+        Me.TextBox3.Text = "版本號 : 2023041001" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "更新內容如下 :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "1、前台與後台基本資料介面開網站的功能，加入網頁加密方式判斷。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "2、後台彙總表縮減呈現方式。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
69 69 
         '
70 70 
         'TextBox4
71 71 
         '

+ 10
- 1
GA-ERP-SYS/特殊操作功能/系統公告.resx Dosyayı Görüntüle 

@@ -118,7 +118,16 @@
118 118 
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
119 119 
   </resheader>
120 120 
   <data name="TextBox1.Text" xml:space="preserve">
121 
-    <value>版本號 : 2023030102
121 
+    <value>版本號 : 2023040501
122 
+更新內容如下 :
123 
+1、明細表與彙總表加入資料筆數顯示。
124 
+2、後台彙總表加入年度貢獻度資料。
125 
+
126 
+版本號 : 2023031701
127 
+更新內容如下 :
128 
+1、彙總表加入可將 [正負反控制] 隱藏起來的功能。
129 
+
130 
+版本號 : 2023030102
122 131 
 更新內容如下 :
123 132 
 1、彙總表加入可批量編輯紙板帳務的功能表。
124 133 
 2、彙總表中的交收帳務總表可以用滑鼠 + Ctrl點擊後加總計算。

Write Preview
Loading…
İptal
Kaydet