應收帳款控制表與財務單具開立連接改寫完成

Signed-off-by: B70340 <b70340@gmail.com>

MaoOrange-Hongji/MAOJI-ERP-SYS.Designer.vb

@@ -553,6 +553,7 @@ Partial Class MAOJI_ERP_SYS
         '
         '票務控制表ToolStripMenuItem
         '
+        Me.票務控制表ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.票務控制表ToolStripMenuItem.Name = "票務控制表ToolStripMenuItem"
         Me.票務控制表ToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
         Me.票務控制表ToolStripMenuItem.Text = "票務控制表"

MaoOrange-Hongji/MAOJI-ERP-SYS.vb

@@ -238,4 +238,7 @@ Public Class MAOJI_ERP_SYS
     Private Sub 支票收支單申請ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 支票收支單申請ToolStripMenuItem.Click
         PA = "" : 支票收支單申請.Show() : 支票收支單申請.BringToFront()
     End Sub
+    Private Sub 票務控制表ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 票務控制表ToolStripMenuItem.Click
+        PA = "" : 票務控制表.Show() : 票務控制表.BringToFront()
+    End Sub
 End Class

MaoOrange-Hongji/MAOJI-ERP-SYS.vbproj

@@ -127,6 +127,24 @@
     <Compile Include="倉儲系統管理\倉儲入庫驗收.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="財務系統管理\財務單具申請.Designer.vb">
+      <DependentUpon>財務單具申請.vb</DependentUpon>
+    </Compile>
+    <Compile Include="財務系統管理\財務單具申請.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="財務系統管理\應付賬款控制表.Designer.vb">
+      <DependentUpon>應付賬款控制表.vb</DependentUpon>
+    </Compile>
+    <Compile Include="財務系統管理\應付賬款控制表.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="財務系統管理\票務控制表.Designer.vb">
+      <DependentUpon>票務控制表.vb</DependentUpon>
+    </Compile>
+    <Compile Include="財務系統管理\票務控制表.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="財務系統管理\支票收支單申請.Designer.vb">
       <DependentUpon>支票收支單申請.vb</DependentUpon>
     </Compile>
@@ -139,12 +157,6 @@
     <Compile Include="資料庫系統管理\系統通用變數管理.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="財務系統管理\應付賬款控制表.Designer.vb">
-      <DependentUpon>應付賬款控制表.vb</DependentUpon>
-    </Compile>
-    <Compile Include="財務系統管理\應付賬款控制表.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="財務系統管理\應收帳款控制表.Designer.vb">
       <DependentUpon>應收帳款控制表.vb</DependentUpon>
     </Compile>
@@ -463,15 +475,21 @@
     <EmbeddedResource Include="倉儲系統管理\倉儲入庫驗收.resx">
       <DependentUpon>倉儲入庫驗收.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="財務系統管理\財務單具申請.resx">
+      <DependentUpon>財務單具申請.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="財務系統管理\應付賬款控制表.resx">
+      <DependentUpon>應付賬款控制表.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="財務系統管理\票務控制表.resx">
+      <DependentUpon>票務控制表.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="財務系統管理\支票收支單申請.resx">
       <DependentUpon>支票收支單申請.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="資料庫系統管理\系統通用變數管理.resx">
       <DependentUpon>系統通用變數管理.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="財務系統管理\應付賬款控制表.resx">
-      <DependentUpon>應付賬款控制表.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="財務系統管理\應收帳款控制表.resx">
       <DependentUpon>應收帳款控制表.vb</DependentUpon>
     </EmbeddedResource>

MaoOrange-Hongji/Module1/Module1.vb

@@ -8,6 +8,7 @@
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 列印用SQL As String = "" : Public 列印用SQL2 As String : Public 公司編號 As String : Public 公司電話 As String : Public 公司統編 As String : Public 公司地址 As String
     Public 關鍵字編號 As String
+
     Public PA As String = "" : Public PA1 As String = "" : Public PA2 As String = "" : Public PA3 As String = "" : Public PA4 As String = "" : Public PA5 As String = "" : Public PA6 As String = ""
     Public PA7 As String = "" : Public PA8 As String = "" : Public PA9 As String = "" : Public PA10 As String = "" : Public PA11 As String = "" : Public PA12 As String = "" : Public PA13 As String = ""
     Public PA14 As String = "" : Public PA15 As String = "" : Public PA16 As String = "" : Public PA17 As String = "" : Public PA18 As String = "" : Public PA19 As String = ""
@@ -18,6 +19,8 @@
 
     Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
     Public KKKJJ As String : Public KKKJJ2 As String : Public KKKJJ3 As String
+
+    Public 收付應沖金額 As Double : Public 財務單申請狀態 As String : Public 收付對應財務單號 As String : Public 收付對應客戶供應商編號 As String
     Public Class MyModule1
         Friend Shared Sub 進度條()
             平均數 = 10000 / 資料數

MaoOrange-Hongji/Module1/SQL_Module.vb

@@ -197,6 +197,42 @@ Module SQL_Module
     Friend Sub SQL_營運成本明細表項次修改()
         ConnOpen() : SQL1 = "UPDATE 營運成本明細表 SET 項次 = N'" & PA1 & "' WHERE (流水號 LIKE '" & PA2 & "' AND 項次 LIKE '" & PA3 & "')" : CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_應付賬款_倉儲明細應付立帳修改()
+        ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 應付立帳 = '" & PA7 & "' WHERE 資料流水號 LIKE '" & PA6 & "'" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_支票收支單申請_客戶資料_零售()
+        ConnOpen() : SQL1 = "SELECT 客戶名稱 FROM 零售客戶記錄表 WHERE (出貨單號 LIKE N'" & PA & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_支票收支單申請_兌現科目_下拉清單一()
+        ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (編號 LIKE 'A-01-02%') AND (層級 LIKE '3')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_支票收支單申請_兌現科目_下拉清單二()
+        ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (編號 LIKE 'E%' OR 編號 LIKE 'F%') AND (統制科目 = 0) AND (停用 = 0) ORDER BY 編號" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_支票收支單申請修改()
+        ConnOpen()
+        SQL1 = "UPDATE 營運成本明細表 SET  用途 = N'" & PA1 & "', 金額 = N'" & NU1 & "', 備註 = N'" & PA2 & "' , 會計科目 = N'" & PA3 & "', 收款 = N'" & NU2 & "', 零用金 = N'" & NU3 &
+                                     "', 支票數 = N'" & NU4 & "', 狀態 = N'" & PA6 & "', 登錄人 = N'" & PA7 & "', 發票人帳號 = N'" & PA8 & "', 兌現科目 = N'" & PA9 & "', 付款銀行 = N'" & PA10 &
+                                     "', 倉儲單號 = N'" & PA11 & "', 支票號碼 = N'" & PA12 & "', 開票人 = N'" & PA13 & "', 到期日 = N'" & PA14 & "', 預定兌現日 = N'" & PA15 &
+                                     "', 開收票日 = N'" & PA16 & "'
+                WHERE (流水號 LIKE '" & PA4 & "' AND 項次 LIKE '" & PA5 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_支票收支單客戶供應商查詢()
+        If Left(PA, 1) = "F" Then
+            KKKJJ = "WHERE     (倉儲明細表.供應商編號 LIKE '" & PA & "')"
+        Else
+            KKKJJ = "WHERE     (倉儲明細表.客戶編號 LIKE '" & PA & "')"
+        End If
+        ConnOpen()
+        SQL1 = "SELECT     倉儲明細表.客戶編號, 倉儲明細表.供應商編號, 供應商資料表.簡稱 AS 供應商, 客戶資料表.簡稱 AS 客戶
+                FROM       倉儲明細表 INNER JOIN 供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 INNER JOIN
+                           客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號
+                " & KKKJJ & "
+                GROUP BY   倉儲明細表.供應商編號, 倉儲明細表.客戶編號, 供應商資料表.簡稱, 客戶資料表.簡稱"
+        CmdSet_For_dr()
+    End Sub
+
 
 
 
@@ -891,21 +927,21 @@ Module SQL_Module
                                (SELECT 營運成本明細表_3.會計科目 AS 細項, SUM(營運成本明細表_3.支票數) + SUM(營運成本明細表_3.收款) - 
                                        SUM(營運成本明細表_3.金額) - SUM(營運成本明細表_3.零用金) AS 細項金額
                                 FROM   營運成本明細表 AS 營運成本明細表_3 INNER JOIN 營運成本控制表 AS 營運成本控制表_3 ON 營運成本明細表_3.流水號 = 營運成本控制表_3.支付單號
-                                WHERE (營運成本控制表_3.審核日期 LIKE '" & 營運成本收支_決算表.ComboBox1.Text & "%') AND 
+                                WHERE (營運成本控制表_3.申請日期 LIKE '" & 營運成本收支_決算表.ComboBox1.Text & "%') AND 
                                       (營運成本控制表_3.公司編號 LIKE '%" & 公司編號 & "%')
                                 GROUP BY    營運成本明細表_3.會計科目) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(營運成本明細表_2.會計科目, 4) AS 主碼, SUM(營運成本明細表_2.支票數) + SUM(營運成本明細表_2.收款) - 
                                        SUM(營運成本明細表_2.金額) - SUM(營運成本明細表_2.零用金) AS 主項金額
                                 FROM   營運成本明細表 AS 營運成本明細表_2 INNER JOIN 營運成本控制表 AS 營運成本控制表_2 ON 營運成本明細表_2.流水號 = 營運成本控制表_2.支付單號
-                                WHERE (營運成本控制表_2.審核日期 LIKE '" & 營運成本收支_決算表.ComboBox1.Text & "%') AND 
+                                WHERE (營運成本控制表_2.申請日期 LIKE '" & 營運成本收支_決算表.ComboBox1.Text & "%') AND 
                                       (營運成本控制表_2.公司編號 LIKE '%" & 公司編號 & "%')
                                 GROUP BY    LEFT(營運成本明細表_2.會計科目, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(營運成本明細表_1.會計科目, 7) AS 子碼, SUM(營運成本明細表_1.支票數) + SUM(營運成本明細表_1.收款) - 
                                        SUM(營運成本明細表_1.金額) + SUM(營運成本明細表_1.零用金) AS 子項金額
                                 FROM   營運成本明細表 AS 營運成本明細表_1 INNER JOIN 營運成本控制表 AS 營運成本控制表_1 ON 營運成本明細表_1.流水號 = 營運成本控制表_1.支付單號
-                                WHERE (營運成本控制表_1.審核日期 LIKE '" & 營運成本收支_決算表.ComboBox1.Text & "%') AND 
+                                WHERE (營運成本控制表_1.申請日期 LIKE '" & 營運成本收支_決算表.ComboBox1.Text & "%') AND 
                                       (營運成本控制表_1.公司編號 LIKE '%" & 公司編號 & "%')
                                 GROUP BY    LEFT(營運成本明細表_1.會計科目, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
@@ -920,21 +956,21 @@ Module SQL_Module
                                (SELECT 營運成本明細表_3.會計科目 AS 細項, SUM(營運成本明細表_3.支票數) + SUM(營運成本明細表_3.收款) - 
                                        SUM(營運成本明細表_3.金額) - SUM(營運成本明細表_3.零用金) AS 細項金額
                                 FROM   營運成本明細表 AS 營運成本明細表_3 INNER JOIN 營運成本控制表 AS 營運成本控制表_3 ON 營運成本明細表_3.流水號 = 營運成本控制表_3.支付單號
-                                WHERE (營運成本控制表_3.審核日期 LIKE '" & 營運成本收支_決算表.ComboBox1.Text & "/" & PA & "/%') AND 
+                                WHERE (營運成本控制表_3.申請日期 LIKE '" & 營運成本收支_決算表.ComboBox1.Text & "/" & PA & "/%') AND 
                                       (營運成本控制表_3.公司編號 LIKE '%" & 公司編號 & "%')
                                 GROUP BY    營運成本明細表_3.會計科目) AS EERR ON 會計科目.編號 = EERR.細項 
                             FULL OUTER JOIN
                                (SELECT LEFT(營運成本明細表_2.會計科目, 4) AS 主碼, SUM(營運成本明細表_2.支票數) + SUM(營運成本明細表_2.收款) - 
                                        SUM(營運成本明細表_2.金額) - SUM(營運成本明細表_2.零用金) AS 主項金額
                                 FROM   營運成本明細表 AS 營運成本明細表_2 INNER JOIN 營運成本控制表 AS 營運成本控制表_2 ON 營運成本明細表_2.流水號 = 營運成本控制表_2.支付單號
-                                WHERE (營運成本控制表_2.審核日期 LIKE '" & 營運成本收支_決算表.ComboBox1.Text & "/" & PA & "/%') AND 
+                                WHERE (營運成本控制表_2.申請日期 LIKE '" & 營運成本收支_決算表.ComboBox1.Text & "/" & PA & "/%') AND 
                                       (營運成本控制表_2.公司編號 LIKE '%" & 公司編號 & "%')
                                 GROUP BY    LEFT(營運成本明細表_2.會計科目, 4)) AS QQWW ON LEFT(會計科目.編號, 4) = QQWW.主碼 
                             FULL OUTER JOIN
                                (SELECT LEFT(營運成本明細表_1.會計科目, 7) AS 子碼, SUM(營運成本明細表_1.支票數) + SUM(營運成本明細表_1.收款) - 
                                        SUM(營運成本明細表_1.金額) - SUM(營運成本明細表_1.零用金) AS 子項金額
                                 FROM   營運成本明細表 AS 營運成本明細表_1 INNER JOIN 營運成本控制表 AS 營運成本控制表_1 ON 營運成本明細表_1.流水號 = 營運成本控制表_1.支付單號
-                                WHERE (營運成本控制表_1.審核日期 LIKE '" & 營運成本收支_決算表.ComboBox1.Text & "/" & PA & "/%') AND 
+                                WHERE (營運成本控制表_1.申請日期 LIKE '" & 營運成本收支_決算表.ComboBox1.Text & "/" & PA & "/%') AND 
                                       (營運成本控制表_1.公司編號 LIKE '%" & 公司編號 & "%')
                                 GROUP BY    LEFT(營運成本明細表_1.會計科目, 7)) AS WWEE ON LEFT(會計科目.編號, 7) = WWEE.子碼
                 WHERE     (會計科目.顯示 = 1)
@@ -959,15 +995,16 @@ Module SQL_Module
         SQL1 = "SELECT      營運成本控制表.支付單號 AS 收支單號, 營運成本控制表.申請人, 營運成本控制表.申請日期, 營運成本控制表.審核人, 
                             營運成本控制表.審核日期, 營運成本明細表.項次, 會計科目.會計科目, 營運成本明細表.用途 AS 用途與內容, 
                             營運成本明細表.零用金 AS 開票, 營運成本明細表.支票數 AS 收票, 營運成本明細表.收款 AS 現金, 
-                            營運成本明細表.金額 AS 支出, 營運成本明細表.備註 AS 票期, 營運成本明細表.會計, 營運成本明細表.作帳日期, 
+                            營運成本明細表.金額 AS 支出, 營運成本明細表.備註, 營運成本明細表.會計, 營運成本明細表.作帳日期, 
                             營運成本明細表.出納 AS 點交, 營運成本明細表.出納日期 AS 點交日期, 營運成本明細表.備用金 AS 開票已付, 
                             營運成本明細表.支票 AS 收票兌現, 營運成本明細表.現金 AS 現金點交, 營運成本明細表.公帳 AS 支出點交
                 FROM        營運成本明細表 INNER JOIN
                             會計科目 ON 營運成本明細表.會計科目 = 會計科目.編號 FULL OUTER JOIN
                             營運成本控制表 ON 營運成本明細表.流水號 = 營運成本控制表.支付單號
-                WHERE      (營運成本控制表.公司編號 LIKE '%" & 公司編號 & "%') AND (營運成本控制表.審核人 NOT LIKE '') AND 
+                WHERE      (營運成本控制表.公司編號 LIKE '%" & 公司編號 & "%')  AND 
                            (營運成本控制表.審核人 NOT LIKE '作廢%') " & KKKJJ3 & KKKJJ & KKKJJ2 & " 
                 ORDER BY    收支單號 DESC, 營運成本明細表.項次"
+        'AND (營運成本控制表.審核人 NOT LIKE '')
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_營運成本明細表_會計歸零()
@@ -1115,9 +1152,6 @@ Module SQL_Module
     Friend Sub SQL_營運成本收支單審核_明細表修改()
         ConnOpen() : SQL1 = "UPDATE 營運成本明細表 SET 出納 = '1', 出納日期 = N'" & DTP & "' WHERE (流水號 LIKE '" & 財務收支單審核.TextBox1.Text & "')" : CmdSet_For_dr()
     End Sub
-    'Friend Sub SQL_營運成本收支單審核_明細表_備用金確認()
-    '    ConnOpen() : SQL1 = "UPDATE 營運成本明細表 SET  備用金 = N'1' WHERE (流水號 LIKE '" & PA1 & "' AND 項次 LIKE '" & PA2 & "')" : CmdSet_For_dr()
-    'End Sub
     Friend Sub SQL_營運成本收支單審核_明細表_現金確認()
         ConnOpen() : SQL1 = "UPDATE 營運成本明細表 SET  現金 = N'1' WHERE (流水號 LIKE '" & PA1 & "' AND 項次 LIKE '" & PA2 & "')" : CmdSet_For_dr()
     End Sub
@@ -1824,11 +1858,6 @@ Module SQL_Module
                 ORDER BY    倉儲明細表.料號 "
         CmdSet_For_DGV()
     End Sub
-    'Friend Sub SQL_維修單申請_客戶資料_零售一()
-    '    ConnOpen()
-    '    SQL1 = "SELECT  MJ付款方式.付款方式 FROM 客戶資料表 INNER JOIN MJ付款方式 ON 客戶資料表.付款方式 = MJ付款方式.編號 WHERE (客戶資料表.編號 LIKE N'" & 維修單申請.ComboBox3.Text & "')"
-    '    CmdSet_For_dr()
-    'End Sub
     Friend Sub SQL_維修單申請_客戶資料_零售二()
         ConnOpen()
         SQL1 = "SELECT 零售流水號, 客戶名稱, 統一編號, 郵遞區號, 店面地址, 送貨地址, 手機, 電話, 傳真, 出貨單號, 公司編號 FROM 零售客戶記錄表 WHERE (出貨單號 LIKE N'" & 維修單申請.TextBox9.Text & "')"
@@ -2112,30 +2141,58 @@ Module SQL_Module
                      ORDER BY 倉儲明細表.料號"
         CmdSet_For_DGV()
     End Sub
-    '---------------------應付賬款-----------------------------------------------------------------------------------------------------------------
-    Friend Sub SQL_應付賬款清單()
-        If 應付賬款控制表.CheckBox3.Checked = False Then
-            KKKJJ = " WHERE (倉儲明細表.狀態 LIKE '採購入庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 
-                            (倉儲明細表.採購下單 BETWEEN '" & Format(應付賬款控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應付賬款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "') "
-        ElseIf 應付賬款控制表.CheckBox3.Checked = True Then
-            KKKJJ = " WHERE (倉儲明細表.狀態 LIKE '採購入庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 
-                            (倉儲明細表.採購下單 BETWEEN '" & Format(應付賬款控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應付賬款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "') AND 
-                            (倉儲明細表.應付立帳 IS NULL OR 倉儲明細表.應付立帳 = 0)"
-        End If
+    '---------------------應付帳款控制表-----------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_應付賬款主單()
         ConnOpen()
-        SQL1 = "SELECT      倉儲明細表.單據編號, 倉儲明細表.供應商編號, 供應商資料表.簡稱 AS 供應商, 物料資料庫.料號, 
-                            物料資料庫.頁碼, 物料資料庫.品名, 倉儲明細表.金額 AS 單價, 倉儲明細表.匯率, 
-                            倉儲明細表.入庫, 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫 AS 金額, 
-                            倉儲明細表.採購下單, 倉儲明細表.入庫日期, 倉儲明細表.備註, 倉儲明細表.應收立帳 AS 選擇, 
-                            倉儲明細表.應付立帳, 倉儲明細表.資料流水號
+        SQL1 = "SELECT      倉儲明細表.供應商編號, 供應商資料表.簡稱 AS 供應商
                 FROM        倉儲明細表 LEFT OUTER JOIN
                             供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 LEFT OUTER JOIN
-                            物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號 " & KKKJJ & "
+                            物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號
+                WHERE      (倉儲明細表.狀態 LIKE '採購入庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 
+                           (倉儲明細表.採購下單 BETWEEN '" & Format(應付賬款控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應付賬款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "')
+                GROUP BY    倉儲明細表.供應商編號, 供應商資料表.簡稱
+                ORDER BY    倉儲明細表.供應商編號, 供應商資料表.簡稱"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_應付賬款清單一()
+        ConnOpen()
+        SQL1 = "SELECT      倉儲明細表.單據編號, 倉儲明細表.供應商編號, 供應商資料表.簡稱 AS 供應商, 物料資料庫.料號, 物料資料庫.頁碼, 物料資料庫.品名, 倉儲明細表.金額 AS 單價, 倉儲明細表.匯率, 
+                            倉儲明細表.入庫, 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫 AS 金額, 倉儲明細表.採購下單, 倉儲明細表.入庫日期, 倉儲明細表.備註, 倉儲明細表.應收立帳 AS 選擇, 
+                            倉儲明細表.應付立帳, 倉儲明細表.資料流水號, 倉儲明細表.財務單號, 營運成本控制表.申請日期
+                FROM        倉儲明細表 LEFT OUTER JOIN 營運成本控制表 ON 倉儲明細表.財務單號 = 營運成本控制表.支付單號 LEFT OUTER JOIN 供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 
+                            LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號
+                WHERE      (倉儲明細表.狀態 LIKE '採購入庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.供應商編號 LIKE '" & 應付賬款控制表.TextBox1.Text & "') AND 
+                           (倉儲明細表.採購下單 BETWEEN '" & Format(應付賬款控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應付賬款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "') 
                 ORDER BY    倉儲明細表.單據編號, 倉儲明細表.入庫日期"
         CmdSet_For_DGV()
     End Sub
-    Friend Sub SQL_應付賬款_倉儲明細應付立帳修改()
-        ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 應付立帳 = 1 WHERE 資料流水號 LIKE '" & PA6 & "'" : CmdSet_For_dr()
+    Friend Sub SQL_應付賬款清單二()
+        ConnOpen()
+        SQL1 = "SELECT      倉儲明細表.單據編號, 倉儲明細表.供應商編號, 供應商資料表.簡稱 AS 供應商, 物料資料庫.料號, 物料資料庫.頁碼, 物料資料庫.品名, 倉儲明細表.金額 AS 單價, 倉儲明細表.匯率, 
+                            倉儲明細表.入庫, 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫 AS 金額, 倉儲明細表.採購下單, 倉儲明細表.入庫日期, 倉儲明細表.備註, 倉儲明細表.應收立帳 AS 選擇, 
+                            倉儲明細表.應付立帳, 倉儲明細表.資料流水號, 倉儲明細表.財務單號, 營運成本控制表.申請日期
+                FROM        倉儲明細表 LEFT OUTER JOIN 營運成本控制表 ON 倉儲明細表.財務單號 = 營運成本控制表.支付單號 LEFT OUTER JOIN 供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 
+                            LEFT OUTER JOIN 物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號
+                WHERE      (倉儲明細表.狀態 LIKE '採購入庫') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.財務單號 LIKE '" & 應付賬款控制表.TextBox6.Text & "')
+                ORDER BY    倉儲明細表.單據編號, 倉儲明細表.入庫日期"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_應付賬款清單三()
+        ConnOpen()
+        SQL1 = "SELECT     營運成本明細表.流水號, 營運成本明細表.項次, QQ.會計科目 AS 開票會科, 營運成本明細表.會計科目, 營運成本明細表.用途, 營運成本明細表.零用金 AS 開票, 
+                           營運成本明細表.支票數 AS 收票, 營運成本明細表.金額 AS 付現, 營運成本明細表.收款 AS 收現, 營運成本明細表.備註, 營運成本明細表.備用金 AS 開票已付, 
+                           營運成本明細表.支票 AS 收票託收, 營運成本明細表.支票號碼, 營運成本明細表.狀態, 營運成本明細表.到期日, 營運成本明細表.預定兌現日, 營運成本明細表.開收票日, 
+                           營運成本明細表.託收已付日, WW.會計科目 AS 兌現會科, 營運成本明細表.兌現科目, 營運成本明細表.付款銀行, 營運成本明細表.開票人, 營運成本明細表.登錄人, 
+                           營運成本明細表.發票人帳號, 營運成本明細表.作帳日期, 營運成本明細表.出納日期, 營運成本明細表.倉儲單號
+                FROM       營運成本明細表 LEFT OUTER JOIN 會計科目 AS QQ ON 營運成本明細表.會計科目 = QQ.編號 LEFT OUTER JOIN 會計科目 AS WW ON 營運成本明細表.兌現科目 = WW.編號
+                WHERE     (營運成本明細表.公司編號 LIKE '%" & 公司編號 & "%') AND  (營運成本明細表.流水號 LIKE '" & 應付賬款控制表.TextBox6.Text & "') AND
+                          (營運成本明細表.作帳日期 BETWEEN '" & Format(應付賬款控制表.DateTimePicker1.Value, "yyyy/MM/dd") &
+                                                    "' AND '" & Format(應付賬款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "')
+                ORDER BY   營運成本明細表.項次"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_應收應付單號連接暫存檔新增()
+        ConnOpen() : SQL1 = "INSERT INTO 應收應付單號連接暫存檔 (流水單號)  VALUES (N'" & PA19 & "')" : CmdSet_For_dr()
     End Sub
     '---------------------系統通用變數管理-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_通用預設值管理清單一()
@@ -2176,19 +2233,11 @@ Module SQL_Module
     '---------------------支票收支單申請-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_支票收支單申請清單()
         ConnOpen()
-        If 支票收支單申請.RadioButton1.Checked = True And 支票收支單申請.RadioButton2.Checked = False And 支票收支單申請.RadioButton3.Checked = False Then
-            KKKJJ = "WHERE (營運成本明細表.狀態 NOT LIKE '%現%' OR 營運成本明細表.狀態 IS NULL OR 營運成本明細表.狀態 LIKE '') AND (營運成本控制表.審核人 LIKE '') AND 
-                           (營運成本控制表.公司編號 LIKE '%" & 公司編號 & "%')"
-        ElseIf 支票收支單申請.RadioButton1.Checked = False And 支票收支單申請.RadioButton2.Checked = True And 支票收支單申請.RadioButton3.Checked = False Then
-            KKKJJ = "WHERE (營運成本明細表.狀態 NOT LIKE '%現%' OR 營運成本明細表.狀態 IS NULL OR 營運成本明細表.狀態 LIKE '') AND (營運成本控制表.審核人 LIKE '作廢%') AND 
-                           (營運成本控制表.公司編號 LIKE '%" & 公司編號 & "%')"
-        ElseIf 支票收支單申請.RadioButton1.Checked = False And 支票收支單申請.RadioButton2.Checked = False And 支票收支單申請.RadioButton3.Checked = True Then
-            KKKJJ = "WHERE (營運成本明細表.狀態 NOT LIKE '%現%' OR 營運成本明細表.狀態 IS NULL OR 營運成本明細表.狀態 LIKE '') AND (營運成本控制表.審核人 NOT LIKE '作廢%') AND 
-                           (營運成本控制表.審核人 NOT LIKE '') AND (營運成本控制表.公司編號 LIKE '%" & 公司編號 & "%')"
-        End If
-        SQL1 = "SELECT    營運成本控制表.支付單號 AS 收支單號, 營運成本控制表.申請日期, 營運成本控制表.審核日期, 營運成本控制表.申請人
-                FROM      營運成本控制表 INNER JOIN 營運成本明細表 ON 營運成本控制表.支付單號 = 營運成本明細表.流水號 " & KKKJJ & " 
-                GROUP BY  營運成本控制表.支付單號, 營運成本控制表.申請日期, 營運成本控制表.審核日期, 營運成本控制表.申請人
+        SQL1 = "SELECT    營運成本控制表.支付單號 AS 收支單號, 營運成本控制表.申請日期, 營運成本控制表.審核日期, 營運成本控制表.申請人, 營運成本明細表.狀態
+                FROM      營運成本控制表 INNER JOIN 營運成本明細表 ON 營運成本控制表.支付單號 = 營運成本明細表.流水號 
+                WHERE    (營運成本明細表.狀態 NOT LIKE '%現%' OR 營運成本明細表.狀態 IS NULL OR 營運成本明細表.狀態 LIKE '') AND 
+                         (營運成本控制表.公司編號 LIKE '%" & 公司編號 & "%') 
+                GROUP BY  營運成本控制表.支付單號, 營運成本控制表.申請日期, 營運成本控制表.審核日期, 營運成本控制表.申請人, 營運成本明細表.狀態
                 ORDER BY  營運成本控制表.申請日期 DESC"
         CmdSet_For_DGV()
     End Sub
@@ -2204,43 +2253,137 @@ Module SQL_Module
                 ORDER BY    營運成本明細表.項次"
         CmdSet_For_DGV()
     End Sub
-    Friend Sub SQL_支票收支單客戶供應商查詢()
+    Friend Sub SQL_支票收支單申請_付款銀行_下拉清單()
+        ConnOpen() : SQL1 = "SELECT 付款銀行 FROM 營運成本明細表 GROUP BY   付款銀行" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_支票收支單申請複製單據新增()
         ConnOpen()
-        SQL1 = "SELECT     倉儲明細表.供應商編號, 倉儲明細表.客戶編號, 供應商資料表.簡稱 AS 供應商, 客戶資料表.簡稱 AS 客戶
-                FROM       倉儲明細表 INNER JOIN 供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 INNER JOIN
-                           客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號
-                WHERE     (倉儲明細表.單據編號 LIKE '" & PA & "')
-                GROUP BY   倉儲明細表.供應商編號, 倉儲明細表.客戶編號, 供應商資料表.簡稱, 客戶資料表.簡稱"
+        SQL1 = "INSERT INTO 營運成本明細表 (流水號, 項次, 會計科目, 用途, 金額, 備註, 收款, 零用金, 支票數, 會計, 出納, 現金, 備用金, 公帳, 支票, 作帳日期, 出納日期, 公司編號, 狀態, 登錄人, 
+                                                發票人帳號, 兌現科目, 付款銀行, 倉儲單號, 支票號碼, 開票人, 到期日, 預定兌現日, 開收票日) 
+                VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & NU1 & "', N'" & PA5 & "', N'" & NU2 & "', N'" & NU3 & "', N'" & NU4 &
+                    "', N'1', N'0', N'0', N'0', N'0', N'0', N'" & DTP & "', N'', N'" & 公司編號 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', N'" & PA9 &
+                    "', N'" & PA10 & "', N'" & PA11 & "', N'" & PA12 & "', N'" & PA13 & "', N'" & PA14 & "', N'" & PA15 & "', N'" & PA16 & "')"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_支票收支單申請_客戶資料_零售()
-        ConnOpen() : SQL1 = "SELECT 客戶名稱 FROM 零售客戶記錄表 WHERE (出貨單號 LIKE N'" & PA & "')" : CmdSet_For_dr()
+    Friend Sub SQL_支票收支單申請_營運成本控制表新增()
+        ConnOpen()
+        SQL1 = "INSERT INTO 營運成本控制表 (支付單號, 申請人, 申請日期, 審核人, 審核日期, 會計, 作帳日期, 出納, 出納日期, 備註, 公司編號) 
+                VALUES (N'" & PA & "', N'" & gUserName & "', N'" & DTP & "', N'" & gUserName & "', N'" & DTP & "', N'" & gUserName & "', N'" & DTP &
+                    "', N'" & gUserName & "', N'" & DTP & "', N'票據作業', N'" & 公司編號 & "')"
+        CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_支票收支單申請_兌現科目_下拉清單一()
-        ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (編號 LIKE 'A-01-02%') AND (層級 LIKE '3')" : CmdSet_For_dr()
+    '---------------------票務控制表-----------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_票務控制表清單()
+        ConnOpen()
+        SQL1 = "SELECT     營運成本明細表.流水號, 營運成本明細表.項次, QQ.會計科目 AS 開票會科, 營運成本明細表.會計科目, 營運成本明細表.用途, 營運成本明細表.零用金 AS 開票, 
+                           營運成本明細表.支票數 AS 收票, 營運成本明細表.備註, 營運成本明細表.備用金 AS 開票已付, 營運成本明細表.支票 AS 收票託收, 營運成本明細表.支票號碼, 
+                           營運成本明細表.狀態, 營運成本明細表.到期日, 營運成本明細表.預定兌現日, 營運成本明細表.開收票日, 營運成本明細表.託收已付日, WW.會計科目 AS 兌現會科, 
+                           營運成本明細表.兌現科目, 營運成本明細表.付款銀行, 營運成本明細表.開票人, 營運成本明細表.登錄人, 營運成本明細表.發票人帳號, 營運成本明細表.作帳日期, 
+                           營運成本明細表.出納日期, 營運成本明細表.倉儲單號
+                FROM       營運成本明細表 LEFT OUTER JOIN 會計科目 AS QQ ON 營運成本明細表.會計科目 = QQ.編號 LEFT OUTER JOIN 會計科目 AS WW ON 營運成本明細表.兌現科目 = WW.編號
+                WHERE     (營運成本明細表.狀態 LIKE '" & 票務控制表.ComboBox2.Text & "') AND (營運成本明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 
+                          (QQ.會計科目 LIKE '" & 票務控制表.ComboBox1.Text & "') AND (WW.會計科目 LIKE '%" & 票務控制表.ComboBox3.Text & "%') AND
+                          (營運成本明細表." & 票務控制表.ComboBox15.Text & " BETWEEN '" & Format(票務控制表.DateTimePicker1.Value, "yyyy/MM/dd") &
+                                                                              "' AND '" & Format(票務控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "')
+                ORDER BY   營運成本明細表." & 票務控制表.ComboBox15.Text & ""
+        CmdSet_For_DGV()
     End Sub
-    Friend Sub SQL_支票收支單申請_兌現科目_下拉清單二()
-        ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (編號 LIKE 'E%' OR 編號 LIKE 'F%') AND (統制科目 = 0) AND (停用 = 0) ORDER BY 編號" : CmdSet_For_dr()
+    Friend Sub SQL_票務控制表會科區分()
+        ConnOpen()
+        SQL1 = "SELECT     QQ.會計科目 AS 開票會科
+                FROM       營運成本明細表 LEFT OUTER JOIN 會計科目 AS QQ ON 營運成本明細表.會計科目 = QQ.編號 LEFT OUTER JOIN 會計科目 AS WW ON 營運成本明細表.兌現科目 = WW.編號
+                WHERE     (營運成本明細表.狀態 NOT LIKE '%現%') AND (營運成本明細表.公司編號 LIKE '%" & 公司編號 & "%')
+                GROUP BY   QQ.會計科目 ORDER BY QQ.會計科目 DESC"
+        CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_支票收支單申請_付款銀行_下拉清單()
-        ConnOpen() : SQL1 = "SELECT 付款銀行 FROM 營運成本明細表 GROUP BY   付款銀行" : CmdSet_For_dr()
+    Friend Sub SQL_票務控制表票況區分()
+        ConnOpen()
+        SQL1 = "SELECT     營運成本明細表.狀態
+                FROM       營運成本明細表 LEFT OUTER JOIN 會計科目 AS QQ ON 營運成本明細表.會計科目 = QQ.編號 LEFT OUTER JOIN 會計科目 AS WW ON 營運成本明細表.兌現科目 = WW.編號
+                WHERE     (營運成本明細表.狀態 NOT LIKE '%現%') AND (營運成本明細表.公司編號 LIKE '%" & 公司編號 & "%')
+                GROUP BY   營運成本明細表.狀態 ORDER BY 營運成本明細表.狀態"
+        CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_支票收支單申請修改()
+    Friend Sub SQL_票務控制表兌現科目()
         ConnOpen()
-        SQL1 = "UPDATE 營運成本明細表 SET  用途 = N'" & PA1 & "', 金額 = N'" & NU1 & "', 備註 = N'" & PA2 & "' , 會計科目 = N'" & PA3 & "', 收款 = N'" & NU2 & "', 零用金 = N'" & NU3 &
-                                     "', 支票數 = N'" & NU4 & "', 狀態 = N'" & PA6 & "', 登錄人 = N'" & PA7 & "', 發票人帳號 = N'" & PA8 & "', 兌現科目 = N'" & PA9 & "', 付款銀行 = N'" & PA10 &
-                                     "', 倉儲單號 = N'" & PA11 & "', 支票號碼 = N'" & PA12 & "', 開票人 = N'" & PA13 & "', 到期日 = N'" & PA14 & "', 預定兌現日 = N'" & PA15 &
-                                     "', 開收票日 = N'" & PA16 & "'
-                WHERE (流水號 LIKE '" & PA4 & "' AND 項次 LIKE '" & PA5 & "')"
+        SQL1 = "SELECT     WW.會計科目 AS 兌現會科
+                FROM       營運成本明細表 LEFT OUTER JOIN 會計科目 AS QQ ON 營運成本明細表.會計科目 = QQ.編號 LEFT OUTER JOIN 會計科目 AS WW ON 營運成本明細表.兌現科目 = WW.編號
+                WHERE     (營運成本明細表.狀態 NOT LIKE '%現%') AND (營運成本明細表.公司編號 LIKE '%" & 公司編號 & "%')
+                GROUP BY   WW.會計科目 ORDER BY WW.會計科目"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_支票收支單申請複製單據新增()
+    Friend Sub SQL_支票收支單_兌現科目_下拉清單三()
+        ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (編號 LIKE 'D%' OR 編號 LIKE 'G%') AND (統制科目 = 0) AND (停用 = 0) ORDER BY 編號" : CmdSet_For_dr()
+    End Sub
+    '---------------------財務單具申請-----------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_會計科目_第一階_應付_不含流動票務()
         ConnOpen()
-        SQL1 = "INSERT INTO 營運成本明細表 (流水號, 項次, 會計科目, 用途, 金額, 備註, 收款, 零用金, 支票數, 會計, 出納, 現金, 備用金, 公帳, 支票, 作帳日期, 出納日期, 公司編號, 狀態, 登錄人, 
-                                                發票人帳號, 兌現科目, 付款銀行, 倉儲單號, 支票號碼, 開票人, 到期日, 預定兌現日, 開收票日) 
-                VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & NU1 & "', N'" & PA5 & "', N'" & NU2 & "', N'" & NU3 & "', N'" & NU4 &
-                    "', N'0', N'0', N'0', N'0', N'0', N'0', N'" & DTP & "', N'', N'" & 公司編號 & "', N'" & PA6 & "', N'" & PA7 & "', N'" & PA8 & "', N'" & PA9 &
-                    "', N'" & PA10 & "', N'" & PA11 & "', N'" & PA12 & "', N'" & PA13 & "', N'" & PA14 & "', N'" & PA15 & "', N'" & PA16 & "')"
+        SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  
+                WHERE (編號 NOT LIKE 'D%') AND (編號 NOT LIKE 'G%') AND (停用 = 0) AND (第一階 NOT LIKE '流動%') GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號"
         CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_會計科目_第二階_應付_不含流動票務()
+        ConnOpen()
+        SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 
+                WHERE (編號 NOT LIKE 'D%') AND (編號 NOT LIKE 'G%') AND (LEFT(編號, 4) LIKE N'" & PA & "') AND (層級 NOT LIKE '3') AND (停用 = 0) AND (第一階 NOT LIKE '流動%')
+                GROUP BY   LEFT(編號, 7), 第二階, 層級 ORDER BY   編號"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_會計科目_第三階_應付_不含流動票務()
+        ConnOpen()
+        SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 
+                WHERE (編號 NOT LIKE 'D%') AND (編號 NOT LIKE 'G%') AND (LEFT(編號, 7) LIKE N'" & PA & "') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 NOT LIKE '流動%') ORDER BY 編號"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_會計科目_關鍵字_應付_不含流動票務()
+        ConnOpen()
+        SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 
+                WHERE (編號 NOT LIKE 'D%') AND (編號 NOT LIKE 'G%') AND (會計科目 LIKE N'%" & PA & "%') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 NOT LIKE '流動%') ORDER BY 編號"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_會計科目_第一階_應付_只含流動票務()
+        ConnOpen()
+        SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  
+                WHERE (編號 NOT LIKE 'A%') AND (停用 = 0) AND (第一階 LIKE '流動%') GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_會計科目_第二階_應付_只含流動票務()
+        ConnOpen()
+        SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 
+                WHERE (編號 NOT LIKE 'A%') AND (LEFT(編號, 4) LIKE N'" & PA & "') AND (層級 NOT LIKE '3') AND (停用 = 0) AND (第一階 LIKE '流動%')
+                GROUP BY   LEFT(編號, 7), 第二階, 層級 ORDER BY   編號"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_會計科目_第三階_應付_只含流動票務()
+        ConnOpen()
+        SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 
+                WHERE (編號 NOT LIKE 'A%') AND (LEFT(編號, 7) LIKE N'" & PA & "') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 LIKE '流動%') ORDER BY 編號"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_會計科目_關鍵字_應付_只含流動票務()
+        ConnOpen()
+        SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 
+                WHERE (編號 NOT LIKE 'A%') AND (會計科目 LIKE N'%" & PA & "%') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 LIKE '流動%') ORDER BY 編號"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_應收應付單號連接暫存檔讀取()
+        ConnOpen() : SQL1 = "SELECT 流水單號 FROM 應收應付單號連接暫存檔" : CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_應收應付單號連接暫存檔刪除()
+        ConnOpen() : SQL1 = "DELETE FROM 應收應付單號連接暫存檔" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_財務單具申請費用清單()
+        ConnOpen()
+        SQL1 = "SELECT      營運成本明細表.流水號, 營運成本明細表.項次, QQ.會計科目, 營運成本明細表.用途, 營運成本明細表.零用金 AS 開票, 營運成本明細表.支票數 AS 收票, 營運成本明細表.金額 AS 支出, 
+                            營運成本明細表.收款 AS 現金, 營運成本明細表.備註, 營運成本明細表.會計科目 AS 科目編號, 營運成本明細表.狀態, 營運成本明細表.倉儲單號, 營運成本明細表.支票號碼, 
+                            營運成本明細表.到期日, 營運成本明細表.預定兌現日, 營運成本明細表.開收票日, 營運成本明細表.託收已付日, 
+                            營運成本明細表.兌現科目, 營運成本明細表.付款銀行, 營運成本明細表.開票人, 營運成本明細表.登錄人, 營運成本明細表.發票人帳號
+                FROM        營運成本明細表 INNER JOIN 會計科目 AS QQ ON 營運成本明細表.會計科目 = QQ.編號
+                WHERE      (營運成本明細表.流水號 LIKE '" & 財務單具申請.TextBox1.Text & "')
+                ORDER BY    營運成本明細表.項次"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_倉儲明細表財務單號連接修改()
+        ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET  財務單號 = N'" & PA & "' WHERE (資料流水號 LIKE '" & PA19 & "')" : CmdSet_For_dr()
+    End Sub
 End Module

MaoOrange-Hongji/obj/Debug/MAOJI-ERP-SYS.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-d43cd04b8a7f93190e7a2002705b906efffffcd1
+b43126533b1c6358aea406aca2337ef3a341cb25

MaoOrange-Hongji/obj/Debug/MAOJI-ERP-SYS.vbproj.FileListAbsolute.txt

@@ -189,7 +189,6 @@ G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.銷售退貨申請.
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.銷售退貨清單.resources
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.銷售退貨確認.resources
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.列印_產品標籤介面.resources
-G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.應付賬款控制表.resources
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.應收帳款控制表.resources
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.系統通用變數管理.resources
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.財務收支單_對帳表.resources
@@ -198,3 +197,6 @@ G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.財務收支單審
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.現金收支單申請.resources
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.採購退貨清單.resources
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.支票收支單申請.resources
+G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.票務控制表.resources
+G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.財務單具申請.resources
+G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.應付賬款控制表.resources

MaoOrange-Hongji/採購系統管理/採購控制表.Designer.vb

@@ -23,9 +23,9 @@ Partial Class 採購控制表
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        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 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()
         Me.TextBox4 = New System.Windows.Forms.TextBox()
         Me.TextBox1 = New System.Windows.Forms.TextBox()
         Me.TextBox6 = New System.Windows.Forms.TextBox()
@@ -50,6 +50,7 @@ Partial Class 採購控制表
         Me.CheckBox2 = New System.Windows.Forms.CheckBox()
         Me.一般月 = New System.Windows.Forms.CheckBox()
         Me.會計月 = New System.Windows.Forms.CheckBox()
+        Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker()
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
         CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -153,8 +154,8 @@ Partial Class 採購控制表
         Me.DataGridView1.Location = New System.Drawing.Point(250, 57)
         Me.DataGridView1.Name = "DataGridView1"
         Me.DataGridView1.RowHeadersWidth = 5
-        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.DataGridView1.RowTemplate.Height = 24
         Me.DataGridView1.Size = New System.Drawing.Size(1657, 918)
         Me.DataGridView1.TabIndex = 1084
@@ -231,8 +232,8 @@ Partial Class 採購控制表
         '
         'DataGridView2
         '
-        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
         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
@@ -240,8 +241,8 @@ Partial Class 採購控制表
         Me.DataGridView2.Location = New System.Drawing.Point(7, 57)
         Me.DataGridView2.Name = "DataGridView2"
         Me.DataGridView2.RowHeadersWidth = 5
-        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView2.RowsDefaultCellStyle = DataGridViewCellStyle9
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView2.RowsDefaultCellStyle = DataGridViewCellStyle6
         Me.DataGridView2.RowTemplate.Height = 24
         Me.DataGridView2.Size = New System.Drawing.Size(237, 918)
         Me.DataGridView2.TabIndex = 1085
@@ -291,18 +292,28 @@ Partial Class 採購控制表
         Me.會計月.AutoSize = True
         Me.會計月.Checked = True
         Me.會計月.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.會計月.Location = New System.Drawing.Point(29, 30)
+        Me.會計月.Location = New System.Drawing.Point(11, 31)
         Me.會計月.Name = "會計月"
         Me.會計月.Size = New System.Drawing.Size(63, 20)
         Me.會計月.TabIndex = 1099
         Me.會計月.Text = "會計月"
         Me.會計月.UseVisualStyleBackColor = True
         '
+        'DateTimePicker4
+        '
+        Me.DateTimePicker4.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker4.Location = New System.Drawing.Point(80, 30)
+        Me.DateTimePicker4.Name = "DateTimePicker4"
+        Me.DateTimePicker4.Size = New System.Drawing.Size(43, 23)
+        Me.DateTimePicker4.TabIndex = 1167
+        '
         '採購控制表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 981)
+        Me.Controls.Add(Me.DateTimePicker4)
         Me.Controls.Add(Me.一般月)
         Me.Controls.Add(Me.會計月)
         Me.Controls.Add(Me.CheckBox3)
@@ -361,4 +372,5 @@ Partial Class 採購控制表
     Friend WithEvents CheckBox2 As CheckBox
     Friend WithEvents 一般月 As CheckBox
     Friend WithEvents 會計月 As CheckBox
+    Friend WithEvents DateTimePicker4 As DateTimePicker
 End Class

MaoOrange-Hongji/採購系統管理/採購控制表.vb

@@ -106,13 +106,13 @@ Public Class 採購控制表
             DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(1)
             DTP = Strings.Left(Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker1.Value = DTP
             '-------------日期二----------------------------------------------------------------------------------------
-            Dim iDays As Integer = DateTime.DaysInMonth(Strings.Left(Format(DateTimePicker2.Value, "yyyy/MM/dd"), 4), Strings.Mid(Format(DateTimePicker2.Value, "yyyy/MM/dd"), 6, 2))
-            DTP = Strings.Left(Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & iDays : DateTimePicker2.Value = DTP
+            DTP = Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker2.Value = DTP
+            DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(1) : DateTimePicker2.Value = DateTimePicker2.Value.AddDays(-1)
         End If
     End Sub
     Private Sub 採購控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        日期格式() : CheckBox1.Checked = True
+        日期格式() : CheckBox1.Checked = True : DateTimePicker4.Visible = False
     End Sub
     Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
         If e.RowIndex = -1 Then : Else
@@ -154,10 +154,28 @@ Public Class 採購控制表
         Next
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(-1) : DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(-1)
+        If 會計月.Checked = True Then
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker1.Value = DateTimePicker4.Value
+            DateTimePicker2.Value = DateTimePicker4.Value
+        Else
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker1.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker2.Value = DateTimePicker4.Value
+        End If
+        日期格式()
     End Sub
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(1) : DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(1)
+        If 會計月.Checked = True Then
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(1)
+            DateTimePicker1.Value = DateTimePicker4.Value
+            DateTimePicker2.Value = DateTimePicker4.Value
+        Else
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(1)
+            DateTimePicker1.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker2.Value = DateTimePicker4.Value
+        End If
+        日期格式()
     End Sub
     Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
         Set_清單() : Set_清單1() : 格式設定()

MaoOrange-Hongji/業務系統管理/銷售控制表.Designer.vb

@@ -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.Button2 = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.Label4 = New System.Windows.Forms.Label()
@@ -77,6 +77,7 @@ Partial Class 銷售控制表
         Me.CheckBox3 = New System.Windows.Forms.CheckBox()
         Me.會計月 = New System.Windows.Forms.CheckBox()
         Me.一般月 = New System.Windows.Forms.CheckBox()
+        Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker()
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
         CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -86,7 +87,7 @@ 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.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Button2.Location = New System.Drawing.Point(107, 48)
+        Me.Button2.Location = New System.Drawing.Point(107, 50)
         Me.Button2.Name = "Button2"
         Me.Button2.Size = New System.Drawing.Size(97, 25)
         Me.Button2.TabIndex = 272
@@ -97,7 +98,7 @@ Partial Class 銷售控制表
         '
         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(6, 48)
+        Me.Button1.Location = New System.Drawing.Point(6, 50)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(97, 25)
         Me.Button1.TabIndex = 271
@@ -139,8 +140,8 @@ Partial Class 銷售控制表
         Me.DataGridView1.Location = New System.Drawing.Point(379, 76)
         Me.DataGridView1.Name = "DataGridView1"
         Me.DataGridView1.RowHeadersWidth = 5
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle1
         Me.DataGridView1.RowTemplate.Height = 24
         Me.DataGridView1.Size = New System.Drawing.Size(866, 529)
         Me.DataGridView1.TabIndex = 1057
@@ -506,8 +507,8 @@ Partial Class 銷售控制表
         '
         'DataGridView2
         '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         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
@@ -515,8 +516,8 @@ Partial Class 銷售控制表
         Me.DataGridView2.Location = New System.Drawing.Point(6, 76)
         Me.DataGridView2.Name = "DataGridView2"
         Me.DataGridView2.RowHeadersWidth = 5
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView2.RowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView2.RowsDefaultCellStyle = DataGridViewCellStyle3
         Me.DataGridView2.RowTemplate.Height = 24
         Me.DataGridView2.Size = New System.Drawing.Size(367, 529)
         Me.DataGridView2.TabIndex = 1086
@@ -583,7 +584,7 @@ Partial Class 銷售控制表
         Me.會計月.AutoSize = True
         Me.會計月.Checked = True
         Me.會計月.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.會計月.Location = New System.Drawing.Point(27, 27)
+        Me.會計月.Location = New System.Drawing.Point(9, 29)
         Me.會計月.Name = "會計月"
         Me.會計月.Size = New System.Drawing.Size(63, 20)
         Me.會計月.TabIndex = 1093
@@ -593,19 +594,29 @@ Partial Class 銷售控制表
         '一般月
         '
         Me.一般月.AutoSize = True
-        Me.一般月.Location = New System.Drawing.Point(138, 28)
+        Me.一般月.Location = New System.Drawing.Point(138, 30)
         Me.一般月.Name = "一般月"
         Me.一般月.Size = New System.Drawing.Size(63, 20)
         Me.一般月.TabIndex = 1094
         Me.一般月.Text = "一般月"
         Me.一般月.UseVisualStyleBackColor = True
         '
+        'DateTimePicker4
+        '
+        Me.DateTimePicker4.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker4.Location = New System.Drawing.Point(78, 27)
+        Me.DateTimePicker4.Name = "DateTimePicker4"
+        Me.DateTimePicker4.Size = New System.Drawing.Size(43, 23)
+        Me.DateTimePicker4.TabIndex = 1167
+        '
         '銷售控制表
         '
         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.DateTimePicker4)
         Me.Controls.Add(Me.一般月)
         Me.Controls.Add(Me.會計月)
         Me.Controls.Add(Me.CheckBox3)
@@ -718,4 +729,5 @@ Partial Class 銷售控制表
     Friend WithEvents CheckBox3 As CheckBox
     Friend WithEvents 會計月 As CheckBox
     Friend WithEvents 一般月 As CheckBox
+    Friend WithEvents DateTimePicker4 As DateTimePicker
 End Class

MaoOrange-Hongji/業務系統管理/銷售控制表.vb

@@ -108,13 +108,13 @@ Public Class 銷售控制表
             DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(1)
             DTP = Strings.Left(Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker1.Value = DTP
             '-------------日期二----------------------------------------------------------------------------------------
-            Dim iDays As Integer = DateTime.DaysInMonth(Strings.Left(Format(DateTimePicker2.Value, "yyyy/MM/dd"), 4), Strings.Mid(Format(DateTimePicker2.Value, "yyyy/MM/dd"), 6, 2))
-            DTP = Strings.Left(Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & iDays : DateTimePicker2.Value = DTP
+            DTP = Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker2.Value = DTP
+            DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(1) : DateTimePicker2.Value = DateTimePicker2.Value.AddDays(-1)
         End If
     End Sub
     Private Sub 銷售控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        DateTimePicker1.Value = Today() : DateTimePicker2.Value = Today()
+        DateTimePicker1.Value = Today() : DateTimePicker2.Value = Today() : DateTimePicker4.Visible = False
         日期格式()
         CheckBox1.Checked = True
     End Sub
@@ -164,10 +164,28 @@ Public Class 銷售控制表
         Next
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(-1) : DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(-1)
+        If 會計月.Checked = True Then
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker1.Value = DateTimePicker4.Value
+            DateTimePicker2.Value = DateTimePicker4.Value
+        Else
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker1.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker2.Value = DateTimePicker4.Value
+        End If
+        日期格式()
     End Sub
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(1) : DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(1)
+        If 會計月.Checked = True Then
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(1)
+            DateTimePicker1.Value = DateTimePicker4.Value
+            DateTimePicker2.Value = DateTimePicker4.Value
+        Else
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(1)
+            DateTimePicker1.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker2.Value = DateTimePicker4.Value
+        End If
+        日期格式()
     End Sub
     Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
         Set_清單() : Set_清單1() : 格式設定()

MaoOrange-Hongji/生產系統管理/生產控制表.Designer.vb

@@ -23,10 +23,10 @@ Partial Class 生產控制表
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        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 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()
         Me.Label22 = New System.Windows.Forms.Label()
         Me.TextBox10 = New System.Windows.Forms.TextBox()
         Me.TextBox13 = New System.Windows.Forms.TextBox()
@@ -54,6 +54,7 @@ Partial Class 生產控制表
         Me.CheckBox5 = New System.Windows.Forms.CheckBox()
         Me.一般月 = New System.Windows.Forms.CheckBox()
         Me.會計月 = New System.Windows.Forms.CheckBox()
+        Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker()
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
         CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -169,8 +170,8 @@ Partial Class 生產控制表
         Me.DataGridView1.Location = New System.Drawing.Point(425, 55)
         Me.DataGridView1.Name = "DataGridView1"
         Me.DataGridView1.RowHeadersWidth = 5
-        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle9
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle5
         Me.DataGridView1.RowTemplate.Height = 24
         Me.DataGridView1.Size = New System.Drawing.Size(817, 550)
         Me.DataGridView1.TabIndex = 1068
@@ -237,8 +238,8 @@ Partial Class 生產控制表
         '
         'DataGridView2
         '
-        DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
         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
@@ -246,8 +247,8 @@ Partial Class 生產控制表
         Me.DataGridView2.Location = New System.Drawing.Point(7, 55)
         Me.DataGridView2.Name = "DataGridView2"
         Me.DataGridView2.RowHeadersWidth = 5
-        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView2.RowsDefaultCellStyle = DataGridViewCellStyle11
+        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView2.RowsDefaultCellStyle = DataGridViewCellStyle7
         Me.DataGridView2.RowTemplate.Height = 24
         Me.DataGridView2.Size = New System.Drawing.Size(412, 550)
         Me.DataGridView2.TabIndex = 1086
@@ -261,8 +262,8 @@ Partial Class 生產控制表
         Me.DataGridView3.Location = New System.Drawing.Point(425, 55)
         Me.DataGridView3.Name = "DataGridView3"
         Me.DataGridView3.RowHeadersWidth = 5
-        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView3.RowsDefaultCellStyle = DataGridViewCellStyle12
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView3.RowsDefaultCellStyle = DataGridViewCellStyle8
         Me.DataGridView3.RowTemplate.Height = 24
         Me.DataGridView3.Size = New System.Drawing.Size(817, 550)
         Me.DataGridView3.TabIndex = 1087
@@ -320,7 +321,7 @@ Partial Class 生產控制表
         '一般月
         '
         Me.一般月.AutoSize = True
-        Me.一般月.Location = New System.Drawing.Point(142, 30)
+        Me.一般月.Location = New System.Drawing.Point(140, 30)
         Me.一般月.Name = "一般月"
         Me.一般月.Size = New System.Drawing.Size(63, 20)
         Me.一般月.TabIndex = 1098
@@ -332,19 +333,29 @@ Partial Class 生產控制表
         Me.會計月.AutoSize = True
         Me.會計月.Checked = True
         Me.會計月.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.會計月.Location = New System.Drawing.Point(31, 29)
+        Me.會計月.Location = New System.Drawing.Point(10, 30)
         Me.會計月.Name = "會計月"
         Me.會計月.Size = New System.Drawing.Size(63, 20)
         Me.會計月.TabIndex = 1097
         Me.會計月.Text = "會計月"
         Me.會計月.UseVisualStyleBackColor = True
         '
+        'DateTimePicker4
+        '
+        Me.DateTimePicker4.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker4.Location = New System.Drawing.Point(79, 29)
+        Me.DateTimePicker4.Name = "DateTimePicker4"
+        Me.DateTimePicker4.Size = New System.Drawing.Size(43, 23)
+        Me.DateTimePicker4.TabIndex = 1167
+        '
         '生產控制表
         '
         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.DateTimePicker4)
         Me.Controls.Add(Me.一般月)
         Me.Controls.Add(Me.會計月)
         Me.Controls.Add(Me.CheckBox5)
@@ -409,4 +420,5 @@ Partial Class 生產控制表
     Friend WithEvents CheckBox5 As CheckBox
     Friend WithEvents 一般月 As CheckBox
     Friend WithEvents 會計月 As CheckBox
+    Friend WithEvents DateTimePicker4 As DateTimePicker
 End Class

MaoOrange-Hongji/生產系統管理/生產控制表.vb

@@ -167,13 +167,13 @@ Public Class 生產控制表
             DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(1)
             DTP = Strings.Left(Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker1.Value = DTP
             '-------------日期二----------------------------------------------------------------------------------------
-            Dim iDays As Integer = DateTime.DaysInMonth(Strings.Left(Format(DateTimePicker2.Value, "yyyy/MM/dd"), 4), Strings.Mid(Format(DateTimePicker2.Value, "yyyy/MM/dd"), 6, 2))
-            DTP = Strings.Left(Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & iDays : DateTimePicker2.Value = DTP
+            DTP = Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker2.Value = DTP
+            DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(1) : DateTimePicker2.Value = DateTimePicker2.Value.AddDays(-1)
         End If
     End Sub
     Private Sub 生產控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        DataGridView1.Visible = False : 日期格式() : CheckBox1.Checked = True : CheckBox5.Checked = True
+        DataGridView1.Visible = False : 日期格式() : CheckBox1.Checked = True : CheckBox5.Checked = True : DateTimePicker4.Visible = False
     End Sub
     Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
         If e.RowIndex = -1 Then : Else
@@ -259,10 +259,28 @@ Public Class 生產控制表
         End If
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(-1) : DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(-1)
+        If 會計月.Checked = True Then
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker1.Value = DateTimePicker4.Value
+            DateTimePicker2.Value = DateTimePicker4.Value
+        Else
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker1.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker2.Value = DateTimePicker4.Value
+        End If
+        日期格式()
     End Sub
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(1) : DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(1)
+        If 會計月.Checked = True Then
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(1)
+            DateTimePicker1.Value = DateTimePicker4.Value
+            DateTimePicker2.Value = DateTimePicker4.Value
+        Else
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(1)
+            DateTimePicker1.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker2.Value = DateTimePicker4.Value
+        End If
+        日期格式()
     End Sub
     Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
         Set_清單() : Set_清單1() : Set_清單2() : 格式設定() : 格式設定1() : 格式設定2() : 格式設定3()

MaoOrange-Hongji/財務系統管理/司機佣金計算.Designer.vb

@@ -23,8 +23,8 @@ Partial Class 司機佣金計算
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        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 DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Button6 = New System.Windows.Forms.Button()
         Me.TextBox2 = New System.Windows.Forms.TextBox()
         Me.CheckBox1 = New System.Windows.Forms.CheckBox()
@@ -61,12 +61,13 @@ Partial Class 司機佣金計算
         Me.重新整理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
         Me.依據單號全部選擇ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.依據單號取消立帳ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.全部選擇ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.全部取消ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
         Me.列印成EXCELToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.依據單號取消立帳ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.開立收支單ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker()
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.SuspendLayout()
@@ -385,8 +386,8 @@ Partial Class 司機佣金計算
         '
         'DataGridView1
         '
-        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.DataGridView1.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)
@@ -396,8 +397,8 @@ Partial Class 司機佣金計算
         Me.DataGridView1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.DataGridView1.Name = "DataGridView1"
         Me.DataGridView1.RowHeadersWidth = 5
-        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle14
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.DataGridView1.RowTemplate.Height = 24
         Me.DataGridView1.Size = New System.Drawing.Size(1225, 545)
         Me.DataGridView1.TabIndex = 1132
@@ -406,72 +407,82 @@ Partial Class 司機佣金計算
         '
         Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新整理ToolStripMenuItem, Me.ToolStripSeparator3, Me.依據單號全部選擇ToolStripMenuItem, Me.依據單號取消立帳ToolStripMenuItem, Me.全部選擇ToolStripMenuItem, Me.全部取消ToolStripMenuItem, Me.ToolStripSeparator1, Me.列印成EXCELToolStripMenuItem, Me.開立收支單ToolStripMenuItem})
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 192)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(171, 170)
         '
         '重新整理ToolStripMenuItem
         '
         Me.重新整理ToolStripMenuItem.Name = "重新整理ToolStripMenuItem"
-        Me.重新整理ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.重新整理ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
         Me.重新整理ToolStripMenuItem.Text = "重新整理"
         '
         'ToolStripSeparator3
         '
         Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
-        Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator3.Size = New System.Drawing.Size(167, 6)
         '
         '依據單號全部選擇ToolStripMenuItem
         '
         Me.依據單號全部選擇ToolStripMenuItem.ForeColor = System.Drawing.Color.Olive
         Me.依據單號全部選擇ToolStripMenuItem.Name = "依據單號全部選擇ToolStripMenuItem"
-        Me.依據單號全部選擇ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.依據單號全部選擇ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
         Me.依據單號全部選擇ToolStripMenuItem.Text = "依據單號全部選擇"
         '
+        '依據單號取消立帳ToolStripMenuItem
+        '
+        Me.依據單號取消立帳ToolStripMenuItem.ForeColor = System.Drawing.Color.Olive
+        Me.依據單號取消立帳ToolStripMenuItem.Name = "依據單號取消立帳ToolStripMenuItem"
+        Me.依據單號取消立帳ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
+        Me.依據單號取消立帳ToolStripMenuItem.Text = "依據單號取消立帳"
+        '
         '全部選擇ToolStripMenuItem
         '
         Me.全部選擇ToolStripMenuItem.ForeColor = System.Drawing.Color.Olive
         Me.全部選擇ToolStripMenuItem.Name = "全部選擇ToolStripMenuItem"
-        Me.全部選擇ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.全部選擇ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
         Me.全部選擇ToolStripMenuItem.Text = "全部選擇"
         '
         '全部取消ToolStripMenuItem
         '
         Me.全部取消ToolStripMenuItem.ForeColor = System.Drawing.Color.Olive
         Me.全部取消ToolStripMenuItem.Name = "全部取消ToolStripMenuItem"
-        Me.全部取消ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.全部取消ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
         Me.全部取消ToolStripMenuItem.Text = "全部取消"
         '
         'ToolStripSeparator1
         '
         Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(167, 6)
         '
         '列印成EXCELToolStripMenuItem
         '
         Me.列印成EXCELToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.列印成EXCELToolStripMenuItem.Name = "列印成EXCELToolStripMenuItem"
-        Me.列印成EXCELToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.列印成EXCELToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
         Me.列印成EXCELToolStripMenuItem.Text = "列印成EXCEL"
         '
-        '依據單號取消立帳ToolStripMenuItem
-        '
-        Me.依據單號取消立帳ToolStripMenuItem.ForeColor = System.Drawing.Color.Olive
-        Me.依據單號取消立帳ToolStripMenuItem.Name = "依據單號取消立帳ToolStripMenuItem"
-        Me.依據單號取消立帳ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
-        Me.依據單號取消立帳ToolStripMenuItem.Text = "依據單號取消立帳"
-        '
         '開立收支單ToolStripMenuItem
         '
         Me.開立收支單ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.開立收支單ToolStripMenuItem.Name = "開立收支單ToolStripMenuItem"
-        Me.開立收支單ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.開立收支單ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
         Me.開立收支單ToolStripMenuItem.Text = "開立收支單"
         '
+        'DateTimePicker4
+        '
+        Me.DateTimePicker4.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker4.Location = New System.Drawing.Point(668, 136)
+        Me.DateTimePicker4.Name = "DateTimePicker4"
+        Me.DateTimePicker4.Size = New System.Drawing.Size(175, 23)
+        Me.DateTimePicker4.TabIndex = 1167
+        '
         '司機佣金計算
         '
         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.DateTimePicker4)
         Me.Controls.Add(Me.Button6)
         Me.Controls.Add(Me.TextBox2)
         Me.Controls.Add(Me.CheckBox1)
@@ -557,4 +568,5 @@ Partial Class 司機佣金計算
     Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
     Friend WithEvents 列印成EXCELToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents 開立收支單ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents DateTimePicker4 As DateTimePicker
 End Class

MaoOrange-Hongji/財務系統管理/司機佣金計算.vb

@@ -70,13 +70,13 @@ Public Class 司機佣金計算
             DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(1)
             DTP = Strings.Left(Strings.Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker1.Value = DTP
             '-------------日期二----------------------------------------------------------------------------------------
-            Dim iDays As Integer = DateTime.DaysInMonth(Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 4), Strings.Mid(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 6, 2))
-            DTP = Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & iDays : DateTimePicker2.Value = DTP
+            DTP = Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker2.Value = DTP
+            DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(1) : DateTimePicker2.Value = DateTimePicker2.Value.AddDays(-1)
         End If
     End Sub
     Private Sub 司機佣金計算_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        ComboBox6.Visible = False : TextBox2.Visible = False
+        ComboBox6.Visible = False : TextBox2.Visible = False : DateTimePicker4.Visible = False
         ComboBox1下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox6下拉表單資料載入() : ComboBox2下拉表單資料載入() : ComboBox2.SelectedIndex = 0 : 日期格式() : Set_司機佣金清單()
     End Sub
     Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
@@ -120,10 +120,28 @@ Public Class 司機佣金計算
         If ComboBox7.Items.Count <> 0 Then : ComboBox7.SelectedIndex = 0 : End If : PA = ""
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(-1) : DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(-1) : Set_司機佣金清單()
+        If 會計月.Checked = True Then
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker1.Value = DateTimePicker4.Value
+            DateTimePicker2.Value = DateTimePicker4.Value
+        Else
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker1.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker2.Value = DateTimePicker4.Value
+        End If
+        日期格式() : Set_司機佣金清單()
     End Sub
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(1) : DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(1) : Set_司機佣金清單()
+        If 會計月.Checked = True Then
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(1)
+            DateTimePicker1.Value = DateTimePicker4.Value
+            DateTimePicker2.Value = DateTimePicker4.Value
+        Else
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(1)
+            DateTimePicker1.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker2.Value = DateTimePicker4.Value
+        End If
+        日期格式() : Set_司機佣金清單()
     End Sub
     Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月.Click
         會計月.Checked = True : 一般月.Checked = False : 日期格式() : Set_司機佣金清單()

MaoOrange-Hongji/財務系統管理/應付賬款控制表.Designer.vb

@@ -24,6 +24,11 @@ Partial Class 應付賬款控制表
     Private Sub InitializeComponent()
         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()
+        Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.一般月 = New System.Windows.Forms.CheckBox()
         Me.會計月 = New System.Windows.Forms.CheckBox()
@@ -32,59 +37,66 @@ Partial Class 應付賬款控制表
         Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
         Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
         Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.DataGridView2 = New System.Windows.Forms.DataGridView()
+        Me.DataGridView3 = New System.Windows.Forms.DataGridView()
         Me.TextBox3 = New System.Windows.Forms.TextBox()
         Me.Label3 = New System.Windows.Forms.Label()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
         Me.Button6 = New System.Windows.Forms.Button()
-        Me.TextBox2 = New System.Windows.Forms.TextBox()
-        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
-        Me.Label6 = New System.Windows.Forms.Label()
-        Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker()
         Me.Button5 = New System.Windows.Forms.Button()
-        Me.Button4 = New System.Windows.Forms.Button()
-        Me.ComboBox7 = New System.Windows.Forms.ComboBox()
-        Me.TextBox9 = New System.Windows.Forms.TextBox()
-        Me.ComboBox4 = New System.Windows.Forms.ComboBox()
-        Me.ComboBox3 = New System.Windows.Forms.ComboBox()
-        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
-        Me.ComboBox5 = New System.Windows.Forms.ComboBox()
-        Me.ComboBox6 = New System.Windows.Forms.ComboBox()
-        Me.Label5 = New System.Windows.Forms.Label()
         Me.Button12 = New System.Windows.Forms.Button()
         Me.Button13 = New System.Windows.Forms.Button()
+        Me.CheckBox2 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox3 = New System.Windows.Forms.CheckBox()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
         Me.Label1 = New System.Windows.Forms.Label()
-        Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown()
-        Me.Label2 = New System.Windows.Forms.Label()
         Me.Label7 = New System.Windows.Forms.Label()
         Me.NumericUpDown2 = New System.Windows.Forms.NumericUpDown()
-        Me.TextBox1 = New System.Windows.Forms.TextBox()
-        Me.Label8 = New System.Windows.Forms.Label()
-        Me.CheckBox2 = New System.Windows.Forms.CheckBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown()
+        Me.Label5 = New System.Windows.Forms.Label()
         Me.TextBox4 = New System.Windows.Forms.TextBox()
-        Me.CheckBox3 = New System.Windows.Forms.CheckBox()
         Me.TextBox5 = New System.Windows.Forms.TextBox()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.TextBox6 = New System.Windows.Forms.TextBox()
+        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker()
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
+        'DateTimePicker4
+        '
+        Me.DateTimePicker4.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker4.Location = New System.Drawing.Point(30, 49)
+        Me.DateTimePicker4.Name = "DateTimePicker4"
+        Me.DateTimePicker4.Size = New System.Drawing.Size(43, 23)
+        Me.DateTimePicker4.TabIndex = 1175
+        '
         '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(7, 55)
+        Me.Button1.Location = New System.Drawing.Point(330, 3)
         Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(87, 23)
-        Me.Button1.TabIndex = 1112
+        Me.Button1.Size = New System.Drawing.Size(65, 23)
+        Me.Button1.TabIndex = 1171
         Me.Button1.Text = "上個月"
         Me.Button1.UseVisualStyleBackColor = True
         '
         '一般月
         '
         Me.一般月.AutoSize = True
-        Me.一般月.Location = New System.Drawing.Point(130, 32)
+        Me.一般月.Location = New System.Drawing.Point(272, 6)
         Me.一般月.Name = "一般月"
         Me.一般月.Size = New System.Drawing.Size(63, 20)
-        Me.一般月.TabIndex = 1115
+        Me.一般月.TabIndex = 1174
         Me.一般月.Text = "一般月"
         Me.一般月.UseVisualStyleBackColor = True
         '
@@ -93,10 +105,10 @@ Partial Class 應付賬款控制表
         Me.會計月.AutoSize = True
         Me.會計月.Checked = True
         Me.會計月.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.會計月.Location = New System.Drawing.Point(20, 32)
+        Me.會計月.Location = New System.Drawing.Point(207, 6)
         Me.會計月.Name = "會計月"
         Me.會計月.Size = New System.Drawing.Size(63, 20)
-        Me.會計月.TabIndex = 1114
+        Me.會計月.TabIndex = 1173
         Me.會計月.Text = "會計月"
         Me.會計月.UseVisualStyleBackColor = True
         '
@@ -104,233 +116,154 @@ 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.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Button2.Location = New System.Drawing.Point(117, 56)
+        Me.Button2.Location = New System.Drawing.Point(397, 3)
         Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(87, 23)
-        Me.Button2.TabIndex = 1113
+        Me.Button2.Size = New System.Drawing.Size(65, 23)
+        Me.Button2.TabIndex = 1172
         Me.Button2.Text = "下個月"
         Me.Button2.UseVisualStyleBackColor = True
         '
         'Label4
         '
         Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(96, 9)
+        Me.Label4.Location = New System.Drawing.Point(97, 7)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(20, 16)
-        Me.Label4.TabIndex = 1111
+        Me.Label4.TabIndex = 1170
         Me.Label4.Text = "到"
         '
         'DateTimePicker2
         '
         Me.DateTimePicker2.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
         Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DateTimePicker2.Location = New System.Drawing.Point(117, 5)
+        Me.DateTimePicker2.Location = New System.Drawing.Point(118, 3)
         Me.DateTimePicker2.Name = "DateTimePicker2"
         Me.DateTimePicker2.Size = New System.Drawing.Size(87, 23)
-        Me.DateTimePicker2.TabIndex = 1110
+        Me.DateTimePicker2.TabIndex = 1169
         '
         'DateTimePicker1
         '
         Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DateTimePicker1.Location = New System.Drawing.Point(7, 5)
+        Me.DateTimePicker1.Location = New System.Drawing.Point(8, 3)
         Me.DateTimePicker1.Name = "DateTimePicker1"
         Me.DateTimePicker1.Size = New System.Drawing.Size(87, 23)
-        Me.DateTimePicker1.TabIndex = 1109
+        Me.DateTimePicker1.TabIndex = 1168
         '
         'DataGridView1
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
-        Me.DataGridView1.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.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), 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(14, 83)
+        Me.DataGridView1.Location = New System.Drawing.Point(8, 30)
         Me.DataGridView1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.DataGridView1.Name = "DataGridView1"
         Me.DataGridView1.RowHeadersWidth = 5
         DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.DataGridView1.RowTemplate.Height = 24
-        Me.DataGridView1.Size = New System.Drawing.Size(1225, 518)
-        Me.DataGridView1.TabIndex = 1108
+        Me.DataGridView1.Size = New System.Drawing.Size(75, 290)
+        Me.DataGridView1.TabIndex = 1167
+        '
+        'DataGridView2
+        '
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, 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) _
+            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(86, 54)
+        Me.DataGridView2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.DataGridView2.Name = "DataGridView2"
+        Me.DataGridView2.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(1155, 266)
+        Me.DataGridView2.TabIndex = 1176
+        '
+        'DataGridView3
+        '
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.DataGridView3.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.DataGridView3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.DataGridView3.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.DataGridView3.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView3.Location = New System.Drawing.Point(8, 322)
+        Me.DataGridView3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.DataGridView3.Name = "DataGridView3"
+        Me.DataGridView3.RowHeadersWidth = 5
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView3.RowsDefaultCellStyle = DataGridViewCellStyle6
+        Me.DataGridView3.RowTemplate.Height = 24
+        Me.DataGridView3.Size = New System.Drawing.Size(1233, 283)
+        Me.DataGridView3.TabIndex = 1177
         '
         'TextBox3
         '
         Me.TextBox3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.TextBox3.Location = New System.Drawing.Point(262, 6)
+        Me.TextBox3.Location = New System.Drawing.Point(147, 28)
         Me.TextBox3.Name = "TextBox3"
-        Me.TextBox3.Size = New System.Drawing.Size(126, 23)
-        Me.TextBox3.TabIndex = 1117
+        Me.TextBox3.Size = New System.Drawing.Size(123, 23)
+        Me.TextBox3.TabIndex = 1178
         '
         'Label3
         '
         Me.Label3.AutoSize = True
         Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label3.Location = New System.Drawing.Point(206, 9)
+        Me.Label3.Location = New System.Drawing.Point(97, 31)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(56, 16)
-        Me.Label3.TabIndex = 1118
-        Me.Label3.Text = "單據號碼"
+        Me.Label3.Size = New System.Drawing.Size(44, 16)
+        Me.Label3.TabIndex = 1179
+        Me.Label3.Text = "供應商"
+        '
+        'TextBox1
+        '
+        Me.TextBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox1.Location = New System.Drawing.Point(30, 78)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(43, 23)
+        Me.TextBox1.TabIndex = 1180
         '
         'Button6
         '
         Me.Button6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button6.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Button6.ForeColor = System.Drawing.Color.Olive
-        Me.Button6.Location = New System.Drawing.Point(1087, 3)
+        Me.Button6.Location = New System.Drawing.Point(1086, 3)
         Me.Button6.Name = "Button6"
         Me.Button6.Size = New System.Drawing.Size(82, 47)
-        Me.Button6.TabIndex = 1149
+        Me.Button6.TabIndex = 1184
         Me.Button6.Text = "依據單號取消立帳選擇"
         Me.Button6.UseVisualStyleBackColor = True
         '
-        'TextBox2
-        '
-        Me.TextBox2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.TextBox2.Location = New System.Drawing.Point(446, 5)
-        Me.TextBox2.Name = "TextBox2"
-        Me.TextBox2.Size = New System.Drawing.Size(100, 23)
-        Me.TextBox2.TabIndex = 1148
-        '
-        'CheckBox1
-        '
-        Me.CheckBox1.AutoSize = True
-        Me.CheckBox1.Checked = True
-        Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.CheckBox1.Location = New System.Drawing.Point(351, 33)
-        Me.CheckBox1.Name = "CheckBox1"
-        Me.CheckBox1.Size = New System.Drawing.Size(39, 20)
-        Me.CheckBox1.TabIndex = 1147
-        Me.CheckBox1.Text = "補"
-        Me.CheckBox1.UseVisualStyleBackColor = True
-        '
-        'Label6
-        '
-        Me.Label6.AutoSize = True
-        Me.Label6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Label6.Location = New System.Drawing.Point(207, 35)
-        Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(56, 16)
-        Me.Label6.TabIndex = 1146
-        Me.Label6.Text = "立帳日期"
-        '
-        'DateTimePicker3
-        '
-        Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.DateTimePicker3.Location = New System.Drawing.Point(262, 32)
-        Me.DateTimePicker3.Name = "DateTimePicker3"
-        Me.DateTimePicker3.Size = New System.Drawing.Size(85, 23)
-        Me.DateTimePicker3.TabIndex = 1145
-        '
         'Button5
         '
         Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Button5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Button5.Location = New System.Drawing.Point(1004, 3)
+        Me.Button5.Location = New System.Drawing.Point(1033, 3)
         Me.Button5.Name = "Button5"
-        Me.Button5.Size = New System.Drawing.Size(82, 47)
-        Me.Button5.TabIndex = 1144
+        Me.Button5.Size = New System.Drawing.Size(54, 47)
+        Me.Button5.TabIndex = 1183
         Me.Button5.Text = "列印帳款清單"
         Me.Button5.UseVisualStyleBackColor = True
         '
-        'Button4
-        '
-        Me.Button4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.Button4.Location = New System.Drawing.Point(209, 57)
-        Me.Button4.Name = "Button4"
-        Me.Button4.Size = New System.Drawing.Size(181, 23)
-        Me.Button4.TabIndex = 1143
-        Me.Button4.Text = "開立收支單(傳票)"
-        Me.Button4.UseVisualStyleBackColor = True
-        '
-        'ComboBox7
-        '
-        Me.ComboBox7.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.ComboBox7.FormattingEnabled = True
-        Me.ComboBox7.Location = New System.Drawing.Point(657, 56)
-        Me.ComboBox7.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.ComboBox7.Name = "ComboBox7"
-        Me.ComboBox7.Size = New System.Drawing.Size(190, 24)
-        Me.ComboBox7.TabIndex = 1142
-        '
-        'TextBox9
-        '
-        Me.TextBox9.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.TextBox9.Location = New System.Drawing.Point(549, 56)
-        Me.TextBox9.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.TextBox9.Name = "TextBox9"
-        Me.TextBox9.Size = New System.Drawing.Size(105, 23)
-        Me.TextBox9.TabIndex = 1141
-        Me.TextBox9.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        'ComboBox4
-        '
-        Me.ComboBox4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.ComboBox4.FormattingEnabled = True
-        Me.ComboBox4.Location = New System.Drawing.Point(769, 30)
-        Me.ComboBox4.Name = "ComboBox4"
-        Me.ComboBox4.Size = New System.Drawing.Size(78, 24)
-        Me.ComboBox4.TabIndex = 1140
-        '
-        'ComboBox3
-        '
-        Me.ComboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.ComboBox3.FormattingEnabled = True
-        Me.ComboBox3.Location = New System.Drawing.Point(657, 30)
-        Me.ComboBox3.Name = "ComboBox3"
-        Me.ComboBox3.Size = New System.Drawing.Size(109, 24)
-        Me.ComboBox3.TabIndex = 1139
-        '
-        'ComboBox1
-        '
-        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.ComboBox1.FormattingEnabled = True
-        Me.ComboBox1.Location = New System.Drawing.Point(769, 4)
-        Me.ComboBox1.Name = "ComboBox1"
-        Me.ComboBox1.Size = New System.Drawing.Size(78, 24)
-        Me.ComboBox1.TabIndex = 1138
-        '
-        'ComboBox5
-        '
-        Me.ComboBox5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.ComboBox5.FormattingEnabled = True
-        Me.ComboBox5.Location = New System.Drawing.Point(657, 4)
-        Me.ComboBox5.Name = "ComboBox5"
-        Me.ComboBox5.Size = New System.Drawing.Size(109, 24)
-        Me.ComboBox5.TabIndex = 1137
-        '
-        'ComboBox6
-        '
-        Me.ComboBox6.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.ComboBox6.FormattingEnabled = True
-        Me.ComboBox6.Location = New System.Drawing.Point(657, 88)
-        Me.ComboBox6.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.ComboBox6.Name = "ComboBox6"
-        Me.ComboBox6.Size = New System.Drawing.Size(190, 24)
-        Me.ComboBox6.TabIndex = 1135
-        '
-        'Label5
-        '
-        Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(550, 8)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(104, 48)
-        Me.Label5.TabIndex = 1136
-        Me.Label5.Text = "未附餘額不為零時" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "需要選擇未付餘額" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "立帳的會計科目"
-        '
         'Button12
         '
         Me.Button12.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button12.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Button12.ForeColor = System.Drawing.Color.Olive
-        Me.Button12.Location = New System.Drawing.Point(1170, 27)
+        Me.Button12.Location = New System.Drawing.Point(1167, 27)
         Me.Button12.Name = "Button12"
         Me.Button12.Size = New System.Drawing.Size(74, 23)
-        Me.Button12.TabIndex = 1133
+        Me.Button12.TabIndex = 1182
         Me.Button12.Text = "全部取消"
         Me.Button12.UseVisualStyleBackColor = True
         '
@@ -339,152 +272,211 @@ Partial Class 應付賬款控制表
         Me.Button13.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button13.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Button13.ForeColor = System.Drawing.Color.Olive
-        Me.Button13.Location = New System.Drawing.Point(1170, 3)
+        Me.Button13.Location = New System.Drawing.Point(1167, 3)
         Me.Button13.Name = "Button13"
         Me.Button13.Size = New System.Drawing.Size(74, 23)
-        Me.Button13.TabIndex = 1132
+        Me.Button13.TabIndex = 1181
         Me.Button13.Text = "全部選擇"
         Me.Button13.UseVisualStyleBackColor = True
         '
+        'CheckBox2
+        '
+        Me.CheckBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.CheckBox2.AutoSize = True
+        Me.CheckBox2.Location = New System.Drawing.Point(927, 4)
+        Me.CheckBox2.Name = "CheckBox2"
+        Me.CheckBox2.Size = New System.Drawing.Size(99, 20)
+        Me.CheckBox2.TabIndex = 1185
+        Me.CheckBox2.Text = "列印多單選擇"
+        Me.CheckBox2.UseVisualStyleBackColor = True
+        '
+        'CheckBox3
+        '
+        Me.CheckBox3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.CheckBox3.AutoSize = True
+        Me.CheckBox3.Location = New System.Drawing.Point(927, 29)
+        Me.CheckBox3.Name = "CheckBox3"
+        Me.CheckBox3.Size = New System.Drawing.Size(111, 20)
+        Me.CheckBox3.TabIndex = 1186
+        Me.CheckBox3.Text = "已立帳資料隱藏"
+        Me.CheckBox3.UseVisualStyleBackColor = True
+        '
+        'TextBox2
+        '
+        Me.TextBox2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox2.Location = New System.Drawing.Point(329, 28)
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(133, 23)
+        Me.TextBox2.TabIndex = 1187
+        '
         'Label1
         '
         Me.Label1.AutoSize = True
         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(390, 8)
+        Me.Label1.Location = New System.Drawing.Point(272, 31)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(56, 16)
-        Me.Label1.TabIndex = 1150
-        Me.Label1.Text = "應付金額"
-        '
-        'NumericUpDown1
-        '
-        Me.NumericUpDown1.Location = New System.Drawing.Point(446, 30)
-        Me.NumericUpDown1.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
-        Me.NumericUpDown1.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
-        Me.NumericUpDown1.Name = "NumericUpDown1"
-        Me.NumericUpDown1.Size = New System.Drawing.Size(100, 23)
-        Me.NumericUpDown1.TabIndex = 1151
-        Me.NumericUpDown1.ThousandsSeparator = True
-        '
-        'Label2
-        '
-        Me.Label2.AutoSize = True
-        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(390, 32)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(56, 16)
-        Me.Label2.TabIndex = 1152
-        Me.Label2.Text = "實付金額"
+        Me.Label1.TabIndex = 1188
+        Me.Label1.Text = "單據編號"
         '
         'Label7
         '
         Me.Label7.AutoSize = True
         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(390, 58)
+        Me.Label7.Location = New System.Drawing.Point(592, 30)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(56, 16)
-        Me.Label7.TabIndex = 1154
+        Me.Label7.TabIndex = 1194
         Me.Label7.Text = "未付餘額"
         '
         'NumericUpDown2
         '
-        Me.NumericUpDown2.Location = New System.Drawing.Point(446, 56)
+        Me.NumericUpDown2.Location = New System.Drawing.Point(648, 28)
         Me.NumericUpDown2.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
         Me.NumericUpDown2.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
         Me.NumericUpDown2.Name = "NumericUpDown2"
-        Me.NumericUpDown2.Size = New System.Drawing.Size(100, 23)
-        Me.NumericUpDown2.TabIndex = 1153
+        Me.NumericUpDown2.Size = New System.Drawing.Size(72, 23)
+        Me.NumericUpDown2.TabIndex = 1193
         Me.NumericUpDown2.ThousandsSeparator = True
         '
-        'TextBox1
+        'Label2
         '
-        Me.TextBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.TextBox1.Location = New System.Drawing.Point(657, 119)
-        Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(190, 23)
-        Me.TextBox1.TabIndex = 1155
+        Me.Label2.AutoSize = True
+        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(463, 30)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(56, 16)
+        Me.Label2.TabIndex = 1192
+        Me.Label2.Text = "實付金額"
         '
-        'Label8
+        'NumericUpDown1
         '
-        Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label8.AutoSize = True
-        Me.Label8.ForeColor = System.Drawing.Color.Red
-        Me.Label8.Location = New System.Drawing.Point(852, 49)
-        Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(385, 32)
-        Me.Label8.TabIndex = 1157
-        Me.Label8.Text = "選擇採購單號執行開立傳票時實付金額會自動已會計科目-應付帳款立帳" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "未付餘額如果不為零則需要手動選擇會計科目。推薦使用-應付賬款折讓" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        Me.NumericUpDown1.Location = New System.Drawing.Point(519, 28)
+        Me.NumericUpDown1.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.NumericUpDown1.Minimum = New Decimal(New Integer() {1000000, 0, 0, -2147483648})
+        Me.NumericUpDown1.Name = "NumericUpDown1"
+        Me.NumericUpDown1.Size = New System.Drawing.Size(72, 23)
+        Me.NumericUpDown1.TabIndex = 1191
+        Me.NumericUpDown1.ThousandsSeparator = True
         '
-        'CheckBox2
+        'Label5
         '
-        Me.CheckBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.CheckBox2.AutoSize = True
-        Me.CheckBox2.Location = New System.Drawing.Point(887, 6)
-        Me.CheckBox2.Name = "CheckBox2"
-        Me.CheckBox2.Size = New System.Drawing.Size(99, 20)
-        Me.CheckBox2.TabIndex = 1158
-        Me.CheckBox2.Text = "列印多單選擇"
-        Me.CheckBox2.UseVisualStyleBackColor = True
+        Me.Label5.AutoSize = True
+        Me.Label5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label5.Location = New System.Drawing.Point(463, 6)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(56, 16)
+        Me.Label5.TabIndex = 1190
+        Me.Label5.Text = "應付金額"
         '
         'TextBox4
         '
         Me.TextBox4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.TextBox4.Location = New System.Drawing.Point(657, 148)
+        Me.TextBox4.Location = New System.Drawing.Point(519, 3)
         Me.TextBox4.Name = "TextBox4"
-        Me.TextBox4.Size = New System.Drawing.Size(190, 23)
-        Me.TextBox4.TabIndex = 1163
-        '
-        'CheckBox3
-        '
-        Me.CheckBox3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.CheckBox3.AutoSize = True
-        Me.CheckBox3.Location = New System.Drawing.Point(887, 26)
-        Me.CheckBox3.Name = "CheckBox3"
-        Me.CheckBox3.Size = New System.Drawing.Size(111, 20)
-        Me.CheckBox3.TabIndex = 1164
-        Me.CheckBox3.Text = "已立帳資料隱藏"
-        Me.CheckBox3.UseVisualStyleBackColor = True
+        Me.TextBox4.Size = New System.Drawing.Size(72, 23)
+        Me.TextBox4.TabIndex = 1189
         '
         'TextBox5
         '
         Me.TextBox5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.TextBox5.Location = New System.Drawing.Point(657, 177)
+        Me.TextBox5.Location = New System.Drawing.Point(30, 107)
         Me.TextBox5.Name = "TextBox5"
-        Me.TextBox5.Size = New System.Drawing.Size(190, 23)
-        Me.TextBox5.TabIndex = 1165
+        Me.TextBox5.Size = New System.Drawing.Size(43, 23)
+        Me.TextBox5.TabIndex = 1195
+        '
+        'Button3
+        '
+        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(595, 3)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(125, 23)
+        Me.Button3.TabIndex = 1196
+        Me.Button3.Text = "間格時間內所有帳款"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'Button4
+        '
+        Me.Button4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button4.ForeColor = System.Drawing.Color.Green
+        Me.Button4.Location = New System.Drawing.Point(813, 4)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(112, 22)
+        Me.Button4.TabIndex = 1197
+        Me.Button4.Text = "財務單據開立"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
+        'TextBox6
+        '
+        Me.TextBox6.ForeColor = System.Drawing.Color.Green
+        Me.TextBox6.Location = New System.Drawing.Point(815, 28)
+        Me.TextBox6.Name = "TextBox6"
+        Me.TextBox6.Size = New System.Drawing.Size(110, 23)
+        Me.TextBox6.TabIndex = 1198
         '
-        '應付賬款控制表
+        'CheckBox1
+        '
+        Me.CheckBox1.AutoSize = True
+        Me.CheckBox1.Checked = True
+        Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.CheckBox1.ForeColor = System.Drawing.Color.Green
+        Me.CheckBox1.Location = New System.Drawing.Point(780, 5)
+        Me.CheckBox1.Name = "CheckBox1"
+        Me.CheckBox1.Size = New System.Drawing.Size(39, 20)
+        Me.CheckBox1.TabIndex = 1201
+        Me.CheckBox1.Text = "補"
+        Me.CheckBox1.UseVisualStyleBackColor = True
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.ForeColor = System.Drawing.Color.Green
+        Me.Label6.Location = New System.Drawing.Point(721, 6)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(56, 16)
+        Me.Label6.TabIndex = 1200
+        Me.Label6.Text = "開立日期"
+        '
+        'DateTimePicker3
+        '
+        Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker3.Location = New System.Drawing.Point(723, 27)
+        Me.DateTimePicker3.Name = "DateTimePicker3"
+        Me.DateTimePicker3.Size = New System.Drawing.Size(90, 23)
+        Me.DateTimePicker3.TabIndex = 1199
+        '
+        '應付賬款控制表1
         '
         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.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.DateTimePicker3)
+        Me.Controls.Add(Me.TextBox6)
+        Me.Controls.Add(Me.Button4)
+        Me.Controls.Add(Me.Button3)
         Me.Controls.Add(Me.TextBox5)
-        Me.Controls.Add(Me.TextBox4)
-        Me.Controls.Add(Me.Label8)
-        Me.Controls.Add(Me.TextBox1)
         Me.Controls.Add(Me.Label7)
         Me.Controls.Add(Me.NumericUpDown2)
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.NumericUpDown1)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.TextBox4)
         Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.Button6)
         Me.Controls.Add(Me.TextBox2)
-        Me.Controls.Add(Me.CheckBox1)
-        Me.Controls.Add(Me.DateTimePicker3)
+        Me.Controls.Add(Me.Button6)
         Me.Controls.Add(Me.Button5)
-        Me.Controls.Add(Me.Button4)
-        Me.Controls.Add(Me.ComboBox7)
-        Me.Controls.Add(Me.TextBox9)
-        Me.Controls.Add(Me.ComboBox4)
-        Me.Controls.Add(Me.ComboBox3)
-        Me.Controls.Add(Me.ComboBox1)
-        Me.Controls.Add(Me.ComboBox5)
-        Me.Controls.Add(Me.ComboBox6)
-        Me.Controls.Add(Me.Label5)
         Me.Controls.Add(Me.Button12)
         Me.Controls.Add(Me.Button13)
+        Me.Controls.Add(Me.CheckBox2)
+        Me.Controls.Add(Me.CheckBox3)
+        Me.Controls.Add(Me.TextBox1)
         Me.Controls.Add(Me.TextBox3)
         Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.DataGridView3)
+        Me.Controls.Add(Me.DataGridView2)
+        Me.Controls.Add(Me.DateTimePicker4)
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.一般月)
         Me.Controls.Add(Me.會計月)
@@ -492,22 +484,23 @@ Partial Class 應付賬款控制表
         Me.Controls.Add(Me.Label4)
         Me.Controls.Add(Me.DateTimePicker2)
         Me.Controls.Add(Me.DateTimePicker1)
-        Me.Controls.Add(Me.Label6)
-        Me.Controls.Add(Me.CheckBox2)
-        Me.Controls.Add(Me.CheckBox3)
         Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.CheckBox1)
         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 = "應付賬款控制表1"
+        Me.Text = "應付賬款控制表1"
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
 
+    Friend WithEvents DateTimePicker4 As DateTimePicker
     Friend WithEvents Button1 As Button
     Friend WithEvents 一般月 As CheckBox
     Friend WithEvents 會計月 As CheckBox
@@ -516,34 +509,30 @@ Partial Class 應付賬款控制表
     Friend WithEvents DateTimePicker2 As DateTimePicker
     Friend WithEvents DateTimePicker1 As DateTimePicker
     Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents DataGridView2 As DataGridView
+    Friend WithEvents DataGridView3 As DataGridView
     Friend WithEvents TextBox3 As TextBox
     Friend WithEvents Label3 As Label
+    Friend WithEvents TextBox1 As TextBox
     Friend WithEvents Button6 As Button
-    Friend WithEvents TextBox2 As TextBox
-    Friend WithEvents CheckBox1 As CheckBox
-    Friend WithEvents Label6 As Label
-    Friend WithEvents DateTimePicker3 As DateTimePicker
     Friend WithEvents Button5 As Button
-    Friend WithEvents Button4 As Button
-    Friend WithEvents ComboBox7 As ComboBox
-    Friend WithEvents TextBox9 As TextBox
-    Friend WithEvents ComboBox4 As ComboBox
-    Friend WithEvents ComboBox3 As ComboBox
-    Friend WithEvents ComboBox1 As ComboBox
-    Friend WithEvents ComboBox5 As ComboBox
-    Friend WithEvents ComboBox6 As ComboBox
-    Friend WithEvents Label5 As Label
     Friend WithEvents Button12 As Button
     Friend WithEvents Button13 As Button
+    Friend WithEvents CheckBox2 As CheckBox
+    Friend WithEvents CheckBox3 As CheckBox
+    Friend WithEvents TextBox2 As TextBox
     Friend WithEvents Label1 As Label
-    Friend WithEvents NumericUpDown1 As NumericUpDown
-    Friend WithEvents Label2 As Label
     Friend WithEvents Label7 As Label
     Friend WithEvents NumericUpDown2 As NumericUpDown
-    Friend WithEvents TextBox1 As TextBox
-    Friend WithEvents Label8 As Label
-    Friend WithEvents CheckBox2 As CheckBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents NumericUpDown1 As NumericUpDown
+    Friend WithEvents Label5 As Label
     Friend WithEvents TextBox4 As TextBox
-    Friend WithEvents CheckBox3 As CheckBox
     Friend WithEvents TextBox5 As TextBox
+    Friend WithEvents Button3 As Button
+    Friend WithEvents Button4 As Button
+    Friend WithEvents TextBox6 As TextBox
+    Friend WithEvents CheckBox1 As CheckBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents DateTimePicker3 As DateTimePicker
 End Class

MaoOrange-Hongji/財務系統管理/應付賬款控制表.vb

@@ -9,50 +9,76 @@ Imports Microsoft.Office.Interop.Excel.XlThemeColor
 Imports Microsoft.Office.Interop.Excel.XlWindowState
 Imports Microsoft.Office.Interop.Excel
 Public Class 應付賬款控制表
-    ReadOnly ds As New DataSet
-    Dim N1 As Integer : Dim 新項次 As String
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
+    Dim N1 As Integer
     Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
-    Private Sub Set_賬款清單()
+    Private Sub Set_賬款主單()
         DataGridView1.DataSource = Nothing : ds.Clear() : DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : DataGridView1.ColumnHeadersHeight = 40
         DataGridView1.AllowUserToAddRows = False : DataGridView1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText : DataGridView1.MultiSelect = True
-        SQL_應付賬款清單()
+        SQL_應付賬款主單()
         da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+        DataGridView1.Columns(0).Visible = False : DataGridView1.Columns(1).FillWeight = 100
+        DataGridView1.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        For I As Integer = 0 To 1 : DataGridView1.Columns(I).ReadOnly = True : Next
+    End Sub
+    Private Sub Set_賬款清單()
+        DataGridView2.DataSource = Nothing : ds1.Clear() : DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : DataGridView2.ColumnHeadersHeight = 40
+        DataGridView2.AllowUserToAddRows = False : DataGridView2.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText : DataGridView2.MultiSelect = True
 
-        DataGridView1.Columns(0).FillWeight = 150 : DataGridView1.Columns(1).Visible = False : DataGridView1.Columns(2).FillWeight = 100 : DataGridView1.Columns(3).Visible = False
-        DataGridView1.Columns(4).FillWeight = 80 : DataGridView1.Columns(5).FillWeight = 300 : DataGridView1.Columns(6).FillWeight = 80 : DataGridView1.Columns(7).FillWeight = 80
-        DataGridView1.Columns(8).FillWeight = 80 : DataGridView1.Columns(9).FillWeight = 80 : DataGridView1.Columns(10).FillWeight = 100 : DataGridView1.Columns(11).FillWeight = 100
-        DataGridView1.Columns(12).FillWeight = 150 : DataGridView1.Columns(13).FillWeight = 60 : DataGridView1.Columns(14).FillWeight = 50 : DataGridView1.Columns(15).Visible = False
+        If TextBox6.Text = "" Then : SQL_應付賬款清單一() : Else : SQL_應付賬款清單二() : End If
 
-        DataGridView1.Columns(6).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(7).DefaultCellStyle.Format = "#,##0.000"
-        DataGridView1.Columns(8).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(9).DefaultCellStyle.Format = "#,##0"
-        DataGridView1.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        DataGridView1.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
-        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(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()
+
+        DataGridView2.Columns(0).FillWeight = 150 : DataGridView2.Columns(1).Visible = False : DataGridView2.Columns(2).Visible = False : DataGridView2.Columns(3).Visible = False
+        DataGridView2.Columns(4).FillWeight = 80 : DataGridView2.Columns(5).FillWeight = 300 : DataGridView2.Columns(6).FillWeight = 80 : DataGridView2.Columns(7).FillWeight = 80
+        DataGridView2.Columns(8).FillWeight = 80 : DataGridView2.Columns(9).FillWeight = 80 : DataGridView2.Columns(10).FillWeight = 100 : DataGridView2.Columns(11).FillWeight = 100
+        DataGridView2.Columns(12).FillWeight = 150 : DataGridView2.Columns(13).FillWeight = 60 : DataGridView2.Columns(14).FillWeight = 50 : DataGridView2.Columns(15).Visible = False
+        DataGridView2.Columns(16).FillWeight = 120 : DataGridView2.Columns(17).Visible = False
 
-        For I As Integer = 0 To 12 : DataGridView1.Columns(I).ReadOnly = True : Next : DataGridView1.Columns(14).ReadOnly = True
-        For I As Integer = 0 To DataGridView1.Rows.Count - 1
-            If DataGridView1.Rows(I).Cells("應付立帳").Value.ToString = "" Then : DataGridView1.Rows(I).Cells("應付立帳").Value = False : End If
-            DataGridView1.Rows(I).Cells("選擇").Value = False
+        DataGridView2.Columns(6).DefaultCellStyle.Format = "#,##0" : DataGridView2.Columns(7).DefaultCellStyle.Format = "#,##0.000"
+        DataGridView2.Columns(8).DefaultCellStyle.Format = "#,##0" : DataGridView2.Columns(9).DefaultCellStyle.Format = "#,##0"
+        DataGridView2.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView2.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView2.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView2.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView2.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        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(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView2.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView2.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        For I As Integer = 0 To 12 : DataGridView2.Columns(I).ReadOnly = True : Next : DataGridView2.Columns(14).ReadOnly = True
+        For I As Integer = 0 To DataGridView2.Rows.Count - 1
+            If DataGridView2.Rows(I).Cells("應付立帳").Value.ToString = "" Then : DataGridView2.Rows(I).Cells("應付立帳").Value = False : End If
+            DataGridView2.Rows(I).Cells("選擇").Value = False
         Next
     End Sub
-    Private Sub ComboBox1下拉表單資料載入()
-        SQL_會計科目_第一階_只含流動票務()
-        ComboBox5.Items.Clear() : ComboBox1.Items.Clear() : While (dr.Read()) : ComboBox5.Items.Add(dr("第一階")) : ComboBox1.Items.Add(dr("編號")) : End While : conn.Close()
-    End Sub
-    Private Sub ComboBox3下拉表單資料載入()
-        PA = ComboBox1.Text : SQL_會計科目_第二階_只含流動票務()
-        ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : While (dr.Read()) : ComboBox3.Items.Add(dr("第二階")) : ComboBox4.Items.Add(dr("編號")) : End While : conn.Close() : PA = ""
-    End Sub
-    Private Sub ComboBox6下拉表單資料載入()
-        PA = ComboBox4.Text : SQL_會計科目_第三階_只含流動票務()
-        ComboBox7.Items.Clear() : ComboBox6.Items.Clear() : While (dr.Read()) : ComboBox7.Items.Add(dr("會計科目")) : ComboBox6.Items.Add(dr("編號")) : End While : conn.Close()
-        If ComboBox7.Items.Count <> 0 Then : ComboBox7.SelectedIndex = 0 : End If
+    Private Sub Set_財務清單()
+        DataGridView3.DataSource = Nothing : ds2.Clear() : DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : DataGridView3.ColumnHeadersHeight = 40
+        DataGridView3.AllowUserToAddRows = False : DataGridView3.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText : DataGridView3.MultiSelect = True
+        DataGridView3.RowTemplate.Height = 35
+        SQL_應付賬款清單三()
+        da.Fill(ds2) : DataGridView3.DataSource = ds2.Tables(0) : conn.Close()
+
+        DataGridView3.Columns(0).Visible = False : DataGridView3.Columns(1).Visible = False : DataGridView3.Columns(2).FillWeight = 75 : DataGridView3.Columns(3).Visible = False
+        DataGridView3.Columns(4).FillWeight = 150 : DataGridView3.Columns(5).FillWeight = 80 : DataGridView3.Columns(6).Visible = False : DataGridView3.Columns(7).FillWeight = 80
+        DataGridView3.Columns(8).Visible = False : DataGridView3.Columns(9).FillWeight = 150 : DataGridView3.Columns(10).FillWeight = 50 : DataGridView3.Columns(11).FillWeight = 50
+        DataGridView3.Columns(12).FillWeight = 120 : DataGridView3.Columns(13).FillWeight = 75 : DataGridView3.Columns(14).FillWeight = 95 : DataGridView3.Columns(15).FillWeight = 95
+        DataGridView3.Columns(16).FillWeight = 95 : DataGridView3.Columns(17).FillWeight = 95 : DataGridView3.Columns(18).FillWeight = 75 : DataGridView3.Columns(19).Visible = False
+        DataGridView3.Columns(20).FillWeight = 150 : DataGridView3.Columns(21).FillWeight = 100 : DataGridView3.Columns(22).FillWeight = 80 : DataGridView3.Columns(23).FillWeight = 150
+        DataGridView3.Columns(24).Visible = False : DataGridView3.Columns(25).Visible = False : DataGridView3.Columns(26).Visible = False
+
+        DataGridView3.Columns(6).DefaultCellStyle.Format = "#,##0" : DataGridView3.Columns(7).DefaultCellStyle.Format = "#,##0"
+        DataGridView3.Columns(8).DefaultCellStyle.Format = "#,##0" : DataGridView3.Columns(5).DefaultCellStyle.Format = "#,##0"
+        DataGridView3.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView3.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView3.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView3.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView3.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView3.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView3.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView3.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView3.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
     End Sub
     Private Sub 日期格式()
         If 會計月.Checked = True Then
@@ -67,178 +93,149 @@ Public Class 應付賬款控制表
             DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(1)
             DTP = Strings.Left(Strings.Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker1.Value = DTP
             '-------------日期二----------------------------------------------------------------------------------------
-            Dim iDays As Integer = DateTime.DaysInMonth(Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 4), Strings.Mid(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 6, 2))
-            DTP = Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & iDays : DateTimePicker2.Value = DTP
+            DTP = Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker2.Value = DTP
+            DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(1) : DateTimePicker2.Value = DateTimePicker2.Value.AddDays(-1)
         End If
     End Sub
-    Private Sub 預設關鍵字()
-        關鍵字編號 = "DV002" : SQL_通用預設值管理查詢() : If dr.Read() Then : TextBox9.Text = dr("預設值") : End If
-    End Sub
-    Private Sub 應付賬款_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    Private Sub 應付賬款控制表1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        ComboBox6.Visible = False : TextBox1.Visible = False : TextBox4.Visible = False : TextBox5.Visible = False
-        TextBox1.Text = "0" : TextBox2.Text = "0"
-        ComboBox1下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox6下拉表單資料載入() : 日期格式() : Set_賬款清單()
-        預設關鍵字()
+        DateTimePicker4.Visible = False : TextBox1.Visible = False : TextBox5.Visible = False
+        日期格式() : Set_賬款主單()
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(-1) : DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(-1) : Set_賬款清單()
+        If 會計月.Checked = True Then
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker1.Value = DateTimePicker4.Value
+            DateTimePicker2.Value = DateTimePicker4.Value
+        Else
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker1.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker2.Value = DateTimePicker4.Value
+        End If
+        TextBox6.Text = "" : 日期格式() : Set_賬款主單()
     End Sub
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(1) : DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(1) : Set_賬款清單()
+        If 會計月.Checked = True Then
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(1)
+            DateTimePicker1.Value = DateTimePicker4.Value
+            DateTimePicker2.Value = DateTimePicker4.Value
+        Else
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(1)
+            DateTimePicker1.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker2.Value = DateTimePicker4.Value
+        End If
+        TextBox6.Text = "" : 日期格式() : Set_賬款主單()
     End Sub
     Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月.Click
-        會計月.Checked = True : 一般月.Checked = False : 日期格式() : Set_賬款清單()
+        會計月.Checked = True : 一般月.Checked = False : TextBox6.Text = "" : 日期格式() : Set_賬款主單()
     End Sub
     Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月.Click
-        會計月.Checked = False : 一般月.Checked = True : 日期格式() : Set_賬款清單()
-    End Sub
-    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.TextChanged
-        ComboBox1.SelectedIndex = ComboBox5.SelectedIndex : TextBox9.Text = "" : ComboBox3下拉表單資料載入() : ComboBox6下拉表單資料載入()
-    End Sub
-    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.TextChanged
-        ComboBox5.SelectedIndex = ComboBox1.SelectedIndex : ComboBox3下拉表單資料載入() : ComboBox6下拉表單資料載入()
-    End Sub
-    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.TextChanged
-        ComboBox4.SelectedIndex = ComboBox3.SelectedIndex : ComboBox6下拉表單資料載入()
-    End Sub
-    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.TextChanged
-        ComboBox3.SelectedIndex = ComboBox4.SelectedIndex : ComboBox6下拉表單資料載入()
+        會計月.Checked = False : 一般月.Checked = True : TextBox6.Text = "" : 日期格式() : Set_賬款主單()
     End Sub
-    Private Sub ComboBox7_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox7.SelectedIndexChanged
-        ComboBox6.SelectedIndex = ComboBox7.SelectedIndex
-    End Sub
-    Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedIndexChanged
-        ComboBox7.SelectedIndex = ComboBox6.SelectedIndex
-    End Sub
-    Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged
-        PA = TextBox9.Text : SQL_會計科目_關鍵字_只含流動票務()
-        ComboBox7.Items.Clear() : ComboBox6.Items.Clear() : While (dr.Read()) : ComboBox7.Items.Add(dr("會計科目")) : ComboBox6.Items.Add(dr("編號")) : End While : conn.Close()
-        If ComboBox7.Items.Count <> 0 Then : ComboBox7.SelectedIndex = 0 : End If : PA = ""
+    Private Sub 選中金額計算()
+        TextBox4.Text = "0" : TextBox5.Text = "0"
+        For I As Integer = 0 To DataGridView2.Rows.Count - 1
+            If DataGridView2.Rows(I).Cells("選擇").Value = True Then
+                TextBox5.Text = Val(TextBox5.Text) + DataGridView2.Rows(I).Cells("金額").Value
+                TextBox4.Text = Val(TextBox4.Text) + DataGridView2.Rows(I).Cells("金額").Value
+            End If
+        Next
+        NumericUpDown2.Value = Val(TextBox5.Text) - NumericUpDown1.Value
+        TextBox4.Text = Strings.Format(Val(TextBox4.Text), "#,##0")
     End Sub
     Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells("單據編號").Value : TextBox5.Text = DataGridView1.Rows(e.RowIndex).Cells("供應商").Value
-            TextBox2.Text = "0" : TextBox1.Text = "0"
-            For I As Integer = 0 To DataGridView1.Rows.Count - 1
+            TextBox6.Text = "" : TextBox2.Text = "" : CheckBox2.Checked = False : TextBox4.Text = "0" : NumericUpDown1.Value = 0 : NumericUpDown2.Value = 0
+            TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells("供應商編號").Value
+            TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells("供應商").Value
+            Set_賬款清單() : Set_財務清單()
+            For i As Integer = 0 To DataGridView2.Rows.Count - 1 : DataGridView2.Rows(i).Cells("選擇").Value = True : Next i : 選中金額計算()
+        End If
+    End Sub
+    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView2.CellClick
+        If e.RowIndex = -1 Then : Else
+            If DataGridView2.Rows(e.RowIndex).Cells("申請日期").Value.ToString = "" Then : Else : DateTimePicker3.Value = DataGridView2.Rows(e.RowIndex).Cells("申請日期").Value.ToString : End If
+            TextBox2.Text = DataGridView2.Rows(e.RowIndex).Cells("單據編號").Value : TextBox6.Text = DataGridView2.Rows(e.RowIndex).Cells("財務單號").Value.ToString
+            For I As Integer = 0 To DataGridView2.Rows.Count - 1
                 If CheckBox2.Checked = False Then
-                    DataGridView1.Rows(I).Cells("選擇").Value = False
+                    DataGridView2.Rows(I).Cells("選擇").Value = False
                 End If
-
-                If TextBox3.Text = DataGridView1.Rows(I).Cells("單據編號").Value Then
-                    DataGridView1.Rows(I).Cells("選擇").Value = True
-                    TextBox1.Text = Val(TextBox1.Text) + DataGridView1.Rows(I).Cells("金額").Value
-                    TextBox2.Text = Val(TextBox2.Text) + DataGridView1.Rows(I).Cells("金額").Value
+                If TextBox2.Text = DataGridView2.Rows(I).Cells("單據編號").Value Then
+                    DataGridView2.Rows(I).Cells("選擇").Value = True
+                End If
+            Next
+            選中金額計算() : Set_財務清單()
+            NumericUpDown1.Value = 0
+            For I As Integer = 0 To DataGridView3.Rows.Count - 1
+                If DataGridView3.Rows(I).Cells("開票").Value < 0 Or DataGridView3.Rows(I).Cells("付現").Value < 0 Then : Else
+                    NumericUpDown1.Value = NumericUpDown1.Value + DataGridView3.Rows(I).Cells("開票").Value + DataGridView3.Rows(I).Cells("付現").Value
                 End If
             Next
-            TextBox2.Text = Strings.Format(Val(TextBox2.Text), "#,##0")
         End If
     End Sub
-    Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
+    Private Sub DataGridView2_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView2.RowPostPaint
         Dim linePen As New Pen(Color.Blue, 2)
-        If e.RowIndex = DataGridView1.Rows.Count - 1 Then : Exit Sub
+        If e.RowIndex = DataGridView2.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 DataGridView2(0, e.RowIndex).Value.ToString <> DataGridView2(0, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(DataGridView2.RowHeadersVisible, DataGridView2.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 + DataGridView2.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView2.HorizontalScrollingOffset
                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
             End If
         End If
     End Sub
-    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1 : DataGridView1.Rows(i).Cells("選擇").Value = True : Next i
-    End Sub
-    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1 : DataGridView1.Rows(i).Cells("選擇").Value = False : Next i
-    End Sub
-    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            If TextBox3.Text = DataGridView1.Rows(i).Cells("單據編號").Value.ToString Then
-                DataGridView1.Rows(i).Cells("應付立帳").Value = False
-            End If
-        Next i
-    End Sub
-    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
-        NumericUpDown2.Value = Val(TextBox1.Text) - NumericUpDown1.Value
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        TextBox6.Text = "" : TextBox1.Text = "%%" : Set_賬款清單() : Set_財務清單()
     End Sub
     Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown1.ValueChanged
-        NumericUpDown2.Value = Val(TextBox1.Text) - NumericUpDown1.Value
+        NumericUpDown2.Value = Val(TextBox5.Text) - NumericUpDown1.Value
     End Sub
-    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
-        Set_賬款清單()
+    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
+        For i As Integer = 0 To DataGridView2.Rows.Count - 1 : DataGridView2.Rows(i).Cells("選擇").Value = True : Next i : 選中金額計算()
     End Sub
-    Private Sub Set_日期格式轉換()
-        If CheckBox1.Checked = False Then : DTP = Strings.Format(Today(), "yyyy/MM/dd") : DTP1 = Strings.Format(Today(), "yyyyMMdd")
-        Else : DTP1 = Strings.Format(DateTimePicker3.Value, "yyyyMMdd") : DTP = Strings.Format(DateTimePicker3.Value, "yyyy/MM/dd") : End If
+    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
+        For i As Integer = 0 To DataGridView2.Rows.Count - 1 : DataGridView2.Rows(i).Cells("選擇").Value = False : Next i : 選中金額計算()
     End Sub
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
-        If CheckBox2.Checked = True Then
-            MsgBox("開立支付單(傳票)需要一張一張來，請重新選擇。")
-            CheckBox2.Checked = False
-            For I As Integer = 0 To DataGridView1.Rows.Count - 1
-                DataGridView1.Rows(I).Cells("選擇").Value = False
+        Dim 選擇判斷 As Boolean = False
+        For i As Integer = 0 To DataGridView2.Rows.Count - 1
+            If DataGridView2.Rows(i).Cells("選擇").Value = True Then
+                選擇判斷 = True : Exit For
+            End If
+        Next i
+        If 選擇判斷 = True Then
+            If CheckBox1.Checked = False Then : DTP = Strings.Format(Today(), "yyyy/MM/dd") : DTP1 = Strings.Format(Today(), "yyyyMMdd")
+            Else : DTP1 = Strings.Format(DateTimePicker3.Value, "yyyyMMdd") : DTP = Strings.Format(DateTimePicker3.Value, "yyyy/MM/dd") : End If
+            收付應沖金額 = Val(TextBox5.Text)
+            財務單申請狀態 = "應付" : 收付對應財務單號 = TextBox6.Text
+            收付對應客戶供應商編號 = TextBox1.Text
+            For I As Integer = 0 To DataGridView2.Rows.Count - 1
+                If DataGridView2.Rows(I).Cells("選擇").Value = True Then
+                    PA19 = DataGridView2.Rows(I).Cells("資料流水號").Value.ToString
+                    SQL_應收應付單號連接暫存檔新增() : conn.Close()
+                End If
+            Next
+            財務單具申請.ShowDialog()
+            Set_賬款清單() : Set_財務清單() : 財務單具申請.Close()
+            For I As Integer = 0 To DataGridView2.Rows.Count - 1
+                DataGridView2.Rows(I).Cells("選擇").Value = True
             Next
         Else
-            If NumericUpDown1.Value = 0 Then
-                MsgBox("實付金額不可為零。") : Exit Sub
-            Else
-                If NumericUpDown2.Value = 0 Then : Else
-                    If ComboBox6.Text = "" Then
-                        MsgBox("未付款金額擇讓需要會計科目。") : Exit Sub
-                    Else
-                    End If
-                End If
-                Dim 確認 As Boolean = False
-                For i As Integer = 0 To DataGridView1.Rows.Count - 1
-                    If DataGridView1.Rows(i).Cells("選擇").Value = True Then
-                        MsgBox("該採購單已經開立過傳票，如是之前開立有誤需要從新開立，請先點擊--依據單號取消立帳選擇--按鈕。如是因採購退貨需要開立收支單(傳票)請先勾選--已立帳資料隱藏--再行操作。")
-                        Exit Sub
-                    End If
-                Next
-                If 確認 = False Then : MsgBox("沒有選擇任何一筆要轉收支帳(傳票)的採購單號。")
-                Else
-                    Dim NUM1 As Integer : Set_日期格式轉換()
-                    For ii As Integer = 1 To 999
-                        NUM1 = 0 + ii
-                        If NUM1 < 10 Then : TextBox4.Text = "OE-" & DTP1 & "-00" & NUM1
-                        ElseIf NUM1 > 9 And NUM1 < 100 Then : TextBox4.Text = "OE-" & DTP1 & "-0" & NUM1
-                        ElseIf NUM1 > 99 Then : TextBox4.Text = "OE-" & DTP1 & "-" & NUM1 : End If : PA = TextBox4.Text
-                        SQL_營運成本收支單申請_支付單號流水號()
-                        If dr.Read() Then : Else : ii = 999 : End If
-                    Next
-                    SQL_營運成本控制表新增()
-
-                    SQL_營運成本明細表項次新增查詢()
-                    If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close() : NUM1 = Double.Parse(新項次) + 1
-                    If NUM1 < 10 Then : 新項次 = "0" & NUM1
-                    ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
-                    關鍵字編號 = "DV001" : SQL_通用預設值管理查詢() : If dr.Read() Then : PA3 = dr("預設值") : End If
-                    PA1 = TextBox4.Text : PA2 = 新項次 : PA4 = TextBox5.Text & " - " & DateTimePicker1.Value & " 到 " & DateTimePicker2.Value & " 應付帳款"
-                    NU1 = NumericUpDown1.Value : PA5 = "" : NU2 = 0 : NU3 = 0 : NU4 = 0 : PA6 = "付現" : PA7 = gUserName
-                    SQL_營運成本明細表新增()
-
-                    If NumericUpDown2.Value = 0 Then : Else
-                        SQL_營運成本明細表項次新增查詢()
-                        If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close() : NUM1 = Double.Parse(新項次) + 1
-                        If NUM1 < 10 Then : 新項次 = "0" & NUM1
-                        ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
-
-                        PA1 = TextBox4.Text : PA2 = 新項次 : PA3 = ComboBox6.Text : PA4 = TextBox5.Text & " - " & DateTimePicker1.Value & " 到 " & DateTimePicker2.Value & " 貨款折讓"
-                        NU1 = NumericUpDown2.Value * -1 : PA5 = "" : NU2 = 0 : NU3 = 0 : NU4 = 0 : PA6 = "付現" : PA7 = gUserName
-                        SQL_營運成本明細表新增()
-                    End If
-                    For i As Integer = 0 To DataGridView1.Rows.Count - 1
-                        資料數 = DataGridView1.Rows.Count : MyModule1.進度條()
-                        If DataGridView1.Rows(i).Cells("選擇").Value = True Then
-                            PA6 = DataGridView1.Rows(i).Cells("資料流水號").Value
-                            SQL_應付賬款_倉儲明細應付立帳修改()
-                        End If
-                    Next i : MAOJI_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : MsgBox("財務收支單(傳票)申請完成，請通知主管審核。") : Set_賬款清單()
-                End If
-            End If
+            MsgBox("最少要選擇一張單據。")
         End If
     End Sub
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+        For i As Integer = 0 To DataGridView2.Rows.Count - 1
+            If TextBox2.Text = DataGridView2.Rows(i).Cells("單據編號").Value.ToString Then
+                DataGridView2.Rows(i).Cells("應付立帳").Value = False
+            End If
+        Next i
+    End Sub
+    Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged
+        CheckBox2.Checked = True
+        Set_賬款清單() : For i As Integer = 0 To DataGridView2.Rows.Count - 1 : DataGridView2.Rows(i).Cells("選擇").Value = True : Next i : 選中金額計算()
+    End Sub
     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
         xlApp = CType(CreateObject("Excel.Application"), Application)
         xlBook = xlApp.Workbooks.Add
@@ -246,20 +243,20 @@ Public Class 應付賬款控制表
         xlApp.Visible = True
         xlApp.Application.WindowState = xlMaximized
         N1 = 0
-        If DataGridView1.Rows.Count = 0 Then : Else
+        If DataGridView2.Rows.Count = 0 Then : Else
             xlSheet = NewMethod(xlBook)
             xlSheet.Cells(1, 1) = MAOJI_ERP_SYS.ComboBox2.Text : xlSheet.Cells(2, 1) = DateTimePicker1.Value & " 到 " & DateTimePicker2.Value & " 應付帳款清單"
             xlSheet.Cells(3, 1) = "單據編號" : xlSheet.Cells(3, 2) = "供應商" : xlSheet.Cells(3, 3) = "頁碼" : xlSheet.Cells(3, 4) = "品名" : xlSheet.Cells(3, 5) = "單價" : xlSheet.Cells(3, 6) = "匯率"
             xlSheet.Cells(3, 7) = "入庫" : xlSheet.Cells(3, 8) = "金額" : xlSheet.Cells(3, 9) = "採購下單" : xlSheet.Cells(3, 10) = "入庫日期" : xlSheet.Cells(3, 11) = "是否立帳"
             xlSheet.Cells(2, 7) = "合計" : xlSheet.Cells(2, 8) = "=SUBTOTAL(9,H4:H9999)"
-            For i As Integer = 0 To DataGridView1.Rows.Count - 1
-                If DataGridView1.Rows(i).Cells("選擇").Value = True Then
-                    xlSheet.Cells(N1 + 4, 1) = DataGridView1.Rows(i).Cells("單據編號").Value : xlSheet.Cells(N1 + 4, 2) = DataGridView1.Rows(i).Cells("供應商").Value
-                    xlSheet.Cells(N1 + 4, 3) = DataGridView1.Rows(i).Cells("頁碼").Value : xlSheet.Cells(N1 + 4, 4) = DataGridView1.Rows(i).Cells("品名").Value
-                    xlSheet.Cells(N1 + 4, 5) = DataGridView1.Rows(i).Cells("單價").Value : xlSheet.Cells(N1 + 4, 6) = DataGridView1.Rows(i).Cells("匯率").Value
-                    xlSheet.Cells(N1 + 4, 7) = DataGridView1.Rows(i).Cells("入庫").Value : xlSheet.Cells(N1 + 4, 8) = DataGridView1.Rows(i).Cells("金額").Value
-                    xlSheet.Cells(N1 + 4, 9) = DataGridView1.Rows(i).Cells("採購下單").Value : xlSheet.Cells(N1 + 4, 10) = DataGridView1.Rows(i).Cells("入庫日期").Value
-                    If DataGridView1.Rows(i).Cells("應付立帳").Value = True Then : PA1 = "YES" : Else : PA1 = "NO" : End If
+            For i As Integer = 0 To DataGridView2.Rows.Count - 1
+                If DataGridView2.Rows(i).Cells("選擇").Value = True Then
+                    xlSheet.Cells(N1 + 4, 1) = DataGridView2.Rows(i).Cells("單據編號").Value : xlSheet.Cells(N1 + 4, 2) = DataGridView2.Rows(i).Cells("供應商").Value
+                    xlSheet.Cells(N1 + 4, 3) = DataGridView2.Rows(i).Cells("頁碼").Value : xlSheet.Cells(N1 + 4, 4) = DataGridView2.Rows(i).Cells("品名").Value
+                    xlSheet.Cells(N1 + 4, 5) = DataGridView2.Rows(i).Cells("單價").Value : xlSheet.Cells(N1 + 4, 6) = DataGridView2.Rows(i).Cells("匯率").Value
+                    xlSheet.Cells(N1 + 4, 7) = DataGridView2.Rows(i).Cells("入庫").Value : xlSheet.Cells(N1 + 4, 8) = DataGridView2.Rows(i).Cells("金額").Value
+                    xlSheet.Cells(N1 + 4, 9) = DataGridView2.Rows(i).Cells("採購下單").Value : xlSheet.Cells(N1 + 4, 10) = DataGridView2.Rows(i).Cells("入庫日期").Value
+                    If DataGridView2.Rows(i).Cells("應付立帳").Value = True Then : PA1 = "YES" : Else : PA1 = "NO" : End If
                     xlSheet.Cells(N1 + 4, 11) = PA1
                     N1 += 1
                 End If

MaoOrange-Hongji/財務系統管理/應收帳款控制表.Designer.vb

@@ -22,8 +22,8 @@ Partial Class 應收帳款控制表
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        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 DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.DataGridView1 = New System.Windows.Forms.DataGridView()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.一般月 = New System.Windows.Forms.CheckBox()
@@ -63,6 +63,7 @@ Partial Class 應收帳款控制表
         Me.CheckBox2 = New System.Windows.Forms.CheckBox()
         Me.CheckBox3 = New System.Windows.Forms.CheckBox()
         Me.ComboBox2 = New System.Windows.Forms.ComboBox()
+        Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker()
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -70,8 +71,8 @@ Partial Class 應收帳款控制表
         '
         'DataGridView1
         '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.DataGridView1.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)
@@ -81,8 +82,8 @@ Partial Class 應收帳款控制表
         Me.DataGridView1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.DataGridView1.Name = "DataGridView1"
         Me.DataGridView1.RowHeadersWidth = 5
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.DataGridView1.RowTemplate.Height = 24
         Me.DataGridView1.Size = New System.Drawing.Size(1234, 517)
         Me.DataGridView1.TabIndex = 1116
@@ -101,7 +102,7 @@ Partial Class 應收帳款控制表
         '一般月
         '
         Me.一般月.AutoSize = True
-        Me.一般月.Location = New System.Drawing.Point(130, 31)
+        Me.一般月.Location = New System.Drawing.Point(138, 31)
         Me.一般月.Name = "一般月"
         Me.一般月.Size = New System.Drawing.Size(63, 20)
         Me.一般月.TabIndex = 1123
@@ -113,7 +114,7 @@ Partial Class 應收帳款控制表
         Me.會計月.AutoSize = True
         Me.會計月.Checked = True
         Me.會計月.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.會計月.Location = New System.Drawing.Point(20, 31)
+        Me.會計月.Location = New System.Drawing.Point(11, 31)
         Me.會計月.Name = "會計月"
         Me.會計月.Size = New System.Drawing.Size(63, 20)
         Me.會計月.TabIndex = 1122
@@ -464,11 +465,21 @@ Partial Class 應收帳款控制表
         Me.ComboBox2.Size = New System.Drawing.Size(66, 24)
         Me.ComboBox2.TabIndex = 1196
         '
+        'DateTimePicker4
+        '
+        Me.DateTimePicker4.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker4.Location = New System.Drawing.Point(80, 29)
+        Me.DateTimePicker4.Name = "DateTimePicker4"
+        Me.DateTimePicker4.Size = New System.Drawing.Size(43, 23)
+        Me.DateTimePicker4.TabIndex = 1197
+        '
         '應收帳款控制表
         '
         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.Controls.Add(Me.DateTimePicker4)
         Me.Controls.Add(Me.ComboBox2)
         Me.Controls.Add(Me.TextBox5)
         Me.Controls.Add(Me.TextBox4)
@@ -558,4 +569,5 @@ Partial Class 應收帳款控制表
     Friend WithEvents CheckBox2 As CheckBox
     Friend WithEvents CheckBox3 As CheckBox
     Friend WithEvents ComboBox2 As ComboBox
+    Friend WithEvents DateTimePicker4 As DateTimePicker
 End Class

MaoOrange-Hongji/財務系統管理/應收帳款控制表.vb

@@ -69,8 +69,8 @@ Public Class 應收帳款控制表
             DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(1)
             DTP = Strings.Left(Strings.Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker1.Value = DTP
             '-------------日期二----------------------------------------------------------------------------------------
-            Dim iDays As Integer = DateTime.DaysInMonth(Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 4), Strings.Mid(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 6, 2))
-            DTP = Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & iDays : DateTimePicker2.Value = DTP
+            DTP = Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker2.Value = DTP
+            DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(1) : DateTimePicker2.Value = DateTimePicker2.Value.AddDays(-1)
         End If
     End Sub
     Private Sub 預設關鍵字()
@@ -78,16 +78,34 @@ Public Class 應收帳款控制表
     End Sub
     Private Sub 應收帳款_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        ComboBox6.Visible = False : TextBox1.Visible = False : TextBox4.Visible = False : TextBox5.Visible = False
+        ComboBox6.Visible = False : TextBox1.Visible = False : TextBox4.Visible = False : TextBox5.Visible = False : DateTimePicker4.Visible = False
         TextBox1.Text = "0" : TextBox2.Text = "0"
         ComboBox1下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox6下拉表單資料載入() : 日期格式() : Set_賬款清單()
         預設關鍵字()
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(-1) : DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(-1) : Set_賬款清單()
+        If 會計月.Checked = True Then
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker1.Value = DateTimePicker4.Value
+            DateTimePicker2.Value = DateTimePicker4.Value
+        Else
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker1.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker2.Value = DateTimePicker4.Value
+        End If
+        日期格式() : Set_賬款清單()
     End Sub
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(1) : DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(1) : Set_賬款清單()
+        If 會計月.Checked = True Then
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(1)
+            DateTimePicker1.Value = DateTimePicker4.Value
+            DateTimePicker2.Value = DateTimePicker4.Value
+        Else
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(1)
+            DateTimePicker1.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker2.Value = DateTimePicker4.Value
+        End If
+        日期格式() : Set_賬款清單()
     End Sub
     Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月.Click
         會計月.Checked = True : 一般月.Checked = False : 日期格式() : Set_賬款清單()

MaoOrange-Hongji/財務系統管理/支票收支單申請.resx

@@ -0,0 +1,129 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>18, 8</value>
+  </metadata>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>110, 8</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>47</value>
+  </metadata>
+</root>

MaoOrange-Hongji/財務系統管理/支票收支單申請.vb

@@ -0,0 +1,345 @@
+Option Strict Off
+Public Class 支票收支單申請
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet
+    Dim 新項次 As String : Dim NUM1 As Integer
+    Private Sub Set_清單1()
+        DataGridView2.DataSource = Nothing : ds1.Clear()
+        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        DataGridView2.ColumnHeadersHeight = 25
+        DataGridView2.AllowUserToAddRows = False
+        SQL_支票收支單申請清單()
+        da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()
+
+        DataGridView2.Columns(0).FillWeight = 145 : DataGridView2.Columns(1).FillWeight = 100 : DataGridView2.Columns(2).Visible = False : DataGridView2.Columns(3).Visible = False
+        DataGridView2.Columns(4).FillWeight = 75
+    End Sub
+    Private Sub Set_費用清單()
+        DataGridView1.DataSource = Nothing : ds.Clear()
+        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        DataGridView1.ColumnHeadersHeight = 40
+        DataGridView1.AllowUserToAddRows = False
+        DataGridView1.RowTemplate.Height = 35
+        SQL_支票收支單申請費用清單()
+        da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+
+        DataGridView1.Columns(0).Visible = False : DataGridView1.Columns(1).FillWeight = 80 : DataGridView1.Columns(2).FillWeight = 140 : DataGridView1.Columns(3).FillWeight = 300
+        DataGridView1.Columns(4).FillWeight = 120 : DataGridView1.Columns(5).FillWeight = 120 : DataGridView1.Columns(6).Visible = False : DataGridView1.Columns(7).Visible = False
+        DataGridView1.Columns(8).FillWeight = 200 : DataGridView1.Columns(9).Visible = False : DataGridView1.Columns(10).FillWeight = 110 : DataGridView1.Columns(11).Visible = False
+        DataGridView1.Columns(12).FillWeight = 200 : DataGridView1.Columns(13).FillWeight = 150 : DataGridView1.Columns(14).FillWeight = 150 : DataGridView1.Columns(15).FillWeight = 150
+        DataGridView1.Columns(16).Visible = False : DataGridView1.Columns(17).Visible = False : DataGridView1.Columns(18).Visible = False : DataGridView1.Columns(19).Visible = False
+        DataGridView1.Columns(20).FillWeight = 100 : DataGridView1.Columns(21).Visible = False
+
+        DataGridView1.Columns(1).ReadOnly = True : DataGridView1.Columns(2).ReadOnly = True : DataGridView1.Columns(10).ReadOnly = True : DataGridView1.Columns(4).ReadOnly = True
+        DataGridView1.Columns(5).ReadOnly = True : DataGridView1.Columns(20).ReadOnly = True
+
+        DataGridView1.Columns(4).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(5).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(6).DefaultCellStyle.Format = "#,##0"
+        DataGridView1.Columns(7).DefaultCellStyle.Format = "#,##0"
+        DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        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(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(13).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(14).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(15).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(15).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(20).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(20).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        DataGridView1.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
+            If DataGridView1.Rows(i).Cells("開票").Value <> 0 And DataGridView1.Rows(i).Cells("收票").Value = 0 Then
+                DataGridView1.Rows(i).Cells("狀態").Value = "開票"
+            ElseIf DataGridView1.Rows(i).Cells("開票").Value = 0 And DataGridView1.Rows(i).Cells("收票").Value <> 0 Then
+                DataGridView1.Rows(i).Cells("狀態").Value = "收票"
+            End If
+        Next i
+        TextBox6.Text = Val(TextBox8.Text) - Val(TextBox7.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")
+    End Sub
+    Private Sub ComboBox1下拉表單資料載入()
+        PA = ComboBox4.Text : SQL_會計科目_第三階_只含流動票務()
+        ComboBox1.Items.Clear() : ComboBox6.Items.Clear() : While (dr.Read()) : ComboBox1.Items.Add(dr("會計科目")) : ComboBox6.Items.Add(dr("編號")) : End While : conn.Close()
+        If ComboBox1.Items.Count <> 0 Then : ComboBox1.SelectedIndex = 0 : End If
+    End Sub
+    Private Sub ComboBox2下拉表單資料載入()
+        SQL_會計科目_第一階_只含流動票務()
+        ComboBox5.Items.Clear() : ComboBox2.Items.Clear() : While (dr.Read()) : ComboBox5.Items.Add(dr("第一階")) : ComboBox2.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
+    Private Sub ComboBox3下拉表單資料載入()
+        PA = ComboBox2.Text : SQL_會計科目_第二階_只含流動票務()
+        ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : While (dr.Read()) : ComboBox3.Items.Add(dr("第二階")) : ComboBox4.Items.Add(dr("編號")) : End While : conn.Close() : PA = ""
+    End Sub
+    Private Sub ComboBox7下拉表單資料載入_收票()
+        SQL_支票收支單申請_兌現科目_下拉清單一()
+        ComboBox8.Items.Clear() : ComboBox10.Items.Clear() : While (dr.Read()) : ComboBox8.Items.Add(dr("會計科目")) : ComboBox10.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
+    Private Sub ComboBox7下拉表單資料載入_開票()
+        SQL_支票收支單申請_兌現科目_下拉清單二()
+        ComboBox8.Items.Clear() : ComboBox10.Items.Clear() : While (dr.Read()) : ComboBox8.Items.Add(dr("會計科目")) : ComboBox10.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
+    Private Sub ComboBox9下拉表單資料載入_收票()
+        SQL_支票收支單申請_付款銀行_下拉清單()
+        ComboBox9.Items.Clear() : While (dr.Read()) : ComboBox9.Items.Add(dr("付款銀行")) : End While : conn.Close()
+    End Sub
+    Private Sub ComboBox9下拉表單資料載入_開票()
+        SQL_支票收支單申請_兌現科目_下拉清單一()
+        ComboBox9.Items.Clear() : While (dr.Read()) : ComboBox9.Items.Add(dr("會計科目")) : End While : conn.Close()
+    End Sub
+    Private Sub 支票收支單申請_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        DateTimePicker2.Visible = False : 複製單據開單ToolStripMenuItem.Enabled = False : ComboBox6.Visible = False : ComboBox10.Visible = False
+        TextBox2.Visible = False : TextBox5.Visible = False : Label8.Visible = False : Label5.Visible = False : TextBox10.Enabled = False : TextBox11.Enabled = False
+        DataGridView2.Visible = True : Set_清單1() : ComboBox2下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.TextChanged
+        ComboBox2.SelectedIndex = ComboBox5.SelectedIndex : TextBox9.Text = "" : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.TextChanged
+        ComboBox5.SelectedIndex = ComboBox2.SelectedIndex : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.TextChanged
+        ComboBox4.SelectedIndex = ComboBox3.SelectedIndex : ComboBox1下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.TextChanged
+        ComboBox3.SelectedIndex = ComboBox4.SelectedIndex : ComboBox1下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
+        ComboBox6.SelectedIndex = ComboBox1.SelectedIndex
+    End Sub
+    Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedIndexChanged
+        ComboBox1.SelectedIndex = ComboBox6.SelectedIndex
+    End Sub
+    Private Sub ComboBox8_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox8.SelectedIndexChanged
+        ComboBox10.SelectedIndex = ComboBox8.SelectedIndex
+    End Sub
+    Private Sub ComboBox10_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox10.SelectedIndexChanged
+        ComboBox8.SelectedIndex = ComboBox10.SelectedIndex
+    End Sub
+    Private Sub ComboBox7_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox7.SelectedIndexChanged
+        If ComboBox7.Text = "收票" Then
+            ComboBox7下拉表單資料載入_收票() : ComboBox5.SelectedIndex = 0 : ComboBox3.SelectedIndex = 1 : ComboBox1.SelectedIndex = 0 : ComboBox9.Text = "" : ComboBox9下拉表單資料載入_收票()
+        Else
+            ComboBox7下拉表單資料載入_開票() : ComboBox5.SelectedIndex = 1 : ComboBox3.SelectedIndex = 1 : ComboBox1.SelectedIndex = 0 : ComboBox9.Text = "" : ComboBox9下拉表單資料載入_開票()
+        End If
+    End Sub
+    Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged
+        PA = TextBox9.Text : SQL_會計科目_關鍵字_只含流動票務()
+        ComboBox1.Items.Clear() : ComboBox6.Items.Clear() : While (dr.Read()) : ComboBox1.Items.Add(dr("會計科目")) : ComboBox6.Items.Add(dr("編號")) : End While : conn.Close()
+        If ComboBox1.Items.Count <> 0 Then : ComboBox1.SelectedIndex = 0 : End If : PA = ""
+    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 DataGridView1_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.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
+            If DataGridView1.Rows(i).Cells("開票").Value <> 0 And DataGridView1.Rows(i).Cells("收票").Value = 0 Then
+                DataGridView1.Rows(i).Cells("狀態").Value = "開票"
+            ElseIf DataGridView1.Rows(i).Cells("開票").Value = 0 And DataGridView1.Rows(i).Cells("收票").Value <> 0 Then
+                DataGridView1.Rows(i).Cells("狀態").Value = "收票"
+            End If
+        Next i
+        TextBox6.Text = Val(TextBox8.Text) - Val(TextBox7.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 EU1 As String : Dim EU2 As String : Dim EU3 As String
+        EU1 = DataGridView1("到期日", e.RowIndex).Value.ToString : EU2 = DataGridView1("預定兌現日", e.RowIndex).Value.ToString : EU3 = DataGridView1("開收票日", e.RowIndex).Value.ToString
+        If EU1 = "" Then : Else : DateTimePicker2.Text = EU1 : DataGridView1.Rows(e.RowIndex).Cells("到期日").Value = Format(DateTimePicker2.Value, "yyyy/MM/dd") : End If
+        If EU2 = "" Then : Else : DateTimePicker2.Text = EU2 : DataGridView1.Rows(e.RowIndex).Cells("預定兌現日").Value = Format(DateTimePicker2.Value, "yyyy/MM/dd") : End If
+        If EU3 = "" Then : Else : DateTimePicker2.Text = EU3 : DataGridView1.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
+        If e.RowIndex = -1 Then : Else
+            TextBox1.Text = DataGridView2(0, e.RowIndex).Value.ToString : DateTimePicker1.Value = DataGridView2(1, e.RowIndex).Value.ToString : Set_費用清單()
+            TextBox3.Text = DataGridView2(3, e.RowIndex).Value.ToString
+            '-------------------------------------------------------------------------------------------------------------------------------------------------------------
+            TextBox15.Text = DataGridView1("發票人帳號", 0).Value.ToString : TextBox14.Text = DataGridView1("用途", 0).Value.ToString
+            TextBox4.Text = DataGridView1("項次", 0).Value.ToString : TextBox9.Text = DataGridView1("會計科目", 0).Value.ToString
+            ComboBox7.Text = DataGridView1("狀態", 0).Value.ToString : ComboBox1.Text = DataGridView1("會計科目", 0).Value.ToString
+            ComboBox10.Text = DataGridView1("兌現科目", 0).Value.ToString : ComboBox9.Text = DataGridView1("付款銀行", 0).Value.ToString
+            TextBox10.Text = DataGridView1("倉儲單號", 0).Value.ToString : TextBox12.Text = DataGridView1("支票號碼", 0).Value.ToString
+            TextBox13.Text = DataGridView1("開票人", 0).Value.ToString : TextBox16.Text = DataGridView1("備註", 0).Value.ToString
+            If DataGridView1("到期日", 0).Value.ToString = "" Then : Else : DateTimePicker3.Value = DataGridView1("到期日", 0).Value.ToString : End If
+            If DataGridView1("預定兌現日", 0).Value.ToString = "" Then : Else : DateTimePicker4.Value = DataGridView1("預定兌現日", 0).Value.ToString : End If
+            If DataGridView1("開收票日", 0).Value.ToString = "" Then : Else : DateTimePicker5.Value = DataGridView1("開收票日", 0).Value.ToString : End If
+            If ComboBox7.Text = "開票" Then : NumericUpDown1.Value = DataGridView1("開票", 0).Value : Else : NumericUpDown1.Value = DataGridView1("收票", 0).Value : End If
+            客戶供應商資料()
+            '-------------------------------------------------------------------------------------------------------------------------------------------------------------
+            For i As Integer = 0 To DataGridView1.Rows.Count - 1
+                If DataGridView1.Rows(i).Cells("開票").Value <> 0 And DataGridView1.Rows(i).Cells("收票").Value = 0 Then
+                    DataGridView1.Rows(i).Cells("狀態").Value = "開票"
+                ElseIf DataGridView1.Rows(i).Cells("開票").Value = 0 And DataGridView1.Rows(i).Cells("收票").Value <> 0 Then
+                    DataGridView1.Rows(i).Cells("狀態").Value = "收票"
+                End If
+            Next i
+        End If
+    End Sub
+    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
+        If e.RowIndex = -1 Then : Else
+            TextBox15.Text = DataGridView1("發票人帳號", e.RowIndex).Value.ToString : TextBox14.Text = DataGridView1("用途", e.RowIndex).Value.ToString
+            TextBox4.Text = DataGridView1("項次", e.RowIndex).Value.ToString : TextBox9.Text = DataGridView1("會計科目", e.RowIndex).Value.ToString
+            ComboBox7.Text = DataGridView1("狀態", e.RowIndex).Value.ToString : ComboBox1.Text = DataGridView1("會計科目", e.RowIndex).Value.ToString
+            ComboBox10.Text = DataGridView1("兌現科目", e.RowIndex).Value.ToString : ComboBox9.Text = DataGridView1("付款銀行", e.RowIndex).Value.ToString
+            TextBox10.Text = DataGridView1("倉儲單號", e.RowIndex).Value.ToString : TextBox12.Text = DataGridView1("支票號碼", e.RowIndex).Value.ToString
+            TextBox13.Text = DataGridView1("開票人", e.RowIndex).Value.ToString : TextBox16.Text = DataGridView1("備註", e.RowIndex).Value.ToString
+            If DataGridView1("到期日", e.RowIndex).Value.ToString = "" Then : Else : DateTimePicker3.Value = DataGridView1("到期日", e.RowIndex).Value.ToString : End If
+            If DataGridView1("預定兌現日", e.RowIndex).Value.ToString = "" Then : Else : DateTimePicker4.Value = DataGridView1("預定兌現日", e.RowIndex).Value.ToString : End If
+            If DataGridView1("開收票日", e.RowIndex).Value.ToString = "" Then : Else : DateTimePicker5.Value = DataGridView1("開收票日", e.RowIndex).Value.ToString : End If
+
+            If ComboBox7.Text = "開票" Then
+                NumericUpDown1.Value = DataGridView1("開票", e.RowIndex).Value
+            Else
+                NumericUpDown1.Value = DataGridView1("收票", e.RowIndex).Value
+            End If
+            客戶供應商資料()
+        End If
+    End Sub
+    Private Sub 客戶供應商資料()
+        PA = TextBox10.Text : SQL_支票收支單客戶供應商查詢()
+        If (dr.Read()) Then
+            If ComboBox7.Text = "開票" Then
+                TextBox11.Text = dr("供應商") : conn.Close()
+            Else
+                TextBox11.Text = dr("客戶編號")
+                If TextBox11.Text = "CI00000000" Then
+                    conn.Close()
+                    SQL_支票收支單申請_客戶資料_零售()
+                    If (dr.Read()) Then
+                        TextBox11.Text = dr("客戶名稱") : conn.Close()
+                    End If
+                Else
+                    TextBox11.Text = dr("客戶") : conn.Close()
+                End If
+            End If
+        Else
+            TextBox11.Text = ""
+        End If
+    End Sub
+    Private Sub Set_切換格式()
+        DataGridView1.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 存檔()
+        PA4 = TextBox1.Text
+        For i As Integer = 0 To DataGridView1.Rows.Count - 1
+            資料數 = DataGridView1.Rows.Count : MyModule1.進度條()
+            PA1 = DataGridView1.Rows(i).Cells("用途").Value : NU1 = DataGridView1.Rows(i).Cells("支出").Value : PA2 = DataGridView1.Rows(i).Cells("備註").Value
+            PA3 = DataGridView1.Rows(i).Cells("科目編號").Value : NU2 = DataGridView1.Rows(i).Cells("現金").Value : NU3 = DataGridView1.Rows(i).Cells("開票").Value
+            NU4 = DataGridView1.Rows(i).Cells("收票").Value : PA5 = DataGridView1.Rows(i).Cells("項次").Value : PA6 = DataGridView1.Rows(i).Cells("狀態").Value : PA7 = gUserName
+            PA8 = DataGridView1.Rows(i).Cells("發票人帳號").Value.ToString : PA9 = DataGridView1.Rows(i).Cells("兌現科目").Value.ToString : PA10 = DataGridView1.Rows(i).Cells("付款銀行").Value.ToString
+            PA11 = DataGridView1.Rows(i).Cells("倉儲單號").Value.ToString : PA12 = DataGridView1.Rows(i).Cells("支票號碼").Value.ToString : PA13 = DataGridView1.Rows(i).Cells("開票人").Value.ToString
+            PA14 = DataGridView1.Rows(i).Cells("到期日").Value.ToString : PA15 = DataGridView1.Rows(i).Cells("預定兌現日").Value.ToString : PA16 = DataGridView1.Rows(i).Cells("開收票日").Value.ToString
+            SQL_支票收支單申請修改() : conn.Close()
+        Next : MAOJI_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+    End Sub
+    Private Sub 單筆存檔()
+        DTP = Format(DateTimePicker3.Value, "yyyy/MM/dd") : DTP1 = Format(DateTimePicker4.Value, "yyyy/MM/dd") : DTP2 = Format(DateTimePicker5.Value, "yyyy/MM/dd")
+        If ComboBox7.Text = "開票" Then : NU3 = NumericUpDown1.Value : NU4 = 0 : Else : NU4 = NumericUpDown1.Value : NU3 = 0 : End If
+        PA4 = TextBox1.Text : PA1 = TextBox14.Text : NU1 = 0 : PA2 = TextBox16.Text : PA3 = ComboBox6.Text : NU2 = 0 : PA5 = TextBox4.Text : PA6 = ComboBox7.Text : PA7 = gUserName
+        PA8 = TextBox15.Text : PA9 = ComboBox10.Text : PA10 = ComboBox9.Text : PA11 = TextBox10.Text : PA12 = TextBox12.Text : PA13 = TextBox13.Text : PA14 = DTP : PA15 = DTP1 : PA16 = DTP2
+        SQL_支票收支單申請修改() : conn.Close()
+    End Sub
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Timer1.Enabled = False : Label62.Visible = False
+        開立支票收支群組單號ToolStripMenuItem.Enabled = True : DataGridView2.Enabled = True
+        單筆存檔() : Set_費用清單() : MsgBox("存檔完成。")
+    End Sub
+    Private Sub Set_日期格式轉換()
+        If CheckBox1.Checked = False Then : DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
+        Else : DTP1 = Format(DateTimePicker1.Value, "yyyyMMdd") : DTP = Format(DateTimePicker1.Value, "yyyy/MM/dd") : End If
+    End Sub
+    Private Sub 開立零用金支付單()
+        Dim NUM1 As Integer : Timer1.Enabled = True
+        Set_日期格式轉換()
+        For i As Integer = 1 To 999
+            NUM1 = 0 + i
+            If NUM1 < 10 Then : TextBox1.Text = "OE-" & DTP1 & "-00" & NUM1
+            ElseIf NUM1 > 9 And NUM1 < 100 Then : TextBox1.Text = "OE-" & DTP1 & "-0" & NUM1
+            ElseIf NUM1 > 99 Then : TextBox1.Text = "OE-" & DTP1 & "-" & NUM1 : End If : PA = TextBox1.Text
+            SQL_營運成本收支單申請_支付單號流水號()
+            If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
+        Next
+        SQL_支票收支單申請_營運成本控制表新增() : TextBox3.Text = gUserName
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Set_日期格式轉換() : 開立零用金支付單() : 開立支票收支群組單號ToolStripMenuItem.Enabled = False : DataGridView2.Enabled = False : 票據資料存檔ToolStripMenuItem.Enabled = True
+        複製單據開單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
+            PA1 = TextBox1.Text : PA2 = DataGridView1.Rows(i).Cells("項次").Value : PA3 = DataGridView1.Rows(i).Cells("科目編號").Value : PA4 = DataGridView1.Rows(i).Cells("用途").Value
+            NU1 = DataGridView1.Rows(i).Cells("支出").Value : PA5 = DataGridView1.Rows(i).Cells("備註").Value : NU2 = DataGridView1.Rows(i).Cells("現金").Value
+            NU3 = DataGridView1.Rows(i).Cells("開票").Value : NU4 = DataGridView1.Rows(i).Cells("收票").Value : PA6 = DataGridView1.Rows(i).Cells("狀態").Value : PA7 = gUserName
+            PA8 = DataGridView1.Rows(i).Cells("發票人帳號").Value : PA9 = DataGridView1.Rows(i).Cells("兌現科目").Value : PA10 = DataGridView1.Rows(i).Cells("付款銀行").Value
+            PA11 = DataGridView1.Rows(i).Cells("倉儲單號").Value : PA12 = DataGridView1.Rows(i).Cells("支票號碼").Value : PA13 = DataGridView1.Rows(i).Cells("開票人").Value
+            PA14 = DataGridView1.Rows(i).Cells("到期日").Value : PA15 = DataGridView1.Rows(i).Cells("預定兌現日").Value : PA16 = DataGridView1.Rows(i).Cells("開收票日").Value
+            SQL_支票收支單申請複製單據新增()
+        Next : Set_費用清單() : MsgBox("複製單據開立完成。")
+    End Sub
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        Timer1.Enabled = False : Label62.Visible = False
+        開立支票收支群組單號ToolStripMenuItem.Enabled = True : DataGridView2.Enabled = True
+        存檔() : Set_清單1() : MsgBox("申請完成，請通知主管審核。")
+    End Sub
+    '----------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------------------------------------
+    Private Sub 重新讀取ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新讀取ToolStripMenuItem.Click
+        Set_清單1() : Set_切換格式()
+    End Sub
+    Private Sub 開立零用金支付單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 開立支票收支群組單號ToolStripMenuItem.Click
+        開立零用金支付單()
+        開立支票收支群組單號ToolStripMenuItem.Enabled = False : DataGridView2.Enabled = False
+        DataGridView1.DataSource = Nothing : ds.Clear() : conn.Close() : Set_清單1()
+    End Sub
+    Private Sub 刪除選中的零用金支付單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 刪除選中的支票收支單ToolStripMenuItem.Click
+        Dim aa As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
+        If aa = MsgBoxResult.Ok Then
+            PA1 = TextBox1.Text : SQL_營運成本控制表刪除() : conn.Close() : SQL_營運成本明細表刪除() : conn.Close()
+            TextBox1.Text = "" : TextBox3.Text = "" : TextBox4.Text = "" : DataGridView1.DataSource = Nothing : ds.Clear() : Set_清單1()
+        End If
+    End Sub
+    Private Sub 刪除支付單中選中的資料ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 刪除一筆支票資料資料ToolStripMenuItem.Click
+        If TextBox4.Text = "" Then : MsgBox("未選擇需要刪除的資料。")
+        Else
+            存檔() : PA1 = TextBox1.Text : PA2 = TextBox4.Text : SQL_營運成本明細表刪除單筆() : conn.Close() : Set_費用清單() : Dim NUM1 As Integer = 0
+            For i As Integer = 0 To DataGridView1.Rows.Count - 1
+                NUM1 += 1 : If NUM1 < 10 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
+                PA1 = 新項次 : PA2 = TextBox1.Text : PA3 = DataGridView1.Rows(i).Cells("項次").Value
+                SQL_營運成本明細表項次修改() : conn.Close()
+            Next : Set_費用清單()
+        End If
+    End Sub
+    Private Sub 新增一筆資料ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 新增一筆空白支票ToolStripMenuItem.Click
+        If ComboBox6.Text = "" Then : MsgBox("沒有選擇會計科目。")
+        Else
+            If ComboBox7.Text = "" Then : MsgBox("請確定狀態要收票還是開票。")
+            Else
+                If TextBox1.Text = "" Then : 開立零用金支付單() : End If
+                Set_日期格式轉換() : 存檔() : PA = TextBox1.Text
+                SQL_營運成本明細表項次新增查詢()
+                If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close() : NUM1 = Double.Parse(新項次) + 1
+                If NUM1 < 10 Then : 新項次 = "0" & NUM1
+                ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
+                PA1 = TextBox1.Text : PA2 = 新項次 : PA3 = ComboBox6.Text : PA4 = "" : NU1 = 0 : PA5 = "" : NU2 = 0 : NU3 = 0 : NU4 = 0 : PA6 = ComboBox7.Text : PA7 = gUserName
+                SQL_營運成本明細表新增() : Set_費用清單()
+            End If
+        End If
+    End Sub
+    Private Sub 申請完成ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 票據資料存檔ToolStripMenuItem.Click
+        Me.Button2.PerformClick()
+    End Sub
+    Private Sub 複製單據開單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 複製單據開單ToolStripMenuItem.Click
+        Me.Button1.PerformClick()
+    End Sub
+End Class

MaoOrange-Hongji/財務系統管理/業務佣金計算.Designer.vb

@@ -67,6 +67,7 @@ Partial Class 業務佣金計算
         Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
         Me.列印成EXCELToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.開立收支單ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker()
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.SuspendLayout()
@@ -466,12 +467,22 @@ Partial Class 業務佣金計算
         Me.開立收支單ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
         Me.開立收支單ToolStripMenuItem.Text = "開立收支單"
         '
+        'DateTimePicker4
+        '
+        Me.DateTimePicker4.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker4.Location = New System.Drawing.Point(665, 135)
+        Me.DateTimePicker4.Name = "DateTimePicker4"
+        Me.DateTimePicker4.Size = New System.Drawing.Size(175, 23)
+        Me.DateTimePicker4.TabIndex = 1167
+        '
         '業務佣金計算
         '
         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.DateTimePicker4)
         Me.Controls.Add(Me.Button6)
         Me.Controls.Add(Me.TextBox2)
         Me.Controls.Add(Me.CheckBox1)
@@ -557,4 +568,5 @@ Partial Class 業務佣金計算
     Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
     Friend WithEvents 列印成EXCELToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents 開立收支單ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents DateTimePicker4 As DateTimePicker
 End Class

MaoOrange-Hongji/財務系統管理/業務佣金計算.vb

@@ -70,13 +70,13 @@ Public Class 業務佣金計算
             DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(1)
             DTP = Strings.Left(Strings.Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker1.Value = DTP
             '-------------日期二----------------------------------------------------------------------------------------
-            Dim iDays As Integer = DateTime.DaysInMonth(Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 4), Strings.Mid(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 6, 2))
-            DTP = Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & iDays : DateTimePicker2.Value = DTP
+            DTP = Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker2.Value = DTP
+            DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(1) : DateTimePicker2.Value = DateTimePicker2.Value.AddDays(-1)
         End If
     End Sub
     Private Sub 業務佣金計算_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        ComboBox6.Visible = False : TextBox2.Visible = False
+        ComboBox6.Visible = False : TextBox2.Visible = False : DateTimePicker4.Visible = False
         ComboBox1下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox6下拉表單資料載入() : ComboBox2下拉表單資料載入() : ComboBox2.SelectedIndex = 0 : 日期格式() : Set_業務佣金清單()
     End Sub
     Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
@@ -120,10 +120,28 @@ Public Class 業務佣金計算
         If ComboBox7.Items.Count <> 0 Then : ComboBox7.SelectedIndex = 0 : End If : PA = ""
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(-1) : DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(-1) : Set_業務佣金清單()
+        If 會計月.Checked = True Then
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker1.Value = DateTimePicker4.Value
+            DateTimePicker2.Value = DateTimePicker4.Value
+        Else
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker1.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker2.Value = DateTimePicker4.Value
+        End If
+        日期格式() : Set_業務佣金清單()
     End Sub
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(1) : DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(1) : Set_業務佣金清單()
+        If 會計月.Checked = True Then
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(1)
+            DateTimePicker1.Value = DateTimePicker4.Value
+            DateTimePicker2.Value = DateTimePicker4.Value
+        Else
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(1)
+            DateTimePicker1.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker2.Value = DateTimePicker4.Value
+        End If
+        日期格式() : Set_業務佣金清單()
     End Sub
     Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月.Click
         會計月.Checked = True : 一般月.Checked = False : 日期格式() : Set_業務佣金清單()

MaoOrange-Hongji/財務系統管理/現金收支單申請.Designer.vb

@@ -0,0 +1,631 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 現金收支單申請
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <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()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.TextBox5 = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label62 = New System.Windows.Forms.Label()
+        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.Label3 = New System.Windows.Forms.Label()
+        Me.TextBox3 = New System.Windows.Forms.TextBox()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.RadioButton2 = New System.Windows.Forms.RadioButton()
+        Me.RadioButton1 = New System.Windows.Forms.RadioButton()
+        Me.DataGridView2 = New System.Windows.Forms.DataGridView()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.重新讀取ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
+        Me.開立現金收支單ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.複製單據開單ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.申請完成ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.新增一筆資料ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.刪除支付單中選中的資料ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.刪除選中的現金收支單ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
+        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.TextBox6 = New System.Windows.Forms.TextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.TextBox7 = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.TextBox8 = New System.Windows.Forms.TextBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.RadioButton3 = New System.Windows.Forms.RadioButton()
+        Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.ComboBox4 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox3 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox2 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox5 = New System.Windows.Forms.ComboBox()
+        Me.TextBox9 = New System.Windows.Forms.TextBox()
+        Me.ComboBox6 = New System.Windows.Forms.ComboBox()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Location = New System.Drawing.Point(937, 56)
+        Me.ComboBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(175, 24)
+        Me.ComboBox1.TabIndex = 845
+        '
+        'TextBox5
+        '
+        Me.TextBox5.Location = New System.Drawing.Point(569, 4)
+        Me.TextBox5.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox5.Name = "TextBox5"
+        Me.TextBox5.Size = New System.Drawing.Size(113, 23)
+        Me.TextBox5.TabIndex = 844
+        Me.TextBox5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(537, 8)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(32, 16)
+        Me.Label8.TabIndex = 843
+        Me.Label8.Text = "現金"
+        '
+        'Label62
+        '
+        Me.Label62.AutoSize = True
+        Me.Label62.Font = New System.Drawing.Font("微軟正黑體", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label62.ForeColor = System.Drawing.Color.Red
+        Me.Label62.Location = New System.Drawing.Point(688, 54)
+        Me.Label62.Name = "Label62"
+        Me.Label62.Size = New System.Drawing.Size(188, 26)
+        Me.Label62.TabIndex = 842
+        Me.Label62.Text = "資  料  尚  未  存  檔"
+        Me.Label62.Visible = False
+        '
+        'TextBox4
+        '
+        Me.TextBox4.Location = New System.Drawing.Point(360, 56)
+        Me.TextBox4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Size = New System.Drawing.Size(61, 23)
+        Me.TextBox4.TabIndex = 841
+        Me.TextBox4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label28
+        '
+        Me.Label28.AutoSize = True
+        Me.Label28.Location = New System.Drawing.Point(420, 61)
+        Me.Label28.Name = "Label28"
+        Me.Label28.Size = New System.Drawing.Size(44, 16)
+        Me.Label28.TabIndex = 840
+        Me.Label28.Text = "項次。"
+        '
+        'Label27
+        '
+        Me.Label27.AutoSize = True
+        Me.Label27.Location = New System.Drawing.Point(328, 59)
+        Me.Label27.Name = "Label27"
+        Me.Label27.Size = New System.Drawing.Size(32, 16)
+        Me.Label27.TabIndex = 839
+        Me.Label27.Text = "選擇"
+        '
+        'DataGridView1
+        '
+        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) _
+            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, 522)
+        Me.DataGridView1.TabIndex = 838
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(328, 33)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(74, 16)
+        Me.Label3.TabIndex = 837
+        Me.Label3.Text = "申     請     人"
+        '
+        'TextBox3
+        '
+        Me.TextBox3.Location = New System.Drawing.Point(409, 31)
+        Me.TextBox3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Size = New System.Drawing.Size(122, 23)
+        Me.TextBox3.TabIndex = 836
+        Me.TextBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(409, 5)
+        Me.TextBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(122, 23)
+        Me.TextBox1.TabIndex = 832
+        Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(327, 8)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(80, 16)
+        Me.Label1.TabIndex = 833
+        Me.Label1.Text = "現金收支單號"
+        '
+        'RadioButton2
+        '
+        Me.RadioButton2.AutoSize = True
+        Me.RadioButton2.Location = New System.Drawing.Point(176, 5)
+        Me.RadioButton2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.RadioButton2.Name = "RadioButton2"
+        Me.RadioButton2.Size = New System.Drawing.Size(122, 20)
+        Me.RadioButton2.TabIndex = 829
+        Me.RadioButton2.TabStop = True
+        Me.RadioButton2.Text = "作廢的現金收支單"
+        Me.RadioButton2.UseVisualStyleBackColor = True
+        '
+        'RadioButton1
+        '
+        Me.RadioButton1.AutoSize = True
+        Me.RadioButton1.Location = New System.Drawing.Point(12, 5)
+        Me.RadioButton1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.RadioButton1.Name = "RadioButton1"
+        Me.RadioButton1.Size = New System.Drawing.Size(134, 20)
+        Me.RadioButton1.TabIndex = 828
+        Me.RadioButton1.TabStop = True
+        Me.RadioButton1.Text = "未核准的現金收支單"
+        Me.RadioButton1.UseVisualStyleBackColor = True
+        '
+        '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
+        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
+        Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView2.Location = New System.Drawing.Point(7, 50)
+        Me.DataGridView2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.DataGridView2.Name = "DataGridView2"
+        Me.DataGridView2.RowHeadersWidth = 5
+        Me.DataGridView2.RowTemplate.Height = 24
+        Me.DataGridView2.Size = New System.Drawing.Size(315, 555)
+        Me.DataGridView2.TabIndex = 820
+        '
+        'Button2
+        '
+        Me.Button2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button2.Location = New System.Drawing.Point(1118, 2)
+        Me.Button2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(119, 78)
+        Me.Button2.TabIndex = 846
+        Me.Button2.Text = "申請完成"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(839, 7)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(92, 16)
+        Me.Label2.TabIndex = 847
+        Me.Label2.Text = "會計科目關鍵字"
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新讀取ToolStripMenuItem, Me.ToolStripSeparator6, Me.開立現金收支單ToolStripMenuItem, Me.複製單據開單ToolStripMenuItem, Me.申請完成ToolStripMenuItem, Me.ToolStripSeparator1, Me.新增一筆資料ToolStripMenuItem, Me.刪除支付單中選中的資料ToolStripMenuItem, Me.ToolStripSeparator2, Me.刪除選中的現金收支單ToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(231, 176)
+        '
+        '重新讀取ToolStripMenuItem
+        '
+        Me.重新讀取ToolStripMenuItem.Name = "重新讀取ToolStripMenuItem"
+        Me.重新讀取ToolStripMenuItem.Size = New System.Drawing.Size(230, 22)
+        Me.重新讀取ToolStripMenuItem.Text = "重新讀取"
+        '
+        'ToolStripSeparator6
+        '
+        Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
+        Me.ToolStripSeparator6.Size = New System.Drawing.Size(227, 6)
+        '
+        '開立現金收支單ToolStripMenuItem
+        '
+        Me.開立現金收支單ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.開立現金收支單ToolStripMenuItem.Name = "開立現金收支單ToolStripMenuItem"
+        Me.開立現金收支單ToolStripMenuItem.Size = New System.Drawing.Size(230, 22)
+        Me.開立現金收支單ToolStripMenuItem.Text = "開立現金收支單"
+        '
+        '複製單據開單ToolStripMenuItem
+        '
+        Me.複製單據開單ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.複製單據開單ToolStripMenuItem.Name = "複製單據開單ToolStripMenuItem"
+        Me.複製單據開單ToolStripMenuItem.Size = New System.Drawing.Size(230, 22)
+        Me.複製單據開單ToolStripMenuItem.Text = "複製歷史單據重新開立"
+        '
+        '申請完成ToolStripMenuItem
+        '
+        Me.申請完成ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.申請完成ToolStripMenuItem.Name = "申請完成ToolStripMenuItem"
+        Me.申請完成ToolStripMenuItem.Size = New System.Drawing.Size(230, 22)
+        Me.申請完成ToolStripMenuItem.Text = "申請完成"
+        '
+        'ToolStripSeparator1
+        '
+        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(227, 6)
+        '
+        '新增一筆資料ToolStripMenuItem
+        '
+        Me.新增一筆資料ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.新增一筆資料ToolStripMenuItem.Name = "新增一筆資料ToolStripMenuItem"
+        Me.新增一筆資料ToolStripMenuItem.Size = New System.Drawing.Size(230, 22)
+        Me.新增一筆資料ToolStripMenuItem.Text = "收支單中新增一筆空白資料"
+        '
+        '刪除支付單中選中的資料ToolStripMenuItem
+        '
+        Me.刪除支付單中選中的資料ToolStripMenuItem.ForeColor = System.Drawing.Color.Red
+        Me.刪除支付單中選中的資料ToolStripMenuItem.Name = "刪除支付單中選中的資料ToolStripMenuItem"
+        Me.刪除支付單中選中的資料ToolStripMenuItem.Size = New System.Drawing.Size(230, 22)
+        Me.刪除支付單中選中的資料ToolStripMenuItem.Text = "刪除一筆收支單中選中的資料"
+        '
+        'ToolStripSeparator2
+        '
+        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(227, 6)
+        '
+        '刪除選中的現金收支單ToolStripMenuItem
+        '
+        Me.刪除選中的現金收支單ToolStripMenuItem.ForeColor = System.Drawing.Color.Red
+        Me.刪除選中的現金收支單ToolStripMenuItem.Name = "刪除選中的現金收支單ToolStripMenuItem"
+        Me.刪除選中的現金收支單ToolStripMenuItem.Size = New System.Drawing.Size(230, 22)
+        Me.刪除選中的現金收支單ToolStripMenuItem.Text = "刪除選中的現金收支單"
+        '
+        'Timer1
+        '
+        Me.Timer1.Interval = 500
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.ForeColor = System.Drawing.Color.Blue
+        Me.Label4.Location = New System.Drawing.Point(688, 7)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(32, 16)
+        Me.Label4.TabIndex = 878
+        Me.Label4.Text = "日期"
+        '
+        'DateTimePicker1
+        '
+        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker1.Location = New System.Drawing.Point(720, 4)
+        Me.DateTimePicker1.Name = "DateTimePicker1"
+        Me.DateTimePicker1.Size = New System.Drawing.Size(90, 23)
+        Me.DateTimePicker1.TabIndex = 877
+        '
+        'CheckBox1
+        '
+        Me.CheckBox1.AutoSize = True
+        Me.CheckBox1.Checked = True
+        Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.CheckBox1.Location = New System.Drawing.Point(720, 31)
+        Me.CheckBox1.Name = "CheckBox1"
+        Me.CheckBox1.Size = New System.Drawing.Size(39, 20)
+        Me.CheckBox1.TabIndex = 879
+        Me.CheckBox1.Text = "補"
+        Me.CheckBox1.UseVisualStyleBackColor = True
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Location = New System.Drawing.Point(569, 30)
+        Me.TextBox2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(113, 23)
+        Me.TextBox2.TabIndex = 881
+        Me.TextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(535, 33)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(32, 16)
+        Me.Label5.TabIndex = 880
+        Me.Label5.Text = "支出"
+        '
+        'TextBox6
+        '
+        Me.TextBox6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox6.Location = New System.Drawing.Point(569, 56)
+        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 = 883
+        Me.TextBox6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(511, 59)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(56, 16)
+        Me.Label9.TabIndex = 882
+        Me.Label9.Text = "現金餘額"
+        '
+        'TextBox7
+        '
+        Me.TextBox7.Location = New System.Drawing.Point(423, 158)
+        Me.TextBox7.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.Size = New System.Drawing.Size(113, 23)
+        Me.TextBox7.TabIndex = 885
+        Me.TextBox7.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(377, 161)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(44, 16)
+        Me.Label10.TabIndex = 884
+        Me.Label10.Text = "零用金"
+        '
+        'TextBox8
+        '
+        Me.TextBox8.Location = New System.Drawing.Point(423, 189)
+        Me.TextBox8.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox8.Name = "TextBox8"
+        Me.TextBox8.Size = New System.Drawing.Size(113, 23)
+        Me.TextBox8.TabIndex = 887
+        Me.TextBox8.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(389, 192)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(32, 16)
+        Me.Label11.TabIndex = 886
+        Me.Label11.Text = "支票"
+        '
+        'RadioButton3
+        '
+        Me.RadioButton3.AutoSize = True
+        Me.RadioButton3.Location = New System.Drawing.Point(12, 28)
+        Me.RadioButton3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.RadioButton3.Name = "RadioButton3"
+        Me.RadioButton3.Size = New System.Drawing.Size(134, 20)
+        Me.RadioButton3.TabIndex = 888
+        Me.RadioButton3.TabStop = True
+        Me.RadioButton3.Text = "已核准的現金收支單"
+        Me.RadioButton3.UseVisualStyleBackColor = True
+        '
+        'DateTimePicker2
+        '
+        Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker2.Location = New System.Drawing.Point(423, 128)
+        Me.DateTimePicker2.Name = "DateTimePicker2"
+        Me.DateTimePicker2.Size = New System.Drawing.Size(113, 23)
+        Me.DateTimePicker2.TabIndex = 889
+        '
+        'Button1
+        '
+        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(186, 26)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(136, 23)
+        Me.Button1.TabIndex = 890
+        Me.Button1.Text = "複製歷史單據重新開立"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'ComboBox4
+        '
+        Me.ComboBox4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox4.FormattingEnabled = True
+        Me.ComboBox4.Location = New System.Drawing.Point(1037, 30)
+        Me.ComboBox4.Name = "ComboBox4"
+        Me.ComboBox4.Size = New System.Drawing.Size(75, 24)
+        Me.ComboBox4.TabIndex = 894
+        '
+        'ComboBox3
+        '
+        Me.ComboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox3.FormattingEnabled = True
+        Me.ComboBox3.Location = New System.Drawing.Point(937, 30)
+        Me.ComboBox3.Name = "ComboBox3"
+        Me.ComboBox3.Size = New System.Drawing.Size(96, 24)
+        Me.ComboBox3.TabIndex = 893
+        '
+        'ComboBox2
+        '
+        Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox2.FormattingEnabled = True
+        Me.ComboBox2.Location = New System.Drawing.Point(1037, 4)
+        Me.ComboBox2.Name = "ComboBox2"
+        Me.ComboBox2.Size = New System.Drawing.Size(75, 24)
+        Me.ComboBox2.TabIndex = 892
+        '
+        'ComboBox5
+        '
+        Me.ComboBox5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox5.FormattingEnabled = True
+        Me.ComboBox5.Location = New System.Drawing.Point(937, 4)
+        Me.ComboBox5.Name = "ComboBox5"
+        Me.ComboBox5.Size = New System.Drawing.Size(96, 24)
+        Me.ComboBox5.TabIndex = 891
+        '
+        'TextBox9
+        '
+        Me.TextBox9.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox9.Location = New System.Drawing.Point(838, 30)
+        Me.TextBox9.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox9.Name = "TextBox9"
+        Me.TextBox9.Size = New System.Drawing.Size(93, 23)
+        Me.TextBox9.TabIndex = 895
+        Me.TextBox9.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'ComboBox6
+        '
+        Me.ComboBox6.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox6.FormattingEnabled = True
+        Me.ComboBox6.Location = New System.Drawing.Point(423, 220)
+        Me.ComboBox6.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.ComboBox6.Name = "ComboBox6"
+        Me.ComboBox6.Size = New System.Drawing.Size(113, 24)
+        Me.ComboBox6.TabIndex = 896
+        '
+        '現金收支單申請
+        '
+        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.ComboBox6)
+        Me.Controls.Add(Me.TextBox9)
+        Me.Controls.Add(Me.ComboBox4)
+        Me.Controls.Add(Me.ComboBox3)
+        Me.Controls.Add(Me.ComboBox2)
+        Me.Controls.Add(Me.ComboBox5)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.DateTimePicker2)
+        Me.Controls.Add(Me.RadioButton3)
+        Me.Controls.Add(Me.TextBox8)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.TextBox7)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.TextBox6)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.TextBox2)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.CheckBox1)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.DateTimePicker1)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.ComboBox1)
+        Me.Controls.Add(Me.TextBox5)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.Label62)
+        Me.Controls.Add(Me.TextBox4)
+        Me.Controls.Add(Me.Label28)
+        Me.Controls.Add(Me.Label27)
+        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.TextBox3)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.RadioButton2)
+        Me.Controls.Add(Me.RadioButton1)
+        Me.Controls.Add(Me.Label2)
+        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()
+        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents TextBox5 As TextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents Label62 As Label
+    Friend WithEvents TextBox4 As TextBox
+    Friend WithEvents Label28 As Label
+    Friend WithEvents Label27 As Label
+    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents Label3 As Label
+    Friend WithEvents TextBox3 As TextBox
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents RadioButton2 As RadioButton
+    Friend WithEvents RadioButton1 As RadioButton
+    Friend WithEvents DataGridView2 As DataGridView
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Label2 As Label
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents 重新讀取ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator6 As ToolStripSeparator
+    Friend WithEvents 開立現金收支單ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 申請完成ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
+    Friend WithEvents 新增一筆資料ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 刪除支付單中選中的資料ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
+    Friend WithEvents 刪除選中的現金收支單ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents Timer1 As Timer
+    Friend WithEvents Label4 As Label
+    Friend WithEvents DateTimePicker1 As DateTimePicker
+    Friend WithEvents CheckBox1 As CheckBox
+    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents TextBox6 As TextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents TextBox7 As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents TextBox8 As TextBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents RadioButton3 As RadioButton
+    Friend WithEvents DateTimePicker2 As DateTimePicker
+    Friend WithEvents 複製單據開單ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents Button1 As Button
+    Friend WithEvents ComboBox4 As ComboBox
+    Friend WithEvents ComboBox3 As ComboBox
+    Friend WithEvents ComboBox2 As ComboBox
+    Friend WithEvents ComboBox5 As ComboBox
+    Friend WithEvents TextBox9 As TextBox
+    Friend WithEvents ComboBox6 As ComboBox
+End Class

MaoOrange-Hongji/財務系統管理/現金收支單申請.resx

@@ -0,0 +1,129 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>14, 8</value>
+  </metadata>
+  <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>179, 8</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>35</value>
+  </metadata>
+</root>

MaoOrange-Hongji/財務系統管理/現金收支單申請.vb

@@ -0,0 +1,253 @@
+Option Strict Off
+Public Class 現金收支單申請
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet
+    Dim 新項次 As String : Dim NUM1 As Integer
+    Private Sub Set_清單1()
+        DataGridView2.DataSource = Nothing : ds1.Clear()
+        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        DataGridView2.ColumnHeadersHeight = 25
+        DataGridView2.AllowUserToAddRows = False
+        SQL_營運成本收支單申請清單()
+        da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()
+
+        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
+        SQL_營運成本收支單申請費用清單()
+        da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+
+        DataGridView1.Columns(0).Visible = False : DataGridView1.Columns(1).FillWeight = 80 : DataGridView1.Columns(2).FillWeight = 200 : DataGridView1.Columns(3).FillWeight = 500
+        DataGridView1.Columns(4).Visible = False : DataGridView1.Columns(5).Visible = False : DataGridView1.Columns(6).FillWeight = 140 : DataGridView1.Columns(7).FillWeight = 140
+        DataGridView1.Columns(8).FillWeight = 200 : DataGridView1.Columns(9).Visible = False : DataGridView1.Columns(10).FillWeight = 100
+
+        DataGridView1.Columns(1).ReadOnly = True : DataGridView1.Columns(2).ReadOnly = True : DataGridView1.Columns(10).ReadOnly = True
+
+        DataGridView1.Columns(4).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(5).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(6).DefaultCellStyle.Format = "#,##0"
+        DataGridView1.Columns(7).DefaultCellStyle.Format = "#,##0"
+        DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        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(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        DataGridView1.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
+            If DataGridView1.Rows(i).Cells("支出").Value <> 0 And DataGridView1.Rows(i).Cells("現金").Value = 0 Then
+                DataGridView1.Rows(i).Cells("狀態").Value = "付現"
+            ElseIf DataGridView1.Rows(i).Cells("支出").Value = 0 And DataGridView1.Rows(i).Cells("現金").Value <> 0 Then
+                DataGridView1.Rows(i).Cells("狀態").Value = "收現"
+            End If
+        Next i
+        TextBox6.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")
+    End Sub
+    Private Sub ComboBox1下拉表單資料載入()
+        PA = ComboBox4.Text : SQL_會計科目_第三階_不含流動票務()
+        ComboBox1.Items.Clear() : ComboBox6.Items.Clear() : While (dr.Read()) : ComboBox1.Items.Add(dr("會計科目")) : ComboBox6.Items.Add(dr("編號")) : End While : conn.Close()
+        If ComboBox1.Items.Count <> 0 Then : ComboBox1.SelectedIndex = 0 : End If
+    End Sub
+    Private Sub ComboBox2下拉表單資料載入()
+        SQL_會計科目_第一階_不含流動票務()
+        ComboBox5.Items.Clear() : ComboBox2.Items.Clear() : While (dr.Read()) : ComboBox5.Items.Add(dr("第一階")) : ComboBox2.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
+    Private Sub ComboBox3下拉表單資料載入()
+        PA = ComboBox2.Text : SQL_會計科目_第二階_不含流動票務()
+        ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : While (dr.Read()) : ComboBox3.Items.Add(dr("第二階")) : ComboBox4.Items.Add(dr("編號")) : End While : conn.Close() : PA = ""
+    End Sub
+    Private Sub 營運成本支付申請_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        RadioButton1.Checked = True : DateTimePicker2.Visible = False : 複製單據開單ToolStripMenuItem.Enabled = False : ComboBox6.Visible = False
+        TextBox7.Visible = False : TextBox8.Visible = False : Label10.Visible = False : Label11.Visible = False
+        DataGridView2.Visible = True : Set_清單1() : ComboBox2下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.TextChanged
+        ComboBox2.SelectedIndex = ComboBox5.SelectedIndex : TextBox9.Text = "" : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.TextChanged
+        ComboBox5.SelectedIndex = ComboBox2.SelectedIndex : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.TextChanged
+        ComboBox4.SelectedIndex = ComboBox3.SelectedIndex : ComboBox1下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.TextChanged
+        ComboBox3.SelectedIndex = ComboBox4.SelectedIndex : ComboBox1下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
+        ComboBox6.SelectedIndex = ComboBox1.SelectedIndex
+    End Sub
+    Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedIndexChanged
+        ComboBox1.SelectedIndex = ComboBox6.SelectedIndex
+    End Sub
+    Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged
+        PA = TextBox9.Text : SQL_會計科目_關鍵字_不含流動票務()
+        ComboBox1.Items.Clear() : ComboBox6.Items.Clear() : While (dr.Read()) : ComboBox1.Items.Add(dr("會計科目")) : ComboBox6.Items.Add(dr("編號")) : End While : conn.Close()
+        If ComboBox1.Items.Count <> 0 Then : ComboBox1.SelectedIndex = 0 : End If : PA = ""
+    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 DataGridView1_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.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
+            If DataGridView1.Rows(i).Cells("支出").Value <> 0 And DataGridView1.Rows(i).Cells("現金").Value = 0 Then
+                DataGridView1.Rows(i).Cells("狀態").Value = "付現"
+            ElseIf DataGridView1.Rows(i).Cells("支出").Value = 0 And DataGridView1.Rows(i).Cells("現金").Value <> 0 Then
+                DataGridView1.Rows(i).Cells("狀態").Value = "收現"
+            End If
+        Next i
+        TextBox6.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")
+    End Sub
+    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView2.CellClick
+        If e.RowIndex = -1 Then : Else
+            TextBox1.Text = DataGridView2(0, e.RowIndex).Value.ToString : DateTimePicker1.Value = DataGridView2(1, e.RowIndex).Value.ToString : Set_費用清單()
+            TextBox3.Text = DataGridView2(3, e.RowIndex).Value.ToString
+            For i As Integer = 0 To DataGridView1.Rows.Count - 1
+                If DataGridView1.Rows(i).Cells("支出").Value <> 0 And DataGridView1.Rows(i).Cells("現金").Value = 0 Then
+                    DataGridView1.Rows(i).Cells("狀態").Value = "付現"
+                ElseIf DataGridView1.Rows(i).Cells("支出").Value = 0 And DataGridView1.Rows(i).Cells("現金").Value <> 0 Then
+                    DataGridView1.Rows(i).Cells("狀態").Value = "收現"
+                End If
+            Next i
+        End If
+    End Sub
+    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
+        If e.RowIndex = -1 Then : Else
+            TextBox4.Text = DataGridView1(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 = ""
+        TextBox7.Text = "" : TextBox8.Text = "" : ComboBox1下拉表單資料載入() : Set_清單1()
+    End Sub
+    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.Click
+        RadioButton1.Checked = True : RadioButton2.Checked = False : RadioButton3.Checked = False : 申請完成ToolStripMenuItem.Enabled = True : 複製單據開單ToolStripMenuItem.Enabled = False
+        開立現金收支單ToolStripMenuItem.Enabled = True : Button2.Enabled = True : 新增一筆資料ToolStripMenuItem.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 : RadioButton3.Checked = False : 申請完成ToolStripMenuItem.Enabled = False : 複製單據開單ToolStripMenuItem.Enabled = False
+        開立現金收支單ToolStripMenuItem.Enabled = False : Button2.Enabled = False : 新增一筆資料ToolStripMenuItem.Enabled = False
+        刪除支付單中選中的資料ToolStripMenuItem.Enabled = False : 刪除選中的現金收支單ToolStripMenuItem.Enabled = False : Set_切換格式()
+    End Sub
+    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.Click
+        If CC(28) = False Then
+            RadioButton1.Checked = False : RadioButton2.Checked = False : RadioButton3.Checked = True : 申請完成ToolStripMenuItem.Enabled = False : 複製單據開單ToolStripMenuItem.Enabled = True
+            開立現金收支單ToolStripMenuItem.Enabled = False : Button2.Enabled = False : 新增一筆資料ToolStripMenuItem.Enabled = False
+            刪除支付單中選中的資料ToolStripMenuItem.Enabled = False : 刪除選中的現金收支單ToolStripMenuItem.Enabled = False : Set_切換格式()
+        Else
+            RadioButton1.Checked = False : RadioButton2.Checked = False : RadioButton3.Checked = True : 申請完成ToolStripMenuItem.Enabled = True : 複製單據開單ToolStripMenuItem.Enabled = True
+            開立現金收支單ToolStripMenuItem.Enabled = True : Button2.Enabled = True : 新增一筆資料ToolStripMenuItem.Enabled = True
+            刪除支付單中選中的資料ToolStripMenuItem.Enabled = True : 刪除選中的現金收支單ToolStripMenuItem.Enabled = True : Set_切換格式()
+        End If
+    End Sub
+    Private Sub 存檔()
+        PA4 = TextBox1.Text
+        For i As Integer = 0 To DataGridView1.Rows.Count - 1
+            資料數 = DataGridView1.Rows.Count : MyModule1.進度條()
+            PA1 = DataGridView1.Rows(i).Cells("用途").Value : NU1 = DataGridView1.Rows(i).Cells("支出").Value : PA2 = DataGridView1.Rows(i).Cells("備註").Value
+            PA3 = DataGridView1.Rows(i).Cells("科目編號").Value : NU2 = DataGridView1.Rows(i).Cells("現金").Value : NU3 = DataGridView1.Rows(i).Cells("開票").Value
+            NU4 = DataGridView1.Rows(i).Cells("收票").Value : PA5 = DataGridView1.Rows(i).Cells("項次").Value : PA6 = DataGridView1.Rows(i).Cells("狀態").Value : PA7 = gUserName
+            SQL_營運成本收支單申請修改() : conn.Close()
+        Next : MAOJI_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+    End Sub
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Timer1.Enabled = False : Label62.Visible = False
+        開立現金收支單ToolStripMenuItem.Enabled = True : RadioButton1.Enabled = True : RadioButton2.Enabled = True : DataGridView2.Enabled = True : RadioButton3.Enabled = True
+        存檔() : Set_清單1() : MsgBox("申請完成，請通知主管審核。")
+    End Sub
+    Private Sub Set_日期格式轉換()
+        If CheckBox1.Checked = False Then : DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
+        Else : DTP1 = Format(DateTimePicker1.Value, "yyyyMMdd") : DTP = Format(DateTimePicker1.Value, "yyyy/MM/dd") : End If
+    End Sub
+    Private Sub 開立零用金支付單()
+        Dim NUM1 As Integer : Timer1.Enabled = True
+        Set_日期格式轉換()
+        For i As Integer = 1 To 999
+            NUM1 = 0 + i
+            If NUM1 < 10 Then : TextBox1.Text = "OE-" & DTP1 & "-00" & NUM1
+            ElseIf NUM1 > 9 And NUM1 < 100 Then : TextBox1.Text = "OE-" & DTP1 & "-0" & NUM1
+            ElseIf NUM1 > 99 Then : TextBox1.Text = "OE-" & DTP1 & "-" & NUM1 : End If : PA = TextBox1.Text
+            SQL_營運成本收支單申請_支付單號流水號()
+            If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
+        Next
+        SQL_營運成本控制表新增() : TextBox3.Text = gUserName
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Set_日期格式轉換() : 開立零用金支付單() : 開立現金收支單ToolStripMenuItem.Enabled = False : RadioButton1.Enabled = False : RadioButton2.Enabled = False : RadioButton3.Enabled = False
+        DataGridView2.Enabled = False : RadioButton1.Checked = True : RadioButton2.Checked = False : RadioButton3.Checked = False : 申請完成ToolStripMenuItem.Enabled = True
+        複製單據開單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
+            PA1 = TextBox1.Text : PA2 = DataGridView1.Rows(i).Cells("項次").Value : PA3 = DataGridView1.Rows(i).Cells("科目編號").Value : PA4 = DataGridView1.Rows(i).Cells("用途").Value
+            NU1 = DataGridView1.Rows(i).Cells("支出").Value : PA5 = DataGridView1.Rows(i).Cells("備註").Value : NU2 = DataGridView1.Rows(i).Cells("現金").Value
+            NU3 = DataGridView1.Rows(i).Cells("開票").Value : NU4 = DataGridView1.Rows(i).Cells("收票").Value : PA6 = DataGridView1.Rows(i).Cells("狀態").Value : PA7 = gUserName
+            SQL_營運成本明細表新增()
+        Next : Set_費用清單() : MsgBox("複製單據開立完成。")
+    End Sub
+    '----------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------------------------------------
+    Private Sub 重新讀取ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新讀取ToolStripMenuItem.Click
+        Set_清單1()
+    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() : Set_清單1()
+    End Sub
+    Private Sub 刪除選中的零用金支付單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 刪除選中的現金收支單ToolStripMenuItem.Click
+        Dim aa As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
+        If aa = MsgBoxResult.Ok Then
+            PA1 = TextBox1.Text : SQL_營運成本控制表刪除() : conn.Close() : SQL_營運成本明細表刪除() : conn.Close()
+            TextBox1.Text = "" : TextBox3.Text = "" : TextBox4.Text = "" : DataGridView1.DataSource = Nothing : ds.Clear() : Set_清單1()
+        End If
+    End Sub
+    Private Sub 刪除支付單中選中的資料ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 刪除支付單中選中的資料ToolStripMenuItem.Click
+        If TextBox4.Text = "" Then : MsgBox("未選擇需要刪除的資料。")
+        Else
+            PA1 = TextBox1.Text : PA2 = TextBox4.Text
+            存檔() : SQL_營運成本明細表刪除單筆() : conn.Close() : Set_費用清單() : Dim NUM1 As Integer = 0
+            For i As Integer = 0 To DataGridView1.Rows.Count - 1
+                NUM1 += 1 : If NUM1 < 10 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
+                PA1 = 新項次 : PA2 = TextBox1.Text : PA3 = DataGridView1.Rows(i).Cells("項次").Value
+                SQL_營運成本明細表項次修改() : conn.Close()
+            Next : Set_費用清單()
+        End If
+    End Sub
+    Private Sub 新增一筆資料ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 新增一筆資料ToolStripMenuItem.Click
+        If ComboBox6.Text = "" Then : MsgBox("沒有選擇會計科目。")
+        Else
+            If TextBox1.Text = "" Then : 開立零用金支付單() : End If
+            Set_日期格式轉換() : 存檔() : PA = TextBox1.Text
+            SQL_營運成本明細表項次新增查詢()
+            If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close() : NUM1 = Double.Parse(新項次) + 1
+            If NUM1 < 10 Then : 新項次 = "0" & NUM1
+            ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
+            PA1 = TextBox1.Text : PA2 = 新項次 : PA3 = ComboBox6.Text : PA4 = "" : NU1 = 0 : PA5 = "" : NU2 = 0 : NU3 = 0 : NU4 = 0 : PA6 = "" : PA7 = gUserName
+            SQL_營運成本明細表新增() : Set_費用清單()
+        End If
+    End Sub
+    Private Sub 申請完成ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 申請完成ToolStripMenuItem.Click
+        Me.Button2.PerformClick()
+    End Sub
+    Private Sub 複製單據開單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 複製單據開單ToolStripMenuItem.Click
+        Me.Button1.PerformClick()
+    End Sub
+End Class

MaoOrange-Hongji/財務系統管理/票務控制表.Designer.vb

@@ -0,0 +1,991 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class 票務控制表
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(票務控制表))
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.一般月 = New System.Windows.Forms.CheckBox()
+        Me.會計月 = New System.Windows.Forms.CheckBox()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
+        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.ComboBox15 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.ComboBox2 = New System.Windows.Forms.ComboBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.Button5 = New System.Windows.Forms.Button()
+        Me.Button6 = New System.Windows.Forms.Button()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.TextBox8 = New System.Windows.Forms.TextBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.TextBox7 = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.TextBox6 = New System.Windows.Forms.TextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.ComboBox3 = New System.Windows.Forms.ComboBox()
+        Me.Button7 = New System.Windows.Forms.Button()
+        Me.TextBox16 = New System.Windows.Forms.TextBox()
+        Me.Label25 = New System.Windows.Forms.Label()
+        Me.TextBox15 = New System.Windows.Forms.TextBox()
+        Me.Label24 = New System.Windows.Forms.Label()
+        Me.TextBox14 = New System.Windows.Forms.TextBox()
+        Me.Label23 = New System.Windows.Forms.Label()
+        Me.TextBox13 = New System.Windows.Forms.TextBox()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.ComboBox9 = New System.Windows.Forms.ComboBox()
+        Me.Label20 = New System.Windows.Forms.Label()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.DateTimePicker5 = New System.Windows.Forms.DateTimePicker()
+        Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.TextBox12 = New System.Windows.Forms.TextBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.TextBox11 = New System.Windows.Forms.TextBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.TextBox10 = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.TextBox9 = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.TextBox18 = New System.Windows.Forms.TextBox()
+        Me.Label28 = New System.Windows.Forms.Label()
+        Me.Label27 = New System.Windows.Forms.Label()
+        Me.Label29 = New System.Windows.Forms.Label()
+        Me.TextBox19 = New System.Windows.Forms.TextBox()
+        Me.TextBox20 = New System.Windows.Forms.TextBox()
+        Me.Label30 = New System.Windows.Forms.Label()
+        Me.Label31 = New System.Windows.Forms.Label()
+        Me.Label32 = New System.Windows.Forms.Label()
+        Me.Label33 = New System.Windows.Forms.Label()
+        Me.Label34 = New System.Windows.Forms.Label()
+        Me.DateTimePicker7 = New System.Windows.Forms.DateTimePicker()
+        Me.DateTimePicker8 = New System.Windows.Forms.DateTimePicker()
+        Me.Label19 = New System.Windows.Forms.Label()
+        Me.ComboBox8 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox10 = New System.Windows.Forms.ComboBox()
+        Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown()
+        Me.NumericUpDown2 = New System.Windows.Forms.NumericUpDown()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '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(192, 26)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(88, 26)
+        Me.Button1.TabIndex = 1120
+        Me.Button1.Text = "上個月"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        '一般月
+        '
+        Me.一般月.AutoSize = True
+        Me.一般月.Location = New System.Drawing.Point(325, 5)
+        Me.一般月.Name = "一般月"
+        Me.一般月.Size = New System.Drawing.Size(63, 20)
+        Me.一般月.TabIndex = 1123
+        Me.一般月.Text = "一般月"
+        Me.一般月.UseVisualStyleBackColor = True
+        '
+        '會計月
+        '
+        Me.會計月.AutoSize = True
+        Me.會計月.Checked = True
+        Me.會計月.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.會計月.Location = New System.Drawing.Point(196, 5)
+        Me.會計月.Name = "會計月"
+        Me.會計月.Size = New System.Drawing.Size(63, 20)
+        Me.會計月.TabIndex = 1122
+        Me.會計月.Text = "會計月"
+        Me.會計月.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        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.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Button2.Location = New System.Drawing.Point(304, 26)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(89, 26)
+        Me.Button2.TabIndex = 1121
+        Me.Button2.Text = "下個月"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(283, 58)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(20, 16)
+        Me.Label4.TabIndex = 1119
+        Me.Label4.Text = "到"
+        '
+        'DateTimePicker2
+        '
+        Me.DateTimePicker2.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker2.Location = New System.Drawing.Point(305, 55)
+        Me.DateTimePicker2.Name = "DateTimePicker2"
+        Me.DateTimePicker2.Size = New System.Drawing.Size(89, 23)
+        Me.DateTimePicker2.TabIndex = 1118
+        '
+        'DateTimePicker1
+        '
+        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker1.Location = New System.Drawing.Point(192, 55)
+        Me.DateTimePicker1.Name = "DateTimePicker1"
+        Me.DateTimePicker1.Size = New System.Drawing.Size(89, 23)
+        Me.DateTimePicker1.TabIndex = 1117
+        '
+        'DataGridView1
+        '
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.DataGridView1.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(5, 164)
+        Me.DataGridView1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.RowHeadersWidth = 5
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle4
+        Me.DataGridView1.RowTemplate.Height = 24
+        Me.DataGridView1.Size = New System.Drawing.Size(1235, 438)
+        Me.DataGridView1.TabIndex = 1116
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label14.Location = New System.Drawing.Point(7, 58)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(56, 16)
+        Me.Label14.TabIndex = 1125
+        Me.Label14.Text = "日期選項"
+        '
+        'ComboBox15
+        '
+        Me.ComboBox15.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox15.ForeColor = System.Drawing.Color.Green
+        Me.ComboBox15.FormattingEnabled = True
+        Me.ComboBox15.Items.AddRange(New Object() {"開收票日", "到期日", "預定兌現日", "託收已付日"})
+        Me.ComboBox15.Location = New System.Drawing.Point(62, 55)
+        Me.ComboBox15.Name = "ComboBox15"
+        Me.ComboBox15.Size = New System.Drawing.Size(123, 24)
+        Me.ComboBox15.TabIndex = 1124
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox1.ForeColor = System.Drawing.Color.Green
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Items.AddRange(New Object() {"開收票日", "到期日", "預定兌現日", "託收已付日"})
+        Me.ComboBox1.Location = New System.Drawing.Point(62, 3)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(87, 24)
+        Me.ComboBox1.TabIndex = 1126
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        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(7, 6)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(56, 16)
+        Me.Label1.TabIndex = 1127
+        Me.Label1.Text = "區        分"
+        '
+        'ComboBox2
+        '
+        Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox2.ForeColor = System.Drawing.Color.Green
+        Me.ComboBox2.FormattingEnabled = True
+        Me.ComboBox2.Items.AddRange(New Object() {"開票"})
+        Me.ComboBox2.Location = New System.Drawing.Point(62, 29)
+        Me.ComboBox2.Name = "ComboBox2"
+        Me.ComboBox2.Size = New System.Drawing.Size(87, 24)
+        Me.ComboBox2.TabIndex = 1128
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        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(7, 32)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(56, 16)
+        Me.Label2.TabIndex = 1129
+        Me.Label2.Text = "票        況"
+        '
+        'Button3
+        '
+        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(152, 3)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(33, 50)
+        Me.Button3.TabIndex = 1130
+        Me.Button3.Text = "讀取"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'Button4
+        '
+        Me.Button4.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Button4.Location = New System.Drawing.Point(729, 2)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(76, 76)
+        Me.Button4.TabIndex = 1131
+        Me.Button4.Text = "託收"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
+        'Button5
+        '
+        Me.Button5.Font = New System.Drawing.Font("微軟正黑體", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Button5.Location = New System.Drawing.Point(811, 2)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(76, 76)
+        Me.Button5.TabIndex = 1132
+        Me.Button5.Text = "已付"
+        Me.Button5.UseVisualStyleBackColor = True
+        '
+        'Button6
+        '
+        Me.Button6.Font = New System.Drawing.Font("微軟正黑體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button6.ForeColor = System.Drawing.Color.Red
+        Me.Button6.Location = New System.Drawing.Point(893, 2)
+        Me.Button6.Name = "Button6"
+        Me.Button6.Size = New System.Drawing.Size(76, 76)
+        Me.Button6.TabIndex = 1133
+        Me.Button6.Text = "退(撤)票"
+        Me.Button6.UseVisualStyleBackColor = True
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label6.Location = New System.Drawing.Point(403, 58)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(20, 16)
+        Me.Label6.TabIndex = 1136
+        Me.Label6.Text = "共"
+        '
+        'TextBox1
+        '
+        Me.TextBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox1.Location = New System.Drawing.Point(425, 55)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(98, 23)
+        Me.TextBox1.TabIndex = 1137
+        Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        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(529, 59)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(20, 16)
+        Me.Label7.TabIndex = 1138
+        Me.Label7.Text = "筆"
+        '
+        'TextBox8
+        '
+        Me.TextBox8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox8.Location = New System.Drawing.Point(623, 3)
+        Me.TextBox8.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox8.Name = "TextBox8"
+        Me.TextBox8.Size = New System.Drawing.Size(100, 23)
+        Me.TextBox8.TabIndex = 1144
+        Me.TextBox8.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        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(589, 6)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(32, 16)
+        Me.Label11.TabIndex = 1143
+        Me.Label11.Text = "收票"
+        '
+        'TextBox7
+        '
+        Me.TextBox7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox7.Location = New System.Drawing.Point(623, 29)
+        Me.TextBox7.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.Size = New System.Drawing.Size(100, 23)
+        Me.TextBox7.TabIndex = 1142
+        Me.TextBox7.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        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(589, 32)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(32, 16)
+        Me.Label10.TabIndex = 1141
+        Me.Label10.Text = "開票"
+        '
+        'TextBox6
+        '
+        Me.TextBox6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox6.Location = New System.Drawing.Point(623, 55)
+        Me.TextBox6.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox6.Name = "TextBox6"
+        Me.TextBox6.Size = New System.Drawing.Size(100, 23)
+        Me.TextBox6.TabIndex = 1140
+        Me.TextBox6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label9.Location = New System.Drawing.Point(589, 58)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(32, 16)
+        Me.Label9.TabIndex = 1139
+        Me.Label9.Text = "合計"
+        '
+        'DateTimePicker3
+        '
+        Me.DateTimePicker3.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker3.Location = New System.Drawing.Point(265, 2)
+        Me.DateTimePicker3.Name = "DateTimePicker3"
+        Me.DateTimePicker3.Size = New System.Drawing.Size(43, 23)
+        Me.DateTimePicker3.TabIndex = 1145
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label3.Location = New System.Drawing.Point(401, 6)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(101, 16)
+        Me.Label3.TabIndex = 1146
+        Me.Label3.Text = "兌     現     科     目"
+        '
+        'ComboBox3
+        '
+        Me.ComboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.ComboBox3.FormattingEnabled = True
+        Me.ComboBox3.Items.AddRange(New Object() {"開收票日", "到期日", "預定兌現日", "託收已付日"})
+        Me.ComboBox3.Location = New System.Drawing.Point(399, 28)
+        Me.ComboBox3.Name = "ComboBox3"
+        Me.ComboBox3.Size = New System.Drawing.Size(183, 24)
+        Me.ComboBox3.TabIndex = 1147
+        '
+        'Button7
+        '
+        Me.Button7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Button7.Location = New System.Drawing.Point(508, 2)
+        Me.Button7.Name = "Button7"
+        Me.Button7.Size = New System.Drawing.Size(74, 24)
+        Me.Button7.TabIndex = 1148
+        Me.Button7.Text = "清除"
+        Me.Button7.UseVisualStyleBackColor = True
+        '
+        'TextBox16
+        '
+        Me.TextBox16.ForeColor = System.Drawing.Color.Green
+        Me.TextBox16.Location = New System.Drawing.Point(1055, 86)
+        Me.TextBox16.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox16.Name = "TextBox16"
+        Me.TextBox16.Size = New System.Drawing.Size(185, 23)
+        Me.TextBox16.TabIndex = 1191
+        '
+        'Label25
+        '
+        Me.Label25.AutoSize = True
+        Me.Label25.ForeColor = System.Drawing.Color.Green
+        Me.Label25.Location = New System.Drawing.Point(1022, 89)
+        Me.Label25.Name = "Label25"
+        Me.Label25.Size = New System.Drawing.Size(32, 16)
+        Me.Label25.TabIndex = 1190
+        Me.Label25.Text = "備註"
+        '
+        'TextBox15
+        '
+        Me.TextBox15.ForeColor = System.Drawing.Color.Green
+        Me.TextBox15.Location = New System.Drawing.Point(1089, 137)
+        Me.TextBox15.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox15.Name = "TextBox15"
+        Me.TextBox15.Size = New System.Drawing.Size(151, 23)
+        Me.TextBox15.TabIndex = 1189
+        '
+        'Label24
+        '
+        Me.Label24.AutoSize = True
+        Me.Label24.ForeColor = System.Drawing.Color.Green
+        Me.Label24.Location = New System.Drawing.Point(1022, 141)
+        Me.Label24.Name = "Label24"
+        Me.Label24.Size = New System.Drawing.Size(68, 16)
+        Me.Label24.TabIndex = 1188
+        Me.Label24.Text = "發票人帳號"
+        '
+        'TextBox14
+        '
+        Me.TextBox14.ForeColor = System.Drawing.Color.Green
+        Me.TextBox14.Location = New System.Drawing.Point(729, 138)
+        Me.TextBox14.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox14.Name = "TextBox14"
+        Me.TextBox14.Size = New System.Drawing.Size(291, 23)
+        Me.TextBox14.TabIndex = 1187
+        '
+        'Label23
+        '
+        Me.Label23.AutoSize = True
+        Me.Label23.ForeColor = System.Drawing.Color.Green
+        Me.Label23.Location = New System.Drawing.Point(696, 141)
+        Me.Label23.Name = "Label23"
+        Me.Label23.Size = New System.Drawing.Size(32, 16)
+        Me.Label23.TabIndex = 1186
+        Me.Label23.Text = "用途"
+        '
+        'TextBox13
+        '
+        Me.TextBox13.ForeColor = System.Drawing.Color.Green
+        Me.TextBox13.Location = New System.Drawing.Point(443, 138)
+        Me.TextBox13.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox13.Name = "TextBox13"
+        Me.TextBox13.Size = New System.Drawing.Size(250, 23)
+        Me.TextBox13.TabIndex = 1185
+        Me.TextBox13.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.ForeColor = System.Drawing.Color.Green
+        Me.Label18.Location = New System.Drawing.Point(380, 141)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(65, 16)
+        Me.Label18.TabIndex = 1184
+        Me.Label18.Text = "開    票   人"
+        '
+        'ComboBox9
+        '
+        Me.ComboBox9.ForeColor = System.Drawing.Color.Green
+        Me.ComboBox9.FormattingEnabled = True
+        Me.ComboBox9.Location = New System.Drawing.Point(832, 85)
+        Me.ComboBox9.Name = "ComboBox9"
+        Me.ComboBox9.Size = New System.Drawing.Size(188, 24)
+        Me.ComboBox9.TabIndex = 1182
+        '
+        'Label20
+        '
+        Me.Label20.AutoSize = True
+        Me.Label20.ForeColor = System.Drawing.Color.Green
+        Me.Label20.Location = New System.Drawing.Point(777, 89)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(56, 16)
+        Me.Label20.TabIndex = 1183
+        Me.Label20.Text = "付款銀行"
+        '
+        'Label17
+        '
+        Me.Label17.AutoSize = True
+        Me.Label17.ForeColor = System.Drawing.Color.Green
+        Me.Label17.Location = New System.Drawing.Point(539, 115)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(64, 16)
+        Me.Label17.TabIndex = 1180
+        Me.Label17.Text = "開(收)票日"
+        '
+        'DateTimePicker5
+        '
+        Me.DateTimePicker5.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker5.Location = New System.Drawing.Point(603, 112)
+        Me.DateTimePicker5.Name = "DateTimePicker5"
+        Me.DateTimePicker5.Size = New System.Drawing.Size(90, 23)
+        Me.DateTimePicker5.TabIndex = 1179
+        '
+        'DateTimePicker4
+        '
+        Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker4.Location = New System.Drawing.Point(766, 112)
+        Me.DateTimePicker4.Name = "DateTimePicker4"
+        Me.DateTimePicker4.Size = New System.Drawing.Size(90, 23)
+        Me.DateTimePicker4.TabIndex = 1177
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.ForeColor = System.Drawing.Color.Green
+        Me.Label15.Location = New System.Drawing.Point(380, 115)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(65, 16)
+        Me.Label15.TabIndex = 1176
+        Me.Label15.Text = "到    期   日"
+        '
+        'TextBox12
+        '
+        Me.TextBox12.ForeColor = System.Drawing.Color.Green
+        Me.TextBox12.Location = New System.Drawing.Point(62, 112)
+        Me.TextBox12.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox12.Name = "TextBox12"
+        Me.TextBox12.Size = New System.Drawing.Size(123, 23)
+        Me.TextBox12.TabIndex = 1175
+        Me.TextBox12.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.ForeColor = System.Drawing.Color.Green
+        Me.Label13.Location = New System.Drawing.Point(6, 116)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(56, 16)
+        Me.Label13.TabIndex = 1174
+        Me.Label13.Text = "支票號碼"
+        '
+        'TextBox11
+        '
+        Me.TextBox11.ForeColor = System.Drawing.Color.Green
+        Me.TextBox11.Location = New System.Drawing.Point(262, 138)
+        Me.TextBox11.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox11.Name = "TextBox11"
+        Me.TextBox11.Size = New System.Drawing.Size(112, 23)
+        Me.TextBox11.TabIndex = 1173
+        Me.TextBox11.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.ForeColor = System.Drawing.Color.Green
+        Me.Label12.Location = New System.Drawing.Point(191, 142)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(73, 16)
+        Me.Label12.TabIndex = 1172
+        Me.Label12.Text = "客戶/供應商"
+        '
+        'TextBox10
+        '
+        Me.TextBox10.ForeColor = System.Drawing.Color.Green
+        Me.TextBox10.Location = New System.Drawing.Point(62, 138)
+        Me.TextBox10.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox10.Name = "TextBox10"
+        Me.TextBox10.Size = New System.Drawing.Size(123, 23)
+        Me.TextBox10.TabIndex = 1171
+        Me.TextBox10.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.ForeColor = System.Drawing.Color.Green
+        Me.Label5.Location = New System.Drawing.Point(6, 142)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(56, 16)
+        Me.Label5.TabIndex = 1170
+        Me.Label5.Text = "客戶編號"
+        '
+        'TextBox9
+        '
+        Me.TextBox9.ForeColor = System.Drawing.Color.Green
+        Me.TextBox9.Location = New System.Drawing.Point(262, 112)
+        Me.TextBox9.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox9.Name = "TextBox9"
+        Me.TextBox9.Size = New System.Drawing.Size(112, 23)
+        Me.TextBox9.TabIndex = 1169
+        Me.TextBox9.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        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(500, 89)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(32, 16)
+        Me.Label8.TabIndex = 1167
+        Me.Label8.Text = "收票"
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label16.Location = New System.Drawing.Point(640, 89)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(32, 16)
+        Me.Label16.TabIndex = 1165
+        Me.Label16.Text = "開票"
+        '
+        'TextBox18
+        '
+        Me.TextBox18.ForeColor = System.Drawing.Color.Green
+        Me.TextBox18.Location = New System.Drawing.Point(246, 86)
+        Me.TextBox18.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox18.Name = "TextBox18"
+        Me.TextBox18.Size = New System.Drawing.Size(61, 23)
+        Me.TextBox18.TabIndex = 1155
+        Me.TextBox18.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label28
+        '
+        Me.Label28.AutoSize = True
+        Me.Label28.ForeColor = System.Drawing.Color.Green
+        Me.Label28.Location = New System.Drawing.Point(309, 90)
+        Me.Label28.Name = "Label28"
+        Me.Label28.Size = New System.Drawing.Size(44, 16)
+        Me.Label28.TabIndex = 1154
+        Me.Label28.Text = "項次。"
+        '
+        'Label27
+        '
+        Me.Label27.AutoSize = True
+        Me.Label27.ForeColor = System.Drawing.Color.Green
+        Me.Label27.Location = New System.Drawing.Point(190, 89)
+        Me.Label27.Name = "Label27"
+        Me.Label27.Size = New System.Drawing.Size(56, 16)
+        Me.Label27.TabIndex = 1153
+        Me.Label27.Text = "選        擇"
+        '
+        'Label29
+        '
+        Me.Label29.AutoSize = True
+        Me.Label29.ForeColor = System.Drawing.Color.Green
+        Me.Label29.Location = New System.Drawing.Point(1026, 115)
+        Me.Label29.Name = "Label29"
+        Me.Label29.Size = New System.Drawing.Size(59, 16)
+        Me.Label29.TabIndex = 1152
+        Me.Label29.Text = "登   錄  人"
+        '
+        'TextBox19
+        '
+        Me.TextBox19.ForeColor = System.Drawing.Color.Green
+        Me.TextBox19.Location = New System.Drawing.Point(1089, 112)
+        Me.TextBox19.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox19.Name = "TextBox19"
+        Me.TextBox19.Size = New System.Drawing.Size(151, 23)
+        Me.TextBox19.TabIndex = 1151
+        Me.TextBox19.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'TextBox20
+        '
+        Me.TextBox20.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox20.Location = New System.Drawing.Point(62, 86)
+        Me.TextBox20.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox20.Name = "TextBox20"
+        Me.TextBox20.Size = New System.Drawing.Size(122, 23)
+        Me.TextBox20.TabIndex = 1149
+        Me.TextBox20.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label30
+        '
+        Me.Label30.AutoSize = True
+        Me.Label30.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label30.Location = New System.Drawing.Point(4, 89)
+        Me.Label30.Name = "Label30"
+        Me.Label30.Size = New System.Drawing.Size(56, 16)
+        Me.Label30.TabIndex = 1150
+        Me.Label30.Text = "收支單號"
+        '
+        'Label31
+        '
+        Me.Label31.AutoSize = True
+        Me.Label31.ForeColor = System.Drawing.Color.Green
+        Me.Label31.Location = New System.Drawing.Point(191, 115)
+        Me.Label31.Name = "Label31"
+        Me.Label31.Size = New System.Drawing.Size(74, 16)
+        Me.Label31.TabIndex = 1158
+        Me.Label31.Text = "會  計  科  目"
+        '
+        'Label32
+        '
+        Me.Label32.AutoSize = True
+        Me.Label32.ForeColor = System.Drawing.Color.Green
+        Me.Label32.Location = New System.Drawing.Point(699, 116)
+        Me.Label32.Name = "Label32"
+        Me.Label32.Size = New System.Drawing.Size(68, 16)
+        Me.Label32.TabIndex = 1178
+        Me.Label32.Text = "預定兌現日"
+        '
+        'Label33
+        '
+        Me.Label33.AutoSize = True
+        Me.Label33.ForeColor = System.Drawing.Color.Green
+        Me.Label33.Location = New System.Drawing.Point(972, 7)
+        Me.Label33.Name = "Label33"
+        Me.Label33.Size = New System.Drawing.Size(74, 16)
+        Me.Label33.TabIndex = 1181
+        Me.Label33.Text = "轉  換  科  目"
+        '
+        'Label34
+        '
+        Me.Label34.AutoSize = True
+        Me.Label34.Location = New System.Drawing.Point(2, 68)
+        Me.Label34.Name = "Label34"
+        Me.Label34.Size = New System.Drawing.Size(1243, 16)
+        Me.Label34.TabIndex = 1192
+        Me.Label34.Text = resources.GetString("Label34.Text")
+        '
+        'DateTimePicker7
+        '
+        Me.DateTimePicker7.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker7.Location = New System.Drawing.Point(443, 111)
+        Me.DateTimePicker7.Name = "DateTimePicker7"
+        Me.DateTimePicker7.Size = New System.Drawing.Size(90, 23)
+        Me.DateTimePicker7.TabIndex = 1193
+        '
+        'DateTimePicker8
+        '
+        Me.DateTimePicker8.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker8.Location = New System.Drawing.Point(1050, 30)
+        Me.DateTimePicker8.Name = "DateTimePicker8"
+        Me.DateTimePicker8.Size = New System.Drawing.Size(190, 23)
+        Me.DateTimePicker8.TabIndex = 1194
+        '
+        'Label19
+        '
+        Me.Label19.AutoSize = True
+        Me.Label19.ForeColor = System.Drawing.Color.Green
+        Me.Label19.Location = New System.Drawing.Point(972, 33)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(76, 16)
+        Me.Label19.TabIndex = 1195
+        Me.Label19.Text = "託收(已付)日"
+        '
+        'ComboBox8
+        '
+        Me.ComboBox8.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox8.ForeColor = System.Drawing.Color.Green
+        Me.ComboBox8.FormattingEnabled = True
+        Me.ComboBox8.Items.AddRange(New Object() {"開票", "收票"})
+        Me.ComboBox8.Location = New System.Drawing.Point(1050, 3)
+        Me.ComboBox8.Name = "ComboBox8"
+        Me.ComboBox8.Size = New System.Drawing.Size(190, 24)
+        Me.ComboBox8.TabIndex = 1196
+        '
+        'ComboBox10
+        '
+        Me.ComboBox10.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox10.ForeColor = System.Drawing.Color.Green
+        Me.ComboBox10.FormattingEnabled = True
+        Me.ComboBox10.Items.AddRange(New Object() {"開票", "收票"})
+        Me.ComboBox10.Location = New System.Drawing.Point(346, 85)
+        Me.ComboBox10.Name = "ComboBox10"
+        Me.ComboBox10.Size = New System.Drawing.Size(148, 24)
+        Me.ComboBox10.TabIndex = 1197
+        '
+        'NumericUpDown1
+        '
+        Me.NumericUpDown1.Location = New System.Drawing.Point(536, 86)
+        Me.NumericUpDown1.Maximum = New Decimal(New Integer() {100000, 0, 0, 0})
+        Me.NumericUpDown1.Name = "NumericUpDown1"
+        Me.NumericUpDown1.Size = New System.Drawing.Size(98, 23)
+        Me.NumericUpDown1.TabIndex = 1198
+        Me.NumericUpDown1.ThousandsSeparator = True
+        '
+        'NumericUpDown2
+        '
+        Me.NumericUpDown2.Location = New System.Drawing.Point(678, 85)
+        Me.NumericUpDown2.Maximum = New Decimal(New Integer() {100000, 0, 0, 0})
+        Me.NumericUpDown2.Name = "NumericUpDown2"
+        Me.NumericUpDown2.Size = New System.Drawing.Size(98, 23)
+        Me.NumericUpDown2.TabIndex = 1199
+        Me.NumericUpDown2.ThousandsSeparator = 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.Controls.Add(Me.NumericUpDown2)
+        Me.Controls.Add(Me.NumericUpDown1)
+        Me.Controls.Add(Me.ComboBox10)
+        Me.Controls.Add(Me.ComboBox8)
+        Me.Controls.Add(Me.Label19)
+        Me.Controls.Add(Me.DateTimePicker8)
+        Me.Controls.Add(Me.DateTimePicker7)
+        Me.Controls.Add(Me.TextBox16)
+        Me.Controls.Add(Me.Label25)
+        Me.Controls.Add(Me.TextBox15)
+        Me.Controls.Add(Me.Label24)
+        Me.Controls.Add(Me.TextBox14)
+        Me.Controls.Add(Me.Label23)
+        Me.Controls.Add(Me.TextBox13)
+        Me.Controls.Add(Me.Label18)
+        Me.Controls.Add(Me.ComboBox9)
+        Me.Controls.Add(Me.Label20)
+        Me.Controls.Add(Me.Label17)
+        Me.Controls.Add(Me.DateTimePicker5)
+        Me.Controls.Add(Me.DateTimePicker4)
+        Me.Controls.Add(Me.Label15)
+        Me.Controls.Add(Me.TextBox12)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.TextBox11)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.TextBox10)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.TextBox9)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.Label16)
+        Me.Controls.Add(Me.TextBox18)
+        Me.Controls.Add(Me.Label28)
+        Me.Controls.Add(Me.Label27)
+        Me.Controls.Add(Me.Label29)
+        Me.Controls.Add(Me.TextBox19)
+        Me.Controls.Add(Me.TextBox20)
+        Me.Controls.Add(Me.Label30)
+        Me.Controls.Add(Me.Label31)
+        Me.Controls.Add(Me.Label32)
+        Me.Controls.Add(Me.Label33)
+        Me.Controls.Add(Me.Button7)
+        Me.Controls.Add(Me.ComboBox3)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.DateTimePicker3)
+        Me.Controls.Add(Me.TextBox8)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.TextBox7)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.TextBox6)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Button6)
+        Me.Controls.Add(Me.Button5)
+        Me.Controls.Add(Me.Button4)
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.ComboBox2)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.ComboBox1)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.ComboBox15)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.一般月)
+        Me.Controls.Add(Me.會計月)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.DateTimePicker2)
+        Me.Controls.Add(Me.DateTimePicker1)
+        Me.Controls.Add(Me.Label14)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label34)
+        Me.Controls.Add(Me.DataGridView1)
+        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()
+        CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Button1 As Button
+    Friend WithEvents 一般月 As CheckBox
+    Friend WithEvents 會計月 As CheckBox
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Label4 As Label
+    Friend WithEvents DateTimePicker2 As DateTimePicker
+    Friend WithEvents DateTimePicker1 As DateTimePicker
+    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents Label14 As Label
+    Friend WithEvents ComboBox15 As ComboBox
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents ComboBox2 As ComboBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Button3 As Button
+    Friend WithEvents Button4 As Button
+    Friend WithEvents Button5 As Button
+    Friend WithEvents Button6 As Button
+    Friend WithEvents Label6 As Label
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents TextBox8 As TextBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents TextBox7 As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents TextBox6 As TextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents DateTimePicker3 As DateTimePicker
+    Friend WithEvents Label3 As Label
+    Friend WithEvents ComboBox3 As ComboBox
+    Friend WithEvents Button7 As Button
+    Friend WithEvents TextBox16 As TextBox
+    Friend WithEvents Label25 As Label
+    Friend WithEvents TextBox15 As TextBox
+    Friend WithEvents Label24 As Label
+    Friend WithEvents TextBox14 As TextBox
+    Friend WithEvents Label23 As Label
+    Friend WithEvents TextBox13 As TextBox
+    Friend WithEvents Label18 As Label
+    Friend WithEvents ComboBox9 As ComboBox
+    Friend WithEvents Label20 As Label
+    Friend WithEvents Label17 As Label
+    Friend WithEvents DateTimePicker5 As DateTimePicker
+    Friend WithEvents DateTimePicker4 As DateTimePicker
+    Friend WithEvents Label15 As Label
+    Friend WithEvents TextBox12 As TextBox
+    Friend WithEvents Label13 As Label
+    Friend WithEvents TextBox11 As TextBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents TextBox10 As TextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents TextBox9 As TextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents Label16 As Label
+    Friend WithEvents TextBox18 As TextBox
+    Friend WithEvents Label28 As Label
+    Friend WithEvents Label27 As Label
+    Friend WithEvents Label29 As Label
+    Friend WithEvents TextBox19 As TextBox
+    Friend WithEvents TextBox20 As TextBox
+    Friend WithEvents Label30 As Label
+    Friend WithEvents Label31 As Label
+    Friend WithEvents Label32 As Label
+    Friend WithEvents Label33 As Label
+    Friend WithEvents Label34 As Label
+    Friend WithEvents DateTimePicker7 As DateTimePicker
+    Friend WithEvents DateTimePicker8 As DateTimePicker
+    Friend WithEvents Label19 As Label
+    Friend WithEvents ComboBox8 As ComboBox
+    Friend WithEvents ComboBox10 As ComboBox
+    Friend WithEvents NumericUpDown1 As NumericUpDown
+    Friend WithEvents NumericUpDown2 As NumericUpDown
+End Class

MaoOrange-Hongji/財務系統管理/票務控制表.resx

@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <data name="Label34.Text" xml:space="preserve">
+    <value>_______________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________</value>
+  </data>
+</root>

MaoOrange-Hongji/財務系統管理/票務控制表.vb

@@ -0,0 +1,170 @@
+Option Strict Off
+Public Class 票務控制表
+    ReadOnly ds As New DataSet
+    Private Sub Set_票務清單()
+        DataGridView1.DataSource = Nothing : ds.Clear() : DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : DataGridView1.ColumnHeadersHeight = 40
+        DataGridView1.AllowUserToAddRows = False : DataGridView1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText : DataGridView1.MultiSelect = True
+        DataGridView1.RowTemplate.Height = 35
+        SQL_票務控制表清單()
+        da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+
+        DataGridView1.Columns(0).Visible = False : DataGridView1.Columns(1).Visible = False : DataGridView1.Columns(2).FillWeight = 80 : DataGridView1.Columns(3).Visible = False
+        DataGridView1.Columns(4).FillWeight = 130 : DataGridView1.Columns(5).FillWeight = 60 : DataGridView1.Columns(6).FillWeight = 60 : DataGridView1.Columns(7).Visible = False
+        DataGridView1.Columns(8).Visible = False : DataGridView1.Columns(9).Visible = False : DataGridView1.Columns(10).FillWeight = 100 : DataGridView1.Columns(11).FillWeight = 50
+        DataGridView1.Columns(12).FillWeight = 85 : DataGridView1.Columns(13).FillWeight = 85 : DataGridView1.Columns(14).FillWeight = 85 : DataGridView1.Columns(15).FillWeight = 85
+        DataGridView1.Columns(16).FillWeight = 130 : DataGridView1.Columns(17).Visible = False : DataGridView1.Columns(18).FillWeight = 130 : DataGridView1.Columns(19).FillWeight = 80
+        DataGridView1.Columns(20).FillWeight = 80 : DataGridView1.Columns(21).FillWeight = 120 : DataGridView1.Columns(22).Visible = False : DataGridView1.Columns(23).Visible = False
+        DataGridView1.Columns(24).Visible = False
+
+        DataGridView1.Columns(5).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(6).DefaultCellStyle.Format = "#,##0"
+        DataGridView1.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        TextBox1.Text = DataGridView1.Rows.Count : TextBox6.Text = "0" : TextBox7.Text = "0" : TextBox8.Text = "0"
+        For i As Integer = 0 To DataGridView1.Rows.Count - 1
+            TextBox7.Text = Val(TextBox7.Text) + DataGridView1.Rows(i).Cells("開票").Value : TextBox8.Text = Val(TextBox8.Text) + DataGridView1.Rows(i).Cells("收票").Value
+        Next i
+        TextBox6.Text = Val(TextBox8.Text) - Val(TextBox7.Text)
+        If Val(TextBox6.Text) > 0 Then : TextBox6.ForeColor = Color.Blue : Else : TextBox6.ForeColor = Color.Red : End If
+        TextBox6.Text = Format(Val(TextBox6.Text), "#,##0") : TextBox7.Text = Format(Val(TextBox7.Text), "#,##0") : TextBox8.Text = Format(Val(TextBox8.Text), "#,##0")
+    End Sub
+    Private Sub ComboBox1下拉表單資料載入()
+        SQL_票務控制表會科區分()
+        ComboBox1.Items.Clear() : While (dr.Read()) : ComboBox1.Items.Add(dr("開票會科")) : End While : conn.Close() : If ComboBox1.Items.Count <> 0 Then : ComboBox1.SelectedIndex = 0 : End If
+    End Sub
+    Private Sub ComboBox2下拉表單資料載入()
+        SQL_票務控制表票況區分()
+        ComboBox2.Items.Clear() : While (dr.Read()) : ComboBox2.Items.Add(dr("狀態")) : End While : conn.Close() : If ComboBox2.Items.Count <> 0 Then : ComboBox2.SelectedIndex = 0 : End If
+    End Sub
+    Private Sub ComboBox3下拉表單資料載入()
+        SQL_票務控制表兌現科目()
+        ComboBox3.Items.Clear() : While (dr.Read()) : ComboBox3.Items.Add(dr("兌現會科")) : End While : conn.Close()
+    End Sub
+    Private Sub ComboBox8下拉表單資料載入_收票()
+        SQL_支票收支單_兌現科目_下拉清單三()
+        ComboBox8.Items.Clear() : ComboBox10.Items.Clear() : While (dr.Read()) : ComboBox8.Items.Add(dr("會計科目")) : ComboBox10.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
+    Private Sub ComboBox8下拉表單資料載入_開票()
+        SQL_支票收支單申請_兌現科目_下拉清單二()
+        ComboBox8.Items.Clear() : ComboBox10.Items.Clear() : While (dr.Read()) : ComboBox8.Items.Add(dr("會計科目")) : ComboBox10.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
+    Private Sub 日期格式()
+        If 會計月.Checked = True Then
+            '-------------日期一----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker1.Value = DTP
+            DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(-1)
+            DTP = Strings.Left(Strings.Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "26" : DateTimePicker1.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & "25" : DateTimePicker2.Value = DTP
+        Else
+            '-------------日期一----------------------------------------------------------------------------------------
+            DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(1)
+            DTP = Strings.Left(Strings.Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker1.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker2.Value = DTP
+            DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(1) : DateTimePicker2.Value = DateTimePicker2.Value.AddDays(-1)
+        End If
+    End Sub
+    Private Sub 票務控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : ComboBox3下拉表單資料載入() : DateTimePicker3.Visible = False
+        日期格式() : ComboBox15.SelectedIndex = 0 : Set_票務清單()
+    End Sub
+    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
+        If e.RowIndex = -1 Then : Else
+            TextBox20.Text = DataGridView1("流水號", e.RowIndex).Value.ToString : NumericUpDown1.Text = DataGridView1("收票", e.RowIndex).Value.ToString
+            NumericUpDown2.Text = DataGridView1("開票", e.RowIndex).Value.ToString : TextBox15.Text = DataGridView1("發票人帳號", e.RowIndex).Value.ToString
+            TextBox14.Text = DataGridView1("用途", e.RowIndex).Value.ToString : TextBox18.Text = DataGridView1("項次", e.RowIndex).Value.ToString
+            TextBox9.Text = DataGridView1("會計科目", e.RowIndex).Value.ToString : ComboBox9.Text = DataGridView1("付款銀行", e.RowIndex).Value.ToString
+            TextBox10.Text = DataGridView1("倉儲單號", e.RowIndex).Value.ToString : TextBox12.Text = DataGridView1("支票號碼", e.RowIndex).Value.ToString
+            TextBox13.Text = DataGridView1("開票人", e.RowIndex).Value.ToString : TextBox16.Text = DataGridView1("備註", e.RowIndex).Value.ToString
+            ComboBox8.Text = DataGridView1("兌現會科", e.RowIndex).Value.ToString
+            If DataGridView1("到期日", e.RowIndex).Value.ToString = "" Then : Else : DateTimePicker7.Value = DataGridView1("到期日", e.RowIndex).Value.ToString : End If
+            If DataGridView1("預定兌現日", e.RowIndex).Value.ToString = "" Then : Else : DateTimePicker4.Value = DataGridView1("預定兌現日", e.RowIndex).Value.ToString : End If
+            If DataGridView1("開收票日", e.RowIndex).Value.ToString = "" Then : Else : DateTimePicker5.Value = DataGridView1("開收票日", e.RowIndex).Value.ToString : End If
+            If DataGridView1("託收已付日", e.RowIndex).Value.ToString = "" Then : Else : DateTimePicker8.Value = DataGridView1("託收已付日", e.RowIndex).Value.ToString : End If
+            客戶供應商資料()
+        End If
+    End Sub
+    Private Sub 客戶供應商資料()
+        PA = TextBox10.Text : SQL_支票收支單客戶供應商查詢()
+        If (dr.Read()) Then
+            If ComboBox2.Text = "開票" Then
+                TextBox11.Text = dr("供應商") : conn.Close()
+            Else
+                TextBox11.Text = dr("客戶編號")
+                If TextBox11.Text = "CI00000000" Then
+                    conn.Close()
+                    SQL_支票收支單申請_客戶資料_零售()
+                    If (dr.Read()) Then
+                        TextBox11.Text = dr("客戶名稱") : conn.Close()
+                    End If
+                Else
+                    TextBox11.Text = dr("客戶") : conn.Close()
+                End If
+            End If
+        Else
+            TextBox11.Text = ""
+        End If
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If 會計月.Checked = True Then
+            DateTimePicker3.Value = DateTimePicker3.Value.AddMonths(-1)
+            DateTimePicker1.Value = DateTimePicker3.Value
+            DateTimePicker2.Value = DateTimePicker3.Value
+        Else
+            DateTimePicker3.Value = DateTimePicker3.Value.AddMonths(-1)
+            DateTimePicker1.Value = DateTimePicker3.Value.AddMonths(-1)
+            DateTimePicker2.Value = DateTimePicker3.Value
+        End If
+        日期格式() : Set_票務清單()
+    End Sub
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        If 會計月.Checked = True Then
+            DateTimePicker3.Value = DateTimePicker3.Value.AddMonths(1)
+            DateTimePicker1.Value = DateTimePicker3.Value
+            DateTimePicker2.Value = DateTimePicker3.Value
+        Else
+            DateTimePicker3.Value = DateTimePicker3.Value.AddMonths(1)
+            DateTimePicker1.Value = DateTimePicker3.Value.AddMonths(-1)
+            DateTimePicker2.Value = DateTimePicker3.Value
+        End If
+        日期格式() : Set_票務清單()
+    End Sub
+    Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月.Click
+        會計月.Checked = True : 一般月.Checked = False : 日期格式() : Set_票務清單()
+    End Sub
+    Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月.Click
+        會計月.Checked = False : 一般月.Checked = True : 日期格式() : Set_票務清單()
+    End Sub
+    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
+        If ComboBox2.Text = "開票" Then
+            Button5.Enabled = True : Button4.Enabled = False : Button6.Enabled = True : ComboBox8下拉表單資料載入_開票()
+        ElseIf ComboBox2.Text = "收票" Then
+            Button5.Enabled = False : Button4.Enabled = True : Button6.Enabled = True : ComboBox8下拉表單資料載入_收票()
+        Else
+            Button5.Enabled = False : Button4.Enabled = False : Button6.Enabled = False : ComboBox8.Items.Clear() : ComboBox10.Items.Clear()
+        End If
+    End Sub
+    Private Sub ComboBox15_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox15.SelectedIndexChanged
+        Set_票務清單()
+    End Sub
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        Set_票務清單()
+    End Sub
+    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
+        ComboBox3下拉表單資料載入() : Set_票務清單()
+    End Sub
+    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
+        Set_票務清單()
+    End Sub
+    Private Sub ComboBox8_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox8.SelectedIndexChanged
+        ComboBox10.SelectedIndex = ComboBox8.SelectedIndex
+    End Sub
+    Private Sub ComboBox10_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox10.SelectedIndexChanged
+        ComboBox8.SelectedIndex = ComboBox10.SelectedIndex
+    End Sub
+End Class

MaoOrange-Hongji/財務系統管理/財務單具申請.Designer.vb

@@ -0,0 +1,922 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 財務單具申請
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        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()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.TextBox16 = New System.Windows.Forms.TextBox()
+        Me.Label25 = New System.Windows.Forms.Label()
+        Me.TextBox15 = New System.Windows.Forms.TextBox()
+        Me.Label24 = New System.Windows.Forms.Label()
+        Me.TextBox14 = New System.Windows.Forms.TextBox()
+        Me.Label23 = New System.Windows.Forms.Label()
+        Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown()
+        Me.TextBox13 = New System.Windows.Forms.TextBox()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.ComboBox9 = New System.Windows.Forms.ComboBox()
+        Me.Label20 = New System.Windows.Forms.Label()
+        Me.ComboBox8 = New System.Windows.Forms.ComboBox()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.DateTimePicker5 = New System.Windows.Forms.DateTimePicker()
+        Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.ComboBox7 = New System.Windows.Forms.ComboBox()
+        Me.TextBox12 = New System.Windows.Forms.TextBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.TextBox11 = New System.Windows.Forms.TextBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.TextBox9 = New System.Windows.Forms.TextBox()
+        Me.ComboBox4 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox3 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox2 = New System.Windows.Forms.ComboBox()
+        Me.ComboBox5 = New System.Windows.Forms.ComboBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.TextBox4 = New System.Windows.Forms.TextBox()
+        Me.Label28 = New System.Windows.Forms.Label()
+        Me.Label27 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.TextBox3 = New System.Windows.Forms.TextBox()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.Label19 = New System.Windows.Forms.Label()
+        Me.Label21 = New System.Windows.Forms.Label()
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.NumericUpDown2 = New System.Windows.Forms.NumericUpDown()
+        Me.NumericUpDown4 = New System.Windows.Forms.NumericUpDown()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.NumericUpDown3 = New System.Windows.Forms.NumericUpDown()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.ComboBox6 = New System.Windows.Forms.ComboBox()
+        Me.DataGridView2 = New System.Windows.Forms.DataGridView()
+        Me.NumericUpDown5 = New System.Windows.Forms.NumericUpDown()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.NumericUpDown6 = New System.Windows.Forms.NumericUpDown()
+        Me.Label22 = New System.Windows.Forms.Label()
+        Me.ComboBox10 = New System.Windows.Forms.ComboBox()
+        Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
+        Me.Label26 = New System.Windows.Forms.Label()
+        CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.NumericUpDown4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.NumericUpDown3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.NumericUpDown5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.NumericUpDown6, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Button3
+        '
+        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(980, 111)
+        Me.Button3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(116, 25)
+        Me.Button3.TabIndex = 1019
+        Me.Button3.Text = "清單存檔"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'TextBox16
+        '
+        Me.TextBox16.ForeColor = System.Drawing.Color.Green
+        Me.TextBox16.Location = New System.Drawing.Point(485, 58)
+        Me.TextBox16.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox16.Name = "TextBox16"
+        Me.TextBox16.Size = New System.Drawing.Size(271, 23)
+        Me.TextBox16.TabIndex = 1018
+        '
+        'Label25
+        '
+        Me.Label25.AutoSize = True
+        Me.Label25.ForeColor = System.Drawing.Color.Green
+        Me.Label25.Location = New System.Drawing.Point(428, 61)
+        Me.Label25.Name = "Label25"
+        Me.Label25.Size = New System.Drawing.Size(56, 16)
+        Me.Label25.TabIndex = 1017
+        Me.Label25.Text = "備        註"
+        '
+        'TextBox15
+        '
+        Me.TextBox15.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox15.Location = New System.Drawing.Point(775, 111)
+        Me.TextBox15.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox15.Name = "TextBox15"
+        Me.TextBox15.Size = New System.Drawing.Size(201, 23)
+        Me.TextBox15.TabIndex = 1016
+        '
+        'Label24
+        '
+        Me.Label24.AutoSize = True
+        Me.Label24.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label24.Location = New System.Drawing.Point(708, 115)
+        Me.Label24.Name = "Label24"
+        Me.Label24.Size = New System.Drawing.Size(68, 16)
+        Me.Label24.TabIndex = 1015
+        Me.Label24.Text = "發票人帳號"
+        '
+        'TextBox14
+        '
+        Me.TextBox14.ForeColor = System.Drawing.Color.Green
+        Me.TextBox14.Location = New System.Drawing.Point(59, 58)
+        Me.TextBox14.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox14.Name = "TextBox14"
+        Me.TextBox14.Size = New System.Drawing.Size(367, 23)
+        Me.TextBox14.TabIndex = 1014
+        '
+        'Label23
+        '
+        Me.Label23.AutoSize = True
+        Me.Label23.ForeColor = System.Drawing.Color.Green
+        Me.Label23.Location = New System.Drawing.Point(2, 61)
+        Me.Label23.Name = "Label23"
+        Me.Label23.Size = New System.Drawing.Size(56, 16)
+        Me.Label23.TabIndex = 1013
+        Me.Label23.Text = "用        途"
+        '
+        'NumericUpDown1
+        '
+        Me.NumericUpDown1.Location = New System.Drawing.Point(542, 3)
+        Me.NumericUpDown1.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
+        Me.NumericUpDown1.Minimum = New Decimal(New Integer() {10000000, 0, 0, -2147483648})
+        Me.NumericUpDown1.Name = "NumericUpDown1"
+        Me.NumericUpDown1.Size = New System.Drawing.Size(70, 23)
+        Me.NumericUpDown1.TabIndex = 1011
+        Me.NumericUpDown1.ThousandsSeparator = True
+        '
+        'TextBox13
+        '
+        Me.TextBox13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox13.Location = New System.Drawing.Point(549, 111)
+        Me.TextBox13.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox13.Name = "TextBox13"
+        Me.TextBox13.Size = New System.Drawing.Size(157, 23)
+        Me.TextBox13.TabIndex = 1010
+        Me.TextBox13.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label18.Location = New System.Drawing.Point(478, 114)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(71, 16)
+        Me.Label18.TabIndex = 1009
+        Me.Label18.Text = "開     票    人"
+        '
+        'ComboBox9
+        '
+        Me.ComboBox9.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.ComboBox9.FormattingEnabled = True
+        Me.ComboBox9.Location = New System.Drawing.Point(775, 86)
+        Me.ComboBox9.Name = "ComboBox9"
+        Me.ComboBox9.Size = New System.Drawing.Size(201, 24)
+        Me.ComboBox9.TabIndex = 1006
+        '
+        'Label20
+        '
+        Me.Label20.AutoSize = True
+        Me.Label20.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label20.Location = New System.Drawing.Point(720, 90)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(56, 16)
+        Me.Label20.TabIndex = 1007
+        Me.Label20.Text = "付款銀行"
+        '
+        'ComboBox8
+        '
+        Me.ComboBox8.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.ComboBox8.FormattingEnabled = True
+        Me.ComboBox8.Items.AddRange(New Object() {"開票", "收票"})
+        Me.ComboBox8.Location = New System.Drawing.Point(505, 85)
+        Me.ComboBox8.Name = "ComboBox8"
+        Me.ComboBox8.Size = New System.Drawing.Size(201, 24)
+        Me.ComboBox8.TabIndex = 1004
+        '
+        'Label17
+        '
+        Me.Label17.AutoSize = True
+        Me.Label17.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label17.Location = New System.Drawing.Point(155, 113)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(64, 16)
+        Me.Label17.TabIndex = 1003
+        Me.Label17.Text = "開(收)票日"
+        '
+        'DateTimePicker5
+        '
+        Me.DateTimePicker5.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker5.Location = New System.Drawing.Point(219, 110)
+        Me.DateTimePicker5.Name = "DateTimePicker5"
+        Me.DateTimePicker5.Size = New System.Drawing.Size(90, 23)
+        Me.DateTimePicker5.TabIndex = 1002
+        '
+        'DateTimePicker4
+        '
+        Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker4.Location = New System.Drawing.Point(382, 110)
+        Me.DateTimePicker4.Name = "DateTimePicker4"
+        Me.DateTimePicker4.Size = New System.Drawing.Size(90, 23)
+        Me.DateTimePicker4.TabIndex = 1000
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label15.Location = New System.Drawing.Point(2, 114)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(56, 16)
+        Me.Label15.TabIndex = 999
+        Me.Label15.Text = "到  期  日"
+        '
+        'DateTimePicker3
+        '
+        Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker3.Location = New System.Drawing.Point(59, 110)
+        Me.DateTimePicker3.Name = "DateTimePicker3"
+        Me.DateTimePicker3.Size = New System.Drawing.Size(90, 23)
+        Me.DateTimePicker3.TabIndex = 998
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label14.Location = New System.Drawing.Point(873, 6)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(32, 16)
+        Me.Label14.TabIndex = 997
+        Me.Label14.Text = "狀態"
+        '
+        'ComboBox7
+        '
+        Me.ComboBox7.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox7.ForeColor = System.Drawing.Color.Green
+        Me.ComboBox7.FormattingEnabled = True
+        Me.ComboBox7.Items.AddRange(New Object() {"開票", "收票"})
+        Me.ComboBox7.Location = New System.Drawing.Point(906, 2)
+        Me.ComboBox7.Name = "ComboBox7"
+        Me.ComboBox7.Size = New System.Drawing.Size(70, 24)
+        Me.ComboBox7.TabIndex = 996
+        '
+        'TextBox12
+        '
+        Me.TextBox12.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox12.Location = New System.Drawing.Point(59, 86)
+        Me.TextBox12.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox12.Name = "TextBox12"
+        Me.TextBox12.Size = New System.Drawing.Size(143, 23)
+        Me.TextBox12.TabIndex = 995
+        Me.TextBox12.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label13.Location = New System.Drawing.Point(3, 90)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(56, 16)
+        Me.Label13.TabIndex = 994
+        Me.Label13.Text = "支票號碼"
+        '
+        'TextBox11
+        '
+        Me.TextBox11.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox11.Location = New System.Drawing.Point(275, 85)
+        Me.TextBox11.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox11.Name = "TextBox11"
+        Me.TextBox11.Size = New System.Drawing.Size(112, 23)
+        Me.TextBox11.TabIndex = 993
+        Me.TextBox11.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label12.Location = New System.Drawing.Point(204, 89)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(73, 16)
+        Me.Label12.TabIndex = 992
+        Me.Label12.Text = "客戶/供應商"
+        '
+        'TextBox9
+        '
+        Me.TextBox9.ForeColor = System.Drawing.Color.Green
+        Me.TextBox9.Location = New System.Drawing.Point(235, 32)
+        Me.TextBox9.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox9.Name = "TextBox9"
+        Me.TextBox9.Size = New System.Drawing.Size(84, 23)
+        Me.TextBox9.TabIndex = 988
+        Me.TextBox9.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'ComboBox4
+        '
+        Me.ComboBox4.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox4.FormattingEnabled = True
+        Me.ComboBox4.Location = New System.Drawing.Point(597, 32)
+        Me.ComboBox4.Name = "ComboBox4"
+        Me.ComboBox4.Size = New System.Drawing.Size(75, 24)
+        Me.ComboBox4.TabIndex = 987
+        '
+        'ComboBox3
+        '
+        Me.ComboBox3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox3.FormattingEnabled = True
+        Me.ComboBox3.Location = New System.Drawing.Point(490, 32)
+        Me.ComboBox3.Name = "ComboBox3"
+        Me.ComboBox3.Size = New System.Drawing.Size(105, 24)
+        Me.ComboBox3.TabIndex = 986
+        '
+        'ComboBox2
+        '
+        Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox2.FormattingEnabled = True
+        Me.ComboBox2.Location = New System.Drawing.Point(427, 32)
+        Me.ComboBox2.Name = "ComboBox2"
+        Me.ComboBox2.Size = New System.Drawing.Size(62, 24)
+        Me.ComboBox2.TabIndex = 985
+        '
+        'ComboBox5
+        '
+        Me.ComboBox5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox5.FormattingEnabled = True
+        Me.ComboBox5.Location = New System.Drawing.Point(321, 32)
+        Me.ComboBox5.Name = "ComboBox5"
+        Me.ComboBox5.Size = New System.Drawing.Size(105, 24)
+        Me.ComboBox5.TabIndex = 984
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        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(405, 6)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(32, 16)
+        Me.Label11.TabIndex = 982
+        Me.Label11.Text = "現金"
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        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(510, 6)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(32, 16)
+        Me.Label10.TabIndex = 980
+        Me.Label10.Text = "支票"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label9.Location = New System.Drawing.Point(744, 7)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(56, 16)
+        Me.Label9.TabIndex = 978
+        Me.Label9.Text = "未沖金額"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label4.Location = New System.Drawing.Point(233, 6)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(32, 16)
+        Me.Label4.TabIndex = 976
+        Me.Label4.Text = "日期"
+        '
+        'DateTimePicker1
+        '
+        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker1.Location = New System.Drawing.Point(265, 3)
+        Me.DateTimePicker1.Name = "DateTimePicker1"
+        Me.DateTimePicker1.Size = New System.Drawing.Size(90, 23)
+        Me.DateTimePicker1.TabIndex = 975
+        '
+        'Button2
+        '
+        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.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Button2.Location = New System.Drawing.Point(980, 85)
+        Me.Button2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(116, 25)
+        Me.Button2.TabIndex = 973
+        Me.Button2.Text = "單據資料存檔"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Location = New System.Drawing.Point(673, 32)
+        Me.ComboBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(201, 24)
+        Me.ComboBox1.TabIndex = 972
+        '
+        'TextBox4
+        '
+        Me.TextBox4.ForeColor = System.Drawing.Color.Green
+        Me.TextBox4.Location = New System.Drawing.Point(59, 32)
+        Me.TextBox4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Size = New System.Drawing.Size(61, 23)
+        Me.TextBox4.TabIndex = 970
+        Me.TextBox4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label28
+        '
+        Me.Label28.AutoSize = True
+        Me.Label28.ForeColor = System.Drawing.Color.Green
+        Me.Label28.Location = New System.Drawing.Point(122, 36)
+        Me.Label28.Name = "Label28"
+        Me.Label28.Size = New System.Drawing.Size(44, 16)
+        Me.Label28.TabIndex = 969
+        Me.Label28.Text = "項次。"
+        '
+        'Label27
+        '
+        Me.Label27.AutoSize = True
+        Me.Label27.ForeColor = System.Drawing.Color.Green
+        Me.Label27.Location = New System.Drawing.Point(3, 35)
+        Me.Label27.Name = "Label27"
+        Me.Label27.Size = New System.Drawing.Size(56, 16)
+        Me.Label27.TabIndex = 968
+        Me.Label27.Text = "選        擇"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.ForeColor = System.Drawing.Color.Green
+        Me.Label3.Location = New System.Drawing.Point(756, 61)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(59, 16)
+        Me.Label3.TabIndex = 966
+        Me.Label3.Text = "登   錄  人"
+        '
+        'TextBox3
+        '
+        Me.TextBox3.ForeColor = System.Drawing.Color.Green
+        Me.TextBox3.Location = New System.Drawing.Point(815, 58)
+        Me.TextBox3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Size = New System.Drawing.Size(59, 23)
+        Me.TextBox3.TabIndex = 965
+        Me.TextBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'TextBox1
+        '
+        Me.TextBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox1.Location = New System.Drawing.Point(109, 3)
+        Me.TextBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(122, 23)
+        Me.TextBox1.TabIndex = 963
+        Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        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(2, 6)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(104, 16)
+        Me.Label1.TabIndex = 964
+        Me.Label1.Text = "支票收支群組單號"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.Green
+        Me.Label2.Location = New System.Drawing.Point(164, 35)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(73, 16)
+        Me.Label2.TabIndex = 974
+        Me.Label2.Text = "會科-關鍵字"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(1, 16)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(978, 16)
+        Me.Label6.TabIndex = 989
+        Me.Label6.Text = "_________________________________________________________________________________" &
+    "________________________________________________________________________________" &
+    "_________________________________"
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label16.Location = New System.Drawing.Point(315, 114)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(68, 16)
+        Me.Label16.TabIndex = 1001
+        Me.Label16.Text = "預定兌現日"
+        '
+        'Label19
+        '
+        Me.Label19.AutoSize = True
+        Me.Label19.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label19.Location = New System.Drawing.Point(450, 89)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(56, 16)
+        Me.Label19.TabIndex = 1005
+        Me.Label19.Text = "兌現科目"
+        '
+        'Label21
+        '
+        Me.Label21.AutoSize = True
+        Me.Label21.ForeColor = System.Drawing.Color.Black
+        Me.Label21.Location = New System.Drawing.Point(3, 123)
+        Me.Label21.Name = "Label21"
+        Me.Label21.Size = New System.Drawing.Size(978, 16)
+        Me.Label21.TabIndex = 1008
+        Me.Label21.Text = "_________________________________________________________________________________" &
+    "________________________________________________________________________________" &
+    "_________________________________"
+        '
+        'DataGridView1
+        '
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.DataGridView1.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(5, 140)
+        Me.DataGridView1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.RowHeadersWidth = 5
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.DataGridView1.RowTemplate.Height = 24
+        Me.DataGridView1.Size = New System.Drawing.Size(1091, 339)
+        Me.DataGridView1.TabIndex = 967
+        '
+        'NumericUpDown2
+        '
+        Me.NumericUpDown2.Location = New System.Drawing.Point(437, 3)
+        Me.NumericUpDown2.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
+        Me.NumericUpDown2.Minimum = New Decimal(New Integer() {10000000, 0, 0, -2147483648})
+        Me.NumericUpDown2.Name = "NumericUpDown2"
+        Me.NumericUpDown2.Size = New System.Drawing.Size(70, 23)
+        Me.NumericUpDown2.TabIndex = 1020
+        Me.NumericUpDown2.ThousandsSeparator = True
+        '
+        'NumericUpDown4
+        '
+        Me.NumericUpDown4.Location = New System.Drawing.Point(800, 3)
+        Me.NumericUpDown4.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
+        Me.NumericUpDown4.Minimum = New Decimal(New Integer() {10000000, 0, 0, -2147483648})
+        Me.NumericUpDown4.Name = "NumericUpDown4"
+        Me.NumericUpDown4.Size = New System.Drawing.Size(70, 23)
+        Me.NumericUpDown4.TabIndex = 1022
+        Me.NumericUpDown4.ThousandsSeparator = True
+        '
+        '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.Green
+        Me.Button1.Location = New System.Drawing.Point(980, 32)
+        Me.Button1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(116, 25)
+        Me.Button1.TabIndex = 1023
+        Me.Button1.Text = "新增一筆資料"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Button4
+        '
+        Me.Button4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button4.ForeColor = System.Drawing.Color.Red
+        Me.Button4.Location = New System.Drawing.Point(980, 58)
+        Me.Button4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(116, 25)
+        Me.Button4.TabIndex = 1024
+        Me.Button4.Text = "刪除選中的資料"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(3, 70)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(978, 16)
+        Me.Label5.TabIndex = 1025
+        Me.Label5.Text = "_________________________________________________________________________________" &
+    "________________________________________________________________________________" &
+    "_________________________________"
+        '
+        'NumericUpDown3
+        '
+        Me.NumericUpDown3.Location = New System.Drawing.Point(670, 3)
+        Me.NumericUpDown3.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
+        Me.NumericUpDown3.Minimum = New Decimal(New Integer() {10000000, 0, 0, -2147483648})
+        Me.NumericUpDown3.Name = "NumericUpDown3"
+        Me.NumericUpDown3.Size = New System.Drawing.Size(70, 23)
+        Me.NumericUpDown3.TabIndex = 1027
+        Me.NumericUpDown3.ThousandsSeparator = True
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        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(614, 7)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(56, 16)
+        Me.Label7.TabIndex = 1026
+        Me.Label7.Text = "應沖金額"
+        '
+        'ComboBox6
+        '
+        Me.ComboBox6.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox6.FormattingEnabled = True
+        Me.ComboBox6.Location = New System.Drawing.Point(775, 143)
+        Me.ComboBox6.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.ComboBox6.Name = "ComboBox6"
+        Me.ComboBox6.Size = New System.Drawing.Size(113, 24)
+        Me.ComboBox6.TabIndex = 1028
+        '
+        'DataGridView2
+        '
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, 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) _
+            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(24, 165)
+        Me.DataGridView2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.DataGridView2.Name = "DataGridView2"
+        Me.DataGridView2.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(262, 293)
+        Me.DataGridView2.TabIndex = 1029
+        '
+        'NumericUpDown5
+        '
+        Me.NumericUpDown5.Location = New System.Drawing.Point(906, 32)
+        Me.NumericUpDown5.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
+        Me.NumericUpDown5.Minimum = New Decimal(New Integer() {10000000, 0, 0, -2147483648})
+        Me.NumericUpDown5.Name = "NumericUpDown5"
+        Me.NumericUpDown5.Size = New System.Drawing.Size(70, 23)
+        Me.NumericUpDown5.TabIndex = 1031
+        Me.NumericUpDown5.ThousandsSeparator = True
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        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(874, 35)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(32, 16)
+        Me.Label8.TabIndex = 1030
+        Me.Label8.Text = "現金"
+        '
+        'NumericUpDown6
+        '
+        Me.NumericUpDown6.Location = New System.Drawing.Point(906, 58)
+        Me.NumericUpDown6.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
+        Me.NumericUpDown6.Minimum = New Decimal(New Integer() {10000000, 0, 0, -2147483648})
+        Me.NumericUpDown6.Name = "NumericUpDown6"
+        Me.NumericUpDown6.Size = New System.Drawing.Size(70, 23)
+        Me.NumericUpDown6.TabIndex = 1033
+        Me.NumericUpDown6.ThousandsSeparator = True
+        '
+        '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(874, 61)
+        Me.Label22.Name = "Label22"
+        Me.Label22.Size = New System.Drawing.Size(32, 16)
+        Me.Label22.TabIndex = 1032
+        Me.Label22.Text = "支票"
+        '
+        'ComboBox10
+        '
+        Me.ComboBox10.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComboBox10.ForeColor = System.Drawing.Color.Green
+        Me.ComboBox10.FormattingEnabled = True
+        Me.ComboBox10.Items.AddRange(New Object() {"開票", "收票"})
+        Me.ComboBox10.Location = New System.Drawing.Point(775, 174)
+        Me.ComboBox10.Name = "ComboBox10"
+        Me.ComboBox10.Size = New System.Drawing.Size(113, 24)
+        Me.ComboBox10.TabIndex = 1034
+        '
+        'DateTimePicker2
+        '
+        Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker2.Location = New System.Drawing.Point(775, 204)
+        Me.DateTimePicker2.Name = "DateTimePicker2"
+        Me.DateTimePicker2.Size = New System.Drawing.Size(113, 23)
+        Me.DateTimePicker2.TabIndex = 1035
+        '
+        'Label26
+        '
+        Me.Label26.AutoSize = True
+        Me.Label26.ForeColor = System.Drawing.Color.Red
+        Me.Label26.Location = New System.Drawing.Point(3, 483)
+        Me.Label26.Name = "Label26"
+        Me.Label26.Size = New System.Drawing.Size(406, 16)
+        Me.Label26.TabIndex = 1036
+        Me.Label26.Text = "1、折讓會科，盡量使用收付現金狀態。2、折讓會科在金額中請輸入負數。"
+        '
+        '財務單具申請
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1104, 506)
+        Me.Controls.Add(Me.Label26)
+        Me.Controls.Add(Me.DateTimePicker2)
+        Me.Controls.Add(Me.ComboBox10)
+        Me.Controls.Add(Me.NumericUpDown6)
+        Me.Controls.Add(Me.Label22)
+        Me.Controls.Add(Me.NumericUpDown5)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.DataGridView2)
+        Me.Controls.Add(Me.ComboBox6)
+        Me.Controls.Add(Me.NumericUpDown3)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Button4)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.NumericUpDown4)
+        Me.Controls.Add(Me.NumericUpDown2)
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.TextBox16)
+        Me.Controls.Add(Me.Label25)
+        Me.Controls.Add(Me.TextBox15)
+        Me.Controls.Add(Me.Label24)
+        Me.Controls.Add(Me.TextBox14)
+        Me.Controls.Add(Me.Label23)
+        Me.Controls.Add(Me.NumericUpDown1)
+        Me.Controls.Add(Me.TextBox13)
+        Me.Controls.Add(Me.Label18)
+        Me.Controls.Add(Me.ComboBox9)
+        Me.Controls.Add(Me.Label20)
+        Me.Controls.Add(Me.ComboBox8)
+        Me.Controls.Add(Me.Label17)
+        Me.Controls.Add(Me.DateTimePicker5)
+        Me.Controls.Add(Me.DateTimePicker4)
+        Me.Controls.Add(Me.Label15)
+        Me.Controls.Add(Me.DateTimePicker3)
+        Me.Controls.Add(Me.Label14)
+        Me.Controls.Add(Me.ComboBox7)
+        Me.Controls.Add(Me.TextBox12)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.TextBox11)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.TextBox9)
+        Me.Controls.Add(Me.ComboBox4)
+        Me.Controls.Add(Me.ComboBox3)
+        Me.Controls.Add(Me.ComboBox2)
+        Me.Controls.Add(Me.ComboBox5)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.DateTimePicker1)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.ComboBox1)
+        Me.Controls.Add(Me.TextBox4)
+        Me.Controls.Add(Me.Label28)
+        Me.Controls.Add(Me.Label27)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.TextBox3)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label16)
+        Me.Controls.Add(Me.Label19)
+        Me.Controls.Add(Me.Label21)
+        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.Label5)
+        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.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "財務單具申請"
+        CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.NumericUpDown4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.NumericUpDown3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.NumericUpDown5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.NumericUpDown6, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Button3 As Button
+    Friend WithEvents TextBox16 As TextBox
+    Friend WithEvents Label25 As Label
+    Friend WithEvents TextBox15 As TextBox
+    Friend WithEvents Label24 As Label
+    Friend WithEvents TextBox14 As TextBox
+    Friend WithEvents Label23 As Label
+    Friend WithEvents NumericUpDown1 As NumericUpDown
+    Friend WithEvents TextBox13 As TextBox
+    Friend WithEvents Label18 As Label
+    Friend WithEvents ComboBox9 As ComboBox
+    Friend WithEvents Label20 As Label
+    Friend WithEvents ComboBox8 As ComboBox
+    Friend WithEvents Label17 As Label
+    Friend WithEvents DateTimePicker5 As DateTimePicker
+    Friend WithEvents DateTimePicker4 As DateTimePicker
+    Friend WithEvents Label15 As Label
+    Friend WithEvents DateTimePicker3 As DateTimePicker
+    Friend WithEvents Label14 As Label
+    Friend WithEvents ComboBox7 As ComboBox
+    Friend WithEvents TextBox12 As TextBox
+    Friend WithEvents Label13 As Label
+    Friend WithEvents TextBox11 As TextBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents TextBox9 As TextBox
+    Friend WithEvents ComboBox4 As ComboBox
+    Friend WithEvents ComboBox3 As ComboBox
+    Friend WithEvents ComboBox2 As ComboBox
+    Friend WithEvents ComboBox5 As ComboBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents Label10 As Label
+    Friend WithEvents Label9 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents DateTimePicker1 As DateTimePicker
+    Friend WithEvents Button2 As Button
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents TextBox4 As TextBox
+    Friend WithEvents Label28 As Label
+    Friend WithEvents Label27 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents TextBox3 As TextBox
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label16 As Label
+    Friend WithEvents Label19 As Label
+    Friend WithEvents Label21 As Label
+    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents NumericUpDown2 As NumericUpDown
+    Friend WithEvents NumericUpDown4 As NumericUpDown
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button4 As Button
+    Friend WithEvents Label5 As Label
+    Friend WithEvents NumericUpDown3 As NumericUpDown
+    Friend WithEvents Label7 As Label
+    Friend WithEvents ComboBox6 As ComboBox
+    Friend WithEvents DataGridView2 As DataGridView
+    Friend WithEvents NumericUpDown5 As NumericUpDown
+    Friend WithEvents Label8 As Label
+    Friend WithEvents NumericUpDown6 As NumericUpDown
+    Friend WithEvents Label22 As Label
+    Friend WithEvents ComboBox10 As ComboBox
+    Friend WithEvents DateTimePicker2 As DateTimePicker
+    Friend WithEvents Label26 As Label
+End Class

MaoOrange-Hongji/財務系統管理/財務單具申請.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

MaoOrange-Hongji/財務系統管理/財務單具申請.vb

@@ -0,0 +1,279 @@
+Option Strict Off
+Public Class 財務單具申請
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet
+    Dim 新項次 As String : Dim NUM1 As Integer
+    Private Sub Set_清單1()
+        DataGridView2.DataSource = Nothing : ds1.Clear()
+        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        DataGridView2.ColumnHeadersHeight = 25
+        DataGridView2.AllowUserToAddRows = False
+        SQL_應收應付單號連接暫存檔讀取()
+        da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()
+
+        DataGridView2.Columns(0).FillWeight = 145
+    End Sub
+    Private Sub Set_費用清單()
+        DataGridView1.DataSource = Nothing : ds.Clear()
+        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        DataGridView1.ColumnHeadersHeight = 40
+        DataGridView1.AllowUserToAddRows = False
+        DataGridView1.RowTemplate.Height = 35
+        SQL_財務單具申請費用清單()
+        da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+
+        DataGridView1.Columns(0).Visible = False : DataGridView1.Columns(1).FillWeight = 80 : DataGridView1.Columns(2).FillWeight = 140 : DataGridView1.Columns(3).FillWeight = 300
+        DataGridView1.Columns(4).FillWeight = 120 : DataGridView1.Columns(5).FillWeight = 120 : DataGridView1.Columns(6).FillWeight = 120 : DataGridView1.Columns(7).FillWeight = 120
+        DataGridView1.Columns(8).FillWeight = 200 : DataGridView1.Columns(9).Visible = False : DataGridView1.Columns(10).FillWeight = 110 : DataGridView1.Columns(11).Visible = False
+        DataGridView1.Columns(12).FillWeight = 200 : DataGridView1.Columns(13).FillWeight = 150 : DataGridView1.Columns(14).FillWeight = 150 : DataGridView1.Columns(15).FillWeight = 150
+        DataGridView1.Columns(16).Visible = False : DataGridView1.Columns(17).Visible = False : DataGridView1.Columns(18).Visible = False : DataGridView1.Columns(19).Visible = False
+        DataGridView1.Columns(20).FillWeight = 100 : DataGridView1.Columns(21).Visible = False
+
+        DataGridView1.Columns(1).ReadOnly = True : DataGridView1.Columns(2).ReadOnly = True : DataGridView1.Columns(10).ReadOnly = True : DataGridView1.Columns(20).ReadOnly = True
+
+        DataGridView1.Columns(4).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(5).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(6).DefaultCellStyle.Format = "#,##0"
+        DataGridView1.Columns(7).DefaultCellStyle.Format = "#,##0"
+        DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        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(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(13).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(14).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(15).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(15).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(20).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(20).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        DataGridView1.EditMode = DataGridViewEditMode.EditOnEnter
+
+        NumericUpDown1.Value = 0 : NumericUpDown2.Value = 0
+        For i As Integer = 0 To DataGridView1.Rows.Count - 1
+            If 財務單申請狀態 = "應付" Then
+                DataGridView1.Columns(5).ReadOnly = True : DataGridView1.Columns(7).ReadOnly = True
+                If DataGridView1.Rows(i).Cells("開票").Value < 0 Then : Else : NumericUpDown1.Value = NumericUpDown1.Value + DataGridView1.Rows(i).Cells("開票").Value : End If
+                If DataGridView1.Rows(i).Cells("支出").Value < 0 Then : Else : NumericUpDown2.Value = NumericUpDown2.Value + DataGridView1.Rows(i).Cells("支出").Value : End If
+            ElseIf 財務單申請狀態 = "應收" Then
+                DataGridView1.Columns(4).ReadOnly = True : DataGridView1.Columns(6).ReadOnly = True
+                If DataGridView1.Rows(i).Cells("收票").Value < 0 Then : Else : NumericUpDown1.Value = NumericUpDown1.Value + DataGridView1.Rows(i).Cells("收票").Value : End If
+                If DataGridView1.Rows(i).Cells("現金").Value < 0 Then : Else : NumericUpDown2.Value = NumericUpDown2.Value + DataGridView1.Rows(i).Cells("現金").Value : End If
+            End If
+        Next i
+        NumericUpDown4.Value = NumericUpDown3.Value - NumericUpDown2.Value - NumericUpDown1.Value
+    End Sub
+
+    Private Sub ComboBox1下拉表單資料載入()
+        PA = ComboBox4.Text
+        If ComboBox7.Text = "付現" Then : SQL_會計科目_第三階_應付_不含流動票務()
+        ElseIf ComboBox7.Text = "開票" Then : SQL_會計科目_第三階_應付_只含流動票務() : End If
+        ComboBox1.Items.Clear() : ComboBox6.Items.Clear() : While (dr.Read()) : ComboBox1.Items.Add(dr("會計科目")) : ComboBox6.Items.Add(dr("編號")) : End While : conn.Close()
+        If ComboBox1.Items.Count <> 0 Then : ComboBox1.SelectedIndex = 0 : End If
+    End Sub
+    Private Sub ComboBox2下拉表單資料載入()
+        If ComboBox7.Text = "付現" Then : SQL_會計科目_第一階_應付_不含流動票務()
+        ElseIf ComboBox7.Text = "開票" Then : SQL_會計科目_第一階_應付_只含流動票務() : End If
+        ComboBox5.Items.Clear() : ComboBox2.Items.Clear() : While (dr.Read()) : ComboBox5.Items.Add(dr("第一階")) : ComboBox2.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
+    Private Sub ComboBox3下拉表單資料載入()
+        PA = ComboBox2.Text
+        If ComboBox7.Text = "付現" Then : SQL_會計科目_第二階_應付_不含流動票務()
+        ElseIf ComboBox7.Text = "開票" Then : SQL_會計科目_第二階_應付_只含流動票務() : End If
+        ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : While (dr.Read()) : ComboBox3.Items.Add(dr("第二階")) : ComboBox4.Items.Add(dr("編號")) : End While : conn.Close() : PA = ""
+    End Sub
+    Private Sub ComboBox8下拉表單資料載入()
+        SQL_支票收支單申請_兌現科目_下拉清單二()
+        ComboBox8.Items.Clear() : ComboBox10.Items.Clear() : While (dr.Read()) : ComboBox8.Items.Add(dr("會計科目")) : ComboBox10.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
+    Private Sub ComboBox9下拉表單資料載入_開票()
+        SQL_支票收支單申請_兌現科目_下拉清單一()
+        ComboBox9.Items.Clear() : While (dr.Read()) : ComboBox9.Items.Add(dr("會計科目")) : End While : conn.Close()
+    End Sub
+    Private Sub 開立營運成本收支單_單號生成()
+        Dim NUM1 As Integer
+        For i As Integer = 1 To 999
+            NUM1 = 0 + i
+            If NUM1 < 10 Then : TextBox1.Text = "OE-" & DTP1 & "-00" & NUM1
+            ElseIf NUM1 > 9 And NUM1 < 100 Then : TextBox1.Text = "OE-" & DTP1 & "-0" & NUM1
+            ElseIf NUM1 > 99 Then : TextBox1.Text = "OE-" & DTP1 & "-" & NUM1 : End If : PA = TextBox1.Text
+            SQL_營運成本收支單申請_支付單號流水號()
+            If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
+        Next
+    End Sub
+    Private Sub 財務單具申請_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        conn.Close() : Set_清單1()
+        TextBox1.Enabled = False : DateTimePicker1.Enabled = False : TextBox3.Enabled = False : NumericUpDown3.Enabled = False : NumericUpDown4.Enabled = False
+        NumericUpDown1.Enabled = False : NumericUpDown2.Enabled = False
+        ComboBox6.Visible = False : ComboBox10.Visible = False : DataGridView2.Visible = False : DateTimePicker2.Visible = False
+        NumericUpDown3.Value = 收付應沖金額 : TextBox3.Text = gUserName : DateTimePicker1.Value = DTP
+        If 財務單申請狀態 = "應付" Then : ComboBox7.Items.Clear() : ComboBox7.Items.Add("付現") : ComboBox7.Items.Add("開票") : ComboBox7.SelectedIndex = 0
+        ElseIf 財務單申請狀態 = "應收" Then : ComboBox7.Items.Clear() : ComboBox7.Items.Add("收現") : ComboBox7.Items.Add("收票") : ComboBox7.SelectedIndex = 0 : End If
+
+        ComboBox2下拉表單資料載入() : ComboBox8下拉表單資料載入() : ComboBox9下拉表單資料載入_開票()
+
+        If 收付對應財務單號 = "" Then : 開立營運成本收支單_單號生成()
+        ElseIf 收付對應財務單號 <> "" Then : TextBox1.Text = 收付對應財務單號 : End If
+        Set_費用清單()
+        PA = 收付對應客戶供應商編號
+        SQL_支票收支單客戶供應商查詢()
+        If dr.Read() Then
+            TextBox11.Text = dr("供應商")
+        End If
+    End Sub
+    Private Sub 財務單具申請_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
+        SQL_應收應付單號連接暫存檔刪除()
+    End Sub
+    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
+        If e.RowIndex = -1 Then : Else
+            ComboBox8下拉表單資料載入()
+            TextBox15.Text = DataGridView1.Rows(e.RowIndex).Cells("發票人帳號").Value.ToString : TextBox13.Text = DataGridView1.Rows(e.RowIndex).Cells("開票人").Value.ToString
+            TextBox12.Text = DataGridView1.Rows(e.RowIndex).Cells("支票號碼").Value.ToString : ComboBox9.Text = DataGridView1.Rows(e.RowIndex).Cells("付款銀行").Value.ToString
+            ComboBox10.Text = DataGridView1.Rows(e.RowIndex).Cells("兌現科目").Value.ToString : ComboBox7.Text = DataGridView1.Rows(e.RowIndex).Cells("狀態").Value.ToString
+            TextBox16.Text = DataGridView1.Rows(e.RowIndex).Cells("備註").Value.ToString : TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells("登錄人").Value.ToString
+            TextBox14.Text = DataGridView1.Rows(e.RowIndex).Cells("用途").Value.ToString : TextBox4.Text = DataGridView1.Rows(e.RowIndex).Cells("項次").Value.ToString
+            TextBox9.Text = DataGridView1.Rows(e.RowIndex).Cells("會計科目").Value.ToString : ComboBox1.Text = DataGridView1.Rows(e.RowIndex).Cells("會計科目").Value.ToString
+
+            If DataGridView1("到期日", 0).Value.ToString = "" Then : Else : DateTimePicker3.Value = DataGridView1("到期日", 0).Value.ToString : End If
+            If DataGridView1("預定兌現日", 0).Value.ToString = "" Then : Else : DateTimePicker4.Value = DataGridView1("預定兌現日", 0).Value.ToString : End If
+            If DataGridView1("開收票日", 0).Value.ToString = "" Then : Else : DateTimePicker5.Value = DataGridView1("開收票日", 0).Value.ToString : End If
+
+            If 財務單申請狀態 = "應付" Then
+                NumericUpDown5.Value = DataGridView1.Rows(e.RowIndex).Cells("支出").Value
+                NumericUpDown6.Value = DataGridView1.Rows(e.RowIndex).Cells("開票").Value
+            ElseIf 財務單申請狀態 = "應收" Then
+                NumericUpDown5.Value = DataGridView1.Rows(e.RowIndex).Cells("現金").Value
+                NumericUpDown6.Value = DataGridView1.Rows(e.RowIndex).Cells("收票").Value
+            End If
+        End If
+    End Sub
+    Private Sub DataGridView1_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
+        Dim EU1 As String : Dim EU2 As String : Dim EU3 As String
+        EU1 = DataGridView1("到期日", e.RowIndex).Value.ToString : EU2 = DataGridView1("預定兌現日", e.RowIndex).Value.ToString : EU3 = DataGridView1("開收票日", e.RowIndex).Value.ToString
+        If EU1 = "" Then : Else : DateTimePicker3.Value = EU1 : DataGridView1.Rows(e.RowIndex).Cells("到期日").Value = Format(DateTimePicker3.Value, "yyyy/MM/dd") : End If
+        If EU2 = "" Then : Else : DateTimePicker4.Value = EU2 : DataGridView1.Rows(e.RowIndex).Cells("預定兌現日").Value = Format(DateTimePicker4.Value, "yyyy/MM/dd") : End If
+        If EU3 = "" Then : Else : DateTimePicker5.Value = EU3 : DataGridView1.Rows(e.RowIndex).Cells("開收票日").Value = Format(DateTimePicker5.Value, "yyyy/MM/dd") : End If
+    End Sub
+    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.TextChanged
+        ComboBox2.SelectedIndex = ComboBox5.SelectedIndex : TextBox9.Text = "" : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.TextChanged
+        ComboBox5.SelectedIndex = ComboBox2.SelectedIndex : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.TextChanged
+        ComboBox4.SelectedIndex = ComboBox3.SelectedIndex : ComboBox1下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.TextChanged
+        ComboBox3.SelectedIndex = ComboBox4.SelectedIndex : ComboBox1下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
+        ComboBox6.SelectedIndex = ComboBox1.SelectedIndex
+    End Sub
+    Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedIndexChanged
+        ComboBox1.SelectedIndex = ComboBox6.SelectedIndex
+    End Sub
+    Private Sub ComboBox8_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox8.SelectedIndexChanged
+        ComboBox10.SelectedIndex = ComboBox8.SelectedIndex
+    End Sub
+    Private Sub ComboBox10_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox10.SelectedIndexChanged
+        ComboBox8.SelectedIndex = ComboBox10.SelectedIndex
+    End Sub
+    Private Sub ComboBox7_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox7.SelectedIndexChanged
+        ComboBox2下拉表單資料載入()
+        If ComboBox7.Text = "付現" Then
+            TextBox12.Enabled = False : TextBox11.Enabled = False : ComboBox8.Enabled = False : ComboBox9.Enabled = False : DateTimePicker3.Enabled = False
+            DateTimePicker5.Enabled = False : DateTimePicker4.Enabled = False : TextBox13.Enabled = False : TextBox15.Enabled = False
+            NumericUpDown5.Enabled = True : NumericUpDown6.Enabled = False : NumericUpDown6.Value = 0
+        ElseIf ComboBox7.Text = "開票" Then
+            TextBox12.Enabled = True : TextBox11.Enabled = True : ComboBox8.Enabled = True : ComboBox9.Enabled = True : DateTimePicker3.Enabled = True
+            DateTimePicker5.Enabled = True : DateTimePicker4.Enabled = True : TextBox13.Enabled = True : TextBox15.Enabled = True
+            NumericUpDown5.Enabled = False : NumericUpDown6.Enabled = True : NumericUpDown5.Value = 0
+        End If
+    End Sub
+    Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged
+        PA = TextBox9.Text
+        If ComboBox7.Text = "付現" Then : SQL_會計科目_關鍵字_應付_不含流動票務()
+        ElseIf ComboBox7.Text = "開票" Then : SQL_會計科目_關鍵字_應付_只含流動票務() : End If
+        ComboBox1.Items.Clear() : ComboBox6.Items.Clear() : While (dr.Read()) : ComboBox1.Items.Add(dr("會計科目")) : ComboBox6.Items.Add(dr("編號")) : End While : conn.Close()
+        If ComboBox1.Items.Count <> 0 Then : ComboBox1.SelectedIndex = 0 : End If : PA = ""
+    End Sub
+    Private Sub NumericUpDown2_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown2.ValueChanged
+        NumericUpDown4.Value = NumericUpDown3.Value - NumericUpDown2.Value - NumericUpDown1.Value
+    End Sub
+    Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown1.ValueChanged
+        NumericUpDown4.Value = NumericUpDown3.Value - NumericUpDown2.Value - NumericUpDown1.Value
+    End Sub
+    Private Sub 存檔()
+        PA4 = TextBox1.Text
+        For i As Integer = 0 To DataGridView1.Rows.Count - 1
+            資料數 = DataGridView1.Rows.Count : MyModule1.進度條()
+            PA1 = DataGridView1.Rows(i).Cells("用途").Value : NU1 = DataGridView1.Rows(i).Cells("支出").Value : PA2 = DataGridView1.Rows(i).Cells("備註").Value
+            PA3 = DataGridView1.Rows(i).Cells("科目編號").Value : NU2 = DataGridView1.Rows(i).Cells("現金").Value : NU3 = DataGridView1.Rows(i).Cells("開票").Value
+            NU4 = DataGridView1.Rows(i).Cells("收票").Value : PA5 = DataGridView1.Rows(i).Cells("項次").Value : PA6 = DataGridView1.Rows(i).Cells("狀態").Value : PA7 = gUserName
+            PA8 = DataGridView1.Rows(i).Cells("發票人帳號").Value.ToString : PA9 = DataGridView1.Rows(i).Cells("兌現科目").Value.ToString : PA10 = DataGridView1.Rows(i).Cells("付款銀行").Value.ToString
+            PA11 = DataGridView1.Rows(i).Cells("倉儲單號").Value.ToString : PA12 = DataGridView1.Rows(i).Cells("支票號碼").Value.ToString : PA13 = DataGridView1.Rows(i).Cells("開票人").Value.ToString
+            PA14 = DataGridView1.Rows(i).Cells("到期日").Value.ToString : PA15 = DataGridView1.Rows(i).Cells("預定兌現日").Value.ToString : PA16 = DataGridView1.Rows(i).Cells("開收票日").Value.ToString
+            SQL_支票收支單申請修改() : conn.Close()
+        Next : MAOJI_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If ComboBox6.Text = "" Then : MsgBox("沒有選擇會計科目。")
+        Else
+            If NumericUpDown4.Value <= 0 Then : MsgBox("請注意可沖金額不可小於零。")
+            Else
+                PA = TextBox1.Text : TextBox3.Text = gUserName
+                If DataGridView1.Rows.Count = 0 Then
+                    SQL_營運成本控制表新增()
+                    For i As Integer = 0 To DataGridView2.Rows.Count - 1
+                        PA19 = DataGridView2.Rows(i).Cells("流水單號").Value.ToString
+                        SQL_倉儲明細表財務單號連接修改()
+                        PA6 = DataGridView2.Rows(i).Cells("流水單號").Value : PA7 = "1"
+                        SQL_應付賬款_倉儲明細應付立帳修改()
+                    Next
+                End If
+                存檔()
+                SQL_營運成本明細表項次新增查詢()
+                If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close() : NUM1 = Double.Parse(新項次) + 1
+                If NUM1 < 10 Then : 新項次 = "0" & NUM1
+                ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
+                PA1 = TextBox1.Text : PA2 = 新項次 : PA3 = ComboBox6.Text : PA4 = "" : NU1 = 0 : PA5 = "" : NU2 = 0 : NU3 = 0 : NU4 = 0 : PA6 = ComboBox7.Text : PA7 = gUserName
+                SQL_營運成本明細表新增() : Set_費用清單()
+            End If
+        End If
+    End Sub
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        If TextBox4.Text = "" Then : MsgBox("未選擇需要刪除的資料。")
+        Else
+            存檔() : PA1 = TextBox1.Text : PA2 = TextBox4.Text : SQL_營運成本明細表刪除單筆() : conn.Close() : Set_費用清單() : Dim NUM1 As Integer = 0
+            For i As Integer = 0 To DataGridView1.Rows.Count - 1
+                NUM1 += 1 : If NUM1 < 10 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
+                PA1 = 新項次 : PA2 = TextBox1.Text : PA3 = DataGridView1.Rows(i).Cells("項次").Value
+                SQL_營運成本明細表項次修改() : conn.Close()
+            Next : Set_費用清單()
+            If DataGridView1.Rows.Count = 0 Then
+                PA1 = TextBox1.Text : SQL_營運成本控制表刪除() : PA = ""
+                For i As Integer = 0 To DataGridView2.Rows.Count - 1
+                    PA19 = DataGridView2.Rows(i).Cells("流水單號").Value.ToString
+                    SQL_倉儲明細表財務單號連接修改()
+                    PA6 = DataGridView2.Rows(i).Cells("流水單號").Value : PA7 = "0"
+                    SQL_應付賬款_倉儲明細應付立帳修改()
+                Next
+            End If
+        End If
+    End Sub
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        PA4 = TextBox1.Text : PA1 = TextBox14.Text : NU1 = NumericUpDown5.Value : PA2 = TextBox16.Text : PA3 = ComboBox6.Text : NU2 = 0 : NU3 = NumericUpDown6.Value : NU4 = 0 : PA5 = TextBox4.Text
+        PA6 = ComboBox7.Text : PA7 = TextBox3.Text : PA8 = TextBox15.Text : PA9 = ComboBox10.Text : PA10 = ComboBox9.Text : PA11 = 收付對應客戶供應商編號 : PA12 = TextBox12.Text : PA13 = TextBox13.Text
+        If 財務單申請狀態 = "應付" Then
+            If ComboBox7.Text = "付現" Then
+                PA14 = "" : PA15 = "" : PA16 = ""
+            ElseIf ComboBox7.Text = "開票" Then
+                PA14 = Format(DateTimePicker3.Value, "yyyy/MM/dd") : PA15 = Format(DateTimePicker4.Value, "yyyy/MM/dd") : PA16 = Format(DateTimePicker5.Value, "yyyy/MM/dd")
+            End If
+        ElseIf 財務單申請狀態 = "應收" Then
+
+        End If
+        SQL_支票收支單申請修改() : conn.Close() : Set_費用清單() : MsgBox("存檔完畢")
+    End Sub
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        存檔() : Set_費用清單() : MsgBox("存檔完畢")
+    End Sub
+End Class

MaoOrange-Hongji/財務系統管理/財務收支單_對帳表.Designer.vb

@@ -0,0 +1,668 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 財務收支單_對帳表
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim DataGridViewCellStyle4 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.Label62 = New System.Windows.Forms.Label()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.重新整理ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.關鍵字查詢ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.對帳記錄存檔ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.BBBToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.TextBox3 = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.TextBox4 = New System.Windows.Forms.TextBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.TextBox5 = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.TextBox6 = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.CheckBox4 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox5 = New System.Windows.Forms.CheckBox()
+        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.TextBox8 = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.TextBox9 = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.TextBox10 = New System.Windows.Forms.TextBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.TextBox11 = New System.Windows.Forms.TextBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.TextBox12 = New System.Windows.Forms.TextBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.TextBox13 = New System.Windows.Forms.TextBox()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.一般月 = New System.Windows.Forms.CheckBox()
+        Me.會計月 = New System.Windows.Forms.CheckBox()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
+        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker()
+        Me.TextBox14 = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.TextBox15 = New System.Windows.Forms.TextBox()
+        Me.Label16 = New System.Windows.Forms.Label()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.ForeColor = System.Drawing.Color.Green
+        Me.Label4.Location = New System.Drawing.Point(310, 8)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(32, 16)
+        Me.Label4.TabIndex = 1015
+        Me.Label4.Text = "單號"
+        '
+        'TextBox1
+        '
+        Me.TextBox1.ForeColor = System.Drawing.Color.Green
+        Me.TextBox1.Location = New System.Drawing.Point(342, 5)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(124, 23)
+        Me.TextBox1.TabIndex = 1014
+        Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'TextBox7
+        '
+        Me.TextBox7.ForeColor = System.Drawing.Color.Green
+        Me.TextBox7.Location = New System.Drawing.Point(1136, 5)
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.Size = New System.Drawing.Size(90, 23)
+        Me.TextBox7.TabIndex = 1013
+        Me.TextBox7.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.ForeColor = System.Drawing.Color.Green
+        Me.Label9.Location = New System.Drawing.Point(1104, 9)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(32, 16)
+        Me.Label9.TabIndex = 1012
+        Me.Label9.Text = "現金"
+        '
+        'DataGridView1
+        '
+        Me.DataGridView1.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, 56)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.RowHeadersWidth = 5
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle4
+        Me.DataGridView1.RowTemplate.Height = 24
+        Me.DataGridView1.Size = New System.Drawing.Size(1761, 660)
+        Me.DataGridView1.TabIndex = 1006
+        '
+        'Label62
+        '
+        Me.Label62.AutoSize = True
+        Me.Label62.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Label62.ForeColor = System.Drawing.Color.Red
+        Me.Label62.Location = New System.Drawing.Point(323, 33)
+        Me.Label62.Name = "Label62"
+        Me.Label62.Size = New System.Drawing.Size(140, 16)
+        Me.Label62.TabIndex = 1005
+        Me.Label62.Text = "資    料    尚    未    存    檔"
+        Me.Label62.Visible = False
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新整理ToolStripMenuItem, Me.關鍵字查詢ToolStripMenuItem, Me.對帳記錄存檔ToolStripMenuItem, Me.ToolStripSeparator2, Me.BBBToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(147, 98)
+        '
+        '重新整理ToolStripMenuItem
+        '
+        Me.重新整理ToolStripMenuItem.Name = "重新整理ToolStripMenuItem"
+        Me.重新整理ToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
+        Me.重新整理ToolStripMenuItem.Text = "重新整理"
+        '
+        '關鍵字查詢ToolStripMenuItem
+        '
+        Me.關鍵字查詢ToolStripMenuItem.Name = "關鍵字查詢ToolStripMenuItem"
+        Me.關鍵字查詢ToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
+        Me.關鍵字查詢ToolStripMenuItem.Text = "關鍵字查詢"
+        '
+        '對帳記錄存檔ToolStripMenuItem
+        '
+        Me.對帳記錄存檔ToolStripMenuItem.ForeColor = System.Drawing.Color.Green
+        Me.對帳記錄存檔ToolStripMenuItem.Name = "對帳記錄存檔ToolStripMenuItem"
+        Me.對帳記錄存檔ToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
+        Me.對帳記錄存檔ToolStripMenuItem.Text = "對帳記錄存檔"
+        '
+        'ToolStripSeparator2
+        '
+        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(143, 6)
+        '
+        'BBBToolStripMenuItem
+        '
+        Me.BBBToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.BBBToolStripMenuItem.Name = "BBBToolStripMenuItem"
+        Me.BBBToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
+        Me.BBBToolStripMenuItem.Text = "列印成EXCEL"
+        '
+        'Timer1
+        '
+        Me.Timer1.Interval = 500
+        '
+        'TextBox2
+        '
+        Me.TextBox2.ForeColor = System.Drawing.Color.Green
+        Me.TextBox2.Location = New System.Drawing.Point(1259, 5)
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(90, 23)
+        Me.TextBox2.TabIndex = 1017
+        Me.TextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.ForeColor = System.Drawing.Color.Green
+        Me.Label5.Location = New System.Drawing.Point(1228, 9)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(32, 16)
+        Me.Label5.TabIndex = 1016
+        Me.Label5.Text = "支出"
+        '
+        'TextBox3
+        '
+        Me.TextBox3.ForeColor = System.Drawing.Color.Green
+        Me.TextBox3.Location = New System.Drawing.Point(1420, 5)
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Size = New System.Drawing.Size(90, 23)
+        Me.TextBox3.TabIndex = 1019
+        Me.TextBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.ForeColor = System.Drawing.Color.Green
+        Me.Label6.Location = New System.Drawing.Point(1351, 9)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(68, 16)
+        Me.Label6.TabIndex = 1018
+        Me.Label6.Text = "已發生損益"
+        '
+        'TextBox4
+        '
+        Me.TextBox4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox4.Location = New System.Drawing.Point(1420, 30)
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Size = New System.Drawing.Size(90, 23)
+        Me.TextBox4.TabIndex = 1025
+        Me.TextBox4.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        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(1351, 33)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(68, 16)
+        Me.Label7.TabIndex = 1024
+        Me.Label7.Text = "已發生損益"
+        '
+        'TextBox5
+        '
+        Me.TextBox5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox5.Location = New System.Drawing.Point(1259, 30)
+        Me.TextBox5.Name = "TextBox5"
+        Me.TextBox5.Size = New System.Drawing.Size(90, 23)
+        Me.TextBox5.TabIndex = 1023
+        Me.TextBox5.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        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(1228, 34)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(32, 16)
+        Me.Label8.TabIndex = 1022
+        Me.Label8.Text = "支出"
+        '
+        'TextBox6
+        '
+        Me.TextBox6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox6.Location = New System.Drawing.Point(1136, 30)
+        Me.TextBox6.Name = "TextBox6"
+        Me.TextBox6.Size = New System.Drawing.Size(90, 23)
+        Me.TextBox6.TabIndex = 1021
+        Me.TextBox6.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        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(1104, 34)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(32, 16)
+        Me.Label10.TabIndex = 1020
+        Me.Label10.Text = "現金"
+        '
+        'CheckBox4
+        '
+        Me.CheckBox4.AutoSize = True
+        Me.CheckBox4.Location = New System.Drawing.Point(1516, 6)
+        Me.CheckBox4.Name = "CheckBox4"
+        Me.CheckBox4.Size = New System.Drawing.Size(135, 20)
+        Me.CheckBox4.TabIndex = 1026
+        Me.CheckBox4.Text = "隱藏申請、審核資訊"
+        Me.CheckBox4.UseVisualStyleBackColor = True
+        '
+        'CheckBox5
+        '
+        Me.CheckBox5.AutoSize = True
+        Me.CheckBox5.Location = New System.Drawing.Point(1516, 31)
+        Me.CheckBox5.Name = "CheckBox5"
+        Me.CheckBox5.Size = New System.Drawing.Size(135, 20)
+        Me.CheckBox5.TabIndex = 1027
+        Me.CheckBox5.Text = "隱藏作帳、點交資訊"
+        Me.CheckBox5.UseVisualStyleBackColor = True
+        '
+        'CheckBox1
+        '
+        Me.CheckBox1.AutoSize = True
+        Me.CheckBox1.Location = New System.Drawing.Point(1657, 5)
+        Me.CheckBox1.Name = "CheckBox1"
+        Me.CheckBox1.Size = New System.Drawing.Size(111, 20)
+        Me.CheckBox1.TabIndex = 1028
+        Me.CheckBox1.Text = "只顯示支票資料"
+        Me.CheckBox1.UseVisualStyleBackColor = True
+        '
+        'TextBox8
+        '
+        Me.TextBox8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox8.Location = New System.Drawing.Point(853, 29)
+        Me.TextBox8.Name = "TextBox8"
+        Me.TextBox8.Size = New System.Drawing.Size(90, 23)
+        Me.TextBox8.TabIndex = 1032
+        Me.TextBox8.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        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(786, 33)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(68, 16)
+        Me.Label1.TabIndex = 1031
+        Me.Label1.Text = "未給付支票"
+        '
+        'TextBox9
+        '
+        Me.TextBox9.ForeColor = System.Drawing.Color.Green
+        Me.TextBox9.Location = New System.Drawing.Point(853, 4)
+        Me.TextBox9.Name = "TextBox9"
+        Me.TextBox9.Size = New System.Drawing.Size(90, 23)
+        Me.TextBox9.TabIndex = 1030
+        Me.TextBox9.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.ForeColor = System.Drawing.Color.Green
+        Me.Label3.Location = New System.Drawing.Point(786, 8)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(68, 16)
+        Me.Label3.TabIndex = 1029
+        Me.Label3.Text = "未給付支票"
+        '
+        'TextBox10
+        '
+        Me.TextBox10.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox10.Location = New System.Drawing.Point(694, 29)
+        Me.TextBox10.Name = "TextBox10"
+        Me.TextBox10.Size = New System.Drawing.Size(90, 23)
+        Me.TextBox10.TabIndex = 1036
+        Me.TextBox10.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        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(627, 33)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(68, 16)
+        Me.Label11.TabIndex = 1035
+        Me.Label11.Text = "已託收支票"
+        '
+        'TextBox11
+        '
+        Me.TextBox11.ForeColor = System.Drawing.Color.Green
+        Me.TextBox11.Location = New System.Drawing.Point(694, 4)
+        Me.TextBox11.Name = "TextBox11"
+        Me.TextBox11.Size = New System.Drawing.Size(90, 23)
+        Me.TextBox11.TabIndex = 1034
+        Me.TextBox11.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.ForeColor = System.Drawing.Color.Green
+        Me.Label12.Location = New System.Drawing.Point(627, 8)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(68, 16)
+        Me.Label12.TabIndex = 1033
+        Me.Label12.Text = "已託收支票"
+        '
+        'TextBox12
+        '
+        Me.TextBox12.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox12.Location = New System.Drawing.Point(535, 30)
+        Me.TextBox12.Name = "TextBox12"
+        Me.TextBox12.Size = New System.Drawing.Size(90, 23)
+        Me.TextBox12.TabIndex = 1040
+        Me.TextBox12.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        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(468, 34)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(68, 16)
+        Me.Label13.TabIndex = 1039
+        Me.Label13.Text = "未託收支票"
+        '
+        'TextBox13
+        '
+        Me.TextBox13.ForeColor = System.Drawing.Color.Green
+        Me.TextBox13.Location = New System.Drawing.Point(535, 5)
+        Me.TextBox13.Name = "TextBox13"
+        Me.TextBox13.Size = New System.Drawing.Size(90, 23)
+        Me.TextBox13.TabIndex = 1038
+        Me.TextBox13.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.ForeColor = System.Drawing.Color.Green
+        Me.Label14.Location = New System.Drawing.Point(468, 9)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(68, 16)
+        Me.Label14.TabIndex = 1037
+        Me.Label14.Text = "未託收支票"
+        '
+        '一般月
+        '
+        Me.一般月.AutoSize = True
+        Me.一般月.Location = New System.Drawing.Point(144, 32)
+        Me.一般月.Name = "一般月"
+        Me.一般月.Size = New System.Drawing.Size(63, 20)
+        Me.一般月.TabIndex = 1107
+        Me.一般月.Text = "一般月"
+        Me.一般月.UseVisualStyleBackColor = True
+        '
+        '會計月
+        '
+        Me.會計月.AutoSize = True
+        Me.會計月.Checked = True
+        Me.會計月.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.會計月.Location = New System.Drawing.Point(14, 32)
+        Me.會計月.Name = "會計月"
+        Me.會計月.Size = New System.Drawing.Size(63, 20)
+        Me.會計月.TabIndex = 1106
+        Me.會計月.Text = "會計月"
+        Me.會計月.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        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.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Button2.Location = New System.Drawing.Point(212, 29)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(97, 23)
+        Me.Button2.TabIndex = 1105
+        Me.Button2.Text = "下個月"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        '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(212, 4)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(97, 23)
+        Me.Button1.TabIndex = 1104
+        Me.Button1.Text = "上個月"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.Location = New System.Drawing.Point(101, 9)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(20, 16)
+        Me.Label15.TabIndex = 1103
+        Me.Label15.Text = "到"
+        '
+        'DateTimePicker2
+        '
+        Me.DateTimePicker2.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker2.Location = New System.Drawing.Point(123, 5)
+        Me.DateTimePicker2.Name = "DateTimePicker2"
+        Me.DateTimePicker2.Size = New System.Drawing.Size(87, 23)
+        Me.DateTimePicker2.TabIndex = 1102
+        '
+        'DateTimePicker1
+        '
+        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker1.Location = New System.Drawing.Point(12, 5)
+        Me.DateTimePicker1.Name = "DateTimePicker1"
+        Me.DateTimePicker1.Size = New System.Drawing.Size(87, 23)
+        Me.DateTimePicker1.TabIndex = 1101
+        '
+        'Button3
+        '
+        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(1657, 28)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(111, 23)
+        Me.Button3.TabIndex = 1108
+        Me.Button3.Text = "重新整理"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'DateTimePicker4
+        '
+        Me.DateTimePicker4.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker4.Location = New System.Drawing.Point(83, 30)
+        Me.DateTimePicker4.Name = "DateTimePicker4"
+        Me.DateTimePicker4.Size = New System.Drawing.Size(43, 23)
+        Me.DateTimePicker4.TabIndex = 1167
+        '
+        'TextBox14
+        '
+        Me.TextBox14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.TextBox14.Location = New System.Drawing.Point(1012, 29)
+        Me.TextBox14.Name = "TextBox14"
+        Me.TextBox14.Size = New System.Drawing.Size(90, 23)
+        Me.TextBox14.TabIndex = 1171
+        Me.TextBox14.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        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(945, 33)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(68, 16)
+        Me.Label2.TabIndex = 1170
+        Me.Label2.Text = "已給付支票"
+        '
+        'TextBox15
+        '
+        Me.TextBox15.ForeColor = System.Drawing.Color.Green
+        Me.TextBox15.Location = New System.Drawing.Point(1012, 4)
+        Me.TextBox15.Name = "TextBox15"
+        Me.TextBox15.Size = New System.Drawing.Size(90, 23)
+        Me.TextBox15.TabIndex = 1169
+        Me.TextBox15.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.ForeColor = System.Drawing.Color.Green
+        Me.Label16.Location = New System.Drawing.Point(945, 8)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(68, 16)
+        Me.Label16.TabIndex = 1168
+        Me.Label16.Text = "已給付支票"
+        '
+        '財務收支單_對帳表
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1774, 722)
+        Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.TextBox14)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.TextBox15)
+        Me.Controls.Add(Me.Label16)
+        Me.Controls.Add(Me.DateTimePicker4)
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.一般月)
+        Me.Controls.Add(Me.會計月)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.Label15)
+        Me.Controls.Add(Me.DateTimePicker2)
+        Me.Controls.Add(Me.DateTimePicker1)
+        Me.Controls.Add(Me.TextBox12)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.TextBox13)
+        Me.Controls.Add(Me.Label14)
+        Me.Controls.Add(Me.TextBox10)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.TextBox11)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.TextBox8)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.TextBox9)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.CheckBox1)
+        Me.Controls.Add(Me.CheckBox5)
+        Me.Controls.Add(Me.CheckBox4)
+        Me.Controls.Add(Me.TextBox4)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.TextBox5)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.TextBox6)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.TextBox3)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.TextBox2)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.TextBox7)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.Label62)
+        Me.Controls.Add(Me.DataGridView1)
+        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.ContextMenuStrip1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Label4 As Label
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents TextBox7 As TextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents Label62 As Label
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents 對帳記錄存檔ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
+    Friend WithEvents 關鍵字查詢ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents BBBToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents Timer1 As Timer
+    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents TextBox3 As TextBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents TextBox4 As TextBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents TextBox5 As TextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents TextBox6 As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents CheckBox4 As CheckBox
+    Friend WithEvents CheckBox5 As CheckBox
+    Friend WithEvents CheckBox1 As CheckBox
+    Friend WithEvents TextBox8 As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents TextBox9 As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents TextBox10 As TextBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents TextBox11 As TextBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents TextBox12 As TextBox
+    Friend WithEvents Label13 As Label
+    Friend WithEvents TextBox13 As TextBox
+    Friend WithEvents Label14 As Label
+    Friend WithEvents 重新整理ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 一般月 As CheckBox
+    Friend WithEvents 會計月 As CheckBox
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Label15 As Label
+    Friend WithEvents DateTimePicker2 As DateTimePicker
+    Friend WithEvents DateTimePicker1 As DateTimePicker
+    Friend WithEvents Button3 As Button
+    Friend WithEvents DateTimePicker4 As DateTimePicker
+    Friend WithEvents TextBox14 As TextBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents TextBox15 As TextBox
+    Friend WithEvents Label16 As Label
+End Class

MaoOrange-Hongji/財務系統管理/財務收支單_對帳表.resx

@@ -0,0 +1,129 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 9</value>
+  </metadata>
+  <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>182, 9</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>37</value>
+  </metadata>
+</root>

MaoOrange-Hongji/財務系統管理/財務收支單_對帳表.vb

@@ -0,0 +1,197 @@
+Option Strict Off
+Public Class 財務收支單_對帳表
+    ReadOnly ds As New DataSet
+    Private Sub Set_清單1()
+        DataGridView1.DataSource = Nothing : ds.Clear()
+        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        DataGridView1.ColumnHeadersHeight = 40
+        DataGridView1.AllowUserToAddRows = False
+        SQL_營運成本收支_決算表_清單() : 列印用SQL = SQL1
+        da.Fill(ds) : DataGridView1.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 = 130 : DataGridView1.Columns(7).FillWeight = 305
+        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
+
+        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
+        Else
+            DataGridView1.Columns(1).Visible = False : DataGridView1.Columns(2).Visible = False : DataGridView1.Columns(3).Visible = False : DataGridView1.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
+        Else
+            DataGridView1.Columns(13).Visible = False : DataGridView1.Columns(14).Visible = False : DataGridView1.Columns(15).Visible = False : DataGridView1.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
+
+        TextBox5.Text = "0" : TextBox6.Text = "0" : TextBox4.Text = "0" : TextBox8.Text = "0" : TextBox10.Text = "0" : TextBox12.Text = "0" : TextBox14.Text = "0"
+        For i As Integer = 0 To DataGridView1.Rows.Count - 1
+            TextBox6.Text = Val(TextBox6.Text) + DataGridView1.Rows(i).Cells("現金").Value : TextBox5.Text = Val(TextBox5.Text) + DataGridView1.Rows(i).Cells("支出").Value
+
+            If DataGridView1("收票", i).Value <> 0 And DataGridView1("收票兌現", i).Value = True Then
+                TextBox10.Text = Val(TextBox10.Text) + DataGridView1.Rows(i).Cells("收票").Value
+            ElseIf DataGridView1("收票", i).Value <> 0 And DataGridView1("收票兌現", i).Value = False Then
+                TextBox12.Text = Val(TextBox12.Text) + DataGridView1.Rows(i).Cells("收票").Value
+            End If
+
+            If DataGridView1("開票", i).Value <> 0 And DataGridView1("開票已付", i).Value = True Then
+                TextBox14.Text = Val(TextBox14.Text) + DataGridView1.Rows(i).Cells("開票").Value
+            ElseIf DataGridView1("開票", i).Value <> 0 And DataGridView1("開票已付", i).Value = False Then
+                TextBox8.Text = Val(TextBox8.Text) + DataGridView1.Rows(i).Cells("開票").Value
+            End If
+        Next i
+        TextBox4.Text = Val(TextBox10.Text) + Val(TextBox6.Text) - Val(TextBox5.Text) - Val(TextBox14.Text)
+        If Val(TextBox4.Text) > 0 Then : TextBox4.ForeColor = Color.Blue : Else : TextBox4.ForeColor = Color.Red : End If
+        TextBox5.Text = Format(Val(TextBox5.Text), "#,##0") : TextBox4.Text = Format(Val(TextBox4.Text), "#,##0") : TextBox6.Text = Format(Val(TextBox6.Text), "#,##0")
+        TextBox8.Text = Format(Val(TextBox8.Text), "#,##0") : TextBox10.Text = Format(Val(TextBox10.Text), "#,##0") : TextBox12.Text = Format(Val(TextBox12.Text), "#,##0")
+    End Sub
+    Private Sub 日期格式()
+        If 會計月.Checked = True Then
+            '-------------日期一----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker1.Value = DTP
+            DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(-1)
+            DTP = Strings.Left(Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "26" : DateTimePicker1.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & "25" : DateTimePicker2.Value = DTP
+        Else
+            '-------------日期一----------------------------------------------------------------------------------------
+            DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(1)
+            DTP = Strings.Left(Format(DateTimePicker1.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker1.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(DateTimePicker2.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker2.Value = DTP
+            DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(1) : DateTimePicker2.Value = DateTimePicker2.Value.AddDays(-1)
+        End If
+    End Sub
+    Private Sub 營運成本收支單_對帳表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        TextBox7.Text = "0" : TextBox2.Text = "0" : TextBox3.Text = "0" : TextBox9.Text = "0" : TextBox11.Text = "0" : TextBox13.Text = "0" : KKKJJ = "" : KKKJJ2 = ""
+        SQL_營運成本明細表_會計歸零() : SQL_營運成本明細表_出納歸零() : SQL_營運成本明細表_現金歸零() : SQL_營運成本明細表_備用金歸零()
+        SQL_營運成本明細表_公帳歸零() : SQL_營運成本明細表_支票歸零() : SQL_營運成本明細表_作帳日期歸零() : SQL_營運成本明細表_出納日期歸零() : conn.Close()
+        Label62.Visible = False : DateTimePicker4.Visible = False
+        日期格式() : KKKJJ3 = "AND (營運成本控制表.申請日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') " : 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 : Dim ZZXX As Integer = 0
+        TextBox7.Text = "0" : TextBox2.Text = "0" : TextBox3.Text = "0" : TextBox9.Text = "0" : TextBox11.Text = "0" : TextBox13.Text = "0" : TextBox15.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 : GGHH = Val(GGHH) + DataGridView1.Rows(i).Cells("支出").Value
+
+                If DataGridView1("收票", i).Value <> 0 And DataGridView1("收票兌現", i).Value = True Then : JJKK = Val(JJKK) + DataGridView1.Rows(i).Cells("收票").Value
+                ElseIf DataGridView1("收票", i).Value <> 0 And DataGridView1("收票兌現", i).Value = False Then : KKLL = Val(KKLL) + DataGridView1.Rows(i).Cells("收票").Value : End If
+
+                If DataGridView1("開票", i).Value <> 0 And DataGridView1("開票已付", i).Value = False Then : HHJJ = Val(HHJJ) + DataGridView1.Rows(i).Cells("開票").Value
+                ElseIf DataGridView1("開票", i).Value <> 0 And DataGridView1("開票已付", i).Value = True Then : ZZXX = Val(ZZXX) + DataGridView1.Rows(i).Cells("開票").Value : End If
+            End If
+        Next i
+        TextBox7.Text = FFGG : TextBox2.Text = GGHH : TextBox9.Text = HHJJ : TextBox15.Text = ZZXX : TextBox11.Text = JJKK : TextBox13.Text = KKLL : TextBox3.Text = JJKK + FFGG - GGHH - ZZXX
+        If Val(TextBox3.Text) > 0 Then : TextBox3.ForeColor = Color.Blue : Else : TextBox3.ForeColor = Color.Red : End If
+        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
+        If e.RowIndex = -1 Then : Else
+            TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells("收支單號").Value : Timer1.Enabled = True : 總金額計算()
+        End If
+    End Sub
+    Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = DataGridView1.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)
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + DataGridView1.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView1.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("收票", i).Value <> 0 And DataGridView1("收票兌現", i).Value = True Then : DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            ElseIf DataGridView1("收票", i).Value <> 0 And DataGridView1("收票兌現", i).Value = False Then : DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow : End If
+            If DataGridView1("開票", i).Value <> 0 And DataGridView1("開票已付", i).Value = True Then : DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            ElseIf DataGridView1("開票", i).Value <> 0 And DataGridView1("開票已付", i).Value = False Then : DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow : End If
+        Next
+    End Sub
+    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.Click
+        If CheckBox1.Checked = False Then : KKKJJ = "" : Set_清單1()
+        Else : KKKJJ = " AND (營運成本明細表.支票數 <> 0) " : Set_清單1() : End If
+    End Sub
+    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.Click
+        Set_grid()
+    End Sub
+    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox5.Click
+        Set_grid()
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If 會計月.Checked = True Then
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker1.Value = DateTimePicker4.Value
+            DateTimePicker2.Value = DateTimePicker4.Value
+        Else
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker1.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker2.Value = DateTimePicker4.Value
+        End If : 日期格式()
+        KKKJJ3 = "AND (營運成本控制表.申請日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') " : Set_清單1()
+    End Sub
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        If 會計月.Checked = True Then
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(1)
+            DateTimePicker1.Value = DateTimePicker4.Value
+            DateTimePicker2.Value = DateTimePicker4.Value
+        Else
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(1)
+            DateTimePicker1.Value = DateTimePicker4.Value.AddMonths(-1)
+            DateTimePicker2.Value = DateTimePicker4.Value
+        End If : 日期格式()
+        KKKJJ3 = "AND (營運成本控制表.申請日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') " : Set_清單1()
+    End Sub
+    Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月.Click
+        會計月.Checked = True : 一般月.Checked = False : 日期格式()
+        KKKJJ3 = "AND (營運成本控制表.申請日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') " : Set_清單1()
+    End Sub
+    Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月.Click
+        會計月.Checked = False : 一般月.Checked = True : 日期格式()
+        KKKJJ3 = "AND (營運成本控制表.申請日期 BETWEEN '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(DateTimePicker2.Value, "yyyy/MM/dd") & "') " : Set_清單1()
+    End Sub
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        Me.重新整理ToolStripMenuItem.PerformClick()
+    End Sub
+    '-----------------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------
+    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 : MyModule1.進度條()
+            布林1 = DataGridView1.Rows(i).Cells("現金點交").Value : 布林2 = DataGridView1.Rows(i).Cells("開票已付").Value : 布林3 = DataGridView1.Rows(i).Cells("支出點交").Value
+            布林4 = DataGridView1.Rows(i).Cells("收票兌現").Value : PA1 = DataGridView1.Rows(i).Cells("收支單號").Value : PA2 = DataGridView1.Rows(i).Cells("項次").Value
+            SQL_營運成本明細表_對帳記錄存檔() : conn.Close()
+        Next : MsgBox("存檔完成。") : Set_清單1() : MAOJI_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+    End Sub
+    Private Sub 關鍵字查詢ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 關鍵字查詢ToolStripMenuItem.Click
+        PA = InputBox("請輸入要查詢的關鍵字。")
+        KKKJJ2 = " AND (營運成本控制表.支付單號 LIKE N'%" & PA & "%' OR 營運成本控制表.申請人 LIKE N'%" & PA & "%' OR 營運成本控制表.審核人 LIKE N'%" & PA &
+                 "%' OR 營運成本明細表.用途 LIKE N'%" & PA & "%' OR 營運成本控制表.備註 LIKE N'%" & PA & "%' OR 營運成本明細表.備註 LIKE N'%" & PA & "%')" : Set_清單1()
+        KKKJJ2 = "" : PA = ""
+    End Sub
+    Private Sub BBBToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BBBToolStripMenuItem.Click
+        MsgBox("待開發。")   ' 列印_零用金支付明細.ShowDialog()
+    End Sub
+    Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click
+        Set_清單1()
+    End Sub
+End Class

MaoOrange-Hongji/財務系統管理/財務收支單一覽表.Designer.vb

@@ -0,0 +1,595 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 財務收支單一覽表
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        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()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.TextBox4 = New System.Windows.Forms.TextBox()
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.Label3 = New System.Windows.Forms.Label()
+        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.Button1 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker()
+        Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker()
+        Me.TextBox6 = New System.Windows.Forms.TextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.TextBox7 = 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.Label15 = New System.Windows.Forms.Label()
+        Me.TextBox11 = 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)
+        Me.重新讀取ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.TextBox14 = New System.Windows.Forms.TextBox()
+        Me.TextBox13 = New System.Windows.Forms.TextBox()
+        Me.Label20 = New System.Windows.Forms.Label()
+        Me.Label19 = New System.Windows.Forms.Label()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.一般月 = New System.Windows.Forms.CheckBox()
+        Me.會計月 = New System.Windows.Forms.CheckBox()
+        Me.DateTimePicker5 = New System.Windows.Forms.DateTimePicker()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuStrip1.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(637, 33)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(32, 16)
+        Me.Label10.TabIndex = 881
+        Me.Label10.Text = "現金"
+        '
+        'Button2
+        '
+        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, 5)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(130, 49)
+        Me.Button2.TabIndex = 879
+        Me.Button2.Text = "支付單列印成EXCEL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        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.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(32, 16)
+        Me.Label7.TabIndex = 876
+        Me.Label7.Text = "日期"
+        '
+        'DateTimePicker1
+        '
+        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker1.Location = New System.Drawing.Point(743, 4)
+        Me.DateTimePicker1.Name = "DateTimePicker1"
+        Me.DateTimePicker1.Size = New System.Drawing.Size(99, 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.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(44, 16)
+        Me.Label5.TabIndex = 871
+        Me.Label5.Text = "審核人"
+        '
+        'TextBox4
+        '
+        Me.TextBox4.ForeColor = System.Drawing.Color.Blue
+        Me.TextBox4.Location = New System.Drawing.Point(897, 4)
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Size = New System.Drawing.Size(74, 23)
+        Me.TextBox4.TabIndex = 866
+        '
+        'DataGridView1
+        '
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.DataGridView1.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, 56)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.RowHeadersWidth = 5
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.DataGridView1.RowTemplate.Height = 24
+        Me.DataGridView1.Size = New System.Drawing.Size(914, 550)
+        Me.DataGridView1.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.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(44, 16)
+        Me.Label3.TabIndex = 864
+        Me.Label3.Text = "申請人"
+        '
+        'TextBox3
+        '
+        Me.TextBox3.ForeColor = System.Drawing.Color.Blue
+        Me.TextBox3.Location = New System.Drawing.Point(632, 4)
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Size = New System.Drawing.Size(74, 23)
+        Me.TextBox3.TabIndex = 863
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        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.TabIndex = 860
+        Me.Label1.Text = "營運成本收支單號"
+        '
+        'TextBox1
+        '
+        Me.TextBox1.ForeColor = System.Drawing.Color.Blue
+        Me.TextBox1.Location = New System.Drawing.Point(431, 4)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(150, 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))
+        Me.DataGridView4.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.DataGridView4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            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(8, 79)
+        Me.DataGridView4.Name = "DataGridView4"
+        Me.DataGridView4.RowHeadersWidth = 5
+        Me.DataGridView4.RowTemplate.Height = 24
+        Me.DataGridView4.Size = New System.Drawing.Size(315, 475)
+        Me.DataGridView4.TabIndex = 857
+        '
+        'DateTimePicker2
+        '
+        Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker2.Location = New System.Drawing.Point(1007, 4)
+        Me.DateTimePicker2.Name = "DateTimePicker2"
+        Me.DateTimePicker2.Size = New System.Drawing.Size(99, 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.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(32, 16)
+        Me.Label8.TabIndex = 877
+        Me.Label8.Text = "日期"
+        '
+        'DataGridView2
+        '
+        Me.DataGridView2.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, 56)
+        Me.DataGridView2.Name = "DataGridView2"
+        Me.DataGridView2.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(914, 550)
+        Me.DataGridView2.TabIndex = 883
+        '
+        'TextBox5
+        '
+        Me.TextBox5.Location = New System.Drawing.Point(671, 30)
+        Me.TextBox5.Name = "TextBox5"
+        Me.TextBox5.Size = New System.Drawing.Size(113, 23)
+        Me.TextBox5.TabIndex = 885
+        Me.TextBox5.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(210, 53)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(58, 23)
+        Me.Button1.TabIndex = 890
+        Me.Button1.Text = "下個月"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Button3
+        '
+        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(210, 29)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(58, 23)
+        Me.Button3.TabIndex = 889
+        Me.Button3.Text = "上個月"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(98, 34)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(20, 16)
+        Me.Label4.TabIndex = 888
+        Me.Label4.Text = "到"
+        '
+        'DateTimePicker3
+        '
+        Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker3.Location = New System.Drawing.Point(120, 30)
+        Me.DateTimePicker3.Name = "DateTimePicker3"
+        Me.DateTimePicker3.Size = New System.Drawing.Size(87, 23)
+        Me.DateTimePicker3.TabIndex = 887
+        '
+        'DateTimePicker4
+        '
+        Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker4.Location = New System.Drawing.Point(9, 30)
+        Me.DateTimePicker4.Name = "DateTimePicker4"
+        Me.DateTimePicker4.Size = New System.Drawing.Size(87, 23)
+        Me.DateTimePicker4.TabIndex = 886
+        '
+        'TextBox6
+        '
+        Me.TextBox6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        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
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(935, 34)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(56, 16)
+        Me.Label9.TabIndex = 895
+        Me.Label9.Text = "現金餘額"
+        '
+        'TextBox7
+        '
+        Me.TextBox7.Location = New System.Drawing.Point(820, 30)
+        Me.TextBox7.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.Size = New System.Drawing.Size(113, 23)
+        Me.TextBox7.TabIndex = 894
+        Me.TextBox7.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(786, 33)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(32, 16)
+        Me.Label11.TabIndex = 893
+        Me.Label11.Text = "支出"
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Location = New System.Drawing.Point(488, 33)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(32, 16)
+        Me.Label14.TabIndex = 903
+        Me.Label14.Text = "支票"
+        '
+        'TextBox10
+        '
+        Me.TextBox10.Location = New System.Drawing.Point(373, 30)
+        Me.TextBox10.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox10.Name = "TextBox10"
+        Me.TextBox10.Size = New System.Drawing.Size(113, 23)
+        Me.TextBox10.TabIndex = 902
+        Me.TextBox10.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.Location = New System.Drawing.Point(327, 33)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(44, 16)
+        Me.Label15.TabIndex = 901
+        Me.Label15.Text = "零用金"
+        '
+        'TextBox11
+        '
+        Me.TextBox11.Location = New System.Drawing.Point(522, 30)
+        Me.TextBox11.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox11.Name = "TextBox11"
+        Me.TextBox11.Size = New System.Drawing.Size(113, 23)
+        Me.TextBox11.TabIndex = 904
+        Me.TextBox11.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'RadioButton1
+        '
+        Me.RadioButton1.AutoSize = True
+        Me.RadioButton1.Location = New System.Drawing.Point(274, 31)
+        Me.RadioButton1.Name = "RadioButton1"
+        Me.RadioButton1.Size = New System.Drawing.Size(50, 20)
+        Me.RadioButton1.TabIndex = 905
+        Me.RadioButton1.TabStop = True
+        Me.RadioButton1.Text = "明細"
+        Me.RadioButton1.UseVisualStyleBackColor = True
+        '
+        'RadioButton2
+        '
+        Me.RadioButton2.AutoSize = True
+        Me.RadioButton2.Location = New System.Drawing.Point(274, 54)
+        Me.RadioButton2.Name = "RadioButton2"
+        Me.RadioButton2.Size = New System.Drawing.Size(50, 20)
+        Me.RadioButton2.TabIndex = 906
+        Me.RadioButton2.TabStop = True
+        Me.RadioButton2.Text = "彙總"
+        Me.RadioButton2.UseVisualStyleBackColor = True
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新讀取ToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(123, 26)
+        '
+        '重新讀取ToolStripMenuItem
+        '
+        Me.重新讀取ToolStripMenuItem.Name = "重新讀取ToolStripMenuItem"
+        Me.重新讀取ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
+        Me.重新讀取ToolStripMenuItem.Text = "重新讀取"
+        '
+        'TextBox14
+        '
+        Me.TextBox14.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.TextBox14.ForeColor = System.Drawing.Color.Blue
+        Me.TextBox14.Location = New System.Drawing.Point(196, 583)
+        Me.TextBox14.Name = "TextBox14"
+        Me.TextBox14.Size = New System.Drawing.Size(128, 23)
+        Me.TextBox14.TabIndex = 969
+        Me.TextBox14.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'TextBox13
+        '
+        Me.TextBox13.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.TextBox13.ForeColor = System.Drawing.Color.Blue
+        Me.TextBox13.Location = New System.Drawing.Point(197, 559)
+        Me.TextBox13.Name = "TextBox13"
+        Me.TextBox13.Size = New System.Drawing.Size(127, 23)
+        Me.TextBox13.TabIndex = 968
+        Me.TextBox13.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label20
+        '
+        Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label20.AutoSize = True
+        Me.Label20.ForeColor = System.Drawing.Color.Blue
+        Me.Label20.Location = New System.Drawing.Point(140, 586)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(56, 16)
+        Me.Label20.TabIndex = 967
+        Me.Label20.Text = "圖片編碼"
+        '
+        'Label19
+        '
+        Me.Label19.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label19.AutoSize = True
+        Me.Label19.ForeColor = System.Drawing.Color.Blue
+        Me.Label19.Location = New System.Drawing.Point(140, 562)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(44, 16)
+        Me.Label19.TabIndex = 966
+        Me.Label19.Text = "驗證碼"
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.PictureBox1.Location = New System.Drawing.Point(8, 559)
+        Me.PictureBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(129, 47)
+        Me.PictureBox1.TabIndex = 965
+        Me.PictureBox1.TabStop = False
+        '
+        '一般月
+        '
+        Me.一般月.AutoSize = True
+        Me.一般月.Location = New System.Drawing.Point(141, 55)
+        Me.一般月.Name = "一般月"
+        Me.一般月.Size = New System.Drawing.Size(63, 20)
+        Me.一般月.TabIndex = 1102
+        Me.一般月.Text = "一般月"
+        Me.一般月.UseVisualStyleBackColor = True
+        '
+        '會計月
+        '
+        Me.會計月.AutoSize = True
+        Me.會計月.Checked = True
+        Me.會計月.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.會計月.Location = New System.Drawing.Point(30, 55)
+        Me.會計月.Name = "會計月"
+        Me.會計月.Size = New System.Drawing.Size(63, 20)
+        Me.會計月.TabIndex = 1101
+        Me.會計月.Text = "會計月"
+        Me.會計月.UseVisualStyleBackColor = True
+        '
+        'DateTimePicker5
+        '
+        Me.DateTimePicker5.DropDownAlign = System.Windows.Forms.LeftRightAlignment.Right
+        Me.DateTimePicker5.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker5.Location = New System.Drawing.Point(210, 4)
+        Me.DateTimePicker5.Name = "DateTimePicker5"
+        Me.DateTimePicker5.Size = New System.Drawing.Size(43, 23)
+        Me.DateTimePicker5.TabIndex = 1167
+        '
+        '財務收支單一覽表
+        '
+        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.DateTimePicker5)
+        Me.Controls.Add(Me.一般月)
+        Me.Controls.Add(Me.會計月)
+        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.Label15)
+        Me.Controls.Add(Me.TextBox11)
+        Me.Controls.Add(Me.TextBox6)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.TextBox7)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.DateTimePicker3)
+        Me.Controls.Add(Me.DateTimePicker4)
+        Me.Controls.Add(Me.TextBox5)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.DateTimePicker2)
+        Me.Controls.Add(Me.DateTimePicker1)
+        Me.Controls.Add(Me.Label5)
+        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.DataGridView2)
+        Me.Controls.Add(Me.DataGridView1)
+        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()
+        CType(Me.DataGridView4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents Label10 As Label
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Label7 As Label
+    Friend WithEvents DateTimePicker1 As DateTimePicker
+    Friend WithEvents Label5 As Label
+    Friend WithEvents TextBox4 As TextBox
+    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents Label3 As Label
+    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 Button1 As Button
+    Friend WithEvents Button3 As Button
+    Friend WithEvents Label4 As Label
+    Friend WithEvents DateTimePicker3 As DateTimePicker
+    Friend WithEvents DateTimePicker4 As DateTimePicker
+    Friend WithEvents TextBox6 As TextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents TextBox7 As TextBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents Label14 As Label
+    Friend WithEvents TextBox10 As TextBox
+    Friend WithEvents Label15 As Label
+    Friend WithEvents TextBox11 As TextBox
+    Friend WithEvents RadioButton1 As RadioButton
+    Friend WithEvents RadioButton2 As RadioButton
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents 重新讀取ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents TextBox14 As TextBox
+    Friend WithEvents TextBox13 As TextBox
+    Friend WithEvents Label20 As Label
+    Friend WithEvents Label19 As Label
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents 一般月 As CheckBox
+    Friend WithEvents 會計月 As CheckBox
+    Friend WithEvents DateTimePicker5 As DateTimePicker
+End Class

MaoOrange-Hongji/財務系統管理/財務收支單一覽表.resx

@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>

MaoOrange-Hongji/財務系統管理/財務收支單一覽表.vb

@@ -0,0 +1,398 @@
+Option Strict Off
+Imports System.IO
+Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
+Imports Microsoft.Office.Interop.Excel.Constants
+Imports Microsoft.Office.Interop.Excel.XlBordersIndex
+Imports Microsoft.Office.Interop.Excel.XlLineStyle
+Imports Microsoft.Office.Interop.Excel.XlBorderWeight
+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 財務收支單一覽表
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
+    Dim N1 As Integer : Dim N2 As Integer
+    Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
+    Private Sub Set_清單1()
+        DataGridView4.DataSource = Nothing : ds1.Clear()
+        DataGridView4.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        DataGridView4.ColumnHeadersHeight = 25
+        DataGridView4.AllowUserToAddRows = False
+        SQL_營運成本收支單一覽表清單()
+        da.Fill(ds1) : DataGridView4.DataSource = ds1.Tables(0) : conn.Close()
+
+        DataGridView4.Columns(0).FillWeight = 160 : DataGridView4.Columns(1).Visible = False : DataGridView4.Columns(2).FillWeight = 100 : DataGridView4.Columns(3).Visible = False
+        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
+        SQL_營運成本收支單一覽表彙總()
+        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(6).DefaultCellStyle.Format = "#,##0" : DataGridView2.Columns(7).DefaultCellStyle.Format = "#,##0" : DataGridView2.Columns(4).DefaultCellStyle.Format = "#,##0"
+        DataGridView2.Columns(5).DefaultCellStyle.Format = "#,##0"
+        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(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
+    End Sub
+    Private Sub Set_費用清單()
+        DataGridView1.DataSource = Nothing : ds.Clear()
+        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        DataGridView1.ColumnHeadersHeight = 25
+        DataGridView1.AllowUserToAddRows = False
+        DataGridView1.RowTemplate.Height = 35
+        SQL_營運成本收支單一覽表費用清單()
+        da.Fill(ds) : DataGridView1.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(1).ReadOnly = True : DataGridView1.Columns(2).ReadOnly = True : DataGridView1.Columns(3).ReadOnly = True : DataGridView1.Columns(4).ReadOnly = True
+        DataGridView1.Columns(5).ReadOnly = True : DataGridView1.Columns(6).ReadOnly = True
+
+        DataGridView1.Columns(4).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(5).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(6).DefaultCellStyle.Format = "#,##0"
+        DataGridView1.Columns(7).DefaultCellStyle.Format = "#,##0"
+        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.EditMode = DataGridViewEditMode.EditOnEnter
+
+        TextBox5.Text = "0" : TextBox7.Text = "0" : TextBox6.Text = "0" : TextBox10.Text = "0" : TextBox11.Text = "0"
+        For i As Integer = 0 To DataGridView1.Rows.Count - 1
+            TextBox5.Text = Val(TextBox5.Text) + DataGridView1.Rows(i).Cells("現金").Value : TextBox7.Text = Val(TextBox7.Text) + DataGridView1.Rows(i).Cells("支出").Value
+            TextBox10.Text = Val(TextBox10.Text) + DataGridView1.Rows(i).Cells("開票").Value : TextBox11.Text = Val(TextBox11.Text) + DataGridView1.Rows(i).Cells("收票").Value
+        Next i
+        TextBox6.Text = Val(TextBox10.Text) + Val(TextBox5.Text) - Val(TextBox7.Text)
+        If Val(TextBox6.Text) > 0 Then : TextBox6.ForeColor = Color.Blue : Else : TextBox6.ForeColor = Color.Red : End If
+        TextBox5.Text = Strings.Format(Val(TextBox5.Text), "#,##0") : TextBox7.Text = Strings.Format(Val(TextBox7.Text), "#,##0") : TextBox6.Text = Strings.Format(Val(TextBox6.Text), "#,##0")
+        TextBox10.Text = Strings.Format(Val(TextBox10.Text), "#,##0") : TextBox11.Text = Strings.Format(Val(TextBox11.Text), "#,##0")
+    End Sub
+    Private Sub 日期格式()
+        If 會計月.Checked = True Then
+            '-------------日期一----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(DateTimePicker4.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker4.Value = DTP
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(-1)
+            DTP = Strings.Left(Strings.Format(DateTimePicker4.Value, "yyyy/MM/dd"), 8) & "26" : DateTimePicker4.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(DateTimePicker3.Value, "yyyy/MM/dd"), 8) & "25" : DateTimePicker3.Value = DTP
+        Else
+            '-------------日期一----------------------------------------------------------------------------------------
+            DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(1)
+            DTP = Strings.Left(Strings.Format(DateTimePicker4.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker4.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(DateTimePicker3.Value, "yyyy/MM/dd"), 8) & "01" : DateTimePicker3.Value = DTP
+            DateTimePicker3.Value = DateTimePicker3.Value.AddMonths(1) : DateTimePicker3.Value = DateTimePicker3.Value.AddDays(-1)
+        End If
+    End Sub
+    Private Sub 營運費用支付單一覽表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        日期格式() : DataGridView2.Visible = False : RadioButton1.Checked = True : DateTimePicker5.Visible = False
+    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
+            TextBox1.Text = DataGridView4(0, e.RowIndex).Value.ToString : TextBox13.Text = DataGridView4(6, e.RowIndex).Value.ToString
+            TextBox3.Text = DataGridView4(1, e.RowIndex).Value.ToString : DateTimePicker1.Value = DataGridView4(2, e.RowIndex).Value.ToString
+            TextBox4.Text = DataGridView4(3, e.RowIndex).Value.ToString : DateTimePicker2.Value = DataGridView4(4, e.RowIndex).Value.ToString
+            TextBox14.Text = DataGridView4(5, e.RowIndex).Value.ToString
+            Set_費用清單()
+        End If
+    End Sub
+    Private Sub DataGridView2_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView2.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
+        If e.RowIndex = DataGridView2.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)
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + DataGridView2.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView2.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, 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)
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + DataGridView2.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView2.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY)
+                Exit Sub
+            End If
+        End If
+    End Sub
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        If 會計月.Checked = True Then
+            DateTimePicker5.Value = DateTimePicker5.Value.AddMonths(-1)
+            DateTimePicker4.Value = DateTimePicker5.Value
+            DateTimePicker3.Value = DateTimePicker5.Value
+        Else
+            DateTimePicker5.Value = DateTimePicker5.Value.AddMonths(-1)
+            DateTimePicker4.Value = DateTimePicker5.Value.AddMonths(-1)
+            DateTimePicker3.Value = DateTimePicker5.Value
+        End If
+        日期格式()
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If 會計月.Checked = True Then
+            DateTimePicker5.Value = DateTimePicker5.Value.AddMonths(1)
+            DateTimePicker4.Value = DateTimePicker5.Value
+            DateTimePicker3.Value = DateTimePicker5.Value
+        Else
+            DateTimePicker5.Value = DateTimePicker5.Value.AddMonths(1)
+            DateTimePicker4.Value = DateTimePicker5.Value.AddMonths(-1)
+            DateTimePicker3.Value = DateTimePicker5.Value
+        End If
+        日期格式()
+    End Sub
+    Private Sub 彙總計算()
+        If RadioButton1.Checked = False And RadioButton2.Checked = True Then
+            TextBox5.Text = "0" : TextBox7.Text = "0" : TextBox6.Text = "0" : TextBox10.Text = "0" : TextBox11.Text = "0"
+            For i As Integer = 0 To DataGridView2.Rows.Count - 1
+                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
+            Next i
+            TextBox6.Text = Val(TextBox10.Text) + Val(TextBox5.Text) - Val(TextBox7.Text)
+            If Val(TextBox6.Text) > 0 Then : TextBox6.ForeColor = Color.Blue : Else : TextBox6.ForeColor = Color.Red : End If
+            TextBox5.Text = Strings.Format(Val(TextBox5.Text), "#,##0") : TextBox7.Text = Strings.Format(Val(TextBox7.Text), "#,##0") : TextBox6.Text = Strings.Format(Val(TextBox6.Text), "#,##0")
+            TextBox10.Text = Strings.Format(Val(TextBox10.Text), "#,##0") : TextBox11.Text = Strings.Format(Val(TextBox11.Text), "#,##0")
+        End If
+    End Sub
+    Private Sub DateTimePicker4_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker4.ValueChanged
+        Set_清單1() : Set_清單2() : 彙總計算()
+    End Sub
+    Private Sub DateTimePicker3_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker3.ValueChanged
+        Set_清單1() : Set_清單2() : 彙總計算()
+    End Sub
+    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.Click
+        DataGridView1.Visible = True : DataGridView2.Visible = False : RadioButton1.Checked = True : RadioButton2.Checked = False
+        TextBox5.Text = "0" : TextBox7.Text = "0" : TextBox6.Text = "0" : TextBox10.Text = "0" : TextBox11.Text = "0" : DataGridView4.Enabled = True
+    End Sub
+    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.Click
+        DataGridView1.Visible = False : DataGridView2.Visible = True : RadioButton1.Checked = False : RadioButton2.Checked = True
+        TextBox1.Text = "" : TextBox3.Text = "" : TextBox4.Text = "" : DataGridView1.DataSource = Nothing : ds.Clear() : DataGridView4.Enabled = False
+        彙總計算()
+    End Sub
+    Private Sub TextBox14_TextChanged(sender As Object, e As EventArgs) Handles TextBox14.TextChanged
+        PA = TextBox14.Text : SQL_使用者權限圖片顯示()
+        While dr.Read() = True
+            Dim unused As Byte() = New Byte(-1) {}
+            Dim bytes As Byte() = DirectCast(dr.Item("簽名檔圖片"), Byte())
+            Dim oStream As New MemoryStream(bytes)
+            PictureBox1.Image = Bitmap.FromStream(oStream)
+        End While
+        conn.Close() : PictureBox1.SizeMode = 4
+    End Sub
+    Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月.Click
+        會計月.Checked = True : 一般月.Checked = False : 日期格式()
+    End Sub
+    Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月.Click
+        會計月.Checked = False : 一般月.Checked = True : 日期格式()
+    End Sub
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        xlApp = CType(CreateObject("Excel.Application"), Application)
+        xlBook = xlApp.Workbooks.Add
+        xlApp.DisplayAlerts = True
+        xlBook.Activate()
+        xlSheet = NewMethod(xlBook)
+        xlSheet.Activate()
+        xlApp.Visible = True
+        xlApp.Application.WindowState = xlMaximized
+
+        xlSheet.Cells(1, 1) = "年度" : xlSheet.Cells(1, 2) = Year(Today) - 1911
+        If RadioButton1.Checked = True And RadioButton2.Checked = False Then
+            xlSheet.Cells(1, 3) = MAOJI_ERP_SYS.ComboBox2.Text & "-營運費用收支明細表"
+            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 DataGridView1.Rows.Count - 1
+                xlSheet.Cells(i + 3, 1) = DateTimePicker1.Value : xlSheet.Cells(i + 3, 2) = DataGridView1.Rows(i).Cells("會計科目").Value
+                xlSheet.Cells(i + 3, 3) = DataGridView1.Rows(i).Cells("用途").Value : xlSheet.Cells(i + 3, 4) = DataGridView1.Rows(i).Cells("開票").Value
+                xlSheet.Cells(i + 3, 5) = DataGridView1.Rows(i).Cells("收票").Value : xlSheet.Cells(i + 3, 6) = DataGridView1.Rows(i).Cells("現金").Value
+                xlSheet.Cells(i + 3, 7) = DataGridView1.Rows(i).Cells("支出").Value : xlSheet.Cells(i + 3, 9) = DataGridView1.Rows(i).Cells("票期").Value
+                If i = 0 Then
+                    xlSheet.Cells(i + 3, 8) = "=D3+F3-G3"
+                Else
+                    xlSheet.Cells(i + 3, 8) = "=H" & i + 2 & "+D" & i + 3 & "+F" & i + 3 & "-G" & i + 3 & ""
+                End If
+                With xlApp.Selection
+                    .Font.Bold = True
+                End With
+                N1 = i + 3 : N2 = i + 3
+            Next i
+            xlSheet.Cells(N1 + 1, 3) = "以下空白" : xlSheet.Cells(N1 + 3, 1) = "簽核(點交)" : xlSheet.Cells(N1 + 3, 7) = "製表 : " & TextBox3.Text & " - " & DateTimePicker1.Value
+            xlSheet.Cells(N1 + 2, 4) = "=SUM(D3:D" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 5) = "=SUM(E3:E" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 6) = "=SUM(F3:F" & N1 + 1 & ")"
+            xlSheet.Cells(N1 + 2, 7) = "=SUM(G3:G" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 8) = "=H" & N1 : xlSheet.Cells(N1 + 2, 1) = "合計"
+
+            AA(xlApp, xlSheet) : BB(xlApp, xlSheet)
+        ElseIf RadioButton1.Checked = False And RadioButton2.Checked = True Then
+            xlSheet.Cells(1, 3) = MAOJI_ERP_SYS.ComboBox2.Text & "-營運費用收支彙總簡表"
+            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
+                If i = 0 Then
+                    xlSheet.Cells(i + 3, 9) = "=E3+G3-H3"
+                Else
+                    xlSheet.Cells(i + 3, 9) = "=I" & i + 2 & "+E" & i + 3 & "+G" & i + 3 & "-H" & i + 3 & ""
+                End If
+                With xlApp.Selection
+                    .Font.Bold = True
+                End With
+                N1 = i + 3 : N2 = i + 3
+            Next i
+            xlSheet.Cells(N1 + 1, 2) = "以下空白" : xlSheet.Cells(N1 + 3, 1) = "簽核" : xlSheet.Cells(N1 + 3, 5) = "製表 : " & gUserName & " - " & Today()
+            xlSheet.Cells(N1 + 2, 5) = "=SUM(E3:E" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 6) = "=SUM(F3:F" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 7) = "=SUM(G3:G" & N1 + 1 & ")"
+            xlSheet.Cells(N1 + 2, 8) = "=SUM(H3:H" & N1 + 1 & ")" : xlSheet.Cells(N1 + 2, 9) = "=I" & N1 : xlSheet.Cells(N1 + 2, 1) = "合計"
+
+            CC(xlApp, xlSheet)
+        End If
+
+        xlSheet.PageSetup.PrintArea = ""
+        xlApp.Cells.Select()
+        xlSheet.Range("B1").Select()
+        xlApp.Application.WindowState = xlMinimized
+        xlSheet.Cells.Select()
+        xlApp.ActiveSheet.Protect(DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="0911274990")
+        xlApp.ActiveSheet.EnableSelection = 1
+        MsgBox("列印完成。")
+    End Sub
+    Private Shared Function NewMethod(xlBook As Workbook) As Worksheet
+        Return CType(xlBook.Worksheets.Add, Worksheet)
+    End Function
+    Private Sub AA(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
+        xlSheet.Cells.Select()
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
+            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
+        End With
+
+        xlSheet.Columns("A:A").Select : myExcel.Selection.NumberFormatLocal = "m/d;@"
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Range("B1").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 25
+        xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 30
+        xlSheet.Columns("D:H").Select : myExcel.Selection.ColumnWidth = 10 : myExcel.Selection.NumberFormatLocal = "#,##0;[紅色]-#,##0"
+        xlSheet.Columns("I:I").Select : myExcel.Selection.ColumnWidth = 10 : myExcel.Selection.NumberFormatLocal = "[$-zh-TW]e/m/d;@"
+        xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 25
+
+        xlSheet.Range("A2:I2").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Range("A2:I" & N1 + 2).Select() : myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        myExcel.ActiveWindow.DisplayGridlines = False
+
+        xlSheet.Rows("3:" & N1 + 2).Select : myExcel.Selection.RowHeight = 20
+        xlSheet.Rows(N1 + 3 & ":" & N1 + 3).Select : myExcel.Selection.RowHeight = 40
+
+        xlSheet.Columns("I:I").Select
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Range("A" & N1 + 2 & ":C" & N1 + 2).Select() : myExcel.Selection.Merge
+        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True
+        End With
+
+        xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 25
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 14 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
+            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
+        End With
+    End Sub
+    Private Sub BB(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
+        Clipboard.SetDataObject(PictureBox1.Image)
+        xlSheet.Range("B" & N2 + 3).Select()
+        myExcel.ActiveSheet.Pictures.Paste.Select
+        myExcel.Selection.ShapeRange.Height = 43
+        myExcel.Selection.ShapeRange.IncrementTop(3)
+    End Sub
+    Private Sub CC(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
+        xlSheet.Cells.Select()
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
+            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
+        End With
+
+        xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 8
+        xlSheet.Columns("B:C").Select : myExcel.Selection.ColumnWidth = 15
+        xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 20
+        xlSheet.Columns("E:I").Select : myExcel.Selection.ColumnWidth = 10 : myExcel.Selection.NumberFormatLocal = "#,##0;[紅色]-#,##0"
+        xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 25
+        xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 25
+        xlSheet.Rows("3:" & N1 + 2).Select : myExcel.Selection.RowHeight = 20
+        xlSheet.Rows(N1 + 3 & ":" & N1 + 3).Select : myExcel.Selection.RowHeight = 40
+
+        xlSheet.Rows("2:2").Select
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Range("A1").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Range("B1").Select()
+        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
+        End With
+
+        xlSheet.Rows("1:1").Select
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 16 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
+            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
+        End With
+
+        xlSheet.Range("A2:I" & N1 + 2).Select() : myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+
+        xlSheet.Range("A" & N1 + 2 & ":D" & N1 + 2).Select() : myExcel.Selection.Merge
+        With myExcel.Selection : .HorizontalAlignment = xlRight : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True
+        End With
+
+        xlSheet.Columns("E:I").Select : myExcel.Selection.NumberFormatLocal = "#,##0;[紅色]-#,##0"
+        myExcel.ActiveWindow.DisplayGridlines = False
+    End Sub
+    '----------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------------------------------------
+    Private Sub 重新讀取ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新讀取ToolStripMenuItem.Click
+        Set_清單1() : Set_清單2() : 彙總計算()
+    End Sub
+End Class

MaoOrange-Hongji/財務系統管理/財務收支單審核.Designer.vb

@@ -0,0 +1,480 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 財務收支單審核
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        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.RadioButton2 = New System.Windows.Forms.RadioButton()
+        Me.RadioButton1 = New System.Windows.Forms.RadioButton()
+        Me.DataGridView2 = New System.Windows.Forms.DataGridView()
+        Me.TextBox5 = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.TextBox3 = New System.Windows.Forms.TextBox()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.重新讀取ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
+        Me.審核通過ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.單據作廢ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
+        Me.TextBox6 = New System.Windows.Forms.TextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.TextBox8 = New System.Windows.Forms.TextBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.TextBox7 = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.TextBox14 = New System.Windows.Forms.TextBox()
+        Me.TextBox13 = New System.Windows.Forms.TextBox()
+        Me.Label20 = New System.Windows.Forms.Label()
+        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.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuStrip1.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Button2
+        '
+        Me.Button2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Button2.ForeColor = System.Drawing.Color.Red
+        Me.Button2.Location = New System.Drawing.Point(1178, 3)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(65, 49)
+        Me.Button2.TabIndex = 825
+        Me.Button2.Text = "單據作廢"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Button1
+        '
+        Me.Button1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, 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(1110, 3)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(65, 49)
+        Me.Button1.TabIndex = 824
+        Me.Button1.Text = "審核通過"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'DataGridView1
+        '
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.DataGridView1.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
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.DataGridView1.RowTemplate.Height = 24
+        Me.DataGridView1.Size = New System.Drawing.Size(916, 549)
+        Me.DataGridView1.TabIndex = 823
+        '
+        'RadioButton2
+        '
+        Me.RadioButton2.AutoSize = True
+        Me.RadioButton2.Location = New System.Drawing.Point(170, 3)
+        Me.RadioButton2.Name = "RadioButton2"
+        Me.RadioButton2.Size = New System.Drawing.Size(146, 20)
+        Me.RadioButton2.TabIndex = 816
+        Me.RadioButton2.TabStop = True
+        Me.RadioButton2.Text = "作廢的營運成本收支單"
+        Me.RadioButton2.UseVisualStyleBackColor = True
+        '
+        'RadioButton1
+        '
+        Me.RadioButton1.AutoSize = True
+        Me.RadioButton1.Location = New System.Drawing.Point(6, 3)
+        Me.RadioButton1.Name = "RadioButton1"
+        Me.RadioButton1.Size = New System.Drawing.Size(158, 20)
+        Me.RadioButton1.TabIndex = 815
+        Me.RadioButton1.TabStop = True
+        Me.RadioButton1.Text = "未核准的營運成本收支單"
+        Me.RadioButton1.UseVisualStyleBackColor = True
+        '
+        'DataGridView2
+        '
+        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
+        Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView2.Location = New System.Drawing.Point(6, 27)
+        Me.DataGridView2.Name = "DataGridView2"
+        Me.DataGridView2.RowHeadersWidth = 5
+        Me.DataGridView2.RowTemplate.Height = 24
+        Me.DataGridView2.Size = New System.Drawing.Size(315, 499)
+        Me.DataGridView2.TabIndex = 811
+        '
+        'TextBox5
+        '
+        Me.TextBox5.Location = New System.Drawing.Point(671, 29)
+        Me.TextBox5.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox5.Name = "TextBox5"
+        Me.TextBox5.Size = New System.Drawing.Size(113, 23)
+        Me.TextBox5.TabIndex = 850
+        Me.TextBox5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(637, 32)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(32, 16)
+        Me.Label8.TabIndex = 849
+        Me.Label8.Text = "現金"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(552, 6)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(44, 16)
+        Me.Label3.TabIndex = 848
+        Me.Label3.Text = "申請人"
+        '
+        'TextBox3
+        '
+        Me.TextBox3.Location = New System.Drawing.Point(597, 3)
+        Me.TextBox3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Size = New System.Drawing.Size(92, 23)
+        Me.TextBox3.TabIndex = 847
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(429, 3)
+        Me.TextBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(122, 23)
+        Me.TextBox1.TabIndex = 845
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(324, 6)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(104, 16)
+        Me.Label1.TabIndex = 846
+        Me.Label1.Text = "營運成本收支單號"
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新讀取ToolStripMenuItem, Me.ToolStripSeparator6, Me.審核通過ToolStripMenuItem, Me.單據作廢ToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(123, 76)
+        '
+        '重新讀取ToolStripMenuItem
+        '
+        Me.重新讀取ToolStripMenuItem.Name = "重新讀取ToolStripMenuItem"
+        Me.重新讀取ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
+        Me.重新讀取ToolStripMenuItem.Text = "重新讀取"
+        '
+        'ToolStripSeparator6
+        '
+        Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
+        Me.ToolStripSeparator6.Size = New System.Drawing.Size(119, 6)
+        '
+        '審核通過ToolStripMenuItem
+        '
+        Me.審核通過ToolStripMenuItem.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.審核通過ToolStripMenuItem.Name = "審核通過ToolStripMenuItem"
+        Me.審核通過ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
+        Me.審核通過ToolStripMenuItem.Text = "審核通過"
+        '
+        '單據作廢ToolStripMenuItem
+        '
+        Me.單據作廢ToolStripMenuItem.ForeColor = System.Drawing.Color.Red
+        Me.單據作廢ToolStripMenuItem.Name = "單據作廢ToolStripMenuItem"
+        Me.單據作廢ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
+        Me.單據作廢ToolStripMenuItem.Text = "單據作廢"
+        '
+        'CheckBox1
+        '
+        Me.CheckBox1.AutoSize = True
+        Me.CheckBox1.Checked = True
+        Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.CheckBox1.Location = New System.Drawing.Point(833, 5)
+        Me.CheckBox1.Name = "CheckBox1"
+        Me.CheckBox1.Size = New System.Drawing.Size(39, 20)
+        Me.CheckBox1.TabIndex = 882
+        Me.CheckBox1.Text = "補"
+        Me.CheckBox1.UseVisualStyleBackColor = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.Blue
+        Me.Label2.Location = New System.Drawing.Point(691, 6)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(32, 16)
+        Me.Label2.TabIndex = 881
+        Me.Label2.Text = "日期"
+        '
+        'DateTimePicker1
+        '
+        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker1.Location = New System.Drawing.Point(730, 3)
+        Me.DateTimePicker1.Name = "DateTimePicker1"
+        Me.DateTimePicker1.Size = New System.Drawing.Size(97, 23)
+        Me.DateTimePicker1.TabIndex = 880
+        '
+        'TextBox6
+        '
+        Me.TextBox6.Location = New System.Drawing.Point(994, 29)
+        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 = 887
+        Me.TextBox6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(935, 32)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(56, 16)
+        Me.Label9.TabIndex = 886
+        Me.Label9.Text = "現金餘額"
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Location = New System.Drawing.Point(820, 29)
+        Me.TextBox2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(113, 23)
+        Me.TextBox2.TabIndex = 885
+        Me.TextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(786, 32)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(32, 16)
+        Me.Label6.TabIndex = 884
+        Me.Label6.Text = "支出"
+        '
+        'TextBox8
+        '
+        Me.TextBox8.Location = New System.Drawing.Point(522, 29)
+        Me.TextBox8.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox8.Name = "TextBox8"
+        Me.TextBox8.Size = New System.Drawing.Size(113, 23)
+        Me.TextBox8.TabIndex = 891
+        Me.TextBox8.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(488, 32)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(32, 16)
+        Me.Label11.TabIndex = 890
+        Me.Label11.Text = "支票"
+        '
+        'TextBox7
+        '
+        Me.TextBox7.Location = New System.Drawing.Point(373, 29)
+        Me.TextBox7.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.Size = New System.Drawing.Size(113, 23)
+        Me.TextBox7.TabIndex = 889
+        Me.TextBox7.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(327, 32)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(44, 16)
+        Me.Label10.TabIndex = 888
+        Me.Label10.Text = "零用金"
+        '
+        'TextBox14
+        '
+        Me.TextBox14.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.TextBox14.ForeColor = System.Drawing.Color.Blue
+        Me.TextBox14.Location = New System.Drawing.Point(222, 530)
+        Me.TextBox14.Name = "TextBox14"
+        Me.TextBox14.Size = New System.Drawing.Size(99, 23)
+        Me.TextBox14.TabIndex = 964
+        Me.TextBox14.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'TextBox13
+        '
+        Me.TextBox13.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.TextBox13.ForeColor = System.Drawing.Color.Blue
+        Me.TextBox13.Location = New System.Drawing.Point(47, 530)
+        Me.TextBox13.Name = "TextBox13"
+        Me.TextBox13.Size = New System.Drawing.Size(120, 23)
+        Me.TextBox13.TabIndex = 963
+        Me.TextBox13.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label20
+        '
+        Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label20.AutoSize = True
+        Me.Label20.ForeColor = System.Drawing.Color.Blue
+        Me.Label20.Location = New System.Drawing.Point(168, 533)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(56, 16)
+        Me.Label20.TabIndex = 962
+        Me.Label20.Text = "圖片編碼"
+        '
+        'Label19
+        '
+        Me.Label19.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label19.AutoSize = True
+        Me.Label19.ForeColor = System.Drawing.Color.Blue
+        Me.Label19.Location = New System.Drawing.Point(5, 533)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(44, 16)
+        Me.Label19.TabIndex = 961
+        Me.Label19.Text = "驗證碼"
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.PictureBox1.Location = New System.Drawing.Point(192, 557)
+        Me.PictureBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(129, 47)
+        Me.PictureBox1.TabIndex = 960
+        Me.PictureBox1.TabStop = False
+        '
+        'DataGridView3
+        '
+        Me.DataGridView3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.DataGridView3.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.DataGridView3.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView3.Location = New System.Drawing.Point(6, 557)
+        Me.DataGridView3.Name = "DataGridView3"
+        Me.DataGridView3.RowHeadersWidth = 5
+        Me.DataGridView3.RowTemplate.Height = 24
+        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
+        Me.ClientSize = New System.Drawing.Size(1249, 611)
+        Me.ContextMenuStrip = Me.ContextMenuStrip1
+        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.DataGridView3)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.TextBox7)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.TextBox6)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.TextBox2)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.CheckBox1)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.DateTimePicker1)
+        Me.Controls.Add(Me.TextBox5)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.TextBox3)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.DataGridView1)
+        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()
+        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Button1 As Button
+    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents RadioButton2 As RadioButton
+    Friend WithEvents RadioButton1 As RadioButton
+    Friend WithEvents DataGridView2 As DataGridView
+    Friend WithEvents TextBox5 As TextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents TextBox3 As TextBox
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents 重新讀取ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator6 As ToolStripSeparator
+    Friend WithEvents 審核通過ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 單據作廢ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents CheckBox1 As CheckBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents DateTimePicker1 As DateTimePicker
+    Friend WithEvents TextBox6 As TextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents TextBox8 As TextBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents TextBox7 As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents TextBox14 As TextBox
+    Friend WithEvents TextBox13 As TextBox
+    Friend WithEvents Label20 As Label
+    Friend WithEvents Label19 As Label
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents DataGridView3 As DataGridView
+End Class

MaoOrange-Hongji/財務系統管理/財務收支單審核.resx

@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 7</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>42</value>
+  </metadata>
+</root>

MaoOrange-Hongji/財務系統管理/財務收支單審核.vb

@@ -0,0 +1,207 @@
+Option Strict Off
+Imports System.IO
+Public Class 財務收支單審核
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
+    Private ReadOnly QQW(11) As String
+    Private II As Integer
+    Private Sub Set_清單1()
+        DataGridView2.DataSource = Nothing : ds1.Clear()
+        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        DataGridView2.ColumnHeadersHeight = 25
+        DataGridView2.AllowUserToAddRows = False
+        SQL_營運成本收支單審核清單()
+        da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()
+
+        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 = 40
+        DataGridView1.AllowUserToAddRows = False
+        DataGridView1.RowTemplate.Height = 35
+        SQL_營運成本收支單審核費用清單()
+        da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+
+        DataGridView1.Columns(0).Visible = False : DataGridView1.Columns(1).FillWeight = 80 : DataGridView1.Columns(2).FillWeight = 200 : DataGridView1.Columns(3).FillWeight = 500
+        DataGridView1.Columns(4).FillWeight = 110 : DataGridView1.Columns(5).FillWeight = 110 : DataGridView1.Columns(6).FillWeight = 110 : DataGridView1.Columns(7).FillWeight = 110
+        DataGridView1.Columns(8).FillWeight = 200 : DataGridView1.Columns(9).FillWeight = 80 : DataGridView1.Columns(10).Visible = False : DataGridView1.Columns(11).FillWeight = 190
+        DataGridView1.Columns(12).FillWeight = 190 : DataGridView1.Columns(13).Visible = False : DataGridView1.Columns(14).Visible = False
+
+        DataGridView1.Columns(1).ReadOnly = True : DataGridView1.Columns(2).ReadOnly = True : DataGridView1.Columns(3).ReadOnly = True : DataGridView1.Columns(4).ReadOnly = True
+        DataGridView1.Columns(5).ReadOnly = True : DataGridView1.Columns(6).ReadOnly = True
+
+        DataGridView1.Columns(4).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(5).DefaultCellStyle.Format = "#,##0" : DataGridView1.Columns(6).DefaultCellStyle.Format = "#,##0"
+        DataGridView1.Columns(7).DefaultCellStyle.Format = "#,##0"
+        DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        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(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(13).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(13).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        DataGridView1.Columns(14).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        DataGridView1.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
+        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")
+    End Sub
+    Private Sub Set_清單()
+        DataGridView3.DataSource = Nothing : ds2.Clear()
+        DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        DataGridView3.ColumnHeadersHeight = 25
+        DataGridView3.AllowUserToAddRows = False
+        SQL_營運成本收支單審核_圖檔編碼()
+        da.Fill(ds2) : DataGridView3.DataSource = ds2.Tables(0) : conn.Close()
+
+        DataGridView3.Columns(0).FillWeight = 173 : DataGridView3.Columns(1).Visible = False
+        If DataGridView3.Rows.Count = 0 Then : Else
+            TextBox14.Text = DataGridView3(0, 0).Value.ToString : PA = TextBox14.Text
+            SQL_使用者權限圖片顯示()
+            While dr.Read() = True
+                Dim unused As Byte() = New Byte(-1) {}
+                Dim bytes As Byte() = DirectCast(dr.Item("簽名檔圖片"), Byte())
+                Dim oStream As New MemoryStream(bytes)
+                PictureBox1.Image = Bitmap.FromStream(oStream)
+            End While
+            conn.Close() : PictureBox1.SizeMode = 4
+            For QAZ = 0 To 999
+                QQW(0) = Strings.Right(DataGridView3(0, 0).Value.ToString, 2) : QQW(1) = Strings.Right(Year(Today), 2) : QQW(2) = Strings.Left(Year(Today), 2) : QQW(3) = Month(Today) + 9
+                QQW(4) = Strings.Right(QQW(0), 1) : QQW(5) = Strings.Left(QQW(0), 1) : QQW(6) = Strings.Right(QQW(1), 1) : QQW(7) = Strings.Left(QQW(1), 1) : QQW(8) = Strings.Right(QQW(2), 1)
+                QQW(9) = Strings.Left(QQW(2), 1) : QQW(10) = Strings.Right(QQW(3), 1) : QQW(11) = Strings.Left(QQW(3), 1)
+                For RT = 4 To 11
+                    Delay(3)
+                    Dim ran = New Random(DateTime.Now.Millisecond) : Dim NUM1 As Integer = ran.Next(1, 4096)
+                    For I = 0 To 4096 : If NUM1 > 9 Then : NUM1 -= 9 : ElseIf NUM1 < 9 Then : I = 4096 : End If : Next
+                    If NUM1 = 1 Then : II = RT : 轉換() : ElseIf NUM1 = 2 Then : II = RT : 轉換() : ElseIf NUM1 = 3 Then : ElseIf NUM1 = 4 Then : II = RT : 轉換() : ElseIf NUM1 = 5 Then
+                    ElseIf NUM1 = 6 Then : II = RT : 轉換() : ElseIf NUM1 = 7 Then : ElseIf NUM1 = 8 Then : II = RT : 轉換() : ElseIf NUM1 = 9 Then : II = RT : 轉換() : End If
+                Next
+
+                Dim ran1 = New Random(DateTime.Now.Millisecond) : Dim NUM2 As Integer = ran1.Next(1, 4096)
+                For I = 0 To 4096 : If NUM2 > 99 Then : NUM2 -= 49 : ElseIf NUM2 < 99 Then : I = 4096 : End If : Next
+
+                TextBox13.Text = QQW(11) & "2" & QQW(9) & "7" & QQW(7) & "0" & QQW(5) & QQW(4) & "1" & QQW(6) & "3" & QQW(8) & "9" & QQW(10) & NUM2
+
+                SQL_營運成本收支單審核_簽名編碼() : If dr.Read() = True Then : Else : QAZ = 999 : End If : conn.Close()
+            Next
+        End If
+    End Sub
+    Private Sub 轉換()
+        If QQW(II) = "1" Then : QQW(II) = "A" : ElseIf QQW(II) = "2" Then : QQW(II) = "B" : ElseIf QQW(II) = "3" Then : QQW(II) = "C" : ElseIf QQW(II) = "4" Then : QQW(II) = "D"
+        ElseIf QQW(II) = "5" Then : QQW(II) = "E" : ElseIf QQW(II) = "6" Then : QQW(II) = "F" : ElseIf QQW(II) = "7" Then : QQW(II) = "G" : ElseIf QQW(II) = "8" Then : QQW(II) = "H"
+        ElseIf QQW(II) = "9" Then : QQW(II) = "I" : ElseIf QQW(II) = "0" Then : QQW(II) = "J" : End If
+    End Sub
+    Public Sub Delay(ByRef Interval As Double)  'Interval单位为毫秒
+        Dim time As DateTime = DateTime.Now : Dim Span As Double = Interval * 1234 : While ((DateTime.Now.Ticks - time.Ticks) < Span) : Application.DoEvents() : End While
+    End Sub
+    Private Sub 營運費用支付審核_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        RadioButton1.Checked = True : DataGridView2.Visible = True
+        Set_清單1() : Set_清單()
+    End Sub
+    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView2.CellClick
+        If e.RowIndex = -1 Then : Else
+            TextBox1.Text = DataGridView2(0, e.RowIndex).Value.ToString : DateTimePicker1.Value = DataGridView2(1, e.RowIndex).Value.ToString : Set_費用清單()
+            TextBox3.Text = DataGridView2(3, e.RowIndex).Value.ToString
+        End If
+    End Sub
+    Private Sub DataGridView3_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView3.CellClick
+        If e.RowIndex = -1 Then : Else
+            TextBox14.Text = DataGridView3(0, e.RowIndex).Value.ToString : PA = TextBox14.Text
+            SQL_使用者權限圖片顯示()
+            While dr.Read() = True
+                Dim unused As Byte() = New Byte(-1) {}
+                Dim bytes As Byte() = DirectCast(dr.Item("簽名檔圖片"), Byte())
+                Dim oStream As New MemoryStream(bytes)
+                PictureBox1.Image = Bitmap.FromStream(oStream)
+            End While
+            conn.Close()
+            PictureBox1.SizeMode = 4
+            For QAZ = 0 To 999
+                QQW(0) = Strings.Right(DataGridView3(0, e.RowIndex).Value.ToString, 2) : QQW(1) = Strings.Right(Year(Today), 2) : QQW(2) = Strings.Left(Year(Today), 2) : QQW(3) = Month(Today) + 9
+                QQW(4) = Strings.Right(QQW(0), 1) : QQW(5) = Strings.Left(QQW(0), 1) : QQW(6) = Strings.Right(QQW(1), 1) : QQW(7) = Strings.Left(QQW(1), 1) : QQW(8) = Strings.Right(QQW(2), 1)
+                QQW(9) = Strings.Left(QQW(2), 1) : QQW(10) = Strings.Right(QQW(3), 1) : QQW(11) = Strings.Left(QQW(3), 1)
+                For RT = 4 To 11
+                    Delay(3)
+                    Dim ran = New Random(DateTime.Now.Millisecond) : Dim NUM1 As Integer = ran.Next(1, 4096)
+                    For I = 0 To 4096 : If NUM1 > 9 Then : NUM1 -= 9 : ElseIf NUM1 < 9 Then : I = 4096 : End If : Next
+                    If NUM1 = 1 Then : II = RT : 轉換() : ElseIf NUM1 = 2 Then : II = RT : 轉換() : ElseIf NUM1 = 3 Then : ElseIf NUM1 = 4 Then : II = RT : 轉換() : ElseIf NUM1 = 5 Then
+                    ElseIf NUM1 = 6 Then : II = RT : 轉換() : ElseIf NUM1 = 7 Then : ElseIf NUM1 = 8 Then : II = RT : 轉換() : ElseIf NUM1 = 9 Then : II = RT : 轉換() : End If
+                Next
+
+                Dim ran1 = New Random(DateTime.Now.Millisecond) : Dim NUM2 As Integer = ran1.Next(1, 4096)
+                For I = 0 To 4096 : If NUM2 > 99 Then : NUM2 -= 49 : ElseIf NUM2 < 99 Then : I = 4096 : End If : Next
+
+                TextBox13.Text = QQW(11) & "2" & QQW(9) & "7" & QQW(7) & "0" & QQW(5) & QQW(4) & "1" & QQW(6) & "3" & QQW(8) & "9" & QQW(10) & NUM2
+
+                SQL_營運成本收支單審核_簽名編碼() : If dr.Read() = True Then : Else : QAZ = 999 : End If : conn.Close()
+            Next
+        End If
+    End Sub
+    Private Sub Set_切換格式()
+        DataGridView1.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 = ""
+        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 = ""
+        Button1.Enabled = False : Button2.Enabled = False : 審核通過ToolStripMenuItem.Enabled = False : 單據作廢ToolStripMenuItem.Enabled = False : Set_切換格式()
+    End Sub
+    Private Sub Set_日期格式轉換()
+        DTP = Format(Today(), "yyyy/MM/dd")
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If TextBox1.Text = "" Then : MsgBox("請選擇需要審核的單據。")
+        Else
+            If CheckBox1.Checked = False Then : Set_日期格式轉換() : Else : DTP = Format(DateTimePicker1.Value, "yyyy/MM/dd") : End If
+            SQL_營運成本收支單審核_控制表修改() : conn.Close()
+            SQL_營運成本收支單審核_明細表修改() : conn.Close()
+            For i As Integer = 0 To DataGridView1.Rows.Count - 1
+                PA1 = TextBox1.Text : PA2 = DataGridView1.Rows(i).Cells("項次").Value
+                If DataGridView1.Rows(i).Cells("開票").Value <> 0 Then ': SQL_營運成本收支單審核_明細表_備用金確認() : conn.Close()
+                ElseIf DataGridView1.Rows(i).Cells("現金").Value <> 0 Then : SQL_營運成本收支單審核_明細表_現金確認() : conn.Close()
+                ElseIf DataGridView1.Rows(i).Cells("支出").Value <> 0 Then : SQL_營運成本收支單審核_明細表_公帳確認() : conn.Close() : End If
+            Next
+            MsgBox("審核完畢。") : TextBox1.Text = "" : TextBox3.Text = "" : DataGridView1.DataSource = Nothing : ds.Clear() : Set_清單1() : Set_清單()
+        End If
+    End Sub
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        If TextBox1.Text = "" Then : MsgBox("請選擇需要審核的單據。")
+        Else
+            PA = InputBox("請輸入作廢原因。")
+            If PA = "" Then : MsgBox("請輸入作廢原因，不可空白。")
+            Else
+                If CheckBox1.Checked = False Then : Set_日期格式轉換() : Else : DTP = Format(DateTimePicker1.Value, "yyyy/MM/dd") : End If
+                SQL_營運成本收支單審核_控制表作廢() : conn.Close()
+                MsgBox("審核完畢。") : PA = "" : TextBox1.Text = "" : TextBox3.Text = "" : DataGridView1.DataSource = Nothing : ds.Clear() : Set_清單1()
+            End If
+        End If
+    End Sub
+    '----------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------------------------------------
+    Private Sub 重新讀取ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新讀取ToolStripMenuItem.Click
+        Set_清單1()
+    End Sub
+    Private Sub 審核通過ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 審核通過ToolStripMenuItem.Click
+        Me.Button1.PerformClick()
+    End Sub
+    Private Sub 單據作廢ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 單據作廢ToolStripMenuItem.Click
+        Me.Button2.PerformClick()
+    End Sub
+End Class