GF00-ERP-SYS-SIU/GF00-ERP-SYS/06.業務管理系統/車輛/車輛銷售管理.vb


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 Microsoft.Office.Interop.Excel
Imports System.Data.SqlClient
Imports System.Text.RegularExpressions
Imports System.IO
Imports Microsoft.Office.Interop

Public Class 車輛銷售管理

    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : Dim 新流水1 As String : Dim 新項次 As String
    Dim NUM1, NUM2 As Integer : ReadOnly ds2 As New DataSet : Dim 上次的流水號 As String : Dim index As Integer
    Dim boo As Boolean : Dim boo1 As Boolean : Dim boo2 As Boolean : ReadOnly ds3 As New DataSet
    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
    Dim N2 As Integer : Dim N3 As Integer

    Private Sub 車輛銷售管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If CC(104) = False Then
            車廠型態 = False
        Else
            線路選擇.ShowDialog() : 線路選擇.BringToFront()
        End If
        ICS_ASMS_ERP_SYS.WindowState = 2
        Me.MdiParent = ICS_ASMS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        選擇日期_dtp.CustomFormat = "yyyy/MM/dd"
        選擇日期_dtp.Format = DateTimePickerFormat.Custom
        選擇供應商_cb.Items.Add("")
        SQL_物料資料庫_供應商_下拉清單()
        While (dr.Read()) : 選擇供應商_cb.Items.Add(dr("公司名")) : End While : conn.Close()
        利潤率.Value = 20
        SQL_讀取公司名稱()
        If dr.Read() Then
            公司名稱.Text = dr("公司名稱")
        End If
        conn.Close()
        If 車廠型態 = True Then
            狀態 = "車輛買賣"
            Panel4.Visible = True
            Panel6.Visible = False
            Panel2.Visible = True
            Panel5.Visible = False
            只顯示未付款_cb.Visible = False
        Else
            狀態 = "保養維修"
            Panel4.Visible = False
            Panel6.Visible = True
            Panel2.Visible = False
            Panel5.Visible = True
            只顯示未付款_cb.Visible = True
        End If
        SQL_車輛銷售管理_讀取列印資訊()
        If dr.Read() Then
            註解1_tb.Text = If(Not IsDBNull(dr("列印1")), dr("列印1").ToString(), "")
            註解2_tb.Text = If(Not IsDBNull(dr("列印2")), dr("列印2").ToString(), "")
            註解3_tb.Text = If(Not IsDBNull(dr("列印3")), dr("列印3").ToString(), "")
            註解4_tb.Text = If(Not IsDBNull(dr("列印4")), dr("列印4").ToString(), "")
        End If
        確認新增_bt.Enabled = False : Set_清單1() : Set_清單2()
    End Sub
    Private Sub Set_清單1()
        控制表_dgv.DataSource = Nothing : ds1.Clear()
        控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        控制表_dgv.ColumnHeadersHeight = 25
        控制表_dgv.AllowUserToAddRows = False
        控制表_dgv.RowTemplate.Height = 30
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        If 只顯示未付款_cb.Checked = True Then
            PA55 = " AND 買入進價 = 0"
        Else
            PA55 = ""
        End If
        SQL_車輛銷售管理_控制表清單()
        da.Fill(ds1) : 控制表_dgv.DataSource = ds1.Tables(0) : conn.Close()
        控制表_dgv.Columns(5).FillWeight = 60 : 控制表_dgv.Columns(7).FillWeight = 40
        If 車廠型態 = True Then
            控制表_dgv.Columns(24).FillWeight = 20
        Else
            控制表_dgv.Columns(24).Visible = False
        End If
        Dim newFont As New System.Drawing.Font("微軟正黑體", 9) ' 創建一個新字體，Arial 12pt
        控制表_dgv.RowsDefaultCellStyle.Font = newFont

        控制表_dgv.Columns(1).Visible = False : 控制表_dgv.Columns(2).Visible = False
        控制表_dgv.Columns(3).Visible = False : 控制表_dgv.Columns(4).Visible = False
        控制表_dgv.Columns(6).Visible = False : 控制表_dgv.Columns(0).Visible = False : 控制表_dgv.Columns(8).Visible = False
        控制表_dgv.Columns(9).Visible = False : 控制表_dgv.Columns(10).Visible = False : 控制表_dgv.Columns(11).Visible = False
        控制表_dgv.Columns(12).Visible = False
        控制表_dgv.Columns(13).Visible = False : 控制表_dgv.Columns(14).Visible = False : 控制表_dgv.Columns(15).Visible = False
        控制表_dgv.Columns(16).Visible = False : 控制表_dgv.Columns(17).Visible = False : 控制表_dgv.Columns(18).Visible = False
        控制表_dgv.Columns(19).Visible = False : 控制表_dgv.Columns(20).Visible = False : 控制表_dgv.Columns(21).Visible = False
        控制表_dgv.Columns(22).Visible = False : 控制表_dgv.Columns(23).Visible = False
        控制表_dgv.Columns(25).Visible = False : 控制表_dgv.Columns(26).Visible = False
        For i As Integer = 0 To 控制表_dgv.Rows.Count - 1
            If Not DBNull.Value.Equals(控制表_dgv.Rows(i).Cells("買入進價").Value) Then

            Else
                控制表_dgv.Rows(i).Cells("買入進價").Value = 0
            End If
            If Not DBNull.Value.Equals(控制表_dgv.Rows(i).Cells("賣出售價").Value) Then

            Else
                控制表_dgv.Rows(i).Cells("賣出售價").Value = 0
            End If
            If Not DBNull.Value.Equals(控制表_dgv.Rows(i).Cells("買入總成本").Value) Then

            Else
                控制表_dgv.Rows(i).Cells("買入總成本").Value = 0
            End If
        Next


    End Sub
    Private Sub Set_清單2()

        物料_dgv.DataSource = Nothing : ds.Clear()
        物料_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        物料_dgv.ColumnHeadersHeight = 25
        物料_dgv.AllowUserToAddRows = False
        物料_dgv.RowTemplate.Height = 30
        物料_dgv.DefaultCellStyle.Font = SystemFonts.DefaultFont
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If

        SQL_車輛銷售管理_物料清單(選擇供應商_cb.Text)
        da.Fill(ds) : 物料_dgv.DataSource = ds.Tables(0) : conn.Close()
        Dim newFont As New System.Drawing.Font("微軟正黑體", 9) ' 創建一個新字體，Arial 12pt
        物料_dgv.RowsDefaultCellStyle.Font = newFont
        物料_dgv.Columns(1).FillWeight = 55 : 物料_dgv.Columns(3).FillWeight = 30
        物料_dgv.Columns(0).Visible = False : 物料_dgv.Columns(2).FillWeight = 15 : 物料_dgv.Columns(4).Visible = False
        If 顯示成本_cb.Checked = True Then
            物料_dgv.Columns(5).FillWeight = 30
            物料_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.##"
            物料_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            物料_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Else
            物料_dgv.Columns(5).Visible = False
        End If

    End Sub

    Private Sub Set_清單3()

        If 車廠型態 = True Then
            明細表_dgv.DataSource = Nothing : ds2.Clear()
            明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            明細表_dgv.ColumnHeadersHeight = 25
            明細表_dgv.AllowUserToAddRows = False
            明細表_dgv.RowTemplate.Height = 35
            明細表_dgv.EditMode = DataGridViewEditMode.EditOnEnter


            SQL_車輛銷售管理_查詢明細表() : da.Fill(ds2) : 明細表_dgv.DataSource = ds2.Tables(0) : conn.Close()
            For Each row As DataGridViewRow In 明細表1_dgv.Rows
                row.Height = 30 ' 將每一列的高度設為 40 像素
            Next
            Dim newFont As New System.Drawing.Font("微軟正黑體", 9) ' 創建一個新字體，Arial 12pt
            明細表1_dgv.RowsDefaultCellStyle.Font = newFont
            明細表_dgv.Columns("總售價").ReadOnly = True : 明細表_dgv.Columns("項次").ReadOnly = True : 明細表_dgv.Columns("總成本").ReadOnly = True
            明細表_dgv.Columns("利潤").ReadOnly = True : 明細表_dgv.Columns("已儲存").ReadOnly = True
            明細表_dgv.Columns(0).Visible = False : 明細表_dgv.Columns(1).FillWeight = 60 : 明細表_dgv.Columns(2).FillWeight = 400 : 明細表_dgv.Columns(3).FillWeight = 60
            明細表_dgv.Columns(5).FillWeight = 100 : 明細表_dgv.Columns(7).Visible = 100
            明細表_dgv.Columns(9).Visible = 300 : 明細表_dgv.Columns(10).Visible = False : 明細表_dgv.Columns(11).Visible = False
            明細表_dgv.Columns(12).FillWeight = 60 : 明細表_dgv.Columns(13).Visible = 100
            If 隱藏成本_cb.Checked = True Then
                明細表_dgv.Columns(4).Visible = False
                明細表_dgv.Columns(6).Visible = False
                明細表_dgv.Columns(8).Visible = False
            Else
                明細表_dgv.Columns(4).FillWeight = 100 : 明細表_dgv.Columns(6).FillWeight = 100 : 明細表_dgv.Columns(8).Visible = 100
                明細表_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.##"
                明細表_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.##"
                明細表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0.##"
                明細表_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
                明細表_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
                明細表_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
                明細表_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
                明細表_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
                明細表_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
            End If
            明細表_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.##" : 明細表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.##"
            明細表_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細表_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細表_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細表_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細表_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            明細表_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
            明細表_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            明細表_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight


            For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
                If 明細表_dgv.Rows(i).Cells("成本").Value Is Nothing OrElse IsDBNull(明細表_dgv.Rows(i).Cells("成本").Value) Then
                    ' 如果成本為 NULL，設置為 0
                    明細表_dgv.Rows(i).Cells("成本").Value = 0
                End If
            Next
            Dim NUM2, NUM3 As Integer
            For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
                明細表_dgv.Rows(i).Cells("總售價").Value = 明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("售價").Value
                明細表_dgv.Rows(i).Cells("總成本").Value = 明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("成本").Value
                明細表_dgv.Rows(i).Cells("利潤").Value = (明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("售價").Value) - (明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("成本").Value)
                NUM2 += 明細表_dgv.Rows(i).Cells("總售價").Value
                NUM3 += 明細表_dgv.Rows(i).Cells("總成本").Value
            Next
            支出合計_tb.Text = Strings.Format(Val(NUM2), "#,##0")
            總成本_tb.Text = Strings.Format(Val(NUM3), "#,##0")

        Else
            明細表1_dgv.DataSource = Nothing : ds2.Clear()
            明細表1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            明細表1_dgv.ColumnHeadersHeight = 25
            明細表1_dgv.AllowUserToAddRows = False
            明細表1_dgv.RowTemplate.Height = 35
            明細表1_dgv.EditMode = DataGridViewEditMode.EditOnEnter
            SQL_車輛銷售管理_查詢明細表() : da.Fill(ds2) : 明細表1_dgv.DataSource = ds2.Tables(0) : conn.Close()
            For Each row As DataGridViewRow In 明細表1_dgv.Rows
                row.Height = 30 ' 將每一列的高度設為 40 像素
            Next
            Dim newFont As New System.Drawing.Font("微軟正黑體", 9) ' 創建一個新字體，Arial 12pt
            明細表1_dgv.RowsDefaultCellStyle.Font = newFont

            明細表1_dgv.Columns("總售價").ReadOnly = True : 明細表1_dgv.Columns("項次").ReadOnly = True : 明細表1_dgv.Columns("總成本").ReadOnly = True
            明細表1_dgv.Columns("利潤").ReadOnly = True : 明細表1_dgv.Columns("已儲存").ReadOnly = True
            明細表1_dgv.Columns(0).Visible = False : 明細表1_dgv.Columns(1).FillWeight = 60 : 明細表1_dgv.Columns(2).FillWeight = 400 : 明細表1_dgv.Columns(3).FillWeight = 60
            明細表1_dgv.Columns(5).FillWeight = 100 : 明細表1_dgv.Columns(7).Visible = 100
            明細表1_dgv.Columns(9).Visible = 300 : 明細表1_dgv.Columns(10).Visible = False : 明細表1_dgv.Columns(11).Visible = False
            明細表1_dgv.Columns(12).FillWeight = 60 : 明細表1_dgv.Columns(13).Visible = 100
            If 隱藏成本_cb.Checked = True Then
                明細表1_dgv.Columns(4).FillWeight = 100 : 明細表1_dgv.Columns(6).FillWeight = 100 : 明細表1_dgv.Columns(8).Visible = 100
                明細表1_dgv.Columns(6).DefaultCellStyle.Format = "#,##0.##"
                明細表1_dgv.Columns(4).DefaultCellStyle.Format = "#,##0.##"
                明細表1_dgv.Columns(8).DefaultCellStyle.Format = "#,##0.##"
                明細表1_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
                明細表1_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
                明細表1_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
                明細表1_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
                明細表1_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
                明細表1_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
            Else
                明細表1_dgv.Columns(4).Visible = False
                明細表1_dgv.Columns(6).Visible = False
                明細表1_dgv.Columns(8).Visible = False
            End If
            明細表1_dgv.Columns(7).DefaultCellStyle.Format = "#,##0.##" : 明細表1_dgv.Columns(5).DefaultCellStyle.Format = "#,##0.##"
            明細表1_dgv.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細表1_dgv.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細表1_dgv.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細表1_dgv.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            明細表1_dgv.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            明細表1_dgv.Columns(5).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
            明細表1_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            明細表1_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

            Dim NUM1 As Integer = 0
            Dim NUM2 As Integer = 0
            For i As Integer = 0 To 明細表1_dgv.Rows.Count - 1
                明細表1_dgv.Rows(i).Cells("總售價").Value = 明細表1_dgv.Rows(i).Cells("數量").Value * 明細表1_dgv.Rows(i).Cells("售價").Value
                明細表1_dgv.Rows(i).Cells("總成本").Value = 明細表1_dgv.Rows(i).Cells("數量").Value * 明細表1_dgv.Rows(i).Cells("成本").Value
                明細表1_dgv.Rows(i).Cells("利潤").Value = (明細表1_dgv.Rows(i).Cells("數量").Value * 明細表1_dgv.Rows(i).Cells("售價").Value) - (明細表1_dgv.Rows(i).Cells("數量").Value * 明細表1_dgv.Rows(i).Cells("成本").Value)
                If 明細表1_dgv.Rows(i).Cells("狀態").Value <> "承修項目" Then
                    NUM1 += 明細表1_dgv.Rows(i).Cells("總售價").Value
                Else
                    NUM2 += 明細表1_dgv.Rows(i).Cells("總售價").Value
                End If
            Next
            零件_tb.Text = Strings.Format(Val(NUM1), "#,##0")
            工資_tb.Text = Strings.Format(Val(NUM2), "#,##0")
            總計_tb.Text = Strings.Format(Val(NUM1 + NUM2), "#,##0")

            If 是否收稅_cb.Checked = True Then
                稅金_tb.Text = Strings.Format(Val((NUM1 + NUM2) * 0.05), "#,##0")
                應收合計_tb.Text = Strings.Format(Val(NUM1 + NUM2 + ((NUM1 + NUM2) * 0.05)), "#,##0")
                總計_tb.Text = Strings.Format(Val(NUM1 + NUM2 + ((NUM1 + NUM2) * 0.05)), "#,##0")
            Else
                稅金_tb.Text = "0"
                應收合計_tb.Text = Strings.Format(Val(NUM1 + NUM2), "#,##0")
            End If


        End If



    End Sub
    Private Sub 是否收稅_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 是否收稅_cb.CheckedChanged
        Dim NUM1, NUM2 As Integer

        If 總計_tb.Text <> "" Then
            NUM1 = 總計_tb.Text
            NUM2 = NUM1 * 0.05
            If 是否收稅_cb.Checked = True Then
                稅金_tb.Text = Strings.Format(Val(NUM2), "#,##0")
                應收合計_tb.Text = Strings.Format(Val(NUM1 + NUM2), "#,##0")
                總計_tb.Text = Strings.Format(Val(NUM1 + NUM2), "#,##0")
            Else
                稅金_tb.Text = "0"
                應收合計_tb.Text = Strings.Format(Val(NUM1), "#,##0")
            End If
        End If

    End Sub
    Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        Set_日期格式轉換() : Dim NUM1 As Integer
        新增_bt.Enabled = False : 確認新增_bt.Enabled = True : 修改_bt.Enabled = False
        入廠日期_dtp.Value = DTP4
        For i As Integer = 1 To 999
            NUM1 = 0 + i
            If NUM1 < 10 Then : 單號_tb.Text = "CR-" & DTP1 & "-00" & NUM1
            ElseIf NUM1 > 9 And NUM1 < 100 Then : 單號_tb.Text = "CR-" & DTP1 & "-0" & NUM1
            ElseIf NUM1 > 99 Then : 單號_tb.Text = "CR-" & DTP1 & "-" & NUM1 : End If
            PA = 單號_tb.Text : SQL_車輛銷售管理_單號查詢()
            If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
        Next
        If 車廠型態 = True Then
            CHB("請輸入車牌號碼") : 買入牌照號碼_tb.Text = 訊息回應
            CHB("請輸入姓名") : 買入車主名稱_tb.Text = 訊息回應
            If (買入牌照號碼_tb.Text = "" And 買入車主名稱_tb.Text = "") Then
                單號_tb.Text = "" : 買入牌照號碼_tb.Text = "" : 買入車主名稱_tb.Text = ""
                新增_bt.Enabled = True : 確認新增_bt.Enabled = False : 修改_bt.Enabled = True
                MsgBox("未輸入資料!!")

                Return
            Else
                SQL_車輛銷售管理_重複查詢()
                If dr.Read() Then
                    conn.Close()
                    單號_tb.Text = "" : 買入牌照號碼_tb.Text = "" : 買入車主名稱_tb.Text = ""
                    新增_bt.Enabled = True : 確認新增_bt.Enabled = False : 修改_bt.Enabled = True
                    MsgBox("重複資料!!")
                    Return
                End If
            End If

            conn.Close()
            進價_tb.Text = "0" : 售價_tb.Text = "0" : 總成本_tb.Text = "0" : 支出合計_tb.Text = "0"
            廠牌_tb.Text = "" : 年分_tb.Text = "" : 引擎_tb.Text = "" : 總利潤_tb.Text = "0"
            買入顏色_tb.Text = ""
            買入車主電話_tb.Text = "" : 買入車主地址_tb.Text = "" : 買入經手人_tb.Text = ""
            賣出牌照號碼_tb.Text = "" : 賣出顏色_tb.Text = "" : 賣出車主名稱_tb.Text = ""
            賣出車主電話_tb.Text = "" : 賣出車主地址_tb.Text = "" : 賣出經手人_tb.Text = "" : 備註_tb.Text = ""
            進廠里程_tb.Text = "" : 出廠里程_tb.Text = ""
            檢測日期_dtp.Format = DateTimePickerFormat.Custom : 檢測日期_dtp.CustomFormat = " "
            買入日期_dtp.Format = DateTimePickerFormat.Custom : 買入日期_dtp.CustomFormat = " "
            賣出日期_dtp.Format = DateTimePickerFormat.Custom : 賣出日期_dtp.CustomFormat = " "
            料號_tb.Text = "" : 品名.Text = "" : 成本.Text = "" : 利潤率.Value = 20 : 已交車_cb.Checked = False : 狀態_tb.Text = ""

        Else
            出險公司_tb.Text = "" : 車主名稱_tb.Text = "" : 車號_tb.Text = "" : 地址_tb.Text = "" : 電話_tb.Text = ""
            車型_tb.Text = "" : 保養預示_tb.Text = "" : 里程_tb.Text = "" : 廠牌_tb.Text = "" : 廠牌_tb.Text = "" : 引擎號碼1_tb.Text = ""
            應驗車日_dtp.Format = DateTimePickerFormat.Custom : 應驗車日_dtp.CustomFormat = " " : 輪胎尺寸_tb.Text = "" : 年_tb.Text = ""
            入廠日期_dtp.CustomFormat = "yyyy/MM/dd" : 備註1_tb.Text = ""
            入廠日期_dtp.Format = DateTimePickerFormat.Custom
            工資_tb.Text = "0" : 零件_tb.Text = "0" : 總計_tb.Text = "0" : 稅金_tb.Text = "0"
            信用卡_tb.Text = "0" : 應收合計_tb.Text = "0" : 賒帳_tb.Text = "0" : 支票_tb.Text = "0"
            現金_tb.Text = "0"
        End If

        SQL_車輛銷售管理_控制表新增() : Set_清單3()
    End Sub
    Private Sub Set_日期格式轉換()
        Dim selectedDate As DateTime = 選擇日期_dtp.Value
        DTP4 = Strings.Format(selectedDate, "yyyy/MM/dd") : DTP1 = Strings.Format(selectedDate, "yyyyMMdd")
    End Sub

    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        CHB("請輸入要查詢的單號資料。") : PA56 = 訊息回應 : Set_清單1() : PA56 = ""
    End Sub
    Private Sub 查詢物_bt_Click(sender As Object, e As EventArgs) Handles 查詢物_bt.Click
        CHB("請輸入要查詢的關鍵字。") : PA56 = 訊息回應 : Set_清單2() : PA56 = ""
    End Sub
    Private Sub 確認新增_bt_Click(sender As Object, e As EventArgs) Handles 確認新增_bt.Click


        If 車廠型態 = True Then
            If 買入車主名稱_tb.Text = "" Or 買入牌照號碼_tb.Text = "" Then
                MsgBox("資料未輸入完成!!")
            Else
                新增_bt.Enabled = True : 確認新增_bt.Enabled = False : 修改_bt.Enabled = True

                If 買入車主名稱_tb.Text <> "" And 買入牌照號碼_tb.Text <> "" Then
                    SQL_車輛銷售管理_查詢客戶資料()
                    If dr.Read() Then
                        SQL_車輛銷售管理_修改客戶資料()
                    Else
                        SQL_客戶資料表_最後一筆資料()
                        If dr.Read() Then : 供應商編號_tb.Text = dr("流水號").ToString : Else : 供應商編號_tb.Text = "CL00000" : End If
                        conn.Close()
                        Dim NUM1 As Integer
                        NUM1 = Double.Parse(Strings.Right(供應商編號_tb.Text, 5)) + 1
                        If NUM1 < 10 Then : 供應商編號_tb.Text = "CL" & "0000" & NUM1
                        ElseIf NUM1 > 9 And NUM1 < 100 Then : 供應商編號_tb.Text = "CL" & "000" & NUM1
                        ElseIf NUM1 > 99 And NUM1 < 1000 Then : 供應商編號_tb.Text = "CL" & "00" & NUM1
                        ElseIf NUM1 > 999 And NUM1 < 10000 Then : 供應商編號_tb.Text = "CL" & "0" & NUM1
                        ElseIf NUM1 > 9999 And NUM1 < 100000 Then : 供應商編號_tb.Text = "CL" & NUM1 : End If
                        SQL_車輛銷售管理_新增客戶資料() : conn.Close()
                    End If
                End If

                If 賣出車主名稱_tb.Text <> "" And 賣出牌照號碼_tb.Text <> "" Then
                    SQL_車輛銷售管理_查詢客戶資料1()
                    If dr.Read() Then
                        SQL_車輛銷售管理_修改客戶資料1()
                    Else
                        SQL_客戶資料表_最後一筆資料()
                        If dr.Read() Then : 供應商編號_tb.Text = dr("流水號").ToString : Else : 供應商編號_tb.Text = "CL00000" : End If
                        conn.Close()
                        Dim NUM1 As Integer
                        NUM1 = Double.Parse(Strings.Right(供應商編號_tb.Text, 5)) + 1
                        If NUM1 < 10 Then : 供應商編號_tb.Text = "CL" & "0000" & NUM1
                        ElseIf NUM1 > 9 And NUM1 < 100 Then : 供應商編號_tb.Text = "CL" & "000" & NUM1
                        ElseIf NUM1 > 99 And NUM1 < 1000 Then : 供應商編號_tb.Text = "CL" & "00" & NUM1
                        ElseIf NUM1 > 999 And NUM1 < 10000 Then : 供應商編號_tb.Text = "CL" & "0" & NUM1
                        ElseIf NUM1 > 9999 And NUM1 < 100000 Then : 供應商編號_tb.Text = "CL" & NUM1 : End If
                        SQL_車輛銷售管理_新增客戶資料1() : conn.Close()
                    End If
                End If

                SQL_車輛銷售管理_控制表修改() : conn.Close() : MsgBox("儲存成功!!") : Set_清單1()
            End If
            If 登入人級別 <> "00" Then
                If 已交車_cb.Checked = True Then
                    修改_bt.Enabled = False : 刪除_bt.Enabled = False : 查詢1_bt.Enabled = False : 查詢2_bt.Enabled = False
                    收支單中新增一筆資料_bt.Enabled = False : 收支單中新增一筆空白資料_bt.Enabled = False : 刪除選中的一筆資料_bt.Enabled = False
                    申請_bt.Enabled = False
                Else
                    修改_bt.Enabled = True : 刪除_bt.Enabled = True : 查詢1_bt.Enabled = True : 查詢2_bt.Enabled = True
                    收支單中新增一筆資料_bt.Enabled = True : 收支單中新增一筆空白資料_bt.Enabled = True : 刪除選中的一筆資料_bt.Enabled = True
                    申請_bt.Enabled = True
                End If
            End If
        Else
            新增_bt.Enabled = True : 確認新增_bt.Enabled = False : 修改_bt.Enabled = True

            If 車主名稱_tb.Text <> "" And 車號_tb.Text <> "" Then
                SQL_車輛銷售管理_查詢客戶資料()
                If dr.Read() Then
                    SQL_車輛銷售管理_修改客戶資料()
                Else
                    SQL_客戶資料表_最後一筆資料()
                    If dr.Read() Then : 供應商編號_tb.Text = dr("流水號").ToString : Else : 供應商編號_tb.Text = "CL00000" : End If
                    conn.Close()
                    Dim NUM1 As Integer
                    NUM1 = Double.Parse(Strings.Right(供應商編號_tb.Text, 5)) + 1
                    If NUM1 < 10 Then : 供應商編號_tb.Text = "CL" & "0000" & NUM1
                    ElseIf NUM1 > 9 And NUM1 < 100 Then : 供應商編號_tb.Text = "CL" & "000" & NUM1
                    ElseIf NUM1 > 99 And NUM1 < 1000 Then : 供應商編號_tb.Text = "CL" & "00" & NUM1
                    ElseIf NUM1 > 999 And NUM1 < 10000 Then : 供應商編號_tb.Text = "CL" & "0" & NUM1
                    ElseIf NUM1 > 9999 And NUM1 < 100000 Then : 供應商編號_tb.Text = "CL" & NUM1 : End If
                    SQL_車輛銷售管理_新增客戶資料() : conn.Close()
                End If
            End If

            SQL_車輛銷售管理_控制表修改() : conn.Close() : MsgBox("儲存成功!!") : Set_清單1()
        End If


    End Sub
    Private Sub 控制表_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 控制表_dgv.CellClick
        boo1 = True
        If e.RowIndex = -1 Then : Else
            If 車廠型態 = True Then
                總利潤_tb.Text = "0"
                單號_tb.Text = 控制表_dgv(0, e.RowIndex).Value.ToString : 廠牌_tb.Text = 控制表_dgv(1, e.RowIndex).Value.ToString
                年分_tb.Text = 控制表_dgv(2, e.RowIndex).Value.ToString : 引擎_tb.Text = 控制表_dgv(3, e.RowIndex).Value.ToString
                買入牌照號碼_tb.Text = 控制表_dgv(5, e.RowIndex).Value.ToString
                買入顏色_tb.Text = 控制表_dgv(6, e.RowIndex).Value.ToString : 買入車主名稱_tb.Text = 控制表_dgv(7, e.RowIndex).Value.ToString
                買入車主電話_tb.Text = 控制表_dgv(8, e.RowIndex).Value.ToString : 買入車主地址_tb.Text = 控制表_dgv(9, e.RowIndex).Value.ToString
                進價_tb.Text = Strings.Format(Val(控制表_dgv(10, e.RowIndex).Value), "#,##0") : 買入經手人_tb.Text = 控制表_dgv(11, e.RowIndex).Value.ToString
                賣出牌照號碼_tb.Text = 控制表_dgv(15, e.RowIndex).Value.ToString
                賣出顏色_tb.Text = 控制表_dgv(16, e.RowIndex).Value.ToString : 賣出車主名稱_tb.Text = 控制表_dgv(17, e.RowIndex).Value.ToString
                賣出車主電話_tb.Text = 控制表_dgv(18, e.RowIndex).Value.ToString : 賣出車主地址_tb.Text = 控制表_dgv(19, e.RowIndex).Value.ToString
                利潤率.Value = Strings.Format(Val(控制表_dgv(13, e.RowIndex).Value)) : 賣出經手人_tb.Text = 控制表_dgv(21, e.RowIndex).Value.ToString
                備註_tb.Text = 控制表_dgv(22, e.RowIndex).Value.ToString : 售價_tb.Text = Strings.Format(Val(控制表_dgv(20, e.RowIndex).Value), "#,##0")
                進廠里程_tb.Text = 控制表_dgv(25, e.RowIndex).Value.ToString : 出廠里程_tb.Text = 控制表_dgv(26, e.RowIndex).Value.ToString
                If 控制表_dgv(24, e.RowIndex).Value IsNot DBNull.Value Then
                    已交車_cb.Checked = 控制表_dgv(24, e.RowIndex).Value
                Else
                    已交車_cb.Checked = False
                End If
                Dim value As String = 控制表_dgv(14, e.RowIndex).Value.ToString
                Dim value1 As String = 控制表_dgv(23, e.RowIndex).Value.ToString
                Dim value2 As String = 控制表_dgv(4, e.RowIndex).Value.ToString
                If value.Length < 5 Then
                    賣出日期_dtp.Format = DateTimePickerFormat.Custom : 賣出日期_dtp.CustomFormat = " "
                Else
                    賣出日期_dtp.Text = 控制表_dgv(14, e.RowIndex).Value.ToString
                    賣出日期_dtp.CustomFormat = "yyyy/MM/dd"
                    賣出日期_dtp.Format = DateTimePickerFormat.Custom
                End If

                If value1.Length < 5 Then
                    檢測日期_dtp.Format = DateTimePickerFormat.Custom : 檢測日期_dtp.CustomFormat = " "
                Else
                    檢測日期_dtp.Text = 控制表_dgv(23, e.RowIndex).Value.ToString
                    檢測日期_dtp.CustomFormat = "yyyy/MM/dd"
                    檢測日期_dtp.Format = DateTimePickerFormat.Custom
                End If

                If value2.Length < 5 Then
                    買入日期_dtp.Format = DateTimePickerFormat.Custom : 買入日期_dtp.CustomFormat = " "
                Else
                    買入日期_dtp.Text = 控制表_dgv(4, e.RowIndex).Value.ToString
                    買入日期_dtp.CustomFormat = "yyyy/MM/dd"
                    買入日期_dtp.Format = DateTimePickerFormat.Custom
                End If

            Else

                信用卡_tb.Text = "0" : 現金_tb.Text = "0" : 賒帳_tb.Text = "0" : 支票_tb.Text = "0"
                單號_tb.Text = 控制表_dgv(0, e.RowIndex).Value.ToString
                車號_tb.Text = 控制表_dgv(5, e.RowIndex).Value.ToString
                車主名稱_tb.Text = 控制表_dgv(7, e.RowIndex).Value.ToString
                電話_tb.Text = 控制表_dgv(8, e.RowIndex).Value.ToString : 地址_tb.Text = 控制表_dgv(9, e.RowIndex).Value.ToString
                里程_tb.Text = 控制表_dgv(25, e.RowIndex).Value.ToString : 保養預示_tb.Text = 控制表_dgv(26, e.RowIndex).Value.ToString
                引擎號碼1_tb.Text = 控制表_dgv(3, e.RowIndex).Value.ToString
                賒帳_tb.Text = 控制表_dgv(19, e.RowIndex).Value.ToString
                出險公司_tb.Text = 控制表_dgv(11, e.RowIndex).Value.ToString : 車型_tb.Text = 控制表_dgv(1, e.RowIndex).Value.ToString
                年_tb.Text = 控制表_dgv(2, e.RowIndex).Value.ToString : 輪胎尺寸_tb.Text = 控制表_dgv(6, e.RowIndex).Value.ToString

                SQL_車輛銷售管理_車號備註查詢()
                If dr.Read() Then : 備註1_tb.Text = dr("備註").ToString : End If
                conn.Close()

                If (控制表_dgv(20, e.RowIndex).Value) Is Nothing OrElse IsDBNull(控制表_dgv(20, e.RowIndex).Value) Then
                    ' 如果成本為 NULL，設置為 0
                    現金_tb.Text = "0"
                Else
                    現金_tb.Text = Strings.Format(Val(控制表_dgv(20, e.RowIndex).Value), "#,##0")
                End If
                If (控制表_dgv(12, e.RowIndex).Value) Is Nothing OrElse IsDBNull(控制表_dgv(12, e.RowIndex).Value) Then
                    ' 如果成本為 NULL，設置為 0
                    支票_tb.Text = "0"
                Else
                    支票_tb.Text = Strings.Format(Val(控制表_dgv(12, e.RowIndex).Value), "#,##0")
                End If
                If (控制表_dgv(13, e.RowIndex).Value) Is Nothing OrElse IsDBNull(控制表_dgv(13, e.RowIndex).Value) Then
                    ' 如果成本為 NULL，設置為 0
                    信用卡_tb.Text = "0"
                Else
                    信用卡_tb.Text = Strings.Format(Val(控制表_dgv(13, e.RowIndex).Value), "#,##0")
                End If


                Dim 現金, 支票, 信用卡 As Double
                If Double.TryParse(現金_tb.Text, 現金) AndAlso Double.TryParse(支票_tb.Text, 支票) AndAlso Double.TryParse(信用卡_tb.Text, 信用卡) Then
                    全部_tb.Text = (現金 + 支票 + 信用卡).ToString()
                End If

                If 控制表_dgv(24, e.RowIndex).Value IsNot DBNull.Value Then
                    是否收稅_cb.Checked = 控制表_dgv(24, e.RowIndex).Value
                Else
                    是否收稅_cb.Checked = False
                End If
                Dim value As String = 控制表_dgv(14, e.RowIndex).Value.ToString
                Dim value1 As String = 控制表_dgv(23, e.RowIndex).Value.ToString
                Dim value2 As String = 控制表_dgv(4, e.RowIndex).Value.ToString

                If value1.Length < 5 Then
                    應驗車日_dtp.Format = DateTimePickerFormat.Custom : 應驗車日_dtp.CustomFormat = " "
                Else
                    應驗車日_dtp.Text = 控制表_dgv(23, e.RowIndex).Value.ToString
                    應驗車日_dtp.CustomFormat = "yyyy/MM/dd"
                    應驗車日_dtp.Format = DateTimePickerFormat.Custom
                End If

                If value2.Length < 5 Then
                    入廠日期_dtp.Format = DateTimePickerFormat.Custom : 入廠日期_dtp.CustomFormat = " "
                Else
                    入廠日期_dtp.Text = 控制表_dgv(4, e.RowIndex).Value.ToString
                    入廠日期_dtp.CustomFormat = "yyyy/MM/dd"
                    入廠日期_dtp.Format = DateTimePickerFormat.Custom
                End If

            End If

            流水號_tb.Text = "" : Set_清單3()
        End If

        If 車廠型態 = True Then
            If 登入人級別 <> "00" Then
                If 已交車_cb.Checked = True Then
                    修改_bt.Enabled = False : 刪除_bt.Enabled = False : 查詢1_bt.Enabled = False : 查詢2_bt.Enabled = False
                    收支單中新增一筆資料_bt.Enabled = False : 收支單中新增一筆空白資料_bt.Enabled = False : 刪除選中的一筆資料_bt.Enabled = False
                    申請_bt.Enabled = False
                Else
                    修改_bt.Enabled = True : 刪除_bt.Enabled = True : 查詢1_bt.Enabled = True : 查詢2_bt.Enabled = True
                    收支單中新增一筆資料_bt.Enabled = True : 收支單中新增一筆空白資料_bt.Enabled = True : 刪除選中的一筆資料_bt.Enabled = True
                    申請_bt.Enabled = True
                End If
            End If
        End If



        boo1 = False
    End Sub

    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        新增_bt.Enabled = True : 確認新增_bt.Enabled = False
        SQL_車輛銷售管理_控制表刪除() : SQL_車輛銷售管理_明細表刪除() : SQL_車輛銷售管理_倉儲明細表刪除() : conn.Close() : MsgBox("刪除成功") : Set_清單1() : Set_清單3()
        單號_tb.Text = "" : 廠牌_tb.Text = ""
        年分_tb.Text = "" : 引擎_tb.Text = ""
        買入牌照號碼_tb.Text = ""
        買入顏色_tb.Text = "" : 買入車主名稱_tb.Text = ""
        買入車主電話_tb.Text = "" : 買入車主地址_tb.Text = ""
        進價_tb.Text = "" : 買入經手人_tb.Text = ""
        支出合計_tb.Text = "" : 總成本_tb.Text = ""
        賣出牌照號碼_tb.Text = ""
        賣出顏色_tb.Text = "" : 賣出車主名稱_tb.Text = ""
        賣出車主電話_tb.Text = "" : 賣出車主地址_tb.Text = ""
        售價_tb.Text = "" : 賣出經手人_tb.Text = ""
        備註_tb.Text = "" : 引擎號碼1_tb.Text = ""
        進廠里程_tb.Text = "" : 出廠里程_tb.Text = ""
        檢測日期_dtp.CustomFormat = "yyyy/MM/dd"
        檢測日期_dtp.Format = DateTimePickerFormat.Custom
        檢測日期_dtp.Value = Today
        買入日期_dtp.CustomFormat = "yyyy/MM/dd"
        買入日期_dtp.Format = DateTimePickerFormat.Custom
        買入日期_dtp.Value = Today
        賣出日期_dtp.CustomFormat = "yyyy/MM/dd"
        賣出日期_dtp.Format = DateTimePickerFormat.Custom
        賣出日期_dtp.Value = Today
        料號_tb.Text = "" : 品名.Text = "" : 成本.Text = "" : 總利潤_tb.Text = "" : 已交車_cb.Checked = False : 狀態_tb.Text = ""
        出險公司_tb.Text = "" : 車主名稱_tb.Text = "" : 車號_tb.Text = "" : 地址_tb.Text = "" : 電話_tb.Text = ""
        車型_tb.Text = "" : 保養預示_tb.Text = "" : 里程_tb.Text = "" : 廠牌_tb.Text = "" : 廠牌_tb.Text = ""
        應驗車日_dtp.Format = DateTimePickerFormat.Custom : 應驗車日_dtp.CustomFormat = " "
        工資_tb.Text = "" : 零件_tb.Text = "" : 總計_tb.Text = "" : 稅金_tb.Text = ""
        信用卡_tb.Text = "" : 應收合計_tb.Text = "" : 賒帳_tb.Text = "" : 支票_tb.Text = ""
        現金_tb.Text = "" : 年_tb.Text = "" : 輪胎尺寸_tb.Text = "" : 備註1_tb.Text = ""


    End Sub

    Private Sub 檢測日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 檢測日期_dtp.MouseDown
        檢測日期_dtp.CustomFormat = "yyyy/MM/dd"
        檢測日期_dtp.Format = DateTimePickerFormat.Custom
    End Sub
    Private Sub 買入日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 買入日期_dtp.MouseDown
        買入日期_dtp.CustomFormat = "yyyy/MM/dd"
        買入日期_dtp.Format = DateTimePickerFormat.Custom
    End Sub
    Private Sub 賣出日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 賣出日期_dtp.MouseDown
        賣出日期_dtp.CustomFormat = "yyyy/MM/dd"
        賣出日期_dtp.Format = DateTimePickerFormat.Custom
    End Sub
    Private Sub 入廠日期_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 入廠日期_dtp.MouseDown
        入廠日期_dtp.CustomFormat = "yyyy/MM/dd"
        入廠日期_dtp.Format = DateTimePickerFormat.Custom
    End Sub
    Private Sub 應驗車日_dtp_ValueChanged(sender As Object, e As EventArgs) Handles 應驗車日_dtp.MouseDown
        應驗車日_dtp.CustomFormat = "yyyy/MM/dd"
        應驗車日_dtp.Format = DateTimePickerFormat.Custom
    End Sub
    Private Sub 利潤率_ValueChanged(sender As Object, e As EventArgs) Handles 利潤率.ValueChanged
        If 售價_tb.Text <> "" And 進價_tb.Text <> "" And 總成本_tb.Text <> "" Then
            Dim d1, d2, d4 As Integer
            Dim d3 As Double
            Dim s1 As String = 進價_tb.Text
            Dim s2 As String = 總成本_tb.Text
            Dim s4 As String = 售價_tb.Text
            s1 = s1.Replace(",", "")
            s2 = s2.Replace(",", "")
            s4 = s4.Replace(",", "")
            d1 = Integer.Parse(s1)
            d2 = Integer.Parse(s2)
            d4 = Integer.Parse(s4)
            d3 = 利潤率.Value
            總利潤_tb.Text = ((d1 + d2) * d3 / 100).ToString("#,##0")
            If boo1 = True Then
                總利潤_tb.Text = (d4 - (d1 + d2)).ToString("#,##0")
            Else
                售價_tb.Text = (d1 + d2 + ((d1 + d2) * d3 / 100)).ToString("#,##0")
            End If

        End If
    End Sub


    Private Sub 進價_tb_TextChanged(sender As Object, e As EventArgs) Handles 進價_tb.TextChanged
        If 售價_tb.Text <> "" And 進價_tb.Text <> "" And 總成本_tb.Text <> "" Then
            Dim d1, d2, d4 As Integer
            Dim d3 As Double
            Dim s1 As String = 進價_tb.Text
            Dim s2 As String = 總成本_tb.Text
            Dim s4 As String = 售價_tb.Text
            s1 = s1.Replace(",", "")
            s2 = s2.Replace(",", "")
            s4 = s4.Replace(",", "")
            d1 = Integer.Parse(s1)
            d2 = Integer.Parse(s2)
            d4 = Integer.Parse(s4)
            d3 = 利潤率.Value


            If boo1 = True Then
                總利潤_tb.Text = (d4 - (d1 + d2)).ToString("#,##0")
            Else
                總利潤_tb.Text = ((d1 + d2) * d3 / 100).ToString("#,##0")
                售價_tb.Text = (d1 + d2 + ((d1 + d2) * d3 / 100)).ToString("#,##0")
            End If


        End If

    End Sub
    Private Sub 售價_tb_TextChanged(sender As Object, e As EventArgs) Handles 售價_tb.TextChanged
        If 售價_tb.Text <> "" And 進價_tb.Text <> "" And 總成本_tb.Text <> "" Then
            Dim d, d1, d2, d3 As Integer
            Dim s As String = 售價_tb.Text
            Dim s1 As String = 進價_tb.Text
            Dim s2 As String = 總成本_tb.Text
            s = s.Replace(",", "")
            s1 = s1.Replace(",", "")
            s2 = s2.Replace(",", "")
            d = Integer.Parse(s)
            d1 = Integer.Parse(s1)
            d2 = Integer.Parse(s2)
            d3 = d - (d1 + d2)
            If boo1 = True Then
            Else
                總利潤_tb.Text = d3.ToString("#,##0")
            End If
        End If

    End Sub
    Private Sub 售價_tb_Leave(sender As Object, e As EventArgs) Handles 售價_tb.Leave
        boo1 = True
        If Not String.IsNullOrEmpty(售價_tb.Text) AndAlso IsNumeric(售價_tb.Text) Then
            ' 將文本轉換為數字
            Dim number As Double = CDbl(售價_tb.Text)

            ' 格式化數字為千分位
            售價_tb.Text = number.ToString("#,##0")
        End If
        Dim d, d1, d2, d3 As Integer
        Dim s As String = 售價_tb.Text
        Dim s1 As String = 進價_tb.Text
        Dim s2 As String = 總成本_tb.Text
        s = s.Replace(",", "")
        s1 = s1.Replace(",", "")
        s2 = s2.Replace(",", "")
        d = Integer.Parse(s)
        d1 = Integer.Parse(s1)
        d2 = Integer.Parse(s2)
        d3 = d - (d1 + d2)
        Dim ratio As Double = (d3 / (d1 + d2)) * 100
        Dim roundedRatio As Double = Math.Round(ratio, 1)
        If roundedRatio < 0 Then
            利潤率.Value = 0
        ElseIf roundedRatio > 1000 Then
            利潤率.Value = 1000
        Else

            利潤率.Value = roundedRatio
        End If

    End Sub
    Private Sub 進價_tb_Leave(sender As Object, e As EventArgs) Handles 進價_tb.Leave
        If Not String.IsNullOrEmpty(進價_tb.Text) AndAlso IsNumeric(進價_tb.Text) Then
            ' 將文本轉換為數字
            Dim number As Double = CDbl(進價_tb.Text)

            ' 格式化數字為千分位
            進價_tb.Text = number.ToString("#,##0")
        End If
    End Sub
    Private Sub 售價_tb_KeyPress(sender As Object, e As KeyPressEventArgs) Handles 售價_tb.KeyPress
        ' 檢查輸入的字符是否為數字或允許的其他字符（如小數點、負號、刪除鍵）
        If Not Char.IsDigit(e.KeyChar) AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> "-" AndAlso e.KeyChar <> ChrW(Keys.Back) Then
            ' 如果輸入的字符不是數字或允許的字符，取消該字符輸入
            e.Handled = True
        End If
    End Sub
    Private Sub 售價_tb_LostFocus(sender As Object, e As EventArgs) Handles 售價_tb.LostFocus
        ' 檢查文本框的值是否為空
        If String.IsNullOrWhiteSpace(售價_tb.Text) Then
            ' 如果為空，將其設置為0
            售價_tb.Text = "0"
        End If
    End Sub
    Private Sub 進價_tb_LostFocus(sender As Object, e As EventArgs) Handles 進價_tb.LostFocus
        ' 檢查文本框的值是否為空
        If String.IsNullOrWhiteSpace(進價_tb.Text) Then
            ' 如果為空，將其設置為0
            進價_tb.Text = "0"
        End If
    End Sub

    Private Sub 進價_tb_KeyPress(sender As Object, e As KeyPressEventArgs) Handles 進價_tb.KeyPress
        ' 檢查輸入的字符是否為數字或允許的其他字符（如小數點、負號、刪除鍵）
        If Not Char.IsDigit(e.KeyChar) AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> "-" AndAlso e.KeyChar <> ChrW(Keys.Back) Then
            ' 如果輸入的字符不是數字或允許的字符，取消該字符輸入
            e.Handled = True
        End If
    End Sub

    Private Sub 現金_tb_Leave(sender As Object, e As EventArgs) Handles 現金_tb.Leave
        If Not String.IsNullOrEmpty(現金_tb.Text) AndAlso IsNumeric(現金_tb.Text) Then
            ' 將文本轉換為數字
            Dim number As Double = CDbl(現金_tb.Text)

            ' 格式化數字為千分位
            現金_tb.Text = number.ToString("#,##0")
            Dim 現金, 支票, 信用卡 As Double
            If Double.TryParse(現金_tb.Text, 現金) AndAlso Double.TryParse(支票_tb.Text, 支票) AndAlso Double.TryParse(信用卡_tb.Text, 信用卡) Then
                全部_tb.Text = (現金 + 支票 + 信用卡).ToString()
            End If
        End If
    End Sub
    Private Sub 現金_tb_LostFocus(sender As Object, e As EventArgs) Handles 現金_tb.LostFocus
        ' 檢查文本框的值是否為空
        If String.IsNullOrWhiteSpace(現金_tb.Text) Then
            ' 如果為空，將其設置為0
            現金_tb.Text = "0"
        End If
    End Sub

    Private Sub 現金_tb_KeyPress(sender As Object, e As KeyPressEventArgs) Handles 現金_tb.KeyPress
        ' 檢查輸入的字符是否為數字或允許的其他字符（如小數點、負號、刪除鍵）
        If Not Char.IsDigit(e.KeyChar) AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> "-" AndAlso e.KeyChar <> ChrW(Keys.Back) Then
            ' 如果輸入的字符不是數字或允許的字符，取消該字符輸入
            e.Handled = True
        End If
    End Sub
    Private Sub 信用卡_tb_Leave(sender As Object, e As EventArgs) Handles 信用卡_tb.Leave
        If Not String.IsNullOrEmpty(信用卡_tb.Text) AndAlso IsNumeric(信用卡_tb.Text) Then
            ' 將文本轉換為數字
            Dim number As Double = CDbl(信用卡_tb.Text)

            ' 格式化數字為千分位
            信用卡_tb.Text = number.ToString("#,##0")
            Dim 現金, 支票, 信用卡 As Double
            If Double.TryParse(現金_tb.Text, 現金) AndAlso Double.TryParse(支票_tb.Text, 支票) AndAlso Double.TryParse(信用卡_tb.Text, 信用卡) Then
                全部_tb.Text = (現金 + 支票 + 信用卡).ToString()
            End If
        End If
    End Sub
    Private Sub 信用卡_tb_LostFocus(sender As Object, e As EventArgs) Handles 信用卡_tb.LostFocus
        ' 檢查文本框的值是否為空
        If String.IsNullOrWhiteSpace(信用卡_tb.Text) Then
            ' 如果為空，將其設置為0
            信用卡_tb.Text = "0"
        End If
    End Sub

    Private Sub 信用卡_tb_KeyPress(sender As Object, e As KeyPressEventArgs) Handles 信用卡_tb.KeyPress
        ' 檢查輸入的字符是否為數字或允許的其他字符（如小數點、負號、刪除鍵）
        If Not Char.IsDigit(e.KeyChar) AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> "-" AndAlso e.KeyChar <> ChrW(Keys.Back) Then
            ' 如果輸入的字符不是數字或允許的字符，取消該字符輸入
            e.Handled = True
        End If
    End Sub
    Private Sub 賒帳_tb_Leave(sender As Object, e As EventArgs) Handles 賒帳_tb.Leave
        If Not String.IsNullOrEmpty(賒帳_tb.Text) AndAlso IsNumeric(賒帳_tb.Text) Then
            ' 將文本轉換為數字
            Dim number As Double = CDbl(賒帳_tb.Text)

            ' 格式化數字為千分位
            賒帳_tb.Text = number.ToString("#,##0")
        End If
    End Sub
    Private Sub 賒帳_tb_LostFocus(sender As Object, e As EventArgs) Handles 賒帳_tb.LostFocus
        ' 檢查文本框的值是否為空
        If String.IsNullOrWhiteSpace(賒帳_tb.Text) Then
            ' 如果為空，將其設置為0
            賒帳_tb.Text = "0"
        End If
    End Sub

    Private Sub 賒帳_tb_KeyPress(sender As Object, e As KeyPressEventArgs) Handles 賒帳_tb.KeyPress
        ' 檢查輸入的字符是否為數字或允許的其他字符（如小數點、負號、刪除鍵）
        If Not Char.IsDigit(e.KeyChar) AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> "-" AndAlso e.KeyChar <> ChrW(Keys.Back) Then
            ' 如果輸入的字符不是數字或允許的字符，取消該字符輸入
            e.Handled = True
        End If
    End Sub
    Private Sub 支票_tb_Leave(sender As Object, e As EventArgs) Handles 支票_tb.Leave
        If Not String.IsNullOrEmpty(支票_tb.Text) AndAlso IsNumeric(支票_tb.Text) Then
            ' 將文本轉換為數字
            Dim number As Double = CDbl(支票_tb.Text)

            ' 格式化數字為千分位
            支票_tb.Text = number.ToString("#,##0")
            Dim 現金, 支票, 信用卡 As Double
            If Double.TryParse(現金_tb.Text, 現金) AndAlso Double.TryParse(支票_tb.Text, 支票) AndAlso Double.TryParse(信用卡_tb.Text, 信用卡) Then
                全部_tb.Text = (現金 + 支票 + 信用卡).ToString()
            End If
        End If
    End Sub
    Private Sub 支票_tb_LostFocus(sender As Object, e As EventArgs) Handles 支票_tb.LostFocus
        ' 檢查文本框的值是否為空
        If String.IsNullOrWhiteSpace(支票_tb.Text) Then
            ' 如果為空，將其設置為0
            支票_tb.Text = "0"
        End If
    End Sub

    Private Sub 支票_tb_KeyPress(sender As Object, e As KeyPressEventArgs) Handles 支票_tb.KeyPress
        ' 檢查輸入的字符是否為數字或允許的其他字符（如小數點、負號、刪除鍵）
        If Not Char.IsDigit(e.KeyChar) AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> "-" AndAlso e.KeyChar <> ChrW(Keys.Back) Then
            ' 如果輸入的字符不是數字或允許的字符，取消該字符輸入
            e.Handled = True
        End If
    End Sub
    Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        If 買入車主名稱_tb.Text <> "" And 買入牌照號碼_tb.Text <> "" Then
            SQL_車輛銷售管理_查詢客戶資料()
            If dr.Read() Then
                SQL_車輛銷售管理_修改客戶資料()
            Else
                SQL_客戶資料表_最後一筆資料()
                If dr.Read() Then : 供應商編號_tb.Text = dr("流水號").ToString : Else : 供應商編號_tb.Text = "CL00000" : End If
                conn.Close()
                Dim NUM1 As Integer
                NUM1 = Double.Parse(Strings.Right(供應商編號_tb.Text, 5)) + 1
                If NUM1 < 10 Then : 供應商編號_tb.Text = "CL" & "0000" & NUM1
                ElseIf NUM1 > 9 And NUM1 < 100 Then : 供應商編號_tb.Text = "CL" & "000" & NUM1
                ElseIf NUM1 > 99 And NUM1 < 1000 Then : 供應商編號_tb.Text = "CL" & "00" & NUM1
                ElseIf NUM1 > 999 And NUM1 < 10000 Then : 供應商編號_tb.Text = "CL" & "0" & NUM1
                ElseIf NUM1 > 9999 And NUM1 < 100000 Then : 供應商編號_tb.Text = "CL" & NUM1 : End If
                SQL_車輛銷售管理_新增客戶資料() : conn.Close()
            End If
        End If

        If 賣出車主名稱_tb.Text <> "" And 賣出牌照號碼_tb.Text <> "" Then
            SQL_車輛銷售管理_查詢客戶資料1()
            If dr.Read() Then
                SQL_車輛銷售管理_修改客戶資料1()
            Else
                SQL_客戶資料表_最後一筆資料()
                If dr.Read() Then : 供應商編號_tb.Text = dr("流水號").ToString : Else : 供應商編號_tb.Text = "CL00000" : End If
                conn.Close()
                Dim NUM1 As Integer
                NUM1 = Double.Parse(Strings.Right(供應商編號_tb.Text, 5)) + 1
                If NUM1 < 10 Then : 供應商編號_tb.Text = "CL" & "0000" & NUM1
                ElseIf NUM1 > 9 And NUM1 < 100 Then : 供應商編號_tb.Text = "CL" & "000" & NUM1
                ElseIf NUM1 > 99 And NUM1 < 1000 Then : 供應商編號_tb.Text = "CL" & "00" & NUM1
                ElseIf NUM1 > 999 And NUM1 < 10000 Then : 供應商編號_tb.Text = "CL" & "0" & NUM1
                ElseIf NUM1 > 9999 And NUM1 < 100000 Then : 供應商編號_tb.Text = "CL" & NUM1 : End If
                SQL_車輛銷售管理_新增客戶資料1() : conn.Close()
            End If
        End If

        If 車主名稱_tb.Text <> "" And 車號_tb.Text <> "" Then
            SQL_車輛銷售管理_查詢客戶資料()
            If dr.Read() Then
                SQL_車輛銷售管理_修改客戶資料()
            Else
                SQL_客戶資料表_最後一筆資料()
                If dr.Read() Then : 供應商編號_tb.Text = dr("流水號").ToString : Else : 供應商編號_tb.Text = "CL00000" : End If
                conn.Close()
                Dim NUM1 As Integer
                NUM1 = Double.Parse(Strings.Right(供應商編號_tb.Text, 5)) + 1
                If NUM1 < 10 Then : 供應商編號_tb.Text = "CL" & "0000" & NUM1
                ElseIf NUM1 > 9 And NUM1 < 100 Then : 供應商編號_tb.Text = "CL" & "000" & NUM1
                ElseIf NUM1 > 99 And NUM1 < 1000 Then : 供應商編號_tb.Text = "CL" & "00" & NUM1
                ElseIf NUM1 > 999 And NUM1 < 10000 Then : 供應商編號_tb.Text = "CL" & "0" & NUM1
                ElseIf NUM1 > 9999 And NUM1 < 100000 Then : 供應商編號_tb.Text = "CL" & NUM1 : End If
                SQL_車輛銷售管理_新增客戶資料() : conn.Close()
            End If
        End If

        SQL_車輛銷售管理_控制表修改() : conn.Close() : MsgBox("儲存成功!!") : Set_清單1()
        If 登入人級別 <> "00" Then
            If 已交車_cb.Checked = True Then
                修改_bt.Enabled = False : 刪除_bt.Enabled = False : 查詢1_bt.Enabled = False : 查詢2_bt.Enabled = False
                收支單中新增一筆資料_bt.Enabled = False : 收支單中新增一筆空白資料_bt.Enabled = False : 刪除選中的一筆資料_bt.Enabled = False
                申請_bt.Enabled = False
            Else
                修改_bt.Enabled = True : 刪除_bt.Enabled = True : 查詢1_bt.Enabled = True : 查詢2_bt.Enabled = True
                收支單中新增一筆資料_bt.Enabled = True : 收支單中新增一筆空白資料_bt.Enabled = True : 刪除選中的一筆資料_bt.Enabled = True
                申請_bt.Enabled = True
            End If
        End If

    End Sub

    Private Sub 收支單中新增一筆空白資料_bt_Click(sender As Object, e As EventArgs) Handles 收支單中新增一筆空白資料_bt.Click
        If 單號_tb.Text = "" Then
            MsgBox("未選擇單號!!")
        Else
            Set_流水號() : PA = 單號_tb.Text
            SQL_車輛銷售管理_查詢最後一筆單號項次() : PA = ""
            If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close()
            NUM1 = Double.Parse(新項次) + 1
            If NUM1 < 10 Then : 新項次 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 99 Then : 新項次 = NUM1 : End If
            PA15 = 新項次
            SQL_車輛銷售管理_新增明細表() : conn.Close()
            Set_清單3()
            MsgBox("明細表新增成功!!")
        End If
    End Sub
    Private Sub 收支單中新增一筆空白資料1_bt_Click(sender As Object, e As EventArgs) Handles 收支單中新增一筆空白資料1_bt.Click
        For i As Integer = 0 To 明細表1_dgv.Rows.Count - 1
            PA1 = 明細表1_dgv.Rows(i).Cells("各項支出名稱").Value.ToString : PA2 = 明細表1_dgv.Rows(i).Cells("數量").Value.ToString : PA3 = 明細表1_dgv.Rows(i).Cells("售價").Value
            PA4 = 明細表1_dgv.Rows(i).Cells("備註").Value.ToString : PA5 = 明細表1_dgv.Rows(i).Cells("料號").Value.ToString : PA6 = 明細表1_dgv.Rows(i).Cells("項次").Value.ToString
            PA10 = 明細表1_dgv.Rows(i).Cells("流水號").Value.ToString : PA8 = 明細表1_dgv.Rows(i).Cells("成本").Value.ToString : BL3 = 明細表1_dgv.Rows(i).Cells("已儲存").Value
            PA7 = 明細表1_dgv.Rows(i).Cells("狀態").Value.ToString
            SQL_車輛銷售管理_修改明細表() : conn.Close()
            If PA7 = "物料" Then
                If BL3 = 0 Then
                    Set_日期格式轉換()
                    Set_流水號1()
                    SQL_車輛銷售管理_新增倉儲明細表() : conn.Close()
                Else
                    SQL_車輛銷售管理_修改倉儲明細表() : conn.Close()
                End If
            End If
        Next
        If 單號_tb.Text = "" Then
            MsgBox("未選擇單號!!")
        Else
            Set_流水號() : PA = 單號_tb.Text
            SQL_車輛銷售管理_查詢最後一筆單號項次() : PA = ""
            If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close()
            NUM1 = Double.Parse(新項次) + 1
            If NUM1 < 10 Then : 新項次 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 99 Then : 新項次 = NUM1 : End If
            PA15 = 新項次
            SQL_車輛銷售管理_新增明細表() : conn.Close()
            Set_清單3()
            MsgBox("明細表新增成功!!")
        End If
    End Sub

    Private Sub Set_流水號()
        conn.Close() : dr.Close()
        Dim NUM1 As Integer
        For NUM1 = 0 To 999
            Dim d As String : Dim f As String
            Dim selectedDate As DateTime = 選擇日期_dtp.Value
            Dim y As String = selectedDate.Year.ToString().Substring(2, 2)
            If selectedDate.Month < 10 Then : d = "0" & selectedDate.Month.ToString()
            Else : d = selectedDate.Month.ToString()
            End If
            If selectedDate.Day < 10 Then : f = "0" & selectedDate.Day.ToString()
            Else : f = selectedDate.Day.ToString()
            End If
            If NUM1 < 10 Then : 新流水1 = "C" & y & d & f & "00" & NUM1
            ElseIf NUM1 > 9 And NUM1 < 100 Then : 新流水1 = "C" & y & d & f & "0" & NUM1
            ElseIf NUM1 > 99 Then : 新流水1 = "C" & y & d & f & NUM1
            End If : PA19 = 新流水1
            SQL_車輛銷售管理_查詢明細表流水號()
            If dr.Read() Then : conn.Close() : Else : conn.Close() : NUM1 = 999 : End If
        Next
    End Sub

    Private Sub 刪除選中的一筆資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除選中的一筆資料_bt.Click
        If 流水號_tb.Text = "" Then
            MsgBox("未選擇需要刪除的資料。")
        Else
            TextBox1.Text = "0"
            SQL_車輛銷售管理_刪除倉儲明細表() : conn.Close()
            SQL_車輛銷售管理_刪除明細表項次() : conn.Close()
            Set_清單3()
            Dim NUM1 As Integer = 0
            For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
                PA17 = 明細表_dgv.Rows(i).Cells("項次").Value
                NUM1 += 1 : If NUM1 < 10 Then : 新項次 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 99 Then : 新項次 = NUM1 : End If
                PA18 = 新項次
                SQL_車輛銷售管理_修改明細表項次() : conn.Close()
            Next
            Set_清單3() : 流水號_tb.Text = ""
            Dim NUM2, NUM3 As Integer
            For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
                NUM2 += 明細表_dgv.Rows(i).Cells("總售價").Value
                NUM3 += 明細表_dgv.Rows(i).Cells("總成本").Value
            Next
            支出合計_tb.Text = Strings.Format(Val(NUM2), "#,##0")
            總成本_tb.Text = Strings.Format(Val(NUM3), "#,##0")
            MsgBox("刪除成功。")
            Dim d1, d2, d4 As Integer
            Dim d3 As Double
            Dim s1 As String = 進價_tb.Text
            Dim s2 As String = 總成本_tb.Text
            Dim s4 As String = 售價_tb.Text
            s1 = s1.Replace(",", "")
            s2 = s2.Replace(",", "")
            s4 = s4.Replace(",", "")
            d1 = Integer.Parse(s1)
            d2 = Integer.Parse(s2)
            d4 = Integer.Parse(s4)
            d3 = 利潤率.Value
            總利潤_tb.Text = ((d1 + d2) * d3 / 100).ToString("#,##0")
            If boo1 = True Then
                總利潤_tb.Text = (d4 - (d1 + d2)).ToString("#,##0")
            Else
                售價_tb.Text = (d1 + d2 + ((d1 + d2) * d3 / 100)).ToString("#,##0")
            End If

        End If


    End Sub
    Private Sub 刪除選中的一筆資料1_bt_Click(sender As Object, e As EventArgs) Handles 刪除選中的一筆資料1_bt.Click
        If 流水號_tb.Text = "" Then
            MsgBox("未選擇需要刪除的資料。")
        Else

            庫存量1.Text = "0"
            SQL_車輛銷售管理_刪除倉儲明細表() : conn.Close()
            SQL_車輛銷售管理_刪除明細表項次() : conn.Close()
            Set_清單3()
            Dim NUM1 As Integer = 0
            For i As Integer = 0 To 明細表1_dgv.Rows.Count - 1
                PA17 = 明細表1_dgv.Rows(i).Cells("項次").Value
                NUM1 += 1 : If NUM1 < 10 Then : 新項次 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 99 Then : 新項次 = NUM1 : End If
                PA18 = 新項次
                SQL_車輛銷售管理_修改明細表項次() : conn.Close()
            Next
            Set_清單3() : 流水號_tb.Text = ""
            MsgBox("刪除成功。")


        End If


    End Sub
    Private Sub 申請_bt_Click(sender As Object, e As EventArgs) Handles 申請_bt.Click
        For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
            PA1 = 明細表_dgv.Rows(i).Cells("各項支出名稱").Value.ToString : PA2 = 明細表_dgv.Rows(i).Cells("數量").Value.ToString : PA3 = 明細表_dgv.Rows(i).Cells("售價").Value
            PA4 = 明細表_dgv.Rows(i).Cells("備註").Value.ToString : PA5 = 明細表_dgv.Rows(i).Cells("料號").Value.ToString : PA6 = 明細表_dgv.Rows(i).Cells("項次").Value.ToString
            PA10 = 明細表_dgv.Rows(i).Cells("流水號").Value.ToString : PA8 = 明細表_dgv.Rows(i).Cells("成本").Value.ToString : BL3 = 明細表_dgv.Rows(i).Cells("已儲存").Value
            PA7 = 明細表_dgv.Rows(i).Cells("狀態").Value.ToString
            SQL_車輛銷售管理_修改明細表() : conn.Close()
            If PA7 = "物料" Then
                If BL3 = 0 Then
                    Set_日期格式轉換()
                    Set_流水號1()
                    SQL_車輛銷售管理_新增倉儲明細表() : conn.Close()
                End If
            End If
        Next : Set_清單3() : MsgBox("儲存成功。")

    End Sub
    Private Sub 申請1_bt_Click(sender As Object, e As EventArgs) Handles 申請1_bt.Click
        For i As Integer = 0 To 明細表1_dgv.Rows.Count - 1
            PA1 = 明細表1_dgv.Rows(i).Cells("各項支出名稱").Value.ToString : PA2 = 明細表1_dgv.Rows(i).Cells("數量").Value.ToString : PA3 = 明細表1_dgv.Rows(i).Cells("售價").Value
            PA4 = 明細表1_dgv.Rows(i).Cells("備註").Value.ToString : PA5 = 明細表1_dgv.Rows(i).Cells("料號").Value.ToString : PA6 = 明細表1_dgv.Rows(i).Cells("項次").Value.ToString
            PA10 = 明細表1_dgv.Rows(i).Cells("流水號").Value.ToString : PA8 = 明細表1_dgv.Rows(i).Cells("成本").Value.ToString : BL3 = 明細表1_dgv.Rows(i).Cells("已儲存").Value
            PA7 = 明細表1_dgv.Rows(i).Cells("狀態").Value.ToString
            SQL_車輛銷售管理_修改明細表() : conn.Close()
            If PA7 = "物料" Then
                If BL3 = 0 Then
                    Set_日期格式轉換()
                    Set_流水號1()
                    SQL_車輛銷售管理_新增倉儲明細表() : conn.Close()
                Else
                    SQL_車輛銷售管理_修改倉儲明細表() : conn.Close()
                End If
            End If
        Next : Set_清單3() : MsgBox("儲存成功。")

    End Sub
    Private Sub Set_流水號1()
        conn.Close() : dr.Close()
        Dim NUM1 As Integer
        For NUM1 = 0 To 999
            Dim d As String : Dim f As String
            Dim selectedDate As DateTime = Today()
            Dim y As String = selectedDate.Year.ToString()
            If selectedDate.Month < 10 Then : d = "0" & selectedDate.Month.ToString()
            Else : d = selectedDate.Month.ToString()
            End If
            If selectedDate.Day < 10 Then : f = "0" & selectedDate.Day.ToString()
            Else : f = selectedDate.Day.ToString()
            End If
            If NUM1 < 10 Then : 新流水1 = "Z" & y & d & f & "00" & NUM1
            ElseIf NUM1 > 9 And NUM1 < 100 Then : 新流水1 = "Z" & y & d & f & "0" & NUM1
            ElseIf NUM1 > 99 Then : 新流水1 = "Z" & y & d & f & NUM1
            End If : PA19 = 新流水1
            SQL_物料入庫系統_查詢入庫明細流水號()
            If dr.Read() Then : conn.Close() : Else : conn.Close() : NUM1 = 999 : End If
        Next
    End Sub
    Private Sub Set_清單4()
        庫存_dgv.DataSource = Nothing : ds3.Clear()
        庫存_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        庫存_dgv.ColumnHeadersHeight = 25
        庫存_dgv.AllowUserToAddRows = False
        庫存_dgv.RowTemplate.Height = 30
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        SQL_車輛銷售管理_查詢庫存量()
        da.Fill(ds3) : 庫存_dgv.DataSource = ds3.Tables(0) : conn.Close()
        N3 = 0
        For i As Integer = 0 To 庫存_dgv.Rows.Count - 1
            N3 += 庫存_dgv.Rows(i).Cells("入庫數量").Value : N3 -= 庫存_dgv.Rows(i).Cells("出庫數量").Value
        Next
        If 車廠型態 = True Then
            TextBox1.Text = N3

        Else
            庫存量1.Text = N3
        End If

    End Sub
    Private Sub 明細表_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 明細表_dgv.CellEnter
        Dim NUM1, NUM2 As Integer
        index = e.RowIndex
        If e.RowIndex = -1 Then : Else
            流水號_tb.Text = 明細表_dgv(1, e.RowIndex).Value.ToString
            料號1_tb.Text = 明細表_dgv(10, e.RowIndex).Value.ToString
            If 明細表_dgv(13, e.RowIndex).Value.ToString = "物料" Then
                Set_清單4()
            Else
                TextBox1.Text = ""
            End If
            For i As Integer = 0 To 明細表_dgv.Rows.Count - 1
                If 明細表_dgv.Rows(i).Cells("數量").Value.ToString <> "" And 明細表_dgv.Rows(i).Cells("售價").Value.ToString <> "" And 明細表_dgv.Rows(i).Cells("成本").Value.ToString <> "" Then
                    明細表_dgv.Rows(i).Cells("總售價").Value = 明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("售價").Value
                    明細表_dgv.Rows(i).Cells("總成本").Value = 明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("成本").Value
                    NUM1 += 明細表_dgv.Rows(i).Cells("總售價").Value
                    NUM2 += 明細表_dgv.Rows(i).Cells("總成本").Value
                    明細表_dgv.Rows(i).Cells("利潤").Value = (明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("售價").Value) - (明細表_dgv.Rows(i).Cells("數量").Value * 明細表_dgv.Rows(i).Cells("成本").Value)
                End If

            Next
        End If
        支出合計_tb.Text = Strings.Format(Val(NUM1), "#,##0")
        總成本_tb.Text = Strings.Format(Val(NUM2), "#,##0")
        Dim d1, d2, d4 As Integer
        Dim d3 As Double
        Dim s1 As String = 進價_tb.Text
        Dim s2 As String = 總成本_tb.Text
        Dim s4 As String = 售價_tb.Text
        s1 = s1.Replace(",", "")
        s2 = s2.Replace(",", "")
        s4 = s4.Replace(",", "")
        d1 = Integer.Parse(s1)
        d2 = Integer.Parse(s2)
        d4 = Integer.Parse(s4)
        d3 = 利潤率.Value
        總利潤_tb.Text = ((d1 + d2) * d3 / 100).ToString("#,##0")
        If boo1 = True Then
            總利潤_tb.Text = (d4 - (d1 + d2)).ToString("#,##0")
        Else
            售價_tb.Text = (d1 + d2 + ((d1 + d2) * d3 / 100)).ToString("#,##0")
        End If
    End Sub
    Private Sub 明細表1_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 明細表1_dgv.CellEnter
        Dim NUM1 As Integer = 0
        Dim NUM2 As Integer = 0
        index = e.RowIndex
        If e.RowIndex = -1 Then : Else
            流水號_tb.Text = 明細表1_dgv(1, e.RowIndex).Value.ToString
            料號1_tb.Text = 明細表1_dgv(10, e.RowIndex).Value.ToString
            If 明細表1_dgv(13, e.RowIndex).Value.ToString = "物料" Then
                Set_清單4()
            Else
                庫存量1.Text = ""
            End If

            For i As Integer = 0 To 明細表1_dgv.Rows.Count - 1
                If 明細表1_dgv.Rows(i).Cells("數量").Value.ToString <> "" And 明細表1_dgv.Rows(i).Cells("售價").Value.ToString <> "" And 明細表1_dgv.Rows(i).Cells("成本").Value.ToString <> "" Then
                    明細表1_dgv.Rows(i).Cells("總售價").Value = 明細表1_dgv.Rows(i).Cells("數量").Value * 明細表1_dgv.Rows(i).Cells("售價").Value
                    明細表1_dgv.Rows(i).Cells("總成本").Value = 明細表1_dgv.Rows(i).Cells("數量").Value * 明細表1_dgv.Rows(i).Cells("成本").Value
                    明細表1_dgv.Rows(i).Cells("利潤").Value = (明細表1_dgv.Rows(i).Cells("數量").Value * 明細表1_dgv.Rows(i).Cells("售價").Value) - (明細表1_dgv.Rows(i).Cells("數量").Value * 明細表1_dgv.Rows(i).Cells("成本").Value)
                End If
                If 明細表1_dgv.Rows(i).Cells("狀態").Value <> "承修項目" Then
                    NUM1 += 明細表1_dgv.Rows(i).Cells("總售價").Value
                Else
                    NUM2 += 明細表1_dgv.Rows(i).Cells("總售價").Value
                End If
            Next
            零件_tb.Text = Strings.Format(Val(NUM1), "#,##0")
            工資_tb.Text = Strings.Format(Val(NUM2), "#,##0")
            總計_tb.Text = Strings.Format(Val(NUM1 + NUM2), "#,##0")
            If 是否收稅_cb.Checked = True Then
                稅金_tb.Text = Strings.Format(Val((NUM1 + NUM2) * 0.05), "#,##0")
                應收合計_tb.Text = Strings.Format(Val(NUM1 + NUM2 + ((NUM1 + NUM2) * 0.05)), "#,##0")
                總計_tb.Text = Strings.Format(Val(NUM1 + NUM2 + ((NUM1 + NUM2) * 0.05)), "#,##0")
            Else
                稅金_tb.Text = "0"
                應收合計_tb.Text = Strings.Format(Val(NUM1 + NUM2), "#,##0")
            End If
        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
            品名.Text = 物料_dgv(1, e.RowIndex).Value.ToString
            成本.Text = 物料_dgv(5, e.RowIndex).Value.ToString
            狀態_tb.Text = 物料_dgv(4, e.RowIndex).Value.ToString
        End If

    End Sub

    Private Sub 流水號_tb_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 流水號_tb.TextChanged
        ' 檢查流水號_tb 的值是否變化，如果是則清空料號_tb
        If 流水號_tb.Text <> 上次的流水號 Then
            料號_tb.Text = ""
        End If

        ' 更新上次的流水號
        上次的流水號 = 流水號_tb.Text
    End Sub

    Private Sub 類別清單_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 選擇供應商_cb.SelectedIndexChanged
        Set_清單2() : 料號_tb.Text = "" : 品名.Text = "" : 成本.Text = "" : 狀態_tb.Text = ""
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 查詢1_bt.Click
        boo = True : boo2 = False : 連動模組.SetCallingPage("車輛銷售管理") : 連動模組.ShowDialog() : 連動模組.BringToFront()
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 查詢2_bt.Click

        boo = False : boo2 = False : 連動模組.SetCallingPage("車輛銷售管理") : 連動模組.ShowDialog() : 連動模組.BringToFront()
    End Sub

    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
        boo2 = True : boo = False : 連動模組.SetCallingPage("車輛銷售管理") : 連動模組.ShowDialog() : 連動模組.BringToFront()
    End Sub

    Private Sub 收支單中新增一筆資料_bt_Click(sender As Object, e As EventArgs) Handles 收支單中新增一筆資料_bt.Click
        If 單號_tb.Text = "" Then
            MsgBox("未選擇單號!!")
        Else
            If 料號_tb.Text = "" Or 品名.Text = "" Or 成本.Text = "" Or 狀態_tb.Text = "" Then
                MsgBox("未選擇物料。")
            Else
                Set_流水號() : PA = 單號_tb.Text
                SQL_車輛銷售管理_查詢最後一筆單號項次() : PA = ""
                If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close()
                NUM1 = Double.Parse(新項次) + 1
                If NUM1 < 10 Then : 新項次 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 99 Then : 新項次 = NUM1 : End If
                PA15 = 新項次
                SQL_車輛銷售管理_新增明細表1() : conn.Close()
                Set_清單3()
                MsgBox("明細表新增成功!!")

            End If

        End If
    End Sub

    Private Sub 收支單中新增一筆資料1_bt_Click(sender As Object, e As EventArgs) Handles 收支單中新增一筆資料1_bt.Click
        For i As Integer = 0 To 明細表1_dgv.Rows.Count - 1
            PA1 = 明細表1_dgv.Rows(i).Cells("各項支出名稱").Value.ToString : PA2 = 明細表1_dgv.Rows(i).Cells("數量").Value.ToString : PA3 = 明細表1_dgv.Rows(i).Cells("售價").Value
            PA4 = 明細表1_dgv.Rows(i).Cells("備註").Value.ToString : PA5 = 明細表1_dgv.Rows(i).Cells("料號").Value.ToString : PA6 = 明細表1_dgv.Rows(i).Cells("項次").Value.ToString
            PA10 = 明細表1_dgv.Rows(i).Cells("流水號").Value.ToString : PA8 = 明細表1_dgv.Rows(i).Cells("成本").Value.ToString : BL3 = 明細表1_dgv.Rows(i).Cells("已儲存").Value
            PA7 = 明細表1_dgv.Rows(i).Cells("狀態").Value.ToString
            SQL_車輛銷售管理_修改明細表() : conn.Close()
            If PA7 = "物料" Then
                If BL3 = 0 Then
                    Set_日期格式轉換()
                    Set_流水號1()
                    SQL_車輛銷售管理_新增倉儲明細表() : conn.Close()
                Else
                    SQL_車輛銷售管理_修改倉儲明細表() : conn.Close()
                End If
            End If
        Next
        If 單號_tb.Text = "" Then
            MsgBox("未選擇單號!!")
        Else
            If 料號_tb.Text = "" Or 品名.Text = "" Or 成本.Text = "" Then
                MsgBox("未選擇物料。")
            Else
                Set_流水號() : PA = 單號_tb.Text
                SQL_車輛銷售管理_查詢最後一筆單號項次() : PA = ""
                If dr.Read() Then : 新項次 = dr("項次") : Else : 新項次 = "00" : End If : conn.Close()
                NUM1 = Double.Parse(新項次) + 1
                If NUM1 < 10 Then : 新項次 = "00" & NUM1 : ElseIf NUM1 > 9 And NUM1 < 100 Then : 新項次 = "0" & NUM1 : ElseIf NUM1 > 99 Then : 新項次 = NUM1 : End If
                PA15 = 新項次
                SQL_車輛銷售管理_新增明細表1() : conn.Close()
                Set_清單3()
                MsgBox("明細表新增成功!!")

            End If

        End If
    End Sub

    Public Sub ReceiveDataFromPageB(ByVal data As String, ByVal data1 As String, ByVal data2 As String, ByVal data3 As String, ByVal data4 As String)
        ' 在這裡處理從頁面B接收到的數據，將其設定到頁面A的TextBox中
        If boo2 = True Then
            車主名稱_tb.Text = data
            電話_tb.Text = data1
            地址_tb.Text = data2
            車號_tb.Text = data3
            備註1_tb.Text = data4
            SQL_車輛銷售管理_人員明細(data, data3)
            If dr.Read() Then
                車型_tb.Text = dr("廠牌")
                年_tb.Text = dr("年份型式")
                引擎號碼1_tb.Text = dr("引擎號碼")
                輪胎尺寸_tb.Text = dr("買入顏色")
            End If
        Else
            If boo = True Then
                買入車主名稱_tb.Text = data
                買入車主電話_tb.Text = data1
                買入車主地址_tb.Text = data2
                買入牌照號碼_tb.Text = data3
            Else
                賣出車主名稱_tb.Text = data
                賣出車主電話_tb.Text = data1
                賣出車主地址_tb.Text = data2
                買入牌照號碼_tb.Text = data3
            End If
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Panel7.Visible = True Then
            Panel7.Visible = False
        Else
            Panel7.Visible = True

        End If
    End Sub
    Private Sub 只顯示未付款_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 只顯示未付款_cb.CheckedChanged
        Set_清單1()
    End Sub
    Private Sub 顯示成本_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 顯示成本_cb.CheckedChanged
        Set_清單2()
    End Sub
    Private Sub 隱藏成本_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 隱藏成本_cb.CheckedChanged
        Set_清單3()
    End Sub
    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
        SQL_車輛銷售管理_儲存列印資訊() : MsgBox("儲存成功!!")
    End Sub


    Private Sub 查詢_bt_MouseEnter(sender As Object, e As EventArgs) Handles 查詢_bt.MouseEnter
        ToolTip1.SetToolTip(Me.查詢_bt, "查詢單號")
    End Sub
    Private Sub 查詢物_bt_MouseEnter(sender As Object, e As EventArgs) Handles 查詢物_bt.MouseEnter
        ToolTip1.SetToolTip(Me.查詢物_bt, "查詢物料")
    End Sub
    Private Sub 新增_bt_MouseEnter(sender As Object, e As EventArgs) Handles 新增_bt.MouseEnter
        ToolTip1.SetToolTip(Me.新增_bt, "新增準備")
    End Sub
    Private Sub 確認新增_bt_MouseEnter(sender As Object, e As EventArgs) Handles 確認新增_bt.MouseEnter
        ToolTip1.SetToolTip(Me.確認新增_bt, "確認新增")
    End Sub
    Private Sub 修改_bt_MouseEnter(sender As Object, e As EventArgs) Handles 修改_bt.MouseEnter
        ToolTip1.SetToolTip(Me.修改_bt, "修改存檔")
    End Sub
    Private Sub 刪除_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除_bt.MouseEnter
        ToolTip1.SetToolTip(Me.刪除_bt, "刪除")
    End Sub
    Private Sub 查詢1_bt_MouseEnter(sender As Object, e As EventArgs) Handles 查詢1_bt.MouseEnter
        ToolTip1.SetToolTip(Me.查詢1_bt, "查詢")
    End Sub
    Private Sub 匯出EXCEL_bt_MouseEnter(sender As Object, e As EventArgs) Handles 匯出EXCEL_bt.MouseEnter
        ToolTip1.SetToolTip(Me.匯出EXCEL_bt, "匯出PDF")
    End Sub
    Private Sub 查詢2_bt_MouseEnter(sender As Object, e As EventArgs) Handles 查詢2_bt.MouseEnter
        ToolTip1.SetToolTip(Me.查詢2_bt, "查詢")
    End Sub
    Private Sub 收支單中新增一筆資料_bt_MouseEnter(sender As Object, e As EventArgs) Handles 收支單中新增一筆資料_bt.MouseEnter
        ToolTip1.SetToolTip(Me.收支單中新增一筆資料_bt, "收支單中新增帶有物料的資料")
    End Sub
    Private Sub 收支單中新增一筆空白資料_bt_MouseEnter(sender As Object, e As EventArgs) Handles 收支單中新增一筆空白資料_bt.MouseEnter
        ToolTip1.SetToolTip(Me.收支單中新增一筆空白資料_bt, "收支單中新增空白的資料")
    End Sub
    Private Sub 刪除選中的一筆資料_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除選中的一筆資料_bt.MouseEnter
        ToolTip1.SetToolTip(Me.刪除選中的一筆資料_bt, "刪除選中的一筆資料")
    End Sub
    Private Sub 申請_bt_MouseEnter(sender As Object, e As EventArgs) Handles 申請_bt.MouseEnter
        ToolTip1.SetToolTip(Me.申請_bt, "資料存檔")
    End Sub

    Private Sub 收支單中新增一筆資料1_bt_MouseEnter(sender As Object, e As EventArgs) Handles 收支單中新增一筆資料1_bt.MouseEnter
        ToolTip1.SetToolTip(Me.收支單中新增一筆資料1_bt, "收支單中新增帶有物料的資料")
    End Sub
    Private Sub 收支單中新增一筆空白資料1_bt_MouseEnter(sender As Object, e As EventArgs) Handles 收支單中新增一筆空白資料1_bt.MouseEnter
        ToolTip1.SetToolTip(Me.收支單中新增一筆空白資料1_bt, "收支單中新增空白的資料")
    End Sub
    Private Sub 刪除選中的一筆資料1_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除選中的一筆資料1_bt.MouseEnter
        ToolTip1.SetToolTip(Me.刪除選中的一筆資料1_bt, "刪除選中的一筆資料")
    End Sub
    Private Sub 申請1_bt_MouseEnter(sender As Object, e As EventArgs) Handles 申請1_bt.MouseEnter
        ToolTip1.SetToolTip(Me.申請1_bt, "資料存檔")
    End Sub

    Private Sub Button3_MouseEnter(sender As Object, e As EventArgs) Handles Button3.MouseEnter
        ToolTip1.SetToolTip(Me.Button3, "儲存列印資料")
    End Sub
    Private Sub Button1_MouseEnter(sender As Object, e As EventArgs) Handles Button1.MouseEnter
        ToolTip1.SetToolTip(Me.Button1, "編輯列印資料")
    End Sub
    Private Sub Button4_MouseEnter(sender As Object, e As EventArgs) Handles Button4.MouseEnter
        ToolTip1.SetToolTip(Me.Button4, "匯出EXCEL")
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If 單號_tb.Text = "" Then
            MsgBox("未選擇單號!!") : Exit Sub
        End If
        If 車廠型態 = True Then
            MsgBox("尚未開發!!") : Exit Sub
        End If

        xlApp = CType(CreateObject("Excel.Application"), Application)
        xlBook = xlApp.Workbooks.Add
        xlApp.DisplayAlerts = True
        xlApp.Visible = True
        xlApp.Application.WindowState = xlMaximized
        xlSheet = NewMethod(xlBook) : xlApp.Sheets(1).Select
        xlSheet.Cells(1, 1) = 公司名稱.Text
        xlSheet.Cells(2, 1) = "銷    售    單"
        xlSheet.Cells(3, 1) = "車主名稱 " : xlSheet.Cells(3, 2) = 車主名稱_tb.Text : xlSheet.Cells(3, 3) = "工資 " : xlSheet.Cells(3, 4) = 工資_tb.Text
        xlSheet.Cells(4, 1) = "車號 " : xlSheet.Cells(4, 2) = 車號_tb.Text : xlSheet.Cells(4, 3) = "零件 " : xlSheet.Cells(4, 4) = 零件_tb.Text
        xlSheet.Cells(5, 1) = "入廠日期 " : xlSheet.Cells(5, 2) = 入廠日期_dtp.Text : xlSheet.Cells(5, 3) = "總計 " : xlSheet.Cells(5, 4) = 總計_tb.Text
        xlSheet.Cells(3, 5) = "稅金5% " : xlSheet.Cells(3, 6) = 稅金_tb.Text : xlSheet.Cells(3, 7) = "信用卡" : xlSheet.Cells(3, 8) = 信用卡_tb.Text
        xlSheet.Cells(4, 5) = "應收合計 " : xlSheet.Cells(4, 6) = 應收合計_tb.Text : xlSheet.Cells(4, 7) = "賒帳 " : xlSheet.Cells(4, 8) = 賒帳_tb.Text
        xlSheet.Cells(5, 5) = "現金 " : xlSheet.Cells(5, 6) = 現金_tb.Text : xlSheet.Cells(5, 7) = "支票 " : xlSheet.Cells(5, 8) = 支票_tb.Text
        xlSheet.Cells(6, 1) = "項次" : xlSheet.Cells(6, 2) = "各項支出名稱" : xlSheet.Cells(6, 3) = "數量" : xlSheet.Cells(6, 4) = "成本"
        xlSheet.Cells(6, 5) = "售價" : xlSheet.Cells(6, 6) = "總成本" : xlSheet.Cells(6, 7) = "總售價" : xlSheet.Cells(6, 8) = "利潤"
        xlSheet.Cells(6, 9) = "備註"
        Dim 總計1 As Double = 0 : Dim 總計2 As Double = 0 : Dim 總計3 As Double = 0
        For i As Integer = 0 To 明細表1_dgv.Rows.Count - 1

            xlSheet.Cells(i + 7, 1) = 明細表1_dgv.Rows(i).Cells("項次").Value
            xlSheet.Cells(i + 7, 2) = 明細表1_dgv.Rows(i).Cells("各項支出名稱").Value
            Dim 數量 As Double = Convert.ToDouble(明細表1_dgv.Rows(i).Cells("數量").Value)
            Dim 成本 As Double = Convert.ToDouble(明細表1_dgv.Rows(i).Cells("成本").Value)
            Dim 售價 As Double = Convert.ToDouble(明細表1_dgv.Rows(i).Cells("售價").Value)
            Dim 總成本 As Double = Convert.ToDouble(明細表1_dgv.Rows(i).Cells("總成本").Value)
            總計1 = 總計1 + 總成本
            Dim 總售價 As Double = Convert.ToDouble(明細表1_dgv.Rows(i).Cells("總售價").Value)
            總計2 = 總計2 + 總售價
            Dim 利潤 As Double = Convert.ToDouble(明細表1_dgv.Rows(i).Cells("利潤").Value)
            總計3 = 總計3 + 利潤
            xlSheet.Cells(i + 7, 3) = 數量.ToString("#,##0")
            xlSheet.Cells(i + 7, 4) = 成本.ToString("#,##0")
            xlSheet.Cells(i + 7, 5) = 售價.ToString("#,##0")
            xlSheet.Cells(i + 7, 6) = 總成本.ToString("#,##0")
            xlSheet.Cells(i + 7, 7) = 總售價.ToString("#,##0")
            xlSheet.Cells(i + 7, 8) = 利潤.ToString("#,##0")
            xlSheet.Cells(i + 7, 9) = 明細表1_dgv.Rows(i).Cells("備註").Value
            N2 = i + 8
        Next i
        xlSheet.Cells(N2, 5) = "總計" : xlSheet.Cells(N2, 6) = 總計1.ToString("#,##0")
        xlSheet.Cells(N2, 7) = 總計2.ToString("#,##0") : xlSheet.Cells(N2, 8) = 總計3.ToString("#,##0")
        AA(xlApp, xlSheet) : xlSheet.PageSetup.PrintArea = "" : xlApp.Application.WindowState = xlMinimized
        MsgBox("匯成EXCEL成功")
    End Sub
    Private Sub AA(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 = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
            .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With

        xlSheet.Range("A3:I" & 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

        xlSheet.Range("A1:I1").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.Range("A2:I2").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.Range("A3:I" & N2).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.Columns("A:I").AutoFit()

        AdjustColumnWidth(xlSheet, "A", 10)
        AdjustColumnWidth(xlSheet, "C", 10)
        AdjustColumnWidth(xlSheet, "D", 10)
        AdjustColumnWidth(xlSheet, "E", 10)
        AdjustColumnWidth(xlSheet, "F", 10)
        AdjustColumnWidth(xlSheet, "G", 10)
        AdjustColumnWidth(xlSheet, "H", 10)
        If xlSheet.Columns("B:B").ColumnWidth > 35 Then
            xlSheet.Columns("B:B").ColumnWidth = 35
        ElseIf xlSheet.Columns("B:B").ColumnWidth < 10 Then
            xlSheet.Columns("B:B").ColumnWidth = 10
        End If
        If xlSheet.Columns("I:I").ColumnWidth > 20 Then
            xlSheet.Columns("I:I").ColumnWidth = 20
        ElseIf xlSheet.Columns("I:I").ColumnWidth < 10 Then
            xlSheet.Columns("I:I").ColumnWidth = 10
        End If

        xlSheet.Range("B:B,I:I").Select()
        With myExcel.Selection
            .VerticalAlignment = xlCenter
            .WrapText = True
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
        End With

        xlSheet.Rows("3:" & N2).AutoFit()

        xlSheet.Range("A3:I5").Select()

        With myExcel.Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent4
            .TintAndShade = 0.799981688894314
            .PatternTintAndShade = 0
        End With
        xlSheet.Range("A6:I6").Select()

        With myExcel.Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent1
            .TintAndShade = 0.799981688894314
            .PatternTintAndShade = 0
        End With
    End Sub
    Private Sub AdjustColumnWidth(ByVal sheet As Excel.Worksheet, ByVal column As String, ByVal minWidth As Double)
        Dim colRange As Excel.Range = sheet.Columns(column & ":" & column)
        If colRange.ColumnWidth < minWidth Then
            colRange.ColumnWidth = minWidth
        End If
    End Sub
    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()
        If 車廠型態 = True Then

            xlSheet.Cells(1, 1) = 公司名稱.Text
            xlSheet.Cells(2, 1) = "單號 " : xlSheet.Cells(2, 2) = 單號_tb.Text
            xlSheet.Cells(2, 4) = "廠牌 " : xlSheet.Cells(2, 5) = 廠牌_tb.Text : xlSheet.Cells(3, 1) = "年份型式"
            xlSheet.Cells(3, 2) = 年分_tb.Text : xlSheet.Cells(3, 4) = "引擎號碼" : xlSheet.Cells(3, 5) = 引擎_tb.Text

            Dim currentDate As String = 買入日期_dtp.Text
            If currentDate.Contains("年") And currentDate.Contains("月") And currentDate.Contains("日") Then

            End If
            xlSheet.Cells(4, 1) = "買入日期 " : xlSheet.Cells(4, 2) = currentDate : xlSheet.Cells(4, 3) = "牌照號碼"
            xlSheet.Cells(4, 4) = 買入牌照號碼_tb.Text : xlSheet.Cells(4, 5) = "顏色" : xlSheet.Cells(4, 6) = 買入顏色_tb.Text
            xlSheet.Cells(5, 1) = "車主名稱 " : xlSheet.Cells(5, 2) = 買入車主名稱_tb.Text
            Dim phoneNumber1 As String = 買入車主電話_tb.Text
            xlSheet.Cells(5, 4) = "電話 " : xlSheet.Cells(5, 5) = "'" & phoneNumber1
            xlSheet.Cells(6, 1) = "地址 " : xlSheet.Cells(6, 2) = 買入車主地址_tb.Text
            xlSheet.Cells(7, 1) = "進價 " : xlSheet.Cells(7, 2) = 進價_tb.Text
            xlSheet.Cells(7, 4) = "經手人 " : xlSheet.Cells(7, 5) = 買入經手人_tb.Text
            xlSheet.Cells(8, 1) = "各項支出名稱 " : xlSheet.Cells(8, 3) = "數量 "
            xlSheet.Cells(8, 4) = "金額 " : xlSheet.Cells(8, 5) = "備註 "

            For i As Integer = 0 To 明細表_dgv.Rows.Count - 1

                xlSheet.Cells(i + 9, 1) = 明細表_dgv.Rows(i).Cells("各項支出名稱").Value : xlSheet.Cells(i + 9, 3) = 明細表_dgv.Rows(i).Cells("數量").Value
                Dim value As Double = Convert.ToDouble(明細表_dgv.Rows(i).Cells("總售價").Value)
                Dim formattedValue As String = value.ToString("#,##0")
                xlSheet.Cells(i + 9, 4) = formattedValue : xlSheet.Cells(i + 9, 5) = 明細表_dgv.Rows(i).Cells("備註").Value
                N2 = 10 + i
            Next i

            xlSheet.Cells(N2 + 1, 1) = "物料總支出 " : xlSheet.Cells(N2 + 1, 2) = 支出合計_tb.Text
            xlSheet.Cells(N2 + 1, 4) = "物料總成本 " : xlSheet.Cells(N2 + 1, 5) = 總成本_tb.Text
            xlSheet.Cells(N2 + 2, 1) = "賣出日期 " : xlSheet.Cells(N2 + 2, 2) = 賣出日期_dtp.Text : xlSheet.Cells(N2 + 2, 3) = "牌照號碼"
            xlSheet.Cells(N2 + 2, 4) = 賣出牌照號碼_tb.Text : xlSheet.Cells(N2 + 2, 5) = "顏色" : xlSheet.Cells(N2 + 2, 6) = 賣出顏色_tb.Text
            xlSheet.Cells(N2 + 3, 1) = "車主名稱 " : xlSheet.Cells(N2 + 3, 2) = 賣出車主名稱_tb.Text
            Dim phoneNumber2 As String = 賣出車主電話_tb.Text
            xlSheet.Cells(N2 + 3, 4) = "電話 " : xlSheet.Cells(N2 + 3, 5) = "'" & phoneNumber2
            xlSheet.Cells(N2 + 4, 1) = "地址 " : xlSheet.Cells(N2 + 4, 2) = 賣出車主地址_tb.Text
            xlSheet.Cells(N2 + 5, 1) = "售價 " : xlSheet.Cells(N2 + 5, 2) = 售價_tb.Text
            xlSheet.Cells(N2 + 5, 4) = "經手人 " : xlSheet.Cells(N2 + 5, 5) = 賣出經手人_tb.Text
            xlSheet.Cells(N2 + 6, 1) = "備註 " : xlSheet.Cells(N2 + 6, 2) = 備註_tb.Text
            xlSheet.Cells(N2 + 7, 1) = "檢測日期 " : xlSheet.Cells(N2 + 7, 2) = 檢測日期_dtp.Text
            BB(xlApp, xlSheet) '未改
        Else
            xlSheet.Cells(1, 1) = 公司名稱.Text
            xlSheet.Cells(2, 1) = "結    帳    單"
            xlSheet.Cells(3, 1) = "出險公司: " & 出險公司_tb.Text
            xlSheet.Cells(3, 5) = "派修單號: " & 單號_tb.Text
            xlSheet.Cells(4, 1) = "車主: " & 車主名稱_tb.Text : xlSheet.Cells(4, 3) = "車號: " & 車號_tb.Text
            xlSheet.Cells(4, 5) = "應驗車日: " & 應驗車日_dtp.Text
            xlSheet.Cells(4, 7) = "入廠日期: " & 入廠日期_dtp.Text
            xlSheet.Cells(5, 1) = "地址: " & 地址_tb.Text
            xlSheet.Cells(5, 5) = "車型: " & 車型_tb.Text
            xlSheet.Cells(5, 7) = "前期未付: 0"
            xlSheet.Cells(6, 1) = "電話: " & 電話_tb.Text
            xlSheet.Cells(6, 3) = "進廠里程: " & 里程_tb.Text & "KM"
            xlSheet.Cells(6, 5) = "保養預示: " & 保養預示_tb.Text & "KM"
            xlSheet.Cells(6, 7) = "油表 : E  \  |  |  /  F"
            xlSheet.Cells(7, 1) = "承修項目" : xlSheet.Cells(7, 3) = "工資"
            xlSheet.Cells(7, 4) = "零件名稱" : xlSheet.Cells(7, 6) = "數量"
            xlSheet.Cells(7, 7) = "單價" : xlSheet.Cells(7, 8) = "總價"
            Dim a As Integer = 0
            Dim b As Integer = 0
            For i As Integer = 0 To 明細表1_dgv.Rows.Count - 1

                If 明細表1_dgv.Rows(i).Cells("狀態").Value.ToString = "承修項目" Then
                    xlSheet.Cells(a + 8, 1) = 明細表1_dgv.Rows(i).Cells("各項支出名稱").Value
                    Dim value1 As Double = Convert.ToDouble(明細表1_dgv.Rows(i).Cells("總售價").Value)
                    Dim formattedValue1 As String = value1.ToString("#,##0")
                    xlSheet.Cells(a + 8, 3) = formattedValue1
                    a += 1
                Else
                    xlSheet.Cells(b + 8, 4) = 明細表1_dgv.Rows(i).Cells("各項支出名稱").Value
                    xlSheet.Cells(b + 8, 9) = 明細表1_dgv.Rows(i).Cells("各項支出名稱").Value
                    Dim value1 As Double = Convert.ToDouble(明細表1_dgv.Rows(i).Cells("數量").Value)
                    Dim formattedValue1 As String = value1.ToString("F2")
                    xlSheet.Cells(b + 8, 6) = "'" & formattedValue1
                    Dim value2 As Double = Convert.ToDouble(明細表1_dgv.Rows(i).Cells("售價").Value)
                    Dim formattedValue2 As String = value2.ToString("#,##0")
                    xlSheet.Cells(b + 8, 7) = formattedValue2
                    Dim value3 As Double = Convert.ToDouble(明細表1_dgv.Rows(i).Cells("總售價").Value)
                    Dim formattedValue3 As String = value3.ToString("#,##0")
                    xlSheet.Cells(b + 8, 8) = formattedValue3
                    b += 1
                End If
                N2 = i + 8
            Next i


            xlSheet.Cells(N2 + 1, 1) = "工資 " : xlSheet.Cells(N2 + 1, 2) = 工資_tb.Text
            xlSheet.Cells(N2 + 1, 3) = "零件 " : xlSheet.Cells(N2 + 1, 4) = 零件_tb.Text
            xlSheet.Cells(N2 + 1, 5) = "總計 " : xlSheet.Cells(N2 + 1, 6) = 總計_tb.Text
            xlSheet.Cells(N2 + 2, 1) = "稅金5% " : xlSheet.Cells(N2 + 2, 2) = 稅金_tb.Text : xlSheet.Cells(N2 + 2, 3) = "信用卡"
            xlSheet.Cells(N2 + 2, 4) = 信用卡_tb.Text : xlSheet.Cells(N2 + 2, 5) = "客戶簽名"
            xlSheet.Cells(N2 + 3, 1) = "應收合計 " : xlSheet.Cells(N2 + 3, 2) = 應收合計_tb.Text
            xlSheet.Cells(N2 + 3, 3) = "賒帳 " : xlSheet.Cells(N2 + 3, 4) = 賒帳_tb.Text
            xlSheet.Cells(N2 + 4, 1) = "支票 " : xlSheet.Cells(N2 + 4, 2) = 支票_tb.Text
            xlSheet.Cells(N2 + 4, 3) = "現金 " : xlSheet.Cells(N2 + 4, 4) = 現金_tb.Text
            xlSheet.Cells(N2 + 5, 1) = 註解1_tb.Text : xlSheet.Cells(N2 + 5, 6) = 註解2_tb.Text
            xlSheet.Cells(N2 + 6, 1) = 註解3_tb.Text
            BB1(xlApp, xlSheet)
        End If

        xlApp.Sheets(2).Delete : xlSheet.PageSetup.PrintArea = ""
        '----轉成PDF-----
        Dim pdfFolderPath As String = Path.Combine(System.Windows.Forms.Application.StartupPath, "pdf")
        If Not Directory.Exists(pdfFolderPath) Then
            Directory.CreateDirectory(pdfFolderPath)
        End If
        Dim pdfFilePath As String = Path.Combine(pdfFolderPath, 單號_tb.Text & "-結帳單.pdf")
        xlBook.Sheets(1).ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, pdfFilePath, XlFixedFormatQuality.xlQualityStandard, True)
        '--------
        xlApp.Cells.Select() : xlApp.Application.WindowState = xlMinimized : xlBook.Close(False)
        Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet)
        Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)
        Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
        xlApp.Quit() : xlSheet = Nothing : xlBook = Nothing : xlApp = Nothing : GC.Collect()

        Try
            Dim chromePath As String = "C:\Program Files\Google\Chrome\Application\chrome.exe"
            If System.IO.File.Exists(chromePath) Then
                Dim process As New Process()
                process.StartInfo.FileName = "chrome"
                process.StartInfo.Arguments = """" & pdfFilePath & """"
                process.Start()
            Else : Dim edgePath As String = "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"
                If System.IO.File.Exists(edgePath) Then
                    Dim process As New Process()
                    process.StartInfo.FileName = "msedge"
                    process.StartInfo.Arguments = """" & pdfFilePath & """"
                    process.Start()
                Else
                    Process.Start(pdfFilePath)
                End If
            End If
        Catch ex As Exception
            MsgBox("以存檔至桌面 。" & vbCrLf & "檔案名稱：" & 單號_tb.Text & "-結帳單.pdf")
        End Try

    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 = 12
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ThemeColor = xlThemeColorLight1
            .TintAndShade = 0
            .ThemeFont = xlThemeFontNone
        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

        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("A1:F1").Select()
        With myExcel.Selection.Font
            .Name = "微軟正黑體"
            .Size = 20
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ThemeColor = xlThemeColorLight1
            .TintAndShade = 0
            .ThemeFont = xlThemeFontNone
        End With
        xlSheet.Columns("A:A").ColumnWidth = 15.5
        xlSheet.Columns("B:B").ColumnWidth = 15.5
        xlSheet.Columns("C:C").ColumnWidth = 15.5
        xlSheet.Columns("D:D").ColumnWidth = 15.5
        xlSheet.Columns("E:E").ColumnWidth = 15.5
        xlSheet.Columns("F:F").ColumnWidth = 15.5

        xlSheet.Range("A1:F1").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.Range("B2:C2").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.Range("E2:F2").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.Range("B3:C3").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.Range("E3:F3").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.Range("B5:C5").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.Range("E5:F5").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.Range("B6:F6").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.Range("B7:C7").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.Range("E7:F7").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.Range("A8:B8").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.Range("E8:F8").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
        For i As Integer = 9 To N2 - 1
            xlSheet.Range("A" & i & ":B" & 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
            myExcel.Selection.Merge

            xlSheet.Range("E" & i & ":F" & 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
            myExcel.Selection.Merge
        Next i
        xlSheet.Range("A" & N2 & ":F" & N2).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.Range("B" & N2 + 1 & ":C" & N2 + 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
        myExcel.Selection.Merge

        xlSheet.Range("E" & N2 + 1 & ":F" & N2 + 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
        myExcel.Selection.Merge

        xlSheet.Range("B" & N2 + 3 & ":C" & N2 + 3).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.Range("E" & N2 + 3 & ":F" & N2 + 3).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.Range("B" & N2 + 4 & ":F" & N2 + 4).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.Range("B" & N2 + 5 & ":C" & N2 + 5).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.Range("E" & N2 + 5 & ":F" & N2 + 5).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.Range("B" & N2 + 6 & ":F" & N2 + 6).Select()

        With myExcel.Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = True
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge

        xlSheet.Range("B" & N2 + 7 & ":F" & N2 + 7).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

        For i = 1 To N2 + 6
            xlSheet.Rows(i).RowHeight = xlSheet.Rows(i).RowHeight + 5
        Next i

        xlSheet.Rows(N2 + 6).RowHeight = xlSheet.Rows(N2 + 6).RowHeight + 20
        xlSheet.Rows(N2 + 7).RowHeight = xlSheet.Rows(N2 + 7).RowHeight + 5

        myExcel.Application.PrintCommunication = False
        With myExcel.ActiveSheet.PageSetup
            .PrintTitleRows = ""
            .PrintTitleColumns = ""
        End With
        myExcel.Application.PrintCommunication = True
        myExcel.ActiveSheet.PageSetup.PrintArea = ""
        myExcel.Application.PrintCommunication = False
        With myExcel.ActiveSheet.PageSetup
            .LeftHeader = ""
            .CenterHeader = ""
            .RightHeader = ""
            .LeftFooter = ""
            .CenterFooter = ""
            .RightFooter = ""
            .LeftMargin = myExcel.Application.InchesToPoints(0.25)
            .RightMargin = myExcel.Application.InchesToPoints(0.25)
            .TopMargin = myExcel.Application.InchesToPoints(0.75)
            .BottomMargin = myExcel.Application.InchesToPoints(0.75)
            .HeaderMargin = myExcel.Application.InchesToPoints(0.3)
            .FooterMargin = myExcel.Application.InchesToPoints(0.3)
            .PrintHeadings = False
            .PrintGridlines = False
            .CenterHorizontally = False
            .CenterVertically = False
            .Draft = False
            .FirstPageNumber = xlAutomatic
            .BlackAndWhite = False
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = False
            .OddAndEvenPagesHeaderFooter = False
            .DifferentFirstPageHeaderFooter = False
            .ScaleWithDocHeaderFooter = True
            .AlignMarginsHeaderFooter = True
            .EvenPage.LeftHeader.Text = ""
            .EvenPage.CenterHeader.Text = ""
            .EvenPage.RightHeader.Text = ""
            .EvenPage.LeftFooter.Text = ""
            .EvenPage.CenterFooter.Text = ""
            .EvenPage.RightFooter.Text = ""
            .FirstPage.LeftHeader.Text = ""
            .FirstPage.CenterHeader.Text = ""
            .FirstPage.RightHeader.Text = ""
            .FirstPage.LeftFooter.Text = ""
            .FirstPage.CenterFooter.Text = ""
            .FirstPage.RightFooter.Text = ""
        End With
        myExcel.Application.PrintCommunication = True

    End Sub

    Private Sub BB1(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 = 11
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ThemeColor = xlThemeColorLight1
            .TintAndShade = 0
            .ThemeFont = xlThemeFontNone
        End With
        xlSheet.Range("A4:H" & N2 + 6).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("A1:H1").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:H2").Select()
        With myExcel.Selection.Font
            .Name = "微軟正黑體"
            .Size = 20
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ThemeColor = xlThemeColorLight1
            .TintAndShade = 0
            .ThemeFont = xlThemeFontNone
        End With
        xlSheet.Columns("A:A").ColumnWidth = 14
        xlSheet.Columns("B:B").ColumnWidth = 14
        xlSheet.Columns("C:C").ColumnWidth = 10
        xlSheet.Columns("D:D").ColumnWidth = 13
        xlSheet.Columns("E:E").ColumnWidth = 13
        xlSheet.Columns("F:F").ColumnWidth = 10
        xlSheet.Columns("G:G").ColumnWidth = 11
        xlSheet.Columns("H:H").ColumnWidth = 11
        xlSheet.Columns("I:I").ColumnWidth = 25
        xlSheet.Rows(N2 + 5 & ":" & N2 + 5).RowHeight = 100
        xlSheet.Rows(N2 + 6 & ":" & N2 + 6).RowHeight = 35

        xlSheet.Range("I:I").Select()

        With myExcel.Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = True
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With


        xlSheet.Range("A1:H1").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.Range("A2:H2").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
        myExcel.Selection.Font.Underline = xlUnderlineStyleSingle

        xlSheet.Range("A3:D3").Select()

        With myExcel.Selection
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge

        xlSheet.Range("E3:H3").Select()

        With myExcel.Selection
            .HorizontalAlignment = xlRight
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge
        xlSheet.Range("A4:B4").Select()

        With myExcel.Selection
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge
        xlSheet.Range("C4:D4").Select()

        With myExcel.Selection
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge
        xlSheet.Range("E4:F4").Select()

        With myExcel.Selection
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge
        xlSheet.Range("G4:H4").Select()

        With myExcel.Selection
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge
        xlSheet.Range("A5:D5").Select()

        With myExcel.Selection
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge
        xlSheet.Range("E5:F5").Select()

        With myExcel.Selection
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge
        xlSheet.Range("G5:H5").Select()

        With myExcel.Selection
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge
        xlSheet.Range("A6:B6").Select()

        With myExcel.Selection
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge
        xlSheet.Range("C6:D6").Select()

        With myExcel.Selection
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge
        xlSheet.Range("E6:F6").Select()

        With myExcel.Selection
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge
        xlSheet.Range("G6:H6").Select()

        With myExcel.Selection
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge
        xlSheet.Range("A7:B7").Select()

        With myExcel.Selection
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge
        xlSheet.Range("D7:E7").Select()

        With myExcel.Selection
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge

        For i As Integer = 8 To N2
            xlSheet.Range("A" & i & ":B" & i).Select()

            With myExcel.Selection
                .HorizontalAlignment = xlLeft
                .VerticalAlignment = xlCenter
                .WrapText = False
                .Orientation = 0
                .AddIndent = False
                .IndentLevel = 0
                .ShrinkToFit = False
                .ReadingOrder = xlContext
                .MergeCells = False
            End With
            myExcel.Selection.Merge

            xlSheet.Range("D" & i & ":E" & i).Select()

            With myExcel.Selection
                .HorizontalAlignment = xlLeft
                .VerticalAlignment = xlCenter
                .WrapText = True
                .Orientation = 0
                .AddIndent = False
                .IndentLevel = 0
                .ShrinkToFit = False
                .ReadingOrder = xlContext
                .MergeCells = False
            End With
            myExcel.Selection.Merge
            xlSheet.Rows(i & ":" & i).EntireRow.AutoFit

        Next i
        xlSheet.Range("F8:F" & N2).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("F" & N2 + 1 & ":H" & N2 + 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
        myExcel.Selection.Merge
        xlSheet.Range("E" & N2 + 2 & ":H" & N2 + 2).Select()

        With myExcel.Selection
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge

        xlSheet.Range("E" & N2 + 3 & ":H" & N2 + 4).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.Range("A" & N2 + 5 & ":E" & N2 + 5).Select()

        With myExcel.Selection
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlCenter
            .WrapText = True
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge
        xlSheet.Range("F" & N2 + 5 & ":H" & N2 + 5).Select()

        With myExcel.Selection
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlCenter
            .WrapText = True
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge
        xlSheet.Range("A" & N2 + 6 & ":H" & N2 + 6).Select()

        With myExcel.Selection
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlCenter
            .WrapText = True
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        myExcel.Selection.Merge
        xlSheet.Range("A7:B7,C7,D7:E7,F7,G7,H7,A" & N2 + 1 & ",A" & N2 + 2 & ",A" & N2 + 3 & ",A" & N2 + 4 & ",C" & N2 + 1 &
                      ",C" & N2 + 2 & ",C" & N2 + 3 & ",C" & N2 + 4 & ",E" & N2 + 1 & ",E" & N2 + 2 & ":H" & N2 + 2).Select()
        With myExcel.Selection
            .HorizontalAlignment = xlDistributed
            .VerticalAlignment = xlCenter
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .ShrinkToFit = False
            .ReadingOrder = xlContext
        End With

        xlSheet.Columns("I:I").ColumnWidth = 0

        myExcel.Application.PrintCommunication = False
        With myExcel.ActiveSheet.PageSetup
            .PrintTitleRows = ""
            .PrintTitleColumns = ""
        End With
        myExcel.Application.PrintCommunication = True
        myExcel.ActiveSheet.PageSetup.PrintArea = ""
        myExcel.Application.PrintCommunication = False
        With myExcel.ActiveSheet.PageSetup
            .LeftHeader = ""
            .CenterHeader = ""
            .RightHeader = ""
            .LeftFooter = ""
            .CenterFooter = ""
            .RightFooter = ""
            .LeftMargin = myExcel.Application.InchesToPoints(0.25)
            .RightMargin = myExcel.Application.InchesToPoints(0.25)
            .TopMargin = myExcel.Application.InchesToPoints(0.75)
            .BottomMargin = myExcel.Application.InchesToPoints(0.75)
            .HeaderMargin = myExcel.Application.InchesToPoints(0.3)
            .FooterMargin = myExcel.Application.InchesToPoints(0.3)
            .PrintHeadings = False
            .PrintGridlines = False
            .CenterHorizontally = False
            .CenterVertically = False
            .Draft = False
            .FirstPageNumber = xlAutomatic
            .BlackAndWhite = False
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = False
            .OddAndEvenPagesHeaderFooter = False
            .DifferentFirstPageHeaderFooter = False
            .ScaleWithDocHeaderFooter = True
            .AlignMarginsHeaderFooter = True
            .EvenPage.LeftHeader.Text = ""
            .EvenPage.CenterHeader.Text = ""
            .EvenPage.RightHeader.Text = ""
            .EvenPage.LeftFooter.Text = ""
            .EvenPage.CenterFooter.Text = ""
            .EvenPage.RightFooter.Text = ""
            .FirstPage.LeftHeader.Text = ""
            .FirstPage.CenterHeader.Text = ""
            .FirstPage.RightHeader.Text = ""
            .FirstPage.LeftFooter.Text = ""
            .FirstPage.CenterFooter.Text = ""
            .FirstPage.RightFooter.Text = ""
        End With
        myExcel.Application.PrintCommunication = True
    End Sub



    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

End Class