20221224備份

YD-ERP-SYS/Module/SQL_Module.vb

 Imports System.Data.SqlClient
 Module SQL_Module
-    Public ConString As String : Public SQL1 As String : Public SQL2 As String : Public SQL3 As String : Public SQL4 As String
+    Public ConString As String : Public SQL1, SQL2, SQL3, SQL4, SQL5 As String
     Public conn As New SqlConnection : Public cmd As New SqlCommand : Public dr As SqlDataReader : Public da As New SqlDataAdapter
     Public DTP As String : Public DTP1 As String : Public DTP2 As String : Public DTP3 As String : Public DTP4 As String
     Public 登入權限 As String = "姓名, 帳號, 密碼, 職稱, 級別, CC01, CC02, CC03, CC04, CC05, CC06, CC07, CC08, CC09, CC10, CC11, CC12, CC13, CC14, CC15, CC16, CC17, CC18, CC19, CC20, CC21,

YD-ERP-SYS/Module/SQL_倉儲系統管理.vb

         ConnOpen()
         SQL1 = "SELECT      RR.倉名, BB.料號, BB.供應商, BB.品名, BB.訂製, BB.狀態, RR.庫存, WW.未出庫, QQ.未入庫, RR.庫存 AS 可領用, 
                             BB.最低庫存量, 系統比例用空白圖片.圖片 AS 庫存比例, BB.圖片, 倉儲分區控制表.倉名 AS 倉名1, 
