改財務系統，新增支票收支單介面

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

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

@@ -87,10 +87,13 @@ Partial Class MAOJI_ERP_SYS
         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.營運費用支付審核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.支票收支單申請ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.票務控制表ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator18 = 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.ToolStripSeparator13 = New System.Windows.Forms.ToolStripSeparator()
         Me.應付賬款控制表ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.應收帳款控制表ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -528,95 +531,113 @@ Partial Class MAOJI_ERP_SYS
         '
         '財務系統管理ToolStripMenuItem
         '
-        Me.財務系統管理ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.營運費用支付申請ToolStripMenuItem, Me.營運費用支付審核ToolStripMenuItem, Me.營運費用支付單一覽表ToolStripMenuItem, Me.營運成本收支單對帳表ToolStripMenuItem, Me.ToolStripSeparator13, Me.應付賬款控制表ToolStripMenuItem, Me.應收帳款控制表ToolStripMenuItem, Me.ToolStripSeparator15, Me.業務佣金計算ToolStripMenuItem, Me.司機佣金計算ToolStripMenuItem, Me.ToolStripSeparator3, Me.營運成本收支決算表ToolStripMenuItem, Me.營運狀態彙總檢視表ToolStripMenuItem})
+        Me.財務系統管理ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.現金收支單申請ToolStripMenuItem, Me.支票收支單申請ToolStripMenuItem, Me.票務控制表ToolStripMenuItem, Me.ToolStripSeparator18, Me.財務收支單審核ToolStripMenuItem, Me.財務收支單一覽表ToolStripMenuItem, Me.財務收支單_對帳表ToolStripMenuItem, Me.ToolStripSeparator13, Me.應付賬款控制表ToolStripMenuItem, Me.應收帳款控制表ToolStripMenuItem, Me.ToolStripSeparator15, Me.業務佣金計算ToolStripMenuItem, Me.司機佣金計算ToolStripMenuItem, Me.ToolStripSeparator3, Me.營運成本收支決算表ToolStripMenuItem, Me.營運狀態彙總檢視表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(91, 20)
         Me.財務系統管理ToolStripMenuItem.Text = "財務系統管理"
         '
-        '營運費用支付申請ToolStripMenuItem
+        '現金收支單申請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(199, 22)
-        Me.營運費用支付申請ToolStripMenuItem.Text = "營運成本收支單申請"
+        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 = "現金收支單申請"
         '
-        '營運費用支付審核ToolStripMenuItem
+        '支票收支單申請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(199, 22)
-        Me.營運費用支付審核ToolStripMenuItem.Text = "營運成本收支單審核"
+        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 = "支票收支單申請"
         '
-        '營運費用支付單一覽表ToolStripMenuItem
+        '票務控制表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(199, 22)
-        Me.營運費用支付單一覽表ToolStripMenuItem.Text = "營運成本收支單一覽表"
+        Me.票務控制表ToolStripMenuItem.Name = "票務控制表ToolStripMenuItem"
+        Me.票務控制表ToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
+        Me.票務控制表ToolStripMenuItem.Text = "票務控制表"
         '
-        '營運成本收支單對帳表ToolStripMenuItem
+        'ToolStripSeparator18
         '
-        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(199, 22)
-        Me.營運成本收支單對帳表ToolStripMenuItem.Text = "營運成本收支單_對帳表"
+        Me.ToolStripSeparator18.Name = "ToolStripSeparator18"
+        Me.ToolStripSeparator18.Size = New System.Drawing.Size(190, 6)
+        '
+        '財務收支單審核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 = "財務收支單審核"
+        '
+        '財務收支單一覽表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 = "財務收支單一覽表"
+        '
+        '財務收支單_對帳表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 = "財務收支單_對帳表"
         '
         'ToolStripSeparator13
         '
         Me.ToolStripSeparator13.Name = "ToolStripSeparator13"
-        Me.ToolStripSeparator13.Size = New System.Drawing.Size(196, 6)
+        Me.ToolStripSeparator13.Size = New System.Drawing.Size(190, 6)
         '
         '應付賬款控制表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(199, 22)
+        Me.應付賬款控制表ToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
         Me.應付賬款控制表ToolStripMenuItem.Text = "應付賬款控制表"
         '
         '應收帳款控制表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(199, 22)
+        Me.應收帳款控制表ToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
         Me.應收帳款控制表ToolStripMenuItem.Text = "應收帳款控制表"
         '
         'ToolStripSeparator15
         '
         Me.ToolStripSeparator15.Name = "ToolStripSeparator15"
-        Me.ToolStripSeparator15.Size = New System.Drawing.Size(196, 6)
+        Me.ToolStripSeparator15.Size = New System.Drawing.Size(190, 6)
         '
         '業務佣金計算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(199, 22)
+        Me.業務佣金計算ToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
         Me.業務佣金計算ToolStripMenuItem.Text = "業務佣金計算"
         '
         '司機佣金計算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(199, 22)
+        Me.司機佣金計算ToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
         Me.司機佣金計算ToolStripMenuItem.Text = "司機佣金計算"
         '
         'ToolStripSeparator3
         '
         Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
-        Me.ToolStripSeparator3.Size = New System.Drawing.Size(196, 6)
+        Me.ToolStripSeparator3.Size = New System.Drawing.Size(190, 6)
         '
         '營運成本收支決算表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(199, 22)
+        Me.營運成本收支決算表ToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
         Me.營運成本收支決算表ToolStripMenuItem.Text = "營運成本收支 - 決算表"
         '
         '營運狀態彙總檢視表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(199, 22)
+        Me.營運狀態彙總檢視表ToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
         Me.營運狀態彙總檢視表ToolStripMenuItem.Text = "營運狀態彙總 - 檢視表"
         '
         '資料庫系統管理ToolStripMenuItem
@@ -780,11 +801,11 @@ Partial Class MAOJI_ERP_SYS
     Friend WithEvents 倉儲系統管理ToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents 物料資料庫ToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents 財務系統管理ToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents 營運費用支付申請ToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents 營運費用支付審核ToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents 營運費用支付單一覽表ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 現金收支單申請ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 財務收支單審核ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 財務收支單一覽表ToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
-    Friend WithEvents 營運成本收支單對帳表ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 財務收支單_對帳表ToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents 採購單申請ToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
     Friend WithEvents 倉儲控制表ToolStripMenuItem As ToolStripMenuItem
@@ -839,4 +860,7 @@ Partial Class MAOJI_ERP_SYS
     Friend WithEvents 銷售退貨申請ToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents 銷售退貨確認ToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents ToolStripSeparator17 As ToolStripSeparator
+    Friend WithEvents 支票收支單申請ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator18 As ToolStripSeparator
+    Friend WithEvents 票務控制表ToolStripMenuItem As ToolStripMenuItem
 End Class

MaoOrange-Hongji/MAOJI-ERP-SYS.vb

@@ -67,8 +67,8 @@ Public Class MAOJI_ERP_SYS
         Me.盤盈盤損控制表ToolStripMenuItem.Enabled = CC(43) : Me.盤盈坢損確認倉儲調整ToolStripMenuItem.Enabled = CC(44)
 
         '----------財務管理權限執行---------------------------------------------------------------------------------------------------------------------
-        Me.財務系統管理ToolStripMenuItem.Enabled = CC(16) : Me.營運費用支付申請ToolStripMenuItem.Enabled = CC(27) : Me.營運費用支付審核ToolStripMenuItem.Enabled = CC(29)
-        Me.營運費用支付單一覽表ToolStripMenuItem.Enabled = CC(30) : Me.營運成本收支單對帳表ToolStripMenuItem.Enabled = CC(31) : Me.營運成本收支決算表ToolStripMenuItem.Enabled = CC(32)
+        Me.財務系統管理ToolStripMenuItem.Enabled = CC(16) : Me.現金收支單申請ToolStripMenuItem.Enabled = CC(27) : Me.財務收支單審核ToolStripMenuItem.Enabled = CC(29)
+        Me.財務收支單一覽表ToolStripMenuItem.Enabled = CC(30) : Me.財務收支單_對帳表ToolStripMenuItem.Enabled = CC(31) : Me.營運成本收支決算表ToolStripMenuItem.Enabled = CC(32)
         Me.營運狀態彙總檢視表ToolStripMenuItem.Enabled = CC(45)
     End Sub
     Private Sub MDIParentbreak_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing
@@ -114,17 +114,17 @@ 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()
+    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()
+    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()
+    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()
+    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()
@@ -214,8 +214,8 @@ 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()
+    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()
@@ -235,4 +235,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,12 @@
     <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>
@@ -319,28 +325,28 @@
     <Compile Include="資料庫系統管理\網段.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="財務系統管理\營運成本收支單_對帳表.Designer.vb">
-      <DependentUpon>營運成本收支單_對帳表.vb</DependentUpon>
+    <Compile Include="財務系統管理\財務收支單_對帳表.Designer.vb">
+      <DependentUpon>財務收支單_對帳表.vb</DependentUpon>
     </Compile>
-    <Compile Include="財務系統管理\營運成本收支單_對帳表.vb">
+    <Compile Include="財務系統管理\財務收支單_對帳表.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="財務系統管理\營運成本收支單一覽表.Designer.vb">
-      <DependentUpon>營運成本收支單一覽表.vb</DependentUpon>
+    <Compile Include="財務系統管理\財務收支單一覽表.Designer.vb">
+      <DependentUpon>財務收支單一覽表.vb</DependentUpon>
     </Compile>
