20220815備份

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

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

工巧明智能管理系統/我的系統/02-財務系統管理/GCM/財務_對帳單_GCM.Designer.vb

@@ -0,0 +1,629 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class 財務_對帳單_GCM
+    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()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.收支單號_tb = New System.Windows.Forms.TextBox()
+        Me.收入_單_tb = New System.Windows.Forms.TextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.清單_dgv = New System.Windows.Forms.DataGridView()
+        Me.月_ch = New System.Windows.Forms.ComboBox()
+        Me.年_cb = New System.Windows.Forms.ComboBox()
+        Me.Label2 = 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.對帳記錄存檔ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.BBBToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.支出_單_tb = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.損益_單_tb = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.損益_總_tb = New System.Windows.Forms.TextBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.支出_總_tb = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.收入_總_tb = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.隱藏申請_ch = New System.Windows.Forms.CheckBox()
+        Me.隱藏作帳_ch = New System.Windows.Forms.CheckBox()
+        Me.只顯示支票資料_ch = New System.Windows.Forms.CheckBox()
+        Me.零用金_總_tb = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.零用金_單_tb = 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.已兌現支票_單_tb = New System.Windows.Forms.TextBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.支票_總_tb = New System.Windows.Forms.TextBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.支票_單_tb = New System.Windows.Forms.TextBox()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+        Me.非稅_ch = New System.Windows.Forms.CheckBox()
+        Me.含稅_ch = New System.Windows.Forms.CheckBox()
+        Me.全部_ch = New System.Windows.Forms.CheckBox()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.Label16 = New System.Windows.Forms.Label()
+        CType(Me.清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuStrip1.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.ForeColor = System.Drawing.Color.Green
+        Me.Label4.Location = New System.Drawing.Point(210, 6)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(31, 16)
+        Me.Label4.TabIndex = 1015
+        Me.Label4.Text = "單號"
+        '
+        '收支單號_tb
+        '
+        Me.收支單號_tb.ForeColor = System.Drawing.Color.Green
+        Me.收支單號_tb.Location = New System.Drawing.Point(242, 3)
+        Me.收支單號_tb.Name = "收支單號_tb"
+        Me.收支單號_tb.Size = New System.Drawing.Size(148, 23)
+        Me.收支單號_tb.TabIndex = 1014
+        Me.收支單號_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '收入_單_tb
+        '
+        Me.收入_單_tb.ForeColor = System.Drawing.Color.Green
+        Me.收入_單_tb.Location = New System.Drawing.Point(898, 2)
+        Me.收入_單_tb.Name = "收入_單_tb"
+        Me.收入_單_tb.Size = New System.Drawing.Size(90, 23)
+        Me.收入_單_tb.TabIndex = 1013
+        Me.收入_單_tb.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(866, 6)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(31, 16)
+        Me.Label9.TabIndex = 1012
+        Me.Label9.Text = "收入"
+        '
+        '清單_dgv
+        '
+        Me.清單_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.清單_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.清單_dgv.Location = New System.Drawing.Point(2, 53)
+        Me.清單_dgv.Name = "清單_dgv"
+        Me.清單_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.清單_dgv.RowTemplate.Height = 24
+        Me.清單_dgv.Size = New System.Drawing.Size(1245, 535)
+        Me.清單_dgv.TabIndex = 1006
+        '
+        '月_ch
+        '
+        Me.月_ch.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.月_ch.FormattingEnabled = True
+        Me.月_ch.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"})
+        Me.月_ch.Location = New System.Drawing.Point(149, 3)
+        Me.月_ch.Name = "月_ch"
+        Me.月_ch.Size = New System.Drawing.Size(55, 24)
+        Me.月_ch.TabIndex = 1001
+        '
+        '年_cb
+        '
+        Me.年_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.年_cb.FormattingEnabled = True
+        Me.年_cb.Items.AddRange(New Object() {"2019"})
+        Me.年_cb.Location = New System.Drawing.Point(73, 3)
+        Me.年_cb.Name = "年_cb"
+        Me.年_cb.Size = New System.Drawing.Size(70, 24)
+        Me.年_cb.TabIndex = 1000
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label2.Location = New System.Drawing.Point(11, 8)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(55, 16)
+        Me.Label2.TabIndex = 999
+        Me.Label2.Text = "查詢日期"
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新整理ToolStripMenuItem, Me.關鍵字查詢ToolStripMenuItem, Me.清除ToolStripMenuItem, Me.對帳記錄存檔ToolStripMenuItem, Me.ToolStripSeparator2, Me.BBBToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 142)
+        '
+        '重新整理ToolStripMenuItem
+        '
+        Me.重新整理ToolStripMenuItem.Name = "重新整理ToolStripMenuItem"
+        Me.重新整理ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.重新整理ToolStripMenuItem.Text = "重新整理"
+        '
+        '關鍵字查詢ToolStripMenuItem
+        '
+        Me.關鍵字查詢ToolStripMenuItem.Name = "關鍵字查詢ToolStripMenuItem"
+        Me.關鍵字查詢ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.關鍵字查詢ToolStripMenuItem.Text = "關鍵字查詢"
+        '
+        '清除ToolStripMenuItem
+        '
+        Me.清除ToolStripMenuItem.Name = "清除ToolStripMenuItem"
+        Me.清除ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.清除ToolStripMenuItem.Text = "清除介面查詢資料"
+        Me.清除ToolStripMenuItem.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        '對帳記錄存檔ToolStripMenuItem
+        '
+        Me.對帳記錄存檔ToolStripMenuItem.ForeColor = System.Drawing.Color.Green
+        Me.對帳記錄存檔ToolStripMenuItem.Name = "對帳記錄存檔ToolStripMenuItem"
+        Me.對帳記錄存檔ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.對帳記錄存檔ToolStripMenuItem.Text = "對帳記錄存檔"
+        '
+        'ToolStripSeparator2
+        '
+        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(177, 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(180, 22)
+        Me.BBBToolStripMenuItem.Text = "列印成EXCEL"
+        '
+        '支出_單_tb
+        '
+        Me.支出_單_tb.ForeColor = System.Drawing.Color.Green
+        Me.支出_單_tb.Location = New System.Drawing.Point(1023, 2)
+        Me.支出_單_tb.Name = "支出_單_tb"
+        Me.支出_單_tb.Size = New System.Drawing.Size(90, 23)
+        Me.支出_單_tb.TabIndex = 1017
+        Me.支出_單_tb.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(990, 6)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(31, 16)
+        Me.Label5.TabIndex = 1016
+        Me.Label5.Text = "支出"
+        '
+        '損益_單_tb
+        '
+        Me.損益_單_tb.ForeColor = System.Drawing.Color.Green
+        Me.損益_單_tb.Location = New System.Drawing.Point(1149, 2)
+        Me.損益_單_tb.Name = "損益_單_tb"
+        Me.損益_單_tb.Size = New System.Drawing.Size(90, 23)
+        Me.損益_單_tb.TabIndex = 1019
+        Me.損益_單_tb.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(1115, 6)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(31, 16)
+        Me.Label6.TabIndex = 1018
+        Me.Label6.Text = "損益"
+        '
+        '損益_總_tb
+        '
+        Me.損益_總_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.損益_總_tb.Location = New System.Drawing.Point(1149, 27)
+        Me.損益_總_tb.Name = "損益_總_tb"
+        Me.損益_總_tb.Size = New System.Drawing.Size(90, 23)
+        Me.損益_總_tb.TabIndex = 1025
+        Me.損益_總_tb.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(1115, 30)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(31, 16)
+        Me.Label7.TabIndex = 1024
+        Me.Label7.Text = "損益"
+        '
+        '支出_總_tb
+        '
+        Me.支出_總_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.支出_總_tb.Location = New System.Drawing.Point(1023, 27)
+        Me.支出_總_tb.Name = "支出_總_tb"
+        Me.支出_總_tb.Size = New System.Drawing.Size(90, 23)
+        Me.支出_總_tb.TabIndex = 1023
+        Me.支出_總_tb.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(990, 31)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(31, 16)
+        Me.Label8.TabIndex = 1022
+        Me.Label8.Text = "支出"
+        '
+        '收入_總_tb
+        '
+        Me.收入_總_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.收入_總_tb.Location = New System.Drawing.Point(898, 27)
+        Me.收入_總_tb.Name = "收入_總_tb"
+        Me.收入_總_tb.Size = New System.Drawing.Size(90, 23)
+        Me.收入_總_tb.TabIndex = 1021
+        Me.收入_總_tb.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(866, 31)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(31, 16)
+        Me.Label10.TabIndex = 1020
+        Me.Label10.Text = "收入"
+        '
+        '隱藏申請_ch
+        '
+        Me.隱藏申請_ch.AutoSize = True
+        Me.隱藏申請_ch.Checked = True
+        Me.隱藏申請_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.隱藏申請_ch.Location = New System.Drawing.Point(3, 31)
+        Me.隱藏申請_ch.Name = "隱藏申請_ch"
+        Me.隱藏申請_ch.Size = New System.Drawing.Size(134, 20)
+        Me.隱藏申請_ch.TabIndex = 1026
+        Me.隱藏申請_ch.Text = "隱藏申請、審核資訊"
+        Me.隱藏申請_ch.UseVisualStyleBackColor = True
+        '
+        '隱藏作帳_ch
+        '
+        Me.隱藏作帳_ch.AutoSize = True
+        Me.隱藏作帳_ch.Checked = True
+        Me.隱藏作帳_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.隱藏作帳_ch.Location = New System.Drawing.Point(144, 31)
+        Me.隱藏作帳_ch.Name = "隱藏作帳_ch"
+        Me.隱藏作帳_ch.Size = New System.Drawing.Size(134, 20)
+        Me.隱藏作帳_ch.TabIndex = 1027
+        Me.隱藏作帳_ch.Text = "隱藏作帳、點交資訊"
+        Me.隱藏作帳_ch.UseVisualStyleBackColor = True
+        '
+        '只顯示支票資料_ch
+        '
+        Me.只顯示支票資料_ch.AutoSize = True
+        Me.只顯示支票資料_ch.Location = New System.Drawing.Point(285, 31)
+        Me.只顯示支票資料_ch.Name = "只顯示支票資料_ch"
+        Me.只顯示支票資料_ch.Size = New System.Drawing.Size(110, 20)
+        Me.只顯示支票資料_ch.TabIndex = 1028
+        Me.只顯示支票資料_ch.Text = "只顯示支票資料"
+        Me.只顯示支票資料_ch.UseVisualStyleBackColor = True
+        '
+        '零用金_總_tb
+        '
+        Me.零用金_總_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.零用金_總_tb.Location = New System.Drawing.Point(774, 27)
+        Me.零用金_總_tb.Name = "零用金_總_tb"
+        Me.零用金_總_tb.Size = New System.Drawing.Size(90, 23)
+        Me.零用金_總_tb.TabIndex = 1032
+        Me.零用金_總_tb.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(728, 31)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(43, 16)
+        Me.Label1.TabIndex = 1031
+        Me.Label1.Text = "零用金"
+        '
+        '零用金_單_tb
+        '
+        Me.零用金_單_tb.ForeColor = System.Drawing.Color.Green
+        Me.零用金_單_tb.Location = New System.Drawing.Point(774, 2)
+        Me.零用金_單_tb.Name = "零用金_單_tb"
+        Me.零用金_單_tb.Size = New System.Drawing.Size(90, 23)
+        Me.零用金_單_tb.TabIndex = 1030
+        Me.零用金_單_tb.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(728, 6)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(43, 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(78, 28)
+        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(8, 32)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(67, 16)
+        Me.Label11.TabIndex = 1035
+        Me.Label11.Text = "已兌現支票"
+        '
+        '已兌現支票_單_tb
+        '
+        Me.已兌現支票_單_tb.ForeColor = System.Drawing.Color.Green
+        Me.已兌現支票_單_tb.Location = New System.Drawing.Point(78, 3)
+        Me.已兌現支票_單_tb.Name = "已兌現支票_單_tb"
+        Me.已兌現支票_單_tb.Size = New System.Drawing.Size(90, 23)
+        Me.已兌現支票_單_tb.TabIndex = 1034
+        Me.已兌現支票_單_tb.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(8, 7)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(67, 16)
+        Me.Label12.TabIndex = 1033
+        Me.Label12.Text = "已兌現支票"
+        '
+        '支票_總_tb
+        '
+        Me.支票_總_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.支票_總_tb.Location = New System.Drawing.Point(635, 28)
+        Me.支票_總_tb.Name = "支票_總_tb"
+        Me.支票_總_tb.Size = New System.Drawing.Size(90, 23)
+        Me.支票_總_tb.TabIndex = 1040
+        Me.支票_總_tb.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(602, 32)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(31, 16)
+        Me.Label13.TabIndex = 1039
+        Me.Label13.Text = "支票"
+        '
+        '支票_單_tb
+        '
+        Me.支票_單_tb.ForeColor = System.Drawing.Color.Green
+        Me.支票_單_tb.Location = New System.Drawing.Point(635, 3)
+        Me.支票_單_tb.Name = "支票_單_tb"
+        Me.支票_單_tb.Size = New System.Drawing.Size(90, 23)
+        Me.支票_單_tb.TabIndex = 1038
+        Me.支票_單_tb.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(602, 7)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(31, 16)
+        Me.Label14.TabIndex = 1037
+        Me.Label14.Text = "支票"
+        '
+        'ProgressBar1
+        '
+        Me.ProgressBar1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.ProgressBar1.Location = New System.Drawing.Point(3, 591)
+        Me.ProgressBar1.Name = "ProgressBar1"
+        Me.ProgressBar1.Size = New System.Drawing.Size(1065, 17)
+        Me.ProgressBar1.TabIndex = 1041
+        '
+        '非稅_ch
+        '
+        Me.非稅_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.非稅_ch.AutoSize = True
+        Me.非稅_ch.Location = New System.Drawing.Point(1193, 589)
+        Me.非稅_ch.Name = "非稅_ch"
+        Me.非稅_ch.Size = New System.Drawing.Size(50, 20)
+        Me.非稅_ch.TabIndex = 1188
+        Me.非稅_ch.Text = "非稅"
+        Me.非稅_ch.UseVisualStyleBackColor = True
+        '
+        '含稅_ch
+        '
+        Me.含稅_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.含稅_ch.AutoSize = True
+        Me.含稅_ch.Location = New System.Drawing.Point(1136, 589)
+        Me.含稅_ch.Name = "含稅_ch"
+        Me.含稅_ch.Size = New System.Drawing.Size(50, 20)
+        Me.含稅_ch.TabIndex = 1187
+        Me.含稅_ch.Text = "含稅"
+        Me.含稅_ch.UseVisualStyleBackColor = True
+        '
+        '全部_ch
+        '
+        Me.全部_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.全部_ch.AutoSize = True
+        Me.全部_ch.Checked = True
+        Me.全部_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.全部_ch.Location = New System.Drawing.Point(1079, 589)
+        Me.全部_ch.Name = "全部_ch"
+        Me.全部_ch.Size = New System.Drawing.Size(50, 20)
+        Me.全部_ch.TabIndex = 1186
+        Me.全部_ch.Text = "全部"
+        Me.全部_ch.UseVisualStyleBackColor = True
+        '
+        'Panel1
+        '
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.已兌現支票_單_tb)
+        Me.Panel1.Controls.Add(Me.Label12)
+        Me.Panel1.Controls.Add(Me.Label11)
+        Me.Panel1.Controls.Add(Me.TextBox10)
+        Me.Panel1.Location = New System.Drawing.Point(602, 140)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(200, 134)
+        Me.Panel1.TabIndex = 1189
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label15.Location = New System.Drawing.Point(505, 31)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(91, 16)
+        Me.Label15.TabIndex = 1191
+        Me.Label15.Text = "整月收支單總和"
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.ForeColor = System.Drawing.Color.Green
+        Me.Label16.Location = New System.Drawing.Point(505, 7)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(91, 16)
+        Me.Label16.TabIndex = 1190
+        Me.Label16.Text = "單筆收支單總和"
+        '
+        '財務_對帳單_GCM
+        '
+        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.清單_dgv)
+        Me.Controls.Add(Me.Label15)
+        Me.Controls.Add(Me.Label16)
+        Me.Controls.Add(Me.非稅_ch)
+        Me.Controls.Add(Me.含稅_ch)
+        Me.Controls.Add(Me.全部_ch)
+        Me.Controls.Add(Me.ProgressBar1)
+        Me.Controls.Add(Me.支票_總_tb)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.支票_單_tb)
+        Me.Controls.Add(Me.Label14)
+        Me.Controls.Add(Me.零用金_總_tb)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.零用金_單_tb)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.只顯示支票資料_ch)
+        Me.Controls.Add(Me.隱藏作帳_ch)
+        Me.Controls.Add(Me.隱藏申請_ch)
+        Me.Controls.Add(Me.損益_總_tb)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.支出_總_tb)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.收入_總_tb)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.損益_單_tb)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.支出_單_tb)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.收支單號_tb)
+        Me.Controls.Add(Me.收入_單_tb)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.月_ch)
+        Me.Controls.Add(Me.年_cb)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Panel1)
+        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 = "財務_對帳單_GCM"
+        Me.Text = "財務_對帳表_GCM"
+        CType(Me.清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 收支單號_tb As TextBox
+    Friend WithEvents 收入_單_tb As TextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 清單_dgv As DataGridView
+    Friend WithEvents 月_ch As ComboBox
+    Friend WithEvents 年_cb As ComboBox
+    Friend WithEvents Label2 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 清除ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 支出_單_tb As TextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents 損益_單_tb As TextBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents 損益_總_tb As TextBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents 支出_總_tb As TextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents 收入_總_tb As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents 隱藏申請_ch As CheckBox
+    Friend WithEvents 隱藏作帳_ch As CheckBox
+    Friend WithEvents 只顯示支票資料_ch As CheckBox
+    Friend WithEvents 零用金_總_tb As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 零用金_單_tb As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents TextBox10 As TextBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents 已兌現支票_單_tb As TextBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents 支票_總_tb As TextBox
+    Friend WithEvents Label13 As Label
+    Friend WithEvents 支票_單_tb As TextBox
+    Friend WithEvents Label14 As Label
+    Friend WithEvents 重新整理ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ProgressBar1 As ProgressBar
+    Friend WithEvents 非稅_ch As CheckBox
+    Friend WithEvents 含稅_ch As CheckBox
+    Friend WithEvents 全部_ch As CheckBox
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents Label15 As Label
+    Friend WithEvents Label16 As Label
+End Class

工巧明智能管理系統/我的系統/財務系統管理/財務_對帳單.vb → 工巧明智能管理系統/我的系統/02-財務系統管理/GCM/財務_對帳單_GCM.vb

@@ -1,5 +1,5 @@
 Option Strict Off
-Public Class 財務_對帳單
+Public Class 財務_對帳單_GCM
     ReadOnly ds As New DataSet
     Dim KKKJJ As String : Dim KKKJJ2 As String : Dim KKKJJ3 As String : Dim KKK3 As String : Dim KKK4 As String : Dim 匯率1 As Double
     Private Sub Set_清單1()
@@ -24,7 +24,7 @@ Public Class 財務_對帳單
                 FROM        財務流水帳 INNER JOIN
                             會計科目 ON 財務流水帳.類別 = 會計科目.編號 FULL OUTER JOIN
                             財務控制表 ON 財務流水帳.支付單號 = 財務控制表.支付單號
-                WHERE      (財務控制表.審核人 NOT LIKE '') AND 
+                WHERE      (財務控制表.審核人 NOT LIKE '') AND (會計科目.編號 NOT LIKE 'D%') AND
                            (財務控制表.審核人 NOT LIKE '作廢%') " & KKKJJ3 & KKKJJ & KKKJJ2 & SQL2 & " 
                 ORDER BY    收支單號 DESC, 財務流水帳.項次"
         列印用SQL1 = SQL1
@@ -38,13 +38,13 @@ Public Class 財務_對帳單
         清單_dgv.Columns(16).FillWeight = 85 : 清單_dgv.Columns(17).Visible = False : 清單_dgv.Columns(18).Visible = False : 清單_dgv.Columns(19).Visible = False
         清單_dgv.Columns(20).Visible = False : 清單_dgv.Columns(21).FillWeight = 70 : 清單_dgv.Columns(22).FillWeight = 100
 
-        If CheckBox4.Checked = False Then
+        If 隱藏申請_ch.Checked = False Then
             清單_dgv.Columns(1).Visible = True : 清單_dgv.Columns(2).Visible = True : 清單_dgv.Columns(3).Visible = True : 清單_dgv.Columns(4).Visible = True
         Else
             清單_dgv.Columns(1).Visible = False : 清單_dgv.Columns(2).Visible = False : 清單_dgv.Columns(3).Visible = False : 清單_dgv.Columns(4).Visible = False
         End If
 
-        If CheckBox5.Checked = False Then
+        If 隱藏作帳_ch.Checked = False Then
             清單_dgv.Columns(13).Visible = True : 清單_dgv.Columns(14).Visible = True : 清單_dgv.Columns(15).Visible = True : 清單_dgv.Columns(16).Visible = True
         Else
             清單_dgv.Columns(13).Visible = False : 清單_dgv.Columns(14).Visible = False : 清單_dgv.Columns(15).Visible = False : 清單_dgv.Columns(16).Visible = False
@@ -59,47 +59,34 @@ Public Class 財務_對帳單
         清單_dgv.Columns(21).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單_dgv.Columns(21).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
         清單_dgv.Columns(22).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單_dgv.Columns(22).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
 
-        TextBox5.Text = "0" : TextBox6.Text = "0" : TextBox4.Text = "0" : TextBox8.Text = "0" : TextBox10.Text = "0" : TextBox12.Text = "0"
+        支出_總_tb.Text = "0" : 收入_總_tb.Text = "0" : 損益_總_tb.Text = "0" : 零用金_總_tb.Text = "0" : TextBox10.Text = "0" : 支票_總_tb.Text = "0"
         For i As Integer = 0 To 清單_dgv.Rows.Count - 1
-            TextBox6.Text = Val(TextBox6.Text) + 清單_dgv.Rows(i).Cells("現金").Value * 清單_dgv.Rows(i).Cells("匯率").Value
-            TextBox5.Text = Val(TextBox5.Text) + 清單_dgv.Rows(i).Cells("支出").Value * 清單_dgv.Rows(i).Cells("匯率").Value
-            TextBox8.Text = Val(TextBox8.Text) + 清單_dgv.Rows(i).Cells("零用金").Value * 清單_dgv.Rows(i).Cells("匯率").Value
+            收入_總_tb.Text = Val(收入_總_tb.Text) + 清單_dgv.Rows(i).Cells("現金").Value * 清單_dgv.Rows(i).Cells("匯率").Value
+            支出_總_tb.Text = Val(支出_總_tb.Text) + 清單_dgv.Rows(i).Cells("支出").Value * 清單_dgv.Rows(i).Cells("匯率").Value
+            零用金_總_tb.Text = Val(零用金_總_tb.Text) + 清單_dgv.Rows(i).Cells("零用金").Value * 清單_dgv.Rows(i).Cells("匯率").Value
             If 清單_dgv(9, i).Value <> 0 And 清單_dgv(18, i).Value = True Then
                 TextBox10.Text = Val(TextBox10.Text) + 清單_dgv.Rows(i).Cells("支票").Value * 清單_dgv.Rows(i).Cells("匯率").Value
             ElseIf 清單_dgv(9, i).Value <> 0 And 清單_dgv(18, i).Value = False Then
-                TextBox12.Text = Val(TextBox12.Text) + 清單_dgv.Rows(i).Cells("支票").Value * 清單_dgv.Rows(i).Cells("匯率").Value
+                支票_總_tb.Text = Val(支票_總_tb.Text) + 清單_dgv.Rows(i).Cells("支票").Value * 清單_dgv.Rows(i).Cells("匯率").Value
             End If
-            'If DataGridView1("幣別", i).Value = "台幣現金" Then : DataGridView1("幣別", i).Value = "台幣" : Else : DataGridView1("幣別", i).Value = "人民幣" : End If
         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")
+        損益_總_tb.Text = Val(TextBox10.Text) + Val(零用金_總_tb.Text) + Val(收入_總_tb.Text) - Val(支出_總_tb.Text)
+        If CLng(損益_總_tb.Text) > 0 Then : 損益_總_tb.ForeColor = Color.Blue : Else : 損益_總_tb.ForeColor = Color.Red : End If
+        支出_總_tb.Text = Format(Val(支出_總_tb.Text), "#,##0") : 損益_總_tb.Text = Format(Val(損益_總_tb.Text), "#,##0") : 收入_總_tb.Text = Format(Val(收入_總_tb.Text), "#,##0")
+        零用金_總_tb.Text = Format(Val(零用金_總_tb.Text), "#,##0") : TextBox10.Text = Format(Val(TextBox10.Text), "#,##0") : 支票_總_tb.Text = Format(Val(支票_總_tb.Text), "#,##0")
     End Sub
     Private Sub ComboBox1下拉表單資料載入()
         conn.Close()
         ConnOpen()
         SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC"
         CmdSet_For_dr()
-        ComboBox1.Items.Clear()
-        While (dr.Read()) : ComboBox1.Items.Add(dr("年份")) : End While
+        年_cb.Items.Clear()
+        While (dr.Read()) : 年_cb.Items.Add(dr("年份")) : End While
         conn.Close()
     End Sub
-    'Private Sub 匯率()
-    '    ConnOpen()
-    '    SQL1 = "SELECT 中心匯率, 美金匯率, 印尼匯率 FROM 歷史匯率表 
-    '            WHERE (年 LIKE '" & ComboBox1.Text & "') AND 
-    '                  (月 LIKE '" & ComboBox2.Text & "')"
-    '    cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
-    '    If dr.Read() Then
-    '        人民幣匯率_tb.Text = dr("中心匯率").ToString : 美金匯率_tb.Text = dr("美金匯率").ToString : 印尼匯率_tb.Text = dr("印尼匯率").ToString : conn.Close() : dr.Close()
-    '    Else
-    '        conn.Close() : dr.Close() : 匯率修改.Close() : 匯率修改.Show() : 匯率修改.BringToFront()
-    '    End If
-    'End Sub
     Private Sub 營運成本收支單_對帳表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        TextBox7.Text = "0" : TextBox2.Text = "0" : TextBox3.Text = "0" : TextBox9.Text = "0" : TextBox11.Text = "0" : TextBox13.Text = "0"
+        收入_單_tb.Text = "0" : 支出_單_tb.Text = "0" : 損益_單_tb.Text = "0" : 零用金_單_tb.Text = "0" : 已兌現支票_單_tb.Text = "0" : 支票_單_tb.Text = "0"
         ConnOpen() : SQL1 = "UPDATE 財務流水帳 SET 會計 = N'0' WHERE (會計 IS NULL)" : CmdSet_For_dr() : conn.Close()
         ConnOpen() : SQL1 = "UPDATE 財務流水帳 SET 出納 = N'0' WHERE (出納 IS NULL)" : CmdSet_For_dr() : conn.Close()
         ConnOpen() : SQL1 = "UPDATE 財務流水帳 SET 現金 = N'0' WHERE (現金 IS NULL)" : CmdSet_For_dr() : conn.Close()
@@ -108,9 +95,8 @@ Public Class 財務_對帳單
         ConnOpen() : SQL1 = "UPDATE 財務流水帳 SET 支票 = N'0' WHERE (支票 IS NULL)" : CmdSet_For_dr() : conn.Close()
         ConnOpen() : SQL1 = "UPDATE 財務流水帳 SET 日期 = N'' WHERE (日期 IS NULL)" : CmdSet_For_dr() : conn.Close()
         ConnOpen() : SQL1 = "UPDATE 財務流水帳 SET 出納日期 = N'' WHERE (出納日期 IS NULL)" : CmdSet_For_dr() : conn.Close()
-        Label62.Visible = False
         ComboBox1下拉表單資料載入()
-        ComboBox1.Text = Year(Today) : ComboBox2.SelectedIndex = Month(Today) - 1
+        年_cb.Text = Year(Today) : 月_ch.SelectedIndex = Month(Today) - 1
         KKKJJ3 = "AND (財務控制表.審核日期 LIKE '" & KKK3 & "/" & KKK4 & "%') "
     End Sub
     Dim 已超出 As Boolean
@@ -138,14 +124,11 @@ Public Class 財務_對帳單
     Private Sub 非稅_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 非稅_ch.Click
         全部_ch.Checked = False : 含稅_ch.Checked = False : 非稅_ch.Checked = True : Set_清單1()
     End Sub
-    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
-        If Label62.Visible = True Then : Label62.Visible = False : Else : Label62.Visible = True : End If
-    End Sub
     Private Sub 總金額計算()
         Dim FFGG As Integer = 0 : Dim GGHH As Integer = 0 : Dim HHJJ As Integer = 0 : Dim JJKK As Integer = 0 : Dim KKLL As Integer = 0
-        TextBox7.Text = "0" : TextBox2.Text = "0" : TextBox3.Text = "0" : TextBox9.Text = "0" : TextBox11.Text = "0" : TextBox13.Text = "0"
+        收入_單_tb.Text = "0" : 支出_單_tb.Text = "0" : 損益_單_tb.Text = "0" : 零用金_單_tb.Text = "0" : 已兌現支票_單_tb.Text = "0" : 支票_單_tb.Text = "0"
         For i As Integer = 0 To 清單_dgv.Rows.Count - 1
-            If 清單_dgv.Rows(i).Cells("收支單號").Value = TextBox1.Text Then
+            If 清單_dgv.Rows(i).Cells("收支單號").Value = 收支單號_tb.Text Then
                 FFGG = Val(FFGG) + 清單_dgv.Rows(i).Cells("現金").Value * 清單_dgv.Rows(i).Cells("匯率").Value
                 GGHH = Val(GGHH) + 清單_dgv.Rows(i).Cells("支出").Value * 清單_dgv.Rows(i).Cells("匯率").Value
                 HHJJ = Val(HHJJ) + 清單_dgv.Rows(i).Cells("零用金").Value * 清單_dgv.Rows(i).Cells("匯率").Value
@@ -156,19 +139,19 @@ Public Class 財務_對帳單
                 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 清單_dgv.CellClick
+        收入_單_tb.Text = FFGG : 支出_單_tb.Text = GGHH : 零用金_單_tb.Text = HHJJ : 已兌現支票_單_tb.Text = JJKK : 支票_單_tb.Text = KKLL
+        損益_單_tb.Text = JJKK + HHJJ + FFGG - GGHH
+        If CLng(損益_單_tb.Text) > 0 Then : 損益_單_tb.ForeColor = Color.Blue : Else : 損益_單_tb.ForeColor = Color.Red : End If
+        收入_單_tb.Text = Strings.Format(Val(收入_單_tb.Text), "#,##0") : 支出_單_tb.Text = Strings.Format(Val(支出_單_tb.Text), "#,##0")
+        損益_單_tb.Text = Strings.Format(Val(損益_單_tb.Text), "#,##0") : 支票_單_tb.Text = Strings.Format(Val(支票_單_tb.Text), "#,##0")
+        零用金_單_tb.Text = Strings.Format(Val(零用金_單_tb.Text), "#,##0") : 已兌現支票_單_tb.Text = Strings.Format(Val(已兌現支票_單_tb.Text), "#,##0")
+    End Sub
+    Private Sub 清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 清單_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox1.Text = 清單_dgv.Rows(e.RowIndex).Cells("收支單號").Value
-            總金額計算()
+            收支單號_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("收支單號").Value : 總金額計算()
         End If
     End Sub
-    Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 清單_dgv.RowPostPaint
+    Private Sub 清單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 清單_dgv.RowPostPaint
         Dim linePen As New Pen(Color.Blue, 2)
         If e.RowIndex = 清單_dgv.Rows.Count - 1 Then
             Exit Sub
@@ -189,40 +172,23 @@ Public Class 財務_對帳單
             End If
         Next
     End Sub
-    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
-        KKK3 = ComboBox1.Text
-        If KKK3 = "" Or KKK4 = "" Then
-        Else
-            KKKJJ3 = "AND (財務控制表.審核日期 LIKE '" & KKK3 & "/" & KKK4 & "%') "
-            Set_清單1()
-        End If
+    Private Sub 年_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年_cb.SelectedIndexChanged
+        KKK3 = 年_cb.Text : If KKK3 = "" Or KKK4 = "" Then : Else : KKKJJ3 = "AND (財務控制表.審核日期 LIKE '" & KKK3 & "/" & KKK4 & "%') " : Set_清單1() : End If
     End Sub
-    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
-        KKK4 = ComboBox2.Text
-        If KKK3 = "" Or KKK4 = "" Then
-        Else
-            KKKJJ3 = "AND (財務控制表.審核日期 LIKE '" & KKK3 & "/" & KKK4 & "%') "
-            Set_清單1()
-        End If
+    Private Sub 月_ch_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月_ch.SelectedIndexChanged
+        KKK4 = 月_ch.Text : If KKK3 = "" Or KKK4 = "" Then : Else : KKKJJ3 = "AND (財務控制表.審核日期 LIKE '" & KKK3 & "/" & KKK4 & "%') " : Set_清單1() : End If
     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
+    Private Sub 只顯示支票資料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 只顯示支票資料_ch.Click
+        If 只顯示支票資料_ch.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
+    Private Sub 隱藏申請_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 隱藏申請_ch.Click
         Set_grid()
     End Sub
-    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox5.Click
+    Private Sub 隱藏作帳_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 隱藏作帳_ch.Click
         Set_grid()
     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 清單_dgv.Rows.Count - 1
             資料數 = 清單_dgv.Rows.Count : MyMoule.進度條()
             ConnOpen()
@@ -245,9 +211,9 @@ Public Class 財務_對帳單
     End Sub
     Private Sub 清除ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 清除ToolStripMenuItem.Click
         ComboBox1下拉表單資料載入()
-        ComboBox2.Items.Clear()
-        ComboBox2.Items.Add("01") : ComboBox2.Items.Add("02") : ComboBox2.Items.Add("03") : ComboBox2.Items.Add("04") : ComboBox2.Items.Add("05") : ComboBox2.Items.Add("06")
-        ComboBox2.Items.Add("07") : ComboBox2.Items.Add("08") : ComboBox2.Items.Add("09") : ComboBox2.Items.Add("10") : ComboBox2.Items.Add("11") : ComboBox2.Items.Add("12")
+        月_ch.Items.Clear()
+        月_ch.Items.Add("01") : 月_ch.Items.Add("02") : 月_ch.Items.Add("03") : 月_ch.Items.Add("04") : 月_ch.Items.Add("05") : 月_ch.Items.Add("06")
+        月_ch.Items.Add("07") : 月_ch.Items.Add("08") : 月_ch.Items.Add("09") : 月_ch.Items.Add("10") : 月_ch.Items.Add("11") : 月_ch.Items.Add("12")
         KKK3 = "" : KKK4 = "" : KKKJJ3 = ""
         清單_dgv.DataSource = Nothing : ds.Clear()
     End Sub

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

@@ -1,5 +1,5 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class 財務_彙總表
+Partial Class 財務_彙總表_GCM
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
@@ -88,6 +88,7 @@ Partial Class 財務_彙總表
         Me.Chart2 = New System.Windows.Forms.DataVisualization.Charting.Chart()
         Me.Chart4 = New System.Windows.Forms.DataVisualization.Charting.Chart()
         Me.年份_cb = New System.Windows.Forms.ComboBox()
+        Me.Panel1 = New System.Windows.Forms.Panel()
         CType(Me.主表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.主表1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.主表2_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -102,6 +103,7 @@ Partial Class 財務_彙總表
         CType(Me.Chart3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Chart2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Chart4, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
         Me.SuspendLayout()
         '
         '主表_dgv
@@ -109,6 +111,7 @@ Partial Class 財務_彙總表
         DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
         Me.主表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.主表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.主表_dgv.BackgroundColor = System.Drawing.Color.White
         Me.主表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.主表_dgv.Location = New System.Drawing.Point(7, 30)
         Me.主表_dgv.Name = "主表_dgv"
@@ -124,6 +127,7 @@ Partial Class 財務_彙總表
         DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
         Me.主表1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.主表1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.主表1_dgv.BackgroundColor = System.Drawing.Color.White
         Me.主表1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.主表1_dgv.Location = New System.Drawing.Point(7, 229)
         Me.主表1_dgv.Name = "主表1_dgv"
@@ -149,7 +153,7 @@ Partial Class 財務_彙總表
         Me.Label1.AutoSize = True
         Me.Label1.Location = New System.Drawing.Point(9, 7)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(32, 16)
+        Me.Label1.Size = New System.Drawing.Size(31, 16)
         Me.Label1.TabIndex = 1101
         Me.Label1.Text = "項目"
         '
@@ -158,7 +162,7 @@ Partial Class 財務_彙總表
         Me.Label2.AutoSize = True
         Me.Label2.Location = New System.Drawing.Point(260, 8)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(32, 16)
+        Me.Label2.Size = New System.Drawing.Size(31, 16)
         Me.Label2.TabIndex = 1102
         Me.Label2.Text = "加總"
         '
@@ -176,6 +180,7 @@ Partial Class 財務_彙總表
         DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
         Me.主表2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
         Me.主表2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.主表2_dgv.BackgroundColor = System.Drawing.Color.White
         Me.主表2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.主表2_dgv.Location = New System.Drawing.Point(444, 30)
         Me.主表2_dgv.Name = "主表2_dgv"
@@ -191,6 +196,7 @@ Partial Class 財務_彙總表
         DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.主表5_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
         Me.主表5_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.主表5_dgv.BackgroundColor = System.Drawing.Color.White
         Me.主表5_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.主表5_dgv.Location = New System.Drawing.Point(1070, 30)
         Me.主表5_dgv.Name = "主表5_dgv"
@@ -215,7 +221,7 @@ Partial Class 財務_彙總表
         Me.Label3.AutoSize = True
         Me.Label3.Location = New System.Drawing.Point(886, 8)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(32, 16)
+        Me.Label3.Size = New System.Drawing.Size(31, 16)
         Me.Label3.TabIndex = 1121
         Me.Label3.Text = "加總"
         '
@@ -224,7 +230,7 @@ Partial Class 財務_彙總表
         Me.Label4.AutoSize = True
         Me.Label4.Location = New System.Drawing.Point(635, 7)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(32, 16)
+        Me.Label4.Size = New System.Drawing.Size(31, 16)
         Me.Label4.TabIndex = 1120
         Me.Label4.Text = "項目"
         '
@@ -243,6 +249,7 @@ Partial Class 財務_彙總表
         DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.主表4_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
         Me.主表4_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.主表4_dgv.BackgroundColor = System.Drawing.Color.White
         Me.主表4_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.主表4_dgv.Location = New System.Drawing.Point(633, 229)
         Me.主表4_dgv.Name = "主表4_dgv"
@@ -258,6 +265,7 @@ Partial Class 財務_彙總表
         DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.主表3_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
         Me.主表3_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.主表3_dgv.BackgroundColor = System.Drawing.Color.White
         Me.主表3_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.主表3_dgv.Location = New System.Drawing.Point(633, 30)
         Me.主表3_dgv.Name = "主表3_dgv"
@@ -273,6 +281,7 @@ Partial Class 財務_彙總表
         DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
         Me.主表8_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
         Me.主表8_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.主表8_dgv.BackgroundColor = System.Drawing.Color.White
         Me.主表8_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.主表8_dgv.Location = New System.Drawing.Point(1696, 30)
         Me.主表8_dgv.Name = "主表8_dgv"
@@ -297,7 +306,7 @@ Partial Class 財務_彙總表
         Me.Label5.AutoSize = True
         Me.Label5.Location = New System.Drawing.Point(1512, 8)
         Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(32, 16)
+        Me.Label5.Size = New System.Drawing.Size(31, 16)
         Me.Label5.TabIndex = 1128
         Me.Label5.Text = "加總"
         '
@@ -306,7 +315,7 @@ Partial Class 財務_彙總表
         Me.Label6.AutoSize = True
         Me.Label6.Location = New System.Drawing.Point(1261, 7)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(32, 16)
+        Me.Label6.Size = New System.Drawing.Size(31, 16)
         Me.Label6.TabIndex = 1127
         Me.Label6.Text = "項目"
         '
@@ -325,6 +334,7 @@ Partial Class 財務_彙總表
         DataGridViewCellStyle15.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
         Me.主表7_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle15
         Me.主表7_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.主表7_dgv.BackgroundColor = System.Drawing.Color.White
         Me.主表7_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.主表7_dgv.Location = New System.Drawing.Point(1259, 229)
         Me.主表7_dgv.Name = "主表7_dgv"
@@ -340,6 +350,7 @@ Partial Class 財務_彙總表
         DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
         Me.主表6_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
         Me.主表6_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.主表6_dgv.BackgroundColor = System.Drawing.Color.White
         Me.主表6_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.主表6_dgv.Location = New System.Drawing.Point(1259, 30)
         Me.主表6_dgv.Name = "主表6_dgv"
@@ -366,39 +377,36 @@ Partial Class 財務_彙總表
         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(1461, 403)
         Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(56, 16)
+        Me.Label7.Size = New System.Drawing.Size(55, 16)
         Me.Label7.TabIndex = 1131
         Me.Label7.Text = "營運餘額"
         '
         '隱加總_tb
         '
-        Me.隱加總_tb.Location = New System.Drawing.Point(1094, 290)
+        Me.隱加總_tb.Location = New System.Drawing.Point(120, 3)
         Me.隱加總_tb.Name = "隱加總_tb"
         Me.隱加總_tb.Size = New System.Drawing.Size(146, 23)
         Me.隱加總_tb.TabIndex = 1133
         Me.隱加總_tb.Text = "0"
         Me.隱加總_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        Me.隱加總_tb.Visible = False
         '
         '隱加總1_tb
         '
-        Me.隱加總1_tb.Location = New System.Drawing.Point(1094, 319)
+        Me.隱加總1_tb.Location = New System.Drawing.Point(120, 32)
         Me.隱加總1_tb.Name = "隱加總1_tb"
         Me.隱加總1_tb.Size = New System.Drawing.Size(146, 23)
         Me.隱加總1_tb.TabIndex = 1134
         Me.隱加總1_tb.Text = "0"
         Me.隱加總1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        Me.隱加總1_tb.Visible = False
         '
         '隱加總2_tb
         '
-        Me.隱加總2_tb.Location = New System.Drawing.Point(1094, 348)
+        Me.隱加總2_tb.Location = New System.Drawing.Point(120, 61)
         Me.隱加總2_tb.Name = "隱加總2_tb"
         Me.隱加總2_tb.Size = New System.Drawing.Size(146, 23)
         Me.隱加總2_tb.TabIndex = 1135
         Me.隱加總2_tb.Text = "0"
         Me.隱加總2_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        Me.隱加總2_tb.Visible = False
         '
         '加總4_tb
         '
@@ -416,7 +424,7 @@ Partial Class 財務_彙總表
         Me.Label8.ForeColor = System.Drawing.Color.Green
         Me.Label8.Location = New System.Drawing.Point(1671, 403)
         Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(56, 16)
+        Me.Label8.Size = New System.Drawing.Size(55, 16)
         Me.Label8.TabIndex = 1136
         Me.Label8.Text = "營運利潤"
         '
@@ -462,15 +470,14 @@ Partial Class 財務_彙總表
         Me.主表9_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
         Me.主表9_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.主表9_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.主表9_dgv.Location = New System.Drawing.Point(633, 399)
+        Me.主表9_dgv.Location = New System.Drawing.Point(3, 3)
         Me.主表9_dgv.Name = "主表9_dgv"
         Me.主表9_dgv.RowHeadersWidth = 5
         DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.主表9_dgv.RowsDefaultCellStyle = DataGridViewCellStyle20
         Me.主表9_dgv.RowTemplate.Height = 24
-        Me.主表9_dgv.Size = New System.Drawing.Size(617, 259)
+        Me.主表9_dgv.Size = New System.Drawing.Size(111, 84)
         Me.主表9_dgv.TabIndex = 1139
-        Me.主表9_dgv.Visible = False
         '
         'Chart3
         '
@@ -593,7 +600,19 @@ Partial Class 財務_彙總表
         Me.年份_cb.Size = New System.Drawing.Size(70, 24)
         Me.年份_cb.TabIndex = 1143
         '
-        '財務_彙總表
+        'Panel1
+        '
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.主表9_dgv)
+        Me.Panel1.Controls.Add(Me.隱加總_tb)
+        Me.Panel1.Controls.Add(Me.隱加總1_tb)
+        Me.Panel1.Controls.Add(Me.隱加總2_tb)
+        Me.Panel1.Location = New System.Drawing.Point(435, 424)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(278, 96)
+        Me.Panel1.TabIndex = 1144
+        '
+        '財務_彙總表_GCM
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@@ -602,12 +621,8 @@ Partial Class 財務_彙總表
         Me.Controls.Add(Me.Chart4)
         Me.Controls.Add(Me.Chart2)
         Me.Controls.Add(Me.Chart3)
-        Me.Controls.Add(Me.主表9_dgv)
         Me.Controls.Add(Me.加總4_tb)
         Me.Controls.Add(Me.Label8)
-        Me.Controls.Add(Me.隱加總2_tb)
-        Me.Controls.Add(Me.隱加總1_tb)
-        Me.Controls.Add(Me.隱加總_tb)
         Me.Controls.Add(Me.加總3_tb)
         Me.Controls.Add(Me.Label7)
         Me.Controls.Add(Me.主表8_dgv)
@@ -632,10 +647,11 @@ Partial Class 財務_彙總表
         Me.Controls.Add(Me.主表1_dgv)
         Me.Controls.Add(Me.主表_dgv)
         Me.Controls.Add(Me.Chart1)
+        Me.Controls.Add(Me.Panel1)
         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 = "財務_彙總表_GCM"
+        Me.Text = "財務_彙總表_GCM"
         CType(Me.主表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.主表1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.主表2_dgv, System.ComponentModel.ISupportInitialize).EndInit()
@@ -650,6 +666,8 @@ Partial Class 財務_彙總表
         CType(Me.Chart3, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.Chart2, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.Chart4, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -689,4 +707,5 @@ Partial Class 財務_彙總表
     Friend WithEvents Chart2 As DataVisualization.Charting.Chart
     Friend WithEvents Chart4 As DataVisualization.Charting.Chart
     Friend WithEvents 年份_cb As ComboBox
+    Friend WithEvents Panel1 As Panel
 End Class

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

@@ -1,5 +1,5 @@
 Imports System.Windows.Forms.DataVisualization.Charting
-Public Class 財務_彙總表
+Public Class 財務_彙總表_GCM
     ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8, ds9 As New DataSet
     '-----------------------------第一區-----------------------------------------------------------------------------------------------------------------------
     Private Sub Set_清單()

工巧明智能管理系統/我的系統/財務系統管理/財務_對帳單.resx → 工巧明智能管理系統/我的系統/02-財務系統管理/GCM/財務_收支單一覽表_GCM.resx

@@ -120,7 +120,4 @@
   <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
-  <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>182, 17</value>
-  </metadata>
 </root>

工巧明智能管理系統/我的系統/財務系統管理/財務_收支單一覽表.vb → 工巧明智能管理系統/我的系統/02-財務系統管理/GCM/財務_收支單一覽表_GCM.vb

@@ -1,5 +1,4 @@
 Option Strict Off
-Imports System.Data.SqlClient
 Imports System.IO
 Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
 Imports Microsoft.Office.Interop.Excel.Constants
@@ -10,26 +9,26 @@ 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 財務_收支單一覽表_GCM
     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
     Dim DTP As String : Dim N1 As Integer : Dim N2 As Integer : Dim 匯率1 As Double
     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
+        收支單_dgv.DataSource = Nothing : ds1.Clear()
+        收支單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        收支單_dgv.ColumnHeadersHeight = 25
+        收支單_dgv.AllowUserToAddRows = False
         ConnOpen()
         SQL1 = "SELECT 支付單號 AS 收支單號, 申請人, 申請日期, 審核人, 審核日期, 核准圖檔,  簽名編碼 FROM 財務控制表 
                 WHERE (審核人 NOT LIKE '') AND (審核人 NOT LIKE '作廢%') AND 
                 審核日期 BETWEEN '" & Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd") & "'
                 ORDER BY 審核日期 DESC"
-        CmdSet_For_DGV() : da.Fill(ds1) : DataGridView4.DataSource = ds1.Tables(0) : conn.Close()
+        CmdSet_For_DGV() : da.Fill(ds1) : 收支單_dgv.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
+        收支單_dgv.Columns(0).FillWeight = 160 : 收支單_dgv.Columns(1).Visible = False : 收支單_dgv.Columns(2).FillWeight = 100 : 收支單_dgv.Columns(3).Visible = False
+        收支單_dgv.Columns(4).FillWeight = 100 : 收支單_dgv.Columns(5).Visible = False : 收支單_dgv.Columns(6).Visible = False
     End Sub
     Private Sub Set_清單2()
         彙總_dgv.DataSource = Nothing : ds2.Clear()
@@ -46,7 +45,7 @@ Public Class 財務_收支單一覽表
         End If
         SQL1 = "SELECT      LEFT(財務控制表.審核日期, 7) AS 日期, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 
                             會計科目.會計科目 AS 子細項, SUM(財務流水帳.零用金) AS 零用金, SUM(財務流水帳.支票數) 
-                            AS 支票, SUM(Cast(財務流水帳.收入 AS money)) AS 現金, SUM(Cast(財務流水帳.支出 AS money)) AS 支出, 財務流水帳.銀行 AS 幣別, 財務流水帳.匯率
+                            AS 支票, SUM(Cast(財務流水帳.收入 AS money)) AS 收入, SUM(Cast(財務流水帳.支出 AS money)) AS 支出, 財務流水帳.銀行 AS 幣別, 財務流水帳.匯率
                 FROM        財務控制表 RIGHT OUTER JOIN
                             財務流水帳 ON 財務控制表.支付單號 = 財務流水帳.支付單號 RIGHT OUTER JOIN
                             會計科目 ON 財務流水帳.類別 = 會計科目.編號
@@ -86,12 +85,12 @@ Public Class 財務_收支單一覽表
             SQL2 = " AND (財務流水帳.含稅 = 0 OR 財務流水帳.含稅 IS NULL)"
         End If
         SQL1 = "SELECT      財務流水帳.支付單號, 財務流水帳.項次, 會計科目.會計科目, 財務流水帳.明細 AS 用途, 
-                            Cast(財務流水帳.零用金 AS money) AS 零用金, Cast(財務流水帳.支票數 AS money) AS 支票, Cast(財務流水帳.收入 AS money) AS 現金, 
+                            Cast(財務流水帳.零用金 AS money) AS 零用金, Cast(財務流水帳.支票數 AS money) AS 支票, Cast(財務流水帳.收入 AS money) AS 收入, 
                             Cast(財務流水帳.支出 AS money) AS 支出, 財務流水帳.備註 AS 票期, 財務流水帳.匯率, 財務流水帳.銀行 AS 幣別, 財務流水帳.類別, 
                             財務流水帳.流水號, 財務流水帳.含稅
                 FROM        財務流水帳 INNER JOIN
                             會計科目 ON 財務流水帳.類別 = 會計科目.編號
-                WHERE      (財務流水帳.支付單號 LIKE '" & TextBox1.Text & "') " & SQL2 & "
+                WHERE      (財務流水帳.支付單號 LIKE '" & 收支單號_tb.Text & "') " & SQL2 & "
                 ORDER BY    財務流水帳.項次"
         CmdSet_For_DGV() : da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()
 
@@ -115,40 +114,41 @@ Public Class 財務_收支單一覽表
         現1_tb.Text = "0.00" : 出1_tb.Text = "0.00" : 合1_tb.Text = "0.00" : 零1_tb.Text = "0.00" : 支1_tb.Text = "0.00"
         零2_tb.Text = "0.00" : 支2_tb.Text = "0.00" : 現2_tb.Text = "0.00" : 出2_tb.Text = "0.00" : 合2_tb.Text = "0.00"
         零3_tb.Text = "0.00" : 支3_tb.Text = "0.00" : 現3_tb.Text = "0.00" : 出3_tb.Text = "0.00" : 合3_tb.Text = "0.00"
+        零4_tb.Text = "0.00" : 支4_tb.Text = "0.00" : 現4_tb.Text = "0.00" : 出4_tb.Text = "0.00" : 合4_tb.Text = "0.00"
         For i As Integer = 0 To 明細_dgv.Rows.Count - 1
-            If 明細_dgv.Rows(i).Cells("幣別").Value = "台幣現金" Or 明細_dgv.Rows(i).Cells("幣別").Value = "印尼盾" Then
-                現1_tb.Text = Val(現1_tb.Text) + 明細_dgv.Rows(i).Cells("現金").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+            If 明細_dgv.Rows(i).Cells("幣別").Value = "台幣現金" Then
+                現1_tb.Text = Val(現1_tb.Text) + 明細_dgv.Rows(i).Cells("收入").Value * 明細_dgv.Rows(i).Cells("匯率").Value
                 出1_tb.Text = Val(出1_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value * 明細_dgv.Rows(i).Cells("匯率").Value
                 零1_tb.Text = Val(零1_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value * 明細_dgv.Rows(i).Cells("匯率").Value
                 支1_tb.Text = Val(支1_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value * 明細_dgv.Rows(i).Cells("匯率").Value
             End If
             If 明細_dgv.Rows(i).Cells("幣別").Value = "人民幣現金" Then
-                現2_tb.Text = Val(現2_tb.Text) + 明細_dgv.Rows(i).Cells("現金").Value
-                出2_tb.Text = Val(出2_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value
-
-                零2_tb.Text = Val(零2_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value
-                支2_tb.Text = Val(支2_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value
+                現2_tb.Text = Val(現2_tb.Text) + 明細_dgv.Rows(i).Cells("收入").Value : 出2_tb.Text = Val(出2_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value
+                零2_tb.Text = Val(零2_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value : 支2_tb.Text = Val(支2_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value
             End If
             If 明細_dgv.Rows(i).Cells("幣別").Value = "美金" Then
-                現3_tb.Text = Val(現3_tb.Text) + 明細_dgv.Rows(i).Cells("現金").Value
-                出3_tb.Text = Val(出3_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value
-
-                零3_tb.Text = Val(零3_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value
-                支3_tb.Text = Val(支3_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value
+                現3_tb.Text = Val(現3_tb.Text) + 明細_dgv.Rows(i).Cells("收入").Value : 出3_tb.Text = Val(出3_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value
+                零3_tb.Text = Val(零3_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value : 支3_tb.Text = Val(支3_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value
+            End If
+            If 明細_dgv.Rows(i).Cells("幣別").Value = "印尼盾" Then
+                現4_tb.Text = Val(現4_tb.Text) + 明細_dgv.Rows(i).Cells("收入").Value : 出4_tb.Text = Val(出4_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value
+                零4_tb.Text = Val(零4_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value : 支4_tb.Text = Val(支4_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value
             End If
         Next i
-        合1_tb.Text = Val(零1_tb.Text) + Val(現1_tb.Text) - Val(出1_tb.Text)
-        合2_tb.Text = Val(零2_tb.Text) + Val(現2_tb.Text) - Val(出2_tb.Text)
-        合3_tb.Text = Val(零3_tb.Text) + Val(現3_tb.Text) - Val(出3_tb.Text)
-        If Val(合1_tb.Text) > 0 Then : 合1_tb.ForeColor = Color.Blue : Else : 合1_tb.ForeColor = Color.Red : End If
-        If Val(合2_tb.Text) > 0 Then : 合2_tb.ForeColor = Color.Blue : Else : 合2_tb.ForeColor = Color.Red : End If
-        If Val(合3_tb.Text) > 0 Then : 合3_tb.ForeColor = Color.Blue : Else : 合3_tb.ForeColor = Color.Red : End If
+        合1_tb.Text = Val(零1_tb.Text) + Val(現1_tb.Text) - Val(出1_tb.Text) : 合2_tb.Text = Val(零2_tb.Text) + Val(現2_tb.Text) - Val(出2_tb.Text)
+        合3_tb.Text = Val(零3_tb.Text) + Val(現3_tb.Text) - Val(出3_tb.Text) : 合4_tb.Text = Val(零4_tb.Text) + Val(現4_tb.Text) - Val(出4_tb.Text)
+        If CLng(合1_tb.Text) >= 0 Then : 合1_tb.ForeColor = Color.Black : Else : 合1_tb.ForeColor = Color.Red : End If
+        If CLng(合2_tb.Text) >= 0 Then : 合2_tb.ForeColor = Color.Black : Else : 合2_tb.ForeColor = Color.Red : End If
+        If CLng(合3_tb.Text) >= 0 Then : 合3_tb.ForeColor = Color.Black : Else : 合3_tb.ForeColor = Color.Red : End If
+        If CLng(合4_tb.Text) >= 0 Then : 合4_tb.ForeColor = Color.Black : Else : 合4_tb.ForeColor = Color.Red : End If
         現1_tb.Text = Strings.Format(Val(現1_tb.Text), "#,##0.00") : 出1_tb.Text = Strings.Format(Val(出1_tb.Text), "#,##0.00") : 合1_tb.Text = Strings.Format(Val(合1_tb.Text), "#,##0.00")
         零1_tb.Text = Strings.Format(Val(零1_tb.Text), "#,##0.00") : 支1_tb.Text = Strings.Format(Val(支1_tb.Text), "#,##0.00")
         零2_tb.Text = Strings.Format(Val(零2_tb.Text), "#,##0.00") : 支2_tb.Text = Strings.Format(Val(支2_tb.Text), "#,##0.00") : 現2_tb.Text = Strings.Format(Val(現2_tb.Text), "#,##0.00")
         出2_tb.Text = Strings.Format(Val(出2_tb.Text), "#,##0.00") : 合2_tb.Text = Strings.Format(Val(合2_tb.Text), "#,##0.00")
         零3_tb.Text = Strings.Format(Val(零3_tb.Text), "#,##0.00") : 支3_tb.Text = Strings.Format(Val(支3_tb.Text), "#,##0.00") : 現3_tb.Text = Strings.Format(Val(現3_tb.Text), "#,##0.00")
         出3_tb.Text = Strings.Format(Val(出3_tb.Text), "#,##0.00") : 合3_tb.Text = Strings.Format(Val(合3_tb.Text), "#,##0.00")
+        零4_tb.Text = Strings.Format(Val(零4_tb.Text), "#,##0.00") : 支4_tb.Text = Strings.Format(Val(支4_tb.Text), "#,##0.00") : 現4_tb.Text = Strings.Format(Val(現4_tb.Text), "#,##0.00")
+        出4_tb.Text = Strings.Format(Val(出4_tb.Text), "#,##0.00") : 合4_tb.Text = Strings.Format(Val(合4_tb.Text), "#,##0.00")
     End Sub
     Private Sub 日期格式()
         If 會計月_ch.Checked = True Then
@@ -170,8 +170,8 @@ Public Class 財務_收支單一覽表
     Private Sub 匯率()
         ConnOpen()
         SQL1 = "SELECT 中心匯率, 美金匯率, 印尼匯率 FROM 歷史匯率表 
-                WHERE (年 LIKE '" & Strings.Left(Strings.Format(DateTimePicker1.Value, "yyyyMMdd"), 4) & "%') AND 
-                      (月 LIKE '" & Strings.Mid(Strings.Format(DateTimePicker1.Value, "yyyyMMdd"), 5, 2) & "%')"
+                WHERE (年 LIKE '" & Strings.Left(Strings.Format(申請日期_dtp.Value, "yyyyMMdd"), 4) & "%') AND 
+                      (月 LIKE '" & Strings.Mid(Strings.Format(申請日期_dtp.Value, "yyyyMMdd"), 5, 2) & "%')"
         cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
         If dr.Read() Then
             人民幣匯率_tb.Text = dr("中心匯率").ToString : 美金匯率_tb.Text = dr("美金匯率").ToString : 印尼匯率_tb.Text = dr("印尼匯率").ToString : conn.Close() : dr.Close()
@@ -183,7 +183,7 @@ Public Class 財務_收支單一覽表
         Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         DTP = Strings.Left(Strings.Format(Today(), "yyyy/MM/dd"), 8) & "01"
         匯率() : 開始日期_dtp.Value = DTP : 結束日期_dtp.Value = Today()
-        日期格式() : 開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(-1) : 彙總_dgv.Visible = False : RadioButton1.Checked = True
+        日期格式() : 開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(-1) : 彙總_dgv.Visible = False : 明細_rb.Checked = True
     End Sub
     Dim 已超出 As Boolean
     Private Sub 明細_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 明細_dgv.MouseUp
@@ -216,12 +216,12 @@ Public Class 財務_收支單一覽表
             End If
         End If
     End Sub
-    Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView4.CellClick
+    Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 收支單_dgv.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
+            收支單號_tb.Text = 收支單_dgv(0, e.RowIndex).Value.ToString : TextBox13.Text = 收支單_dgv(6, e.RowIndex).Value.ToString
+            申請人_tb.Text = 收支單_dgv(1, e.RowIndex).Value.ToString : 申請日期_dtp.Value = 收支單_dgv(2, e.RowIndex).Value.ToString
+            審核人_tb.Text = 收支單_dgv(3, e.RowIndex).Value.ToString : 審核日期_dtp.Value = 收支單_dgv(4, e.RowIndex).Value.ToString
+            TextBox14.Text = 收支單_dgv(5, e.RowIndex).Value.ToString
             Set_費用清單()
         End If
     End Sub
@@ -262,57 +262,60 @@ Public Class 財務_收支單一覽表
     Private Sub 非稅_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 非稅_ch.Click
         全部_ch.Checked = False : 含稅_ch.Checked = False : 非稅_ch.Checked = True : Set_費用清單() : Set_清單2() : 彙總計算()
     End Sub
-    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+    Private Sub 當日_tb_Click(sender As Object, e As EventArgs) Handles 當日_tb.Click
         DTP = Strings.Format(Today(), "yyyy/MM/dd")
         開始日期_dtp.Value = DTP : 結束日期_dtp.Value = DTP
     End Sub
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+    Private Sub B當月_tb_Click(sender As Object, e As EventArgs) Handles 當月_tb.Click
         DTP = Strings.Left(Strings.Format(Today(), "yyyy/MM/dd"), 8) & "01"
         開始日期_dtp.Value = DTP : 結束日期_dtp.Value = Today()
     End Sub
     Private Sub 彙總計算()
-        If RadioButton1.Checked = False And RadioButton2.Checked = True Then
+        If 明細_rb.Checked = False And 彙總_rb.Checked = True Then
             現1_tb.Text = "0.00" : 出1_tb.Text = "0.00" : 合1_tb.Text = "0.00" : 零1_tb.Text = "0.00" : 支1_tb.Text = "0.00"
             零2_tb.Text = "0.00" : 支2_tb.Text = "0.00" : 現2_tb.Text = "0.00" : 出2_tb.Text = "0.00" : 合2_tb.Text = "0.00"
             零3_tb.Text = "0.00" : 支3_tb.Text = "0.00" : 現3_tb.Text = "0.00" : 出3_tb.Text = "0.00" : 合3_tb.Text = "0.00"
+            零4_tb.Text = "0.00" : 支4_tb.Text = "0.00" : 現4_tb.Text = "0.00" : 出4_tb.Text = "0.00" : 合4_tb.Text = "0.00"
             For i As Integer = 0 To 彙總_dgv.Rows.Count - 1
                 If 彙總_dgv.Rows(i).Cells("幣別").Value = "台幣現金" Then
                     If 彙總_dgv.Rows(i).Cells("主項").Value <> "上月結存" Then
-                        現1_tb.Text = Val(現1_tb.Text) + 彙總_dgv.Rows(i).Cells("現金").Value
-                        出1_tb.Text = Val(出1_tb.Text) + 彙總_dgv.Rows(i).Cells("支出").Value
-                        零1_tb.Text = Val(零1_tb.Text) + 彙總_dgv.Rows(i).Cells("零用金").Value
-                        支1_tb.Text = Val(支1_tb.Text) + 彙總_dgv.Rows(i).Cells("支票").Value
+                        現1_tb.Text = Val(現1_tb.Text) + 彙總_dgv.Rows(i).Cells("收入").Value : 出1_tb.Text = Val(出1_tb.Text) + 彙總_dgv.Rows(i).Cells("支出").Value
+                        零1_tb.Text = Val(零1_tb.Text) + 彙總_dgv.Rows(i).Cells("零用金").Value : 支1_tb.Text = Val(支1_tb.Text) + 彙總_dgv.Rows(i).Cells("支票").Value
                     End If
                 End If
                 If 彙總_dgv.Rows(i).Cells("幣別").Value = "人民幣現金" Then
                     If 彙總_dgv.Rows(i).Cells("主項").Value <> "上月結存" Then
-                        現2_tb.Text = Val(現2_tb.Text) + 彙總_dgv.Rows(i).Cells("現金").Value
-                        出2_tb.Text = Val(出2_tb.Text) + 彙總_dgv.Rows(i).Cells("支出").Value
-                        零2_tb.Text = Val(零2_tb.Text) + 彙總_dgv.Rows(i).Cells("零用金").Value
-                        支2_tb.Text = Val(支2_tb.Text) + 彙總_dgv.Rows(i).Cells("支票").Value
+                        現2_tb.Text = Val(現2_tb.Text) + 彙總_dgv.Rows(i).Cells("收入").Value : 出2_tb.Text = Val(出2_tb.Text) + 彙總_dgv.Rows(i).Cells("支出").Value
+                        零2_tb.Text = Val(零2_tb.Text) + 彙總_dgv.Rows(i).Cells("零用金").Value : 支2_tb.Text = Val(支2_tb.Text) + 彙總_dgv.Rows(i).Cells("支票").Value
                     End If
                 End If
                 If 彙總_dgv.Rows(i).Cells("幣別").Value = "美金" Then
                     If 彙總_dgv.Rows(i).Cells("主項").Value <> "上月結存" Then
-                        現3_tb.Text = Val(現3_tb.Text) + 彙總_dgv.Rows(i).Cells("現金").Value
-                        出3_tb.Text = Val(出3_tb.Text) + 彙總_dgv.Rows(i).Cells("支出").Value
-                        零3_tb.Text = Val(零3_tb.Text) + 彙總_dgv.Rows(i).Cells("零用金").Value
-                        支3_tb.Text = Val(支3_tb.Text) + 彙總_dgv.Rows(i).Cells("支票").Value
+                        現3_tb.Text = Val(現3_tb.Text) + 彙總_dgv.Rows(i).Cells("收入").Value : 出3_tb.Text = Val(出3_tb.Text) + 彙總_dgv.Rows(i).Cells("支出").Value
+                        零3_tb.Text = Val(零3_tb.Text) + 彙總_dgv.Rows(i).Cells("零用金").Value : 支3_tb.Text = Val(支3_tb.Text) + 彙總_dgv.Rows(i).Cells("支票").Value
+                    End If
+                End If
+                If 彙總_dgv.Rows(i).Cells("幣別").Value = "印尼盾" Then
+                    If 彙總_dgv.Rows(i).Cells("主項").Value <> "上月結存" Then
+                        現4_tb.Text = Val(現4_tb.Text) + 彙總_dgv.Rows(i).Cells("收入").Value : 出4_tb.Text = Val(出4_tb.Text) + 彙總_dgv.Rows(i).Cells("支出").Value
+                        零4_tb.Text = Val(零4_tb.Text) + 彙總_dgv.Rows(i).Cells("零用金").Value : 支4_tb.Text = Val(支4_tb.Text) + 彙總_dgv.Rows(i).Cells("支票").Value
                     End If
                 End If
             Next i
-            合1_tb.Text = Val(零1_tb.Text) + Val(現1_tb.Text) - Val(出1_tb.Text)
-            合2_tb.Text = Val(零2_tb.Text) + Val(現2_tb.Text) - Val(出2_tb.Text)
-            合3_tb.Text = Val(零3_tb.Text) + Val(現3_tb.Text) - Val(出3_tb.Text)
-            If Val(合1_tb.Text) > 0 Then : 合1_tb.ForeColor = Color.Blue : Else : 合1_tb.ForeColor = Color.Red : End If
-            If Val(合2_tb.Text) > 0 Then : 合2_tb.ForeColor = Color.Blue : Else : 合2_tb.ForeColor = Color.Red : End If
-            If Val(合3_tb.Text) > 0 Then : 合3_tb.ForeColor = Color.Blue : Else : 合3_tb.ForeColor = Color.Red : End If
+            合1_tb.Text = Val(零1_tb.Text) + Val(現1_tb.Text) - Val(出1_tb.Text) : 合2_tb.Text = Val(零2_tb.Text) + Val(現2_tb.Text) - Val(出2_tb.Text)
+            合3_tb.Text = Val(零3_tb.Text) + Val(現3_tb.Text) - Val(出3_tb.Text) : 合4_tb.Text = Val(零4_tb.Text) + Val(現4_tb.Text) - Val(出4_tb.Text)
+            If CLng(合1_tb.Text) >= 0 Then : 合1_tb.ForeColor = Color.Black : Else : 合1_tb.ForeColor = Color.Red : End If
+            If CLng(合2_tb.Text) >= 0 Then : 合2_tb.ForeColor = Color.Black : Else : 合2_tb.ForeColor = Color.Red : End If
+            If CLng(合3_tb.Text) >= 0 Then : 合3_tb.ForeColor = Color.Black : Else : 合3_tb.ForeColor = Color.Red : End If
+            If CLng(合4_tb.Text) >= 0 Then : 合4_tb.ForeColor = Color.Black : Else : 合4_tb.ForeColor = Color.Red : End If
             現1_tb.Text = Strings.Format(Val(現1_tb.Text), "#,##0.00") : 出1_tb.Text = Strings.Format(Val(出1_tb.Text), "#,##0.00") : 合1_tb.Text = Strings.Format(Val(合1_tb.Text), "#,##0.00")
             零1_tb.Text = Strings.Format(Val(零1_tb.Text), "#,##0.00") : 支1_tb.Text = Strings.Format(Val(支1_tb.Text), "#,##0.00")
             零2_tb.Text = Strings.Format(Val(零2_tb.Text), "#,##0.00") : 支2_tb.Text = Strings.Format(Val(支2_tb.Text), "#,##0.00") : 現2_tb.Text = Strings.Format(Val(現2_tb.Text), "#,##0.00")
             出2_tb.Text = Strings.Format(Val(出2_tb.Text), "#,##0.00") : 合2_tb.Text = Strings.Format(Val(合2_tb.Text), "#,##0.00")
             零3_tb.Text = Strings.Format(Val(零3_tb.Text), "#,##0.00") : 支3_tb.Text = Strings.Format(Val(支3_tb.Text), "#,##0.00") : 現3_tb.Text = Strings.Format(Val(現3_tb.Text), "#,##0.00")
             出3_tb.Text = Strings.Format(Val(出3_tb.Text), "#,##0.00") : 合3_tb.Text = Strings.Format(Val(合3_tb.Text), "#,##0.00")
+            零4_tb.Text = Strings.Format(Val(零4_tb.Text), "#,##0.00") : 支4_tb.Text = Strings.Format(Val(支4_tb.Text), "#,##0.00") : 現4_tb.Text = Strings.Format(Val(現4_tb.Text), "#,##0.00")
+            出4_tb.Text = Strings.Format(Val(出4_tb.Text), "#,##0.00") : 合4_tb.Text = Strings.Format(Val(合4_tb.Text), "#,##0.00")
         End If
     End Sub
     Private Sub 上個月_bt_Click(sender As Object, e As EventArgs) Handles 上個月_bt.Click
@@ -339,10 +342,10 @@ Public Class 財務_收支單一覽表
         End If
         日期格式()
     End Sub
-    Private Sub DateTimePicker4_ValueChanged(sender As Object, e As EventArgs) Handles 開始日期_dtp.ValueChanged
+    Private Sub 開始日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 開始日期_dtp.ValueChanged
         Set_清單1() : Set_清單2() : 彙總計算()
     End Sub
-    Private Sub DateTimePicker3_ValueChanged(sender As Object, e As EventArgs) Handles 結束日期_dtp.ValueChanged
+    Private Sub 結束日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 結束日期_dtp.ValueChanged
         Set_清單1() : Set_清單2() : 彙總計算()
     End Sub
     Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月_ch.Click
@@ -351,13 +354,13 @@ Public Class 財務_收支單一覽表
     Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月_ch.Click
         會計月_ch.Checked = False : 一般月_ch.Checked = True : 日期格式()
     End Sub
-    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.Click
-        明細_dgv.Visible = True : 彙總_dgv.Visible = False : RadioButton1.Checked = True : RadioButton2.Checked = False
-        現1_tb.Text = "0.00" : 出1_tb.Text = "0.00" : 合1_tb.Text = "0.00" : 零1_tb.Text = "0.00" : 支1_tb.Text = "0.00" : DataGridView4.Enabled = True
+    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles 明細_rb.Click
+        明細_dgv.Visible = True : 彙總_dgv.Visible = False : 明細_rb.Checked = True : 彙總_rb.Checked = False
+        現1_tb.Text = "0.00" : 出1_tb.Text = "0.00" : 合1_tb.Text = "0.00" : 零1_tb.Text = "0.00" : 支1_tb.Text = "0.00" : 收支單_dgv.Enabled = True
     End Sub
-    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.Click
-        明細_dgv.Visible = False : 彙總_dgv.Visible = True : RadioButton1.Checked = False : RadioButton2.Checked = True
-        TextBox1.Text = "" : TextBox3.Text = "" : TextBox4.Text = "" : 明細_dgv.DataSource = Nothing : ds.Clear() : DataGridView4.Enabled = False
+    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles 彙總_rb.Click
+        明細_dgv.Visible = False : 彙總_dgv.Visible = True : 明細_rb.Checked = False : 彙總_rb.Checked = True
+        收支單號_tb.Text = "" : 申請人_tb.Text = "" : 審核人_tb.Text = "" : 明細_dgv.DataSource = Nothing : ds.Clear() : 收支單_dgv.Enabled = False
         彙總計算()
     End Sub
     Private Sub TextBox14_TextChanged(sender As Object, e As EventArgs) Handles TextBox14.TextChanged
@@ -373,7 +376,7 @@ Public Class 財務_收支單一覽表
         conn.Close()
         PictureBox1.SizeMode = 4
     End Sub
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
         xlApp = CType(CreateObject("Excel.Application"), Application)
         xlBook = xlApp.Workbooks.Add
         xlApp.DisplayAlerts = True
@@ -384,15 +387,16 @@ Public Class 財務_收支單一覽表
         xlApp.Application.WindowState = xlMaximized
 
         xlSheet.Cells(1, 1) = "年度" : xlSheet.Cells(1, 2) = Year(Today) - 1911
-        If RadioButton1.Checked = True And RadioButton2.Checked = False Then
+        If 明細_rb.Checked = True And 彙總_rb.Checked = False Then
             xlSheet.Cells(1, 3) = "工巧明智能企業有限公司-營運費用收支明細表"
             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) = "票期"
+            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 明細_dgv.Rows.Count - 1
-                xlSheet.Cells(i + 3, 1) = DateTimePicker1.Value : xlSheet.Cells(i + 3, 2) = 明細_dgv.Rows(i).Cells("會計科目").Value
+                xlSheet.Cells(i + 3, 1) = 申請日期_dtp.Value : xlSheet.Cells(i + 3, 2) = 明細_dgv.Rows(i).Cells("會計科目").Value
                 xlSheet.Cells(i + 3, 3) = 明細_dgv.Rows(i).Cells("用途").Value : xlSheet.Cells(i + 3, 4) = 明細_dgv.Rows(i).Cells("零用金").Value
-                xlSheet.Cells(i + 3, 5) = 明細_dgv.Rows(i).Cells("支票").Value : xlSheet.Cells(i + 3, 6) = 明細_dgv.Rows(i).Cells("現金").Value
+                xlSheet.Cells(i + 3, 5) = 明細_dgv.Rows(i).Cells("支票").Value : xlSheet.Cells(i + 3, 6) = 明細_dgv.Rows(i).Cells("收入").Value
                 xlSheet.Cells(i + 3, 7) = 明細_dgv.Rows(i).Cells("支出").Value : xlSheet.Cells(i + 3, 9) = 明細_dgv.Rows(i).Cells("票期").Value
                 If i = 0 Then
                     xlSheet.Cells(i + 3, 8) = "=D3+F3-G3"
@@ -404,15 +408,15 @@ Public Class 財務_收支單一覽表
                 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 + 1, 3) = "以下空白" : xlSheet.Cells(N1 + 3, 1) = "簽核(點交)" : xlSheet.Cells(N1 + 3, 7) = "製表 : " & 申請人_tb.Text & " - " & 申請日期_dtp.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
+        ElseIf 明細_rb.Checked = False And 彙總_rb.Checked = True Then
             xlSheet.Cells(1, 3) = "工巧明智能企業有限公司-營運費用收支彙總簡表"
             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) = "現金餘額"
+            xlSheet.Cells(2, 6) = "支票" : xlSheet.Cells(2, 7) = "收入" : xlSheet.Cells(2, 8) = "支出" : xlSheet.Cells(2, 9) = "現金餘額"
 
             For i As Integer = 0 To 彙總_dgv.Rows.Count - 1
                 xlSheet.Cells(i + 3, 1) = 彙總_dgv.Rows(i).Cells("日期").Value
@@ -421,7 +425,7 @@ Public Class 財務_收支單一覽表
                 xlSheet.Cells(i + 3, 4) = 彙總_dgv.Rows(i).Cells("子細項").Value
                 xlSheet.Cells(i + 3, 5) = 彙總_dgv.Rows(i).Cells("零用金").Value
                 xlSheet.Cells(i + 3, 6) = 彙總_dgv.Rows(i).Cells("支票").Value
-                xlSheet.Cells(i + 3, 7) = 彙總_dgv.Rows(i).Cells("現金").Value
+                xlSheet.Cells(i + 3, 7) = 彙總_dgv.Rows(i).Cells("收入").Value
                 xlSheet.Cells(i + 3, 8) = 彙總_dgv.Rows(i).Cells("支出").Value
                 If i = 0 Then
                     xlSheet.Cells(i + 3, 9) = "=E3+G3-H3"

工巧明智能管理系統/我的系統/財務系統管理/財務_收支單審核.Designer.vb → 工巧明智能管理系統/我的系統/02-財務系統管理/GCM/財務_收支單審核_GCM.Designer.vb

@@ -1,5 +1,5 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class 財務_收支單審核
+Partial Class 財務_收支單審核_GCM
     Inherits System.Windows.Forms.Form
 
     'Form 覆寫 Dispose 以清除元件清單。
@@ -23,181 +23,183 @@ Partial Class 財務_收支單審核
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Me.Button2 = New System.Windows.Forms.Button()
-        Me.Button1 = New System.Windows.Forms.Button()
+        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.單據作廢_bt = New System.Windows.Forms.Button()
+        Me.審核通過_bt = New System.Windows.Forms.Button()
         Me.明細_dgv = New System.Windows.Forms.DataGridView()
-        Me.RadioButton2 = New System.Windows.Forms.RadioButton()
-        Me.RadioButton1 = New System.Windows.Forms.RadioButton()
-        Me.DataGridView2 = New System.Windows.Forms.DataGridView()
-        Me.TextBox5 = New System.Windows.Forms.TextBox()
+        Me.作廢的收支單_rb = New System.Windows.Forms.RadioButton()
+        Me.未核准的收支單_rb = New System.Windows.Forms.RadioButton()
+        Me.收支單_dgv = New System.Windows.Forms.DataGridView()
+        Me.收入_tb = 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.申請人_tb = New System.Windows.Forms.TextBox()
+        Me.收支單號_tb = 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.補單_ch = 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.日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.餘額_tb = New System.Windows.Forms.TextBox()
         Me.Label9 = New System.Windows.Forms.Label()
-        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.支出_tb = New System.Windows.Forms.TextBox()
         Me.Label6 = New System.Windows.Forms.Label()
-        Me.TextBox8 = New System.Windows.Forms.TextBox()
+        Me.支票_tb = New System.Windows.Forms.TextBox()
         Me.Label11 = New System.Windows.Forms.Label()
-        Me.TextBox7 = New System.Windows.Forms.TextBox()
+        Me.零用金_tb = 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()
+        Me.簽名檔_dgv = New System.Windows.Forms.DataGridView()
         Me.印尼匯率_tb = New System.Windows.Forms.TextBox()
         Me.美金匯率_tb = New System.Windows.Forms.TextBox()
         Me.人民幣匯率_tb = New System.Windows.Forms.TextBox()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.收支單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuStrip1.SuspendLayout()
+        CType(Me.簽名檔_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
-        'Button2
+        '單據作廢_bt
         '
-        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
+        Me.單據作廢_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.單據作廢_bt.ForeColor = System.Drawing.Color.Red
+        Me.單據作廢_bt.Location = New System.Drawing.Point(1178, 3)
+        Me.單據作廢_bt.Name = "單據作廢_bt"
+        Me.單據作廢_bt.Size = New System.Drawing.Size(65, 49)
+        Me.單據作廢_bt.TabIndex = 825
+        Me.單據作廢_bt.Text = "單據作廢"
+        Me.單據作廢_bt.UseVisualStyleBackColor = True
         '
-        'Button1
+        '審核通過_bt
         '
-        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
+        Me.審核通過_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.審核通過_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.審核通過_bt.Location = New System.Drawing.Point(1110, 3)
+        Me.審核通過_bt.Name = "審核通過_bt"
+        Me.審核通過_bt.Size = New System.Drawing.Size(65, 49)
+        Me.審核通過_bt.TabIndex = 824
+        Me.審核通過_bt.Text = "審核通過"
+        Me.審核通過_bt.UseVisualStyleBackColor = True
         '
         '明細_dgv
         '
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.明細_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.明細_dgv.BackgroundColor = System.Drawing.Color.White
         Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.明細_dgv.Location = New System.Drawing.Point(327, 55)
+        Me.明細_dgv.Location = New System.Drawing.Point(317, 55)
         Me.明細_dgv.Name = "明細_dgv"
         Me.明細_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.明細_dgv.RowTemplate.Height = 24
-        Me.明細_dgv.Size = New System.Drawing.Size(916, 549)
+        Me.明細_dgv.Size = New System.Drawing.Size(926, 549)
         Me.明細_dgv.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
-        '
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
-        Me.DataGridView2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+        '作廢的收支單_rb
+        '
+        Me.作廢的收支單_rb.AutoSize = True
+        Me.作廢的收支單_rb.Location = New System.Drawing.Point(167, 3)
+        Me.作廢的收支單_rb.Name = "作廢的收支單_rb"
+        Me.作廢的收支單_rb.Size = New System.Drawing.Size(97, 20)
+        Me.作廢的收支單_rb.TabIndex = 816
+        Me.作廢的收支單_rb.TabStop = True
+        Me.作廢的收支單_rb.Text = "作廢的收支單"
+        Me.作廢的收支單_rb.UseVisualStyleBackColor = True
+        '
+        '未核准的收支單_rb
+        '
+        Me.未核准的收支單_rb.AutoSize = True
+        Me.未核准的收支單_rb.Location = New System.Drawing.Point(3, 3)
+        Me.未核准的收支單_rb.Name = "未核准的收支單_rb"
+        Me.未核准的收支單_rb.Size = New System.Drawing.Size(109, 20)
+        Me.未核准的收支單_rb.TabIndex = 815
+        Me.未核准的收支單_rb.TabStop = True
+        Me.未核准的收支單_rb.Text = "未核准的收支單"
+        Me.未核准的收支單_rb.UseVisualStyleBackColor = True
+        '
+        '收支單_dgv
+        '
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.收支單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.收支單_dgv.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
+        Me.收支單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.收支單_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.收支單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.收支單_dgv.Location = New System.Drawing.Point(3, 27)
+        Me.收支單_dgv.Name = "收支單_dgv"
+        Me.收支單_dgv.RowHeadersWidth = 5
+        Me.收支單_dgv.RowTemplate.Height = 24
+        Me.收支單_dgv.Size = New System.Drawing.Size(315, 499)
+        Me.收支單_dgv.TabIndex = 811
+        '
+        '收入_tb
+        '
+        Me.收入_tb.Location = New System.Drawing.Point(671, 29)
+        Me.收入_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.收入_tb.Name = "收入_tb"
+        Me.收入_tb.Size = New System.Drawing.Size(113, 23)
+        Me.收入_tb.TabIndex = 850
+        Me.收入_tb.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.Size = New System.Drawing.Size(31, 16)
         Me.Label8.TabIndex = 849
-        Me.Label8.Text = "現金"
+        Me.Label8.Text = "收入"
         '
         'Label3
         '
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(552, 6)
+        Me.Label3.Location = New System.Drawing.Point(495, 6)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(44, 16)
+        Me.Label3.Size = New System.Drawing.Size(43, 16)
         Me.Label3.TabIndex = 848
         Me.Label3.Text = "申請人"
         '
-        'TextBox3
+        '申請人_tb
         '
-        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
+        Me.申請人_tb.Location = New System.Drawing.Point(540, 3)
+        Me.申請人_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.申請人_tb.Name = "申請人_tb"
+        Me.申請人_tb.Size = New System.Drawing.Size(92, 23)
+        Me.申請人_tb.TabIndex = 847
         '
-        'TextBox1
+        '收支單號_tb
         '
-        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
+        Me.收支單號_tb.Location = New System.Drawing.Point(372, 3)
+        Me.收支單號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.收支單號_tb.Name = "收支單號_tb"
+        Me.收支單號_tb.Size = New System.Drawing.Size(122, 23)
+        Me.收支單號_tb.TabIndex = 845
         '
         'Label1
         '
         Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(324, 6)
+        Me.Label1.Location = New System.Drawing.Point(318, 7)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(104, 16)
+        Me.Label1.Size = New System.Drawing.Size(55, 16)
         Me.Label1.TabIndex = 846
-        Me.Label1.Text = "營運成本收支單號"
+        Me.Label1.Text = "收支單號"
         '
         'ContextMenuStrip1
         '
@@ -230,105 +232,105 @@ Partial Class 財務_收支單審核
         Me.單據作廢ToolStripMenuItem.Size = New System.Drawing.Size(122, 22)
         Me.單據作廢ToolStripMenuItem.Text = "單據作廢"
         '
-        'CheckBox1
+        '補單_ch
         '
-        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
+        Me.補單_ch.AutoSize = True
+        Me.補單_ch.Checked = True
+        Me.補單_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.補單_ch.Location = New System.Drawing.Point(776, 5)
+        Me.補單_ch.Name = "補單_ch"
+        Me.補單_ch.Size = New System.Drawing.Size(38, 20)
+        Me.補單_ch.TabIndex = 882
+        Me.補單_ch.Text = "補"
+        Me.補單_ch.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.Location = New System.Drawing.Point(634, 6)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(32, 16)
+        Me.Label2.Size = New System.Drawing.Size(31, 16)
         Me.Label2.TabIndex = 881
         Me.Label2.Text = "日期"
         '
-        'DateTimePicker1
+        '日期_dtp
         '
-        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
+        Me.日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.日期_dtp.Location = New System.Drawing.Point(673, 3)
+        Me.日期_dtp.Name = "日期_dtp"
+        Me.日期_dtp.Size = New System.Drawing.Size(97, 23)
+        Me.日期_dtp.TabIndex = 880
         '
-        'TextBox6
+        '餘額_tb
         '
-        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
+        Me.餘額_tb.Location = New System.Drawing.Point(968, 29)
+        Me.餘額_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.餘額_tb.Name = "餘額_tb"
+        Me.餘額_tb.Size = New System.Drawing.Size(113, 23)
+        Me.餘額_tb.TabIndex = 887
+        Me.餘額_tb.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.Size = New System.Drawing.Size(31, 16)
         Me.Label9.TabIndex = 886
-        Me.Label9.Text = "現金餘額"
+        Me.Label9.Text = "餘額"
         '
-        'TextBox2
+        '支出_tb
         '
-        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
+        Me.支出_tb.Location = New System.Drawing.Point(820, 29)
+        Me.支出_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.支出_tb.Name = "支出_tb"
+        Me.支出_tb.Size = New System.Drawing.Size(113, 23)
+        Me.支出_tb.TabIndex = 885
+        Me.支出_tb.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.Size = New System.Drawing.Size(31, 16)
         Me.Label6.TabIndex = 884
         Me.Label6.Text = "支出"
         '
-        'TextBox8
+        '支票_tb
         '
-        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
+        Me.支票_tb.Location = New System.Drawing.Point(522, 29)
+        Me.支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.支票_tb.Name = "支票_tb"
+        Me.支票_tb.Size = New System.Drawing.Size(113, 23)
+        Me.支票_tb.TabIndex = 891
+        Me.支票_tb.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.Size = New System.Drawing.Size(31, 16)
         Me.Label11.TabIndex = 890
         Me.Label11.Text = "支票"
         '
-        'TextBox7
+        '零用金_tb
         '
-        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
+        Me.零用金_tb.Location = New System.Drawing.Point(373, 29)
+        Me.零用金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.零用金_tb.Name = "零用金_tb"
+        Me.零用金_tb.Size = New System.Drawing.Size(113, 23)
+        Me.零用金_tb.TabIndex = 889
+        Me.零用金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         'Label10
         '
         Me.Label10.AutoSize = True
-        Me.Label10.Location = New System.Drawing.Point(327, 32)
+        Me.Label10.Location = New System.Drawing.Point(321, 32)
         Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(44, 16)
+        Me.Label10.Size = New System.Drawing.Size(43, 16)
         Me.Label10.TabIndex = 888
         Me.Label10.Text = "零用金"
         '
@@ -336,7 +338,7 @@ Partial Class 財務_收支單審核
         '
         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.Location = New System.Drawing.Point(217, 530)
         Me.TextBox14.Name = "TextBox14"
         Me.TextBox14.Size = New System.Drawing.Size(99, 23)
         Me.TextBox14.TabIndex = 964
@@ -346,7 +348,7 @@ Partial Class 財務_收支單審核
         '
         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.Location = New System.Drawing.Point(44, 530)
         Me.TextBox13.Name = "TextBox13"
         Me.TextBox13.Size = New System.Drawing.Size(120, 23)
         Me.TextBox13.TabIndex = 963
@@ -357,9 +359,9 @@ Partial Class 財務_收支單審核
         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.Location = New System.Drawing.Point(163, 533)
         Me.Label20.Name = "Label20"
-        Me.Label20.Size = New System.Drawing.Size(56, 16)
+        Me.Label20.Size = New System.Drawing.Size(55, 16)
         Me.Label20.TabIndex = 962
         Me.Label20.Text = "圖片編碼"
         '
@@ -368,35 +370,24 @@ Partial Class 財務_收支單審核
         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.Location = New System.Drawing.Point(2, 533)
         Me.Label19.Name = "Label19"
-        Me.Label19.Size = New System.Drawing.Size(44, 16)
+        Me.Label19.Size = New System.Drawing.Size(43, 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
+        '簽名檔_dgv
         '
-        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.簽名檔_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.簽名檔_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.簽名檔_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.簽名檔_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.簽名檔_dgv.Location = New System.Drawing.Point(3, 557)
+        Me.簽名檔_dgv.Name = "簽名檔_dgv"
+        Me.簽名檔_dgv.RowHeadersWidth = 5
+        Me.簽名檔_dgv.RowTemplate.Height = 24
+        Me.簽名檔_dgv.Size = New System.Drawing.Size(180, 47)
+        Me.簽名檔_dgv.TabIndex = 959
         '
         '印尼匯率_tb
         '
@@ -428,7 +419,19 @@ Partial Class 財務_收支單審核
         Me.人民幣匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         Me.人民幣匯率_tb.Visible = False
         '
-        '財務_收支單審核
+        '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(185, 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
+        '
+        '財務_收支單審核_GCM
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@@ -442,77 +445,77 @@ Partial Class 財務_收支單審核
         Me.Controls.Add(Me.Label20)
         Me.Controls.Add(Me.Label19)
         Me.Controls.Add(Me.PictureBox1)
-        Me.Controls.Add(Me.DataGridView3)
+        Me.Controls.Add(Me.簽名檔_dgv)
         Me.Controls.Add(Me.Label11)
-        Me.Controls.Add(Me.TextBox7)
-        Me.Controls.Add(Me.Label10)
-        Me.Controls.Add(Me.TextBox6)
+        Me.Controls.Add(Me.零用金_tb)
+        Me.Controls.Add(Me.餘額_tb)
         Me.Controls.Add(Me.Label9)
-        Me.Controls.Add(Me.TextBox2)
+        Me.Controls.Add(Me.支出_tb)
         Me.Controls.Add(Me.Label6)
-        Me.Controls.Add(Me.CheckBox1)
+        Me.Controls.Add(Me.補單_ch)
         Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.DateTimePicker1)
-        Me.Controls.Add(Me.TextBox5)
+        Me.Controls.Add(Me.日期_dtp)
+        Me.Controls.Add(Me.收入_tb)
         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.RadioButton2)
-        Me.Controls.Add(Me.RadioButton1)
-        Me.Controls.Add(Me.DataGridView2)
-        Me.Controls.Add(Me.TextBox8)
+        Me.Controls.Add(Me.申請人_tb)
+        Me.Controls.Add(Me.收支單號_tb)
+        Me.Controls.Add(Me.單據作廢_bt)
+        Me.Controls.Add(Me.審核通過_bt)
+        Me.Controls.Add(Me.作廢的收支單_rb)
+        Me.Controls.Add(Me.未核准的收支單_rb)
+        Me.Controls.Add(Me.收支單_dgv)
+        Me.Controls.Add(Me.支票_tb)
         Me.Controls.Add(Me.明細_dgv)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.Label1)
         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 = "財務_收支單審核_GCM"
+        Me.Text = "財務_收支單審核_GCM"
         CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.收支單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ContextMenuStrip1.ResumeLayout(False)
+        CType(Me.簽名檔_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         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 單據作廢_bt As Button
+    Friend WithEvents 審核通過_bt As Button
     Friend WithEvents 明細_dgv As DataGridView
-    Friend WithEvents RadioButton2 As RadioButton
-    Friend WithEvents RadioButton1 As RadioButton
-    Friend WithEvents DataGridView2 As DataGridView
-    Friend WithEvents TextBox5 As TextBox
+    Friend WithEvents 作廢的收支單_rb As RadioButton
+    Friend WithEvents 未核准的收支單_rb As RadioButton
+    Friend WithEvents 收支單_dgv As DataGridView
+    Friend WithEvents 收入_tb As TextBox
     Friend WithEvents Label8 As Label
     Friend WithEvents Label3 As Label
-    Friend WithEvents TextBox3 As TextBox
-    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents 申請人_tb As TextBox
+    Friend WithEvents 收支單號_tb 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 補單_ch As CheckBox
     Friend WithEvents Label2 As Label
-    Friend WithEvents DateTimePicker1 As DateTimePicker
-    Friend WithEvents TextBox6 As TextBox
+    Friend WithEvents 日期_dtp As DateTimePicker
+    Friend WithEvents 餘額_tb As TextBox
     Friend WithEvents Label9 As Label
-    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents 支出_tb As TextBox
     Friend WithEvents Label6 As Label
-    Friend WithEvents TextBox8 As TextBox
+    Friend WithEvents 支票_tb As TextBox
     Friend WithEvents Label11 As Label
-    Friend WithEvents TextBox7 As TextBox
+    Friend WithEvents 零用金_tb 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
+    Friend WithEvents 簽名檔_dgv As DataGridView
     Friend WithEvents 印尼匯率_tb As TextBox
     Friend WithEvents 美金匯率_tb As TextBox
     Friend WithEvents 人民幣匯率_tb As TextBox

工巧明智能管理系統/我的系統/財務系統管理/財務_收支單審核.vb → 工巧明智能管理系統/我的系統/02-財務系統管理/GCM/財務_收支單審核_GCM.vb

@@ -1,25 +1,24 @@
 Option Strict Off
-Imports System.Data.SqlClient
 Imports System.IO
-Public Class 財務_收支單審核
+Public Class 財務_收支單審核_GCM
     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
     Private ReadOnly QQW(11) As String
     Dim DTP As String : Dim WWEE As String : Private II As Integer : Dim 匯率1 As Double
     Private Sub Set_清單1()
-        DataGridView2.DataSource = Nothing : ds1.Clear()
-        DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView2.ColumnHeadersHeight = 25
-        DataGridView2.AllowUserToAddRows = False
+        收支單_dgv.DataSource = Nothing : ds1.Clear()
+        收支單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        收支單_dgv.ColumnHeadersHeight = 25
+        收支單_dgv.AllowUserToAddRows = False
         ConnOpen()
-        If RadioButton1.Checked = True And RadioButton2.Checked = False Then
+        If 未核准的收支單_rb.Checked = True And 作廢的收支單_rb.Checked = False Then
             WWEE = "WHERE (審核人 LIKE '') "
-        ElseIf RadioButton1.Checked = False And RadioButton2.Checked = True Then
+        ElseIf 未核准的收支單_rb.Checked = False And 作廢的收支單_rb.Checked = True Then
             WWEE = "WHERE (審核人 LIKE '作廢%') "
         End If
         SQL1 = "SELECT 支付單號 AS 收支單號, 申請日期, 審核日期, 申請人 FROM 財務控制表 " & WWEE & " ORDER BY 支付單號 DESC"
-        CmdSet_For_DGV() : da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()
+        CmdSet_For_DGV() : da.Fill(ds1) : 收支單_dgv.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
+        收支單_dgv.Columns(0).FillWeight = 160 : 收支單_dgv.Columns(1).FillWeight = 100 : 收支單_dgv.Columns(2).FillWeight = 100 : 收支單_dgv.Columns(3).Visible = False
     End Sub
     Private Sub Set_費用清單()
         明細_dgv.DataSource = Nothing : ds.Clear()
@@ -29,12 +28,12 @@ Public Class 財務_收支單審核
         明細_dgv.RowTemplate.Height = 35
         ConnOpen()
         SQL1 = "SELECT      財務流水帳.支付單號, 財務流水帳.項次, 會計科目.會計科目, 財務流水帳.明細 AS 用途, 
-                            Cast(財務流水帳.零用金 AS money) AS 零用金, Cast(財務流水帳.支票數 AS money) AS 支票, Cast(財務流水帳.收入 AS money) AS 現金, 
+                            Cast(財務流水帳.零用金 AS money) AS 零用金, Cast(財務流水帳.支票數 AS money) AS 支票, Cast(財務流水帳.收入 AS money) AS 收入, 
                             Cast(財務流水帳.支出 AS money) AS 支出, 財務流水帳.備註 AS 票期, 財務流水帳.匯率, 財務流水帳.銀行 AS 幣別, 財務流水帳.類別, 
                             財務流水帳.流水號, 財務流水帳.含稅
                 FROM        財務流水帳 INNER JOIN
                             會計科目 ON 財務流水帳.類別 = 會計科目.編號
-                WHERE      (財務流水帳.支付單號 LIKE '" & TextBox1.Text & "')
+                WHERE      (財務流水帳.支付單號 LIKE '" & 收支單號_tb.Text & "')
                 ORDER BY    財務流水帳.項次"
         CmdSet_For_DGV() : da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()
 
@@ -56,30 +55,30 @@ Public Class 財務_收支單審核
         明細_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
         明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
 
-        TextBox5.Text = "0" : TextBox2.Text = "0" : TextBox6.Text = "0" : TextBox7.Text = "0" : TextBox8.Text = "0"
+        收入_tb.Text = "0" : 支出_tb.Text = "0" : 餘額_tb.Text = "0" : 零用金_tb.Text = "0" : 支票_tb.Text = "0"
         For i As Integer = 0 To 明細_dgv.Rows.Count - 1
-            TextBox5.Text = Val(TextBox5.Text) + 明細_dgv.Rows(i).Cells("現金").Value * 明細_dgv.Rows(i).Cells("匯率").Value
-            TextBox2.Text = Val(TextBox2.Text) + 明細_dgv.Rows(i).Cells("支出").Value * 明細_dgv.Rows(i).Cells("匯率").Value
-            TextBox7.Text = Val(TextBox7.Text) + 明細_dgv.Rows(i).Cells("零用金").Value * 明細_dgv.Rows(i).Cells("匯率").Value
-            TextBox8.Text = Val(TextBox8.Text) + 明細_dgv.Rows(i).Cells("支票").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+            收入_tb.Text = Val(收入_tb.Text) + 明細_dgv.Rows(i).Cells("收入").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+            支出_tb.Text = Val(支出_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+            零用金_tb.Text = Val(零用金_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+            支票_tb.Text = Val(支票_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value * 明細_dgv.Rows(i).Cells("匯率").Value
         Next i
-        TextBox6.Text = Val(TextBox7.Text) + Val(TextBox5.Text) - Val(TextBox2.Text)
-        If Val(TextBox6.Text) > 0 Then : TextBox6.ForeColor = Color.Blue : Else : TextBox6.ForeColor = Color.Red : End If
-        TextBox5.Text = Format(Val(TextBox5.Text), "#,##0.00") : TextBox2.Text = Format(Val(TextBox2.Text), "#,##0.00") : TextBox6.Text = Format(Val(TextBox6.Text), "#,##0.00")
-        TextBox7.Text = Format(Val(TextBox7.Text), "#,##0.00") : TextBox8.Text = Format(Val(TextBox8.Text), "#,##0.00")
+        餘額_tb.Text = Val(零用金_tb.Text) + Val(收入_tb.Text) - Val(支出_tb.Text)
+        If Val(餘額_tb.Text) > 0 Then : 餘額_tb.ForeColor = Color.Blue : Else : 餘額_tb.ForeColor = Color.Red : End If
+        收入_tb.Text = Format(Val(收入_tb.Text), "#,##0.00") : 支出_tb.Text = Format(Val(支出_tb.Text), "#,##0.00") : 餘額_tb.Text = Format(Val(餘額_tb.Text), "#,##0.00")
+        零用金_tb.Text = Format(Val(零用金_tb.Text), "#,##0.00") : 支票_tb.Text = Format(Val(支票_tb.Text), "#,##0.00")
     End Sub
     Private Sub Set_清單()
-        DataGridView3.DataSource = Nothing : ds2.Clear()
-        DataGridView3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView3.ColumnHeadersHeight = 25
-        DataGridView3.AllowUserToAddRows = False
+        簽名檔_dgv.DataSource = Nothing : ds2.Clear()
+        簽名檔_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        簽名檔_dgv.ColumnHeadersHeight = 25
+        簽名檔_dgv.AllowUserToAddRows = False
         ConnOpen()
         SQL1 = "SELECT 圖片流水號 AS 圖檔編碼, 簽名檔人名 FROM GCM主管簽名檔管理 ORDER BY 圖片流水號 DESC"
-        CmdSet_For_DGV() : da.Fill(ds2) : DataGridView3.DataSource = ds2.Tables(0) : conn.Close()
+        CmdSet_For_DGV() : da.Fill(ds2) : 簽名檔_dgv.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
+        簽名檔_dgv.Columns(0).FillWeight = 173 : 簽名檔_dgv.Columns(1).Visible = False
+        If 簽名檔_dgv.Rows.Count = 0 Then : Else
+            TextBox14.Text = 簽名檔_dgv(0, 0).Value.ToString
             ConnOpen()
             SQL1 = "SELECT 簽名檔圖片 FROM GCM主管簽名檔管理 WHERE 圖片流水號 LIKE '" & TextBox14.Text & "'"
             cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
@@ -92,7 +91,7 @@ Public Class 財務_收支單審核
             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(0) = Strings.Right(簽名檔_dgv(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
@@ -127,7 +126,7 @@ Public Class 財務_收支單審核
     Private Sub 匯率()
         ConnOpen()
         SQL1 = "SELECT 中心匯率, 美金匯率, 印尼匯率 FROM 歷史匯率表 
-                WHERE (年 LIKE '" & Strings.Left(Format(DateTimePicker1.Value, "yyyyMMdd"), 4) & "%') AND (月 LIKE '" & Strings.Mid(Format(DateTimePicker1.Value, "yyyyMMdd"), 5, 2) & "%')"
+                WHERE (年 LIKE '" & Strings.Left(Format(日期_dtp.Value, "yyyyMMdd"), 4) & "%') AND (月 LIKE '" & Strings.Mid(Format(日期_dtp.Value, "yyyyMMdd"), 5, 2) & "%')"
         cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
         If dr.Read() Then
             人民幣匯率_tb.Text = dr("中心匯率").ToString : 美金匯率_tb.Text = dr("美金匯率").ToString : 印尼匯率_tb.Text = dr("印尼匯率").ToString : conn.Close() : dr.Close()
@@ -137,18 +136,18 @@ Public Class 財務_收支單審核
     End Sub
     Private Sub 營運費用支付審核_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-        RadioButton1.Checked = True : DataGridView2.Visible = True
+        未核准的收支單_rb.Checked = True : 收支單_dgv.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
+    Private Sub 收支單_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 收支單_dgv.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
+            收支單號_tb.Text = 收支單_dgv(0, e.RowIndex).Value.ToString : 日期_dtp.Value = 收支單_dgv(1, e.RowIndex).Value.ToString : Set_費用清單()
+            申請人_tb.Text = 收支單_dgv(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
+    Private Sub 簽名檔_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 簽名檔_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox14.Text = DataGridView3(0, e.RowIndex).Value.ToString
+            TextBox14.Text = 簽名檔_dgv(0, e.RowIndex).Value.ToString
             ConnOpen()
             SQL1 = "SELECT 簽名檔圖片 FROM GCM主管簽名檔管理 WHERE 圖片流水號 LIKE '" & TextBox14.Text & "'"
             cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
@@ -161,7 +160,7 @@ Public Class 財務_收支單審核
             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(0) = Strings.Right(簽名檔_dgv(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
@@ -185,84 +184,84 @@ Public Class 財務_收支單審核
         End If
     End Sub
     Private Sub Set_切換格式()
-        明細_dgv.DataSource = Nothing : ds.Clear() : TextBox1.Text = "" : TextBox3.Text = "" : TextBox5.Text = "" : TextBox2.Text = "" : TextBox6.Text = ""
-        TextBox7.Text = "" : TextBox8.Text = "" : Set_清單1()
+        明細_dgv.DataSource = Nothing : ds.Clear() : 收支單號_tb.Text = "" : 申請人_tb.Text = "" : 收入_tb.Text = "" : 支出_tb.Text = "" : 餘額_tb.Text = ""
+        零用金_tb.Text = "" : 支票_tb.Text = "" : Set_清單1()
     End Sub
-    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.Click
-        RadioButton1.Checked = True : RadioButton2.Checked = False
-        明細_dgv.DataSource = Nothing : ds.Clear() : TextBox1.Text = "" : TextBox3.Text = "" : TextBox5.Text = "" : TextBox2.Text = "" : TextBox6.Text = ""
-        Button1.Enabled = True : Button2.Enabled = True : 審核通過ToolStripMenuItem.Enabled = True : 單據作廢ToolStripMenuItem.Enabled = True : Set_切換格式()
+    Private Sub 未核准的收支單_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 未核准的收支單_rb.Click
+        未核准的收支單_rb.Checked = True : 作廢的收支單_rb.Checked = False
+        明細_dgv.DataSource = Nothing : ds.Clear() : 收支單號_tb.Text = "" : 申請人_tb.Text = "" : 收入_tb.Text = "" : 支出_tb.Text = "" : 餘額_tb.Text = ""
+        審核通過_bt.Enabled = True : 單據作廢_bt.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
-        明細_dgv.DataSource = Nothing : ds.Clear() : TextBox1.Text = "" : TextBox3.Text = "" : TextBox5.Text = "" : TextBox2.Text = "" : TextBox6.Text = ""
-        Button1.Enabled = False : Button2.Enabled = False : 審核通過ToolStripMenuItem.Enabled = False : 單據作廢ToolStripMenuItem.Enabled = False : Set_切換格式()
+    Private Sub 作廢的收支單_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 作廢的收支單_rb.Click
+        未核准的收支單_rb.Checked = False : 作廢的收支單_rb.Checked = True
+        明細_dgv.DataSource = Nothing : ds.Clear() : 收支單號_tb.Text = "" : 申請人_tb.Text = "" : 收入_tb.Text = "" : 支出_tb.Text = "" : 餘額_tb.Text = ""
+        審核通過_bt.Enabled = False : 單據作廢_bt.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
+    Private Sub 審核通過_bt_Click(sender As Object, e As EventArgs) Handles 審核通過_bt.Click
+        If 收支單號_tb.Text = "" Then
             MsgBox("請選擇需要審核的單據。")
         Else
-            If CheckBox1.Checked = False Then
+            If 補單_ch.Checked = False Then
                 Set_日期格式轉換()
             Else
-                DTP = Format(DateTimePicker1.Value, "yyyy/MM/dd")
+                DTP = Format(日期_dtp.Value, "yyyy/MM/dd")
             End If
             conn.Close()
             ConnOpen()
             SQL1 = "UPDATE 財務控制表 SET 審核人 = N'" & gUserName & "', 審核日期 = N'" & DTP & "', 核准圖檔 = N'" & TextBox14.Text & "', 簽名編碼 = N'" & TextBox13.Text &
                                           "', 出納 = '" & gUserName & "', 出納日期 = N'" & DTP & "'
-                    WHERE (支付單號 = N'" & TextBox1.Text & "')"
+                    WHERE (支付單號 = N'" & 收支單號_tb.Text & "')"
             CmdSet_For_dr() : conn.Close()
 
             ConnOpen()
             SQL1 = "UPDATE 財務流水帳 SET 出納 = '1', 出納日期 = N'" & DTP & "'
-                   WHERE (支付單號 LIKE '" & TextBox1.Text & "')"
+                   WHERE (支付單號 LIKE '" & 收支單號_tb.Text & "')"
             CmdSet_For_dr() : conn.Close()
 
             For i As Integer = 0 To 明細_dgv.Rows.Count - 1
                 If 明細_dgv.Rows(i).Cells("零用金").Value <> 0 Then
                     ConnOpen()
-                    SQL1 = "UPDATE 財務流水帳 SET  備用金 = N'1' WHERE (支付單號 LIKE '" & TextBox1.Text & "' AND 項次 LIKE '" & 明細_dgv.Rows(i).Cells("項次").Value & "')"
+                    SQL1 = "UPDATE 財務流水帳 SET  備用金 = N'1' WHERE (支付單號 LIKE '" & 收支單號_tb.Text & "' AND 項次 LIKE '" & 明細_dgv.Rows(i).Cells("項次").Value & "')"
                     CmdSet_For_dr() : conn.Close()
-                ElseIf 明細_dgv.Rows(i).Cells("現金").Value <> 0 Then
+                ElseIf 明細_dgv.Rows(i).Cells("收入").Value <> 0 Then
                     ConnOpen()
-                    SQL1 = "UPDATE 財務流水帳 SET  現金 = N'1' WHERE (支付單號 LIKE '" & TextBox1.Text & "' AND 項次 LIKE '" & 明細_dgv.Rows(i).Cells("項次").Value & "')"
+                    SQL1 = "UPDATE 財務流水帳 SET  現金 = N'1' WHERE (支付單號 LIKE '" & 收支單號_tb.Text & "' AND 項次 LIKE '" & 明細_dgv.Rows(i).Cells("項次").Value & "')"
                     CmdSet_For_dr() : conn.Close()
                 ElseIf 明細_dgv.Rows(i).Cells("支出").Value <> 0 Then
                     ConnOpen()
-                    SQL1 = "UPDATE 財務流水帳 SET  公帳 = N'1' WHERE (支付單號 LIKE '" & TextBox1.Text & "' AND 項次 LIKE '" & 明細_dgv.Rows(i).Cells("項次").Value & "')"
+                    SQL1 = "UPDATE 財務流水帳 SET  公帳 = N'1' WHERE (支付單號 LIKE '" & 收支單號_tb.Text & "' AND 項次 LIKE '" & 明細_dgv.Rows(i).Cells("項次").Value & "')"
                     CmdSet_For_dr() : conn.Close()
                 End If
             Next
             MsgBox("審核完畢。")
-            TextBox1.Text = "" : TextBox3.Text = ""
+            收支單號_tb.Text = "" : 申請人_tb.Text = ""
             明細_dgv.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
+    Private Sub 單據作廢_bt_Click(sender As Object, e As EventArgs) Handles 單據作廢_bt.Click
+        If 收支單號_tb.Text = "" Then
             MsgBox("請選擇需要審核的單據。")
         Else
             PA = InputBox("請輸入作廢原因。")
             If PA = "" Then
                 MsgBox("請輸入作廢原因,不可空白。")
             Else
-                If CheckBox1.Checked = False Then
+                If 補單_ch.Checked = False Then
                     Set_日期格式轉換()
                 Else
-                    DTP = Format(DateTimePicker1.Value, "yyyy/MM/dd")
+                    DTP = Format(日期_dtp.Value, "yyyy/MM/dd")
                 End If
                 conn.Close()
                 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'" & 收支單號_tb.Text & "')"
                 CmdSet_For_dr()
                 conn.Close()
                 MsgBox("審核完畢。") : PA = ""
-                TextBox1.Text = "" : TextBox3.Text = ""
+                收支單號_tb.Text = "" : 申請人_tb.Text = ""
                 明細_dgv.DataSource = Nothing : ds.Clear()
                 Set_清單1()
             End If
@@ -273,9 +272,9 @@ Public Class 財務_收支單審核
         Set_清單1()
     End Sub
     Private Sub 審核通過ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 審核通過ToolStripMenuItem.Click
-        Me.Button1.PerformClick()
+        Me.審核通過_bt.PerformClick()
     End Sub
     Private Sub 單據作廢ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 單據作廢ToolStripMenuItem.Click
-        Me.Button2.PerformClick()
+        Me.單據作廢_bt.PerformClick()
     End Sub
 End Class

工巧明智能管理系統/我的系統/02-財務系統管理/GCM/財務_收支單申請_GCM.Designer.vb

@@ -0,0 +1,974 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 財務_收支單申請_GCM
+    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.科目3_名_cb = New System.Windows.Forms.ComboBox()
+        Me.收入_tb = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label62 = New System.Windows.Forms.Label()
+        Me.項次_tb = New System.Windows.Forms.TextBox()
+        Me.Label28 = New System.Windows.Forms.Label()
+        Me.Label27 = New System.Windows.Forms.Label()
+        Me.明細表_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.申請人_tb = New System.Windows.Forms.TextBox()
+        Me.收支單號_tb = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.作廢的收支單_rb = New System.Windows.Forms.RadioButton()
+        Me.未核准的收支單_rb = New System.Windows.Forms.RadioButton()
+        Me.收支單_dgv = New System.Windows.Forms.DataGridView()
+        Me.申請_bt = 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.日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.補單_ch = New System.Windows.Forms.CheckBox()
+        Me.支出_tb = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.合計_tb = New System.Windows.Forms.TextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.零用金_tb = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.支票_tb = New System.Windows.Forms.TextBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.已核准的收支單_rb = New System.Windows.Forms.RadioButton()
+        Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
+        Me.複製歷史單據重新開立_bt = New System.Windows.Forms.Button()
+        Me.科目2_號_cb = New System.Windows.Forms.ComboBox()
+        Me.科目2_名_cb = New System.Windows.Forms.ComboBox()
+        Me.科目1_號_cb = New System.Windows.Forms.ComboBox()
+        Me.科目1_名_cb = New System.Windows.Forms.ComboBox()
+        Me.關鍵字查詢會計科目_tb = New System.Windows.Forms.TextBox()
+        Me.科目3_號_cb = New System.Windows.Forms.ComboBox()
+        Me.幣別_cb = New System.Windows.Forms.ComboBox()
+        Me.人民幣匯率_tb = New System.Windows.Forms.TextBox()
+        Me.美金匯率_tb = New System.Windows.Forms.TextBox()
+        Me.印尼匯率_tb = New System.Windows.Forms.TextBox()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.刪除選中的營運成本收支單_bt = New System.Windows.Forms.Button()
+        Me.開立營運成本收支單_bt = New System.Windows.Forms.Button()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.刪除選中的一筆資料_bt = New System.Windows.Forms.Button()
+        Me.收支單中新增一筆空白資料_bt = New System.Windows.Forms.Button()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.視窗1_pl = New System.Windows.Forms.Panel()
+        Me.物料群組_Panel = New System.Windows.Forms.Panel()
+        Me.支出_cb = New System.Windows.Forms.CheckBox()
+        Me.收入_cb = New System.Windows.Forms.CheckBox()
+        Me.指定_ndp = New System.Windows.Forms.NumericUpDown()
+        Me.窗口說明1_lb = New System.Windows.Forms.Label()
+        Me.確定_bt = New System.Windows.Forms.Button()
+        Me.窗口表頭_lb = New System.Windows.Forms.Label()
+        Me.Cancel_bt = New System.Windows.Forms.Button()
+        CType(Me.明細表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.收支單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuStrip1.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        Me.視窗1_pl.SuspendLayout()
+        Me.物料群組_Panel.SuspendLayout()
+        CType(Me.指定_ndp, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '科目3_名_cb
+        '
+        Me.科目3_名_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.科目3_名_cb.FormattingEnabled = True
+        Me.科目3_名_cb.Location = New System.Drawing.Point(773, 71)
+        Me.科目3_名_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.科目3_名_cb.Name = "科目3_名_cb"
+        Me.科目3_名_cb.Size = New System.Drawing.Size(184, 24)
+        Me.科目3_名_cb.TabIndex = 845
+        '
+        '收入_tb
+        '
+        Me.收入_tb.Location = New System.Drawing.Point(714, 102)
+        Me.收入_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.收入_tb.Name = "收入_tb"
+        Me.收入_tb.Size = New System.Drawing.Size(100, 23)
+        Me.收入_tb.TabIndex = 844
+        Me.收入_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(681, 106)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(31, 16)
+        Me.Label8.TabIndex = 843
+        Me.Label8.Text = "收入"
+        '
+        '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(1134, 1)
+        Me.Label62.Name = "Label62"
+        Me.Label62.Size = New System.Drawing.Size(109, 16)
+        Me.Label62.TabIndex = 842
+        Me.Label62.Text = "資  料  尚  未  存  檔"
+        Me.Label62.Visible = False
+        '
+        '項次_tb
+        '
+        Me.項次_tb.Location = New System.Drawing.Point(353, 102)
+        Me.項次_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.項次_tb.Name = "項次_tb"
+        Me.項次_tb.Size = New System.Drawing.Size(61, 23)
+        Me.項次_tb.TabIndex = 841
+        Me.項次_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label28
+        '
+        Me.Label28.AutoSize = True
+        Me.Label28.Location = New System.Drawing.Point(413, 106)
+        Me.Label28.Name = "Label28"
+        Me.Label28.Size = New System.Drawing.Size(43, 16)
+        Me.Label28.TabIndex = 840
+        Me.Label28.Text = "項次。"
+        '
+        'Label27
+        '
+        Me.Label27.AutoSize = True
+        Me.Label27.Location = New System.Drawing.Point(321, 105)
+        Me.Label27.Name = "Label27"
+        Me.Label27.Size = New System.Drawing.Size(31, 16)
+        Me.Label27.TabIndex = 839
+        Me.Label27.Text = "選擇"
+        '
+        '明細表_dgv
+        '
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.明細表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.明細表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.明細表_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.明細表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.明細表_dgv.Location = New System.Drawing.Point(318, 127)
+        Me.明細表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.明細表_dgv.Name = "明細表_dgv"
+        Me.明細表_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.明細表_dgv.RowTemplate.Height = 24
+        Me.明細表_dgv.Size = New System.Drawing.Size(925, 482)
+        Me.明細表_dgv.TabIndex = 838
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(502, 21)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(43, 16)
+        Me.Label3.TabIndex = 837
+        Me.Label3.Text = "申請人"
+        '
+        '申請人_tb
+        '
+        Me.申請人_tb.Location = New System.Drawing.Point(546, 18)
+        Me.申請人_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.申請人_tb.Name = "申請人_tb"
+        Me.申請人_tb.Size = New System.Drawing.Size(92, 23)
+        Me.申請人_tb.TabIndex = 836
+        Me.申請人_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '收支單號_tb
+        '
+        Me.收支單號_tb.Location = New System.Drawing.Point(379, 18)
+        Me.收支單號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.收支單號_tb.Name = "收支單號_tb"
+        Me.收支單號_tb.Size = New System.Drawing.Size(122, 23)
+        Me.收支單號_tb.TabIndex = 832
+        Me.收支單號_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(322, 22)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(55, 16)
+        Me.Label1.TabIndex = 833
+        Me.Label1.Text = "收支單號"
+        '
+        '作廢的收支單_rb
+        '
+        Me.作廢的收支單_rb.AutoSize = True
+        Me.作廢的收支單_rb.Location = New System.Drawing.Point(225, 2)
+        Me.作廢的收支單_rb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.作廢的收支單_rb.Name = "作廢的收支單_rb"
+        Me.作廢的收支單_rb.Size = New System.Drawing.Size(97, 20)
+        Me.作廢的收支單_rb.TabIndex = 829
+        Me.作廢的收支單_rb.TabStop = True
+        Me.作廢的收支單_rb.Text = "作廢的收支單"
+        Me.作廢的收支單_rb.UseVisualStyleBackColor = True
+        '
+        '未核准的收支單_rb
+        '
+        Me.未核准的收支單_rb.AutoSize = True
+        Me.未核准的收支單_rb.Location = New System.Drawing.Point(3, 2)
+        Me.未核准的收支單_rb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.未核准的收支單_rb.Name = "未核准的收支單_rb"
+        Me.未核准的收支單_rb.Size = New System.Drawing.Size(109, 20)
+        Me.未核准的收支單_rb.TabIndex = 828
+        Me.未核准的收支單_rb.TabStop = True
+        Me.未核准的收支單_rb.Text = "未核准的收支單"
+        Me.未核准的收支單_rb.UseVisualStyleBackColor = True
+        '
+        '收支單_dgv
+        '
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.收支單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.收支單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.收支單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.收支單_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.收支單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.收支單_dgv.Location = New System.Drawing.Point(4, 22)
+        Me.收支單_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.收支單_dgv.Name = "收支單_dgv"
+        Me.收支單_dgv.RowHeadersWidth = 5
+        Me.收支單_dgv.RowTemplate.Height = 24
+        Me.收支單_dgv.Size = New System.Drawing.Size(315, 587)
+        Me.收支單_dgv.TabIndex = 820
+        '
+        '申請_bt
+        '
+        Me.申請_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.申請_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.申請_bt.Location = New System.Drawing.Point(1083, 101)
+        Me.申請_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.申請_bt.Name = "申請_bt"
+        Me.申請_bt.Size = New System.Drawing.Size(160, 25)
+        Me.申請_bt.TabIndex = 846
+        Me.申請_bt.Text = "申請完成"
+        Me.申請_bt.UseVisualStyleBackColor = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(327, 75)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(55, 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(644, 21)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(31, 16)
+        Me.Label4.TabIndex = 878
+        Me.Label4.Text = "日期"
+        '
+        '日期_dtp
+        '
+        Me.日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.日期_dtp.Location = New System.Drawing.Point(676, 18)
+        Me.日期_dtp.Name = "日期_dtp"
+        Me.日期_dtp.Size = New System.Drawing.Size(90, 23)
+        Me.日期_dtp.TabIndex = 877
+        '
+        '補單_ch
+        '
+        Me.補單_ch.AutoSize = True
+        Me.補單_ch.Checked = True
+        Me.補單_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.補單_ch.Location = New System.Drawing.Point(775, 20)
+        Me.補單_ch.Name = "補單_ch"
+        Me.補單_ch.Size = New System.Drawing.Size(38, 20)
+        Me.補單_ch.TabIndex = 879
+        Me.補單_ch.Text = "補"
+        Me.補單_ch.UseVisualStyleBackColor = True
+        '
+        '支出_tb
+        '
+        Me.支出_tb.Location = New System.Drawing.Point(849, 102)
+        Me.支出_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.支出_tb.Name = "支出_tb"
+        Me.支出_tb.Size = New System.Drawing.Size(100, 23)
+        Me.支出_tb.TabIndex = 881
+        Me.支出_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(816, 106)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(31, 16)
+        Me.Label5.TabIndex = 880
+        Me.Label5.Text = "支出"
+        '
+        '合計_tb
+        '
+        Me.合計_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.合計_tb.Location = New System.Drawing.Point(979, 102)
+        Me.合計_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.合計_tb.Name = "合計_tb"
+        Me.合計_tb.Size = New System.Drawing.Size(100, 23)
+        Me.合計_tb.TabIndex = 883
+        Me.合計_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(948, 106)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(31, 16)
+        Me.Label9.TabIndex = 882
+        Me.Label9.Text = "合計"
+        '
+        '零用金_tb
+        '
+        Me.零用金_tb.Location = New System.Drawing.Point(514, 102)
+        Me.零用金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.零用金_tb.Name = "零用金_tb"
+        Me.零用金_tb.Size = New System.Drawing.Size(65, 23)
+        Me.零用金_tb.TabIndex = 885
+        Me.零用金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(468, 105)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(43, 16)
+        Me.Label10.TabIndex = 884
+        Me.Label10.Text = "零用金"
+        '
+        '支票_tb
+        '
+        Me.支票_tb.Location = New System.Drawing.Point(614, 102)
+        Me.支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.支票_tb.Name = "支票_tb"
+        Me.支票_tb.Size = New System.Drawing.Size(65, 23)
+        Me.支票_tb.TabIndex = 887
+        Me.支票_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(581, 105)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(31, 16)
+        Me.Label11.TabIndex = 886
+        Me.Label11.Text = "支票"
+        '
+        '已核准的收支單_rb
+        '
+        Me.已核准的收支單_rb.AutoSize = True
+        Me.已核准的收支單_rb.Location = New System.Drawing.Point(116, 2)
+        Me.已核准的收支單_rb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.已核准的收支單_rb.Name = "已核准的收支單_rb"
+        Me.已核准的收支單_rb.Size = New System.Drawing.Size(109, 20)
+        Me.已核准的收支單_rb.TabIndex = 888
+        Me.已核准的收支單_rb.TabStop = True
+        Me.已核准的收支單_rb.Text = "已核准的收支單"
+        Me.已核准的收支單_rb.UseVisualStyleBackColor = True
+        '
+        'DateTimePicker2
+        '
+        Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker2.Location = New System.Drawing.Point(3, 128)
+        Me.DateTimePicker2.Name = "DateTimePicker2"
+        Me.DateTimePicker2.Size = New System.Drawing.Size(175, 23)
+        Me.DateTimePicker2.TabIndex = 889
+        '
+        '複製歷史單據重新開立_bt
+        '
+        Me.複製歷史單據重新開立_bt.ForeColor = System.Drawing.Color.Green
+        Me.複製歷史單據重新開立_bt.Location = New System.Drawing.Point(1014, 17)
+        Me.複製歷史單據重新開立_bt.Name = "複製歷史單據重新開立_bt"
+        Me.複製歷史單據重新開立_bt.Size = New System.Drawing.Size(114, 25)
+        Me.複製歷史單據重新開立_bt.TabIndex = 890
+        Me.複製歷史單據重新開立_bt.Text = "複製歷史單據"
+        Me.複製歷史單據重新開立_bt.UseVisualStyleBackColor = True
+        '
+        '科目2_號_cb
+        '
+        Me.科目2_號_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.科目2_號_cb.FormattingEnabled = True
+        Me.科目2_號_cb.Location = New System.Drawing.Point(696, 71)
+        Me.科目2_號_cb.Name = "科目2_號_cb"
+        Me.科目2_號_cb.Size = New System.Drawing.Size(75, 24)
+        Me.科目2_號_cb.TabIndex = 894
+        '
+        '科目2_名_cb
+        '
+        Me.科目2_名_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.科目2_名_cb.FormattingEnabled = True
+        Me.科目2_名_cb.Location = New System.Drawing.Point(571, 71)
+        Me.科目2_名_cb.Name = "科目2_名_cb"
+        Me.科目2_名_cb.Size = New System.Drawing.Size(123, 24)
+        Me.科目2_名_cb.TabIndex = 893
+        '
+        '科目1_號_cb
+        '
+        Me.科目1_號_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.科目1_號_cb.FormattingEnabled = True
+        Me.科目1_號_cb.Location = New System.Drawing.Point(509, 71)
+        Me.科目1_號_cb.Name = "科目1_號_cb"
+        Me.科目1_號_cb.Size = New System.Drawing.Size(61, 24)
+        Me.科目1_號_cb.TabIndex = 892
+        '
+        '科目1_名_cb
+        '
+        Me.科目1_名_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.科目1_名_cb.FormattingEnabled = True
+        Me.科目1_名_cb.Location = New System.Drawing.Point(385, 71)
+        Me.科目1_名_cb.Name = "科目1_名_cb"
+        Me.科目1_名_cb.Size = New System.Drawing.Size(123, 24)
+        Me.科目1_名_cb.TabIndex = 891
+        '
+        '關鍵字查詢會計科目_tb
+        '
+        Me.關鍵字查詢會計科目_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.關鍵字查詢會計科目_tb.Location = New System.Drawing.Point(960, 47)
+        Me.關鍵字查詢會計科目_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.關鍵字查詢會計科目_tb.Name = "關鍵字查詢會計科目_tb"
+        Me.關鍵字查詢會計科目_tb.Size = New System.Drawing.Size(119, 23)
+        Me.關鍵字查詢會計科目_tb.TabIndex = 895
+        Me.關鍵字查詢會計科目_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '科目3_號_cb
+        '
+        Me.科目3_號_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.科目3_號_cb.FormattingEnabled = True
+        Me.科目3_號_cb.Location = New System.Drawing.Point(3, 4)
+        Me.科目3_號_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.科目3_號_cb.Name = "科目3_號_cb"
+        Me.科目3_號_cb.Size = New System.Drawing.Size(175, 24)
+        Me.科目3_號_cb.TabIndex = 896
+        '
+        '幣別_cb
+        '
+        Me.幣別_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.幣別_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.幣別_cb.FormattingEnabled = True
+        Me.幣別_cb.Items.AddRange(New Object() {"台幣現金", "人民幣現金", "美金", "印尼盾"})
+        Me.幣別_cb.Location = New System.Drawing.Point(960, 71)
+        Me.幣別_cb.Name = "幣別_cb"
+        Me.幣別_cb.Size = New System.Drawing.Size(119, 24)
+        Me.幣別_cb.TabIndex = 898
+        '
+        '人民幣匯率_tb
+        '
+        Me.人民幣匯率_tb.Location = New System.Drawing.Point(3, 36)
+        Me.人民幣匯率_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.人民幣匯率_tb.Name = "人民幣匯率_tb"
+        Me.人民幣匯率_tb.Size = New System.Drawing.Size(175, 23)
+        Me.人民幣匯率_tb.TabIndex = 899
+        Me.人民幣匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '美金匯率_tb
+        '
+        Me.美金匯率_tb.Location = New System.Drawing.Point(3, 67)
+        Me.美金匯率_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.美金匯率_tb.Name = "美金匯率_tb"
+        Me.美金匯率_tb.Size = New System.Drawing.Size(175, 23)
+        Me.美金匯率_tb.TabIndex = 900
+        Me.美金匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '印尼匯率_tb
+        '
+        Me.印尼匯率_tb.Location = New System.Drawing.Point(3, 98)
+        Me.印尼匯率_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.印尼匯率_tb.Name = "印尼匯率_tb"
+        Me.印尼匯率_tb.Size = New System.Drawing.Size(175, 23)
+        Me.印尼匯率_tb.TabIndex = 901
+        Me.印尼匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label16.Location = New System.Drawing.Point(323, 1)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(218, 16)
+        Me.Label16.TabIndex = 1502
+        Me.Label16.Text = "1、先開立財務收支單，在選會計科目。"
+        '
+        '刪除選中的營運成本收支單_bt
+        '
+        Me.刪除選中的營運成本收支單_bt.ForeColor = System.Drawing.Color.Red
+        Me.刪除選中的營運成本收支單_bt.Location = New System.Drawing.Point(1128, 17)
+        Me.刪除選中的營運成本收支單_bt.Name = "刪除選中的營運成本收支單_bt"
+        Me.刪除選中的營運成本收支單_bt.Size = New System.Drawing.Size(115, 25)
+        Me.刪除選中的營運成本收支單_bt.TabIndex = 1504
+        Me.刪除選中的營運成本收支單_bt.Text = "刪除選中的財務單"
+        Me.刪除選中的營運成本收支單_bt.UseVisualStyleBackColor = True
+        '
+        '開立營運成本收支單_bt
+        '
+        Me.開立營運成本收支單_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.開立營運成本收支單_bt.Location = New System.Drawing.Point(899, 17)
+        Me.開立營運成本收支單_bt.Name = "開立營運成本收支單_bt"
+        Me.開立營運成本收支單_bt.Size = New System.Drawing.Size(115, 25)
+        Me.開立營運成本收支單_bt.TabIndex = 1503
+        Me.開立營運成本收支單_bt.Text = "開立財務收支單"
+        Me.開立營運成本收支單_bt.UseVisualStyleBackColor = True
+        '
+        '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(323, 55)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(218, 16)
+        Me.Label13.TabIndex = 1506
+        Me.Label13.Text = "2、選擇會計科目後再新增一筆空白資料"
+        '
+        'Label12
+        '
+        Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(375, 30)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(872, 16)
+        Me.Label12.TabIndex = 1508
+        Me.Label12.Text = "_________________________________________________________________________________" &
+    "________________________________________________________________________________" &
+    "____________"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(318, 30)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(872, 16)
+        Me.Label7.TabIndex = 1507
+        Me.Label7.Text = "_________________________________________________________________________________" &
+    "________________________________________________________________________________" &
+    "____________"
+        '
+        'Label6
+        '
+        Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(375, 85)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(872, 16)
+        Me.Label6.TabIndex = 1510
+        Me.Label6.Text = "_________________________________________________________________________________" &
+    "________________________________________________________________________________" &
+    "____________"
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Location = New System.Drawing.Point(318, 85)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(872, 16)
+        Me.Label14.TabIndex = 1509
+        Me.Label14.Text = "_________________________________________________________________________________" &
+    "________________________________________________________________________________" &
+    "____________"
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.Location = New System.Drawing.Point(837, 51)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(120, 16)
+        Me.Label15.TabIndex = 1511
+        Me.Label15.Text = "關鍵字查詢-會計科目"
+        '
+        '刪除選中的一筆資料_bt
+        '
+        Me.刪除選中的一筆資料_bt.ForeColor = System.Drawing.Color.Red
+        Me.刪除選中的一筆資料_bt.Location = New System.Drawing.Point(1083, 71)
+        Me.刪除選中的一筆資料_bt.Name = "刪除選中的一筆資料_bt"
+        Me.刪除選中的一筆資料_bt.Size = New System.Drawing.Size(160, 25)
+        Me.刪除選中的一筆資料_bt.TabIndex = 1513
+        Me.刪除選中的一筆資料_bt.Text = "刪除選中的一筆資料"
+        Me.刪除選中的一筆資料_bt.UseVisualStyleBackColor = True
+        '
+        '收支單中新增一筆空白資料_bt
+        '
+        Me.收支單中新增一筆空白資料_bt.ForeColor = System.Drawing.Color.Green
+        Me.收支單中新增一筆空白資料_bt.Location = New System.Drawing.Point(1083, 46)
+        Me.收支單中新增一筆空白資料_bt.Name = "收支單中新增一筆空白資料_bt"
+        Me.收支單中新增一筆空白資料_bt.Size = New System.Drawing.Size(160, 25)
+        Me.收支單中新增一筆空白資料_bt.TabIndex = 1512
+        Me.收支單中新增一筆空白資料_bt.Text = "收支單中新增一筆空白資料"
+        Me.收支單中新增一筆空白資料_bt.UseVisualStyleBackColor = True
+        '
+        'Panel1
+        '
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.科目3_號_cb)
+        Me.Panel1.Controls.Add(Me.人民幣匯率_tb)
+        Me.Panel1.Controls.Add(Me.美金匯率_tb)
+        Me.Panel1.Controls.Add(Me.印尼匯率_tb)
+        Me.Panel1.Controls.Add(Me.DateTimePicker2)
+        Me.Panel1.Location = New System.Drawing.Point(81, 211)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(188, 159)
+        Me.Panel1.TabIndex = 1514
+        '
+        '視窗1_pl
+        '
+        Me.視窗1_pl.BackColor = System.Drawing.Color.White
+        Me.視窗1_pl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.視窗1_pl.Controls.Add(Me.物料群組_Panel)
+        Me.視窗1_pl.Controls.Add(Me.窗口表頭_lb)
+        Me.視窗1_pl.Controls.Add(Me.Cancel_bt)
+        Me.視窗1_pl.Location = New System.Drawing.Point(647, 279)
+        Me.視窗1_pl.Name = "視窗1_pl"
+        Me.視窗1_pl.Size = New System.Drawing.Size(199, 124)
+        Me.視窗1_pl.TabIndex = 1515
+        '
+        '物料群組_Panel
+        '
+        Me.物料群組_Panel.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.物料群組_Panel.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.物料群組_Panel.Controls.Add(Me.支出_cb)
+        Me.物料群組_Panel.Controls.Add(Me.收入_cb)
+        Me.物料群組_Panel.Controls.Add(Me.指定_ndp)
+        Me.物料群組_Panel.Controls.Add(Me.窗口說明1_lb)
+        Me.物料群組_Panel.Controls.Add(Me.確定_bt)
+        Me.物料群組_Panel.Location = New System.Drawing.Point(3, 28)
+        Me.物料群組_Panel.Name = "物料群組_Panel"
+        Me.物料群組_Panel.Size = New System.Drawing.Size(192, 92)
+        Me.物料群組_Panel.TabIndex = 1367
+        '
+        '支出_cb
+        '
+        Me.支出_cb.AutoSize = True
+        Me.支出_cb.Location = New System.Drawing.Point(103, 32)
+        Me.支出_cb.Name = "支出_cb"
+        Me.支出_cb.Size = New System.Drawing.Size(50, 20)
+        Me.支出_cb.TabIndex = 1376
+        Me.支出_cb.Text = "支出"
+        Me.支出_cb.UseVisualStyleBackColor = True
+        '
+        '收入_cb
+        '
+        Me.收入_cb.AutoSize = True
+        Me.收入_cb.Location = New System.Drawing.Point(8, 32)
+        Me.收入_cb.Name = "收入_cb"
+        Me.收入_cb.Size = New System.Drawing.Size(50, 20)
+        Me.收入_cb.TabIndex = 1375
+        Me.收入_cb.Text = "收入"
+        Me.收入_cb.UseVisualStyleBackColor = True
+        '
+        '指定_ndp
+        '
+        Me.指定_ndp.Location = New System.Drawing.Point(53, 4)
+        Me.指定_ndp.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
+        Me.指定_ndp.Minimum = New Decimal(New Integer() {100000000, 0, 0, -2147483648})
+        Me.指定_ndp.Name = "指定_ndp"
+        Me.指定_ndp.Size = New System.Drawing.Size(120, 23)
+        Me.指定_ndp.TabIndex = 1374
+        Me.指定_ndp.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.指定_ndp.ThousandsSeparator = True
+        '
+        '窗口說明1_lb
+        '
+        Me.窗口說明1_lb.AutoSize = True
+        Me.窗口說明1_lb.Location = New System.Drawing.Point(3, 6)
+        Me.窗口說明1_lb.Name = "窗口說明1_lb"
+        Me.窗口說明1_lb.Size = New System.Drawing.Size(43, 16)
+        Me.窗口說明1_lb.TabIndex = 1373
+        Me.窗口說明1_lb.Text = "零用金"
+        '
+        '確定_bt
+        '
+        Me.確定_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.確定_bt.ForeColor = System.Drawing.Color.Blue
+        Me.確定_bt.Location = New System.Drawing.Point(6, 51)
+        Me.確定_bt.Name = "確定_bt"
+        Me.確定_bt.Size = New System.Drawing.Size(175, 33)
+        Me.確定_bt.TabIndex = 1363
+        Me.確定_bt.Text = "確定"
+        Me.確定_bt.UseVisualStyleBackColor = True
+        '
+        '窗口表頭_lb
+        '
+        Me.窗口表頭_lb.AutoSize = True
+        Me.窗口表頭_lb.Location = New System.Drawing.Point(5, 7)
+        Me.窗口表頭_lb.Name = "窗口表頭_lb"
+        Me.窗口表頭_lb.Size = New System.Drawing.Size(55, 16)
+        Me.窗口表頭_lb.TabIndex = 1375
+        Me.窗口表頭_lb.Text = "編輯指定"
+        '
+        'Cancel_bt
+        '
+        Me.Cancel_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Cancel_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Cancel_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Cancel_bt.ForeColor = System.Drawing.Color.Black
+        Me.Cancel_bt.Location = New System.Drawing.Point(167, 2)
+        Me.Cancel_bt.Name = "Cancel_bt"
+        Me.Cancel_bt.Size = New System.Drawing.Size(26, 26)
+        Me.Cancel_bt.TabIndex = 1374
+        Me.Cancel_bt.Text = "X"
+        Me.Cancel_bt.UseVisualStyleBackColor = False
+        '
+        '財務_收支單申請_GCM
+        '
+        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.收支單_dgv)
+        Me.Controls.Add(Me.視窗1_pl)
+        Me.Controls.Add(Me.刪除選中的一筆資料_bt)
+        Me.Controls.Add(Me.收支單中新增一筆空白資料_bt)
+        Me.Controls.Add(Me.Label15)
+        Me.Controls.Add(Me.刪除選中的營運成本收支單_bt)
+        Me.Controls.Add(Me.開立營運成本收支單_bt)
+        Me.Controls.Add(Me.Label16)
+        Me.Controls.Add(Me.幣別_cb)
+        Me.Controls.Add(Me.關鍵字查詢會計科目_tb)
+        Me.Controls.Add(Me.科目2_號_cb)
+        Me.Controls.Add(Me.科目2_名_cb)
+        Me.Controls.Add(Me.科目1_號_cb)
+        Me.Controls.Add(Me.科目1_名_cb)
+        Me.Controls.Add(Me.複製歷史單據重新開立_bt)
+        Me.Controls.Add(Me.支票_tb)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.零用金_tb)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.合計_tb)
+        Me.Controls.Add(Me.支出_tb)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.補單_ch)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.日期_dtp)
+        Me.Controls.Add(Me.申請_bt)
+        Me.Controls.Add(Me.科目3_名_cb)
+        Me.Controls.Add(Me.收入_tb)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.Label62)
+        Me.Controls.Add(Me.項次_tb)
+        Me.Controls.Add(Me.Label28)
+        Me.Controls.Add(Me.Label27)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.申請人_tb)
+        Me.Controls.Add(Me.收支單號_tb)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.明細表_dgv)
+        Me.Controls.Add(Me.Label14)
+        Me.Controls.Add(Me.作廢的收支單_rb)
+        Me.Controls.Add(Me.已核准的收支單_rb)
+        Me.Controls.Add(Me.未核准的收支單_rb)
+        Me.Controls.Add(Me.Panel1)
+        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 = "財務_收支單申請_GCM"
+        Me.Text = "財務_收支單申請_GCM"
+        CType(Me.明細表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.收支單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.視窗1_pl.ResumeLayout(False)
+        Me.視窗1_pl.PerformLayout()
+        Me.物料群組_Panel.ResumeLayout(False)
+        Me.物料群組_Panel.PerformLayout()
+        CType(Me.指定_ndp, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 科目3_名_cb As ComboBox
+    Friend WithEvents 收入_tb As TextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents Label62 As Label
+    Friend WithEvents 項次_tb As TextBox
+    Friend WithEvents Label28 As Label
+    Friend WithEvents Label27 As Label
+    Friend WithEvents 明細表_dgv As DataGridView
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 申請人_tb As TextBox
+    Friend WithEvents 收支單號_tb As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 作廢的收支單_rb As RadioButton
+    Friend WithEvents 未核准的收支單_rb As RadioButton
+    Friend WithEvents 收支單_dgv As DataGridView
+    Friend WithEvents 申請_bt 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 日期_dtp As DateTimePicker
+    Friend WithEvents 補單_ch As CheckBox
+    Friend WithEvents 支出_tb As TextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents 合計_tb As TextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 零用金_tb As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents 支票_tb As TextBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents 已核准的收支單_rb As RadioButton
+    Friend WithEvents DateTimePicker2 As DateTimePicker
+    Friend WithEvents 複製單據開單ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 複製歷史單據重新開立_bt As Button
+    Friend WithEvents 科目2_號_cb As ComboBox
+    Friend WithEvents 科目2_名_cb As ComboBox
+    Friend WithEvents 科目1_號_cb As ComboBox
+    Friend WithEvents 科目1_名_cb As ComboBox
+    Friend WithEvents 關鍵字查詢會計科目_tb As TextBox
+    Friend WithEvents 科目3_號_cb As ComboBox
+    Friend WithEvents 幣別_cb As ComboBox
+    Friend WithEvents 人民幣匯率_tb As TextBox
+    Friend WithEvents 美金匯率_tb As TextBox
+    Friend WithEvents 印尼匯率_tb As TextBox
+    Friend WithEvents Label16 As Label
+    Friend WithEvents 刪除選中的營運成本收支單_bt As Button
+    Friend WithEvents 開立營運成本收支單_bt As Button
+    Friend WithEvents Label13 As Label
+    Friend WithEvents Label12 As Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label14 As Label
+    Friend WithEvents Label15 As Label
+    Friend WithEvents 刪除選中的一筆資料_bt As Button
+    Friend WithEvents 收支單中新增一筆空白資料_bt As Button
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents 視窗1_pl As Panel
+    Friend WithEvents 物料群組_Panel As Panel
+    Friend WithEvents 支出_cb As CheckBox
+    Friend WithEvents 收入_cb As CheckBox
+    Friend WithEvents 指定_ndp As NumericUpDown
+    Friend WithEvents 窗口說明1_lb As Label
+    Friend WithEvents 確定_bt As Button
+    Friend WithEvents 窗口表頭_lb As Label
+    Friend WithEvents Cancel_bt As Button
+End Class

工巧明智能管理系統/我的系統/02-財務系統管理/GCM/財務_收支單申請_GCM.vb

@@ -0,0 +1,453 @@
+Option Strict Off
+Public Class 財務_收支單申請_GCM
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet
+    Private DTP As String
+    Private DTP1 As String
+    Private WWEE As String
+    Private 新流水1 As String
+    Private 新項次 As String
+    Private ReadOnly 新流水2 As String
+    Dim NUM1, NUM2 As Integer : Dim 匯率1 As Double
+    Private Sub Set_清單1()
+        收支單_dgv.DataSource = Nothing : ds1.Clear()
+        收支單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        收支單_dgv.ColumnHeadersHeight = 25
+        收支單_dgv.AllowUserToAddRows = False
+        ConnOpen()
+        If 未核准的收支單_rb.Checked = True And 作廢的收支單_rb.Checked = False And 已核准的收支單_rb.Checked = False Then
+            WWEE = "WHERE (審核人 LIKE '') "
+        ElseIf 未核准的收支單_rb.Checked = False And 作廢的收支單_rb.Checked = True And 已核准的收支單_rb.Checked = False Then
+            WWEE = "WHERE (審核人 LIKE '作廢%') "
+        ElseIf 未核准的收支單_rb.Checked = False And 作廢的收支單_rb.Checked = False And 已核准的收支單_rb.Checked = True Then
+            WWEE = "WHERE (審核人 NOT LIKE '作廢%') AND (審核人 NOT LIKE '') "
+        End If
+        SQL1 = "SELECT 支付單號 AS 收支單號, 申請日期, 審核日期, 申請人 FROM 財務控制表 " & WWEE & " ORDER BY 申請日期 DESC"
+        CmdSet_For_DGV() : da.Fill(ds1) : 收支單_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        收支單_dgv.Columns(0).FillWeight = 160 : 收支單_dgv.Columns(1).FillWeight = 100 : 收支單_dgv.Columns(2).FillWeight = 100 : 收支單_dgv.Columns(3).Visible = False
+    End Sub
+    Private Sub Set_費用清單()
+        明細表_dgv.DataSource = Nothing : ds.Clear()
+        明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        明細表_dgv.ColumnHeadersHeight = 25
+        明細表_dgv.AllowUserToAddRows = False
+        明細表_dgv.RowTemplate.Height = 35
+        ConnOpen()
+        SQL1 = "SELECT      財務流水帳.支付單號, 財務流水帳.項次, 會計科目.會計科目, 財務流水帳.明細 AS 用途, 
+                            財務流水帳.零用金, 財務流水帳.支票數 AS 支票, Cast(財務流水帳.收入 AS money) AS 收入, 
+                            Cast(財務流水帳.支出 AS money) AS 支出, 財務流水帳.備註 AS 票期, 財務流水帳.匯率, 
+                            財務流水帳.銀行 AS 幣別, 財務流水帳.類別, 財務流水帳.流水號, 財務流水帳.含稅
+                FROM        財務流水帳 INNER JOIN
+                            會計科目 ON 財務流水帳.類別 = 會計科目.編號
+                WHERE      (財務流水帳.支付單號 LIKE '" & 收支單號_tb.Text & "')
+                ORDER BY    財務流水帳.項次"
+        CmdSet_For_DGV() : da.Fill(ds) : 明細表_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        明細表_dgv.Columns(0).Visible = False : 明細表_dgv.Columns(1).FillWeight = 80 : 明細表_dgv.Columns(2).FillWeight = 250 : 明細表_dgv.Columns(3).FillWeight = 400
+        明細表_dgv.Columns(4).Visible = False : 明細表_dgv.Columns(5).FillWeight = 120 : 明細表_dgv.Columns(6).FillWeight = 165 : 明細表_dgv.Columns(7).FillWeight = 165
+        明細表_dgv.Columns(8).FillWeight = 150 : 明細表_dgv.Columns(9).FillWeight = 130 : 明細表_dgv.Columns(10).FillWeight = 140 : 明細表_dgv.Columns(11).Visible = False
+        明細表_dgv.Columns(12).Visible = False : 明細表_dgv.Columns(13).FillWeight = 80
+
+        明細表_dgv.Columns(1).ReadOnly = True : 明細表_dgv.Columns(2).ReadOnly = True : 明細表_dgv.Columns(9).ReadOnly = True : 明細表_dgv.Columns(10).ReadOnly = True
+
+        明細表_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 明細表_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.00" : 明細表_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00"
+        明細表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.00" : 明細表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0.00"
+        明細表_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細表_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細表_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細表_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細表_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細表_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細表_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細表_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細表_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細表_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細表_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細表_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細表_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細表_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細表_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+
+        收入_tb.Text = "0.00" : 支出_tb.Text = "0.00" : 合計_tb.Text = "0.00" : 零用金_tb.Text = "0" : 支票_tb.Text = "0.00"
+        For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
+            收入_tb.Text = Val(收入_tb.Text) + Val(明細表_dgv.Rows(i).Cells("收入").Value) * 明細表_dgv.Rows(i).Cells("匯率").Value
+            支出_tb.Text = Val(支出_tb.Text) + Val(明細表_dgv.Rows(i).Cells("支出").Value) * 明細表_dgv.Rows(i).Cells("匯率").Value
+            零用金_tb.Text = Val(零用金_tb.Text) + 明細表_dgv.Rows(i).Cells("零用金").Value * 明細表_dgv.Rows(i).Cells("匯率").Value
+            支票_tb.Text = Val(支票_tb.Text) + 明細表_dgv.Rows(i).Cells("支票").Value * 明細表_dgv.Rows(i).Cells("匯率").Value
+        Next i
+        合計_tb.Text = Val(零用金_tb.Text) + Val(收入_tb.Text) - Val(支出_tb.Text)
+        If Val(合計_tb.Text) > 0 Then : 合計_tb.ForeColor = Color.Blue : Else : 合計_tb.ForeColor = Color.Red : End If
+        收入_tb.Text = Format(Val(收入_tb.Text), "#,##0.00") : 支出_tb.Text = Format(Val(支出_tb.Text), "#,##0.00") : 合計_tb.Text = Format(Val(合計_tb.Text), "#,##0.00")
+        零用金_tb.Text = Format(Val(零用金_tb.Text), "#,##0.00") : 支票_tb.Text = Format(Val(支票_tb.Text), "#,##0.00")
+    End Sub
+    Private Sub ComboBox1下拉表單資料載入()
+        conn.Close()
+        ConnOpen()
+        SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (LEFT(編號, 7) LIKE N'" & 科目2_號_cb.Text & "') AND (停用 = 0) AND (統制科目 = 0) AND (顯示 = 1) ORDER BY 編號"
+        CmdSet_For_dr() : 科目3_名_cb.Items.Clear() : 科目3_號_cb.Items.Clear()
+        While (dr.Read()) : 科目3_名_cb.Items.Add(dr("會計科目")) : 科目3_號_cb.Items.Add(dr("編號")) : End While : conn.Close()
+        If 科目3_名_cb.Items.Count <> 0 Then : 科目3_名_cb.SelectedIndex = 0 : End If
+    End Sub
+    Private Sub ComboBox2下拉表單資料載入()
+        conn.Close()
+        ConnOpen()
+        SQL1 = "SELECT 第一階, LEFT(編號, 4) AS 編號 FROM 會計科目  WHERE (停用 = 0) AND (顯示 = 1) GROUP BY 第一階, LEFT(編號, 4) ORDER BY 編號"
+        CmdSet_For_dr() : 科目1_名_cb.Items.Clear() : 科目1_號_cb.Items.Clear() : 科目1_名_cb.Text = "" : 科目1_號_cb.Text = ""
+        While (dr.Read()) : 科目1_名_cb.Items.Add(dr("第一階")) : 科目1_號_cb.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
+    Private Sub ComboBox3下拉表單資料載入()
+        conn.Close()
+        ConnOpen()
+        SQL1 = "SELECT LEFT(編號, 7) AS 編號, 第二階, 層級 FROM  會計科目 WHERE (LEFT(編號, 4) LIKE N'" & 科目1_號_cb.Text & "') AND (層級 NOT LIKE '3') AND (停用 = 0) AND (顯示 = 1)
+                GROUP BY   LEFT(編號, 7), 第二階, 層級 ORDER BY   編號"
+        CmdSet_For_dr() : 科目2_名_cb.Items.Clear() : 科目2_號_cb.Items.Clear() : 科目2_名_cb.Text = "" : 科目2_號_cb.Text = ""
+        While (dr.Read()) : 科目2_名_cb.Items.Add(dr("第二階")) : 科目2_號_cb.Items.Add(dr("編號")) : End While : conn.Close()
+    End Sub
+    Private Sub 匯率()
+        ConnOpen()
+        SQL1 = "SELECT 中心匯率, 美金匯率, 印尼匯率 FROM 歷史匯率表 
+                WHERE (年 LIKE '" & Strings.Left(Format(日期_dtp.Value, "yyyyMMdd"), 4) & "%') AND (月 LIKE '" & Strings.Mid(Format(日期_dtp.Value, "yyyyMMdd"), 5, 2) & "%')"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
+        If dr.Read() Then
+            人民幣匯率_tb.Text = dr("中心匯率").ToString : 美金匯率_tb.Text = dr("美金匯率").ToString : 印尼匯率_tb.Text = dr("印尼匯率").ToString : conn.Close() : dr.Close()
+        Else
+            conn.Close() : dr.Close() : 匯率修改.Close() : 匯率修改.Show() : 匯率修改.BringToFront()
+        End If
+    End Sub
+    Private Sub 營運成本支付申請_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        未核准的收支單_rb.Checked = True : DateTimePicker2.Visible = False : 複製單據開單ToolStripMenuItem.Enabled = False : 科目3_號_cb.Visible = False
+        收支單_dgv.Visible = True : 視窗1_pl.Visible = False : Set_清單1() : ComboBox2下拉表單資料載入()
+        匯率()
+    End Sub
+    Private Sub 明細表_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 明細表_dgv.CellEndEdit
+        收入_tb.Text = "0" : 支出_tb.Text = "0" : 合計_tb.Text = "0" : 零用金_tb.Text = "0" : 支票_tb.Text = "0"
+        For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
+            收入_tb.Text = Val(收入_tb.Text) + 明細表_dgv.Rows(i).Cells("收入").Value * 明細表_dgv.Rows(i).Cells("匯率").Value
+            支出_tb.Text = Val(支出_tb.Text) + 明細表_dgv.Rows(i).Cells("支出").Value * 明細表_dgv.Rows(i).Cells("匯率").Value
+            零用金_tb.Text = Val(零用金_tb.Text) + 明細表_dgv.Rows(i).Cells("零用金").Value * 明細表_dgv.Rows(i).Cells("匯率").Value
+            支票_tb.Text = Val(支票_tb.Text) + 明細表_dgv.Rows(i).Cells("支票").Value * 明細表_dgv.Rows(i).Cells("匯率").Value
+        Next i
+        合計_tb.Text = Val(零用金_tb.Text) + Val(收入_tb.Text) - Val(支出_tb.Text)
+        If Val(合計_tb.Text) > 0 Then : 合計_tb.ForeColor = Color.Blue : Else : 合計_tb.ForeColor = Color.Red : End If
+        收入_tb.Text = Format(Val(收入_tb.Text), "#,##0") : 支出_tb.Text = Format(Val(支出_tb.Text), "#,##0") : 合計_tb.Text = Format(Val(合計_tb.Text), "#,##0")
+        零用金_tb.Text = Format(Val(零用金_tb.Text), "#,##0") : 支票_tb.Text = Format(Val(支票_tb.Text), "#,##0")
+        Dim EU As String
+        EU = 明細表_dgv("票期", e.RowIndex).Value.ToString
+        If EU = "" Then
+        Else
+            DateTimePicker2.Text = EU
+            明細表_dgv.Rows(e.RowIndex).Cells("票期").Value = Format(DateTimePicker2.Value, "yyyy/MM/dd")
+        End If
+    End Sub
+    Private Sub 營運收支單_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 收支單_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            收支單號_tb.Text = 收支單_dgv(0, e.RowIndex).Value.ToString : 日期_dtp.Value = 收支單_dgv(1, e.RowIndex).Value.ToString : Set_費用清單()
+            申請人_tb.Text = 收支單_dgv(3, e.RowIndex).Value.ToString
+        End If
+    End Sub
+    Private Sub 明細表_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 明細表_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            If 明細表_dgv.SelectedCells.Count = 1 Then
+                If 明細表_dgv.SelectedCells(0).ColumnIndex = 4 Then
+                    窗口表頭_lb.Text = "零用金-編輯指定" : 窗口說明1_lb.Text = "零用金" : NUM2 = 明細表_dgv.SelectedCells(0).RowIndex
+                    If 視窗1_pl.Visible = False Then : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : Else : 視窗1_pl.Visible = False : End If
+                ElseIf 明細表_dgv.SelectedCells(0).ColumnIndex = 5 Then
+                    窗口表頭_lb.Text = "支票-編輯指定" : 窗口說明1_lb.Text = "支票" : NUM2 = 明細表_dgv.SelectedCells(0).RowIndex
+                    If 視窗1_pl.Visible = False Then : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : Else : 視窗1_pl.Visible = False : End If
+                End If
+            End If
+            項次_tb.Text = 明細表_dgv(1, e.RowIndex).Value.ToString : 幣別_cb.Text = 明細表_dgv("幣別", e.RowIndex).Value.ToString
+            科目1_號_cb.Text = Strings.Left(明細表_dgv("類別", e.RowIndex).Value.ToString, 4) : 科目2_號_cb.Text = Strings.Left(明細表_dgv("類別", e.RowIndex).Value.ToString, 7)
+            科目3_號_cb.Text = 明細表_dgv("類別", e.RowIndex).Value.ToString
+        End If
+    End Sub
+    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 科目1_名_cb.TextChanged
+        科目1_號_cb.SelectedIndex = 科目1_名_cb.SelectedIndex : 關鍵字查詢會計科目_tb.Text = "" : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 科目1_號_cb.TextChanged
+        科目1_名_cb.SelectedIndex = 科目1_號_cb.SelectedIndex : ComboBox3下拉表單資料載入() : ComboBox1下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 科目2_名_cb.TextChanged
+        科目2_號_cb.SelectedIndex = 科目2_名_cb.SelectedIndex : ComboBox1下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 科目2_號_cb.TextChanged
+        科目2_名_cb.SelectedIndex = 科目2_號_cb.SelectedIndex : ComboBox1下拉表單資料載入()
+    End Sub
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 科目3_名_cb.SelectedIndexChanged
+        科目3_號_cb.SelectedIndex = 科目3_名_cb.SelectedIndex
+    End Sub
+    Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 科目3_號_cb.SelectedIndexChanged
+        科目3_名_cb.SelectedIndex = 科目3_號_cb.SelectedIndex
+    End Sub
+    Private Sub 關鍵字查詢會計科目_tb_TextChanged(sender As Object, e As EventArgs) Handles 關鍵字查詢會計科目_tb.TextChanged
+        conn.Close()
+        ConnOpen()
+        SQL1 = "SELECT 會計科目, 編號 FROM 會計科目 WHERE (會計科目 LIKE N'%" & 關鍵字查詢會計科目_tb.Text & "%') AND (停用 = 0) AND (統制科目 = 0) ORDER BY 編號"
+        CmdSet_For_dr() : 科目3_名_cb.Items.Clear() : 科目3_號_cb.Items.Clear()
+        While (dr.Read()) : 科目3_名_cb.Items.Add(dr("會計科目")) : 科目3_號_cb.Items.Add(dr("編號")) : End While : conn.Close()
+        If 科目3_名_cb.Items.Count <> 0 Then : 科目3_名_cb.SelectedIndex = 0 : End If
+    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 Set_切換格式()
+        明細表_dgv.DataSource = Nothing : ds.Clear() : 收支單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = "" : 收入_tb.Text = "" : 支出_tb.Text = "" : 合計_tb.Text = ""
+        零用金_tb.Text = "" : 支票_tb.Text = "" : ComboBox1下拉表單資料載入() : Set_清單1()
+    End Sub
+    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles 未核准的收支單_rb.Click
+        未核准的收支單_rb.Checked = True : 作廢的收支單_rb.Checked = False : 已核准的收支單_rb.Checked = False
+        申請完成ToolStripMenuItem.Enabled = True : 複製單據開單ToolStripMenuItem.Enabled = False
+        開立零用金支付單ToolStripMenuItem.Enabled = True : 申請_bt.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 作廢的收支單_rb.Click
+        未核准的收支單_rb.Checked = False : 作廢的收支單_rb.Checked = True : 已核准的收支單_rb.Checked = False
+        申請完成ToolStripMenuItem.Enabled = False : 複製單據開單ToolStripMenuItem.Enabled = False
+        開立零用金支付單ToolStripMenuItem.Enabled = False : 申請_bt.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 已核准的收支單_rb.Click
+        If CC(28) = False Then
+            未核准的收支單_rb.Checked = False : 作廢的收支單_rb.Checked = False : 已核准的收支單_rb.Checked = True
+            申請完成ToolStripMenuItem.Enabled = False : 複製單據開單ToolStripMenuItem.Enabled = True
+            開立零用金支付單ToolStripMenuItem.Enabled = False : 申請_bt.Enabled = False : 新增一筆資料ToolStripMenuItem.Enabled = False
+            刪除支付單中選中的資料ToolStripMenuItem.Enabled = False : 刪除選中的零用金支付單ToolStripMenuItem.Enabled = False : Set_切換格式()
+        Else
+            未核准的收支單_rb.Checked = False : 作廢的收支單_rb.Checked = False : 已核准的收支單_rb.Checked = True
+            申請完成ToolStripMenuItem.Enabled = True : 複製單據開單ToolStripMenuItem.Enabled = True
+            開立零用金支付單ToolStripMenuItem.Enabled = True : 申請_bt.Enabled = True : 新增一筆資料ToolStripMenuItem.Enabled = True
+            刪除支付單中選中的資料ToolStripMenuItem.Enabled = True : 刪除選中的零用金支付單ToolStripMenuItem.Enabled = True : Set_切換格式()
+        End If
+    End Sub
+    Private Sub 存檔()
+        For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
+            ConnOpen()
+            SQL1 = "UPDATE 財務流水帳 SET  明細 = N'" & 明細表_dgv.Rows(i).Cells("用途").Value & "', 支出 = N'" & 明細表_dgv.Rows(i).Cells("支出").Value &
+                   "', 備註 = N'" & 明細表_dgv.Rows(i).Cells("票期").Value & "' , 類別 = N'" & 明細表_dgv.Rows(i).Cells("類別").Value &
+                   "', 收入 = N'" & 明細表_dgv.Rows(i).Cells("收入").Value & "', 零用金 = N'" & 明細表_dgv.Rows(i).Cells("零用金").Value &
+                   "', 支票數 = N'" & 明細表_dgv.Rows(i).Cells("支票").Value & "', 匯率 = N'" & 明細表_dgv.Rows(i).Cells("匯率").Value &
+                   "', 含稅 = N'" & 明細表_dgv.Rows(i).Cells("含稅").Value & "'
+                   WHERE (支付單號 LIKE '" & 收支單號_tb.Text & "' AND 項次 LIKE '" & 明細表_dgv.Rows(i).Cells("項次").Value & "')"
+            cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
+        Next
+    End Sub
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 申請_bt.Click
+        Timer1.Enabled = False : Label62.Visible = False
+        開立零用金支付單ToolStripMenuItem.Enabled = True : 未核准的收支單_rb.Enabled = True : 作廢的收支單_rb.Enabled = True
+        收支單_dgv.Enabled = True : 已核准的收支單_rb.Enabled = True : 存檔() : Set_清單1() : MsgBox("申請完成,請通知主管審核。")
+    End Sub
+    Private Sub Set_日期格式轉換()
+        If 補單_ch.Checked = False Then
+            DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
+        Else
+            DTP1 = Format(日期_dtp.Value, "yyyyMMdd") : DTP = Format(日期_dtp.Value, "yyyy/MM/dd")
+        End If
+    End Sub
+    Private Sub Set_流水號()
+        conn.Close() : dr.Close()
+        Dim NUM1 As Integer
+        For NUM1 = 0 To 99
+            Dim d As String : Dim f As String : Dim g As Integer = 1
+            If Month(Now) < 10 Then : d = "0" & CStr(Month(Now))
+            Else : d = CStr(Month(Now))
+            End If
+            If Now.Day() < 10 Then : f = "0" & CStr(Now.Day())
+            Else : f = CStr(Now.Day())
+            End If
+            If NUM1 < 10 Then : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(Now)), 2) & d & f & "0" & NUM1
+            Else : 新流水1 = "B" & Microsoft.VisualBasic.Right(CStr(Year(Now)), 2) & d & f & NUM1
+            End If
+
+            ConnOpen()
+            SQL1 = "SELECT 流水號 FROM 財務流水帳 WHERE (流水號 ='" & 新流水1 & "')"
+            cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
+            If dr.Read() Then : conn.Close() : Else : conn.Close() : NUM1 = 99 : End If
+        Next
+    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 : 收支單號_tb.Text = "OE-" & DTP1 & "-00" & NUM1
+            ElseIf NUM1 > 9 And NUM1 < 100 Then : 收支單號_tb.Text = "OE-" & DTP1 & "-0" & NUM1
+            ElseIf NUM1 > 99 Then : 收支單號_tb.Text = "OE-" & DTP1 & "-" & NUM1
+            End If
+            conn.Close()
+            ConnOpen()
+            SQL1 = "SELECT TOP (1)  支付單號 FROM 財務控制表 WHERE ( 支付單號 LIKE '" & 收支單號_tb.Text & "')"
+            cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
+            If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
+        Next
+        ConnOpen()
+        SQL1 = "INSERT INTO 財務控制表 (支付單號, 申請人, 申請日期, 審核人, 審核日期, 會計, 作帳日期, 出納, 出納日期, 備註, 公司編號) " &
+               "VALUES (N'" & 收支單號_tb.Text & "', N'" & gUserName & "', N'" & DTP & "', N'', N'', N'', N'', N'', N'', N'', N'工巧明')"
+        CmdSet_For_dr()
+        申請人_tb.Text = gUserName
+    End Sub
+    Private Sub 複製歷史單據重新開立_bt_Click(sender As Object, e As EventArgs) Handles 複製歷史單據重新開立_bt.Click
+        開立零用金支付單() : 開立零用金支付單ToolStripMenuItem.Enabled = False : 未核准的收支單_rb.Enabled = False : 作廢的收支單_rb.Enabled = False
+        已核准的收支單_rb.Enabled = False
+        收支單_dgv.Enabled = False : 未核准的收支單_rb.Checked = True : 作廢的收支單_rb.Checked = False : 已核准的收支單_rb.Checked = False
+        申請完成ToolStripMenuItem.Enabled = True
+        複製單據開單ToolStripMenuItem.Enabled = False : 開立零用金支付單ToolStripMenuItem.Enabled = True : 申請_bt.Enabled = True : 新增一筆資料ToolStripMenuItem.Enabled = True
+        刪除支付單中選中的資料ToolStripMenuItem.Enabled = True : 刪除選中的零用金支付單ToolStripMenuItem.Enabled = True
+        Set_清單1()
+        For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
+            Set_流水號()
+            ConnOpen()
+            SQL1 = "INSERT INTO 財務流水帳 (流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員, 支付單號, 項次, 會計, 出納, 現金, 備用金, 公帳, 支票, 
+                            出納日期, 零用金, 支票數, 匯率, 備註) 
+                    VALUES (N'" & 新流水1 & "', N'" & 明細表_dgv.Rows(i).Cells("幣別").Value & "'', N'" & DTP & "', N'" & 明細表_dgv.Rows(i).Cells("類別").Value &
+                        "', N'" & 明細表_dgv.Rows(i).Cells("收入").Value & "', N'" & 明細表_dgv.Rows(i).Cells("支出").Value & "', N'" & 明細表_dgv.Rows(i).Cells("用途").Value &
+                        "', N'', N'" & gUserName & "', N'" & 收支單號_tb.Text & "', N'" & 明細表_dgv.Rows(i).Cells("項次").Value & "', N'1', N'0', N'0', N'0', N'0', N'0', N'" & DTP &
+                        "', N'" & 明細表_dgv.Rows(i).Cells("零用金").Value & "', N'" & 明細表_dgv.Rows(i).Cells("支票").Value & "', N'" & 明細表_dgv.Rows(i).Cells("匯率").Value &
+                        "', N'" & 明細表_dgv.Rows(i).Cells("票期").Value & "')"
+            CmdSet_For_dr()
+        Next
+        Set_費用清單() : MsgBox("複製單據開立完成。")
+    End Sub
+    Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles 日期_dtp.ValueChanged
+        匯率()
+    End Sub
+    Private Sub 開立營運成本收支單_bt_Click(sender As Object, e As EventArgs) Handles 開立營運成本收支單_bt.Click
+        開立零用金支付單() : 開立零用金支付單ToolStripMenuItem.Enabled = False
+        未核准的收支單_rb.Enabled = False : 作廢的收支單_rb.Enabled = False
+        已核准的收支單_rb.Enabled = False : 收支單_dgv.Enabled = False
+        明細表_dgv.DataSource = Nothing : ds.Clear() : conn.Close()
+        Set_清單1()
+    End Sub
+    Private Sub 刪除選中的營運成本收支單_bt_Click(sender As Object, e As EventArgs) Handles 刪除選中的營運成本收支單_bt.Click
+        Dim aa As MsgBoxResult
+        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
+        If aa = MsgBoxResult.Ok Then
+            ConnOpen()
+            SQL1 = "DELETE FROM 財務控制表 WHERE (支付單號 LIKE '" & 收支單號_tb.Text & "')"
+            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
+            ConnOpen()
+            SQL1 = "DELETE FROM 財務流水帳 WHERE (支付單號 LIKE '" & 收支單號_tb.Text & "')"
+            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
+            收支單號_tb.Text = "" : 申請人_tb.Text = "" : 項次_tb.Text = ""
+            明細表_dgv.DataSource = Nothing : ds.Clear()
+            Set_清單1()
+        End If
+    End Sub
+    Private Sub 收支單中新增一筆空白資料_bt_Click(sender As Object, e As EventArgs) Handles 收支單中新增一筆空白資料_bt.Click
+        If 科目3_號_cb.Text = "" Or 幣別_cb.Text = "" Then
+            MsgBox("沒有選擇會計科目或幣別。")
+        Else
+            If 收支單號_tb.Text = "" Then
+                開立零用金支付單()
+            End If
+            Set_日期格式轉換() : Set_流水號()
+            存檔()
+            ConnOpen()
+            SQL1 = "SELECT TOP(1) 項次 FROM 財務流水帳 WHERE 支付單號 LIKE '" & 收支單號_tb.Text & "' ORDER BY 項次 DESC"
+            cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
+            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
+            ConnOpen()
+
+            If 幣別_cb.Text = "台幣現金" Then : 匯率1 = 1
+            ElseIf 幣別_cb.Text = "人民幣現金" Then : 匯率1 = 人民幣匯率_tb.Text
+            ElseIf 幣別_cb.Text = "美金" Then : 匯率1 = 美金匯率_tb.Text
+            ElseIf 幣別_cb.Text = "印尼盾" Then : 匯率1 = 印尼匯率_tb.Text
+            End If
+
+            SQL1 = "INSERT INTO 財務流水帳 (流水號, 銀行, 日期, 類別, 收入, 支出, 明細, 人員, 支付單號, 項次, 會計, 出納, 現金, 備用金, 公帳, 支票, 
+                            出納日期, 零用金, 支票數, 匯率, 備註) " &
+                   "VALUES (N'" & 新流水1 & "', N'" & 幣別_cb.Text & "', N'" & DTP & "', N'" & 科目3_號_cb.Text & "', N'0', N'0', N'', N'" & gUserName & "', N'" & 收支單號_tb.Text & "', N'" & 新項次 &
+                        "', N'0', N'0', N'0', N'0', N'0', N'0', N'" & DTP & "', N'0', N'0', N'" & 匯率1 & "', N'')"
+            CmdSet_For_dr()
+            Set_費用清單()
+        End If
+    End Sub
+    Private Sub 刪除選中的一筆資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除選中的一筆資料_bt.Click
+        If 項次_tb.Text = "" Then
+            MsgBox("未選擇需要刪除的資料。")
+        Else
+            存檔()
+            ConnOpen()
+            SQL1 = "DELETE FROM 財務流水帳 WHERE (支付單號 LIKE '" & 收支單號_tb.Text & "' AND 項次 LIKE '" & 項次_tb.Text & "')"
+            cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : conn.Close()
+            Set_費用清單()
+            Dim NUM1 As Integer = 0
+            For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
+                NUM1 += 1 : If NUM1 < 10 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = NUM1 : End If
+                ConnOpen()
+                SQL1 = "UPDATE 財務流水帳 SET 項次 = N'" & 新項次 & "' WHERE (支付單號 LIKE '" & 收支單號_tb.Text & "' AND 項次 LIKE '" & 明細表_dgv.Rows(i).Cells("項次").Value & "')"
+                cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
+                conn.Close()
+            Next
+            Set_費用清單()
+        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
+        開立營運成本收支單_bt.PerformClick()
+    End Sub
+    Private Sub 刪除選中的零用金支付單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 刪除選中的零用金支付單ToolStripMenuItem.Click
+        刪除選中的營運成本收支單_bt.PerformClick()
+    End Sub
+    Private Sub 刪除支付單中選中的資料ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 刪除支付單中選中的資料ToolStripMenuItem.Click
+        刪除選中的一筆資料_bt.PerformClick()
+    End Sub
+    Private Sub 新增一筆資料ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 新增一筆資料ToolStripMenuItem.Click
+        收支單中新增一筆空白資料_bt.PerformClick()
+    End Sub
+    Private Sub 申請完成ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 申請完成ToolStripMenuItem.Click
+        申請_bt.PerformClick()
+    End Sub
+    Private Sub 複製單據開單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 複製單據開單ToolStripMenuItem.Click
+        複製歷史單據重新開立_bt.PerformClick()
+    End Sub
+    '----------------------自創視窗滑鼠拖曳功能---------------------------------------------------------------------------------------------------------
+    Dim OldX, OldY As Long : Dim drag As Boolean
+    Private Sub 收入_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 收入_cb.Click
+        If 收入_cb.Checked = True Then
+            收入_cb.Checked = True : 支出_cb.Checked = False
+        Else
+            收入_cb.Checked = False : 支出_cb.Checked = True
+        End If
+    End Sub
+    Private Sub 支出_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 支出_cb.Click
+        If 支出_cb.Checked = True Then
+            收入_cb.Checked = False : 支出_cb.Checked = True
+        Else
+            收入_cb.Checked = True : 支出_cb.Checked = False
+        End If
+    End Sub
+    Private Sub 確定_bt_Click(sender As Object, e As EventArgs) Handles 確定_bt.Click
+        If 收入_cb.Checked = False And 支出_cb.Checked = False Then
+            MsgBox("請先選擇這筆資料是收入還是支出!!!")
+        Else
+            If 收入_cb.Checked = True Then
+                明細表_dgv.Rows(NUM2).Cells("收入").Value = 指定_ndp.Value
+                If 窗口說明1_lb.Text = "支票" Then
+                    明細表_dgv.Rows(NUM2).Cells("支票").Value = 指定_ndp.Value
+                ElseIf 窗口說明1_lb.Text = "零用金" Then
+                    明細表_dgv.Rows(NUM2).Cells("零用金").Value = 指定_ndp.Value
+                End If
+            Else
+                明細表_dgv.Rows(NUM2).Cells("支出").Value = 指定_ndp.Value
+                If 窗口說明1_lb.Text = "支票" Then
+                    明細表_dgv.Rows(NUM2).Cells("支票").Value = 指定_ndp.Value
+                ElseIf 窗口說明1_lb.Text = "零用金" Then
+                    明細表_dgv.Rows(NUM2).Cells("零用金").Value = 指定_ndp.Value
+                End If
+            End If : 指定_ndp.Value = 0 : 收入_cb.Checked = False : 支出_cb.Checked = False : Cancel_bt.PerformClick()
+        End If
+    End Sub
+    Private Sub Cancel_bt_Click(sender As Object, e As EventArgs) Handles Cancel_bt.Click
+        If 視窗1_pl.Visible = False Then : 視窗1_pl.Visible = True : 視窗1_pl.BringToFront() : Else : 視窗1_pl.Visible = False : End If
+    End Sub
+    Private Sub 物料群組1_Panel_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗1_pl.MouseDown
+        If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If
+    End Sub
+    Private Sub 物料群組1_Panel_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗1_pl.MouseMove
+        If drag Then : 視窗1_pl.Left = 視窗1_pl.Left + e.X - OldX : 視窗1_pl.Top = 視窗1_pl.Top + e.Y - OldY : End If
+    End Sub
+    Private Sub 物料群組1_Panel_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗1_pl.MouseUp
+        drag = False
+    End Sub
+End Class

工巧明智能管理系統/我的系統/02-財務系統管理/ISC/財務_對帳單_ICS.Designer.vb

@@ -0,0 +1,628 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 財務_對帳單_ICS
+    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 DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.清單_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.非稅_ch = New System.Windows.Forms.CheckBox()
+        Me.含稅_ch = New System.Windows.Forms.CheckBox()
+        Me.全部_ch = New System.Windows.Forms.CheckBox()
+        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+        Me.支票_總_tb = New System.Windows.Forms.TextBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.支票_單_tb = New System.Windows.Forms.TextBox()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.零用金_總_tb = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.零用金_單_tb = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.只顯示支票資料_ch = New System.Windows.Forms.CheckBox()
+        Me.隱藏作帳_ch = New System.Windows.Forms.CheckBox()
+        Me.隱藏申請_ch = New System.Windows.Forms.CheckBox()
+        Me.損益_總_tb = New System.Windows.Forms.TextBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.支出_總_tb = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.收入_總_tb = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.損益_單_tb = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.支出_單_tb = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.收支單號_tb = New System.Windows.Forms.TextBox()
+        Me.收入_單_tb = New System.Windows.Forms.TextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.月_ch = New System.Windows.Forms.ComboBox()
+        Me.年_cb = New System.Windows.Forms.ComboBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.已兌現支票_單_tb = New System.Windows.Forms.TextBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.TextBox10 = New System.Windows.Forms.TextBox()
+        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.對帳記錄存檔ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.BBBToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        CType(Me.清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        Me.ContextMenuStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        '清單_dgv
+        '
+        Me.清單_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.清單_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.清單_dgv.Location = New System.Drawing.Point(2, 53)
+        Me.清單_dgv.Name = "清單_dgv"
+        Me.清單_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.清單_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.清單_dgv.RowTemplate.Height = 24
+        Me.清單_dgv.Size = New System.Drawing.Size(1245, 535)
+        Me.清單_dgv.TabIndex = 1196
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label15.Location = New System.Drawing.Point(505, 31)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(91, 16)
+        Me.Label15.TabIndex = 1228
+        Me.Label15.Text = "整月收支單總和"
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.ForeColor = System.Drawing.Color.Green
+        Me.Label16.Location = New System.Drawing.Point(505, 7)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(91, 16)
+        Me.Label16.TabIndex = 1227
+        Me.Label16.Text = "單筆收支單總和"
+        '
+        '非稅_ch
+        '
+        Me.非稅_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.非稅_ch.AutoSize = True
+        Me.非稅_ch.Location = New System.Drawing.Point(1193, 589)
+        Me.非稅_ch.Name = "非稅_ch"
+        Me.非稅_ch.Size = New System.Drawing.Size(50, 20)
+        Me.非稅_ch.TabIndex = 1225
+        Me.非稅_ch.Text = "非稅"
+        Me.非稅_ch.UseVisualStyleBackColor = True
+        '
+        '含稅_ch
+        '
+        Me.含稅_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.含稅_ch.AutoSize = True
+        Me.含稅_ch.Location = New System.Drawing.Point(1136, 589)
+        Me.含稅_ch.Name = "含稅_ch"
+        Me.含稅_ch.Size = New System.Drawing.Size(50, 20)
+        Me.含稅_ch.TabIndex = 1224
+        Me.含稅_ch.Text = "含稅"
+        Me.含稅_ch.UseVisualStyleBackColor = True
+        '
+        '全部_ch
+        '
+        Me.全部_ch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.全部_ch.AutoSize = True
+        Me.全部_ch.Checked = True
+        Me.全部_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.全部_ch.Location = New System.Drawing.Point(1079, 589)
+        Me.全部_ch.Name = "全部_ch"
+        Me.全部_ch.Size = New System.Drawing.Size(50, 20)
+        Me.全部_ch.TabIndex = 1223
+        Me.全部_ch.Text = "全部"
+        Me.全部_ch.UseVisualStyleBackColor = True
+        '
+        'ProgressBar1
+        '
+        Me.ProgressBar1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.ProgressBar1.Location = New System.Drawing.Point(3, 591)
+        Me.ProgressBar1.Name = "ProgressBar1"
+        Me.ProgressBar1.Size = New System.Drawing.Size(1065, 17)
+        Me.ProgressBar1.TabIndex = 1222
+        '
+        '支票_總_tb
+        '
+        Me.支票_總_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.支票_總_tb.Location = New System.Drawing.Point(635, 28)
+        Me.支票_總_tb.Name = "支票_總_tb"
+        Me.支票_總_tb.Size = New System.Drawing.Size(90, 23)
+        Me.支票_總_tb.TabIndex = 1221
+        Me.支票_總_tb.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(602, 32)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(31, 16)
+        Me.Label13.TabIndex = 1220
+        Me.Label13.Text = "支票"
+        '
+        '支票_單_tb
+        '
+        Me.支票_單_tb.ForeColor = System.Drawing.Color.Green
+        Me.支票_單_tb.Location = New System.Drawing.Point(635, 3)
+        Me.支票_單_tb.Name = "支票_單_tb"
+        Me.支票_單_tb.Size = New System.Drawing.Size(90, 23)
+        Me.支票_單_tb.TabIndex = 1219
+        Me.支票_單_tb.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(602, 7)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(31, 16)
+        Me.Label14.TabIndex = 1218
+        Me.Label14.Text = "支票"
+        '
+        '零用金_總_tb
+        '
+        Me.零用金_總_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.零用金_總_tb.Location = New System.Drawing.Point(774, 27)
+        Me.零用金_總_tb.Name = "零用金_總_tb"
+        Me.零用金_總_tb.Size = New System.Drawing.Size(90, 23)
+        Me.零用金_總_tb.TabIndex = 1217
+        Me.零用金_總_tb.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(728, 31)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(43, 16)
+        Me.Label1.TabIndex = 1216
+        Me.Label1.Text = "零用金"
+        '
+        '零用金_單_tb
+        '
+        Me.零用金_單_tb.ForeColor = System.Drawing.Color.Green
+        Me.零用金_單_tb.Location = New System.Drawing.Point(774, 2)
+        Me.零用金_單_tb.Name = "零用金_單_tb"
+        Me.零用金_單_tb.Size = New System.Drawing.Size(90, 23)
+        Me.零用金_單_tb.TabIndex = 1215
+        Me.零用金_單_tb.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(728, 6)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(43, 16)
+        Me.Label3.TabIndex = 1214
+        Me.Label3.Text = "零用金"
+        '
+        '只顯示支票資料_ch
+        '
+        Me.只顯示支票資料_ch.AutoSize = True
+        Me.只顯示支票資料_ch.Location = New System.Drawing.Point(285, 31)
+        Me.只顯示支票資料_ch.Name = "只顯示支票資料_ch"
+        Me.只顯示支票資料_ch.Size = New System.Drawing.Size(110, 20)
+        Me.只顯示支票資料_ch.TabIndex = 1213
+        Me.只顯示支票資料_ch.Text = "只顯示支票資料"
+        Me.只顯示支票資料_ch.UseVisualStyleBackColor = True
+        '
+        '隱藏作帳_ch
+        '
+        Me.隱藏作帳_ch.AutoSize = True
+        Me.隱藏作帳_ch.Checked = True
+        Me.隱藏作帳_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.隱藏作帳_ch.Location = New System.Drawing.Point(144, 31)
+        Me.隱藏作帳_ch.Name = "隱藏作帳_ch"
+        Me.隱藏作帳_ch.Size = New System.Drawing.Size(134, 20)
+        Me.隱藏作帳_ch.TabIndex = 1212
+        Me.隱藏作帳_ch.Text = "隱藏作帳、點交資訊"
+        Me.隱藏作帳_ch.UseVisualStyleBackColor = True
+        '
+        '隱藏申請_ch
+        '
+        Me.隱藏申請_ch.AutoSize = True
+        Me.隱藏申請_ch.Checked = True
+        Me.隱藏申請_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.隱藏申請_ch.Location = New System.Drawing.Point(3, 31)
+        Me.隱藏申請_ch.Name = "隱藏申請_ch"
+        Me.隱藏申請_ch.Size = New System.Drawing.Size(134, 20)
+        Me.隱藏申請_ch.TabIndex = 1211
+        Me.隱藏申請_ch.Text = "隱藏申請、審核資訊"
+        Me.隱藏申請_ch.UseVisualStyleBackColor = True
+        '
+        '損益_總_tb
+        '
+        Me.損益_總_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.損益_總_tb.Location = New System.Drawing.Point(1149, 27)
+        Me.損益_總_tb.Name = "損益_總_tb"
+        Me.損益_總_tb.Size = New System.Drawing.Size(90, 23)
+        Me.損益_總_tb.TabIndex = 1210
+        Me.損益_總_tb.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(1115, 30)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(31, 16)
+        Me.Label7.TabIndex = 1209
+        Me.Label7.Text = "損益"
+        '
+        '支出_總_tb
+        '
+        Me.支出_總_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.支出_總_tb.Location = New System.Drawing.Point(1023, 27)
+        Me.支出_總_tb.Name = "支出_總_tb"
+        Me.支出_總_tb.Size = New System.Drawing.Size(90, 23)
+        Me.支出_總_tb.TabIndex = 1208
+        Me.支出_總_tb.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(990, 31)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(31, 16)
+        Me.Label8.TabIndex = 1207
+        Me.Label8.Text = "支出"
+        '
+        '收入_總_tb
+        '
+        Me.收入_總_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.收入_總_tb.Location = New System.Drawing.Point(898, 27)
+        Me.收入_總_tb.Name = "收入_總_tb"
+        Me.收入_總_tb.Size = New System.Drawing.Size(90, 23)
+        Me.收入_總_tb.TabIndex = 1206
+        Me.收入_總_tb.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(866, 31)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(31, 16)
+        Me.Label10.TabIndex = 1205
+        Me.Label10.Text = "收入"
+        '
+        '損益_單_tb
+        '
+        Me.損益_單_tb.ForeColor = System.Drawing.Color.Green
+        Me.損益_單_tb.Location = New System.Drawing.Point(1149, 2)
+        Me.損益_單_tb.Name = "損益_單_tb"
+        Me.損益_單_tb.Size = New System.Drawing.Size(90, 23)
+        Me.損益_單_tb.TabIndex = 1204
+        Me.損益_單_tb.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(1115, 6)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(31, 16)
+        Me.Label6.TabIndex = 1203
+        Me.Label6.Text = "損益"
+        '
+        '支出_單_tb
+        '
+        Me.支出_單_tb.ForeColor = System.Drawing.Color.Green
+        Me.支出_單_tb.Location = New System.Drawing.Point(1023, 2)
+        Me.支出_單_tb.Name = "支出_單_tb"
+        Me.支出_單_tb.Size = New System.Drawing.Size(90, 23)
+        Me.支出_單_tb.TabIndex = 1202
+        Me.支出_單_tb.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(990, 6)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(31, 16)
+        Me.Label5.TabIndex = 1201
+        Me.Label5.Text = "支出"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.ForeColor = System.Drawing.Color.Green
+        Me.Label4.Location = New System.Drawing.Point(210, 6)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(31, 16)
+        Me.Label4.TabIndex = 1200
+        Me.Label4.Text = "單號"
+        '
+        '收支單號_tb
+        '
+        Me.收支單號_tb.ForeColor = System.Drawing.Color.Green
+        Me.收支單號_tb.Location = New System.Drawing.Point(242, 3)
+        Me.收支單號_tb.Name = "收支單號_tb"
+        Me.收支單號_tb.Size = New System.Drawing.Size(148, 23)
+        Me.收支單號_tb.TabIndex = 1199
+        Me.收支單號_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '收入_單_tb
+        '
+        Me.收入_單_tb.ForeColor = System.Drawing.Color.Green
+        Me.收入_單_tb.Location = New System.Drawing.Point(898, 2)
+        Me.收入_單_tb.Name = "收入_單_tb"
+        Me.收入_單_tb.Size = New System.Drawing.Size(90, 23)
+        Me.收入_單_tb.TabIndex = 1198
+        Me.收入_單_tb.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(866, 6)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(31, 16)
+        Me.Label9.TabIndex = 1197
+        Me.Label9.Text = "收入"
+        '
+        '月_ch
+        '
+        Me.月_ch.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.月_ch.FormattingEnabled = True
+        Me.月_ch.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"})
+        Me.月_ch.Location = New System.Drawing.Point(149, 3)
+        Me.月_ch.Name = "月_ch"
+        Me.月_ch.Size = New System.Drawing.Size(55, 24)
+        Me.月_ch.TabIndex = 1194
+        '
+        '年_cb
+        '
+        Me.年_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.年_cb.FormattingEnabled = True
+        Me.年_cb.Items.AddRange(New Object() {"2019"})
+        Me.年_cb.Location = New System.Drawing.Point(73, 3)
+        Me.年_cb.Name = "年_cb"
+        Me.年_cb.Size = New System.Drawing.Size(70, 24)
+        Me.年_cb.TabIndex = 1193
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label2.Location = New System.Drawing.Point(11, 8)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(55, 16)
+        Me.Label2.TabIndex = 1192
+        Me.Label2.Text = "查詢日期"
+        '
+        'Panel1
+        '
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.已兌現支票_單_tb)
+        Me.Panel1.Controls.Add(Me.Label12)
+        Me.Panel1.Controls.Add(Me.Label11)
+        Me.Panel1.Controls.Add(Me.TextBox10)
+        Me.Panel1.Location = New System.Drawing.Point(602, 140)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(200, 134)
+        Me.Panel1.TabIndex = 1226
+        '
+        '已兌現支票_單_tb
+        '
+        Me.已兌現支票_單_tb.ForeColor = System.Drawing.Color.Green
+        Me.已兌現支票_單_tb.Location = New System.Drawing.Point(78, 3)
+        Me.已兌現支票_單_tb.Name = "已兌現支票_單_tb"
+        Me.已兌現支票_單_tb.Size = New System.Drawing.Size(90, 23)
+        Me.已兌現支票_單_tb.TabIndex = 1034
+        Me.已兌現支票_單_tb.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(8, 7)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(67, 16)
+        Me.Label12.TabIndex = 1033
+        Me.Label12.Text = "已兌現支票"
+        '
+        '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(8, 32)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(67, 16)
+        Me.Label11.TabIndex = 1035
+        Me.Label11.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(78, 28)
+        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
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.重新整理ToolStripMenuItem, Me.關鍵字查詢ToolStripMenuItem, Me.清除ToolStripMenuItem, Me.對帳記錄存檔ToolStripMenuItem, Me.ToolStripSeparator2, Me.BBBToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(171, 120)
+        '
+        '重新整理ToolStripMenuItem
+        '
+        Me.重新整理ToolStripMenuItem.Name = "重新整理ToolStripMenuItem"
+        Me.重新整理ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.重新整理ToolStripMenuItem.Text = "重新整理"
+        '
+        '關鍵字查詢ToolStripMenuItem
+        '
+        Me.關鍵字查詢ToolStripMenuItem.Name = "關鍵字查詢ToolStripMenuItem"
+        Me.關鍵字查詢ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.關鍵字查詢ToolStripMenuItem.Text = "關鍵字查詢"
+        '
+        '清除ToolStripMenuItem
+        '
+        Me.清除ToolStripMenuItem.Name = "清除ToolStripMenuItem"
+        Me.清除ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.清除ToolStripMenuItem.Text = "清除介面查詢資料"
+        Me.清除ToolStripMenuItem.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        '對帳記錄存檔ToolStripMenuItem
+        '
+        Me.對帳記錄存檔ToolStripMenuItem.ForeColor = System.Drawing.Color.Green
+        Me.對帳記錄存檔ToolStripMenuItem.Name = "對帳記錄存檔ToolStripMenuItem"
+        Me.對帳記錄存檔ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.對帳記錄存檔ToolStripMenuItem.Text = "對帳記錄存檔"
+        '
+        'ToolStripSeparator2
+        '
+        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(177, 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(180, 22)
+        Me.BBBToolStripMenuItem.Text = "列印成EXCEL"
+        '
+        '財務_對帳單_ICS
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1249, 611)
+        Me.Controls.Add(Me.清單_dgv)
+        Me.Controls.Add(Me.Label15)
+        Me.Controls.Add(Me.Label16)
+        Me.Controls.Add(Me.非稅_ch)
+        Me.Controls.Add(Me.含稅_ch)
+        Me.Controls.Add(Me.全部_ch)
+        Me.Controls.Add(Me.ProgressBar1)
+        Me.Controls.Add(Me.支票_總_tb)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.支票_單_tb)
+        Me.Controls.Add(Me.Label14)
+        Me.Controls.Add(Me.零用金_總_tb)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.零用金_單_tb)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.只顯示支票資料_ch)
+        Me.Controls.Add(Me.隱藏作帳_ch)
+        Me.Controls.Add(Me.隱藏申請_ch)
+        Me.Controls.Add(Me.損益_總_tb)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.支出_總_tb)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.收入_總_tb)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.損益_單_tb)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.支出_單_tb)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.收支單號_tb)
+        Me.Controls.Add(Me.收入_單_tb)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.月_ch)
+        Me.Controls.Add(Me.年_cb)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Panel1)
+        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(4, 4, 4, 4)
+        Me.Name = "財務_對帳單_ICS"
+        Me.Text = "財務_對帳單_ICS"
+        CType(Me.清單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 清單_dgv As DataGridView
+    Friend WithEvents Label15 As Label
+    Friend WithEvents Label16 As Label
+    Friend WithEvents 非稅_ch As CheckBox
+    Friend WithEvents 含稅_ch As CheckBox
+    Friend WithEvents 全部_ch As CheckBox
+    Friend WithEvents ProgressBar1 As ProgressBar
+    Friend WithEvents 支票_總_tb As TextBox
+    Friend WithEvents Label13 As Label
+    Friend WithEvents 支票_單_tb As TextBox
+    Friend WithEvents Label14 As Label
+    Friend WithEvents 零用金_總_tb As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 零用金_單_tb As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 只顯示支票資料_ch As CheckBox
+    Friend WithEvents 隱藏作帳_ch As CheckBox
+    Friend WithEvents 隱藏申請_ch As CheckBox
+    Friend WithEvents 損益_總_tb As TextBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents 支出_總_tb As TextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents 收入_總_tb As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents 損益_單_tb As TextBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents 支出_單_tb As TextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 收支單號_tb As TextBox
+    Friend WithEvents 收入_單_tb As TextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 月_ch As ComboBox
+    Friend WithEvents 年_cb As ComboBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents 已兌現支票_單_tb As TextBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents Label11 As Label
+    Friend WithEvents TextBox10 As TextBox
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents 重新整理ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 關鍵字查詢ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 清除ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents 對帳記錄存檔ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
+    Friend WithEvents BBBToolStripMenuItem As ToolStripMenuItem
+End Class

工巧明智能管理系統/我的系統/02-財務系統管理/ISC/財務_對帳單_ICS.resx

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

工巧明智能管理系統/我的系統/02-財務系統管理/ISC/財務_對帳單_ICS.vb

@@ -0,0 +1,223 @@
+Option Strict Off
+Public Class 財務_對帳單_ICS
+    ReadOnly ds As New DataSet
+    Dim KKKJJ As String : Dim KKKJJ2 As String : Dim KKKJJ3 As String : Dim KKK3 As String : Dim KKK4 As String : Dim 匯率1 As Double
+    Private Sub Set_清單1()
+        清單_dgv.DataSource = Nothing : ds.Clear()
+        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        清單_dgv.ColumnHeadersHeight = 25
+        清單_dgv.AllowUserToAddRows = False
+        ConnOpen()
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (財務流水帳_ICS.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (財務流水帳_ICS.含稅 = 0 OR 財務流水帳_ICS.含稅 IS NULL)"
+        End If
+        SQL1 = "SELECT      財務控制表_ICS.支付單號 AS 收支單號, 財務控制表_ICS.申請人, 財務控制表_ICS.申請日期, 財務控制表_ICS.審核人, 
+                            財務控制表_ICS.審核日期, 財務流水帳_ICS.項次, 會計科目.會計科目, 財務流水帳_ICS.明細 AS 用途與內容, 
+                            財務流水帳_ICS.零用金, 財務流水帳_ICS.支票數 AS 支票, Cast(財務流水帳_ICS.收入 AS money) AS 現金, 
+                            Cast(財務流水帳_ICS.支出 AS money) AS 支出, 財務流水帳_ICS.備註 AS 票期, 財務流水帳_ICS.會計, 財務流水帳_ICS.日期 AS 作帳日期, 
+                            財務流水帳_ICS.出納 AS 點交, 財務流水帳_ICS.出納日期 AS 點交日期, 財務流水帳_ICS.備用金 AS 零用金點交, 
+                            財務流水帳_ICS.支票 AS 支票兌現, 財務流水帳_ICS.現金 AS 現金點交, 財務流水帳_ICS.公帳 AS 支出點交, 財務流水帳_ICS.匯率, 財務流水帳_ICS.銀行 AS 幣別
+                FROM        財務流水帳_ICS INNER JOIN
+                            會計科目 ON 財務流水帳_ICS.類別 = 會計科目.編號 FULL OUTER JOIN
+                            財務控制表_ICS ON 財務流水帳_ICS.支付單號 = 財務控制表_ICS.支付單號
+                WHERE      (財務控制表_ICS.審核人 NOT LIKE '') AND (會計科目.編號 NOT LIKE 'D%') AND
+                           (財務控制表_ICS.審核人 NOT LIKE '作廢%') " & KKKJJ3 & KKKJJ & KKKJJ2 & SQL2 & " 
+                ORDER BY    收支單號 DESC, 財務流水帳_ICS.項次"
+        列印用SQL1 = SQL1
+        CmdSet_For_DGV() : da.Fill(ds) : 清單_dgv.DataSource = ds.Tables(0) : conn.Close() : Set_grid()
+    End Sub
+    Private Sub Set_grid()
+        清單_dgv.Columns(0).FillWeight = 120 : 清單_dgv.Columns(1).FillWeight = 60 : 清單_dgv.Columns(2).FillWeight = 80 : 清單_dgv.Columns(3).FillWeight = 60
+        清單_dgv.Columns(4).FillWeight = 80 : 清單_dgv.Columns(5).FillWeight = 50 : 清單_dgv.Columns(6).FillWeight = 150 : 清單_dgv.Columns(7).FillWeight = 233
+        清單_dgv.Columns(8).FillWeight = 80 : 清單_dgv.Columns(9).FillWeight = 80 : 清單_dgv.Columns(10).FillWeight = 80 : 清單_dgv.Columns(11).FillWeight = 80
+        清單_dgv.Columns(12).FillWeight = 80 : 清單_dgv.Columns(13).FillWeight = 50 : 清單_dgv.Columns(14).FillWeight = 85 : 清單_dgv.Columns(15).FillWeight = 50
+        清單_dgv.Columns(16).FillWeight = 85 : 清單_dgv.Columns(17).Visible = False : 清單_dgv.Columns(18).Visible = False : 清單_dgv.Columns(19).Visible = False
+        清單_dgv.Columns(20).Visible = False : 清單_dgv.Columns(21).FillWeight = 70 : 清單_dgv.Columns(22).FillWeight = 100
+
+        If 隱藏申請_ch.Checked = False Then
+            清單_dgv.Columns(1).Visible = True : 清單_dgv.Columns(2).Visible = True : 清單_dgv.Columns(3).Visible = True : 清單_dgv.Columns(4).Visible = True
+        Else
+            清單_dgv.Columns(1).Visible = False : 清單_dgv.Columns(2).Visible = False : 清單_dgv.Columns(3).Visible = False : 清單_dgv.Columns(4).Visible = False
+        End If
+
+        If 隱藏作帳_ch.Checked = False Then
+            清單_dgv.Columns(13).Visible = True : 清單_dgv.Columns(14).Visible = True : 清單_dgv.Columns(15).Visible = True : 清單_dgv.Columns(16).Visible = True
+        Else
+            清單_dgv.Columns(13).Visible = False : 清單_dgv.Columns(14).Visible = False : 清單_dgv.Columns(15).Visible = False : 清單_dgv.Columns(16).Visible = False
+        End If
+
+        清單_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 清單_dgv.Columns(9).DefaultCellStyle.Format = "#,##0" : 清單_dgv.Columns(10).DefaultCellStyle.Format = "#,##0"
+        清單_dgv.Columns(11).DefaultCellStyle.Format = "#,##0"
+        清單_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 清單_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        清單_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 清單_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        清單_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 清單_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        清單_dgv.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 清單_dgv.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        清單_dgv.Columns(21).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單_dgv.Columns(21).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        清單_dgv.Columns(22).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 清單_dgv.Columns(22).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        支出_總_tb.Text = "0" : 收入_總_tb.Text = "0" : 損益_總_tb.Text = "0" : 零用金_總_tb.Text = "0" : TextBox10.Text = "0" : 支票_總_tb.Text = "0"
+        For i As Integer = 0 To 清單_dgv.Rows.Count - 1
+            收入_總_tb.Text = Val(收入_總_tb.Text) + 清單_dgv.Rows(i).Cells("現金").Value * 清單_dgv.Rows(i).Cells("匯率").Value
+            支出_總_tb.Text = Val(支出_總_tb.Text) + 清單_dgv.Rows(i).Cells("支出").Value * 清單_dgv.Rows(i).Cells("匯率").Value
+            零用金_總_tb.Text = Val(零用金_總_tb.Text) + 清單_dgv.Rows(i).Cells("零用金").Value * 清單_dgv.Rows(i).Cells("匯率").Value
+            If 清單_dgv(9, i).Value <> 0 And 清單_dgv(18, i).Value = True Then
+                TextBox10.Text = Val(TextBox10.Text) + 清單_dgv.Rows(i).Cells("支票").Value * 清單_dgv.Rows(i).Cells("匯率").Value
+            ElseIf 清單_dgv(9, i).Value <> 0 And 清單_dgv(18, i).Value = False Then
+                支票_總_tb.Text = Val(支票_總_tb.Text) + 清單_dgv.Rows(i).Cells("支票").Value * 清單_dgv.Rows(i).Cells("匯率").Value
+            End If
+        Next i
+        損益_總_tb.Text = Val(TextBox10.Text) + Val(零用金_總_tb.Text) + Val(收入_總_tb.Text) - Val(支出_總_tb.Text)
+        If CLng(損益_總_tb.Text) > 0 Then : 損益_總_tb.ForeColor = Color.Blue : Else : 損益_總_tb.ForeColor = Color.Red : End If
+        支出_總_tb.Text = Format(Val(支出_總_tb.Text), "#,##0") : 損益_總_tb.Text = Format(Val(損益_總_tb.Text), "#,##0") : 收入_總_tb.Text = Format(Val(收入_總_tb.Text), "#,##0")
+        零用金_總_tb.Text = Format(Val(零用金_總_tb.Text), "#,##0") : TextBox10.Text = Format(Val(TextBox10.Text), "#,##0") : 支票_總_tb.Text = Format(Val(支票_總_tb.Text), "#,##0")
+    End Sub
+    Private Sub ComboBox1下拉表單資料載入()
+        conn.Close()
+        ConnOpen()
+        SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC"
+        CmdSet_For_dr()
+        年_cb.Items.Clear()
+        While (dr.Read()) : 年_cb.Items.Add(dr("年份")) : End While
+        conn.Close()
+    End Sub
+    Private Sub 財務_對帳單_ICS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        收入_單_tb.Text = "0" : 支出_單_tb.Text = "0" : 損益_單_tb.Text = "0" : 零用金_單_tb.Text = "0" : 已兌現支票_單_tb.Text = "0" : 支票_單_tb.Text = "0"
+        ConnOpen() : SQL1 = "UPDATE 財務流水帳_ICS SET 會計 = N'0' WHERE (會計 IS NULL)" : CmdSet_For_dr() : conn.Close()
+        ConnOpen() : SQL1 = "UPDATE 財務流水帳_ICS SET 出納 = N'0' WHERE (出納 IS NULL)" : CmdSet_For_dr() : conn.Close()
+        ConnOpen() : SQL1 = "UPDATE 財務流水帳_ICS SET 現金 = N'0' WHERE (現金 IS NULL)" : CmdSet_For_dr() : conn.Close()
+        ConnOpen() : SQL1 = "UPDATE 財務流水帳_ICS SET 備用金 = N'0' WHERE (備用金 IS NULL)" : CmdSet_For_dr() : conn.Close()
+        ConnOpen() : SQL1 = "UPDATE 財務流水帳_ICS SET 公帳 = N'0' WHERE (公帳 IS NULL)" : CmdSet_For_dr() : conn.Close()
+        ConnOpen() : SQL1 = "UPDATE 財務流水帳_ICS SET 支票 = N'0' WHERE (支票 IS NULL)" : CmdSet_For_dr() : conn.Close()
+        ConnOpen() : SQL1 = "UPDATE 財務流水帳_ICS SET 日期 = N'' WHERE (日期 IS NULL)" : CmdSet_For_dr() : conn.Close()
+        ConnOpen() : SQL1 = "UPDATE 財務流水帳_ICS SET 出納日期 = N'' WHERE (出納日期 IS NULL)" : CmdSet_For_dr() : conn.Close()
+        ComboBox1下拉表單資料載入()
+        年_cb.Text = Year(Today) : 月_ch.SelectedIndex = Month(Today) - 1
+        KKKJJ3 = "AND (財務控制表_ICS.審核日期 LIKE '" & KKK3 & "/" & KKK4 & "%') "
+    End Sub
+    Dim 已超出 As Boolean
+    Private Sub 清單_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 清單_dgv.MouseUp
+        'If 清單_dgv.SelectedCells.Count = 1 Then : MsgBox(清單_dgv.SelectedCells(0).ColumnIndex & "  " & 清單_dgv.SelectedCells(0).RowIndex) : End If
+        If 清單_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 清單_dgv.SelectedCells.Count > 0 Then
+            If 清單_dgv.SelectedCells(0).ColumnIndex >= 8 And 清單_dgv.SelectedCells(0).ColumnIndex <= 11 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 清單_dgv.SelectedCells.Count - 1
+                        x += Val(清單_dgv.Rows(清單_dgv.SelectedCells.Item(i).RowIndex).Cells(清單_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : GCM_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : GCM_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : GCM_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub 全部_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 全部_ch.Click
+        全部_ch.Checked = True : 含稅_ch.Checked = False : 非稅_ch.Checked = False : Set_清單1()
+    End Sub
+    Private Sub 含稅_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 含稅_ch.Click
+        全部_ch.Checked = False : 含稅_ch.Checked = True : 非稅_ch.Checked = False : Set_清單1()
+    End Sub
+    Private Sub 非稅_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 非稅_ch.Click
+        全部_ch.Checked = False : 含稅_ch.Checked = False : 非稅_ch.Checked = True : Set_清單1()
+    End Sub
+    Private Sub 總金額計算()
+        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
+        收入_單_tb.Text = "0" : 支出_單_tb.Text = "0" : 損益_單_tb.Text = "0" : 零用金_單_tb.Text = "0" : 已兌現支票_單_tb.Text = "0" : 支票_單_tb.Text = "0"
+        For i As Integer = 0 To 清單_dgv.Rows.Count - 1
+            If 清單_dgv.Rows(i).Cells("收支單號").Value = 收支單號_tb.Text Then
+                FFGG = Val(FFGG) + 清單_dgv.Rows(i).Cells("現金").Value * 清單_dgv.Rows(i).Cells("匯率").Value
+                GGHH = Val(GGHH) + 清單_dgv.Rows(i).Cells("支出").Value * 清單_dgv.Rows(i).Cells("匯率").Value
+                HHJJ = Val(HHJJ) + 清單_dgv.Rows(i).Cells("零用金").Value * 清單_dgv.Rows(i).Cells("匯率").Value
+                If 清單_dgv(9, i).Value <> 0 And 清單_dgv(18, i).Value = True Then
+                    JJKK = Val(JJKK) + 清單_dgv.Rows(i).Cells("支票").Value * 清單_dgv.Rows(i).Cells("匯率").Value
+                ElseIf 清單_dgv(9, i).Value <> 0 And 清單_dgv(18, i).Value = False Then
+                    KKLL = Val(KKLL) + 清單_dgv.Rows(i).Cells("支票").Value * 清單_dgv.Rows(i).Cells("匯率").Value
+                End If
+            End If
+        Next i
+        收入_單_tb.Text = FFGG : 支出_單_tb.Text = GGHH : 零用金_單_tb.Text = HHJJ : 已兌現支票_單_tb.Text = JJKK : 支票_單_tb.Text = KKLL
+        損益_單_tb.Text = JJKK + HHJJ + FFGG - GGHH
+        If CLng(損益_單_tb.Text) > 0 Then : 損益_單_tb.ForeColor = Color.Blue : Else : 損益_單_tb.ForeColor = Color.Red : End If
+        收入_單_tb.Text = Strings.Format(Val(收入_單_tb.Text), "#,##0") : 支出_單_tb.Text = Strings.Format(Val(支出_單_tb.Text), "#,##0")
+        損益_單_tb.Text = Strings.Format(Val(損益_單_tb.Text), "#,##0") : 支票_單_tb.Text = Strings.Format(Val(支票_單_tb.Text), "#,##0")
+        零用金_單_tb.Text = Strings.Format(Val(零用金_單_tb.Text), "#,##0") : 已兌現支票_單_tb.Text = Strings.Format(Val(已兌現支票_單_tb.Text), "#,##0")
+    End Sub
+    Private Sub 清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 清單_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            收支單號_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("收支單號").Value : 總金額計算()
+        End If
+    End Sub
+    Private Sub 清單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 清單_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 清單_dgv.Rows.Count - 1 Then
+            Exit Sub
+        Else
+            If 清單_dgv(0, e.RowIndex).Value.ToString <> 清單_dgv(0, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(清單_dgv.RowHeadersVisible, 清單_dgv.RowHeadersWidth, 0)
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 清單_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 清單_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
+                Exit Sub
+            End If
+        End If
+        For i As Integer = 0 To 清單_dgv.Rows.Count - 1
+            If 清單_dgv(9, i).Value <> 0 And 清單_dgv(18, i).Value = True Then
+                清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
+            ElseIf 清單_dgv(9, i).Value <> 0 And 清單_dgv(18, i).Value = False Then
+                清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
+            End If
+        Next
+    End Sub
+    Private Sub 年_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年_cb.SelectedIndexChanged
+        KKK3 = 年_cb.Text : If KKK3 = "" Or KKK4 = "" Then : Else : KKKJJ3 = "AND (財務控制表_ICS.審核日期 LIKE '" & KKK3 & "/" & KKK4 & "%') " : Set_清單1() : End If
+    End Sub
+    Private Sub 月_ch_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月_ch.SelectedIndexChanged
+        KKK4 = 月_ch.Text : If KKK3 = "" Or KKK4 = "" Then : Else : KKKJJ3 = "AND (財務控制表_ICS.審核日期 LIKE '" & KKK3 & "/" & KKK4 & "%') " : Set_清單1() : End If
+    End Sub
+    Private Sub 只顯示支票資料_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 只顯示支票資料_ch.Click
+        If 只顯示支票資料_ch.Checked = False Then : KKKJJ = "" : Set_清單1() : Else : KKKJJ = " AND (財務流水帳_ICS.支票數 <> 0) " : Set_清單1() : End If
+    End Sub
+    Private Sub 隱藏申請_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 隱藏申請_ch.Click
+        Set_grid()
+    End Sub
+    Private Sub 隱藏作帳_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 隱藏作帳_ch.Click
+        Set_grid()
+    End Sub
+    '-----------------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------
+    Private Sub 對帳記錄存檔ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 對帳記錄存檔ToolStripMenuItem.Click
+        For i As Integer = 0 To 清單_dgv.Rows.Count - 1
+            資料數 = 清單_dgv.Rows.Count : MyMoule.進度條()
+            ConnOpen()
+            SQL1 = "UPDATE 財務流水帳_ICS SET 現金 = '" & 清單_dgv.Rows(i).Cells("現金點交").Value & "', 備用金 = '" & 清單_dgv.Rows(i).Cells("零用金點交").Value &
+                   "', 公帳 = '" & 清單_dgv.Rows(i).Cells("支出點交").Value & "', 支票 = '" & 清單_dgv.Rows(i).Cells("支票兌現").Value & "' 
+                    WHERE 支付單號 LIKE '" & 清單_dgv.Rows(i).Cells("收支單號").Value & "' AND 項次 Like '" & 清單_dgv.Rows(i).Cells("項次").Value & "'"
+            cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close()
+        Next
+        MsgBox("存檔完成。") : Set_清單1() : ProgressBar1.Value = 0 : 最終數 = 0
+    End Sub
+    Private Sub 關鍵字查詢ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 關鍵字查詢ToolStripMenuItem.Click
+        PA = InputBox("請輸入要查詢的關鍵字。")
+        KKKJJ2 = " AND (財務控制表_ICS.支付單號 LIKE N'%" & PA & "%' OR 財務控制表_ICS.申請人 LIKE N'%" & PA & "%' OR 財務控制表_ICS.審核人 LIKE N'%" & PA &
+                 "%' OR 財務流水帳_ICS.明細 LIKE N'%" & PA & "%' OR 財務控制表_ICS.備註 LIKE N'%" & PA & "%' OR 財務流水帳_ICS.備註 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
+        ComboBox1下拉表單資料載入()
+        月_ch.Items.Clear()
+        月_ch.Items.Add("01") : 月_ch.Items.Add("02") : 月_ch.Items.Add("03") : 月_ch.Items.Add("04") : 月_ch.Items.Add("05") : 月_ch.Items.Add("06")
+        月_ch.Items.Add("07") : 月_ch.Items.Add("08") : 月_ch.Items.Add("09") : 月_ch.Items.Add("10") : 月_ch.Items.Add("11") : 月_ch.Items.Add("12")
+        KKK3 = "" : KKK4 = "" : KKKJJ3 = ""
+        清單_dgv.DataSource = Nothing : ds.Clear()
+    End Sub
+    Private Sub 重新整理ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新整理ToolStripMenuItem.Click
+        Set_清單1()
+    End Sub
+End Class

工巧明智能管理系統/我的系統/02-財務系統管理/ISC/財務_彙總表_ICS.Designer.vb

@@ -0,0 +1,711 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 財務_彙總表_ICS
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim ChartArea5 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
+        Dim Legend5 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
+        Dim Series5 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
+        Dim ChartArea6 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
+        Dim Legend6 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
+        Dim Series6 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
+        Dim ChartArea7 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
+        Dim Legend7 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
+        Dim Series7 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
+        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle37 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle38 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim ChartArea8 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea()
+        Dim Legend8 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend()
+        Dim Series8 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series()
+        Dim DataGridViewCellStyle39 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.年份_cb = New System.Windows.Forms.ComboBox()
+        Me.Chart4 = New System.Windows.Forms.DataVisualization.Charting.Chart()
+        Me.Chart2 = New System.Windows.Forms.DataVisualization.Charting.Chart()
+        Me.Chart3 = New System.Windows.Forms.DataVisualization.Charting.Chart()
+        Me.加總4_tb = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.加總3_tb = New System.Windows.Forms.TextBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.主表8_dgv = New System.Windows.Forms.DataGridView()
+        Me.加總2_tb = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.主項2_cb = New System.Windows.Forms.ComboBox()
+        Me.主表7_dgv = New System.Windows.Forms.DataGridView()
+        Me.主表6_dgv = New System.Windows.Forms.DataGridView()
+        Me.主表5_dgv = New System.Windows.Forms.DataGridView()
+        Me.加總1_tb = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.主項1_cb = New System.Windows.Forms.ComboBox()
+        Me.主表4_dgv = New System.Windows.Forms.DataGridView()
+        Me.主表3_dgv = New System.Windows.Forms.DataGridView()
+        Me.主表2_dgv = New System.Windows.Forms.DataGridView()
+        Me.加總_tb = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.主項_cb = New System.Windows.Forms.ComboBox()
+        Me.主表1_dgv = New System.Windows.Forms.DataGridView()
+        Me.主表_dgv = New System.Windows.Forms.DataGridView()
+        Me.Chart1 = New System.Windows.Forms.DataVisualization.Charting.Chart()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.主表9_dgv = New System.Windows.Forms.DataGridView()
+        Me.隱加總_tb = New System.Windows.Forms.TextBox()
+        Me.隱加總1_tb = New System.Windows.Forms.TextBox()
+        Me.隱加總2_tb = New System.Windows.Forms.TextBox()
+        CType(Me.Chart4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Chart2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Chart3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.主表8_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.主表7_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.主表6_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.主表5_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.主表4_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.主表3_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.主表2_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.主表1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.主表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Chart1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.主表9_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '年份_cb
+        '
+        Me.年份_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.年份_cb.FormattingEnabled = True
+        Me.年份_cb.Items.AddRange(New Object() {"2019"})
+        Me.年份_cb.Location = New System.Drawing.Point(1805, 4)
+        Me.年份_cb.Name = "年份_cb"
+        Me.年份_cb.Size = New System.Drawing.Size(70, 24)
+        Me.年份_cb.TabIndex = 1174
+        '
+        'Chart4
+        '
+        Me.Chart4.BackColor = System.Drawing.SystemColors.Control
+        ChartArea5.AlignmentOrientation = CType((System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Vertical Or System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Horizontal), System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations)
+        ChartArea5.Area3DStyle.Inclination = 60
+        ChartArea5.AxisX.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea5.AxisX.IsLabelAutoFit = False
+        ChartArea5.AxisX.LabelAutoFitStyle = CType((((((System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.IncreaseFont Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.DecreaseFont) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.StaggeredLabels) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep30) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep45) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.WordWrap), System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles)
+        ChartArea5.AxisX.LabelStyle.IsStaggered = True
+        ChartArea5.AxisX.MaximumAutoSize = 100.0!
+        ChartArea5.AxisX.TitleFont = New System.Drawing.Font("微軟正黑體", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        ChartArea5.AxisX2.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea5.AxisX2.MaximumAutoSize = 100.0!
+        ChartArea5.AxisY.MaximumAutoSize = 100.0!
+        ChartArea5.AxisY2.MaximumAutoSize = 100.0!
+        ChartArea5.Name = "ChartArea1"
+        Me.Chart4.ChartAreas.Add(ChartArea5)
+        Legend5.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Legend5.IsTextAutoFit = False
+        Legend5.Name = "Legend1"
+        Me.Chart4.Legends.Add(Legend5)
+        Me.Chart4.Location = New System.Drawing.Point(1321, 697)
+        Me.Chart4.Name = "Chart4"
+        Series5.ChartArea = "ChartArea1"
+        Series5.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Pie
+        Series5.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Series5.Legend = "Legend1"
+        Series5.Name = "Series1"
+        Me.Chart4.Series.Add(Series5)
+        Me.Chart4.Size = New System.Drawing.Size(554, 270)
+        Me.Chart4.TabIndex = 1173
+        Me.Chart4.Text = "Chart4"
+        '
+        'Chart2
+        '
+        Me.Chart2.BackColor = System.Drawing.SystemColors.Control
+        ChartArea6.AlignmentOrientation = CType((System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Vertical Or System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Horizontal), System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations)
+        ChartArea6.Area3DStyle.Inclination = 60
+        ChartArea6.AxisX.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea6.AxisX.IsLabelAutoFit = False
+        ChartArea6.AxisX.LabelAutoFitStyle = CType((((((System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.IncreaseFont Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.DecreaseFont) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.StaggeredLabels) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep30) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep45) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.WordWrap), System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles)
+        ChartArea6.AxisX.LabelStyle.IsStaggered = True
+        ChartArea6.AxisX.MaximumAutoSize = 100.0!
+        ChartArea6.AxisX.TitleFont = New System.Drawing.Font("微軟正黑體", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        ChartArea6.AxisX2.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea6.AxisX2.MaximumAutoSize = 100.0!
+        ChartArea6.AxisY.MaximumAutoSize = 100.0!
+        ChartArea6.AxisY2.MaximumAutoSize = 100.0!
+        ChartArea6.Name = "ChartArea1"
+        Me.Chart2.ChartAreas.Add(ChartArea6)
+        Legend6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Legend6.IsTextAutoFit = False
+        Legend6.Name = "Legend1"
+        Me.Chart2.Legends.Add(Legend6)
+        Me.Chart2.Location = New System.Drawing.Point(695, 697)
+        Me.Chart2.Name = "Chart2"
+        Series6.ChartArea = "ChartArea1"
+        Series6.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Pie
+        Series6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Series6.Legend = "Legend1"
+        Series6.Name = "Series1"
+        Me.Chart2.Series.Add(Series6)
+        Me.Chart2.Size = New System.Drawing.Size(554, 270)
+        Me.Chart2.TabIndex = 1172
+        Me.Chart2.Text = "Chart2"
+        '
+        'Chart3
+        '
+        Me.Chart3.BackColor = System.Drawing.SystemColors.Control
+        ChartArea7.AlignmentOrientation = CType((System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Vertical Or System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Horizontal), System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations)
+        ChartArea7.Area3DStyle.Inclination = 60
+        ChartArea7.AxisX.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea7.AxisX.IsLabelAutoFit = False
+        ChartArea7.AxisX.LabelAutoFitStyle = CType((((((System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.IncreaseFont Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.DecreaseFont) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.StaggeredLabels) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep30) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep45) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.WordWrap), System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles)
+        ChartArea7.AxisX.LabelStyle.IsStaggered = True
+        ChartArea7.AxisX.MaximumAutoSize = 100.0!
+        ChartArea7.AxisX.TitleFont = New System.Drawing.Font("微軟正黑體", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        ChartArea7.AxisX2.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea7.AxisX2.MaximumAutoSize = 100.0!
+        ChartArea7.AxisY.MaximumAutoSize = 100.0!
+        ChartArea7.AxisY2.MaximumAutoSize = 100.0!
+        ChartArea7.Name = "ChartArea1"
+        Me.Chart3.ChartAreas.Add(ChartArea7)
+        Legend7.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Legend7.IsTextAutoFit = False
+        Legend7.Name = "Legend1"
+        Me.Chart3.Legends.Add(Legend7)
+        Me.Chart3.Location = New System.Drawing.Point(69, 697)
+        Me.Chart3.Name = "Chart3"
+        Series7.ChartArea = "ChartArea1"
+        Series7.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Pie
+        Series7.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Series7.Legend = "Legend1"
+        Series7.Name = "Series1"
+        Me.Chart3.Series.Add(Series7)
+        Me.Chart3.Size = New System.Drawing.Size(554, 270)
+        Me.Chart3.TabIndex = 1171
+        Me.Chart3.Text = "Chart3"
+        '
+        '加總4_tb
+        '
+        Me.加總4_tb.ForeColor = System.Drawing.Color.Green
+        Me.加總4_tb.Location = New System.Drawing.Point(1729, 400)
+        Me.加總4_tb.Name = "加總4_tb"
+        Me.加總4_tb.Size = New System.Drawing.Size(146, 23)
+        Me.加總4_tb.TabIndex = 1169
+        Me.加總4_tb.Text = "0"
+        Me.加總4_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.ForeColor = System.Drawing.Color.Green
+        Me.Label8.Location = New System.Drawing.Point(1670, 404)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(55, 16)
+        Me.Label8.TabIndex = 1168
+        Me.Label8.Text = "營運利潤"
+        '
+        '加總3_tb
+        '
+        Me.加總3_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.加總3_tb.Location = New System.Drawing.Point(1519, 400)
+        Me.加總3_tb.Name = "加總3_tb"
+        Me.加總3_tb.Size = New System.Drawing.Size(146, 23)
+        Me.加總3_tb.TabIndex = 1167
+        Me.加總3_tb.Text = "0"
+        Me.加總3_tb.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(1460, 404)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(55, 16)
+        Me.Label7.TabIndex = 1166
+        Me.Label7.Text = "營運餘額"
+        '
+        '主表8_dgv
+        '
+        DataGridViewCellStyle21.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.主表8_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
+        Me.主表8_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.主表8_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.主表8_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.主表8_dgv.Location = New System.Drawing.Point(1695, 31)
+        Me.主表8_dgv.Name = "主表8_dgv"
+        Me.主表8_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.主表8_dgv.RowsDefaultCellStyle = DataGridViewCellStyle22
+        Me.主表8_dgv.RowTemplate.Height = 24
+        Me.主表8_dgv.Size = New System.Drawing.Size(180, 366)
+        Me.主表8_dgv.TabIndex = 1165
+        '
+        '加總2_tb
+        '
+        Me.加總2_tb.Location = New System.Drawing.Point(1545, 5)
+        Me.加總2_tb.Name = "加總2_tb"
+        Me.加總2_tb.Size = New System.Drawing.Size(146, 23)
+        Me.加總2_tb.TabIndex = 1164
+        Me.加總2_tb.Text = "0"
+        Me.加總2_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(1511, 9)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(31, 16)
+        Me.Label5.TabIndex = 1163
+        Me.Label5.Text = "加總"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(1260, 8)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(31, 16)
+        Me.Label6.TabIndex = 1162
+        Me.Label6.Text = "項目"
+        '
+        '主項2_cb
+        '
+        Me.主項2_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.主項2_cb.FormattingEnabled = True
+        Me.主項2_cb.Items.AddRange(New Object() {"2019"})
+        Me.主項2_cb.Location = New System.Drawing.Point(1292, 4)
+        Me.主項2_cb.Name = "主項2_cb"
+        Me.主項2_cb.Size = New System.Drawing.Size(107, 24)
+        Me.主項2_cb.TabIndex = 1161
+        '
+        '主表7_dgv
+        '
+        DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.主表7_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23
+        Me.主表7_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.主表7_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.主表7_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.主表7_dgv.Location = New System.Drawing.Point(1258, 230)
+        Me.主表7_dgv.Name = "主表7_dgv"
+        Me.主表7_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.主表7_dgv.RowsDefaultCellStyle = DataGridViewCellStyle24
+        Me.主表7_dgv.RowTemplate.Height = 24
+        Me.主表7_dgv.Size = New System.Drawing.Size(435, 167)
+        Me.主表7_dgv.TabIndex = 1160
+        '
+        '主表6_dgv
+        '
+        DataGridViewCellStyle25.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.主表6_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle25
+        Me.主表6_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.主表6_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.主表6_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.主表6_dgv.Location = New System.Drawing.Point(1258, 31)
+        Me.主表6_dgv.Name = "主表6_dgv"
+        Me.主表6_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle26.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.主表6_dgv.RowsDefaultCellStyle = DataGridViewCellStyle26
+        Me.主表6_dgv.RowTemplate.Height = 24
+        Me.主表6_dgv.Size = New System.Drawing.Size(435, 197)
+        Me.主表6_dgv.TabIndex = 1159
+        '
+        '主表5_dgv
+        '
+        DataGridViewCellStyle27.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.主表5_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle27
+        Me.主表5_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.主表5_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.主表5_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.主表5_dgv.Location = New System.Drawing.Point(1069, 31)
+        Me.主表5_dgv.Name = "主表5_dgv"
+        Me.主表5_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.主表5_dgv.RowsDefaultCellStyle = DataGridViewCellStyle28
+        Me.主表5_dgv.RowTemplate.Height = 24
+        Me.主表5_dgv.Size = New System.Drawing.Size(180, 366)
+        Me.主表5_dgv.TabIndex = 1158
+        '
+        '加總1_tb
+        '
+        Me.加總1_tb.Location = New System.Drawing.Point(919, 5)
+        Me.加總1_tb.Name = "加總1_tb"
+        Me.加總1_tb.Size = New System.Drawing.Size(146, 23)
+        Me.加總1_tb.TabIndex = 1157
+        Me.加總1_tb.Text = "0"
+        Me.加總1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(885, 9)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(31, 16)
+        Me.Label3.TabIndex = 1156
+        Me.Label3.Text = "加總"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(634, 8)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(31, 16)
+        Me.Label4.TabIndex = 1155
+        Me.Label4.Text = "項目"
+        '
+        '主項1_cb
+        '
+        Me.主項1_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.主項1_cb.FormattingEnabled = True
+        Me.主項1_cb.Items.AddRange(New Object() {"2019"})
+        Me.主項1_cb.Location = New System.Drawing.Point(666, 4)
+        Me.主項1_cb.Name = "主項1_cb"
+        Me.主項1_cb.Size = New System.Drawing.Size(107, 24)
+        Me.主項1_cb.TabIndex = 1154
+        '
+        '主表4_dgv
+        '
+        DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.主表4_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29
+        Me.主表4_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.主表4_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.主表4_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.主表4_dgv.Location = New System.Drawing.Point(632, 230)
+        Me.主表4_dgv.Name = "主表4_dgv"
+        Me.主表4_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.主表4_dgv.RowsDefaultCellStyle = DataGridViewCellStyle30
+        Me.主表4_dgv.RowTemplate.Height = 24
+        Me.主表4_dgv.Size = New System.Drawing.Size(435, 167)
+        Me.主表4_dgv.TabIndex = 1153
+        '
+        '主表3_dgv
+        '
+        DataGridViewCellStyle31.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.主表3_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle31
+        Me.主表3_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.主表3_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.主表3_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.主表3_dgv.Location = New System.Drawing.Point(632, 31)
+        Me.主表3_dgv.Name = "主表3_dgv"
+        Me.主表3_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle32.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.主表3_dgv.RowsDefaultCellStyle = DataGridViewCellStyle32
+        Me.主表3_dgv.RowTemplate.Height = 24
+        Me.主表3_dgv.Size = New System.Drawing.Size(435, 197)
+        Me.主表3_dgv.TabIndex = 1152
+        '
+        '主表2_dgv
+        '
+        DataGridViewCellStyle33.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.主表2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle33
+        Me.主表2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.主表2_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.主表2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.主表2_dgv.Location = New System.Drawing.Point(443, 31)
+        Me.主表2_dgv.Name = "主表2_dgv"
+        Me.主表2_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle34.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.主表2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle34
+        Me.主表2_dgv.RowTemplate.Height = 24
+        Me.主表2_dgv.Size = New System.Drawing.Size(180, 366)
+        Me.主表2_dgv.TabIndex = 1151
+        '
+        '加總_tb
+        '
+        Me.加總_tb.Location = New System.Drawing.Point(293, 5)
+        Me.加總_tb.Name = "加總_tb"
+        Me.加總_tb.Size = New System.Drawing.Size(146, 23)
+        Me.加總_tb.TabIndex = 1150
+        Me.加總_tb.Text = "0"
+        Me.加總_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(259, 9)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(31, 16)
+        Me.Label2.TabIndex = 1149
+        Me.Label2.Text = "加總"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(8, 8)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(31, 16)
+        Me.Label1.TabIndex = 1148
+        Me.Label1.Text = "項目"
+        '
+        '主項_cb
+        '
+        Me.主項_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.主項_cb.FormattingEnabled = True
+        Me.主項_cb.Items.AddRange(New Object() {"2019"})
+        Me.主項_cb.Location = New System.Drawing.Point(40, 4)
+        Me.主項_cb.Name = "主項_cb"
+        Me.主項_cb.Size = New System.Drawing.Size(107, 24)
+        Me.主項_cb.TabIndex = 1147
+        '
+        '主表1_dgv
+        '
+        DataGridViewCellStyle35.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.主表1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle35
+        Me.主表1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.主表1_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.主表1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.主表1_dgv.Location = New System.Drawing.Point(6, 230)
+        Me.主表1_dgv.Name = "主表1_dgv"
+        Me.主表1_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.主表1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle36
+        Me.主表1_dgv.RowTemplate.Height = 24
+        Me.主表1_dgv.Size = New System.Drawing.Size(435, 167)
+        Me.主表1_dgv.TabIndex = 1146
+        '
+        '主表_dgv
+        '
+        DataGridViewCellStyle37.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.主表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle37
+        Me.主表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.主表_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.主表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.主表_dgv.Location = New System.Drawing.Point(6, 31)
+        Me.主表_dgv.Name = "主表_dgv"
+        Me.主表_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle38.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.主表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle38
+        Me.主表_dgv.RowTemplate.Height = 24
+        Me.主表_dgv.Size = New System.Drawing.Size(435, 197)
+        Me.主表_dgv.TabIndex = 1145
+        '
+        'Chart1
+        '
+        Me.Chart1.BackColor = System.Drawing.SystemColors.Control
+        ChartArea8.AlignmentOrientation = CType((System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Vertical Or System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations.Horizontal), System.Windows.Forms.DataVisualization.Charting.AreaAlignmentOrientations)
+        ChartArea8.AxisX.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea8.AxisX.IsLabelAutoFit = False
+        ChartArea8.AxisX.LabelAutoFitStyle = CType((((((System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.IncreaseFont Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.DecreaseFont) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.StaggeredLabels) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep30) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.LabelsAngleStep45) _
+            Or System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles.WordWrap), System.Windows.Forms.DataVisualization.Charting.LabelAutoFitStyles)
+        ChartArea8.AxisX.LabelStyle.IsStaggered = True
+        ChartArea8.AxisX.MaximumAutoSize = 100.0!
+        ChartArea8.AxisX.TitleFont = New System.Drawing.Font("微軟正黑體", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        ChartArea8.AxisX2.IntervalAutoMode = System.Windows.Forms.DataVisualization.Charting.IntervalAutoMode.VariableCount
+        ChartArea8.AxisX2.MaximumAutoSize = 100.0!
+        ChartArea8.AxisY.MaximumAutoSize = 100.0!
+        ChartArea8.AxisY2.MaximumAutoSize = 100.0!
+        ChartArea8.Name = "ChartArea1"
+        Me.Chart1.ChartAreas.Add(ChartArea8)
+        Legend8.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Legend8.IsTextAutoFit = False
+        Legend8.Name = "Legend1"
+        Me.Chart1.Legends.Add(Legend8)
+        Me.Chart1.Location = New System.Drawing.Point(5, 420)
+        Me.Chart1.Name = "Chart1"
+        Series8.ChartArea = "ChartArea1"
+        Series8.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Line
+        Series8.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Series8.Legend = "Legend1"
+        Series8.Name = "Series1"
+        Me.Chart1.Series.Add(Series8)
+        Me.Chart1.Size = New System.Drawing.Size(1890, 275)
+        Me.Chart1.TabIndex = 1170
+        Me.Chart1.Text = "Chart1"
+        '
+        'Panel1
+        '
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.主表9_dgv)
+        Me.Panel1.Controls.Add(Me.隱加總_tb)
+        Me.Panel1.Controls.Add(Me.隱加總1_tb)
+        Me.Panel1.Controls.Add(Me.隱加總2_tb)
+        Me.Panel1.Location = New System.Drawing.Point(434, 425)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(278, 96)
+        Me.Panel1.TabIndex = 1175
+        '
+        '主表9_dgv
+        '
+        DataGridViewCellStyle39.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.主表9_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle39
+        Me.主表9_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.主表9_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.主表9_dgv.Location = New System.Drawing.Point(3, 3)
+        Me.主表9_dgv.Name = "主表9_dgv"
+        Me.主表9_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.主表9_dgv.RowsDefaultCellStyle = DataGridViewCellStyle40
+        Me.主表9_dgv.RowTemplate.Height = 24
+        Me.主表9_dgv.Size = New System.Drawing.Size(111, 84)
+        Me.主表9_dgv.TabIndex = 1139
+        '
+        '隱加總_tb
+        '
+        Me.隱加總_tb.Location = New System.Drawing.Point(120, 3)
+        Me.隱加總_tb.Name = "隱加總_tb"
+        Me.隱加總_tb.Size = New System.Drawing.Size(146, 23)
+        Me.隱加總_tb.TabIndex = 1133
+        Me.隱加總_tb.Text = "0"
+        Me.隱加總_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        '隱加總1_tb
+        '
+        Me.隱加總1_tb.Location = New System.Drawing.Point(120, 32)
+        Me.隱加總1_tb.Name = "隱加總1_tb"
+        Me.隱加總1_tb.Size = New System.Drawing.Size(146, 23)
+        Me.隱加總1_tb.TabIndex = 1134
+        Me.隱加總1_tb.Text = "0"
+        Me.隱加總1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        '隱加總2_tb
+        '
+        Me.隱加總2_tb.Location = New System.Drawing.Point(120, 61)
+        Me.隱加總2_tb.Name = "隱加總2_tb"
+        Me.隱加總2_tb.Size = New System.Drawing.Size(146, 23)
+        Me.隱加總2_tb.TabIndex = 1135
+        Me.隱加總2_tb.Text = "0"
+        Me.隱加總2_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        '財務_彙總表_ICS
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1900, 971)
+        Me.Controls.Add(Me.年份_cb)
+        Me.Controls.Add(Me.Chart4)
+        Me.Controls.Add(Me.Chart2)
+        Me.Controls.Add(Me.Chart3)
+        Me.Controls.Add(Me.加總4_tb)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.加總3_tb)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.主表8_dgv)
+        Me.Controls.Add(Me.加總2_tb)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.主項2_cb)
+        Me.Controls.Add(Me.主表7_dgv)
+        Me.Controls.Add(Me.主表6_dgv)
+        Me.Controls.Add(Me.主表5_dgv)
+        Me.Controls.Add(Me.加總1_tb)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.主項1_cb)
+        Me.Controls.Add(Me.主表4_dgv)
+        Me.Controls.Add(Me.主表3_dgv)
+        Me.Controls.Add(Me.主表2_dgv)
+        Me.Controls.Add(Me.加總_tb)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.主項_cb)
+        Me.Controls.Add(Me.主表1_dgv)
+        Me.Controls.Add(Me.主表_dgv)
+        Me.Controls.Add(Me.Chart1)
+        Me.Controls.Add(Me.Panel1)
+        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(4, 4, 4, 4)
+        Me.Name = "財務_彙總表_ICS"
+        Me.Text = "財務_彙總表_ICS"
+        CType(Me.Chart4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Chart2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Chart3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.主表8_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.主表7_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.主表6_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.主表5_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.主表4_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.主表3_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.主表2_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.主表1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.主表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Chart1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.主表9_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 年份_cb As ComboBox
+    Friend WithEvents Chart4 As DataVisualization.Charting.Chart
+    Friend WithEvents Chart2 As DataVisualization.Charting.Chart
+    Friend WithEvents Chart3 As DataVisualization.Charting.Chart
+    Friend WithEvents 加總4_tb As TextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents 加總3_tb As TextBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents 主表8_dgv As DataGridView
+    Friend WithEvents 加總2_tb As TextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents 主項2_cb As ComboBox
+    Friend WithEvents 主表7_dgv As DataGridView
+    Friend WithEvents 主表6_dgv As DataGridView
+    Friend WithEvents 主表5_dgv As DataGridView
+    Friend WithEvents 加總1_tb As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 主項1_cb As ComboBox
+    Friend WithEvents 主表4_dgv As DataGridView
+    Friend WithEvents 主表3_dgv As DataGridView
+    Friend WithEvents 主表2_dgv As DataGridView
+    Friend WithEvents 加總_tb As TextBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 主項_cb As ComboBox
+    Friend WithEvents 主表1_dgv As DataGridView
+    Friend WithEvents 主表_dgv As DataGridView
+    Friend WithEvents Chart1 As DataVisualization.Charting.Chart
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents 主表9_dgv As DataGridView
+    Friend WithEvents 隱加總_tb As TextBox
+    Friend WithEvents 隱加總1_tb As TextBox
+    Friend WithEvents 隱加總2_tb As TextBox
+End Class

工巧明智能管理系統/我的系統/02-財務系統管理/ISC/財務_彙總表_ICS.vb

@@ -0,0 +1,342 @@
+Imports System.Windows.Forms.DataVisualization.Charting
+Public Class 財務_彙總表_ICS
+    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8, ds9 As New DataSet
+    '-----------------------------第一區-----------------------------------------------------------------------------------------------------------------------
+    Private Sub Set_清單()
+        主表_dgv.DataSource = Nothing : ds.Clear() : 主表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        主表_dgv.ColumnHeadersHeight = 30 : 主表_dgv.AllowUserToAddRows = False
+        ConnOpen()
+        SQL1 = "SELECT 日期, 子項, 子細項, SUM(金額) AS 金額 FROM 財務彙總紀錄_ICS 
+                WHERE (主項 LIKE '" & 主項_cb.Text & "') AND 日期 LIKE '%" & 年份_cb.Text & "%' GROUP BY 日期, 子項, 子細項 ORDER BY 日期, 子項, 子細項"
+        CmdSet_For_DGV() : da.Fill(ds) : 主表_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        主表_dgv.Columns(0).FillWeight = 70 : 主表_dgv.Columns(1).FillWeight = 100 : 主表_dgv.Columns(2).FillWeight = 120 : 主表_dgv.Columns(3).FillWeight = 80
+        主表_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
+        主表_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Set_清單2() : Set_清單1()
+    End Sub
+    Private Sub Set_清單1()
+        主表1_dgv.DataSource = Nothing : ds1.Clear() : 主表1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        主表1_dgv.ColumnHeadersHeight = 30 : 主表1_dgv.AllowUserToAddRows = False
+        ConnOpen()
+        SQL1 = "SELECT TOP(10) 子細項, SUM(金額) AS 金額, ABS(SUM(金額)) AS 比例 FROM 財務彙總紀錄_ICS 
+                WHERE (主項 LIKE '" & 主項_cb.Text & "') AND 子細項 NOT LIKE '%借款%' AND 子細項 NOT LIKE '%還款%' AND 日期 LIKE '%" & 年份_cb.Text & "%'
+                GROUP BY 子細項 ORDER BY 金額"
+        CmdSet_For_DGV() : da.Fill(ds1) : 主表1_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        主表1_dgv.Columns(1).FillWeight = 130 : 主表1_dgv.Columns(1).FillWeight = 80 : 主表1_dgv.Columns(2).Visible = False
+        主表1_dgv.Columns(1).DefaultCellStyle.Format = "#,##0"
+        主表1_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        主表1_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        主表1_dgv.Sort(主表1_dgv.Columns("比例"), System.ComponentModel.ListSortDirection.Descending)
+    End Sub
+    Private Sub Set_清單2()
+        主表2_dgv.DataSource = Nothing : ds2.Clear() : 主表2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        主表2_dgv.ColumnHeadersHeight = 30 : 主表2_dgv.AllowUserToAddRows = False
+        ConnOpen()
+        SQL1 = "SELECT 日期, SUM(金額) AS 金額 FROM 財務彙總紀錄_ICS 
+                WHERE (主項 LIKE '" & 主項_cb.Text & "') AND 日期 LIKE '%" & 年份_cb.Text & "%' GROUP BY 日期 ORDER BY 日期"
+        CmdSet_For_DGV() : da.Fill(ds2) : 主表2_dgv.DataSource = ds2.Tables(0) : conn.Close()
+
+        主表2_dgv.Columns(0).FillWeight = 70
+        主表2_dgv.Columns(1).DefaultCellStyle.Format = "#,##0"
+        主表2_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        加總_tb.Text = "0" : 隱加總_tb.Text = "0"
+        For I As Integer = 0 To 主表2_dgv.Rows.Count - 1
+            加總_tb.Text = Val(加總_tb.Text) + 主表2_dgv.Rows(I).Cells("金額").Value
+            隱加總_tb.Text = Val(隱加總_tb.Text) + 主表2_dgv.Rows(I).Cells("金額").Value
+        Next
+
+        加總_tb.Text = Format(Val(加總_tb.Text), "#,##0")
+
+        For I As Integer = 0 To 主表2_dgv.Rows.Count - 1
+            If 主項_cb.Text = "歲出合計" Then
+                主表2_dgv.Rows(I).Cells("金額").Value = 主表2_dgv.Rows(I).Cells("金額").Value * -1
+            End If
+        Next
+    End Sub
+    '-----------------------------第二區-----------------------------------------------------------------------------------------------------------------------
+    Private Sub Set_清單3()
+        主表3_dgv.DataSource = Nothing : ds3.Clear() : 主表3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        主表3_dgv.ColumnHeadersHeight = 30 : 主表3_dgv.AllowUserToAddRows = False
+        ConnOpen()
+        SQL1 = "SELECT 日期, 子項, 子細項, SUM(金額) AS 金額 FROM 財務彙總紀錄_ICS 
+                WHERE (主項 LIKE '" & 主項1_cb.Text & "') AND 日期 LIKE '%" & 年份_cb.Text & "%' GROUP BY 日期, 子項, 子細項 ORDER BY 日期, 子項, 子細項"
+        CmdSet_For_DGV() : da.Fill(ds3) : 主表3_dgv.DataSource = ds3.Tables(0) : conn.Close()
+
+        主表3_dgv.Columns(0).FillWeight = 70 : 主表3_dgv.Columns(1).FillWeight = 100 : 主表3_dgv.Columns(2).FillWeight = 120 : 主表3_dgv.Columns(3).FillWeight = 80
+        主表3_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
+        主表3_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Set_清單5() : Set_清單4()
+    End Sub
+    Private Sub Set_清單4()
+        主表4_dgv.DataSource = Nothing : ds4.Clear() : 主表4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        主表4_dgv.ColumnHeadersHeight = 30 : 主表4_dgv.AllowUserToAddRows = False
+        ConnOpen()
+        SQL1 = "SELECT TOP(10) 子細項, SUM(金額) AS 金額, ABS(SUM(金額)) AS 比例 FROM 財務彙總紀錄_ICS 
+                WHERE (主項 LIKE '" & 主項1_cb.Text & "') AND 子細項 NOT LIKE '%借款%' AND 子細項 NOT LIKE '%還款%' AND 日期 LIKE '%" & 年份_cb.Text & "%' 
+                GROUP BY 子細項 ORDER BY 金額"
+        CmdSet_For_DGV() : da.Fill(ds4) : 主表4_dgv.DataSource = ds4.Tables(0) : conn.Close()
+
+        主表4_dgv.Columns(1).FillWeight = 130 : 主表4_dgv.Columns(1).FillWeight = 80 : 主表4_dgv.Columns(2).Visible = False
+        主表4_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 主表4_dgv.Columns(2).DefaultCellStyle.Format = "#,##0"
+        主表4_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        主表4_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        主表4_dgv.Sort(主表4_dgv.Columns("比例"), System.ComponentModel.ListSortDirection.Descending)
+    End Sub
+    Private Sub Set_清單5()
+        主表5_dgv.DataSource = Nothing : ds5.Clear() : 主表5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        主表5_dgv.ColumnHeadersHeight = 30 : 主表5_dgv.AllowUserToAddRows = False
+        ConnOpen()
+        SQL1 = "SELECT 日期, SUM(金額) AS 金額 FROM 財務彙總紀錄_ICS 
+                WHERE (主項 LIKE '" & 主項1_cb.Text & "') AND 日期 LIKE '%" & 年份_cb.Text & "%' GROUP BY 日期 ORDER BY 日期"
+        CmdSet_For_DGV() : da.Fill(ds5) : 主表5_dgv.DataSource = ds5.Tables(0) : conn.Close()
+
+        主表5_dgv.Columns(0).FillWeight = 70
+        主表5_dgv.Columns(1).DefaultCellStyle.Format = "#,##0"
+        主表5_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        加總1_tb.Text = "0" : 隱加總1_tb.Text = "0"
+        For I As Integer = 0 To 主表5_dgv.Rows.Count - 1
+            加總1_tb.Text = Val(加總1_tb.Text) + 主表5_dgv.Rows(I).Cells("金額").Value
+            隱加總1_tb.Text = Val(隱加總1_tb.Text) + 主表5_dgv.Rows(I).Cells("金額").Value
+        Next
+
+        加總1_tb.Text = Format(Val(加總1_tb.Text), "#,##0")
+
+        For I As Integer = 0 To 主表5_dgv.Rows.Count - 1
+            If 主項1_cb.Text = "歲出合計" Then
+                主表5_dgv.Rows(I).Cells("金額").Value = 主表5_dgv.Rows(I).Cells("金額").Value * -1
+            End If
+        Next
+    End Sub
+    '-----------------------------第三區-----------------------------------------------------------------------------------------------------------------------
+    Private Sub Set_清單6()
+        主表6_dgv.DataSource = Nothing : ds6.Clear() : 主表6_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        主表6_dgv.ColumnHeadersHeight = 30 : 主表6_dgv.AllowUserToAddRows = False
+        ConnOpen()
+        SQL1 = "SELECT 日期, 子項, 子細項, SUM(金額) AS 金額 FROM 財務彙總紀錄_ICS 
+                WHERE (主項 LIKE '" & 主項2_cb.Text & "') AND 日期 LIKE '%" & 年份_cb.Text & "%' GROUP BY 日期, 子項, 子細項 ORDER BY 日期, 子項, 子細項"
+        CmdSet_For_DGV() : da.Fill(ds6) : 主表6_dgv.DataSource = ds6.Tables(0) : conn.Close()
+
+        主表6_dgv.Columns(0).FillWeight = 70 : 主表6_dgv.Columns(1).FillWeight = 100 : 主表6_dgv.Columns(2).FillWeight = 120 : 主表6_dgv.Columns(3).FillWeight = 80
+        主表6_dgv.Columns(3).DefaultCellStyle.Format = "#,##0"
+        主表6_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        Set_清單8() : Set_清單7()
+    End Sub
+    Private Sub Set_清單7()
+        主表7_dgv.DataSource = Nothing : ds7.Clear() : 主表7_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        主表7_dgv.ColumnHeadersHeight = 30 : 主表7_dgv.AllowUserToAddRows = False
+        ConnOpen()
+        SQL1 = "SELECT TOP(10) 子細項, SUM(金額) AS 金額, ABS(SUM(金額)) AS 比例 FROM 財務彙總紀錄_ICS 
+                WHERE (主項 LIKE '" & 主項2_cb.Text & "') AND 子細項 NOT LIKE '%借款%' AND 子細項 NOT LIKE '%還款%' AND 日期 LIKE '%" & 年份_cb.Text & "%'
+                GROUP BY 子細項 ORDER BY 金額"
+        CmdSet_For_DGV() : da.Fill(ds7) : 主表7_dgv.DataSource = ds7.Tables(0) : conn.Close()
+
+        主表7_dgv.Columns(1).FillWeight = 130 : 主表7_dgv.Columns(1).FillWeight = 80 : 主表7_dgv.Columns(2).Visible = False
+        主表7_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 主表7_dgv.Columns(2).DefaultCellStyle.Format = "#,##0"
+        主表7_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        主表7_dgv.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        主表7_dgv.Sort(主表7_dgv.Columns("比例"), System.ComponentModel.ListSortDirection.Descending)
+    End Sub
+    Private Sub Set_清單8()
+        主表8_dgv.DataSource = Nothing : ds8.Clear() : 主表8_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        主表8_dgv.ColumnHeadersHeight = 30 : 主表8_dgv.AllowUserToAddRows = False
+        ConnOpen()
+        SQL1 = "SELECT 日期, SUM(金額) AS 金額 FROM 財務彙總紀錄_ICS 
+                WHERE (主項 LIKE '" & 主項2_cb.Text & "') AND 日期 LIKE '%" & 年份_cb.Text & "%' GROUP BY 日期 ORDER BY 日期"
+        CmdSet_For_DGV() : da.Fill(ds8) : 主表8_dgv.DataSource = ds8.Tables(0) : conn.Close()
+
+        主表8_dgv.Columns(0).FillWeight = 70
+        主表8_dgv.Columns(1).DefaultCellStyle.Format = "#,##0"
+        主表8_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        加總2_tb.Text = "0" : 隱加總2_tb.Text = "0"
+        For I As Integer = 0 To 主表8_dgv.Rows.Count - 1
+            加總2_tb.Text = Val(加總2_tb.Text) + 主表8_dgv.Rows(I).Cells("金額").Value
+            隱加總2_tb.Text = Val(隱加總2_tb.Text) + 主表8_dgv.Rows(I).Cells("金額").Value
+        Next
+
+        加總2_tb.Text = Format(Val(加總2_tb.Text), "#,##0")
+
+        For I As Integer = 0 To 主表8_dgv.Rows.Count - 1
+            If 主項2_cb.Text = "歲出合計" Then
+                主表8_dgv.Rows(I).Cells("金額").Value = 主表8_dgv.Rows(I).Cells("金額").Value * -1
+            End If
+        Next
+    End Sub
+    Private Sub Set_清單9()
+        主表9_dgv.DataSource = Nothing : ds9.Clear() : 主表9_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        主表9_dgv.ColumnHeadersHeight = 30 : 主表9_dgv.AllowUserToAddRows = False
+        ConnOpen()
+        SQL1 = "SELECT 日期, 日期 AS 金額1, 日期 AS 金額2, 日期 AS 金額3 FROM 財務彙總紀錄_ICS WHERE 日期 LIKE '%" & 年份_cb.Text & "%' GROUP BY 日期 ORDER BY 日期"
+        CmdSet_For_DGV() : da.Fill(ds9) : 主表9_dgv.DataSource = ds9.Tables(0) : conn.Close()
+
+        For I As Integer = 0 To 主表9_dgv.Rows.Count - 1
+            主表9_dgv.Rows(I).Cells("金額1").Value = "0" : 主表9_dgv.Rows(I).Cells("金額2").Value = "0" : 主表9_dgv.Rows(I).Cells("金額3").Value = "0"
+        Next
+        For I As Integer = 0 To 主表9_dgv.Rows.Count - 1
+            For II As Integer = 0 To 主表2_dgv.Rows.Count - 1
+                If 主表9_dgv.Rows(I).Cells("日期").Value = 主表2_dgv.Rows(II).Cells("日期").Value Then
+                    主表9_dgv.Rows(I).Cells("金額1").Value = 主表2_dgv.Rows(II).Cells("金額").Value
+                End If
+            Next
+            For II As Integer = 0 To 主表5_dgv.Rows.Count - 1
+                If 主表9_dgv.Rows(I).Cells("日期").Value = 主表5_dgv.Rows(II).Cells("日期").Value Then
+                    主表9_dgv.Rows(I).Cells("金額2").Value = 主表5_dgv.Rows(II).Cells("金額").Value
+                End If
+            Next
+            For II As Integer = 0 To 主表8_dgv.Rows.Count - 1
+                If 主表9_dgv.Rows(I).Cells("日期").Value = 主表8_dgv.Rows(II).Cells("日期").Value Then
+                    主表9_dgv.Rows(I).Cells("金額3").Value = 主表8_dgv.Rows(II).Cells("金額").Value
+                End If
+            Next
+        Next
+    End Sub
+    Private Sub 彙總()
+        加總3_tb.Text = Val(隱加總_tb.Text) + Val(隱加總1_tb.Text) + Val(隱加總2_tb.Text)
+        If 主項_cb.Text = "資本" Then : 加總4_tb.Text = Val(隱加總1_tb.Text) + Val(隱加總2_tb.Text)
+        ElseIf 主項1_cb.Text = "資本" Then : 加總4_tb.Text = Val(隱加總_tb.Text) + Val(隱加總2_tb.Text)
+        ElseIf 主項2_cb.Text = "資本" Then : 加總4_tb.Text = Val(隱加總_tb.Text) + Val(隱加總1_tb.Text)
+        End If
+
+        加總4_tb.Text = Format(Val(加總4_tb.Text), "#,##0") : 加總3_tb.Text = Format(Val(加總3_tb.Text), "#,##0")
+        Set_清單9()
+
+        Chart1.Series.Clear() : Chart1.ChartAreas(0).AxisX.Minimum = 0
+        If 主項2_cb.Text <> "" Then
+            Chart1.Series.Add(主項2_cb.Text)
+            If 主項2_cb.Text = "資本" Then : Chart1.Series(主項2_cb.Text).ChartType = SeriesChartType.Line
+            Else : Chart1.Series(主項2_cb.Text).ChartType = SeriesChartType.Column : End If
+            For i As Integer = 0 To 主表9_dgv.Rows.Count - 1
+                Chart1.Series(主項2_cb.Text).Points.AddXY(主表9_dgv.Rows(i).Cells("日期").Value.ToString, 主表9_dgv.Rows(i).Cells("金額3").Value.ToString)
+            Next
+
+            Chart4.Series.Clear()
+            Chart4.Series.Add(主項2_cb.Text) : Chart4.Series(主項2_cb.Text).ChartType = SeriesChartType.Pie
+            Chart4.Series(主項2_cb.Text).IsValueShownAsLabel = True
+            Chart4.Series(主項2_cb.Text).IsVisibleInLegend = True
+            Chart4.Series(主項2_cb.Text).IsXValueIndexed = True
+            For i As Integer = 0 To 主表7_dgv.Rows.Count - 1
+                Chart4.Series(主項2_cb.Text).Points.AddXY(主表7_dgv.Rows(i).Cells("子細項").Value.ToString, Format(主表7_dgv.Rows(i).Cells("金額").Value, "#,##0"))
+            Next
+        End If
+
+        If 主項1_cb.Text <> "" Then
+            Chart1.Series.Add(主項1_cb.Text)
+            If 主項1_cb.Text = "資本" Then : Chart1.Series(主項1_cb.Text).ChartType = SeriesChartType.Line
+            Else : Chart1.Series(主項1_cb.Text).ChartType = SeriesChartType.Column : End If
+            For i As Integer = 0 To 主表9_dgv.Rows.Count - 1
+                Chart1.Series(主項1_cb.Text).Points.AddXY(主表9_dgv.Rows(i).Cells("日期").Value.ToString, 主表9_dgv.Rows(i).Cells("金額2").Value.ToString)
+            Next
+
+            Chart2.Series.Clear()
+            Chart2.Series.Add(主項1_cb.Text) : Chart2.Series(主項1_cb.Text).ChartType = SeriesChartType.Pie
+            Chart2.Series(主項1_cb.Text).IsValueShownAsLabel = True
+            Chart2.Series(主項1_cb.Text).IsVisibleInLegend = True
+            Chart2.Series(主項1_cb.Text).IsXValueIndexed = True
+            For i As Integer = 0 To 主表4_dgv.Rows.Count - 1
+                Chart2.Series(主項1_cb.Text).Points.AddXY(主表4_dgv.Rows(i).Cells("子細項").Value.ToString, Format(主表4_dgv.Rows(i).Cells("金額").Value, "#,##0"))
+            Next
+        End If
+
+        If 主項_cb.Text <> "" Then
+            Chart1.Series.Add(主項_cb.Text)
+            If 主項_cb.Text = "資本" Then : Chart1.Series(主項_cb.Text).ChartType = SeriesChartType.Line
+            Else : Chart1.Series(主項_cb.Text).ChartType = SeriesChartType.Column : End If
+            For i As Integer = 0 To 主表9_dgv.Rows.Count - 1
+                Chart1.Series(主項_cb.Text).Points.AddXY(主表9_dgv.Rows(i).Cells("日期").Value.ToString, 主表9_dgv.Rows(i).Cells("金額1").Value.ToString)
+            Next
+
+            Chart3.Series.Clear()
+            Chart3.Series.Add(主項_cb.Text) : Chart3.Series(主項_cb.Text).ChartType = SeriesChartType.Pie
+            Chart3.Series(主項_cb.Text).IsValueShownAsLabel = True
+            Chart3.Series(主項_cb.Text).IsVisibleInLegend = True
+            Chart3.Series(主項_cb.Text).IsXValueIndexed = True
+            For i As Integer = 0 To 主表1_dgv.Rows.Count - 1
+                Chart3.Series(主項_cb.Text).Points.AddXY(主表1_dgv.Rows(i).Cells("子細項").Value.ToString, Format(主表1_dgv.Rows(i).Cells("金額").Value, "#,##0"))
+            Next
+        End If
+    End Sub
+    Private Sub 主項下拉()
+        ConnOpen() : SQL1 = "SELECT  主項 FROM 財務彙總紀錄_ICS WHERE 主項 NOT LIKE '上月結存' GROUP BY 主項 ORDER BY 主項 DESC" : CmdSet_For_dr()
+        主項_cb.Items.Clear() : 主項1_cb.Items.Clear() : 主項2_cb.Items.Clear()
+        While (dr.Read()) : 主項_cb.Items.Add(dr("主項")) : 主項1_cb.Items.Add(dr("主項")) : 主項2_cb.Items.Add(dr("主項")) : End While : conn.Close()
+    End Sub
+    Private Sub ComboBox1下拉表單資料載入()
+        ConnOpen() : SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC" : CmdSet_For_dr()
+        年份_cb.Items.Clear() : 年份_cb.Items.Add("") : While (dr.Read()) : 年份_cb.Items.Add(dr("年份")) : End While : conn.Close()
+    End Sub
+    Private Sub 財務_彙總表_ICS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        GCM_ERP_SYS.WindowState = 2
+        ComboBox1下拉表單資料載入() : 主項下拉()
+        If 主項_cb.Items.Count >= 1 Then : 主項_cb.SelectedIndex = 0 : End If
+        If 主項_cb.Items.Count >= 2 Then : 主項1_cb.SelectedIndex = 1 : End If
+        If 主項_cb.Items.Count >= 3 Then : 主項2_cb.SelectedIndex = 2 : End If
+    End Sub
+    Private Sub 財務_彙總表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
+        GCM_ERP_SYS.WindowState = 0
+    End Sub
+    Private Sub 主表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 主表_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
+        If e.RowIndex = 主表_dgv.Rows.Count - 1 Then : Exit Sub : Else
+            If 主表_dgv(0, e.RowIndex).Value.ToString <> 主表_dgv(0, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(主表_dgv.RowHeadersVisible, 主表_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 主表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 主表_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
+            End If
+            If 主表_dgv(1, e.RowIndex).Value.ToString <> 主表_dgv(1, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(主表_dgv.RowHeadersVisible, 主表_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 主表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 主表_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
+            End If
+        End If
+    End Sub
+    Private Sub 主表3_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 主表3_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
+        If e.RowIndex = 主表3_dgv.Rows.Count - 1 Then : Exit Sub : Else
+            If 主表3_dgv(0, e.RowIndex).Value.ToString <> 主表3_dgv(0, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(主表3_dgv.RowHeadersVisible, 主表3_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 主表3_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 主表3_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
+            End If
+            If 主表3_dgv(1, e.RowIndex).Value.ToString <> 主表3_dgv(1, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(主表3_dgv.RowHeadersVisible, 主表3_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 主表3_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 主表3_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
+            End If
+        End If
+    End Sub
+    Private Sub 主表6_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 主表6_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2)
+        If e.RowIndex = 主表6_dgv.Rows.Count - 1 Then : Exit Sub : Else
+            If 主表6_dgv(0, e.RowIndex).Value.ToString <> 主表6_dgv(0, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(主表6_dgv.RowHeadersVisible, 主表6_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 主表6_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 主表6_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub
+            End If
+            If 主表6_dgv(1, e.RowIndex).Value.ToString <> 主表6_dgv(1, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(主表6_dgv.RowHeadersVisible, 主表6_dgv.RowHeadersWidth, 0) : Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 主表6_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 主表6_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY) : Exit Sub
+            End If
+        End If
+    End Sub
+    Private Sub 主項_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 主項_cb.SelectedIndexChanged
+        Set_清單() : 彙總()
+    End Sub
+    Private Sub 主項1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 主項1_cb.SelectedIndexChanged
+        Set_清單3() : 彙總()
+    End Sub
+    Private Sub 主項2_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 主項2_cb.SelectedIndexChanged
+        Set_清單6() : 彙總()
+    End Sub
+    Private Sub 年份_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年份_cb.SelectedIndexChanged
+        Set_清單() : 彙總() : Set_清單3() : 彙總() : Set_清單6() : 彙總()
+    End Sub
+End Class

工巧明智能管理系統/我的系統/02-財務系統管理/ISC/財務_收支單一覽表_ICS.resx

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

工巧明智能管理系統/我的系統/02-財務系統管理/ISC/財務_收支單一覽表_ICS.vb

@@ -0,0 +1,580 @@
+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 財務_收支單一覽表_ICS
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
+    Dim DTP As String : Dim N1 As Integer : Dim N2 As Integer : Dim 匯率1 As Double
+    Dim xlApp As Application
+    Dim xlBook As Workbook
+    Dim xlSheet As Worksheet
+    Private Sub Set_清單1()
+        收支單_dgv.DataSource = Nothing : ds1.Clear()
+        收支單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        收支單_dgv.ColumnHeadersHeight = 25
+        收支單_dgv.AllowUserToAddRows = False
+        ConnOpen()
+        SQL1 = "SELECT 支付單號 AS 收支單號, 申請人, 申請日期, 審核人, 審核日期, 核准圖檔,  簽名編碼 FROM 財務控制表_ICS 
+                WHERE (審核人 NOT LIKE '') AND (審核人 NOT LIKE '作廢%') AND 
+                審核日期 BETWEEN '" & Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd") & "'
+                ORDER BY 審核日期 DESC"
+        CmdSet_For_DGV() : da.Fill(ds1) : 收支單_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        收支單_dgv.Columns(0).FillWeight = 160 : 收支單_dgv.Columns(1).Visible = False : 收支單_dgv.Columns(2).FillWeight = 100 : 收支單_dgv.Columns(3).Visible = False
+        收支單_dgv.Columns(4).FillWeight = 100 : 收支單_dgv.Columns(5).Visible = False : 收支單_dgv.Columns(6).Visible = False
+    End Sub
+    Private Sub Set_清單2()
+        彙總_dgv.DataSource = Nothing : ds2.Clear()
+        彙總_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        彙總_dgv.ColumnHeadersHeight = 25
+        彙總_dgv.AllowUserToAddRows = False
+        ConnOpen()
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (財務流水帳_ICS.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (財務流水帳_ICS.含稅 = 0 OR 財務流水帳_ICS.含稅 IS NULL)"
+        End If
+        SQL1 = "SELECT      LEFT(財務控制表_ICS.審核日期, 7) AS 日期, 會計科目.第一階 AS 主項, 會計科目.第二階 AS 子項, 
+                            會計科目.會計科目 AS 子細項, SUM(財務流水帳_ICS.零用金) AS 零用金, SUM(財務流水帳_ICS.支票數) 
+                            AS 支票, SUM(Cast(財務流水帳_ICS.收入 AS money)) AS 收入, SUM(Cast(財務流水帳_ICS.支出 AS money)) AS 支出, 財務流水帳_ICS.銀行 AS 幣別, 財務流水帳_ICS.匯率
+                FROM        財務控制表_ICS RIGHT OUTER JOIN
+                            財務流水帳_ICS ON 財務控制表_ICS.支付單號 = 財務流水帳_ICS.支付單號 RIGHT OUTER JOIN
+                            會計科目 ON 財務流水帳_ICS.類別 = 會計科目.編號
+                WHERE      (財務控制表_ICS.審核日期 BETWEEN '" & Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd") & "' AND '" & Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd") & "') " & SQL2 & "
+                GROUP BY    會計科目.第一階, 會計科目.第二階, 會計科目.會計科目, LEFT(會計科目.編號, 7), 
+                            LEFT(財務控制表_ICS.審核日期, 7), 財務流水帳_ICS.銀行, 財務流水帳_ICS.匯率
+                ORDER BY    幣別, LEFT(財務控制表_ICS.審核日期, 7), LEFT(會計科目.編號, 7)"
+        CmdSet_For_DGV() : da.Fill(ds2) : 彙總_dgv.DataSource = ds2.Tables(0) : conn.Close()
+
+        彙總_dgv.Columns(0).FillWeight = 100 : 彙總_dgv.Columns(1).FillWeight = 140 : 彙總_dgv.Columns(2).FillWeight = 140 : 彙總_dgv.Columns(3).FillWeight = 140
+        彙總_dgv.Columns(4).FillWeight = 100 : 彙總_dgv.Columns(5).FillWeight = 100 : 彙總_dgv.Columns(6).FillWeight = 100 : 彙總_dgv.Columns(7).FillWeight = 100
+        彙總_dgv.Columns(8).FillWeight = 100 : 彙總_dgv.Columns(9).FillWeight = 100
+        彙總_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00" : 彙總_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.00" : 彙總_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00"
+        彙總_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.00"
+        彙總_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 彙總_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        彙總_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 彙總_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        彙總_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 彙總_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        彙總_dgv.Columns(0).ReadOnly = True : 彙總_dgv.Columns(1).ReadOnly = True : 彙總_dgv.Columns(2).ReadOnly = True : 彙總_dgv.Columns(3).ReadOnly = True
+        彙總_dgv.Columns(4).ReadOnly = True : 彙總_dgv.Columns(5).ReadOnly = True : 彙總_dgv.Columns(6).ReadOnly = True : 彙總_dgv.Columns(7).ReadOnly = True
+    End Sub
+    Private Sub Set_費用清單()
+        明細_dgv.DataSource = Nothing : ds.Clear()
+        明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        明細_dgv.ColumnHeadersHeight = 25
+        明細_dgv.AllowUserToAddRows = False
+        明細_dgv.RowTemplate.Height = 35
+        ConnOpen()
+        If 全部_ch.Checked = True And 含稅_ch.Checked = False And 非稅_ch.Checked = False Then
+            SQL2 = ""
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = True And 非稅_ch.Checked = False Then
+            SQL2 = " AND (財務流水帳_ICS.含稅 = 1)"
+        ElseIf 全部_ch.Checked = False And 含稅_ch.Checked = False And 非稅_ch.Checked = True Then
+            SQL2 = " AND (財務流水帳_ICS.含稅 = 0 OR 財務流水帳_ICS.含稅 IS NULL)"
+        End If
+        SQL1 = "SELECT      財務流水帳_ICS.支付單號, 財務流水帳_ICS.項次, 會計科目.會計科目, 財務流水帳_ICS.明細 AS 用途, 
+                            Cast(財務流水帳_ICS.零用金 AS money) AS 零用金, Cast(財務流水帳_ICS.支票數 AS money) AS 支票, Cast(財務流水帳_ICS.收入 AS money) AS 收入, 
+                            Cast(財務流水帳_ICS.支出 AS money) AS 支出, 財務流水帳_ICS.備註 AS 票期, 財務流水帳_ICS.匯率, 財務流水帳_ICS.銀行 AS 幣別, 財務流水帳_ICS.類別, 
+                            財務流水帳_ICS.流水號, 財務流水帳_ICS.含稅
+                FROM        財務流水帳_ICS INNER JOIN
+                            會計科目 ON 財務流水帳_ICS.類別 = 會計科目.編號
+                WHERE      (財務流水帳_ICS.支付單號 LIKE '" & 收支單號_tb.Text & "') " & SQL2 & "
+                ORDER BY    財務流水帳_ICS.項次"
+        CmdSet_For_DGV() : da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 80 : 明細_dgv.Columns(2).FillWeight = 250 : 明細_dgv.Columns(3).FillWeight = 400
+        明細_dgv.Columns(4).Visible = False : 明細_dgv.Columns(5).FillWeight = 120 : 明細_dgv.Columns(6).FillWeight = 165 : 明細_dgv.Columns(7).FillWeight = 165
+        明細_dgv.Columns(8).FillWeight = 150 : 明細_dgv.Columns(9).FillWeight = 130 : 明細_dgv.Columns(10).FillWeight = 140 : 明細_dgv.Columns(11).Visible = False
+        明細_dgv.Columns(12).Visible = False : 明細_dgv.Columns(13).FillWeight = 80
+
+        明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(2).ReadOnly = True : 明細_dgv.Columns(9).ReadOnly = True : 明細_dgv.Columns(10).ReadOnly = True
+
+        明細_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00"
+        明細_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.00"
+        明細_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        現1_tb.Text = "0.00" : 出1_tb.Text = "0.00" : 合1_tb.Text = "0.00" : 零1_tb.Text = "0.00" : 支1_tb.Text = "0.00"
+        零2_tb.Text = "0.00" : 支2_tb.Text = "0.00" : 現2_tb.Text = "0.00" : 出2_tb.Text = "0.00" : 合2_tb.Text = "0.00"
+        零3_tb.Text = "0.00" : 支3_tb.Text = "0.00" : 現3_tb.Text = "0.00" : 出3_tb.Text = "0.00" : 合3_tb.Text = "0.00"
+        零4_tb.Text = "0.00" : 支4_tb.Text = "0.00" : 現4_tb.Text = "0.00" : 出4_tb.Text = "0.00" : 合4_tb.Text = "0.00"
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+            If 明細_dgv.Rows(i).Cells("幣別").Value = "台幣現金" Then
+                現1_tb.Text = Val(現1_tb.Text) + 明細_dgv.Rows(i).Cells("收入").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+                出1_tb.Text = Val(出1_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+                零1_tb.Text = Val(零1_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+                支1_tb.Text = Val(支1_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+            End If
+            If 明細_dgv.Rows(i).Cells("幣別").Value = "人民幣現金" Then
+                現2_tb.Text = Val(現2_tb.Text) + 明細_dgv.Rows(i).Cells("收入").Value : 出2_tb.Text = Val(出2_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value
+                零2_tb.Text = Val(零2_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value : 支2_tb.Text = Val(支2_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value
+            End If
+            If 明細_dgv.Rows(i).Cells("幣別").Value = "美金" Then
+                現3_tb.Text = Val(現3_tb.Text) + 明細_dgv.Rows(i).Cells("收入").Value : 出3_tb.Text = Val(出3_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value
+                零3_tb.Text = Val(零3_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value : 支3_tb.Text = Val(支3_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value
+            End If
+            If 明細_dgv.Rows(i).Cells("幣別").Value = "印尼盾" Then
+                現4_tb.Text = Val(現4_tb.Text) + 明細_dgv.Rows(i).Cells("收入").Value : 出4_tb.Text = Val(出4_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value
+                零4_tb.Text = Val(零4_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value : 支4_tb.Text = Val(支4_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value
+            End If
+        Next i
+        合1_tb.Text = Val(零1_tb.Text) + Val(現1_tb.Text) - Val(出1_tb.Text) : 合2_tb.Text = Val(零2_tb.Text) + Val(現2_tb.Text) - Val(出2_tb.Text)
+        合3_tb.Text = Val(零3_tb.Text) + Val(現3_tb.Text) - Val(出3_tb.Text) : 合4_tb.Text = Val(零4_tb.Text) + Val(現4_tb.Text) - Val(出4_tb.Text)
+        If CLng(合1_tb.Text) >= 0 Then : 合1_tb.ForeColor = Color.Black : Else : 合1_tb.ForeColor = Color.Red : End If
+        If CLng(合2_tb.Text) >= 0 Then : 合2_tb.ForeColor = Color.Black : Else : 合2_tb.ForeColor = Color.Red : End If
+        If CLng(合3_tb.Text) >= 0 Then : 合3_tb.ForeColor = Color.Black : Else : 合3_tb.ForeColor = Color.Red : End If
+        If CLng(合4_tb.Text) >= 0 Then : 合4_tb.ForeColor = Color.Black : Else : 合4_tb.ForeColor = Color.Red : End If
+        現1_tb.Text = Strings.Format(Val(現1_tb.Text), "#,##0.00") : 出1_tb.Text = Strings.Format(Val(出1_tb.Text), "#,##0.00") : 合1_tb.Text = Strings.Format(Val(合1_tb.Text), "#,##0.00")
+        零1_tb.Text = Strings.Format(Val(零1_tb.Text), "#,##0.00") : 支1_tb.Text = Strings.Format(Val(支1_tb.Text), "#,##0.00")
+        零2_tb.Text = Strings.Format(Val(零2_tb.Text), "#,##0.00") : 支2_tb.Text = Strings.Format(Val(支2_tb.Text), "#,##0.00") : 現2_tb.Text = Strings.Format(Val(現2_tb.Text), "#,##0.00")
+        出2_tb.Text = Strings.Format(Val(出2_tb.Text), "#,##0.00") : 合2_tb.Text = Strings.Format(Val(合2_tb.Text), "#,##0.00")
+        零3_tb.Text = Strings.Format(Val(零3_tb.Text), "#,##0.00") : 支3_tb.Text = Strings.Format(Val(支3_tb.Text), "#,##0.00") : 現3_tb.Text = Strings.Format(Val(現3_tb.Text), "#,##0.00")
+        出3_tb.Text = Strings.Format(Val(出3_tb.Text), "#,##0.00") : 合3_tb.Text = Strings.Format(Val(合3_tb.Text), "#,##0.00")
+        零4_tb.Text = Strings.Format(Val(零4_tb.Text), "#,##0.00") : 支4_tb.Text = Strings.Format(Val(支4_tb.Text), "#,##0.00") : 現4_tb.Text = Strings.Format(Val(現4_tb.Text), "#,##0.00")
+        出4_tb.Text = Strings.Format(Val(出4_tb.Text), "#,##0.00") : 合4_tb.Text = Strings.Format(Val(合4_tb.Text), "#,##0.00")
+    End Sub
+    Private Sub 日期格式()
+        If 會計月_ch.Checked = True Then
+            '-------------日期一----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(-1)
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "26" : 開始日期_dtp.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "25" : 結束日期_dtp.Value = DTP
+        Else
+            '-------------日期一----------------------------------------------------------------------------------------
+            開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(1)
+            DTP = Strings.Left(Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 開始日期_dtp.Value = DTP
+            '-------------日期二----------------------------------------------------------------------------------------
+            DTP = Strings.Left(Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd"), 8) & "01" : 結束日期_dtp.Value = DTP
+            結束日期_dtp.Value = 結束日期_dtp.Value.AddMonths(1) : 結束日期_dtp.Value = 結束日期_dtp.Value.AddDays(-1)
+        End If
+    End Sub
+    Private Sub 匯率()
+        ConnOpen()
+        SQL1 = "SELECT 中心匯率, 美金匯率, 印尼匯率 FROM 歷史匯率表 
+                WHERE (年 LIKE '" & Strings.Left(Strings.Format(申請日期_dtp.Value, "yyyyMMdd"), 4) & "%') AND 
+                      (月 LIKE '" & Strings.Mid(Strings.Format(申請日期_dtp.Value, "yyyyMMdd"), 5, 2) & "%')"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
+        If dr.Read() Then
+            人民幣匯率_tb.Text = dr("中心匯率").ToString : 美金匯率_tb.Text = dr("美金匯率").ToString : 印尼匯率_tb.Text = dr("印尼匯率").ToString : conn.Close() : dr.Close()
+        Else
+            conn.Close() : dr.Close() : 匯率修改.Close() : 匯率修改.Show() : 匯率修改.BringToFront()
+        End If
+    End Sub
+
+    Private Sub 財務_收支單一覽表_ICS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        DTP = Strings.Left(Strings.Format(Today(), "yyyy/MM/dd"), 8) & "01"
+        匯率() : 開始日期_dtp.Value = DTP : 結束日期_dtp.Value = Today()
+        日期格式() : 開始日期_dtp.Value = 開始日期_dtp.Value.AddMonths(-1) : 彙總_dgv.Visible = False : 明細_rb.Checked = True
+    End Sub
+    Dim 已超出 As Boolean
+    Private Sub 明細_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 明細_dgv.MouseUp
+        'If 明細_dgv.SelectedCells.Count = 1 Then : MsgBox(明細_dgv.SelectedCells(0).ColumnIndex & "  " & 明細_dgv.SelectedCells(0).RowIndex) : End If
+        If 明細_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 明細_dgv.SelectedCells.Count > 0 Then
+            If 明細_dgv.SelectedCells(0).ColumnIndex >= 4 And 明細_dgv.SelectedCells(0).ColumnIndex <= 7 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 明細_dgv.SelectedCells.Count - 1
+                        x += Val(明細_dgv.Rows(明細_dgv.SelectedCells.Item(i).RowIndex).Cells(明細_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : GCM_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : GCM_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : GCM_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub 彙總_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 彙總_dgv.MouseUp
+        'If 彙總_dgv.SelectedCells.Count = 1 Then : MsgBox(彙總_dgv.SelectedCells(0).ColumnIndex & "  " & 彙總_dgv.SelectedCells(0).RowIndex) : End If
+        If 彙總_dgv.SelectedCells.Count = 1 Then : 已超出 = False : End If
+        If 彙總_dgv.SelectedCells.Count > 0 Then
+            If 彙總_dgv.SelectedCells(0).ColumnIndex >= 4 And 彙總_dgv.SelectedCells(0).ColumnIndex <= 7 Then
+                If 已超出 = False Then
+                    Dim x As Double = 0
+                    For i As Integer = 0 To 彙總_dgv.SelectedCells.Count - 1
+                        x += Val(彙總_dgv.Rows(彙總_dgv.SelectedCells.Item(i).RowIndex).Cells(彙總_dgv.SelectedCells.Item(i).ColumnIndex).Value)
+                    Next i : GCM_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
+                Else : GCM_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0") : End If
+            Else : 已超出 = True : GCM_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
+            End If
+        End If
+    End Sub
+    Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 收支單_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            收支單號_tb.Text = 收支單_dgv(0, e.RowIndex).Value.ToString : TextBox13.Text = 收支單_dgv(6, e.RowIndex).Value.ToString
+            申請人_tb.Text = 收支單_dgv(1, e.RowIndex).Value.ToString : 申請日期_dtp.Value = 收支單_dgv(2, e.RowIndex).Value.ToString
+            審核人_tb.Text = 收支單_dgv(3, e.RowIndex).Value.ToString : 審核日期_dtp.Value = 收支單_dgv(4, e.RowIndex).Value.ToString
+            TextBox14.Text = 收支單_dgv(5, e.RowIndex).Value.ToString
+            Set_費用清單()
+        End If
+    End Sub
+    Private Sub DataGridView2_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 彙總_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 2) : Dim linePen1 As New Pen(Color.Red, 2) : Dim linePen2 As New Pen(Color.Green, 2)
+        If e.RowIndex = 彙總_dgv.Rows.Count - 1 Then
+            Exit Sub
+        Else
+            If 彙總_dgv(0, e.RowIndex).Value.ToString <> 彙總_dgv(0, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(彙總_dgv.RowHeadersVisible, 彙總_dgv.RowHeadersWidth, 0)
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 彙總_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 彙總_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
+                Exit Sub
+            End If
+            If 彙總_dgv(8, e.RowIndex).Value.ToString <> 彙總_dgv(8, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(彙總_dgv.RowHeadersVisible, 彙總_dgv.RowHeadersWidth, 0)
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 彙總_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 彙總_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen2, startX, startY, endX, startY)
+                Exit Sub
+            End If
+            If 彙總_dgv(1, e.RowIndex).Value.ToString <> 彙總_dgv(1, e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(彙總_dgv.RowHeadersVisible, 彙總_dgv.RowHeadersWidth, 0)
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 彙總_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 彙總_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen1, startX, startY, endX, startY)
+                Exit Sub
+            End If
+        End If
+    End Sub
+    Private Sub 全部_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 全部_ch.Click
+        全部_ch.Checked = True : 含稅_ch.Checked = False : 非稅_ch.Checked = False : Set_費用清單() : Set_清單2() : 彙總計算()
+    End Sub
+    Private Sub 含稅_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 含稅_ch.Click
+        全部_ch.Checked = False : 含稅_ch.Checked = True : 非稅_ch.Checked = False : Set_費用清單() : Set_清單2() : 彙總計算()
+    End Sub
+    Private Sub 非稅_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 非稅_ch.Click
+        全部_ch.Checked = False : 含稅_ch.Checked = False : 非稅_ch.Checked = True : Set_費用清單() : Set_清單2() : 彙總計算()
+    End Sub
+    Private Sub 當日_tb_Click(sender As Object, e As EventArgs) Handles 當日_tb.Click
+        DTP = Strings.Format(Today(), "yyyy/MM/dd")
+        開始日期_dtp.Value = DTP : 結束日期_dtp.Value = DTP
+    End Sub
+    Private Sub B當月_tb_Click(sender As Object, e As EventArgs) Handles 當月_tb.Click
+        DTP = Strings.Left(Strings.Format(Today(), "yyyy/MM/dd"), 8) & "01"
+        開始日期_dtp.Value = DTP : 結束日期_dtp.Value = Today()
+    End Sub
+    Private Sub 彙總計算()
+        If 明細_rb.Checked = False And 彙總_rb.Checked = True Then
+            現1_tb.Text = "0.00" : 出1_tb.Text = "0.00" : 合1_tb.Text = "0.00" : 零1_tb.Text = "0.00" : 支1_tb.Text = "0.00"
+            零2_tb.Text = "0.00" : 支2_tb.Text = "0.00" : 現2_tb.Text = "0.00" : 出2_tb.Text = "0.00" : 合2_tb.Text = "0.00"
+            零3_tb.Text = "0.00" : 支3_tb.Text = "0.00" : 現3_tb.Text = "0.00" : 出3_tb.Text = "0.00" : 合3_tb.Text = "0.00"
+            零4_tb.Text = "0.00" : 支4_tb.Text = "0.00" : 現4_tb.Text = "0.00" : 出4_tb.Text = "0.00" : 合4_tb.Text = "0.00"
+            For i As Integer = 0 To 彙總_dgv.Rows.Count - 1
+                If 彙總_dgv.Rows(i).Cells("幣別").Value = "台幣現金" Then
+                    If 彙總_dgv.Rows(i).Cells("主項").Value <> "上月結存" Then
+                        現1_tb.Text = Val(現1_tb.Text) + 彙總_dgv.Rows(i).Cells("收入").Value : 出1_tb.Text = Val(出1_tb.Text) + 彙總_dgv.Rows(i).Cells("支出").Value
+                        零1_tb.Text = Val(零1_tb.Text) + 彙總_dgv.Rows(i).Cells("零用金").Value : 支1_tb.Text = Val(支1_tb.Text) + 彙總_dgv.Rows(i).Cells("支票").Value
+                    End If
+                End If
+                If 彙總_dgv.Rows(i).Cells("幣別").Value = "人民幣現金" Then
+                    If 彙總_dgv.Rows(i).Cells("主項").Value <> "上月結存" Then
+                        現2_tb.Text = Val(現2_tb.Text) + 彙總_dgv.Rows(i).Cells("收入").Value : 出2_tb.Text = Val(出2_tb.Text) + 彙總_dgv.Rows(i).Cells("支出").Value
+                        零2_tb.Text = Val(零2_tb.Text) + 彙總_dgv.Rows(i).Cells("零用金").Value : 支2_tb.Text = Val(支2_tb.Text) + 彙總_dgv.Rows(i).Cells("支票").Value
+                    End If
+                End If
+                If 彙總_dgv.Rows(i).Cells("幣別").Value = "美金" Then
+                    If 彙總_dgv.Rows(i).Cells("主項").Value <> "上月結存" Then
+                        現3_tb.Text = Val(現3_tb.Text) + 彙總_dgv.Rows(i).Cells("收入").Value : 出3_tb.Text = Val(出3_tb.Text) + 彙總_dgv.Rows(i).Cells("支出").Value
+                        零3_tb.Text = Val(零3_tb.Text) + 彙總_dgv.Rows(i).Cells("零用金").Value : 支3_tb.Text = Val(支3_tb.Text) + 彙總_dgv.Rows(i).Cells("支票").Value
+                    End If
+                End If
+                If 彙總_dgv.Rows(i).Cells("幣別").Value = "印尼盾" Then
+                    If 彙總_dgv.Rows(i).Cells("主項").Value <> "上月結存" Then
+                        現4_tb.Text = Val(現4_tb.Text) + 彙總_dgv.Rows(i).Cells("收入").Value : 出4_tb.Text = Val(出4_tb.Text) + 彙總_dgv.Rows(i).Cells("支出").Value
+                        零4_tb.Text = Val(零4_tb.Text) + 彙總_dgv.Rows(i).Cells("零用金").Value : 支4_tb.Text = Val(支4_tb.Text) + 彙總_dgv.Rows(i).Cells("支票").Value
+                    End If
+                End If
+            Next i
+            合1_tb.Text = Val(零1_tb.Text) + Val(現1_tb.Text) - Val(出1_tb.Text) : 合2_tb.Text = Val(零2_tb.Text) + Val(現2_tb.Text) - Val(出2_tb.Text)
+            合3_tb.Text = Val(零3_tb.Text) + Val(現3_tb.Text) - Val(出3_tb.Text) : 合4_tb.Text = Val(零4_tb.Text) + Val(現4_tb.Text) - Val(出4_tb.Text)
+            If CLng(合1_tb.Text) >= 0 Then : 合1_tb.ForeColor = Color.Black : Else : 合1_tb.ForeColor = Color.Red : End If
+            If CLng(合2_tb.Text) >= 0 Then : 合2_tb.ForeColor = Color.Black : Else : 合2_tb.ForeColor = Color.Red : End If
+            If CLng(合3_tb.Text) >= 0 Then : 合3_tb.ForeColor = Color.Black : Else : 合3_tb.ForeColor = Color.Red : End If
+            If CLng(合4_tb.Text) >= 0 Then : 合4_tb.ForeColor = Color.Black : Else : 合4_tb.ForeColor = Color.Red : End If
+            現1_tb.Text = Strings.Format(Val(現1_tb.Text), "#,##0.00") : 出1_tb.Text = Strings.Format(Val(出1_tb.Text), "#,##0.00") : 合1_tb.Text = Strings.Format(Val(合1_tb.Text), "#,##0.00")
+            零1_tb.Text = Strings.Format(Val(零1_tb.Text), "#,##0.00") : 支1_tb.Text = Strings.Format(Val(支1_tb.Text), "#,##0.00")
+            零2_tb.Text = Strings.Format(Val(零2_tb.Text), "#,##0.00") : 支2_tb.Text = Strings.Format(Val(支2_tb.Text), "#,##0.00") : 現2_tb.Text = Strings.Format(Val(現2_tb.Text), "#,##0.00")
+            出2_tb.Text = Strings.Format(Val(出2_tb.Text), "#,##0.00") : 合2_tb.Text = Strings.Format(Val(合2_tb.Text), "#,##0.00")
+            零3_tb.Text = Strings.Format(Val(零3_tb.Text), "#,##0.00") : 支3_tb.Text = Strings.Format(Val(支3_tb.Text), "#,##0.00") : 現3_tb.Text = Strings.Format(Val(現3_tb.Text), "#,##0.00")
+            出3_tb.Text = Strings.Format(Val(出3_tb.Text), "#,##0.00") : 合3_tb.Text = Strings.Format(Val(合3_tb.Text), "#,##0.00")
+            零4_tb.Text = Strings.Format(Val(零4_tb.Text), "#,##0.00") : 支4_tb.Text = Strings.Format(Val(支4_tb.Text), "#,##0.00") : 現4_tb.Text = Strings.Format(Val(現4_tb.Text), "#,##0.00")
+            出4_tb.Text = Strings.Format(Val(出4_tb.Text), "#,##0.00") : 合4_tb.Text = Strings.Format(Val(合4_tb.Text), "#,##0.00")
+        End If
+    End Sub
+    Private Sub 上個月_bt_Click(sender As Object, e As EventArgs) Handles 上個月_bt.Click
+        If 會計月_ch.Checked = True Then
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            開始日期_dtp.Value = 中間日期_dtp.Value
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        Else
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        End If
+        日期格式()
+    End Sub
+    Private Sub 下個月_bt_Click(sender As Object, e As EventArgs) Handles 下個月_bt.Click
+        If 會計月_ch.Checked = True Then
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
+            開始日期_dtp.Value = 中間日期_dtp.Value
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        Else
+            中間日期_dtp.Value = 中間日期_dtp.Value.AddMonths(1)
+            開始日期_dtp.Value = 中間日期_dtp.Value.AddMonths(-1)
+            結束日期_dtp.Value = 中間日期_dtp.Value
+        End If
+        日期格式()
+    End Sub
+    Private Sub 開始日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 開始日期_dtp.ValueChanged
+        Set_清單1() : Set_清單2() : 彙總計算()
+    End Sub
+    Private Sub 結束日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 結束日期_dtp.ValueChanged
+        Set_清單1() : Set_清單2() : 彙總計算()
+    End Sub
+    Private Sub 會計月_CheckedChanged(sender As Object, e As EventArgs) Handles 會計月_ch.Click
+        會計月_ch.Checked = True : 一般月_ch.Checked = False : 日期格式()
+    End Sub
+    Private Sub 一般月_CheckedChanged(sender As Object, e As EventArgs) Handles 一般月_ch.Click
+        會計月_ch.Checked = False : 一般月_ch.Checked = True : 日期格式()
+    End Sub
+    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles 明細_rb.Click
+        明細_dgv.Visible = True : 彙總_dgv.Visible = False : 明細_rb.Checked = True : 彙總_rb.Checked = False
+        現1_tb.Text = "0.00" : 出1_tb.Text = "0.00" : 合1_tb.Text = "0.00" : 零1_tb.Text = "0.00" : 支1_tb.Text = "0.00" : 收支單_dgv.Enabled = True
+    End Sub
+    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles 彙總_rb.Click
+        明細_dgv.Visible = False : 彙總_dgv.Visible = True : 明細_rb.Checked = False : 彙總_rb.Checked = True
+        收支單號_tb.Text = "" : 申請人_tb.Text = "" : 審核人_tb.Text = "" : 明細_dgv.DataSource = Nothing : ds.Clear() : 收支單_dgv.Enabled = False
+        彙總計算()
+    End Sub
+    Private Sub TextBox14_TextChanged(sender As Object, e As EventArgs) Handles TextBox14.TextChanged
+        ConnOpen()
+        SQL1 = "SELECT 簽名檔圖片 FROM GCM主管簽名檔管理 WHERE 圖片流水號 LIKE '" & TextBox14.Text & "'"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
+        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 Button2_Click(sender As Object, e As EventArgs) Handles 列印_bt.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 明細_rb.Checked = True And 彙總_rb.Checked = False Then
+            xlSheet.Cells(1, 3) = "工巧明智能企業有限公司-營運費用收支明細表"
+            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 明細_dgv.Rows.Count - 1
+                xlSheet.Cells(i + 3, 1) = 申請日期_dtp.Value : xlSheet.Cells(i + 3, 2) = 明細_dgv.Rows(i).Cells("會計科目").Value
+                xlSheet.Cells(i + 3, 3) = 明細_dgv.Rows(i).Cells("用途").Value : xlSheet.Cells(i + 3, 4) = 明細_dgv.Rows(i).Cells("零用金").Value
+                xlSheet.Cells(i + 3, 5) = 明細_dgv.Rows(i).Cells("支票").Value : xlSheet.Cells(i + 3, 6) = 明細_dgv.Rows(i).Cells("收入").Value
+                xlSheet.Cells(i + 3, 7) = 明細_dgv.Rows(i).Cells("支出").Value : xlSheet.Cells(i + 3, 9) = 明細_dgv.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) = "製表 : " & 申請人_tb.Text & " - " & 申請日期_dtp.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 明細_rb.Checked = False And 彙總_rb.Checked = True Then
+            xlSheet.Cells(1, 3) = "工巧明智能企業有限公司-營運費用收支彙總簡表"
+            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 彙總_dgv.Rows.Count - 1
+                xlSheet.Cells(i + 3, 1) = 彙總_dgv.Rows(i).Cells("日期").Value
+                xlSheet.Cells(i + 3, 2) = 彙總_dgv.Rows(i).Cells("主項").Value
+                xlSheet.Cells(i + 3, 3) = 彙總_dgv.Rows(i).Cells("子項").Value
+                xlSheet.Cells(i + 3, 4) = 彙總_dgv.Rows(i).Cells("子細項").Value
+                xlSheet.Cells(i + 3, 5) = 彙總_dgv.Rows(i).Cells("零用金").Value
+                xlSheet.Cells(i + 3, 6) = 彙總_dgv.Rows(i).Cells("支票").Value
+                xlSheet.Cells(i + 3, 7) = 彙總_dgv.Rows(i).Cells("收入").Value
+                xlSheet.Cells(i + 3, 8) = 彙總_dgv.Rows(i).Cells("支出").Value
+                If i = 0 Then
+                    xlSheet.Cells(i + 3, 9) = "=E3+G3-H3"
+                Else
+                    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.00;[紅色]-#,##0.00"
+        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.00;[紅色]-#,##0.00"
+        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

工巧明智能管理系統/我的系統/02-財務系統管理/ISC/財務_收支單審核_ICS.Designer.vb

@@ -0,0 +1,521 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 財務_收支單審核_ICS
+    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.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.印尼匯率_tb = New System.Windows.Forms.TextBox()
+        Me.美金匯率_tb = New System.Windows.Forms.TextBox()
+        Me.人民幣匯率_tb = New System.Windows.Forms.TextBox()
+        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.簽名檔_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.零用金_tb = New System.Windows.Forms.TextBox()
+        Me.餘額_tb = New System.Windows.Forms.TextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.支出_tb = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.補單_ch = New System.Windows.Forms.CheckBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.收入_tb = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.申請人_tb = New System.Windows.Forms.TextBox()
+        Me.收支單號_tb = New System.Windows.Forms.TextBox()
+        Me.單據作廢_bt = New System.Windows.Forms.Button()
+        Me.審核通過_bt = New System.Windows.Forms.Button()
+        Me.作廢的收支單_rb = New System.Windows.Forms.RadioButton()
+        Me.未核准的收支單_rb = New System.Windows.Forms.RadioButton()
+        Me.收支單_dgv = New System.Windows.Forms.DataGridView()
+        Me.支票_tb = New System.Windows.Forms.TextBox()
+        Me.明細_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.ContextMenuStrip1.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.簽名檔_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.收支單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '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 = "單據作廢"
+        '
+        '印尼匯率_tb
+        '
+        Me.印尼匯率_tb.Location = New System.Drawing.Point(894, 258)
+        Me.印尼匯率_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.印尼匯率_tb.Name = "印尼匯率_tb"
+        Me.印尼匯率_tb.Size = New System.Drawing.Size(175, 23)
+        Me.印尼匯率_tb.TabIndex = 1032
+        Me.印尼匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.印尼匯率_tb.Visible = False
+        '
+        '美金匯率_tb
+        '
+        Me.美金匯率_tb.Location = New System.Drawing.Point(894, 227)
+        Me.美金匯率_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.美金匯率_tb.Name = "美金匯率_tb"
+        Me.美金匯率_tb.Size = New System.Drawing.Size(175, 23)
+        Me.美金匯率_tb.TabIndex = 1031
+        Me.美金匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.美金匯率_tb.Visible = False
+        '
+        '人民幣匯率_tb
+        '
+        Me.人民幣匯率_tb.Location = New System.Drawing.Point(894, 196)
+        Me.人民幣匯率_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.人民幣匯率_tb.Name = "人民幣匯率_tb"
+        Me.人民幣匯率_tb.Size = New System.Drawing.Size(175, 23)
+        Me.人民幣匯率_tb.TabIndex = 1030
+        Me.人民幣匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        Me.人民幣匯率_tb.Visible = False
+        '
+        '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(219, 532)
+        Me.TextBox14.Name = "TextBox14"
+        Me.TextBox14.Size = New System.Drawing.Size(99, 23)
+        Me.TextBox14.TabIndex = 1029
+        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(46, 532)
+        Me.TextBox13.Name = "TextBox13"
+        Me.TextBox13.Size = New System.Drawing.Size(120, 23)
+        Me.TextBox13.TabIndex = 1028
+        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(165, 535)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(55, 16)
+        Me.Label20.TabIndex = 1027
+        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(4, 535)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(43, 16)
+        Me.Label19.TabIndex = 1026
+        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(187, 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 = 1025
+        Me.PictureBox1.TabStop = False
+        '
+        '簽名檔_dgv
+        '
+        Me.簽名檔_dgv.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.簽名檔_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.簽名檔_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.簽名檔_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.簽名檔_dgv.Location = New System.Drawing.Point(5, 559)
+        Me.簽名檔_dgv.Name = "簽名檔_dgv"
+        Me.簽名檔_dgv.RowHeadersWidth = 5
+        Me.簽名檔_dgv.RowTemplate.Height = 24
+        Me.簽名檔_dgv.Size = New System.Drawing.Size(180, 47)
+        Me.簽名檔_dgv.TabIndex = 1024
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(490, 34)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(31, 16)
+        Me.Label11.TabIndex = 1022
+        Me.Label11.Text = "支票"
+        '
+        '零用金_tb
+        '
+        Me.零用金_tb.Location = New System.Drawing.Point(375, 31)
+        Me.零用金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.零用金_tb.Name = "零用金_tb"
+        Me.零用金_tb.Size = New System.Drawing.Size(113, 23)
+        Me.零用金_tb.TabIndex = 1021
+        Me.零用金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '餘額_tb
+        '
+        Me.餘額_tb.Location = New System.Drawing.Point(970, 31)
+        Me.餘額_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.餘額_tb.Name = "餘額_tb"
+        Me.餘額_tb.Size = New System.Drawing.Size(113, 23)
+        Me.餘額_tb.TabIndex = 1019
+        Me.餘額_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(937, 34)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(31, 16)
+        Me.Label9.TabIndex = 1018
+        Me.Label9.Text = "餘額"
+        '
+        '支出_tb
+        '
+        Me.支出_tb.Location = New System.Drawing.Point(822, 31)
+        Me.支出_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.支出_tb.Name = "支出_tb"
+        Me.支出_tb.Size = New System.Drawing.Size(113, 23)
+        Me.支出_tb.TabIndex = 1017
+        Me.支出_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(788, 34)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(31, 16)
+        Me.Label6.TabIndex = 1016
+        Me.Label6.Text = "支出"
+        '
+        '補單_ch
+        '
+        Me.補單_ch.AutoSize = True
+        Me.補單_ch.Checked = True
+        Me.補單_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.補單_ch.Location = New System.Drawing.Point(778, 7)
+        Me.補單_ch.Name = "補單_ch"
+        Me.補單_ch.Size = New System.Drawing.Size(38, 20)
+        Me.補單_ch.TabIndex = 1015
+        Me.補單_ch.Text = "補"
+        Me.補單_ch.UseVisualStyleBackColor = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.Blue
+        Me.Label2.Location = New System.Drawing.Point(636, 8)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(31, 16)
+        Me.Label2.TabIndex = 1014
+        Me.Label2.Text = "日期"
+        '
+        '日期_dtp
+        '
+        Me.日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.日期_dtp.Location = New System.Drawing.Point(675, 5)
+        Me.日期_dtp.Name = "日期_dtp"
+        Me.日期_dtp.Size = New System.Drawing.Size(97, 23)
+        Me.日期_dtp.TabIndex = 1013
+        '
+        '收入_tb
+        '
+        Me.收入_tb.Location = New System.Drawing.Point(673, 31)
+        Me.收入_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.收入_tb.Name = "收入_tb"
+        Me.收入_tb.Size = New System.Drawing.Size(113, 23)
+        Me.收入_tb.TabIndex = 1012
+        Me.收入_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(639, 34)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(31, 16)
+        Me.Label8.TabIndex = 1011
+        Me.Label8.Text = "收入"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(497, 8)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(43, 16)
+        Me.Label3.TabIndex = 1010
+        Me.Label3.Text = "申請人"
+        '
+        '申請人_tb
+        '
+        Me.申請人_tb.Location = New System.Drawing.Point(542, 5)
+        Me.申請人_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.申請人_tb.Name = "申請人_tb"
+        Me.申請人_tb.Size = New System.Drawing.Size(92, 23)
+        Me.申請人_tb.TabIndex = 1009
+        '
+        '收支單號_tb
+        '
+        Me.收支單號_tb.Location = New System.Drawing.Point(374, 5)
+        Me.收支單號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.收支單號_tb.Name = "收支單號_tb"
+        Me.收支單號_tb.Size = New System.Drawing.Size(122, 23)
+        Me.收支單號_tb.TabIndex = 1007
+        '
+        '單據作廢_bt
+        '
+        Me.單據作廢_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.單據作廢_bt.ForeColor = System.Drawing.Color.Red
+        Me.單據作廢_bt.Location = New System.Drawing.Point(1180, 5)
+        Me.單據作廢_bt.Name = "單據作廢_bt"
+        Me.單據作廢_bt.Size = New System.Drawing.Size(65, 49)
+        Me.單據作廢_bt.TabIndex = 1006
+        Me.單據作廢_bt.Text = "單據作廢"
+        Me.單據作廢_bt.UseVisualStyleBackColor = True
+        '
+        '審核通過_bt
+        '
+        Me.審核通過_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.審核通過_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.審核通過_bt.Location = New System.Drawing.Point(1112, 5)
+        Me.審核通過_bt.Name = "審核通過_bt"
+        Me.審核通過_bt.Size = New System.Drawing.Size(65, 49)
+        Me.審核通過_bt.TabIndex = 1005
+        Me.審核通過_bt.Text = "審核通過"
+        Me.審核通過_bt.UseVisualStyleBackColor = True
+        '
+        '作廢的收支單_rb
+        '
+        Me.作廢的收支單_rb.AutoSize = True
+        Me.作廢的收支單_rb.Location = New System.Drawing.Point(169, 5)
+        Me.作廢的收支單_rb.Name = "作廢的收支單_rb"
+        Me.作廢的收支單_rb.Size = New System.Drawing.Size(97, 20)
+        Me.作廢的收支單_rb.TabIndex = 1003
+        Me.作廢的收支單_rb.TabStop = True
+        Me.作廢的收支單_rb.Text = "作廢的收支單"
+        Me.作廢的收支單_rb.UseVisualStyleBackColor = True
+        '
+        '未核准的收支單_rb
+        '
+        Me.未核准的收支單_rb.AutoSize = True
+        Me.未核准的收支單_rb.Location = New System.Drawing.Point(5, 5)
+        Me.未核准的收支單_rb.Name = "未核准的收支單_rb"
+        Me.未核准的收支單_rb.Size = New System.Drawing.Size(109, 20)
+        Me.未核准的收支單_rb.TabIndex = 1002
+        Me.未核准的收支單_rb.TabStop = True
+        Me.未核准的收支單_rb.Text = "未核准的收支單"
+        Me.未核准的收支單_rb.UseVisualStyleBackColor = True
+        '
+        '收支單_dgv
+        '
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.收支單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.收支單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.收支單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.收支單_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.收支單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.收支單_dgv.Location = New System.Drawing.Point(5, 29)
+        Me.收支單_dgv.Name = "收支單_dgv"
+        Me.收支單_dgv.RowHeadersWidth = 5
+        Me.收支單_dgv.RowTemplate.Height = 24
+        Me.收支單_dgv.Size = New System.Drawing.Size(315, 499)
+        Me.收支單_dgv.TabIndex = 1001
+        '
+        '支票_tb
+        '
+        Me.支票_tb.Location = New System.Drawing.Point(524, 31)
+        Me.支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.支票_tb.Name = "支票_tb"
+        Me.支票_tb.Size = New System.Drawing.Size(113, 23)
+        Me.支票_tb.TabIndex = 1023
+        Me.支票_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '明細_dgv
+        '
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.明細_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.明細_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.明細_dgv.Location = New System.Drawing.Point(319, 57)
+        Me.明細_dgv.Name = "明細_dgv"
+        Me.明細_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細_dgv.RowsDefaultCellStyle = DataGridViewCellStyle3
+        Me.明細_dgv.RowTemplate.Height = 24
+        Me.明細_dgv.Size = New System.Drawing.Size(926, 549)
+        Me.明細_dgv.TabIndex = 1004
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(323, 34)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(43, 16)
+        Me.Label10.TabIndex = 1020
+        Me.Label10.Text = "零用金"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(320, 9)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(55, 16)
+        Me.Label1.TabIndex = 1008
+        Me.Label1.Text = "收支單號"
+        '
+        '財務_收支單審核_ICS
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1249, 611)
+        Me.Controls.Add(Me.印尼匯率_tb)
+        Me.Controls.Add(Me.美金匯率_tb)
+        Me.Controls.Add(Me.人民幣匯率_tb)
+        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.簽名檔_dgv)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.零用金_tb)
+        Me.Controls.Add(Me.餘額_tb)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.支出_tb)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.補單_ch)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.日期_dtp)
+        Me.Controls.Add(Me.收入_tb)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.申請人_tb)
+        Me.Controls.Add(Me.收支單號_tb)
+        Me.Controls.Add(Me.單據作廢_bt)
+        Me.Controls.Add(Me.審核通過_bt)
+        Me.Controls.Add(Me.作廢的收支單_rb)
+        Me.Controls.Add(Me.未核准的收支單_rb)
+        Me.Controls.Add(Me.收支單_dgv)
+        Me.Controls.Add(Me.支票_tb)
+        Me.Controls.Add(Me.明細_dgv)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.Label1)
+        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(4, 4, 4, 4)
+        Me.Name = "財務_收支單審核_ICS"
+        Me.Text = "財務_收支單審核_ICS"
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.簽名檔_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.收支單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    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 印尼匯率_tb As TextBox
+    Friend WithEvents 美金匯率_tb As TextBox
+    Friend WithEvents 人民幣匯率_tb As TextBox
+    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 簽名檔_dgv As DataGridView
+    Friend WithEvents Label11 As Label
+    Friend WithEvents 零用金_tb As TextBox
+    Friend WithEvents 餘額_tb As TextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 支出_tb As TextBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents 補單_ch As CheckBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents 日期_dtp As DateTimePicker
+    Friend WithEvents 收入_tb As TextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 申請人_tb As TextBox
+    Friend WithEvents 收支單號_tb As TextBox
+    Friend WithEvents 單據作廢_bt As Button
+    Friend WithEvents 審核通過_bt As Button
+    Friend WithEvents 作廢的收支單_rb As RadioButton
+    Friend WithEvents 未核准的收支單_rb As RadioButton
+    Friend WithEvents 收支單_dgv As DataGridView
+    Friend WithEvents 支票_tb As TextBox
+    Friend WithEvents 明細_dgv As DataGridView
+    Friend WithEvents Label10 As Label
+    Friend WithEvents Label1 As Label
+End Class

工巧明智能管理系統/我的系統/02-財務系統管理/ISC/財務_收支單審核_ICS.resx

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

工巧明智能管理系統/我的系統/02-財務系統管理/ISC/財務_收支單審核_ICS.vb

@@ -0,0 +1,281 @@
+Option Strict Off
+Imports System.IO
+Public Class 財務_收支單審核_ICS
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet
+    Private ReadOnly QQW(11) As String
+    Dim DTP As String : Dim WWEE As String : Private II As Integer : Dim 匯率1 As Double
+    Private Sub Set_清單1()
+        收支單_dgv.DataSource = Nothing : ds1.Clear()
+        收支單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        收支單_dgv.ColumnHeadersHeight = 25
+        收支單_dgv.AllowUserToAddRows = False
+        ConnOpen()
+        If 未核准的收支單_rb.Checked = True And 作廢的收支單_rb.Checked = False Then
+            WWEE = "WHERE (審核人 LIKE '') "
+        ElseIf 未核准的收支單_rb.Checked = False And 作廢的收支單_rb.Checked = True Then
+            WWEE = "WHERE (審核人 LIKE '作廢%') "
+        End If
+        SQL1 = "SELECT 支付單號 AS 收支單號, 申請日期, 審核日期, 申請人 FROM 財務控制表_ICS " & WWEE & " ORDER BY 支付單號 DESC"
+        CmdSet_For_DGV() : da.Fill(ds1) : 收支單_dgv.DataSource = ds1.Tables(0) : conn.Close()
+
+        收支單_dgv.Columns(0).FillWeight = 160 : 收支單_dgv.Columns(1).FillWeight = 100 : 收支單_dgv.Columns(2).FillWeight = 100 : 收支單_dgv.Columns(3).Visible = False
+    End Sub
+    Private Sub Set_費用清單()
+        明細_dgv.DataSource = Nothing : ds.Clear()
+        明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        明細_dgv.ColumnHeadersHeight = 25
+        明細_dgv.AllowUserToAddRows = False
+        明細_dgv.RowTemplate.Height = 35
+        ConnOpen()
+        SQL1 = "SELECT      財務流水帳_ICS.支付單號, 財務流水帳_ICS.項次, 會計科目.會計科目, 財務流水帳_ICS.明細 AS 用途, 
+                            Cast(財務流水帳_ICS.零用金 AS money) AS 零用金, Cast(財務流水帳_ICS.支票數 AS money) AS 支票, Cast(財務流水帳_ICS.收入 AS money) AS 收入, 
+                            Cast(財務流水帳_ICS.支出 AS money) AS 支出, 財務流水帳_ICS.備註 AS 票期, 財務流水帳_ICS.匯率, 財務流水帳_ICS.銀行 AS 幣別, 財務流水帳_ICS.類別, 
+                            財務流水帳_ICS.流水號, 財務流水帳_ICS.含稅
+                FROM        財務流水帳_ICS INNER JOIN
+                            會計科目 ON 財務流水帳_ICS.類別 = 會計科目.編號
+                WHERE      (財務流水帳_ICS.支付單號 LIKE '" & 收支單號_tb.Text & "')
+                ORDER BY    財務流水帳_ICS.項次"
+        CmdSet_For_DGV() : da.Fill(ds) : 明細_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        明細_dgv.Columns(0).Visible = False : 明細_dgv.Columns(1).FillWeight = 80 : 明細_dgv.Columns(2).FillWeight = 250 : 明細_dgv.Columns(3).FillWeight = 400
+        明細_dgv.Columns(4).Visible = False : 明細_dgv.Columns(5).FillWeight = 120 : 明細_dgv.Columns(6).FillWeight = 165 : 明細_dgv.Columns(7).FillWeight = 165
+        明細_dgv.Columns(8).FillWeight = 150 : 明細_dgv.Columns(9).FillWeight = 130 : 明細_dgv.Columns(10).FillWeight = 140 : 明細_dgv.Columns(11).Visible = False
+        明細_dgv.Columns(12).Visible = False : 明細_dgv.Columns(13).FillWeight = 80
+
+        明細_dgv.Columns(1).ReadOnly = True : 明細_dgv.Columns(2).ReadOnly = True : 明細_dgv.Columns(9).ReadOnly = True : 明細_dgv.Columns(10).ReadOnly = True
+
+        明細_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.00"
+        明細_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.00" : 明細_dgv.Columns(8).DefaultCellStyle.Format = "#,##0.00"
+        明細_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 明細_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        明細_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 明細_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
+        明細_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+
+        收入_tb.Text = "0" : 支出_tb.Text = "0" : 餘額_tb.Text = "0" : 零用金_tb.Text = "0" : 支票_tb.Text = "0"
+        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+            收入_tb.Text = Val(收入_tb.Text) + 明細_dgv.Rows(i).Cells("收入").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+            支出_tb.Text = Val(支出_tb.Text) + 明細_dgv.Rows(i).Cells("支出").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+            零用金_tb.Text = Val(零用金_tb.Text) + 明細_dgv.Rows(i).Cells("零用金").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+            支票_tb.Text = Val(支票_tb.Text) + 明細_dgv.Rows(i).Cells("支票").Value * 明細_dgv.Rows(i).Cells("匯率").Value
+        Next i
+        餘額_tb.Text = Val(零用金_tb.Text) + Val(收入_tb.Text) - Val(支出_tb.Text)
+        If Val(餘額_tb.Text) > 0 Then : 餘額_tb.ForeColor = Color.Blue : Else : 餘額_tb.ForeColor = Color.Red : End If
+        收入_tb.Text = Format(Val(收入_tb.Text), "#,##0.00") : 支出_tb.Text = Format(Val(支出_tb.Text), "#,##0.00") : 餘額_tb.Text = Format(Val(餘額_tb.Text), "#,##0.00")
+        零用金_tb.Text = Format(Val(零用金_tb.Text), "#,##0.00") : 支票_tb.Text = Format(Val(支票_tb.Text), "#,##0.00")
+    End Sub
+    Private Sub Set_清單()
+        簽名檔_dgv.DataSource = Nothing : ds2.Clear()
+        簽名檔_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        簽名檔_dgv.ColumnHeadersHeight = 25
+        簽名檔_dgv.AllowUserToAddRows = False
+        ConnOpen()
+        SQL1 = "SELECT 圖片流水號 AS 圖檔編碼, 簽名檔人名 FROM GCM主管簽名檔管理 ORDER BY 圖片流水號 DESC"
+        CmdSet_For_DGV() : da.Fill(ds2) : 簽名檔_dgv.DataSource = ds2.Tables(0) : conn.Close()
+
+        簽名檔_dgv.Columns(0).FillWeight = 173 : 簽名檔_dgv.Columns(1).Visible = False
+        If 簽名檔_dgv.Rows.Count = 0 Then : Else
+            TextBox14.Text = 簽名檔_dgv(0, 0).Value.ToString
+            ConnOpen()
+            SQL1 = "SELECT 簽名檔圖片 FROM GCM主管簽名檔管理 WHERE 圖片流水號 LIKE '" & TextBox14.Text & "'"
+            cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
+            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(簽名檔_dgv(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
+
+                ConnOpen()
+                SQL1 = "SELECT 簽名編碼 FROM 財務控制表_ICS WHERE 簽名編碼 LIKE '" & TextBox13.Text & "'"
+                cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
+                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 匯率()
+        ConnOpen()
+        SQL1 = "SELECT 中心匯率, 美金匯率, 印尼匯率 FROM 歷史匯率表 
+                WHERE (年 LIKE '" & Strings.Left(Format(日期_dtp.Value, "yyyyMMdd"), 4) & "%') AND (月 LIKE '" & Strings.Mid(Format(日期_dtp.Value, "yyyyMMdd"), 5, 2) & "%')"
+        cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
+        If dr.Read() Then
+            人民幣匯率_tb.Text = dr("中心匯率").ToString : 美金匯率_tb.Text = dr("美金匯率").ToString : 印尼匯率_tb.Text = dr("印尼匯率").ToString : conn.Close() : dr.Close()
+        Else
+            conn.Close() : dr.Close() : 匯率修改.Close() : 匯率修改.Show() : 匯率修改.BringToFront()
+        End If
+    End Sub
+    Private Sub 財務_收支單審核_ICS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        未核准的收支單_rb.Checked = True : 收支單_dgv.Visible = True
+        匯率() : Set_清單1() : Set_清單()
+    End Sub
+    Private Sub 收支單_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 收支單_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            收支單號_tb.Text = 收支單_dgv(0, e.RowIndex).Value.ToString : 日期_dtp.Value = 收支單_dgv(1, e.RowIndex).Value.ToString : Set_費用清單()
+            申請人_tb.Text = 收支單_dgv(3, e.RowIndex).Value.ToString
+        End If
+    End Sub
+    Private Sub 簽名檔_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 簽名檔_dgv.CellClick
+        If e.RowIndex = -1 Then : Else
+            TextBox14.Text = 簽名檔_dgv(0, e.RowIndex).Value.ToString
+            ConnOpen()
+            SQL1 = "SELECT 簽名檔圖片 FROM GCM主管簽名檔管理 WHERE 圖片流水號 LIKE '" & TextBox14.Text & "'"
+            cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
+            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(簽名檔_dgv(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
+
+                ConnOpen()
+                SQL1 = "SELECT 簽名編碼 FROM 財務控制表_ICS WHERE 簽名編碼 LIKE '" & TextBox13.Text & "'"
+                cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
+                If dr.Read() = True Then : Else : QAZ = 999 : End If : conn.Close()
+            Next
+        End If
+    End Sub
+    Private Sub Set_切換格式()
+        明細_dgv.DataSource = Nothing : ds.Clear() : 收支單號_tb.Text = "" : 申請人_tb.Text = "" : 收入_tb.Text = "" : 支出_tb.Text = "" : 餘額_tb.Text = ""
+        零用金_tb.Text = "" : 支票_tb.Text = "" : Set_清單1()
+    End Sub
+    Private Sub 未核准的收支單_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 未核准的收支單_rb.Click
+        未核准的收支單_rb.Checked = True : 作廢的收支單_rb.Checked = False
+        明細_dgv.DataSource = Nothing : ds.Clear() : 收支單號_tb.Text = "" : 申請人_tb.Text = "" : 收入_tb.Text = "" : 支出_tb.Text = "" : 餘額_tb.Text = ""
+        審核通過_bt.Enabled = True : 單據作廢_bt.Enabled = True : 審核通過ToolStripMenuItem.Enabled = True : 單據作廢ToolStripMenuItem.Enabled = True : Set_切換格式()
+    End Sub
+    Private Sub 作廢的收支單_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 作廢的收支單_rb.Click
+        未核准的收支單_rb.Checked = False : 作廢的收支單_rb.Checked = True
+        明細_dgv.DataSource = Nothing : ds.Clear() : 收支單號_tb.Text = "" : 申請人_tb.Text = "" : 收入_tb.Text = "" : 支出_tb.Text = "" : 餘額_tb.Text = ""
+        審核通過_bt.Enabled = False : 單據作廢_bt.Enabled = False : 審核通過ToolStripMenuItem.Enabled = False : 單據作廢ToolStripMenuItem.Enabled = False : Set_切換格式()
+    End Sub
+    Private Sub Set_日期格式轉換()
+        DTP = Format(Today(), "yyyy/MM/dd")
+    End Sub
+    Private Sub 審核通過_bt_Click(sender As Object, e As EventArgs) Handles 審核通過_bt.Click
+        If 收支單號_tb.Text = "" Then
+            MsgBox("請選擇需要審核的單據。")
+        Else
+            If 補單_ch.Checked = False Then
+                Set_日期格式轉換()
+            Else
+                DTP = Format(日期_dtp.Value, "yyyy/MM/dd")
+            End If
+            conn.Close()
+            ConnOpen()
+            SQL1 = "UPDATE 財務控制表_ICS SET 審核人 = N'" & gUserName & "', 審核日期 = N'" & DTP & "', 核准圖檔 = N'" & TextBox14.Text & "', 簽名編碼 = N'" & TextBox13.Text &
+                                          "', 出納 = '" & gUserName & "', 出納日期 = N'" & DTP & "'
+                    WHERE (支付單號 = N'" & 收支單號_tb.Text & "')"
+            CmdSet_For_dr() : conn.Close()
+
+            ConnOpen()
+            SQL1 = "UPDATE 財務流水帳_ICS SET 出納 = '1', 出納日期 = N'" & DTP & "'
+                   WHERE (支付單號 LIKE '" & 收支單號_tb.Text & "')"
+            CmdSet_For_dr() : conn.Close()
+
+            For i As Integer = 0 To 明細_dgv.Rows.Count - 1
+                If 明細_dgv.Rows(i).Cells("零用金").Value <> 0 Then
+                    ConnOpen()
+                    SQL1 = "UPDATE 財務流水帳_ICS SET  備用金 = N'1' WHERE (支付單號 LIKE '" & 收支單號_tb.Text & "' AND 項次 LIKE '" & 明細_dgv.Rows(i).Cells("項次").Value & "')"
+                    CmdSet_For_dr() : conn.Close()
+                ElseIf 明細_dgv.Rows(i).Cells("收入").Value <> 0 Then
+                    ConnOpen()
+                    SQL1 = "UPDATE 財務流水帳_ICS SET  現金 = N'1' WHERE (支付單號 LIKE '" & 收支單號_tb.Text & "' AND 項次 LIKE '" & 明細_dgv.Rows(i).Cells("項次").Value & "')"
+                    CmdSet_For_dr() : conn.Close()
+                ElseIf 明細_dgv.Rows(i).Cells("支出").Value <> 0 Then
+                    ConnOpen()
+                    SQL1 = "UPDATE 財務流水帳_ICS SET  公帳 = N'1' WHERE (支付單號 LIKE '" & 收支單號_tb.Text & "' AND 項次 LIKE '" & 明細_dgv.Rows(i).Cells("項次").Value & "')"
+                    CmdSet_For_dr() : conn.Close()
+                End If
+            Next
+            MsgBox("審核完畢。")
+            收支單號_tb.Text = "" : 申請人_tb.Text = ""
+            明細_dgv.DataSource = Nothing : ds.Clear()
+            Set_清單1() : Set_清單()
+        End If
+    End Sub
+    Private Sub 單據作廢_bt_Click(sender As Object, e As EventArgs) Handles 單據作廢_bt.Click
+        If 收支單號_tb.Text = "" Then
+            MsgBox("請選擇需要審核的單據。")
+        Else
+            PA = InputBox("請輸入作廢原因。")
+            If PA = "" Then
+                MsgBox("請輸入作廢原因,不可空白。")
+            Else
+                If 補單_ch.Checked = False Then
+                    Set_日期格式轉換()
+                Else
+                    DTP = Format(日期_dtp.Value, "yyyy/MM/dd")
+                End If
+                conn.Close()
+                ConnOpen()
+                SQL1 = "UPDATE 財務控制表_ICS SET 審核人 = N'作廢-" & gUserName & "', 審核日期 = N'" & DTP & "', 備註 = N'" & PA & "' WHERE (支付單號 = N'" & 收支單號_tb.Text & "')"
+                CmdSet_For_dr()
+                conn.Close()
+                MsgBox("審核完畢。") : PA = ""
+                收支單號_tb.Text = "" : 申請人_tb.Text = ""
+                明細_dgv.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.審核通過_bt.PerformClick()
+    End Sub
+    Private Sub 單據作廢ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 單據作廢ToolStripMenuItem.Click
+        Me.單據作廢_bt.PerformClick()
+    End Sub
+
+End Class

工巧明智能管理系統/我的系統/02-財務系統管理/ISC/財務_收支單申請_ICS.Designer.vb

@@ -0,0 +1,973 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 財務_收支單申請_ICS
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.視窗1_pl = New System.Windows.Forms.Panel()
+        Me.物料群組_Panel = New System.Windows.Forms.Panel()
+        Me.支出_cb = New System.Windows.Forms.CheckBox()
+        Me.收入_cb = New System.Windows.Forms.CheckBox()
+        Me.指定_ndp = New System.Windows.Forms.NumericUpDown()
+        Me.窗口說明1_lb = New System.Windows.Forms.Label()
+        Me.確定_bt = New System.Windows.Forms.Button()
+        Me.窗口表頭_lb = New System.Windows.Forms.Label()
+        Me.Cancel_bt = New System.Windows.Forms.Button()
+        Me.刪除選中的一筆資料_bt = New System.Windows.Forms.Button()
+        Me.收支單中新增一筆空白資料_bt = New System.Windows.Forms.Button()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.刪除選中的營運成本收支單_bt = New System.Windows.Forms.Button()
+        Me.開立營運成本收支單_bt = New System.Windows.Forms.Button()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.幣別_cb = New System.Windows.Forms.ComboBox()
+        Me.關鍵字查詢會計科目_tb = New System.Windows.Forms.TextBox()
+        Me.科目2_號_cb = New System.Windows.Forms.ComboBox()
+        Me.科目2_名_cb = New System.Windows.Forms.ComboBox()
+        Me.科目1_號_cb = New System.Windows.Forms.ComboBox()
+        Me.科目1_名_cb = New System.Windows.Forms.ComboBox()
+        Me.複製歷史單據重新開立_bt = New System.Windows.Forms.Button()
+        Me.已核准的收支單_rb = New System.Windows.Forms.RadioButton()
+        Me.支票_tb = New System.Windows.Forms.TextBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.零用金_tb = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.合計_tb = New System.Windows.Forms.TextBox()
+        Me.支出_tb = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.補單_ch = New System.Windows.Forms.CheckBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.日期_dtp = New System.Windows.Forms.DateTimePicker()
+        Me.申請_bt = New System.Windows.Forms.Button()
+        Me.科目3_名_cb = New System.Windows.Forms.ComboBox()
+        Me.收入_tb = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label62 = New System.Windows.Forms.Label()
+        Me.項次_tb = New System.Windows.Forms.TextBox()
+        Me.Label28 = New System.Windows.Forms.Label()
+        Me.Label27 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.申請人_tb = New System.Windows.Forms.TextBox()
+        Me.收支單號_tb = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.作廢的收支單_rb = New System.Windows.Forms.RadioButton()
+        Me.未核准的收支單_rb = New System.Windows.Forms.RadioButton()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.明細表_dgv = New System.Windows.Forms.DataGridView()
+        Me.營運收支單_dgv = New System.Windows.Forms.DataGridView()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.科目3_號_cb = New System.Windows.Forms.ComboBox()
+        Me.人民幣匯率_tb = New System.Windows.Forms.TextBox()
+        Me.美金匯率_tb = New System.Windows.Forms.TextBox()
+        Me.印尼匯率_tb = New System.Windows.Forms.TextBox()
+        Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
+        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.視窗1_pl.SuspendLayout()
+        Me.物料群組_Panel.SuspendLayout()
+        CType(Me.指定_ndp, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.明細表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.營運收支單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        Me.ContextMenuStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        '視窗1_pl
+        '
+        Me.視窗1_pl.BackColor = System.Drawing.Color.White
+        Me.視窗1_pl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.視窗1_pl.Controls.Add(Me.物料群組_Panel)
+        Me.視窗1_pl.Controls.Add(Me.窗口表頭_lb)
+        Me.視窗1_pl.Controls.Add(Me.Cancel_bt)
+        Me.視窗1_pl.Location = New System.Drawing.Point(646, 279)
+        Me.視窗1_pl.Name = "視窗1_pl"
+        Me.視窗1_pl.Size = New System.Drawing.Size(199, 124)
+        Me.視窗1_pl.TabIndex = 1564
+        '
+        '物料群組_Panel
+        '
+        Me.物料群組_Panel.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.物料群組_Panel.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.物料群組_Panel.Controls.Add(Me.支出_cb)
+        Me.物料群組_Panel.Controls.Add(Me.收入_cb)
+        Me.物料群組_Panel.Controls.Add(Me.指定_ndp)
+        Me.物料群組_Panel.Controls.Add(Me.窗口說明1_lb)
+        Me.物料群組_Panel.Controls.Add(Me.確定_bt)
+        Me.物料群組_Panel.Location = New System.Drawing.Point(3, 28)
+        Me.物料群組_Panel.Name = "物料群組_Panel"
+        Me.物料群組_Panel.Size = New System.Drawing.Size(192, 92)
+        Me.物料群組_Panel.TabIndex = 1367
+        '
+        '支出_cb
+        '
+        Me.支出_cb.AutoSize = True
+        Me.支出_cb.Location = New System.Drawing.Point(103, 32)
+        Me.支出_cb.Name = "支出_cb"
+        Me.支出_cb.Size = New System.Drawing.Size(50, 20)
+        Me.支出_cb.TabIndex = 1376
+        Me.支出_cb.Text = "支出"
+        Me.支出_cb.UseVisualStyleBackColor = True
+        '
+        '收入_cb
+        '
+        Me.收入_cb.AutoSize = True
+        Me.收入_cb.Location = New System.Drawing.Point(8, 32)
+        Me.收入_cb.Name = "收入_cb"
+        Me.收入_cb.Size = New System.Drawing.Size(50, 20)
+        Me.收入_cb.TabIndex = 1375
+        Me.收入_cb.Text = "收入"
+        Me.收入_cb.UseVisualStyleBackColor = True
+        '
+        '指定_ndp
+        '
+        Me.指定_ndp.Location = New System.Drawing.Point(53, 4)
+        Me.指定_ndp.Maximum = New Decimal(New Integer() {100000000, 0, 0, 0})
+        Me.指定_ndp.Minimum = New Decimal(New Integer() {100000000, 0, 0, -2147483648})
+        Me.指定_ndp.Name = "指定_ndp"
+        Me.指定_ndp.Size = New System.Drawing.Size(120, 23)
+        Me.指定_ndp.TabIndex = 1374
+        Me.指定_ndp.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.指定_ndp.ThousandsSeparator = True
+        '
+        '窗口說明1_lb
+        '
+        Me.窗口說明1_lb.AutoSize = True
+        Me.窗口說明1_lb.Location = New System.Drawing.Point(3, 6)
+        Me.窗口說明1_lb.Name = "窗口說明1_lb"
+        Me.窗口說明1_lb.Size = New System.Drawing.Size(43, 16)
+        Me.窗口說明1_lb.TabIndex = 1373
+        Me.窗口說明1_lb.Text = "零用金"
+        '
+        '確定_bt
+        '
+        Me.確定_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.確定_bt.ForeColor = System.Drawing.Color.Blue
+        Me.確定_bt.Location = New System.Drawing.Point(6, 51)
+        Me.確定_bt.Name = "確定_bt"
+        Me.確定_bt.Size = New System.Drawing.Size(175, 33)
+        Me.確定_bt.TabIndex = 1363
+        Me.確定_bt.Text = "確定"
+        Me.確定_bt.UseVisualStyleBackColor = True
+        '
+        '窗口表頭_lb
+        '
+        Me.窗口表頭_lb.AutoSize = True
+        Me.窗口表頭_lb.Location = New System.Drawing.Point(5, 7)
+        Me.窗口表頭_lb.Name = "窗口表頭_lb"
+        Me.窗口表頭_lb.Size = New System.Drawing.Size(55, 16)
+        Me.窗口表頭_lb.TabIndex = 1375
+        Me.窗口表頭_lb.Text = "編輯指定"
+        '
+        'Cancel_bt
+        '
+        Me.Cancel_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Cancel_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Cancel_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Cancel_bt.ForeColor = System.Drawing.Color.Black
+        Me.Cancel_bt.Location = New System.Drawing.Point(167, 2)
+        Me.Cancel_bt.Name = "Cancel_bt"
+        Me.Cancel_bt.Size = New System.Drawing.Size(26, 26)
+        Me.Cancel_bt.TabIndex = 1374
+        Me.Cancel_bt.Text = "X"
+        Me.Cancel_bt.UseVisualStyleBackColor = False
+        '
+        '刪除選中的一筆資料_bt
+        '
+        Me.刪除選中的一筆資料_bt.ForeColor = System.Drawing.Color.Red
+        Me.刪除選中的一筆資料_bt.Location = New System.Drawing.Point(1082, 71)
+        Me.刪除選中的一筆資料_bt.Name = "刪除選中的一筆資料_bt"
+        Me.刪除選中的一筆資料_bt.Size = New System.Drawing.Size(160, 25)
+        Me.刪除選中的一筆資料_bt.TabIndex = 1562
+        Me.刪除選中的一筆資料_bt.Text = "刪除選中的一筆資料"
+        Me.刪除選中的一筆資料_bt.UseVisualStyleBackColor = True
+        '
+        '收支單中新增一筆空白資料_bt
+        '
+        Me.收支單中新增一筆空白資料_bt.ForeColor = System.Drawing.Color.Green
+        Me.收支單中新增一筆空白資料_bt.Location = New System.Drawing.Point(1082, 46)
+        Me.收支單中新增一筆空白資料_bt.Name = "收支單中新增一筆空白資料_bt"
+        Me.收支單中新增一筆空白資料_bt.Size = New System.Drawing.Size(160, 25)
+        Me.收支單中新增一筆空白資料_bt.TabIndex = 1561
+        Me.收支單中新增一筆空白資料_bt.Text = "收支單中新增一筆空白資料"
+        Me.收支單中新增一筆空白資料_bt.UseVisualStyleBackColor = True
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.Location = New System.Drawing.Point(836, 51)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(120, 16)
+        Me.Label15.TabIndex = 1560
+        Me.Label15.Text = "關鍵字查詢-會計科目"
+        '
+        '刪除選中的營運成本收支單_bt
+        '
+        Me.刪除選中的營運成本收支單_bt.ForeColor = System.Drawing.Color.Red
+        Me.刪除選中的營運成本收支單_bt.Location = New System.Drawing.Point(1127, 17)
+        Me.刪除選中的營運成本收支單_bt.Name = "刪除選中的營運成本收支單_bt"
+        Me.刪除選中的營運成本收支單_bt.Size = New System.Drawing.Size(115, 25)
+        Me.刪除選中的營運成本收支單_bt.TabIndex = 1554
+        Me.刪除選中的營運成本收支單_bt.Text = "刪除選中的財務單"
+        Me.刪除選中的營運成本收支單_bt.UseVisualStyleBackColor = True
+        '
+        '開立營運成本收支單_bt
+        '
+        Me.開立營運成本收支單_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.開立營運成本收支單_bt.Location = New System.Drawing.Point(898, 17)
+        Me.開立營運成本收支單_bt.Name = "開立營運成本收支單_bt"
+        Me.開立營運成本收支單_bt.Size = New System.Drawing.Size(115, 25)
+        Me.開立營運成本收支單_bt.TabIndex = 1553
+        Me.開立營運成本收支單_bt.Text = "開立財務收支單"
+        Me.開立營運成本收支單_bt.UseVisualStyleBackColor = True
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Label16.Location = New System.Drawing.Point(322, 1)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(218, 16)
+        Me.Label16.TabIndex = 1552
+        Me.Label16.Text = "1、先開立財務收支單，在選會計科目。"
+        '
+        '幣別_cb
+        '
+        Me.幣別_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.幣別_cb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.幣別_cb.FormattingEnabled = True
+        Me.幣別_cb.Items.AddRange(New Object() {"台幣現金", "人民幣現金", "美金", "印尼盾"})
+        Me.幣別_cb.Location = New System.Drawing.Point(959, 71)
+        Me.幣別_cb.Name = "幣別_cb"
+        Me.幣別_cb.Size = New System.Drawing.Size(119, 24)
+        Me.幣別_cb.TabIndex = 1551
+        '
+        '關鍵字查詢會計科目_tb
+        '
+        Me.關鍵字查詢會計科目_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.關鍵字查詢會計科目_tb.Location = New System.Drawing.Point(959, 47)
+        Me.關鍵字查詢會計科目_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.關鍵字查詢會計科目_tb.Name = "關鍵字查詢會計科目_tb"
+        Me.關鍵字查詢會計科目_tb.Size = New System.Drawing.Size(119, 23)
+        Me.關鍵字查詢會計科目_tb.TabIndex = 1550
+        Me.關鍵字查詢會計科目_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '科目2_號_cb
+        '
+        Me.科目2_號_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.科目2_號_cb.FormattingEnabled = True
+        Me.科目2_號_cb.Location = New System.Drawing.Point(695, 71)
+        Me.科目2_號_cb.Name = "科目2_號_cb"
+        Me.科目2_號_cb.Size = New System.Drawing.Size(75, 24)
+        Me.科目2_號_cb.TabIndex = 1549
+        '
+        '科目2_名_cb
+        '
+        Me.科目2_名_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.科目2_名_cb.FormattingEnabled = True
+        Me.科目2_名_cb.Location = New System.Drawing.Point(570, 71)
+        Me.科目2_名_cb.Name = "科目2_名_cb"
+        Me.科目2_名_cb.Size = New System.Drawing.Size(123, 24)
+        Me.科目2_名_cb.TabIndex = 1548
+        '
+        '科目1_號_cb
+        '
+        Me.科目1_號_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.科目1_號_cb.FormattingEnabled = True
+        Me.科目1_號_cb.Location = New System.Drawing.Point(508, 71)
+        Me.科目1_號_cb.Name = "科目1_號_cb"
+        Me.科目1_號_cb.Size = New System.Drawing.Size(61, 24)
+        Me.科目1_號_cb.TabIndex = 1547
+        '
+        '科目1_名_cb
+        '
+        Me.科目1_名_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.科目1_名_cb.FormattingEnabled = True
+        Me.科目1_名_cb.Location = New System.Drawing.Point(384, 71)
+        Me.科目1_名_cb.Name = "科目1_名_cb"
+        Me.科目1_名_cb.Size = New System.Drawing.Size(123, 24)
+        Me.科目1_名_cb.TabIndex = 1546
+        '
+        '複製歷史單據重新開立_bt
+        '
+        Me.複製歷史單據重新開立_bt.ForeColor = System.Drawing.Color.Green
+        Me.複製歷史單據重新開立_bt.Location = New System.Drawing.Point(1013, 17)
+        Me.複製歷史單據重新開立_bt.Name = "複製歷史單據重新開立_bt"
+        Me.複製歷史單據重新開立_bt.Size = New System.Drawing.Size(114, 25)
+        Me.複製歷史單據重新開立_bt.TabIndex = 1545
+        Me.複製歷史單據重新開立_bt.Text = "複製歷史單據"
+        Me.複製歷史單據重新開立_bt.UseVisualStyleBackColor = True
+        '
+        '已核准的收支單_rb
+        '
+        Me.已核准的收支單_rb.AutoSize = True
+        Me.已核准的收支單_rb.Location = New System.Drawing.Point(112, 2)
+        Me.已核准的收支單_rb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.已核准的收支單_rb.Name = "已核准的收支單_rb"
+        Me.已核准的收支單_rb.Size = New System.Drawing.Size(109, 20)
+        Me.已核准的收支單_rb.TabIndex = 1544
+        Me.已核准的收支單_rb.TabStop = True
+        Me.已核准的收支單_rb.Text = "已核准的收支單"
+        Me.已核准的收支單_rb.UseVisualStyleBackColor = True
+        '
+        '支票_tb
+        '
+        Me.支票_tb.Location = New System.Drawing.Point(613, 102)
+        Me.支票_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.支票_tb.Name = "支票_tb"
+        Me.支票_tb.Size = New System.Drawing.Size(65, 23)
+        Me.支票_tb.TabIndex = 1543
+        Me.支票_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(580, 105)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(31, 16)
+        Me.Label11.TabIndex = 1542
+        Me.Label11.Text = "支票"
+        '
+        '零用金_tb
+        '
+        Me.零用金_tb.Location = New System.Drawing.Point(513, 102)
+        Me.零用金_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.零用金_tb.Name = "零用金_tb"
+        Me.零用金_tb.Size = New System.Drawing.Size(65, 23)
+        Me.零用金_tb.TabIndex = 1541
+        Me.零用金_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(467, 105)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(43, 16)
+        Me.Label10.TabIndex = 1540
+        Me.Label10.Text = "零用金"
+        '
+        '合計_tb
+        '
+        Me.合計_tb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.合計_tb.Location = New System.Drawing.Point(978, 102)
+        Me.合計_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.合計_tb.Name = "合計_tb"
+        Me.合計_tb.Size = New System.Drawing.Size(100, 23)
+        Me.合計_tb.TabIndex = 1539
+        Me.合計_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '支出_tb
+        '
+        Me.支出_tb.Location = New System.Drawing.Point(848, 102)
+        Me.支出_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.支出_tb.Name = "支出_tb"
+        Me.支出_tb.Size = New System.Drawing.Size(100, 23)
+        Me.支出_tb.TabIndex = 1537
+        Me.支出_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(815, 106)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(31, 16)
+        Me.Label5.TabIndex = 1536
+        Me.Label5.Text = "支出"
+        '
+        '補單_ch
+        '
+        Me.補單_ch.AutoSize = True
+        Me.補單_ch.Checked = True
+        Me.補單_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.補單_ch.Location = New System.Drawing.Point(774, 20)
+        Me.補單_ch.Name = "補單_ch"
+        Me.補單_ch.Size = New System.Drawing.Size(38, 20)
+        Me.補單_ch.TabIndex = 1535
+        Me.補單_ch.Text = "補"
+        Me.補單_ch.UseVisualStyleBackColor = True
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.ForeColor = System.Drawing.Color.Blue
+        Me.Label4.Location = New System.Drawing.Point(643, 21)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(31, 16)
+        Me.Label4.TabIndex = 1534
+        Me.Label4.Text = "日期"
+        '
+        '日期_dtp
+        '
+        Me.日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.日期_dtp.Location = New System.Drawing.Point(675, 18)
+        Me.日期_dtp.Name = "日期_dtp"
+        Me.日期_dtp.Size = New System.Drawing.Size(90, 23)
+        Me.日期_dtp.TabIndex = 1533
+        '
+        '申請_bt
+        '
+        Me.申請_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.申請_bt.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.申請_bt.Location = New System.Drawing.Point(1082, 101)
+        Me.申請_bt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.申請_bt.Name = "申請_bt"
+        Me.申請_bt.Size = New System.Drawing.Size(160, 25)
+        Me.申請_bt.TabIndex = 1531
+        Me.申請_bt.Text = "申請完成"
+        Me.申請_bt.UseVisualStyleBackColor = True
+        '
+        '科目3_名_cb
+        '
+        Me.科目3_名_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.科目3_名_cb.FormattingEnabled = True
+        Me.科目3_名_cb.Location = New System.Drawing.Point(772, 71)
+        Me.科目3_名_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.科目3_名_cb.Name = "科目3_名_cb"
+        Me.科目3_名_cb.Size = New System.Drawing.Size(184, 24)
+        Me.科目3_名_cb.TabIndex = 1530
+        '
+        '收入_tb
+        '
+        Me.收入_tb.Location = New System.Drawing.Point(713, 102)
+        Me.收入_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.收入_tb.Name = "收入_tb"
+        Me.收入_tb.Size = New System.Drawing.Size(100, 23)
+        Me.收入_tb.TabIndex = 1529
+        Me.收入_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(680, 106)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(31, 16)
+        Me.Label8.TabIndex = 1528
+        Me.Label8.Text = "收入"
+        '
+        '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(1133, 1)
+        Me.Label62.Name = "Label62"
+        Me.Label62.Size = New System.Drawing.Size(109, 16)
+        Me.Label62.TabIndex = 1527
+        Me.Label62.Text = "資  料  尚  未  存  檔"
+        Me.Label62.Visible = False
+        '
+        '項次_tb
+        '
+        Me.項次_tb.Location = New System.Drawing.Point(352, 102)
+        Me.項次_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.項次_tb.Name = "項次_tb"
+        Me.項次_tb.Size = New System.Drawing.Size(61, 23)
+        Me.項次_tb.TabIndex = 1526
+        Me.項次_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label28
+        '
+        Me.Label28.AutoSize = True
+        Me.Label28.Location = New System.Drawing.Point(412, 106)
+        Me.Label28.Name = "Label28"
+        Me.Label28.Size = New System.Drawing.Size(43, 16)
+        Me.Label28.TabIndex = 1525
+        Me.Label28.Text = "項次。"
+        '
+        'Label27
+        '
+        Me.Label27.AutoSize = True
+        Me.Label27.Location = New System.Drawing.Point(320, 105)
+        Me.Label27.Name = "Label27"
+        Me.Label27.Size = New System.Drawing.Size(31, 16)
+        Me.Label27.TabIndex = 1524
+        Me.Label27.Text = "選擇"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(501, 21)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(43, 16)
+        Me.Label3.TabIndex = 1522
+        Me.Label3.Text = "申請人"
+        '
+        '申請人_tb
+        '
+        Me.申請人_tb.Location = New System.Drawing.Point(545, 18)
+        Me.申請人_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.申請人_tb.Name = "申請人_tb"
+        Me.申請人_tb.Size = New System.Drawing.Size(92, 23)
+        Me.申請人_tb.TabIndex = 1521
+        Me.申請人_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '收支單號_tb
+        '
+        Me.收支單號_tb.Location = New System.Drawing.Point(378, 18)
+        Me.收支單號_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.收支單號_tb.Name = "收支單號_tb"
+        Me.收支單號_tb.Size = New System.Drawing.Size(122, 23)
+        Me.收支單號_tb.TabIndex = 1519
+        Me.收支單號_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(321, 22)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(55, 16)
+        Me.Label1.TabIndex = 1520
+        Me.Label1.Text = "收支單號"
+        '
+        '作廢的收支單_rb
+        '
+        Me.作廢的收支單_rb.AutoSize = True
+        Me.作廢的收支單_rb.Location = New System.Drawing.Point(224, 2)
+        Me.作廢的收支單_rb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.作廢的收支單_rb.Name = "作廢的收支單_rb"
+        Me.作廢的收支單_rb.Size = New System.Drawing.Size(97, 20)
+        Me.作廢的收支單_rb.TabIndex = 1518
+        Me.作廢的收支單_rb.TabStop = True
+        Me.作廢的收支單_rb.Text = "作廢的收支單"
+        Me.作廢的收支單_rb.UseVisualStyleBackColor = True
+        '
+        '未核准的收支單_rb
+        '
+        Me.未核准的收支單_rb.AutoSize = True
+        Me.未核准的收支單_rb.Location = New System.Drawing.Point(4, 2)
+        Me.未核准的收支單_rb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.未核准的收支單_rb.Name = "未核准的收支單_rb"
+        Me.未核准的收支單_rb.Size = New System.Drawing.Size(109, 20)
+        Me.未核准的收支單_rb.TabIndex = 1517
+        Me.未核准的收支單_rb.TabStop = True
+        Me.未核准的收支單_rb.Text = "未核准的收支單"
+        Me.未核准的收支單_rb.UseVisualStyleBackColor = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(326, 75)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(55, 16)
+        Me.Label2.TabIndex = 1532
+        Me.Label2.Text = "會計科目"
+        '
+        '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(322, 55)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(218, 16)
+        Me.Label13.TabIndex = 1555
+        Me.Label13.Text = "2、選擇會計科目後再新增一筆空白資料"
+        '
+        'Label12
+        '
+        Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(374, 30)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(872, 16)
+        Me.Label12.TabIndex = 1557
+        Me.Label12.Text = "_________________________________________________________________________________" &
+    "________________________________________________________________________________" &
+    "____________"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(317, 30)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(872, 16)
+        Me.Label7.TabIndex = 1556
+        Me.Label7.Text = "_________________________________________________________________________________" &
+    "________________________________________________________________________________" &
+    "____________"
+        '
+        'Label6
+        '
+        Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(374, 85)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(872, 16)
+        Me.Label6.TabIndex = 1559
+        Me.Label6.Text = "_________________________________________________________________________________" &
+    "________________________________________________________________________________" &
+    "____________"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(947, 106)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(31, 16)
+        Me.Label9.TabIndex = 1538
+        Me.Label9.Text = "合計"
+        '
+        '明細表_dgv
+        '
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        Me.明細表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.明細表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.明細表_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.明細表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.明細表_dgv.Location = New System.Drawing.Point(317, 127)
+        Me.明細表_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.明細表_dgv.Name = "明細表_dgv"
+        Me.明細表_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.明細表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.明細表_dgv.RowTemplate.Height = 24
+        Me.明細表_dgv.Size = New System.Drawing.Size(925, 482)
+        Me.明細表_dgv.TabIndex = 1523
+        '
+        '營運收支單_dgv
+        '
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.營運收支單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        Me.營運收支單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.營運收支單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.營運收支單_dgv.BackgroundColor = System.Drawing.Color.White
+        Me.營運收支單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.營運收支單_dgv.Location = New System.Drawing.Point(3, 22)
+        Me.營運收支單_dgv.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.營運收支單_dgv.Name = "營運收支單_dgv"
+        Me.營運收支單_dgv.RowHeadersWidth = 5
+        Me.營運收支單_dgv.RowTemplate.Height = 24
+        Me.營運收支單_dgv.Size = New System.Drawing.Size(315, 587)
+        Me.營運收支單_dgv.TabIndex = 1516
+        '
+        'Panel1
+        '
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.科目3_號_cb)
+        Me.Panel1.Controls.Add(Me.人民幣匯率_tb)
+        Me.Panel1.Controls.Add(Me.美金匯率_tb)
+        Me.Panel1.Controls.Add(Me.印尼匯率_tb)
+        Me.Panel1.Controls.Add(Me.DateTimePicker2)
+        Me.Panel1.Location = New System.Drawing.Point(80, 211)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(188, 159)
+        Me.Panel1.TabIndex = 1563
+        '
+        '科目3_號_cb
+        '
+        Me.科目3_號_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.科目3_號_cb.FormattingEnabled = True
+        Me.科目3_號_cb.Location = New System.Drawing.Point(3, 4)
+        Me.科目3_號_cb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.科目3_號_cb.Name = "科目3_號_cb"
+        Me.科目3_號_cb.Size = New System.Drawing.Size(175, 24)
+        Me.科目3_號_cb.TabIndex = 896
+        '
+        '人民幣匯率_tb
+        '
+        Me.人民幣匯率_tb.Location = New System.Drawing.Point(3, 36)
+        Me.人民幣匯率_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.人民幣匯率_tb.Name = "人民幣匯率_tb"
+        Me.人民幣匯率_tb.Size = New System.Drawing.Size(175, 23)
+        Me.人民幣匯率_tb.TabIndex = 899
+        Me.人民幣匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '美金匯率_tb
+        '
+        Me.美金匯率_tb.Location = New System.Drawing.Point(3, 67)
+        Me.美金匯率_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.美金匯率_tb.Name = "美金匯率_tb"
+        Me.美金匯率_tb.Size = New System.Drawing.Size(175, 23)
+        Me.美金匯率_tb.TabIndex = 900
+        Me.美金匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        '印尼匯率_tb
+        '
+        Me.印尼匯率_tb.Location = New System.Drawing.Point(3, 98)
+        Me.印尼匯率_tb.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.印尼匯率_tb.Name = "印尼匯率_tb"
+        Me.印尼匯率_tb.Size = New System.Drawing.Size(175, 23)
+        Me.印尼匯率_tb.TabIndex = 901
+        Me.印尼匯率_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'DateTimePicker2
+        '
+        Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker2.Location = New System.Drawing.Point(3, 128)
+        Me.DateTimePicker2.Name = "DateTimePicker2"
+        Me.DateTimePicker2.Size = New System.Drawing.Size(175, 23)
+        Me.DateTimePicker2.TabIndex = 889
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Location = New System.Drawing.Point(317, 85)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(872, 16)
+        Me.Label14.TabIndex = 1558
+        Me.Label14.Text = "_________________________________________________________________________________" &
+    "________________________________________________________________________________" &
+    "____________"
+        '
+        'Timer1
+        '
+        Me.Timer1.Interval = 500
+        '
+        '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 = "刪除選中的營運成本收支單"
+        '
+        '財務_收支單申請_ICS
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1249, 611)
+        Me.Controls.Add(Me.營運收支單_dgv)
+        Me.Controls.Add(Me.視窗1_pl)
+        Me.Controls.Add(Me.刪除選中的一筆資料_bt)
+        Me.Controls.Add(Me.收支單中新增一筆空白資料_bt)
+        Me.Controls.Add(Me.Label15)
+        Me.Controls.Add(Me.刪除選中的營運成本收支單_bt)
+        Me.Controls.Add(Me.開立營運成本收支單_bt)
+        Me.Controls.Add(Me.Label16)
+        Me.Controls.Add(Me.幣別_cb)
+        Me.Controls.Add(Me.關鍵字查詢會計科目_tb)
+        Me.Controls.Add(Me.科目2_號_cb)
+        Me.Controls.Add(Me.科目2_名_cb)
+        Me.Controls.Add(Me.科目1_號_cb)
+        Me.Controls.Add(Me.科目1_名_cb)
+        Me.Controls.Add(Me.複製歷史單據重新開立_bt)
+        Me.Controls.Add(Me.支票_tb)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.零用金_tb)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.合計_tb)
+        Me.Controls.Add(Me.支出_tb)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.補單_ch)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.日期_dtp)
+        Me.Controls.Add(Me.申請_bt)
+        Me.Controls.Add(Me.科目3_名_cb)
+        Me.Controls.Add(Me.收入_tb)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.Label62)
+        Me.Controls.Add(Me.項次_tb)
+        Me.Controls.Add(Me.Label28)
+        Me.Controls.Add(Me.Label27)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.申請人_tb)
+        Me.Controls.Add(Me.收支單號_tb)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.作廢的收支單_rb)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.明細表_dgv)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.Label14)
+        Me.Controls.Add(Me.已核准的收支單_rb)
+        Me.Controls.Add(Me.未核准的收支單_rb)
+        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(4)
+        Me.Name = "財務_收支單申請_ICS"
+        Me.Text = "財務_收支單申請_ICS"
+        Me.視窗1_pl.ResumeLayout(False)
+        Me.視窗1_pl.PerformLayout()
+        Me.物料群組_Panel.ResumeLayout(False)
+        Me.物料群組_Panel.PerformLayout()
+        CType(Me.指定_ndp, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.明細表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.營運收支單_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 視窗1_pl As Panel
+    Friend WithEvents 物料群組_Panel As Panel
+    Friend WithEvents 支出_cb As CheckBox
+    Friend WithEvents 收入_cb As CheckBox
+    Friend WithEvents 指定_ndp As NumericUpDown
+    Friend WithEvents 窗口說明1_lb As Label
+    Friend WithEvents 確定_bt As Button
+    Friend WithEvents 窗口表頭_lb As Label
+    Friend WithEvents Cancel_bt As Button
+    Friend WithEvents 刪除選中的一筆資料_bt As Button
+    Friend WithEvents 收支單中新增一筆空白資料_bt As Button
+    Friend WithEvents Label15 As Label
+    Friend WithEvents 刪除選中的營運成本收支單_bt As Button
+    Friend WithEvents 開立營運成本收支單_bt As Button
+    Friend WithEvents Label16 As Label
+    Friend WithEvents 幣別_cb As ComboBox
+    Friend WithEvents 關鍵字查詢會計科目_tb As TextBox
+    Friend WithEvents 科目2_號_cb As ComboBox
+    Friend WithEvents 科目2_名_cb As ComboBox
+    Friend WithEvents 科目1_號_cb As ComboBox
+    Friend WithEvents 科目1_名_cb As ComboBox
+    Friend WithEvents 複製歷史單據重新開立_bt As Button
+    Friend WithEvents 已核准的收支單_rb As RadioButton
+    Friend WithEvents 支票_tb As TextBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents 零用金_tb As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents 合計_tb As TextBox
+    Friend WithEvents 支出_tb As TextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents 補單_ch As CheckBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents 日期_dtp As DateTimePicker
+    Friend WithEvents 申請_bt As Button
+    Friend WithEvents 科目3_名_cb As ComboBox
+    Friend WithEvents 收入_tb As TextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents Label62 As Label
+    Friend WithEvents 項次_tb As TextBox
+    Friend WithEvents Label28 As Label
+    Friend WithEvents Label27 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 申請人_tb As TextBox
+    Friend WithEvents 收支單號_tb As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents 作廢的收支單_rb As RadioButton
+    Friend WithEvents 未核准的收支單_rb As RadioButton
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label13 As Label
+    Friend WithEvents Label12 As Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label9 As Label
+    Friend WithEvents 明細表_dgv As DataGridView
+    Friend WithEvents 營運收支單_dgv As DataGridView
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents 科目3_號_cb As ComboBox
+    Friend WithEvents 人民幣匯率_tb As TextBox
+    Friend WithEvents 美金匯率_tb As TextBox
+    Friend WithEvents 印尼匯率_tb As TextBox
+    Friend WithEvents DateTimePicker2 As DateTimePicker
+    Friend WithEvents Label14 As Label
+    Friend WithEvents Timer1 As Timer
+    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 申請完成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
+End Class

工巧明智能管理系統/我的系統/02-財務系統管理/ISC/財務_收支單申請_ICS.resx

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