-                            倉儲分區控制表_4.倉名 AS 倉名2, 倉儲分區控制表_5.倉名 AS 倉名3, BB.物料狀態
+                            倉儲分區控制表_4.倉名 AS 倉名2, 倉儲分區控制表_5.倉名 AS 倉名3, BB.物料狀態 " & SQL5 & "
                 FROM              系統比例用空白圖片 RIGHT OUTER JOIN
                             倉儲分區控制表 AS 倉儲分區控制表_4 INNER JOIN
                                 (SELECT          SUM(倉儲明細表_1.入庫) AS 未入庫, 倉儲明細表_1.料號, 倉儲分區控制表_1.倉名編號, 
                             AS WW ON 倉儲分區控制表_5.倉名編號 = WW.倉名編號 RIGHT OUTER JOIN
                                 (SELECT          供應商資料表.編號, 物料資料庫.料號, 供應商資料表.簡稱 AS 供應商, 物料資料庫.品名, 
                                                               物料訂製狀態.訂製, 倉儲狀態.狀態, AA.物料狀態, AA.訂製狀態, 物料資料庫.是否有圖 AS 圖片, 
-                                                              物料資料庫.最低庫存量, 物料資料庫.進度條用空白
+                                                              物料資料庫.最低庫存量, 物料資料庫.進度條用空白, 物料資料庫.成本
                                   FROM               物料訂製狀態 RIGHT OUTER JOIN
                                                               倉儲狀態 RIGHT OUTER JOIN
                                                                   (SELECT          料號, 物料狀態, 訂製狀態
                                                               物料資料庫 ON 供應商資料表.編號 = 物料資料庫.供應商編號 ON AA.料號 = 物料資料庫.料號
                                   GROUP BY    供應商資料表.編號, 物料資料庫.料號, 供應商資料表.簡稱, 物料資料庫.品名, 物料訂製狀態.訂製, 
                                                               倉儲狀態.狀態, AA.物料狀態, AA.訂製狀態, 物料資料庫.是否有圖, 物料資料庫.最低庫存量, 
-                                                              物料資料庫.進度條用空白) AS BB ON WW.訂製狀態 = BB.訂製狀態 AND 
+                                                              物料資料庫.進度條用空白, 物料資料庫.成本) AS BB ON WW.訂製狀態 = BB.訂製狀態 AND 
                             WW.物料狀態 = BB.物料狀態 AND WW.料號 = BB.料號 LEFT OUTER JOIN
                                 (SELECT          SUM(倉儲明細表_3.入庫) - SUM(倉儲明細表_3.出庫) AS 庫存, 倉儲明細表_3.料號, 
                                                               倉儲分區控制表_3.倉名編號, 倉儲明細表_3.物料狀態, 倉儲明細表_3.訂製狀態, 

YD-ERP-SYS/Module/SQL_財務系統管理.vb

         CmdSet_For_dr()
     End Sub
     '---------------------營運成本收支單_對帳表.----------------------------------------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_剔除存檔新增()
+        ConnOpen() : SQL1 = "INSERT INTO  剔除會科存檔 (剔除會科) VALUES (N'" & PA1 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_剔除存檔比對()
+        ConnOpen() : SQL1 = "SELECT  剔除會科  FROM  剔除會科存檔 WHERE 剔除會科 LIKE N'" & PA1 & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_剔除存檔()
+        ConnOpen() : SQL1 = "SELECT  剔除會科  FROM  剔除會科存檔" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_剔除會科()
+        ConnOpen()
+        SQL1 = "SELECT  系統選擇按鈕.選擇, QQ.會計科目, QQ.類別
+                FROM    系統選擇按鈕 RIGHT OUTER JOIN
+                       (SELECT       TOP (100) PERCENT 會計科目.會計科目, 公帳流水帳.類別
+                        FROM        公帳流水帳 INNER JOIN 會計科目 ON 公帳流水帳.類別 = 會計科目.編號 INNER JOIN
+                                    公帳控制表 ON 公帳流水帳.支付單號 = 公帳控制表.支付單號
+                        WHERE      (公帳控制表.審核日期 LIKE '" & PA & "%')
+                        GROUP BY    會計科目.會計科目, 公帳流水帳.類別  ORDER BY  公帳流水帳.類別) AS QQ ON 系統選擇按鈕.按鈕 = QQ.會計科目"
+        CmdSet_For_DGV()
+    End Sub
     Friend Sub SQL_營運成本收支單對帳表()
         ConnOpen()
         SQL1 = "SELECT      公帳控制表.支付單號 AS 收支單號, 公帳控制表.申請人, 公帳控制表.申請日期, 公帳控制表.審核人, 
                             公帳控制表.審核日期, 公帳流水帳.項次, 會計科目.會計科目, 公帳流水帳.明細 AS 用途與內容, 
                             公帳流水帳.零用金, 公帳流水帳.支票數 AS 支票, Cast(公帳流水帳.收入 AS money) AS 收入, 
-                            Cast(公帳流水帳.支出 AS money) AS 支出, 公帳流水帳.備註 AS 票期, 公帳流水帳.會計, 公帳流水帳.日期 AS 作帳日期, 
+                            Cast(公帳流水帳.支出 AS money) AS 支出, 公帳流水帳.備註, 公帳流水帳.會計, 公帳流水帳.日期 AS 作帳日期, 
                             公帳流水帳.出納 AS 點交, 公帳流水帳.出納日期 AS 點交日期, 公帳流水帳.備用金 AS 零用金點交, 
                             公帳流水帳.支票 AS 支票兌現, 公帳流水帳.現金 AS 現金點交, 公帳流水帳.公帳 AS 支出點交, 公帳流水帳.匯率, 公帳流水帳.銀行 AS 幣別
                 FROM        公帳流水帳 INNER JOIN

YD-ERP-SYS/Module/SQL_資料庫系統管理.vb

     End Sub
     Friend Sub SQL_主資料庫LOG檔案截斷()
         ConnOpen() : SQL1 = "USE [" & PA & "]" : CmdSet_For_dr()
+        ConnOpen() : SQL1 = "select name from sys.database_files where name not like '%_log';" : CmdSet_For_dr()
+        If dr.Read Then : PA1 = dr("name").ToString : End If
+        If PA = PA1 Then : Else
+            ConnOpen() : SQL1 = "alter database [" & PA & "] modify file(name=[" & PA1 & "], newname =[" & PA & "])" : CmdSet_For_dr()
+        End If
+
+        ConnOpen() : SQL1 = "select name from sys.database_files where name like '%_log';" : CmdSet_For_dr()
+        If dr.Read Then : PA1 = dr("name").ToString : End If
+        If PA & "_log" = PA1 Then : Else
+            ConnOpen() : SQL1 = "alter database [" & PA & "] modify file(name=[" & PA1 & "], newname=[" & PA & "_log])" : CmdSet_For_dr()
+        End If
+
         ConnOpen() : SQL1 = "ALTER DATABASE [" & PA & "]
-                             SET RECOVERY SIMPLE;" : CmdSet_For_dr()
+                                   SET RECOVERY SIMPLE;" : CmdSet_For_dr()
         ConnOpen() : SQL1 = "DBCC SHRINKFILE ([" & PA & "_Log], 1);" : CmdSet_For_dr()
         ConnOpen() : SQL1 = "ALTER DATABASE [" & PA & "]
-                             SET RECOVERY FULL;" : CmdSet_For_dr()
+                                   SET RECOVERY FULL;" : CmdSet_For_dr()
     End Sub
     '---------------------個人帳號管理-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_個人帳號管理_使用者資料查詢()

YD-ERP-SYS/Module/全域變數.vb

     Public g_conn_type, gUserName, 登入人職稱, 登入人級別, 登入人組別, 登入人IP, 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, FTP物理位置, 業務號碼, AA(99), 類別 As String
     Public BB(99), CC(99), 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2022120101"
+    Public 版本 As String = "2022121701"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL, 列印用SQL2, 公司編號, 公司電話, 公司統編, 公司地址, 關鍵字編號, 進度條後墜 As String
     '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

YD-ERP-SYS/倉儲系統管理/倉儲控制表.vb

             控制表_dgv.ColumnHeadersHeight = 40
             控制表_dgv.AllowUserToAddRows = False
             控制表_dgv.RowTemplate.Height = 30
+            If 登入人級別 = "00" Or 登入人級別 = "01" Or 登入人級別 = "02" Then : SQL5 = ", BB.成本" : Else : SQL5 = "" : End If
 
             SQL_倉儲控制表_控制表()
             da.Fill(ds) : 控制表_dgv.DataSource = ds.Tables(0) : conn.Close()
             控制表_dgv.Columns(12).FillWeight = 50 : 控制表_dgv.Columns(13).Visible = False : 控制表_dgv.Columns(14).Visible = False : 控制表_dgv.Columns(15).Visible = False
             控制表_dgv.Columns(16).Visible = False
 
+            If 登入人級別 = "00" Or 登入人級別 = "01" Or 登入人級別 = "02" Then
+                控制表_dgv.Columns("成本").FillWeight = 70 : 控制表_dgv.Columns("成本").DefaultCellStyle.Format = "#,##0"
+                控制表_dgv.Columns("成本").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+                控制表_dgv.Columns("成本").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+            Else : End If
+
             控制表_dgv.Columns("庫存").DefaultCellStyle.Format = "#,##0" : 控制表_dgv.Columns("未入庫").DefaultCellStyle.Format = "#,##0"
             控制表_dgv.Columns("未出庫").DefaultCellStyle.Format = "#,##0" : 控制表_dgv.Columns("可領用").DefaultCellStyle.Format = "#,##0"
             控制表_dgv.Columns("最低庫存量").DefaultCellStyle.Format = "#,##0"
         狀態_ch.Items.Add("") : While (dr.Read()) : 狀態_ch.Items.Add(dr("狀態")) : End While : conn.Close()
     End Sub
     Private Sub 倉儲控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Try
-            Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-            小間距_ch.Checked = True : 不顯示歸零_ch.Checked = True
-            首次開啟 = False
-            指定倉庫_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入() : 狀態_cb_下拉表單資料載入() : Set_清單() : 首次開啟 = True '--------------------資料讀取
-            If CC(52) = False Then
-                刪除_bt.Enabled = False : 新增_bt.Enabled = False
-            End If
-            If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
-                字體_NUD.Value = 9
-            ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then
-                字體_NUD.Value = 7.6
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        小間距_ch.Checked = True : 不顯示歸零_ch.Checked = True
+        首次開啟 = False
+        指定倉庫_cb_下拉表單資料載入() : 倉儲狀態_cb_下拉表單資料載入() : 狀態_cb_下拉表單資料載入() : Set_清單() : 首次開啟 = True '--------------------資料讀取
+        If CC(52) = False Then
+            刪除_bt.Enabled = False : 新增_bt.Enabled = False
+        End If
+        If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
+            字體_NUD.Value = 9
+        ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then
+            字體_NUD.Value = 7.6
+        End If
     End Sub
     Private Sub 倉儲控制表_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
         If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
 
             xlSheet.Cells(1, 1) = "雅邸家具有限公司-倉儲控制表 " : 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) = "備註"
-
+            If 登入人級別 = "00" Or 登入人級別 = "01" Or 登入人級別 = "02" Then
+                xlSheet.Cells(2, 9) = "成本"
+            Else : End If
             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
+                If 登入人級別 = "00" Or 登入人級別 = "01" Or 登入人級別 = "02" Then
+                    xlSheet.Cells(i + 3, 9) = 控制表_dgv.Rows(i).Cells("成本").Value
+                Else : End If
                 N2 = i + 3
             Next i
 

YD-ERP-SYS/財務系統管理/業績運費明細表.vb

             xlApp.Application.WindowState = xlMaximized
 
             xlSheet.Cells(1, 1) = "雅邸家居" : xlSheet.Cells(2, 1) = "司 機 運 費 (明細表)" : xlSheet.Cells(3, 1) = "日期區間:" & 開始日期_dtp.Value & " ~ " & 結束日期_dtp.Value
-            xlSheet.Cells(4, 1) = "完單日期" : xlSheet.Cells(4, 2) = "單據號碼" : xlSheet.Cells(4, 3) = "客戶名稱" : xlSheet.Cells(4, 4) = "運費總計" : xlSheet.Cells(4, 5) = "已付"
+            xlSheet.Cells(4, 1) = "完單日期" : xlSheet.Cells(4, 2) = "單據號碼" : xlSheet.Cells(4, 3) = "地址" : xlSheet.Cells(4, 4) = "運費總計" : xlSheet.Cells(4, 5) = "已付"
             xlSheet.Cells(4, 6) = "銷售小計" : xlSheet.Cells(4, 7) = "運費" : xlSheet.Cells(4, 8) = "衍伸運費"
             For I As Integer = 0 To 運費明細表_dgv.Rows.Count - 1
                 xlSheet.Cells(I + 5, 1) = 運費明細表_dgv.Rows(I).Cells("完單日期").Value
                 xlSheet.Cells(I + 5, 2) = 運費明細表_dgv.Rows(I).Cells("單號").Value
-                xlSheet.Cells(I + 5, 3) = 運費明細表_dgv.Rows(I).Cells("名稱").Value
+                xlSheet.Cells(I + 5, 3) = 運費明細表_dgv.Rows(I).Cells("地址").Value
                 xlSheet.Cells(I + 5, 4) = 運費明細表_dgv.Rows(I).Cells("運費").Value
                 xlSheet.Cells(I + 5, 5) = 運費明細表_dgv.Rows(I).Cells("已付運費").Value
                 xlSheet.Cells(I + 5, 6) = 運費明細表_dgv.Rows(I).Cells("銷售小計").Value

YD-ERP-SYS/財務系統管理/財務_對帳表.Designer.vb

     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.未兌現支票1_tb = New System.Windows.Forms.TextBox()
         Me.Label13 = New System.Windows.Forms.Label()
         Me.未兌現支票_tb = New System.Windows.Forms.TextBox()
         Me.全部_ch = New System.Windows.Forms.CheckBox()
         Me.只有收入_cb = New System.Windows.Forms.CheckBox()
         Me.只有支出_cb = New System.Windows.Forms.CheckBox()
+        Me.特別計算_bt = New System.Windows.Forms.Button()
+        Me.視窗2_pl = New System.Windows.Forms.Panel()
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.剔除後總和_tb = New System.Windows.Forms.TextBox()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.剔除後支出_tb = New System.Windows.Forms.TextBox()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.剔除後收入_tb = New System.Windows.Forms.TextBox()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.剃除計算_bt = New System.Windows.Forms.Button()
+        Me.存檔_bt = New System.Windows.Forms.Button()
+        Me.會科_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.CanceL2_bt = New System.Windows.Forms.Button()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.剔除存檔_dgv = New System.Windows.Forms.DataGridView()
         CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.視窗2_pl.SuspendLayout()
+        Me.Panel3.SuspendLayout()
+        CType(Me.會科_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.剔除存檔_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '未兌現支票1_tb
         '
         Me.未兌現支票1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.未兌現支票1_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.未兌現支票1_tb.Location = New System.Drawing.Point(285, 56)
+        Me.未兌現支票1_tb.Location = New System.Drawing.Point(256, 56)
         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(100, 23)
         Me.Label13.AutoSize = True
         Me.Label13.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label13.Location = New System.Drawing.Point(215, 59)
+        Me.Label13.Location = New System.Drawing.Point(186, 59)
         Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(68, 16)
+        Me.Label13.Size = New System.Drawing.Size(67, 16)
         Me.Label13.TabIndex = 1071
         Me.Label13.Text = "未兌現支票"
         '
         '
         Me.未兌現支票_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.未兌現支票_tb.ForeColor = System.Drawing.Color.Green
-        Me.未兌現支票_tb.Location = New System.Drawing.Point(285, 30)
+        Me.未兌現支票_tb.Location = New System.Drawing.Point(256, 30)
         Me.未兌現支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.未兌現支票_tb.Name = "未兌現支票_tb"
         Me.未兌現支票_tb.Size = New System.Drawing.Size(100, 23)
         Me.Label14.AutoSize = True
         Me.Label14.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label14.ForeColor = System.Drawing.Color.Green
-        Me.Label14.Location = New System.Drawing.Point(215, 35)
+        Me.Label14.Location = New System.Drawing.Point(186, 35)
         Me.Label14.Name = "Label14"
-        Me.Label14.Size = New System.Drawing.Size(68, 16)
+        Me.Label14.Size = New System.Drawing.Size(67, 16)
         Me.Label14.TabIndex = 1069
         Me.Label14.Text = "未兌現支票"
         '
         '
         Me.已兌現支票1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.已兌現支票1_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.已兌現支票1_tb.Location = New System.Drawing.Point(457, 56)
+        Me.已兌現支票1_tb.Location = New System.Drawing.Point(428, 56)
         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(100, 23)
         Me.Label11.AutoSize = True
         Me.Label11.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label11.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label11.Location = New System.Drawing.Point(387, 60)
+        Me.Label11.Location = New System.Drawing.Point(358, 60)
         Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(68, 16)
+        Me.Label11.Size = New System.Drawing.Size(67, 16)
         Me.Label11.TabIndex = 1067
         Me.Label11.Text = "已兌現支票"
         '
         '
         Me.已兌現支票_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.已兌現支票_tb.ForeColor = System.Drawing.Color.Green
-        Me.已兌現支票_tb.Location = New System.Drawing.Point(457, 29)
+        Me.已兌現支票_tb.Location = New System.Drawing.Point(428, 29)
         Me.已兌現支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.已兌現支票_tb.Name = "已兌現支票_tb"
         Me.已兌現支票_tb.Size = New System.Drawing.Size(100, 23)
         Me.Label12.AutoSize = True
         Me.Label12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label12.ForeColor = System.Drawing.Color.Green
-        Me.Label12.Location = New System.Drawing.Point(387, 34)
+        Me.Label12.Location = New System.Drawing.Point(358, 34)
         Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(68, 16)
+        Me.Label12.Size = New System.Drawing.Size(67, 16)
         Me.Label12.TabIndex = 1065
         Me.Label12.Text = "已兌現支票"
         '
         '
         Me.零用金1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.零用金1_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.零用金1_tb.Location = New System.Drawing.Point(604, 56)
+        Me.零用金1_tb.Location = New System.Drawing.Point(575, 56)
         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(100, 23)
         Me.Label1.AutoSize = True
         Me.Label1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label1.Location = New System.Drawing.Point(558, 59)
+        Me.Label1.Location = New System.Drawing.Point(529, 59)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(44, 16)
+        Me.Label1.Size = New System.Drawing.Size(43, 16)
         Me.Label1.TabIndex = 1063
         Me.Label1.Text = "零用金"
         '
         '
         Me.零用金_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.零用金_tb.ForeColor = System.Drawing.Color.Green
-        Me.零用金_tb.Location = New System.Drawing.Point(604, 29)
+        Me.零用金_tb.Location = New System.Drawing.Point(575, 29)
         Me.零用金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.零用金_tb.Name = "零用金_tb"
         Me.零用金_tb.Size = New System.Drawing.Size(100, 23)
         Me.Label3.AutoSize = True
         Me.Label3.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label3.ForeColor = System.Drawing.Color.Green
-        Me.Label3.Location = New System.Drawing.Point(558, 34)
+        Me.Label3.Location = New System.Drawing.Point(529, 34)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(44, 16)
+        Me.Label3.Size = New System.Drawing.Size(43, 16)
         Me.Label3.TabIndex = 1061
         Me.Label3.Text = "零用金"
         '
         '
         Me.只顯示支票資料_cb.AutoSize = True
         Me.只顯示支票資料_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.只顯示支票資料_cb.Location = New System.Drawing.Point(486, 5)
+        Me.只顯示支票資料_cb.Location = New System.Drawing.Point(457, 5)
         Me.只顯示支票資料_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.只顯示支票資料_cb.Name = "只顯示支票資料_cb"
-        Me.只顯示支票資料_cb.Size = New System.Drawing.Size(111, 20)
+        Me.只顯示支票資料_cb.Size = New System.Drawing.Size(110, 20)
         Me.只顯示支票資料_cb.TabIndex = 1060
         Me.只顯示支票資料_cb.Text = "只顯示支票資料"
         Me.只顯示支票資料_cb.UseVisualStyleBackColor = True
         Me.隱藏作帳點交資訊_cb.Checked = True
         Me.隱藏作帳點交資訊_cb.CheckState = System.Windows.Forms.CheckState.Checked
         Me.隱藏作帳點交資訊_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.隱藏作帳點交資訊_cb.Location = New System.Drawing.Point(351, 6)
+        Me.隱藏作帳點交資訊_cb.Location = New System.Drawing.Point(322, 6)
         Me.隱藏作帳點交資訊_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.隱藏作帳點交資訊_cb.Name = "隱藏作帳點交資訊_cb"
-        Me.隱藏作帳點交資訊_cb.Size = New System.Drawing.Size(135, 20)
+        Me.隱藏作帳點交資訊_cb.Size = New System.Drawing.Size(134, 20)
         Me.隱藏作帳點交資訊_cb.TabIndex = 1059
         Me.隱藏作帳點交資訊_cb.Text = "隱藏作帳、點交資訊"
         Me.隱藏作帳點交資訊_cb.UseVisualStyleBackColor = True
         '
         Me.隱藏申請審核資訊_cb.AutoSize = True
         Me.隱藏申請審核資訊_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.隱藏申請審核資訊_cb.Location = New System.Drawing.Point(216, 6)
+        Me.隱藏申請審核資訊_cb.Location = New System.Drawing.Point(187, 6)
         Me.隱藏申請審核資訊_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.隱藏申請審核資訊_cb.Name = "隱藏申請審核資訊_cb"
-        Me.隱藏申請審核資訊_cb.Size = New System.Drawing.Size(135, 20)
+        Me.隱藏申請審核資訊_cb.Size = New System.Drawing.Size(134, 20)
         Me.隱藏申請審核資訊_cb.TabIndex = 1058
         Me.隱藏申請審核資訊_cb.Text = "隱藏申請、審核資訊"
         Me.隱藏申請審核資訊_cb.UseVisualStyleBackColor = True
         '
         Me.損益1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.損益1_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.損益1_tb.Location = New System.Drawing.Point(1013, 56)
+        Me.損益1_tb.Location = New System.Drawing.Point(984, 56)
         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(100, 23)
         Me.Label7.AutoSize = True
         Me.Label7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label7.Location = New System.Drawing.Point(979, 59)
+        Me.Label7.Location = New System.Drawing.Point(950, 59)
         Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(32, 16)
+        Me.Label7.Size = New System.Drawing.Size(31, 16)
         Me.Label7.TabIndex = 1056
         Me.Label7.Text = "損益"
         '
         '
         Me.支出1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.支出1_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.支出1_tb.Location = New System.Drawing.Point(877, 56)
+        Me.支出1_tb.Location = New System.Drawing.Point(848, 56)
         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(100, 23)
         Me.Label8.AutoSize = True
         Me.Label8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label8.Location = New System.Drawing.Point(843, 60)
+        Me.Label8.Location = New System.Drawing.Point(814, 60)
         Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(32, 16)
+        Me.Label8.Size = New System.Drawing.Size(31, 16)
         Me.Label8.TabIndex = 1054
         Me.Label8.Text = "支出"
         '
         '
         Me.現金1_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.現金1_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.現金1_tb.Location = New System.Drawing.Point(741, 56)
+        Me.現金1_tb.Location = New System.Drawing.Point(712, 56)
         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(100, 23)
         Me.Label10.AutoSize = True
         Me.Label10.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label10.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label10.Location = New System.Drawing.Point(706, 60)
+        Me.Label10.Location = New System.Drawing.Point(677, 60)
         Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(32, 16)
+        Me.Label10.Size = New System.Drawing.Size(31, 16)
         Me.Label10.TabIndex = 1052
         Me.Label10.Text = "收入"
         '
         '
         Me.損益_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.損益_tb.ForeColor = System.Drawing.Color.Green
-        Me.損益_tb.Location = New System.Drawing.Point(1013, 29)
+        Me.損益_tb.Location = New System.Drawing.Point(984, 29)
         Me.損益_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.損益_tb.Name = "損益_tb"
         Me.損益_tb.Size = New System.Drawing.Size(100, 23)
         Me.Label6.AutoSize = True
         Me.Label6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label6.ForeColor = System.Drawing.Color.Green
-        Me.Label6.Location = New System.Drawing.Point(979, 34)
+        Me.Label6.Location = New System.Drawing.Point(950, 34)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(32, 16)
+        Me.Label6.Size = New System.Drawing.Size(31, 16)
         Me.Label6.TabIndex = 1050
         Me.Label6.Text = "損益"
         '
         '
         Me.支出_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.支出_tb.ForeColor = System.Drawing.Color.Green
-        Me.支出_tb.Location = New System.Drawing.Point(877, 29)
+        Me.支出_tb.Location = New System.Drawing.Point(848, 29)
         Me.支出_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.支出_tb.Name = "支出_tb"
         Me.支出_tb.Size = New System.Drawing.Size(100, 23)
         Me.Label5.AutoSize = True
         Me.Label5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label5.ForeColor = System.Drawing.Color.Green
-        Me.Label5.Location = New System.Drawing.Point(843, 34)
+        Me.Label5.Location = New System.Drawing.Point(814, 34)
         Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(32, 16)
+        Me.Label5.Size = New System.Drawing.Size(31, 16)
         Me.Label5.TabIndex = 1048
         Me.Label5.Text = "支出"
         '
         Me.Label4.ForeColor = System.Drawing.Color.Green
         Me.Label4.Location = New System.Drawing.Point(2, 35)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(32, 16)
+        Me.Label4.Size = New System.Drawing.Size(31, 16)
         Me.Label4.TabIndex = 1047
         Me.Label4.Text = "單號"
         '
         Me.收支單號_tb.Location = New System.Drawing.Point(36, 31)
         Me.收支單號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.收支單號_tb.Name = "收支單號_tb"
-        Me.收支單號_tb.Size = New System.Drawing.Size(172, 23)
+        Me.收支單號_tb.Size = New System.Drawing.Size(149, 23)
         Me.收支單號_tb.TabIndex = 1046
         Me.收支單號_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         '
         Me.現金_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.現金_tb.ForeColor = System.Drawing.Color.Green
-        Me.現金_tb.Location = New System.Drawing.Point(741, 29)
+        Me.現金_tb.Location = New System.Drawing.Point(712, 29)
         Me.現金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.現金_tb.Name = "現金_tb"
         Me.現金_tb.Size = New System.Drawing.Size(100, 23)
         Me.Label9.AutoSize = True
         Me.Label9.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label9.ForeColor = System.Drawing.Color.Green
-        Me.Label9.Location = New System.Drawing.Point(706, 34)
+        Me.Label9.Location = New System.Drawing.Point(677, 34)
         Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(32, 16)
+        Me.Label9.Size = New System.Drawing.Size(31, 16)
         Me.Label9.TabIndex = 1044
         Me.Label9.Text = "收入"
         '
         Me.查詢日期1_cb.Location = New System.Drawing.Point(143, 4)
         Me.查詢日期1_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.查詢日期1_cb.Name = "查詢日期1_cb"
-        Me.查詢日期1_cb.Size = New System.Drawing.Size(63, 24)
+        Me.查詢日期1_cb.Size = New System.Drawing.Size(42, 24)
         Me.查詢日期1_cb.TabIndex = 1043
         '
         '查詢日期_cb
         Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.Label2.Location = New System.Drawing.Point(2, 8)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(56, 16)
+        Me.Label2.Size = New System.Drawing.Size(55, 16)
         Me.Label2.TabIndex = 1041
         Me.Label2.Text = "查詢日期"
         '
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.明細_dgv.BackgroundColor = System.Drawing.Color.White
         Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.明細_dgv.Location = New System.Drawing.Point(6, 82)
         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
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
         Me.明細_dgv.RowTemplate.Height = 24
         Me.明細_dgv.Size = New System.Drawing.Size(1243, 524)
         Me.明細_dgv.TabIndex = 1073
         '
         '關鍵字查詢_bt
         '
-        Me.關鍵字查詢_bt.Location = New System.Drawing.Point(753, 1)
+        Me.關鍵字查詢_bt.Location = New System.Drawing.Point(724, 1)
         Me.關鍵字查詢_bt.Name = "關鍵字查詢_bt"
         Me.關鍵字查詢_bt.Size = New System.Drawing.Size(90, 26)
         Me.關鍵字查詢_bt.TabIndex = 1076
         Me.對帳記錄存檔_bt.ForeColor = System.Drawing.Color.Green
         Me.對帳記錄存檔_bt.Location = New System.Drawing.Point(6, 56)
         Me.對帳記錄存檔_bt.Name = "對帳記錄存檔_bt"
-        Me.對帳記錄存檔_bt.Size = New System.Drawing.Size(202, 23)
+        Me.對帳記錄存檔_bt.Size = New System.Drawing.Size(179, 23)
         Me.對帳記錄存檔_bt.TabIndex = 1077
         Me.對帳記錄存檔_bt.Text = "對帳記錄存檔"
         Me.對帳記錄存檔_bt.UseVisualStyleBackColor = True
         '
         '清除查詢資料_bt
         '
-        Me.清除查詢資料_bt.Location = New System.Drawing.Point(844, 1)
+        Me.清除查詢資料_bt.Location = New System.Drawing.Point(815, 1)
         Me.清除查詢資料_bt.Name = "清除查詢資料_bt"
         Me.清除查詢資料_bt.Size = New System.Drawing.Size(90, 26)
         Me.清除查詢資料_bt.TabIndex = 1078
         Me.匯出EXCEL_bt.AutoSize = True
         Me.匯出EXCEL_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.匯出EXCEL_bt.ForeColor = System.Drawing.Color.DarkRed
-        Me.匯出EXCEL_bt.Location = New System.Drawing.Point(935, 1)
+        Me.匯出EXCEL_bt.Location = New System.Drawing.Point(906, 1)
         Me.匯出EXCEL_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.匯出EXCEL_bt.Name = "匯出EXCEL_bt"
         Me.匯出EXCEL_bt.Size = New System.Drawing.Size(90, 26)
         Me.字體大小調整_lb.Font = New System.Drawing.Font("微軟正黑體", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.字體大小調整_lb.ForeColor = System.Drawing.Color.Red
         Me.字體大小調整_lb.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.字體大小調整_lb.Location = New System.Drawing.Point(1026, 5)
+        Me.字體大小調整_lb.Location = New System.Drawing.Point(997, 5)
         Me.字體大小調整_lb.Name = "字體大小調整_lb"
         Me.字體大小調整_lb.Size = New System.Drawing.Size(34, 17)
         Me.字體大小調整_lb.TabIndex = 1495
         '
         Me.字體_NUD.DecimalPlaces = 1
         Me.字體_NUD.Increment = New Decimal(New Integer() {1, 0, 0, 65536})
-        Me.字體_NUD.Location = New System.Drawing.Point(1061, 3)
+        Me.字體_NUD.Location = New System.Drawing.Point(1032, 3)
         Me.字體_NUD.Maximum = New Decimal(New Integer() {18, 0, 0, 0})
         Me.字體_NUD.Minimum = New Decimal(New Integer() {6, 0, 0, 0})
         Me.字體_NUD.Name = "字體_NUD"
         '非稅_ch
         '
         Me.非稅_ch.AutoSize = True
-        Me.非稅_ch.Location = New System.Drawing.Point(1121, 58)
+        Me.非稅_ch.Location = New System.Drawing.Point(1092, 58)
         Me.非稅_ch.Name = "非稅_ch"
-        Me.非稅_ch.Size = New System.Drawing.Size(51, 20)
+        Me.非稅_ch.Size = New System.Drawing.Size(50, 20)
         Me.非稅_ch.TabIndex = 1501
         Me.非稅_ch.Text = "非稅"
         Me.非稅_ch.UseVisualStyleBackColor = True
         '含稅_ch
         '
         Me.含稅_ch.AutoSize = True
-        Me.含稅_ch.Location = New System.Drawing.Point(1120, 32)
+        Me.含稅_ch.Location = New System.Drawing.Point(1091, 32)
         Me.含稅_ch.Name = "含稅_ch"
-        Me.含稅_ch.Size = New System.Drawing.Size(51, 20)
+        Me.含稅_ch.Size = New System.Drawing.Size(50, 20)
         Me.含稅_ch.TabIndex = 1500
         Me.含稅_ch.Text = "含稅"
         Me.含稅_ch.UseVisualStyleBackColor = True
         Me.全部_ch.AutoSize = True
         Me.全部_ch.Checked = True
         Me.全部_ch.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.全部_ch.Location = New System.Drawing.Point(1120, 6)
+        Me.全部_ch.Location = New System.Drawing.Point(1091, 6)
         Me.全部_ch.Name = "全部_ch"
-        Me.全部_ch.Size = New System.Drawing.Size(51, 20)
+        Me.全部_ch.Size = New System.Drawing.Size(50, 20)
         Me.全部_ch.TabIndex = 1499
         Me.全部_ch.Text = "全部"
         Me.全部_ch.UseVisualStyleBackColor = True
         '只有收入_cb
         '
         Me.只有收入_cb.AutoSize = True
-        Me.只有收入_cb.Location = New System.Drawing.Point(597, 5)
+        Me.只有收入_cb.Location = New System.Drawing.Point(568, 5)
         Me.只有收入_cb.Name = "只有收入_cb"
-        Me.只有收入_cb.Size = New System.Drawing.Size(75, 20)
+        Me.只有收入_cb.Size = New System.Drawing.Size(74, 20)
         Me.只有收入_cb.TabIndex = 1502
         Me.只有收入_cb.Text = "只有收入"
         Me.只有收入_cb.UseVisualStyleBackColor = True
         '只有支出_cb
         '
         Me.只有支出_cb.AutoSize = True
-        Me.只有支出_cb.Location = New System.Drawing.Point(672, 5)
+        Me.只有支出_cb.Location = New System.Drawing.Point(643, 5)
         Me.只有支出_cb.Name = "只有支出_cb"
-        Me.只有支出_cb.Size = New System.Drawing.Size(75, 20)
+        Me.只有支出_cb.Size = New System.Drawing.Size(74, 20)
         Me.只有支出_cb.TabIndex = 1503
         Me.只有支出_cb.Text = "只有支出"
         Me.只有支出_cb.UseVisualStyleBackColor = True
         '
+        '特別計算_bt
+        '
+        Me.特別計算_bt.Location = New System.Drawing.Point(1147, 2)
+        Me.特別計算_bt.Name = "特別計算_bt"
+        Me.特別計算_bt.Size = New System.Drawing.Size(73, 77)
+        Me.特別計算_bt.TabIndex = 1504
+        Me.特別計算_bt.Text = "特別計算"
+        Me.特別計算_bt.UseVisualStyleBackColor = True
+        '
+        '視窗2_pl
+        '
+        Me.視窗2_pl.BackColor = System.Drawing.Color.White
+        Me.視窗2_pl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.視窗2_pl.Controls.Add(Me.Panel3)
+        Me.視窗2_pl.Controls.Add(Me.Label16)
+        Me.視窗2_pl.Controls.Add(Me.CanceL2_bt)
+        Me.視窗2_pl.Location = New System.Drawing.Point(831, 12)
+        Me.視窗2_pl.Name = "視窗2_pl"
+        Me.視窗2_pl.Size = New System.Drawing.Size(227, 550)
+        Me.視窗2_pl.TabIndex = 1505
+        '
+        'Panel3
+        '
+        Me.Panel3.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.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel3.Controls.Add(Me.剔除後總和_tb)
+        Me.Panel3.Controls.Add(Me.Label18)
+        Me.Panel3.Controls.Add(Me.剔除後支出_tb)
+        Me.Panel3.Controls.Add(Me.Label17)
+        Me.Panel3.Controls.Add(Me.剔除後收入_tb)
+        Me.Panel3.Controls.Add(Me.Label15)
+        Me.Panel3.Controls.Add(Me.剃除計算_bt)
+        Me.Panel3.Controls.Add(Me.存檔_bt)
+        Me.Panel3.Controls.Add(Me.會科_dgv)
+        Me.Panel3.Location = New System.Drawing.Point(3, 28)
+        Me.Panel3.Name = "Panel3"
+        Me.Panel3.Size = New System.Drawing.Size(220, 518)
+        Me.Panel3.TabIndex = 1367
+        '
+        '剔除後總和_tb
+        '
+        Me.剔除後總和_tb.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.剔除後總和_tb.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.剔除後總和_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.剔除後總和_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.剔除後總和_tb.Location = New System.Drawing.Point(80, 75)
+        Me.剔除後總和_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.剔除後總和_tb.Name = "剔除後總和_tb"
+        Me.剔除後總和_tb.Size = New System.Drawing.Size(130, 16)
+        Me.剔除後總和_tb.TabIndex = 1393
+        Me.剔除後總和_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        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(7, 75)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(67, 16)
+        Me.Label18.TabIndex = 1392
+        Me.Label18.Text = "剔除後總和"
+        '
+        '剔除後支出_tb
+        '
+        Me.剔除後支出_tb.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.剔除後支出_tb.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.剔除後支出_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.剔除後支出_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.剔除後支出_tb.Location = New System.Drawing.Point(80, 53)
+        Me.剔除後支出_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.剔除後支出_tb.Name = "剔除後支出_tb"
+        Me.剔除後支出_tb.Size = New System.Drawing.Size(130, 16)
+        Me.剔除後支出_tb.TabIndex = 1391
+        Me.剔除後支出_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label17
+        '
+        Me.Label17.AutoSize = True
+        Me.Label17.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label17.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label17.Location = New System.Drawing.Point(7, 53)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(67, 16)
+        Me.Label17.TabIndex = 1390
+        Me.Label17.Text = "剔除後支出"
+        '
+        '剔除後收入_tb
+        '
+        Me.剔除後收入_tb.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.剔除後收入_tb.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.剔除後收入_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.剔除後收入_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.剔除後收入_tb.Location = New System.Drawing.Point(80, 32)
+        Me.剔除後收入_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.剔除後收入_tb.Name = "剔除後收入_tb"
+        Me.剔除後收入_tb.Size = New System.Drawing.Size(130, 16)
+        Me.剔除後收入_tb.TabIndex = 1389
+        Me.剔除後收入_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label15.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label15.Location = New System.Drawing.Point(7, 32)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(67, 16)
+        Me.Label15.TabIndex = 1388
+        Me.Label15.Text = "剔除後收入"
+        '
+        '剃除計算_bt
+        '
+        Me.剃除計算_bt.Location = New System.Drawing.Point(123, 3)
+        Me.剃除計算_bt.Name = "剃除計算_bt"
+        Me.剃除計算_bt.Size = New System.Drawing.Size(90, 26)
+        Me.剃除計算_bt.TabIndex = 1387
+        Me.剃除計算_bt.Text = "剃除計算"
+        Me.剃除計算_bt.UseVisualStyleBackColor = True
+        '
+        '存檔_bt
+        '
+        Me.存檔_bt.Location = New System.Drawing.Point(3, 3)
+        Me.存檔_bt.Name = "存檔_bt"
+        Me.存檔_bt.Size = New System.Drawing.Size(90, 26)
+        Me.存檔_bt.TabIndex = 1386
+        Me.存檔_bt.Text = "存檔"
+        Me.存檔_bt.UseVisualStyleBackColor = True
+        '
+        '會科_dgv
+        '
+        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.會科_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.會科_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.會科_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.會科_dgv.Location = New System.Drawing.Point(3, 95)
+        Me.會科_dgv.Name = "會科_dgv"
+        Me.會科_dgv.RowHeadersWidth = 5
+        Me.會科_dgv.RowTemplate.Height = 24
+        Me.會科_dgv.Size = New System.Drawing.Size(210, 415)
+        Me.會科_dgv.TabIndex = 1385
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.Location = New System.Drawing.Point(5, 7)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(103, 16)
+        Me.Label16.TabIndex = 1375
+        Me.Label16.Text = "會計科目剃除計算"
+        '
+        'CanceL2_bt
+        '
+        Me.CanceL2_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.CanceL2_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.CanceL2_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.CanceL2_bt.ForeColor = System.Drawing.Color.Black
+        Me.CanceL2_bt.Location = New System.Drawing.Point(195, 2)
+        Me.CanceL2_bt.Name = "CanceL2_bt"
+        Me.CanceL2_bt.Size = New System.Drawing.Size(26, 26)
+        Me.CanceL2_bt.TabIndex = 1374
+        Me.CanceL2_bt.Text = "X"
+        Me.CanceL2_bt.UseVisualStyleBackColor = False
+        '
+        'Panel1
+        '
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.剔除存檔_dgv)
+        Me.Panel1.Location = New System.Drawing.Point(256, 138)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(200, 100)
+        Me.Panel1.TabIndex = 1506
+        '
+        '剔除存檔_dgv
+        '
+        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.剔除存檔_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.剔除存檔_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.剔除存檔_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.剔除存檔_dgv.Location = New System.Drawing.Point(3, 3)
+        Me.剔除存檔_dgv.Name = "剔除存檔_dgv"
+        Me.剔除存檔_dgv.RowHeadersWidth = 5
+        Me.剔除存檔_dgv.RowTemplate.Height = 24
+        Me.剔除存檔_dgv.Size = New System.Drawing.Size(192, 92)
+        Me.剔除存檔_dgv.TabIndex = 1386
+        '
         '營運成本收支單_對帳表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1254, 611)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.視窗2_pl)
+        Me.Controls.Add(Me.特別計算_bt)
         Me.Controls.Add(Me.只有支出_cb)
         Me.Controls.Add(Me.只有收入_cb)
         Me.Controls.Add(Me.非稅_ch)
         CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ContextMenuStrip1.ResumeLayout(False)
         CType(Me.字體_NUD, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.視窗2_pl.ResumeLayout(False)
+        Me.視窗2_pl.PerformLayout()
+        Me.Panel3.ResumeLayout(False)
+        Me.Panel3.PerformLayout()
+        CType(Me.會科_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        CType(Me.剔除存檔_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     Friend WithEvents 全部_ch As CheckBox
     Friend WithEvents 只有收入_cb As CheckBox
     Friend WithEvents 只有支出_cb As CheckBox
+    Friend WithEvents 特別計算_bt As Button
+    Friend WithEvents 視窗2_pl As Panel
+    Friend WithEvents Panel3 As Panel
+    Friend WithEvents 會科_dgv As DataGridView
+    Friend WithEvents Label16 As Label
+    Friend WithEvents CanceL2_bt As Button
+    Friend WithEvents 剔除後總和_tb As TextBox
+    Friend WithEvents Label18 As Label
+    Friend WithEvents 剔除後支出_tb As TextBox
+    Friend WithEvents Label17 As Label
+    Friend WithEvents 剔除後收入_tb As TextBox
+    Friend WithEvents Label15 As Label
+    Friend WithEvents 剃除計算_bt As Button
+    Friend WithEvents 存檔_bt As Button
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents 剔除存檔_dgv As DataGridView
 End Class

YD-ERP-SYS/財務系統管理/財務_對帳表.vb

 Public Class 營運成本收支單_對帳表
     ReadOnly conn1 As New SqlConnection
     ReadOnly cmd As New SqlCommand : ReadOnly cmd1 As New SqlCommand
-    ReadOnly ds As New DataSet
+    ReadOnly ds, ds1, ds2 As New DataSet
     Dim N2 As Integer
     Dim xlApp As Microsoft.Office.Interop.Excel.Application
     Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
             明細_dgv.ColumnHeadersHeight = 25
             明細_dgv.AllowUserToAddRows = False
             明細_dgv.RowTemplate.Height = 30
-            If 只有收入_cb.Checked = False And 只有支出_cb.Checked = False Then
-                SQL3 = ""
-            ElseIf 只有收入_cb.Checked = True And 只有支出_cb.Checked = False Then
-                SQL3 = " AND (Cast(公帳流水帳.支出 AS money) = 0)"
-            ElseIf 只有收入_cb.Checked = False And 只有支出_cb.Checked = True Then
-                SQL3 = " AND (Cast(公帳流水帳.收入 AS money) = 0)"
-            End If
+            If 只有收入_cb.Checked = False And 只有支出_cb.Checked = False Then : SQL3 = ""
+            ElseIf 只有收入_cb.Checked = True And 只有支出_cb.Checked = False Then : SQL3 = " AND (Cast(公帳流水帳.支出 AS money) = 0)"
+            ElseIf 只有收入_cb.Checked = False And 只有支出_cb.Checked = True Then : SQL3 = " AND (Cast(公帳流水帳.收入 AS money) = 0)" : End If
 
-            If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
-                SQL2 = "" & SQL3
-            ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
-                SQL2 = " AND (公帳流水帳.含稅 = 1)" & SQL3
-            ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
-                SQL2 = " AND (公帳流水帳.含稅 = 0 OR 公帳流水帳.含稅 IS NULL)" & SQL3
-            End If
+            If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then : SQL2 = "" & SQL3
+            ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then : SQL2 = " AND (公帳流水帳.含稅 = 1)" & SQL3
+            ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then : SQL2 = " AND (公帳流水帳.含稅 = 0 OR 公帳流水帳.含稅 IS NULL)" & SQL3 : End If
 
             SQL_營運成本收支單對帳表()
             da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close() : Set_grid()
+
+            If 視窗2_pl.Visible = True Then
+                Set_特別計算() : 剃除預設() : 剃除計算()
+            End If
         Catch ex As Exception
             MsgBox(ex.Message)
         End Try
         End Try
     End Sub
     Private Sub 營運成本收支單_對帳表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Try
-            Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-            現金_tb.Text = "0" : 支出_tb.Text = "0" : 損益_tb.Text = "0" : 零用金_tb.Text = "0" : 已兌現支票_tb.Text = "0" : 未兌現支票_tb.Text = "0"
-            現金1_tb.Text = "0" : 支出1_tb.Text = "0" : 損益1_tb.Text = "0" : 零用金1_tb.Text = "0" : 已兌現支票1_tb.Text = "0" : 未兌現支票1_tb.Text = "0"
-            SQL_營運成本收支單對帳表_修改會計() : conn.Close()
-            SQL_營運成本收支單對帳表_修改出納() : conn.Close()
-            SQL_營運成本收支單對帳表_修改現金() : conn.Close()
-            SQL_營運成本收支單對帳表_修改備用金() : conn.Close()
-            SQL_營運成本收支單對帳表_修改公帳() : conn.Close()
-            SQL_營運成本收支單對帳表_修改支票() : conn.Close()
-            SQL_營運成本收支單對帳表_修改日期() : conn.Close()
-            SQL_營運成本收支單對帳表_修改出納日期() : conn.Close()
+        Me.MdiParent = YD_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        視窗2_pl.Visible = False : Panel1.SendToBack()
+        現金_tb.Text = "0" : 支出_tb.Text = "0" : 損益_tb.Text = "0" : 零用金_tb.Text = "0" : 已兌現支票_tb.Text = "0" : 未兌現支票_tb.Text = "0"
+        現金1_tb.Text = "0" : 支出1_tb.Text = "0" : 損益1_tb.Text = "0" : 零用金1_tb.Text = "0" : 已兌現支票1_tb.Text = "0" : 未兌現支票1_tb.Text = "0"
+        SQL_營運成本收支單對帳表_修改會計() : conn.Close() : SQL_營運成本收支單對帳表_修改出納() : conn.Close() : SQL_營運成本收支單對帳表_修改現金() : conn.Close()
+        SQL_營運成本收支單對帳表_修改備用金() : conn.Close() : SQL_營運成本收支單對帳表_修改公帳() : conn.Close() : SQL_營運成本收支單對帳表_修改支票() : conn.Close()
+        SQL_營運成本收支單對帳表_修改日期() : conn.Close() : SQL_營運成本收支單對帳表_修改出納日期() : conn.Close()
 
-            ComboBox1下拉表單資料載入()
-            查詢日期_cb.Text = Year(Today) : 查詢日期1_cb.SelectedIndex = Month(Today) - 1
-            PA20 = "" : PA19 = "" : PA18 = "" : PA17 = 查詢日期_cb.Text : PA16 = 查詢日期1_cb.Text
-            PA20 = "AND (公帳控制表.審核日期 LIKE '" & PA17 & "/" & PA16 & "%') "
-            If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
-                字體_NUD.Value = 9 : 隱藏申請審核資訊_cb.Checked = False
-            ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then
-                字體_NUD.Value = 7.6 : 隱藏申請審核資訊_cb.Checked = True
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        ComboBox1下拉表單資料載入()
+        查詢日期_cb.Text = Year(Today) : 查詢日期1_cb.SelectedIndex = Month(Today) - 1
+        PA20 = "" : PA19 = "" : PA18 = "" : PA17 = 查詢日期_cb.Text : PA16 = 查詢日期1_cb.Text
+        PA20 = "AND (公帳控制表.審核日期 LIKE '" & PA17 & "/" & PA16 & "%') "
+        If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then : 字體_NUD.Value = 9 : 隱藏申請審核資訊_cb.Checked = False
+        ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then : 字體_NUD.Value = 7.6 : 隱藏申請審核資訊_cb.Checked = True : End If
     End Sub
     Private Sub 營運成本收支單_對帳表_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
-        Try
-            If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then
-                字體_NUD.Value = 9 : 隱藏申請審核資訊_cb.Checked = False
-            ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then
-                字體_NUD.Value = 7.6 : 隱藏申請審核資訊_cb.Checked = True
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        If YD_ERP_SYS.Size.Width > 1440 And YD_ERP_SYS.Size.Height > 900 Then : 字體_NUD.Value = 9 : 隱藏申請審核資訊_cb.Checked = False
+        ElseIf YD_ERP_SYS.Size.Width <= 1440 And YD_ERP_SYS.Size.Height <= 900 Then : 字體_NUD.Value = 7.6 : 隱藏申請審核資訊_cb.Checked = True : End If
     End Sub
     Dim 已超出 As Boolean
     Private Sub 明細_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 明細_dgv.MouseUp
     Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
         明細_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
     End Sub
+    '----------------------自創視窗滑鼠拖曳功能---------------------------------------------------------------------------------------------------------
+    Dim OldX, OldY As Long : Dim drag As Boolean
+    Private Sub CanceL2_bt_Click(sender As Object, e As EventArgs) Handles CanceL2_bt.Click
+        If 視窗2_pl.Visible = False Then
+            視窗2_pl.Visible = True : 視窗2_pl.BringToFront()
+        Else : 視窗2_pl.Visible = False
+            For i As Integer = 0 To 明細_dgv.Rows.Count - 1 : 明細_dgv.Rows(i).Cells("備註").Value = "" : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White : Next
+        End If
+    End Sub
+    Private Sub 視窗2_pl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseDown
+        If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If
+    End Sub
+    Private Sub 視窗2_pl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseMove
+        If drag Then : 視窗2_pl.Left = 視窗2_pl.Left + e.X - OldX : 視窗2_pl.Top = 視窗2_pl.Top + e.Y - OldY : End If
+    End Sub
+    Private Sub 視窗2_pl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseUp
+        drag = False
+    End Sub
+    Private Sub Set_特別計算()
+        剔除存檔_dgv.DataSource = Nothing : ds2.Clear()
+        剔除存檔_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        剔除存檔_dgv.ColumnHeadersHeight = 25 : 剔除存檔_dgv.AllowUserToAddRows = False : 剔除存檔_dgv.RowTemplate.Height = 25
+        SQL_剔除存檔()
+        da.Fill(ds2) : 剔除存檔_dgv.DataSource = ds2.Tables(0) : conn.Close()
+
+        會科_dgv.DataSource = Nothing : ds1.Clear()
+        會科_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        會科_dgv.ColumnHeadersHeight = 25 : 會科_dgv.AllowUserToAddRows = False : 會科_dgv.RowTemplate.Height = 25
+        PA = 查詢日期_cb.Text & "/" & 查詢日期1_cb.Text : SQL_剔除會科()
+        da.Fill(ds1) : 會科_dgv.DataSource = ds1.Tables(0) : conn.Close()
+        會科_dgv.Columns(0).FillWeight = 30 : 會科_dgv.Columns(2).Visible = False
+        For i As Integer = 0 To 會科_dgv.Rows.Count - 1
+            會科_dgv.Rows(i).Cells("選擇").Value = False
+            For II As Integer = 0 To 剔除存檔_dgv.Rows.Count - 1
+                If 會科_dgv.Rows(i).Cells("會計科目").Value.ToString = 剔除存檔_dgv.Rows(II).Cells("剔除會科").Value.ToString Then : 會科_dgv.Rows(i).Cells("選擇").Value = True : End If
+            Next
+        Next
+    End Sub
+    Private Sub 特別計算_bt_Click_1(sender As Object, e As EventArgs) Handles 特別計算_bt.Click
+        If 視窗2_pl.Visible = True Then : 視窗2_pl.Visible = False
+            For i As Integer = 0 To 明細_dgv.Rows.Count - 1 : 明細_dgv.Rows(i).Cells("備註").Value = "" : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White : Next
+        Else : 視窗2_pl.Visible = True : 視窗2_pl.BringToFront() : Set_特別計算() : 剃除預設() : 剃除計算() : End If
+    End Sub
+    Private Sub 會科_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 會科_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            If 會科_dgv.Rows(e.RowIndex).Cells("選擇").Value = False Then : 會科_dgv.Rows(e.RowIndex).Cells("選擇").Value = True
+            Else : 會科_dgv.Rows(e.RowIndex).Cells("選擇").Value = False : End If
+        End If
+    End Sub
+    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
+        For i As Integer = 0 To 會科_dgv.Rows.Count - 1
+            If 會科_dgv.Rows(i).Cells("選擇").Value = True Then
+                PA1 = 會科_dgv.Rows(i).Cells("會計科目").Value.ToString : SQL_剔除存檔比對() : If dr.Read Then : Else : SQL_剔除存檔新增() : End If
+            End If
+        Next : 剃除預設() : 剃除計算()
+    End Sub
+    Private Sub 剃除計算_bt_Click(sender As Object, e As EventArgs) Handles 剃除計算_bt.Click
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1 : 明細_dgv.Rows(i).Cells("備註").Value = "" : 明細_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White : Next
+        剃除預設() : 剃除計算()
+    End Sub
+    Private Sub 剃除預設()
+        For i As Integer = 0 To 會科_dgv.Rows.Count - 1
+            For II As Integer = 0 To 明細_dgv.Rows.Count - 1
+                If 會科_dgv.Rows(i).Cells("會計科目").Value.ToString = 明細_dgv.Rows(II).Cells("會計科目").Value.ToString And 會科_dgv.Rows(i).Cells("選擇").Value = True Then
+                    明細_dgv.Rows(II).Cells("備註").Value = "剔除" : 明細_dgv.Rows(II).DefaultCellStyle.BackColor = Color.Blue
+                End If
+            Next
+        Next
+    End Sub
+    Private Sub 剃除計算()
+        剔除後收入_tb.Text = "0" : 剔除後支出_tb.Text = "0" : 剔除後總和_tb.Text = "0"
+        For I As Integer = 0 To 明細_dgv.Rows.Count - 1
+            If 明細_dgv.Rows(I).Cells("備註").Value.ToString <> "剔除" Then
+                剔除後收入_tb.Text = Strings.Format(CInt(剔除後收入_tb.Text) + CInt(明細_dgv.Rows(I).Cells("收入").Value.ToString), "#,##0")
+                剔除後支出_tb.Text = Strings.Format(CInt(剔除後支出_tb.Text) + CInt(明細_dgv.Rows(I).Cells("支出").Value.ToString), "#,##0")
+            End If
+        Next : 剔除後總和_tb.Text = Strings.Format(CInt(剔除後支出_tb.Text) - CInt(剔除後收入_tb.Text), "#,##0")
+    End Sub
+    Private Sub 明細_dgv_CellDoubleClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 明細_dgv.CellDoubleClick
+        If e.RowIndex = -1 Then : Else
+            If 視窗2_pl.Visible = True Then
+                If 明細_dgv.Rows(e.RowIndex).Cells("備註").Value.ToString <> "剔除" Then
+                    明細_dgv.Rows(e.RowIndex).Cells("備註").Value = "剔除" : 明細_dgv.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Blue
+                ElseIf 明細_dgv.Rows(e.RowIndex).Cells("備註").Value.ToString = "剔除" Then
+                    明細_dgv.Rows(e.RowIndex).Cells("備註").Value = "" : 明細_dgv.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White
+                End If : 剃除計算()
+            End If
+        End If
+    End Sub
 End Class