GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/05、財務管理系統/營運成本收支單對帳...

Option Strict Off
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 System.Data.SqlClient
Public Class 營運成本收支單對帳表
    ReadOnly conn1 As New SqlConnection
    ReadOnly cmd As New SqlCommand : ReadOnly cmd1 As New SqlCommand : Dim ds4 As New DataSet
    ReadOnly ds As New DataSet
    Dim N2 As Integer
    Dim xlApp As Microsoft.Office.Interop.Excel.Application
    Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
    Dim 位置1 As String : ReadOnly 對話框(2) As String
    Private Sub Set_清單1()
        明細_dgv.DataSource = Nothing : ds.Clear()
        明細_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        明細_dgv.ColumnHeadersHeight = 45
        明細_dgv.AllowUserToAddRows = False
        SQL_營運成本收支單對帳表_查詢最後一筆清單() : 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).FillWeight = 80 : 明細_dgv.Columns(18).FillWeight = 80 : 明細_dgv.Columns(19).FillWeight = 80
        明細_dgv.Columns(20).FillWeight = 80 : 明細_dgv.Columns(21).FillWeight = 70 : 明細_dgv.Columns(22).FillWeight = 70

        If 隱藏申請審核資訊_cb.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 隱藏作帳點交資訊_cb.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

        支出1_tb.Text = "0" : 現金1_tb.Text = "0" : 損益1_tb.Text = "0" : 零用金1_tb.Text = "0" : 已兌現支票1_tb.Text = "0" : 未兌現支票1_tb.Text = "0"
        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
            現金1_tb.Text = Val(現金1_tb.Text) + 明細_dgv.Rows(i).Cells(表頭(39)).Value * 明細_dgv.Rows(i).Cells(表頭(114)).Value
            支出1_tb.Text = Val(支出1_tb.Text) + 明細_dgv.Rows(i).Cells(表頭(112)).Value * 明細_dgv.Rows(i).Cells(表頭(114)).Value
            零用金1_tb.Text = Val(零用金1_tb.Text) + 明細_dgv.Rows(i).Cells(表頭(110)).Value * 明細_dgv.Rows(i).Cells(表頭(114)).Value
            If 明細_dgv(9, i).Value <> 0 And 明細_dgv(18, i).Value = True Then
                已兌現支票1_tb.Text = Val(已兌現支票1_tb.Text) + 明細_dgv.Rows(i).Cells(表頭(111)).Value * 明細_dgv.Rows(i).Cells(表頭(114)).Value
            ElseIf 明細_dgv(9, i).Value <> 0 And 明細_dgv(18, i).Value = False Then
                未兌現支票1_tb.Text = Val(未兌現支票1_tb.Text) + 明細_dgv.Rows(i).Cells(表頭(111)).Value * 明細_dgv.Rows(i).Cells(表頭(114)).Value
            End If
            If 明細_dgv(表頭(115), i).Value = "台幣現金" Then : 明細_dgv(表頭(115), i).Value = "台幣" : Else : 明細_dgv(表頭(115), i).Value = "人民幣" : End If
        Next i
        損益1_tb.Text = Val(已兌現支票1_tb.Text) + Val(零用金1_tb.Text) + Val(現金1_tb.Text) - Val(支出1_tb.Text)
        If Val(損益1_tb.Text) > 0 Then : 損益1_tb.ForeColor = Color.Blue : Else : 損益1_tb.ForeColor = Color.Red : End If
        支出1_tb.Text = Strings.Format(Val(支出1_tb.Text), "#,##0") : 損益1_tb.Text = Strings.Format(Val(損益1_tb.Text), "#,##0") : 現金1_tb.Text = Strings.Format(Val(現金1_tb.Text), "#,##0")
        零用金1_tb.Text = Strings.Format(Val(零用金1_tb.Text), "#,##0") : 已兌現支票1_tb.Text = Strings.Format(Val(已兌現支票1_tb.Text), "#,##0") : 未兌現支票1_tb.Text = Strings.Format(Val(未兌現支票1_tb.Text), "#,##0")
    End Sub
    Private Sub ComboBox1下拉表單資料載入()
        conn.Close()
        SQL_年份清單() : 查詢日期_cb.Items.Clear()
        While (dr.Read()) : 查詢日期_cb.Items.Add(dr("年份")) : End While
        conn.Close()
    End Sub
    Private Sub Set_語言()
        語言_dgv.DataSource = Nothing : ds4.Clear()
        語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25
        語言_dgv.AllowUserToAddRows = False
        SQL_系統語言導入()
        da.Fill(ds4) : 語言_dgv.DataSource = ds4.Tables(0) : conn.Close()
    End Sub
    Private Sub 語言轉換讀取()
        Set_語言() : conn.Close()
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1
            If 語言_dgv("控件", i).Value.ToString = "營運成本收支單對帳表" Then : Me.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "查詢日期_lb" Then : 查詢日期_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "單號_lb" Then : 單號_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "隱藏申請審核資訊_cb" Then : 隱藏申請審核資訊_cb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "隱藏作帳點交資訊_cb" Then : 隱藏作帳點交資訊_cb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "資料尚未存檔_lb" Then : 資料尚未存檔_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "關鍵字查詢_bt" Then : 關鍵字查詢_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清除查詢資料_bt" Then : 清除查詢資料_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對帳記錄存檔_bt" Then : 對帳記錄存檔_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "匯出EXCEL_bt" Then : 匯出EXCEL_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "未兌現支票_lb" Then : 未兌現支票_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "未兌現支票1_lb" Then : 未兌現支票1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "已兌現支票_lb" Then : 已兌現支票_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "已兌現支票1_lb" Then : 已兌現支票1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "零用金_lb" Then : 零用金_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "零用金1_lb" Then : 零用金1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "現金_lb" Then : 現金_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "現金1_lb" Then : 現金1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "支出_lb" Then : 支出_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "支出1_lb" Then : 支出1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "損益_lb" Then : 損益_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "損益1_lb" Then : 損益1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "只顯示支票資料_cb" Then : 只顯示支票資料_cb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_收支單號" Then : 表頭(107) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_申請人" Then : 表頭(19) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_申請日期" Then : 表頭(20) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_審核人" Then : 表頭(120) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_審核日期" Then : 表頭(121) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_項次" Then : 表頭(11) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_會計科目" Then : 表頭(98) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_零用金" Then : 表頭(110) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_支票" Then : 表頭(111) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_現金" Then : 表頭(39) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_支出" Then : 表頭(112) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_票期" Then : 表頭(113) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_會計" Then : 表頭(98) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_用途與內容" Then : 表頭(122) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_作帳日期" Then : 表頭(123) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_點交" Then : 表頭(124) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_點交日期" Then : 表頭(125) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_零用金點交" Then : 表頭(126) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_支票兌現" Then : 表頭(127) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_現金點交" Then : 表頭(128) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_支出點交" Then : 表頭(129) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_匯率" Then : 表頭(114) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_幣別" Then : 表頭(115) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_會計" Then : 表頭(130) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框1" Then : 對話框(0) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框2" Then : 對話框(1) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框3" Then : 對話框(2) = 語言_dgv("內容", i).Value.ToString : End If
        Next
    End Sub

    Private Sub 營運成本收支單對帳表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        介面 = "H304" : Set_語言() : 語言轉換讀取()
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        PA19 = "" : PA18 = "" : PA20 = ""
        現金_tb.Text = "0" : 支出_tb.Text = "0" : 損益_tb.Text = "0" : 零用金_tb.Text = "0" : 已兌現支票_tb.Text = "0" : 未兌現支票_tb.Text = "0"
        現金1_tb.Text = "0" : 支出1_tb.Text = "0" : 損益1_tb.Text = "0" : 零用金1_tb.Text = "0" : 已兌現支票1_tb.Text = "0" : 未兌現支票1_tb.Text = "0"
        SQL_營運成本收支單對帳表_修改會計() : conn.Close()
        SQL_營運成本收支單對帳表_修改出納() : conn.Close()
        SQL_營運成本收支單對帳表_修改現金() : conn.Close()
        SQL_營運成本收支單對帳表_修改備用金() : conn.Close()
        SQL_營運成本收支單對帳表_修改公帳() : conn.Close()
        SQL_營運成本收支單對帳表_修改支票() : conn.Close()
        SQL_營運成本收支單對帳表_修改日期() : conn.Close()
        SQL_營運成本收支單對帳表_修改出納日期() : conn.Close()
        資料尚未存檔_lb.Visible = False
        ComboBox1下拉表單資料載入()
        查詢日期_cb.Text = Year(Today) : 查詢日期1_cb.SelectedIndex = Month(Today) - 1
        PA20 = "AND (財務收支控制表.審核日期 LIKE N'" & PA17 & "/" & PA16 & "%') "

    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If 資料尚未存檔_lb.Visible = True Then : 資料尚未存檔_lb.Visible = False : Else : 資料尚未存檔_lb.Visible = True : End If
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 清除查詢資料_bt.Click
        ComboBox1下拉表單資料載入()
        查詢日期1_cb.Items.Clear()
        查詢日期1_cb.Items.Add("01") : 查詢日期1_cb.Items.Add("02") : 查詢日期1_cb.Items.Add("03") : 查詢日期1_cb.Items.Add("04") : 查詢日期1_cb.Items.Add("05") : 查詢日期1_cb.Items.Add("06")
        查詢日期1_cb.Items.Add("07") : 查詢日期1_cb.Items.Add("08") : 查詢日期1_cb.Items.Add("09") : 查詢日期1_cb.Items.Add("10") : 查詢日期1_cb.Items.Add("11") : 查詢日期1_cb.Items.Add("12")
        PA17 = "" : PA16 = "" : PA20 = ""
        明細_dgv.DataSource = Nothing : ds.Clear()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 對帳記錄存檔_bt.Click
        Timer1.Enabled = False : 資料尚未存檔_lb.Visible = False
        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
            PA15 = 明細_dgv.Rows(i).Cells(表頭(128)).Value
            PA14 = 明細_dgv.Rows(i).Cells(表頭(126)).Value
            PA13 = 明細_dgv.Rows(i).Cells(表頭(129)).Value
            PA12 = 明細_dgv.Rows(i).Cells(表頭(127)).Value
            PA11 = 明細_dgv.Rows(i).Cells(表頭(107)).Value
            PA10 = 明細_dgv.Rows(i).Cells(表頭(11)).Value
            資料數 = 明細_dgv.Rows.Count : MyModule1.進度條()
            SQL_營運成本收支單對帳表_修改對帳記錄存檔() : conn1.Close()
        Next
        MsgBox(對話框(0)) : Set_清單1() : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
    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(表頭(107)).Value = 收支單號_tb.Text Then
                FFGG = Val(FFGG) + 明細_dgv.Rows(i).Cells(表頭(39)).Value * 明細_dgv.Rows(i).Cells(表頭(114)).Value
                GGHH = Val(GGHH) + 明細_dgv.Rows(i).Cells(表頭(112)).Value * 明細_dgv.Rows(i).Cells(表頭(114)).Value
                HHJJ = Val(HHJJ) + 明細_dgv.Rows(i).Cells(表頭(112)).Value * 明細_dgv.Rows(i).Cells(表頭(114)).Value
                If 明細_dgv(9, i).Value <> 0 And 明細_dgv(18, i).Value = True Then
                    JJKK = Val(JJKK) + 明細_dgv.Rows(i).Cells(表頭(111)).Value * 明細_dgv.Rows(i).Cells(表頭(114)).Value
                ElseIf 明細_dgv(9, i).Value <> 0 And 明細_dgv(18, i).Value = False Then
                    KKLL = Val(KKLL) + 明細_dgv.Rows(i).Cells(表頭(111)).Value * 明細_dgv.Rows(i).Cells(表頭(114)).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 Val(損益_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 DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 明細_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            Timer1.Enabled = True
            收支單號_tb.Text = 明細_dgv.Rows(e.RowIndex).Cells(表頭(107)).Value
            總金額計算()
        End If
    End Sub
    Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 明細_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = 明細_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 ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 查詢日期_cb.SelectedIndexChanged
        PA17 = 查詢日期_cb.Text
        If PA17 = "" Or PA16 = "" Then
        Else
            PA20 = "AND (財務收支控制表.審核日期 LIKE N'" & PA17 & "/" & PA16 & "%') "
            Set_清單1()
        End If
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 查詢日期1_cb.SelectedIndexChanged
        PA16 = 查詢日期1_cb.Text
        If PA17 = "" Or PA16 = "" Then
        Else
            PA20 = "AND (財務收支控制表.審核日期 LIKE N'" & PA17 & "/" & PA16 & "%') "
            Set_清單1()
        End If
    End Sub
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles 只顯示支票資料_cb.Click
        If 只顯示支票資料_cb.Checked = False Then
            PA19 = ""
            Set_清單1()
        Else
            PA19 = " AND (財務收支明細表.支票數 <> 0) "
            Set_清單1()
        End If
    End Sub
    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles 隱藏申請審核資訊_cb.Click
        Set_grid()
    End Sub
    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles 隱藏作帳點交資訊_cb.Click
        Set_grid()
    End Sub
    '-----------------------------滑鼠右鍵--------------------------------------------------------------------------------------------------------------------------------------
    Private Sub BBBToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ContextMenuStrip1.Click
        MsgBox(對話框(1))
        '列印_零用金支付明細.ShowDialog()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 關鍵字查詢_bt.Click
        PA = InputBox("請輸入要查詢的關鍵字。")
        PA18 = " AND (財務收支控制表.支付單號 LIKE N'%" & PA & "%' OR 財務收支控制表.申請人 LIKE N'%" & PA & "%' OR 財務收支控制表.審核人 LIKE N'%" & PA &
                 "%' OR 財務收支明細表.明細 LIKE N'%" & PA & "%' OR 財務收支控制表.備註 LIKE N'%" & PA & "%' OR 財務收支明細表.備註 LIKE N'%" & PA & "%')" : Set_清單1()
        PA18 = "" : PA = ""
    End Sub

    '-----------------------------EXCEL--------------------------------------------------------------------------------------------------------------------------------------
    Private Shared Function NewMethod(xlBook As Microsoft.Office.Interop.Excel.Workbook) As Microsoft.Office.Interop.Excel.Worksheet
        Return CType(xlBook.Worksheets.Add, Microsoft.Office.Interop.Excel.Worksheet)
    End Function
    Private Sub 匯出EXCEL_bt_Click(sender As Object, e As EventArgs) Handles 匯出EXCEL_bt.Click
        xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
        xlApp.Visible = True
        xlApp.DisplayAlerts = True
        xlApp.Application.WindowState = xlMaximized
        xlBook = xlApp.Workbooks.Add
        xlSheet = NewMethod(xlBook)
        xlBook.Activate()
        xlSheet.Activate()

        xlSheet.Cells(1, 1) = "雅邸家具有限公司-營運費用收支明細表"
        xlSheet.Cells(2, 1) = "收支單號 "
        xlSheet.Cells(2, 2) = "申請人"
        xlSheet.Cells(2, 3) = "申請日期 "
        xlSheet.Cells(2, 4) = "審核人"
        xlSheet.Cells(2, 5) = "審核日期"
        xlSheet.Cells(2, 6) = "項次"
        xlSheet.Cells(2, 7) = "會計科目 "
        xlSheet.Cells(2, 8) = "用途與內容"
        xlSheet.Cells(2, 9) = "零用金"
        xlSheet.Cells(2, 10) = "支票"
        xlSheet.Cells(2, 11) = "現金"
        xlSheet.Cells(2, 12) = "支出"

        For i As Integer = 0 To 明細_dgv.Rows.Count - 1
            xlSheet.Cells(i + 3, 1) = 明細_dgv.Rows(i).Cells(表頭(107)).Value
            xlSheet.Cells(i + 3, 2) = 明細_dgv.Rows(i).Cells(表頭(19)).Value
            xlSheet.Cells(i + 3, 3) = 明細_dgv.Rows(i).Cells(表頭(20)).Value
            xlSheet.Cells(i + 3, 4) = 明細_dgv.Rows(i).Cells(表頭(120)).Value
            xlSheet.Cells(i + 3, 5) = 明細_dgv.Rows(i).Cells(表頭(121)).Value
            xlSheet.Cells(i + 3, 6) = 明細_dgv.Rows(i).Cells(表頭(11)).Value
            xlSheet.Cells(i + 3, 7) = 明細_dgv.Rows(i).Cells(表頭(98)).Value
            xlSheet.Cells(i + 3, 8) = 明細_dgv.Rows(i).Cells(表頭(122)).Value
            xlSheet.Cells(i + 3, 9) = 明細_dgv.Rows(i).Cells(表頭(112)).Value
            xlSheet.Cells(i + 3, 10) = 明細_dgv.Rows(i).Cells(表頭(111)).Value
            xlSheet.Cells(i + 3, 11) = 明細_dgv.Rows(i).Cells(表頭(39)).Value
            xlSheet.Cells(i + 3, 12) = 明細_dgv.Rows(i).Cells(表頭(112)).Value
            N2 = i + 3
        Next i

        xlSheet.Cells(N2 + 1, 8) = "合計"
        xlSheet.Cells(N2 + 1, 9) = "=SUM(I3:I" & N2 & ")"
        xlSheet.Cells(N2 + 1, 10) = "=SUM(J3:J" & N2 & ")"
        xlSheet.Cells(N2 + 1, 11) = "=SUM(K3:K" & N2 & ")"
        xlSheet.Cells(N2 + 1, 12) = "=SUM(L3:L" & N2 & ")"

        '--------------------------------------彙總-----------------------------
        xlSheet.Cells(N2 + 2, 8) = "彙總"
        xlSheet.Cells(N2 + 2, 9) = "=I" & N2 + 1 & "+J" & N2 + 1 & "+K" & N2 + 1 & "-L" & N2 + 1 & ""

        BB(xlApp, xlSheet)
        xlSheet.PageSetup.PrintArea = ""
        xlApp.Cells.Select()
        xlApp.Application.WindowState = xlMinimized
        MsgBox(對話框(2))
        'Me.Close()
    End Sub
    Private Sub BB(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.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 = 15
        xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 9
        xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 9
        xlSheet.Columns("D:D").Select : myExcel.Selection.ColumnWidth = 9
        xlSheet.Columns("E:E").Select : myExcel.Selection.ColumnWidth = 9
        xlSheet.Columns("F:F").Select : myExcel.Selection.ColumnWidth = 5
        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False
            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
        End With

        xlSheet.Columns("G:G").Select : myExcel.Selection.ColumnWidth = 20
        xlSheet.Columns("H:H").Select : myExcel.Selection.ColumnWidth = 35
        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("I:L").Select : myExcel.Selection.ColumnWidth = 9 : myExcel.Selection.Style = "Comma"
        myExcel.Selection.NumberFormatLocal = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
        myExcel.Selection.NumberFormatLocal = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
        xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 35
        xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 30
        With myExcel.Selection : .VerticalAlignment = xlTop : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0 : .ShrinkToFit = False
            .ReadingOrder = xlContext : .MergeCells = False
        End With

        myExcel.Selection.AutoFilter
        xlSheet.Rows("1:1").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:L1").Select()
        With myExcel.Selection
            .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
        End With
        myExcel.Selection.Merge
        xlSheet.Rows("3:3").Select : myExcel.ActiveWindow.FreezePanes = True : xlSheet.Range("A1:L2").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.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone

        With myExcel.Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
        End With

        With myExcel.Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
        End With

        With myExcel.Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
        End With
        With myExcel.Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
        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("A3:L" & N2).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.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With myExcel.Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
        End With
        With myExcel.Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
        End With
        With myExcel.Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
        End With
        With myExcel.Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium
        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("L2").Select() : myExcel.Selection.ClearContents
        xlSheet.Range("L2").Select() : myExcel.Selection.ClearContents

        xlSheet.Range("A2:L2").Select()
        With myExcel.Selection
            .HorizontalAlignment = xlCenter : .VerticalAlignment = xlTop : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False
        End With
        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
        With myExcel.Selection.Font
            .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
        End With
        With myExcel.Selection.Interior
            .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent6 : .TintAndShade = 0 : .PatternTintAndShade = 0
        End With
        xlSheet.Range("A1:L1").Select() : myExcel.Selection.Font.Size = 11
        With myExcel.Selection.Font
            .Name = "微軟正黑體" : .Size = 22 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
            .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
        End With
    End Sub
End Class