-    <Compile Include="財務系統管理\營運成本收支單一覽表.vb">
+    <Compile Include="財務系統管理\財務收支單一覽表.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="財務系統管理\營運成本收支單審核.Designer.vb">
-      <DependentUpon>營運成本收支單審核.vb</DependentUpon>
+    <Compile Include="財務系統管理\財務收支單審核.Designer.vb">
+      <DependentUpon>財務收支單審核.vb</DependentUpon>
     </Compile>
-    <Compile Include="財務系統管理\營運成本收支單審核.vb">
+    <Compile Include="財務系統管理\財務收支單審核.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="財務系統管理\營運成本收支單申請.Designer.vb">
-      <DependentUpon>營運成本收支單申請.vb</DependentUpon>
+    <Compile Include="財務系統管理\現金收支單申請.Designer.vb">
+      <DependentUpon>現金收支單申請.vb</DependentUpon>
     </Compile>
-    <Compile Include="財務系統管理\營運成本收支單申請.vb">
+    <Compile Include="財務系統管理\現金收支單申請.vb">
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="資料庫系統管理\系統執行檔版本管理.Designer.vb">
@@ -457,6 +463,9 @@
     <EmbeddedResource Include="倉儲系統管理\倉儲入庫驗收.resx">
       <DependentUpon>倉儲入庫驗收.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="財務系統管理\支票收支單申請.resx">
+      <DependentUpon>支票收支單申請.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="資料庫系統管理\系統通用變數管理.resx">
       <DependentUpon>系統通用變數管理.vb</DependentUpon>
     </EmbeddedResource>
@@ -553,17 +562,17 @@
     <EmbeddedResource Include="資料庫系統管理\網段.resx">
       <DependentUpon>網段.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="財務系統管理\營運成本收支單_對帳表.resx">
-      <DependentUpon>營運成本收支單_對帳表.vb</DependentUpon>
+    <EmbeddedResource Include="財務系統管理\財務收支單_對帳表.resx">
+      <DependentUpon>財務收支單_對帳表.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="財務系統管理\營運成本收支單一覽表.resx">
-      <DependentUpon>營運成本收支單一覽表.vb</DependentUpon>
+    <EmbeddedResource Include="財務系統管理\財務收支單一覽表.resx">
+      <DependentUpon>財務收支單一覽表.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="財務系統管理\營運成本收支單審核.resx">
-      <DependentUpon>營運成本收支單審核.vb</DependentUpon>
+    <EmbeddedResource Include="財務系統管理\財務收支單審核.resx">
+      <DependentUpon>財務收支單審核.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="財務系統管理\營運成本收支單申請.resx">
-      <DependentUpon>營運成本收支單申請.vb</DependentUpon>
+    <EmbeddedResource Include="財務系統管理\現金收支單申請.resx">
+      <DependentUpon>現金收支單申請.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="資料庫系統管理\系統執行檔版本管理.resx">
       <DependentUpon>系統執行檔版本管理.vb</DependentUpon>

MaoOrange-Hongji/Module1/SQL_Module.vb

@@ -129,9 +129,9 @@ Module SQL_Module
     End Sub
     Friend Sub SQL_營運成本明細表新增()
         ConnOpen()
-        SQL1 = "INSERT INTO 營運成本明細表 (流水號, 項次, 會計科目, 用途, 金額, 備註, 收款, 零用金, 支票數, 會計, 出納, 現金, 備用金, 公帳, 支票, 作帳日期, 出納日期, 公司編號) 
+        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'1', N'0', N'0', N'0', N'0', N'0', N'" & DTP & "', N'', N'" & 公司編號 & "', N'" & PA6 & "', N'" & PA7 & "')"
         CmdSet_For_dr()
     End Sub
     Friend Sub SQL_倉儲明細表_出庫日期讀取()
@@ -143,6 +143,61 @@ Module SQL_Module
     Friend Sub SQL_通用預設值管理查詢()
         ConnOpen() : SQL1 = "SELECT 預設值 FROM 通用預設值管理表一 WHERE ( 流水號 LIKE N'" & 關鍵字編號 & "')" : CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_會計科目_第一階_不含流動票務()
