20210911備份

工巧明智能管理系統/我的系統/GCM_ERP_SYS.vb

@@ -1,5 +1,4 @@
 Option Explicit On
-Imports System.Data.SqlClient
 Public Class GCM_ERP_SYS
     ReadOnly screenWidth = Screen.PrimaryScreen.Bounds.Width
     ReadOnly screenHeight = Screen.PrimaryScreen.Bounds.Height
@@ -31,7 +30,7 @@ Public Class GCM_ERP_SYS
     End Sub
     Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CloseAllToolStripMenuItem.Click
         '----------關閉父表單的所有子表單---------------------------------------------------------------------------------------------------------------
-        For Each ChildForm As Form In Me.MdiChildren : Login.Close() : ChildForm.Close() : Next
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
     End Sub
     Private m_ChildFormNumber As Integer
     Private Sub MDIParentbreak_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
@@ -51,38 +50,26 @@ Public Class GCM_ERP_SYS
         系統管理_tsm.Enabled = CC(0) : 系統使用者管理_tsm.Enabled = CC(7) : FTP資料夾管理_tsm.Enabled = CC(8)
         系統執行檔版本管理_tsm.Enabled = CC(9) : 系統編碼原則_tsm.Enabled = CC(10) : 系統通用變數管理_tsm.Enabled = CC(11)
         系統對應電腦註冊_tsm.Enabled = CC(12) : 原代碼存放區_tsm.Enabled = CC(18) : 共享文件_tsm.Enabled = CC(19)
-
         '----------業務---------------------------------------------------------------------------------------------------------------------
         業務管理_tsm.Enabled = CC(6) : 業務專案建檔_tsm.Enabled = CC(23)
-
         '----------人事---------------------------------------------------------------------------------------------------------------------
-        人事管理_tsm.Enabled = CC(5) : 人員建檔_tsm.Enabled = CC(21) : 人員ID卡系統配置設定_tsm.Enabled = CC(22)
-        人事請假申請_tsm.Enabled = CC(28) : 人事請假核准_tsm.Enabled = CC(29) : 人員考勤明細表_tsm.Enabled = CC(30)
-        考勤打卡資料補登_tsm.Enabled = CC(31) : 國定假日設定_舊_tsm.Enabled = CC(32)
-
-
+        人事系統管理新_tsm.Enabled = CC(5) : ID卡系統配置設定_tsm.Enabled = CC(22) : 人員入職資料表_tsm.Enabled = CC(21)
+        人事請假申請1_tsm.Enabled = CC(28) : 人事請假核准1_tsm.Enabled = CC(29) : 人員考勤明細表1_tsm.Enabled = CC(30)
+        考勤打卡資料補登1_tsm.Enabled = CC(31) : 國定假日設定1_tsm.Enabled = CC(32)
         '----------新人事---------------------------------------------------------------------------------------------------------------------
         系統使用者權限設定_tsm.Enabled = BB(1) : 系統使用者權限設定_tsm.Enabled = BB(2) : 人事系統變數設定_tsm.Enabled = BB(3) : ID卡配置設定_tsm.Enabled = BB(4) : 人員資料表_tsm.Enabled = BB(5)
-        '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         排班資料_tsm.Enabled = BB(6)
-        '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         加班申請審核_tsm.Enabled = BB(7) : 加班申請_tsm.Enabled = BB(8) : 加班核准_tsm.Enabled = BB(9) : 最後關班時間_tsm.Enabled = BB(10) : 加班申請資料_tsm.Enabled = BB(24)
-        '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         休假申請審核_tsm.Enabled = BB(11) : 休假申請_tsm.Enabled = BB(12) : 休假核准_tsm.Enabled = BB(13) : 國定假日設定_tsm.Enabled = BB(15) : 歷史休假紀錄_tsm.Enabled = BB(25)
-        '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         考勤管理_tsm.Enabled = BB(14) : 考勤明細表_tsm.Enabled = BB(26) : 到離職管理_tsm.Enabled = BB(27) : 到離職核准_tsm.Enabled = BB(13)
         '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 
-
         '----------財務---------------------------------------------------------------------------------------------------------------------
         財務管理_tsm.Enabled = CC(1) : 個人財務_tsm.Enabled = CC(13) : 帳務系統_tsm.Enabled = CC(16) : 匯率管理_tsm.Enabled = CC(17)
-
         '----------設備開發---------------------------------------------------------------------------------------------------------------------
         設備開發系統_tsm.Enabled = CC(4)
-
         '----------軟體開發---------------------------------------------------------------------------------------------------------------------
         軟件開發系統管理_tsm.Enabled = CC(3) : 工作日志_tsm.Enabled = CC(20) : 系統開發點檢控制表_tsm.Enabled = CC(25)
-
         '----------決策---------------------------------------------------------------------------------------------------------------------
         決策系統管理_tsm.Enabled = CC(2) : 卜卦簡易_tsm.Enabled = CC(14) : 卜卦進階_tsm.Enabled = CC(15)
     End Sub
@@ -130,211 +117,206 @@ Public Class GCM_ERP_SYS
             End If
             Me.BackgroundImageLayout = 3
         ElseIf ComboBox3.Text = "系統運作流程邏輯01" Then
-            'Me.BackgroundImage = My.Resources.系統運作流程邏輯01
             Me.BackgroundImageLayout = 3
         End If
     End Sub
+    Private Sub ID卡系統配置設定_tsm_Click(sender As Object, e As EventArgs) Handles ID卡系統配置設定_tsm.Click
+        系統登出計時重至_MouseMove() : PA = "" : 人員ID卡系統配置設定.ShowDialog()
+    End Sub
+    Private Sub 個人帳號管理_tsm_Click(sender As Object, e As EventArgs) Handles 個人帳號管理_tsm.Click
+        系統登出計時重至_MouseMove() : PA = "" : 個人帳號管理.ShowDialog()
+    End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         系統登出計時重至_MouseMove() : PA = "" : 計算機.Show() : 計算機.BringToFront()
     End Sub
-    Private Sub 個人財務ToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles 個人財務_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 私有財務.Show() : 私有財務.BringToFront()
+    Private Sub 卜卦簡易_tsm_Click(sender As Object, e As EventArgs) Handles 卜卦簡易_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 卜卦.Show()
     End Sub
-    Private Sub 帳務系統ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 帳務系統_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 財務流水帳系統.Show() : 財務流水帳系統.BringToFront()
+    Private Sub 卜卦進階_tsm_Click(sender As Object, e As EventArgs) Handles 卜卦進階_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 卜卦2.Show()
     End Sub
-    Private Sub 業務專案建檔ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 業務專案建檔_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 業務專案控制表.Show() : 業務專案控制表.BringToFront()
+    Private Sub 個人財務_tsm_Click_1(sender As Object, e As EventArgs) Handles 個人財務_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 私有財務.Show()
     End Sub
-    Private Sub 人員建檔ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 人員建檔_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 人員入職資料表.Show() : 人員入職資料表.BringToFront()
+    Private Sub 帳務系統_tsm_Click(sender As Object, e As EventArgs) Handles 帳務系統_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 財務流水帳系統.Show()
     End Sub
-    Private Sub 卜卦簡易ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 卜卦簡易_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 卜卦.Show() : 卜卦.BringToFront()
+    Private Sub FTP資料夾管理_tsm_Click(sender As Object, e As EventArgs) Handles FTP資料夾管理_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : FTP資料夾管理.Show()
     End Sub
-    Private Sub 卜卦進階ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 卜卦進階_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 卜卦2.Show() : 卜卦2.BringToFront()
+    Private Sub 系統執行檔版本管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 系統執行檔版本管理.Show()
     End Sub
-    Private Sub 個人帳號管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 個人帳號管理ToolStripMenuItem.Click
-        系統登出計時重至_MouseMove() : PA = "" : 個人帳號管理.Show() : 個人帳號管理.BringToFront()
+    Private Sub 系統使用者管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統使用者管理_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 系統使用者管理.Show()
     End Sub
-    Private Sub FTP資料夾管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FTP資料夾管理_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : FTP資料夾管理.Show() : FTP資料夾管理.BringToFront()
+    Private Sub 系統編碼原則_tsm_Click(sender As Object, e As EventArgs) Handles 系統編碼原則_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 系統編碼原則_1.Show()
     End Sub
-    Private Sub 系統執行檔版本管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統執行檔版本管理_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 系統執行檔版本管理.Show() : 系統執行檔版本管理.BringToFront()
+    Private Sub 系統通用變數管理_tsm_Click(sender As Object, e As EventArgs) Handles 系統通用變數管理_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 系統通用變數管理.Show()
     End Sub
-    Private Sub 原代碼存放區ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 原代碼存放區_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 原代碼存放區.Show() : 原代碼存放區.BringToFront()
+    Private Sub 系統對應電腦註冊_tsm_Click(sender As Object, e As EventArgs) Handles 系統對應電腦註冊_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 系統對應電腦註冊.Show()
     End Sub
-    Private Sub 系統使用者管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統使用者管理_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 系統使用者管理.Show() : 系統使用者管理.BringToFront()
+    Private Sub 匯率管理_tsm_Click(sender As Object, e As EventArgs) Handles 匯率管理_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 匯率修改.Show()
     End Sub
-    Private Sub 共享文件ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 共享文件_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 開發文件存放區.Show() : 開發文件存放區.BringToFront()
+    Private Sub 會計科目管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 會計科目管理_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 會計科目管理.Show()
     End Sub
-    Private Sub 系統編碼原則1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統編碼原則_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 系統編碼原則_1.Show() : 系統編碼原則_1.BringToFront()
+    Private Sub 財務支付申請_tsm_Click(sender As Object, e As EventArgs) Handles 財務支付申請_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 財務_收支單申請.Show()
     End Sub
-    Private Sub 工作日志ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 工作日志_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 工作日誌與代辦事項.Show() : 工作日誌與代辦事項.BringToFront()
+    Private Sub 財務支付審核_tsm_Click(sender As Object, e As EventArgs) Handles 財務支付審核_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 財務_收支單審核.Show()
     End Sub
-    Private Sub 人員ID卡系統配置設定ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 人員ID卡系統配置設定_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 人員ID卡系統配置設定.ShowDialog()
+    Private Sub 財務支付單一覽表_tsm_Click(sender As Object, e As EventArgs) Handles 財務支付單一覽表_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 財務_收支單一覽表.Show()
     End Sub
-    Private Sub 系統通用變數管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統通用變數管理_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 系統通用變數管理.Show() : 系統通用變數管理.BringToFront()
+    Private Sub 簽名檔管理_tsm_Click(sender As Object, e As EventArgs) Handles 簽名檔管理_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 簽名檔管理.Show()
     End Sub
-    Private Sub 系統對應電腦註冊ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統對應電腦註冊_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 系統對應電腦註冊.Show() : 系統對應電腦註冊.BringToFront()
+    Private Sub 財務對帳表_tsm_Click(sender As Object, e As EventArgs) Handles 財務對帳表_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 財務_對帳單.Show()
     End Sub
-    Private Sub 供應商管理ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 供應商管理_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 供應商資料.Show() : 供應商資料.BringToFront()
+    Private Sub 財務決算表_tsm_Click(sender As Object, e As EventArgs) Handles 財務決算表_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 財務_決算表.Show()
     End Sub
-    Private Sub 進貨管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 進貨管理_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 進貨管理.Show() : 進貨管理.BringToFront()
+    Private Sub 財務彙總表_tsm_Click(sender As Object, e As EventArgs) Handles 財務彙總表_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 財務_彙總表.Show()
     End Sub
-    Private Sub 領物管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 領物管理_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 銷貨管理.Show() : 銷貨管理.BringToFront()
+    Private Sub 系統使用者權限設定_tsm_Click(sender As Object, e As EventArgs) Handles 系統使用者權限設定_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 系統使用者權限設定.Show()
     End Sub
-    Private Sub 庫存查詢ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 庫存查詢_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 庫存管理.Show() : 庫存管理.BringToFront()
+    Private Sub 人事系統變數設定_tsm_Click(sender As Object, e As EventArgs) Handles 人事系統變數設定_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 人事系統變數設定.Show()
     End Sub
-    Private Sub 出庫紀錄ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 出庫紀錄_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 出庫紀錄表.Show() : 出庫紀錄表.BringToFront()
+    Private Sub 人員資料表_tsm_Click(sender As Object, e As EventArgs) Handles 人員資料表_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 人員資料表.Show()
     End Sub
-    Private Sub 零件成本ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 零件成本_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 零件成本建檔.Show() : 零件成本建檔.BringToFront()
+    Private Sub ID卡配置設定_tsm_Click(sender As Object, e As EventArgs) Handles ID卡配置設定_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 人員ID卡系統配置設定.Show()
     End Sub
-    Private Sub 零組件成本ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 零組件成本_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 零組件零件成本建檔.Show() : 零組件零件成本建檔.BringToFront()
+    Private Sub 排班資料_tsm_Click(sender As Object, e As EventArgs) Handles 排班資料_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 排班資料.Show()
     End Sub
-    Private Sub 機構件成本ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 機構件成本_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 機構件零件成本建檔.Show() : 機構件零件成本建檔.BringToFront()
+    Private Sub 休假申請_tsm_Click(sender As Object, e As EventArgs) Handles 休假申請_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 休假申請.Show()
     End Sub
-    Private Sub 機構組件成本ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 機構組件成本_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 機構組件零件成本建檔.Show() : 機構組件零件成本建檔.BringToFront()
+    Private Sub 休假核准_tsm_Click(sender As Object, e As EventArgs) Handles 休假核准_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 休假核准.Show()
     End Sub
-    Private Sub 機台成本ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles 機台成本_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 機台零件成本建檔.Show() : 機台零件成本建檔.BringToFront()
+    Private Sub 加班申請_tsm_Click(sender As Object, e As EventArgs) Handles 加班申請_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 加班申請.Show()
     End Sub
-    Private Sub 服務項目成本ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 服務項目成本_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 服務項目成本建檔.Show() : 服務項目成本建檔.BringToFront()
+    Private Sub 加班核准_tsm_Click(sender As Object, e As EventArgs) Handles 加班核准_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 加班核准.Show()
     End Sub
-    Private Sub 零組件零件BOM表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 零組件零件BOM表_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 零組件零件BOM表.Show() : 零組件零件BOM表.BringToFront()
+    Private Sub 國定假日設定_tsm_Click(sender As Object, e As EventArgs) Handles 國定假日設定_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 國定假日設定.Show()
     End Sub
-    Private Sub 機構件零組件BOM表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 機構件零組件BOM表_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 機構件零件BOM表.Show() : 機構件零件BOM表.BringToFront()
+    Private Sub 歷史休假紀錄_tsm_Click(sender As Object, e As EventArgs) Handles 歷史休假紀錄_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 歷史休假紀錄.Show()
     End Sub
-    Private Sub 機構組件機構件BOM表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 機構組件機構件BOM表_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 機構組件零件BOM表.Show() : 機構組件零件BOM表.BringToFront()
+    Private Sub 加班申請資料_tsm_Click(sender As Object, e As EventArgs) Handles 加班申請資料_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 加班申請資料.Show()
     End Sub
-    Private Sub 機台機構組件BOM表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 機台機構組件BOM表_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 機台零件BOM表.Show() : 機台零件BOM表.BringToFront()
+    Private Sub 最後關班時間_tsm_Click(sender As Object, e As EventArgs) Handles 最後關班時間_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 最後關班時間.Show()
     End Sub
-    Private Sub 匯率管理ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 匯率管理_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 匯率修改.Show() : 匯率修改.BringToFront()
+    Private Sub 到離職核准_tsm_Click(sender As Object, e As EventArgs) Handles 到離職核准_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 休假核准.Show()
     End Sub
-    Private Sub 系統開發點檢控制表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統開發點檢控制表_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 系統開發點檢控制表.Show() : 系統開發點檢控制表.BringToFront()
+    Private Sub 到離職管理_tsm_Click(sender As Object, e As EventArgs) Handles 到離職管理_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 到離職管理.Show()
+    End Sub
+    Private Sub 考勤明細表_tsm_Click(sender As Object, e As EventArgs) Handles 考勤明細表_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 考勤明細表.Show()
     End Sub
 
 
 
-
-    Private Sub 系統開發功能點檢表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統開發功能點檢表_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 系統開發功能點檢表.Show() : 系統開發功能點檢表.BringToFront()
-    End Sub
-    Private Sub 會計科目管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 會計科目管理_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 會計科目管理.Show() : 會計科目管理.BringToFront()
-    End Sub
-    Private Sub 營運費用支付申請ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運費用支付申請_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 營運成本收支單申請.Show() : 營運成本收支單申請.BringToFront()
-    End Sub
-    Private Sub 營運費用支付審核ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運費用支付審核_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 營運成本收支單審核.Show() : 營運成本收支單審核.BringToFront()
+    '---------------------未使用封存介面-------------------------------------------------------------------------------------------------
+    Private Sub 業務專案建檔ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 業務專案建檔_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 業務專案控制表.Show() : 業務專案控制表.BringToFront()
     End Sub
-    Private Sub 營運費用支付單一覽表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運費用支付單一覽表_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 營運成本收支單一覽表.Show() : 營運成本收支單一覽表.BringToFront()
+    Private Sub 原代碼存放區ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 原代碼存放區_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 原代碼存放區.Show() : 原代碼存放區.BringToFront()
     End Sub
-    Private Sub 簽名檔管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 簽名檔管理_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 簽名檔管理.Show() : 簽名檔管理.BringToFront()
+    Private Sub 共享文件ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 共享文件_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 開發文件存放區.Show() : 開發文件存放區.BringToFront()
     End Sub
-    Private Sub 營運成本收支單對帳表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運成本收支單對帳表_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 營運成本收支單_對帳表.Show() : 營運成本收支單_對帳表.BringToFront()
+    Private Sub 工作日志ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 工作日志_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 工作日誌與代辦事項.Show() : 工作日誌與代辦事項.BringToFront()
     End Sub
-    Private Sub 營運報表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運報表_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 營運報表.Show() : 營運報表.BringToFront()
+    Private Sub 供應商管理ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 供應商管理_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 供應商資料.Show() : 供應商資料.BringToFront()
     End Sub
-    Private Sub 人員考勤明細表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 人員考勤明細表_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 人員考勤明細表.Show() : 人員考勤明細表.BringToFront()
+    Private Sub 進貨管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 進貨管理_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 進貨管理.Show() : 進貨管理.BringToFront()
     End Sub
-    Private Sub 人事請假申請ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 人事請假申請_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 人事請假申請.Show() : 人事請假申請.BringToFront()
+    Private Sub 領物管理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 領物管理_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 銷貨管理.Show() : 銷貨管理.BringToFront()
     End Sub
-    Private Sub 人事請假核准ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 人事請假核准_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 人事請假核准.Show() : 人事請假核准.BringToFront()
+    Private Sub 庫存查詢ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 庫存查詢_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 庫存管理.Show() : 庫存管理.BringToFront()
     End Sub
-    Private Sub 考勤打卡資料補登ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 考勤打卡資料補登_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 考勤打卡資料補登.Show() : 考勤打卡資料補登.BringToFront()
+    Private Sub 出庫紀錄ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 出庫紀錄_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 出庫紀錄表.Show() : 出庫紀錄表.BringToFront()
     End Sub
-    Private Sub 國定假日設定ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 國定假日設定_舊_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 國定假日設定_舊.Show() : 國定假日設定_舊.BringToFront()
+    Private Sub 零件成本ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 零件成本_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 零件成本建檔.Show() : 零件成本建檔.BringToFront()
     End Sub
-    Private Sub 營運成本收支彙總報表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 營運成本收支彙總報表_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 彙總報表.Show() : 彙總報表.BringToFront()
+    Private Sub 零組件成本ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 零組件成本_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 零組件零件成本建檔.Show() : 零組件零件成本建檔.BringToFront()
     End Sub
-
-
-
-
-    Private Sub 系統使用者權限設定_tsm_Click(sender As Object, e As EventArgs) Handles 系統使用者權限設定_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 系統使用者權限設定.ShowDialog()
+    Private Sub 機構件成本ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 機構件成本_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 機構件零件成本建檔.Show() : 機構件零件成本建檔.BringToFront()
     End Sub
-    Private Sub 人事系統變數設定_tsm_Click(sender As Object, e As EventArgs) Handles 人事系統變數設定_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 人事系統變數設定.Show() : 人事系統變數設定.BringToFront()
+    Private Sub 機構組件成本ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 機構組件成本_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 機構組件零件成本建檔.Show() : 機構組件零件成本建檔.BringToFront()
     End Sub
-    Private Sub 人員資料表_tsm_Click(sender As Object, e As EventArgs) Handles 人員資料表_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 人員資料表.Show() : 人員資料表.BringToFront()
+    Private Sub 機台成本ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles 機台成本_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 機台零件成本建檔.Show() : 機台零件成本建檔.BringToFront()
     End Sub
-    Private Sub ID卡配置設定_tsm_Click(sender As Object, e As EventArgs) Handles ID卡配置設定_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 人員ID卡系統配置設定.ShowDialog()
+    Private Sub 服務項目成本ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 服務項目成本_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 服務項目成本建檔.Show() : 服務項目成本建檔.BringToFront()
     End Sub
-    Private Sub 排班資料_tsm_Click(sender As Object, e As EventArgs) Handles 排班資料_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 排班資料.Show() : 排班資料.BringToFront()
+    Private Sub 零組件零件BOM表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 零組件零件BOM表_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 零組件零件BOM表.Show() : 零組件零件BOM表.BringToFront()
     End Sub
-    Private Sub 休假申請_tsm_Click(sender As Object, e As EventArgs) Handles 休假申請_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 休假申請.ShowDialog()
+    Private Sub 機構件零組件BOM表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 機構件零組件BOM表_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 機構件零件BOM表.Show() : 機構件零件BOM表.BringToFront()
     End Sub
-    Private Sub 休假核准_tsm_Click(sender As Object, e As EventArgs) Handles 休假核准_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 休假核准.ShowDialog()
+    Private Sub 機構組件機構件BOM表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 機構組件機構件BOM表_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 機構組件零件BOM表.Show() : 機構組件零件BOM表.BringToFront()
     End Sub
-    Private Sub 加班申請_tsm_Click(sender As Object, e As EventArgs) Handles 加班申請_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 加班申請.ShowDialog()
+    Private Sub 機台機構組件BOM表ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 機台機構組件BOM表_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 機台零件BOM表.Show() : 機台零件BOM表.BringToFront()
     End Sub
-    Private Sub 加班核准_tsm_Click(sender As Object, e As EventArgs) Handles 加班核准_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 加班核准.ShowDialog()
+    Private Sub 系統開發點檢控制表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統開發點檢控制表_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 系統開發點檢控制表.Show() : 系統開發點檢控制表.BringToFront()
     End Sub
-    Private Sub 國定假日設定_tsm_Click(sender As Object, e As EventArgs) Handles 國定假日設定_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 國定假日設定.ShowDialog()
+    Private Sub 系統開發功能點檢表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 系統開發功能點檢表_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 系統開發功能點檢表.Show() : 系統開發功能點檢表.BringToFront()
     End Sub
-    Private Sub 歷史休假紀錄_tsm_Click(sender As Object, e As EventArgs) Handles 歷史休假紀錄_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 歷史休假紀錄.ShowDialog()
+    Private Sub 人員考勤明細表1_tsm_Click(sender As Object, e As EventArgs) Handles 人員考勤明細表1_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 人員考勤明細表.Show() : 人員考勤明細表.BringToFront()
     End Sub
-    Private Sub 加班申請資料_tsm_Click(sender As Object, e As EventArgs) Handles 加班申請資料_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 加班申請資料.ShowDialog()
+    Private Sub 人事請假申請1_tsm_Click(sender As Object, e As EventArgs) Handles 人事請假申請1_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 人事請假申請.Show() : 人事請假申請.BringToFront()
     End Sub
-    Private Sub 最後關班時間_tsm_Click(sender As Object, e As EventArgs) Handles 最後關班時間_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 最後關班時間.ShowDialog()
+    Private Sub 人事請假核准1_tsm_Click(sender As Object, e As EventArgs) Handles 人事請假核准1_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 人事請假核准.Show() : 人事請假核准.BringToFront()
     End Sub
-    Private Sub 到離職核准_tsm_Click(sender As Object, e As EventArgs) Handles 到離職核准_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 休假核准.ShowDialog()
+    Private Sub 考勤打卡資料補登1_tsm_Click(sender As Object, e As EventArgs) Handles 考勤打卡資料補登1_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 考勤打卡資料補登.Show() : 考勤打卡資料補登.BringToFront()
     End Sub
-    Private Sub 到離職管理_tsm_Click(sender As Object, e As EventArgs) Handles 到離職管理_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 到離職管理.ShowDialog()
+    Private Sub 國定假日設定1_tsm_Click(sender As Object, e As EventArgs) Handles 國定假日設定1_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 國定假日設定_舊.Show() : 國定假日設定_舊.BringToFront()
     End Sub
-    Private Sub 考勤明細表_tsm_Click(sender As Object, e As EventArgs) Handles 考勤明細表_tsm.Click
-        系統登出計時重至_MouseMove() : PA = "" : 考勤明細表.Show() : 考勤明細表.BringToFront()
+    Private Sub 人員入職資料表_tsm_Click(sender As Object, e As EventArgs) Handles 人員入職資料表_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next : 系統登出計時重至_MouseMove() : PA = "" : 人員入職資料表.Show() : 人員入職資料表.BringToFront()
     End Sub
 End Class

工巧明智能管理系統/我的系統/MyModule/全域變數.vb

@@ -8,7 +8,7 @@
     Public 登入權限AQL As String = "姓名, 帳號, 密碼, 密碼日期, CC00, CC01, CC02, CC03, CC04, CC05, CC06, CC07, CC08, CC09, CC10, CC11, CC12, CC13, CC14, CC15, CC16, CC17, CC18, CC19, CC20, CC21, CC22, 
                                     CC23, CC24, CC25, CC26, CC27, CC28, CC29, CC30, CC31, CC32"
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2021080301"
+    Public 版本 As String = "2021091001"
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 判斷重登 As Boolean : Public 內外網 As Boolean : Public 重登確認 As Boolean : Public 主頁開啟 As Boolean
     Public timeExit As Integer = 0 : Public timeExit2 As Integer = 0 : Public timeNow As Integer = 0 : Public timeNow2 As Integer = 0 : Public 密碼時限 As Integer = 30

工巧明智能管理系統/我的系統/obj/x86/Debug/工巧明智能管理系統.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-39207c91f08cf498f77bad6a5e08ec4dec37b3ec
+39707ed71c8a58ae11eebd743d665ed6579af55e

工巧明智能管理系統/我的系統/obj/x86/Debug/工巧明智能管理系統.vbproj.FileListAbsolute.txt

@@ -552,15 +552,9 @@ D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\
 D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.國定假日設定.resources
 D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.考勤打卡資料補登.resources
 D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.系統使用者權限設定.resources
-D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.營運報表.resources
 D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.簽名檔管理.resources
 D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.計算機.resources
 D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.會計科目管理.resources
-D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.彙總報表.resources
-D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.營運成本收支單_對帳表.resources
-D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.營運成本收支單一覽表.resources
-D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.營運成本收支單審核.resources
-D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.營運成本收支單申請.resources
 D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.網段.resources
 D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.系統開發功能點檢表.resources
 D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.系統開發點檢控制表.resources
@@ -630,3 +624,9 @@ D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\
 D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.到離職管理.resources
 D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.考勤明細表.resources
 D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.考勤明細表_編輯.resources
+D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.財務_決算表.resources
+D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.財務_彙總表.resources
+D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.財務_對帳單.resources
+D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.財務_收支單一覽表.resources
+D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.財務_收支單審核.resources
+D:\工巧明\GCM-ERP-SYS\工巧明智能管理系統\我的系統\obj\x86\Debug\工巧明智能管理系統.財務_收支單申請.resources

工巧明智能管理系統/我的系統/人事系統管理_新/休假申請.vb

@@ -42,7 +42,7 @@
         PA1 = 年份_cb.Text : PA2 = 月份_cb.Text
         讀取人員資料表()
 
-        If CC(16) = False Then
+        If BB(16) = False Then
             人員_dgv.Enabled = False
             申請人_tb.Text = gUserName
             SQL_考勤明細表_讀取編號() : If dr.Read() Then : 員工編號_tb.Text = dr("DIN") : End If

工巧明智能管理系統/我的系統/人事系統管理_新/到離職管理.vb

@@ -42,7 +42,7 @@
         PA1 = 年份_cb.Text : PA2 = 月份_cb.Text
         讀取人員資料表()
 
-        If CC(16) = False Then
+        If BB(16) = False Then
             人員_dgv.Enabled = False
             申請人_tb.Text = gUserName
             SQL_考勤明細表_讀取編號() : If dr.Read() Then : 員工編號_tb.Text = dr("DIN") : End If

工巧明智能管理系統/我的系統/人事系統管理_新/加班核准.Designer.vb

@@ -255,7 +255,7 @@ Partial Class 加班核准
         '
         Me.請假類別_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.請假類別_cb.FormattingEnabled = True
-        Me.請假類別_cb.Items.AddRange(New Object() {"加班(未超最晚下診)", "加班(已超最晚下診)"})
+        Me.請假類別_cb.Items.AddRange(New Object() {"加班(未超關門)", "加班(已超關門)", "出差", "洽公"})
         Me.請假類別_cb.Location = New System.Drawing.Point(525, 4)
         Me.請假類別_cb.Name = "請假類別_cb"
         Me.請假類別_cb.Size = New System.Drawing.Size(242, 24)

工巧明智能管理系統/我的系統/人事系統管理_新/加班申請.Designer.vb

@@ -154,7 +154,7 @@ Partial Class 加班申請
         '
         Me.請假類別_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.請假類別_cb.FormattingEnabled = True
-        Me.請假類別_cb.Items.AddRange(New Object() {"加班(未超最晚下診)", "加班(已超最晚下診)"})
+        Me.請假類別_cb.Items.AddRange(New Object() {"加班(未超關門)", "加班(已超關門)", "出差", "洽公"})
         Me.請假類別_cb.Location = New System.Drawing.Point(658, 38)
         Me.請假類別_cb.Name = "請假類別_cb"
         Me.請假類別_cb.Size = New System.Drawing.Size(186, 24)

工巧明智能管理系統/我的系統/人事系統管理_新/加班申請.vb

@@ -43,7 +43,7 @@
         PA1 = 年份_cb.Text : PA2 = 月份_cb.Text
         讀取人員資料表()
 
-        If CC(16) = False Then
+        If BB(16) = False Then
             人員_dgv.Enabled = False
             申請人_tb.Text = gUserName
             SQL_考勤明細表_讀取編號() : If dr.Read() Then : 員工編號_tb.Text = dr("DIN") : End If

工巧明智能管理系統/我的系統/人事系統管理_新/加班申請資料.Designer.vb

@@ -216,7 +216,7 @@ Partial Class 加班申請資料
         '
         Me.請假類別_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.請假類別_cb.FormattingEnabled = True
-        Me.請假類別_cb.Items.AddRange(New Object() {"加班(未超最晚下診)", "加班(已超最晚下診)"})
+        Me.請假類別_cb.Items.AddRange(New Object() {"加班(未超關門)", "加班(已超關門)", "出差", "洽公"})
         Me.請假類別_cb.Location = New System.Drawing.Point(525, 4)
         Me.請假類別_cb.Name = "請假類別_cb"
         Me.請假類別_cb.Size = New System.Drawing.Size(242, 24)

工巧明智能管理系統/我的系統/人事系統管理_新/國定假日設定.Designer.vb

@@ -151,7 +151,7 @@ Partial Class 國定假日設定
         '
         Me.請假類別_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.請假類別_cb.FormattingEnabled = True
-        Me.請假類別_cb.Items.AddRange(New Object() {"國定假日"})
+        Me.請假類別_cb.Items.AddRange(New Object() {"國定假日", "補上班"})
         Me.請假類別_cb.Location = New System.Drawing.Point(685, 38)
         Me.請假類別_cb.Name = "請假類別_cb"
         Me.請假類別_cb.Size = New System.Drawing.Size(186, 24)

工巧明智能管理系統/我的系統/人事系統管理_新/排班明細.vb

@@ -575,7 +575,7 @@ Public Class 排班明細
         End If
     End Sub
     Private Sub 排班明細_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        If CC(17) = False Then
+        If BB(17) = False Then
             存檔_bt.Enabled = False : 複製班表_bt.Enabled = False : 人員_dgv.Enabled = False : 全_ch.Enabled = False : 複製班表_bt.Enabled = False
             For no As Integer = 1 To 20
                 Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)

工巧明智能管理系統/我的系統/人事系統管理_新/排班明細_參考.vb

@@ -575,7 +575,7 @@ Public Class 排班明細_參考
         End If
     End Sub
     Private Sub 排班明細_參考_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        If CC(17) = False Then
+        If BB(17) = False Then
             存檔_bt.Enabled = False : 複製班表_bt.Enabled = False : 人員_dgv.Enabled = False : 全_ch.Enabled = False : 複製班表_bt.Enabled = False
             For no As Integer = 1 To 20
                 Dim 姓名_tbS As TextBox = CType(Me.Controls.Find("姓名_tb" + no.ToString(), True)(0), TextBox)

工巧明智能管理系統/我的系統/人事系統管理_新/考勤明細表.vb