+        ConnOpen() : SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  WHERE (停用 = 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 (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 (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 (會計科目 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 (停用 = 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 (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 (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 (會計科目 LIKE N'%" & PA & "%') AND (停用 = 0) AND (統制科目 = 0) AND (第一階 LIKE '流動%') ORDER BY 編號" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_倉儲入庫驗收確認()
+        ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 入庫日期 = N'" & DTP & "', 倉儲作業 = N'" & DTP & "', 倉名編號 = '" & PA1 & "' WHERE (資料流水號 LIKE N'" & PA2 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_採購單申請_倉儲明細表修改_入庫()
+        ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET  金額  = N'" & NU1 & "', 入庫 = N'" & NU2 & "' , 備註 = N'" & PA1 & "', 交期 = N'" & PA2 & "' WHERE (資料流水號 LIKE '" & PA3 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_出貨單申請_零售客戶記錄表刪除()
+        ConnOpen() : SQL1 = "DELETE FROM 零售客戶記錄表 WHERE (出貨單號 LIKE N'" & 出貨單申請.TextBox9.Text & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_出貨單申請_倉儲明細表修改_出庫()
+        ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET  金額  = N'" & NU1 & "', 出庫 = N'" & NU2 & "', 備註 = N'" & PA1 & "', 交期 = N'" & PA2 & "' WHERE (資料流水號 LIKE '" & PA3 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_營運成本控制表刪除()
+        ConnOpen() : SQL1 = "DELETE FROM 營運成本控制表 WHERE (支付單號 LIKE '" & PA1 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_營運成本明細表刪除()
+        ConnOpen() : SQL1 = "DELETE FROM 營運成本明細表 WHERE (流水號 LIKE '" & PA1 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_營運成本明細表刪除單筆()
+        ConnOpen() : SQL1 = "DELETE FROM 營運成本明細表 WHERE (流水號 LIKE '" & PA1 & "' AND 項次 LIKE '" & PA2 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_營運成本明細表項次修改()
+        ConnOpen() : SQL1 = "UPDATE 營運成本明細表 SET 項次 = N'" & PA1 & "' WHERE (流水號 LIKE '" & PA2 & "' AND 項次 LIKE '" & PA3 & "')" : CmdSet_For_dr()
+    End Sub
+
 
 
     '---------------------LoginForm1-----------------------------------------------------------------------------------------------------------------
@@ -639,9 +694,6 @@ Module SQL_Module
                 ORDER BY   倉儲明細表.單據編號"
         CmdSet_For_DGV()
     End Sub
-    Friend Sub SQL_倉儲入庫驗收確認()
-        ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 入庫日期 = N'" & DTP & "', 倉儲作業 = N'" & DTP & "', 倉名編號 = '" & PA1 & "' WHERE (資料流水號 LIKE N'" & PA2 & "')" : CmdSet_For_dr()
-    End Sub
     '---------------------倉儲分區控制表-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_倉儲分區控制表清單()
         ConnOpen() : SQL1 = "SELECT 倉級, 倉名編號, 倉名 FROM 倉儲分區控制表 ORDER BY 倉級, 倉名編號" : CmdSet_For_DGV()
@@ -836,22 +888,22 @@ Module SQL_Module
         SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, 
                             EERR.細項金額, 會計科目.抵銷科目 AS 抵銷, QQWW.主項金額 AS 主項彙總, WWEE.子項金額 AS 子項彙總, EERR.細項金額 AS 細項彙總
                 FROM        會計科目 FULL OUTER JOIN
-                               (SELECT 營運成本明細表_3.會計科目 AS 細項, SUM(營運成本明細表_3.零用金) + SUM(營運成本明細表_3.支票數) + SUM(營運成本明細表_3.收款) - 
-                                       SUM(營運成本明細表_3.金額) AS 細項金額
+                               (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 
                                       (營運成本控制表_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 主項金額
+                               (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 
                                       (營運成本控制表_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 子項金額
+                               (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 
                                       (營運成本控制表_1.公司編號 LIKE '%" & 公司編號 & "%')
@@ -865,22 +917,22 @@ Module SQL_Module
         SQL1 = "SELECT      會計科目.層級, 會計科目.第一階, 會計科目.第二階, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, QQWW.主項金額, WWEE.子項金額, EERR.細項金額, 
                             EERR.細項金額 AS [金額], 會計科目.抵銷科目 AS 抵銷, EERR.細項金額 AS [彙總]
                 FROM        會計科目 FULL OUTER JOIN
-                               (SELECT 營運成本明細表_3.會計科目 AS 細項, SUM(營運成本明細表_3.零用金) + SUM(營運成本明細表_3.支票數) + SUM(營運成本明細表_3.收款) - 
-                                       SUM(營運成本明細表_3.金額) AS 細項金額
+                               (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 
                                       (營運成本控制表_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 主項金額
+                               (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 
                                       (營運成本控制表_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 子項金額
+                               (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 
                                       (營運成本控制表_1.公司編號 LIKE '%" & 公司編號 & "%')
@@ -906,10 +958,10 @@ Module SQL_Module
         ConnOpen()
         SQL1 = "SELECT      營運成本控制表.支付單號 AS 收支單號, 營運成本控制表.申請人, 營運成本控制表.申請日期, 營運成本控制表.審核人, 
                             營運成本控制表.審核日期, 營運成本明細表.項次, 會計科目.會計科目, 營運成本明細表.用途 AS 用途與內容, 
-                            營運成本明細表.零用金, 營運成本明細表.支票數 AS 支票, 營運成本明細表.收款 AS 現金, 
+                            營運成本明細表.零用金 AS 開票, 營運成本明細表.支票數 AS 收票, 營運成本明細表.收款 AS 現金, 
                             營運成本明細表.金額 AS 支出, 營運成本明細表.備註 AS 票期, 營運成本明細表.會計, 營運成本明細表.作帳日期, 
-                            營運成本明細表.出納 AS 點交, 營運成本明細表.出納日期 AS 點交日期, 營運成本明細表.備用金 AS 零用金點交, 
-                            營運成本明細表.支票 AS 支票兌現, 營運成本明細表.現金 AS 現金點交, 營運成本明細表.公帳 AS 支出點交
+                            營運成本明細表.出納 AS 點交, 營運成本明細表.出納日期 AS 點交日期, 營運成本明細表.備用金 AS 開票已付, 
+                            營運成本明細表.支票 AS 收票兌現, 營運成本明細表.現金 AS 現金點交, 營運成本明細表.公帳 AS 支出點交
                 FROM        營運成本明細表 INNER JOIN
                             會計科目 ON 營運成本明細表.會計科目 = 會計科目.編號 FULL OUTER JOIN
                             營運成本控制表 ON 營運成本明細表.流水號 = 營運成本控制表.支付單號
@@ -950,21 +1002,26 @@ Module SQL_Module
     '---------------------營運成本收支單一覽表-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_營運成本收支單一覽表清單()
         ConnOpen()
-        SQL1 = "SELECT 支付單號 AS 收支單號, 申請人, 申請日期, 審核人, 審核日期, 核准圖檔,  簽名編碼 FROM 營運成本控制表 
-                WHERE (審核人 NOT LIKE '') AND (審核人 NOT LIKE '作廢%') AND (公司編號 LIKE '%" & 公司編號 & "%') AND 
-                       審核日期 BETWEEN '" & Strings.Format(營運成本收支單一覽表.DateTimePicker4.Value, "yyyy/MM/dd") &
-                                 "' AND '" & Strings.Format(營運成本收支單一覽表.DateTimePicker3.Value, "yyyy/MM/dd") & "'
-                ORDER BY 審核日期 DESC"
+        SQL1 = "SELECT   營運成本控制表.支付單號 AS 收支單號, 營運成本控制表.申請人, 營運成本控制表.申請日期, 營運成本控制表.審核人, 營運成本控制表.審核日期, 營運成本控制表.核准圖檔, 
+                         營運成本控制表.簽名編碼
+                FROM     營運成本控制表 INNER JOIN 營運成本明細表 ON 營運成本控制表.支付單號 = 營運成本明細表.流水號 
+                WHERE   (營運成本明細表.狀態 LIKE '%現%' OR 營運成本明細表.狀態 IS NULL OR 營運成本明細表.狀態 LIKE '') AND (營運成本控制表.審核人 NOT LIKE '') AND 
+                        (營運成本控制表.審核人 NOT LIKE '作廢%') AND (營運成本控制表.公司編號 LIKE '%" & 公司編號 & "%') AND 
+                         營運成本控制表.審核日期 BETWEEN '" & Strings.Format(財務收支單一覽表.DateTimePicker4.Value, "yyyy/MM/dd") &
+                                                "' AND '" & Strings.Format(財務收支單一覽表.DateTimePicker3.Value, "yyyy/MM/dd") & "'
+                GROUP BY 營運成本控制表.支付單號, 營運成本控制表.申請人, 營運成本控制表.申請日期, 營運成本控制表.審核人, 營運成本控制表.審核日期, 營運成本控制表.核准圖檔, 
+                         營運成本控制表.簽名編碼
+                ORDER BY 營運成本控制表.審核日期 DESC"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_營運成本收支單一覽表彙總()
         ConnOpen()
-        SQL1 = "SELECT      LEFT(營運成本控制表.審核日期, 7) AS 日期, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, SUM(營運成本明細表.零用金) AS 零用金, 
-                            SUM(營運成本明細表.支票數) AS 支票, SUM(營運成本明細表.收款) AS 現金, SUM(營運成本明細表.金額) AS 支出
+        SQL1 = "SELECT      LEFT(營運成本控制表.審核日期, 7) AS 日期, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 會計科目.會計科目 AS 子細項, SUM(營運成本明細表.零用金) AS 開票, 
+                            SUM(營運成本明細表.支票數) AS 收票, SUM(營運成本明細表.收款) AS 現金, SUM(營運成本明細表.金額) AS 支出
                 FROM        營運成本控制表 RIGHT OUTER JOIN 營運成本明細表 ON 營運成本控制表.支付單號 = 營運成本明細表.流水號 RIGHT OUTER JOIN 會計科目 ON 營運成本明細表.會計科目 = 會計科目.編號
-                WHERE      (營運成本控制表.公司編號 LIKE '%" & 公司編號 & "%') AND 
-                           (營運成本控制表.審核日期 BETWEEN '" & Strings.Format(營運成本收支單一覽表.DateTimePicker4.Value, "yyyy/MM/dd") & "' 
-                                                        AND '" & Strings.Format(營運成本收支單一覽表.DateTimePicker3.Value, "yyyy/MM/dd") & "')
+                WHERE      (營運成本明細表.狀態 LIKE '%現%' OR 營運成本明細表.狀態 IS NULL OR 營運成本明細表.狀態 LIKE '') AND (營運成本控制表.公司編號 LIKE '%" & 公司編號 & "%') AND 
+                           (營運成本控制表.審核日期 BETWEEN '" & Strings.Format(財務收支單一覽表.DateTimePicker4.Value, "yyyy/MM/dd") & "' 
+                                                        AND '" & Strings.Format(財務收支單一覽表.DateTimePicker3.Value, "yyyy/MM/dd") & "')
                 GROUP BY    會計科目.第一階, 會計科目.第二階, 會計科目.會計科目, LEFT(會計科目.編號, 7), LEFT(營運成本控制表.審核日期, 7)
                 ORDER BY    LEFT(營運成本控制表.審核日期, 7), LEFT(會計科目.編號, 7)"
         CmdSet_For_DGV()
@@ -972,91 +1029,73 @@ Module SQL_Module
     Friend Sub SQL_營運成本收支單一覽表費用清單()
         ConnOpen()
         SQL1 = "SELECT      營運成本明細表.流水號, 營運成本明細表.項次, 會計科目.會計科目, 營運成本明細表.用途, 
-                            營運成本明細表.零用金, 營運成本明細表.支票數 AS 支票, 營運成本明細表.收款 AS 現金, 
+                            營運成本明細表.零用金 AS 開票, 營運成本明細表.支票數 AS 收票, 營運成本明細表.收款 AS 現金, 
                             營運成本明細表.金額 AS 支出, 營運成本明細表.備註 AS 票期
                 FROM        營運成本明細表 INNER JOIN
                             會計科目 ON 營運成本明細表.會計科目 = 會計科目.編號
-                WHERE      (營運成本明細表.流水號 LIKE '" & 營運成本收支單一覽表.TextBox1.Text & "')
+                WHERE      (營運成本明細表.狀態 LIKE '%現%' OR 營運成本明細表.狀態 IS NULL OR 營運成本明細表.狀態 LIKE '') AND (營運成本明細表.流水號 LIKE '" & 財務收支單一覽表.TextBox1.Text & "')
                 ORDER BY    營運成本明細表.項次"
         CmdSet_For_DGV()
     End Sub
-    '---------------------營運成本收支單申請-----------------------------------------------------------------------------------------------------------------
+    '---------------------現金收支單申請-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_營運成本收支單申請清單()
         ConnOpen()
-        If 營運成本收支單申請.RadioButton1.Checked = True And 營運成本收支單申請.RadioButton2.Checked = False And 營運成本收支單申請.RadioButton3.Checked = False Then
-            KKKJJ = "WHERE (審核人 LIKE '') AND (公司編號 LIKE '%" & 公司編號 & "%')"
-        ElseIf 營運成本收支單申請.RadioButton1.Checked = False And 營運成本收支單申請.RadioButton2.Checked = True And 營運成本收支單申請.RadioButton3.Checked = False Then
-            KKKJJ = "WHERE (審核人 LIKE '作廢%') AND (公司編號 LIKE '%" & 公司編號 & "%')"
-        ElseIf 營運成本收支單申請.RadioButton1.Checked = False And 營運成本收支單申請.RadioButton2.Checked = False And 營運成本收支單申請.RadioButton3.Checked = True Then
-            KKKJJ = "WHERE (審核人 NOT LIKE '作廢%') AND (審核人 NOT LIKE '') AND (公司編號 LIKE '%" & 公司編號 & "%')"
+        If 現金收支單申請.RadioButton1.Checked = True And 現金收支單申請.RadioButton2.Checked = False And 現金收支單申請.RadioButton3.Checked = False Then
+            KKKJJ = "WHERE (營運成本明細表.狀態 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 (營運成本明細表.狀態 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 (營運成本明細表.狀態 LIKE '%現%' OR 營運成本明細表.狀態 IS NULL OR 營運成本明細表.狀態 LIKE '') AND (營運成本控制表.審核人 NOT LIKE '作廢%') AND 
+                           (營運成本控制表.審核人 NOT LIKE '') AND (營運成本控制表.公司編號 LIKE '%" & 公司編號 & "%')"
         End If
-        SQL1 = "SELECT 支付單號 AS 收支單號, 申請日期, 審核日期, 申請人 FROM 營運成本控制表 " & KKKJJ & " ORDER BY 申請日期 DESC"
+        SQL1 = "SELECT    營運成本控制表.支付單號 AS 收支單號, 營運成本控制表.申請日期, 營運成本控制表.審核日期, 營運成本控制表.申請人
+                FROM      營運成本控制表 INNER JOIN 營運成本明細表 ON 營運成本控制表.支付單號 = 營運成本明細表.流水號 " & KKKJJ & " 
+                GROUP BY  營運成本控制表.支付單號, 營運成本控制表.申請日期, 營運成本控制表.審核日期, 營運成本控制表.申請人
+                ORDER BY  營運成本控制表.申請日期 DESC"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_營運成本收支單申請費用清單()
         ConnOpen()
         SQL1 = "SELECT      營運成本明細表.流水號, 營運成本明細表.項次, 會計科目.會計科目, 營運成本明細表.用途, 
-                            營運成本明細表.零用金, 營運成本明細表.支票數 AS 支票, 營運成本明細表.收款 AS 現金, 
-                            營運成本明細表.金額 AS 支出, 營運成本明細表.備註 AS 票期, 營運成本明細表.會計科目 AS 科目編號
+                            營運成本明細表.零用金 AS 開票, 營運成本明細表.支票數 AS 收票, 營運成本明細表.收款 AS 現金, 
+                            營運成本明細表.金額 AS 支出, 營運成本明細表.備註, 營運成本明細表.會計科目 AS 科目編號, 
+                            營運成本明細表.狀態
                 FROM        營運成本明細表 INNER JOIN
                             會計科目 ON 營運成本明細表.會計科目 = 會計科目.編號
-                WHERE      (營運成本明細表.流水號 LIKE '" & 營運成本收支單申請.TextBox1.Text & "')
+                WHERE      (狀態 LIKE '%現%'  OR 營運成本明細表.狀態 IS NULL OR 營運成本明細表.狀態 LIKE '') AND (營運成本明細表.流水號 LIKE '" & 現金收支單申請.TextBox1.Text & "')
                 ORDER BY    營運成本明細表.項次"
         CmdSet_For_DGV()
     End Sub
-    Friend Sub SQL_會計科目_第一階()
-        ConnOpen() : SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  WHERE (停用 = 0) GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號" : CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_會計科目_第二階()
-        ConnOpen()
-        SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE N'" & PA & "') AND (層級 NOT LIKE '3') AND (停用 = 0)
-                GROUP BY   LEFT(編號, 7), 第二階, 層級 ORDER BY   編號"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_會計科目_第三階()
-        ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (LEFT(編號, 7) LIKE N'" & PA & "') AND (停用 = 0) AND (統制科目 = 0) ORDER BY 編號" : CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_會計科目_關鍵字()
-        ConnOpen() : SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (會計科目 LIKE N'%" & PA & "%') 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'" & NU2 & "', 零用金 = N'" & NU3 & "', 支票數 = N'" & NU4 & "', 狀態 = N'" & PA6 & "', 登錄人 = N'" & PA7 & "'
                 WHERE (流水號 LIKE '" & PA4 & "' AND 項次 LIKE '" & PA5 & "')"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_營運成本控制表刪除()
-        ConnOpen() : SQL1 = "DELETE FROM 營運成本控制表 WHERE (支付單號 LIKE '" & 營運成本收支單申請.TextBox1.Text & "')" : CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_營運成本明細表刪除()
-        ConnOpen() : SQL1 = "DELETE FROM 營運成本明細表 WHERE (流水號 LIKE '" & 營運成本收支單申請.TextBox1.Text & "')" : CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_營運成本明細表刪除單筆()
-        ConnOpen() : SQL1 = "DELETE FROM 營運成本明細表 WHERE (流水號 LIKE '" & 營運成本收支單申請.TextBox1.Text & "' AND 項次 LIKE '" & 營運成本收支單申請.TextBox4.Text & "')" : CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_營運成本明細表項次修改()
-        ConnOpen() : SQL1 = "UPDATE 營運成本明細表 SET 項次 = N'" & PA1 & "' WHERE (流水號 LIKE '" & PA2 & "' AND 項次 LIKE '" & PA3 & "')" : CmdSet_For_dr()
-    End Sub
     '---------------------營運成本收支單審核-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_營運成本收支單審核清單()
         ConnOpen()
-        If 營運成本收支單審核.RadioButton1.Checked = True And 營運成本收支單審核.RadioButton2.Checked = False Then
-            KKKJJ = "WHERE (審核人 LIKE '')  AND (公司編號 LIKE '%" & 公司編號 & "%')"
-        ElseIf 營運成本收支單審核.RadioButton1.Checked = False And 營運成本收支單審核.RadioButton2.Checked = True Then
-            KKKJJ = "WHERE (審核人 LIKE '作廢%')  AND (公司編號 LIKE '%" & 公司編號 & "%')"
+        If 財務收支單審核.RadioButton1.Checked = True And 財務收支單審核.RadioButton2.Checked = False Then
+            KKKJJ = "WHERE (營運成本明細表.狀態 LIKE '%現%') AND (營運成本控制表.審核人 LIKE '')  AND (營運成本控制表.公司編號 LIKE '%" & 公司編號 & "%')"
+        ElseIf 財務收支單審核.RadioButton1.Checked = False And 財務收支單審核.RadioButton2.Checked = True Then
+            KKKJJ = "WHERE (營運成本明細表.狀態 LIKE '%現%') AND (營運成本控制表.審核人 LIKE '作廢%')  AND (營運成本控制表.公司編號 LIKE '%" & 公司編號 & "%')"
         End If
-        SQL1 = "SELECT 支付單號 AS 收支單號, 申請日期, 審核日期, 申請人 FROM 營運成本控制表 " & KKKJJ & " ORDER BY 支付單號 DESC"
+        SQL1 = "SELECT     營運成本控制表.支付單號 AS 收支單號, 營運成本控制表.申請日期, 營運成本控制表.審核日期, 營運成本控制表.申請人
+                FROM       營運成本控制表 INNER JOIN 營運成本明細表 ON 營運成本控制表.支付單號 = 營運成本明細表.流水號 " & KKKJJ & " 
+                GROUP BY   營運成本控制表.支付單號, 營運成本控制表.申請日期, 營運成本控制表.審核日期, 營運成本控制表.申請人
+                ORDER BY   收支單號 DESC"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_營運成本收支單審核費用清單()
         ConnOpen()
-        SQL1 = "SELECT      營運成本明細表.流水號, 營運成本明細表.項次, 會計科目.會計科目, 營運成本明細表.用途, 
-                            營運成本明細表.零用金, 營運成本明細表.支票數 AS 支票, 營運成本明細表.收款 AS 現金, 
-                            營運成本明細表.金額 AS 支出, 營運成本明細表.備註 AS 票期
-                FROM        營運成本明細表 INNER JOIN
-                            會計科目 ON 營運成本明細表.會計科目 = 會計科目.編號
-                WHERE      (營運成本明細表.流水號 LIKE '" & 營運成本收支單審核.TextBox1.Text & "')
+        SQL1 = "SELECT      營運成本明細表.流水號, 營運成本明細表.項次, QQ.會計科目, 營運成本明細表.用途, 營運成本明細表.支票數 AS 收票, 營運成本明細表.零用金 AS 開票, 營運成本明細表.收款 AS 現金, 
+                            營運成本明細表.金額 AS 支出, 營運成本明細表.備註, 營運成本明細表.狀態, 營運成本明細表.倉儲單號, 營運成本明細表.支票號碼, 營運成本明細表.到期日, 營運成本明細表.開票人, 
+                            營運成本明細表.登錄人
+                FROM        營運成本明細表 LEFT OUTER JOIN 會計科目 AS QQ ON 營運成本明細表.會計科目 = QQ.編號
+                WHERE      (營運成本明細表.狀態 LIKE '%現%') AND (營運成本明細表.流水號 LIKE '" & 財務收支單審核.TextBox1.Text & "')
                 ORDER BY    營運成本明細表.項次"
         CmdSet_For_DGV()
     End Sub
@@ -1064,21 +1103,21 @@ Module SQL_Module
         ConnOpen() : SQL1 = "SELECT 圖片流水號 AS 圖檔編碼, 簽名檔人名 FROM MJ主管簽名檔管理 ORDER BY 圖片流水號 DESC" : CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_營運成本收支單審核_簽名編碼()
-        ConnOpen() : SQL1 = "SELECT 簽名編碼 FROM 營運成本控制表 WHERE 簽名編碼 LIKE '" & 營運成本收支單審核.TextBox13.Text & "'" : CmdSet_For_dr()
+        ConnOpen() : SQL1 = "SELECT 簽名編碼 FROM 營運成本控制表 WHERE 簽名編碼 LIKE '" & 財務收支單審核.TextBox13.Text & "'" : CmdSet_For_dr()
     End Sub
     Friend Sub SQL_營運成本收支單審核_控制表修改()
         ConnOpen()
-        SQL1 = "UPDATE 營運成本控制表 SET 審核人 = N'" & gUserName & "', 審核日期 = N'" & DTP & "', 核准圖檔 = N'" & 營運成本收支單審核.TextBox14.Text &
-                                    "', 簽名編碼 = N'" & 營運成本收支單審核.TextBox13.Text & "', 出納 = '" & gUserName & "', 出納日期 = N'" & DTP & "' 
-                WHERE (支付單號 = N'" & 營運成本收支單審核.TextBox1.Text & "')"
+        SQL1 = "UPDATE 營運成本控制表 SET 審核人 = N'" & gUserName & "', 審核日期 = N'" & DTP & "', 核准圖檔 = N'" & 財務收支單審核.TextBox14.Text &
+                                    "', 簽名編碼 = N'" & 財務收支單審核.TextBox13.Text & "', 出納 = '" & gUserName & "', 出納日期 = N'" & DTP & "' 
+                WHERE (支付單號 = N'" & 財務收支單審核.TextBox1.Text & "')"
         CmdSet_For_dr()
     End Sub
     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()
+        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
@@ -1087,7 +1126,7 @@ Module SQL_Module
     End Sub
     Friend Sub SQL_營運成本收支單審核_控制表作廢()
         ConnOpen()
-        SQL1 = "UPDATE 營運成本控制表 SET 審核人 = N'作廢-" & gUserName & "', 審核日期 = N'" & DTP & "', 備註 = N'" & PA & "' WHERE (支付單號 = N'" & 營運成本收支單審核.TextBox1.Text & "')"
+        SQL1 = "UPDATE 營運成本控制表 SET 審核人 = N'作廢-" & gUserName & "', 審核日期 = N'" & DTP & "', 備註 = N'" & PA & "' WHERE (支付單號 = N'" & 財務收支單審核.TextBox1.Text & "')"
         CmdSet_For_dr()
     End Sub
     '---------------------營運狀態彙總_檢視表-----------------------------------------------------------------------------------------------------------------
@@ -1312,9 +1351,6 @@ Module SQL_Module
                 ORDER BY    名稱"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_採購單申請_倉儲明細表修改_入庫()
-        ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET  金額  = N'" & NU1 & "', 入庫 = N'" & NU2 & "' , 備註 = N'" & PA1 & "', 交期 = N'" & PA2 & "' WHERE (資料流水號 LIKE '" & PA3 & "')" : CmdSet_For_dr()
-    End Sub
     Friend Sub SQL_採購單申請_倉儲明細表匯率修改()
         ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET 匯率 = N'" & NU1 & "' WHERE (資料流水號 LIKE '" & PA1 & "')" : CmdSet_For_dr()
     End Sub
@@ -1389,9 +1425,6 @@ Module SQL_Module
                      "',N'" & 出貨單申請.TextBox9.Text & "',N'" & 公司編號 & "')"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_出貨單申請_零售客戶記錄表刪除()
-        ConnOpen() : SQL1 = "DELETE FROM 零售客戶記錄表 WHERE (出貨單號 LIKE N'" & 出貨單申請.TextBox9.Text & "')" : CmdSet_For_dr()
-    End Sub
     Friend Sub SQL_出貨單申請_客戶資料_零售一()
         ConnOpen()
         SQL1 = "SELECT  MJ付款方式.付款方式 FROM 客戶資料表 INNER JOIN MJ付款方式 ON 客戶資料表.付款方式 = MJ付款方式.編號 WHERE (客戶資料表.編號 LIKE N'" & 出貨單申請.ComboBox3.Text & "')"
@@ -1409,9 +1442,6 @@ Module SQL_Module
                     WHERE  (客戶資料表.編號 LIKE N'" & 出貨單申請.ComboBox3.Text & "')"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_出貨單申請_倉儲明細表修改_出庫()
-        ConnOpen() : SQL1 = "UPDATE 倉儲明細表 SET  金額  = N'" & NU1 & "', 出庫 = N'" & NU2 & "', 備註 = N'" & PA1 & "', 交期 = N'" & PA2 & "' WHERE (資料流水號 LIKE '" & PA3 & "')" : CmdSet_For_dr()
-    End Sub
     '---------------------出貨確認-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_出貨確認清單()
         ConnOpen()
@@ -1794,11 +1824,11 @@ 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  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 & "')"
@@ -1904,8 +1934,8 @@ Module SQL_Module
                  HAVING    (SUM(倉儲明細表.入庫) - SUM(倉儲明細表.出庫) > 0) " & KKKJJ & ""
         CmdSet_For_DGV()
     End Sub
-    '---------------------採購退賀清單-----------------------------------------------------------------------------------------------------------------
-    Friend Sub SQL_採購退賀清單_單號彙總()
+    '---------------------採購退貨清單-----------------------------------------------------------------------------------------------------------------
+    Friend Sub SQL_採購退貨清單_單號彙總()
         ConnOpen()
         SQL1 = "SELECT      倉儲明細表.單據編號, 倉儲明細表.採購下單, 倉儲明細表.供應商編號, 供應商資料表.簡稱, 倉儲明細表.交期
                 FROM        倉儲明細表 INNER JOIN
@@ -1915,17 +1945,26 @@ Module SQL_Module
                 ORDER BY    倉儲明細表.單據編號 DESC"
         CmdSet_For_DGV()
     End Sub
-    Friend Sub SQL_採購退賀清單明細()
+    Friend Sub SQL_採購退貨清單明細()
         SQL1 = "SELECT      倉儲明細表.資料流水號, 倉儲明細表.資料流水號 AS 項次, 倉儲明細表.料號, 物料資料庫.品名, 物料資料庫.尺寸, 物料資料庫.材質, 倉儲明細表.入庫 AS 數量, 
                             倉儲明細表.金額 AS 單價, 倉儲明細表.匯率, 倉儲明細表.金額 * 倉儲明細表.匯率 AS 台幣單價, 倉儲明細表.金額 * 倉儲明細表.匯率 * 倉儲明細表.入庫 AS 進貨成本_台幣, 
                             倉儲明細表.備註, 倉儲明細表.入庫日期, 倉儲明細表.供應商編號, 倉儲明細表.客戶編號, 倉儲明細表.售價, 倉儲明細表.公司編號, MJ選擇按鈕.選擇
                 FROM        倉儲明細表 LEFT OUTER JOIN
                             MJ選擇按鈕 ON 倉儲明細表.資料流水號 = MJ選擇按鈕.按鈕 LEFT OUTER JOIN
                             物料資料庫 ON 倉儲明細表.料號 = 物料資料庫.料號
-                WHERE      (倉儲明細表.單據編號 LIKE N'" & 採購退賀清單.TextBox9.Text & "') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.入庫 < 0)
+                WHERE      (倉儲明細表.單據編號 LIKE N'" & 採購退貨清單.TextBox9.Text & "') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND (倉儲明細表.入庫 < 0)
                 ORDER BY   倉儲明細表.料號"
         CmdSet_For_DGV()
     End Sub
+    Friend Sub SQL_採購退貨清單_供應商資料表讀取()
+        ConnOpen()
+        SQL1 = "SELECT      供應商資料表.名稱, 供應商資料表.公司電話1, 供應商資料表.公司電話2, 供應商資料表.傳真1, 供應商資料表.地址1, 供應商資料表.郵遞區號1, 供應商資料表.地址2, 供應商資料表.郵遞區號2, 
+                            供應商資料表.統一編號, MJ付款方式.付款方式
+                FROM        供應商資料表 INNER JOIN MJ付款方式 ON 供應商資料表.付款方式 = MJ付款方式.編號
+                WHERE      (供應商資料表.編號 LIKE '%" & 採購退貨清單.ComboBox3.Text & "%') AND (供應商資料表.停用 = 0 OR 供應商資料表.停用 IS NULL)
+                ORDER BY    名稱"
+        CmdSet_For_dr()
+    End Sub
     '---------------------採購退貨確認-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_採購退貨確認清單()
         ConnOpen()
@@ -2076,11 +2115,11 @@ Module SQL_Module
     '---------------------應付賬款-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_應付賬款清單()
         If 應付賬款控制表.CheckBox3.Checked = False Then
-            KKKJJ = " WHERE (倉儲明細表.狀態 LIKE '採購入庫') AND (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 
-                            (倉儲明細表.倉儲作業 BETWEEN '" & Format(應付賬款控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應付賬款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "') "
+            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 (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 
-                            (倉儲明細表.倉儲作業 BETWEEN '" & Format(應付賬款控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應付賬款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "') AND 
+            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
         ConnOpen()
@@ -2117,11 +2156,11 @@ Module SQL_Module
     '---------------------應收帳款控制表-----------------------------------------------------------------------------------------------------------------
     Friend Sub SQL_應收賬款清單()
         If 應收帳款控制表.CheckBox3.Checked = False Then
-            KKKJJ = " WHERE (倉儲明細表.狀態 LIKE '銷售出庫') AND (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 
-                            (倉儲明細表.倉儲作業 BETWEEN '" & Format(應收帳款控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應收帳款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "') "
+            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 (倉儲明細表.倉儲作業 NOT LIKE '') AND (倉儲明細表.公司編號 LIKE '%" & 公司編號 & "%') AND 
-                            (倉儲明細表.倉儲作業 BETWEEN '" & Format(應收帳款控制表.DateTimePicker1.Value, "yyyy/MM/dd") & "' AND '" & Format(應收帳款控制表.DateTimePicker2.Value, "yyyy/MM/dd") & "') AND 
+            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
         ConnOpen()
@@ -2134,4 +2173,74 @@ Module SQL_Module
                 ORDER BY    倉儲明細表.單據編號, 倉儲明細表.出庫日期"
         CmdSet_For_DGV()
     End Sub
+    '---------------------支票收支單申請-----------------------------------------------------------------------------------------------------------------
+    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  營運成本控制表.支付單號, 營運成本控制表.申請日期, 營運成本控制表.審核日期, 營運成本控制表.申請人
+                ORDER BY  營運成本控制表.申請日期 DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_支票收支單申請費用清單()
+        ConnOpen()
+        SQL1 = "SELECT      營運成本明細表.流水號, 營運成本明細表.項次, QQ.會計科目, 營運成本明細表.用途, 營運成本明細表.零用金 AS 開票, 營運成本明細表.支票數 AS 收票, 
+                            營運成本明細表.收款 AS 現金, 營運成本明細表.金額 AS 支出, 營運成本明細表.備註, 營運成本明細表.會計科目 AS 科目編號, 營運成本明細表.狀態, 
+                            營運成本明細表.倉儲單號, 營運成本明細表.支票號碼, 營運成本明細表.到期日, 營運成本明細表.預定兌現日, 營運成本明細表.開收票日, 營運成本明細表.託收已付日, 
+                            營運成本明細表.兌現科目, 營運成本明細表.付款銀行, 營運成本明細表.開票人, 營運成本明細表.登錄人, 營運成本明細表.發票人帳號
+                FROM        營運成本明細表 INNER JOIN 會計科目 AS QQ ON 營運成本明細表.會計科目 = QQ.編號
+                WHERE      (營運成本明細表.狀態 NOT LIKE '%現%' OR 營運成本明細表.狀態 IS NULL OR 營運成本明細表.狀態 LIKE '') AND 
+                           (營運成本明細表.流水號 LIKE '" & 支票收支單申請.TextBox1.Text & "')
+                ORDER BY    營運成本明細表.項次"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_支票收支單客戶供應商查詢()
+        ConnOpen()
+        SQL1 = "SELECT     倉儲明細表.供應商編號, 倉儲明細表.客戶編號, 供應商資料表.簡稱 AS 供應商, 客戶資料表.簡稱 AS 客戶
+                FROM       倉儲明細表 INNER JOIN 供應商資料表 ON 倉儲明細表.供應商編號 = 供應商資料表.編號 INNER JOIN
+                           客戶資料表 ON 倉儲明細表.客戶編號 = 客戶資料表.編號
+                WHERE     (倉儲明細表.單據編號 LIKE '" & PA & "')
+                GROUP BY   倉儲明細表.供應商編號, 倉儲明細表.客戶編號, 供應商資料表.簡稱, 客戶資料表.簡稱"
+        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 = "SELECT 付款銀行 FROM 營運成本明細表 GROUP 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_支票收支單申請複製單據新增()
+        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 & "')"
+        CmdSet_For_dr()
+    End Sub
 End Module

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

@@ -1 +1 @@
-00cd1c6306df0c5d8944e0bca02266ab61e77410
+d43cd04b8a7f93190e7a2002705b906efffffcd1

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

@@ -164,10 +164,6 @@ G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.生產入庫.resour
 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
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.系統執行檔版本管理.resources
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.系統編碼規則_1.resources
 G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.FTP資料夾管理.resources
@@ -188,7 +184,6 @@ G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MAOJI-ERP-SYS.pdb
 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
@@ -197,3 +192,9 @@ 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
+G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.採購退貨清單.resources
+G:\MAOJI-ERP-SYS\MaoOrange-Hongji\obj\Debug\MaoOrange_Hongji.支票收支單申請.resources

MaoOrange-Hongji/採購系統管理/採購單申請.vb

@@ -516,16 +516,18 @@ Public Class 採購單申請
     End Sub
     Private Sub 刪除採購單中選中的物料ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 刪除採購單中選中的物料ToolStripMenuItem.Click
         PA1 = TextBox14.Text : SQL_倉儲明細表_入庫日期讀取()
-        If dr("入庫日期") = "" Then : conn.Close()
-            If TextBox14.Text = "" Then : MsgBox("沒有選擇要刪除了料號 。")
-            Else
-                Dim aa1 As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
-                If aa1 = MsgBoxResult.Ok Then
-                    PA1 = TextBox14.Text : SQL_倉儲明細表刪除() : conn.Close() : TextBox14.Text = "" : Set_單據明細()
+        If dr.Read() Then
+            If dr("入庫日期") = "" Then : conn.Close()
+                If TextBox14.Text = "" Then : MsgBox("沒有選擇要刪除了料號 。")
+                Else
+                    Dim aa1 As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
+                    If aa1 = MsgBoxResult.Ok Then
+                        PA1 = TextBox14.Text : SQL_倉儲明細表刪除() : conn.Close() : TextBox14.Text = "" : Set_單據明細()
+                    End If
                 End If
+            Else
+                conn.Close() : MsgBox("已入庫的資料不可刪除 。")
             End If
-        Else
-            conn.Close() : MsgBox("已入庫的資料不可刪除 。")
         End If
     End Sub
     Private Sub 新增物料到採購單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 新增物料到採購單ToolStripMenuItem.Click

MaoOrange-Hongji/採購系統管理/採購退賀清單.Designer.vb

@@ -1,5 +1,5 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class 採購退賀清單
+Partial Class 採購退貨清單
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
@@ -23,10 +23,10 @@ Partial Class 採購退賀清單
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim 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.CheckBox1 = New System.Windows.Forms.CheckBox()
         Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
@@ -68,9 +68,9 @@ Partial Class 採購退賀清單
         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.Button1 = New System.Windows.Forms.Button()
         Me.Button2 = New System.Windows.Forms.Button()
-        Me.列印產品標籤ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
@@ -443,8 +443,8 @@ Partial Class 採購退賀清單
         '
         'DataGridView3
         '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.DataGridView3.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.DataGridView3.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.DataGridView3.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)
@@ -453,16 +453,16 @@ Partial Class 採購退賀清單
         Me.DataGridView3.Location = New System.Drawing.Point(393, 130)
         Me.DataGridView3.Name = "DataGridView3"
         Me.DataGridView3.RowHeadersWidth = 5
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView3.RowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView3.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.DataGridView3.RowTemplate.Height = 24
         Me.DataGridView3.Size = New System.Drawing.Size(849, 475)
         Me.DataGridView3.TabIndex = 1177
         '
         'DataGridView2
         '
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, 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), System.Windows.Forms.AnchorStyles)
         Me.DataGridView2.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -470,8 +470,8 @@ Partial Class 採購退賀清單
         Me.DataGridView2.Location = New System.Drawing.Point(6, 42)
         Me.DataGridView2.Name = "DataGridView2"
         Me.DataGridView2.RowHeadersWidth = 5
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView2.RowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView2.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.DataGridView2.RowTemplate.Height = 24
         Me.DataGridView2.Size = New System.Drawing.Size(381, 563)
         Me.DataGridView2.TabIndex = 1151
@@ -480,26 +480,33 @@ Partial Class 採購退賀清單
         '
         Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新整理ToolStripMenuItem, Me.ToolStripSeparator1, Me.列印退貨單ToolStripMenuItem, Me.列印產品標籤ToolStripMenuItem})
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 98)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(147, 76)
         '
         '重新整理ToolStripMenuItem
         '
         Me.重新整理ToolStripMenuItem.Name = "重新整理ToolStripMenuItem"
-        Me.重新整理ToolStripMenuItem.Size = New System.Drawing.Size(134, 22)
+        Me.重新整理ToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
         Me.重新整理ToolStripMenuItem.Text = "重新整理"
         '
         'ToolStripSeparator1
         '
         Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(131, 6)
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(143, 6)
         '
         '列印退貨單ToolStripMenuItem
         '
         Me.列印退貨單ToolStripMenuItem.ForeColor = System.Drawing.Color.Green
         Me.列印退貨單ToolStripMenuItem.Name = "列印退貨單ToolStripMenuItem"
-        Me.列印退貨單ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        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 = "列印產品標籤"
+        '
         'Button1
         '
         Me.Button1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
@@ -522,14 +529,7 @@ Partial Class 採購退賀清單
         Me.Button2.Text = "單號查詢"
         Me.Button2.UseVisualStyleBackColor = True
         '
-        '列印產品標籤ToolStripMenuItem
-        '
-        Me.列印產品標籤ToolStripMenuItem.ForeColor = System.Drawing.Color.Green
-        Me.列印產品標籤ToolStripMenuItem.Name = "列印產品標籤ToolStripMenuItem"
-        Me.列印產品標籤ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
-        Me.列印產品標籤ToolStripMenuItem.Text = "列印產品標籤"
-        '
-        '採購退賀清單
+        '採購退貨清單
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@@ -576,8 +576,8 @@ Partial Class 採購退賀清單
         Me.Controls.Add(Me.DataGridView2)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.Name = "採購退賀清單"
-        Me.Text = "採購退賀清單"
+        Me.Name = "採購退貨清單"
+        Me.Text = "採購退貨清單"
         CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ContextMenuStrip1.ResumeLayout(False)

MaoOrange-Hongji/採購系統管理/採購退賀清單.vb

@@ -8,14 +8,14 @@ Imports Microsoft.Office.Interop.Excel.XlThemeFont
 Imports Microsoft.Office.Interop.Excel.XlThemeColor
 Imports Microsoft.Office.Interop.Excel.XlWindowState
 Imports Microsoft.Office.Interop.Excel
-Public Class 採購退賀清單
+Public Class 採購退貨清單
     ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
     Dim xlApp As Application : Dim xlBook As Workbook : Dim xlSheet As Worksheet
     Dim N1 As Integer
     Private Sub Set_採購清單()
         DataGridView2.DataSource = Nothing : ds1.Clear() : DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : DataGridView2.ColumnHeadersHeight = 25
         DataGridView2.AllowUserToAddRows = False : DataGridView2.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText : DataGridView2.MultiSelect = True
-        SQL_採購退賀清單_單號彙總()
+        SQL_採購退貨清單_單號彙總()
         da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()
         DataGridView2.Columns(0).FillWeight = 135 : DataGridView2.Columns(1).FillWeight = 90 : DataGridView2.Columns(2).Visible = False : DataGridView2.Columns(3).FillWeight = 100
         DataGridView2.Columns(4).FillWeight = 90
@@ -23,7 +23,7 @@ Public Class 採購退賀清單
     Private Sub Set_單據明細()
         DataGridView3.DataSource = Nothing : ds2.Clear() : DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : DataGridView3.ColumnHeadersHeight = 25
         DataGridView3.AllowUserToAddRows = False : DataGridView3.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText : DataGridView3.MultiSelect = True
-        SQL_採購退賀清單明細()
+        SQL_採購退貨清單明細()
         da.Fill(ds2) : DataGridView3.DataSource = ds2.Tables(0) : conn.Close()
 
         TextBox15.Text = "0"
@@ -59,7 +59,7 @@ Public Class 採購退賀清單
         SQL_供應商資料表下拉清單()
         ComboBox2.Items.Clear() : ComboBox3.Items.Clear() : While (dr.Read()) : ComboBox2.Items.Add(dr("簡稱")) : ComboBox3.Items.Add(dr("編號")) : End While : conn.Close()
     End Sub
-    Private Sub 採購退賀清單_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    Private Sub 採購退貨清單_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         ComboBox2.Enabled = False : ComboBox3.Enabled = False : TextBox2.Enabled = False : TextBox3.Enabled = False : TextBox4.Enabled = False : TextBox26.Enabled = False
         TextBox6.Enabled = False : TextBox8.Enabled = False : TextBox9.Enabled = False : TextBox10.Enabled = False : TextBox11.Enabled = False : TextBox12.Enabled = False
@@ -91,7 +91,7 @@ Public Class 採購退賀清單
         TextBox15.Text = Strings.Format(Val(TextBox15.Text), "#,#00")
     End Sub
     Private Sub 供應商資料()
-        SQL_採購退貨申請_供應商資料表讀取()
+        SQL_採購退貨清單_供應商資料表讀取()
         If (dr.Read()) Then
             TextBox2.Text = dr("名稱") : TextBox6.Text = dr("公司電話1") : TextBox3.Text = dr("公司電話2") : TextBox8.Text = dr("傳真1") : TextBox11.Text = dr("郵遞區號1")
             TextBox10.Text = dr("地址1") : TextBox13.Text = dr("郵遞區號2") : TextBox12.Text = dr("地址2") : TextBox26.Text = dr("統一編號") : TextBox4.Text = dr("付款方式")

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

@@ -45,15 +45,15 @@ Public Class 司機佣金計算
         ComboBox2.Items.Clear() : While (dr.Read()) : ComboBox2.Items.Add(dr("司機")) : End While : conn.Close()
     End Sub
     Private Sub ComboBox1下拉表單資料載入()
-        SQL_會計科目_第一階()
+        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_會計科目_第二階()
+        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_會計科目_第三階()
+        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
     End Sub
@@ -115,7 +115,7 @@ Public Class 司機佣金計算
         ComboBox7.SelectedIndex = ComboBox6.SelectedIndex
     End Sub
     Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged
-        PA = TextBox9.Text : SQL_會計科目_關鍵字()
+        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 = ""
     End Sub
@@ -190,7 +190,7 @@ Public Class 司機佣金計算
 
                             PA1 = TextBox2.Text : PA2 = 新項次 : PA3 = ComboBox6.Text : PA6 = DataGridView1.Rows(i).Cells("資料流水號").Value
                             PA4 = DataGridView1.Rows(i).Cells("簡稱").Value & "-" & DataGridView1.Rows(i).Cells("品名").Value & "-" & DataGridView1.Rows(i).Cells("司機").Value & "司機佣金"
-                            NU1 = DataGridView1.Rows(i).Cells("佣金").Value : PA5 = "" : NU2 = 0 : NU3 = 0 : NU4 = 0
+                            NU1 = DataGridView1.Rows(i).Cells("佣金").Value : PA5 = "" : NU2 = 0 : NU3 = 0 : NU4 = 0 : PA6 = "付現" : PA7 = gUserName
                             SQL_營運成本明細表新增() : SQL_司機佣金計算表_轉立收支單修改()
                         End If
                     End If

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

@@ -42,15 +42,15 @@ Public Class 應付賬款控制表
         Next
     End Sub
     Private Sub ComboBox1下拉表單資料載入()
-        SQL_會計科目_第一階()
+        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_會計科目_第二階()
+        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_會計科目_第三階()
+        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
     End Sub
@@ -112,7 +112,7 @@ Public Class 應付賬款控制表
         ComboBox7.SelectedIndex = ComboBox6.SelectedIndex
     End Sub
     Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged
-        PA = TextBox9.Text : SQL_會計科目_關鍵字()
+        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 = ""
     End Sub
@@ -215,7 +215,7 @@ Public Class 應付賬款控制表
                     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
+                    NU1 = NumericUpDown1.Value : PA5 = "" : NU2 = 0 : NU3 = 0 : NU4 = 0 : PA6 = "付現" : PA7 = gUserName
                     SQL_營運成本明細表新增()
 
                     If NumericUpDown2.Value = 0 Then : Else
@@ -225,7 +225,7 @@ Public Class 應付賬款控制表
                         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
+                        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

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

@@ -44,15 +44,15 @@ Public Class 應收帳款控制表
         Next
     End Sub
     Private Sub ComboBox1下拉表單資料載入()
-        SQL_會計科目_第一階()
+        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_會計科目_第二階()
+        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_會計科目_第三階()
+        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
     End Sub
@@ -114,7 +114,7 @@ Public Class 應收帳款控制表
         ComboBox7.SelectedIndex = ComboBox6.SelectedIndex
     End Sub
     Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged
-        PA = TextBox9.Text : SQL_會計科目_關鍵字()
+        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 = ""
     End Sub
@@ -230,7 +230,7 @@ Public Class 應收帳款控制表
                         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
+                        NU1 = NumericUpDown1.Value : PA5 = "" : NU2 = 0 : NU3 = 0 : NU4 = 0 : PA6 = "收現" : PA7 = gUserName
                         SQL_營運成本明細表新增()
 
                         If NumericUpDown2.Value = 0 Then : Else
@@ -240,7 +240,7 @@ Public Class 應收帳款控制表
                             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
+                            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

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

@@ -45,15 +45,15 @@ Public Class 業務佣金計算
         ComboBox2.Items.Clear() : While (dr.Read()) : ComboBox2.Items.Add(dr("業務")) : End While : conn.Close()
     End Sub
     Private Sub ComboBox1下拉表單資料載入()
-        SQL_會計科目_第一階()
+        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_會計科目_第二階()
+        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_會計科目_第三階()
+        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
     End Sub
@@ -115,7 +115,7 @@ Public Class 業務佣金計算
         ComboBox7.SelectedIndex = ComboBox6.SelectedIndex
     End Sub
     Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged
-        PA = TextBox9.Text : SQL_會計科目_關鍵字()
+        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 = ""
     End Sub
@@ -190,7 +190,7 @@ Public Class 業務佣金計算
 
                             PA1 = TextBox2.Text : PA2 = 新項次 : PA3 = ComboBox6.Text : PA6 = DataGridView1.Rows(i).Cells("資料流水號").Value
                             PA4 = DataGridView1.Rows(i).Cells("簡稱").Value & "-" & DataGridView1.Rows(i).Cells("品名").Value & "-" & DataGridView1.Rows(i).Cells("業務").Value & "業務佣金"
-                            NU1 = DataGridView1.Rows(i).Cells("佣金").Value : PA5 = "" : NU2 = 0 : NU3 = 0 : NU4 = 0
+                            NU1 = DataGridView1.Rows(i).Cells("佣金").Value : PA5 = "" : NU2 = 0 : NU3 = 0 : NU4 = 0 : PA6 = "付現" : PA7 = gUserName
                             SQL_營運成本明細表新增() : SQL_業務佣金計算表_轉立收支單修改()
                         End If
                     End If

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

@@ -1,606 +0,0 @@
-<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 DataGridViewCellStyle2 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()
-        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(148, 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(998, 4)
-        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(966, 8)
-        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
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle2
-        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(339, 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(181, 120)
-        '
-        '重新整理ToolStripMenuItem
-        '
-        Me.重新整理ToolStripMenuItem.Name = "重新整理ToolStripMenuItem"
-        Me.重新整理ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
-        Me.重新整理ToolStripMenuItem.Text = "重新整理"
-        '
-        '關鍵字查詢ToolStripMenuItem
-        '
-        Me.關鍵字查詢ToolStripMenuItem.Name = "關鍵字查詢ToolStripMenuItem"
-        Me.關鍵字查詢ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
-        Me.關鍵字查詢ToolStripMenuItem.Text = "關鍵字查詢"
-        '
-        '對帳記錄存檔ToolStripMenuItem
-        '
-        Me.對帳記錄存檔ToolStripMenuItem.ForeColor = System.Drawing.Color.Green
-        Me.對帳記錄存檔ToolStripMenuItem.Name = "對帳記錄存檔ToolStripMenuItem"
-        Me.對帳記錄存檔ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
-        Me.對帳記錄存檔ToolStripMenuItem.Text = "對帳記錄存檔"
-        '
-        'ToolStripSeparator2
-        '
-        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
-        Me.ToolStripSeparator2.Size = New System.Drawing.Size(167, 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(170, 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(1123, 4)
-        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(1090, 8)
-        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(1249, 4)
-        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(1215, 8)
-        Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(32, 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(1249, 29)
-        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(1215, 32)
-        Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(32, 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(1123, 29)
-        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(1090, 33)
-        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(998, 29)
-        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(966, 33)
-        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(1345, 5)
-        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(1345, 30)
-        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(1486, 4)
-        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(874, 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(828, 33)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(44, 16)
-        Me.Label1.TabIndex = 1031
-        Me.Label1.Text = "零用金"
-        '
-        'TextBox9
-        '
-        Me.TextBox9.ForeColor = System.Drawing.Color.Green
-        Me.TextBox9.Location = New System.Drawing.Point(874, 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(828, 8)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(44, 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(732, 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(662, 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(732, 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(662, 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(566, 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(496, 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(566, 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(496, 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(33, 31)
-        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(1486, 27)
-        Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(111, 23)
-        Me.Button3.TabIndex = 1108
-        Me.Button3.Text = "重新整理"
-        Me.Button3.UseVisualStyleBackColor = True
-        '
-        '營運成本收支單_對帳表
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1774, 722)
-        Me.ContextMenuStrip = Me.ContextMenuStrip1
-        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
-End Class

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

@@ -1,129 +0,0 @@
-<?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

@@ -1,170 +0,0 @@
-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 = 25
-        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 = 200 : DataGridView1.Columns(7).FillWeight = 233
-        DataGridView1.Columns(8).FillWeight = 80 : DataGridView1.Columns(9).FillWeight = 80 : DataGridView1.Columns(10).FillWeight = 80 : DataGridView1.Columns(11).FillWeight = 80
-        DataGridView1.Columns(12).FillWeight = 80 : DataGridView1.Columns(13).FillWeight = 50 : DataGridView1.Columns(14).FillWeight = 85 : DataGridView1.Columns(15).FillWeight = 50
-        DataGridView1.Columns(16).FillWeight = 85 : DataGridView1.Columns(17).FillWeight = 80 : DataGridView1.Columns(18).FillWeight = 80 : DataGridView1.Columns(19).FillWeight = 80
-        DataGridView1.Columns(20).FillWeight = 80
-
-        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"
-        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
-            TextBox8.Text = Val(TextBox8.Text) + DataGridView1.Rows(i).Cells("零用金").Value
-            If DataGridView1(9, i).Value <> 0 And DataGridView1(18, i).Value = True Then
-                TextBox10.Text = Val(TextBox10.Text) + DataGridView1.Rows(i).Cells("支票").Value
-            ElseIf DataGridView1(9, i).Value <> 0 And DataGridView1(18, i).Value = False Then
-                TextBox12.Text = Val(TextBox12.Text) + DataGridView1.Rows(i).Cells("支票").Value
-            End If
-        Next i
-        TextBox4.Text = Val(TextBox10.Text) + Val(TextBox8.Text) + Val(TextBox6.Text) - Val(TextBox5.Text)
-        If Val(TextBox4.Text) > 0 Then : TextBox4.ForeColor = Color.Blue : Else : TextBox4.ForeColor = Color.Red : End If
-        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
-            '-------------日期二----------------------------------------------------------------------------------------
-            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
-        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
-        日期格式() : 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
-        TextBox7.Text = "0" : TextBox2.Text = "0" : TextBox3.Text = "0" : TextBox9.Text = "0" : TextBox11.Text = "0" : TextBox13.Text = "0"
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            If DataGridView1.Rows(i).Cells("收支單號").Value = TextBox1.Text Then
-                FFGG = Val(FFGG) + DataGridView1.Rows(i).Cells("現金").Value : GGHH = Val(GGHH) + DataGridView1.Rows(i).Cells("支出").Value
-                HHJJ = Val(HHJJ) + DataGridView1.Rows(i).Cells("零用金").Value
-                If DataGridView1(9, i).Value <> 0 And DataGridView1(18, i).Value = True Then : JJKK = Val(JJKK) + DataGridView1.Rows(i).Cells("支票").Value
-                ElseIf DataGridView1(9, i).Value <> 0 And DataGridView1(18, i).Value = False Then : KKLL = Val(KKLL) + DataGridView1.Rows(i).Cells("支票").Value : End If
-            End If
-        Next i
-        TextBox7.Text = FFGG : TextBox2.Text = GGHH : TextBox9.Text = HHJJ : TextBox11.Text = JJKK : TextBox13.Text = KKLL : TextBox3.Text = JJKK + HHJJ + FFGG - GGHH
-        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(9, i).Value <> 0 And DataGridView1(18, i).Value = True Then : DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
-            ElseIf DataGridView1(9, i).Value <> 0 And DataGridView1(18, i).Value = False Then : DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow : 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
-        DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(-1) : DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(-1)
-        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
-        DateTimePicker1.Value = DateTimePicker1.Value.AddMonths(1) : DateTimePicker2.Value = DateTimePicker2.Value.AddMonths(1)
-        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

@@ -1,583 +0,0 @@
-<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 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()
-        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()
-        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
-        '
-        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
-        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
-        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle10
-        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
-        '
-        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView4.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
-        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
-        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DataGridView2.RowsDefaultCellStyle = DataGridViewCellStyle12
-        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
-        '
-        '營運成本收支單一覽表
-        '
-        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.一般月)
-        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
-End Class

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

@@ -1,123 +0,0 @@
-<?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

@@ -1,380 +0,0 @@
-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
-            '-------------日期二----------------------------------------------------------------------------------------
-            Dim iDays As Integer = DateTime.DaysInMonth(Strings.Left(Strings.Format(DateTimePicker3.Value, "yyyy/MM/dd"), 4), Strings.Mid(Strings.Format(DateTimePicker3.Value, "yyyy/MM/dd"), 6, 2))
-            DTP = Strings.Left(Strings.Format(DateTimePicker3.Value, "yyyy/MM/dd"), 8) & iDays : DateTimePicker3.Value = DTP
-        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
-    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
-        DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(-1) : DateTimePicker3.Value = DateTimePicker3.Value.AddMonths(-1)
-    End Sub
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        DateTimePicker4.Value = DateTimePicker4.Value.AddMonths(1) : DateTimePicker3.Value = DateTimePicker3.Value.AddMonths(1)
-    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

@@ -1,480 +0,0 @@
-<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

@@ -1,126 +0,0 @@
-<?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

@@ -1,197 +0,0 @@
-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 = 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" : 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

MaoOrange-Hongji/財務系統管理/營運成本收支單申請.Designer.vb

@@ -1,631 +0,0 @@
-<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.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(672, 30)
-        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(638, 33)
-        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(924, 2)
-        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
-        '
-        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, 83)
-        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(909, 522)
-        Me.DataGridView1.TabIndex = 838
-        '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(554, 8)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(44, 16)
-        Me.Label3.TabIndex = 837
-        Me.Label3.Text = "申請人"
-        '
-        'TextBox3
-        '
-        Me.TextBox3.Location = New System.Drawing.Point(598, 5)
-        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 = 836
-        Me.TextBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        'TextBox1
-        '
-        Me.TextBox1.Location = New System.Drawing.Point(431, 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(104, 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(146, 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(158, 20)
-        Me.RadioButton1.TabIndex = 828
-        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(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, 51)
-        Me.Button2.TabIndex = 846
-        Me.Button2.Text = "申請完成"
-        Me.Button2.UseVisualStyleBackColor = True
-        '
-        'Label2
-        '
-        Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(481, 61)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(56, 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(696, 8)
-        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(728, 5)
-        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(827, 6)
-        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(821, 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(787, 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(999, 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 = 883
-        Me.TextBox6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        'Label9
-        '
-        Me.Label9.AutoSize = True
-        Me.Label9.Location = New System.Drawing.Point(941, 33)
-        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(374, 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 = 885
-        Me.TextBox7.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        'Label10
-        '
-        Me.Label10.AutoSize = True
-        Me.Label10.Location = New System.Drawing.Point(328, 33)
-        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(523, 30)
-        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(489, 33)
-        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(158, 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(341, 97)
-        Me.DateTimePicker2.Name = "DateTimePicker2"
-        Me.DateTimePicker2.Size = New System.Drawing.Size(90, 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(856, 56)
-        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(731, 56)
-        Me.ComboBox3.Name = "ComboBox3"
-        Me.ComboBox3.Size = New System.Drawing.Size(121, 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(667, 56)
-        Me.ComboBox2.Name = "ComboBox2"
-        Me.ComboBox2.Size = New System.Drawing.Size(61, 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(543, 56)
-        Me.ComboBox5.Name = "ComboBox5"
-        Me.ComboBox5.Size = New System.Drawing.Size(121, 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(1118, 56)
-        Me.TextBox9.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.TextBox9.Name = "TextBox9"
-        Me.TextBox9.Size = New System.Drawing.Size(119, 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(937, 2)
-        Me.ComboBox6.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.ComboBox6.Name = "ComboBox6"
-        Me.ComboBox6.Size = New System.Drawing.Size(175, 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

@@ -1,129 +0,0 @@
-<?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

@@ -1,236 +0,0 @@
-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 = 300 : DataGridView1.Columns(3).FillWeight = 500
-        DataGridView1.Columns(4).FillWeight = 140 : DataGridView1.Columns(5).FillWeight = 140 : DataGridView1.Columns(6).FillWeight = 140 : DataGridView1.Columns(7).FillWeight = 140
-        DataGridView1.Columns(8).FillWeight = 140 : DataGridView1.Columns(9).Visible = False
-
-        DataGridView1.Columns(1).ReadOnly = True : DataGridView1.Columns(2).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" : 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 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
-        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
-        Next i
-        TextBox6.Text = Val(TextBox7.Text) + Val(TextBox5.Text) - Val(TextBox2.Text)
-        If Val(TextBox6.Text) > 0 Then : TextBox6.ForeColor = Color.Blue : Else : TextBox6.ForeColor = Color.Red : End If
-        TextBox5.Text = Format(Val(TextBox5.Text), "#,##0") : TextBox2.Text = Format(Val(TextBox2.Text), "#,##0") : TextBox6.Text = Format(Val(TextBox6.Text), "#,##0")
-        TextBox7.Text = Format(Val(TextBox7.Text), "#,##0") : TextBox8.Text = Format(Val(TextBox8.Text), "#,##0")
-        Dim EU As String
-        EU = DataGridView1("票期", e.RowIndex).Value.ToString
-        If EU = "" Then
-        Else
-            DateTimePicker2.Text = EU : 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
-        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
-            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
-        開立零用金支付單() : 開立零用金支付單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
-            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
-            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
-            存檔() : 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
-            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