@@ -336,12 +336,19 @@ Public Class 考勤明細表
         For I As Integer = 0 To 月清單_dgv.Rows.Count - 1
             If 月清單_dgv.Rows(I).Cells("休假類別").Value.ToString <> "國定假日" And 月清單_dgv.Rows(I).Cells("休假類別").Value.ToString <> "" And
                月清單_dgv.Rows(I).Cells("休假類別").Value.ToString <> "特休" And 月清單_dgv.Rows(I).Cells("休假類別").Value.ToString <> "未到" And
-               月清單_dgv.Rows(I).Cells("休假類別").Value.ToString <> "離職" Then
+               月清單_dgv.Rows(I).Cells("休假類別").Value.ToString <> "離職" And 月清單_dgv.Rows(I).Cells("休假類別").Value.ToString <> "補上班" Then
                 請假日 += 1
             End If
             ''---------------------------平日
-            If 月清單_dgv.Rows(I).Cells("星期").Value.ToString <> "星期六" And 月清單_dgv.Rows(I).Cells("星期").Value.ToString <> "星期日" And
-               月清單_dgv.Rows(I).Cells("休假類別").Value.ToString <> "國定假日" And 月清單_dgv.Rows(I).Cells("休假類別").Value.ToString = "" Then
+            Dim 是否平日 As Boolean = True
+            If 月清單_dgv.Rows(I).Cells("星期").Value.ToString = "星期六" And 月清單_dgv.Rows(I).Cells("休假類別").Value.ToString = "補上班" Then : 是否平日 = True
+            ElseIf 月清單_dgv.Rows(I).Cells("星期").Value.ToString = "星期六" And 月清單_dgv.Rows(I).Cells("休假類別").Value.ToString <> "補上班" Then : 是否平日 = False
+            ElseIf 月清單_dgv.Rows(I).Cells("星期").Value.ToString = "星期日" And 月清單_dgv.Rows(I).Cells("休假類別").Value.ToString = "補上班" Then : 是否平日 = True
+            ElseIf 月清單_dgv.Rows(I).Cells("星期").Value.ToString = "星期日" And 月清單_dgv.Rows(I).Cells("休假類別").Value.ToString <> "補上班" Then : 是否平日 = False
+            End If
+
+            If 是否平日 = True And 月清單_dgv.Rows(I).Cells("休假類別").Value.ToString <> "國定假日" And
+              (月清單_dgv.Rows(I).Cells("休假類別").Value.ToString = "" Or 月清單_dgv.Rows(I).Cells("休假類別").Value.ToString = "補上班") Then
                 加班時27 += 1
                 If 月清單_dgv.Rows(I).Cells("一段工時").Value.ToString <> "" Then
                     平日班 += 1
@@ -358,7 +365,7 @@ Public Class 考勤明細表
                 End If
             End If
             ''---------------------------星期六
-            If 月清單_dgv.Rows(I).Cells("星期").Value.ToString = "星期六" Then
+            If 月清單_dgv.Rows(I).Cells("星期").Value.ToString = "星期六" And 月清單_dgv.Rows(I).Cells("休假類別").Value.ToString <> "補上班" Then
                 If 月清單_dgv.Rows(I).Cells("一段工時").Value.ToString <> "" And 月清單_dgv.Rows(I).Cells("一段工時").Value.ToString <> "0 : 0" Then
                     假日班 += 1
                     加班時3 = Val(Strings.Left(月清單_dgv.Rows(I).Cells("一段工時").Value.ToString, 2)) : 加班時4 = Val(Strings.Right(月清單_dgv.Rows(I).Cells("一段工時").Value.ToString, 2))
@@ -384,7 +391,8 @@ Public Class 考勤明細表
             End If
 
             '---------------------------星期日或國定假日
-            If 月清單_dgv.Rows(I).Cells("星期").Value.ToString = "星期日" Or 月清單_dgv.Rows(I).Cells("休假類別").Value.ToString = "國定假日" Then
+            If (月清單_dgv.Rows(I).Cells("星期").Value.ToString = "星期日" And 月清單_dgv.Rows(I).Cells("休假類別").Value.ToString <> "補上班") Or
+                月清單_dgv.Rows(I).Cells("休假類別").Value.ToString = "國定假日" Then
                 If 月清單_dgv.Rows(I).Cells("一段工時").Value.ToString <> "" And 月清單_dgv.Rows(I).Cells("一段工時").Value.ToString <> "0 : 0" Then
                     假日班 += 1
                     加班時17 += Val(Strings.Left(月清單_dgv.Rows(I).Cells("一段工時").Value.ToString, 2)) : 加班時18 += Val(Strings.Right(月清單_dgv.Rows(I).Cells("一段工時").Value.ToString, 2))
@@ -435,7 +443,7 @@ Public Class 考勤明細表
             If Val(國假日加_tb.Text) >= 彈性扣時 Then
                 國假日加1_tb.Text = Format(Val(國假日加_tb.Text) - 彈性扣時, "#,##0.00")
                 當月平日一段1_tb.Text = 當月平日一段_tb.Text : 當月平日二段1_tb.Text = 當月平日二段_tb.Text : 一段假日加1_tb.Text = 一段假日加_tb.Text : 二段假日加1_tb.Text = 二段假日加_tb.Text
-            ElseIf Val(國假日加_tb.Text) < 彈性扣時 Then
+            ElseIf Val(國假日加_tb.Text) <彈性扣時 Then
                 彈性扣時 -= Val(國假日加_tb.Text) : 國假日加1_tb.Text = "0.00"
                 If Val(二段假日加_tb.Text) >= 彈性扣時 Then
                     二段假日加1_tb.Text = Format(Val(二段假日加_tb.Text) - 彈性扣時, "#,##0.00")
@@ -461,7 +469,7 @@ Public Class 考勤明細表
                     End If
                 End If
             End If
-        End If
+            End If
     End Sub
     Private Sub Set_考勤流水()
         考勤流水_dgv.DataSource = Nothing : ds5.Clear()
@@ -603,6 +611,7 @@ Public Class 考勤明細表
     End Sub
     Private Sub 考勤明細表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        GCM_ERP_SYS.WindowState = 2
         年份_下拉表單資料載入() : 讀取班別()
         年份_cb.Text = Year(Today) : 月份_cb.SelectedIndex = Month(Today) - 1
         PA1 = 年份_cb.Text : PA2 = 月份_cb.Text
@@ -641,14 +650,18 @@ Public Class 考勤明細表
         排班彙總_dgv.Columns(0).FillWeight = 80 : 排班彙總_dgv.Columns(1).FillWeight = 70 : 排班彙總_dgv.Columns(2).FillWeight = 90 : 排班彙總_dgv.Columns(3).FillWeight = 300
         讀取日期()
 
-        If CC(16) = False Then
+        If BB(16) = False Then
             考勤資料編輯_bt.Enabled = False : 時薪制_ch.Enabled = False : 彈性工時_ch.Enabled = False
             人員_dgv.Enabled = False : 整體考勤彙總_bt.Enabled = False : 排班彙總_bt.Enabled = False : 重新讀取_bt.Enabled = False
-            姓名_tb.Text = gUserName : 資料數 = 30
+            姓名_tb.Text = gUserName : 資料數 = 31
+            For i As Integer = 0 To 人員_dgv.Rows.Count - 1 : If 姓名_tb.Text = 人員_dgv("姓名", i).Value.ToString Then : 時薪制_ch.Checked = 人員_dgv("CC18", i).Value : End If : Next
             SQL_考勤明細表_讀取編號() : If dr.Read() Then : 編號 = dr("DIN") : End If
             Set_考勤明細() : Set_考勤流水() : GCM_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
         End If
     End Sub
+    Private Sub 考勤明細表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
+        GCM_ERP_SYS.WindowState = 0
+    End Sub
     Private Sub 人員_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 人員_dgv.CellClick
         If e.RowIndex = -1 Then : Else
             編號 = 人員_dgv("編號", e.RowIndex).Value.ToString : 姓名_tb.Text = 人員_dgv("姓名", e.RowIndex).Value.ToString
@@ -681,7 +694,11 @@ Public Class 考勤明細表
                     End If
                 Next
                 If ID_tb.Text = "" Then
-                    ID_tb.Text = 考勤流水_dgv("ID", 0).Value : PA3 = 考勤流水_dgv("ID", 0).Value : PA6 = 考勤流水_dgv("打卡時間", 0).Value.ToString
+                    If 考勤流水_dgv.Rows.Count > 0 Then
+                        ID_tb.Text = 考勤流水_dgv("ID", 0).Value : PA3 = 考勤流水_dgv("ID", 0).Value : PA6 = 考勤流水_dgv("打卡時間", 0).Value.ToString
+                    Else
+                        MsgBox("一筆考勤都沒有的情況下無法編輯!!!!")
+                    End If
                 End If
             Else
                 時間_tb.Text = "" : ID_tb.Text = ""

工巧明智能管理系統/我的系統/工巧明智能管理系統.vbproj

@@ -253,16 +253,16 @@
     <Compile Include="人事系統管理_新\考勤明細表_編輯.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="財務系統管理\營運報表.Designer.vb">
-      <DependentUpon>營運報表.vb</DependentUpon>
+    <Compile Include="財務系統管理\財務_決算表.Designer.vb">
+      <DependentUpon>財務_決算表.vb</DependentUpon>
     </Compile>
-    <Compile Include="財務系統管理\營運報表.vb">
+    <Compile Include="財務系統管理\財務_決算表.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="財務系統管理\營運成本收支單_對帳表.Designer.vb">
-      <DependentUpon>營運成本收支單_對帳表.vb</DependentUpon>
+    <Compile Include="財務系統管理\財務_對帳單.Designer.vb">
+      <DependentUpon>財務_對帳單.vb</DependentUpon>
     </Compile>
-    <Compile Include="財務系統管理\營運成本收支單_對帳表.vb">
+    <Compile Include="財務系統管理\財務_對帳單.vb">
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="資料庫系統管理\計算機.Designer.vb">
@@ -283,28 +283,28 @@
     <Compile Include="財務系統管理\會計科目管理.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="財務系統管理\彙總報表.Designer.vb">
-      <DependentUpon>彙總報表.vb</DependentUpon>
+    <Compile Include="財務系統管理\財務_彙總表.Designer.vb">
+      <DependentUpon>財務_彙總表.vb</DependentUpon>
     </Compile>
-    <Compile Include="財務系統管理\彙總報表.vb">
+    <Compile Include="財務系統管理\財務_彙總表.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="財務系統管理\營運成本收支單一覽表.Designer.vb">
-      <DependentUpon>營運成本收支單一覽表.vb</DependentUpon>
+    <Compile Include="財務系統管理\財務_收支單一覽表.Designer.vb">
+      <DependentUpon>財務_收支單一覽表.vb</DependentUpon>
     </Compile>
-    <Compile Include="財務系統管理\營運成本收支單一覽表.vb">
+    <Compile Include="財務系統管理\財務_收支單一覽表.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="財務系統管理\營運成本收支單審核.Designer.vb">
-      <DependentUpon>營運成本收支單審核.vb</DependentUpon>
+    <Compile Include="財務系統管理\財務_收支單審核.Designer.vb">
+      <DependentUpon>財務_收支單審核.vb</DependentUpon>
     </Compile>
-    <Compile Include="財務系統管理\營運成本收支單審核.vb">
+    <Compile Include="財務系統管理\財務_收支單審核.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="財務系統管理\營運成本收支單申請.Designer.vb">
-      <DependentUpon>營運成本收支單申請.vb</DependentUpon>
+    <Compile Include="財務系統管理\財務_收支單申請.Designer.vb">
+      <DependentUpon>財務_收支單申請.vb</DependentUpon>
     </Compile>
-    <Compile Include="財務系統管理\營運成本收支單申請.vb">
+    <Compile Include="財務系統管理\財務_收支單申請.vb">
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="網段.Designer.vb">
@@ -665,8 +665,8 @@
     <EmbeddedResource Include="人事系統管理_新\考勤明細表_編輯.resx">
       <DependentUpon>考勤明細表_編輯.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="財務系統管理\營運報表.resx">
-      <DependentUpon>營運報表.vb</DependentUpon>
+    <EmbeddedResource Include="財務系統管理\財務_決算表.resx">
+      <DependentUpon>財務_決算表.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="資料庫系統管理\簽名檔管理.resx">
       <DependentUpon>簽名檔管理.vb</DependentUpon>
@@ -677,20 +677,20 @@
     <EmbeddedResource Include="財務系統管理\會計科目管理.resx">
       <DependentUpon>會計科目管理.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="財務系統管理\彙總報表.resx">
-      <DependentUpon>彙總報表.vb</DependentUpon>
+    <EmbeddedResource Include="財務系統管理\財務_彙總表.resx">
+      <DependentUpon>財務_彙總表.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="財務系統管理\營運成本收支單_對帳表.resx">
-      <DependentUpon>營運成本收支單_對帳表.vb</DependentUpon>
+    <EmbeddedResource Include="財務系統管理\財務_對帳單.resx">
+      <DependentUpon>財務_對帳單.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="財務系統管理\營運成本收支單一覽表.resx">
-      <DependentUpon>營運成本收支單一覽表.vb</DependentUpon>
+    <EmbeddedResource Include="財務系統管理\財務_收支單一覽表.resx">
+      <DependentUpon>財務_收支單一覽表.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="財務系統管理\營運成本收支單審核.resx">
-      <DependentUpon>營運成本收支單審核.vb</DependentUpon>
+    <EmbeddedResource Include="財務系統管理\財務_收支單審核.resx">
+      <DependentUpon>財務_收支單審核.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="財務系統管理\營運成本收支單申請.resx">
-      <DependentUpon>營運成本收支單申請.vb</DependentUpon>
+    <EmbeddedResource Include="財務系統管理\財務_收支單申請.resx">
+      <DependentUpon>財務_收支單申請.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="網段.resx">
       <DependentUpon>網段.vb</DependentUpon>

工巧明智能管理系統/我的系統/財務系統管理/營運成本收支單_對帳表.Designer.vb → 工巧明智能管理系統/我的系統/財務系統管理/財務_對帳單.Designer.vb

@@ -1,5 +1,5 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class 營運成本收支單_對帳表
+Partial Class 財務_對帳單
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
@@ -23,12 +23,12 @@ Partial Class 營運成本收支單_對帳表
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.TextBox1 = New System.Windows.Forms.TextBox()
         Me.TextBox7 = New System.Windows.Forms.TextBox()
         Me.Label9 = New System.Windows.Forms.Label()
-        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.清單_dgv = New System.Windows.Forms.DataGridView()
         Me.Label62 = New System.Windows.Forms.Label()
         Me.ComboBox2 = New System.Windows.Forms.ComboBox()
         Me.ComboBox1 = New System.Windows.Forms.ComboBox()
@@ -67,7 +67,10 @@ Partial Class 營運成本收支單_對帳表
         Me.TextBox13 = New System.Windows.Forms.TextBox()
         Me.Label14 = New System.Windows.Forms.Label()
         Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.非稅_ch = New System.Windows.Forms.CheckBox()
+        Me.含稅_ch = New System.Windows.Forms.CheckBox()
+        Me.全部_ch = New System.Windows.Forms.CheckBox()
+        CType(Me.清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.SuspendLayout()
         '
@@ -109,21 +112,21 @@ Partial Class 營運成本收支單_對帳表
         Me.Label9.TabIndex = 1012
         Me.Label9.Text = "現金"
         '
-        'DataGridView1
+        '清單_dgv
         '
-        Me.DataGridView1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+        Me.清單_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.DataGridView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView1.Location = New System.Drawing.Point(7, 59)
-        Me.DataGridView1.Name = "DataGridView1"
-        Me.DataGridView1.RowHeadersWidth = 5
-        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle3
-        Me.DataGridView1.RowTemplate.Height = 24
-        Me.DataGridView1.Size = New System.Drawing.Size(1236, 522)
-        Me.DataGridView1.TabIndex = 1006
+        Me.清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.清單_dgv.Location = New System.Drawing.Point(7, 59)
+        Me.清單_dgv.Name = "清單_dgv"
+        Me.清單_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.清單_dgv.RowTemplate.Height = 24
+        Me.清單_dgv.Size = New System.Drawing.Size(1236, 522)
+        Me.清單_dgv.TabIndex = 1006
         '
         'Label62
         '
@@ -323,6 +326,8 @@ Partial Class 營運成本收支單_對帳表
         'CheckBox5
         '
         Me.CheckBox5.AutoSize = True
+        Me.CheckBox5.Checked = True
+        Me.CheckBox5.CheckState = System.Windows.Forms.CheckState.Checked
         Me.CheckBox5.Location = New System.Drawing.Point(148, 33)
         Me.CheckBox5.Name = "CheckBox5"
         Me.CheckBox5.Size = New System.Drawing.Size(135, 20)
@@ -460,15 +465,53 @@ Partial Class 營運成本收支單_對帳表
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.ProgressBar1.Location = New System.Drawing.Point(7, 585)
         Me.ProgressBar1.Name = "ProgressBar1"
-        Me.ProgressBar1.Size = New System.Drawing.Size(1236, 23)
+        Me.ProgressBar1.Size = New System.Drawing.Size(1065, 23)
         Me.ProgressBar1.TabIndex = 1041
         '
-        '營運成本收支單_對帳表
+        '非稅_ch
+        '
+        Me.非稅_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.非稅_ch.AutoSize = True
+        Me.非稅_ch.Location = New System.Drawing.Point(1192, 585)
+        Me.非稅_ch.Name = "非稅_ch"
+        Me.非稅_ch.Size = New System.Drawing.Size(51, 20)
+        Me.非稅_ch.TabIndex = 1188
+        Me.非稅_ch.Text = "非稅"
+        Me.非稅_ch.UseVisualStyleBackColor = True
+        '
+        '含稅_ch
+        '
+        Me.含稅_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.含稅_ch.AutoSize = True
+        Me.含稅_ch.Location = New System.Drawing.Point(1135, 585)
+        Me.含稅_ch.Name = "含稅_ch"
+        Me.含稅_ch.Size = New System.Drawing.Size(51, 20)
+        Me.含稅_ch.TabIndex = 1187
+        Me.含稅_ch.Text = "含稅"
+        Me.含稅_ch.UseVisualStyleBackColor = True
+        '
+        '全部_ch
+        '
+        Me.全部_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.全部_ch.AutoSize = True
+        Me.全部_ch.Checked = True
+        Me.全部_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.全部_ch.Location = New System.Drawing.Point(1078, 585)
+        Me.全部_ch.Name = "全部_ch"
+        Me.全部_ch.Size = New System.Drawing.Size(51, 20)
+        Me.全部_ch.TabIndex = 1186
+        Me.全部_ch.Text = "全部"
+        Me.全部_ch.UseVisualStyleBackColor = True
+        '
+        '財務_對帳單
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1249, 611)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.非稅_ch)
+        Me.Controls.Add(Me.含稅_ch)
+        Me.Controls.Add(Me.全部_ch)
         Me.Controls.Add(Me.ProgressBar1)
         Me.Controls.Add(Me.TextBox12)
         Me.Controls.Add(Me.Label13)
@@ -499,16 +542,16 @@ Partial Class 營運成本收支單_對帳表
         Me.Controls.Add(Me.TextBox1)
         Me.Controls.Add(Me.TextBox7)
         Me.Controls.Add(Me.Label9)
-        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.清單_dgv)
         Me.Controls.Add(Me.Label62)
         Me.Controls.Add(Me.ComboBox2)
         Me.Controls.Add(Me.ComboBox1)
         Me.Controls.Add(Me.Label2)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.Name = "營運成本收支單_對帳表"
-        Me.Text = "營運成本收支單_對帳表"
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Name = "財務_對帳單"
+        Me.Text = "財務對帳表"
+        CType(Me.清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ContextMenuStrip1.ResumeLayout(False)
         Me.ResumeLayout(False)
         Me.PerformLayout()
@@ -519,7 +562,7 @@ Partial Class 營運成本收支單_對帳表
     Friend WithEvents TextBox1 As TextBox
     Friend WithEvents TextBox7 As TextBox
     Friend WithEvents Label9 As Label
-    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents 清單_dgv As DataGridView
     Friend WithEvents Label62 As Label
     Friend WithEvents ComboBox2 As ComboBox
     Friend WithEvents ComboBox1 As ComboBox
@@ -558,4 +601,7 @@ Partial Class 營運成本收支單_對帳表
     Friend WithEvents Label14 As Label
     Friend WithEvents 重新整理ToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents ProgressBar1 As ProgressBar
+    Friend WithEvents 非稅_ch As CheckBox
+    Friend WithEvents 含稅_ch As CheckBox
+    Friend WithEvents 全部_ch As CheckBox
 End Class

工巧明智能管理系統/我的系統/財務系統管理/營運成本收支單_對帳表.vb → 工巧明智能管理系統/我的系統/財務系統管理/財務_對帳單.vb

@@ -1,13 +1,20 @@
 Option Strict Off
-Public Class 營運成本收支單_對帳表
+Public Class 財務_對帳單
     ReadOnly ds As New DataSet
     Dim KKKJJ As String : Dim KKKJJ2 As String : Dim KKKJJ3 As String : Dim KKK3 As String : Dim KKK4 As String
     Private Sub Set_清單1()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
+        清單_dgv.DataSource = Nothing : ds.Clear()
+        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        清單_dgv.ColumnHeadersHeight = 25
+        清單_dgv.AllowUserToAddRows = False
         ConnOpen()
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (財務流水帳.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (財務流水帳.含稅 = 0 OR 財務流水帳.含稅 IS NULL)"
+        End If
         SQL1 = "SELECT      財務控制表.支付單號 AS 收支單號, 財務控制表.申請人, 財務控制表.申請日期, 財務控制表.審核人, 
                             財務控制表.審核日期, 財務流水帳.項次, 會計科目.會計科目, 財務流水帳.明細 AS 用途與內容, 
                             財務流水帳.零用金, 財務流水帳.支票數 AS 支票, Cast(財務流水帳.收入 AS money) AS 現金, 
@@ -18,51 +25,51 @@ Public Class 營運成本收支單_對帳表
                             會計科目 ON 財務流水帳.類別 = 會計科目.編號 FULL OUTER JOIN
                             財務控制表 ON 財務流水帳.支付單號 = 財務控制表.支付單號
                 WHERE      (財務控制表.審核人 NOT LIKE '') AND 
-                           (財務控制表.審核人 NOT LIKE '作廢%') " & KKKJJ3 & KKKJJ & KKKJJ2 & " 
+                           (財務控制表.審核人 NOT LIKE '作廢%') " & KKKJJ3 & KKKJJ & KKKJJ2 & SQL2 & " 
                 ORDER BY    收支單號 DESC, 財務流水帳.項次"
         列印用SQL1 = SQL1
-        CmdSet_For_DGV() : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close() : Set_grid()
+        CmdSet_For_DGV() : da.Fill(ds) : 清單_dgv.DataSource = ds.Tables(0) : conn.Close() : Set_grid()
     End Sub
     Private Sub Set_grid()
-        DataGridView1.Columns(0).FillWeight = 120 : DataGridView1.Columns(1).FillWeight = 60 : DataGridView1.Columns(2).FillWeight = 80 : DataGridView1.Columns(3).FillWeight = 60
-        DataGridView1.Columns(4).FillWeight = 80 : DataGridView1.Columns(5).FillWeight = 50 : DataGridView1.Columns(6).FillWeight = 150 : DataGridView1.Columns(7).FillWeight = 233
-        DataGridView1.Columns(8).FillWeight = 80 : DataGridView1.Columns(9).FillWeight = 80 : DataGridView1.Columns(10).FillWeight = 80 : DataGridView1.Columns(11).FillWeight = 80
-        DataGridView1.Columns(12).FillWeight = 80 : DataGridView1.Columns(13).FillWeight = 50 : DataGridView1.Columns(14).FillWeight = 85 : DataGridView1.Columns(15).FillWeight = 50
-        DataGridView1.Columns(16).FillWeight = 85 : DataGridView1.Columns(17).FillWeight = 80 : DataGridView1.Columns(18).FillWeight = 80 : DataGridView1.Columns(19).FillWeight = 80
-        DataGridView1.Columns(20).FillWeight = 80 : DataGridView1.Columns(21).FillWeight = 70 : DataGridView1.Columns(22).FillWeight = 70
+        清單_dgv.Columns(0).FillWeight = 120 : 清單_dgv.Columns(1).FillWeight = 60 : 清單_dgv.Columns(2).FillWeight = 80 : 清單_dgv.Columns(3).FillWeight = 60
+        清單_dgv.Columns(4).FillWeight = 80 : 清單_dgv.Columns(5).FillWeight = 50 : 清單_dgv.Columns(6).FillWeight = 150 : 清單_dgv.Columns(7).FillWeight = 233
+        清單_dgv.Columns(8).FillWeight = 80 : 清單_dgv.Columns(9).FillWeight = 80 : 清單_dgv.Columns(10).FillWeight = 80 : 清單_dgv.Columns(11).FillWeight = 80
+        清單_dgv.Columns(12).FillWeight = 80 : 清單_dgv.Columns(13).FillWeight = 50 : 清單_dgv.Columns(14).FillWeight = 85 : 清單_dgv.Columns(15).FillWeight = 50
+        清單_dgv.Columns(16).FillWeight = 85 : 清單_dgv.Columns(17).Visible = False : 清單_dgv.Columns(18).Visible = False : 清單_dgv.Columns(19).Visible = False
+        清單_dgv.Columns(20).Visible = False : 清單_dgv.Columns(21).FillWeight = 70 : 清單_dgv.Columns(22).FillWeight = 100
 
         If CheckBox4.Checked = False Then
-            DataGridView1.Columns(1).Visible = True : DataGridView1.Columns(2).Visible = True : DataGridView1.Columns(3).Visible = True : DataGridView1.Columns(4).Visible = True
+            清單_dgv.Columns(1).Visible = True : 清單_dgv.Columns(2).Visible = True : 清單_dgv.Columns(3).Visible = True : 清單_dgv.Columns(4).Visible = True
         Else
-            DataGridView1.Columns(1).Visible = False : DataGridView1.Columns(2).Visible = False : DataGridView1.Columns(3).Visible = False : DataGridView1.Columns(4).Visible = False
+            清單_dgv.Columns(1).Visible = False : 清單_dgv.Columns(2).Visible = False : 清單_dgv.Columns(3).Visible = False : 清單_dgv.Columns(4).Visible = False
         End If
 
         If CheckBox5.Checked = False Then
-            DataGridView1.Columns(13).Visible = True : DataGridView1.Columns(14).Visible = True : DataGridView1.Columns(15).Visible = True : DataGridView1.Columns(16).Visible = True
+            清單_dgv.Columns(13).Visible = True : 清單_dgv.Columns(14).Visible = True : 清單_dgv.Columns(15).Visible = True : 清單_dgv.Columns(16).Visible = True
         Else
-            DataGridView1.Columns(13).Visible = False : DataGridView1.Columns(14).Visible = False : DataGridView1.Columns(15).Visible = False : DataGridView1.Columns(16).Visible = False
+            清單_dgv.Columns(13).Visible = False : 清單_dgv.Columns(14).Visible = False : 清單_dgv.Columns(15).Visible = False : 清單_dgv.Columns(16).Visible = False
         End If
 
-        DataGridView1.Columns(8).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(9).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(10).DefaultCellStyle.Format = "#,##0"
-        DataGridView1.Columns(11).DefaultCellStyle.Format = "#,##0"
-        DataGridView1.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(21).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(21).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(22).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(22).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        清單_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 清單_dgv.Columns(9).DefaultCellStyle.Format = "#,##0" : 清單_dgv.Columns(10).DefaultCellStyle.Format = "#,##0"
+        清單_dgv.Columns(11).DefaultCellStyle.Format = "#,##0"
+        清單_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 清單_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        清單_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 清單_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        清單_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 清單_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        清單_dgv.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 清單_dgv.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        清單_dgv.Columns(21).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單_dgv.Columns(21).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        清單_dgv.Columns(22).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單_dgv.Columns(22).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
 
         TextBox5.Text = "0" : TextBox6.Text = "0" : TextBox4.Text = "0" : TextBox8.Text = "0" : TextBox10.Text = "0" : TextBox12.Text = "0"
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            TextBox6.Text = Val(TextBox6.Text) + DataGridView1.Rows(i).Cells("現金").Value * DataGridView1.Rows(i).Cells("匯率").Value
-            TextBox5.Text = Val(TextBox5.Text) + DataGridView1.Rows(i).Cells("支出").Value * DataGridView1.Rows(i).Cells("匯率").Value
-            TextBox8.Text = Val(TextBox8.Text) + DataGridView1.Rows(i).Cells("零用金").Value * DataGridView1.Rows(i).Cells("匯率").Value
-            If DataGridView1(9, i).Value <> 0 And DataGridView1(18, i).Value = True Then
-                TextBox10.Text = Val(TextBox10.Text) + DataGridView1.Rows(i).Cells("支票").Value * DataGridView1.Rows(i).Cells("匯率").Value
-            ElseIf DataGridView1(9, i).Value <> 0 And DataGridView1(18, i).Value = False Then
-                TextBox12.Text = Val(TextBox12.Text) + DataGridView1.Rows(i).Cells("支票").Value * DataGridView1.Rows(i).Cells("匯率").Value
+        For i As Integer = 0 To 清單_dgv.Rows.Count - 1
+            TextBox6.Text = Val(TextBox6.Text) + 清單_dgv.Rows(i).Cells("現金").Value * 清單_dgv.Rows(i).Cells("匯率").Value
+            TextBox5.Text = Val(TextBox5.Text) + 清單_dgv.Rows(i).Cells("支出").Value * 清單_dgv.Rows(i).Cells("匯率").Value
+            TextBox8.Text = Val(TextBox8.Text) + 清單_dgv.Rows(i).Cells("零用金").Value * 清單_dgv.Rows(i).Cells("匯率").Value
+            If 清單_dgv(9, i).Value <> 0 And 清單_dgv(18, i).Value = True Then
+                TextBox10.Text = Val(TextBox10.Text) + 清單_dgv.Rows(i).Cells("支票").Value * 清單_dgv.Rows(i).Cells("匯率").Value
+            ElseIf 清單_dgv(9, i).Value <> 0 And 清單_dgv(18, i).Value = False Then
+                TextBox12.Text = Val(TextBox12.Text) + 清單_dgv.Rows(i).Cells("支票").Value * 清單_dgv.Rows(i).Cells("匯率").Value
             End If
-            If DataGridView1("幣別", i).Value = "台幣現金" Then : DataGridView1("幣別", i).Value = "台幣" : Else : DataGridView1("幣別", i).Value = "人民幣" : End If
+            'If DataGridView1("幣別", i).Value = "台幣現金" Then : DataGridView1("幣別", i).Value = "台幣" : Else : DataGridView1("幣別", i).Value = "人民幣" : End If
         Next i
         TextBox4.Text = Val(TextBox10.Text) + Val(TextBox8.Text) + Val(TextBox6.Text) - Val(TextBox5.Text)
         If Val(TextBox4.Text) > 0 Then : TextBox4.ForeColor = Color.Blue : Else : TextBox4.ForeColor = Color.Red : End If
@@ -94,21 +101,46 @@ Public Class 營運成本收支單_對帳表
         ComboBox1.Text = Year(Today) : ComboBox2.SelectedIndex = Month(Today) - 1
         KKKJJ3 = "AND (財務控制表.審核日期 LIKE '" & KKK3 & "/" & KKK4 & "%') "
     End Sub
+    Dim 已超出 As Boolean
+    Private Sub 清單_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 清單_dgv.MouseUp
+        'If 清單_dgv.SelectedCells.Count = 1 Then : MsgBox(清單_dgv.SelectedCells(0).ColumnIndex & "  " & 清單_dgv.SelectedCells(0).RowIndex) : End If
+        If 清單_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 清單_dgv.SelectedCells.Count > 0 Then
+            If 清單_dgv.SelectedCells(0).ColumnIndex >= 8 And 清單_dgv.SelectedCells(0).ColumnIndex <= 11 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 清單_dgv.SelectedCells.Count - 1
+                        x += Val(清單_dgv.Rows(清單_dgv.SelectedCells.Item(i).RowIndex).Cells(清單_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : GCM_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : GCM_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : GCM_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub 全部_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 全部_ch.Click
+        全部_ch.Checked = True : 含稅_ch.Checked = False : 非稅_ch.Checked = False : Set_清單1()
+    End Sub
+    Private Sub 含稅_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 含稅_ch.Click
+        全部_ch.Checked = False : 含稅_ch.Checked = True : 非稅_ch.Checked = False : Set_清單1()
+    End Sub
+    Private Sub 非稅_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 非稅_ch.Click
+        全部_ch.Checked = False : 含稅_ch.Checked = False : 非稅_ch.Checked = True : Set_清單1()
+    End Sub
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
         If Label62.Visible = True Then : Label62.Visible = False : Else : Label62.Visible = True : End If
     End Sub
     Private Sub 總金額計算()
         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
         TextBox7.Text = "0" : TextBox2.Text = "0" : TextBox3.Text = "0" : TextBox9.Text = "0" : TextBox11.Text = "0" : TextBox13.Text = "0"
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            If DataGridView1.Rows(i).Cells("收支單號").Value = TextBox1.Text Then
-                FFGG = Val(FFGG) + DataGridView1.Rows(i).Cells("現金").Value * DataGridView1.Rows(i).Cells("匯率").Value
-                GGHH = Val(GGHH) + DataGridView1.Rows(i).Cells("支出").Value * DataGridView1.Rows(i).Cells("匯率").Value
-                HHJJ = Val(HHJJ) + DataGridView1.Rows(i).Cells("零用金").Value * DataGridView1.Rows(i).Cells("匯率").Value
-                If DataGridView1(9, i).Value <> 0 And DataGridView1(18, i).Value = True Then
-                    JJKK = Val(JJKK) + DataGridView1.Rows(i).Cells("支票").Value * DataGridView1.Rows(i).Cells("匯率").Value
-                ElseIf DataGridView1(9, i).Value <> 0 And DataGridView1(18, i).Value = False Then
-                    KKLL = Val(KKLL) + DataGridView1.Rows(i).Cells("支票").Value * DataGridView1.Rows(i).Cells("匯率").Value
+        For i As Integer = 0 To 清單_dgv.Rows.Count - 1
+            If 清單_dgv.Rows(i).Cells("收支單號").Value = TextBox1.Text Then
+                FFGG = Val(FFGG) + 清單_dgv.Rows(i).Cells("現金").Value * 清單_dgv.Rows(i).Cells("匯率").Value
+                GGHH = Val(GGHH) + 清單_dgv.Rows(i).Cells("支出").Value * 清單_dgv.Rows(i).Cells("匯率").Value
+                HHJJ = Val(HHJJ) + 清單_dgv.Rows(i).Cells("零用金").Value * 清單_dgv.Rows(i).Cells("匯率").Value
+                If 清單_dgv(9, i).Value <> 0 And 清單_dgv(18, i).Value = True Then
+                    JJKK = Val(JJKK) + 清單_dgv.Rows(i).Cells("支票").Value * 清單_dgv.Rows(i).Cells("匯率").Value
+                ElseIf 清單_dgv(9, i).Value <> 0 And 清單_dgv(18, i).Value = False Then
+                    KKLL = Val(KKLL) + 清單_dgv.Rows(i).Cells("支票").Value * 清單_dgv.Rows(i).Cells("匯率").Value
                 End If
             End If
         Next i
@@ -118,31 +150,30 @@ Public Class 營運成本收支單_對帳表
         TextBox7.Text = Strings.Format(Val(TextBox7.Text), "#,##0") : TextBox2.Text = Strings.Format(Val(TextBox2.Text), "#,##0") : TextBox3.Text = Strings.Format(Val(TextBox3.Text), "#,##0")
         TextBox9.Text = Strings.Format(Val(TextBox9.Text), "#,##0") : TextBox11.Text = Strings.Format(Val(TextBox11.Text), "#,##0") : TextBox13.Text = Strings.Format(Val(TextBox13.Text), "#,##0")
     End Sub
-    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
+    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 清單_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells("收支單號").Value
-            Timer1.Enabled = True
+            TextBox1.Text = 清單_dgv.Rows(e.RowIndex).Cells("收支單號").Value
             總金額計算()
         End If
     End Sub
-    Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
+    Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 清單_dgv.RowPostPaint
         Dim linePen As New Pen(Color.Blue, 2)
-        If e.RowIndex = DataGridView1.Rows.Count - 1 Then
+        If e.RowIndex = 清單_dgv.Rows.Count - 1 Then
             Exit Sub
         Else
-            If DataGridView1(0, e.RowIndex).Value.ToString <> DataGridView1(0, e.RowIndex + 1).Value.ToString Then
-                Dim startX As Integer = IIf(DataGridView1.RowHeadersVisible, DataGridView1.RowHeadersWidth, 0)
+            If 清單_dgv(0, e.RowIndex).Value.ToString <> 清單_dgv(0, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(清單_dgv.RowHeadersVisible, 清單_dgv.RowHeadersWidth, 0)
                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
-                Dim endX As Integer = startX + DataGridView1.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView1.HorizontalScrollingOffset
+                Dim endX As Integer = startX + 清單_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 清單_dgv.HorizontalScrollingOffset
                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                 Exit Sub
             End If
         End If
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            If DataGridView1(9, i).Value <> 0 And DataGridView1(18, i).Value = True Then
-                DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
-            ElseIf DataGridView1(9, i).Value <> 0 And DataGridView1(18, i).Value = False Then
-                DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
+        For i As Integer = 0 To 清單_dgv.Rows.Count - 1
+            If 清單_dgv(9, i).Value <> 0 And 清單_dgv(18, i).Value = True Then
+                清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            ElseIf 清單_dgv(9, i).Value <> 0 And 清單_dgv(18, i).Value = False Then
+                清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
             End If
         Next
     End Sub
@@ -180,12 +211,12 @@ Public Class 營運成本收支單_對帳表
     '-----------------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------
     Private Sub 對帳記錄存檔ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 對帳記錄存檔ToolStripMenuItem.Click
         Timer1.Enabled = False : Label62.Visible = False
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            資料數 = DataGridView1.Rows.Count : MyMoule.進度條()
+        For i As Integer = 0 To 清單_dgv.Rows.Count - 1
+            資料數 = 清單_dgv.Rows.Count : MyMoule.進度條()
             ConnOpen()
-            SQL1 = "UPDATE 財務流水帳 SET 現金 = '" & DataGridView1.Rows(i).Cells("現金點交").Value & "', 備用金 = '" & DataGridView1.Rows(i).Cells("零用金點交").Value &
-                   "', 公帳 = '" & DataGridView1.Rows(i).Cells("支出點交").Value & "', 支票 = '" & DataGridView1.Rows(i).Cells("支票兌現").Value & "' 
-                    WHERE 支付單號 LIKE '" & DataGridView1.Rows(i).Cells("收支單號").Value & "' AND 項次 Like '" & DataGridView1.Rows(i).Cells("項次").Value & "'"
+            SQL1 = "UPDATE 財務流水帳 SET 現金 = '" & 清單_dgv.Rows(i).Cells("現金點交").Value & "', 備用金 = '" & 清單_dgv.Rows(i).Cells("零用金點交").Value &
+                   "', 公帳 = '" & 清單_dgv.Rows(i).Cells("支出點交").Value & "', 支票 = '" & 清單_dgv.Rows(i).Cells("支票兌現").Value & "' 
+                    WHERE 支付單號 LIKE '" & 清單_dgv.Rows(i).Cells("收支單號").Value & "' AND 項次 Like '" & 清單_dgv.Rows(i).Cells("項次").Value & "'"
             cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
         Next
         MsgBox("存檔完成。") : Set_清單1() : ProgressBar1.Value = 0 : 最終數 = 0
@@ -206,7 +237,7 @@ Public Class 營運成本收支單_對帳表
         ComboBox2.Items.Add("01") : ComboBox2.Items.Add("02") : ComboBox2.Items.Add("03") : ComboBox2.Items.Add("04") : ComboBox2.Items.Add("05") : ComboBox2.Items.Add("06")
         ComboBox2.Items.Add("07") : ComboBox2.Items.Add("08") : ComboBox2.Items.Add("09") : ComboBox2.Items.Add("10") : ComboBox2.Items.Add("11") : ComboBox2.Items.Add("12")
         KKK3 = "" : KKK4 = "" : KKKJJ3 = ""
-        DataGridView1.DataSource = Nothing : ds.Clear()
+        清單_dgv.DataSource = Nothing : ds.Clear()
     End Sub
     Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click
         Set_清單1()

工巧明智能管理系統/我的系統/財務系統管理/彙總報表.Designer.vb → 工巧明智能管理系統/我的系統/財務系統管理/財務_彙總表.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class 彙總報表
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class 財務_彙總表
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,40 +20,40 @@ Partial Class 彙總報表
     '注意: 以下為 Windows Form 設計工具所需的程序
     '可以使用 Windows Form 設計工具進行修改。
     '請勿使用程式碼編輯器進行修改。
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle37 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle38 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim ChartArea5 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
-        Dim Legend5 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
-        Dim Series5 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
-        Dim DataGridViewCellStyle39 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim ChartArea6 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
-        Dim Legend6 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
-        Dim Series6 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
-        Dim ChartArea7 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
-        Dim Legend7 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
-        Dim Series7 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
-        Dim ChartArea8 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
-        Dim Legend8 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
-        Dim Series8 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim ChartArea1 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
+        Dim Legend1 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
+        Dim Series1 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
+        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim ChartArea2 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
+        Dim Legend2 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
+        Dim Series2 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
+        Dim ChartArea3 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
+        Dim Legend3 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
+        Dim Series3 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
+        Dim ChartArea4 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
+        Dim Legend4 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
+        Dim Series4 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
         Me.主表_dgv = New System.Windows.Forms.DataGridView()
         Me.主表1_dgv = New System.Windows.Forms.DataGridView()
         Me.主項_cb = New System.Windows.Forms.ComboBox()
@@ -106,30 +106,30 @@ Partial Class 彙總報表
         '
         '主表_dgv
         '
-        DataGridViewCellStyle21.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
-        Me.主表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.主表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.主表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.主表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.主表_dgv.Location = New System.Drawing.Point(7, 30)
         Me.主表_dgv.Name = "主表_dgv"
         Me.主表_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.主表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle22
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.主表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.主表_dgv.RowTemplate.Height = 24
         Me.主表_dgv.Size = New System.Drawing.Size(435, 197)
         Me.主表_dgv.TabIndex = 1098
         '
         '主表1_dgv
         '
-        DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
-        Me.主表1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.主表1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.主表1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.主表1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.主表1_dgv.Location = New System.Drawing.Point(7, 229)
         Me.主表1_dgv.Name = "主表1_dgv"
         Me.主表1_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.主表1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle24
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.主表1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.主表1_dgv.RowTemplate.Height = 24
         Me.主表1_dgv.Size = New System.Drawing.Size(435, 167)
         Me.主表1_dgv.TabIndex = 1099
@@ -173,30 +173,30 @@ Partial Class 彙總報表
         '
         '主表2_dgv
         '
-        DataGridViewCellStyle25.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
-        Me.主表2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle25
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.主表2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
         Me.主表2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.主表2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.主表2_dgv.Location = New System.Drawing.Point(444, 30)
         Me.主表2_dgv.Name = "主表2_dgv"
         Me.主表2_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle26.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.主表2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle26
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.主表2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
         Me.主表2_dgv.RowTemplate.Height = 24
         Me.主表2_dgv.Size = New System.Drawing.Size(180, 366)
         Me.主表2_dgv.TabIndex = 1116
         '
         '主表5_dgv
         '
-        DataGridViewCellStyle27.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.主表5_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle27
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.主表5_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
         Me.主表5_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.主表5_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.主表5_dgv.Location = New System.Drawing.Point(1070, 30)
         Me.主表5_dgv.Name = "主表5_dgv"
         Me.主表5_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.主表5_dgv.RowsDefaultCellStyle = DataGridViewCellStyle28
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.主表5_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
         Me.主表5_dgv.RowTemplate.Height = 24
         Me.主表5_dgv.Size = New System.Drawing.Size(180, 366)
         Me.主表5_dgv.TabIndex = 1123
@@ -240,45 +240,45 @@ Partial Class 彙總報表
         '
         '主表4_dgv
         '
-        DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.主表4_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.主表4_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
         Me.主表4_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.主表4_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.主表4_dgv.Location = New System.Drawing.Point(633, 229)
         Me.主表4_dgv.Name = "主表4_dgv"
         Me.主表4_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.主表4_dgv.RowsDefaultCellStyle = DataGridViewCellStyle30
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.主表4_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
         Me.主表4_dgv.RowTemplate.Height = 24
         Me.主表4_dgv.Size = New System.Drawing.Size(435, 167)
         Me.主表4_dgv.TabIndex = 1118
         '
         '主表3_dgv
         '
-        DataGridViewCellStyle31.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.主表3_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle31
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.主表3_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
         Me.主表3_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.主表3_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.主表3_dgv.Location = New System.Drawing.Point(633, 30)
         Me.主表3_dgv.Name = "主表3_dgv"
         Me.主表3_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle32.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.主表3_dgv.RowsDefaultCellStyle = DataGridViewCellStyle32
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.主表3_dgv.RowsDefaultCellStyle = DataGridViewCellStyle12
         Me.主表3_dgv.RowTemplate.Height = 24
         Me.主表3_dgv.Size = New System.Drawing.Size(435, 197)
         Me.主表3_dgv.TabIndex = 1117
         '
         '主表8_dgv
         '
-        DataGridViewCellStyle33.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.主表8_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle33
+        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.主表8_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
         Me.主表8_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.主表8_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.主表8_dgv.Location = New System.Drawing.Point(1696, 30)
         Me.主表8_dgv.Name = "主表8_dgv"
         Me.主表8_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.主表8_dgv.RowsDefaultCellStyle = DataGridViewCellStyle34
+        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.主表8_dgv.RowsDefaultCellStyle = DataGridViewCellStyle14
         Me.主表8_dgv.RowTemplate.Height = 24
         Me.主表8_dgv.Size = New System.Drawing.Size(180, 366)
         Me.主表8_dgv.TabIndex = 1130
@@ -322,30 +322,30 @@ Partial Class 彙總報表
         '
         '主表7_dgv
         '
-        DataGridViewCellStyle35.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.主表7_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle35
+        DataGridViewCellStyle15.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.主表7_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle15
         Me.主表7_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.主表7_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.主表7_dgv.Location = New System.Drawing.Point(1259, 229)
         Me.主表7_dgv.Name = "主表7_dgv"
         Me.主表7_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.主表7_dgv.RowsDefaultCellStyle = DataGridViewCellStyle36
+        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.主表7_dgv.RowsDefaultCellStyle = DataGridViewCellStyle16
         Me.主表7_dgv.RowTemplate.Height = 24
         Me.主表7_dgv.Size = New System.Drawing.Size(435, 167)
         Me.主表7_dgv.TabIndex = 1125
         '
         '主表6_dgv
         '
-        DataGridViewCellStyle37.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.主表6_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle37
+        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.主表6_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
         Me.主表6_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.主表6_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.主表6_dgv.Location = New System.Drawing.Point(1259, 30)
         Me.主表6_dgv.Name = "主表6_dgv"
         Me.主表6_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle38.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.主表6_dgv.RowsDefaultCellStyle = DataGridViewCellStyle38
+        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.主表6_dgv.RowsDefaultCellStyle = DataGridViewCellStyle18
         Me.主表6_dgv.RowTemplate.Height = 24
         Me.主表6_dgv.Size = New System.Drawing.Size(435, 197)
         Me.主表6_dgv.TabIndex = 1124
@@ -423,50 +423,50 @@ Partial Class 彙總報表
         'Chart1
         '
         Me.Chart1.BackColor = System.Drawing.SystemColors.Control
-        ChartArea5.AlignmentOrientation = CType((System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Vertical Or System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Horizontal), System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations)
-        ChartArea5.AxisX.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
-        ChartArea5.AxisX.IsLabelAutoFit = False
-        ChartArea5.AxisX.LabelAutoFitStyle = CType((((((System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.IncreaseFont Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.DecreaseFont) _
+        ChartArea1.AlignmentOrientation = CType((System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Vertical Or System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Horizontal), System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations)
+        ChartArea1.AxisX.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea1.AxisX.IsLabelAutoFit = False
+        ChartArea1.AxisX.LabelAutoFitStyle = CType((((((System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.IncreaseFont Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.DecreaseFont) _
             Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.StaggeredLabels) _
             Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep30) _
             Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep45) _
             Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.WordWrap), System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles)
-        ChartArea5.AxisX.LabelStyle.IsStaggered = True
-        ChartArea5.AxisX.MaximumAutoSize = 100.0!
-        ChartArea5.AxisX.TitleFont = New System.Drawing.Font("微軟正黑體", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        ChartArea5.AxisX2.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
-        ChartArea5.AxisX2.MaximumAutoSize = 100.0!
-        ChartArea5.AxisY.MaximumAutoSize = 100.0!
-        ChartArea5.AxisY2.MaximumAutoSize = 100.0!
-        ChartArea5.Name = "ChartArea1"
-        Me.Chart1.ChartAreas.Add(ChartArea5)
-        Legend5.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Legend5.IsTextAutoFit = False
-        Legend5.Name = "Legend1"
-        Me.Chart1.Legends.Add(Legend5)
+        ChartArea1.AxisX.LabelStyle.IsStaggered = True
+        ChartArea1.AxisX.MaximumAutoSize = 100.0!
+        ChartArea1.AxisX.TitleFont = New System.Drawing.Font("微軟正黑體", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        ChartArea1.AxisX2.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea1.AxisX2.MaximumAutoSize = 100.0!
+        ChartArea1.AxisY.MaximumAutoSize = 100.0!
+        ChartArea1.AxisY2.MaximumAutoSize = 100.0!
+        ChartArea1.Name = "ChartArea1"
+        Me.Chart1.ChartAreas.Add(ChartArea1)
+        Legend1.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Legend1.IsTextAutoFit = False
+        Legend1.Name = "Legend1"
+        Me.Chart1.Legends.Add(Legend1)
         Me.Chart1.Location = New System.Drawing.Point(6, 419)
         Me.Chart1.Name = "Chart1"
-        Series5.ChartArea = "ChartArea1"
-        Series5.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Line
-        Series5.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Series5.Legend = "Legend1"
-        Series5.Name = "Series1"
-        Me.Chart1.Series.Add(Series5)
+        Series1.ChartArea = "ChartArea1"
+        Series1.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Line
+        Series1.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Series1.Legend = "Legend1"
+        Series1.Name = "Series1"
+        Me.Chart1.Series.Add(Series1)
         Me.Chart1.Size = New System.Drawing.Size(1890, 275)
         Me.Chart1.TabIndex = 1138
         Me.Chart1.Text = "Chart1"
         '
         '主表9_dgv
         '
-        DataGridViewCellStyle39.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
-        Me.主表9_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle39
+        DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.主表9_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
         Me.主表9_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.主表9_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.主表9_dgv.Location = New System.Drawing.Point(633, 399)
         Me.主表9_dgv.Name = "主表9_dgv"
         Me.主表9_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.主表9_dgv.RowsDefaultCellStyle = DataGridViewCellStyle40
+        DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.主表9_dgv.RowsDefaultCellStyle = DataGridViewCellStyle20
         Me.主表9_dgv.RowTemplate.Height = 24
         Me.主表9_dgv.Size = New System.Drawing.Size(617, 259)
         Me.主表9_dgv.TabIndex = 1139
@@ -475,36 +475,36 @@ Partial Class 彙總報表
         'Chart3
         '
         Me.Chart3.BackColor = System.Drawing.SystemColors.Control
-        ChartArea6.AlignmentOrientation = CType((System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Vertical Or System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Horizontal), System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations)
-        ChartArea6.Area3DStyle.Inclination = 60
-        ChartArea6.AxisX.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
-        ChartArea6.AxisX.IsLabelAutoFit = False
-        ChartArea6.AxisX.LabelAutoFitStyle = CType((((((System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.IncreaseFont Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.DecreaseFont) _
+        ChartArea2.AlignmentOrientation = CType((System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Vertical Or System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Horizontal), System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations)
+        ChartArea2.Area3DStyle.Inclination = 60
+        ChartArea2.AxisX.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea2.AxisX.IsLabelAutoFit = False
+        ChartArea2.AxisX.LabelAutoFitStyle = CType((((((System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.IncreaseFont Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.DecreaseFont) _
             Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.StaggeredLabels) _
             Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep30) _
             Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep45) _
             Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.WordWrap), System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles)
-        ChartArea6.AxisX.LabelStyle.IsStaggered = True
-        ChartArea6.AxisX.MaximumAutoSize = 100.0!
-        ChartArea6.AxisX.TitleFont = New System.Drawing.Font("微軟正黑體", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        ChartArea6.AxisX2.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
-        ChartArea6.AxisX2.MaximumAutoSize = 100.0!
-        ChartArea6.AxisY.MaximumAutoSize = 100.0!
-        ChartArea6.AxisY2.MaximumAutoSize = 100.0!
-        ChartArea6.Name = "ChartArea1"
-        Me.Chart3.ChartAreas.Add(ChartArea6)
-        Legend6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Legend6.IsTextAutoFit = False
-        Legend6.Name = "Legend1"
-        Me.Chart3.Legends.Add(Legend6)
+        ChartArea2.AxisX.LabelStyle.IsStaggered = True
+        ChartArea2.AxisX.MaximumAutoSize = 100.0!
+        ChartArea2.AxisX.TitleFont = New System.Drawing.Font("微軟正黑體", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        ChartArea2.AxisX2.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea2.AxisX2.MaximumAutoSize = 100.0!
+        ChartArea2.AxisY.MaximumAutoSize = 100.0!
+        ChartArea2.AxisY2.MaximumAutoSize = 100.0!
+        ChartArea2.Name = "ChartArea1"
+        Me.Chart3.ChartAreas.Add(ChartArea2)
+        Legend2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Legend2.IsTextAutoFit = False
+        Legend2.Name = "Legend1"
+        Me.Chart3.Legends.Add(Legend2)
         Me.Chart3.Location = New System.Drawing.Point(70, 696)
         Me.Chart3.Name = "Chart3"
-        Series6.ChartArea = "ChartArea1"
-        Series6.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Pie
-        Series6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Series6.Legend = "Legend1"
-        Series6.Name = "Series1"
-        Me.Chart3.Series.Add(Series6)
+        Series2.ChartArea = "ChartArea1"
+        Series2.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Pie
+        Series2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Series2.Legend = "Legend1"
+        Series2.Name = "Series1"
+        Me.Chart3.Series.Add(Series2)
         Me.Chart3.Size = New System.Drawing.Size(554, 270)
         Me.Chart3.TabIndex = 1140
         Me.Chart3.Text = "Chart3"
@@ -512,36 +512,36 @@ Partial Class 彙總報表
         'Chart2
         '
         Me.Chart2.BackColor = System.Drawing.SystemColors.Control
-        ChartArea7.AlignmentOrientation = CType((System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Vertical Or System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Horizontal), System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations)
-        ChartArea7.Area3DStyle.Inclination = 60
-        ChartArea7.AxisX.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
-        ChartArea7.AxisX.IsLabelAutoFit = False
-        ChartArea7.AxisX.LabelAutoFitStyle = CType((((((System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.IncreaseFont Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.DecreaseFont) _
+        ChartArea3.AlignmentOrientation = CType((System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Vertical Or System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Horizontal), System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations)
+        ChartArea3.Area3DStyle.Inclination = 60
+        ChartArea3.AxisX.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea3.AxisX.IsLabelAutoFit = False
+        ChartArea3.AxisX.LabelAutoFitStyle = CType((((((System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.IncreaseFont Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.DecreaseFont) _
             Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.StaggeredLabels) _
             Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep30) _
             Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep45) _
             Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.WordWrap), System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles)
-        ChartArea7.AxisX.LabelStyle.IsStaggered = True
-        ChartArea7.AxisX.MaximumAutoSize = 100.0!
-        ChartArea7.AxisX.TitleFont = New System.Drawing.Font("微軟正黑體", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        ChartArea7.AxisX2.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
-        ChartArea7.AxisX2.MaximumAutoSize = 100.0!
-        ChartArea7.AxisY.MaximumAutoSize = 100.0!
-        ChartArea7.AxisY2.MaximumAutoSize = 100.0!
-        ChartArea7.Name = "ChartArea1"
-        Me.Chart2.ChartAreas.Add(ChartArea7)
-        Legend7.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Legend7.IsTextAutoFit = False
-        Legend7.Name = "Legend1"
-        Me.Chart2.Legends.Add(Legend7)
+        ChartArea3.AxisX.LabelStyle.IsStaggered = True
+        ChartArea3.AxisX.MaximumAutoSize = 100.0!
+        ChartArea3.AxisX.TitleFont = New System.Drawing.Font("微軟正黑體", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        ChartArea3.AxisX2.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea3.AxisX2.MaximumAutoSize = 100.0!
+        ChartArea3.AxisY.MaximumAutoSize = 100.0!
+        ChartArea3.AxisY2.MaximumAutoSize = 100.0!
+        ChartArea3.Name = "ChartArea1"
+        Me.Chart2.ChartAreas.Add(ChartArea3)
+        Legend3.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Legend3.IsTextAutoFit = False
+        Legend3.Name = "Legend1"
+        Me.Chart2.Legends.Add(Legend3)
         Me.Chart2.Location = New System.Drawing.Point(696, 696)
         Me.Chart2.Name = "Chart2"
-        Series7.ChartArea = "ChartArea1"
-        Series7.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Pie
-        Series7.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Series7.Legend = "Legend1"
-        Series7.Name = "Series1"
-        Me.Chart2.Series.Add(Series7)
+        Series3.ChartArea = "ChartArea1"
+        Series3.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Pie
+        Series3.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Series3.Legend = "Legend1"
+        Series3.Name = "Series1"
+        Me.Chart2.Series.Add(Series3)
         Me.Chart2.Size = New System.Drawing.Size(554, 270)
         Me.Chart2.TabIndex = 1141
         Me.Chart2.Text = "Chart2"
@@ -549,36 +549,36 @@ Partial Class 彙總報表
         'Chart4
         '
         Me.Chart4.BackColor = System.Drawing.SystemColors.Control
-        ChartArea8.AlignmentOrientation = CType((System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Vertical Or System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Horizontal), System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations)
-        ChartArea8.Area3DStyle.Inclination = 60
-        ChartArea8.AxisX.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
-        ChartArea8.AxisX.IsLabelAutoFit = False
-        ChartArea8.AxisX.LabelAutoFitStyle = CType((((((System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.IncreaseFont Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.DecreaseFont) _
+        ChartArea4.AlignmentOrientation = CType((System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Vertical Or System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Horizontal), System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations)
+        ChartArea4.Area3DStyle.Inclination = 60
+        ChartArea4.AxisX.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea4.AxisX.IsLabelAutoFit = False
+        ChartArea4.AxisX.LabelAutoFitStyle = CType((((((System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.IncreaseFont Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.DecreaseFont) _
             Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.StaggeredLabels) _
             Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep30) _
             Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep45) _
             Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.WordWrap), System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles)
-        ChartArea8.AxisX.LabelStyle.IsStaggered = True
-        ChartArea8.AxisX.MaximumAutoSize = 100.0!
-        ChartArea8.AxisX.TitleFont = New System.Drawing.Font("微軟正黑體", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        ChartArea8.AxisX2.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
-        ChartArea8.AxisX2.MaximumAutoSize = 100.0!
-        ChartArea8.AxisY.MaximumAutoSize = 100.0!
-        ChartArea8.AxisY2.MaximumAutoSize = 100.0!
-        ChartArea8.Name = "ChartArea1"
-        Me.Chart4.ChartAreas.Add(ChartArea8)
-        Legend8.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Legend8.IsTextAutoFit = False
-        Legend8.Name = "Legend1"
-        Me.Chart4.Legends.Add(Legend8)
+        ChartArea4.AxisX.LabelStyle.IsStaggered = True
+        ChartArea4.AxisX.MaximumAutoSize = 100.0!
+        ChartArea4.AxisX.TitleFont = New System.Drawing.Font("微軟正黑體", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        ChartArea4.AxisX2.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea4.AxisX2.MaximumAutoSize = 100.0!
+        ChartArea4.AxisY.MaximumAutoSize = 100.0!
+        ChartArea4.AxisY2.MaximumAutoSize = 100.0!
+        ChartArea4.Name = "ChartArea1"
+        Me.Chart4.ChartAreas.Add(ChartArea4)
+        Legend4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Legend4.IsTextAutoFit = False
+        Legend4.Name = "Legend1"
+        Me.Chart4.Legends.Add(Legend4)
         Me.Chart4.Location = New System.Drawing.Point(1322, 696)
         Me.Chart4.Name = "Chart4"
-        Series8.ChartArea = "ChartArea1"
-        Series8.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Pie
-        Series8.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Series8.Legend = "Legend1"
-        Series8.Name = "Series1"
-        Me.Chart4.Series.Add(Series8)
+        Series4.ChartArea = "ChartArea1"
+        Series4.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Pie
+        Series4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Series4.Legend = "Legend1"
+        Series4.Name = "Series1"
+        Me.Chart4.Series.Add(Series4)
         Me.Chart4.Size = New System.Drawing.Size(554, 270)
         Me.Chart4.TabIndex = 1142
         Me.Chart4.Text = "Chart4"
@@ -593,7 +593,7 @@ Partial Class 彙總報表
         Me.年份_cb.Size = New System.Drawing.Size(70, 24)
         Me.年份_cb.TabIndex = 1143
         '
-        '彙總報表
+        '財務_彙總表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@@ -634,8 +634,8 @@ Partial Class 彙總報表
         Me.Controls.Add(Me.Chart1)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.Name = "彙總報表"
-        Me.Text = "營運成本收支 - 彙總報表"
+        Me.Name = "財務_彙總表"
+        Me.Text = "財務彙總表"
         CType(Me.主表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.主表1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.主表2_dgv, System.ComponentModel.ISupportInitialize).EndInit()

工巧明智能管理系統/我的系統/財務系統管理/彙總報表.vb → 工巧明智能管理系統/我的系統/財務系統管理/財務_彙總表.vb

@@ -1,5 +1,5 @@
 Imports System.Windows.Forms.DataVisualization.Charting
-Public Class 彙總報表
+Public Class 財務_彙總表
     ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8, ds9 As New DataSet
     '-----------------------------第一區-----------------------------------------------------------------------------------------------------------------------
     Private Sub Set_清單()
@@ -29,9 +29,6 @@ Public Class 彙總報表
         主表1_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         主表1_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        'For I As Integer = 0 To 主表1_dgv.Rows.Count - 1
-        '    主表1_dgv.Rows(I).Cells("比例").Value = Int(Val(主表1_dgv.Rows(I).Cells("金額").Value) / Val(隱加總_tb.Text) * 100) & " %"
-        'Next
         主表1_dgv.Sort(主表1_dgv.Columns("比例"), System.ComponentModel.ListSortDirection.Descending)
     End Sub
     Private Sub Set_清單2()
@@ -88,9 +85,6 @@ Public Class 彙總報表
         主表4_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         主表4_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        'For I As Integer = 0 To 主表4_dgv.Rows.Count - 1
-        '    主表4_dgv.Rows(I).Cells("比例").Value = Int(Val(主表4_dgv.Rows(I).Cells("金額").Value) / Val(隱加總1_tb.Text) * 100) & " %"
-        'Next
         主表4_dgv.Sort(主表4_dgv.Columns("比例"), System.ComponentModel.ListSortDirection.Descending)
     End Sub
     Private Sub Set_清單5()
@@ -147,9 +141,6 @@ Public Class 彙總報表
         主表7_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
         主表7_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        'For I As Integer = 0 To 主表7_dgv.Rows.Count - 1
-        '    主表7_dgv.Rows(I).Cells("比例").Value = Int(Val(主表7_dgv.Rows(I).Cells("金額").Value) / Val(隱加總2_tb.Text) * 100) & " %"
-        'Next
         主表7_dgv.Sort(主表7_dgv.Columns("比例"), System.ComponentModel.ListSortDirection.Descending)
     End Sub
     Private Sub Set_清單8()
@@ -280,10 +271,14 @@ Public Class 彙總報表
         ConnOpen() : SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC" : CmdSet_For_dr()
         年份_cb.Items.Clear() : 年份_cb.Items.Add("") : While (dr.Read()) : 年份_cb.Items.Add(dr("年份")) : End While : conn.Close()
     End Sub
-    Private Sub 測試下載_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    Private Sub 財務_彙總表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        GCM_ERP_SYS.WindowState = 2
         ComboBox1下拉表單資料載入() : 主項下拉() : 主項_cb.SelectedIndex = 0 : 主項1_cb.SelectedIndex = 1 : 主項2_cb.SelectedIndex = 2
     End Sub
+    Private Sub 財務_彙總表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
+        GCM_ERP_SYS.WindowState = 0
+    End Sub
     Private Sub 主表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 主表_dgv.RowPostPaint
         Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
         If e.RowIndex = 主表_dgv.Rows.Count - 1 Then : Exit Sub : Else

工巧明智能管理系統/我的系統/財務系統管理/營運成本收支單一覽表.Designer.vb → 工巧明智能管理系統/我的系統/財務系統管理/財務_收支單一覽表.Designer.vb

@@ -1,5 +1,5 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class 營運成本收支單一覽表
+Partial Class 財務_收支單一覽表
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
@@ -38,25 +38,24 @@ Partial Class 營運成本收支單一覽表
         Me.TextBox3 = New System.Windows.Forms.TextBox()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.TextBox1 = New System.Windows.Forms.TextBox()
-        Me.Label6 = New System.Windows.Forms.Label()
         Me.DataGridView4 = New System.Windows.Forms.DataGridView()
         Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
         Me.Label8 = New System.Windows.Forms.Label()
-        Me.DataGridView2 = New System.Windows.Forms.DataGridView()
-        Me.TextBox5 = New System.Windows.Forms.TextBox()
+        Me.彙總_dgv = New System.Windows.Forms.DataGridView()
+        Me.現1_tb = New System.Windows.Forms.TextBox()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.Button3 = New System.Windows.Forms.Button()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.結束日期_dtp = New System.Windows.Forms.DateTimePicker()
         Me.開始日期_dtp = New System.Windows.Forms.DateTimePicker()
-        Me.TextBox6 = New System.Windows.Forms.TextBox()
+        Me.合1_tb = New System.Windows.Forms.TextBox()
         Me.Label9 = New System.Windows.Forms.Label()
-        Me.TextBox7 = New System.Windows.Forms.TextBox()
+        Me.出1_tb = New System.Windows.Forms.TextBox()
         Me.Label11 = New System.Windows.Forms.Label()
         Me.Label14 = New System.Windows.Forms.Label()
-        Me.TextBox10 = New System.Windows.Forms.TextBox()
+        Me.零1_tb = New System.Windows.Forms.TextBox()
         Me.Label15 = New System.Windows.Forms.Label()
-        Me.TextBox11 = New System.Windows.Forms.TextBox()
+        Me.支1_tb = New System.Windows.Forms.TextBox()
         Me.RadioButton1 = New System.Windows.Forms.RadioButton()
         Me.RadioButton2 = New System.Windows.Forms.RadioButton()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -67,23 +66,36 @@ Partial Class 營運成本收支單一覽表
         Me.Label19 = New System.Windows.Forms.Label()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.Label2 = New System.Windows.Forms.Label()
-        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.零2_tb = New System.Windows.Forms.TextBox()
         Me.Label12 = New System.Windows.Forms.Label()
-        Me.TextBox8 = New System.Windows.Forms.TextBox()
-        Me.TextBox9 = New System.Windows.Forms.TextBox()
+        Me.支2_tb = New System.Windows.Forms.TextBox()
+        Me.合2_tb = New System.Windows.Forms.TextBox()
         Me.Label13 = New System.Windows.Forms.Label()
-        Me.TextBox12 = New System.Windows.Forms.TextBox()
+        Me.出2_tb = New System.Windows.Forms.TextBox()
         Me.Label16 = New System.Windows.Forms.Label()
-        Me.TextBox15 = New System.Windows.Forms.TextBox()
+        Me.現2_tb = New System.Windows.Forms.TextBox()
         Me.Label17 = New System.Windows.Forms.Label()
         Me.中間日期_dtp = New System.Windows.Forms.DateTimePicker()
         Me.下個月_bt = New System.Windows.Forms.Button()
         Me.上個月_bt = New System.Windows.Forms.Button()
         Me.一般月_ch = New System.Windows.Forms.CheckBox()
         Me.會計月_ch = New System.Windows.Forms.CheckBox()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.零3_tb = New System.Windows.Forms.TextBox()
+        Me.Label21 = New System.Windows.Forms.Label()
+        Me.支3_tb = New System.Windows.Forms.TextBox()
+        Me.合3_tb = New System.Windows.Forms.TextBox()
+        Me.Label22 = New System.Windows.Forms.Label()
+        Me.出3_tb = New System.Windows.Forms.TextBox()
+        Me.Label23 = New System.Windows.Forms.Label()
+        Me.現3_tb = New System.Windows.Forms.TextBox()
+        Me.Label24 = New System.Windows.Forms.Label()
+        Me.全部_ch = New System.Windows.Forms.CheckBox()
+        Me.含稅_ch = New System.Windows.Forms.CheckBox()
+        Me.非稅_ch = New System.Windows.Forms.CheckBox()
         CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -92,7 +104,7 @@ Partial Class 營運成本收支單一覽表
         '
         Me.Label10.AutoSize = True
         Me.Label10.ForeColor = System.Drawing.Color.Green
-        Me.Label10.Location = New System.Drawing.Point(657, 33)
+        Me.Label10.Location = New System.Drawing.Point(849, 7)
         Me.Label10.Name = "Label10"
         Me.Label10.Size = New System.Drawing.Size(32, 16)
         Me.Label10.TabIndex = 881
@@ -102,18 +114,18 @@ Partial Class 營運成本收支單一覽表
         '
         Me.Button2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Button2.ForeColor = System.Drawing.Color.Blue
-        Me.Button2.Location = New System.Drawing.Point(1112, 4)
+        Me.Button2.Location = New System.Drawing.Point(498, 3)
         Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(130, 75)
+        Me.Button2.Size = New System.Drawing.Size(57, 25)
         Me.Button2.TabIndex = 879
-        Me.Button2.Text = "支付單列印成EXCEL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.Button2.Text = "列印"
         Me.Button2.UseVisualStyleBackColor = True
         '
         'Label7
         '
         Me.Label7.AutoSize = True
         Me.Label7.ForeColor = System.Drawing.Color.Blue
-        Me.Label7.Location = New System.Drawing.Point(708, 7)
+        Me.Label7.Location = New System.Drawing.Point(436, 32)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(32, 16)
         Me.Label7.TabIndex = 876
@@ -122,16 +134,16 @@ Partial Class 營運成本收支單一覽表
         'DateTimePicker1
         '
         Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DateTimePicker1.Location = New System.Drawing.Point(743, 4)
+        Me.DateTimePicker1.Location = New System.Drawing.Point(468, 29)
         Me.DateTimePicker1.Name = "DateTimePicker1"
-        Me.DateTimePicker1.Size = New System.Drawing.Size(99, 23)
+        Me.DateTimePicker1.Size = New System.Drawing.Size(86, 23)
         Me.DateTimePicker1.TabIndex = 872
         '
         'Label5
         '
         Me.Label5.AutoSize = True
         Me.Label5.ForeColor = System.Drawing.Color.Blue
-        Me.Label5.Location = New System.Drawing.Point(852, 7)
+        Me.Label5.Location = New System.Drawing.Point(329, 57)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(44, 16)
         Me.Label5.TabIndex = 871
@@ -140,9 +152,9 @@ Partial Class 營運成本收支單一覽表
         'TextBox4
         '
         Me.TextBox4.ForeColor = System.Drawing.Color.Blue
-        Me.TextBox4.Location = New System.Drawing.Point(897, 4)
+        Me.TextBox4.Location = New System.Drawing.Point(374, 54)
         Me.TextBox4.Name = "TextBox4"
-        Me.TextBox4.Size = New System.Drawing.Size(74, 23)
+        Me.TextBox4.Size = New System.Drawing.Size(61, 23)
         Me.TextBox4.TabIndex = 866
         '
         '明細_dgv
@@ -160,14 +172,14 @@ Partial Class 營運成本收支單一覽表
         DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.明細_dgv.RowTemplate.Height = 24
-        Me.明細_dgv.Size = New System.Drawing.Size(1227, 524)
+        Me.明細_dgv.Size = New System.Drawing.Size(996, 524)
         Me.明細_dgv.TabIndex = 865
         '
         'Label3
         '
         Me.Label3.AutoSize = True
         Me.Label3.ForeColor = System.Drawing.Color.Blue
-        Me.Label3.Location = New System.Drawing.Point(587, 7)
+        Me.Label3.Location = New System.Drawing.Point(329, 32)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(44, 16)
         Me.Label3.TabIndex = 864
@@ -176,9 +188,9 @@ Partial Class 營運成本收支單一覽表
         'TextBox3
         '
         Me.TextBox3.ForeColor = System.Drawing.Color.Blue
-        Me.TextBox3.Location = New System.Drawing.Point(632, 4)
+        Me.TextBox3.Location = New System.Drawing.Point(374, 29)
         Me.TextBox3.Name = "TextBox3"
-        Me.TextBox3.Size = New System.Drawing.Size(74, 23)
+        Me.TextBox3.Size = New System.Drawing.Size(61, 23)
         Me.TextBox3.TabIndex = 863
         '
         'Label1
@@ -187,27 +199,18 @@ Partial Class 營運成本收支單一覽表
         Me.Label1.ForeColor = System.Drawing.Color.Blue
         Me.Label1.Location = New System.Drawing.Point(327, 7)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(104, 16)
+        Me.Label1.Size = New System.Drawing.Size(44, 16)
         Me.Label1.TabIndex = 860
-        Me.Label1.Text = "營運成本收支單號"
+        Me.Label1.Text = "支單號"
         '
         'TextBox1
         '
         Me.TextBox1.ForeColor = System.Drawing.Color.Blue
-        Me.TextBox1.Location = New System.Drawing.Point(431, 4)
+        Me.TextBox1.Location = New System.Drawing.Point(374, 4)
         Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(150, 23)
+        Me.TextBox1.Size = New System.Drawing.Size(123, 23)
         Me.TextBox1.TabIndex = 859
         '
-        'Label6
-        '
-        Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(5, 9)
-        Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(140, 16)
-        Me.Label6.TabIndex = 858
-        Me.Label6.Text = "已核准的營運成本收支單"
-        '
         'DataGridView4
         '
         DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
@@ -216,63 +219,63 @@ Partial Class 營運成本收支單一覽表
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.DataGridView4.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.DataGridView4.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView4.Location = New System.Drawing.Point(9, 82)
+        Me.DataGridView4.Location = New System.Drawing.Point(9, 54)
         Me.DataGridView4.Name = "DataGridView4"
         Me.DataGridView4.RowHeadersWidth = 5
         Me.DataGridView4.RowTemplate.Height = 24
-        Me.DataGridView4.Size = New System.Drawing.Size(315, 474)
+        Me.DataGridView4.Size = New System.Drawing.Size(315, 502)
         Me.DataGridView4.TabIndex = 857
         '
         'DateTimePicker2
         '
         Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DateTimePicker2.Location = New System.Drawing.Point(1007, 4)
+        Me.DateTimePicker2.Location = New System.Drawing.Point(468, 54)
         Me.DateTimePicker2.Name = "DateTimePicker2"
-        Me.DateTimePicker2.Size = New System.Drawing.Size(99, 23)
+        Me.DateTimePicker2.Size = New System.Drawing.Size(86, 23)
         Me.DateTimePicker2.TabIndex = 873
         '
         'Label8
         '
         Me.Label8.AutoSize = True
         Me.Label8.ForeColor = System.Drawing.Color.Blue
-        Me.Label8.Location = New System.Drawing.Point(973, 7)
+        Me.Label8.Location = New System.Drawing.Point(436, 57)
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(32, 16)
         Me.Label8.TabIndex = 877
         Me.Label8.Text = "日期"
         '
-        'DataGridView2
+        '彙總_dgv
         '
-        Me.DataGridView2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+        Me.彙總_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.DataGridView2.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView2.Location = New System.Drawing.Point(328, 82)
-        Me.DataGridView2.Name = "DataGridView2"
-        Me.DataGridView2.RowHeadersWidth = 5
+        Me.彙總_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.彙總_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.彙總_dgv.Location = New System.Drawing.Point(328, 82)
+        Me.彙總_dgv.Name = "彙總_dgv"
+        Me.彙總_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView2.RowsDefaultCellStyle = DataGridViewCellStyle4
-        Me.DataGridView2.RowTemplate.Height = 24
-        Me.DataGridView2.Size = New System.Drawing.Size(1227, 524)
-        Me.DataGridView2.TabIndex = 883
+        Me.彙總_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
+        Me.彙總_dgv.RowTemplate.Height = 24
+        Me.彙總_dgv.Size = New System.Drawing.Size(996, 524)
+        Me.彙總_dgv.TabIndex = 883
         '
-        'TextBox5
+        '現1_tb
         '
-        Me.TextBox5.ForeColor = System.Drawing.Color.Green
-        Me.TextBox5.Location = New System.Drawing.Point(691, 30)
-        Me.TextBox5.Name = "TextBox5"
-        Me.TextBox5.Size = New System.Drawing.Size(99, 23)
-        Me.TextBox5.TabIndex = 885
-        Me.TextBox5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.現1_tb.ForeColor = System.Drawing.Color.Green
+        Me.現1_tb.Location = New System.Drawing.Point(880, 4)
+        Me.現1_tb.Name = "現1_tb"
+        Me.現1_tb.Size = New System.Drawing.Size(85, 23)
+        Me.現1_tb.TabIndex = 885
+        Me.現1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         'Button1
         '
         Me.Button1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Button1.Location = New System.Drawing.Point(279, 29)
+        Me.Button1.Location = New System.Drawing.Point(272, 28)
         Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(45, 25)
+        Me.Button1.Size = New System.Drawing.Size(52, 25)
         Me.Button1.TabIndex = 890
         Me.Button1.Text = "當月"
         Me.Button1.UseVisualStyleBackColor = True
@@ -281,9 +284,9 @@ Partial Class 營運成本收支單一覽表
         '
         Me.Button3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Button3.Location = New System.Drawing.Point(225, 29)
+        Me.Button3.Location = New System.Drawing.Point(219, 28)
         Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(45, 25)
+        Me.Button3.Size = New System.Drawing.Size(52, 25)
         Me.Button3.TabIndex = 889
         Me.Button3.Text = "當日"
         Me.Button3.UseVisualStyleBackColor = True
@@ -291,7 +294,7 @@ Partial Class 營運成本收支單一覽表
         'Label4
         '
         Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(105, 34)
+        Me.Label4.Location = New System.Drawing.Point(102, 9)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(20, 16)
         Me.Label4.TabIndex = 888
@@ -300,7 +303,7 @@ Partial Class 營運成本收支單一覽表
         '結束日期_dtp
         '
         Me.結束日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.結束日期_dtp.Location = New System.Drawing.Point(128, 30)
+        Me.結束日期_dtp.Location = New System.Drawing.Point(125, 5)
         Me.結束日期_dtp.Name = "結束日期_dtp"
         Me.結束日期_dtp.Size = New System.Drawing.Size(91, 23)
         Me.結束日期_dtp.TabIndex = 887
@@ -308,46 +311,46 @@ Partial Class 營運成本收支單一覽表
         '開始日期_dtp
         '
         Me.開始日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.開始日期_dtp.Location = New System.Drawing.Point(8, 30)
+        Me.開始日期_dtp.Location = New System.Drawing.Point(6, 5)
         Me.開始日期_dtp.Name = "開始日期_dtp"
         Me.開始日期_dtp.Size = New System.Drawing.Size(91, 23)
         Me.開始日期_dtp.TabIndex = 886
         '
-        'TextBox6
+        '合1_tb
         '
-        Me.TextBox6.ForeColor = System.Drawing.Color.Green
-        Me.TextBox6.Location = New System.Drawing.Point(993, 30)
-        Me.TextBox6.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.TextBox6.Name = "TextBox6"
-        Me.TextBox6.Size = New System.Drawing.Size(113, 23)
-        Me.TextBox6.TabIndex = 896
-        Me.TextBox6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.合1_tb.ForeColor = System.Drawing.Color.Green
+        Me.合1_tb.Location = New System.Drawing.Point(1118, 4)
+        Me.合1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.合1_tb.Name = "合1_tb"
+        Me.合1_tb.Size = New System.Drawing.Size(113, 23)
+        Me.合1_tb.TabIndex = 896
+        Me.合1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         'Label9
         '
         Me.Label9.AutoSize = True
         Me.Label9.ForeColor = System.Drawing.Color.Green
-        Me.Label9.Location = New System.Drawing.Point(935, 34)
+        Me.Label9.Location = New System.Drawing.Point(1087, 8)
         Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(56, 16)
+        Me.Label9.Size = New System.Drawing.Size(32, 16)
         Me.Label9.TabIndex = 895
-        Me.Label9.Text = "現金餘額"
+        Me.Label9.Text = "總和"
         '
-        'TextBox7
+        '出1_tb
         '
-        Me.TextBox7.ForeColor = System.Drawing.Color.Green
-        Me.TextBox7.Location = New System.Drawing.Point(830, 30)
-        Me.TextBox7.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.TextBox7.Name = "TextBox7"
-        Me.TextBox7.Size = New System.Drawing.Size(99, 23)
-        Me.TextBox7.TabIndex = 894
-        Me.TextBox7.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.出1_tb.ForeColor = System.Drawing.Color.Green
+        Me.出1_tb.Location = New System.Drawing.Point(999, 4)
+        Me.出1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.出1_tb.Name = "出1_tb"
+        Me.出1_tb.Size = New System.Drawing.Size(85, 23)
+        Me.出1_tb.TabIndex = 894
+        Me.出1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         'Label11
         '
         Me.Label11.AutoSize = True
         Me.Label11.ForeColor = System.Drawing.Color.Green
-        Me.Label11.Location = New System.Drawing.Point(796, 33)
+        Me.Label11.Location = New System.Drawing.Point(968, 7)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(32, 16)
         Me.Label11.TabIndex = 893
@@ -357,46 +360,46 @@ Partial Class 營運成本收支單一覽表
         '
         Me.Label14.AutoSize = True
         Me.Label14.ForeColor = System.Drawing.Color.Green
-        Me.Label14.Location = New System.Drawing.Point(518, 33)
+        Me.Label14.Location = New System.Drawing.Point(729, 7)
         Me.Label14.Name = "Label14"
         Me.Label14.Size = New System.Drawing.Size(32, 16)
         Me.Label14.TabIndex = 903
         Me.Label14.Text = "支票"
         '
-        'TextBox10
+        '零1_tb
         '
-        Me.TextBox10.ForeColor = System.Drawing.Color.Green
-        Me.TextBox10.Location = New System.Drawing.Point(413, 30)
-        Me.TextBox10.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.TextBox10.Name = "TextBox10"
-        Me.TextBox10.Size = New System.Drawing.Size(99, 23)
-        Me.TextBox10.TabIndex = 902
-        Me.TextBox10.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.零1_tb.ForeColor = System.Drawing.Color.Green
+        Me.零1_tb.Location = New System.Drawing.Point(641, 4)
+        Me.零1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.零1_tb.Name = "零1_tb"
+        Me.零1_tb.Size = New System.Drawing.Size(85, 23)
+        Me.零1_tb.TabIndex = 902
+        Me.零1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         'Label15
         '
         Me.Label15.AutoSize = True
         Me.Label15.ForeColor = System.Drawing.Color.Green
-        Me.Label15.Location = New System.Drawing.Point(332, 34)
+        Me.Label15.Location = New System.Drawing.Point(563, 8)
         Me.Label15.Name = "Label15"
         Me.Label15.Size = New System.Drawing.Size(79, 16)
         Me.Label15.TabIndex = 901
         Me.Label15.Text = "台幣 - 零用金"
         '
-        'TextBox11
+        '支1_tb
         '
-        Me.TextBox11.ForeColor = System.Drawing.Color.Green
-        Me.TextBox11.Location = New System.Drawing.Point(552, 30)
-        Me.TextBox11.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.TextBox11.Name = "TextBox11"
-        Me.TextBox11.Size = New System.Drawing.Size(99, 23)
-        Me.TextBox11.TabIndex = 904
-        Me.TextBox11.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.支1_tb.ForeColor = System.Drawing.Color.Green
+        Me.支1_tb.Location = New System.Drawing.Point(761, 4)
+        Me.支1_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.支1_tb.Name = "支1_tb"
+        Me.支1_tb.Size = New System.Drawing.Size(85, 23)
+        Me.支1_tb.TabIndex = 904
+        Me.支1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         'RadioButton1
         '
         Me.RadioButton1.AutoSize = True
-        Me.RadioButton1.Location = New System.Drawing.Point(215, 7)
+        Me.RadioButton1.Location = New System.Drawing.Point(9, 32)
         Me.RadioButton1.Name = "RadioButton1"
         Me.RadioButton1.Size = New System.Drawing.Size(50, 20)
         Me.RadioButton1.TabIndex = 905
@@ -407,7 +410,7 @@ Partial Class 營運成本收支單一覽表
         'RadioButton2
         '
         Me.RadioButton2.AutoSize = True
-        Me.RadioButton2.Location = New System.Drawing.Point(271, 7)
+        Me.RadioButton2.Location = New System.Drawing.Point(61, 32)
         Me.RadioButton2.Name = "RadioButton2"
         Me.RadioButton2.Size = New System.Drawing.Size(50, 20)
         Me.RadioButton2.TabIndex = 906
@@ -485,96 +488,96 @@ Partial Class 營運成本收支單一覽表
         '
         Me.Label2.AutoSize = True
         Me.Label2.ForeColor = System.Drawing.Color.Red
-        Me.Label2.Location = New System.Drawing.Point(518, 59)
+        Me.Label2.Location = New System.Drawing.Point(729, 32)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(32, 16)
         Me.Label2.TabIndex = 978
         Me.Label2.Text = "支票"
         '
-        'TextBox2
+        '零2_tb
         '
-        Me.TextBox2.ForeColor = System.Drawing.Color.Red
-        Me.TextBox2.Location = New System.Drawing.Point(413, 56)
-        Me.TextBox2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.TextBox2.Name = "TextBox2"
-        Me.TextBox2.Size = New System.Drawing.Size(99, 23)
-        Me.TextBox2.TabIndex = 977
-        Me.TextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.零2_tb.ForeColor = System.Drawing.Color.Red
+        Me.零2_tb.Location = New System.Drawing.Point(641, 29)
+        Me.零2_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.零2_tb.Name = "零2_tb"
+        Me.零2_tb.Size = New System.Drawing.Size(85, 23)
+        Me.零2_tb.TabIndex = 977
+        Me.零2_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         'Label12
         '
         Me.Label12.AutoSize = True
         Me.Label12.ForeColor = System.Drawing.Color.Red
-        Me.Label12.Location = New System.Drawing.Point(326, 60)
+        Me.Label12.Location = New System.Drawing.Point(557, 33)
         Me.Label12.Name = "Label12"
         Me.Label12.Size = New System.Drawing.Size(85, 16)
         Me.Label12.TabIndex = 976
         Me.Label12.Text = "人民幣-零用金"
         '
-        'TextBox8
+        '支2_tb
         '
-        Me.TextBox8.ForeColor = System.Drawing.Color.Red
-        Me.TextBox8.Location = New System.Drawing.Point(552, 56)
-        Me.TextBox8.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.TextBox8.Name = "TextBox8"
-        Me.TextBox8.Size = New System.Drawing.Size(99, 23)
-        Me.TextBox8.TabIndex = 979
-        Me.TextBox8.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.支2_tb.ForeColor = System.Drawing.Color.Red
+        Me.支2_tb.Location = New System.Drawing.Point(761, 29)
+        Me.支2_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.支2_tb.Name = "支2_tb"
+        Me.支2_tb.Size = New System.Drawing.Size(85, 23)
+        Me.支2_tb.TabIndex = 979
+        Me.支2_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
-        'TextBox9
+        '合2_tb
         '
-        Me.TextBox9.ForeColor = System.Drawing.Color.Red
-        Me.TextBox9.Location = New System.Drawing.Point(993, 56)
-        Me.TextBox9.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.TextBox9.Name = "TextBox9"
-        Me.TextBox9.Size = New System.Drawing.Size(113, 23)
-        Me.TextBox9.TabIndex = 975
-        Me.TextBox9.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.合2_tb.ForeColor = System.Drawing.Color.Red
+        Me.合2_tb.Location = New System.Drawing.Point(1118, 29)
+        Me.合2_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.合2_tb.Name = "合2_tb"
+        Me.合2_tb.Size = New System.Drawing.Size(113, 23)
+        Me.合2_tb.TabIndex = 975
+        Me.合2_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         'Label13
         '
         Me.Label13.AutoSize = True
         Me.Label13.ForeColor = System.Drawing.Color.Red
-        Me.Label13.Location = New System.Drawing.Point(935, 60)
+        Me.Label13.Location = New System.Drawing.Point(1087, 33)
         Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(56, 16)
+        Me.Label13.Size = New System.Drawing.Size(32, 16)
         Me.Label13.TabIndex = 974
-        Me.Label13.Text = "現金餘額"
+        Me.Label13.Text = "總和"
         '
-        'TextBox12
+        '出2_tb
         '
-        Me.TextBox12.ForeColor = System.Drawing.Color.Red
-        Me.TextBox12.Location = New System.Drawing.Point(830, 56)
-        Me.TextBox12.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.TextBox12.Name = "TextBox12"
-        Me.TextBox12.Size = New System.Drawing.Size(99, 23)
-        Me.TextBox12.TabIndex = 973
-        Me.TextBox12.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.出2_tb.ForeColor = System.Drawing.Color.Red
+        Me.出2_tb.Location = New System.Drawing.Point(999, 29)
+        Me.出2_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.出2_tb.Name = "出2_tb"
+        Me.出2_tb.Size = New System.Drawing.Size(85, 23)
+        Me.出2_tb.TabIndex = 973
+        Me.出2_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         'Label16
         '
         Me.Label16.AutoSize = True
         Me.Label16.ForeColor = System.Drawing.Color.Red
-        Me.Label16.Location = New System.Drawing.Point(796, 59)
+        Me.Label16.Location = New System.Drawing.Point(968, 32)
         Me.Label16.Name = "Label16"
         Me.Label16.Size = New System.Drawing.Size(32, 16)
         Me.Label16.TabIndex = 972
         Me.Label16.Text = "支出"
         '
-        'TextBox15
+        '現2_tb
         '
-        Me.TextBox15.ForeColor = System.Drawing.Color.Red
-        Me.TextBox15.Location = New System.Drawing.Point(691, 56)
-        Me.TextBox15.Name = "TextBox15"
-        Me.TextBox15.Size = New System.Drawing.Size(99, 23)
-        Me.TextBox15.TabIndex = 971
-        Me.TextBox15.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.現2_tb.ForeColor = System.Drawing.Color.Red
+        Me.現2_tb.Location = New System.Drawing.Point(880, 29)
+        Me.現2_tb.Name = "現2_tb"
+        Me.現2_tb.Size = New System.Drawing.Size(85, 23)
+        Me.現2_tb.TabIndex = 971
+        Me.現2_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         'Label17
         '
         Me.Label17.AutoSize = True
         Me.Label17.ForeColor = System.Drawing.Color.Red
-        Me.Label17.Location = New System.Drawing.Point(657, 59)
+        Me.Label17.Location = New System.Drawing.Point(849, 32)
         Me.Label17.Name = "Label17"
         Me.Label17.Size = New System.Drawing.Size(32, 16)
         Me.Label17.TabIndex = 970
@@ -594,9 +597,9 @@ Partial Class 營運成本收支單一覽表
         '
         Me.下個月_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.下個月_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.下個月_bt.Location = New System.Drawing.Point(267, 56)
+        Me.下個月_bt.Location = New System.Drawing.Point(272, 3)
         Me.下個月_bt.Name = "下個月_bt"
-        Me.下個月_bt.Size = New System.Drawing.Size(57, 23)
+        Me.下個月_bt.Size = New System.Drawing.Size(52, 25)
         Me.下個月_bt.TabIndex = 1170
         Me.下個月_bt.Text = "下個月"
         Me.下個月_bt.UseVisualStyleBackColor = True
@@ -605,9 +608,9 @@ Partial Class 營運成本收支單一覽表
         '
         Me.上個月_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.上個月_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.上個月_bt.Location = New System.Drawing.Point(209, 56)
+        Me.上個月_bt.Location = New System.Drawing.Point(219, 3)
         Me.上個月_bt.Name = "上個月_bt"
-        Me.上個月_bt.Size = New System.Drawing.Size(57, 23)
+        Me.上個月_bt.Size = New System.Drawing.Size(52, 25)
         Me.上個月_bt.TabIndex = 1169
         Me.上個月_bt.Text = "上個月"
         Me.上個月_bt.UseVisualStyleBackColor = True
@@ -617,65 +620,205 @@ Partial Class 營運成本收支單一覽表
         Me.一般月_ch.AutoSize = True
         Me.一般月_ch.Checked = True
         Me.一般月_ch.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.一般月_ch.Location = New System.Drawing.Point(128, 58)
+        Me.一般月_ch.Location = New System.Drawing.Point(172, 32)
         Me.一般月_ch.Name = "一般月_ch"
-        Me.一般月_ch.Size = New System.Drawing.Size(63, 20)
+        Me.一般月_ch.Size = New System.Drawing.Size(51, 20)
         Me.一般月_ch.TabIndex = 1172
-        Me.一般月_ch.Text = "一般月"
+        Me.一般月_ch.Text = "一般"
         Me.一般月_ch.UseVisualStyleBackColor = True
         '
         '會計月_ch
         '
         Me.會計月_ch.AutoSize = True
-        Me.會計月_ch.Location = New System.Drawing.Point(36, 58)
+        Me.會計月_ch.Location = New System.Drawing.Point(118, 32)
         Me.會計月_ch.Name = "會計月_ch"
-        Me.會計月_ch.Size = New System.Drawing.Size(63, 20)
+        Me.會計月_ch.Size = New System.Drawing.Size(51, 20)
         Me.會計月_ch.TabIndex = 1171
-        Me.會計月_ch.Text = "會計月"
+        Me.會計月_ch.Text = "會計"
         Me.會計月_ch.UseVisualStyleBackColor = True
         '
-        '營運成本收支單一覽表
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label18.Location = New System.Drawing.Point(729, 57)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(32, 16)
+        Me.Label18.TabIndex = 1181
+        Me.Label18.Text = "支票"
+        '
+        '零3_tb
+        '
+        Me.零3_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.零3_tb.Location = New System.Drawing.Point(641, 54)
+        Me.零3_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.零3_tb.Name = "零3_tb"
+        Me.零3_tb.Size = New System.Drawing.Size(85, 23)
+        Me.零3_tb.TabIndex = 1180
+        Me.零3_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label21
+        '
+        Me.Label21.AutoSize = True
+        Me.Label21.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label21.Location = New System.Drawing.Point(568, 58)
+        Me.Label21.Name = "Label21"
+        Me.Label21.Size = New System.Drawing.Size(73, 16)
+        Me.Label21.TabIndex = 1179
+        Me.Label21.Text = "美金-零用金"
+        '
+        '支3_tb
+        '
+        Me.支3_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.支3_tb.Location = New System.Drawing.Point(761, 54)
+        Me.支3_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.支3_tb.Name = "支3_tb"
+        Me.支3_tb.Size = New System.Drawing.Size(85, 23)
+        Me.支3_tb.TabIndex = 1182
+        Me.支3_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '合3_tb
+        '
+        Me.合3_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.合3_tb.Location = New System.Drawing.Point(1118, 54)
+        Me.合3_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.合3_tb.Name = "合3_tb"
+        Me.合3_tb.Size = New System.Drawing.Size(113, 23)
+        Me.合3_tb.TabIndex = 1178
+        Me.合3_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label22
+        '
+        Me.Label22.AutoSize = True
+        Me.Label22.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label22.Location = New System.Drawing.Point(1087, 58)
+        Me.Label22.Name = "Label22"
+        Me.Label22.Size = New System.Drawing.Size(32, 16)
+        Me.Label22.TabIndex = 1177
+        Me.Label22.Text = "總和"
+        '
+        '出3_tb
+        '
+        Me.出3_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.出3_tb.Location = New System.Drawing.Point(999, 54)
+        Me.出3_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.出3_tb.Name = "出3_tb"
+        Me.出3_tb.Size = New System.Drawing.Size(85, 23)
+        Me.出3_tb.TabIndex = 1176
+        Me.出3_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label23
+        '
+        Me.Label23.AutoSize = True
+        Me.Label23.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label23.Location = New System.Drawing.Point(968, 57)
+        Me.Label23.Name = "Label23"
+        Me.Label23.Size = New System.Drawing.Size(32, 16)
+        Me.Label23.TabIndex = 1175
+        Me.Label23.Text = "支出"
+        '
+        '現3_tb
+        '
+        Me.現3_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.現3_tb.Location = New System.Drawing.Point(880, 54)
+        Me.現3_tb.Name = "現3_tb"
+        Me.現3_tb.Size = New System.Drawing.Size(85, 23)
+        Me.現3_tb.TabIndex = 1174
+        Me.現3_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label24
+        '
+        Me.Label24.AutoSize = True
+        Me.Label24.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label24.Location = New System.Drawing.Point(849, 57)
+        Me.Label24.Name = "Label24"
+        Me.Label24.Size = New System.Drawing.Size(32, 16)
+        Me.Label24.TabIndex = 1173
+        Me.Label24.Text = "現金"
+        '
+        '全部_ch
+        '
+        Me.全部_ch.AutoSize = True
+        Me.全部_ch.Checked = True
+        Me.全部_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.全部_ch.Location = New System.Drawing.Point(1237, 7)
+        Me.全部_ch.Name = "全部_ch"
+        Me.全部_ch.Size = New System.Drawing.Size(51, 20)
+        Me.全部_ch.TabIndex = 1183
+        Me.全部_ch.Text = "全部"
+        Me.全部_ch.UseVisualStyleBackColor = True
+        '
+        '含稅_ch
+        '
+        Me.含稅_ch.AutoSize = True
+        Me.含稅_ch.Location = New System.Drawing.Point(1237, 32)
+        Me.含稅_ch.Name = "含稅_ch"
+        Me.含稅_ch.Size = New System.Drawing.Size(51, 20)
+        Me.含稅_ch.TabIndex = 1184
+        Me.含稅_ch.Text = "含稅"
+        Me.含稅_ch.UseVisualStyleBackColor = True
+        '
+        '非稅_ch
+        '
+        Me.非稅_ch.AutoSize = True
+        Me.非稅_ch.Location = New System.Drawing.Point(1237, 56)
+        Me.非稅_ch.Name = "非稅_ch"
+        Me.非稅_ch.Size = New System.Drawing.Size(51, 20)
+        Me.非稅_ch.TabIndex = 1185
+        Me.非稅_ch.Text = "非稅"
+        Me.非稅_ch.UseVisualStyleBackColor = True
+        '
+        '財務_收支單一覽表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1562, 611)
+        Me.ClientSize = New System.Drawing.Size(1331, 611)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
-        Me.Controls.Add(Me.一般月_ch)
-        Me.Controls.Add(Me.會計月_ch)
+        Me.Controls.Add(Me.非稅_ch)
+        Me.Controls.Add(Me.含稅_ch)
+        Me.Controls.Add(Me.全部_ch)
+        Me.Controls.Add(Me.Label18)
+        Me.Controls.Add(Me.零3_tb)
+        Me.Controls.Add(Me.Label21)
+        Me.Controls.Add(Me.支3_tb)
+        Me.Controls.Add(Me.合3_tb)
+        Me.Controls.Add(Me.Label22)
+        Me.Controls.Add(Me.出3_tb)
+        Me.Controls.Add(Me.Label23)
+        Me.Controls.Add(Me.現3_tb)
+        Me.Controls.Add(Me.Label24)
         Me.Controls.Add(Me.下個月_bt)
         Me.Controls.Add(Me.上個月_bt)
         Me.Controls.Add(Me.中間日期_dtp)
         Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.TextBox2)
+        Me.Controls.Add(Me.零2_tb)
         Me.Controls.Add(Me.Label12)
-        Me.Controls.Add(Me.TextBox8)
-        Me.Controls.Add(Me.TextBox9)
+        Me.Controls.Add(Me.支2_tb)
+        Me.Controls.Add(Me.合2_tb)
         Me.Controls.Add(Me.Label13)
-        Me.Controls.Add(Me.TextBox12)
+        Me.Controls.Add(Me.出2_tb)
         Me.Controls.Add(Me.Label16)
-        Me.Controls.Add(Me.TextBox15)
+        Me.Controls.Add(Me.現2_tb)
         Me.Controls.Add(Me.Label17)
         Me.Controls.Add(Me.TextBox14)
         Me.Controls.Add(Me.TextBox13)
         Me.Controls.Add(Me.Label20)
         Me.Controls.Add(Me.Label19)
         Me.Controls.Add(Me.PictureBox1)
-        Me.Controls.Add(Me.RadioButton2)
         Me.Controls.Add(Me.RadioButton1)
         Me.Controls.Add(Me.Label14)
-        Me.Controls.Add(Me.TextBox10)
+        Me.Controls.Add(Me.零1_tb)
         Me.Controls.Add(Me.Label15)
-        Me.Controls.Add(Me.TextBox11)
-        Me.Controls.Add(Me.TextBox6)
+        Me.Controls.Add(Me.支1_tb)
+        Me.Controls.Add(Me.合1_tb)
         Me.Controls.Add(Me.Label9)
-        Me.Controls.Add(Me.TextBox7)
+        Me.Controls.Add(Me.出1_tb)
         Me.Controls.Add(Me.Label11)
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.Button3)
-        Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.結束日期_dtp)
         Me.Controls.Add(Me.開始日期_dtp)
-        Me.Controls.Add(Me.TextBox5)
+        Me.Controls.Add(Me.現1_tb)
         Me.Controls.Add(Me.Label10)
         Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.Label8)
@@ -686,19 +829,22 @@ Partial Class 營運成本收支單一覽表
         Me.Controls.Add(Me.TextBox4)
         Me.Controls.Add(Me.TextBox3)
         Me.Controls.Add(Me.TextBox1)
-        Me.Controls.Add(Me.Label6)
-        Me.Controls.Add(Me.DataGridView4)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.DataGridView4)
+        Me.Controls.Add(Me.一般月_ch)
+        Me.Controls.Add(Me.會計月_ch)
+        Me.Controls.Add(Me.RadioButton2)
+        Me.Controls.Add(Me.彙總_dgv)
         Me.Controls.Add(Me.明細_dgv)
-        Me.Controls.Add(Me.DataGridView2)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.Name = "營運成本收支單一覽表"
-        Me.Text = "營運成本收支單一覽表"
+        Me.Name = "財務_收支單一覽表"
+        Me.Text = "財務收支單一覽表"
         CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.彙總_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ContextMenuStrip1.ResumeLayout(False)
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
@@ -716,25 +862,24 @@ Partial Class 營運成本收支單一覽表
     Friend WithEvents TextBox3 As TextBox
     Friend WithEvents Label1 As Label
     Friend WithEvents TextBox1 As TextBox
-    Friend WithEvents Label6 As Label
     Friend WithEvents DataGridView4 As DataGridView
     Friend WithEvents DateTimePicker2 As DateTimePicker
     Friend WithEvents Label8 As Label
-    Friend WithEvents DataGridView2 As DataGridView
-    Friend WithEvents TextBox5 As TextBox
+    Friend WithEvents 彙總_dgv As DataGridView
+    Friend WithEvents 現1_tb As TextBox
     Friend WithEvents Button1 As Button
     Friend WithEvents Button3 As Button
     Friend WithEvents Label4 As Label
     Friend WithEvents 結束日期_dtp As DateTimePicker
     Friend WithEvents 開始日期_dtp As DateTimePicker
-    Friend WithEvents TextBox6 As TextBox
+    Friend WithEvents 合1_tb As TextBox
     Friend WithEvents Label9 As Label
-    Friend WithEvents TextBox7 As TextBox
+    Friend WithEvents 出1_tb As TextBox
     Friend WithEvents Label11 As Label
     Friend WithEvents Label14 As Label
-    Friend WithEvents TextBox10 As TextBox
+    Friend WithEvents 零1_tb As TextBox
     Friend WithEvents Label15 As Label
-    Friend WithEvents TextBox11 As TextBox
+    Friend WithEvents 支1_tb As TextBox
     Friend WithEvents RadioButton1 As RadioButton
     Friend WithEvents RadioButton2 As RadioButton
     Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
@@ -745,18 +890,31 @@ Partial Class 營運成本收支單一覽表
     Friend WithEvents Label19 As Label
     Friend WithEvents PictureBox1 As PictureBox
     Friend WithEvents Label2 As Label
-    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents 零2_tb As TextBox
     Friend WithEvents Label12 As Label
-    Friend WithEvents TextBox8 As TextBox
-    Friend WithEvents TextBox9 As TextBox
+    Friend WithEvents 支2_tb As TextBox
+    Friend WithEvents 合2_tb As TextBox
     Friend WithEvents Label13 As Label
-    Friend WithEvents TextBox12 As TextBox
+    Friend WithEvents 出2_tb As TextBox
     Friend WithEvents Label16 As Label
-    Friend WithEvents TextBox15 As TextBox
+    Friend WithEvents 現2_tb As TextBox
     Friend WithEvents Label17 As Label
     Friend WithEvents 中間日期_dtp As DateTimePicker
     Friend WithEvents 下個月_bt As Button
     Friend WithEvents 上個月_bt As Button
     Friend WithEvents 一般月_ch As CheckBox
     Friend WithEvents 會計月_ch As CheckBox
+    Friend WithEvents Label18 As Label
+    Friend WithEvents 零3_tb As TextBox
+    Friend WithEvents Label21 As Label
+    Friend WithEvents 支3_tb As TextBox
+    Friend WithEvents 合3_tb As TextBox
+    Friend WithEvents Label22 As Label
+    Friend WithEvents 出3_tb As TextBox
+    Friend WithEvents Label23 As Label
+    Friend WithEvents 現3_tb As TextBox
+    Friend WithEvents Label24 As Label
+    Friend WithEvents 全部_ch As CheckBox
+    Friend WithEvents 含稅_ch As CheckBox
+    Friend WithEvents 非稅_ch As CheckBox
 End Class

工巧明智能管理系統/我的系統/財務系統管理/營運成本收支單一覽表.vb → 工巧明智能管理系統/我的系統/財務系統管理/財務_收支單一覽表.vb

@@ -10,7 +10,7 @@ Imports Microsoft.Office.Interop.Excel.XlThemeFont
 Imports Microsoft.Office.Interop.Excel.XlThemeColor
 Imports Microsoft.Office.Interop.Excel.XlWindowState
 Imports Microsoft.Office.Interop.Excel
-Public Class 營運成本收支單一覽表
+Public Class 財務_收支單一覽表
     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
     Dim DTP As String : Dim N1 As Integer : Dim N2 As Integer
     Dim xlApp As Application
@@ -32,37 +32,44 @@ Public Class 營運成本收支單一覽表
         DataGridView4.Columns(4).FillWeight = 100 : DataGridView4.Columns(5).Visible = False : DataGridView4.Columns(6).Visible = False
     End Sub
     Private Sub Set_清單2()
-        DataGridView2.DataSource = Nothing : ds2.Clear()
-        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView2.ColumnHeadersHeight = 25
-        DataGridView2.AllowUserToAddRows = False
+        彙總_dgv.DataSource = Nothing : ds2.Clear()
+        彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        彙總_dgv.ColumnHeadersHeight = 25
+        彙總_dgv.AllowUserToAddRows = False
         ConnOpen()
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (財務流水帳.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (財務流水帳.含稅 = 0 OR 財務流水帳.含稅 IS NULL)"
+        End If
         SQL1 = "SELECT      LEFT(財務控制表.審核日期, 7) AS 日期, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 
                             會計科目.會計科目 AS 子細項, SUM(財務流水帳.零用金) AS 零用金, SUM(財務流水帳.支票數) 
                             AS 支票, SUM(Cast(財務流水帳.收入 AS money)) AS 現金, SUM(Cast(財務流水帳.支出 AS money)) AS 支出, 財務流水帳.銀行 AS 幣別, 財務流水帳.匯率
                 FROM        財務控制表 RIGHT OUTER JOIN
                             財務流水帳 ON 財務控制表.支付單號 = 財務流水帳.支付單號 RIGHT OUTER JOIN
                             會計科目 ON 財務流水帳.類別 = 會計科目.編號
-                WHERE      (財務控制表.審核日期 BETWEEN '" & Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd") & "')
+                WHERE      (財務控制表.審核日期 BETWEEN '" & Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd") & "') " & SQL2 & "
                 GROUP BY    會計科目.第一階, 會計科目.第二階, 會計科目.會計科目, LEFT(會計科目.編號, 7), 
                             LEFT(財務控制表.審核日期, 7), 財務流水帳.銀行, 財務流水帳.匯率
                 ORDER BY    幣別, LEFT(財務控制表.審核日期, 7), LEFT(會計科目.編號, 7)"
-        CmdSet_For_DGV() : da.Fill(ds2) : DataGridView2.DataSource = ds2.Tables(0) : conn.Close()
-
-        DataGridView2.Columns(0).FillWeight = 100 : DataGridView2.Columns(1).FillWeight = 140 : DataGridView2.Columns(2).FillWeight = 140 : DataGridView2.Columns(3).FillWeight = 140
-        DataGridView2.Columns(4).FillWeight = 100 : DataGridView2.Columns(5).FillWeight = 100 : DataGridView2.Columns(6).FillWeight = 100 : DataGridView2.Columns(7).FillWeight = 100
-        DataGridView2.Columns(8).FillWeight = 100 : DataGridView2.Columns(9).FillWeight = 100
-        DataGridView2.Columns(6).DefaultCellStyle.Format = "#,##0.00" : DataGridView2.Columns(7).DefaultCellStyle.Format = "#,##0.00" : DataGridView2.Columns(4).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView2.Columns(5).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView2.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView2.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView2.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView2.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView2.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView2.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView2.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView2.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView2.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView2.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-
-        DataGridView2.Columns(0).ReadOnly = True : DataGridView2.Columns(1).ReadOnly = True : DataGridView2.Columns(2).ReadOnly = True : DataGridView2.Columns(3).ReadOnly = True
-        DataGridView2.Columns(4).ReadOnly = True : DataGridView2.Columns(5).ReadOnly = True : DataGridView2.Columns(6).ReadOnly = True : DataGridView2.Columns(7).ReadOnly = True
+        CmdSet_For_DGV() : da.Fill(ds2) : 彙總_dgv.DataSource = ds2.Tables(0) : conn.Close()
+
+        彙總_dgv.Columns(0).FillWeight = 100 : 彙總_dgv.Columns(1).FillWeight = 140 : 彙總_dgv.Columns(2).FillWeight = 140 : 彙總_dgv.Columns(3).FillWeight = 140
+        彙總_dgv.Columns(4).FillWeight = 100 : 彙總_dgv.Columns(5).FillWeight = 100 : 彙總_dgv.Columns(6).FillWeight = 100 : 彙總_dgv.Columns(7).FillWeight = 100
+        彙總_dgv.Columns(8).FillWeight = 100 : 彙總_dgv.Columns(9).FillWeight = 100
+        彙總_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00" : 彙總_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.00" : 彙總_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00"
+        彙總_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.00"
+        彙總_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 彙總_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        彙總_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 彙總_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        彙總_dgv.Columns(0).ReadOnly = True : 彙總_dgv.Columns(1).ReadOnly = True : 彙總_dgv.Columns(2).ReadOnly = True : 彙總_dgv.Columns(3).ReadOnly = True
+        彙總_dgv.Columns(4).ReadOnly = True : 彙總_dgv.Columns(5).ReadOnly = True : 彙總_dgv.Columns(6).ReadOnly = True : 彙總_dgv.Columns(7).ReadOnly = True
     End Sub
     Private Sub Set_費用清單()
         明細_dgv.DataSource = Nothing : ds.Clear()
@@ -71,19 +78,27 @@ Public Class 營運成本收支單一覽表
         明細_dgv.AllowUserToAddRows = False
         明細_dgv.RowTemplate.Height = 35
         ConnOpen()
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (財務流水帳.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (財務流水帳.含稅 = 0 OR 財務流水帳.含稅 IS NULL)"
+        End If
         SQL1 = "SELECT      財務流水帳.支付單號, 財務流水帳.項次, 會計科目.會計科目, 財務流水帳.明細 AS 用途, 
                             Cast(財務流水帳.零用金 AS money) AS 零用金, Cast(財務流水帳.支票數 AS money) AS 支票, Cast(財務流水帳.收入 AS money) AS 現金, 
-                            Cast(財務流水帳.支出 AS money) AS 支出, 財務流水帳.備註 AS 票期, 財務流水帳.匯率, 財務流水帳.銀行 AS 幣別, 財務流水帳.類別, 財務流水帳.流水號
+                            Cast(財務流水帳.支出 AS money) AS 支出, 財務流水帳.備註 AS 票期, 財務流水帳.匯率, 財務流水帳.銀行 AS 幣別, 財務流水帳.類別, 
+                            財務流水帳.流水號, 財務流水帳.含稅
                 FROM        財務流水帳 INNER JOIN
                             會計科目 ON 財務流水帳.類別 = 會計科目.編號
-                WHERE      (財務流水帳.支付單號 LIKE '" & TextBox1.Text & "')
+                WHERE      (財務流水帳.支付單號 LIKE '" & TextBox1.Text & "') " & SQL2 & "
                 ORDER BY    財務流水帳.項次"
         CmdSet_For_DGV() : da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()
 
-        明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 80 : 明細_dgv.Columns(2).FillWeight = 300 : 明細_dgv.Columns(3).FillWeight = 500
-        明細_dgv.Columns(4).FillWeight = 140 : 明細_dgv.Columns(5).FillWeight = 140 : 明細_dgv.Columns(6).FillWeight = 140 : 明細_dgv.Columns(7).FillWeight = 140
+        明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 80 : 明細_dgv.Columns(2).FillWeight = 300 : 明細_dgv.Columns(3).FillWeight = 350
+        明細_dgv.Columns(4).FillWeight = 160 : 明細_dgv.Columns(5).FillWeight = 160 : 明細_dgv.Columns(6).FillWeight = 160 : 明細_dgv.Columns(7).FillWeight = 160
         明細_dgv.Columns(8).FillWeight = 140 : 明細_dgv.Columns(9).FillWeight = 140 : 明細_dgv.Columns(10).FillWeight = 140 : 明細_dgv.Columns(11).Visible = False
-        明細_dgv.Columns(12).Visible = False
+        明細_dgv.Columns(12).Visible = False : 明細_dgv.Columns(13).FillWeight = 80
 
         明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(2).ReadOnly = True : 明細_dgv.Columns(9).ReadOnly = True : 明細_dgv.Columns(10).ReadOnly = True
 
@@ -96,32 +111,43 @@ Public Class 營運成本收支單一覽表
         明細_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
         明細_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
         明細_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
 
-        TextBox5.Text = "0.00" : TextBox7.Text = "0.00" : TextBox6.Text = "0.00" : TextBox10.Text = "0.00" : TextBox11.Text = "0.00"
-        TextBox2.Text = "0.00" : TextBox8.Text = "0.00" : TextBox15.Text = "0.00" : TextBox12.Text = "0.00" : TextBox9.Text = "0.00"
+        現1_tb.Text = "0.00" : 出1_tb.Text = "0.00" : 合1_tb.Text = "0.00" : 零1_tb.Text = "0.00" : 支1_tb.Text = "0.00"
+        零2_tb.Text = "0.00" : 支2_tb.Text = "0.00" : 現2_tb.Text = "0.00" : 出2_tb.Text = "0.00" : 合2_tb.Text = "0.00"
         For i As Integer = 0 To 明細_dgv.Rows.Count - 1
             If 明細_dgv.Rows(i).Cells("幣別").Value = "台幣現金" Then
-                TextBox5.Text = Val(TextBox5.Text) + 明細_dgv.Rows(i).Cells("現金").Value
-                TextBox7.Text = Val(TextBox7.Text) + 明細_dgv.Rows(i).Cells("支出").Value
-                TextBox10.Text = Val(TextBox10.Text) + 明細_dgv.Rows(i).Cells("零用金").Value
-                TextBox11.Text = Val(TextBox11.Text) + 明細_dgv.Rows(i).Cells("支票").Value
+                現1_tb.Text = Val(現1_tb.Text) + 明細_dgv.Rows(i).Cells("現金").Value
+                出1_tb.Text = Val(出1_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value
+                零1_tb.Text = Val(零1_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value
+                支1_tb.Text = Val(支1_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value
             End If
             If 明細_dgv.Rows(i).Cells("幣別").Value = "人民幣現金" Then
-                TextBox15.Text = Val(TextBox15.Text) + 明細_dgv.Rows(i).Cells("現金").Value
-                TextBox12.Text = Val(TextBox12.Text) + 明細_dgv.Rows(i).Cells("支出").Value
+                現2_tb.Text = Val(現2_tb.Text) + 明細_dgv.Rows(i).Cells("現金").Value
+                出2_tb.Text = Val(出2_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value
 
-                TextBox2.Text = Val(TextBox2.Text) + 明細_dgv.Rows(i).Cells("零用金").Value
-                TextBox8.Text = Val(TextBox8.Text) + 明細_dgv.Rows(i).Cells("支票").Value
+                零2_tb.Text = Val(零2_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value
+                支2_tb.Text = Val(支2_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value
+            End If
+            If 明細_dgv.Rows(i).Cells("幣別").Value = "美金" Then
+                現3_tb.Text = Val(現3_tb.Text) + 明細_dgv.Rows(i).Cells("現金").Value
+                出3_tb.Text = Val(出3_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value
+
+                零3_tb.Text = Val(零3_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value
+                支3_tb.Text = Val(支3_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value
             End If
         Next i
-        TextBox6.Text = Val(TextBox10.Text) + Val(TextBox5.Text) - Val(TextBox7.Text) : TextBox9.Text = Val(TextBox2.Text) + Val(TextBox15.Text) - Val(TextBox12.Text)
-        If Val(TextBox6.Text) > 0 Then : TextBox6.ForeColor = Color.Blue : Else : TextBox6.ForeColor = Color.Red : End If
-        If Val(TextBox9.Text) > 0 Then : TextBox9.ForeColor = Color.Blue : Else : TextBox6.ForeColor = Color.Red : End If
-        TextBox5.Text = Strings.Format(Val(TextBox5.Text), "#,##0.00") : TextBox7.Text = Strings.Format(Val(TextBox7.Text), "#,##0.00") : TextBox6.Text = Strings.Format(Val(TextBox6.Text), "#,##0.00")
-        TextBox10.Text = Strings.Format(Val(TextBox10.Text), "#,##0.00") : TextBox11.Text = Strings.Format(Val(TextBox11.Text), "#,##0.00")
-        TextBox2.Text = Strings.Format(Val(TextBox2.Text), "#,##0.00") : TextBox8.Text = Strings.Format(Val(TextBox8.Text), "#,##0.00") : TextBox15.Text = Strings.Format(Val(TextBox15.Text), "#,##0.00")
-        TextBox12.Text = Strings.Format(Val(TextBox12.Text), "#,##0.00") : TextBox9.Text = Strings.Format(Val(TextBox9.Text), "#,##0.00")
+        合1_tb.Text = Val(零1_tb.Text) + Val(現1_tb.Text) - Val(出1_tb.Text)
+        合2_tb.Text = Val(零2_tb.Text) + Val(現2_tb.Text) - Val(出2_tb.Text)
+        合3_tb.Text = Val(零3_tb.Text) + Val(現3_tb.Text) - Val(出3_tb.Text)
+        If Val(合1_tb.Text) > 0 Then : 合1_tb.ForeColor = Color.Blue : Else : 合1_tb.ForeColor = Color.Red : End If
+        If Val(合2_tb.Text) > 0 Then : 合2_tb.ForeColor = Color.Blue : Else : 合2_tb.ForeColor = Color.Red : End If
+        If Val(合3_tb.Text) > 0 Then : 合3_tb.ForeColor = Color.Blue : Else : 合3_tb.ForeColor = Color.Red : End If
+        現1_tb.Text = Strings.Format(Val(現1_tb.Text), "#,##0.00") : 出1_tb.Text = Strings.Format(Val(出1_tb.Text), "#,##0.00") : 合1_tb.Text = Strings.Format(Val(合1_tb.Text), "#,##0.00")
+        零1_tb.Text = Strings.Format(Val(零1_tb.Text), "#,##0.00") : 支1_tb.Text = Strings.Format(Val(支1_tb.Text), "#,##0.00")
+        零2_tb.Text = Strings.Format(Val(零2_tb.Text), "#,##0.00") : 支2_tb.Text = Strings.Format(Val(支2_tb.Text), "#,##0.00") : 現2_tb.Text = Strings.Format(Val(現2_tb.Text), "#,##0.00")
+        出2_tb.Text = Strings.Format(Val(出2_tb.Text), "#,##0.00") : 合2_tb.Text = Strings.Format(Val(合2_tb.Text), "#,##0.00")
+        零3_tb.Text = Strings.Format(Val(零3_tb.Text), "#,##0.00") : 支3_tb.Text = Strings.Format(Val(支3_tb.Text), "#,##0.00") : 現3_tb.Text = Strings.Format(Val(現3_tb.Text), "#,##0.00")
+        出3_tb.Text = Strings.Format(Val(出3_tb.Text), "#,##0.00") : 合3_tb.Text = Strings.Format(Val(合3_tb.Text), "#,##0.00")
     End Sub
     Private Sub 日期格式()
         If 會計月_ch.Checked = True Then
@@ -144,7 +170,38 @@ Public Class 營運成本收支單一覽表
         Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         DTP = Strings.Left(Strings.Format(Today(), "yyyy/MM/dd"), 8) & "01"
         開始日期_dtp.Value = DTP : 結束日期_dtp.Value = Today()
-        日期格式() : DataGridView2.Visible = False : RadioButton1.Checked = True
+        日期格式() : 開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(-1) : 彙總_dgv.Visible = False : RadioButton1.Checked = True
+    End Sub
+    Dim 已超出 As Boolean
+    Private Sub 明細_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 明細_dgv.MouseUp
+        'If 明細_dgv.SelectedCells.Count = 1 Then : MsgBox(明細_dgv.SelectedCells(0).ColumnIndex & "  " & 明細_dgv.SelectedCells(0).RowIndex) : End If
+        If 明細_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 明細_dgv.SelectedCells.Count > 0 Then
+            If 明細_dgv.SelectedCells(0).ColumnIndex >= 4 And 明細_dgv.SelectedCells(0).ColumnIndex <= 7 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 明細_dgv.SelectedCells.Count - 1
+                        x += Val(明細_dgv.Rows(明細_dgv.SelectedCells.Item(i).RowIndex).Cells(明細_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : GCM_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : GCM_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : GCM_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub 彙總_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 彙總_dgv.MouseUp
+        'If 彙總_dgv.SelectedCells.Count = 1 Then : MsgBox(彙總_dgv.SelectedCells(0).ColumnIndex & "  " & 彙總_dgv.SelectedCells(0).RowIndex) : End If
+        If 彙總_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 彙總_dgv.SelectedCells.Count > 0 Then
+            If 彙總_dgv.SelectedCells(0).ColumnIndex >= 4 And 彙總_dgv.SelectedCells(0).ColumnIndex <= 7 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 彙總_dgv.SelectedCells.Count - 1
+                        x += Val(彙總_dgv.Rows(彙總_dgv.SelectedCells.Item(i).RowIndex).Cells(彙總_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : GCM_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : GCM_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : GCM_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
     End Sub
     Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView4.CellClick
         If e.RowIndex = -1 Then : Else
@@ -155,34 +212,43 @@ Public Class 營運成本收支單一覽表
             Set_費用清單()
         End If
     End Sub
-    Private Sub DataGridView2_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView2.RowPostPaint
+    Private Sub DataGridView2_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 彙總_dgv.RowPostPaint
         Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2) : Dim linePen2 As New Pen(Color.Green, 2)
-        If e.RowIndex = DataGridView2.Rows.Count - 1 Then
+        If e.RowIndex = 彙總_dgv.Rows.Count - 1 Then
             Exit Sub
         Else
-            If DataGridView2(0, e.RowIndex).Value.ToString <> DataGridView2(0, e.RowIndex + 1).Value.ToString Then
-                Dim startX As Integer = IIf(DataGridView2.RowHeadersVisible, DataGridView2.RowHeadersWidth, 0)
+            If 彙總_dgv(0, e.RowIndex).Value.ToString <> 彙總_dgv(0, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(彙總_dgv.RowHeadersVisible, 彙總_dgv.RowHeadersWidth, 0)
                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
-                Dim endX As Integer = startX + DataGridView2.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView2.HorizontalScrollingOffset
+                Dim endX As Integer = startX + 彙總_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 彙總_dgv.HorizontalScrollingOffset
                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                 Exit Sub
             End If
-            If DataGridView2(8, e.RowIndex).Value.ToString <> DataGridView2(8, e.RowIndex + 1).Value.ToString Then
-                Dim startX As Integer = IIf(DataGridView2.RowHeadersVisible, DataGridView2.RowHeadersWidth, 0)
+            If 彙總_dgv(8, e.RowIndex).Value.ToString <> 彙總_dgv(8, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(彙總_dgv.RowHeadersVisible, 彙總_dgv.RowHeadersWidth, 0)
                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
-                Dim endX As Integer = startX + DataGridView2.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView2.HorizontalScrollingOffset
+                Dim endX As Integer = startX + 彙總_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 彙總_dgv.HorizontalScrollingOffset
                 e.Graphics.DrawLine(linePen2, startX, startY, endX, startY)
                 Exit Sub
             End If
-            If DataGridView2(1, e.RowIndex).Value.ToString <> DataGridView2(1, e.RowIndex + 1).Value.ToString Then
-                Dim startX As Integer = IIf(DataGridView2.RowHeadersVisible, DataGridView2.RowHeadersWidth, 0)
+            If 彙總_dgv(1, e.RowIndex).Value.ToString <> 彙總_dgv(1, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(彙總_dgv.RowHeadersVisible, 彙總_dgv.RowHeadersWidth, 0)
                 Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
-                Dim endX As Integer = startX + DataGridView2.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView2.HorizontalScrollingOffset
+                Dim endX As Integer = startX + 彙總_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 彙總_dgv.HorizontalScrollingOffset
                 e.Graphics.DrawLine(linePen1, startX, startY, endX, startY)
                 Exit Sub
             End If
         End If
     End Sub
+    Private Sub 全部_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 全部_ch.Click
+        全部_ch.Checked = True : 含稅_ch.Checked = False : 非稅_ch.Checked = False : Set_費用清單() : Set_清單2() : 彙總計算()
+    End Sub
+    Private Sub 含稅_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 含稅_ch.Click
+        全部_ch.Checked = False : 含稅_ch.Checked = True : 非稅_ch.Checked = False : Set_費用清單() : Set_清單2() : 彙總計算()
+    End Sub
+    Private Sub 非稅_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 非稅_ch.Click
+        全部_ch.Checked = False : 含稅_ch.Checked = False : 非稅_ch.Checked = True : Set_費用清單() : Set_清單2() : 彙總計算()
+    End Sub
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
         DTP = Strings.Format(Today(), "yyyy/MM/dd")
         開始日期_dtp.Value = DTP : 結束日期_dtp.Value = DTP
@@ -193,31 +259,47 @@ Public Class 營運成本收支單一覽表
     End Sub
     Private Sub 彙總計算()
         If RadioButton1.Checked = False And RadioButton2.Checked = True Then
-            TextBox5.Text = "0.00" : TextBox7.Text = "0.00" : TextBox6.Text = "0.00" : TextBox10.Text = "0.00" : TextBox11.Text = "0.00"
-            TextBox2.Text = "0.00" : TextBox8.Text = "0.00" : TextBox15.Text = "0.00" : TextBox12.Text = "0.00" : TextBox9.Text = "0.00"
-            For i As Integer = 0 To DataGridView2.Rows.Count - 1
-                If DataGridView2.Rows(i).Cells("幣別").Value = "台幣現金" Then
-                    TextBox5.Text = Val(TextBox5.Text) + DataGridView2.Rows(i).Cells("現金").Value
-                    TextBox7.Text = Val(TextBox7.Text) + DataGridView2.Rows(i).Cells("支出").Value
-                    TextBox10.Text = Val(TextBox10.Text) + DataGridView2.Rows(i).Cells("零用金").Value
-                    TextBox11.Text = Val(TextBox11.Text) + DataGridView2.Rows(i).Cells("支票").Value
+            現1_tb.Text = "0.00" : 出1_tb.Text = "0.00" : 合1_tb.Text = "0.00" : 零1_tb.Text = "0.00" : 支1_tb.Text = "0.00"
+            零2_tb.Text = "0.00" : 支2_tb.Text = "0.00" : 現2_tb.Text = "0.00" : 出2_tb.Text = "0.00" : 合2_tb.Text = "0.00"
+            零3_tb.Text = "0.00" : 支3_tb.Text = "0.00" : 現3_tb.Text = "0.00" : 出3_tb.Text = "0.00" : 合3_tb.Text = "0.00"
+            For i As Integer = 0 To 彙總_dgv.Rows.Count - 1
+                If 彙總_dgv.Rows(i).Cells("幣別").Value = "台幣現金" Then
+                    If 彙總_dgv.Rows(i).Cells("主項").Value <> "上月結存" Then
+                        現1_tb.Text = Val(現1_tb.Text) + 彙總_dgv.Rows(i).Cells("現金").Value
+                        出1_tb.Text = Val(出1_tb.Text) + 彙總_dgv.Rows(i).Cells("支出").Value
+                        零1_tb.Text = Val(零1_tb.Text) + 彙總_dgv.Rows(i).Cells("零用金").Value
+                        支1_tb.Text = Val(支1_tb.Text) + 彙總_dgv.Rows(i).Cells("支票").Value
+                    End If
+                End If
+                If 彙總_dgv.Rows(i).Cells("幣別").Value = "人民幣現金" Then
+                    If 彙總_dgv.Rows(i).Cells("主項").Value <> "上月結存" Then
+                        現2_tb.Text = Val(現2_tb.Text) + 彙總_dgv.Rows(i).Cells("現金").Value
+                        出2_tb.Text = Val(出2_tb.Text) + 彙總_dgv.Rows(i).Cells("支出").Value
+                        零2_tb.Text = Val(零2_tb.Text) + 彙總_dgv.Rows(i).Cells("零用金").Value
+                        支2_tb.Text = Val(支2_tb.Text) + 彙總_dgv.Rows(i).Cells("支票").Value
+                    End If
                 End If
-                If DataGridView2.Rows(i).Cells("幣別").Value = "人民幣現金" Then
-                    If DataGridView2.Rows(i).Cells("主項").Value <> "上月結存" Then
-                        TextBox15.Text = Val(TextBox15.Text) + DataGridView2.Rows(i).Cells("現金").Value
-                        TextBox12.Text = Val(TextBox12.Text) + DataGridView2.Rows(i).Cells("支出").Value
-                        TextBox2.Text = Val(TextBox2.Text) + DataGridView2.Rows(i).Cells("零用金").Value
-                        TextBox8.Text = Val(TextBox8.Text) + DataGridView2.Rows(i).Cells("支票").Value
+                If 彙總_dgv.Rows(i).Cells("幣別").Value = "美金" Then
+                    If 彙總_dgv.Rows(i).Cells("主項").Value <> "上月結存" Then
+                        現3_tb.Text = Val(現3_tb.Text) + 彙總_dgv.Rows(i).Cells("現金").Value
+                        出3_tb.Text = Val(出3_tb.Text) + 彙總_dgv.Rows(i).Cells("支出").Value
+                        零3_tb.Text = Val(零3_tb.Text) + 彙總_dgv.Rows(i).Cells("零用金").Value
+                        支3_tb.Text = Val(支3_tb.Text) + 彙總_dgv.Rows(i).Cells("支票").Value
                     End If
                 End If
             Next i
-            TextBox6.Text = Val(TextBox10.Text) + Val(TextBox5.Text) - Val(TextBox7.Text) : TextBox9.Text = Val(TextBox2.Text) + Val(TextBox15.Text) - Val(TextBox12.Text)
-            If Val(TextBox6.Text) > 0 Then : TextBox6.ForeColor = Color.Blue : Else : TextBox6.ForeColor = Color.Red : End If
-            If Val(TextBox9.Text) > 0 Then : TextBox9.ForeColor = Color.Blue : Else : TextBox6.ForeColor = Color.Red : End If
-            TextBox5.Text = Strings.Format(Val(TextBox5.Text), "#,##0.00") : TextBox7.Text = Strings.Format(Val(TextBox7.Text), "#,##0.00") : TextBox6.Text = Strings.Format(Val(TextBox6.Text), "#,##0.00")
-            TextBox10.Text = Strings.Format(Val(TextBox10.Text), "#,##0.00") : TextBox11.Text = Strings.Format(Val(TextBox11.Text), "#,##0.00")
-            TextBox2.Text = Strings.Format(Val(TextBox2.Text), "#,##0.00") : TextBox8.Text = Strings.Format(Val(TextBox8.Text), "#,##0.00") : TextBox15.Text = Strings.Format(Val(TextBox15.Text), "#,##0.00")
-            TextBox12.Text = Strings.Format(Val(TextBox12.Text), "#,##0.00") : TextBox9.Text = Strings.Format(Val(TextBox9.Text), "#,##0.00")
+            合1_tb.Text = Val(零1_tb.Text) + Val(現1_tb.Text) - Val(出1_tb.Text)
+            合2_tb.Text = Val(零2_tb.Text) + Val(現2_tb.Text) - Val(出2_tb.Text)
+            合3_tb.Text = Val(零3_tb.Text) + Val(現3_tb.Text) - Val(出3_tb.Text)
+            If Val(合1_tb.Text) > 0 Then : 合1_tb.ForeColor = Color.Blue : Else : 合1_tb.ForeColor = Color.Red : End If
+            If Val(合2_tb.Text) > 0 Then : 合2_tb.ForeColor = Color.Blue : Else : 合2_tb.ForeColor = Color.Red : End If
+            If Val(合3_tb.Text) > 0 Then : 合3_tb.ForeColor = Color.Blue : Else : 合3_tb.ForeColor = Color.Red : End If
+            現1_tb.Text = Strings.Format(Val(現1_tb.Text), "#,##0.00") : 出1_tb.Text = Strings.Format(Val(出1_tb.Text), "#,##0.00") : 合1_tb.Text = Strings.Format(Val(合1_tb.Text), "#,##0.00")
+            零1_tb.Text = Strings.Format(Val(零1_tb.Text), "#,##0.00") : 支1_tb.Text = Strings.Format(Val(支1_tb.Text), "#,##0.00")
+            零2_tb.Text = Strings.Format(Val(零2_tb.Text), "#,##0.00") : 支2_tb.Text = Strings.Format(Val(支2_tb.Text), "#,##0.00") : 現2_tb.Text = Strings.Format(Val(現2_tb.Text), "#,##0.00")
+            出2_tb.Text = Strings.Format(Val(出2_tb.Text), "#,##0.00") : 合2_tb.Text = Strings.Format(Val(合2_tb.Text), "#,##0.00")
+            零3_tb.Text = Strings.Format(Val(零3_tb.Text), "#,##0.00") : 支3_tb.Text = Strings.Format(Val(支3_tb.Text), "#,##0.00") : 現3_tb.Text = Strings.Format(Val(現3_tb.Text), "#,##0.00")
+            出3_tb.Text = Strings.Format(Val(出3_tb.Text), "#,##0.00") : 合3_tb.Text = Strings.Format(Val(合3_tb.Text), "#,##0.00")
         End If
     End Sub
     Private Sub 上個月_bt_Click(sender As Object, e As EventArgs) Handles 上個月_bt.Click
@@ -257,11 +339,11 @@ Public Class 營運成本收支單一覽表
         會計月_ch.Checked = False : 一般月_ch.Checked = True : 日期格式()
     End Sub
     Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.Click
-        明細_dgv.Visible = True : DataGridView2.Visible = False : RadioButton1.Checked = True : RadioButton2.Checked = False
-        TextBox5.Text = "0.00" : TextBox7.Text = "0.00" : TextBox6.Text = "0.00" : TextBox10.Text = "0.00" : TextBox11.Text = "0.00" : DataGridView4.Enabled = True
+        明細_dgv.Visible = True : 彙總_dgv.Visible = False : RadioButton1.Checked = True : RadioButton2.Checked = False
+        現1_tb.Text = "0.00" : 出1_tb.Text = "0.00" : 合1_tb.Text = "0.00" : 零1_tb.Text = "0.00" : 支1_tb.Text = "0.00" : DataGridView4.Enabled = True
     End Sub
     Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.Click
-        明細_dgv.Visible = False : DataGridView2.Visible = True : RadioButton1.Checked = False : RadioButton2.Checked = True
+        明細_dgv.Visible = False : 彙總_dgv.Visible = True : RadioButton1.Checked = False : RadioButton2.Checked = True
         TextBox1.Text = "" : TextBox3.Text = "" : TextBox4.Text = "" : 明細_dgv.DataSource = Nothing : ds.Clear() : DataGridView4.Enabled = False
         彙總計算()
     End Sub
@@ -319,15 +401,15 @@ Public Class 營運成本收支單一覽表
             xlSheet.Cells(2, 1) = "日期" : xlSheet.Cells(2, 2) = "主項" : xlSheet.Cells(2, 3) = "子項" : xlSheet.Cells(2, 4) = "子細項" : xlSheet.Cells(2, 5) = "零用金"
             xlSheet.Cells(2, 6) = "支票" : xlSheet.Cells(2, 7) = "現金" : xlSheet.Cells(2, 8) = "支出" : xlSheet.Cells(2, 9) = "現金餘額"
 
-            For i As Integer = 0 To DataGridView2.Rows.Count - 1
-                xlSheet.Cells(i + 3, 1) = DataGridView2.Rows(i).Cells("日期").Value
-                xlSheet.Cells(i + 3, 2) = DataGridView2.Rows(i).Cells("主項").Value
-                xlSheet.Cells(i + 3, 3) = DataGridView2.Rows(i).Cells("子項").Value
-                xlSheet.Cells(i + 3, 4) = DataGridView2.Rows(i).Cells("子細項").Value
-                xlSheet.Cells(i + 3, 5) = DataGridView2.Rows(i).Cells("零用金").Value
-                xlSheet.Cells(i + 3, 6) = DataGridView2.Rows(i).Cells("支票").Value
-                xlSheet.Cells(i + 3, 7) = DataGridView2.Rows(i).Cells("現金").Value
-                xlSheet.Cells(i + 3, 8) = DataGridView2.Rows(i).Cells("支出").Value
+            For i As Integer = 0 To 彙總_dgv.Rows.Count - 1
+                xlSheet.Cells(i + 3, 1) = 彙總_dgv.Rows(i).Cells("日期").Value
+                xlSheet.Cells(i + 3, 2) = 彙總_dgv.Rows(i).Cells("主項").Value
+                xlSheet.Cells(i + 3, 3) = 彙總_dgv.Rows(i).Cells("子項").Value
+                xlSheet.Cells(i + 3, 4) = 彙總_dgv.Rows(i).Cells("子細項").Value
+                xlSheet.Cells(i + 3, 5) = 彙總_dgv.Rows(i).Cells("零用金").Value
+                xlSheet.Cells(i + 3, 6) = 彙總_dgv.Rows(i).Cells("支票").Value
+                xlSheet.Cells(i + 3, 7) = 彙總_dgv.Rows(i).Cells("現金").Value
+                xlSheet.Cells(i + 3, 8) = 彙總_dgv.Rows(i).Cells("支出").Value
                 If i = 0 Then
                     xlSheet.Cells(i + 3, 9) = "=E3+G3-H3"
                 Else

工巧明智能管理系統/我的系統/財務系統管理/營運成本收支單審核.Designer.vb → 工巧明智能管理系統/我的系統/財務系統管理/財務_收支單審核.Designer.vb

@@ -1,5 +1,5 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class 營運成本收支單審核
+Partial Class 財務_收支單審核
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
@@ -23,12 +23,12 @@ Partial Class 營運成本收支單審核
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
-        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.明細_dgv = New System.Windows.Forms.DataGridView()
         Me.RadioButton2 = New System.Windows.Forms.RadioButton()
         Me.RadioButton1 = New System.Windows.Forms.RadioButton()
         Me.DataGridView2 = New System.Windows.Forms.DataGridView()
@@ -60,7 +60,7 @@ Partial Class 營運成本收支單審核
         Me.Label19 = New System.Windows.Forms.Label()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.DataGridView3 = New System.Windows.Forms.DataGridView()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -89,23 +89,23 @@ Partial Class 營運成本收支單審核
         Me.Button1.Text = "審核通過"
         Me.Button1.UseVisualStyleBackColor = True
         '
-        'DataGridView1
+        '明細_dgv
         '
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
-        Me.DataGridView1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.明細_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.DataGridView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView1.Location = New System.Drawing.Point(327, 55)
-        Me.DataGridView1.Name = "DataGridView1"
-        Me.DataGridView1.RowHeadersWidth = 5
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle5
-        Me.DataGridView1.RowTemplate.Height = 24
-        Me.DataGridView1.Size = New System.Drawing.Size(916, 549)
-        Me.DataGridView1.TabIndex = 823
+        Me.明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.明細_dgv.Location = New System.Drawing.Point(327, 55)
+        Me.明細_dgv.Name = "明細_dgv"
+        Me.明細_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.明細_dgv.RowTemplate.Height = 24
+        Me.明細_dgv.Size = New System.Drawing.Size(916, 549)
+        Me.明細_dgv.TabIndex = 823
         '
         'RadioButton2
         '
@@ -131,8 +131,8 @@ Partial Class 營運成本收支單審核
         '
         'DataGridView2
         '
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.DataGridView2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.DataGridView2.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -395,7 +395,7 @@ Partial Class 營運成本收支單審核
         Me.DataGridView3.Size = New System.Drawing.Size(180, 47)
         Me.DataGridView3.TabIndex = 959
         '
-        '營運成本收支單審核
+        '財務_收支單審核
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@@ -425,16 +425,16 @@ Partial Class 營運成本收支單審核
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.Button1)
-        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.明細_dgv)
         Me.Controls.Add(Me.RadioButton2)
         Me.Controls.Add(Me.RadioButton1)
         Me.Controls.Add(Me.DataGridView2)
         Me.Controls.Add(Me.TextBox8)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.Name = "營運成本收支單審核"
-        Me.Text = "營運成本收支單審核"
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Name = "財務_收支單審核"
+        Me.Text = "財務收支單審核"
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ContextMenuStrip1.ResumeLayout(False)
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -445,7 +445,7 @@ Partial Class 營運成本收支單審核
     End Sub
     Friend WithEvents Button2 As Button
     Friend WithEvents Button1 As Button
-    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents 明細_dgv As DataGridView
     Friend WithEvents RadioButton2 As RadioButton
     Friend WithEvents RadioButton1 As RadioButton
     Friend WithEvents DataGridView2 As DataGridView

工巧明智能管理系統/我的系統/財務系統管理/營運成本收支單審核.vb → 工巧明智能管理系統/我的系統/財務系統管理/財務_收支單審核.vb

@@ -1,7 +1,7 @@
 Option Strict Off
 Imports System.Data.SqlClient
 Imports System.IO
-Public Class 營運成本收支單審核
+Public Class 財務_收支單審核
     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
     Private ReadOnly QQW(11) As String
     Dim DTP As String : Dim WWEE As String : Private II As Integer
@@ -22,43 +22,44 @@ Public Class 營運成本收支單審核
         DataGridView2.Columns(0).FillWeight = 160 : DataGridView2.Columns(1).FillWeight = 100 : DataGridView2.Columns(2).FillWeight = 100 : DataGridView2.Columns(3).Visible = False
     End Sub
     Private Sub Set_費用清單()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
-        DataGridView1.RowTemplate.Height = 35
+        明細_dgv.DataSource = Nothing : ds.Clear()
+        明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        明細_dgv.ColumnHeadersHeight = 25
+        明細_dgv.AllowUserToAddRows = False
+        明細_dgv.RowTemplate.Height = 35
         ConnOpen()
         SQL1 = "SELECT      財務流水帳.支付單號, 財務流水帳.項次, 會計科目.會計科目, 財務流水帳.明細 AS 用途, 
                             Cast(財務流水帳.零用金 AS money) AS 零用金, Cast(財務流水帳.支票數 AS money) AS 支票, Cast(財務流水帳.收入 AS money) AS 現金, 
-                            Cast(財務流水帳.支出 AS money) AS 支出, 財務流水帳.備註 AS 票期, 財務流水帳.匯率, 財務流水帳.銀行 AS 幣別, 財務流水帳.類別, 財務流水帳.流水號
+                            Cast(財務流水帳.支出 AS money) AS 支出, 財務流水帳.備註 AS 票期, 財務流水帳.匯率, 財務流水帳.銀行 AS 幣別, 財務流水帳.類別, 
+                            財務流水帳.流水號, 財務流水帳.含稅
                 FROM        財務流水帳 INNER JOIN
                             會計科目 ON 財務流水帳.類別 = 會計科目.編號
                 WHERE      (財務流水帳.支付單號 LIKE '" & TextBox1.Text & "')
                 ORDER BY    財務流水帳.項次"
-        CmdSet_For_DGV() : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+        CmdSet_For_DGV() : da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()
 
-        DataGridView1.Columns(0).Visible = False : DataGridView1.Columns(1).FillWeight = 80 : DataGridView1.Columns(2).FillWeight = 300 : DataGridView1.Columns(3).FillWeight = 500
-        DataGridView1.Columns(4).FillWeight = 140 : DataGridView1.Columns(5).FillWeight = 140 : DataGridView1.Columns(6).FillWeight = 140 : DataGridView1.Columns(7).FillWeight = 140
-        DataGridView1.Columns(8).FillWeight = 140 : DataGridView1.Columns(9).FillWeight = 140 : DataGridView1.Columns(10).FillWeight = 140 : DataGridView1.Columns(11).Visible = False
-        DataGridView1.Columns(12).Visible = False
+        明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 80 : 明細_dgv.Columns(2).FillWeight = 300 : 明細_dgv.Columns(3).FillWeight = 500
+        明細_dgv.Columns(4).FillWeight = 140 : 明細_dgv.Columns(5).FillWeight = 140 : 明細_dgv.Columns(6).FillWeight = 140 : 明細_dgv.Columns(7).FillWeight = 140
+        明細_dgv.Columns(8).FillWeight = 140 : 明細_dgv.Columns(9).FillWeight = 140 : 明細_dgv.Columns(10).FillWeight = 140 : 明細_dgv.Columns(11).Visible = False
+        明細_dgv.Columns(12).Visible = False : 明細_dgv.Columns(13).FillWeight = 80
 
-        DataGridView1.Columns(1).ReadOnly = True : DataGridView1.Columns(2).ReadOnly = True : DataGridView1.Columns(9).ReadOnly = True : DataGridView1.Columns(10).ReadOnly = True
+        明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(2).ReadOnly = True : 明細_dgv.Columns(9).ReadOnly = True : 明細_dgv.Columns(10).ReadOnly = True
 
-        DataGridView1.Columns(4).DefaultCellStyle.Format = "#,##0.00" : DataGridView1.Columns(5).DefaultCellStyle.Format = "#,##0.00" : DataGridView1.Columns(6).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView1.Columns(7).DefaultCellStyle.Format = "#,##0.00" : DataGridView1.Columns(8).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView1.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.EditMode = DataGridViewEditMode.EditOnEnter
+        明細_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00"
+        明細_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(8).DefaultCellStyle.Format = "#,##0.00"
+        明細_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
 
         TextBox5.Text = "0" : TextBox2.Text = "0" : TextBox6.Text = "0" : TextBox7.Text = "0" : TextBox8.Text = "0"
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            TextBox5.Text = Val(TextBox5.Text) + DataGridView1.Rows(i).Cells("現金").Value : TextBox2.Text = Val(TextBox2.Text) + DataGridView1.Rows(i).Cells("支出").Value
-            TextBox7.Text = Val(TextBox7.Text) + DataGridView1.Rows(i).Cells("零用金").Value : TextBox8.Text = Val(TextBox8.Text) + DataGridView1.Rows(i).Cells("支票").Value
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+            TextBox5.Text = Val(TextBox5.Text) + 明細_dgv.Rows(i).Cells("現金").Value : TextBox2.Text = Val(TextBox2.Text) + 明細_dgv.Rows(i).Cells("支出").Value
+            TextBox7.Text = Val(TextBox7.Text) + 明細_dgv.Rows(i).Cells("零用金").Value : TextBox8.Text = Val(TextBox8.Text) + 明細_dgv.Rows(i).Cells("支票").Value
         Next i
         TextBox6.Text = Val(TextBox7.Text) + Val(TextBox5.Text) - Val(TextBox2.Text)
         If Val(TextBox6.Text) > 0 Then : TextBox6.ForeColor = Color.Blue : Else : TextBox6.ForeColor = Color.Red : End If
@@ -171,17 +172,17 @@ Public Class 營運成本收支單審核
         End If
     End Sub
     Private Sub Set_切換格式()
-        DataGridView1.DataSource = Nothing : ds.Clear() : TextBox1.Text = "" : TextBox3.Text = "" : TextBox5.Text = "" : TextBox2.Text = "" : TextBox6.Text = ""
+        明細_dgv.DataSource = Nothing : ds.Clear() : TextBox1.Text = "" : TextBox3.Text = "" : TextBox5.Text = "" : TextBox2.Text = "" : TextBox6.Text = ""
         TextBox7.Text = "" : TextBox8.Text = "" : Set_清單1()
     End Sub
     Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.Click
         RadioButton1.Checked = True : RadioButton2.Checked = False
-        DataGridView1.DataSource = Nothing : ds.Clear() : TextBox1.Text = "" : TextBox3.Text = "" : TextBox5.Text = "" : TextBox2.Text = "" : TextBox6.Text = ""
+        明細_dgv.DataSource = Nothing : ds.Clear() : TextBox1.Text = "" : TextBox3.Text = "" : TextBox5.Text = "" : TextBox2.Text = "" : TextBox6.Text = ""
         Button1.Enabled = True : Button2.Enabled = True : 審核通過ToolStripMenuItem.Enabled = True : 單據作廢ToolStripMenuItem.Enabled = True : Set_切換格式()
     End Sub
     Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.Click
         RadioButton1.Checked = False : RadioButton2.Checked = True
-        DataGridView1.DataSource = Nothing : ds.Clear() : TextBox1.Text = "" : TextBox3.Text = "" : TextBox5.Text = "" : TextBox2.Text = "" : TextBox6.Text = ""
+        明細_dgv.DataSource = Nothing : ds.Clear() : TextBox1.Text = "" : TextBox3.Text = "" : TextBox5.Text = "" : TextBox2.Text = "" : TextBox6.Text = ""
         Button1.Enabled = False : Button2.Enabled = False : 審核通過ToolStripMenuItem.Enabled = False : 單據作廢ToolStripMenuItem.Enabled = False : Set_切換格式()
     End Sub
     Private Sub Set_日期格式轉換()
@@ -208,24 +209,24 @@ Public Class 營運成本收支單審核
                    WHERE (支付單號 LIKE '" & TextBox1.Text & "')"
             CmdSet_For_dr() : conn.Close()
 
-            For i As Integer = 0 To DataGridView1.Rows.Count - 1
-                If DataGridView1.Rows(i).Cells("零用金").Value <> 0 Then
+            For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+                If 明細_dgv.Rows(i).Cells("零用金").Value <> 0 Then
                     ConnOpen()
-                    SQL1 = "UPDATE 財務流水帳 SET  備用金 = N'1' WHERE (支付單號 LIKE '" & TextBox1.Text & "' AND 項次 LIKE '" & DataGridView1.Rows(i).Cells("項次").Value & "')"
+                    SQL1 = "UPDATE 財務流水帳 SET  備用金 = N'1' WHERE (支付單號 LIKE '" & TextBox1.Text & "' AND 項次 LIKE '" & 明細_dgv.Rows(i).Cells("項次").Value & "')"
                     CmdSet_For_dr() : conn.Close()
-                ElseIf DataGridView1.Rows(i).Cells("現金").Value <> 0 Then
+                ElseIf 明細_dgv.Rows(i).Cells("現金").Value <> 0 Then
                     ConnOpen()
-                    SQL1 = "UPDATE 財務流水帳 SET  現金 = N'1' WHERE (支付單號 LIKE '" & TextBox1.Text & "' AND 項次 LIKE '" & DataGridView1.Rows(i).Cells("項次").Value & "')"
+                    SQL1 = "UPDATE 財務流水帳 SET  現金 = N'1' WHERE (支付單號 LIKE '" & TextBox1.Text & "' AND 項次 LIKE '" & 明細_dgv.Rows(i).Cells("項次").Value & "')"
                     CmdSet_For_dr() : conn.Close()
-                ElseIf DataGridView1.Rows(i).Cells("支出").Value <> 0 Then
+                ElseIf 明細_dgv.Rows(i).Cells("支出").Value <> 0 Then
                     ConnOpen()
-                    SQL1 = "UPDATE 財務流水帳 SET  公帳 = N'1' WHERE (支付單號 LIKE '" & TextBox1.Text & "' AND 項次 LIKE '" & DataGridView1.Rows(i).Cells("項次").Value & "')"
+                    SQL1 = "UPDATE 財務流水帳 SET  公帳 = N'1' WHERE (支付單號 LIKE '" & TextBox1.Text & "' AND 項次 LIKE '" & 明細_dgv.Rows(i).Cells("項次").Value & "')"
                     CmdSet_For_dr() : conn.Close()
                 End If
             Next
             MsgBox("審核完畢。")
             TextBox1.Text = "" : TextBox3.Text = ""
-            DataGridView1.DataSource = Nothing : ds.Clear()
+            明細_dgv.DataSource = Nothing : ds.Clear()
             Set_清單1() : Set_清單()
         End If
     End Sub
@@ -249,7 +250,7 @@ Public Class 營運成本收支單審核
                 conn.Close()
                 MsgBox("審核完畢。") : PA = ""
                 TextBox1.Text = "" : TextBox3.Text = ""
-                DataGridView1.DataSource = Nothing : ds.Clear()
+                明細_dgv.DataSource = Nothing : ds.Clear()
                 Set_清單1()
             End If
         End If

工巧明智能管理系統/我的系統/財務系統管理/營運成本收支單申請.Designer.vb → 工巧明智能管理系統/我的系統/財務系統管理/財務_收支單申請.Designer.vb

@@ -1,5 +1,5 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class 營運成本收支單申請
+Partial Class 財務_收支單申請
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
@@ -23,9 +23,9 @@ Partial Class 營運成本收支單申請
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.ComboBox1 = New System.Windows.Forms.ComboBox()
         Me.TextBox5 = New System.Windows.Forms.TextBox()
         Me.Label8 = New System.Windows.Forms.Label()
@@ -33,7 +33,7 @@ Partial Class 營運成本收支單申請
         Me.TextBox4 = New System.Windows.Forms.TextBox()
         Me.Label28 = New System.Windows.Forms.Label()
         Me.Label27 = New System.Windows.Forms.Label()
-        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.明細_dgv = New System.Windows.Forms.DataGridView()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.TextBox3 = New System.Windows.Forms.TextBox()
         Me.TextBox1 = New System.Windows.Forms.TextBox()
@@ -79,7 +79,7 @@ Partial Class 營運成本收支單申請
         Me.幣別_cb = New System.Windows.Forms.ComboBox()
         Me.人民幣匯率_tb = New System.Windows.Forms.TextBox()
         Me.美金匯率_tb = New System.Windows.Forms.TextBox()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.SuspendLayout()
@@ -151,24 +151,24 @@ Partial Class 營運成本收支單申請
         Me.Label27.TabIndex = 839
         Me.Label27.Text = "選擇"
         '
-        'DataGridView1
+        '明細_dgv
         '
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
-        Me.DataGridView1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.明細_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.DataGridView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView1.Location = New System.Drawing.Point(328, 83)
-        Me.DataGridView1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.DataGridView1.Name = "DataGridView1"
-        Me.DataGridView1.RowHeadersWidth = 5
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle5
-        Me.DataGridView1.RowTemplate.Height = 24
-        Me.DataGridView1.Size = New System.Drawing.Size(909, 498)
-        Me.DataGridView1.TabIndex = 838
+        Me.明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.明細_dgv.Location = New System.Drawing.Point(328, 83)
+        Me.明細_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.明細_dgv.Name = "明細_dgv"
+        Me.明細_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.明細_dgv.RowTemplate.Height = 24
+        Me.明細_dgv.Size = New System.Drawing.Size(909, 510)
+        Me.明細_dgv.TabIndex = 838
         '
         'Label3
         '
@@ -232,8 +232,8 @@ Partial Class 營運成本收支單申請
         '
         'DataGridView2
         '
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.DataGridView2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.DataGridView2.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -532,10 +532,10 @@ Partial Class 營運成本收支單申請
         '
         Me.ProgressBar1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.ProgressBar1.Location = New System.Drawing.Point(328, 582)
+        Me.ProgressBar1.Location = New System.Drawing.Point(328, 596)
         Me.ProgressBar1.Maximum = 10000
         Me.ProgressBar1.Name = "ProgressBar1"
-        Me.ProgressBar1.Size = New System.Drawing.Size(909, 23)
+        Me.ProgressBar1.Size = New System.Drawing.Size(909, 10)
         Me.ProgressBar1.TabIndex = 897
         '
         '幣別_cb
@@ -569,7 +569,7 @@ Partial Class 營運成本收支單申請
         Me.美金匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         Me.美金匯率_tb.Visible = False
         '
-        '營運成本收支單申請
+        '財務_收支單申請
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@@ -614,13 +614,13 @@ Partial Class 營運成本收支單申請
         Me.Controls.Add(Me.RadioButton2)
         Me.Controls.Add(Me.RadioButton1)
         Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.明細_dgv)
         Me.Controls.Add(Me.DataGridView2)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.Name = "營運成本收支單申請"
-        Me.Text = "營運成本收支單申請"
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Name = "財務_收支單申請"
+        Me.Text = "財務收支單申請"
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ContextMenuStrip1.ResumeLayout(False)
         Me.ResumeLayout(False)
@@ -635,7 +635,7 @@ Partial Class 營運成本收支單申請
     Friend WithEvents TextBox4 As TextBox
     Friend WithEvents Label28 As Label
     Friend WithEvents Label27 As Label
-    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents 明細_dgv As DataGridView
     Friend WithEvents Label3 As Label
     Friend WithEvents TextBox3 As TextBox
     Friend WithEvents TextBox1 As TextBox

工巧明智能管理系統/我的系統/財務系統管理/營運成本收支單申請.vb → 工巧明智能管理系統/我的系統/財務系統管理/財務_收支單申請.vb

@@ -1,5 +1,5 @@
 Option Strict Off
-Public Class 營運成本收支單申請
+Public Class 財務_收支單申請
     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet
     Private DTP As String
     Private DTP1 As String
@@ -27,43 +27,44 @@ Public Class 營運成本收支單申請
         DataGridView2.Columns(0).FillWeight = 160 : DataGridView2.Columns(1).FillWeight = 100 : DataGridView2.Columns(2).FillWeight = 100 : DataGridView2.Columns(3).Visible = False
     End Sub
     Private Sub Set_費用清單()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
-        DataGridView1.RowTemplate.Height = 35
+        明細_dgv.DataSource = Nothing : ds.Clear()
+        明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        明細_dgv.ColumnHeadersHeight = 25
+        明細_dgv.AllowUserToAddRows = False
+        明細_dgv.RowTemplate.Height = 35
         ConnOpen()
         SQL1 = "SELECT      財務流水帳.支付單號, 財務流水帳.項次, 會計科目.會計科目, 財務流水帳.明細 AS 用途, 
                             財務流水帳.零用金, 財務流水帳.支票數 AS 支票, Cast(財務流水帳.收入 AS money) AS 現金, 
-                            Cast(財務流水帳.支出 AS money) AS 支出, 財務流水帳.備註 AS 票期, 財務流水帳.匯率, 財務流水帳.銀行 AS 幣別, 財務流水帳.類別, 財務流水帳.流水號
+                            Cast(財務流水帳.支出 AS money) AS 支出, 財務流水帳.備註 AS 票期, 財務流水帳.匯率, 
+                            財務流水帳.銀行 AS 幣別, 財務流水帳.類別, 財務流水帳.流水號, 財務流水帳.含稅
                 FROM        財務流水帳 INNER JOIN
                             會計科目 ON 財務流水帳.類別 = 會計科目.編號
                 WHERE      (財務流水帳.支付單號 LIKE '" & TextBox1.Text & "')
                 ORDER BY    財務流水帳.項次"
-        CmdSet_For_DGV() : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+        CmdSet_For_DGV() : da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()
 
-        DataGridView1.Columns(0).Visible = False : DataGridView1.Columns(1).FillWeight = 80 : DataGridView1.Columns(2).FillWeight = 300 : DataGridView1.Columns(3).FillWeight = 500
-        DataGridView1.Columns(4).FillWeight = 140 : DataGridView1.Columns(5).FillWeight = 140 : DataGridView1.Columns(6).FillWeight = 140 : DataGridView1.Columns(7).FillWeight = 140
-        DataGridView1.Columns(8).FillWeight = 140 : DataGridView1.Columns(9).FillWeight = 140 : DataGridView1.Columns(10).FillWeight = 140 : DataGridView1.Columns(11).Visible = False
-        DataGridView1.Columns(12).Visible = False
+        明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 80 : 明細_dgv.Columns(2).FillWeight = 300 : 明細_dgv.Columns(3).FillWeight = 500
+        明細_dgv.Columns(4).FillWeight = 140 : 明細_dgv.Columns(5).FillWeight = 140 : 明細_dgv.Columns(6).FillWeight = 140 : 明細_dgv.Columns(7).FillWeight = 140
+        明細_dgv.Columns(8).FillWeight = 140 : 明細_dgv.Columns(9).FillWeight = 140 : 明細_dgv.Columns(10).FillWeight = 140 : 明細_dgv.Columns(11).Visible = False
+        明細_dgv.Columns(12).Visible = False : 明細_dgv.Columns(13).FillWeight = 80
 
-        DataGridView1.Columns(1).ReadOnly = True : DataGridView1.Columns(2).ReadOnly = True : DataGridView1.Columns(9).ReadOnly = True : DataGridView1.Columns(10).ReadOnly = True
+        明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(2).ReadOnly = True : 明細_dgv.Columns(9).ReadOnly = True : 明細_dgv.Columns(10).ReadOnly = True
 
-        DataGridView1.Columns(4).DefaultCellStyle.Format = "#,##0.00" : DataGridView1.Columns(5).DefaultCellStyle.Format = "#,##0.00" : DataGridView1.Columns(6).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView1.Columns(7).DefaultCellStyle.Format = "#,##0.00" : DataGridView1.Columns(8).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView1.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.EditMode = DataGridViewEditMode.EditOnEnter
+        明細_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00"
+        明細_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(8).DefaultCellStyle.Format = "#,##0.00"
+        明細_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
 
         TextBox5.Text = "0.00" : TextBox2.Text = "0.00" : TextBox6.Text = "0.00" : TextBox7.Text = "0" : TextBox8.Text = "0.00"
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            TextBox5.Text = Val(TextBox5.Text) + Val(DataGridView1.Rows(i).Cells("現金").Value) : TextBox2.Text = Val(TextBox2.Text) + Val(DataGridView1.Rows(i).Cells("支出").Value)
-            TextBox7.Text = Val(TextBox7.Text) + DataGridView1.Rows(i).Cells("零用金").Value : TextBox8.Text = Val(TextBox8.Text) + DataGridView1.Rows(i).Cells("支票").Value
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+            TextBox5.Text = Val(TextBox5.Text) + Val(明細_dgv.Rows(i).Cells("現金").Value) : TextBox2.Text = Val(TextBox2.Text) + Val(明細_dgv.Rows(i).Cells("支出").Value)
+            TextBox7.Text = Val(TextBox7.Text) + 明細_dgv.Rows(i).Cells("零用金").Value : TextBox8.Text = Val(TextBox8.Text) + 明細_dgv.Rows(i).Cells("支票").Value
         Next i
         TextBox6.Text = Val(TextBox7.Text) + Val(TextBox5.Text) - Val(TextBox2.Text)
         If Val(TextBox6.Text) > 0 Then : TextBox6.ForeColor = Color.Blue : Else : TextBox6.ForeColor = Color.Red : End If
@@ -139,22 +140,22 @@ Public Class 營運成本收支單申請
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
         If Label62.Visible = True Then : Label62.Visible = False : Else : Label62.Visible = True : End If
     End Sub
-    Private Sub DataGridView1_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
+    Private Sub DataGridView1_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 明細_dgv.CellEndEdit
         TextBox5.Text = "0" : TextBox2.Text = "0" : TextBox6.Text = "0" : TextBox7.Text = "0" : TextBox8.Text = "0"
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            TextBox5.Text = Val(TextBox5.Text) + DataGridView1.Rows(i).Cells("現金").Value : TextBox2.Text = Val(TextBox2.Text) + DataGridView1.Rows(i).Cells("支出").Value
-            TextBox7.Text = Val(TextBox7.Text) + DataGridView1.Rows(i).Cells("零用金").Value : TextBox8.Text = Val(TextBox8.Text) + DataGridView1.Rows(i).Cells("支票").Value
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+            TextBox5.Text = Val(TextBox5.Text) + 明細_dgv.Rows(i).Cells("現金").Value : TextBox2.Text = Val(TextBox2.Text) + 明細_dgv.Rows(i).Cells("支出").Value
+            TextBox7.Text = Val(TextBox7.Text) + 明細_dgv.Rows(i).Cells("零用金").Value : TextBox8.Text = Val(TextBox8.Text) + 明細_dgv.Rows(i).Cells("支票").Value
         Next i
         TextBox6.Text = Val(TextBox7.Text) + Val(TextBox5.Text) - Val(TextBox2.Text)
         If Val(TextBox6.Text) > 0 Then : TextBox6.ForeColor = Color.Blue : Else : TextBox6.ForeColor = Color.Red : End If
         TextBox5.Text = Format(Val(TextBox5.Text), "#,##0") : TextBox2.Text = Format(Val(TextBox2.Text), "#,##0") : TextBox6.Text = Format(Val(TextBox6.Text), "#,##0")
         TextBox7.Text = Format(Val(TextBox7.Text), "#,##0") : TextBox8.Text = Format(Val(TextBox8.Text), "#,##0")
         Dim EU As String
-        EU = DataGridView1("票期", e.RowIndex).Value.ToString
+        EU = 明細_dgv("票期", e.RowIndex).Value.ToString
         If EU = "" Then
         Else
             DateTimePicker2.Text = EU
-            DataGridView1.Rows(e.RowIndex).Cells("票期").Value = Format(DateTimePicker2.Value, "yyyy/MM/dd")
+            明細_dgv.Rows(e.RowIndex).Cells("票期").Value = Format(DateTimePicker2.Value, "yyyy/MM/dd")
         End If
     End Sub
     Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView2.CellClick
@@ -163,13 +164,13 @@ Public Class 營運成本收支單申請
             TextBox3.Text = DataGridView2(3, e.RowIndex).Value.ToString
         End If
     End Sub
-    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
+    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 明細_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox4.Text = DataGridView1(1, e.RowIndex).Value.ToString
+            TextBox4.Text = 明細_dgv(1, e.RowIndex).Value.ToString
         End If
     End Sub
     Private Sub Set_切換格式()
-        DataGridView1.DataSource = Nothing : ds.Clear() : TextBox1.Text = "" : TextBox3.Text = "" : TextBox4.Text = "" : TextBox5.Text = "" : TextBox2.Text = "" : TextBox6.Text = ""
+        明細_dgv.DataSource = Nothing : ds.Clear() : TextBox1.Text = "" : TextBox3.Text = "" : TextBox4.Text = "" : TextBox5.Text = "" : TextBox2.Text = "" : TextBox6.Text = ""
         TextBox7.Text = "" : TextBox8.Text = "" : ComboBox1下拉表單資料載入() : Set_清單1()
     End Sub
     Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.Click
@@ -194,14 +195,15 @@ Public Class 營運成本收支單申請
         End If
     End Sub
     Private Sub 存檔()
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            資料數 = DataGridView1.Rows.Count : MyMoule.進度條()
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+            資料數 = 明細_dgv.Rows.Count : MyMoule.進度條()
             ConnOpen()
-            SQL1 = "UPDATE 財務流水帳 SET  明細 = N'" & DataGridView1.Rows(i).Cells("用途").Value & "', 支出 = N'" & DataGridView1.Rows(i).Cells("支出").Value &
-                   "', 備註 = N'" & DataGridView1.Rows(i).Cells("票期").Value & "' , 類別 = N'" & DataGridView1.Rows(i).Cells("類別").Value &
-                   "', 收入 = N'" & DataGridView1.Rows(i).Cells("現金").Value & "', 零用金 = N'" & DataGridView1.Rows(i).Cells("零用金").Value &
-                   "', 支票數 = N'" & DataGridView1.Rows(i).Cells("支票").Value & "', 匯率 = N'" & DataGridView1.Rows(i).Cells("匯率").Value & "'
-                   WHERE (支付單號 LIKE '" & TextBox1.Text & "' AND 項次 LIKE '" & DataGridView1.Rows(i).Cells("項次").Value & "')"
+            SQL1 = "UPDATE 財務流水帳 SET  明細 = N'" & 明細_dgv.Rows(i).Cells("用途").Value & "', 支出 = N'" & 明細_dgv.Rows(i).Cells("支出").Value &
+                   "', 備註 = N'" & 明細_dgv.Rows(i).Cells("票期").Value & "' , 類別 = N'" & 明細_dgv.Rows(i).Cells("類別").Value &
+                   "', 收入 = N'" & 明細_dgv.Rows(i).Cells("現金").Value & "', 零用金 = N'" & 明細_dgv.Rows(i).Cells("零用金").Value &
+                   "', 支票數 = N'" & 明細_dgv.Rows(i).Cells("支票").Value & "', 匯率 = N'" & 明細_dgv.Rows(i).Cells("匯率").Value &
+                   "', 含稅 = N'" & 明細_dgv.Rows(i).Cells("含稅").Value & "'
+                   WHERE (支付單號 LIKE '" & TextBox1.Text & "' AND 項次 LIKE '" & 明細_dgv.Rows(i).Cells("項次").Value & "')"
             cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
         Next
         ProgressBar1.Value = 0 : 最終數 = 0
@@ -267,16 +269,16 @@ Public Class 營運成本收支單申請
         複製單據開單ToolStripMenuItem.Enabled = False : 開立零用金支付單ToolStripMenuItem.Enabled = True : Button2.Enabled = True : 新增一筆資料ToolStripMenuItem.Enabled = True
         刪除支付單中選中的資料ToolStripMenuItem.Enabled = True : 刪除選中的零用金支付單ToolStripMenuItem.Enabled = True
         Set_清單1()
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
             Set_流水號()
             ConnOpen()
             SQL1 = "INSERT INTO 財務流水帳 (流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員, 支付單號, 項次, 會計, 出納, 現金, 備用金, 公帳, 支票, 
                             出納日期, 零用金, 支票數, 匯率, 備註) 
-                    VALUES (N'" & 新流水1 & "', N'" & DataGridView1.Rows(i).Cells("幣別").Value & "'', N'" & DTP & "', N'" & DataGridView1.Rows(i).Cells("類別").Value &
-                        "', N'" & DataGridView1.Rows(i).Cells("現金").Value & "', N'" & DataGridView1.Rows(i).Cells("支出").Value & "', N'" & DataGridView1.Rows(i).Cells("用途").Value &
-                        "', N'', N'" & gUserName & "', N'" & TextBox1.Text & "', N'" & DataGridView1.Rows(i).Cells("項次").Value & "', N'1', N'0', N'0', N'0', N'0', N'0', N'" & DTP &
-                        "', N'" & DataGridView1.Rows(i).Cells("零用金").Value & "', N'" & DataGridView1.Rows(i).Cells("支票").Value & "', N'" & DataGridView1.Rows(i).Cells("匯率").Value &
-                        "', N'" & DataGridView1.Rows(i).Cells("票期").Value & "')"
+                    VALUES (N'" & 新流水1 & "', N'" & 明細_dgv.Rows(i).Cells("幣別").Value & "'', N'" & DTP & "', N'" & 明細_dgv.Rows(i).Cells("類別").Value &
+                        "', N'" & 明細_dgv.Rows(i).Cells("現金").Value & "', N'" & 明細_dgv.Rows(i).Cells("支出").Value & "', N'" & 明細_dgv.Rows(i).Cells("用途").Value &
+                        "', N'', N'" & gUserName & "', N'" & TextBox1.Text & "', N'" & 明細_dgv.Rows(i).Cells("項次").Value & "', N'1', N'0', N'0', N'0', N'0', N'0', N'" & DTP &
+                        "', N'" & 明細_dgv.Rows(i).Cells("零用金").Value & "', N'" & 明細_dgv.Rows(i).Cells("支票").Value & "', N'" & 明細_dgv.Rows(i).Cells("匯率").Value &
+                        "', N'" & 明細_dgv.Rows(i).Cells("票期").Value & "')"
             CmdSet_For_dr()
         Next
         Set_費用清單() : MsgBox("複製單據開立完成。")
@@ -290,7 +292,7 @@ Public Class 營運成本收支單申請
     End Sub
     Private Sub 開立零用金支付單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 開立零用金支付單ToolStripMenuItem.Click
         開立零用金支付單() : 開立零用金支付單ToolStripMenuItem.Enabled = False : RadioButton1.Enabled = False : RadioButton2.Enabled = False : RadioButton3.Enabled = False : DataGridView2.Enabled = False
-        DataGridView1.DataSource = Nothing : ds.Clear() : conn.Close()
+        明細_dgv.DataSource = Nothing : ds.Clear() : conn.Close()
         Set_清單1()
     End Sub
     Private Sub 刪除選中的零用金支付單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 刪除選中的零用金支付單ToolStripMenuItem.Click
@@ -304,7 +306,7 @@ Public Class 營運成本收支單申請
             SQL1 = "DELETE FROM 財務流水帳 WHERE (支付單號 LIKE '" & TextBox1.Text & "')"
             cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
             TextBox1.Text = "" : TextBox3.Text = "" : TextBox4.Text = ""
-            DataGridView1.DataSource = Nothing : ds.Clear()
+            明細_dgv.DataSource = Nothing : ds.Clear()
             Set_清單1()
         End If
     End Sub
@@ -318,10 +320,10 @@ Public Class 營運成本收支單申請
             cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
             Set_費用清單()
             Dim NUM1 As Integer = 0
-            For i As Integer = 0 To DataGridView1.Rows.Count - 1
+            For i As Integer = 0 To 明細_dgv.Rows.Count - 1
                 NUM1 += 1 : If NUM1 < 10 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
                 ConnOpen()
-                SQL1 = "UPDATE 財務流水帳 SET 項次 = N'" & 新項次 & "' WHERE (支付單號 LIKE '" & TextBox1.Text & "' AND 項次 LIKE '" & DataGridView1.Rows(i).Cells("項次").Value & "')"
+                SQL1 = "UPDATE 財務流水帳 SET 項次 = N'" & 新項次 & "' WHERE (支付單號 LIKE '" & TextBox1.Text & "' AND 項次 LIKE '" & 明細_dgv.Rows(i).Cells("項次").Value & "')"
                 cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
                 conn.Close()
             Next

工巧明智能管理系統/我的系統/財務系統管理/營運報表.Designer.vb → 工巧明智能管理系統/我的系統/財務系統管理/財務_決算表.Designer.vb

@@ -1,5 +1,5 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class 營運報表
+Partial Class 財務_決算表
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
@@ -62,7 +62,7 @@ Partial Class 營運報表
         Me.Label11 = New System.Windows.Forms.Label()
         Me.Label12 = New System.Windows.Forms.Label()
         Me.Label13 = New System.Windows.Forms.Label()
-        Me.Button1 = New System.Windows.Forms.Button()
+        Me.重新整理_bt = New System.Windows.Forms.Button()
         Me.Label14 = New System.Windows.Forms.Label()
         Me.TextBox1 = New System.Windows.Forms.TextBox()
         Me.TextBox2 = New System.Windows.Forms.TextBox()
@@ -160,6 +160,10 @@ Partial Class 營運報表
         Me.TextBox88 = New System.Windows.Forms.TextBox()
         Me.Label20 = New System.Windows.Forms.Label()
         Me.彙總資料存檔_bt = New System.Windows.Forms.Button()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.非稅_ch = New System.Windows.Forms.CheckBox()
+        Me.含稅_ch = New System.Windows.Forms.CheckBox()
+        Me.全部_ch = New System.Windows.Forms.CheckBox()
         CType(Me.主表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.月1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.月2_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -173,6 +177,7 @@ Partial Class 營運報表
         CType(Me.月10_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.月11_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.月12_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'Label1
@@ -198,7 +203,7 @@ Partial Class 營運報表
         DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.主表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
         Me.主表_dgv.RowTemplate.Height = 24
-        Me.主表_dgv.Size = New System.Drawing.Size(473, 720)
+        Me.主表_dgv.Size = New System.Drawing.Size(493, 720)
         Me.主表_dgv.TabIndex = 1097
         '
         '年份_cb
@@ -223,8 +228,7 @@ Partial Class 營運報表
         DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.月1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.月1_dgv.RowTemplate.Height = 24
-        Me.月1_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
-        Me.月1_dgv.Size = New System.Drawing.Size(116, 720)
+        Me.月1_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月1_dgv.TabIndex = 1100
         '
         '月2_dgv
@@ -239,8 +243,7 @@ Partial Class 營運報表
         DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.月2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
         Me.月2_dgv.RowTemplate.Height = 24
-        Me.月2_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
-        Me.月2_dgv.Size = New System.Drawing.Size(116, 720)
+        Me.月2_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月2_dgv.TabIndex = 1101
         '
         '月3_dgv
@@ -255,8 +258,7 @@ Partial Class 營運報表
         DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.月3_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.月3_dgv.RowTemplate.Height = 24
-        Me.月3_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
-        Me.月3_dgv.Size = New System.Drawing.Size(116, 720)
+        Me.月3_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月3_dgv.TabIndex = 1102
         '
         '月4_dgv
@@ -271,8 +273,7 @@ Partial Class 營運報表
         DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.月4_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
         Me.月4_dgv.RowTemplate.Height = 24
-        Me.月4_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
-        Me.月4_dgv.Size = New System.Drawing.Size(116, 720)
+        Me.月4_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月4_dgv.TabIndex = 1103
         '
         '月5_dgv
@@ -287,8 +288,7 @@ Partial Class 營運報表
         DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.月5_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
         Me.月5_dgv.RowTemplate.Height = 24
-        Me.月5_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
-        Me.月5_dgv.Size = New System.Drawing.Size(116, 720)
+        Me.月5_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月5_dgv.TabIndex = 1104
         '
         '月6_dgv
@@ -303,8 +303,7 @@ Partial Class 營運報表
         DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.月6_dgv.RowsDefaultCellStyle = DataGridViewCellStyle7
         Me.月6_dgv.RowTemplate.Height = 24
-        Me.月6_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
-        Me.月6_dgv.Size = New System.Drawing.Size(116, 720)
+        Me.月6_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月6_dgv.TabIndex = 1105
         '
         '月7_dgv
@@ -319,8 +318,7 @@ Partial Class 營運報表
         DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.月7_dgv.RowsDefaultCellStyle = DataGridViewCellStyle8
         Me.月7_dgv.RowTemplate.Height = 24
-        Me.月7_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
-        Me.月7_dgv.Size = New System.Drawing.Size(116, 720)
+        Me.月7_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月7_dgv.TabIndex = 1106
         '
         '月8_dgv
@@ -335,8 +333,7 @@ Partial Class 營運報表
         DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.月8_dgv.RowsDefaultCellStyle = DataGridViewCellStyle9
         Me.月8_dgv.RowTemplate.Height = 24
-        Me.月8_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
-        Me.月8_dgv.Size = New System.Drawing.Size(116, 720)
+        Me.月8_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月8_dgv.TabIndex = 1107
         '
         '月9_dgv
@@ -351,8 +348,7 @@ Partial Class 營運報表
         DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.月9_dgv.RowsDefaultCellStyle = DataGridViewCellStyle10
         Me.月9_dgv.RowTemplate.Height = 24
-        Me.月9_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
-        Me.月9_dgv.Size = New System.Drawing.Size(116, 720)
+        Me.月9_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月9_dgv.TabIndex = 1108
         '
         '月10_dgv
@@ -367,8 +363,7 @@ Partial Class 營運報表
         DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.月10_dgv.RowsDefaultCellStyle = DataGridViewCellStyle11
         Me.月10_dgv.RowTemplate.Height = 24
-        Me.月10_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
-        Me.月10_dgv.Size = New System.Drawing.Size(116, 720)
+        Me.月10_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月10_dgv.TabIndex = 1109
         '
         '月11_dgv
@@ -383,8 +378,7 @@ Partial Class 營運報表
         DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.月11_dgv.RowsDefaultCellStyle = DataGridViewCellStyle12
         Me.月11_dgv.RowTemplate.Height = 24
-        Me.月11_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
-        Me.月11_dgv.Size = New System.Drawing.Size(116, 720)
+        Me.月11_dgv.Size = New System.Drawing.Size(135, 720)
         Me.月11_dgv.TabIndex = 1110
         '
         '月12_dgv
@@ -399,7 +393,6 @@ Partial Class 營運報表
         DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.月12_dgv.RowsDefaultCellStyle = DataGridViewCellStyle13
         Me.月12_dgv.RowTemplate.Height = 24
-        Me.月12_dgv.ScrollBars = System.Windows.Forms.ScrollBars.None
         Me.月12_dgv.Size = New System.Drawing.Size(116, 720)
         Me.月12_dgv.TabIndex = 1111
         '
@@ -535,14 +528,14 @@ Partial Class 營運報表
         Me.Label13.TabIndex = 1123
         Me.Label13.Text = "12月"
         '
-        'Button1
+        '重新整理_bt
         '
-        Me.Button1.Location = New System.Drawing.Point(189, 3)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(75, 23)
-        Me.Button1.TabIndex = 1124
-        Me.Button1.Text = "重新整理"
-        Me.Button1.UseVisualStyleBackColor = True
+        Me.重新整理_bt.Location = New System.Drawing.Point(189, 3)
+        Me.重新整理_bt.Name = "重新整理_bt"
+        Me.重新整理_bt.Size = New System.Drawing.Size(75, 23)
+        Me.重新整理_bt.TabIndex = 1124
+        Me.重新整理_bt.Text = "重新整理"
+        Me.重新整理_bt.UseVisualStyleBackColor = True
         '
         'Label14
         '
@@ -1293,7 +1286,7 @@ Partial Class 營運報表
         'Button2
         '
         Me.Button2.ForeColor = System.Drawing.Color.Blue
-        Me.Button2.Location = New System.Drawing.Point(294, 3)
+        Me.Button2.Location = New System.Drawing.Point(267, 3)
         Me.Button2.Name = "Button2"
         Me.Button2.Size = New System.Drawing.Size(113, 23)
         Me.Button2.TabIndex = 1190
@@ -1636,18 +1629,69 @@ Partial Class 營運報表
         Me.彙總資料存檔_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.彙總資料存檔_bt.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.彙總資料存檔_bt.ForeColor = System.Drawing.Color.Blue
-        Me.彙總資料存檔_bt.Location = New System.Drawing.Point(6, 754)
+        Me.彙總資料存檔_bt.Location = New System.Drawing.Point(6, 902)
         Me.彙總資料存檔_bt.Name = "彙總資料存檔_bt"
-        Me.彙總資料存檔_bt.Size = New System.Drawing.Size(294, 167)
+        Me.彙總資料存檔_bt.Size = New System.Drawing.Size(101, 25)
         Me.彙總資料存檔_bt.TabIndex = 1221
         Me.彙總資料存檔_bt.Text = "彙總資料存檔" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
         Me.彙總資料存檔_bt.UseVisualStyleBackColor = True
         '
-        '營運報表
+        'PictureBox1
+        '
+        Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.PictureBox1.BackgroundImage = Global.工巧明智能管理系統.My.Resources.Resources._1980X1010
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.PictureBox1.Location = New System.Drawing.Point(6, 750)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(294, 150)
+        Me.PictureBox1.TabIndex = 1502
+        Me.PictureBox1.TabStop = False
+        '
+        '非稅_ch
+        '
+        Me.非稅_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.非稅_ch.AutoSize = True
+        Me.非稅_ch.Location = New System.Drawing.Point(249, 904)
+        Me.非稅_ch.Name = "非稅_ch"
+        Me.非稅_ch.Size = New System.Drawing.Size(48, 19)
+        Me.非稅_ch.TabIndex = 1505
+        Me.非稅_ch.Text = "非稅"
+        Me.非稅_ch.UseVisualStyleBackColor = True
+        '
+        '含稅_ch
+        '
+        Me.含稅_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.含稅_ch.AutoSize = True
+        Me.含稅_ch.Location = New System.Drawing.Point(192, 904)
+        Me.含稅_ch.Name = "含稅_ch"
+        Me.含稅_ch.Size = New System.Drawing.Size(48, 19)
+        Me.含稅_ch.TabIndex = 1504
+        Me.含稅_ch.Text = "含稅"
+        Me.含稅_ch.UseVisualStyleBackColor = True
+        '
+        '全部_ch
+        '
+        Me.全部_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.全部_ch.AutoSize = True
+        Me.全部_ch.Checked = True
+        Me.全部_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.全部_ch.Location = New System.Drawing.Point(135, 904)
+        Me.全部_ch.Name = "全部_ch"
+        Me.全部_ch.Size = New System.Drawing.Size(48, 19)
+        Me.全部_ch.TabIndex = 1503
+        Me.全部_ch.Text = "全部"
+        Me.全部_ch.UseVisualStyleBackColor = True
+        '
+        '財務_決算表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1900, 929)
+        Me.Controls.Add(Me.非稅_ch)
+        Me.Controls.Add(Me.含稅_ch)
+        Me.Controls.Add(Me.全部_ch)
+        Me.Controls.Add(Me.PictureBox1)
         Me.Controls.Add(Me.彙總資料存檔_bt)
         Me.Controls.Add(Me.TextBox77)
         Me.Controls.Add(Me.TextBox78)
@@ -1745,7 +1789,7 @@ Partial Class 營運報表
         Me.Controls.Add(Me.Label15)
         Me.Controls.Add(Me.TextBox1)
         Me.Controls.Add(Me.Label14)
-        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.重新整理_bt)
         Me.Controls.Add(Me.Label13)
         Me.Controls.Add(Me.Label12)
         Me.Controls.Add(Me.Label11)
@@ -1775,8 +1819,8 @@ Partial Class 營運報表
         Me.Controls.Add(Me.主表_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.Name = "營運報表"
-        Me.Text = "營運報表"
+        Me.Name = "財務_決算表"
+        Me.Text = "財務決算表"
         CType(Me.主表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.月1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.月2_dgv, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1790,6 +1834,7 @@ Partial Class 營運報表
         CType(Me.月10_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.月11_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.月12_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -1822,7 +1867,7 @@ Partial Class 營運報表
     Friend WithEvents Label11 As Label
     Friend WithEvents Label12 As Label
     Friend WithEvents Label13 As Label
-    Friend WithEvents Button1 As Button
+    Friend WithEvents 重新整理_bt As Button
     Friend WithEvents Label14 As Label
     Friend WithEvents TextBox1 As TextBox
     Friend WithEvents TextBox2 As TextBox
@@ -1920,4 +1965,8 @@ Partial Class 營運報表
     Friend WithEvents TextBox88 As TextBox
     Friend WithEvents Label20 As Label
     Friend WithEvents 彙總資料存檔_bt As Button
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents 非稅_ch As CheckBox
+    Friend WithEvents 含稅_ch As CheckBox
+    Friend WithEvents 全部_ch As CheckBox
 End Class

工巧明智能管理系統/我的系統/財務系統管理/營運報表.vb → 工巧明智能管理系統/我的系統/財務系統管理/財務_決算表.vb

@@ -1,5 +1,5 @@
 Option Strict Off
-Public Class 營運報表
+Public Class 財務_決算表
     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 : 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
@@ -54,24 +54,33 @@ Public Class 營運報表
     End Sub
     Private Sub Set_清單()
         Set_DGV2開始()
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 1)" : SQL3 = " AND (財務流水帳_2.含稅 = 1)" : SQL4 = " AND (財務流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 0 OR 財務流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (財務流水帳_2.含稅 = 0 OR 財務流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (財務流水帳_3.含稅 = 0 OR 財務流水帳_3.含稅 IS NULL)"
+        End If
         SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, EERR.細項金額
                 FROM        會計科目 FULL OUTER JOIN
                                (SELECT 財務流水帳_3.類別 AS 細項, SUM(財務流水帳_3.零用金 * (財務流水帳_3.匯率)) + SUM(財務流水帳_3.支票數 * (財務流水帳_3.匯率)) + 
                                        SUM(Cast(財務流水帳_3.收入 AS money) * (財務流水帳_3.匯率)) - SUM(Cast(財務流水帳_3.支出 AS money) * (財務流水帳_3.匯率)) AS 細項金額
                                 FROM   財務流水帳 AS 財務流水帳_3 INNER JOIN 財務控制表 AS 財務控制表_3 ON 財務流水帳_3.支付單號 = 財務控制表_3.支付單號
-                                WHERE (LEFT(財務控制表_3.審核日期,4) LIKE N'" & 年份_cb.Text & "')
+                                WHERE (LEFT(財務控制表_3.審核日期,4) LIKE N'" & 年份_cb.Text & "') " & SQL4 & "
                                 GROUP BY    財務流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_2.類別, 4) AS 主碼, SUM(財務流水帳_2.零用金 * (財務流水帳_2.匯率)) + SUM(財務流水帳_2.支票數 * (財務流水帳_2.匯率)) + 
                                        SUM(Cast(財務流水帳_2.收入 AS money) * (財務流水帳_2.匯率)) - SUM(Cast(財務流水帳_2.支出 AS money) * (財務流水帳_2.匯率)) AS 主項金額
                                 FROM   財務流水帳 AS 財務流水帳_2 INNER JOIN 財務控制表 AS 財務控制表_2 ON 財務流水帳_2.支付單號 = 財務控制表_2.支付單號
-                                WHERE (LEFT(財務控制表_2.審核日期,4) LIKE N'" & 年份_cb.Text & "')
+                                WHERE (LEFT(財務控制表_2.審核日期,4) LIKE N'" & 年份_cb.Text & "') " & SQL3 & "
                                 GROUP BY    LEFT(財務流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_1.類別, 7) AS 子碼, SUM(財務流水帳_1.零用金 * (財務流水帳_1.匯率)) + SUM(財務流水帳_1.支票數 * (財務流水帳_1.匯率)) + 
                                        SUM(Cast(財務流水帳_1.收入 AS money) * (財務流水帳_1.匯率)) - SUM(Cast(財務流水帳_1.支出 AS money) * (財務流水帳_1.匯率)) AS 子項金額
                                 FROM   財務流水帳 AS 財務流水帳_1 INNER JOIN 財務控制表 AS 財務控制表_1 ON 財務流水帳_1.支付單號 = 財務控制表_1.支付單號
-                                WHERE (LEFT(財務控制表_1.審核日期,4) LIKE N'" & 年份_cb.Text & "')
+                                WHERE (LEFT(財務控制表_1.審核日期,4) LIKE N'" & 年份_cb.Text & "') " & SQL2 & "
                                 GROUP BY    LEFT(財務流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -81,25 +90,34 @@ Public Class 營運報表
         月1_dgv.DataSource = Nothing : ds.Clear() : 月1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月1_dgv.ColumnHeadersHeight = 50 : 月1_dgv.AllowUserToAddRows = False
         ConnOpen()
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 1)" : SQL3 = " AND (財務流水帳_2.含稅 = 1)" : SQL4 = " AND (財務流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 0 OR 財務流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (財務流水帳_2.含稅 = 0 OR 財務流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (財務流水帳_3.含稅 = 0 OR 財務流水帳_3.含稅 IS NULL)"
+        End If
         SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
                             EERR.細項金額, EERR.細項金額 AS [金額]
                 FROM        會計科目 FULL OUTER JOIN
                                (SELECT 財務流水帳_3.類別 AS 細項, SUM(財務流水帳_3.零用金 * (財務流水帳_3.匯率)) + SUM(財務流水帳_3.支票數 * (財務流水帳_3.匯率)) + 
                                        SUM(Cast(財務流水帳_3.收入 AS money) * (財務流水帳_3.匯率)) - SUM(Cast(財務流水帳_3.支出 AS money) * (財務流水帳_3.匯率)) AS 細項金額
                                 FROM   財務流水帳 AS 財務流水帳_3 INNER JOIN 財務控制表 AS 財務控制表_3 ON 財務流水帳_3.支付單號 = 財務控制表_3.支付單號
-                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/01') 
+                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/01') " & SQL4 & " 
                                 GROUP BY    財務流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_2.類別, 4) AS 主碼, SUM(財務流水帳_2.零用金 * (財務流水帳_2.匯率)) + SUM(財務流水帳_2.支票數 * (財務流水帳_2.匯率)) + 
                                        SUM(Cast(財務流水帳_2.收入 AS money) * (財務流水帳_2.匯率)) - SUM(Cast(財務流水帳_2.支出 AS money) * (財務流水帳_2.匯率)) AS 主項金額
                                 FROM   財務流水帳 AS 財務流水帳_2 INNER JOIN 財務控制表 AS 財務控制表_2 ON 財務流水帳_2.支付單號 = 財務控制表_2.支付單號
-                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/01')
+                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/01') " & SQL3 & "
                                 GROUP BY    LEFT(財務流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_1.類別, 7) AS 子碼, SUM(財務流水帳_1.零用金 * (財務流水帳_1.匯率)) + SUM(財務流水帳_1.支票數 * (財務流水帳_1.匯率)) + 
                                        SUM(Cast(財務流水帳_1.收入 AS money) * (財務流水帳_1.匯率)) - SUM(Cast(財務流水帳_1.支出 AS money) * (財務流水帳_1.匯率)) AS 子項金額
                                 FROM   財務流水帳 AS 財務流水帳_1 INNER JOIN 財務控制表 AS 財務控制表_1 ON 財務流水帳_1.支付單號 = 財務控制表_1.支付單號
-                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/01')
+                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/01') " & SQL2 & "
                                 GROUP BY    LEFT(財務流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -139,25 +157,34 @@ Public Class 營運報表
         月2_dgv.DataSource = Nothing : ds1.Clear() : 月2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月2_dgv.ColumnHeadersHeight = 50 : 月2_dgv.AllowUserToAddRows = False
         ConnOpen()
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 1)" : SQL3 = " AND (財務流水帳_2.含稅 = 1)" : SQL4 = " AND (財務流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 0 OR 財務流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (財務流水帳_2.含稅 = 0 OR 財務流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (財務流水帳_3.含稅 = 0 OR 財務流水帳_3.含稅 IS NULL)"
+        End If
         SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
                             EERR.細項金額, EERR.細項金額 AS [金額]
                 FROM        會計科目 FULL OUTER JOIN
                                (SELECT 財務流水帳_3.類別 AS 細項, SUM(財務流水帳_3.零用金 * (財務流水帳_3.匯率)) + SUM(財務流水帳_3.支票數 * (財務流水帳_3.匯率)) + 
                                        SUM(Cast(財務流水帳_3.收入 AS money) * (財務流水帳_3.匯率)) - SUM(Cast(財務流水帳_3.支出 AS money) * (財務流水帳_3.匯率)) AS 細項金額
                                 FROM   財務流水帳 AS 財務流水帳_3 INNER JOIN 財務控制表 AS 財務控制表_3 ON 財務流水帳_3.支付單號 = 財務控制表_3.支付單號
-                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/02') 
+                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/02') " & SQL4 & " 
                                 GROUP BY    財務流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_2.類別, 4) AS 主碼, SUM(財務流水帳_2.零用金 * (財務流水帳_2.匯率)) + SUM(財務流水帳_2.支票數 * (財務流水帳_2.匯率)) + 
                                        SUM(Cast(財務流水帳_2.收入 AS money) * (財務流水帳_2.匯率)) - SUM(Cast(財務流水帳_2.支出 AS money) * (財務流水帳_2.匯率)) AS 主項金額
                                 FROM   財務流水帳 AS 財務流水帳_2 INNER JOIN 財務控制表 AS 財務控制表_2 ON 財務流水帳_2.支付單號 = 財務控制表_2.支付單號
-                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/02')
+                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/02') " & SQL3 & "
                                 GROUP BY    LEFT(財務流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_1.類別, 7) AS 子碼, SUM(財務流水帳_1.零用金 * (財務流水帳_1.匯率)) + SUM(財務流水帳_1.支票數 * (財務流水帳_1.匯率)) + 
                                        SUM(Cast(財務流水帳_1.收入 AS money) * (財務流水帳_1.匯率)) - SUM(Cast(財務流水帳_1.支出 AS money) * (財務流水帳_1.匯率)) AS 子項金額
                                 FROM   財務流水帳 AS 財務流水帳_1 INNER JOIN 財務控制表 AS 財務控制表_1 ON 財務流水帳_1.支付單號 = 財務控制表_1.支付單號
-                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/02')
+                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/02') " & SQL2 & "
                                 GROUP BY    LEFT(財務流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -204,25 +231,34 @@ Public Class 營運報表
         月3_dgv.DataSource = Nothing : ds3.Clear() : 月3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月3_dgv.ColumnHeadersHeight = 50 : 月3_dgv.AllowUserToAddRows = False
         ConnOpen()
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 1)" : SQL3 = " AND (財務流水帳_2.含稅 = 1)" : SQL4 = " AND (財務流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 0 OR 財務流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (財務流水帳_2.含稅 = 0 OR 財務流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (財務流水帳_3.含稅 = 0 OR 財務流水帳_3.含稅 IS NULL)"
+        End If
         SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
                             EERR.細項金額, EERR.細項金額 AS [金額]
                 FROM        會計科目 FULL OUTER JOIN
                                (SELECT 財務流水帳_3.類別 AS 細項, SUM(財務流水帳_3.零用金 * (財務流水帳_3.匯率)) + SUM(財務流水帳_3.支票數 * (財務流水帳_3.匯率)) + 
                                        SUM(Cast(財務流水帳_3.收入 AS money) * (財務流水帳_3.匯率)) - SUM(Cast(財務流水帳_3.支出 AS money) * (財務流水帳_3.匯率)) AS 細項金額
                                 FROM   財務流水帳 AS 財務流水帳_3 INNER JOIN 財務控制表 AS 財務控制表_3 ON 財務流水帳_3.支付單號 = 財務控制表_3.支付單號
-                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/03') 
+                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/03') " & SQL4 & " 
                                 GROUP BY    財務流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_2.類別, 4) AS 主碼, SUM(財務流水帳_2.零用金 * (財務流水帳_2.匯率)) + SUM(財務流水帳_2.支票數 * (財務流水帳_2.匯率)) + 
                                        SUM(Cast(財務流水帳_2.收入 AS money) * (財務流水帳_2.匯率)) - SUM(Cast(財務流水帳_2.支出 AS money) * (財務流水帳_2.匯率)) AS 主項金額
                                 FROM   財務流水帳 AS 財務流水帳_2 INNER JOIN 財務控制表 AS 財務控制表_2 ON 財務流水帳_2.支付單號 = 財務控制表_2.支付單號
-                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/03')
+                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/03') " & SQL3 & "
                                 GROUP BY    LEFT(財務流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_1.類別, 7) AS 子碼, SUM(財務流水帳_1.零用金 * (財務流水帳_1.匯率)) + SUM(財務流水帳_1.支票數 * (財務流水帳_1.匯率)) + 
                                        SUM(Cast(財務流水帳_1.收入 AS money) * (財務流水帳_1.匯率)) - SUM(Cast(財務流水帳_1.支出 AS money) * (財務流水帳_1.匯率)) AS 子項金額
                                 FROM   財務流水帳 AS 財務流水帳_1 INNER JOIN 財務控制表 AS 財務控制表_1 ON 財務流水帳_1.支付單號 = 財務控制表_1.支付單號
-                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/03')
+                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/03') " & SQL2 & "
                                 GROUP BY    LEFT(財務流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -269,25 +305,34 @@ Public Class 營運報表
         月4_dgv.DataSource = Nothing : ds4.Clear() : 月4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月4_dgv.ColumnHeadersHeight = 50 : 月4_dgv.AllowUserToAddRows = False
         ConnOpen()
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 1)" : SQL3 = " AND (財務流水帳_2.含稅 = 1)" : SQL4 = " AND (財務流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 0 OR 財務流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (財務流水帳_2.含稅 = 0 OR 財務流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (財務流水帳_3.含稅 = 0 OR 財務流水帳_3.含稅 IS NULL)"
+        End If
         SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
                             EERR.細項金額, EERR.細項金額 AS [金額]
                 FROM        會計科目 FULL OUTER JOIN
                                (SELECT 財務流水帳_3.類別 AS 細項, SUM(財務流水帳_3.零用金 * (財務流水帳_3.匯率)) + SUM(財務流水帳_3.支票數 * (財務流水帳_3.匯率)) + 
                                        SUM(Cast(財務流水帳_3.收入 AS money) * (財務流水帳_3.匯率)) - SUM(Cast(財務流水帳_3.支出 AS money) * (財務流水帳_3.匯率)) AS 細項金額
                                 FROM   財務流水帳 AS 財務流水帳_3 INNER JOIN 財務控制表 AS 財務控制表_3 ON 財務流水帳_3.支付單號 = 財務控制表_3.支付單號
-                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/04') 
+                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/04') " & SQL4 & " 
                                 GROUP BY    財務流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_2.類別, 4) AS 主碼, SUM(財務流水帳_2.零用金 * (財務流水帳_2.匯率)) + SUM(財務流水帳_2.支票數 * (財務流水帳_2.匯率)) + 
                                        SUM(Cast(財務流水帳_2.收入 AS money) * (財務流水帳_2.匯率)) - SUM(Cast(財務流水帳_2.支出 AS money) * (財務流水帳_2.匯率)) AS 主項金額
                                 FROM   財務流水帳 AS 財務流水帳_2 INNER JOIN 財務控制表 AS 財務控制表_2 ON 財務流水帳_2.支付單號 = 財務控制表_2.支付單號
-                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/04')
+                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/04') " & SQL3 & "
                                 GROUP BY    LEFT(財務流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_1.類別, 7) AS 子碼, SUM(財務流水帳_1.零用金 * (財務流水帳_1.匯率)) + SUM(財務流水帳_1.支票數 * (財務流水帳_1.匯率)) + 
                                        SUM(Cast(財務流水帳_1.收入 AS money) * (財務流水帳_1.匯率)) - SUM(Cast(財務流水帳_1.支出 AS money) * (財務流水帳_1.匯率)) AS 子項金額
                                 FROM   財務流水帳 AS 財務流水帳_1 INNER JOIN 財務控制表 AS 財務控制表_1 ON 財務流水帳_1.支付單號 = 財務控制表_1.支付單號
-                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/04')
+                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/04') " & SQL2 & "
                                 GROUP BY    LEFT(財務流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -334,25 +379,34 @@ Public Class 營運報表
         月5_dgv.DataSource = Nothing : ds5.Clear() : 月5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月5_dgv.ColumnHeadersHeight = 50 : 月5_dgv.AllowUserToAddRows = False
         ConnOpen()
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 1)" : SQL3 = " AND (財務流水帳_2.含稅 = 1)" : SQL4 = " AND (財務流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 0 OR 財務流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (財務流水帳_2.含稅 = 0 OR 財務流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (財務流水帳_3.含稅 = 0 OR 財務流水帳_3.含稅 IS NULL)"
+        End If
         SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
                             EERR.細項金額, EERR.細項金額 AS [金額]
                 FROM        會計科目 FULL OUTER JOIN
                                (SELECT 財務流水帳_3.類別 AS 細項, SUM(財務流水帳_3.零用金 * (財務流水帳_3.匯率)) + SUM(財務流水帳_3.支票數 * (財務流水帳_3.匯率)) + 
                                        SUM(Cast(財務流水帳_3.收入 AS money) * (財務流水帳_3.匯率)) - SUM(Cast(財務流水帳_3.支出 AS money) * (財務流水帳_3.匯率)) AS 細項金額
                                 FROM   財務流水帳 AS 財務流水帳_3 INNER JOIN 財務控制表 AS 財務控制表_3 ON 財務流水帳_3.支付單號 = 財務控制表_3.支付單號
-                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/05') 
+                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/05') " & SQL4 & " 
                                 GROUP BY    財務流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_2.類別, 4) AS 主碼, SUM(財務流水帳_2.零用金 * (財務流水帳_2.匯率)) + SUM(財務流水帳_2.支票數 * (財務流水帳_2.匯率)) + 
                                        SUM(Cast(財務流水帳_2.收入 AS money) * (財務流水帳_2.匯率)) - SUM(Cast(財務流水帳_2.支出 AS money) * (財務流水帳_2.匯率)) AS 主項金額
                                 FROM   財務流水帳 AS 財務流水帳_2 INNER JOIN 財務控制表 AS 財務控制表_2 ON 財務流水帳_2.支付單號 = 財務控制表_2.支付單號
-                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/05')
+                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/05') " & SQL3 & "
                                 GROUP BY    LEFT(財務流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_1.類別, 7) AS 子碼, SUM(財務流水帳_1.零用金 * (財務流水帳_1.匯率)) + SUM(財務流水帳_1.支票數 * (財務流水帳_1.匯率)) + 
                                        SUM(Cast(財務流水帳_1.收入 AS money) * (財務流水帳_1.匯率)) - SUM(Cast(財務流水帳_1.支出 AS money) * (財務流水帳_1.匯率)) AS 子項金額
                                 FROM   財務流水帳 AS 財務流水帳_1 INNER JOIN 財務控制表 AS 財務控制表_1 ON 財務流水帳_1.支付單號 = 財務控制表_1.支付單號
-                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/05')
+                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/05') " & SQL2 & "
                                 GROUP BY    LEFT(財務流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -399,25 +453,34 @@ Public Class 營運報表
         月6_dgv.DataSource = Nothing : ds6.Clear() : 月6_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月6_dgv.ColumnHeadersHeight = 50 : 月6_dgv.AllowUserToAddRows = False
         ConnOpen()
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 1)" : SQL3 = " AND (財務流水帳_2.含稅 = 1)" : SQL4 = " AND (財務流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 0 OR 財務流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (財務流水帳_2.含稅 = 0 OR 財務流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (財務流水帳_3.含稅 = 0 OR 財務流水帳_3.含稅 IS NULL)"
+        End If
         SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
                             EERR.細項金額, EERR.細項金額 AS [金額]
                 FROM        會計科目 FULL OUTER JOIN
                                (SELECT 財務流水帳_3.類別 AS 細項, SUM(財務流水帳_3.零用金 * (財務流水帳_3.匯率)) + SUM(財務流水帳_3.支票數 * (財務流水帳_3.匯率)) + 
                                        SUM(Cast(財務流水帳_3.收入 AS money) * (財務流水帳_3.匯率)) - SUM(Cast(財務流水帳_3.支出 AS money) * (財務流水帳_3.匯率)) AS 細項金額
                                 FROM   財務流水帳 AS 財務流水帳_3 INNER JOIN 財務控制表 AS 財務控制表_3 ON 財務流水帳_3.支付單號 = 財務控制表_3.支付單號
-                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/06') 
+                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/06') " & SQL4 & "
                                 GROUP BY    財務流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_2.類別, 4) AS 主碼, SUM(財務流水帳_2.零用金 * (財務流水帳_2.匯率)) + SUM(財務流水帳_2.支票數 * (財務流水帳_2.匯率)) + 
                                        SUM(Cast(財務流水帳_2.收入 AS money) * (財務流水帳_2.匯率)) - SUM(Cast(財務流水帳_2.支出 AS money) * (財務流水帳_2.匯率)) AS 主項金額
                                 FROM   財務流水帳 AS 財務流水帳_2 INNER JOIN 財務控制表 AS 財務控制表_2 ON 財務流水帳_2.支付單號 = 財務控制表_2.支付單號
-                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/06')
+                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/06') " & SQL3 & "
                                 GROUP BY    LEFT(財務流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_1.類別, 7) AS 子碼, SUM(財務流水帳_1.零用金 * (財務流水帳_1.匯率)) + SUM(財務流水帳_1.支票數 * (財務流水帳_1.匯率)) + 
                                        SUM(Cast(財務流水帳_1.收入 AS money) * (財務流水帳_1.匯率)) - SUM(Cast(財務流水帳_1.支出 AS money) * (財務流水帳_1.匯率)) AS 子項金額
                                 FROM   財務流水帳 AS 財務流水帳_1 INNER JOIN 財務控制表 AS 財務控制表_1 ON 財務流水帳_1.支付單號 = 財務控制表_1.支付單號
-                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/06')
+                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/06') " & SQL2 & "
                                 GROUP BY    LEFT(財務流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -464,25 +527,34 @@ Public Class 營運報表
         月7_dgv.DataSource = Nothing : ds7.Clear() : 月7_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月7_dgv.ColumnHeadersHeight = 50 : 月7_dgv.AllowUserToAddRows = False
         ConnOpen()
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 1)" : SQL3 = " AND (財務流水帳_2.含稅 = 1)" : SQL4 = " AND (財務流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 0 OR 財務流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (財務流水帳_2.含稅 = 0 OR 財務流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (財務流水帳_3.含稅 = 0 OR 財務流水帳_3.含稅 IS NULL)"
+        End If
         SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
                             EERR.細項金額, EERR.細項金額 AS [金額]
                 FROM        會計科目 FULL OUTER JOIN
                                (SELECT 財務流水帳_3.類別 AS 細項, SUM(財務流水帳_3.零用金 * (財務流水帳_3.匯率)) + SUM(財務流水帳_3.支票數 * (財務流水帳_3.匯率)) + 
                                        SUM(Cast(財務流水帳_3.收入 AS money) * (財務流水帳_3.匯率)) - SUM(Cast(財務流水帳_3.支出 AS money) * (財務流水帳_3.匯率)) AS 細項金額
                                 FROM   財務流水帳 AS 財務流水帳_3 INNER JOIN 財務控制表 AS 財務控制表_3 ON 財務流水帳_3.支付單號 = 財務控制表_3.支付單號
-                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/07') 
+                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/07') " & SQL4 & "
                                 GROUP BY    財務流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_2.類別, 4) AS 主碼, SUM(財務流水帳_2.零用金 * (財務流水帳_2.匯率)) + SUM(財務流水帳_2.支票數 * (財務流水帳_2.匯率)) + 
                                        SUM(Cast(財務流水帳_2.收入 AS money) * (財務流水帳_2.匯率)) - SUM(Cast(財務流水帳_2.支出 AS money) * (財務流水帳_2.匯率)) AS 主項金額
                                 FROM   財務流水帳 AS 財務流水帳_2 INNER JOIN 財務控制表 AS 財務控制表_2 ON 財務流水帳_2.支付單號 = 財務控制表_2.支付單號
-                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/07')
+                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/07') " & SQL3 & "
                                 GROUP BY    LEFT(財務流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_1.類別, 7) AS 子碼, SUM(財務流水帳_1.零用金 * (財務流水帳_1.匯率)) + SUM(財務流水帳_1.支票數 * (財務流水帳_1.匯率)) + 
                                        SUM(Cast(財務流水帳_1.收入 AS money) * (財務流水帳_1.匯率)) - SUM(Cast(財務流水帳_1.支出 AS money) * (財務流水帳_1.匯率)) AS 子項金額
                                 FROM   財務流水帳 AS 財務流水帳_1 INNER JOIN 財務控制表 AS 財務控制表_1 ON 財務流水帳_1.支付單號 = 財務控制表_1.支付單號
-                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/07')
+                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/07') " & SQL2 & "
                                 GROUP BY    LEFT(財務流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -529,25 +601,34 @@ Public Class 營運報表
         月8_dgv.DataSource = Nothing : ds8.Clear() : 月8_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月8_dgv.ColumnHeadersHeight = 50 : 月8_dgv.AllowUserToAddRows = False
         ConnOpen()
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 1)" : SQL3 = " AND (財務流水帳_2.含稅 = 1)" : SQL4 = " AND (財務流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 0 OR 財務流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (財務流水帳_2.含稅 = 0 OR 財務流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (財務流水帳_3.含稅 = 0 OR 財務流水帳_3.含稅 IS NULL)"
+        End If
         SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
                             EERR.細項金額, EERR.細項金額 AS [金額]
                 FROM        會計科目 FULL OUTER JOIN
                                (SELECT 財務流水帳_3.類別 AS 細項, SUM(財務流水帳_3.零用金 * (財務流水帳_3.匯率)) + SUM(財務流水帳_3.支票數 * (財務流水帳_3.匯率)) + 
                                        SUM(Cast(財務流水帳_3.收入 AS money) * (財務流水帳_3.匯率)) - SUM(Cast(財務流水帳_3.支出 AS money) * (財務流水帳_3.匯率)) AS 細項金額
                                 FROM   財務流水帳 AS 財務流水帳_3 INNER JOIN 財務控制表 AS 財務控制表_3 ON 財務流水帳_3.支付單號 = 財務控制表_3.支付單號
-                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/08') 
+                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/08') " & SQL4 & "
                                 GROUP BY    財務流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_2.類別, 4) AS 主碼, SUM(財務流水帳_2.零用金 * (財務流水帳_2.匯率)) + SUM(財務流水帳_2.支票數 * (財務流水帳_2.匯率)) + 
                                        SUM(Cast(財務流水帳_2.收入 AS money) * (財務流水帳_2.匯率)) - SUM(Cast(財務流水帳_2.支出 AS money) * (財務流水帳_2.匯率)) AS 主項金額
                                 FROM   財務流水帳 AS 財務流水帳_2 INNER JOIN 財務控制表 AS 財務控制表_2 ON 財務流水帳_2.支付單號 = 財務控制表_2.支付單號
-                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/08')
+                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/08') " & SQL3 & "
                                 GROUP BY    LEFT(財務流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_1.類別, 7) AS 子碼, SUM(財務流水帳_1.零用金 * (財務流水帳_1.匯率)) + SUM(財務流水帳_1.支票數 * (財務流水帳_1.匯率)) + 
                                        SUM(Cast(財務流水帳_1.收入 AS money) * (財務流水帳_1.匯率)) - SUM(Cast(財務流水帳_1.支出 AS money) * (財務流水帳_1.匯率)) AS 子項金額
                                 FROM   財務流水帳 AS 財務流水帳_1 INNER JOIN 財務控制表 AS 財務控制表_1 ON 財務流水帳_1.支付單號 = 財務控制表_1.支付單號
-                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/08')
+                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/08') " & SQL2 & "
                                 GROUP BY    LEFT(財務流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -594,25 +675,34 @@ Public Class 營運報表
         月9_dgv.DataSource = Nothing : ds9.Clear() : 月9_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月9_dgv.ColumnHeadersHeight = 50 : 月9_dgv.AllowUserToAddRows = False
         ConnOpen()
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 1)" : SQL3 = " AND (財務流水帳_2.含稅 = 1)" : SQL4 = " AND (財務流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 0 OR 財務流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (財務流水帳_2.含稅 = 0 OR 財務流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (財務流水帳_3.含稅 = 0 OR 財務流水帳_3.含稅 IS NULL)"
+        End If
         SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
                             EERR.細項金額, EERR.細項金額 AS [金額]
                 FROM        會計科目 FULL OUTER JOIN
                                (SELECT 財務流水帳_3.類別 AS 細項, SUM(財務流水帳_3.零用金 * (財務流水帳_3.匯率)) + SUM(財務流水帳_3.支票數 * (財務流水帳_3.匯率)) + 
                                        SUM(Cast(財務流水帳_3.收入 AS money) * (財務流水帳_3.匯率)) - SUM(Cast(財務流水帳_3.支出 AS money) * (財務流水帳_3.匯率)) AS 細項金額
                                 FROM   財務流水帳 AS 財務流水帳_3 INNER JOIN 財務控制表 AS 財務控制表_3 ON 財務流水帳_3.支付單號 = 財務控制表_3.支付單號
-                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/09') 
+                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/09') " & SQL4 & "
                                 GROUP BY    財務流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_2.類別, 4) AS 主碼, SUM(財務流水帳_2.零用金 * (財務流水帳_2.匯率)) + SUM(財務流水帳_2.支票數 * (財務流水帳_2.匯率)) + 
                                        SUM(Cast(財務流水帳_2.收入 AS money) * (財務流水帳_2.匯率)) - SUM(Cast(財務流水帳_2.支出 AS money) * (財務流水帳_2.匯率)) AS 主項金額
                                 FROM   財務流水帳 AS 財務流水帳_2 INNER JOIN 財務控制表 AS 財務控制表_2 ON 財務流水帳_2.支付單號 = 財務控制表_2.支付單號
-                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/09')
+                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/09') " & SQL3 & "
                                 GROUP BY    LEFT(財務流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_1.類別, 7) AS 子碼, SUM(財務流水帳_1.零用金 * (財務流水帳_1.匯率)) + SUM(財務流水帳_1.支票數 * (財務流水帳_1.匯率)) + 
                                        SUM(Cast(財務流水帳_1.收入 AS money) * (財務流水帳_1.匯率)) - SUM(Cast(財務流水帳_1.支出 AS money) * (財務流水帳_1.匯率)) AS 子項金額
                                 FROM   財務流水帳 AS 財務流水帳_1 INNER JOIN 財務控制表 AS 財務控制表_1 ON 財務流水帳_1.支付單號 = 財務控制表_1.支付單號
-                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/09')
+                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/09') " & SQL2 & "
                                 GROUP BY    LEFT(財務流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -659,25 +749,34 @@ Public Class 營運報表
         月10_dgv.DataSource = Nothing : ds10.Clear() : 月10_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月10_dgv.ColumnHeadersHeight = 50 : 月10_dgv.AllowUserToAddRows = False
         ConnOpen()
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 1)" : SQL3 = " AND (財務流水帳_2.含稅 = 1)" : SQL4 = " AND (財務流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 0 OR 財務流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (財務流水帳_2.含稅 = 0 OR 財務流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (財務流水帳_3.含稅 = 0 OR 財務流水帳_3.含稅 IS NULL)"
+        End If
         SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
                             EERR.細項金額, EERR.細項金額 AS [金額]
                 FROM        會計科目 FULL OUTER JOIN
                                (SELECT 財務流水帳_3.類別 AS 細項, SUM(財務流水帳_3.零用金 * (財務流水帳_3.匯率)) + SUM(財務流水帳_3.支票數 * (財務流水帳_3.匯率)) + 
                                        SUM(Cast(財務流水帳_3.收入 AS money) * (財務流水帳_3.匯率)) - SUM(Cast(財務流水帳_3.支出 AS money) * (財務流水帳_3.匯率)) AS 細項金額
                                 FROM   財務流水帳 AS 財務流水帳_3 INNER JOIN 財務控制表 AS 財務控制表_3 ON 財務流水帳_3.支付單號 = 財務控制表_3.支付單號
-                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/10') 
+                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/10') " & SQL4 & "
                                 GROUP BY    財務流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_2.類別, 4) AS 主碼, SUM(財務流水帳_2.零用金 * (財務流水帳_2.匯率)) + SUM(財務流水帳_2.支票數 * (財務流水帳_2.匯率)) + 
                                        SUM(Cast(財務流水帳_2.收入 AS money) * (財務流水帳_2.匯率)) - SUM(Cast(財務流水帳_2.支出 AS money) * (財務流水帳_2.匯率)) AS 主項金額
                                 FROM   財務流水帳 AS 財務流水帳_2 INNER JOIN 財務控制表 AS 財務控制表_2 ON 財務流水帳_2.支付單號 = 財務控制表_2.支付單號
-                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/10')
+                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/10') " & SQL3 & "
                                 GROUP BY    LEFT(財務流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_1.類別, 7) AS 子碼, SUM(財務流水帳_1.零用金 * (財務流水帳_1.匯率)) + SUM(財務流水帳_1.支票數 * (財務流水帳_1.匯率)) + 
                                        SUM(Cast(財務流水帳_1.收入 AS money) * (財務流水帳_1.匯率)) - SUM(Cast(財務流水帳_1.支出 AS money) * (財務流水帳_1.匯率)) AS 子項金額
                                 FROM   財務流水帳 AS 財務流水帳_1 INNER JOIN 財務控制表 AS 財務控制表_1 ON 財務流水帳_1.支付單號 = 財務控制表_1.支付單號
-                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/10')
+                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/10') " & SQL2 & "
                                 GROUP BY    LEFT(財務流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -724,25 +823,34 @@ Public Class 營運報表
         月11_dgv.DataSource = Nothing : ds11.Clear() : 月11_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月11_dgv.ColumnHeadersHeight = 50 : 月11_dgv.AllowUserToAddRows = False
         ConnOpen()
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 1)" : SQL3 = " AND (財務流水帳_2.含稅 = 1)" : SQL4 = " AND (財務流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 0 OR 財務流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (財務流水帳_2.含稅 = 0 OR 財務流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (財務流水帳_3.含稅 = 0 OR 財務流水帳_3.含稅 IS NULL)"
+        End If
         SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
                             EERR.細項金額, EERR.細項金額 AS [金額]
                 FROM        會計科目 FULL OUTER JOIN
                                (SELECT 財務流水帳_3.類別 AS 細項, SUM(財務流水帳_3.零用金 * (財務流水帳_3.匯率)) + SUM(財務流水帳_3.支票數 * (財務流水帳_3.匯率)) + 
                                        SUM(Cast(財務流水帳_3.收入 AS money) * (財務流水帳_3.匯率)) - SUM(Cast(財務流水帳_3.支出 AS money) * (財務流水帳_3.匯率)) AS 細項金額
                                 FROM   財務流水帳 AS 財務流水帳_3 INNER JOIN 財務控制表 AS 財務控制表_3 ON 財務流水帳_3.支付單號 = 財務控制表_3.支付單號
-                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/11') 
+                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/11') " & SQL4 & "
                                 GROUP BY    財務流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_2.類別, 4) AS 主碼, SUM(財務流水帳_2.零用金 * (財務流水帳_2.匯率)) + SUM(財務流水帳_2.支票數 * (財務流水帳_2.匯率)) + 
                                        SUM(Cast(財務流水帳_2.收入 AS money) * (財務流水帳_2.匯率)) - SUM(Cast(財務流水帳_2.支出 AS money) * (財務流水帳_2.匯率)) AS 主項金額
                                 FROM   財務流水帳 AS 財務流水帳_2 INNER JOIN 財務控制表 AS 財務控制表_2 ON 財務流水帳_2.支付單號 = 財務控制表_2.支付單號
-                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/11')
+                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/11') " & SQL3 & "
                                 GROUP BY    LEFT(財務流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_1.類別, 7) AS 子碼, SUM(財務流水帳_1.零用金 * (財務流水帳_1.匯率)) + SUM(財務流水帳_1.支票數 * (財務流水帳_1.匯率)) + 
                                        SUM(Cast(財務流水帳_1.收入 AS money) * (財務流水帳_1.匯率)) - SUM(Cast(財務流水帳_1.支出 AS money) * (財務流水帳_1.匯率)) AS 子項金額
                                 FROM   財務流水帳 AS 財務流水帳_1 INNER JOIN 財務控制表 AS 財務控制表_1 ON 財務流水帳_1.支付單號 = 財務控制表_1.支付單號
-                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/11')
+                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/11') " & SQL2 & "
                                 GROUP BY    LEFT(財務流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -789,25 +897,34 @@ Public Class 營運報表
         月12_dgv.DataSource = Nothing : ds12.Clear() : 月12_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
         月12_dgv.ColumnHeadersHeight = 50 : 月12_dgv.AllowUserToAddRows = False
         ConnOpen()
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = "" : SQL3 = "" : SQL4 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 1)" : SQL3 = " AND (財務流水帳_2.含稅 = 1)" : SQL4 = " AND (財務流水帳_3.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (財務流水帳_1.含稅 = 0 OR 財務流水帳_1.含稅 IS NULL)"
+            SQL3 = " AND (財務流水帳_2.含稅 = 0 OR 財務流水帳_2.含稅 IS NULL)"
+            SQL4 = " AND (財務流水帳_3.含稅 = 0 OR 財務流水帳_3.含稅 IS NULL)"
+        End If
         SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
                             EERR.細項金額, EERR.細項金額 AS [金額]
                 FROM        會計科目 FULL OUTER JOIN
                                (SELECT 財務流水帳_3.類別 AS 細項, SUM(財務流水帳_3.零用金 * (財務流水帳_3.匯率)) + SUM(財務流水帳_3.支票數 * (財務流水帳_3.匯率)) + 
                                        SUM(Cast(財務流水帳_3.收入 AS money) * (財務流水帳_3.匯率)) - SUM(Cast(財務流水帳_3.支出 AS money) * (財務流水帳_3.匯率)) AS 細項金額
                                 FROM   財務流水帳 AS 財務流水帳_3 INNER JOIN 財務控制表 AS 財務控制表_3 ON 財務流水帳_3.支付單號 = 財務控制表_3.支付單號
-                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/12') 
+                                WHERE (LEFT(財務控制表_3.審核日期,7) LIKE N'" & 年份_cb.Text & "/12') " & SQL4 & "
                                 GROUP BY    財務流水帳_3.類別) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_2.類別, 4) AS 主碼, SUM(財務流水帳_2.零用金 * (財務流水帳_2.匯率)) + SUM(財務流水帳_2.支票數 * (財務流水帳_2.匯率)) + 
                                        SUM(Cast(財務流水帳_2.收入 AS money) * (財務流水帳_2.匯率)) - SUM(Cast(財務流水帳_2.支出 AS money) * (財務流水帳_2.匯率)) AS 主項金額
                                 FROM   財務流水帳 AS 財務流水帳_2 INNER JOIN 財務控制表 AS 財務控制表_2 ON 財務流水帳_2.支付單號 = 財務控制表_2.支付單號
-                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/12')
+                                WHERE (LEFT(財務控制表_2.審核日期,7) LIKE N'" & 年份_cb.Text & "/12') " & SQL3 & "
                                 GROUP BY    LEFT(財務流水帳_2.類別, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(財務流水帳_1.類別, 7) AS 子碼, SUM(財務流水帳_1.零用金 * (財務流水帳_1.匯率)) + SUM(財務流水帳_1.支票數 * (財務流水帳_1.匯率)) + 
                                        SUM(Cast(財務流水帳_1.收入 AS money) * (財務流水帳_1.匯率)) - SUM(Cast(財務流水帳_1.支出 AS money) * (財務流水帳_1.匯率)) AS 子項金額
                                 FROM   財務流水帳 AS 財務流水帳_1 INNER JOIN 財務控制表 AS 財務控制表_1 ON 財務流水帳_1.支付單號 = 財務控制表_1.支付單號
-                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/12')
+                                WHERE (LEFT(財務控制表_1.審核日期,7) LIKE N'" & 年份_cb.Text & "/12') " & SQL2 & "
                                 GROUP BY    LEFT(財務流水帳_1.類別, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
                 ORDER BY   LEFT(會計科目.編號, 1) DESC, 會計科目.編號"
@@ -865,19 +982,35 @@ Public Class 營運報表
         Next
         For no As Integer = 64 To 88
             Dim TextBoxOO As TextBox = CType(Me.Controls.Find("TextBox" + no.ToString(), True)(0), TextBox)
-            If Val(TextBoxOO.Text) > 1 Then : TextBoxOO.ForeColor = Color.Blue : ElseIf Val(TextBoxOO.Text) < 1 Then : TextBoxOO.ForeColor = Color.Red : End If
+            If Val(TextBoxOO.Text) > 0 Then : TextBoxOO.ForeColor = Color.Blue : ElseIf Val(TextBoxOO.Text) <= 0 Then : TextBoxOO.ForeColor = Color.Red : End If
         Next
     End Sub
     Private Sub 營運報表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        GCM_ERP_SYS.WindowState = 2
         ComboBox1下拉表單資料載入() : 年份_cb.Text = Year(Today)
-        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() : 格式設定()
+        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() : 格式設定()
+    End Sub
+    Private Sub 營運報表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
+        GCM_ERP_SYS.WindowState = 0
     End Sub
     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年份_cb.SelectedIndexChanged
-        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() : 格式設定()
+        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() : 格式設定()
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 重新整理_bt.Click
+        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() : 格式設定()
     End Sub
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        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() : 格式設定()
+    Private Sub 全部_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 全部_ch.Click
+        全部_ch.Checked = True : 含稅_ch.Checked = False : 非稅_ch.Checked = False : 重新整理_bt.PerformClick()
+    End Sub
+    Private Sub 含稅_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 含稅_ch.Click
+        全部_ch.Checked = False : 含稅_ch.Checked = True : 非稅_ch.Checked = False : 重新整理_bt.PerformClick()
+    End Sub
+    Private Sub 非稅_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 非稅_ch.Click
+        全部_ch.Checked = False : 含稅_ch.Checked = False : 非稅_ch.Checked = True : 重新整理_bt.PerformClick()
     End Sub
     Private Sub 主表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 主表_dgv.RowPostPaint
         Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
@@ -1212,6 +1345,102 @@ Public Class 營運報表
         月9_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex
         月11_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 主表_dgv.FirstDisplayedScrollingRowIndex
     End Sub
+    Private Sub 月1_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月1_dgv.Scroll
+        主表_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex
+        月3_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex
+        月5_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex
+        月7_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex
+        月9_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex
+        月11_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月1_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
+    Private Sub 月2_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月2_dgv.Scroll
+        月1_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex : 主表_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex
+        月3_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex
+        月5_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex
+        月7_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex
+        月9_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex
+        月11_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月2_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
+    Private Sub 月3_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月3_dgv.Scroll
+        月1_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex
+        主表_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex
+        月5_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex
+        月7_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex
+        月9_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex
+        月11_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月3_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
+    Private Sub 月4_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月4_dgv.Scroll
+        月1_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex
+        月3_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex : 主表_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex
+        月5_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex
+        月7_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex
+        月9_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex
+        月11_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月4_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
+    Private Sub 月5_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月5_dgv.Scroll
+        月1_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex
+        月3_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex
+        主表_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex
+        月7_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex
+        月9_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex
+        月11_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月5_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
+    Private Sub 月6_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月6_dgv.Scroll
+        月1_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex
+        月3_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex
+        月5_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex : 主表_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex
+        月7_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex
+        月9_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex
+        月11_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月6_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
+    Private Sub 月7_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月7_dgv.Scroll
+        月1_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex
+        月3_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex
+        月5_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex
+        主表_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex
+        月9_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex
+        月11_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月7_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
+    Private Sub 月8_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月8_dgv.Scroll
+        月1_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex
+        月3_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex
+        月5_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex
+        月7_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex : 主表_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex
+        月9_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex
+        月11_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月8_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
+    Private Sub 月9_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月9_dgv.Scroll
+        月1_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex
+        月3_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex
+        月5_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex
+        月7_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex
+        主表_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex
+        月11_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月9_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
+    Private Sub 月10_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月10_dgv.Scroll
+        月1_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex
+        月3_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex
+        月5_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex
+        月7_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex
+        月9_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex : 主表_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex
+        月11_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月10_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
+    Private Sub 月11_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月11_dgv.Scroll
+        月1_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex
+        月3_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex
+        月5_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex
+        月7_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex
+        月9_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex
+        主表_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex : 月12_dgv.FirstDisplayedScrollingRowIndex = 月11_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
+    Private Sub 月12_dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles 月12_dgv.Scroll
+        月1_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex : 月2_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex
+        月3_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex : 月4_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex
+        月5_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex : 月6_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex
+        月7_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex : 月8_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex
+        月9_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex : 月10_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex
+        月11_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex : 主表_dgv.FirstDisplayedScrollingRowIndex = 月12_dgv.FirstDisplayedScrollingRowIndex
+    End Sub
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
         Set_DGV2開始()
         SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, EERR.細項金額

工巧明智能管理系統/我的系統/資料庫系統管理/個人帳號管理.vb

@@ -4,7 +4,7 @@ Public Class 個人帳號管理
     Dim DTP As String
     Private Sub Set_使用者資料()
         ConnOpen()
-        SQL1 = "SELECT 姓名, 帳號, 密碼, 密碼日期 FROM 使用者 WHERE (姓名 = '" & gUserName & "')"
+        SQL1 = "SELECT 姓名, 帳號, 密碼, 密碼日期 FROM 使用者權限管理表 WHERE (姓名 = '" & gUserName & "')"
         cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
         If dr.Read() Then
             TextBox1.Text = dr("姓名").ToString